diff --git a/packages/FA2X.m b/packages/FA2X.m
new file mode 100644
index 0000000000000000000000000000000000000000..63d5f7ae5d2331b2b535b3ebd801660442a2c205
--- /dev/null
+++ b/packages/FA2X.m
@@ -0,0 +1,31 @@
+(* ::Package:: *)
+
+(*Functions to convert from FORMCALC to PackageX
+Kirtimaan Mohan
+email= kamohan@msu.edu
+version 1.0
+10/20/2017
+Note: THis code has not been optimized.*)
+(*
+Implementation of five point function E0i \[Rule] PVX
+done by J.G. Reyes. 
+10/03/2019
+*)
+
+
+Print["FA2X by Kirtimaan Mohan \n email: kamohan@msu.edu \n version 1.1 \n 10/03/2019 \n Not optimized! Possibly lots of bugs!!!"]
+
+
+IndE[rr_]:=Module[{aa,ret},aa=ToExpression[StringSplit[StringTrim[ToString[rr],"ee"],""]];If[Total[aa]>=0,ret=Table[Count[aa,i],{i,0,4}];If[Mod[ret[[1]],2]==0 && ret[[1]]>1,ret[[1]]=ret[[1]]/2,ret[[1]]=0],Throw[$Failed,ret];Abort[]];ret];
+IndD[rr_]:=Module[{aa,ret},aa=ToExpression[StringSplit[StringTrim[ToString[rr],"dd"],""]];If[Total[aa]>=0,ret=Table[Count[aa,i],{i,0,3}];If[Mod[ret[[1]],2]==0 && ret[[1]]>1,ret[[1]]=ret[[1]]/2,ret[[1]]=0],Throw[$Failed,ret];Abort[]];ret];
+IndC[rr_]:=Module[{aa,ret},aa=ToExpression[StringSplit[StringTrim[ToString[rr],"cc"],""]];If[Total[aa]>=0,ret=Table[Count[aa,i],{i,0,2}];If[Mod[ret[[1]],2]==0 && ret[[1]]>1,ret[[1]]=ret[[1]]/2,ret[[1]]=0],Throw[$Failed,ret];Abort[]];ret];
+IndB[rr_]:=Module[{aa,ret},aa=ToExpression[StringSplit[StringTrim[ToString[rr],"bb"],""]];If[Total[aa]>=0,ret=Table[Count[aa,i],{i,0,1}];If[Mod[ret[[1]],2]==0&& ret[[1]]>1,ret[[1]]=ret[[1]]/2,ret[[1]]=0],Throw[$Failed,ret];Abort[]];ret];
+IndA[rr_]:=Module[{aa,ret},aa=ToExpression[StringSplit[StringTrim[ToString[rr],"aa"],""]];If[Total[aa]>=0,ret=Table[Count[aa,i],{i,0,0}];If[Mod[ret[[1]],2]==0 && ret[[1]]>1,ret[[1]]=ret[[1]]/2,ret[[1]]=0],Throw[$Failed,ret];Abort[]];ret];
+
+RIntList={
+E0i[ind_,s1_,s2_,s3_,s4_,s5_,s6_,s7_,s8_,s9_,s10_,m0_,m1_,m2_,m3_,m4_]:> PVX[IndE[ind][[1]],IndE[ind][[2]],IndE[ind][[3]],IndE[ind][[4]],IndE[ind][[5]],s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,Sqrt[m0],Sqrt[m1],Sqrt[m2],Sqrt[m3],Sqrt[m4]],
+D0i[ind_,s1_,s2_,s3_,s4_,s12_,s23_,m1_,m2_,m3_,m4_]:>  PVD[IndD[ind][[1]],IndD[ind][[2]],IndD[ind][[3]],IndD[ind][[4]],s1,s2,s3,s4,s12,s23,Sqrt[m1],Sqrt[m2],Sqrt[m3],Sqrt[m4]],
+C0i[ind_,s1_,s12_,s2_,m0_,m1_,m2_]:> PVC[IndC[ind][[1]],IndC[ind][[2]],IndC[ind][[3]],s1,s12,s2,Sqrt[m0],Sqrt[m1],Sqrt[m2]],
+B0i[ind_,s_,m0_,m1_]:> PVB[IndB[ind][[1]],IndB[ind][[2]],s,Sqrt[m0],Sqrt[m1]],
+A0i[ind_,m0_]:> PVA[IndA[ind][[1]],Sqrt[m0]]
+};
diff --git a/packages/X/.DS_Store b/packages/X/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..257fad50cc3b49def2fb8ed4c051b5b366caa104
Binary files /dev/null and b/packages/X/.DS_Store differ
diff --git a/packages/X/Common.m b/packages/X/Common.m
new file mode 100644
index 0000000000000000000000000000000000000000..baab25de18b14611462d05b06b3c0b88fc1a1e6c
--- /dev/null
+++ b/packages/X/Common.m
@@ -0,0 +1,1767 @@
+(*!1N!*)mcm
+j<hTJue'P+lKh]7t>X^C3|[Vb&q(RGt(n1NViVm`B`n_7LY~HZCF`UB[$MA^_ao?.#b,=t
+DCR?B^?vK0+ 19h|oC_4\mFPJmN4+jOh]19/\J[&`b%O#[1SNQ^k.LBmpyoD_4\mFP2E$z
+K~_>_J\m=3Bair";]W5FP h|G{7Gf+<e_D@w0+BATA\RXY]-:1.<d{!gC:?%L{l5Xotv1|
+Jr&;D]EoBSu5k %Mn`]m5A`T0:ljuNa+t[L!pU@;S8uFWa]xN6#gEu>WF-i?=Zf3YX`D)C
+67)oRpMj=[bc4C@7sX`L[EJFYx\<YX1E"nF#n<AB` QG.LPv0\6z%X];3sEv;2GcR+pd02
+=n\#MUCVK~1\ps4)uMi~HnSJQy8 hX@kseY>uu$N@:7,/m%kfK*{[87uP`MVB9VU<{!1%k
+s>!lon#Z_UJy@UrxR=k9,N/!aA^#7/7+Kr0S_"2ZeT$n$>272?!|2zSJtb90>q*09]a-p 
+Yw%|Ael&i6n='6KGb+uOa+t[L!pU@;S8X%#P,]WLBq^qBNEx>WpH90>q*09]9%(\jVroCz
+ue,VH:N?N6!OJs2gLN3_/K%@[8)KN>^v.MBz<{m=tq!lU(o.!NSTHVr}t7!ls~!lon#Z_U
+Jy@UrxR=k9,N/!aASD?PTHBi"GM:T6T: }TX9duLWb/H%(,n@VH h'"}0rq.oer9#Z`nA%
+Jgk`uHa+sE[8dfka&H&7# a/9'(\jVYw%|Ael&i6n='6m9'6\X.MqiuSL!pI`UL6=[PuO&
+7 G08<Yx%|Ael&i6n='6KGb+uOa+t[L!pU@;S8u2EO"fG@>v*`@:=b@9sX`L[EJFYx\<v)
+raKq9i_FtYu6L!Yx`T\=.MBz<{m=tq!lU(o.!NSTHVr}t7!l=\irBC<{euYwdDsN#Z!'Jb
+f{>{7+!s2zSJIW<{r5.E[47uP`MVB9VU<{JzYwUU=ZRSpg'6r~_j*{g+EFJcJrk`]4.MBz
+<{m=sP!luHWa`kA%mj>76/VIX0B[ 7mng)p]I@5xX jmuGuea+t3L!s"!lju`W0:Je2gLN
+3_/K%@[8)KN>^v.MBz<{m=tq!l/BbZVZ3W?!jZraKq9i_FtYu6L!u*L!s"!lju`W0:A<T;
+?]I2SH\$o.!NSTHVr}t7!l=\JsBE<{euYwdDsN#Z>dI5`M)C67)oRpMj=[uVf{LBJck`uH
+a+sE[8df"P`Wiwb|J0 k=YNWZwaXq5<GuV(}`T8bi$EYK4.M[du8k %Mn`]m5A`TEo,lo1
+YwUU=ZRSpg'6bnYwpBVqQ55ZG_nd&A`@;e2^13O%r Z6V2;4g3\HK6Fvn_K!1fB962b:$&
+pKI@5xX jmuGuea+S4Z"[6Ik@6=b`><{i9iU%Y;ft=2@dY2>RsM"Jg1fB962b:7+a4jdJu
+"7[8fp28>{kM90oYJr2gLN3_/K%@[8)KN>^v.MBz<{m=tq!lU(o.!NSTHVr}t7!ls~!lon
+#Z_UJy@UrxR=k9,N/!aASD?PTHBi"GM:T6T: }TX9duLWb/H%(,n@VH h'"}0rq.oer9#Z
+`nA%Jgk`uHa+sE[8dfe[J0 k=YNW'dXDSwh)`M)C67)oRpMj=[<}=[4u[6.pk:.MogtR1|
+JrQF[qk4 2<{A3t;_j*{g+EFJcJrk`9Yh,=Z4u[6.pk:.Mog=Y+zcKau\7fE.Md<.MBz<{
+m=tq!lU(K*2gLN3_/K%@[8tvWb$cuHa+t[L!pU@;S8u2EO"fG@>v*`@:sX90% tZL!s"!l
+ju`W0:`cYwpBVqQ55Z^VG?to(}`TcmraKq9i_FtYu6L!r1!lon#Z_UJy@U@6Ol++$wdS6t
+Yx`@uJa+t[L!pU@7S8=Z?D,lo1ekd=StbCe+_%"b'nE8`O)C67)oRpMj=[uV[4Ik@6=b`>
+<{i9Yw%|Ael&i6n='6KGb+uOa+t[L!pU@;S8U"tA!W[3&x/JpHI@5xX jmuGuea+u_a+t[
+L!pU@;S8[h:-Zy_c9ci-raKq9i_FtYu6L!Yx`T\=.MBz<{m=tq!l/B_e@6Ol++$wdS6tYx
+uuCMa<`LpzJc@Utm=[BCJEs3E<id_s^+#ab5;JsXCzue,Vg42Pue,Vh'"}0rq.oer9#Zu#
+L!s"!lju`W0:[6I3Ywu'EO"fG@>v*`@:=b@1sX`L[EJFYx\<YXoc.EZ7Je"7[8q[_jUfl!
+\7fEK*QFo.!NSTHVr}t7!lu\a+`G[EJFYx\<YXn"#ZuS#Zt29.Yw%|Ael&i6n='6bN'6r.
+!lju`W0:[6#MuEWa6i$s09PU5Z]5GX&~kGtNf{Rn"S&G&9"/]hD[4Lt[DFoUCzue,Vh'"}
+0rq.oer9#Zu#L!s"!lju`W0:[6t>WbM_Q;?_NB`L.8WzG'ERhkRA*48bHJ,}uG$N@:m"I@
+5xX jmuGuea+t~a+t[L!pU@;S8=Z_dj-dC7rSQZ"rmS=JN.?`XL6=[CHHk+WP&=[sxk %M
+n`]m5A`T[E@7sX`L[EJFYx\<YXn".E[47uP`MVB9VU<{JzrG@w@6sX`L[EuQYw\<YXn"90
+Xe=HQ-aCJbf{^w=Zf3YX`D)C@AMr=FM)\7fEYX`D)C67)oRpMj=[rsYwUU.MqiuSL!Jcf{
+@3m"I@58alB9VUv5,Vh'"}0rq.oer9#Z[9ugdjYwUU=ZRSkB'6r~R=u3a+`Gpz[4tvWbgM
+.c8V@a<{ P@6R'=ZTyI,8F-}.~aAOdavk_'fN>^v=Zf3YX`D)C@AMr=FM)\7fEYX`D)C67
+)oRpMj=[rsYwUU=ZRSpg'6r~R=u3,Vh'sn)"/M%@v3.E[47uP`MVB9VU<{JzrG@w@6sX`L
+[EuQYw\<YXn"#Z[9(zhRH]LpuEa+hh<kr|R=%#JxEJKNi"3XK*'DN4lK$x@<6+Yx\n`qo[
+TvXW<{JS2gLN3_/K%@[8O1Hg`NpzJc@Utm=[BC<{i2<kJDQ|0x4-^6oaYw%|Ael&i6n='6
+u!F~<{euYwdDsN#Z>d=~ie3k#OEcBF'sMJHg8FNV3`9d/>A8Kr$Wf6E~a"2m,em1<W`2[6
+V0<{iR@HGmeVgFo.!NSTHVr}t7!lAt.2YwUU=ZRSpg'6bnd8a<@8G<VE/h+EJc2gLN3_/K
+%@[89[%wshL!s"!lju`W0:L''$bZOdavk_7vbnfT%"JxuzSPa_,:NRb 0^h|FJ'DN4Vupz
+gvu59.42_e)yMvu7?O-YNDueYx%|<|SCbP^)tYu69.Yw%|Ael&i6n='6p\#Zt2L!pU@;S8
+=Z4Yhw[47u=]A"'Akzoer9.E[47uP`MVB9VU<{_o.Mn&#Z_UJy@U@6rGAI`G)C@AMr=FM)
+\7fEYX`D)C67)oRpMj=[rsYwUU.MqiuSL!Jcf{*=t/k  (6!^j/qRnMj=[sxk %Mn`]m5A
+`T[E@7sX=YRSpg'6r~R=\ze]ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!uZa+`G[EJFYx\<
+YXn"3th'"}.N9alCj/uGue,Vh'"}0rq.oer9#Zsi!lu4a+sE[8dfYw*<o\=Y+zYy0PNkE|
+r}t7R==Y+zcKau\7fE.MlD'6r.!lju`W0:[6I3A[`G)C@AMr=FM)\7fEYX`D)C67)oRpMj
+=['HYxUU.MqiuSL!Jcf{'ZpsWbLJ+Fv1I@5xX jmuGuea+`DpzJc@Utm=[BC`G)C67)oRp
+Mj=[$e<{euYwdDsN#Z3yh'"}0rq.oer9#Ztz!lon#Z_UJy@UK1=ZjO7N,5?*6MBDU(I,Vs
+&o-~$pM[ae4C,3,P_<D[4Lt[DFPVB[QH>J,]_<YXt5R==YE&=ZFobmLO9b1ZY|svL!YxpB
+Czue,Vh'"}.N9alCj/uGue,Vh'"}0rq.oer9#ZsI!lu4a+sE[8dfYwUGoV=Y+zYy0PNkE|
+r}t7R==Y+zcKau\7fE.Mk#'6r.!lju`W0:[6I3[oYXO#[$aZ@!QLjhgvu59.Yw]]Yw^RlQ
+aBW{Swh)u&a+<{s<1|JrQFo.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!ltoL!JY@Utm=[BC<{
+:co^=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.Mk#'6r.!lju`W0:[6I3A;<{'pr{0kM*8U&n
+QHOC,Z!guG$N@:m"I@5xX jmuGuea+`DpzJc@Utm=[BC`G)C67)oRpMj=[$e<{euYwdDsN
+#Z3yh'"}0rq.oer9#Ztz!lon#Z_UJy@U@6G<n_NCL]ccYwn4<k@2Ol[;b$.ba_i6n=<k@2
+Ol++$wdS6tYxNn<{eu'6Htuta+`LnXazJX2g`b%OZm#{B9VU<{JS2gLN3_/K%@[8.p=[4u
+<{m=tq!luHWa(ot/k  (6!^j/qRnMj=[sxk %Mn`]m5A`T[E@8sX=YRSpg'6r~R=rPe]ra
+ f#[g)H]]^5A`TcmraKq9i_FtYu6L!uZa+`G[EJFYx\<YXXLrwR=%#Jxm:AN4aX7ttb\_?
+#ab5;JsXCzue,VAN4aX7ttb\W7h'"}0rq.oer9#ZKyuZa+t[L!pU@;S8u2EO"fG@>v*`@:
+sXK!k`uHa+sE[8dfuch'"}.N9alCj/uGue,Vh'"}0rq.oer9#Z>l<{eu'6Htuta+`LnXaj
+JX2g`b%OZm#{B9VU<{JS2gLN3_/K%@[8.p=[4u<{m=tq!luHWa$KEhv4k  (6!^j/qRnMj
+=[sxk %Mn`]m5A`TEotOL!JY@Utm=[BC<{enGjYw%|<|SCbP^)tYu69.Yw%|Ael&i6n='6
+q=#Zt2L!pU@;S8=Z4Y(7r"WbgM.c8V@a`LnX*Z$s"k/!aA=Zf3YX`D[EaN.ME2Ha0@GXh>
+[6tvR= NN!>s#L[3oZY_^bWLttb\A1X+G3;@$u@7Ol++$wdS6tYxk+[9Ik@6=b`><{i9^*
+5YKvV[$/E;h'"}0rq.oer9#ZKyuZa+t[L!pU@;S80]]:0GNg-r=cB9e(o/rz1|Jr&;JS2g
+`b%O*B& Zm#{B9VU<{JS2gLN3_/K%@[8j,J`k`@3=b`><{i9<kgAC?p\o.!N'7[?G.W{q<
+E'JcJrQFo.!NSTHVr}t7!lu L!JY@Utm=[BC<{:cW*8isxk  (6!II8 ^j/qRnMj=[sxk 
+%Mn`]m5A`TEotOL!JY@Utm=[BC<{enW*_pYx%|<|`pfDSDbP^)tYu69.Yw%|Ael&i6n='6
+q=#Zt2L!pU@;S8=Z4YO~,r[8(zhRH]LpuEWa8c5`Pw2>uP$N@:m"#Z:x+/Zki-.ME2Ha0@
+t%hkMrn_#Z[9^hkw15h|FJuD(}`T8b=xep.%`@0^nNraKq9i_FtYu6L!@S`QpzJc@Utm=[
+BC`G)C67)oRpMj=[`!@=sX`L[EJFYx\<v)ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!hC'6
+r.!lju`W0:[6I3[U@3Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxNn<{eu'6Htuta+`LnXajJX
+2g`b%OZm#{B9VU<{JS2gLN3_/K%@[8DF`Xpz[4.pk:.Mog.EC`KCv)ra f#[g)H]]^5A`T
+cmraKq9i_FtYu6L!hC'6r.!lju`W0:[6I3[Y@3Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxNn
+<{eu'6Htuta+`LnXazJX2g`b%OZm#{B9VU<{JS2gLN3_/K%@[8DF`Xpz[4.pk:.Mog.EI&
+KC@31vZnq<#KAB<{MVHg8FPX Lp2Czue,V<{DtuWCMdRLDN>\Qk!'6@<G<S4Z"94`j?N]i
+\nG'ce\H[6V0<{JSk`76&(96uGf{Rn"S&G5H?O(8J]k`YXdX:<6\:+15&Be%[k$ PU=Zf3
+YX`D)C@AMr=FM)\7fEYX`D)C67)oRpMj=[23@<sX=YRSpg'6r~R=1omyI@ C!mn__I>n*`
+@:m"I@5xX jmuGuea+tz!lu4a+sE[8dfYwUGoV=Y$MoD4>6HJbf{a<[85QcA:)IG9^`B'/
+@<6+Yxu'*b21t=_j*{g+EFJcJr@U@7sX`L[EJFYx\<@3Ol[;b$.ba_i6n=<k@2Ol++$wdS
+6tYxX8.Mn&#Z_UJy@U@6rG@|`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=[:;<{eu'6Htuta+
+`LnXbsJXg\^nbP-poS=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.Mm%#Zt2L!pU@;S8=Z4Y<{
+TD`G0:t/k  (6!^j/qRnMj=[sxk %Mn`]m5A`T0:[4IkYwdDsN#ZtZ9.JYk`iP'6GsYw%|
+<|SCbP^)tYu69.Yw%|Ael&i6n='6q]!lu4a+sE[8dfYwUG.M>V`O0:t/;pnq'AWF[K@3Ol
+[;b$.ba_i6n=<k@2Ol++$wdS6tYxNn<{eu'6Htuta+`LnXajJX2g`b%OZm#{B9VU<{JS2g
+LN3_/K%@[8.p=[4u<{m=tq!luHWa%,t/k  (6!^j/qRnMj=[sxk %Mn`]m5A`T[E@8sX=Y
+RSpg'6r~R=CAmy90Xe=HQ-aCJbf{Pe5ZJB#4A>uL$N@:m"#Z:x+/Zki-.ME2Ha0@t%hkMr
+n_#Z[93]'Ze8SIS8RTTYM9T6@66+Yxu'EOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:sX-$YxUU
+=ZRSZY.Mog.ESpZ9k,uGuef#/x, ?E'xdR6tf#/x, ?E'xdR6tYxu'EO"fG@>v*`@:m"#Z
+FtuTmk#Z[9I3@6=bJh<{i9<k\VYX`Dnx:IVE/JC:i+<kGq@6m"I@5xX jmuGuea+jD'6\X
+.MqiuSL!Jc;plb:IVE0SNkE|r}nq:IVE0SNkE|r}t7R==Y+zcKau\7fEYX`DpztgsP`Gpz
+<k\V.MqitrL!Jcf{uH,V<{JtI7jK^K&NJc;p\RYX`D)C67)oRpMj=[:;JYk`uHa+sE[8df
+Yw\.JmI7)jn__I>n*`JtI7)jn__I>n*`@:m"I@5xX jmuGue,V<{]-pkD;<{Jzf{uHa+sE
+[6dfYwUG=Zsx;pG&#}EB7PcVYw\.uH,Vh'"}0rq.oer9#ZftYwUU=ZRSpg'6r~R=U'.M$9
+ s(bhRH]Lp P9e@2Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxQQ.Mn&#Z_UJy@U@6rG=YE&u3
+a+myI@ C!mn__I>n*`@:m"I@5xX jmuGuea+`Dpz[4.pk:.Mog.Et1L!CB<{i9[47u=]A"
+'Akzoer9.E[47uP`MVB9VU<{cs'6r.!lju`W0:[6I3YwD$uRa+my90Xe=HQ-aCYws3=\uV
+k  (6!^j/qRnMj=[sxk %Mn`]m5A`T[E@8sX=YRSpg'6r~R=1omyI@ C!mn__I>n*`@:m"
+I@5xX jmuGuea+Jlk`@3=b`><{i9<kr,U%o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu L!
+JY@Utm=[BC<{P9GmYwMAGa*/+4frYXH<td.Y)8\0=%/#fGZjaXq5<GuV(}`TcmraJPMCdS
+6tv5L!7rSQZ"[6IkYwg'.Mn&.E[4c!h7EUJcu}<{iyR2\!B$Mvr8!lu4a+`Gpz[4q[_j*{
+g+EFJcJrk`.MEbog#Zt2L!pU@7S8=Z4Y<{eu'6r.R==Y+zcKau\7fE.M`XiS0>[6IkYwdD
+pk#ZtZ9.JYk`@3sX=Ysxk %Mn`]m5A`TpzRA%?B4<{eu'6HtuTa+`LnX[4IkYwUUYX`D)C
+67)oRpMj=[uVf{.J[dV).j\".Mn&#Z_UJi@U@6&{tT9.JY@U@6(-tT9.o6@66+Yxu'EOK/
++ ?E'xdR6tYxuuY#[GR}+<WF\PoX#Zt29.YwqH2%>z*`v0<k@2Ol++$wdS6tYxuunXap`L
+pz[4.p`O.Mog.Et1L!JYk`@3m"I@5xX jmuGuea+<{H"i9'6r.!lju`O0:[6I3YwUU.Mn&
+.E[47uP`MVB9VU<{Jzg\P_tYL!JY@Utm=ZBC<{en'6r.!lu4,Vh'"}0rq.oer9#Z[9m_8b
+U&m-0[uGa+`G[EuQYw\<YX 4[6d.YweW4U,3&~'OkkYwn4<k2DB*[4m_OE"iSF7C&?Jlf{
+W|6F%wA&.^7}%w[Ps01|JrQFo.!N4d, ?E'xdR6tYxu'EO"fG@>v*`@:sX90L1^{$0,%Ty
+A.<{eu'6HtuTa+`LnX[4q[_jUfl!\7fEK*QFo.!NSTHVr}t7!l=\JsBE<{eu'6HtuTa+`L
+nX[4q[_j*{g+EFJcJrk`.M4!og#Zt2L!pU@7S8=Z4Y<{JS2gLN3_/K%@[8tvWbLJi5'6r.
+!lju`O0:[6I3Ywu'EO"fG@>v*`@:sX90YlbFKy[-c[YwUU.MqitrL!Jc;poO.EtY9.LcE6
+O\O'0VN"_w7!+W27j;p1m<OnZ[1io?0Et}<^Jz"7[8q[_jUfl!\7fEK*k`Q',so1YwUU.M
+rJ#Zt29.YwqH2%>z*`v0'6kGkc9csVL!JYk`@3sX=Ysxk %Mn`]m5A`TpzRA2pr~!lu4a+
+sE[6dfYwUG.Mn&#Zt29.Yw%|Ael&i6n='6@<DiS:=Z4u<{m=sP!luHWahh<kr,!luHa+hh
+<k>8uL$N@:m"I@ C!mn__I>n*`@:sX90k&<~6jKlDG][[<.Mn&.E[4c!h7EUJcu}<{JS2g
+LN3_/K%@[8tvWb$cuHa+`G[EuQYw\<YXn"#Zt2L!JYQFo.!NSTHVr}t7!l=\irBC<{eu'6
+HtuTa+`L-wrrR=uGWa6i$s09PU5ZuM$N@:m"I@5xX jmuGuea+uDa+`G[EJFYx\<.ME2Ha
+0@_p7!+W27Gl<{R{'t7Z7S^1/n]f$Qj=Sa$,bPJf"7[8q[_j 1Mcb0.ba_i6n=<k@2Ol++
+$wdS6tYxuuY#Wwq<$&uEa+`G[EuQYw\<YXn".E[4c!h7EUJcu}<{JS2gLN3_/K%@[8tvWb
+$cuHa+`G[EuQYw\<YXn".E[47uP`MVB9VU<{Jz\q@]@6sX=YRSkB'6r~R=@B<{i2<k4.uM
+_TO,oG0Et}<^Jz"7[8q[!lJAsd!l=\Tyi~gvu59.YwuuY#Wwq<iKuHa+<{=F'Okk@R#TTH
+Gt2;=ZFobmLOZ#!e($RoNnV D_,"Vt$-+P[)%g8K:+H,td.Y[:(qJv-[965}L.-Z.3@zbP
+15@#Ih'DN4lK$x@<6+Yxu'WQrsMTZl&j0TMEVh)k=C0|qD`U`T)C@AMr=FM)\7;:67)oRp
+Mj=[,mN'hr`NpzJc@Utm=[BC%,t/k  (6!^j/qRnMj%On`]m5A`T0:7`aUtjL!s"!lju`W
+0:fae]RA;5Zq,$LQuFWaWz7?,3K6&Vb&=QI]Rw&[/vQ+rDA>D>>W0WLRrD\9E;%F5Cm^c0
+q@90>q*09]`L^Dkw15h|\ o.!N'7W{q<E'Jc!iSTHVr}t7!lAt.2_+.MBz<{m=tq!l)|67
+)oRpMj=[/P<{euYwdDsN#ZAGE\[zW;fNs4_j*{g+EFJc!iSTHVr}t7!lAt.2_+.MBz<{m=
+tq!l0c7I?&\w$[D+Hk+WpFDpZFk2K?^}KCdKG,NpCpQDBrn_mB3UbS]#8a*bt[DFj0p1m<
+21L5f#WX#.8=Eq(#XjMU'@dwIupm=R,DO-3fJz"7[8q[Q\hn)h^h;-b2]]+:N_SA0[d}h`
+g&o.!N'7W{q<E'Jc!iSTHVr}t7!lAt.2_+.MBz<{m=tq!lU(oV=Y+zYy0PNkE|r}.1cKau
+\7fE.M,D;>ij=Z4u[6.pk:.MogAI`GCm?GlC&wbdYwpB6K')Pm[g2]67I5^cF]3lr#)k8a
+ed3y%'R_E=ch)LLr"_'P?rM 47@x>W0WLRrD\9E;%F5Cm^c0q@90>q*09]`L^Dkw15h|\ 
+o.!N'7W{q<E'Jc!iSTHVr}t7!lAt.2_+.MBz<{m=tq!l)|67)oRpMj=[/P<{euYwdDsN#Z
+AGE\[zW;fNs4_j*{g+EFJc!iSTHVr}t7!lAt.2_+.MBz<{m=tq!l0c7I?&\w$[D+Hk+WpF
+DpZFk2K?^}KCdKG,NpCpQDBrn_mB3UbS]#8a*bt[DFj0p1m<21L5f#WX#.8=[G3R\ua*Sx
+hI@kse:?`}<{r5.E[4(qJv-[965}L.f#X!#PfTV"h'"}0rq.oer9#ZJP^Z.MBz<{m=tq!l
+U(o.!NSTHVr}t7!ls2'6\X.MqiuSL!i"<kJDQ|\$"bZ1&[T;Jg2gLN3_/K%@[8O1Hg`Npz
+Jc@Utm=[BC@sn6D4o2-}`XG 0&BZ=};dH"R\pd]/jZRA]c4@S;R*19^v=Z+zcKau\7fE.M
+]uYxUU=ZRSpg'6]IMUTWiUk_e'Ii%"Jxuz8moR$s?D-VA)m=N?3kKlDG`f8F_m,n@1gctu
+1|JrQFT3a5n,fvLa,.=cSQZ"*}a9!'MYr6I@5xX jmuGuea+PHs:!lon#Z_UJy@UrxR=@.
+6B(?Aqo@8BD\#y7/jVKsDG`f8FnDaz=E`28c[67uP`MVB9VU<{qAeh=Z4u[6.pk:.MogEs
+.m[:(qJv-[965}L.\A3p(\.\Hk+W:Pk[T4[<Q4[&8h($GNuu$N@:m"-$[H3RG;V;N.RSH!
+fC^*OD0l=n5|L<"/$|n7raKq9i_FtYu6L!*[p?#ZiG'6Htuta+o[.EZ72m'-MltXk %Mn`
+]m5A`T0:ljuNa+t[L!pU@;S8N['Skk02=nQ("B$?)y/!r,fVWL=Ls%_j*{g+EFJcJr@Uc?
+tgL!s"!lju`W0:_z=[f3YX`DCIuEVO.b!b$-dzoEBRZRlxN?3kKlDG`f8FJr2gLN3_/K%@
+[8O1Hg`NpzJc@Utm=[BC`G)C67)oRpMj=[eF=[4u[6.pk:.MOG=Z?Dn".c\$o.!NSTHVr}
+t7!lt[!lon#Z_UJy@U!w@{#7X%BG/B#iLroJgvu59.DB"4Up8{&=PZ@XD]${M:d?*2N!&[
+2vBZoOL\=[+zcKau\7fE.Mskm~YwUU=ZRSpg'6GsYw%|Ael&i6n='6ok'6\X.MqiuSL!e^
+raKq9i_FtYu6L!uTL!s"!lju`W0:tW9.nEoHPZ`L)C67)oRpMj=[uV=[4u[6.pk:.MD\Gh
+%F NN!)>Ene5hhcdkh=[@>1dum;7RLK{"&h3VwIT?wA8"(9USQZ"^A#ab5F5"L[9V0<{JS
+fstT6i=F#E(:>*O6o}IJNk(A0 AZ[]LZ=[+zcKau\7fE.Mskm~YwUU=ZRSpg'6bnYweW!"
+R~'Okk]/l:\H[67uP`MVB9VU<{qAeh=Z4u[6.pk:.MD\CH$*SHRbG\AC/f@sL'Q|)zLr@E
+[]+y$e(^3s>"au_T-}Aup{bWh\iUA%RMA8` "P`Wv(WQrsMTZl&j0T^V%aTQ.LPvIE9^`B
+Y1sVCzue,V21L5f#WX#.8=Eq3At8_e9cV:h'"}0rq.oer9#ZJP^Z.MBz<{m=tq!l[nYXth
+&Hb\,,?*6MBD?R$z._[$&H=&s%_j*{g+EFJcJr@Uc?tgL!s"!lju`W0:*%uqu_Q\hn)h^h
+;-b2]].udn2j<y+WrkS=JN<-pwgvu59.DB"4Up8{&=PZkcMcNSsl_e9cV:h'"}0rq.oer9
+#ZJP^Z.MBz<{m=tq!l[nYXth&Hb\,,?*6MBDj][F0XRE=QN?.R#lEuDf'9A,l#U<&)A3s&
+_j*{g+EFJcJr@Uc?tgL!s"!lju`W0:*%uqu_Q\hn)h^h;-b2uu&*n@Q;5J?O(8m N?^v[&
+8h($L!Yxn4<k@21dum;7RLK{"&-LPb=EZ,KjL)SKP4b+f`v5h'"}.N9alCj/uG#S0rq.oe
+r9#Zqg#ZiG'6Htuta+my3th'"}.N9alCj/uG#S0rq.oer9#ZtBL!s"!lju`W0:I$KC@31v
+Znq<#K3tv5EOK/+ ?E'xdR6t"gG@>v*`@:=b@9sX`L[EJFYx\<5xX jmuGuea+r$!lon#Z
+_UJy@UGmYw%|<|SCbP^)tY'(Ael&i6n='6rN!lon#Z_UJy@U,"cKau\7fE.MF^YwUU=ZRS
+pg'6bn  u|o.!N'7W{q<E'JcJrrG@wr(U%.MVK?M8)"lt/k  (6!^j/qRnMj=[JsBEKr9i
+_FtYu6L!r1!lon#Z_UJy@U"(uEWa]xN6#gEuaZ^{7c%wA&.^s98KV^8c`VS}1,+)A-"`#y
+AC?9^j@=e*(U%T[a/.&FGX[6V0<{JS2g`bfDSDbP^)tYu69.v4k  (6qA('Akzoer9.E[4
+c!h7EUJcu}<{n^'6r.R==Y+zYy0PNkE|r}.1cKau\7fE.Md<.MBz<{m=tq!lU(oV.Et1L!
+Jc@UoO.Et19.Yw%|<|SCbP^)tY'(Ael&i6n='6rN!lon#Z_UJy@Ur(uEWa`LCm?GlC&wrt
+_j 1Mcb0.ba_i6n=<k@2OlZ9k,uGueYxg'.Mn&.E[47u=]A"'Akzoe<CP`MVB9VU<{RB<{
+euYwdDsN#Z3yLN3_/K%@[8.p`GpzJc@Utm=[BC`LnX[4dfYw!!`LnX[4q[_j 1L"G??d/G
+%@+ g+EFJcJrk`@4sX`L[EJFYx\<5xX jmuGuea+r$!lon#Z_UJy@UrxR=p"I@ C%1N+=F
+M)\7fEYX`D)C>=`#tYu6=\Wx<{euRA@J'Aa0hh[4dfYw!!`LnX[4q[_j/XC:&lGBr}t7C?
+Q=o.!NSTHVr}t7!ln-#ZiG'6Htuta+EQJSQFo.!N'7W{q<E'Jc!iSTHVr}t7!lu<a+t[L!
+pU@;S84QJ6<{6`^{P2%Y`6o.!N'7W{q<E'Jc!iSTHVr}t7!lu<a+t[L!pU@;S8# 0rq.oe
+r9#ZTj.MBz<{m=tq!l[nYX;oJs;pkQ.Et19.Yw%|<|SCbP^)tYu6f{MLe^ruWbgM.c8V@a
+h'"}.N9alCj/uGuenXapmyoV.EtY9."Q`Wqg.A:3>,.%P!h|#7BQB_,d[{aqdVX1(XI37t
+d>\Aa*SxhI@kseY>dD<(N~!'JO3OJ@Q|\$"bZ1&[T;q.ehM:V7eH4U$0h`fpbMQ5M2C3aC
+'^-9p2NP/fQD?],lo1'OF#DjEoBS` "P`WiwpT&H&7# IG9^`B'/HtSJQy8 1a&FGXt`-c
+Ar%Fa/,q,N& N*i"^cG F\BR[c\E/haAb[i}<{jDqC@`#eDJKBb+e?:.[\R6pd<(d{&R>,
+hs=ZFobmLO9b1ZY|uPT+pT&H&7# "4+WpFckE[&7'Pkkdl/ge?\OL>6\:+e8 NeGW|upf{
+Rn"S&G0;_+9Yh,a.,q,N& L(R/19^vHq[:cib]VZ3WW9S4Z";Vu3Yx`T\=@3DiS:@A]xN6
+#gEu0^s0r0]S9Yh,UBRE1TNQT!Gt%F/]jPJhKAb+/IbZVZ3W?!U%O!DaHBnSA6ceYw`T\=
+W|s*Wb"Oj]p1jY]3:+RqsSQF_![&8h($L!b}J0 k=YNWC@,lo1s+;Hce*l3orM#0@0-r)?
+(Y7RI =+f4-YCYi?5Z^VG?`[S}1,+)A-M.'tN>^v\u+4WMrDDaR|D]/Q#nuPCMdRLDN>N7
+L2_4=\i\X09Htt8b)z`mA%P-DV'fPu LOqOGVs4O.UC*&l1loj*l?;^j@=e*(U%T[aaa#y
+7/jViCEYK4.M[dL'R/19^vHq[:]#:+RqsSQF3uKEb+*$ej`_t>0Kt/f{LB 9J@Q|\$"b'n
+E85DD3`kA%mj>76/VIX0B[ 7mng)p]#j7/jViCEYK4.M[dL'R/oZg3.e[$&Hr{Wb$c/B_e
+@6DiS:s@j+dCX3E"rjS=JN.?D|k%f,W/T4I,8F-}.~aAOdavk_hG[5m_OE"iSFC5=c_vam
+3O(#1=q=90%*,A_@&NJc<Q9_n/k%[A.M4IQEpt9{< %!JxEJHk+WpF.h&27Vk`Q',so1_g
+@3u:S@u2Y#GHNk;b(0)dG!KsKT LZ\Z'WzuuKAb+e?m 90)H3y<{6`^{P2%YnTkh=[2PS5
+?Pr&hg@kse:?`}+x(X7Ru|q:ehp!VqQ5jsbcAv@7sVm~DBLxF2AN0MsX%|[nG2JM3O+/27
+/,_e?5)zeF5[BjM%pPm(PbEW8bZy!NAGnE5Qch<DY)H:F6VE/h+EJcP]7#JO.{:R? ie3k
+#OEcBF'spMs3qhP//x8$VX5='sNQ+X?vQR0(!kHGI53t%Wt9_ ;3&Ru6Id4Bc0p[D<N+O~
+owoWN+ Mtc:vaO$%p VqQ5Z_+6\=e^_`fTNR&~"H6mk}U<&)QCjh2=UAJ=23cF\H8cZ@QI
+?]`KS}1,+)A-V`@Yc`4pqx/C_e#iIp9FHBuBCMdRLDN>N7L2,!h[Snh?ce42_e)yMv=?R$
+ZkW{0p\N1ABzn_NCL]cc4x&MU*oX9vo;EsDCEJD't1!ghd"'rnS=JN.?D|ZFk2K?^}KC#7
+H^tbkGT*[^EfEcepsd2r<{6`^{P2%Y28c?6iKm#gEu#9Yx^RlQaBh,>W#r7/jV;eJJA>>5
+fK,YkP/f&l1lV{N9G1jb$B!X9A7GO#h)#0^4rJ?yAyRW(<jVOaL2,!WJ1~f_'em(QYfpUK
+C?N}FU8lYxMAGa*/+4.Z#l-5dv_%76&(96uGf{Rn"S&G5H?O(8ReTYM9T6p8h'2Fh>EX`j
+?N5a![4?JAEce0hy(D!/u1hC+~3Qtz2r<{6`^{P2%Y28c?6iKm#gEu#9Yx^RlQaBh,>W#r
+7/jV;eJJA>RI!u&ZBKj]+ZN/,ZunCMdRLDN>*c/gO7dM:<6\:+15&Be%[k$ PUE~ATe}[4
+(zhRH]LpjZp1m<qPJQq^.h&27Vk`sr`C8^:WG!\n@31vZnq<#K3te)6iCA6}p[=Y$MoD4>
+6HP(meIq7%mz90Xe=HQ-aC=5'Okkb`G+j[&d8A.br{90>q*09]uaGgA"T NwB[do9[dE:<
+6\:+[69"jD`OI `Nut_'Jis*Wb@r5_6]^{P2%YX~W;G *2MZo7u2Y#GHNk;b=eba7}G#Cg
+`GCm?GlC&w,n*'uqd>"=/$'99>1YoC0Et}<^iy*2N!W,L9'QNg,^(lt.f{MLe^RA* GsYw
+J^.~t/f{.J[dV).j0v3In"!Q s y?#V1m?90>q*09]\(B$Mv9dLm+ob,==O{+o@j/JVw>Y
+q49{-YF('6SDNV+XLC@;K$L/0[kX.h&27Vk`Q',so1JrL/0[kX=YJsBE`GiS0>T7I,8F-}
+.~aAroWb/H%(,n=SM~W@X0E=H!@q?cNBpkG9hCcsS b+==p<9005Nk@W.nQ8.MEbog90% 
+QW%#JxEJ+jIG9^`B'/s/l1cM*l&B;GG(e8cqu;CMdRLDN>WLttjL@R#TTHGt?cNB78p4+`
+&H[dluEsDCuz8moR$s?D-VA)$T7<3XZfAylRJu_n,n@1#W[9(qJv-[965}L.-Z.3@zbP15
+@#9X0y')j`6i%w[P\y@31vZnq<#KABWz7?,3K6&Vb&=QI]Rw&[/vQ+rDA>D>>W0WLRrD\9
+E;%F5Cm^c0q@90>q*09]`L^Dkw15h|0tOALtH5^Gtc,]7;$uQ8Xip 'OF#g42PZ6lyN?^v
+]0].J( soM!#/-f=.wY/9&U7W|Rin9'Kgb,RJkok[FE~^%RQhg$H5KQx,Z*~a2@-V^)k=C
+0|qD`U?vQR0(!khg$H5KQx,Z*~a2@-V^)k=C0|qD`U,@;>ij3P(L#T:Ut/;pnq'AWF0@_u
+8BVjQ4Gl-*Mu[$s;/Y-8?m, nSiD8$VR&?ZUHlaq[O+*A:D>E{"R.uo:bf;+`2h3/IaA-J
+_YspuZCMdRLDN>heRvTYM9T67_%w[P/ls85BLb-al&0x')* VoZ]iVMH]04E%kH32Hh>EX
+`j?N`lm@3UbS]#8a\TrJF`TuA9i\,@PLJ=23p3s3qhT3a5n,fvLa,.hnTsiUk_e'o?0Et}
+<^JzfstT6i=F#E(:Jv0~<)N~!'JO^Zi|t`-cAr%F>,-82@l'U<$?69?&=x9`uVUBJ=23cF
+Q;]O\/J.Z1oTYw^RlQaBW{Swh)]jnEL<9l'"VrKDjYp1m<21L5f#WX#.8=[G0l=n5|L<"/
+$|ZcaXq5<GuV8moR$s?D-VA)m=N?3kKlDG`f8Fq9ehp!9d'oPSF2#`S<GtS4Z"8SL<"/$|
+'PI&nFfp.eaj4C4+uMu*-$[H3RG;V;N.RSH!fC^*OD0l=n5|L<"/$|ZcaXq5<GuV8moR$s
+?D-VA)B2?U1XE(+p9hh,%N@\ S6lNPHgDRpFSNt~Q456jHcW L/Q&FGX#&[I 9+FVo%,?B
+t=,Zs`m~v$X-T3a5n,fvLa,.=cio6kk~1'c5A%!^$e(^3sV:PHH/B4r=Gc8=oeoQfV1U'Z
+e8SIS8p2h'@41dum;7RLK{"&BMGb19=9qW7/U!a!23@C,3sgm~\*@'7M?nL#tXa/ N/Q&F
+GX#&[I 9+F*#uqu_Q\hn)h^h;-b2dD@zD8hw=HbnIi*3N!,!?vQR0(!khg$H5KQx,Z*~a2
+GYnF*Dh^SH QQP,so1-Ulj[t@yoOcU*l\8:PD`aw4CRI(\<B6Bh3NH?Pd{Dt/PblSA'IN>
+^v!RhoK7PmfR=>a_;//Ah`g)1<&Sp!?i Q^}j-dCDC"4Up8{&=PZkcFbr:I6SHFN'DN4Vu
+pz:)@ZG&nV6@&'TW$o`1[$&H-Vlj[tO,n7!#/!?M#$e8>,b)WLNe,58cJM^Za<[8`\CIuE
+VO.b!b$-IWVnOGg6bMQ5[&8h($L!DC"4Up8{&=PZkcMcNSsl_e9cV:PHc*0&V<$/\$G_,1
+2>_zNn138c'68KQG 6-.-'[fGkJM3O+/27s`m~"P`Wv(WQrsMTZl&j0T5ML]^bAs%B'sbf
+Hl+WpF.h&27Vk`T3a5n,fvLa,.sYPw7'QHuAoPb$,D9hh,uf=\3Q%.r"WbgM.c8V@aJqm2
+,H YTTK*rG@wn$=Y$MoD4>6He]RA2pr~K.k8,N/!aA#hoF(Z7`N"Z[jB+ZN/,ZunCMdRLD
+N>*c/gO7Fon_K!1fB962b:\Z9Yh,Jwm7RUrE=Y$MoD4>6HXpFXF^l~r>R]N1:^T2QE_^8]
+tCYwMAGa*/+4J6FOR6#M7{@2u:S@t1;pnq'AWF[K.MEbogfma<[8Z/]<J@O m3tj')q?.h
+&2ba)rp(?*."jaXoN~+69dreNP>K?O=xep.%`@0^'gbB%uC2AwP[M9@aLL#qLBEn%Fo}?*
+^RpH<GbZ&w?pQHBO%F#1N$0^^va<[8bT&J?ZL{l53*r'R_*d)zr><[SIA-oF0Et}i+Azct
+Gk?vQR0(DrU`tu:%Zzo<]0C 4!Je5F`ybT&JZU.~e+#}27a.5Cm^c0q@90>q*09]`L^Dkw
+15h|]1].J( soM!# N$.q4BR]Fcc(4"$n6@Vt{O'[$W|BY,rh{'TSA.W\f+tAGnEek`9T4
+Ab@J@pW{5Z,d+cb\o/SI>\LL#~Z-QIL._4j-.M?v#w?vQR0(n|TPrWA((/5R?4fU?$L{l5
+cZ,z?v#w?vQR0(DrU`tu:%Zzo<]0C 4!Je5F`yoA^c'7bT>2VEX0hm-J_YspuZCMdRLDN>
+heRvTYM9T62Hh>EX`j?N`l5Z@q*./)'`SW6W 8jKoQVRh3NHT_nE8z]i?K(\DNq+/rPvT6
+T: }j.S>bN&xY|\7BSGWH,tdD/m"_%.LYyKK+ 19h|oC\1R`@ ?v)@Yb2V@-Vr_8)AD-r_
+R_U+V#)6!@8U:+"O<GTt<fIa]@qph3CY)0#SITm(qe0&fTG#'DN4Vupzgvu59.Yw]]F5m^
+@3sX.EZ7Je"7[8q[!l=\ira\G15}L<jw`VcLYwuuWa6i$s09PU5Za9,UA-EqUZWLHYchOi
+O'q7Es.mtc'i(urjS=JN.?`XL6=[sxk e}q+i6n=`_Eoc^&IGX<{eu'6t@!lu4,Vh'sn)"
+/M%@v3#Ztb'i(u[3IkYwUU.Mn&.E[47uP`MVB9VU<{JzrG@w@6sX=YRSkB'6r~R=@B<{en
+'6r~!l@C<{Bks01|JrQFo.!N'7W{q<E'JcJrk`.MK`;CAm<{eu<k@2Ol++$wdS6tYxuunX
+ap`Lpz[4.p`O.Mog.EtY9.MT)g@R*tK6D4lKe')FNS&WL/s~M9 kRF'{\ZYXt5R==Y+zcK
+au\7fE.M`Xt>0K[6IkYwdDpk#ZtZ9.[*<{r5.E[4c!h7EUJcu}<{iy_ss`L!JY@U@:sX=Y
+sxk e}q+i6n=`_Eo(#C:`z'6r.!lu4a+`GcmraKq9i_FtYu6L!uRa+`G[EJFYx\<YX 4[6
+I3Yw\<.M 8[63]]hYXt5R==Yl[D+]u5Av*.M`XCm;;(<Jck`@3sX@>sX=Ysxk %Mn`]m5A
+`T[E@7sX=YRSpg'6r~R=@B<{mvUE&)#O#gEuM&,E0aWD,7s#1|JrQFo.u"&;^{d|i6n=`_
+cmraKq9i_FtYu6L!uRa+`G[EJFYx\<YXn"#Z[9DzYxqe9)`r1\/ @?ez'6kWE-qh&3-~p,
+`SS?f(c`-})irrR=%#JxEJlK9{f)IF9^`B'/@<6+Yxu'a+@-Vr!*uOa+<{Bks01|JrQF.M
+`XCm;;(<G@<{Jzf{VOMTS7cE*l\8i.C#@-VrJC7:F7AC.^onCzue,Vh'"}.N9alCj/uGue
+,Vh'"}0rq.oer9#Z[9(z&n7\@6sX=YRSkB'6r~R=u3,Vh'"}0rq.oer9#ZpF#Zt2L!pU@7
+S8=ZB'<{Hr,TkTSxX =[m6R3KOC:i+raKq9i_FtYu6L!JUk`@3=b`><{i9Yw%|rrP G??d
+/G%@[8q[_j*{g+EFJcJrk`.MK`;CAm<{eu'6HtuTa+`LnX[4q[_j*{g+EFJcJrk``Fpz[4
+.p`O.Mog.EtYk  (6qA('Akzoer9.E[47uP`MVB9VU<{Jzg\VV0XuGa+`G[EuQYw\<YXn"
+.E[47uP`MVB9VU<{Ue.Mn&#Z_UJi@U@6R'=Z+zoO)jn__I>n*`@:m"I@5xX jmuGuea+<{
+!+Vgc[YwUU.MqitrL!Jcf{@3m"I@5xX jmuGuea+Jdk`@3=bJh<{i9<kr|_j 1Mcb0.ba_
+i6n=<k@2Ol++$wdS6tYxuuY#6wA2tXL!JY@Utm=ZBC<{en<k@2Ol++$wdS6tYxs3YwUU.M
+qitrL!Jc;p@6rGEs.mtc'iube9=R,DO-a+<{r5.E[4j,b`SxCb@3sX.EZ7Je"7[8q[!l=\
+ira\G15}L<jw/%.h[\%@T?.M`XnXfB6i9[Ab%F)w)/&LF0j[3O3>19^v=Zf3YX`D)C>=`#
+tYu6=\sxk Rv1\NQ^ktYu6L!u4a+`G[E@6sX'cN8q.]rl{@]tX9.JY@UJSk`@3m"I@58al
+B9VUv5,Vh'"}0rq.oer9#Zr0!lu4a+sE[6dfYwUGYX`D)C67)oRpMj=[JK=\4u<{m=sP!l
+uHWa`Gcmra f#[g)H]]^5A`TcmraKq9i_FtYu6L!Yx"679Q"=Z4u<{m=sP!luHWa`Gcmra
+Kq9i_FtYu6L!tiL!JY@Utm=ZBC<{i2<kK5=Z4Y<{Wg<{ P@6rGEs.mtc'iubph.h&27Vk`
+YXt5R==YE&lKe'sr=ZuV9.o6@66+Yxu'a+<{s-[Q)k%O@\]pNs97oWb sO!l=\TyI,8F-}
+.~aAavam6B/TTJBi"G"/]hYXt5R==Yl[D+]u5Av*YX`DTNFbBS[c]f5A`Tpz@3sX=Yh)Yw
+UU6Q[``#s1_PO2`LnX[4.p[4IkYwu'EOB~s`oer9@?m"I@5xX jmuGuea+JYk`@3=bJh<{
+i9<kr,R==Y+zcKau\7fE.MJB<{eu'6HtuTa+`LnX[4q[_j 1L"G??d/G%@[8q[_j*{g+EF
+JcJrk`.MK`;CAm<{eu'6HtuTa+`LnX[4q[_j*{g+EFJcJr@UJgk`@3=bJh<{i9<kr|R=@B
+<{en'6nZ'6K7=Z_dj-dC`;7OK~[&8h($L!Yxn4<k@2OlZ9k,uGueYx]]4E%ks>!lu4a+`T
+pz[4q[_jUfl!\7fEK*k`0&fTk_#Zt2L!JYk`@3m"I@5xX jmuGuea+<{kEi9'6r.!lju`O
+0:[6I3YwUU.Mn&.E[47uP`MVB9VU<{Jz\q@]@6sX=YRSkB'6r~R=@B<{en'6r~!l@C<{Bk
+s01|JrQFo.!N'7W{q<E'JcJrk`.MV+.j\".Mn&.E[4c!h7EUJcu}<{JS2gLN3_/K%@[8tv
+Wb$cuHa+`G[EuQYw\<YXn"#Zt2L!JYQFo.!NSTHVr}t7!l=\irBC<{eu'6HtuTa+`L-wrr
+R=uGWa6i$s09PU5ZJB7:F7AC.^e$';aF0Q^v=Zf3YX`D)C@An=9alCj/uGueY#m-0[U'YX
+`D)C>=`#tYu6=\sxk %Mn`]m5A`TpzRA2pr~!lu4a+sE[6dfYwUGYX`D)C67)oRpMj=[uV
+f{LBJck`@3=bJh<{i9<kK5=ZB'Jt2gmFe'A1E8JcJrQFo.!NSTHVr}t7!lu,a+`G[EJFYx
+\<YXn".E[47uP`MVB9VU<{]-.Mn&#Z_UJi@U@6rG'cN8q.]rl{@]Vzh'"}II8 ^j/qRnMj
+=[sxk %Mn`]m5A`TpzRA5o-a\".Mn&#Z_UJi@U@6rG=Ysxk %Mn`]m5A`TpzRA2pr~!lu4
+a+sE[6dfYw\.uHEOK/VS0SNkE|r}t7R==Y+zcKau\7fE.M`XCm;;(<Jck`@3=bJh<{i9<k
+r,R==Y+zcKau\7fE.M`XiS0>[6IkYwdDpk#ZtZ9.i"<k4.uM?4%%_5#ab5;JsXCzue,VHJ
+)y[87u=]A"'Akzoer9.E[47uP`MVB9VU<{bReu'6r.!lju`W0:[6I3[Y@31vZnq<#K3th'
+"}.N9alCj/uGue,Vh'"}0rq.oer9#Z(>t2L!JY@Utm=[BC<{en<k@2Ol++$wdS6tYxX8.M
+n&#Z_UJy@U@6R'uFWaMxOf#gEu/Pb<B[ 7mniB@W@si?J?O -3"(A8ceYwn4<k@2Ol[;b$
+.ba_i6n=<k@2Ol++$wdS6tYxNnUV.Mn&#Z_UJy@U@6rG@|`GCm?GlC&wGiYw%|<|SCbP^)
+tYu69.Yw%|Ael&i6n='60\r.!lu4a+sE[8dfYwUGYX`D)C67)oRpMj=[:;<{eu'6Htuta+
+`L-w[6I3^%RQJAO Jp")qhrkS=JN.?`XL6=[CHlKe'P/Z[6rYx%|<|SCbP^)tYu69.Yw%|
+Ael&i6n='60\r.!lu4a+sE[8dfYwUGoV=Y$MoD4>6He]ra f#[g)H]]^5A`TcmraKq9i_F
+tYu6L!M2JYk`@3=b`><{i9<kr,R==Y+zcKau\7fE.Mnf#Zt2L!pU@;S8=ZB'`LnXfB6i9[
+Abr#ok[F0Ioj'3L>!'92N(QH)uN'C:pRs3qh323>19^v[&8h($L!Yxn4<k*\.UC*=ct;R=
+=Y+zcKau\7fE.M.&b,.Mn&#Z_UJy@U@6R'uf,Vv5EO"fG@>v*`@:hm[6IkYwdDsN#ZtZ9.
+JYQFo.!NSTHVr}t7!lu L!JY@Utm=[BCJJ;p@6G<'fPu LeG\OL>L2>sh> MeGT:# oSp*
+Czue,V<{#3dZ=[FobmLO$-f9TQ[4tvR=>,-8i719^v&+D&b8IiM: kuI$N@:m"I@5xX jm
+uGuea+;DuYa+`G[EJFYx\<YXsG@:6+Yxu'>66/a4f`YX`D)C67)oRpMj=[:;+\=[4u<{m=
+tq!luHWar>@?Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxII<{eu'6Htuta+`LnXazJX2g`b%O
+Zm#{B9VU<{JS2gLN3_/K%@[8.p=[4u<{m=tq!luHWa%,Ehv4k  (6!^j/qRnMj=[sxk %M
+n`]m5A`T[E@7sX=YRSpg'6r~R=CAmyI@ C!mn__I>n*`@:m"I@5xX jmuGuea+Jlk`@3=b
+`><{i9<kW1 Q`LnX/M+U yTXBi"G"/]hZF {j.gvu59.Ywii%yhptiL!YxP"OGVsjua$@W
+A,GmE6@o-oSTD)b?)."/]h6>e1(:[+E~K4@66+Yxu'EO"fG@>v*`@:2wNS@8sX=YRSpg'6
+r~R=?}Yxn4<k*\.UC*=ct;R==Y+zcKau\7fE.M.&b,.Mn&#Z_UJy@U@6rG=YJsBEr>@?Ol
+[;b$.ba_i6n=<k@2Ol++$wdS6tYxII<{eu'6Htuta+`LnXazJX2g`b%OZm#{B9VU<{JS2g
+LN3_/K%@[8.p=[4u<{m=tq!luHWa%,Ehv4k  (6!^j/qRnMj=[sxk %Mn`]m5A`T[E@7sX
+=YRSpg'6r~R=CAmyI@ C!mn__I>n*`@:m"I@5xX jmuGuea+Jlk`@3=b`><{i9<kW1 Q`L
+nX/M+U yTXBi"G"/]hZF {j.gvu59.Ywii%yhptiL!Yx:L1ZY|u`Czue,V<{l\,SI_N9L2
+tiL!Yx/ao:/SC>=c7NA#R_KCe49I\\YXt5R==Y+zcKau\7fE.M.&b,.Mn&#Z_UJy@U@6G<
+n_RG'{\Z.MEbogEsDCm:M&A/:+<)q#.h&27Vk`YXt5R='kNH27:/6?v0ra f#[g)H]]^5A
+`TcmraKq9i_FtYu6L!`)`Ipz[4.pk:.Mog.Efce]ra f#[g)H]]^5A`TcmraKq9i_FtYu6
+L!uRa+`G[EJFYx\<YX8,3vh'"}.N9alCj/uGue,Vh'"}0rq.oer9#Zsi!lu4a+sE[8dfYw
+*<o\=Y$MoD4>6HKCv)ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!`)`Ipz[4.pk:.Mog.EI&
+e]ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!uRa+`G[EJFYx\<YXn"3th'"}.N9alCj/uGue
+,Vh'"}0rq.oer9#Zsi!lu4a+sE[8dfYwUGoV=Y$MoD4>6HKCs&/Tu/(Ed@r9I@ C!mn__I
+>n*`@:m"I@5xX jmuGuea+ac`Gpz[4.pk:.Mog.EI&e]RA;5Zq,$LQu2EOK/+ ?E'xdR6t
+Yxu'EO"fG@>v*`@:=bs_=Y4u<{m=tq!luHWa`GcmraKq9i_FtYu6L!J]k`@3=b`><{i9<k
+blJbf{^w=Zf3YX`D)C>=`#tYu6=\uVf{a7L8X44#/KC:2P[A.Mn&.E[4c!h7EUJcu}<{JS
+2gLN3_/K%@[8DF`Xpz[4.pk:.Mog.Et1L!Jsk`@3m"I@58alB9VUv5,Vh'"}.N9alCj/uG
+ue,Vh'"}0rq.oer9#ZsI!lu4a+sE[8dfYwUGYX`D)C67)oRpMj=[h)YwUU.MqitrL!Jc;p
+@6rG=Y4u<{eu<k@2Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxNn<{eu'6Htuta+`LnX[4q[_j
+*{g+EFJcJr@U`Mpz[4.p`O.Mog.EtY9.JYk`@3sX=YuV;pnq'AWF[K.M 8[6I3Yw\<.Mn&
+#Zt2L!JYQFo.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!l$/u4a+`G[EJFYx\<YXn".E[47uP`
+MVB9VU<{Ue.Mn&#Z_UJi@U@6R'=Z4Y<{eu'6r.!l=\$MoD4>6HJbk`@3sX=Y4u<{JS2g`b
+%OZm#{B9VU<{JS2gLN3_/K%@[8.pIoYwUU.MqiuSL!Jcf{@3m"I@5xX jmuGuea+`Ipz[4
+.pk:.Mog.EtY9.JYk`@3sX=Ysxk %Mn`]m5A`T[Euva+`G[EJFYx\<YXn"#Zu;L!JYQFo.
+u"$PRqMjv4R==Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.Mk#'6r.!lju`W0:[6I3Ywu'EO"f
+G@>v*`@:sX[4IkYwdDpk#ZtZ9.Jcf{@3sX=Y4u<{JS2g`b%OZm#{B9VU<{JS2gLN3_/K%@
+[8.p=[4u<{m=tq!luHWa`GcmraKq9i_FtYu6L!u4a+`G[EuQYw\<YXoc.Et1L!JYk`@3sX
+90Xe=HQ-aCYw!!`LnX[4dfYw!!`LnX[4tvWb.l6UFG`3q.?5H|(CJb@UoO.E)fG!KsKTF2
+Tr$!(^T:if^5FnAC.^Pv,8_e^*Ld[+KTM.SDl2,A8#@66+Yxu',Vh'"}0rq.oer9#Z[9V0
+<{JS2g=[G0W{q<E'JcJr&;uX9.s"R=qmR=uGWa<{eu'6Htuta+`LY#`D)C@AMr=FM)\7fE
+YX`D)C67)oRpMj=[rsYwUU.MqiuSL!Jcf{ORu2EOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:=b
+[7IkYwdDsN#ZtZ9.1`r(WbgM.c8V@augWa9do~Czue,V<{JS2gLN3_/K%@[8DF`Xpz[4.p
+k:.Mog.Em"I@ C!mn__I>n*`@:m"I@5xX jmuGuea+Jhk`@3=b`><{i9<kr,U%o.!N'7W{
+q<E'JcJrQFo.!NSTHVr}t7!lu L!JY@Utm=[BC<{enGjYwMAGa*/+4frYX1EU"&)2A<y`2
+[Fh3ijO1BK+qk0uI$N@:m"I@ C!mn__I>n*`@:m"I@5xX jmuGuea+k/@4sX=YRSpg'6r~
+R=u3,Vh'"}0rq.oer9#Zp..Mn&#Z_UJy@U@6R'=Z4Y[6V0<{JSk`J`1fB962b:>BSD@B`Q
+pz<kuO$N@:m"I@ C!mn__I>n*`@:m"I@5xX jmuGuea+Jhk`@3=b`><{i9<kr,R==Y+zcK
+au\7fE.M]uYxUU.MqiuSL!Jc;p@6rGA-+/[6V0<{JS2g`b%OZm#{B9VU<{JS2gLN3_/K%@
+[8.p=[4u<{m=tq!luHWa`GcmraKq9i_FtYu6L!tc#Zt2L!pU@;S8=ZB'<{enRA;5Zq,$LQ
+%"JxejG,NpCpQDM=qOg)hS@kseY>uu$N@:,Af=.wY/9&(jc=9dfUYX`D)C67)oRpMj=[bc
+4C@7sX=YRSpg'6r~R=uGWaJMb^'{/([W0&fTplkc4~dKG,NpCpQDBrn_mB3UbS]#8a*bt[
+DFdj+5C*PVWL=Zf3YX`D)C67)oRpMj=[bc4C@7sX=YRSpg'6r~R=%#Jx'l.fh1Un_n,n@1
+gctu1|Jr&;_@Asu2rKI@5xX jmuGuea+Jhk`@3=b`><{i9[47uP`MVB9VU<{bR.Mn&#Z_U
+Jy@UrxR=$r3Pa%5i 6s41|JrQF.MUM-r78t}f{Rn"S&Gh3ijO1BK`Fpz<k]7F5m^_GAss0
+1|JrQFo.!NSTHVr}t7!luXL!JY@Utm=[BCu'EO"fG@>v*`@:hm[6IkYwdDsN#Z3yh'"}0r
+q.oer9#Zsi!lu4a+sE[8dfu99.ah E71%p sF2<{r5.E[47uP`MVB9VU<{_o.Mn&#Z_UJy
+@U@6rGA-+/[6V0<{JS2gLN3_/K%@[8.p=[4u<{m=tq!luHWaNu[$:;*./)'`D@[K0[6As9
+@:6+Yx"tRNo3f"`T)C67)oRpMj=[rsYwUU.MqiuSL!e^raKq9i_FtYu6L!uZa+`G[EJFYx
+\<@3Ol++$wdS6tYxuuCM72N_+b[6IkYwdDsN#ZAG<{mvUE&)#O#gEu?c\%1?&B$DGiBGcL
+`LL6=[sxk %Mn`]m5A`TpzRA:0Xl.fuGa+`G[EJFYx\<YXsG@:6+Yx"tRNo3f"`T)C67)o
+RpMj=[rsYwUU.MqiuSL!e^raKq9i_FtYu6L!uZa+`G[EJFYx\<@3Ol++$wdS6tYxuuCM72
+N_+b[6IkYwdDsN#Z3y<{6`^{P2%YrxR=$r3Pa%5i 67xRNo3ag ElF[&;-<(]i;IoPp8s3
+F]_@Asu2o@0Et}X:kYYXt5R=kS,Amxf5o.!NSTHVr}t7!ltoL!JY@Utm=[BC`G)C67)oRp
+Mj=['HYxUU.MqiuSL!i"<k3Mn"!Q s yj.gvu59.Yw--2n&lq690>q*09]>*DK0;SYu.a+
+<{hQb`Sxq4Q;i~gvu59.Yw%|Ael&i6n='6m9'6r.!lju`W0:m I@5xX jmuGuea+Jhk`@3
+=b`><{i9[47uP`MVB9VU<{bR.Mn&#Z_UJy@UnT<k(b#1,|Nh&~Nn[6V0<{JS2gLN3_/K%@
+[8oQ=Z4u<{m=tq!luHWa&M#&Jc"7[8q[_j*{g+EFJcJr@U`Qpz[4.pk:.Mog.E>;I5Erq3
+BR]F@ LONk&?^Pul$N@:7,Zz>"JqueEO"fG@>v*`@:hm[6IkYwdDsN#Z3yh'"}0rq.oer9
+#Zsi!lu4a+sE[8dfJX2gLN3_/K%@[8tvWb&S.3Nl`Lpz[4.pk:.MOG=ZTyI,8F-}.~aAHY
+che?9I1QhpSH+0uH$N@:m"I@5xX jmuGuea+<{2LVgZ|rz!lu4a+sE[8dfYwj|Ju"7[8+U
+=MZ,5HJr2gLN3_/K%@[8oQ=Z4u<{m=tq!lU(o.!NSTHVr}t7!lu L!JY@Utm=[BC`G)C67
+)oRpMj=[uVf{ND')7F@6sX=YRSpg'6GsYwMAGa*/+4o[.E)fG!KsKT LOq.fh1M: kbV?v
+V;X0E=Vshjj;p1m<M&A/:+<)q#eL" $??vQR0(!k=\f3YX^B:J[gDm&0cA`9T4r3I@ C!m
+n__I>n*`@:m"I@5xX jmuGuea+]V8a@8sX=YRSpg'6r~R=4RBnh'"}.N9alCj/uGue,Vh'
+"}0rq.oer9#Z]K9&uWa+`G[EJFYx\<YX8,3v<{6`^{P2%YrxR=h6`ML6=[sxk e}q+i6n=
+`_cmra f#[g)H]]^5A`TcmraKq9i_FtYu6L!DwQD`Ppz[4.pk:.Mog.EI&Jbf{@3sX90.S
+BPQx%tL]=Z4u<{JS2g`b%OZm#{B9VU<{JS2gLN3_/K%@[8TVTAL^<{eu'6Htuta+`LnXbs
+YwUG.M`X.8F13yI}M~oS#Zt2L!YxMAGa*/+4`L0:rrR=$r3Pa%5i 6s4F019UAJ=23BE?R
+VD=p<(R-TX6Kf4*v[6V0<{JS2g`b%OZm#{B9VU<{JS2gLN3_/K%@[8TVTAL^<{eu'6Htut
+a+`LnXazYwUG=Zf3YX`D)C@AMr=FM)\7fEYX`D)C67)oRpMj=[eF:0aJ.Mn&#Z_UJy@U@6
+rGAI<{enYwn4<k@2Ol++$wdS6tYxAAt$!lu4a+sE[8dfYwj|p1ZIE!s&/TR,pK<GbZ[&8h
+($GN]]iV^5<$_-;J'h@WuT6l!s2z!YT;Jg<Qg'H]opJc1fB962b:.L0R&w'"ZUO,1\i O,
+^(RJ!u+WE;j[XoN~mRL~dwA1cVRLb}OdrgTPpr'rps0|'"Vr[TrJF`TuA9i\,@VJ_NrJ*$
+uqp*=1E.dV:4G0bF: 1I2]/RPQ)N?52@difv2]=/s1/TJ$_m,n@1#Wtb'i5"6i$s09PU5Z
+a9,UA-EqUZWLHYchOiO'q7Es.mtc'i(urjS=JN.?D|P4b+f`0&fTK_@3u:S@e64U,3&~'O
+kk`:7OtgNTlNbf==iGRA5o-a\"E~K4QGa_s"Wb$cj]YxDmk%f,0&fTK_P3$q3Pa%5i 6Rs
+S>&/g*^f h`MCm;;(<pIpNs3qh0&fT TZwaXq5<GE&lK9{f)$q3Pa%5i 6Rscp5[t_'ip=
+-hO9(;?"B{<{!+Vgc[th;p6o8]/o71rX90%*,A_@&Nd=Yw"679Q"i>RA5o-a\"t[;pMpbD
+X `MCm;;(<IBLC@;j#^5qyDk_m,n@1#Wtb'iube9fB6i9[Ab%F)w)/&LF0j[3O3>19^vqZ
+uQWb%KNS9jCJigkh=[s1/Tu/k<=R,DO-a+@-Vr*ceD4U,3&~'Okk@z@vV<'ie@\OL>L2TI
+:^Jig\VV0Xn`e)_*j-dC`;7OK~[&8h($L!7rSQZ"DglK9{eFRA2pGsYwp$113In"!Q s y
+j.;R(<0W^$ew>J+\%aY|Je<Qqa(=,E<{kEi9RA* ,x.CclQ\ugY#6wA2tXf{MLe^Yw"679
+Q"=ZirBCH4td^I**H4'DN4Vu[E**8$M2UD@31vZnq<#K3tacN5+82P/!aA^#&NT; }TXBi
+L+M:B[s*/TTn(@Nj,5(;I'JXg\^nbP-poS$,WVa<[8p,?*t(0kRJZiaXq5<GE&lKe'P/Z[
+6rM2UD@31vZnq<#K3tacN5$q3Pa%5i3)eT" $?e8=+3419Z*OS.fh1O@O'q7Es.mPORE1T
+Y|rmS=JN.?5M=+f4[G1_NS7_sR7%DD'fPu LeG\OL>L2>sh> MeGT:# oSOi^~Jv1fB962
+b:#3`=/(o:/SC>=c7NA#R_KCe49I\\-apRh'*^.UC*=cSz79VzIhO~"Zt,gB7% -`;8}>"
+LLn!m9e%o/Z0>sLL:-KN?O%|[nG2IbsWDFdm/gp*9^,P\@ZF^1W#@Y'dMv>3!#20/Rf'Vh
+_G=\J]Z6V2@YC@&pm~90)HAGJ~etsd2rIhP*$Lii7N,5K6r"Z6V2@YRoG\K6\L+t[K2]fK
+[Gt":roX=;e'o/Z0&[D[(\jV#%2#A,` ag E;uN"9dZI_cUe=ZJsBELC@;HsVD=p<(R-_C
+#ab5;J2wf=.wY/9&fhd#8oqL)}iZ[4(zhRH]Lp PJqEWG!4pl3r%WbgM.c8V@a::(#C:HF
+Eq*O0Zr.u1Y#GHNk;bhp(98vDPn<+DWx[{I!s!hmS?Gt@-VrNGa2SH0xSE1/A=aCX/""7Z
+(t=NZ,SV`AN#&4iXXiu2Y#GHNk;bS;O#[$[Tjn+~3Q<{6`^{P2%YnT>JMTU9I6WL'vR~av
+!wQTd}d,CZk/i}D+=ZFobmLO9b';-~'GpWe{7[0r]nJYg\^nbP-poSEs.m/^&ZDOT>L^r8
+'x?r?vQR0(!k'nNH27:/6?t7O'/xt~F~am_NrJSU)Ns)/Tu/(Ed@BiM&A/:+<)q#0\]:6R
+[bX0.$s\BeL+M:.G"F"/RDl U<*%uq/Y=MZ,5HIH9^`B'/KWQHU!Sr4.i+fB6i9[Ab%FUC
+-r78t}f{Rn"S&Gh3ijO1BKD*lKe'HYch$^b8&!TyRsC#Z<9a[<I!&M#&b;bUh\--%'R_#o
+20hpSH+0tg2!kT,AmxX'P.r*Wb&S.3NlDPn<+DWx[{"bl3,A2]/Rf'@`A8Lbr~Wb&S.3Nl
+s?D#`r8ce[9x*'m~90-(<F'Ce^RA;5Zq,$LQe64U,3&~'Okk_GAsB_,d>>oK&;DNoY/eKU
+c`kh=[KYQHU!FE'DN4Vu[E?_\%ucrR7%3In"!Q s y?#JL6Y&7Yx^RlQaBRVav!wQTd}`:
+7O+~97GY;npRQyM; kNB+a!glDU1O8Aeegg)L7N!1X\'sX+%=IR^dt`],F=MZ,5H_gq4=Y
+irNR_I(J)dG!KsKT LOq.fh1M: k6*Zr/'ST=ZirNR_Ii+`],F=MZ,5H_gq4=YirNR_Ii+
+[4(zhRH]Lp[kVOMTS7cE*lN*QHjV^*5YIt<yNPN[hE.3)y*#uqU?n9'Kgb,RJkok[FE~'D
+N4VuEoVD=p<(R-tx\Ma0!']J9&4vdK:06?mz90Xe=HQ-aCmeUE&)#O#gEu'61XmPiB@W@s
+i?'lNH27:/aJ.G"F"/B4X3ko\Oiu,@G{$*pVs3=4][t]'id1s@.3lH=R,DO-3fiyou?*."
+jaXoN~[FJi+F y)MKwe8[).ME2Ha0@_p7!+W27Glt_'i/\tj')F4CHS4Z"A<0'kuNpB;-.
+VI-%GY]bD5D't1!ghd"'So2>^#190\]:6R[bX0.$C,*R0_Gd^%rdh?(Rl@_!NiLpIE9^`B
+Y1=`X^bZ]k8Z=~=~T '|DNL&FcTuA9i\,@VJ_NrJ z(<l2e&DVQ20I$(f6a.*8B<U"!y^&
+0&fTA=0'ku=?'Ykk6B/TTJPrPdbUh\oQb`G+ Q3*,3_/RB!u&ZBK?RdklrdA;29qbJGln!
+m9e%o/p8s3d;''cE&\n;/r_e_m,n@1gc.o<?*r:UVJ_NrJ#]A:Z4;2g3oQ#ub?T6X2V:J+
+b^h\Uw0H%'R_#odv+;K7E5GhlNlY-/<?*r:Uq-/rPvT6T:4Qt[DFPVB[s*/TTn(@Nj,58c
+D/'6SDNV+XLC@;`m_yQ]@/&~6@hN@kse:?`}@F?|cy0'#O+0':bT>2VEX0hm'lNH27:/6?
+t7O'[$5Z@q*./)'`SW6W 8jKoQ?O=nA3::1ZY|,GUfhzZWSwh)3\2EN76\&7kb&H#,27,y
+my-}Z*/3XsG[e8o}?*3GA*r<4 G;n_uJaEdA0Ts'/NL)9d,Ph|SgU%WzFF^%<{);NO=H$6
+liW|ZqaXq5T_Ke-R?M0yPDSJ>\=~T '|DNL&FcTuA9i\,@VJ_NrJ z(<l2e&DVQ20I$(f6
+a.fTh[\A"bZ1oT=SM~W@X0E=&hZqZ>M)V?&j>")yljW|BYX2'g"/D@@-VrNGa2SH\$g/&?
+_q\&VoWzHxs!hm*ve8o}?*t(0k'?8K"Pv-fl>X^CZs#Z.N@H"g$>27IFZ/,_h`h]7t.HOh
+:92Jh>?ZOk]1tJ9?e`f,OeKjWEX0LB.3:J.C_{ijt#D)\w$WLt_tFS]gML_n,n@1gctu1|
+JrQF.M`Xuva+<{Bks0Wb?^3_]H[}"b@7@ce>B\,o&,Hz/`b,G'8cYtb*;_<(hT16t{p2!#
+];&x@0i j;p1jYcO^A#ab5F5"L[9V0<{JS@UqTJRk`YX\Ptb;pqT9!T;=5'Okkb*Zr_Z'o
+A&^^B[=TM~W@X0E=saj/^cuw6X:+[6V0<{JS2g\ZIor}t7[:tvWbS5bPC.s"!lu4a+Jtk`
+@3^#@5sX=YJK=\4u<{]-.Mn&#Z[9(z8*3]b=Yw!!`LnXkhhf5BMk?{L{l5Xotv1|JrQFsr
+FIJs2gLN3_/K%@[8oQYwUU=ZRSpg'6GsYw%|<|SCbP^)tYu69.Yw%|Ael&i6n='6q=#Zt2
+L!pU@;S8=Z4Y(5[6^h[}"b@76+Yxu'a+NM,0RLtXWb/H%(,nJp^~0Pu;a+<{BkA;i?\>;{
+\4Qa;4g3Ywn4<k@2Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxdD[8Ik@6=b]{Yw\<YXBv\ZIo
+r}t75L_fP G??d/G%@5J_fP G??d/G%@[8q[_j*{g+EFJcJrQF.Me=RA;5Zq,$LQt)L!Yx
+UG=ZRSkB'6r~R=om.E[4tFg:n9dRSxrzR=U'=Zsxk %Mn`]m5A`T[Es9!lon#Z_UJy@U@6
+R'@AQ=o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu L!JY@Utm=[BC<{:c,o[8I3^%GfPKFE
+hS@kseY>uu$N@:m"u\/G@:Ol++$wdS6tYx^~.MBz<{m=tq!lU(o.!N'7W{q<E'JcJrQFo.
+!NSTHVr}t7!lu<a+`G[EJFYx\<YXn"3th'"}0rq.oer9#ZsyL!s"!lju`W0:t/k  (6!^j
+/qRnMj=[sxk %Mn`]m5A`T[E@8sX=YRSpg'6r~R=1omyI@ C!mn__I>n*`@:m"I@5xX jm
+uGuea+Jlk`@3=b`><{i9<kr,[kYX.b#gEu<{r5.E[4tv8KV^8c`VS}1,+)A-"`#yAC[5tv
+R=X&BG/B#iLr#hSZbCouCzue,Vh'"}.N9alCj/uGue,Vh'"}0rq.oer9#ZZX.MBz<{m=o>
+#ZtZ9.m\D+]u5AJ~G&#}N+=FM)\7;:G&#}N+=FM)\7fEYX`D)C67)oRpMj=[sxL!u0Y#GH
+Nk;b=e@3sX.EiF'6HtuTa+`LnXJcQF.M5J_fp@?5NB`L-wiD<k@2Ol++$wdS6tYxD$`Npz
+Jc@Utm=[BC<{i25F_fP G??d/G%@5J_fP G??d/G%@[8q[_j*{g+EFJcJrQF.Me}RA;5Zq
+,$LQt1L!YxUG=ZRSkB'6r~R=om.E[4tFg:n9dRSxrzR=U'=Zsxk %Mn`]m5A`TEor,!lon
+#Z_UJy@U@6R'@AQ=o.!NSTHVr}t7!lu(a+t[L!pU@;S8=Zp1[:tv_j 1L"G??d/G%@[8q[
+_j*{g+EFJcJr@U`Qpz[4.pk:.Mog.EC`e]ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!uZa+
+`G[EJFYx\<YXn"QR=[_dj-^}@IGm:Kmc.h&27Vk`YXt5R=@HGm:KMC=[+zYy0PNkE|r}t7
+R==Y+zcKau\7fE.Mm%#Zt2L!pU@;S8=Z4Yhw[47u=]A"'Akzoer9.E[47uP`MVB9VU<{cs
+'6r.!lju`W0:[6I3CAmyI@ C!mn__I>n*`@:m"I@5xX jmuGuea+`Dpz[4.pk:.Mog.Efc
+e]ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!uZa+`G[EJFYx\<YXXL3th'"}.N9alCj/uGue
+,Vh'"}0rq.oer9#Zsi!lu4a+sE[8dfYwUGoV=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.MlD
+'6r.!lju`W0:[6I30d@6G<'fPu LOqOGVsJe"7[8q[!l-LPb=EoaRA]c4@S;u-oPb$rJ!l
+=\jOgvu59.Yw"B$l`QS}1,+)A-Db#L<{Jzf{#hSZbCouCzue,Vh'"}.N9alCj/uGue,Vh'
+"}0rq.oer9#Zoe#Zt2L!pU@;S8=Z4YS@`D)C@AMr=FM)\7fEYX`D)C67)oRpMj=[,m<{eu
+'6Htuta+`LnXazJX2g`b%OZm#{B9VU<{JS2gLN3_/K%@[89[YwUU.MqiuSL!Jcf{8+3vh'
+"}.N9alCj/uGue,Vh'"}0rq.oer9#ZsyL!JY@Utm=[BC<{P9rx!lv-#Z[97u=]A"'Akzoe
+r9.E[47uP`MVB9VU<{bR.Mn&#Z_UJy@U@6rG@t`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=[
+'HYxUU.MqiuSL!Jcf{M`u2EOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:=b[7IkYwdDsN#ZtZ9.
+1`nT<kB<jW0L)?&d/_Gl8c7a&= sJc"7[8q[_j 1L"G??d/G%@[8q[_j*{g+EFJcJr@U@2
+sX=YRSpg'6r~R=4RmyI@ C!mn__I>n*`@:m"I@5xX jmuGuea+`Dpz[4.pk:.Mog.EI&[o
+@3Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxQQ.Mn&#Z_UJy@U@6rGAI<{'p?ratE=/-#,8}b>
+6>Aq<{r5.E[47u=]A"'Akzoer9.E[47uP`MVB9VU<{bR.Mn&#Z_UJy@U@6rG@t`G)C@AMr
+=FM)\7fEYX`D)C67)oRpMj=['HYxUU.MqiuSL!Jcf{M`u2EOK/+ ?E'xdR6tYxu'EO"fG@
+>v*`@:=b[7IkYwdDsN#ZtZ9.1`@6rGEsoN*`6uoE0Et}<^Jz"7[8q[Jm7_Yx%|Ael&i6n=
+'6s?!lon#Z_UJy@Ur(_j 1L"G??d/G%@[8q[_j*{g+EFJcJrk`@4sX=YRSpg'6r~R=4Rmy
+I@ C!mn__I>n*`@:m"I@5xX jmuGuea+`Ipz[4.pk:.Mog.Efce]ra f#[g)H]]^5A`Tcm
+raKq9i_FtYu6L!JSk`@3=b`><{i9<kr,U%o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu(a+
+`G[EJFYx\<YXn"bsJX2g`b%OZm#{B9VU<{JS2gLN3_/K%@[89[YwUU.MqiuSL!Jcf{ORu2
+EOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:=b[7IkYwdDsN#ZtZ9.(wr(_j 1L"G??d/G%@[8q[
+_j*{g+EFJcJr@U`Qpz[4.pk:.Mog.EI&e]ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!uZa+
+`G[EJFYx\<YX8,AD<{=F'OkkYwn4<k@2sXPw7'QHJv1fB962b:%A'sbf@4sX.E9vdo>d'S
+#O'R0~NQiVgvu59.Yw%|<|SCbP^)tYu69.Yw%|Ael&i6n='6i5'6\X.Mqiri!luHWaqx2%
+>z*``Z3RM*b0.ba_i6Xg3RM*b0.ba_i6n=<k@2Ol++$wdS6tYxu'a+JWg\^nbP-pY}[4tv
+R=om#Z_UJi@U@6rG`LcmRAUo?rH0/Z71@6R'ol.E[47uP`MVB9VU<{2"@7sX`L[EJFYx\<
+YXocUm?r8 ^j/qRnMjUo?r8 ^j/qRnMj=[sxk %Mn`]m5A`Tcm'6n*90Xe=HQ-aCu3a+<{
+enYwdDpk#ZtZ9.s"R==Yu>ngG,mD9{tX9.e^Ywu'EO"fG@>v*`@:2wt1L!s"!lju`W0:[6
+d.u#ngG,W{q<E'Jcu=ngG,W{q<E'JcJrQFo.!NSTHVr}t7R==Yh)YwMAGa*/+4iU'6@<rG
+`L[EuQYw\<YXBv<{JSg\Ts6T>ufT\ YXoc`LcmraKq9i_FtYu6L!\o.MBz<{m=tq!luHWa
+ ,QT=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.Mm%#Zt2L!pU@;S8=Z4Yhw[47u=]A"'Akzoe
+r9.E[47uP`MVB9VU<{cs'6r.!lju`W0:[6I3CAmyI@ C!mn__I>n*`@:m"I@5xX jmuGue
+a+`Dpz[4.pk:.Mog.EfcJbk`v4a+h'"}.N9alCj/uGue,Vh'"}0rq.oer9#Zsi!lu4a+sE
+[8dfYwUGoU=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.MlD'6r.!lju`W0:[6I3[Y@3Ol[;b$
+.ba_i6n=<k@2Ol++$wdS6tYxNn<{eu'6Htuta+`LnXbsu99."Q`Wtb5Fuo.h&27Vk`YXt5
+R=c?CBtC_j*{g+EFJcJr@U@7sX`L[EJFYx\<@3Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxX8
+.Mn&#Z_UJy@U@6rG@|`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=[:;<{eu'6Htuta+`LnXbs
+JX2g`b%OZm#{B9VU<{JS2gLN3_/K%@[8TVYwUU.MqiuSL!Jcf{*=t/k  (6!^j/qRnMj=[
+sxk %Mn`]m5A`T0:[4IkYwdDsN#ZtZ9.*9r(_j 1L"G??d/G%@[8q[_j*{g+EFJcJr@U@2
+sX=YRSpg'6r~R=CAmyI@ C!mn__I>n*`@:m"I@5xX jmuGuea+`Dpz[4.pk:.Mog.EnkU&
+o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu(a+`G[EJFYx\<YXXLGlYw%|<|SCbP^)tYu69.
+Yw%|Ael&i6n='6q]!lu4a+sE[8dfYwUG(ot/k  (6!^j/qRnMj=[sxk %Mn`]m5A`T0:[4
+IkYwdDsN#ZtZ9.\ki'[47u=]A"'Akzoer9.E[47uP`MVB9VU<{bR.Mn&#Z_UJy@U@6rG@t
+`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=['HYxUU.MqiuSL!Jcf{M`u2EOK/+ ?E'xdR6tYx
+u'EO"fG@>v*`@:=b[7IkYwdDsN#ZtZ9.1`r(_j 1L"G??d/G%@[8q[_j*{g+EFJcJr@U`Q
+pz[4.pk:.Mog.Enk[lYX.b#gEu<{r5.E[4tv8KV^8c`VS}1,+)A-"`#yAC[5tvR=X&BG/B
+#iLr#hSZbCouCzue,Vh'"}.N9alCj/uGue,Vh'"}0rq.oer9#Ztb.MBz<{m=o>#ZtZ9.m\
+D+]u5AJ~G&#}N+=FM)\7;:G&#}N+=FM)\7fEYX`D)C67)oRpMj=[sxL!u0Y#GHNk;b=e@3
+sX.EiF'6HtuTa+`LnXJcQF.M5J_fp@?5NB`L-wiD<k@2Ol++$wdS6tYxD$`NpzJc@Utm=[
+BC<{i25F_fP G??d/G%@5J_fP G??d/G%@[8q[_j*{g+EFJcJrQF.Me}RA;5Zq,$LQt1L!
+YxUG=ZRSkB'6r~R=om.E[4tFg:n9dRSxrzR=U'=Zsxk %Mn`]m5A`TEor,!lon#Z_UJy@U
+@6R'spg:n99alCj/uGtDg:n99alCj/uGue,Vh'"}0rq.oer9.E[4Y{=Z$MoD4>6H\t.M`X
+nXJc@Utm=ZBC<{enYwu'Y#3RM*]kVrAj<{i2JcQFo.!NSTHVr}t7!lCJ<{euYwdDsN#ZtZ
+9.P)3RM*b0.ba_i6Xg3RM*b0.ba_i6n=<k@2Ol++$wdS6tYxu'a+uRY#GHNk;b=e`Opz<k
+\V.MqitrL!Jcf{uH,V<{JtI7jK^K&NJc;p\RYX`D)C67)oRpMj=[:;uRa+t[L!pU@;S8=Z
+B'((m I@ C!mn__I>n*`@:m"I@5xX jmuGuea+`Dpz[4.pk:.Mog.EI&e]ra f#[g)H]]^
+5A`TcmraKq9i_FtYu6L!JSk`@3=b`><{i9<kW1U&o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7
+!lu(a+`G[EJFYx\<YXXLGnYw%|<|SCbP^)tYu69.Yw%|Ael&i6n='6q]!lu4a+sE[8dfYw
+UGh~'6uq.M`X)C@AMr=FM)\7fEYX`D)C67)oRpMj=[,m<{eu'6Htuta+`LnXW0U&o.!N'7
+W{q<E'JcJrQFo.!NSTHVr}t7!lu(a+`G[EJFYx\<YX8,P;=Zp1[:tv_j 1L"G??d/G%@[8
+q[_j*{g+EFJcJr@U`Qpz[4.pk:.Mog.EC`e]ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!uZ
+a+`G[EJFYx\<YXn"3th'"}.N9alCj/uGue,Vh'"}0rq.oer9#Zsi!lu4a+sE[8dfYw*<o\
+=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.MlD'6r.!lju`W0:[6I3A[ugWaLC@;#:bnfTJ?oB
+0Et}<^Jz"7[8+U(X7Rs*n;ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!JSk`@3=b`><{i9<k
+r,U%o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu(a+`G[EJFYx\<YX8,3vh'"}.N9alCj/uG
+ue,Vh'"}0rq.oer9#ZsyL!JY@Utm=[BC<{:co^=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.M
+m%#Zt2L!pU@;S8=Z4Y[h@3Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxQQ.Mn&#Z_UJy@U@6rG
+fbe]ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!JSk`@3=b`><{i9<kW1c8JX2g`b%OZm#{B9
+VU<{JS2gLN3_/K%@[8.p=[4u<{m=tq!luHWa$Kt/k  (6!^j/qRnMj=[sxk %Mn`]m5A`T
+[E@8sX=YRSpg'6r~R=4RmyI@ C!mn__I>n*`@:m"I@5xX jmuGuea+Jlk`@3=b`><{i9<k
+W1U&o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu L!JY@Utm=[BC<{:cO>=ZjO7N,5K6+{AG
+nE@66+Yxu'a+NM,0RLtXWb/H%(,nJp^~0Pu;a+<{s<1|JrQF.M>6hs=ZFobmLOdm/B@iaZ
+BK[c`Ipz<kuOEOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:^#K(k`@3=b`><{i9<kgA8hYw%|<|
+SCbP^)tYu69.Yw%|Ael&i6n='6q]!lu4a+sE[8dfYwUGoV`L)C@AMr=FM)\7fEYX`D)C67
+)oRpMj=[,m<{eu'6Htuta+`LnXbss!_j 1L"G??d/G%@[8q[_j*{g+EFJcJr@U@2sX=YRS
+pg'6r~R=rPe]Yw%|<|SCbP^)tYu69.Yw%|Ael&i6n='6q]!lu4a+sE[8dfYwUG=ssR_j 1
+L"G??d/G%@[8q[_j*{g+EFJcJr@U@2sX=YRSpg'6r~R=4Ri#Jc2g`b%OZm#{B9VU<{JS2g
+LN3_/K%@[89[YwUU.MqiuSL!Jcf{Z=h/uTEOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:=b[7Ik
+YwdDsN#ZtZ9.(w\Ro.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu L!JY@Utm=[BC<{enGj@6
+Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxNn<{eu'6Htuta+`LnXbss!_j 1L"G??d/G%@[8q[
+_j*{g+EFJcJr@U`Qpz[4.pk:.Mog.Enk8iZ1TIbeao oWqE=8]nGA+*t[6V0<{JS2g`b%O
+Zm#{B9VU<{JS2gLN3_/K%@[89[YwUU.MqiuSL!Jcf{M`u2EOK/+ ?E'xdR6tYxu'EO"fG@
+>v*`@:S8=Y4u<{m=tq!luHWa(ot/k  (6!^j/qRnMj=[sxk %Mn`]m5A`T0:[4IkYwdDsN
+#ZtZ9.I8myI@ C!mn__I>n*`@:m"I@5xX jmuGuea+`Dpz[4.pk:.Mog.EC`U&o.!N'7W{
+q<E'JcJrQFo.!NSTHVr}t7!lu(a+`G[EJFYx\<YXn"bsJX2g`b%OZm#{B9VU<{JS2gLN3_
+/K%@[89[YwUU.MqiuSL!Jcf{Z=ryR=0^2/O6mjQJ;-b6O8!Er{1|JrQFo.!N'7W{q<E'Jc
+JrQFo.!NSTHVr}t7!lu L!JY@Utm=[BC<{:cGjYw%|<|SCbP^)tYu69.Yw%|Ael&i6n='6
+q=#Zt2L!pU@;S8=Z4Yhw[47u=]A"'Akzoer9.E[47uP`MVB9VU<{bR.Mn&#Z_UJy@U@6rG
+AI`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=['HYxUU.MqiuSL!Jcf{*=[6I3^%Gf`so[TvO[
+uD^^#ab5;JsXCzue,VS5?PQeqF*_r:I@5xX jmuGuea+`DpzJc@Utm=[BC`G)C@AMr=FM)
+\7fEYX`D)C67)oRpMj=['HYxUU.MqiuSL!Jcf{M@u2EOK/+ ?E'xdR6tYxu'EO"fG@>v*`
+@:=b[7IkYwdDsN#ZtZ9.*9rxR=k9,N/!aA>c9+eEG2\=pICzue,V<{$ToDcMRA]c4@S;Jb
+(u?r=EM+JTk`YXth(}`Tcm'6@,uTCMdRLDN><y7+0'Lr.M`XnX?!9bH'Kcs!_j 1L"rrP 
+G??d/G%@[8q[_j*{g+EFJcJr@Uuta+`G[EJFYx\<YXn".E[47uP`MVB9VU<{B2u5a+`G[E
+uQYw\<YXn".E[47uP`MVB9VU<{\LnS#Zt2L!pU@7S8=ZB'u'EO"fG@>v*`@:S8=Y4u[6.p
+k:.MZ2`_)C@AMr=FM)\7fEYX`D)C67)oRpMj=['HYxUU.MqiuSL!Jcf{M@u2EOK/+ ?E'x
+dR6tYxu'EO"fG@>v*`@:=b[7IkYwdDsN#ZtZ9.*9nT]/Fti!`M)C67)oRpMj=[,m<{euYw
+dDsN#Z>dI5UB-r78j3ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!uZa+`G[EJFYx\<YXXL>_
+I5`M)C@AMr=FM)\7fEYX`D)C67)oRpMj=['HYxUU.MqiuSL!Jcf{M`%"Jx-*(X7Rs*IvsP
+_'#ab5;JsXCzue,VS5?PD8c"Ja1`@:Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxQQ.Mn&#Z_U
+Jy@U@6rGAI`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=[,m<{eu'6Htuta+`LnXP9u2EOK/+ 
+?E'xdR6tYxu'EO"fG@>v*`@:S8=Y4u<{m=tq!luHWaP7GmYw%|<|SCbP^)tYu69.Yw%|Ae
+l&i6n='6q]!lu4a+sE[8dfYw*<4ar(_j 1L"G??d/G%@[8q[_j*{g+EFJcJr@U`Qpz[4.p
+k:.Mog.Efce]ra f#[g)H]]^5A`TcmraKq9i_FtYu6L!uZa+`G[EJFYx\<YXXLbiYwpBVq
+Q55ZB:;f`iO(@ni?=Zf3YX`D[EGH#`[4m_OE"ih{:)g*n9`*d4'6@<G<26[VrJ9sZu8cnF
+;a`2_/]eYXt5R==Y<}Jb8.[6tvR=omCzue,Vh'"}.N@Hn=9alCj/uGue,Vh'"}0rq.oer9
+#Zpf'6r.!lju`W0:[6I3Ywu'EO"fG@>v*`@:^#*g`Mpz[4.p`O.Mog.Et19.Yw%|Ael&i6
+n='6D`t=L!JY@Utm=ZBC<{S\`D)C@AMr=FM)\7fEYX`D)C67)oRpMj=[,m<{eu'6Htuta+
+`LnXbsJX2g`b%OZm#{B9VU<{JS2gLN3_/K%@[89[YwUU.MqiuSL!Jcf{*=[6j,@?sXI@ C
+!mn__I>n*`@:m"I@5xX jmuGuea+`Dpz[4.pk:.Mog.EI&[o@3Ol[;b$.ba_i6n=<k@2Ol
+++$wdS6tYxQQ.Mn&#Z_UJy@U@6rGo7uFa+v3L!Yx%|<|SCbP^)tYu69.Yw%|Ael&i6n='6
+q=#Zt2L!pU@;S8=Z4Yi#[47u=]A"'Akzoer9.E[47uP`MVB9VU<{bR.Mn&#Z_UJy@U@6rG
+c7u99.Z1TIbetb(}`Tcmra f#[g)H]]^5A`TcmraKq9i_FtYu6L!JSk`@3=b`><{i9<kW1
+U&o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu(a+`G[EJFYx\<YXXLGnYw%|<|SCbP^)tYu6
+9.Yw%|Ael&i6n='6q]!lu4a+sE[8dfYwUG(ot/k  (6!^j/qRnMj=[sxk %Mn`]m5A`T0:
+[4IkYwdDsN#ZtZ9.\ki'<kb\h\>:&8Q{uM$N@:m"I@ C!mn__I>n*`@:m"I@5xX jmuGue
+a+Jlk`@3=b`><{i9<kW1p!#Z9guDa+[67u=]A"'Akzoer9.E[47uP`MVB9VU<{bR.Mn&#Z
+_UJy@U@6rGc7Ywj|p1jY04_"hPOmuDrP_m,n@1#W[9V0<{!JAGnE`:[,UTnLra f#[g)H]
+]^5A`TcmraKq9i_FtYu6L!JSk`@3=b`><{i9<kW1U&o.!N'7W{q<E'JcJrQFo.!NSTHVr}
+t7!lu(a+`G[EJFYx\<YXXLGnYw%|<|SCbP^)tYu69.Yw%|Ael&i6n='6q]!lu4a+sE[8df
+YwUGh~[47u=]A"'Akzoer9.E[47uP`MVB9VU<{cs'6r.!lju`W0:[6I3CAmyI@ C!mn__I
+>n*`@:m"I@5xX jmuGuea+`Dpz[4.pk:.Mog.EfcA[`G)C@AMr=FM)\7fEYX`D)C67)oRp
+Mj=['HYxUU.MqiuSL!Jcf{ORu2EOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:=b[7IkYwdDsN#Z
+tZ9.I8o[.E`=8}>"LL]HR6TTnEBDj]gvu59.Yw))hRPe.ME2Ha0@uF1k_eZj$ u*a+<{Bk
+H"967YuL$N@:m"#ZaW\Z_f.M`XnXJc"7[8q[_j 1L"rrP G??d/G%@[8q[_j*{g+EFJcJr
+@Uuta+`G[EJFYx\<YXn".E[47uP`MVB9VU<{iynm=Z4u<{m=sP!luHWa`GcmraKq9i_FtY
+u6L!/B`Ipz[4.p`O.Mog.EQV=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.Mm%#Zt2L!pU@;S8
+=Z4Yi#[47u=]A"'Akzoer9.E[47uP`MVB9VU<{cs'6r.!lju`W0:[6I3A[`G)C@AMr=FM)
+\7fEYX`D)C67)oRpMj=[,m<{eu'6Htuta+`LnXNw=Zp1[:tv_j 1L"G??d/G%@[8q[_j*{
+g+EFJcJr@U@2sX=YRSpg'6r~R=4Ri#[47u=]A"'Akzoer9.E[47uP`MVB9VU<{cs'6r.!l
+ju`W0:[6I3rfJbk`v4a+h'"}.N9alCj/uGue,Vh'"}0rq.oer9#Zsi!lu4a+sE[8dfYw*<
+o\=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.MlD'6r.!lju`W0:[6I3A[ugWah3e?ABuL$N@:
+m"I@ C!mn__I>n*`@:m"I@5xX jmuGuea+`Dpz[4.pk:.Mog.Efce]Yw%|<|SCbP^)tYu6
+9.Yw%|Ael&i6n='6q]!lu4a+sE[8dfYwUGi'[47u=]A"'Akzoer9.E[47uP`MVB9VU<{cs
+'6r.!lju`W0:[6I3A;`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=[,m<{eu'6Htuta+`LnXW0
+U&o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu(a+`G[EJFYx\<YX8,P;=Z?DI5UB-r78j3gv
+u59.Yw%|<|SCbP^)tYu69.Yw%|Ael&i6n='6q=#Zt2L!pU@;S8=Z4Yi#Ywc#h\'6uQEOK/
++ ?E'xdR6tYxu'EO"fG@>v*`@:=b[7IkYwdDsN#ZtZ9.I8`LnXkhhf m[nG2k8h`%4hP@k
+seY>uu$N@:7,11O%o}snpjMn=[+zYy0PNkE|r}t7R==Y+zcKau\7fE.Mm%#Zt2L!pU@;S8
+=Z4Yi#[47u=]A"'Akzoer9.E[47uP`MVB9VU<{cs'6r.!lju`W0:[6I3A[`G)C@AMr=FM)
+\7fEYX`D)C67)oRpMj=[,m<{eu'6Htuta+`LnXW0U&o.!N'7W{q<E'JcJrQFo.!NSTHVr}
+t7!lu(a+`G[EJFYx\<YX8,P;u2EOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:=b[7IkYwdDsN#Z
+tZ9.*9r(_j 1L"G??d/G%@[8q[_j*{g+EFJcJr@U`Qpz[4.pk:.Mog.Efce]ra f#[g)H]
+]^5A`TcmraKq9i_FtYu6L!uZa+`G[EJFYx\<YXXLbiYwpBVqQ55ZB:;f`iO(@ni?=Zf3YX
+`D[EGH#`[4m_OE"ih{:)g*n9`*d4'6@<G<<{r5.E[4oQ`K.ME2Ha0@_pQ{s;W|@0sX.EJg
+"7[8q[!l@kiHf)'6@<rG`LL6=[sxk  (6!II8 ^j/qRnMj=[sxk %Mn`]m5A`T[EJyk`@3
+=b`><{i9<kr,R==Y+zcKau\7fE.Mp(KJYwUU.MqitrL!Jcf{@3m"I@5xX jmuGuea+Rk@4
+sX=YRSkB'6r~R=8jYw%|<|SCbP^)tYu69.Yw%|Ael&i6n='6q]!lu4a+sE[8dfYw*<o\=Y
++zYy0PNkE|r}t7R==Y+zcKau\7fE.Mm%#Zt2L!pU@;S8=Z4Y[x.MuM<{Jz2g`b%OZm#{B9
+VU<{JS2gLN3_/K%@[89[YwUU.MqiuSL!Jcf{8+3vh'"}.N9alCj/uGue,Vh'"}0rq.oer9
+#ZsyL!JY@Utm=[BC<{P9*@[6j,@?sXI@ C!mn__I>n*`@:m"I@5xX jmuGuea+Jlk`@3=b
+`><{i9<kr,U%o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lu L!JY@Utm=[BC<{P9GmYw%|<|
+SCbP^)tYu69.Yw%|Ael&i6n='6q=#Zt2L!pU@;S8=Z4Y0mJsf{D)mj[kJe"7[8q[_j 1L"
+G??d/G%@[8q[_j*{g+EFJcJr@U@2sX=YRSpg'6r~R=rPe]ra f#[g)H]]^5A`TcmraKq9i
+_FtYu6L!JSk`@3=b`><{i9<kgA3uh'"}.N9alCj/uGue,Vh'"}0rq.oer9#ZsyL!JY@Utm
+=[BC<{enORu2EOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:S8=Y4u<{m=tq!luHWa>Eo^.EA>D>
+/-#,8}Jf"7[8q[_j 1L"G??d/G%@[8q[_j*{g+EFJcJr@U`Qpz[4.pk:.Mog.EI&e]ra f
+#[g)H]]^5A`TcmraKq9i_FtYu6L!uZa+`G[EJFYx\<YX8,il'6SOtRL!@7Ol[;b$.ba_i6
+n=<k@2Ol++$wdS6tYxNn<{eu'6Htuta+`LnXP9=Z_dj-^}he_"SAYwDx79?do`.h&27Vk`
+YXt5R=hd_"SAYwDx79?dO@=[+zcKau\7fE.MqI#ZiG'6Htuta+myI@5xX jmuGuea+t~a+
+t[L!pU@;S8u2EO"fG@>v*`@:hm[7Ik@6=b`><{(X[6^hN}8J 6s4v!;pD}#rfQij"=Zp[6
+(z?1Ex[{j^8f0X&lQd^"SEp.fv\U1.=&N:s01|JrQFo.!NSTHVr}t7!l=\irNR_Ii+'6\X
+.MqiuSL!,Eh'"}0rq.oer9#Zu#L!s"!lju`W0:t/k %Mn`]m5A`T[E`BpzJc@Utm=[BC`G
+)C67)oRpMj=[23YxUU=ZRSpg'6,xgd=Z+zoO)jn__I>n*`@:m"I@5xX jmuGuea+`QpzJc
+@Utm=[BC<{en<k@2Ol++$wdS6tYxD$<{euYwdDpk#ZtZ9.tMYw%|rrP G??d/G%@[8q[_j
+*{g+EFJcJr@UJOk`uHa+sE[8dfYwUGYX`D)C67)oRpMj=[h)YwUU=ZRSkB'6r~R=rd=Z+z
+oO)jn__I>n*`@:m"I@5xX jmuGuea+Jpk`uHa+sE[8dfYwUGYX`D)C67)oRpMj=[h)YwUU
+=ZRSkB'6r~R=_qYx%|Ael&i6n='6o{#ZiG'6HtuTa+t`k %Mn`]m5A`TEo'#<{euYwdDsN
+#ZIO=\+zcKau\7fE.Mia'6\X.MqitrL!s,_j*{g+EFJcJrk`Sk<{euYwdDsN#ZIO=\+zcK
+au\7fE.Mia'6\X.MqitrL!s,_j*{g+EFJcJr@UBG=[4u[6.pk:.Mog.E*'uqp*?v;/au.M
+%BaU_m,n@1#W[9V0<{JS7T78t{f{5tO4=[+zYy0PNkE|r}t7R==Y+zcKau\7fE.Mm%#ZiG
+'6Htuta+`LnXazJX2g`b%OZm#{B9VU<{JS2gLN3_/K%@[89[YwUU=ZRSpg'6r~R=CAmyI@
+ C!mn__I>n*`@:m"I@5xX jmuGuea+`DpzJc@Utm=[BC<{:co^=Y+zYy0PNkE|r}t7R==Y
++zcKau\7fE.Mm%#ZiG'6Htuta+`LnXNwu2EOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:S8=Y4u
+[6.pk:.Mog.EI&[o@3Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxQQ.MBz<{m=tq!luHWa>EO>
+=ZjO7N,5K6td'|&kF#?V;-$0mRiESa.Rb8tb(}`TcmraKq9i_FtYu6L!Yx5I#S[6Ik@6=b
+`><{Sc`D)C@AMr=FM)\7fEYX`D)C67)oRpMj=[,m<{euYwdDsN#ZtZ9.*9r(_j 1L"G??d
+/G%@[8q[_j*{g+EFJcJr@U@2sX`L[EJFYx\<YX8,3vh'"}.N9alCj/uGue,Vh'"}0rq.oe
+r9#ZsyL!s"!lju`W0:[6I3A[`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=[,m<{euYwdDsN#Z
+tZ9.>MuAh'"}.N9alCj/uGue,Vh'"}0rq.oer9#ZsyL!s"!lju`W0:[6I3CAmyI@ C!mn_
+_I>n*`@:m"I@5xX jmuGuea+`DpzJc@Utm=[BC<{P9*@rE.E*'uqZT$!HyhS@kseY>uu$N
+@:WL$!Hyr=I@5xX jmuGuea+`DpzJc@Utm=[BC`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=[
+'HYxUU.MqiuSL!Jcf{M@u2EOK/+ ?E'xdR6tYxu'EO"fG@>v*`@:=b[7IkYwdDsN#ZtZ9.
+*9rxR=k9,N/!aAO(@ni?5ZuM$N@:m"#Z:x+/Zki-.ME2Ha0@t%hkMrn_#Z[9^ho.!N'7W{
+q<E'JcJrQFo.!NSTHVr}t7!lhG'6r.!lju`W0:[6I3[U#hSZbCe+:.[\R6pd*lJf2gLN3_
+/K%@[89[YwUU.MqiuSL!Jc1fB962b:Gc#4Ls9dV<LeeHYw%|Ael&i6n='6@<R7I.+0D:-`
+q;Ak<{eu'6Htuta+Q=o.!NSTHVr}t7!lu(a+`G[EJFYx\<v4EOK/+ ?E'xdR6tYxu'EO"f
+G@>v*`@:=b[7IkYwdDsN#ZtZ9.(wr(_j 1L"G??d/G%@[8q[_j*{g+EFJcJr@U`Qpz[4.p
+k:.Mog.EI&WOLC@;]4+:$JliW|ZqaXq5<GuV(}`T8b(#g)5%A?O)=[+zcKau\7fE.Mskm~
+YwUU=ZRSpg'6bnYweW_`fTQ5J?0QD3,TB<(43U95-okzYwn4<k@2Ol++$wdS6tYxlLU<[6
+Ik@6=b`><{i9<k(b#1=-cE*Z?N>/rtBD;f-VndEsoN@6o^@zVH_NrJrlS=JN.?`XL6=[sx
+c8)w(Nc=9dfUo.!NSTHVr}t7!l58jH'6\X.MqiuSL!i"<k3Mh\Sx\$IHhTg(RA:0Xl.f$V
+7,OF6WMU8cm1j/gvu59.Yw%|Ael&i6n='6u!F~<{euYwdDsN#ZtZ9.ah E93(Hlj.c9??w
+D\.7bCjPp1jYoM#H3XVJ_NrJrlS=JN.?`XL6=[sx'|&kfC5%A?O)=[+zcKau\7fE.Mskm~
+YwUU=ZRSpg'6bnYweW_`fTQ5he&qG1@8u:<=MEV`bm+;au,Aqcp2Czue,Vh'"}0rq.oer9
+#ZJP^Z.MBz<{m=tq!luHWak~ 2,Y$4qP'A,_/{]IR6A1pCs3E<2$r8'x?r?vQR0(!k=\f3
+YX\ M3qOg)r=I@5xX jmuGuea+PHs:!lon#Z_UJy@UrxR=$rGd,}9k11O%\*Nt[$@IGm:K
+bxJa$D7,OF6WMU8cm1j/gvu59.Yw%|Ael&i6n='6u!F~<{euYwdDsN#ZtZ9.ah E z.rao
+_NbP#/JM3O+/27j;p1jY`:VG_NrJrlS=JN.?`XL6=[CHc"5%A?O)=[+zcKau\7fE.Mskm~
+YwUU=ZRSpg'6bnYweW_`fTQ5@IGmZkTQ#6bnfTJ?@#4se_04_"hPOmuDrP'U?r`so[?A2m
+rp!<;5G0(ALR^,7)?iuM$N@:m"I@5xX jmuGuea+PHs:!lon#Z_UJy@U@6G<?%Uw5ZlDtz
+oGdn0Bc?6i;]&R*#uq:4T:8zO1],CRtWroS=JN.?`XL6=[PuX1QAlLoziTJbu~h'"}.N9a
+lCj/uGue,Vh'"}0rq.oer9#Zn,#Zt2L!pU@;S8=Z4Yhw[47u=]A"'Akzoer9.E[47uP`MV
+B9VU<{Jz<Q4";*tXL!JY@Utm=[BC<{en"%u1Yx%|<|SCbP^)tYu69.Yw%|Ael&i6n='6f"
+'6r.!lju`W0:[6I3[o@3Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxuuY#H$V4rz!lu4a+sE[8
+dfYw*<$1tT9.E\&7'Pkk$&:UnGV`)k]kSCEG2QuOCM83Mo4i,RTHT=8zO1o~f{Jc?BK4/S
+2}$=27`ML6=[sxk  (6!^j/qRnMj=[uV;p9ZlCcH_a%W]8tU;p9ZlCsXuGa+`GcmraKq9i
+_FtYu6L!uJa+`G[EuQYw\<YX9m@2Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxJjYwUU.MqiuS
+L!Jcf{M`J7[67uP`MVB9VU<{dT'6\X.MqiuSL!s,_j 1L"G??d/G%@[8q[_j*{g+EFJcJr
+k`.Mj?*8cWYwUU.MqiuSL!Jcf{M``M.8oRB<cO-pDa3u[67u=]A"'Akzoer9.E[47uP`MV
+B9VU<{5E<{eu'6Htuta+`LnXbs`6=Z+zcKau\7fE.MmE#ZiG'6Htuta+t`k  (6!^j/qRn
+Mj=[sxk %Mn`]m5A`TpzRAE/%,Ak<{eu'6Htuta+`LnXbs@6R7Gh1.lrR#2@8iYxj|p1jY
+`:OcsP.h&27Vk`YXt5R=J>)20+[87uP`MVB9VU<{5E<{euYwdDsN#Z3y<{^H4QPxuFWa]x
+N6#gEuRAs!nI jF*aZBK[cBk$*SHRbG\atE=<{r5.Ec<el<kVP[m)LPS2> MOq_S\L/haA
+ktQSC,)gSE7EIjN[r~_j5F_fP G??d/G%@[8fpN#<{enYwu'Y#[GR}+<WF\PDM<{5?*"p"
+I@ C%1N+=FM)\7fE.Me='6\X.MJB<{i9<kgA7=#/59WM&j<W`2tc=A8$o_90%*,A_@&NJc
+2g`b%OZm#{B9VU<)1_ciraJPMCdS6tv59.Yw%|Ael&i6n='6f"'6\X.MqiuSL!tMYw%|Ae
+l&i6n='6qm!lon#Z_UJy@UuKY#H$V4]E.M$9oE0bP4G;ND=Z!fWOLC@;]4^g#ab5;JsXCz
+ue,VQ^Jr2gLN3_/K%@[8tv[4Ik@6=b`><{i9[4d6mzNOo[.E`=8}>"LLNY[<oZe[)G96,,
+e#VF&H\6E;(6p+Czue,V\{TAYX6jAF2y*pD] z)MHqBc?RLLaT,qf93O0TNksU'!ohI@Jm
+I7)jn__I>n*`@:WL%pYxUG=Zsx;p@Y/f6Y8VBkh{YwJ^4$imra f*B& Zm#{B9VU<{TD.M
+Bz<{tdYw\<YXXLN[&>JR8d-VY/J.s2ZcP(i)RA*48bHJ,}GY@6JS2g\ZIor}t7[:q[_j*{
+g+EFJcJrk`JYk`uHa+sE[8dfsM_j*{g+EFJcJrk`@2sX`L[EJFYx\<=Zm6r(77uKY#[GR}
++<WF\PoX.E`e_cj-^}OdrgMiRk_C#ab5F5"L[9V0<{iR>VJYD\6?@:Ol++$wdS6tYxlLU<
+[6Ik@6=b`><{(X[63]2EN7KY Lp2Czue,V<{Jz#%G0ch=[FobmLOdma 6$9e<{Jzf{\uD\
+bXa-[Okw15h|\ \no.!NSTHVr}t7!l58jH'6r.!lju`W0:L'A>oY#5mR*Z$s8A:+#gA1d|
+1iEj[DG/BGhT161%LB!$Ge^%Gf)4o:%>/B-V^^,.?vQR0(!k=\f3YXDhZF5<]IV:n.PZue
+EO"fG@>v*`@:2w@;sX`L[EJFYx\<v)raKq9i_FtYu6L!JSk`uHa+sE[8dfJX2g`b%OZm#{
+B9VU<{JS2gLN3_/K%@[89[YwUU.MqiuSL!Jcf{M@u2EO"fG@>v*`@:2w=Z4u[6.pk:.M$<
+tT9.0'V<$/\$c{BI>8%|.b0xc?9dbFe+_%o.!NSTHVr}t7!lt[!lon#Z_UJy@USi.$RVQE
+jhgvu59.Ywuu&*n@Q;[8m_OE"iSFKjL)SKYwuuWa'R0~NQ+X<GaY#dEuDb#L[6V0<{JS2g
+LN3_/K%@[89[YwUU=ZRSpg'6X$=[+zYy0PNkE|r}t7R==Y+zcKau\7fE.Mm%#Zt2L!pU@;
+S8=Z4Yhu<k!{>9'~p*I@ C%1N+=FM)\7fEYXQ5o.!NSTHVr}t7!lu(a+t[L!pU@;S8uR_j
+ 1L"G??d/G%@[8q[_j*{g+EFJcJr@U@2sX=YRSpg'6r~R=1ofrYXn".E[47uP`MVB9VU<{
+g7'6r.!lju`W0:[6d.[)<{r5.E)2o:%>/B-V^^,.`T)C67)oRpMj=[eF=[4u[6.pk:.Mog
+v2_j*{g+EFJcJr@U@2sX`L[EJFYx\<@3Ol[;b$.ba_i6n=<k@2Ol++$wdS6tYxQQ.Mn&#Z
+_UJy@U@6rG@t`G)C@AMr=FM)\7fEYX`D)C67)oRpMj=[:;<{eu'6Htuta+`LnX[4q[_j*{
+g+EFJcJr@U@2sX=YRSpg'6r~R= Ru|o.!NSTHVr}t7!lt{a+t[L!pU@;S8u2EOK/+ ?E'x
+dR6tYxu'EO"fG@>v*`@:2w=Y4u<{m=tq!luHWa$Kt/k  (6!^j/qRnMj=[sxk %Mn`]m5A
+`TEo[5IkYwdDsN#ZtZ9.JYQFo.!NSTHVr}t7!lt{a+`G[EJFYx\<YX$8t,k %Mn`]m5A`T
+pzRA;5Zq,$LQ=Z4u[6.p`O.MOG=Z)nDE71;]b6Sa>c?qQUds\P+y=EAqPHSJNV+Xk~ 2$q
+4=(\@V@7Ol++$wdS6tYxQQ.Mn&#Z_UJy@U\R"bs&_j*{g+EFJcJrk`@0sX=YRSpg'6Gs$*
+pVs3]T+:Dj-WEncLIE9^`B'/@<6+Yx\n+:Dj-WEncLueEO"fG@>v*`@:S8=Y4u[6.pk:.M
+OG=Z?D=~"~LRrD\9E;NM@nGhAN4aA ,b'hBnNhki>~LLYtSC.$,@,d\@g/&?!s^&o3bf#q
+)Y5gj`1<MNWLLe;}Gi[67uP`MVB9VU<{cs'6r.!lju`W0:_z=[f3YXosMxT=8z?!0r`T)C
+67)oRpMj=[,m<{euYwdDsN#Z3yh'"}0rq.oer9#ZsaL!s"!lju`W0:tW9.g.r<"B>"LLpk
+rJGi+/j4'RVlOr6na4Gl'R0~NQ>KS|&;^{em8ced&j&9,"[67uP`MVB9VU<{cs'6r.!lju
+`W0:A<D>h'"}0rq.oer9#ZsaL!JY@Utm=[BCLC0+:3YxA@[c[drmS=JN<-k2Y%&%a<u}u>
+6X:+j[=R,DO-BnO-bCbHhV@kseZ_o<K^YxkTDy\YuKDpipq@(OJbVGX0E=Af+|%]fpd[^x
+-JM'hm-J_Ysp`%DCdV:<6\:+)4o:%>/B^'-MZ %p k yTXi"Leb]A1'Z'skk7S[R-MZ .~
+MFLejmDj#%[I;4nBH8EUZ>i~:)@ZG&nV6@&'.q%mGdi.iU?CL{l5Xotv1|JrQFT3a5n,fv
+La,.=c+[oI\&\uV_h'"}0rq.oer9#ZJP^Z.MBz<{m=tq!l[nYXO# AI.AbGh7;h\Av>1hT
+,YL]Ayce\HT?t8_j*{g+EFJcJrk`JYk`uHa+sE[8dfs!_j*{g+EFJcJrk`@8sX`L[EJFYx
+11RHuIEO"fG@>v*`@:(-qPJfk`uHa+sE[8df'U"k[gJ.i TIfX7,3X>"iRraKq9i_FtYu6
+L!t3L!s"!lju`W0:VqeHABI`[8V0<{JSfstT6i=F#E(:6"n?.cB[-'ufEO"fG@>v*`@:(-
+qPJfk`uHa+sE[8dfuch'"}.N9alCj/uGue,Vh'"}0rq.oer9#Zn,#Zt2L!pU@;S8=Z4Yhw
+[47u=]A"'Akzoer9.E[47uP`MVB9VU<{5E<{eu'6Htuta+`LnXbsJXg\^nbP-p$(tT9.;b
+I-96!w'PGb8c+/SY0xoj-'ufEO"fG@>v*`@:sX@3sX`L[EJFYx\<uHEO"fG@>v*`@:2w=[
+4u[6.pk:.MOGP}`p9;HB%F`N)C@AMr=FM)\7fEYX`D)C67)oRpMj=[uV=Y4u<{m=tq!luH
+Wa%,t/k  (6!^j/qRnMj=[sxk %Mn`]m5A`Tpz`Gpz[4.pk:.Mog.Efce]RA;5Zq,$LQfS
+BcNh3qn*EsoN@61dum;7RLK{"&;&I-96Si0&AN_~#ab5;JsXCzue,V21L5f#WX#.8=[G77
+h\AvCVg&rxt?_j*{g+EFJcJr@Uc?tgL!s"!lju`W0:tW9.(?:|'{'O8$7!?N2;bUjX&0Mv
+,udv_%0&ANWvh'"}0rq.oer9#Zn,#ZiG'6Htuta+Bnh'"}0rq.oer9#Zu#L!s"!lju`W0:
+>aiRraKq9i_FtYu6L!*[p?#ZiG'6Htuta+BnL]'GfqO&^{(Q96VjQ4WL=Z+zcKau\7fE.M
+Um.MBz<{m=tq!l/Bl&0L_5ul$N@:m"-$[H3RG;V;N.'HN"^|DVouiTJbJs2gLN3_/K%@[8
+O1Hg`NpzJc@Utm=[BCu|o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lr1!lu4a+sE[8dfYwUG
+oV=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.MUm.Mn&#Z_UJy@U@6rGAI`GCm?GlC&w"$uEWa
+-p_a,ZL'Nr^{,A%W9lSWGt@-b|9WYx%|Ael&i6n='6f"'6\X.MqiuSL!e^Yw%|Ael&i6n=
+'6so!lon#Z_UJy@U]C6>NnnS!|^&o.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!lr1!lu4a+sE
+[8dfYwUGoV=Y+zYy0PNkE|r}t7R==Y+zcKau\7fE.MUm.Mn&#Z_UJy@U@6rGAI`GCm?GlC
+&w]?MUCVI.q.4'uMi~:)@ZG&nV6@&'.q%mGdi.Am.$,@skt^2DkA[&8h($L!Yxn4<k@21d
+um;7RLK{"&;&I-96(^D]-W09h&Wuo\rII@5xX jmuGuea+PHs:!lon#Z_UJy@UrxR=0^Uy
+/w.~P(N"^|DVNt^{,A%W9lSWGt<{r5.EduLr!S@#@-b|9WYxMAGa*/+4my@?Ol[;b$.ba_
+i6n=<k@2Ol++$wdS6tYxJjYwUU.MqiuSL!Jcf{@3m"I@5xX jmuGuea+`Epz[4.pk:.Mog
+.E3x[67u=]A"'Akzoer9.E[47uP`MVB9VU<{l\'6r.!lju`W0:[6I3Ywu'EO"fG@>v*`@:
+^#=Y4u<{m=tq!luHWa`l[4(zhRH]Lp[kYX.baj4C\S6>NnnSb]jXOC,ZfPcdfp*lJf2g`b
+%OZm#{B9VU<{JS2gLN3_/K%@[8tv[4IkYwdDsN#ZtZ9.JYQFo.!NSTHVr}t7!lu,a+`G[E
+JFYx\<YXDX$uMTj[khhf`MCIuEVO.b!b$-dzLr!S@#@-b|DB*R0_Gd'DN4Vupzgvu59.DB
+"4Up8{&=PZ@XD]-W09h&Wuo\MDqOg)r=I@5xX jmuGuea+PHs:!lon#Z_UJy@UrxR=sa'x
+?rQUX1QAlLoziTJb<C?AM3V7Z]Pt'y`N)C67)oRpMj=[bc4C@7sX`L[EJFYx\<WLUz8KT:
+if\suF0^]:8n'R0~NQ+XLC@;uLWQrsMTZl&j0TME'aVro[-}E-KB-{&lPuIE9^`BY1sVCz
+ue,V21L5f#WX#.8=[G\}^#(P@{PZ/j??$.8}V:h'"}0rq.oer9#Zs!#ZiG'6Htuta+r>I@
+5xX jmuGuea+pAq\!lon#Z_UJy@UbhYwpB9d'oPS[g2]>jN~[mWzHx-5$fVG-%i;'skkb^
+K;CQ<{r5.E[47uP`MVB9VU<{\L<{euYwdDsN#ZV|h'"}0rq.oer9#ZG5QP.MBz<{m=tq!l
+[nYX1E&S+4S4BD,d>>LL8c7a&=9lSWGt<{r5.E[4tvC6H&($Yx^RlQaBrvQ\<{Jzf{Ar.2
+_+=Z+zcKau\7fE.MiA.MBz<{m=tq!lZM/3aAD)b?B[^E }Wq;37+1CM09c19g*`t,mh`fp
+*l3o2>;'I5WDM)e8F4LJl'khhf`MCIuEVO.b!b$-%CNH!1cACBoN0Et}<^Jz"7[8q[Q\hn
+)h^h;-b2uuTt2zJjPLXNh'"}0rq.oer9#ZsyL!s"!lju`W0:t/k %Mn`]m5A`TEo[3Ik@6
+=b`><{(Xu8k %Mn`]m5A`T0:ljuNa+t[L!pU@;S8uFWaM`+YKG#gEupA=hW{0pojlj\kSr
+BB'sif>5I5$qb]Ii>+hsp-Rk[Okw15h|\ \no.!NSTHVr}t7!l58jH'6\X.MqiuSL!7p's
+bBScA1aK.\d-=E;}i)raKq9i_FtYu6L!JSk`uHa+sE[8dfSIigraKq9i_FtYu6L!JMk`uH
+a+sE[8dfg-3Mq5g3,W_<^~P//x8$VXRJB&.b-~.~l&>Bq6!v!|2z }bVh\#CGw,gbC;3eQ
+,_V;-%4&uMi~:)@ZG&nV6@&'twJmU)&[_"[&8h($L!Yxn4<k@21dum;7RLK{"&cBCBo6bf
+r@I@5xX jmuGuea+PHs:!lon#Z_UJy@UrxR=X&;h?Ai)n9Q{VGN6\@e^[k$ kP9D<{jDqC
+@`IKN#7/DNoYUk6>?A\%<{jDqC@`qs[B%Pg*>J2>A<@V=gE{(ZDN> iRraKq9i_FtYu6L!
+*[p?#ZiG'6Htuta+#oLB?ri.fR;|N6sTkeaeqi&k[+rgWb?^@RWy=Z$M,%TyA.<{jDqC@`
+IKN#7/DNoYg-\>'`!taTL~dwA1cVkhhf`MCIuEVO.b!b$-iwc?%d[{+9Z1H['DN4Vupz:)
+@ZG&nV6@&'j-t*5FK/?K/W-8b0Svi.,.@s(0V6L'Z7&> 6H),gbC;3/[JDNo&~BJ)|7`aU
+.dRxTYM9T6rzJmp8JcPL3nPK+JA<D>qPiP,[q^q?&;DNoYdVNHLC@;]LcmFS^wN7WEX0HQ
+o5ag EL~RUePLr;4oIflp*l#[&8h($GNuu_E[}"b@7@ce>B\,o&,Hz/`b,G'[6ug0^/,94
+?y+PPvT6_!Sal%E|(?[+WLttb\lzEsoN6\ca=R,DO-3f$T,%+6K6+{ACE<Vt&q Qs0Wblr
+R#2@e6_%Ne9abFbHFt0(/k'A('NQiVCnEP`MCm*2nW&R*%uqp*u\j:[&8h($L!lkcRGLA(
+]@[}"bUl6>?A\%<{jDqC@`qs[B%Pg*>J2>A<@V=gE{(ZDNm'q[W"[4@1R7%tL]Fo9+26j|
+p1jYljj9rlS=JN.?5McA;HQh)g+}3I*L'=!s^&76&(96uGf{Rn"S&G5H?O(8BUA;i?\>;{
+\4Qa;4g39G@2e(O^.MI~M~9]Qdq[lW[4@1R7%tL]4Y9+t<27l3nQkhhf m[nG22$?vQR0(
+!k@KGm:KMC4FlsGx\d[^%~)h(y`;8}>"LL0S_"]e76&(96uGf{Rn"S&G5H?O(8'Z33uYCM
+dRLDN>\U-r>*c{-YCY2$PbMTfbM{J`e6sdN*WQh3e?ABl# G;x]iWIG30UPU4ElsGx\dW|
+md[k4O;fNP3%Q"*zb;7}G#CgLC@;uL*b?QL{l5XotvJm7_:WG!\nqTPliPfGb07}G#Cg.Z
+#gEuNM,0RLtXWb/H%(,nJp^~0Pe+bV\HBGWxB2-.VIX0,u[4m^byRA`*6~Wy8qsxqFhd[3
+d6N%aI*<,U21uIsm;p(!8IQIX~lp+D\kVY@5Fr4xV]nTkhhf5B86@;L{l5XotvJm4h4)en
+fo;iM\3OiMnOPm$zW0%b_l[^%~)hiZhy>a=~LL:u+/Zki-.ME2Ha0@t%hkMrCT/5T:0]0;
+.s2}$=27o|sxf[hd[3d6N%aI3G,U21u3sm;p(!8If~X{`D\b)(<{s}%g=f,~m"7n`OJP<Q
+7U&*g]<OqS%aMZH<>F-J\kVYh][j%~)hiZhyrEEsoNKQi"^cE[_m,n@1#W`vo[?A2mm!+D
+$~pY\lcQorC3*'e6sdN*P**B`;8}>"LL0S_"]e76&(96uGf{Rn"S&G5H?O(8ReM"Jg1fB9
+62b:iE&x/%A}&l\wE[+/eT\dQ$ec>F*gW0OLo7K T6NAeTCg&MQl>,2]O6MJ!`9Mj[Q;fX
+b75iqW%aMZH<>FlsGx\d'e?ratE=/-#,8}b>6>AqT6q4%~)~_pa<[8!\AGnED(oKf-=R,D
+O-a+S5?PQeqF*_QyN*O|Mek8,N/!aA>c9+eEG2\=e^^nLz=YFobmLOoXX/n_G,@%B*rp[6
+m_OE"ih{7BG0A@=g.^n_% f-J#!&Q:8e9+t<27l3nQ]/Fti!Ann_H}WM&jF+T6W|-$^\j-
+^}@IGmZk)FtSfc_m,n@1#W`vo[?A2mrpW2&7MZH<*2MZo7N+P**B`;8}>"LL]HR6TTnEBD
+U(GH#`[4m_OE"ih{:)g*n9`*d4DL@vn_Sh?UQHfVWDJ.H)E6hrs"3{EX5P,FRkX|6z+Fro
+4G$~h9`KowoW^gZF)dGmfI8FM\fbM{k!g)q|8d-Vl6Cg9d:)p\EsoNKQi"^cE[oKXOoF0E
+t}<^!qAGnE`:[,UT-kGxI1W>6kCA6}p[gOb0i'/M+U y?#,b!V_['oT:$AoDcMRA]c4@S;
+Jb(u?r=EM+BLH"967Y.%5AgBSnixnmQ:8e9+\dfi+Fr_4G$~h9`KowoW^gZF)dGmfI7e4.
+Z>qT3{>BN}[$\U,P-a&W/D_e[a4+uMTIBB'sifqHk@f)=R,DO-a+S5?PD8c"Ja5d7++F*'
+8*+FICl3+~3}IKt`-cAr%Fi7<NEgVtS>GtgM.c`DS}1,+)A-219fVEs~.0[.Ji1fB962b:
+.LV`(#aT[Oonn/`,v#,,]F8\+0$~[$m,Gx\dtR4yV],"-C\9E;(6OjH<>FlsGx\d'e?rBu
+9";C-/3Q\~W|-$H>^%Gf[6Gn0M=ZirNR_Ii+=R,DO-a+rqZrWz.MTA;C=NVz8)ARp"VqQ5
+5ZuMK%<Qiwa\G1s+KaoDYwMAhL)M.~]j&1O9bC,HZ[W{4#G;Db9p'9A,uLCM72N_+b,?-k
+9gXA0^iP2lFKZN1@W*p]NwoYC`m^USLr4-uMi~_nV>MU<{*dLtIF9^`B'/@<;JfNJkrG;"
+VweifG8FM\G[*2MZo7p!VqQ55ZuMO)NP^,/j-VM3FhDb9p'9A,uLnXV%,nHiM{6l4.Z>Qo
+iPfGQk%#JxhEM+_WoD0Et}<^iy%\]pckhyN*hw/M+U yTXnEBD?RLL:u+/Zki-.ME2Ha0@
+t%hkMrCTg~>*c{-YCYDjMwX}J. 77xYw^RlQaBmQO$2{?$0|e&)Ms!Wb7I,[Gk&S.3Nl&2
+J\e6sdI1^%Gft_A#f@?fI5IF9^`B'/s/b'VJ_NrJbD4C29r97Q8Ks)b'ZVR3Rz@qn6.^W@
+M)JM^ZE~K4&<M5HgNk&?'}>d9+[cH1td]hIHhTQRJ+b^h\=R,DO-a+rqZr,ot7O'/xt~F~
+Fr[#1\ArrqZrWz.MTA;C=N)-N8(VM0$tQHd,2}c?TGRsC#KPs_hYSH@e@o,bLaT6"P`Wtb
+'|&kfC5%A?oI.h&27Vk`IH6G$un;/r_eq9ehe6_`fTQ5he&qG1@8u:<=MEV`bm+;au,Aqc
+$fqPB^,d>>*sJMGcBGhqS>8eV;X0a<[8A|$1liW|ZqaXq5<GRS0ePDSJVtPHc*MS^|&N,u
+(X7R>%bUh\04_"-5lW5@M=V`bm+;au,Aqc$fqPB^,d>>LLE*PHZq/'ab4C,3bFPva<[8id
+0gPDSJ^|#ab5;J^#)Ft7O'/xt~F~Fr[#1\ArS5?PD8ml l[nG2k8h`P?1Gde/g]7l[`K_f
+bUh\04_"hPOmuDKI<B?AM3V7Z]Pt'ysam~ag E z.rao_NbP#/JM3O+/27j;p1jY\@V?a%
+=US.[q?~L{l5Xo.p:-,Mbci`\suFugI(JX<Q4";*IMTT5Te_RAE/%,Ak :J@Q|\$"b@WH 
+7a&=nC_/b'H\]xpA90505go{-~jKiU;/@RD@RAs!nI jF*aZBK[cD-ViqZ\UZX`L.8U,-T
+4f[6d6^~(VqT9!T;e]fd`6od90]b"U0uta;p@Y/f6Y8VBkSFH<td]h0&AN_~#ab5;J^#9V
+i$n]mt90]b"U0uJ@Q|\$"b=TBkOn,Z&&/&A}&lGBagN^C,>W3Jo[PFUDR3)z(DAqCY%FWE
+M)e8 N:<'h9lqyPlG?#HD@AkZpt|;p6o8]/o71ciRA",Gb(A8*3]b=s1g0nURA*48bHJ,}
+]/fOsw[/`L.8U,-Tp"90L1^{$0,%TyA.j|p1jY-'IF9^`B'/2Nr;r%Wbi{LE(J`;8}>"LL
+NY[<oZe[)G96,,e#VF&H\6E;(6p+]P1>1%LB!$dv/5aAR#E|i?5Z.&A=#5UB&)ZmKS:)du
+'A`Q.8Xg#'7ScVsw;p@Y/f6Y8VBkh{50tAos`LI{=W@6R7e`&is,Wba3?MM3Q-eW0VpYs3
+E<AN4aA ,bZ{aXq5<GE&D't1\=#(q:ehe6:.V`*uK6td,5fJ,A@;e*(U%T0V!@!|0aX%BG
+/B#iLr#hSZbCPvWL56jHoQ;}R~-VMSHg8FNV+XK6acbn."9I7G.bAG/fVI[m)Lps4)uM>s
+=xepSB8e H'A^B#ab5;J^#Z'n#dk,B 4#`f8eqm,1a#*iiSJ/_*plE*NnajVf.+ q*/rPv
+T6T:\9CV6I8dnSuP&*n@Q;[8m_OE"iSFKjL)SK/%A}&l72XnL|'JkkiE&xV\1c[FGZVE,G
+EI7iTnth2!OdrgMiRk&j??&'oiUnPl-3 1u|&VTn 4u1Y#GHNk;b(0"}g3&*VhGk/(QL+i
+I|X$GZ5xL#ae_N7/DNSURsC#8FVR[T3s\N"b'ZM;mNkhhfo|MxT=8z?!0r?vQR0(!kJA0Q
+<)8`9IM5[MPeOt6V8`/no:Uk'o@V2Ih>*]>dEwGhZ@%-`n5Z_wMwT=8z?!0r1\/,=~LL\'
+A/]icC#$im2/Ex919s0X@eQ(K&Y.$!CT6IKt6AQw!]SiVl2ycc*lJfW~[R#&l=\:'7F#*.
+$>[i\7Qa;4g3fpR>hPI.97HBV<R*)yc\g)#nLC@;^Cr[$/27Gl?vQR0(n|TPrWA((/5R@5
+-Y.$_5#ab5Q e"0_h|h|IF9^`B]5J7pv2!_@ZPh7Ukp%t`uZ!%0+&l'"ZU.~!O69t=>,]h
+76[R^~76]p`CsK:)>,c{-YCYAN4aA ,b'hbBGWA&*sK61A3vEx(?DNL& }TXnE'IbB'7,^
+0KExj":.a%23NQ)k%#JxOl]1tb8moR$s?D-VA)!qV[ZqT8T=oC0Et}<^JzfstT6i=F#E(:
+6"n?.cB[-'l=U<>a"nfN*u[F-p_a,Ze _!.\,5,p8KT:iffJeTi+fp*Zp?P|`p9;HB?P.%
+?B<E6jRDJ>nDFvi!ur:%21L5f#WX#.8=[G77h\AvCV7**[p?v2G fdJXg\^nbP-p$())%n
+Gdi.,.oZZTPtSC+WD]D:7*3RAl,7[?QI?]LLn)t-3{<{6`^{P2%Y7MT[.WoIUea<[8Jefs
+tT6i=F#E(:6"n?.cB[`:OcsP.h&27Vk`T3a5n,fvLa,.=c+[oI\&\uCRtWbG4C]D%]Vf5l
+@V;bI-96SiGl=:8J9aPv2>]8CRtWu:/+ZL$HqPea#%.oWM'vGb1$RL7?,38cB}$uMTj[`]
+rLQ\hn)h^h;-b2#c7!?N2;s&Di`Lsgm~uc4S*Qmz90Xe=HQ-aC[;&w?pQH6#bTjX&0Mv,u
+dv_%0&ANWvTs\!&+=_8d/naAr/J&U).MVK?M8)"lVqeH';Gde}khhf`MCIuEVO.b!b$-V,
+r:RL1=i;;/@RYu9Vi$[*aXq5<GuV8moR$s?D-VA)!qV[ZqT8duLr!S@#@-b|9W*[O~0]Uy
+/w.~P(N"^|DVNt^{,A%W9lSWGti;;/@RYu9Vi$n]RA;5Zq,$LQu2.-Nu`e[4(zhRH]Lp[k
+WL56jH+dKLRWpd_!<*^dXjMU.R#lEuR13X)eGmLC@;uLWQrsMTZl&j0T1)'"&0IuJ?)2[6
+J+b^h\=R,DO-a+21L5f#WX#.8=[G2>Qv(,D#g&rx6aHgn_NSHgDRPHSJ+idwLr!S@#@-b|
+42&:1.$*)j,ZR#E|PH]d\nG'ce\Ht_2DkAW|h?CIaZBK[cluEsoN@61dum;7RLK{"&;6L'
+Q|)z!gp)f(bGVfQ5[&8h($L!DC"4Up8{&=PZ@XCfEp1"aw*~?V^^(<Q{6>WjpAaLs+,qO#
+89h~)>/E7Oi";|4L&ZMN;3&RD]#yEuA?5]\sCOth[M\uW@!Q#Ok~ 2 MZ\-q?B9bPv2>uP
+Sw*!ba.ME2Ha0@uFm'0x')j`?Q>GLLh3NHe8FT!|9MVGN6Bf$*SHBRW}KT9\[+WL5ZG_D\
+V.rJ8R#|T;lI"^axa<[8JefstT6i=F#E(:*f&Z"CPLfehf@kseY>uuWQrsMTZl&j0T5M-5
+$f*bW6.+#<&rqPi%VR"u*q y?#th'I-~dt_%sror,{(X7Rs*'T?rat0^@ h3GiIX,b.s2}
+$=27Z+$HqP7s'sbBScA1aK.\d-=E;}(HA:D>12U"&)2A<y`2[FpkrJGi+/?);d^dSEcE)k
+Vd&;>]?OLL/b>>I5V#C#?V;-$0mR>:&8DN^@j-^}he$H5KQx,Z*~a2qPiP3l[lrmS=JN.?
+`XCIuEVO.b!b$-PNfeh6O8-jlj[t\u9"#wIM?@1"&lPu2>(cRXVEIin[90>q*09]['%g8K
+:+j[&d8A.br{90>q*09]uaGgA"T NwB[do9[dE:<6\:+.Raj4C!xa<[$DVnD-}b6IiEr@r
+t #Eh`tNf{/n09g(YwMAQ-eW[a.ME2Ha0@_p7!+W27GlCVi:NzL%@iaZBK[cluEsoN@61d
+um;7RLK{"&D{lj"q=}Pgh3_H#ab5;JsX-$[H3RG;V;N.E&u0*b5W/eRv&[l3e&DVQ20I$(
+f6a.=+#/K6_/QNA1-Y'm`=7G#O\@P)+o@j'BdW:<6\:+tX5Fs75AcAU"c@Po0]]:srorQH
+Hnsj#-27GlB;b?a<[8Z/]<E/oY#5mR=R,DO-3fm=bHSaA1Lz0\h5-XCY>W]4%naLg)&Q??
+Q2bUh\]/tb1Z4#O-v%m'L~dwA1cVb|ICb 9E/Q_e2Hh>*]>d;-G'8="P`W4~JD6'11aw[&
+8h($GNdD^e0_@HGm'?bT>2VEX0D)hEh.r,BE&10^]:[qUK0OQL p.b\$-MO5!! yTX8PX 
+G3;@$uah E$>.1V<5Z^V;3Bnj]gvu59.Yw%|rrP G??d/G%@[8ug0^/,faJbf{PehmKTMx
+OfH1td$Oli.c9?Z*rkS=JN<-[BJ+GcBGPY>3=~T '|DN\6E;AN4aA ,b'h?r)4o:%>/B-V
+^^,.K6ac08.~aA5Z8Fi)[)B[g.r<l&,S\@ZF945w;2`2JMGcBG=fNZ1.bCq-eh#$[dAj>W
+#:bnfTh1%!Jx`Uk9<T@<-Ynd.h&2ba)rumJD;~J{VGX0PeW|IBbC/5o:2Hh>EX`j?N`l]0
+].u3i9L^9dZIZ'n#dk,B 4#`/!NN+lfDco+!+$alK6dTWME=8FH(+l.~pL.#\Lk9<T*fGe
+^%]<-KM'[&8h($GNeCtF[^O2Us-KM'[&8h($e^&da^=R,DO-itB|uu&PD<tODp>=e`@6:v
+pvVe=h=~T '|DNL&Jge'P+lK`[^Dkw15h|]1].u3i9L^K6ac4<>2/A\$"b/vM'B[ 7Rsj/
+TI&)?W x(< faZ?| s181GH) Q^}j-o.s"iP-dpA9dhI@kse:?`}C!W6O,n@b`[O[}%}"n
+nSB=jW&da^oQb|ICb 9E/QNNo0b,5g 6BcGmkq0^h|!u!|2z3\E`.bPQA93]?WN~'Q% ru
+;EjLSJmO^c4$uM`5DBVu^b0_?$L{l53*!6hco~Q|s;W|'7bT@Q-Uk4D)s0nA'IhTh.r,BE
+&1 N$.=HRV[{"b181GH)VGX0hm5Z8piCW&#.b2;}& D_A9D>DjZq@di}7BG0A@S=nEp2s3
+h?>X,Wi@=R@A"g!mStbC?ERA\QsWrljd>F^CT=G9,g_<^~]s@fSDA#[cQZ;|^^W|-$&uGd
+ QE.Z><qTFT3a5FEd)KCsY90L1^{$0,%TyA.?vQR0(!k=\f3YX`D)C@AMr=FM)\7fE.M`X
+.8oRB<cO-pDatVL!JYQFo.u"$PRqMjv4R==Y+zcKau\7fE.M`Xt>0K[6IkYwdDpk#ZtZ9.
+JYk`@3sX=Ysxk %Mn`]m5A`TpzRA* r~!lu4a+sE[6dfYwUG.Mn&#Zt29.Yw%|Ael&i6n=
+'6@<rWAdJck`@3=bJh<{i9<kr,!lu4a+`GcmraKq9i_FtYu6L!Yx^R;e-9s{O9`Lpz[4.p
+`O.Mog.E`eYw\.YXFzem#$!g!s^&YXt5R=$X>(Yw^RlQaB,p;FLb@8G<-~Pd7#(9NjQ*7#
+DI,cG3D/?cNB78p4+`&H[dluEsoN:)ke^=B$5atwWbER.OVPa!23ixhh=R,DO-a+<{r5.E
+[47u=]A"'Akzoer9#Z[9]OM$nCK{"B_Z!.`Lpz[4q[_jUfl!\7fEK*QFo.!NSTHVr}t7!l
+=\JsBE<{eu'6HtuTa+`LnX[4IkYwUUYX`D)C67)oRpMj=[uVf{LBJck`@3=bJh<{i9<kK5
+=ZB'<{mvUE&)#O#gEu<{r5.E[47uP`MVB9VU<{@0<{eu'6Htuta+`LS}1,+)A-'6SDNVN[
+Jgf{inM2HY,}`Nfq>k,o?V%k?"^OYXt5R==Y+zoO)jn__I>n*`@:m"I@5xX jmuGuea+<{
+KU=F!}@C<{eu'6HtuTa+`LnX[4q[_jUfl!\7fEK*QFo.!NSTHVr}t7!l=\JsBE<{eu'6Ht
+uTa+`LnX[4q[_j*{g+EFJcJrk`.M4!og#Zt2L!pU@7S8=Z!fJb;p@6rGEsoN:)ke^=B$5a
+twWbS5bPC.Gv'DN4Vupzgvu59.YwuuY#Wwq<iKuHa+<{mvUE&)#O#gEu2;=ZFobmLOZ#!e
+($RoNnV D_,"Vt$-+P[)%g8K:+H,tdo::)ke^=B$5atwWb?^3_Gr'DN4lK$x@<6+Yxu'a+
+<{kEW|B5<{Jzf{Pe5ZuM"|E02H0KQ"dtG2+\U{94?y+PPvT6_!Sal%E|(?[+WLttb\lzEs
+oN:)ke^=B$5atwWblrR#2@?PL{l53*!6=\f3YX`DpzRAPj;biCrv!l=\?D=~LL%h_"r ?A
+N"n/T:?|+PPvT6_!l%E|nEt~$/27`ML6=[sxk e}q+i6n=`_pzRA@J'AVEiF'6r.!lu@L!
+JYk`J`k`@3sX@=sX=Yh)YwUU.M`XCm*2nW&R[6$&uEWaLC@;Jufsuu'?AF(h@<Di#rfQ!b
+$eH~up+1rmS=JN.?p(?*t($p3Pa%5i 6"CR9N>a2I~@6Di#rfQ!b$eH~up+194N(QHjV_G
+&N"Q`WukWQuV._bl1Q`XCm;;(<ZsaXq5<GuV(}`Tcmra f#[g)H]]^5A`TpzRA5o-a\".M
+n&.E[47uP`MVB9VU<{JzrG@w@6sX=YRSkB'6r~R=uGWa6i$s09PU5Z]5F5m^OmbDNFa2I~
+ag E93#}iHgvu59.Yw%|Ael&i6n='6@<u:S@=Z4u<{m=sP!luHWah_YXt5R==Yl[D+]u5A
+v*.M`XCm;;(<Jck`@3sX@>sX=Ysxk %Mn`]m5A`T[E@7sX=YRSpg'6r~R=@B<{Bks01|Jr
+QFo.u"$PRqMjv4R==Y+zcKau\7fE.Mk#'6r.!lju`W0:[6I3Ywk+YxUU.M`XCm;;(<Jc@U
+oO.E)fG!KsKT L/Q0G,?W}G8!RJd"7[8q[_j`QV`'r^QtYu6=\sxk %Mn`]m5A`T[E@7sX
+=YRSpg'6r~R=u3a+v/a+hh<k4.uM`UCIJzNj0b$D[9(z&n7\jP=R,DO-a+<{r5.E[4tvWb
+%KNS9j@7sX.EZ7id^5g/G'6i$s09PU5ZB:\'f'`:7OtgNTlNbf==iGgvu59.Yw%|<|SCbP
+^)tYu69.Yw%|Ael&i6n='6@<1v-]O9`Lpz[4.p`O.Mog.Et19.Yw%|Ael&i6n='6jV'6r.
+!lju`O0:[6d.Ywqe9)`r1\9j[8d6.1 ifU\ o.!NSTHVr}t7!lu,a+`G[EJFYx\<=Z+zoO
+)jn__I>n*`@:m"I@5xX jmuGuea+<{!+Vgc[YwUU.MqitrL!Jcf{@3m"I@5xX jmuGuea+
+JWk`@3=bJh<{i9<kr|_j 1Mcb0.ba_i6n=<k@2Ol++$wdS6tYxuuY#6wA2tXL!JY@Utm=Z
+BC<{en<k@2Ol++$wdS6tYx55<{eu'6HtuTa+`L-w[67uhh3Vg)H]]^5A`TcmraKq9i_FtY
+u6L!Yx"679Q"=Z4u<{m=sP!luHWa`GcmraKq9i_FtYu6L!uJa+`G[EuQYw\<YXocI@ C%1
+N+=FM)\7fEYX`D)C67)oRpMj=[uV;pMpbDrz!lu4a+sE[6dfYwUGYX`D)C67)oRpMj=[p1
+=Z4u<{m=sP!luHWa`LnXkhhfT3a5FEd)KCsY90k&<~6jKlDG][fR#.j[=l?:L{l5Xotv1|
+JrQF.M`XiS'eVl#F)Kq}B8?pMvJgia=YuV9.o6s)/Tu/T=VOMTS7cE*l3o2>,xl@_!G F\
+BRGW[6V0<{JS2g\ZIor}t7[:q[_j/XC:&lGBr}t7!lt3L!JY@U`Mpz/H&:l'EPcba<rzR=
+u3a+u'a+`GcmraJPMCdS6tv59.Yw%|Ael&i6n='6n*#Zt2L!pU@7S8=Z4Y<{JS2gLN3_/K
+%@[8tv[9IkYwdDpk#ZtZ9.JYQFo.!N'7W{q<E'JcJrQFo.!NSTHVr}t7!l=\$MNR+m[6Ik
+YwdDpk#ZtZ9.JYQFo.!NSTHVr}t7!ls>!lu4a+sE[6dfYw\.YX 4[6I3Yw99Yx!!`LnXkh
+hfT3a5FEd)KCsY90k&<~6jKlDG][fR#.j[SBZyaXq5<GuV(}`Tcm'6@<Di#rfQ!b$eH~\7
+[#b&5CJV<{Jzf{^wJ?O Jp2nr9Pl;{=}LLMXMFLe?)2^eT$n$>E;<{r5.E[4c!h7EUJcu}
+<{JS2gmFe'A1E8JcJrk``Gpz[4Y{=Z4uM$A+Ipp-Hk(/Jcf{@3=b@2sX=Ysxk e}q+i6n=
+`_cmraKq9i_FtYu6L!u4a+`G[EuQYw\<YXn".E[47uP`MVB9VU<{tdYwUU.MqitrL!Jcf{
+@3m"I@ C!mn__I>n*`@:m"I@5xX jmuGuea+<{!+Vgc[YwUU.MqitrL!Jcf{@3m"I@5xX 
+jmuGuea+uOa+`G[EuQYw\<YXoc.E`eYwUG.Mf~.M 8[6I3^%rq-$p}?.1"U{uV;pd%A8_#
+#ab5;JsXCzue,Vh'"}.N9alCj/uGuea+<{6 =VAm<{eu<k@2OlZ9k,uGueYxu'EO"fG@>v
+*`@:sX90)HtZL!JY@Utm=ZBC<{en'6r.!lu4,Vh'"}0rq.oer9#Z[9]OdgYwUU.MqitrL!
+Jc;poO.EtY9.MT)g@R*tK6tdNTlNbf==Sq.WLVA$GW[6V0<{JS2g`bfDSDbP^)tYu6;pd%
+A83w<{JS2g\ZIor}t7[:q[_j*{g+EFJcJrk`.MEbog#Zt2L!pU@7S8=Z4Y<{JS2gLN3_/K
+%@[8tvWb"OuHa+`G[EuQYw\<YX 4[6d.uiEOdVSxbCjPuGue,Vh'"}0rq.oer9#Zt"L!JY
+@Utm=[BC<{en<k@2Ol++$wdS6tYxD$<{eu'6HtuTa+`LnX/H&:l'EPcba<7_Yx%|rrP G?
+?d/G%@[8q[_j*{g+EFJcJrk`.MK`;CAm<{eu'6HtuTa+`LnX[4q[_j*{g+EFJcJrk`.MEb
+og#Zt2L!pU@7S8=ZB't[k  (6qA('Akzoer9.E[47uP`MVB9VU<{Jzg\VV0XuGa+`G[EuQ
+Yw\<YXn".E[47uP`MVB9VU<{Jz\q@]@6sX=YRSkB'6r~R=[mYXH<tdo::)ke^=B$5atwWb
+S5bPp{\C[&8h($GNuu$N@:m"9005NkkbBQ`T)C67)oRpMj=[rsYwUU.MqiuSL!e^raKq9i
+_FtYu6L!uZa+`G[EJFYx11@6G<n<+DWx[{"b@76+Yxu'a+/-#,8}[7m_OE"i=p$z'b9e17
+<{Jzf{J?O 7}RNo3@66+Yxu'EO"fG@>v*`@:(-[9IkYwdDsN#ZQW=Y+zcKau\7fE.Mk#'6
+r.!lju`W0:t/k %Mn`]m5A`T[E@8sX=YRSpg'6,x[83]/Rf'>BSD@Bte(}`TcmraKq9i_F
+tYu6L!uRa+`G[EJFYx\<YXBv+mi*gvu59.Yw%|Ael&i6n='6q=#Zt2L!pU@;S8=Z4Y9d$S
++YfDcokaL7?O>/0rh_YXt5R==Y!j?E'xf"r>I@5xX jmuGuea+Jhk`@3=b`><{i9[47uP`
+MVB9VU<{bR.Mn&#Z_UJy@Ur(_j*{g+EFJcJrk`.MTA;C=NtXL!JY@Utm=[BC`LnXfB6i9[
+Ab%Fb08cE;?%UwaBbP#/ohCzue,Vh'"}0rq.oer9#Z[9]O&oH]\!.Mn&#Z_UJy@U@6rGtR
+1|JrQF.M`u.bL*SrufEO"fG@>v*`@:hm[6IkYwdDsN#Z3yh'"}0rq.oer9#Zsi!lu4a+sE
+[8dfJX2gLN3_/K%@[8tvWb&S.3Nl`Lpz[4.pk:.Mog=Y$MoD4>6Hi!<k3Mn"!Q s y)M=N
+Z,$?!XNv_n6@:+j[7Q[@^Aj->]DC"4cB-b!$ke.M`u.bL*a@_m,n@1gctu1|JrQF.M`u.b
+L*a@Jr2gLN3_/K%@[8oQ=Z4u<{m=tq!lU(o.!NSTHVr}t7!lu L!JY@Utm=[BC`LnXfB6i
+9[Ab%F`NL6=[sxL!q$(CQ{@8e*(U%T[a)u/ESKBNYwuuWat_'iO|.fh1`ML6=[sxk %Mn`
+]m5A`T[E`Rpz[4.pk:.M9q@2Ol++$wdS6tYxII<{eu'6Htuta+myI@5xX jmuGuea+Jlk`
+@3=b`><{Sc`TnX^*5YC6A&K5p5Czue,Vh'"}0rq.oer9#ZsI!lu4a+sE[8dfYwUGO8Ae<{
+r5.E[47uP`MVB9VU<{bR.Mn&#Z_UJy@U@6rG0\2/NF6n,_L'$SGiBGcL?{Yxn4<k@2',G?
+?d5EnFraKq9i_FtYu6L!uRa+`G[EJFYx\<@3Ol++$wdS6tYxNn<{eu'6Htuta+myI@5xX 
+jmuGuea+<{2LVgZ|rz!lu4a+sE[8dfJbf{VOMTS7cE*lN*QHjV^*5YLONk&?i;gvu59.Yw
+%|Ael&i6n='6@<Di-`q;Ak<{eu'6Htuta+`LnXroCzue,V<{KU=F!}LKufEO"fG@>v*`@:
+hm[6IkYwdDsN#Z3yh'"}0rq.oer9#Zsi!lu4a+sE[8dfJX2gLN3_/K%@[8tvWb&S.3Nl`L
+pz[4.pk:.Mog=Y$MoD4>6Hi!<k3Mn"!Q s y)M=NZ,$?!XNv_n6@:+j[7Q[@^Aj-)HD-r_
+R_Dze_U{h*2PY2u0c|\OC$f,]s@fSDA#[c"+mX0`Jj#&t}ikWKB][8p,:'+cLr;3Q]RS@y
+`l7v&(ba.$]fa*21L54u^!O,1\]b(#Ezk\K^QR0(Ik[AWX_. bdeYo]72)No&~6X:+=cMS
+ Q)H8A($X3jN!ghg$HsYkW[qUK<+JJA>Kk"19_`Bpx`yQwp."l04JuEJD3'I-~M1T6[G$p
+!$2pPb0(:0^g#P[9(qp|`yrqZrWz.MTA;C=N!%$CS?JNk\K^-Zj'%Z@H?UZoZW=fW{(8DN
+a33E$0kC6>`B2JnS.$`XCIa1!(hg_"SA-'<F'C4u(+N4+jBz))t>.d%IZ2_^]o2)No&~6X
+:+=cMS Q)H8A($X3jN!ghg$HsYkWIH6G$uYx5I#SsV@L,DO-UUDEnVZu5e\<YVo}:'+cLr
+;3Q]RS@y`l7v&(ba.$]fa*21L54usV?v;/au5tkPK^QR0(Ik[AWX_. bde@:j#T/7G#OVG
+-%.qatKCOn,0O-<)E7K~DC"4Il[A?_\%ucp|`y8h($4uhkfv?VKLBB<wifT/7G#OVG-%.q
+atKCOn,0O-<)E7K~DC"4IlEkVD=p<(R-!E$CS?JNk\K^-Zj'%Z@HukjthF.r;}$,27@Y)b
+"(Ea+/@1T@G9'"@<1dkcK^puQ;r'`g!(,o@1sW@L8{H'!FS5=JD9D3'I-~M1T6[G$p!$2p
+Pb0(:0^g#P[9(qp|`yM&A/:+<)%W1M@pseKp"1VLEY6MKKtMg~5B2@e%iIhF.r;}$,27@Y
+)b"(Ea+/@1T@G9Z5]<Q_7s%c>,Zu2%QMU3H`8S"x=d=0h\!",ZV'=hNN^|KCh3/If=.wY/
+9&eG9I1Qiy^5qyAX.^KJQH h`&T:lIGc,}[}?|H0OnG[/Z0s,D&)VfXWB;"*?2Zr!kZ[J.
+43S9u%rYF%"#(R1UTCBL s&dFnPi,m"N0<3v#c+=-N@ZuEa*21L5BC[8,GQ(LSh3oE$PWN
+-<jpQ7aFh)';GdKC8cn2'IVf/fkQ]/tb;pMpbD]E.MV+.j\",AK=[,B[3*?NNBDT'~jd+z
+jWdV$4Bphu,8u}FoPi,m[R<gKl8cut$2+1:ydW$439r8N? ~sX90*w&p(Kumk_.MV+.j0v
+uEa*<{(RhTAF*2nW&RsV%=M,7R6]Hg8FNVVcg'.Mj?*8cWYw]q+;uGCMA\%\Jcg\4Dfx-&
+@6R7Gh1.lrR#2@uFnX:)+<uGY#LmrzWbM_+;uGY#[GR}4E$(o`90DA+N[6ugW1/vuGY#[G
+R}[4I0+i[6]O&oH]\!.MEbog90% tZf{T3@l<{Jt'LeX[a.M:wtU;p@Y/fUhrtWbLJi5RA
+",Gbsl[|`LS},WGlQsbQrzWbPBi9RAUoQ.eW[a.M%BaUYw1%ZrmX;"tU;pV/rtWb+JoT90
+[8t|0v5+ScY8q0^)G2r8m~L\h|#GW]G~MCpAblV:h\/g'HB12^K}u.a*<{6`^{P2%Y[A.-
+`XpzJW@U(XJu=:8o+y"qZ1hU)"8fed\O_a[{B:M>&-95S->*2]eT$n=ctkWD>s(Va3W=o[
+c#W7B;5=7E(A"2p;/z45>23uG`dC7C)x&l72uV\ML>L2!6p/v)kj0&fTsWtt"u.e*Jm=7=
+]LKn`ogM`^4u#c9{b*3c(\Njpy=^C3+M*):9;3KwTU &o2B1[8<qTFIF 5L"e%A1Zmd;>8
+IkIFEBZ>j<E-Em#H X'P?r`S6T:+2Vh:.H""$]Z[ H*qDes&l"ua_yZj&)h*>]u@'|DNV8
+*)?rP(6zJ[/g&l72X0Jxnqb,&xpsUb\R"k`T@:VE-%iKh.r,#P[3$/X 0.?v#wtc=A8$Br
+bT&J_z,)E|'76YHys)+PPvT6jrCaZ7O,1\]b(#Ez=N\{iV^5<$_-;J'hm\jY0gsh(?DNj$
+FM"C0[&l5hYxrqNP+X5IMk1-v+P,@%KSp,v)kNJ>M~W@-%]o>Mt4u@'|DNV8qPE,Y*n-.|
+6UlmUbUt"UC[+j&H[dluUbKA=[oN&k72Jr%ASLK%c10"5is1v/I"*8X8O,9abFPvJA z@:
+[8;2&Ru65FUOu>H/t #EEIu4TsmtI"TT0&0R&w72s1#lJrr_?v[cLU'mNH27:/6?t7O'/x
+Y/@;X^bZ]k8ZHi83ky.NM3qs0|Lt[{74t7O'[$JA'k[IAC0XBQh(B?I|a`;/0rtcjrbc]0
+F5X)H$Vu/Qo-]Pt]'id1s@.3+gueo)_nA1"u)6o:%>/BcLui2WGlLeqsUbNj# Z8O,9abF
+PvJA3mVI_NbP#/2$tc/W@\bgA1e#^}APq;0_h|]qiX*2N!4)I|thL.BBMYtc/W@\bgA1om
+fM_D,)?VU|h'IHbC%k2Lh>*]>d;-G'8=g_mLbHSaA1p.?2)zU6J?M~W@-%]o>M18PDZq/'
+[|EKcb)NbN;3UA@9E\.:0.&lrM:pc^&IGXQXG6A@`po[EUcb)NbN;3UA-JM'JA]a"M`T=3
+E.oE u#[1SNQ^k.LBmpyoD_4\mFP5x-sJNk1Z.&[6Y:+Q(h>6 -sJNTP]/A/-YND:0j%Ww
+%C?50'%q s:s"nRzJJn)dc!zf&.M,tb'Ix\/:P$027]N4E%kc.uiRSs>.s;}ss$-n/`rtc
+K'^W |n.'6QUl.`'>'-8M3T6JrW~[R#&Vg[Z$/270AK m=JDNo&~JR6X^^pt50@?u#'|DN
+su$-n/-_ #`TPZ#L*[X7ZF(;NQVcAN4aX7ttb\Aav dDti'I-~u%M1G'kTJA`^?;ucTkeP
+H-s3PKrqNP+XNM A&C!&"0)71<r(V]N9G1 hj(JqJ: soM!#Ikhf1_  ue6 -sJNTP]/A/
+-YNDjt,q,N& < "aZe(#N$KT-I!G9M`@r/mL@8VEX0P(=;SJTB[mJmM*T63uv0GTn_.$^Y
+/djPB(((!1)71<r(V]N9G1 hj(Jq!qU+"tt23~ ]K+=[0q+4ljR-G\AC[c\eDQ]w`dRAh|
+Y*LKhM$!b-5i&d c,fk;t2Fe[7;2<(8$Yh9d:1i"`Q6T:+)zv3^tG?R-jG'qE81$$$ XOf
+(]t/fI7,3X Dp/5H x:U!Ju4U* >5UYxSS%YqPd13m0ah|iM f[nG2Usu>.qpG=hW{qQ(;
+f(KPs2v/ "Jr+ &y57:8>W0W&l72\Aa*Sx9Z*g^J@.+c!gUg%]/_tue{('5UDC+ &y57:8
+>W0W&l72DC"4Up8{&=PZkc76&(96rd[B%PQT0l=nW~%C?50'%q s:s"nRzJJn)v5S2#vtd
+HEmmdc'l  ue>XcHLpPH<+h>O8bCfL6R[bX0.$cLuiRSs>.s;}ss$-n/`rtcK'^W?;  [8
+Ac6Hc?.%o:bfA1C6VD=p<(R-1UPDSJA?v dDti'I-~u%M1G'kTJA`^so/zh|qU(;f(;@ &
+JrR?X4PZ#L*[X7ZF(;NQVcHJcht.Sf5OF^`=7G#O59+<??sUUb0/Ry +u5L!;gt|2jD)b?
+;3&R`u8ce[@_v dDti'I-~u%M1G'kTJA`^?; Nr2k">FYdSS%YqPd13m0ah|t8Jm/WtG=d
+jX[R9alm0WUy kp/v)mrl^_nA1cVA05]7. 9u5L!;gt|2jD)b?;3&RPMFE9d*g^J@.+c!g
+Ug%]/_tue{S2dWmFFb3Ahf-XND-I!G9M$8f&.M,tb'Ix\/:P$027uf*b0bK m=JDNo&~JR
+6X^^pt50@?/]RydWmFFb3ATkOzrqNP+XNM A&C!&r2#Z8jq2k.Z.&[6Y:+5I861LK m=JD
+No&~JR6X^^pt50@?/]RydWmFFb3ATkePmrFx^W?;u#'|DNsu$-n/-_ #`T#Y8jq2k.Z.&[
+6Y:+DxZF5<]I+/tG=djX[R9alm0WUy kp/v)c(IHbCPvbAK;N< Rt4!lWPscEVh2NHVG-%
+2Lh>*]>d;-G'8=g_a@oAM+A&*tNM A&CE]u43B@?/]'nc#IHbCbHr@dcmF |)yoN&k72&d
+ c,f",KGb}OIu2n?V`)kK=s2*cUq2@IihfJXg\.%QL6@$*  `T#Y8jq2k.Z.&[6Y:+`Ti'
+av@4Di-`q;Aknz@_G`a`0RPUbAK;#1]yudTkeP %ue6 -sJNTP]/A/-YNDhf_"SAn:/r_e
+g_a@oAM+A&*tNM A&CE]u4 Or2#Z8jq2k.Z.&[6Y:+`TVtVfuXnXV%bduiRSs>.s;}ss$-
+n/`rtcK'^W?;/]Ry#vUu<{9iMwsrB(U"(@DNu7'|&kfC5%A?O)u>.qpG=hW{qQ(;f(KPs2
+v/ "Jr+ &y57:8>W0W&l72`;SCbYuiRSs>.s;}ss$-n/`rtcK'^W?;  [8Ac6Hc?.%o:bf
+A1C6(#g)5%A?O)u>.qpG=hW{qQ(;f(KPs2v/ "Jr+ &y57:8>W0W&l72`;OcS0u>.qpG=h
+W{qQ(;f(KPs2v/Fx*#f&.M,tb'Ix\/:P$027]NA*v dDti'I-~u%M1G'kTJA`^?;"Pr2#Z
+8jq2k.Z.&[6Y:+1%'"&0IuJ?)20+tG=djX[R9alm0WUy kp/v)S2#vr"mL |so/zh|h|uf
+3B 7 ,ue6 -sJNTP]/A/-YND@JGm:KMCu>.qpG=hW{qQ(;f(KPs2v/Fx^W?;/]'n5UYxSS
+%YqPd13m0ah|.2(X7R>%@#Kjg_a@oAM+A&*tNM A&CE]u43BTk +u5L!;gt|2jD)b?;3&R
+`uo[?A2mnz@_G`a`0RPUbAK;#1]yudTkePmrFx^W?;/]Ry#vUu<{9iMwsrB(U"(@DN')OG
+Vst_`&Ig0dK m=JDNo&~JR6X^^pt50@?/]RydWmF |n.'6QUl.`'>'-8M3T6!iAGnE`:[,
+UTSQ5OF^`=7G#O59+<??sUUb0/RydWmFFb3A 7t4!lWPscEVh2NHVG-%KUi"^cE[oK"YW{
+%C?50'%q s:s"nRzJJn)dcmFFb3ATkeP %ue.H,tb'Ix\/:P$027]N+:Dj-WEncLY)LKhM
+$!b-5i&d c,fk;t2Fe[7;2<(8$@oK+hf6 -sJNTP]/A/-YNDhf$H5KQx,Z*~a2&h?pQHX%
+&3tG=djX[R9alm0WUy kp/v)mr4&Uu<{9iMwsrB(U"(@DNu78moR$s?D-VA)!qV[ZqT8t]
+2D@6rX[J^z@oSDcEA05]!Xj(u|ePH-5UYxSS%YqPd13m0ah|t8Q\hn)h^h;-b2#c7!?N2;
+SV#P#(`&`:OcS0u>.qpG=hW{qQ(;f(KPs2v/ "Jr+ &y57:8>W0W&l72DC"4Up8{&=PZ@X
+CfEp1"aw*~?V^^(<Q{aIuiRSs>.s;}ss$-n/`rtcK' !`TPZ#L*[X7ZF(;NQVc21L5f#WX
+#.8=p|f5LUpsu\IQrX[J^z@oSDcEA05]!Xj(u|eP %ue6 -sJNTP]/A/-YNDhf$H5KQx,Z
+*~a2qPiP3l[l;~"aZe(#N$KT-I!G9M`@r/"!f&>],Wi@=R@A"g$>27IFZ/,_h`h]7t.HOh
+++_ejL^IU!I!P!WKr!>W0WLRrDOl]19/g5M{/>e]MYCT:{(Ip\0\2/,3U+^068lL^*5Y.1
+3v0hh|G[H`m(d>jIKbKF6MAwRU,|PbRz_xD6E\*))8dSLJ\`5B_RItLaT6_!\8+Y0+juB!
+cBbE#4a-#Q)eoI9{D@?%UwRo-JZ1C6m=m:lIdOUpuaLhblEs`lnEqPF. ls?jtJEpkj">v
+*`>"ustX*1Ot@IGhkUfB'rl91<&BZ:]ok9EI"g,Z9Vs.cvb]90[c[d/Z-8uGm?:wK!;WSO
+'GXDeE_`fT`$ag EF`:;6\:+v*K:Hk6!.^@)Jt6DAF2ykQr=GjpT@"V;X0/gZ1cVuce>I_
+E.${>^usqu-41%LB!$7UPONU&I^~k">Fo:kx,cK|p}?.1"U{"#reh?k5COb}5t;b<(a<')
+hPJ@jDTo:4$45^"32mSx78oXjYcG!QC7J::9ZpJ.TQe'VfY=\n`]>FtMD/m"_%.LYyKK+ 
+19h|oC\1R`@ ?v)@Yb2VQw')0Ms2,1fPFg,q([tS)DD-uB8moR$s?D-VA)$T7<3XZfAylR
+Ju_n>$NZ9c`}HJ\DGk8cki_O)Na=dE3mAr>W(_c?/ol&3uO6B19_N_sa*$uq@:1dum;7RL
+K{"&;6<FauNjBK`&sQD>bT#RS<Kee`b0Sv[`94"Tlskx%%=kh>,5h3e?55HN$u'~>dq#4)
+uMrg-$[H3RG;V;N.E&6U')0MA8Se[,_~T2@,,10Z!6kVe&hz,YLEqTE{"R.uo:Q5D)B_*Z
+_BMUoZ0LRP?x,1fP@!LC@;DC"4Up8{&=PZkc0&;?$u.aSYslkE[&'P.-@d"L4"&!C2b8.\
+*3PlM$47@x>WPw>*2]twkc3X?{D\aJpGs3h?@:1dum;7RLK{"&;6<FauNjBK`&S1aC( mF
+]?grBKI.E{d^5%)gPbT6Jrfsuu'?AF(hA=-ufPFg,q([tSmH:w5KO3%tX8kh)wJu[8(qJv
+-[965}L.`;7'3XZfAylRJu+4Iu?0@n<wA~Vl#j_fn:eh#$[d\eJ>N/G1?7ctbnulHvQp%B
+lM!LC[^%c.@:Yd2VbT&F4.oE17k],!N'hr9G@v>WnftiWDbW;kVjmP9c17rpR)+g7_aUAW
+<wJg#&t}nP:)@ZG&nV6@&'DG-ufPFg,q([tSoJcx57,1%aukg!M+.2@zbP15@#9X/XAc.2
+4 ?UpEQ(b2Q hf$H5KQx,Z*~a2@-V^)k=C0|qD`U?v/"<:aI@a[8bW;kVjmP9c17rpR)a]
+YouO&,sefkT3a5n,fvLa,.hn;kVjmP9c17rph_#.7`+GuAWl$!<EauNjBK`&S1?1H ^s7v
+&(7V@:1dum;7RLK{"&JAN/G1?7ctbnulIG+0N'LS`U=3E.*DnD\Q[,2kSx78?(bj&)"nnS
+3N*"j<>F432PRp"_Xa<+(\Q{nv'"@0(?O?* ZvC^^%c.!O0Q'D?|B;74uk>X^CZs#Z.N@H
+"g$>27IFZ/,_h`h]7t.HOh**/)j[p.qCPp8SD/0]&znC^NQSOHuD!fkVe&hz5nOFMtdd<j
+2]Bam6@]v*DxDW0|qDq^"B[E**/)U&G(Ha"rOG<YkI6>`Bt<Q\hn)h^h;-b2))NXG1?7ct
+bnulIG\)&~3(S66n,_j ?V*0 d3yRGFQSVBo7tVR&?Oj+o@jQ,=:C:s1;49bK6kwVE5Zd|
+77F+Gp@o,bLaT6E-Z>`\!$2FnS$Z/%oEdVX16V/x?92@(-I3@Y\[=T`l3r,f-97_aUQgX1
+tt%I]Wdu!g-Im)\Na*fv"-cB-b!$@Z+Jp!b6Ax.$5556 QB$R9tc%D[9(qp|*ct,2uLKYx
+ tZm#{er4tuuY#HiW[:-kWpsRA",Gb(A8*3]b=4tuuY#Wwq<tv$=!=[9#U^j/q*bkWpsRA
+_uY~MU!ChoE!@C*JJz\q/L7C&m2vmedQ_a%WuP]-sTttWbER.OVPa!23>mnDLapHdkkZps
+RA5o-a0v%5`XCm;;(<G@*JJz<Qqa(=`ykR.MIV=h$u"g[Ij#2p(I"Z@<u:A>>806r" '@@
+uARG"-3N#O86"NCF-(Tk#PQw&D##[dBktsHnL<H$Pucc`y'6@QDD"L[9#U^j/q4h^!RQ"-
+3N#O86"NCF-(Tk#PQw&D##[dBktsHnL<H$Pucc`y*9 PY/sV90k&<~6jKlDG][:9"*JxRw
+GhSAtvhy7X]W/XT;$&_d5Y;]g3un:8ki^>965y1CJz"<K7n{uUf{]s'7;8k[T4/Fr=6@s?
+h+kQ=[(Vmy-}*b)zWCTAFb.$;39S,,bFTzpmm($ei{7,,.!(cB@ODD"L[9]OM$nCK{"B_Z
+>+=QA#*a5;td^I[Gatk_b10>]OFSiB@TnV EPbT6s!E\"TcJ=J#%Tf.o!K@C3fJzrGO&Bk
+`y[8?4);X7G')gO56n,_j ?V*0\ rJ9smxb2:-RApd&djwu#k-21Q*7#DIFMCF'lOG\e:l
+k=]nM>qOPl&v72s.7~%U?rpA?4:P_#u?HeC>*R$s8A:+DxG~"fn_nCdBo4\ =[p.lcW$J+
+3O+/27tE)"/M%@v3dWRw]P3R?8^L@@KrSCNl[)\8+Y<wpmj"6^Hg8FNVVc\ZIor}t7n-p$
+:T &&!b&=QI]Rw&[tMs~kA]nM>qOPl&v72C s`oer9HgmFl^D+]u5Av*/^?6iWn,FjmFK-
+-j^L |)y67I5^cF]3lo`r\lcW$J+3O+/27tE)"/M%@5Rsq)"/M%@v3g:D:(OoO H)y67I5
+^cF]3l9j@:JpJl]/tqR7u4"a=\!j?E'xUOIjE%+j$&u1uV;pqT9!T;`x@GqT`heEkj.MIV
+=h$u"g[Ij#`f4tuu"(A8 :`x*c@<R7Gh1.lrR#2@K\`oL9'QNg,^(l(*t,twWb?^3_"- ^
+2q0<r"sZ90-RNm$5!=tb'i#P""ucuuY#6wA2!%KJ`;7O"5""ucuuY#6wA2g+IjE%lK9{f)
+$%u1uVf{]s'7;8k[T4p'&UK]`o@-Vr"[kW%A[9]OM$nCK{"B_Z>+=QA#*a2H*Jiy^5qyDk
+""ucuuCM>yNf-[Eme5RmI.+0tjqrsVj*b`SxqP(+t,twWbS5bPp{18%5 x,[3l1P`x*c@<
+',G??d5E`x@G_@Asu201<,]va@<{KU=FM)BxKB`o21L5`;_G$$u1uV;pqT9!T;/g*JJzfs
+))8* N2uLKYx`T9ddK NKJDC"42q$ `x*c@<',I}7\#y"Zs//T'! |Ek"`=\$MNR+m!|!=
+[9(qs//T1k#s`x*cd`RA@J'Aa0e$4t@ DB"4kV,Amx"12uLKt#;p9ZlCsX$'!=mK-$[H?_
+\%uc((``@:^I2Vb '{Q+J?HYcO36$cu4"(A8`zuNtrcep.qCPpWL%Ng)fQROh3_H\mtfQd
+Bif)V"@-*.qTeMap`Ga2SHEk"</$'99>1Yg;b`Sx:I(#C:`zt]'i(up@J>O !gov?*t(2E
+ov?*t(58ukjt7UuakE]n]n5A6>`;4<LNrJG1m<GYi+.C`X.8n^_Is#kWEc]XivDz,Gczo4
+bfiI7USoM,47+CZ1cVYoKe! v-flE/*2u^kE]n]n5A6>cP36LNrJG1m<GYi+.C`XCm*2nW
+&R^!j)Dz]XivciFS3l0a(x8*u#)Na=^?U!]EgrtuWblrR#2@K\K&CFuz3 oNc2b}\7+*u6
+s`%Mg)fQROh3AjYPuunX'veXK]`[ivDz]Xiv^B/X-8"(kEP@M,47+CZ1cVYoKeYx`T9ddK
+p0On]1v("(A85ohfP/OfB965t6(CNj!*KrSCNl[)\8+Y<wsX90k&<~6jKlDG][01tdD{]X
+FO?2:P$0`Ta2SHEkJp"CEt/W-8p"GQJjp1OnRF$[>(.RR\C3s{JujqjpuG##)6\0=%/#fG
+P ++_ejL^IU!Go#X[9d6^~(VqT9!T;`xUr2VB;b?5m"=/$'99>1Yl`kz%%cQo4\ YVkY.M
+$9oE0bP4G;NDj+)HD-EJlKe'szJujqjpuG##ta'i5"KrSCNl[)\8+Y<wsX90k&<~6jKlDG
+][:9"*v$Dz]XQ>m(GYACDdlKe'c*a`*+Plh3Aj<w`}`o`]\m]oF5X)lmuDHeHcr},/p$?*
+CW7w%U?rpA?4:P_#!k=\$MNR+m^!j)Dz2ME.dVNHK\J@O $Jso2}LDFI3lDUYPsV90*w&p
+(KuMQ(qg0&fT Tqnul_M_LtY&'s-/T1kjJ*{W{Vm.iZ1cV<juV;pMpbDX ^!j)Dzm ^DU!
+(@iq^5g/G'u\$fki?/:Pimo$uU;pMpbDX ^!2q=/s1/T'!Jnpmj">v*`V:@-Vra**{W{Vm
+.iZ1cV<juV;pd%A8!%K"]XivciFS3l0a]MF5X)c#a`*+Plh3Aj<w`}<{6 =VAms37vd>`;
+7O5HQ^rqlclYi6P_]MF5m^iX"~A#.h_ydVNH=Ik`.MIV=h$u"g[Ij#7I,[GkA !.v$Dz-(
+:3>,0Wf,0&fT:v)d$#HO6f>,Pw=J!6XW`m`]\m]oF5m^u$`RHFE!/K%@f80&fTPLP/++_e
+jL^IU!Go#X[9]OM$nCK{"B_Z>+=QA#*a5;tdD{2ME.dVNHK\J@O JpHD0,kg$eB;74?U$y
+*fKjK&CFm:FE V"/s-l1+<l{2nr.(CNj!*Dkd4> \-6z3V@-Vrn'J>O $J\xF5X)n/iW^5
+<$g7b`SxCbg:b`SxqPo2m<TAAMSeEV"T;"!qfDN:$AdXLD`hYE*&o[jYtLD/CP6U')0MA8
+Se[,Wv#cVR&?(cRz"SK<Zso9k1Y%./"Qu8DkA|QTOHQ`2yK{puBRoXV"bm6yBBXDv(&,se
+fkT3a5n,fvLa,.^$$!<EauNjBK`&sQD>J<PebJ`y*./)j[p.qC%ei9ZC`\!$2FnS$Z/%oE
+dVX16V/x?92@(-I3@Y\[=T`l3r,f-97_aUQgX1tt%I]Wdu!g-Im)\Na*fv"-cB-b!$@Z+J
+p!b6Ax.$5556 QB$R9tc%D[9(qp|*ct,twWbS5bPC."1 ^=\$M,%TyA.*JJz<QhndYPh;b
+iC"& ^=\!j?E'xf"kWpsRA@J'Aa0@_*JJz\q/L7C&m2vme)6!!KJYxp$@m3X*~a9EK'RRO
+hxMj$Y"Z@<Di#rfQ!b$eH~\7[#b&5CJV*JJzg\VV0XK]`o<{!+Vgc[!5KJYxL [-c[4tuu
+CM>yNf-[Eme5s.#:`ykR.Mpmg)1*K[5Hr" '@@uARG"-3N#O86"NCF-(Tk#PQw&D##[dBk
+tsHnL<H$Pucc`y'6@QDDmw!\?@`itK^I[Gatk_b10>]OFSiB@TnV EPbT6s!E\"TcJ=J#%
+Tftu \@C3f-,n6 jh&dCL1)f!g,+LB\mQ^eP!g8{#2L\h|\PJI4G6._-8Jl|kW\{()T4t.
+5{=Epruj/YoR0LsX[^O2Dx?22@(-I3K4W;X0uHTQa=FGRMKsBfuu%=K7n{TPV6#.=U.m$;
+F|&~PL$|fl:03A'"-Y,i&&A3eXsQq^"Bp)+UQ2K^NS!!<(k2"f96` @:^IBBVbI~u'_M1^
+PDMTW;-%]W3RLNrJG1m<GYSUIc.ms2qLf\5%)gPbT6u=$PRqMjv4mFdVirTs/[?6[;5x9a
+7F=T>,Pw_h`WEW*))8n;eh#$[dgPh7EUJcu}S$/ZJQMCdS6tv5FbmFp$:IRx/Zhhl=dV %
+&!b&=QI]Rw&[g`WrBA-K-Kit@7s}v/q RA@J'AVE(e"Zs/+P`x*c@<1vP4G;NDIj22P4$$
+u1uVf{]s'7;8k[T4D{$$!=EcEqW|K,TUa@<{(RhTAF*2nW&RsVj*X^P|-b6A+?K[5H`Xt>
+b]\PkWpsap!!JqJz<Qqa(=`ykR0&fT 4kW%A[9(z&n7\pv]~O,1\ -kW%A[9(z&n7\)o"Z
+s//T1k)i`x*c@<Di#rfQ!b$eH~up+1sVj*b`Sx`oeEkj.MIV=h$u"g[Ij#7I,[GkA !. ^
+JAO Jp"<kW%A[9]OM$nCK{"B_Z>+=QA#*a5;%5p(?*t(58K[5H`X.8n^_IJj!'KJpuQ;r'
+L3TUa@<{KU=F!}LKIj'G.fh1*c!!R9tctwWbS5bPC.GvsTttQ\^$O,#{`x*c@<1vP4G;ND
+ } ^hg$H+Al{02r"sZ90_>G?oeprsT-$p}apKBTUa@<{6 =VAmKB`o@-Vra*@Emmq RA5o
+-a\"`kkRT3a5@-Vr!*KBTUa@u,Y#Wwq<tv$=!=mK-$[H?_\%uc0<r"sZ@2',G??d5E`xkR
+JUfs#cRNo3%A PYy]<tfQdBif)V"@-*.qTeMap`Ga2SHEk"</$'99>1Yg;b`Sx:I(#C:`z
+t]'i(up@J>O !gov?*t(2Eov?*t(58ukjt7UuakE]n]n5A6>`;4<LNrJG1m<GYSUIc]|iv
+8nQ_h3O8\]O,1I$#HO6f>,Pw_hv-flE/*2u^kE]n]n5A6>cP36LNrJG1m<GYSUIc]|iv8n
+Q_h3O8gH4Dl^kz%%cQo40tsHkI>FK$eHtSqLqGoe8?Jr4wLNrJG1m<GYSUIc]|ivDzj<Rv
+&[!$Ebc;a`*+Plh3AjI<v%WDRG2q^$g)qQul_M_LtY&'kEkc9c2uLNrJG1m<GYSUIc-L:3
+>,0Wf,c"==(tSkM,47+CZ1cVj~+zm:L9'QNg,^(lu_kE]n]n5A6>"=/$'99>1Y, Mu[$s;
+/Y-8Y+sJQ@m(GYACDd<?cYQ{+0f@`QL<2yRv&[g`to+zZGp,?*t(Jnpmj">v*`V:@-Vrn'
+%Mg)fQROh3AjpZkHciFS3l0a]MF5m^l_kz%%cQo40tsH8SHs(#C:5ohfP/OfB965iKb`Sx
+Ek"fn_nCdBo40tsHEcm ^DU!(@iq^5g/OoM,47+CZ1cVj~+zm:@-Vr!*mGuDHeHcr},/p$
+?*CW^^5x9a7F=T>,Pw_hK"j<Rv&[!$ta'i(up@@8a9)LdVNHnz2o=/s1/T'!Jnpmj">v*`
+V:@-Vra**{W{Vm.iZ1cVj~`[Q>m(GYACDdlK9{OpM,47+CZ1cVj~+zm:@-VrUncytSqLqG
+oe8?iq^5qyDk!O0Q'D?|B;74rXusFO?2:P$0p$?*t(2Eu\$fki?/:P< `O\m]oF5m^u$`R
+HFE!/K%@f80&fTPLP/++_ejL^IU!X k)8wQ_h3O8\]O,1\lklckz%%cQo40tsH8Ss~Tc5b
+K^J@HYcO36$cu4"(A8`z)2\0=%/#fG:J(#C:3Q@-Vr!*ov?*CW^^s&/T'!\xF5m^iX\xF5
+m^u$tLHs-(SNBNTPa=&gKW1XA,!(1.+)02T'[fa$hfZ']<9/\J[&`b%O#[1SNQ^k.LBmpy
+oD_4\mFP2EERE(Z>]2;3<FauNjBK`&S1:0j%Gg>St+9?pUVvXWTAAMSeEV"Tf-CY)8i!m6
+On,0O-`TCIuEVO.b!b$-VLXlMU'@dwIupmh]Nr;D\MCY)8:RRw-)Z1(;ru0k660aSG<-/O
+a^,g>+c{-YCYAr21k%tz^8\mtfQdBif)V"ER=`.mIX[V[7pkj">v*`V:ERn1Ryhs!Z0Q'D
+?|B;74?UeZh7EUJcu}]]$[UU9Z4u[6(qk7K?-{1GqiJ`MCdS6tv5@@!(K^[<=[*h)0BRDd
+)8tL^I2V:8n/3O*v9\E5k+?`>"\w$[Q(qgP/Ofr8m~L\h|nrD+]u5AJ~JzkPps@]oO%Mg)
+fQROh3AjYP*))8n;eh#$[dgPh7EUJcu}tTB(U"(@DNsU9Y4u\ZIor}t7^%iV"=%5"ZlhD+
+]u5AJ~iyX0Fu3lk\psRA%?M[kWEhbP!O"# 8!7!'@CKrSCNl[)\8+YJuuzHeC>*R$s8A:+
+J^MCdSlj+Z\M_Es>:y"nRz`d!wQTW@TkIjS:s@f! N4X*}W{Vm.iZ1cVYouO_M1^PDMTW;
+-%5?alB9qPszj-ou!.Bz;{euB~s`oeu\JNi.4 GKMCnWreK"5DJuXW[lK^`oBn11K[#6A#
+.h_ydVNHuA?4);A #}c`X2E"+cJcj7DC7sd>X3E"qipGlclYi6P_]MIR5p^]A}@nKrSCNl
+[)\8+YZumwD+]u5Av*769`%F&xMlUi5x9a7F=T>,q8`(6~g9S9@MkRa<5<$u s,0uZCD7}
+%U?rpA?4:PQ-%tl}[3$ 05Yy]<tfQdBif)V":8BS;C> .mm$`&fO-Yl6]/l:]/tb(EV6(@
+dn@8AdERE(Z>`\EHEHJcL\2lSx78W@ER(+n+#uSn++_ejL^IU!]E?;eZh7EUJcu}8*?p(?
+]m5AJ~iy"=K[[><+(\Q{jBqApuZSKsLN3_j&@GX719-ak\5x-sJNdVNHtc.n7_aU!7cbid
+VDIa"]k7C7&lPu_u@M\<K^a*t[8moR'"/_Gl=chFh7EUJcu} ?Bn11 Puku_Bef)V":8BS
+;C> .mix)-dwIu4GKc:0j%WwjtbchfZ']<Rh0&;?$u.aSYsl@:2LERhkCxmj/*6+pUVvXW
+TAAMSeEV"Tf-CY)8i!m6On,0O-`TCIuEVO.b!b$-tb&(nC^NQSOHuDroA{.M;?\MCY)8:R
+m:n,ei";(\iq"=ukjt2Pt s>qLqGoe8?iq"=f 'l1G67I5^cF]3lDUpZJuuz\MC$f,]sYz
+RQHGE!VJ4C,3bF;A>=`#tYu6tw KKJ"Q@CKrSCNl[)\8+YI<JyuzHeC>*R$s8A:+J^MCdS
+lj+Z\M_Es>:y"nRz`d!wQTW@TkIjS:s@f! N4X*}W{Vm.iZ1cVrXrpqhCY)8u+tiHeHcr}
+,/Dxk%f,/^SZhs*{W{Vm.iZ1cVrXrpF]E.dVNHK\:0j%(h3B?)P(M,47+CZ1cVrXrp7v?i
+^I3RG  V"/k5C7&lPu`U9KlZ,3h)mn'"M:,N>,-8>,]hP/%FO9bCu!6+s)l"flp:'"M:,N
+t"s>qLqGoe8?J2Vi;47+s-KaJ[^LU%%Ng)fQROh3AjI<tSs~Tc5bK^2lSx78Aj[8RND{Oa
+BK`&*35qX3E";{.a,"umOi`U=3E.oE u#[=_Kl6\:+?vo4#/GeGdQ(9/g5qW7/jVWD]2(>
+NXG1?7ctbnul]O4E%kc.<j2]Bam6@]v*DxDW0|qDq^"B2Lc5A%(EY4`\L]JNrC-$[H3RG;
+V;N.23&znC^NQSOHuDroA{-~F02Hc5A%i&m6j<2jUzn!K[0<^_`q%OZm#{,7)4AZ[]2`h:
+p:/*ivU)5bY~E"\NOi"-3N#O86"NCF-(Tk#PQw&D##[dBktsHnL<H$Pucc`yJi"#X0kYYX
+t5R==Y+zYy0PNkE|r}t7R==Yira\G15}L<jw V@6rG`LcmRAK5fC-Ynd?FNBDT'~[u@3u:
+'p+XimM*o].EtY9.p1jYB:U%WzJjGkQ!DzdVX16V/xPQ&vGB`VQ`2yE-&=PY$@%!/$!!<(
+pwgvu59.Yw%|<|SCbP^)tYu69.Yw1%Zrbm4Dfx-&@6rG`LcmRAK5fC-Ynd?FNBDT'~[u@3
+u:'p+XimM*o]=YJs7Q"uH!VE3v<{UofT6:j`n9Jb;p@6&{uqeO@:s~c27rt7F~6>DN')<|
+SCbP^)tYOPTkhZ'nKl8c\;#6A#.h_ydVNH_+jTc27rt7F~6>DNrT2%>z*`5OD|P4b+Ke"1
+!gsr)"/M%@5RKI`om4%:GgBB!!BnLNrJG1m<GY> .mE\\rlYV%-pY/@]#Tr&tE^R3Jj<*b
+8 DNUONt[$.3R>SkCT#3!OiVh\jL[R9a\=e^CCfqWDI~pkj"6^Hg8FNVVc`b%OZm#{B9VU
+S$qdn(57alB9A &Mb&=QI]Rw&[H!^sP/Ofr8m~L\h|nrD+]u5AJ~iy*2N!!6$C#O0niQ7)
+C s`oer9Hg4t!!XDrnf_$|$<K79v%U?rpA?4:P3wI~pkj"6^Hg8FNVVc`b%OZm#{B9VUS$
+58alB9VU[ /^<) h3v*}W{Vm.iZ1cVYouO_M1^PDMTW;-%5?alB9VULK7rSQZ"sV@LpzUf
+l!\7;:W:8ev*!9 ^2u[ (7 [K^[<#6A#.h_ydVNHR>re=4cqu"n^G,D(Hk+WE;Ar[?b$.b
+a_WD_TlyN?^vJoJgjqjpuG##)6AZ[]1_Fd?i?>@nKrSCNl[)\8+YZu-7Yy0PNkE|r}t7nA
+-}66l>Po*067I5^cF]3lm~h/fV\yBChk[4(qk7K?-{1GqiJ`MCdS6t0/J900ukd>2Mb{15
+k.%)V$+x9hh,Y*H:[kGfo2ZIWl$!<EauNjBK`&S1Oe0l=nGn>St+9?;(4-nFCb-(SNBNTP
+a=\]lyN?3kGms}+zN/+j[8(qJv-[965}L.`;7'3XZfAylRJu_ni/#Z<EZ6lyN?3k<2^I\K
+DxGz V[P]seNs}(Nmy-}*b)zWCTAFb.$;39S,,bFTzpmm($ei{7,,.!(ts(-T4KeYxn4<k
+2Dc5A%nK<kk=kc9csV9.JYQF.M 5VQ;4g3^m&Ni*/}AU`Gt>/b71]E#~i&<kr|R=j,dCcz
+3s9`uVoW+kivRv:-M.?q*l-nndJv-,Etj:,Z*|(a*">(""X0kYYXt5R=Oc0l=nt;R=$X>(
+.RR\C3`HnX[4q[Wb@B1XNQtA'p+XimM*o]=YJs7Q"uH!VE3v<{UofT6:j`n9e]RAXV1\Pa
+s@3U@6R'=Z!f`W\N=[dB432Pf@U<&)A3Xk[;b$.ba_i6C2mI_S^\%M95S-9v%U?rpA?4:P
+T8tn@:K$jq(nc=6i;]&R 5L"G??d/G%@_LR.5,sj)"/M%@Sn++_ejL^IU!2:sH`U]o4E%k
+]h[7pkj">v*`V:+x9hh,bs:EoHdWoT%Mg)fQROh3AjI<JyRw-)Z1(;C&c^&IGXqE<.tRFb
+3t(&p~MM\8+YI<v%WD_TQ^9f17:8kiiIqW7/)uT'[fa$hfZ']<9/\J[&`b%O#[1SNQ^k.L
+BmpyoD_4\mFP2Eh>EX`j?N`l8SD/ 5lo!GVm)IL\M+=&`tSvB93Re>I_E.:Q.ToI PtMo:
+S>7C45H|r}t7Fu)cbe0"EyrkEf"fn_nCdBo4\ gr:4-koI!#RpMj%C!/ ^ Wu4_M_LtY&'
+akqi&kKCJTE%D't1!ghd"'IU\(!cfD^"Ug0&?cSJ/Xc{-Ynd*WBa$MdG;2YIJ4`n`mmL (
+6qA('Akzoe&m">gCsIJbYZc?.%TtMT0Qh|?3Qa;4g350se)"/M%@*g5QXPJw`nkR]P3~*J
+:jk& [ #@C7Vh2>]a`.RkUe&\7fE7Vq<g9(DRXVEdT%:+{Mu[$s;/Y-8?Qh=q^fN'rpsoe
+r9UtMU IQ3uw<L';!P0Q'D?|B;b?sv%g:C@[KaKHKFJYjqjpuG##@ut #E5a5:]]].J( s
+oM!#4j>$ qC2?!:s(#Z|do'kA}&lrMPF\KMAm>-X<d5*R9&UrrP G??d/G%@iv)h2"i93B
+I~ 3Mcb0.ba_i6XgZ9k,uGueRSIiK/VS0SNkE|r}iL5K@G@M!7&|K7\y4q@6.FqP#Pmu@y
+$,27'lA}&lrMPFJNMCdS6t"a%DCaUppssTp$$~"ZgCsI`n``hhQ rdh?0GNgHJqyoer9ml
+O7lpAS=uM+/Q5,Oo++_ejL^IU!Go>Scz7:?N`l\7fEa@`m5<$u s,0uZXy8POw++_ejL^I
+U!,$+jce)22>U%P/OfB965Ce=uM+(*d4`oAN4aX7ttb\DD9hVl**![qhs&b''rcv2w$=27
+p-k.Y%AB(!;%YN:Ik0B~s`oer9[JkO58alB9VULK"A#"II8 ^j/qRnMjp&$~)!$<3s99"#
+JbY2TP[;G.W{q<E'Jcu=$PRqMj%C!W!=)G,(oO)jn__I>n*`]W3~D$\<[>@ToOp$[xa`s}
+EV5_el6W-Y.$kb15h|]q,;\ZIor}t7sZq ir)h%5XPhU`nkR]PH?""""JbR#`U`6cs&p6n
+]p5AJ~=.mIO7lpAS=uM+/Q5,Oo++_ejL^IU!Go>Scz7:?N`l\7fEK*)k!g8@t~;^=.&"b&
+=QI]Rw&[l{7"37L9";r(nA-}66l>PoO9lp%Mg)fQROh34=0"Pr\xBChkpij">v*`V:O5@%
+KSXY"^2Nh>EX`j?N`lc9.RkU9z.^Cb6UGcSdL(dwA1j}qOR_0JJ !bYNn(qeJWMCdS6t"a
+ k&$rrP G??d/G%@iv)h2"i9sTp} 1Mcb0.ba_i6C2ZuKHK`$};s P@6.<-,oO)jn__I>n
+*`5?alB9VULK E#"II8 ^j/qRnMjp&$s)!ogttsY (6qA('Akzoe\chU`n`z"N-y 8C^Id
+`L<llj'"eUat(8DN/Yc{-Ynd*Wt}$PRqMj%C*hgC5KkRpsir)~%5XPp]KHK,[<+jo4ZI@B
+j:k[&p!1f8.$5y][0mNgHJg/h7EUJcFTp#QOZudwr<@z[{hf.$5y][0mNgHJg/h7EUJc_'
+&(3A>Wq8Gio$D+]u5A`T4W?9Qa;4&R`]UykSM)=&`tSvB9VU EU:ZFcVuce>I_E.:Q.ToI
+ P[<Jm6DAF2ykQ\g+6O0rc=4E.`d^>a"-b"BV:<)KsZV<+5ETvZ9k,uGm)io,i?VSZnCav
+Aa[8<)KsZV<+5ETvZ9k,uGRbk_7&O&2V<)aIWD>%-8a_<jC s`oer9W.SzEp(ZDNu7!X"v
+m)O!6\:+B9VU\ZIor}t7 7Mcb0.ba_i6-\`XiS,j/*@z-W?P1L%5`X.8n^_Is#@Lr(qLqG
+oe8?9ANN>%-8 R8$hh3Vg)H]]^5AJ^MCdS6t"a k ^!,KJYx5I$)!=&|K7KHYx tZm#{er
+BBmyjI_+m$oE\@_a(6 0qL-41%LB!$7U;f5E)kADQ(h>A;-ufPFg,q([tSiTh.r,#P[3$/
+Go>St+9?pUVvXWTAAMSeEV"Tf-[qUK<+JJA>0p<2K$#&t}nP:)@ZG&nV6@&'DG-ufPFg,q
+([tSoJcx;}l@DpZFk2K?^}KCXD=Ocqu")Na=dE3m0aQupd]/D2D't1!ghd"'OkRFUp4G)0
+BRDdD't1!ghd"'o3m<AN4aX7ttb\>~hf2WpKUj%]/_uf_M_LtY&'2Lh>EX`j?N5a![_JjF
+7UO?LtH5&d c,f(">$8)ceS2#vJjv0mrFx*kuR-{qL?v[clu0WUyVao[%Mg)fQROh3Aj=I
+RGQ`NU^|KCB9VUv5_M_LtY&'![4?LNrJG1m<GYi+pij">v*`V:JA"fn_nCdBo4\ 2E,1jr
+4j>$ qC2f q+i6n=0/\(KM5x9a7F=T>,Pw2sTij-h.r,#P[3$/pxm6p,Mx/fQWEp(ZDNj$
+&->=`#tYu6F]$b@<rW#P[3oZ`xR9r%FbBS[c]f5AJ^MCdS6t('rrP G??d/G%@sX90`;T8
+3X#O[`ITpvsT9005Nkf=$BGsH" -&!rrP G??d/G%@Ujl!\7fEa@K=`o`zkR.M:w!"KJ!f
+@CkR.M`u.b6T1L(XY4TpRy1\NQ^ktYDeUp]Pc:3="AuEnPm6`< I4Q$+VGX0L(dwA1j}Q/
+e}q+i6n=kj[qUK<+JJA>Kk`ok_58alB9VU.lB[+F`]JwiW$R[3";>gJ\ubnKd5k&uG##_T
+VK4C,3bFfLU+uFg9sIuc :8~0O!7 ^[n03(+tTfk6YRAXhMUtcjrbc`*rcqhR?FQ2Eh>EX
+`j?N`lJoFcp#tR$-n/n@c2b}\7+*DeD't1!ghd"'9}bR:E#L7aoF('0q')j`HEmm0WUyVa
+@o'9,;u'3B 7XV@?/]'nffpk\.JmM*T6JR6X^^d(P(++_ejL^IU!bj<js~HnnBO$HIr}t7
+poj">v*`V:[D,$Mu[$s;/Y-8U'.$5yhF.%*beVh7EUJc9A;%^d5x9a7F=T>,Pw\y+4qRp&
+ct&p6nJ]MCdS6tK*QR"w"~A#.h_ydVNH`lm6kg[qUK<+JJA>Kk.=EL6UGcSdL(dwA1j}Q/
+e}q+i6n=RQEXuuY#<+JJA>")Y7Tpp':Tmr^ZVr;4g3i6C2up\x4qd:2koO8O.=s:#Pmu@y
+$,27'lA}&lrMPFJNMCdS6t"aOfrgTPpr'r%H!=!gsr)"/M%@@52;% u~tag:D:JJ2?iQrD
+q|8'<Ks1oe8?m5$Qli+D-nNDp&o[Tk_ur)"9;KMg)z%5OGKH`yhhQ (FYs6z3Xj&qX0>qg
+Z'2q=/*h)0BRDdD't1!ghd"'o3m<?4);$#HOaq]/A/"nnSB=jWTPe'Vffj[qUK<+JJA>[{
+8S^I3RG  V"/k5C7&lPu`Uk=uGRv&[[HSrcc)X2lc@L^.Jsr%0A>GWUsOergTPpr'rPSn{
+pTAA.mPOI,rJ_Qe*o4bfJjGkQ!tD7=VIN6XDn ioro(;f(fKP/OfB965np'"M:,N]O].J(
+ soM!#fX=amIs/Kp7#DIr)(;f(fK0GNg&-u^Tk +gF0/Ry#vnNHEi2`Q6T:+59+<??B$8$
+%U?rpA?4:PAEtKqeq^fN'rpsoer9kJ]n]n5A6>@S8)%U?rpA?4:P3w*))8dSLJr6PF++_e
+jL^IU!GoX2!Qj#c9.RkU9z>=`#tYu6M,=&Ei"fn_nCdBo40tX8FxJ:Vi;4b6[qUK<+JJA>
+Kk.=EL6UGcSdL(dwA1j}Q/e}q+i6n=RQEXLN3_/K%@sX90TQpr'r0k%5`8fO-Y+UogFZUC
+/Z$>27RoMjf q+i6n=! *B& Zm#{B9VULN3_/K%@sX90`;T83X#O[`ITpvhi.%$>8}S7# 
+0rq.oe&m@<',G??dIQpvhi.%$>8}S7U&?U`c.<mt`bfDSDbP^)tYrS2%>z*``Z++$wdS6t
+RSIirrN[6\&7BCKr9i_FtY!b!,KJTQe'VfKoP)++$wdS6tuVf{'&pvhi.%$>8}S7# 0rq.
+oe&m-y"Zk7C7&l%j".)y67)oRpMjtvWbS5bPC."1 ^2mSx78!J0c<23L/^C:&lGBr}iL5K
+DkP?F[$btTfkd7JC sI#(66X:+!zSZbC_e,)Ufl!\7fEuT$PRqMj%CE[1[NQ"t ^K~`oAN
+4aX7ttb\!AKJ`yhhS4IkB~s`oegN,[D_W>]|f#ir U21+&9F[5`Y4WHr>y*`V:]or8m~L\
+h|iM1G@6iWk)@9`cnVbe`n@GGmBB!!`LI13=VM90<DauJApTlLm6qm]S-XZx ^2mSx78W@
+AN4aX7ttb\Aa==OmF[uku_Bef)V":8BS;C> .m=<j#i/AylRm($eDxZFk2K?^}KCYE*&o[
+jYtLD/CP6U')0MA8Se[,WvAN4aX7ttb\AaYPTI\K"6_TO2UsDzOaBK`&*35qb}IC:8sTO$
+cD:Ruz,9q5WB21L5f#WX#.8=Eq(#XjMU'@dwIupmh]tX+5N_]0].J( soM!#U'd>f#U>$W
+19]M].J( soM!#rdqh[qUK<+JJA>/OoNTFs@:t"nRzJrjqjpuG##)6o:2kkP/f*pKx?dE3
++j7_aU4*NM A&C$!Z-,$l}dc!z5Ev3Fx^WPPJhR)sp/zh|qU(;f(;@Gm"fn_nCdBo40trX
+rpqh32KF!')6o:2kkP/f*p5@ZIuqm)iB1QX[<+(\Q{h0dCdSQoh31ZumKw59n<rM9<FHI~
+[7G.a2t.iXh.r,#P[3$/2:sH=[jH_+Ja6X^^t8qLqGoe8?J2Vi;47+2Lh>EX`j?N5aSyNn
+Tk`;PXXip JX6X^^t8,nq<+Sv/FxkLtCmLFb N_c/n3xhf-XND-I!G9MOC# A#.h_ydVNH
+9e_|RQcB";(\J2Vi;47+ukd>2Mb{15k.%)V$AN4aX7ttb\AaFpGlhl^}rch?cmGt<y=] a
+6!BR[chQB-/,`!_m2`=/E.*DNk0b-a\mC\UCm`@t5IcA[h8SD/pmj"6^Hg8FNVVc\ZIor}
+t7sZu\/G%5`X`fS3Y8[;G.W{q<E'Jca)qPE,IjuUf{^=%g`y8$%U?rpA?4:P_#ZDpkj"6^
+Hg8FNVVc\ZIor}t7Ull!\7fEuT$PRqMj%CIW.bblVfKo"1!ge$h7EUJcu}2RUUIj4t^!sT
+kWps`y`o!(KJ"1!/(f"Z1M)9 P1G(X 8(c&~1MJzPL {$C".`f[;5x9a7F=T>,Pw`U9/g5
+M{/>/gi@[)bAK;CQ>W.%P!h|#7ET)?D-\J?|NM A&Cpmj">v*`V:P=7E(AQ{iQ1melFo0J
+*dlkh~*{W{Vm.iZ1cVZru?$PRqMjpn'"eUat(8DN/I%@ 5Mcb0.ba_i6-\5McAKX`o<{*d
++b(Jn&l#VD.bS<Ep(ZDNj$ov&RU'8.Vm$08}DhT"n!3G(5PMFEO:@A[8<qTFIF 5L"<|V&
+;4g3=R3lKv?NjYWDQFm(3UbS]#8a)AD-'4iiO1,uUoUm[3T8MZ`T4W?9Qa;4&R`]UykSHD
+E!/K%@f8K=P2++_ejL^IU!Gof$]J9T_-0~fQMX"c)yG&.03v0h@ J~k|K.)z%5Z2]<']8{
+N_SA0[d}h`g&6R[bX0.$cL<j2]Bam6@]v*DxDW0|qDq^"B?9-5h~2F#(i"m6On,0O-`TCI
+uEVO.b!b$-VLXlMU'@dwIupmh]Nr;D\M6R[bX0.$cLCqs8R_Dze_U{h*2PY2TP[Gatk_b1
+0>]OFSiB@TnV EPbT6s!E\"TcJ=J#%Tf$% K`fGMuuCM@[6,g5*!Rp1\)8hkRA@J'Aa0e$
+Jr<QoOBR[c5>VsLU_+f=U&.M:wC:+-pKG,$0uq`*"+3N#O86"NCF-(Tk#PQw&D##[dBkts
+HnL<H$Pucc`y.8""X0kY.M)62>E-]wjmO!EK!$[6#U^j/q*br>90`eC1&lrM/b71]E#~i&
+[4ugO#%kp"6Tbip0m<A|U%WzJjGkQ!DzdVX16V/xPQ&vGB`VQ`2yE-&=PY$@(4K7n{uU;p
+9ZlCsX([[8#U)y$>27XU1\Pas@3Ur(Wbnm9{Ae_zP uFY#dC;2j:EY_F'ljw"(Ek.m-,oR
+0LsX[^O2Dx?22@(-I3K4W;X0uHTQa=FGRMKsBf.N"#X0kY.M`u.bL*a@Jr<QoOBR[c5>Vs
+LU_+f=U&.M:wC:+-pKG,o[90=ZM+lnJ0l'^Kqy0fK[3>Jum:j<Rv&[ad425[0X&lF9`j?D
+_7/32}$=27P}`LlrJ0l'^Kqy0fhdOgRFE0]wjmO!EKad`R`NEHEHJcL\E/]wjmO!EK!$n+
+#u>9h>_Hp GQ\ZIor}t7=dg5*!Rp1\)8`c!(K~m\D+]u5A-K.lB[+Fpmj">v*`>"ustX!@
+$@!=3yS6$%rb=4Jxq_D`Ss1Rf=.wY/9&[}=[cqFS3l0a^J:J[g?H6?tnHERHuICM@[6,g5
+*!Rp1\)8hkYwJ^@%5}g5*!Rp1\)8hkDV$,272_=/?=-5h~2F#(u,tiHeHcr},/^R:J[gDm
+&0ug4=hUu\pdmt9OGy!zt,H[Ziu$k4eTS n"#ug7b`Sx*)?"Mf$.?>@n8$%U?rpA?4:P_#
+ZD>z/}%FUrtX'/E}09;<pRI"`n<{KU=F!}1PsVuQKGYx tZm#{"`S6<YeS\%<V$%!X%Xq6
+U)"I@<',G??d5EK^jy$s`X.8n^_IJjK[KDd7uN$PRqMj%C[9]OBCloJ0l'^Kqy0fK[u$$P
+RqMj:xgy`nk_@31d`8 I;xBnm=uB$PRqMjK),g!*$|$<K7KH`o g>j0`70&e&eRQ\HPmHF
+8,#v0~NQVcS2&fTUP/OfB965>@:|&"b&=QI]Rw&[e^^]H!crhUBKI.0M @lb:IB*"N")O+
+0.Io00!7 ^)|%5c;h7EUJcu}i-"I#Ot28moR'"/_Gl=chFh7EUJcu}?V*<oOdd""$|`Xnx
+qh&k2Vj'EF7P]pK\$%<lOm`Uqg6R[bX0.$^'[7pkj">v*`V:M&A/:+<)Pb:xC_5,XV5D]d
+Q<dZ`eUnIaJ8:vJiE3WNRyK6s&/Tu/(Ed@Qx)z67I5^cF]3lo`]'EW_x5YJ~oa<_aaa&6z
+_Hmt Y=\!j?E'xf"kWsF!4[9#U^j/q*b@L<23Lcj<&05&B6Bb6Gz)gJz<Qg'H]uV".I'3R
+uuY#Wwq<tv"#!'.<s:2%>z*`5O`XiSS9P]rMMZmDe'b}""qO2%>z*`5O=& [K~JYfstT!g
+9MU&RSri2%>z*`v0S $H3s11 P!7 ^sr)"/M%@UrtXKGa*`GCIJ: sWqe]dDtO)"/M%@v3
+9O!;)y(X 8 [=\u>`*K{X44#/KC:2P06 Pd:[rhfu_Bef)V"M&A/:+<)Pb`UF\E.&d# 0^
+j'k,^(qy0fcob(A1'ZR[n9'Kgb,REFZ>QM,G]8F5m^bf==+W8QI5E~#4@!Q(qgP/Ofr8m~
+L\h|nrD+]u5A-Ku'uVf{a7L8X44#/KC:2P06P@Z9k,uGue_HAs\y$o&~lhD+]u5A]qQ<?U
+v-A05],C]=(-9l_c$@!=iosP?R[;03(+3s*JP@Z9k,uGue_HAsUR$o&~lhD+]u5A]qfq?R
+v-A05],C]=(-9l_c$@!=iosP?R[;03(+3suuY#dC;2j:EY_F'ljw"(06nN*{W{Vm.iZ1cV
+<js~j@ kt8HwW4r[R_HZchC]<fk`.M`u.bL*SrIjJJ4t\ZIor}t7sZp}sT()AAm4ezgj>5
+l6,As><dL!Yx tZm#{C!pvsTsTe}q+i6n=kja8kR@GO/2sTiHGE!VJ4C,3bF;A>=`#tYu6
+TWn9'Kgb,Ra"@GpzUfl!\7fEeO`WZ9k,uGueuVIlB~s`oegNCC&1`]rnGx4t!!JQi.4 _c
+QN;OB|pmk*h7utAJBn*J(X3v!!!!"N!=Y7J&Uhl!\7fEa@LKu$$PRqMj+%9Fu7_VI'`n@G
+c#,[D_W>?V*<t>uAkHf!kECbo[kW03AD@G@@oOIi4tTir!2%>z*`5Op(?*t(0kRJ`o@Gpz
+S4$%<l5#oOdd""P(++_ejL^IU!d<>7k0qiv3(E6BUsHZchC]kR.M`u.bL*SroP#R[9#U^j
+/q*b@L@6dbc2&Fv(b68cpF Y=\!j?E'xf"@L<;Jz<Qg'H]uV!!re=4kI]nM>qOPl&v72C 
+s`oeu\Q5a@<{2LD\j:EY_F'ljw"(pvUfl!\7fEuT$PRqMj:xRNo3?S`nk_58alB9VU?V\n
+^{K*6X^^ D/ESK+WmJkW03pKUl })y(X 8 [KJu$$PRqMj:xRNo3?=`nk_58alB9VU?VUG
+^{K*6X^^ D/ESK+WmJkW03pKUl })y(X 8`c`n<{`J0"*~ne% dSSxOf$%5a,&Mu[$s;/Y
+-8?Q=2/MS*Mm@>tR<$TQ,Q97GY<V.C`X.8n^_IJj!'KJKJu$$PRqMj%C)G!=!?`f:RoH8+
+EZR(.fh1;XYNuuY#Wwq<tv$=!=!?qO2%>z*`5OE]%5%= 8!$.<u|HeC>*R$s8A:+J^MCdS
+6t"a'nNH27:/6?%5&~lhD+]u5ARFpc5DalB9VULK"asr)"/M%@6+Rlt8HwW4KH`oOo98i?
+8F_.CGrFtM`[Ul`UgFi!`y@Gbh`n``hhsTIi3=mlD+]u5AJ~v&*J>=`#tY1riQ7)0/J9)g
+%5`x@12;% ENWNQx><tssJreK"(B(c"Zbn$| 8 8 [KJ.=k2B~s`oer9Et(#C:HFEq*O%5
+&~!=!'@CTi / [K^[<5x9a7F=T>,[bFxd:[rtp43S9u%,S97GY$~`X.8n^_IJj!'UptvWb
+S5bPp{(/ogu,k=a2lp.-=NZ,G"uU;p9ZlCsX([umk_.M`u.bL*a@BB[8?4);/Rf'`:7O&Y
+L/0[Ar0TB?bZLPjY>FK$jq(nc=6i;]&RUjl!\7sr8K"`=\ir\<FG`3q.?5H|(C`xJQMCdS
+6t-L97GY/i@GpzUfl!\7fE/jiRjX5T+<?? 2'b9ePvFdpvS4s@f! N$|$<K7KH`oIPHE"Z
+GpJg6X^^ D/ESK+WmJkW03pKkBm\D+]u5AJ~Z|>"n%!3!gsr)"/M%@p-rDhTv3(;f(#(Dt
+bc&J/x!(KJH!uT'soOdd""$|`Xnxqh&k2Vj'EF7P]pK\$%I1"fn_nCdBo4\ gr`*s8 2uf
+?jCBJ4Wj?c\%T"<fsX9005NkkbBQ*J*ZP@Z9k,uGueJKIlJJ""i!Hqr/rZR_HZch4n<fk`
+.M`u.bL*SrIjJJ4t\ZIor}t7sZp}sT()AA::mr*))8n;eh#$[dgPh7EUJcu}mm3UbS]#8a
+pxS4IkB~s`oe\cr$pmD+]u5AJ~v&*J>=`#tY1riQ7)0/J9)}%5`x@12;% EN,CQ~><tssJ
+reK"(B(c"Zbn$| 8 8 [KJ.=k2B~s`oer9q kj58alB9VU8>QLu}[ UDps()qIcnionOS 
+Ma5'JusR\ZsQ(w3vsVddi!()((3s*J:jmru0$PRqMj%Ctb'iub$2m;psS4IkB~s`oegN,[
+D_W>`_42LH $J/ukpnC pm1pGmpvS4)z(X 8m8!=$|$<K7# A#.h_ydVNHTi<oOmk0kJa2
+lp.-=NZ,GzuU;p9ZlCsX([umk_.M`u.bL*a@BBmLu,$2+1:y_HAsURpsRA@J'Aa0e$rr!h
+=\!j?E'x%A06Jum:*))8n;eh#$[dgPh7EUJc:vswtwWbL9";:3H'>vfTE!@L*J>=`#tYu6
+f!q+i6n=bA8c:PmH9Y4u\ZIor}I,,girti-L!G9M@BL'ctfjeP4t\<JgiH % [K^[<pssT
+['%$+*Zs:u"nRz`d!wQTW@TkIjBBuPtru.$PRqMj:xRNo3?=`nk_58alB9VU?VUG^{K*6X
+^^ D/ESK+WmJkW03pKUl })y(X 8`c`n<{`J0"*~ne% dSSxOf$%5a,&Mu[$s;/Y-8?Q=2
+/MS*Mm@>tR<$TQ,Q97GY<V.C`X.8n^_IJj!'KJKJu$$PRqMj%C)G!=!?`f:RoH8+EZR(.f
+h1;XYNuuY#Wwq<tv$=!=!?qO2%>z*`5OE]%5%= 8!$.<u|HeC>*R$s8A:+J^MCdS6t"a'n
+NH27:/6?%5&~lhD+]u5ARFpc5DalB9VULK"asr)"/M%@6+Rlt8HwW4KH`oOo98i?8F_.CG
+rFtM`[Ul`UgFi!`y@Gbh`n``hhsTIi3=mlD+]u5AJ~v&*J>=`#tY1riQ7)0/J9)g%5`x@1
+2;% ENWNQx><tssJreK"(B(c"Zbn$| 8 8 [KJ.=k2B~s`oer9Et(#C:HFEq*O%5&~lhD+
+]u5AJ^i.4 u9rql',/-M\YsQp_o6v%0d1G%5OGKH`y=]mr`c`n@LoO%Mg)fQROh3Z#Tpqf
+.{utP/,muyN7QHU!!7[9#U^j/qUm`yXVuuY#Wwq<tv"#tZ`EHD0<st9(RNo3)gJz<Qg'H]
+uV".5KsX9005Nkkb0?>.DCRwb~.%$>8}\8:P$0,MIfCFs8-4eTU{5nTQe'Vf\ hfJTr}?2
+:Pa5C!,.FEk3*^&1Yklh4cO#h)K$?9-5h~2F#(X1q_0>`Vqg32Ma/x>w?9:P$086"N#&EZ
+1[NQcU.<E4j`5@+<??u7HeHcr},/`4fO-Y+U/\&ZDOT>L^Q}g?uCI|\o*UgFUli|8]mHkM
+HXZiQpg6oBJmsMFy,g^[ |_[M1Zi8J@`oKs-/Tu/(Ed@u\`4fO-Y+Uta'iub$2m;,oB'\.
+5x9a7F=T>,Pw?P<9]v?{*l5OS$Xv(*#1+1q[I6UC5xX jmuGK{Yx tZm#{C!pvhi.%$>8}
+S7_\)h67)oRpMjtvWbS5bPp{(/"Zk7C7&l%jbnM{WN'0E}09;<EWGy)g67)oRpMjtvWbS5
+bPp{18%5`8fO-Y+UoguQ"~0rq.oe&m@<',G??d5E`x@GX719-a@Q"(FZ,*&uGd QdS6tv5
+HeHcr},/b6a|JXjqjpuG##q6[ok>]n]n5A6>&E4wXDFx5CalB9VU&en]%~Ael&i6-\&~!=
+E[1[NQ"t3y21L5TQf(bG"0juf q+i6n=]|fqK.# 0rq.oe&m". ^2mSx78!J SXDFx5Cal
+B9VU&e8g&!Ael&i6-\&~!=E[1[NQ"t3y21L5TQf(bG"0juf q+i6n=]|Q<K1# 0rq.oe&m
+". ^2mSx78!J S5amr% `8fO-YA+VD=p<(R-!EF]p.J>q2b\FR:;6\:+tcl4D+]u5AJ~67
+)oRpMjtvWbL9";:3H'>vfTE!@L*JJ:Vi;47+i9ir4)*J:jk&& Ael&i6-\`Xnxqh&k2Vj'
+EF7P]pK\IjrrN[6\&7BChhQ F\p.2jUzn!+;&lR-Ep(ZDNj$&->=`#tYu6f!q+i6n=@_X7
+19-ak\03sX'kNH27:/aJ03(+3s;{P@Z9k,uGueH#"O!=CaUppssTp$ ]"N".`fO-RFEXqX
+]S-XZx ^2mSx78W@M&A/:+<)Pbdes}=#>7DCuz6gSBQOWnB;b?kcb10>;-X719-ao`qeB^
+_z&d c,fkE]n]n5A6>TQe'Vffj6R[bX0.$cLN6ov5O2k_(qOJ13R?V\n/Z$dsDtPsz4Z5,
+XV5D]dfqdW`e9Rs_.J!RbdZq@-VrkDa2I~:vTQe'Vffj0&fTplkc4~;g0ZG#M&d-!O0Q'D
+?|B;74Gm:ok0I[K4u}?cW1@J,dLdckneI"!OSTHVr}#F[9#U^j/qUm`y@GX719-a@Qr(G%
+"fG@>v*`pzRA@J'Aa0@_*JJ:Vi;47+(X+FQO<baaa&6z`)iRG "fG@>v*`pzRA@J'Aa0e$
+4ttT7=VIN6\<sF+~cKau\7;:Jz<Qg'H]uV!!KJTQe'VfKo(Ad4PI;Wh\"'/K%@v3lclYi6
+P_&6%4t/HeHcr},/b6buJXjqjpuG##9Vs_U%eOuN$PRqMj:xWs7~P`MVB9VU;{%5`8fO-Y
++Uoghd$HE[5_&}(cHt5@alB9VUkJ8f /,"cKau\7;:(X"Zk7C7&l%j".U%eOuN$PRqMj:x
+,h8%P`MVB9VU;{%5`8fO-Y+Uoghd$HE[5_&}(cHt5@alB9VUkJ8f :,"cKau\7;:(X"Zk7
+C7&l%j".U%eO!z]UAAN@-K-K.lB[+FpmP8'mA}&l720/-N2t*))8dSLJ\`Uy,$Mu[$s;/Y
+-8U'G&p#QOZudwr<@z `c/Tsd4$|$2( @=s_@@"N!=!'3=H'rrN[6\&7#vb?T6X2+/RJEX
+ovMx/fQWEp(ZDNj$&->=`#tYu6%Pn`]m5Ak_.M)62>E-]wjmO!EK!$sVoO'"M:,NdfiWjX
+sTIis-* !5 ^\{ZW5xX jmuGK{YxJ^@%5}g5*!Rp1\)8(+"Zk7C7&l%j".uECEmrP+<+3S
+$sA$[c^G--VIX0JAq52%>z*``ZZ9k,uGuersN[6\&74u;{:jVD=p<(R-4811 P!7!gsr)"
+/M%@`]hU`nkR]P3R*J:jk&`c`n@LoO8O3>H'EI_,l<o,[><+(\Q{S{n9'Kgb,R(IZ2EWR>
+re=4*h)0BRrRN[6\&7tMHsEJA|QTOHQ`2ym]3UbS]#8aX jtbchfZ']<Rh0&;?$u.aSYsl
+@:?9-5h~2F#(Zso9k1Y%./"Qu8DkA|QTOHQ`2ym]3UbS]#8abj.<Ed+/@1u98moR$s?D-V
+A)iyPg7?dkSHBNoK[*-$=XN/T^'lNH27:/6?<2^I\KDxGz V[P]s:Ck0L0)f!g,+LB\mQ^
+eP!g8{#2L\h|\PJI4G6._-8Jl|@L#[ PY/EXLN,Z@ [8TP[Gatk_b10>]OFSiB@TnV EPb
+T6s!E\"TcJ=J#%TfYz tK7n{TPV6#.=U.m-,oR0LsX[^O2Dx?22@(-I3K4W;X0uHTQa=FG
+RMKsBfaa!!<(k2"f96` @:2k@YMTa*N-@]Dhm(\Na*fv k+/27olk:%)P^Zu&*37=`0922
+r'KxZjkOR=re=4^Lk4HV/Z_Y$1u`uO_M_LtY&'^Hk4HV/Z_Y$1Ui/ZBn>Wq824sH`UF\G&
+n !-$>^R:J[gDm&0rdqh6R[bX0.$^'[7pkj">v*`V:M&A/:+<)Pb:xC_5,XV5D]dQ<dZ`e
+UnIaJ8:vJiE3WNRyK6s&/Tu/(Ed@<Cs_FbABKrSCNl[)\8+YgbhcdC#vb?T6X2ko`R`NEH
+EHJcL\'mNH27:/6?5OXItQUmuSjF8f/i 7JqpRrk5Ftq^WQN?= NiW^5qyAX.^;:Gm"fn_
+nCdBo4\ _huD?4TF\8A/V"M&A/:+<)Pb:xC_5,XV5D]dQ<dZ`eUnIaJ8:vJiE3WNRyK6s&
+/Tu/(Ed@<Cs_FbM&)z$#HO6f>,Pwn{oLOnRFcB";(\FnTuA9i\,@o3ZI`\EH$Gli+D-nND
+f q+i6u$,5LKYxDxi9^>k4HV/Z_Y$1kW58alB9VU&e,[3lS 03sXe}q+i6n=S DhpGUt%]
+/_K4#p,r8K3BsVddtjC  7"N".`f`nkR58alB9VU&e,[^wRy03sXe}q+i6n=S BvpGUt%]
+/_K4#p,r8K3BsVddtjC  7"N".`f`n<{`J0"*~ne% dSSxOf$%5a,&Mu[$s;/Y-8:,JG[8
+`\EH$Gli+D-nNDf q+i6u$,5LKYxDxi9^>k4HV/Z_Y$1kW58alB9VUts)"/M%@Ur.fh1_(
+KGa*JQMCdS6t_.CGGbv5M1G' i>j0`70d^`y@Gj`5D!|3s11 P!7 ^sr)"/M%@Ur.fh1^[
+KGa*JQMCdS6t_.4XGbv5M1G' i>j0`70d^`y@Gj`5D!|3s11 PK1KHYxJ^@%5}g5*!Rp1\
+)8(+KC8,%U?rpA?4:PT8tn@:K$jq(nc=6i;]&RUjl!\7sr8K"`=\ir\<FG`3q.?5H|(C`x
+JQMCdS6t-L97GY/i@GpzUfl!\7fE/jiRjX5T+<?? 2'b9ePvFdpvS4s@f! N$|$<K7KH`o
+IPHE"ZGpJg6X^^ D/ESK+WmJkW03pKkBm\D+]u5AJ~Z|>"n%!3!gsr)"/M%@p-rDhTv3(;
+f(#(Dtbc&J/x!(KJH!uT'soOdd""$|`Xnxqh&k2Vj'EF7P]pK\$%I1"fn_nCdBo4\ _huD
+u*lcW$J+3O+/27tE)"/MPKNMJnJz\q0=+&ne% dSSxOf$%lhD+]u5AJ~>=`#tYu6H[chC]
+)`-}c;h7EUJcEM,C_,v$bAK;8fDD0;SYI1(a"Z]Ipk_&@@@G06Gg4tUUrol',/GbNM AQN
+hh@V0|rC1C%5D\kB5DUhl!\7fENMQHjVdWS4IkB~s`oer99O\Vs>:y"nRz`d!wQTW@TkIj
+BBuP\Z +!7!'@ChhsT90=ZM+lnJ0l'^Kqy0fK[89!P0Q'D?|B;74Y/[2]<tfQdBif)V":8
+BS;C> .m/N:u>,fMtT#6u'VNg6.}cLqf`QfD"'mxCbVD=p<(R-AeI<tSHs\J?|NM A&Cpm
+j">v*`V::8BS;CCEVD=p<(R-Aeb6GzUrTP?Ssr`3Ts/jiR'lMMIauCI|UH*UgFUli|nSmF
+kM,hIoR@ hlMhS0&fTplkc4~XV:8BS;CCE(#C:HFEq*O-sQV){67I5^cF]3lO@n{oLm<e>
+I_-J!G9M`TEHEHJcL\2lSx78W@M&A/:+<)Pb&7iXK EWGylitCG%_-CG?6)IpRrkq`I6J8
+:vJiE3WNRyK6S&q)<u#%O3?N`;7O`SL/s~Um2lSx78W@@-VrkDa2I~WOA5n&#uR%# A#.h
+_ydVNHDPpZJuuz\MC$;!X719-aZ+]<]o\)ctbncz)LFnTuA9i\,@< .a,"umOi`U=3E.oE
+ u#[=_Kl6\:+?vo4#/GeGdQ(9/Q_n9'Kgb,RJkok[FE~CFZGM2Vh)k=C0|qD`U^R:J[gDm
+&0cA`9T4oP]'r R_jt7X:y2Mb{15k.%)V$M&A/:+<)q#eL" $?o[qe7v&(7V@:1dum;7RL
+K{"&;6<FauNjBK`&sQD>bTXl>6VD=p<(R-tx\Ma0!'Y4?4);X7G')gPVWLdP9@+A&l\w.M
+Z/Skq.)paM8N?5-5h~2F#(lk@,e5)9.Wpoj"6^Hg8FNVVc\ZIor}JmN02%?[v-A05],C]=
+(-9l_c$@@<R73()|`*6~"$iosP?R88!P0Q'D?|B;74?UpElcW$J+3O+/27tE)"/MPKd#kj
+6R[bX0.$s\BeL+"/euWwUUe~q+i6u$t}\&H!nv$Pfyo6v%Jhuk:xAD!(KJe^BB!!&Mb&=Q
+I]Rw&[tM^I2Vb '{/If=.wY/9&uWiA@W@s8ht=,Z>c><$VVGX08S^I3RG  V"/?9-5h~2F
+#(lk@,e5h(dC#vb?T6X2koTc$!(^u+tiHeHcr},/^R:J[gDm&0cA`9T4gHmHGi"fn_nCdB
+o4\ <g>=`#tYrScnionO8'1`kb15h|t8#2%mt,HeHcr},/,`bB5x9a7F=T>,Pwu2TGs@j<
+U#=)h\!"@Bu\LhblEs`lnE*Ibb`n<{>(1BVQO+,4@Lh.dClk!-$>^R:J[gDm&0cA`9T4Yz
+]<]o\)ctbncz)LFnTuA9i\,@PLJ=23S6Hr(/@;[rhf>X`:7'3XZfAylRJuFoTuA9i\,@PL
+J=23hkCxmj/*6+pUVvXWTAAMSeEV"Tf-6R[bX0.$s\BeL+"/Gms}+zN/+j[8(qJv-[965}
+L.`;7'3XZfAylRJu_ni/#Z<E/+f=.wY/9&uWiA@WK^gdu_qLf\5%)gPbT6u=$PRqc@76Bd
+HUpGUt%]/_K4#p,r8K3BsV90.SBPQx%tL]detjC  7*<67I5^cF]3lDUpZJum:n,ei";(\
+FnTuA9i\,@PLJ=23=`.m/^&ZDOT>L^FE0&BZqipGlclYi6P_m]3UbS]#8a*bt[DF;!S"hs
+*{W{Vm.iZ1cVrXrpqh32KF!'/\&ZDOT>L^FE0&BZo/ZIE!DW0|qDq^"B?9-5h~2F#(lk@,
+e5Ww=C8$uE)>JuZGj<hT!l'7C'&lGB<ye[k]hSH3CFm"u[$fki?/:POk]19/Q_h3O8V7J.
+QHJp"CEt/W-87uT.h3O8\]O,1I$#HO6f>,Pw=J!6"!Jx/\-8"(6`ca`QL<2yRv&[H!3hJz
+g\4Dfx-&EkDC>,0Wf,MLu$)Na=^?U!]EgrtuWb?^3_"-Jx/\-8"(kEkc9c2u`SL<2yRv&[
+H!3h`Ps3mdGYACDd<?cYQ{+0f@`QL<2yRv&[H!3hJz<QhndYPh;biC"&Jxe2o4bfiIb`Sx
+O~M,47+CZ1cVYoKeKJ@;dWNHK\J@O $Jso2}LDFI3lDUYPsV90*w&p(KuM^SU!(@iq^5g/
+G'u\$fki?/:Pimo$uU;pMpbDX ^!21Z1(;C&(#C:Eo0,kg$eB;74?U$y@<',I}7\EkDC>,
+0Wf,0&fT:v)d$#HO6f>,Pw=J!6XW`m[8B;b?5m`;7O5H42(&p~MM\8+YZu"LPNa [82'Z1
+(;C&\w$[qEW)M%sp2}LDFI3lo`<f=;k[fpg^Tsd4$|$2( Anu\$fki?/:PD(tOIi^%o<Hk
+6!.^@)Jt6DAF2ykQ<GGh0,kg$eB;74ukT.h3O8\]lyN?3kHb.'J9^L)y$#HO6f>,PwYVd:
+#^?!t=btJm"CEt/W-8]/J7RRj*rh*{RJ[/fg,B`JDV* ugr@Fn:;6\:+v*K=KMHk6!.^@)
+Jt6DAF2ykQ\gUyGo0,kg$eB;74r(E4j`FQGb>0?p$+K3sp&Y(Ra< QVuS25,(( [KJ=vhC
+@Ga*[82'Z1(;C&VD=p<(R-W;&eiXPEnmf!p)WIFcEf-KUS*UgFUli|nSmFkMJ>O Jp")qh
+'(4w?6@nc/a`*+Plh3AjYP>s/}%F5R1<8+`u9I#3&7etG M-4u5D@Ga&-91<9|`u9I#3&7
+iXG M-4u5D@Ga&`lm6B;b?5mTGs@/Y-8d6tAawFam^ANe%d~V~?V1c,"Io\*17n=S Ma[l
+Jm"CEt/W-8gyZ']<mcGYACe%G,NpCpQD5Es!hmV"/m[RJm"CEt/W-8?Q#X?!t=+%9FrTcn
+ionO8'1`kb15h|t8#2%mQ)'>^"rDrW-41%LB!$7U kAku\$fki?/:P3wn-io,i?VSZnCav
+!AP(3RR3)z(D0 `ZK2)zJz<QlBGss{%g(1OG`U=3E.oE u#[1SNQ^k.LBmpyoD_4\mFPHk
+sj#-27GlB;b?D)b?%]fp2ih:.He>_m *6!.Nf.-YndYsU!a&ZqpGflcm!NfDN:s0S "Sj;
+>FYd2V@-A%-o.$TJJMH)Zk`X;3g30x')* Oh]1J@^/[7pkj">v*`V:@-*._8=U-V.$dZo4
+\ YVkY.M`u.b6T1LtdJu?bhfHEE!/K%@f8MLl{lI,Wh|h|Rw&[H!3hJzrGO&Bk`y[8ujm)
+iB1QX[O+,45<MCP!`U`*6~m?jYc2b}\7+*1r^M5DMCP!PjFMJhP(?[Yu&j'"mHGYi+Cx^L
+19h|>r*`kE]n]n5A6>*7_8=U-V.$dZo4\ Hkit&k]l5AuiN8b0.ba_i6-\`XCm*2nW&RsV
+tt1<ogRv&[dS6tC s`oer9?>fT-Yndoe&m"^!=[9(z8*3]b=BBJQMCdS6t"a$cqO2%>z*`
+`Z[;b$.ba_i6-\`XCm;;(<`ykR.MMEYwL, 9K1KH"]qO2%>z*`5O?WsU.nsTe}q+i6n=kj
+`vkRIjuUf{'&06GgRR$& P8$/m<zNPN[Fc3lO@rcd;N%\$[7pkj">v*`V:/upgh/fV(y8*
+jxi#_PItLaT6_!\8+Y<w/\C:&lGBr}t7qLqGoe8?e-Hksj#-27GlB;74,"D3M(pRoe<Chh
+3Vg)H]]^5AuiN8b0.ba_i6-\`XCm*2nW&RsVtt1<ogYydeFT3l]n5AJ^MCdS6tf%'lM:T6
+dR6tJK4t`bfDSDbP^)tY!b=\$M,%TyA.*J2"(X [%<Qm/Z$>27RoMjtvIiuU;pqT9!T;`x
+c/h7EUJcu}994t\ZIor}t7sZp} 1L"G??d/G%@sX90*w&p(K"Z@<hmJZ@Ui9]~kZ58alB9
+VULK,g%5&>P@Z9k,uGueE&Ij**"Z@<u:@i!!"N-y 8`c`nK}[<Eha ^EVr;4g3i6Xg[;!C
+Mcb0.ba_i6-\`XCm;;(<`ykR.MMEYwL,`o`z"N$PGsJJIlB~s`oer9 O!mn__I>n*`pzRA
+5o-a0v%5`X[Eu6a+\<58alB9VULK,g%5&>P@Z9k,uGueE&Ij**"Z@<u:@i!!"N-y 8`c`n
+!>sr)"/M%@5R?6(\DN/I%@sXsTYyde`nsVe}q+i6n=! *B& Zm#{B9VUH(kT[>06 [ kqO
+2%>z*`5O/G%5!9KJYx5I$)K7KH!f@C((GgpT@"V;X0/gZ1cV=uDCPM@u>rhfHEE!/K%@f8
+=|7ZCj*2I"A qXq?&;DNoYdVNH=I^SVr;4g3i6-\%=80hF#yjoi6Xg<{)kn__I>n*`pzRA
+Pj;biC"& ^hg0<c~o4jnuGtD)"/M%@5R?6(\DN/I%@sXsTttWblrR#2@K\P)Z9k,uGueJK
+IlB~s`oer9 O!mn__I>n*`pzRA5o-a0v%5`X[Eu6a+11$$3ss3IjB~s`oer9Et!X ^ kqO
+2%>z*`5O/G%5!9KJYx5I$)K7KH!f@Chh_PItLaT6_!\8+YAD[8[zO5dR^}P/OfB965t6D'
+nF$L,%ELo\jr`%6@:+?P>,PwYVRx1\NQ^ktY!b _cbidVD_7tY'(rrP G??d/G%@`UV`0S
+NkE|r}#F[9(z8*3]b=4tuu$>3yD$\<?2:P/K%@Ujl!\7fEG&7PVIX0\7;:*ZP@[;G.W{q<
+E'Jca)<{6`8VBk(;"Z$Pbn`n!>m,O!6\:+B9VU55*JJzg\4Dfx-&06qL2%>z*`5O&>P@Z9
+k,uGueJKIlK/+ ?E'xdR6tuV;pMpbD"* ^=\23@4(-Gsp0sVe}q+i6n=kj#1!=!WlhD+]u
+5AJ~>n*J"R ^=\Js(2 8 [#N`f[;[>@ToOj*pw/XC:&lGBr}.1YyKKVS0SNkE|r}#F[9(z
+&n7\pvsT#ZVL.Mkc[>06 [!,)|k;*J>=`#tYu6 +6!^j/qRnMjtvWb%KNS$5!=[9DF`H0:
+oge}q+i6n=kj#1!=!WlhD+]u5AJ~>n*J"R ^=\Js(2 8 [#N`f[;Eha JQMCdS6tf%'lM:
+T6dR6tJK4tD$\<ps4t\ZIor}t7 7Mcb0.ba_i6-\?WsUYyde`nK=u$$PRqMj%C#q!=`~kR
+.M:w!"@C@Ga*(("")y_8=U-V.$dZo40th.tSBef)V"0"Pru1)!3YukC}*2qjpGlclYi6P_
+(x8*lzlI,Wh|h|Rw&[Zsu?&;N+=FM)\7;:Jzg\4Dfx-&pvsTBY>.DCR?7sZz>"%|fUeI+5
+C*PV8Sit^5qyqjpGlclYi6P_]MF5m^+~'v.MbCbH^LU!Go#X[9]OM$nCK{"B_ZJwPcj+ih
+b`Sx[A[7pkj">v*`V:@-Vr!*qXq?&;DNoYdVNH=Ik`.MK`;CAms3]TF5X)n/u+tiHeHcr}
+,/p$?*CW^^Hksj#-27GlB;74Yo J!mn__I>n*`pzRA5o-a0v%53k>.DC(#C:[E[7pkj">v
+*`V:@-Vra*_PItLaT6_!\8+Y<wsX90-RNm$5uq]RF5m^iXt s>qLqGoe8?iq^5qyDklzlI
+,Wh|h|Rw&[Zs!k'7W{q<E'Jca)<{JzYwL,"1[9j,`F0:Z2]<O,1\lkmDjYc2b}\7+*DelK
+e'src`b]90[c[d/Z-8?Q#X.N9alCj/uGK{Yxuu=Y"#$C@<hm`O0:Z2]<9/\J[&`b%O#[1S
+NQ^k.LBmpyoD_4\mFP2EEReH7qSQZ"Oj]19/Q_h3O8tU(EV6(@dn@8AdER'J'PBU?|-rB<
+/%A}&lGBCF5JHo2@e%iI2PrbE<ERqTpGlclYi6P_]M$[Ui/ZBnH:[,;-<(R~h3Aj<wu2$P
+RqMj%CIW ;(f&>euDB"42mUzNY$A_UUjl!\7fE5TOo?[Yu&j'"mHGYi+`yK}[<hf32KF!'
+IV`{@:D/\w$[@9kB]n]n5A6>X3E"u5Fb^\)y_8=U-V.$dZo4\ YV`NEHEHJcL\Qoorjr`%
+6@:+?P>,Pw`U:0j%u%tiHeHcr},/Dxk%f,/^SZhs_PItLaT6_!\8+YZumwD+]u5Av*769`
+%F&xMlUiHksj#-27GlB;b?sv%g:C@[KaKH"Qu43W#OP`sgW>)b_8=U-V.$dZo4*.(!8Iu#
+`* p`c@:^C/X,xO8+t+h\])-6X:+Q(9/g5ouan`R`NEHEHJcL\Z|T?]s\]O,1\kXG#*{;>
+ij)z_8=U-V.$dZo4\ <g>w/jH\B9VU]oB965npRAhPBGu})hJz<Q;9&/O'Pv%*`fe]c2b}
+\7+*bC5x9a7F=T>,Pwrc7vicouan`R`NEHEHJcL\Z|T?]s\]O,1\kXG#*{;>ij)z_8=U-V
+.$dZo4\ <g>w/jH\B9VU=[G0A>]c5Av*P/OfB965t6Q*O&RAA1A4?6:P3wuuis`VpzRA*4
+8bHJ,}m?YxuuJ4""e]c2b}\7+*bC5x9a7F=T>,Pwrch?cmlyN?^v.G"F"/);D-c^&IGXu`
+uO_M_LtY&'2Lc5A%nKAP.^$JR.5,?6P(?[Yu&j'"mHGYi+YN[;G.W{q<E'Jca)<{KU=F!}
+@CUUT3a5:8n/A3L3EJTQ/#7;$u\AbD5=alB9VUS25,((Ju)6AZ[]dR^}P/OfB965iKqW7/
+)u)6\0=%/#fG:JoHdWoTjr`%6@:+?P>,PwYV *6qA('Akzoe&m@<R7Gh1.lrR#2@K\JYfs
+tT!g9MU&RSri;hPf79QxNgVxZ9k,uGue?j ?Z&]<lyN?^v[7pkj">v*`V:+x9hh,bs:EoH
+dWoTjr`%6@:+?P>,Pw=J&[rrP G??d/G%@:wau 48YJ{(pl{lI,Wh|h|Rw&[JY$PjM)22>
+U%T3a5:8n/A3L3EJTQ/#7;$u\AbD5=alB9VUS25,((JuZGj<hT!l'7[?!CM:T6_mh2&?oK
+oI+yR?X4Z'n#'"@0(?2bh:tN,n;F%%jwuGueToc)[k$ ?$J8)I_8=U-V.$dZo4\ gr:4-k
+oI!#RpMj%C!/ ^ Wu4_M_LtY&'akqi&kKCJTE%D't1!ghd"'IU\(!cfD^"Ug0&?cSJ/Xc{
+-Ynd*WBa$MdG;2YIJ4`n`mmL (6qA('Akzoe&m">gCsIJbYZc?.%TtMT0Qh|?3Qa;4g350
+se)"/M%@*g5QXPJw`nkR]P3~*J:jk& [ #@C7Vh2>]a`.RkUe&\7fE7Vq<g9(DRXVEdT%:
++{'v.MbCbH^LU!Go>Scz7:?N`l\7fEK*)k!g8@t~;^=.Q-O&RAA1A4?6:PQ-%tl}$X)/$|
+$\n&lclYi6P_(xRXVE""qeEh=xep.%`@0^iiQT-bM]a'u*J>q2b\FR:;6\:+tc2jCn=uM+
+<>o$</2k@An=9alCj/uG]Mf#=^S6S0d7#:II8 ^j/qRnMjf q+i6n=@_pz 1Mcb0.ba_i6
+C2upKGK`$}$<K7\y4q@6.FqP#Pmu@y$,27'lA}&lrMPFJNMCdS6t"a%DCaUppssTp$$~"Z
+gCsI`n``hhQ rdh?0GNgHJqyoer9mlO7lpAS=uM+/Q5,Oo?[Yu&j'"mHGYi+Cx-*&uGd Q
+dS6t"a Wu43W#OP`sgW>+m34H:[,;-<(R~h34=0"Pr\xBChkpij">v*`V:O5@%KSXY"^2N
+h>EX`j?N`lc9.RkU9z.^Cb6UGcSdL(dwA1j}qOR_0JJ !bYNn(qeJWMCdS6t"aK~u$$PRq
+Mj%C)G,(oO)jn__I>n*`]W3~D$11oOdd""JbY2TP[;G.W{q<E'Jcu=$PRqMj%C!gKJ"A#"
+II8 ^j/qRnMjp&$~)!ogdd"":Rk&tWY~*\X7G')gb(A1FY:;6\:+tcl4D+]u5AJ~v&UUuK
+ YKJiXo}Ii4tIV"Q ,K7(%>'DC$!Z-KS1XdS6t('bOOz8P/WM4m>-XFb!>c_b]90[c[d/Z
+-8?Qh=q^fN'rpsoer9UtMU IQ3uw<L';l{lI,Wh|h|Rw&[l{7"37L9";r(nA-}66l>PoO9
+lpjr`%6@:+?P>,q8`(6~g9S9@M`GEHEHJcL\0JJ !bU{*\iy>V`/ IGf Q*EZ-KS1XZ[XT
+$!hYBG#u0~NQI6c>>5akqi&kYMU_d7t+)"/M%@*g#O&$rrP G??d/G%@iv)h2"i9sTp} 1
+Mcb0.ba_i6C2ZuKHK`$}$<K7S0d7#:II8 ^j/qRnMjf q+i6n=@_pz 1Mcb0.ba_i6C2up
+KGK`$}E]P@[;G.W{q<E'Jciqo}Yyde`n@LoOp$[xa`s}EV5_el6W-Y.$kb15h|]q,;\ZIo
+r}t7sZq ir)h%5XPhU`nkR]PH?""""JbR#`U=3E.0,kg$e_RItLaT6_!\8l:]/A/"nnSB=
+jWb|IC:8sTO$HICF)6o:2kkP/fkQ`R^LH!uDM1G'r;lclYi6P_]M].J( soM!#,~lDmr0&
+Ac.2_+Uh%]/_`1cs4>8J`^?;sSuh3BTk +pY9PP)rqNP+XNM A&CAFqXq?&;DNoYdVNHo[
+]'Q_NU^|KCB9VUv5_M_LtY&'![4?H:[,;-<(R~h3Aj`GEHEHJcL\s1_PItLaT6_!\8+YC^
+6IlnivQT-bM]u;$PRqMjv4,n%pQ)O&RAA1A4?6:P!%.<^%Z'n#'"@0(?k[d7`;HXA>^D--
+VIX0JAX|TPZ9k,uGueuV;pX7ttb\$2<8I"^L19h|>r*`5?alB9VU$#II8 ^j/qRnMjtvWb
+@-e7)kLrhz4isVttWbS5bPC."13y_,K1# II8 ^j/qRnMjf q+i6n=@_`i@GkXpsRAXVK[
+`oK}[<psRA@J'AVE(eOG<YUC/Z$>27RoMjp&:Ik&Y\)ErrWBR92mUzn!+;&lR-Ep(ZDNj$
+&->=`#tYu6j-h.r,#P[3$/pxS4IkB~s`oegN,[D_W>]|f#ir U21+&9F[5`Y4WHr>y*`V:
+]or8m~L\h|iM1G@6iWk)@9`cnVbe`n@GGmBB!!`LI1n:&;')q.*W4-=u[r=[.LOhM,47@x
+H:[,;-<(R~h3?(h>O8V7J.Z1TI<+(\Q{iQh.r,#P[3$/GoCF5JHo2@e%nn'"M:,NrdulVN
+9`crg"\8A/p|A((/Xa<+(\Q{Go]gB^_z&d c,fkE]n]n5A6>TQe'Vffj[qUK<+JJA>0p![
+_JjF7UO?LtH5&d c,f(">$8)ceS2#vJjv0mrFx*kuR-{qL?v[clu0WUyVao[jr`%6@:+?P
+>,Pw?P<9mFVg/fkQi6n=`_EHEHJcL\a'P2?[Yu&j'"mHGYi+pij">v*`V:JApT@"V;X0/g
+Z1cVu#$PRqMjM+=&`tSvB9VUta_PItLaT6_!\8+Y0+tmu(a`.R@B::k0rrN[6\&7b}IC:8
+sTO$"cY7>z(#Z|do'kA}&lrMPFR6tg)"/M%@@=P`MVB9VUuuY#<+JJA>") ^2mSx78!JU(
+eOmDO!6\:+B9VU\ZIor}t7 7Mcb0.ba_i6Xg++$wdS6tuVf{0&B[$u6IoXUOIjrrN[6\&7
+BCKr9i_FtY!b=\!j?E'xUOIjrrN[6\&7BCXDhU[;d7^W[;G.W{q<E'Jcu=$PRqMj0.cKau
+\7;:,\*JJ:Vi;47+i9*{g+EFJca)`z@GX719-a@Q,"cKau\7;:JzrGLsIjrrN[6\&7BCKr
+9i_FtY!b#N ^2mSx78!J S8$P`MVB9VUuuY#Wwq<iKK^`o:8BS;Ca#O;<YeSdWSxbCjPuG
+]Mf#irA\Ti!0JbrCqe`- I4Q$+VGX0L(dwA1j}Q/e}q+i6n=JiMCdS6t"a2mSx78!JKJa*
+kR[qUK<+JJA>Kk`o@LoO9Y4u\ZIor}nqQH]Jfij)n,p$KET3P],bhekG*;_T/L%@;->wt7
+F~6>DNDf(c0+Dkp_[7@ArFABkR033v11 P@64XI~VI90<DauJApTlLm6m(Dq;2?[!>E[1[
+NQ8Jb}IC:8sTO$cDZZZ6AO[8FE V"/k5C7&lPu`U=3E.oE u#[=_Kl6\:+?vo4#/GeGdQ(
+9/r Jmp8JcPL3nPK+JiDu$s$t[5FDB2dh:tNqLqGoe8?Jr%AWp'uX7ttjLb;Rx>1KZo+_n
+A1cVA05]7.lkcRAFQXO&RAA1A4?6:P>bZhD./}%F5R&FGX:8'68KtH)"/M%@@52;% J3Wj
+Boi\`AVGN6P$c`.5+E^#sTv"P/;:2_Bp(7Gg5K&>P@ [#N`f`n<{k5B&-nG1S[-b0v(XY4
+j&S &j6Y-~pG=hW{VVK5#p,r8KRSIiDB"42mUzNY$A_UUjl!\7fEba`f_PItLaT6_!\8+Y
+ [#N!'=+czidVD_7tYZ;2MBa,UCZo6bftb5Fs7;aoN&km(b10>ug*bI[_kFF4&J !bWy<f
+K*TT`*e~q+i6n=! #[g)H]]^5AL 9i_FtY!b/Z-ED[%OO#ktUbGF,]m*:,^?dG;2j"]d_+
+i  y%kmxrM0ZL]e">5@:1dum;7RLK{"&D{lj"q=}Pgh34=n,<@GmAQ` :v`d!wQTW@c/Ts
+d4$|$2S+d#S &j6Y-~pG=hW{aA[;d7:1TFP,@% Hihu$^?Q(qgJWMCdS6t('<|`pfDSDbP
+^)tY'(Ael&i6-\F^4uB;K~??#OtcXT.y-6D[cM=zM+jl^\inb_'UN>3kX7Ne,5qX]s5A6>
+[8;2Q]&%a<t<Jmp8rccEp9qi&k(03vEXrH-$[H3RG;V;N.E&u0*b5W/eRv&[u$#<ODkhKC
+t#"uDtbc&Ji25FV=[m)LpsJoi{#(bgA1Zd(#N$KT PGSb}IwWj21L5f#WX#.8=Eqmhu\ 0
+GY^?U!ldD+]u5AJ~Jz%A!zjI8f0X&lFY`=7G#O $ [cBPo0;Y\uA]2HFE!/K%@f8sr]`jR
+`% I7V\SO#<+JJpAf}2@)~)GNQHZFLSlme1CevBg?u^>@:VE-%Ug%]/_uf*bbYe]pT@"V;
+X0/gZ1cVTjgrjD kt8`oA%J'?r,qXj\ZIor}nqQH]Jfi%!SHC3mrYG1{<e2Gipp&Et03<,
+I"iDG{E]-Y+UAVQX<K6jEopsunE? <<2I"l'0g-agXU&iv@_`ip7.n(-tTi>CCfqe4PBG1
+#K!?iG#B3suuY#Q`L~-aVP=)(<`yo[qe]j&1O9bC?30'%q s.?]=(-9l!e kt28moR'"/_
+Gl=chFh7EUJcu}`d_PItLaT6_!\8+Y [*ar.Q\hn.%??oY[GZVZ9k,uGue27l3kNjr`%6@
+:+?P>,PwKH!f SGN_Rp%NP>u*`d>TQR7X4Z7(;p+u\ZR8S[8;2Q]&%a<t<JmhDrccEp9qi
+&kS;<fv3I"TT`*e~q+i6n=! #[g)H]]^5AL 9i_FtY!b'f-ED[%OO#ktUbGF,]m*:,^?dG
+;2j"]d_+i  y%kmxrM0ZL]sp9?DC"4Up8{&=PZkce;u$ Ao3FH3lc4Tsd4$|$2S+NMhh@V
+0|R#sp&Y(Ra< Qqp^EQNA1-Ym3JDNo&~(0Ggs}8nQ_[v$ kPt_5Fo=fl`*e~q+i6n=! #[
+hj3Vg)H]]^5AL 9i_FtY!b'f-ED[%OO#ktUbGF,]m*:,^?dG;2j"]d_+i  y%kmxrM0Zl}
+q]]s5A6>[8;2Q]&%a<t<JmhDrccEp9qi&k(03vEXrH-$[H3RG;V;N.E&u0*b5W/eRv&[u$
+#<ODkhKCt#"uDtbc&Ji25FV=[m)LpsJoi{#(bgA1Zd(#N$KT PGSb}IwWj21L5f#WX#.8=
+Eqmhu\ 0GY^?U!ldD+]u5AJ~JzPL {jI8f0X&lFY`=7G#O $ [cB^=05Y\uA]2HFE!/K%@
+f88.Vm$08}DhT"n!3G(5PMFEO:?YTPprG29@sj!g($Jgot<(l'0g-aBsRvNA/\&M?>BP!~
+YkrqNP+XNM A&CPMFEO:9v/m<zNPN[Fc3lDU^WZD_x5Yv*9Yh,2k<y+Wo D+]u5AJ^i.4 
+e);8#4=.p>YMQ[<fFsDzup2R!!R9]p:-MZc"Vf;_Gnsy7?W>2RUU[8c @AR9]pJM6Y&7)r
+iDuKRSIi%!;s P@6$W]Ou9/)XwMUk_kRuH 3!7[9tF-s8CVgd'7CQ"de:Rk0_-V:(@9cG`
+a`0R%J u>j0`70[EkO@31d`8 I;xBnm=uB$PRqMj:x)I_8=U-V.$dZo4\ Eha@`GCIJ: s
+Wqe]dDtO)"/M%@@=Fr4xOo?[Yu&j'"mHGYi+=^0:Eh2\>w/jH\B9VUj?>5cmiV3l[lJePL
+^ygXIHbCsy[^O25IcA)v/zTdP,@%KSY)gqUt"UY1TPZ9k,uGueK0+ 4d, ?E'xdR6t"gG@
+>v*`pzKXFUX15uSJjlt2'pfq/X'"4&J LmJAdRI_U&@E[]`.[$&H$m`Xt>=@+OS6e">5@:
+1dum;7RLK{"&D{lj"q=}Pgh34=n,<@GmAQ` :v`d!wQTW@c/Tsd4$|$2S+d#S &j6Y-~pG
+=hW{aA[;d7:1TFP,@% Hihu$>oQ(qgJWMCdS6t('<|`pfDSDbP^)tY'(Ael&i6-\]u4tB;
+K~??#OtcXT.y-6D[cM=zM+jl^\inb_'UN>3kX7Ne,5qx2%>z*`5O`Xt>=@+OsVjrRp"_Xa
+rqNPq^A((/JsPL3n?u33*#`+ pAB((Sn\K`TCIuEVO.b!b$-iwc?%d[{+9Z1H[f"Xao[c#
+IiUnK3#p,r8KP)3RR3)z(D0 Qp/j-VM3;}jX[R9aLM@Ai~GmTPu:8moR$s?D-VA)iy5;Mk
+PP#xB;b?58alB9VULKlkj9sUH$6?0aSGoAM+A&*thhsTu\/G(XB-[8rglclYi6P_ue*b;M
+O&<+JJpAnZb[.%`@s;CNT;$~On784=fqq?#P0(uOiSX1awAP;Ceg4pTkZOePC_TkDM3Asf
+Fb;AmHh4*ue\IHbCPvbAK;N<cAPo[lcvb]90[c[d/Z-8/A=DYn_x5Yv*9Yh,2k<y+Wo D+
+]u5AJ^i.4 e);8#4=.p>YMg1<_T)Y-gqBhLKKFTUeOe`]#JM6Y&7)riD*NnC&v">\X]<3.
+oOFZH&E]-Y+UAVipuKRSIi%!;s P@6$W]Ou9D^\lN34~fP-n%=BzXW 'Q,<K6j[Epvun(q
+bb`n<{k5B&-nG1S[-b0v(XY4j&S &j6Y-~pG=hW{VVK5#p,r8KRSIiDB"42mUzNY$A_UUj
+l!\7fE_~X?)v(w+{'v.MbCbH^LU!Gop0sZhd$HE[5_&}(cHt5@alB9VUO.O|n&gO)I_8=U
+-V.$dZo4\ [>@TkQE9]o?Uq9dR6t^I\KQE\wGZACuL*bj\nv_nA1u(hy7X*d6uAW!~Qc[v
+$ %J<btIG&Tr`g=62k>=`#tYu6 +6!^j/qRnMj%On`]m5A@T`y^E<(V&9dEFu4O#nSRv#P
+*#`+aQ50B9_ze]02=nk2=QN?oS`,g T3a5n,fvLa,.^$q~Jm (^w?/:PqM-41%LB!$mK+Z
+]=(-9lB&u\LhblEs`lu,E.,C(<NQ^G@.+c!g"$U%`*Q>m(.|6UsTJd%AE>Z>TPZ9k,uGue
+K0+ 4d, ?E'xdR6t"gG@>v*`[EkW?2.$f.W|]mJYb\G9dVLrP,@%ksUb\7?|BnS4Z"EXYs
+7/1Cj#\7+*rS?v[cu^oW+kPM+J[v ~c|=zM+"dADqxR_hf$H5KQx,Z*~a2TAsr ch0lqGY
+P23RR3)z(D0 &e[<a.Ay-oqL-41%LB!$mKFU,gbC;3d0ti'I-~0@YyAO`'g T3a5n,fvLa
+,.^$q~Jm (^w?/:PqM2%>z*`5O5MMkkWi|#(bgA1Zd(#N$KT@@kRsr0s(XB-[8rglclYi6
+P_ue*b:g/l:8sT^cWj'nX7ttjLWfDa3}2n&lq68db].%`@s;CNT;$~On784=nylI'"@0th
+\q:-MZc"VfU94ETkC4TkrC3ACFFcqW_'OKo7Fc[amFl8dW70S NA?\BP!~YkrqNP+XNM A
+&CPMfeOM9v/m<zNPN[Fc3lDU^W?Ip= Eu7@G[]`.[$&H<E>=`#tYrScnioCDM[9c\dFx<c
+T)Xvgq9}YNrXYMT>uHE&"".<ELT;$~On78W@o]iu:0;Y$ua*`mt[_*!2:RmrMZc"Vf;_Gn
+Dz]XJw,\*J!8&|K7heL8/C`I)/DhV_PBG1#K!?iGnm`alz'*PmY{IjK!"4)y813X!e"YiG
+Y8K2)zJzg\8o6O&p;8.TO9@LGms}j #(bgA1Zd(#N$KT'/iiO1,uK} Eu4WQrs#PRz3u.q
+o>D+]u5AJ~n C3W>6m zlzlI,Wh|h|Rw&[$}uMUUT3a5:8n/A3L3EJC s`oer9q`3{>B`o
+_PItLaT6_!\8+Y [*ar.Q\hn.%??oY[GZVZ9k,uGue27l3+~3}IKOo?[Yu&j'"mHGYi+=^
+0:Eh2\>w/jH\B9VUj?>5cmiV3l[lJePL`VgXIHbCsy[^O25I86*e/zTdP,@%KSY)gqUtn!
+3OK:d7t+)"/M%@@==]A"'Akzoe<CP`MVB9VU]]sZRv#PG)-~p,Uh[iTx\8+4AX(!HRn)DZ
+'~>9,lo1TP.LPvU%2kt?Q\hn)h^h;-b2]]JW%A*k'rdVNHu\LhblEs`lu,!J]UAAN@ocUm
+;.i"OpsT5Gp)L^AC0XhM$!b-5i 8<2]vFOj=m>-X@ PKfe2p=/eCh7EUJcu}`b%O*B& Zm
+#{B9VULN3_/K%@^#a>^E<(V&9dEFu4O#nSRv#P*#`+aQ50B9_ze]02=nk2=QN?7{s1oe8?
+u='|DN5G3u8Plk\k[z ~c|=zM+"dADqxR_hf$H5KQx,Z*~a2TAsr ch0lqGYP23RR3)z(D
+0 &e[<a.Ay-oqL-41%LB!$mKFU,gbC;3d0ti'I-~0@YyAO`'g T3a5n,fvLa,.^$q~Jm (
+^w?/:PqM2%>z*`5O5M86LGE4,C(<NQ^G@.+c!gK-KHlk\kS:<muk>X^C Q6Bi 5BL]^bAs
+s2[B%Pg*L~dwA1E8Z>*))8dSLJ1Ui@[)bAK;N<cAsr8mnH,j?6i!m&lI,Wh|h|Rw&[RkYl
+^xs8 2ufDWA\'99.pN:o]M |[PtC\wWx!0nr:IB*"N")O+*h`= $ADm_ UY`^Z!X\dEWS2
+=QN?Cg\J?|fZ9V-egDutimSQ7CGms}l"a(8o1zi@/}nH,jQ}nl\'P==&Jv,k5D9Vp&ctQ{
+i/c9.R[!0%]V,sP{U&`*,Yty,:8<maio7TjMLcfwQhIV\(tVf!:Rk0:`k4=SdWNg6(/`$>
+-5J=-nZB,js.Ay0uX8EW_x5Yv*9Yh,2k<y+Wo D+]u5AJ^i.4 e);8#4=.eSuL$2+1:yfq
+bMQ5j=_+XoOSsG(ciD"` W2uTiEXBoi\`AVGN6,`<y+WWX(73vI|Vj;^)9euhf<*?q,q;-
+Mg QXDFxZXq.(CQ{>F?q,q;-Mg[lDwLK ER1=QN?Qu@~"N-y`xs+\GfgWMT3N5fg,B&eQp
+P/J(?r%=7U\A,5W{^>/]6\EJ"g,Z9VH#Q~@~o[p$hw3B<)KsNMNMPof*rD0ZL]8i`o<{k5
+B&-nG1S[-b0v(XY4TpH'6?0aSGoAM+A&*t!k]UAAN@@T`i`GCIJ: sWqe]dDtO)"/M%@JO
+IkR%qXq?&;DNoYdVNH"NJfeu:)@ZX7G'[da4]o\ZIor}>AaS8'Km7{/m<zNPN[Fc3lo`.n
+S82sRGdWidVD_7tYrS2%>z*``Z[;b$.ba_i6Xg++$wdS6t.+j'-KD[%OO#ktUbGF,]m*:,
+^?dG;2j"]d_+i  y%kmxrM0ZL]sp9?DC"4Up8{&=PZkce;u$ Ao3FH3lc4Tsd4$|$2S+NM
+hh@V0|R#sp&Y(Ra< Qqp^EQNA1-Ym3JDNo&~(0<|t-EVrH-$[H3RG;V;N.E&u0*b5W/eRv
+&[u$$PRqMj%CPNqPQ\UU/j-VM3;}jX[R9a!B3suu*b2109lORNAPsL`OL/cLgFrD0Zl}2V
+pKI.b[.%`@s;CNT;$~On78AjR>m@*e`=0tC+s1u$@1WJL9k4MmUo;.i"OpsTu7^e#2bbo'
+h.>],Wi@=R@A"g!mStbC?ERA\QsWrljd>F^C`qoRh6b`Sx*)?"n'^J:J[gDm&0/-f=.wY/
+9&uWiA@Wk~fl>Xf#U>$W19d4N%aI@:czN%\$[7pkj">v*`V:0"Pr]MF5m^&Y@oqXq?&;DN
+oYdVNH=I`UEHEHJcL\*0_8=U-V.$dZo4\ hfq^+P/!oN422PRp"_XaO+,4p$?*t(0kRJ-\
+NI[RHksj#-27GlB;74YokE]n]n5A6>P3?[Yu&j'"mHGY> oNTc5bK^`*6~h*>]pu^~JoJg
+jqjpuG##`uoRi1_PItLaT6_!\8+Y<wUjl!\7fEmLDq;2jfuGK{pU4t#ca=@N!7!gKJ`y=]
+Yx**]i[7pkj">v*`V:HJ)y(=^\a]lzlI,Wh|h|Rw&[Zsu?$PRqMj0.D3M(pRoe&mHtpw=^
+%%!7)|-}n&lclYi6P_]MF5m^c2==VTacoVjr`%6@:+?P>,PwKH`y=]DCta'iub$2m;m@jY
+c2b}\7+*DelKe'P/Z[6rP)?[Yu&j'"mHGYi+YNZV't_I\7;:Jz\q/L7C&m2vmetaLgkWEh
+(#C:HFEq*O",o5DslKe'P/Z[\X[7pkj">v*`V:@-VrkDa2I~bJeu'l,"'v.MbCbH^LU!Go
+o$D+]u5A`T4W?9Qa;4&R`]UykS-I@zK5WG5M/3-Ncab]90[c[d/Z-8caN%FN"<$WmyjI_+
+m$oE\@_a(6 0qL-41%LB!$7U('4w((o2ZIQFm(3UbS]#8a)AD-VD=p<(R-?#hfHEE!/K%@
+f86R[bX0.$8A-L\z*UgFUl:]mHFbEf-KUS*UgFUlpSmFFbEf.LfTpleuot?*t(0kRJhw_P
+ItLaT6_!\8+Y<wjWI[K4u}?c\%P>KURs&F,NUSn!ttWbS5bPp{18euf!sT9005Nkkb0?i9
+7pRNo3Y-(*#1+1l63|O~<{)kn__I>n*`pzRA@J'Aa0e$4t@ BBpWc*.MP!G??d/G%@sX90
+05Nkkb0?%5( (XEh<r5CalB9VU&e,[3l"O#/n&lclYi6P_I9i#=^pzm6!\?%9[gOTsd4$|
+$2( Yv7O`S4wR>UhB^_z&d c,fs-/Tu/(Ed@Qx)zG&.03v0h@  t>j0`70bl3=^]u1_M_L
+tY&'=WO JpIplzlI,Wh|h|Rw&[=vk0M{QHjV!4!Wr.qLqGoe8?_goV.n(-YY=xDCm"M3b6
+ 4Gn1.QXO&RAA1A4?6:P\8E;+mnOL\b.8cP&M9 k6*Zr/'STO$@J0w0c0=p190"=$WTFp.
+]mVrj#`xn<'`?rJeg\m<-XE-]wjmO!EK!$@{Q(9/lZ'"M:,Nq_q?&;DNoYdVNHh3NH+<WK
+ETZ>n,ei";(\J2Vi;47+uk*dr9n^Hm>ImDGYAC5E3u8PJ2Vi;47+QgD_h_A05]7.432PRp
+"_Xa<+(\Q{S{n9'Kgb,R(IUrg?J8:vJi4BS dW`eUnIaJ8:vJi_MRydW`e!RbdZq@-VrkD
+a2I~:vTQe'Vffj0&fTplkc4~;g0ZG#mFbdlzlI,Wh|h|Rw&[i"5*4IS*Mm:xRNo3Xv(*#1
++1l63PeTuU;p9ZlCsX([n&n+ttWbS5bPp{(/ogb.8c:P.Ak{@RVXU9r(so,W& Zm#{B9VU
+uuY#Wwq<tv$=!=" GsJhu#&;N+=FM)\7;:Jz<Qg'H]uV!!KJ O0cBbm8u0$PRqMj:xRNo3
+)},\UUP/OfB965np3|H:[,;-<(R~h3Aj@Ga*`GEHEHJcL\aC( (=@~qXq?&;DNoYdVNHMY
+.fh13P994t*))8dSLJgKG"pT@"V;X0/gZ1cV`nK}[<eO>(DCPMI,rJ_QZ?Fa3l0a*b)z,8
+`4fO-Y+Uc~]JoJ0WUyVa*))8dSLJ&jraN[6\&7!j@^7^M2/^?6P(?[Yu&j'"mHGY(Jh#R9
+@K,dLdu=#<ODkhKC;JY]40e>I_-J!G9M`4fO-Y+U`uoR-e3vUhl!\7fEmLDq;2jfuGK{pU
+4ttT7=VIN6 t[J!$)|-}"Z".`fs}/]qx2%>z*``ZZV't_I\7;:m=`}@GX719-a<M%%AW\<
+03sXHDE!/K%@f80&fTplkc4~A5Mec`b]90[c[d/Z-8){(X 8Y\uArg$k@}9SRpE;B;b?kc
+b10>;-X719-ao`2VpKUj%]/_l=`UEHEHJcL\2lSx78W@@-VrkDa2I~Xpq)mFGipT@"V;X0
+/gZ1cVZrY7 |/R,mnr:IB*"N")O+> k0E.j`5@+<??rTN[6\&7ir^5qyAX.^0ObllzDq;2
+jfuGK{Yxp$@m3X*~a9EKkFAe*JJ:Vi;47+s-/Tu/(Ed@O6K].Ged7|hF#yjoi6n=c2b}\7
++*DelKe'P/Z[6rM2hw_PItLaT6_!\8+Y [2mSx78W@@-VrkDa2I~`xZ&rdh?32KF!'EZ1[
+NQcU@:Yd2VM&A/:+<)q#eL" $?Q(#Y6&6d.^`j89#+o3UwrJ/Y&ZDOT>L^B93Re>I_E.:Q
+.ToI PtM#.o3UwrJ/Y&ZDOT>L^B9VUQpQ`dZXIFc Nuck/n"l^^[?;TTNe1\43G#t]'iub
+$2m;Gj>SI\K4o75K=NZ,X+2lny:IB*"N")O+I{1d<btIKGYxn4<k@2Ol<{)kn__I>n*`@:
+m"9005NkkbBQ<{en<kdV<kr|R=IkuU(}`Tcmrau[N8b0.ba_i6n=<k@2',G??d5EJbf{@3
+m"@2R'=Z!fU(D~?c\%P>k5Y%3RR3)z(D0 q[I6<To$!4[9#U^j/qUm`ykR.M`u.bL*a@BB
+::ej,iVV"ait&kKz==`2N8QHU!]S%:&>iy5+]o!CQHWun,<@GmAQ` 4\o\jr`%6@:+?P>,
+PwDy!>rH90Xe=HQ-aCE%tOHXch4n>kKJ ED{,).]EmnSny:IB*"N")O+IcP(?[Yu&j'"mH
+GY> hC@Ga*::k0EI_,l<RoMjf q+i6n=kj.MEZ\.&v3XPLBE5 S5bP^)8Mo_90"=$WTFp.
+]mVrj#`x4t(*#1+1Jt6DAF2ykQr=lAe'%$[Zj=_+Ja6X^^iMb`Sx*)?"Mf[mpsRA_uY~MU
+!ChoE!TS$4G#t-HeHcr},/[/'iubsac_b]90[c[d/Z-8[mpsRA[5$ cHtAawFam^ANtT;p
+-,#h;Dau32]I,(n^_I>n!R`yhh[D?Uq9"f,Zda3=B-[8^S:J[gDm&0cA`9T4dE^}P/OfB9
+65Sun9'Kgb,RJkok[F5n?l^L'kNH27:/6?,"'v.MbCbH^LU!]Egre~q+i6-\Ab }SGdBG,
+NpCpQD]m5A-K-K-Kn,<@GmAQ` u} Fh.>],Wi@=R@A"g!mStbC?ERA\QsWrljd>F^C`qSv
+[`\7Qa;4&ROh]19/+yM]9?]ikw15h|\ rJVp#E<Cb8A1cVWD`UVtVfuXnXV%]?[7pkj">v
+*`V:rqLn)k=[Js''(n3B?)drePR}FI#<[RHksj#-27GlB;74YoHrit&k]l5AJ^MCdS6t"a
+=\Js''pv=^pr[4(qk7K?-{1GqiJ`MCdS6tPONUqt!}c_b]90[c[d/Z-8){td4u21L5TQf(
+bG"0juf q+i6n=m, $qXq?&;DNoYdVNH"N-y 8 [hg&qG1@8u:<=`xuArg*AGbrJWb&S.3
+NldP^}P/OfB965t6P;3pt@f{ND')7F(n3B?)drhs_PItLaT6_!\8+Y<w_Tp%NP>u*`5?al
+B9VULKYxDx79?d$5!=!Wr.Q\hn.%??oY[GZVZ9k,uGueP3c%EipT@"V;X0/gZ1cV`nK}[<
+ps4coEn^90-(<F'C`yuAg|Ts3OKF!'PM@uAU[8[zO5dR^}P/OfB965t6D'nFJr[xMX`IiS
+;Al@cXlT7|dUHy3tO-bCbH1_'H3B@o'9@o8$/m<zNPN[Fc3lo`<fhF#yjoi6XgZ9k,uGue
+K0VS0SNkE|r}#F[9]O&oH]0uP@Z9k,uGue432PRp"_C,.p){r"UUP/OfB965t6,nP{@A"N
+#/n&-$[H<+^^h|@Y>w>=`#tYu6*1OtkTjr`%6@:+?P>,PwKH!f@CkRIHhTg(RA:0Xl.fK]
+tMJu$PjM`R`NEHEHJcL\hf_"SAYwDx79?dO@?e&t)`'z)_S"Hksj#-27GlB;74YoHrit&k
+]l5AJ^MCdS6t('rrP G??d/G%@sX90-(<F'C`y`GEHEHJcL\A["N#/n&-$[H<+^^h|@Y>w
+>=`#tYu6*1OtkTjr`%6@:+?P>,PwKH!f@CkRIHhTg(RA:0Xl.fK]tMJuD`Ssr3h/fVrch?
+0&mQ/<oN422PRp"_C,(#qs-cmFA-dWb;'n1G_8=U-V.$dZo4\ YVGU_Rp%NP>u*`5?alB9
+VULKYx\0[#b&Dr79?d$51M,\UUhe$HE[5_&}(cHt5@alB9VUQp[^%~ ?qXq?&;DNoYdVNH
+Bn99"#$|p(Mx>w\<hfKUi"3XT-JoJgjqjpuG##`uo[Tv$PsHFbhBc(Gz%~?:b0Ry;>M(c`
+b]90[c[d/Z-8?Q=2Hvit&k]l5AJ^MCdS6t('<|SCbP^)tY!b"- ^ W)|,\UUT3a5:8n/A3
+L3EJC s`oer9p_C\c."5c_b]90[c[d/Z-8){td4u21L5TQf(bG"0juf q+i6n=A@+~3Q1s
+7w/m<zNPN[Fc3lo`.n(-3s#cbnfTh1dd@:!lAGnED(oKf-`R`NEHEHJcL\@JGm:KbxJa;;
+dVhyFb4x[RHksj#-27GlB;74Yod>EJ_,l<RoMjf q+i6n=! #[hj3Vg)H]]^5A@TL+`oK]
+4tBb&1og.nsThd$HE[5_&}(cHt5@alB9VUQp[^%~ ?qXq?&;DNoYdVNH"N-y 8 [@KGm:K
+bxJaKKtMYdBB'sif>5hfHEE!/K%@;-de/g]76eU>$oGx+D?\8FR}qT_'%a_lOzme+}^\N*
+/iA('v,"'v.MbCbH^LU!Go>SmFDq;2jfuGtD)"/M%@@==]A"'Akzoe&ms/*J)9i9=^pr[4
+(qk7K?-{1GqiJ`MCdS6t-L$sGxI1W>kPjr`%6@:+?P>,PwKH%@t28moR'"/_Gl=chFh7EU
+Jcu}P46lrf)I_8=U-V.$dZo4\ Eha@`GCIJ: sWqe]dDtO)"/M%@@=Fr4xV],""Xc_b]90
+[c[d/Z-8){Wg!!"NKWi"^cE[BB[8 u[nG2k8h`P?mCjYc2b}\7+*'(OGVst_`&Ig;Ooq6h
+_9PliPMRo7FcCg)`_phs_PItLaT6_!\8+Y<wm:]o?Uq9dR6tC s`oer9 O!moP)jn__I>n
+*`[Ea0kRK!K_`oRk04 [ kt28moR'"/_Gl=chFh7EUJcu}iMnO2sH:[,;-<(R~h3AjkRLJ
+JYfstT!g9MU&RSri2%>z*`5OW0%b4a7w/m<zNPN[Fc3lo`j*q [4(qk7K?-{1GqiJ`MCdS
+6t(')~4e7w/m<zNPN[Fc3lo`.n(-3s#cbnfTJ?@#4s`zuA<q11O%o}snpjEN@9kB]n]n5A
+6>05_"hPOmuDrPN6dZnOFc>F)`8*mHC3?\7%S [^#zQ,O&RAA1A4?6:P_#ZDqm]S-XECJc
+u=$PRqMj0.YyKKVS0SNkE|r}#F0&"Zs/I8*J\L#(GsRRIiDB"42mUzNY$A_UUjl!\7fENM
+6l4./37w/m<zNPN[Fc3lo`j*q [4(qk7K?-{1GqiJ`MCdS6t-L\kVY"Wc_b]90[c[d/Z-8
+){td4u21L5TQf(bG"0juf q+i6n=Vu,""Xc_b]90[c[d/Z-8){Wg!!"NKWi"^cE[oKXO07
+Ju'4OGVst_`&Ig>>hfHEE!/K%@;-de/g]7l[`K*qV`FcI1)`8*mHC3?\b0Ry;>mHoWa^lz
+lI,Wh|h|Rw&[Zs.X_Vp%NP>u*`5?alB9VU$#.N@Hn=9alCj/uGK{$! ^uL%H"ZD` i)|,\
+UUT3a5:8n/A3L3EJC s`oer9VePmKIHksj#-27GlB;74!75Cn&-$[H<+^^h|@Y>w>=`#tY
+u64G$~h9EhpT@"V;X0/gZ1cV`n"_u4WQrs#PRz3u.qo>D+]u5AJ~evXiN+ ]qXq?&;DNoY
+dVNH"N-y 8 [@KGmZk)FtS ]de@:D//}%F`]Q_7sqOQ'fR$!b-5iN443f$4DnPA:D>Dj#%
+[I5nSIu{`6od90L1^{$0,%TyA.J}lr9j/m<zNPN[Fc3l_0tY/(0LojaKWDTIH`sng2GFN>
+$S,%B9;ZHsa/BK[cr;v%u#+>!PqIR_2lUzNY$A+!&ye'A1* )GNQn@Y83RR3)z(D0 v cO
+@cj<`LS/;$6Td'Nt6\3At8n}$C,%2^\.d7t+)"/M%@v3lclYi6P_tD,#'v.MbCbH^LU!Go
+JJIluU;pNmk<&x1.B@*JJz<QhndYPh;biC"&qOI,VsW@r8'x?rEYC"*23td\5*LJVQ2><y
+NPVcNMSA*l-q%Cq:jr`%6@:+?P>,q8XT9\u#`* pADhhm6u0$PRqMjv4qLqGoe8?u=Q,O&
+RAA1A4?6:P3ws3IjuU;pNmk<&x1.B@*JJz<QhndYPh;biC"&qOR_HF0<stn}:IB*"N")O+
+5OqThpazu##<ODkhKC;J[<a.Ay-o3vNMSA*l-q%Cu>+>l{jr`%6@:+?P>,q8XT9\u#`* p
+!$.F3zn-io,i?VSZnCav!Ao'kQh<DqRdGf*))8dSLJ\`&3K )`C"*2M&c`b]90[c[d/Z-8
+p"GQ?4hF#yjoi6XgZ9k,uGuep1`L*J,\*JqBqGX/nm&F)(8*dR6tkHJ{lr[L[>@ToOj*#)
+h4>]]4CRtWqnpGlclYi6P_]MCRtWrWS"uxcO^A)y_8=U-V.$dZo4\ YVR@juH"bC/J%@Uj
+l!\7fE"!'7W{q<E'Jca)<)4tD$\<[>kO0S2Phf5I@]@"qTE-Jcu=qLM<&"!7&|K7$As/Di
+`L\<hf:4T:8zO1],CRtWqnpGlclYi6P_d4<(8`qAs(Di`LfZ9V^Lg#Lr[?Hksj#-27GlB;
+74?UZodVidVD_7tYrS2%>z*``Z[;b$.ba_i6-\`X.8n^_I=}=QA#2I`L.8n^_I@ pv=^S6
+KH E#"Dtbc&J:w:v=Ye76l^H_](V0Z2Phf5I@]@"qTE-Jcu##<ODkhKCfUW6S.@@u| ' [
+KJ$};s P1GB2.$,@skt^2D@6>..mJuZGj<hT!l'7[?!CM:T6_mh2&?oKoI+yR?7ssqQ\B;
+b?56/Pj<>FYd2V:85HP h|4heT*la%a:PmfR'hkk[Oa"4>@sbJ1UQ$cc"fG@>v*`tnsP\7
+?|#odZRXsA8SYd(HK=$Fdz-s/`@Xle:)Rx&[*EnD@YqB0f55 t*B& Zm#{B9VUuuY#Wwq<
+$&K[d3U`u $PRqMj?P#X+=-N@ZD]&8L)RSu\A{>,[b@}UF'HEH!$6tK0VS0SNkE|r}#F(&
+<8tR[k=[0q D(mS_;h?Aa1c5T3/[-84jfRa4lNANJJu=&;^{d|i6n=^]U!>v*`HrnBO$HI
+r}t7+bk]MR<|Fb@Hn= N`n`b%O*B& Zm#{*J0q+4Qoh3Ir83=] a6qA('AkzoeoVjr`%6@
+:+?P>,PwKHYxuuY#VR,>'w+Xu`#Z(.5E5RZ1H[r}.1YyKKVS0SNkE|r}Y<,4d\KL^3%a*B
+?YP(?[Yu&j'"mHGYi+sT#Z[9d6.1 ifU\ K'@U PGm#X[9=[^g h@!LK]X&$6Z:|a5i;,P
+!{.qu$cx\8A/a|4VtwqL;QsqQ\NbKsDp*UK[u1E&tOPX#$fNdDQ]n@$&4JhfFj3lp!No$B
+pnj"Hp[7;dhj3V]S%:`xJoiy5+Ac h1[1)WR^bL,P521?8:PIUVnL3432P*4DCR$<|]-J7
+""p0'66Z:|a5i;,P!{.qu$cx\8A/a|4V.qjp"(Mi@:fKO$jCuGuedWNHB9VU8*?p(?]m5A
+J~+P?`"p%1/l$d x*B& Zm#{*J0q+4Qoh3Ir83hh3Vg)H]]^5A8$/m<zNPN[Fc3lo`tt!l
+=\m6R3KOC:> `^0:KCnm^]U!>v*` J%1N+=FM)\7;:+P?`"p%1/l8$/m<zNPN[Fc3lo`tt
+!l=\m6R3KOC:> `^0: 8_"!k=\Yx?CKO[+a@>k#"+=-N@ZD]&8L)RSu\A{>,[b@}UFuVHe
+-hu$8m7A5y]S%:5muc]]J7cG!QC7B28nG0"#*5DC^PU!s+7G"1HGE!4Hhf-qoP)jit"\ ,
+uq6 ,277.q:-V`0;qi@8dwo4]A.u1KA9E!`lXg<{?ASJ/H%@5RZ1H[r}.1Yy0PNkE|r}Y<
+,4d\KL^3)y_8=U-V.$dZo4\ ps'6@<R7<C!SVtAjv/a+!!o['1@<[8G9!R`""`D{,)M5Uy
+L4\A9"#w=csqQ\B;b?McI.sYlcW$qM-$'0!Rib5+!!u,E&tOPX#$fNdDQ]n@$&4JhfFj3l
+p!No$Bpnj"Hp[7;d=_h)rh()]}<{$45^"3BMR%'o[GqM-$dWNH%2r=[GH`(C*ZJt7,/fFl
+r}t7n-!3[9tvWbM_Q;?_NBt .M@XO/YVtvu@QFP~aAul]]J7cG!QC7B28nG0"#*5DC^PU!
+s+7G"1HGE!4HhfnRZ!o<03Ee2qE.TPHn[7/Xo:jn>FcH!QC7B28nG0"#*5DC^PU!s+7G"1
+O:OfsT'(<|SCbP^)tY!b=\$MNR+msVYyS6?PL!Yxh'W&0XVt^!<{$45^"3BMR%'o[GqM-$
+dWNH%2r=[GH`(C*Z J!mn__I>n*`pz'6Uq.MkcK^Yx]][4$&AGYPuug#kQ=[0q D(mS_;h
+?Aa1c5T3/[-84jfRa4lNANJJ!i'7W{q<E'Jca)<{JzYwL,"1[9oQ@7(-bn<juVb[kZhf6 
+,277.q:-V`0;qi@8dwo4]A.u1KA9E!`lXg<{)kn__I>n*`pzRAPj;biC"& ^hg0<;~uVuj
+fP-pDa`z[8Ac h1[1)WR^bL,P521?8:PIUVnL3bgb}ttK{Yx^RU!i!he(L9qsXEhYx(HK=
+$Fdz-s/`@Xle:)Rx&[*EnD@YqB0f55k_.M/\-8Gm"h06#V"0uq6 ,277.q:-V`0;qi@8dw
+o4]A.u1KA9E!`l-\`XS}h3O8u2`x.:$|uq6 ,277.q:-V`0;qi@8dwo4]A.u1KA9E!`l-\
+`XS}Ep(ZDN!#?RL!Yxh'2@.kI/a%kYhf6 ,277.q:-V`0;qi@8dwo4]A.u1KA9E!`lXg++
+$wdS6t^]m):,Kl0^_Dr//bWM?2.$H,t #EtcRns@ACYPuuJtA6K7cW%Ciwn(]P%: 8uM]2
+FP?R'6<|V&;4g3=R3lKv?NjYWDQFu0WQrs#PRz3u_Bkw15h|FJCFZG@Bj:k[&p!1f8K*fs
+tT!g9MU&RSri2%>zUk@31d`8 I;xBnm=J7R%W<fNB#VlnFD+]u5A::\J?|i{QfNg3q5auk
+@:1d`8 I;xBnm=uB$PRqMjfpLrsWm`io,i,Q]UEa`6-N?1^LU%D)b?ZeLNrJG1m<GYi+<j
+5<alB9VU.lB[+FpmP8'mA}&l720/-N2t*))8dSLJ\`UyQiG\i+5Ni@/}p)c}7C)x*pGgf"
+Xao[c#Iiuf[Dt!Z5!0,6(( [KJ=voN:)@ZX7G'[da4]o:8'QVhMU>0A2Uil!\7fELz?#X2
+!Q?UeZh7EUJcu=\&H!t<fae(2w$=27uf k!KJXjqjpuG###0q9jr`%6@:+?P>,Pwu2TGs@
+j<U#=)h\!"@Bu\LhblEs`lC:6M(* [=\J3R%W<fNB#Vlc[BBuA]2hf$HE[5_&}(c?;=+dx
+\>'`!tK~kj8Fu}OofX?0X2!Q?UZoJs[8(qk7K?-{1G^VZ6S[BG/B#i!ga@Pm3c*"?1X2L\
+B%, \s+4DEYP_RMzC@:U1zGmk.L`gU2%W3G3X<XE%93v0"PruE_QNMj-#$JuuB8moR'"/_
+Gl=cNtB[do9[JK4$V:Dbd{7|nG/W<) hZumw^%t7sfsfm F0KOKE7J&+jd,6b']]+:Z[ H
+kRq\-5\n+4gHp#3E7aaHtLD/m"`Fb-QSua3SA3s&t(6+^D3p4-8PM2eT.}-nG1@8Vire87
+>aE{(ZDNOirf-$[H<+^^h|kd=|;]nBFVGb213Xv!bKeuoTgqn=O$;A_-r@RY&v3X[7fOtM
+.=Io:R'"q#PFX4=tDCuB8moR'"/_GlhnN-dAu`#}27sd9(%w^3PXXip nF'nYok5COR@ N
+u2H(6>[8;2&R,MN'[E%8YLu?2uOn,0O-,@;>o@h=s^m)F0KOb 8FV\oQjr7Xuk>X^CIR2>
+p2mOM2G'dM^x,Ah;VO[T=a tB_?Rth'I-~j:>F`e^>a"-b"BV:21L5TQf(bG"0"-e&Rms>
+.s;}dt:<-.i@[).J,:rbulWQrs#PRz3u.qLOEKZe(#N$5~#i!h"l@#"y%w[PC@th?1^L)y
+,]Fcbf/^=IG\p; Eu70sjM7.E2j`1\JD(1<,mFJDNo&~\@<,v&%Y`&.<hGS9$bC3mreCtF
+/zh|6:@aO+<eujTUeO6-V|S.<X`.%>Gd,}6HV|S.?;lTRwOzJN4$5I*_%!*Eb]p|-r7Tk[
+fpul'{0q')j`M&Jg_&-Gi@/}c].FBiI~3v9;& 58TiE:uA]2hf$HE[5_&}(cHts~s;M232
+>2NVVc?xVdS.g#Lr)M-IbZ32H|]6_ ZDE@\QEKuhKnG~aioA,j+2r*&)?W#;jk)X/)bFsy
+Z5Q`2yLhpP$k'TA3u(h58GH(`aZC+Gtl6gM h|Jnreq^"B5JC1PfT6V~S.rb=4%c]9(k?5
+0'iZ[IG/BGs?0k0pJbL}JjfB+7277h0'#<jk)X/)bFsyZ5Q`2y%9#Bq?$k\)hf*446+Jj+
+X]*ha/Ss5J5F"kig$EZeS.rbqhk[c@e&;]Q]eD%?kT6$EZg].%??oY[GJ+Vb;2<(3At8(w
+46+Jj+[@*]1X8C:++?r*&)?W3s=jDCej;8MV+?tl6gM h|Jnre&)?Wiq!G5DC1PfT6Ea`6
+*3F"s}%[]9(k?50'iZ[IG/BGs?0k0pJbL}JjfB+727M>ZzfCm=JDeN)X/)bFfLk[)~[U^z
+#2k65(Yz;|6?sCMP#i[du^o5m($eM\pP$k'TA3u(h58GH(fgps)X/)bF]#,]@Dh.dCM$ee
+8GH(Y:Ml0;BR:w:vKmG~aioA,juAI~"mJhfB+727kDuA!Q'utH9?TQf(bG"0fA,s#}27Rw
+VYXWa"*]`r }t/6gM h|(l46+Jj+[@M@`U\N=[dBKn5<KOM(h2>]!l+#+B'?kP,,G[v1-$
+[H<+^^h|kdFbVl'Se8SIS8tvH(FNDB"42mUzNY$Adz\>'`!tK~kj8Fn|uKWQrs#PRz3utw
+9<NV)kE/pGX/Bjv3[4(qk7K?-{1GumoW?ihf-XNDv.^q`MCIJ: sWqe]dDV6j#oAM+A&PZ
+aZkthd$HE[5_&}(cHts~s;M232>2NV3`i~DB"42mUzNY$A_UUjl!\7Tshe$HE[5_&}(cHt
+k6B&-nG1S[-bt:)"/M%@<,v5\MC$kQc.(7tS\MC$kQXCZ'j#( h(>],WqH#P0(e?2%G3\@
+pI9ONPVGTlfX7,3X^B\m\V9_/r$K<wgDeD2%(t3B?)ZrAK&t[8QFc^ti'I-~#/Xn3S7Ij1
+FeCx]do#AoLvov5*)v;^2'^ECw*0:}gBm*]#h=[,?Ic.XxW9^YJiElCFG4&E+$H|5PcA:)
+n|)G.3eUgF]<jMq"C_C@O|lR:cg>o9hP ZH11]#! ;DkT;Y8nmTPprG2UsQ?I`&c/C5loT
+uhDjQX[!p!Z1]<FPj=U%G.'R0~NQ>Kh>0}'"VrE~CFm"?eF2+69\[+0I9]n!@,e5i9hTX^
+Ht=(/#F'S4Z">!au\ua*SxsTL&\9:Pie_sS@>sc^&IGX2V=/01E-Em#H XXa=tP,GfVEMX
+LP`UI?bS]N+4\]qr<c9{MGol]?grncraNpORpG2D,1UmVtSw<#^ziTPdJjO)C5?Q]RIR5p
+YlQ)(h:S'5&-'/Z&Qp-)+ijlX%7O_CJAH^lCfl/y3)Hb/l<)Ksnm8}H|bHKp7#DIJqqkMg
+F0ABYP+x9hh,m^F0KO\"!dv!cil9+Pjfk7,7kmLoI]B}'xE*Z>A?W('x0q')U+CboH(k@o
+<#+g7_aUr(/6J9'/0GYo2Lc5A%nKAP.^$Jb>!dv!:0TF/~N :jG;i@'~7 80nOs1`98OP2
+fh8SYd2Vr8`i'{20^%Q4D)=: rO-.\[$&HE.Z>A?W(hYg$LrsW?r7+Bu?)TPprG2=IDyP4
+b+f`.J,:7gW-o/raNpOR"y%w[Pu2dM*UHb3tl?k-K?Vu_"DnHk+WP&2p^$g)::;WrbI@bS
+bs)4gFu\T(CbBq'xYoKURs&FOQe,G sqCvXVU2*aukQ>\wk8`O 7Pe&+=_Q5@iUxWLNe,5
+G2_w$PjQ>Fb_7y/r:8sT^c.!q?#P0([ugru;]2FPo",3Z[$<S+fE'rVcH$ZwaXq5T_KeMj
+a%SHsT*\oI9{j>)wJO^Z3F*"TfaB( >_n".c\$G_,12>3N*"Z,/3/5!GnB.s/gbZQ5G\MO
+,}%y#[fUdi_%1ic?6iA3s&!,qPJf.{NNNo^,)-QGd,2}(0+jLC@;Mja%SHsT*\oI9{*^a{
+KC?NL{l53*!6%@Kt0[ps5:h\Sx5=Ma QVuPHH/"H6m1C(0+jFr%-!$h&16n=]/+Y)boI9{
+N"KT'S*x/tD`LBqA0u.&G;JM^Zi.\Q@)TH-VJ0l}EsDC*_!SA8kQJU[#1\FWGbsgm~3AEs
+,3)`(0+j[R<gc?dWED\lN3,B#wk"'qE8]PolU_L^kym$:w@`O+3/*"[M=[+JEnBG` Mi^|
+&NMj0NkQ&qqP/k$kM[Rv"e@#'kYot~F~n'2aiQ7)&1M'EPO$]firGu:o6?q(q\-K0@7U)W
+%!=foNWD]2FP?R'6<|V&;4g3=R3lKv?NjYWDQF(CBjN#s0C6H&($utcx@Q-U@));D-uB8m
+oR$s?D-VA)iy5;MkPP#xB;b??HbP!O@;J5WjTA\RXY]-:1n|@61dum;7RLK{"&;6<FauNj
+BK`&S1:0j%\LQ',so1h6h.r,#P[3$/\T6R[bX0.$HQ?5-5h~2F#(lk@,e5!1`vSv[`K^(V
+%TS4`Ur -4eTU{5nb}IC:8sTO$HI#ub?T6X2ko/X&ZDOT>L^FE0&BZC[+j(F8*JX4wOnZ[
+1ig7X^P|-b6AVJs&/TJ$iW^5g/::(#C:KEXFO,1\2w@-VrUn3I@-Vr*c[z=[uk>X2M@-Vr
+^G`=Lt<GpUAADCDq\w`qo[?A'"Ew'DN4lK$x]Y)2de/g]7+4.ONr]x<oGkT?&(g-LrQIfp
+,#N'hrAo$*SH'Wkk&F)=8L'}oi)k];\$[qSAtvN)i"3Xa3,P_<)(+x(X7Ru|8aV\DF-7"Q
+JmZ'/3aALe)fLrHEK7A1-YlRPX&vGB^%]<g4 f[nG2<)aIpDs2l1+<l{2ngCb`Sx:I(#C:
+KEXFO,1\gFX>O,1\lkU|]<#Ya1IHbC%k6 n?.cB[$2A^LBa`F]3ll}UbUt$`,%:aMKQ-C?
+Ry6R[bX0.$HQCQlKe'P/Z[!=rb#Za1IHbC%k?9_/KyfH=He7(Dc="NM,m<GYce505T)B8*
+UC$`,%f_/]M&A/:+<)q#g#b`Sx*)?""[o/ZI"7#3A>oFbW<y<P23PH*+8aa`Vs#.$=9l2}
+Uz`#"P`W=3E.oE u#[1SNQ^k.LBmpyoD_4\mFP6Y[$8SD/VK'{o4uD#8 &
diff --git a/packages/X/Dirac.m b/packages/X/Dirac.m
new file mode 100644
index 0000000000000000000000000000000000000000..53cb7ef68d975adadfa95c44cb22e75a28d2aca0
--- /dev/null
+++ b/packages/X/Dirac.m
@@ -0,0 +1,1058 @@
+(*!1N!*)mcm
+j<hTJue'P+lKh]7t>X#r/N&oL8lkQ{ Q0=Z2]<9/\J[&`b%O(\DNrljd>F^C`q8cE;?cNB
+<o$l$>2Vh:.He>_m *6!.Nf.-YndYsU!a&ZqpGflcmIv sWq:RG'8=+yZGQFu0VNSEcEf.
++ \5=+Vr;4`2:-reCSVo=pg3RL)MEne5hhcdWDg|Ts3OKF!'+ &)VfuV._bl1Q`8 I;x-9
+^^,.uAL!8DNNsYZa(Pf)tT!g9MU&n.PZ`0?c`:7O`SL/s~?;@nYPN=[8Ac h1[5M7E(A"2
+2mUzNY!^=EL\ioQNn9'Kgb,Ref'lYoD^ul6 ,277tw=@OCC$J: sWq:RG'8=\D_\FQTuA9
+i\,@PLJ=23n1RyhsmFGiT)mz`UcA";(\!iPi&fp}?.1"U{rs#PRz3uf'+ o0ZIQFojYs[;
+!CL"e%A1Zmd;>8IkIFEBZ>j<5m-a/U_e5{=V_K\mh>0&fTK_[&nSA6N0Eo(#C:k9;CT`JK
+p|77(Ze1Zz_c9c37:-1.\WrDJL6Ltz6n S^}j-ihb`Sx[A[7E0j`5@+<??Dfs&KaJ@O $J
+\xF5X)01?UZoO,TL0&fTgCihb`Sx[A[7T?]s\]O,1\kX@t<wT1hf0&fTK_Joq.(bc=I-\]
+lyN?3ks-/T1kFv3t+x9hh,]NF5X)TUhZRy(3ZuhREs/fut2oPb0(]OF5X)? />[$&H:C\J
+?|B;74AkDkn^ ;uf?j ?Z&]<]SF5X)hH9DYs7/')!-Vg3+0aRJBQNhkm(8jVp|L/-TdvD$
+HNnSA6ce\uWLNe,5G2l$*1$>h`khhf0&fT@T@9jA_+Ja6X^^iMqW7/)uta'i#P=+tR^zbA
+K;8fDD0;SYI1^W0`mCE`tDs>3Ud`gFdc*UDDYPV)TP!#MYv*hZ ')4AZ[]\jO,1\2w@BL'
+ctt8sf"u?Ku5_V ^=uDC(#C:[E[7)4AZ[]\jO,1\2wS$H[ijo$rL]TF5X)dD3rGcr8N? ~
+)6AZ[]\jO,1\2wTkhs)2AZ[]\jO,1\2w[ /^0G?UZokh?MuSOn,0O-p$?*."rjQK.LPvm)
+ioROh3W@Go"<`3%F`]rn`atLD/m"_%.LYyKK+ 19h|oC\1R`@ ?v)@Yb2V@-VrkDa2I~+y
+ZGQF\wF5m^c2==SqSL!g#1 ih&&%[JA<'7u $/27h5,oRDbRjXIIQ(=3`cG+j[=ROALt[E
+J+3O+/27`M$*A_Jzo\Ns9=@vDjMwCH-~3FCW:9uZ@!t_'i:G$0bPQ5v4g1>:;]nBSe6N9!
+HB@-Vra:,UA-EqUZ&/RMFNnKgvu59.Ywt+-"67)oRpMj=[23A%=[4uh'?3.$H,t #Etc=Y
+`!inro!luHWaIUOM=[f3YX`DTND#*|g+EFJcJr@U+NJpk`@3d1T9FHRYVE]mJYk`\7?|<{
+i9<k,v*'uq!+Ld[irmQ;Xi80sXeL" $?[6L-(G@<14<).vAjh)A/d0o{?*3G0a'?8Kv0:%
+Bu8AVgeH';bg.wW;J.BQ-*BHLbh`oQ&Fie^5qyAX.^;:4*uM]2O,1\43^$%7mJdVFo^La]
+Yo2,[8p%?*t(0kRJC2dk?%^Le!mI+b/X6}:ys.s&/TJ$:v`;7O"5r&DklKe'\{5Fta'iub
+e}\{iV"=s-/T1kFvqrDkHk+WP&J@O $JUmJ@O !gRyS>nmot?*t(0kRJu$/xFEF\BRGWS'
+(30+pB0WUyVaacX?O,1\sr]PF5X)n/:v`;7O5HlYiXb`SxqP5HTA]s\]O,1\kXa]:v7rSQ
+Z"DglK9{psDklK9{eF'lJp9S(#C:HFEq*OgFJUZ6V2@YnK'lGm=CM+/Q?6H 3hD7lKe'P/
+Z[6r@{l"A-n&Zf$ [@hf0&fTplkc4~)})/^LFbs)/TJ$m[`*aQRwhs<js*/Tu/(Ed@\cBE
+eHd@;2o/ZIP=7p?WDdlKe'P/Z[a}GM@-VrXQ<{$$);?! q5ciKb`Sx*)?"n'v"o+!#h(>]
+,Wi@=R@A"g!mStbC?ERA\QsWrljd>F^C/X&ZDOT>L^Q(h>?9-5h~2F#(@iS .$kop|9L'"
+EwMC=JD9@:#vb?T6X2+/Y~g$LrTXJKCQ6IeG?kS)#{ql@=3At8Croms%/Tu/(Ed@DKYP^Q
+6R[bX0.$8AD%L3Ts,irdmd3UbS]#8a#K_*:.#$L3?>X2L\6)u,L@hq<js*,1'?kPW7<) h
+Y~$AG%Msol)pFR2H,1ok)pFR?5-5h~2F#(tMD/m"_%.LYyKK+ 19h|oC\1R`@ ?v)@Yb2V
+M&A/:+<)q#eL" $?Q(h>cmFSLSL5f/,YLEcF3O(#1=2>mH3UbS]#8a1I?$t= NNP[FA@LL
+L:?r]eSkVlT<?5-5h~2F#(lk@,e5)9D-VD=p<(R-?#hf2WpKUj%]/_uf)!3YHbFcTuA9i\
+,@_cok\Nhs^g2jkPnE.l[z,P-aO@YV'mNH27:/aJ32(#1=UmUmBJ8K9aFG?<M9U;h,T3n9
+'Kgb,RRsGfe>I_-J!G9Mqe+Pf8oG#ub?T6X2+/mJR~?RP(hJ'lNH27:/6?d^/h_&0`Yo?9
+-5h~2F#(lk@,e5(h&uuAm qW#S#\$=py6Yt&E/\w6'^JZeA"h)WE2%)ED-/\&ZDOT>L^FE
+0&BZqi/fi@[)bAK;N<`*6~(j?NVD=p<(R-tx\Ma0!'mJGi^2^L:J[gDm&0?q/]'nbhYoc}
+n#g(1\9wh)T3n9'Kgb,RJkok[F[T[7E0j`5@+<??R4%tL]?e?6-5h~2F#(lk@,e5I)M&-j
+?MVD=p<(R-tx\Ma0!'mJbdH 3hW:8eqE#Ouk>X#vb?T6X2koTc$!(^e-FQTuA9i\,@_#1{
+@;#vb?T6X2koTc$!(^/w?6T"dW'lYoX221f=.wY/9&uWiA@WK^awamRwOzd]p"cqG,NpCp
+QDc3I~Lm/Z[R<gdWG,NpCpQD5Es!hmV"0MF!DZ1Hqh&ktLFqTuA9i\,@PLJ=23C&dk?%^L
+5qu,L@Oxs~#E?6@nYP@-Ks;F$diQLrf*SA3 P s~#Emy)pFRX2L\Uh0>c|G,NpCpQD5Es!
+hm@L[8e>I_-J!G9M^R:J[gDm&0cA`9T4\]BE/R?6V$lw7"37m;-XFbM&/@utV/mFn>.-Fz
+/X&ZDOT>L^_+?IVD=p<(R-tx\Ma0!'MZMF6YHgn_#H)zqh&ktL,Wcz]JoJ0WUyVaM&A/:+
+<)q#eL" $?)})/^LFb??@%+O_`XT9\/]nmQQdW'llb`*aQRw(3<w/\&ZDOT>L^FE0&BZoo
+i9AQ*R0_7T[\=@M+=_EdZ> uP\%`NjEg&&?9-5h~2F#(lk@,e5Qa?J@L[8<qTFIF 5L"e%
+A1ZmpGflcmiV^5FnAC.^e$G2n2+yZGQFojYs[;!CL"e%A1Zmd;>8IkIFEBZ>j<[{oqSJ'W
+>$s?.3lHq5&F,T_<0&fT Teb`:7O5HFss)/Tu/Uf2fh:.HOhVR[}[}ZF_Z=E0r+^&x);Yb
+.W;E;-g50{WR^bUet*@12"jJ=1&4/kuDsat f$e%MRu}8a4$@-VrUnqGDklKe'srp!U_F[
+jH kt8#*^L!Xu].x A10-]O9Y3P=0MB"!R-VEnov?*CW3SkQFZ/]:3>,F-%F?M#$e8SA'T
+M:,NUC-rbC_e.MB[$u9l379de4LPEK,[!|S;Vo/RoEtZoI)C.Wmtj<J>2;G2Aycefp>:&8
+DNSUGt@-VrUn>4I5o|?*t(`C5fE{h_`tR3G?A'sjD>#9@Ws*/Tu/T=\U,Ph|thWDTitg9?
+%B(\U!XWh!M29Yp$\'Vo,o8K!i/e(xDhV_[z,Ph|8|?!/}PQ'F6A` *v&pGJov?*t(2EJ6
+eT.}#,27QBRr9TllbQ%W0 MpbDjRt]'iubPH0aGmpl/zf%.<mtj<2j!|S;Vo/RoEtZoIfl
+eOI"/}%F5R$EHG80IVMY-N,76>KtC^lKe'\{5Fta'iubPH<YeSt-ekXj[z,Ph|8|j,t]'i
+ubOcCb(#C:cAm|I"-eG$0NkQFZeS8o+yXgZ*o_?hJerG)pq],g,mD0lK9{f)[ 2_=/eS]v
+Ho9Fai*)><-,k{@RVXa%;lRa[ks&/Tu/T=sFg:b`SxqPI$E=m+e:NE??9yai*)3Q@-Vr!*
+*$Ra<leSiBm6?;);Ba 7)jLz0\s h].LB[$u9l>:LL1:)UXlp4Dkr 58e:+ym:_[YZTp`U
+9/+y':-b8ASIT2S:66]/F5X)n/@V 7mn`*aQWDX-Xm8`^F[$a PTn/]#@>@9*)VTa%WL/~
+?6qi2o,Psy.=M  sUr^"rDEj`:7O"5AU=I8WJhe)_PMzC@GU+<&FI~E!DhQP'T0M70t69<
+6@:+J~k]fp`wt]'i(uP _pTsUtsFW*@Ao[Q7JaIp:v:v*D@{d$#%f88w.^@)X8O,1\5b,s
+Y6[7%$;:k]fpS*/Z=I8WJhe)_PMzC@GU+<&Fm"RYL`T6u=9), t<#*,Z$!U%0&fT Tebr%
+_o8WDC6,Rl@4m@EHCFS.\HMU,uf8=|&8DNu7!TQH" iW^5g/G'o[n+v2_[)h -ADQ(rnl'
+TwNM8wA\$+>&5yt6#*,Z$!\xF5X)n/WO5jDCm"0v;FQBAqn_H}#3,0t_'i(uE5Gh%FZh$ 
+TYoHe'rD }?#n">7Zi"&N*ho$qM[VzY/BM>W#:a=o]flT)Vl,NJk&F"*oClX k[J*]%!X!
+r`^}!Rd[`K4wsLkF?vUs$ZJ0*ms-$|:}8NL\!Sg>b`SxU{AD_+B|:G7tj,[ %$m,E`9!q]
+<[#i!h&0:V(#C:KEO==JZ9FxjsWFQ*$[)zI~E!DhQP'T0M70t69<6@:+,@U-0&fT T(Eto
+t-3R5D(oGg[o8STFs@rTI,Vsr;I,(@0 ]W%d[J*]%!(10+-KP=0MB"!R-VEnov?*CW3SnT
+jSKsmHk@*KE.pb`W_n5Qdy:<r3&595("C[lK9{f)[l8SYp=,^WpTfmc_MHP(4~2P]OcrNt
+SA+WR3epWznE.}#,27QBH(`:7O"5AUu|a7EY6vKto2!<[kUlv)r%G% T8$_",=i@/}5?h\
+Sx5=Ma QVutaq23su2H(aIJb5Fl}k@*Ku2t}iR3v5a+d&'&0:V(#C:KE9gCMf+>]GtnF5a
+Ult**[ZgP(i)/ckb15h|iMn$2a7D8}d&I6BKR%'ogE5;$""8dXEDNhQ{QurM%? lKDZ(]<
+9/+yXgZ*.~o:&LF0j[N"Lp7s.He>^KrD>#(#C:KE#q@6K7p@0\2/2EN7KY LeGrpic^5g/
+G'[FPKk*Cb)<Yb.W;Ef8G'n_SX;h?A_O:wu0E].XUt^"?j*)><uS+>0UK$S]TY-OEnov?*
+CW3S]CJ5d:G #2n>,KmE&D=}l$Dklj]$[x"%/#*|,Mp1J>O Jpb|\{O,1\lk")<XeSHmQ0
+7}2PGkqe]n\m9V>4au&Jn7.}#,27QBRr9TAaMN\{PI:Y(#C:KEO=uRu1TsUl$G3si#iV3v
+5a+d&'&0:V(#C:KEO=<YQ/H(oHaxQ8m(pk@/t#.=M  s#(XFO,1\5bbi+yZw><mr_x5YJ~
+k]I[K4kwUet*Ufs-$|:}8NL\!Sg>b`SxCbJms-/Tu/*[Eh3=RyuQS{Hk%`;Vc<7rs-i.fR
+QR,5FZI&rJu7,]V;-%&0Fb#2.~q-2EqPC^lK9{f)U&j)g' W,N/PS*cC$fCb*][z4r((to
+t-3R5D(oGg[o8ShLM`/xs-$|:}8NL\!Sg>b`SxU{3v@-Vr*c[zmDr,n^iNi'!"'QPYQAH(
+`:7O"5AUov?*t(2E;gd:r3=4E.dRWLcr@z+A=LM+mO>76/a4Q+hm0_667N b.yk4i.56^|
+\>Y}O,1\5b\SrJ4N!YQ3Lahm5Z^V0"EyCFCX.3&0E/oI07r32EqPgbu_#*S!JaIpJ C"m]
+6hv*,@U-0&fT:vsn]PF5m^u$H ez3=E\g]5ta4t.T#?J"n7/`;T83X0|L]@J }6+Rlt89<
+6@:+,@U-0&fT:v[V4r5<WM&j72KtC^lKe'sr0abhu#oLuz:SmrQMsn_%"b>1auGlB_IH/,
+aABNWo2]n?b`avB*t=F4-[RXQEU3Bi"G"/H3CFmr4PS*MmUsM=43W34jawQq&+V:a%\yF5
+m^iXUmJ@O Jpc?.<mtJ&BugP=|&8DN,Np1J>O Jpb|\{O,1\lkr)4PQ}3Q(7Eh3=mt,Gt+
+9Ze%bCQIfpr)Z6V2@Y'd'skk7+d{@z@vPb%m8O,RB<=CM+W9Q(F\eSt+9?pm/z:y"=`3%F
+IVMY-N,76>KtC^lKe'\{5Fta'iubPH_p>;Gi3=mt |/R,m8|)KrW#/3v@-VrUn3IuDsae9
+t]'iubphrnl'58<23Lmt(*#1+1&0-iBw(1C^lKe'\{I"HEc;XGO,1\lkr)pj:j0KJpJlL^
+tzl'd73L3zTi9LlZoj*lauPeW|R3\t90>4au&J'V@`$>"E.3teT=u0:r\I8S3>EL:R*OEn
+_V42\XJ5h^M\iXUmUm!Qri[(%$srUnUm!QU|]<oifVKD5Cq~58Hr(/X1^L--VI-%]WJqCZ
+.3&0KE0^,i:-V`P[uLT=srJoCZ.3&0E/oI07r32EqPo2ZIQFojYs[;!CL"e%A1Zmd;>8Ik
+IFEBZ>j<<xVrkDUV76Kr2`h:tNQ\hn)h^h;-b2tT[^HsJ?O Jp")qhv'?vQR0(n|uU(}`T
+cm:)@ZG&nV6@&'oRb1m;s(/Tu/(Ed@u\uhEO"fG@>v*`@:sXlA9{0aRJJYk`uHa+sE[8df
+Jbf{<!jZAlH:F6i.=Zf3YX`D)C67)oRpMj=[JK^3<$$0m;@3sX`L[EJFYx\<YX.bNr1$.d
+ZIO,1\43^$ewA:D>' s?> bP!O)0V6k~KmLC@;!l+#+B'?kP,,`TCIuEVO.b!b$-5K_!=O
+(#C:HFEq*OK*TFs@Zd7y=_DCm"ouam&FD@@q)g@R^(\mWMG'[d5H_!=O(#C:HFEq*O:yQ<
+2yFbijo$]g?{*l`Z7x"dqpq^"Bv+l~$eqQv-`;7OPCCb(#C:KEucp$?*t(2EXV@-Vr*ct3
+]PIR5p`;7O"5$2A^_aiIb`SxEk@nuaDxP4b+f`0&fTK_O"(H#TP+Un2XpKUj%]/_]N4E%k
+8#`;7OK~6YSR/w]MF5X)TUhsVG9h'{iq^5g/eEO4t%?rljm9e%o//w[RJ5'G.fh1kTSxJr
+Pe1T`cK+?b!zAGrTR_V0On')muCb7Ea4c}TwfnLrf*uK.n=MZ,`s1\uf+5C*K1$} x,[3l
+_@&N[8FHBRS3ubui1EFn+DK%]W\{F5X)sT]PF5X)DDqXTd@u?9)z*+uEhy_T`:7O`SL/s~
+K#(X0+D+=d^b@XXup,(?V61t8Tkk`+*3`|=u.m=dZz>"KRC:u76Kf4 ,E<uArg-$[H3RG;
+V;N.rsA(qht^'iub$2m;uxq:ehg$b`Sx*)?"MfYV'Q9\gOn=O$Pv57jH9RWsO,1\43^$ew
+5*-r??oYPLZrh$b`Sx*)?"c<tssf_RU9TSk.DX.7(IYyqp0>KIPMZrh$b`Sx*)?"c<LKtM
+o::)@ZG&nV6@&'oRb1m;s(/Tu/(Ed@u\?rH ^sNj# `VNd6>`Bk3B&=ID"lKe'P/Z[6r@a
+oK]?grl5/*ivnWbe]WeT)G8A($+4IuIFch<D\xR/AKo[`LL]JN&wbdZqQH7#4yDkW^(BAD
+@=-(A8MV8g9XDCO\<}q=n=^%&)rg^}rol'(k^MFb?c@.(#C:3Q?)^L?O,)[)%$fEW/3si~
+`K4wqEdVc(B>=SiR^5g/G'XV@-VrUnqGDklKe'srFOJm2Lc5A%C@(#C:Eo3A[R8S4Y?)^L
+?OA^[)%$fEAY&uXDIWHEMe?e^LSOjA2IERC&(#C:`z=VM(-j^La]YoBQ[)%$fEW/Sw@4o\
+a)n|h^M\C2mIdVHyJC+x9hh,]NF5X))Jq"oTF.mF]?J5FluDsabrqdMgLVP)Y{n0ZIQFsn
+_%"bF#O5^,R*Jc<Qqa(=e^%W>]U%T=?!(\ 6-.L.0[KBb+jd>F:%'"Vrq*(CNjk4h\M\gV
+e?n=O$fLn=AB` iq<:v/e>I_-J!G9MDxP4b+f`c"==(tiAA05],C]=(-9lOS)`/Tua5I+<
+?? 2'b9ePvF0NG0GTJJaIp3{2>FbmF^^brhs._6URs/Zo[U_JaIp3{2>5q#Wlb`* pY4D@
+Hk+WP&f@,s#}p$?*CW7w#|>97SO?Ltc0r pj%5MZMF/ZTkhZ1Xa_?-(!^(Fb_ n(k@*K$~
+$W9 8lAvZa$ [@d7jA_+Ja6X^^iMqW7/)uEbEqW|TU-J!G9M@BL'ctfjd\l=mOtC(;f(#(
+Dtbc&J'0Tk#{>ac^&IGX`Ta2SHEkUk%]/_K4#p,r8K/rmTdirQ0WUy&1iiO1,uT&Tk#{AD
+tKOc0l=nt;(CNj!*NUQT<YmKioro(;f(fK=|7ZiPqW7/)uEbEqW|TU+h7_aU4*7RO?Ltc0
+1_Gm:o(# 10+[8<q);6oAfAf#3];1c45E=n_mB3UbS]#8a6^Hgn_)>Yb2Vi;,P!{Hzs!hm
+S?Gt@-VrNGa2SH\$^~76]p`CsK:),ZUzNYRoG\ega=V7J.O6V<Uz^1\nG_,17s>X^CK\;C
+gSolDkSIigu$nD9I@vDj&8 }GeCFR?b~a`*+0Lc?6i;]g3cMhJPei9's:J37k~ 2(56CGj
+%maT\HK6dT3mhY`*1>&SMvkt[!%$fEhZr990)HAG9 8lTC\yF5X)n/d2*U@:DiS:U&0&fT
+:vjE`Oj]+zZG'6C:HFn&fMV'J-^3qyaxRyJaIpM;Hgn_5z=V_K.J"Qi,Cxs0s.^#fiqPeh
+#$[dBk-r??oY`:7O`SL/s~OKI}bg%$u4+CWx1qA8KreEGTmcg4@?*) ^CqRw7saa?PD+O'
+^{Ar.24 8jiU&*;}Pp+Y/kH\1.nS]8F5m^c2==^\\mS%K?-{D:lKe'P/Z[\X[7E0j`5@+<
+??R4%tL]WMG'[dt_'iub$2m;.1Io^La]iWX0Q :~2EL]/ZO;=J.c I;xhTb`Sx*)?"Mf$.
+)h(!8I:"72hj`:7O%8Ju'lL,MI==K?PSRbK?-{D:lKe'P/Z[G#Yk$/uARGFQSV;h?AA9E<
+@-VrkDa2I~QGoQ;e^^h|J?O Jp")qhOhRF58)gPbT6tH_`fTd(hU]NXUO,1\43^$ew50-r
+??oY`:7O`SL/s~uE_Qd#bMSx*)nlZIQMc^Q]n@h*b`SxtvnXap`LiS0>94[E8cn/A3s*/T
+u/(Ed@Qx7td>TQbG_NrJV(.jU;`*56)gPbT6tH_`fTd(hU]N-Ji@[)bAK;N<_Y`<Q',so1
+iq^5<$\Ld\l=bdr`L]I}bg%$u4+CWx<\%#rx;f rWqZrO,1\43^$%7H}s&/TJ$k1/r3)K%
+(#C: :&VP)=tnJp/?*CW``K|_pIfqtD*lKe'qxNpOR#JX~ocm$:w*Z$s8A:+R9ap4C,3bF
+X~6t?NNBi{W,taE.j`5@+<??1s^MDsP4b+f`0&fTk_q=W)M%?P<9 rWqZrO,1\43^$%7H}
+s&/TJ$k1]9/r3)K%(#C: :&VP)=tnJp/?*CW``K|_p;f^^h|J?O Jp")qh1rg6b`Sxm\_Z
+lb'Lt;tc'i(uEe@T?fF2v*0&fT T--0b@6sEa(4C,3bF<bh6>],eCZ6U?! q`nWLG'[dt_
+'iub$2m;d'Y_^boHQQbUh\*Z0_2/&:1.:{t='U^,7vd>*[$s8A:+B,?U1XX[fE'rVcfEbe
+Ii]NC -r??oY`:7O`SL/s~N^UV/Z=I\{+:Z[ H*q8en/A3s*/Tu/(Ed@u\uYM1qOg)r=0_
+!=0`r(tc'i5"ov?*CW3Sc#5%A?O)S0uQpyeh#$[du>RGFQs&,1'?kPj*`K4w<ojLGccs]/
+A/t=F4#`S<Gtn/Q5!tS;DZ(?02M: k3Gq5BRL$if^5qyAX.^jI>FqJeh#$[dYB^Bb\K;\e
+5B:8Rk&:3E-r??oY`:7O`SL/s~uE_QNMos8C.^`j89*[$s8A:+5<@]r$pjeuT=&(?m*)@~
+9+@;^I2V6(qy9OHB>WQ(;gt|n:Z6^A\mv(r@Fn#2n>Ba.>M  siviX^5qy5Fta'i(ueU\{
+O,1\gFu[p$?*t(58gFCY)8iq^5g/eEdi1pi@[)bAK;N<Oe0l=niPb`SxTVePO4UnOe0l=n
+iPb`SxEk%s+o@j[vJ}r%@@Oo\KBV6&5*qXTd@u`ZE~H"X8O,1\43^$%7ADmL=A(?02l=U<
+&)A3eXr%pj%5o2ZIQMm(1[Y|/*0L2EL]&~eMg).YIRRkpdoWiU,PM')FNS&WL/0[Ar-r:R
+1Zi2jV?i;:)?.WJQ3O+/27T}Dh5$Ih[GNp6ua@Pm`L^fuQM6Hg8FNVn{ZIQMsn3yqc(=0W
+^$ew2~$6qPg)s^>8l.#n1G<)N~ag*l73EqmR02=nB9Z7bZ;/>J+\%aNQT!GjVGX08S^I\K
+WK.ju[sac?#$LrSf.$7Ok~0g'?`3[$%$m,:w*Z$s8A:+ah4C,3bF[aOirch?cmGt<y=]Kl
+6\:+?v)@Yb2VHJjZWD]2FP?R'6<|`p%O(\DNrl>(9@[+[&Oj<p);-,=%uI&Ha[Nr`=LtT_
+RscC$ft_'i(up@fl>X^Cd]dj\Oa0!'70?Wq9'AD@Ak0VG#jWb^-/4=8B+zIo0T?nHOuTCQ
+9v(#a/$riVk_e'RB'so6bH4V(7c`fpM1p?2gh:S-C0kJ*KHb&7*7/TV`,%IoP~mik@*KgF
+JaIpr&J1HEXPu"@)*)qOOjoc]'iV"=?9Otf*GoYkQ)Y9AA%|4w[8i8s#*)VT'xfK;W;wtR
+N*UV,7I HEc;rQk@*Ku2@)*)CaJmhbM\u$+y_$R<@H,dLdiqn,%A\x4E%k8#YlQ)(h:S'5
+&-'/o[A'n&FbMi^|&N&e }(=3QtaYl+ZtW;`*d;fNPVcac7~r#4P^ElMlwUbNj# [mhfD[
+t\%$;:/T[ :I7S1Zb1euQ6_Z42lhtCpjP@uc[/%$\{5FoLaxJQQ(?Q9.04&B6BDxG&"`iW
+*2N!W,<u8TOO-9Ne#&#WGm0SG#3A6t?NNBNMKY$.TsuKh!PwuF-oPM-rbC;Ak|W*I!UCj=
+qAqV:pbP!O=voN2=uIM\C2Wsrn;T;wtRN*UV,7I HEc;rQk@*Ku2@)*)CaJmhbM\u$+y_$
+R<@H,dLdiqn,%A"~^*S7C3Zuu2TUQ',so1JrL/0[kX=A+|1RU'.J,:.>i!b/eumF%=Gd,}
+-K!{0ZG#YkQ)iID:=I76Gm3A6t?NNBNMKY$.Ts.J,:]M%Bh##JrxWB5IWM&j72M2:II%UC
+j=qAqV:pbP!Oe^.}#,27N_UVbEG TrMI0!]oFUGlcGtLD/-*Oh3R%>@}`ls*&sbgpyhk7t
+^xFO^1[}Q)==`2e8m;%:[8ugdje]7+rEi?sPMhBK9@[+Af'C[nR}92?y*)3QjUK?RUG\n!
+`L;I=q`2"UI$!W=&<~BJ-'0U@U=g?OhT)"A?BL0@GeEDZ>)>8$fb-X;~o*jY3sP2?e^BoH
+ax2Y\.gr?{*lK%i[S9$bC3!%!O7GcmPK3GqvNpORrFABPw'Ybh3sP2%? iIVo6bsJ}`ai!
+`YC?#*AA[8,GKbN+gn>52LrJK8iqMk=Z$M/D[sD'>L g+cm"85TnHzbS]N%BJ/i!ir;:a[
+=uk&tD8YDdBqfcuKt- 7O;u2Ozg=S9$bC3up Po[rI7v>X8olZ^%Q4hmb'b}^#&NBK,d[{
+aq`:7O"5_3\m+y@^5<*"Xj_T$!'x9\u]uy`*rol'd'r`o8qe[(%$fE0&fTa}r`o8qe[(%$
+fEd\l=Gi:o2]A?W(8)Ghs}ci?l*)VTS$bEc(mI/o=I\{b^7yP3df.ygU62H>?jF2qEAyA?
+W()So3dO.y1_+)'z)TlAAy2Yh:D~-(:3>,@w#7?l"nRz=+dvp~2}([?R3DRa&v8}&=^P\m
+EWuDsabr/ZTk/^U\OzRt/Z=I#"^*S7n>mtqcn(J>HYh[M\C2;WU%Q|qyO'OtG%@~uDsabr
+!d3vI~oJaxr9dWl=dVmr#vh# g/R,mt8^W_S3Q@-jnrnl'Y<3s-dm^'x)Tn+a}tRq.<][k
+>Q]vJaIplTRwePRybEmrdWHymFGiPEM-KvMvG%-{J9jx\n%thGJ.HEMe*0OtGp;Ie'or).
+uoaxr9W*I!HEMeU;O~bks1Npu8J&?w*)VT8)AR[md7_v426r^3J&3A/u?65#[RJ504&B6B
+Ui9LoHr%WMO,]unT`K4wNbQT?<7+8+d_\bpo%5n+F.tRq.u6SOo[/|3)f Mfrol'Y<0hi"
+m6?z*)VT?>dr/ZTk/^NUhs5*(*#1+1f WprnI"fq7U>zrEk@*Kq{a)/]V`W0B?iLHGMeG%
+3'uDsaT$*Qrx'})Tn+a}tRq.1r&uo[=1p.k@*KHbmFr$mFF.0i3B?>p~dVoT*T$%!X%Xn+
+;wtR\x\:op436r3(ek`K4wqE(H>yh:p+7"@)*)VT8)AR+)^YN6P6=tnJmtrupj%54A)S"U
+k$?yVLK(Ip5=NUh[M\C2t0SOcJtL_s6bv1saJZdrh[M\C2t0-iP^[ld7_v426r^3SOTk/^
+HOmFr$M&o,KNRs&Fu7?;?iTs?uVLK(Ip'/mToHax&mi"QLk!@-8|tSq.<]SOcJ/]V`le'L
+t;t-_o426r3(%+_q_t6bv1saJZ&t["%$fEO~LEZ&iX2=uIM\n=c*I%HEMeG%3'bj:Rk0tR
+q.1r3B?>p~dVmrdWl=GiPEM-KvMvG%-{J9>Li8s#*)VT)Sn!k@*KAkEQ>G]l%tJ/HEMeF0
+*63w-dm^'x)Tn+a}tRq.<]SOcJhF\:op436r3RT^JaIp5=mT0q5+/|fA`^4wUiqtrnl't7
+;T+'ADR9IXHEMeG%a:/ZTk/^NUOz#|h# g/R,mt8^W_S3Q_l6bv1sa.>drh[M\-\[m,c_l
+`;Qyrpl'Y<0hP_?<7+c6.yr@r%IJHEMeF0*6IMITMFv,q.u6-i?m*)VT)h"U=v\{D[t\%$
+fEO~r+pj%5n+F.O?U&d>_v426r/r?65#)`*k'r,<.>^LU%/^mTRwhs5*_x5Yv*]!0=)FfF
+'F((+{tm1bCJA?W(Tshw`K4wqEF.\(#ANnQE*aFo%iJi_cGxS&C0kJ*Kf @9K,N`o[_sre
+@(*)VTT^O~&_e^+jbbucegQd00<2s~ciJWQLJ:#4A>B9U"^&4?k~ 2aZFg%-!$];0&fTK_
+bYkc9c37+68coR_G8Ss~h^M\C2mIGi%:8$fbJaIp+sY\KFhf.He>_m *6!.Nf.-YndYsU!
+a&ZqpGflcmIv*}fQO-C,QRGlVu/QM; k]1F5X)n/+yZGQFu09g>##'1.D/'6SDNVN[B_`:
+sCq^fTeI3yc{4U$0h``:7O&YL/0[Ar?%Uw)FNS^o8SYd2V._Nr#&,Z41oj?ifE.MEbOG9v
+1ZENj]`OSBGs!W>]bj0[_"SaWLrol'jMo(!g[WZF4Ot[O$bDrD4Qe],_\$[M0r2EN7!jaT
+oQ_!h6'w1$LO[,HCCFe2,iVV6usko!/*E2skDfSn<fHuG$YkQ)iI\RJ}'5&-iq"0uEkME9
+)yXIOR8Or pjP@2`\.grU?9T6v:yisg' WOQp\Bi8FJLIptH8YOO`lm6!\7Gd>2kk*qY,*
+O|FJtRpd@6rQI^,)EB3=hGqW7/)u)6\0=%/#fG$tO3fU.J,:7gGm@`O++Es\q.WXr$Mg[l
+"e@#$xaJM\-\p-5,O;5rskGI&.426r_(5,O;p!R8EX)y8)*E@{;[,3`A4wu|mLrnEf`^he
+`g`YoJ #AATiu4mrezpY Du|JeG$)}I"r/!?u1_z3QeT`MI' _.FY`uA]2h>Q>snp1AqGh
+q2F</P71(Z#1h8b`SxU{94 zTXn@Ses~#EBu9"[cs<8So:l2Ght.p17'm:@-_G@XqSszqh
+R?IXHE80d+r`Fos}h^M\G6S'#vh#e,ZCj&`K4w;ULwV25njXA05],C]=(-9l_c?;/]'n]C
+J5d:_v^ypa7qSQZ"5H5FPII,rJZ<]XTAW3)kh:ivDz-(k{@RVX>}lqe% `;kbin|Dz]X_,
+_S3Q>}lqe% `;kr)[k^qivDz/jV`r+kJ+5C*%KQqU/O6@AGN]XivHFel#l3sI~)4\0=%/#
+fGhxZCTP2VB;MJ,}H|+<??>80ya<kzBNGsmR>:;]-a96mUfl`*rol')l_LFbt-Fb^\-i^L
+a]r``q9I#3J[/][ :I(#2cuDsa8 P3oQVrSw?fF2Ui%8e@`K4wf`W/AAR9IXHE80t;mFF.
+mFr$M&o,sF)<$%!X%Xn+;wtR\x%tr!pjP@<JGh;Ie'/r3)f Mfmjk@*KXuO1gd`*rol')l
+_LFbt-Fb^2J&3A/u?6H ez04&B6BUi9LoHr%WMO,]unT`K4wf`W/0he^8}H|_s6bv1saJZ
+&t["%$nMlTn'AyEQ[jf^eToVk@*KC@;WSOo[qe[(%$nM'/Tk/^mTRweP'n?U\YUl"}^*S7
+n>mtqcn(/Kt]q3:'hbM\G6NbQT?<7+8+d_\bpo%5n+F.tRq.P!G%0|]s=tnJmtrupjP@<J
+AR[md7_v42W3u8Fb?k^LJ&3A?)H ez04&B6BUi9LoHr%WMO,]unT`K4w;UOtGp;Ie'or).
+uoaxr9W*I!HE80t;0ii"?zF2Ui%8oJax3ZbLct:Rm:?z*)fdbs/ZTk/^NUOzd]n'L>?6@n
+h#&ME}09fGeTm2ezo8).uoax<CAR_]42W3ORcJk#\nEC+jt>pjP@1_-kdrAd'nfKqMNpu8
+J&?w*)fdbsbEHyo_o|).uoaxr9W*I!HE80(o5$mT0q5+/|fA`^4wUiqtrnl')l4A)h$i0b
+<2]vJaIpW+?)drePRy_BFbt-a]Yos"G%KNRs&Fu7?;?iTs?uVLK(Ip'/mToHax3ZAkEQ>G
+]l%tJ/HE80Y@0hP_?<7+c6.yr@r%IJHE80Y@0hP_ZWB?iLHGMeG%3'uDsa8 3R%+[mCai8
+s#*)VT)hn!k@*KnK7~L=O;<Yp.k@*KXud]n'L>?63A?>&t[Ro,#6^*S7n>mtqcn(rf$Vv#
+l'Y<0h?n*)fd+\ILfq_9O,nV`K4w;UOtLEmy,N4NA?W(Tshw`K4w;UOtLEEQ/|fA`^4wUi
+bEoHax3Zf HyO?:od_\bpo%5n+4LuDsa8 3R)SAEXDEWuDsa8 ^]kgRwePRybEc(M)=Jon
+n+ f/R,mt8^W_S3Q_l6bv1sa.>drh[M\G6cWk#\nEC+jt>pjP@<JAR+)^YN6P6=tnJmtru
+pjP@<JAR+)>yd_\bpo%5n+F.tRq.P!G%*6AEgD\:op436r3Rek`K4wf`O~"D(AY4I~m 0v
+'"&0?+U%S:SsT=?!(\[+J?O $JEq-W'd@`&L(9+ym:?z*)fdbs/ZTk/^ gh0*oU~?)@nU\
+Ozd]'l?U\Y?{*lK%i[S9$bn>#b$$Q)uQS{1d[jf^eToVk@*KC@;WSOJ6`bXzpTfm8T`$8W
+W&mj).uoaxr9r% wWW(JI$HE80(o!P]UAAN@-K-Kp]4``Z`b@9`d5#,s3vO.el ii!ZCTP
+2VE$aJb`G+j[]/+Y/ke#9IAaMNVOO6sTic^5g/jjAC.^Pv7sd>_v42W3OR?6H ez3s:\t;
+!P.Ff->]Yd2Vrm J!mYz5uVIX0[&GY!W^}^|8S,WCZlKBR4Lt[DFdj_%aa,"@^8oX8f=/|
+&:>9+Z!gENZ><qTFD[4Lt[DFPVLUM(Z|a,X/BJM.-:IoZH_ZlDN2#JENM1,;ek"M`O/nOl
+q),=r-Kh`N/nU"t]/Qe]9z'"Vr[ToaBdX5Vn%,)l92[U5Y2Zk|I\Ol]1B@iLHGn&eL7U/r
+V`W07O1Zb1euTcoLce\)Jgok2]\.grCY)8Fn3(5gi,Zc7yXZO17ts_c?`9@:@+VLK(Iplj
+@,qE,N4N?)?i)hk|*]t[7QTF_+32hcWD=IG\p; Eu7oJ9{tH9<6@:+A5n&eLGe3'DC(or"
+m)O5Q JA.`,""*gcTAM-KvMvoI9{Y5]XJwX8lyN?3k?9Otf*GoYkQ)Y9AA%|4wFE[1^qiv
+3A*]oI9{:v#wA5n&eLGeGc,}p.cV]gO<`U`66bv1sac?`9'/R)5,q8,N4Nac5<s!O$2VH!
+FE[18SZso9j@ kt8h_SxrZRYL`T6bJeuTcoLF.hf1_mmc|(5+jtc=A8$$4Y12M$%!X%Xh]
+Sx<4D{!@DkP4b+f`.J,:7gQgbM!R!k_"(9t2\MU$D~mHJV[#1\5F/`N^UV32hchYSx]u+Z
+jU0fuktN$Vv#l'*]t[OQR)5,NUd/U`0Sr.Be^}FNDW*at[Oioc]'dR,iVVIhVsIruiQI;-
+&R(=t2\MU$r*G~ TelE.skHj-HA8KrXDFx?NNBga=|&8DN')4wFE[1bE@9faTT-4@wO+p,
+?2)z0qX8iw04&B6B?sC:UW^qta2u`s9I#3I:VsgPn|Dzs.El7qSQZ"u8$1bPK_?2Otf*Go
+YkQ)Y9AA%|4wFE[1^qiv?Um[r97QsfnAXZq)PIJ=m*F0KOoI9{bvs1Aji~Dz3vi~?Uu#?o
+C:Jl?A''4wFE[1?2Ot:~?NNBhw50[EOirch?l6GhFE0&BZ*Z%!X!E;C"uPiAnE`K4w)})/
+?=^LR.5,qEGid@;2F~mFGitRq.opi9oodVX=rnOP[R=@M+\^/Z0GYo.=p? Eu74[isg' W
+u7RMVEm}auamK.,ICp@[2lVV_>0"V*GDD\"2 PR9&U'G,U5Dm_+SJ1/Fda\bpoeuTcO,pn
+`*aQg:\=%&8xMRU&?^(!f03a2>!)nV1>Qgs@BeVup]4`hbM\Xgs~#E:Idk4:my3BhhIRo6
+`1426rdA;2Gw@z6,3vkJ`fi!@9eSQd >u|50:I"4[k>Q/FpKeL7UM2UD?j*)3QaciP[ %$
+[ZJ5@$+OLmN+.5Io[YhkHYA580AD)>ue>X^CZs#Z.N@H"g$>27IFZ/,_h`h]7t.HOh**H4
+CFZGj<\(Zr`#(>9_e43y45E=i.5ZMU+6j5O^323>19^v)(Q(BX8[dt!gC:9_o,5;h\Sx5=
+Ma QVuj?5%A?O)%?Gd,}%?@}`lXoJ+b^'{iv/^+x9hh,)zm5cN0_]Z0l=nSZ#PfT-YcyEt
+,3my2Dc5A%=z5:$|A&Mw(VD]EoBS[cJS4$X|i$>-DC'4L,MI==K?PS#Sa=-;i@/}p)[uhf
+KUhoIFch<D!ifAU<&)A3s&al55sYby\:\$)-g-LrQISISeSvkAl@q0]2F5m^bf==+Wu~2!
+UB+0NSSa.wW;J.s*/T)c<X,n"(qh,E?P,5P'=[f3YX`DTND#*|g+EFJcJr@U+NJpk`@3d1
+T9FHRYVE]mJYk`\7?|<{i9<k]GelJr"7[8q[_j[4#)0rq.oer9#Z+Aqs#Zt2X-\8+4AX(!
+HRn)#Z/MpK@5S8=ZB'j|p1'6LDZwQH7#4ya+FE0&BZJb(5c?uuSMT=A#+T[F&\;~D*lKe'
+O8Z[7/ugD#4N6A&pF#Z@0XA/+,nS1L2]0a,_`$@VS:hHb`Sx*)?"Mfj\p1'6LDZwI@=+<J
+JzZ6V2@Y7t=}jb9D@vX.hqBM+|Da91![@^!x0XLxfRCWI.Y*@ +^i<"bRo1^Y|^Aj->]pu
+3s]Ggrg|.M"Rfa/ZTkmsdVDIYPg2>]pu3s=WO JpIp^L/?utDy`:7OFYJE#T^5grp*p'Ep
+W>`_?)."]=(-9lFB h#zU<RE1TY|PK&)#OFpGl"f<X>,0<fG`*@IS@jtbc[>**"No5ZITP
+2V6(qy=S?QLL^,[}uM>66/a4;Ud*+ym:J%WjC)3At8tCYx7O`S4weETc)^(\)umJ7Y^M[k
+<op>>76/a4uO+CWx<\%#rxF]cq?l/T'!iiO1,ur\I,VsQzZuu8<{VrkD*KBbN3??PHRE1T
+Y|@c`]\mF\>|Z7j#v*0&fTplkc4~::mr,GqH+X'o 6mn>76/a4Q+bUh\csBnEnCH#`^'\m
+r$[('i#PDtbc&JGNuDsaUmUm+St]'iub$2m;t7F0m^M\SBdX`?0&fTplkc4~)})/^LFb3O
+3>pGeL$n$>P&FdVw?V/a[R=@M+/Q?6H ez%i)!u;H' i`nFEF\BRGW\<]{F5m^c2==VT0M
+F!Mi^|&N4].UBiN3??PHRE1TY|@cZa$ 05W`[8Tp`UF\cqIv?RLLn!m9e%o/agArkmVDoG
+. k4=n(9R2pd92$<G>Roamb`3Ch\Sxh`Hl+dQJS@(@6B'z c,f[$K6Z6/p$JTq_4\mFxBa
+$M?9M{Us<zVr I/ESKl8PIRE1TY|3vE`+/@1'+LDZwI@=+=kn-$+?ODfm(.xq.bg3=Y8?;
+);,/&29_3yKv8coJax2Y=/ucF0X)hh@V0|o `K4w[/'iubsa<lOm`Uqg$qkT6$Yv7O`S4w
+NM!OnKbMSx@BL'ct\ hf`*FO*]!Yic^5g/G'[FK6Fv@%ks]i^i#q-5dv9I1Qhc9D7Gf+2?
+JE7:F7AC.^PvJ~Ti\w')#(!@5hU{Bm@#HJU%kj8Fh~hy,AG)Ab[KD?Es,3[FMxOfEp,}j<
++zm:,GQ(LSBkhv+l/PaA[|?|:-q43sa@Pm0\2/%'r(j-N/Ft[#1\+\!g);.Wml!Q'uGM]o
+[\rUGj8P^NH!;J,3_/u%X5Xm8`^F/xD]&8a^iXc?a0KEt":5;FQB5E#3!%GaqGKPho%>M[
+oS2j>c9+M5`UqgQ>c^oLVKn@#59)HBrs$/f6JgCFm:J%WjTr)^(\jV)X@R2|TiFQ>q19,n
+!yn6N~3!fUPUWL5ZuM>66/a4/INNtUZt^Ij7TG`;LTahN^C,>-8\21mOqAf{162E^#19M9
+ kJ>7:qB%gECZ>4P8SAc.$7OK^+Ej+[@eO.=2YPDSJVt8FH(YzEW])4"@-VrkDa2I~,z#%
+t}J,R%?PYrO,1\43^$%7`uoR=uo4ZIQFojYs[;!CM:T6_mh2&?oKoI+yR?7soO){V<2m_R
+n@prH{=+f4[GAo(:#1X(G{1@9kMw8W+zZG5J=+f4[GdR3r45P(awamRwePTc)^(\)uH5T=
+&(=+tRFbM&j{8f?6P(s~#E?6@n<wJgI0 t[Jori9r"Be"G"/8#s.qdMgj{8fc/I~!b@6g=
+rch?*d.UC*=coFcx57,1!iU,$AA_m}>76/a4e?9I\\-as5alD$sYbyUe&(p8s3ul>66/a4
+?YO^k9<K$TA_m}>76/a4p*MDh)p|O^@yL')Tdvs3p|\HK6dT3mte\g0R`eeg7[ b%!Jx/<
+!Ja^Tc)^(\)utEjY^Be>E2FtKN\}Zc;4(cUg()RVu`pjS*FQQV`W&dmi2X^UOhG[PKRE1T
+Y|!dhg&1&l@S<;m=dfu}/ml3 %m u[5I=+f4[G&t@<8g;3Kw:wRS0;rU3A/q2^?q,)]=(-
+9lDhs&KaJ@O $JHdHt>GCZs&Ka4.SQocE9FEF\BRGWk_P/!EJvpzKXnGk*7|!}QQb~rQeL
+$n$>P&tvQ,K;:w`!05rU3A/q2^?q,)]=(-9lDhlKe'Ho>G%|B'GNPKRE1TY|!dp;,StjS(
+$(,qum@T`yr>p_+} ~8hlZtCBe"G"/8#RS:uoXoM#(NQ[D.-1)(XH=%~@oQ(o- C/ESK+W
+ta'i(up@:.j%iIb`SxEk[w,hjWFNk.jEiQou!.H=0li2jSljm9e%o/a)'E`C-rB<42%WuE
+a*!GV|Ih)`'x9Y);gF323>193k[EbQE]NWSaP/!EJv[EKLXqd[HY_ rC*T[<a.AyCE(#C:
+KEHv>GqHOl-uY4i~Tc)^(\)u=biwddu}/ml3 %m u[5I=+f4[G&t^J!.V|/ml3oTflo,#6
+Dtbc&Jir^5qyDkh6ou!.ta'i(uqIqiC5CZs&Ka4.SQocE9FEF\BRGWk_C~03u8_:N* 7Q=
+snuh>66/a4;UEU$YOG_9N*[R8SYp,{]=(-9lDhlKe'\{?hoqV\ocE9FEF\BRGW@TrkS6uf
+?\b0 +ciu"JsZ6V2@Y-jF^"_V|/ml3oTflo,#6Dtbc&Jir^5qyJQD+s&KaJ@O $JHdHt\e
+\wIR5p*'9hGq]g323>193kpzt!deu}/ml3 %m u[5I=+f4[G&t>z!?;NS"q4GinQr`!Z]U
+AAN@p$?*t(`C,hE?8|:S=:uL>66/a4f`/^!CQHB@v*eP %m u[5I=+f4[Gr@O"a!WL(WVK
+9h'{/w<)aIM&(Ec=I-r32D,1?;i!WDtKqY8Sl48Olkm9e%o/_m>$XTL\03Gh$}f9TQsTa}
+5OA oOC5-(A8MVU$]\a0PmI2]g323>193kf )w^V[E9Tk[n^ ;oP#R[9,C-Ya'XVdDhm'&
+kGL]oO#R/MuEa*rqL^bCpl:lt=oQ#R$:Jv[EbQE]NWSaP/!EJv[EKL:wRS2MtTK~Yh`mXV
+dD*_umk_qlS67hpgRwhs5*u'&,sefk323>19^v[&pAf!=^oO){V<2mpsn'tt]i&1O9bCVr
+(#N$ Ih4t3!"R~iq^D9;Ipu2J@p19i<62]E.FtTGjE*rj=Q'`KK'04JnIW.m9iiwZbRqu`
+pjS*FQQV`W&dmi2X^UOhG[PKRE1TY|!d +5K=b11O%@Nt:sJFb4x 7JqiX7|G{`a^B5FPM
+RE1TY|!d +5K=b11O%@Nnt^[Hd/il3dWXia^+yh% g>j0`70q;ib^5qy@)\w$[p$?*CWc#
+a|iW^5qye>_RZ>8S4x%|rg:/j%nn3P1oX~8,]Q0&fTgC2IERC&(#C:`zXI[l^qc@d=Sth)
+K|!@5KsX!H`AN:i"3X(XkHG"%~?>TT4sS ;>!|QQb~rQeL$n$>P&tv[>.-5M"fBAdm/gKe
+Xqn%l^_(N*/^V]#yOj=Q#"Dtbc&JbKD+lKe'J1g42P]MF5X))J%4C^lK9{f)7t]oWf9R^x
+7(G#;>_:iV"=pZqJ0dW`V]]3F5m^`3CY)8iq^5g/OoOVU&^xc@d=Sth)J[%s^"rDV{@?/]
+eES2#v,lOhnmTc)^(\)un+5w.^@)I/^W?;/]2^?q,)E^+/@1u9\ML>L2_4T2q=6I$fb:o[
+jL94#w%=n&h+t3!"R~iq^D9;Ipu2J@p19i<6uL>66/a4f`Gv`}K-:w'HOGVshk'&*fuEa*
++Js[9>bnfTdeV~sNdVoT*TJS#&t}nPTc)^(\jVh]s;n+9YbnfTZW^bttIie{`yH",gbC;3
+/[JDNo&~`huA*]`fN<Dz.`G=h`E^(#%!WPGNjU^Be>E2FtJmPhq]hfHwuN8mdCTAuL6Wcu
+@;/Nu,k@/~m$,vJy-Je=E2Ft)<o8ciJWZ6V2@Yc`]/aoP~&j</e'o/PBR1pH,Y$>E;>WF-
+7pa4Q+8S]h323>193kEo4btTK~`;7O@S<;B2Vf(#4u<{kEi9O4pn^[N* 7JqiX7|!}QQb~
+rQeL$n$>P&TV%0umk_0&fThl'&(TnB7UeuRA2pGsVwUSOzov+}Fd?cE=_c82DD0;SY.6o}
+?*t([/iV"=s-/T1kl\@}&-QbuQ[/O,nV`:7OexCGHk+WP&Ics!Wb$c[n];4E%k8#C`t[f{
+MLSLfz,h:']o`60&WY7*O{`6CY)8_gc*bue),}_<lyN?3ks-/T1k\L.MEbOG/tD-_QrgJ?
+-^,IFhrf:/j%nn3P1oX~8,ie^5qy@)\w$[p$?*CWc#bu:Rs0Be"G"/8#eF$IJvpz+ZZvoO
+#Rpnv,p}[4ugdj@nJ~etX=EfsQ?S(v9Y);gF323>193kEoCQtTK~&eH)@E<;JzuLL;JYrG
+@w#yrU?=4BS m`@tQ(o- C/ESK+Wann|*`.UC*=c#J/]@M<;Jzkm!oJvpz]lEdeuRA2pGs
+VwIh/^l3`ekDGz%~ O,DqHu<\ML>L2W,mm"45KsX%l=Krr!hHGv1sY=YJsBE0GpZmFg?3A
+/ql3oTflJ5`d!wQTW@hJb`SxtCX2E"DdlK9{2u*H,"t]'i5"m 0]ZAJ?hy0WiPHlo:t_;=
+]7IR5p4qU<,r,I+x9hh,I:eTYw`T12`6Q',so14\Bo<{kE(X<O_YZ>T]EIJ7@-8|N5)ap]
+CY)8_gc*buTxA%\j];IR5p4qU<,rO|CI,KFhZNlyN?3ks-/T1k\L.MEbOGS|7.,GD3DA+j
+3]b+\xECs&KaIc4B.{SzfzF)@-VrXQDsk%f,0&fTK_:]ADGNPKRE1TY|!d=DkZ@3u:S@a^
+u}USOz#{r"XOFc?c00E.:vlkm9e%o/a)h!sV=YJsBE0GpZmFg?3A/ql3oTflJ5`d!wQTW@
+hJb`SxtCX2E"DdlK9{2u*H,"^/0&fT1Mjs+x9hh,I:eTRA2pbnhbqW7/)uXMu2nXap9eCM
+&D-JX>]rDBs&KaIc4B.{Sz8,ie^5qy@)\w$[p$?*CWc#bu:Rs0Be"G"/8#23"RJv[EX4em
+6leuRA2pGsVwIh/^l3`ekDGz%~ O,DqHu<\ML>L2W,))!95K=b<*Bv+Fn&90)H_%;Ketc(
+Gz%~3B/q2^?q,)]=(-9l'+s*/TJ$hbou!.ta'i(uqI[Y]p&*D5lKe'QXjfqW7/)usHu1nX
+apZ&DsP4b+;UiX[4ugdjWOm_CHQ>]4];%tTyA%>L]lIR5p4qU<RX9|Y#pdQ',so1iq^5g/
+eERA2pbnS%2&jstN`:Qy&43DtNX2E"rR)g(w<OgAb`SxU{&!s*/TJ$hbou!.ta'i(uqI0d
+<2uL>66/a4;U$T!)UpDFow)Hr.Wb$c?RnFk*dWHYEfsQ?Sb0 +ciu"JsZ6V2@Y-j":K_:w
+23s'$ct2f{ML/hgSG"qJ?Sb0Oz#{Oj=Q#"Dtbc&JbKJ?O U[];IR5p`;7O"5_MoV/K7(ie
+^5g/G'WJlyN?3kpZiBRA2pbnhbqW7/)uXMol90)HAG9+S&T<iMmQrf]SCY)8_gc*buW).7
+rG?'(#C:nlT?]s\]O,1\kXg?i!jSljm9e%o/a)f,sV=YJsBE0G`Zn%+} ~u1C`)`'x9Y);
+gF323>193k[Er34t<{kEi9O4Ic3A\zOzd\HY_ rC*T[<a.AyXz]5F5m^`3CY)8iq^5g/Oo
+Md8UZ^O,1\5b8oECHk+WP&IcJXrG@wh.2Ic5A%Xuov=YJsBE;gqzn@N5)ap]CY)8_gc*bu
+e),}&#s*/TJ$hbou!.ta'i(uqI0d<22]E.ptBRoXoU8Z0XZ1&[D[(\)uOhG[PKRE1TY|!d
+%P6CM1VPkd9cuEa*6x%XpiE]M/&Hr.Wb$c?RnFk*dW!*u1C`Tk &m u[5I=+f4[G&t6"#7
+(9MWL20[rs!h%P6C`D`C(19ceuRA2pGsVwUSOzovg91m2^?q,)]=(-9lDhlK9{^!Idjx"t
+.N9alCf+0&fTK_uHnXap.z8gQ\ZV[0O,nVq5jHC`9+4Y@-Vr!*I`i#o(*`.UC*=c#J+!Lf
+$,6ka4SHUU.MEbog7YsR?=b0K6`Sov+} ~8hlZtCBe"G"/8#'HSwM}GH19'?k^@3u:S@a^
+_gRy:]mH_GN*[R8Sra 1'b9ePv?)(#C:nlT?]s\]O,1\kXIaP(os?*t(Q=Q',so1_gBi<{
+kE(X@+c^&IGXUI\R.MEbOG.7?lh::>DfFhrf>g\w$[j~l_AJ9+b1J?O U[];IR5p`;7O"5
+4BO<gd5B=+f4[G&t6"#7u&u#@f0X4u<{kEi9O4pn^[N* 7JqiX7|!}QQb~rQeL$n$>P&.p
+1YPqP/-,-Ya'`Gt>0KM(I:/^U<dZHY%~@oQ(o- C/ESK+W^30&fTgC2IERC&(#C:`zsDU%
+,cN t_'i5"WJlyN?3kpZiBRA2pbnhbqW7/)uXMol90)HAG9+S&2&jstN`:Qy&43D_lX3E"
+rR)g(wOzX~fz];4E%k8#`;7O"5s!Wb$c[n,h:']o`60&WY7*O{H>\w$[j~l_AJ9+b1J?O 
+U[];IR5p`;7O"54BO<gd:4);-,'s6?SdEtN?L`T6,R$>/esrN7k(V`@YRoG\Rt1^Y|^A\m
+tb\ML>L2W,mm!;5K^#O,1\4u<{kEi9O4pn^[N*/^eEUTdZXi }8hlZtCBe"G"/8#eF"WJv
+Eo(#C:IkYw`T\=(3sHFbC_)`ev7|G{_ rC*T[<a.AyXzBz@-VrXQDsk%f,0&fTK_pS3t8J
+4xN}WQt_'i5"7*b=&M:/]o`60&WY&cm,T<pTJ1@-8|-HdN2CjstC`:QyZXDqk%;!etXI8i
+cjE P4b+;Uet[4ugdjtL7qSQZ"rUU).MEbOG.7?l"T8lhFhb7UG;N ,{IS:1j%nn3P1onT
+%i9xh<2IERX[n%g?WOf_os7*q3U^:"8rJhhb7UG;@-VrB{N FUrfgPW)ZWDqk%;!etXI8i
+8_c^&IGXj~r%Wb$c[n];4E%k8#C``Gt>0KQTS}m$C$_QrgJ?-^,IUWgPECs&KaIc4B9f8r
+4xXk[0iV"=pZqJ0dFo8lRq+Sd"h9;BOz]s]3IR5p4qU<,rif*2N!W,@-Vr!*`Gt>0KQT/u
+J[_QrgJ?-^,IUWC?Xk7|_:iV"=pZqJ[oC?9+7&D1lKe'J1g42P]MF5X))J(w3vi~Tc)^(\
+)u2w1huEa*NM_/pr[4ugdj@nJ~et7|G#EfsQ?S7%'t9Y);gF323>193kEoCQtTK~&eH)kP
+@3u:S@a^_gRy:]mHIq3A\~hsWDtKK3#p,r8K4yt_'i5"DAs&KaJ@O $JHdhw>wN0l0]p:"
+8r4x&c8mW*Q>Ul];%t?D(#C:SqpTQ',so1_gmt90)HAGDAHk+WP&gAJXrG@w,r1fcrf)Hl
+o:t_;=8r4xXkjgou!.sHHdSMQeIq;A@+\w$[j~l_AJm_QYt>7-q3U^:"]7F5m^8k:.1M>O
+bA3:-'tm@)(#fwNLF`:.sE`30&WYD3m ZGo~7"hQou!.sHHdSMQeOc0l=nnu3P<{kE(X@+
+c^&IGXUIr(Wb$c0cW`9RKIci>YihN%:Lq370p]CY)8_gc*buTxl0NAtNX2E"rR)g(w1dSz
+J>8J4x&c8mW*DqP4b+f`0&fTK_@3u:S@8iS&5=jstN`:Qy&4:k\jgPW)jgou!.sHHd=w1_
+W`V]]3F5m^`3CY)8iq^5g/OoOVU&p*eL$n$>P&TV4_euRA2pGsVwIh/^l3#vr"XOFcCg 7
+Q=snuh>66/a4;UFv"Wt2f{ML/hgSG"qJ?Sb0Ry;>M(7tYs!P]UAAN@l@]0F5m^`3CY)8iq
+^5g/OoMd8U%irQgP?C(#C:SqpTQ',so1_gmt90)HAGDAHk+WP&gAJXrG@w,r1fN=QoIqW)
+:oRforDqg42PI9O~OV3\b+&Mrg:/j%nn3P1oX~8,]Q0&fTgC2IERC&(#C:`zXI[l^qc@d=
+Sth)K|kXhi'&^JfOp#k[@3u:S@a^u}USOzn&kMpl_(N*/iS32VXVFEF\BRGW@THKrr!hE0
+r<4 sW=YJsBE0GpZmFg?3AUWOzowGinQ5*@BL'ct;_ev`:7O:mih_sV#@-Vr!*jqGjRp+S
+sd:n-!if^5qy,ED3sfVb8nhFhb7U\pl;)\Q^uQ[/O,CK763@-'tm@)(#fw]4:/j%nn3P1o
+nTHlOf0l=nnu3P<{kE(X@+c^&IGXUIr(Wb$c0cW`9RKIci>YihN%:L]oBz\~];IR5p4qU<
+,rO|8n4xXk[0iV"=pZqJ0dW``2PuIq'e8mcj:uihN%ZlO,1\9xq3Ox5+>O\j]4:/j%nn3P
+1onTCGHk+WP&IcJXrG@wh.2Ic5A%Xuov=YJsBE;gqz4F9y]o`60&WYm q>70J7g42PI9O~
+OVS|DgN ,{o9T?]sgHG"C_;gk48J4xf_-GdNs$]SCY)8_gc*bu?Cc^&IGXp$?*CWmm90)H
+AGm_fKQ@]4];%tTyl0)\&SmBIQ:1j%nn3P1o)_;h:c(#C:KE8&]Q0&fTgC2IERC&(#C:`z
+XI[l^qc@d=Sth)K|5bhk'&6bv#kf@3u:S@a^u}USOzn&kMpl_(N*/iS32VXVFEF\BRGW@T
+f)rr!h;6v1sY=YJsBE0GpZmFg?3AUWOzowGinQ5*@BL'ct;_ev`:7O:mih_sV#@-Vr!*jq
+GjRp+Ssd/KQ[&4:k76fsC?m XUo~7"hQb`Sx,{_8lyN?3kpZt-f{ML=vih*2N!W,\z@3u:
+S@8ie*q\1QjstN`:QyQ?bY&Mrg:/j%nn3P1oCI\j+TSqZBDsk%;!etXI8iR7/M7(gC;BG:
+@-VrB{_Q%jrQgPe)h9N5-E>E763@WQt_q3Dq_QrgJ?-^if_sV#US:]QTQ?Q',so1_gmt90
+)HAGDAHk+WP&gAJXrG@w,r1fcrf)Hlo:t_;=8r'e9xh<2IERX[n%g?WOf_N4Bz\~];IR5p
+4qU<,r\q&5jsUWC?&cmBQYDrP4b+f`0&fTK_@3u:S@8iS&5=jstN`:Qy&4:k\jgPW)jgou
+!.sHHd=w1_W`ov?*CW^^;>id^5qy@)\w$[p$?*CWc#bu:Rs0Be"G"/8#23*:n&90)H_%fV
+_~Ryq4!zt,gB3A\~ +ciu"JsZ6V2@Y-j":!;u4nXap'snt^[Hd/il3dWXia^+yh% g>j0`
+70q;ib^5qy@)\w$[p$?*CWc#a|,:N tCCgZlO,1\5b8oECHk+WP&IcJXrG@wh.2Ic5A%Xu
+ov=YJsBE;gqzn@N5-E>E763@k%hBou!.sHHdSMQeIq;A_:iV"=pZqJ0dW`V]]3F5m^`3CY
+)8iq^5g/OoOVU&^xFO6Y+h-V=C,~<?A=.%8Z^?\mtb\ML>L2W,dD)6euRA2pGsVwIh/^l3
+`ekDGz%~ O,DqHu<\ML>L2W,dD)6euRA2pGsVwUSOzov+}Fd?cE=_c82DD0;SY.6o}?*t(
+[/iV"=s-/T1kl\@}ov?*t(0kRJn=QLQ',so1iq^5g/eERA2pbnS%T<EIJ7@-8|N5)aJ7g4
+2PI9O~OV.7rGJ>O JpMG:oF(@-Vr*c:9N0)aQ^ZV[0O,nVp+b-:/j%nn3P1onT7qSQZ"rU
+Tr.MEbOG:o0RiP`:Iqq\h>s*V[D8s&KaIc4B9f]74E%k8#C``Gt>0KQTS}WN8mhFhb7UG;
+N f_ECs&KaIc4B9f8rmQo7T?]sgHG"C_frC?s%+To}?*t(2E7*0RiP`:Iqq\h>s*V[D8s&
+KaIc4B9f]74E%k8#4q`Gt>0Ko27*O{8nhFhb7UrFs0l1X2E"rR)g(wG:+x9hh,I:e_RA2p
+bnR6/uD-_QrgJ?-^,IFh_sX3E"rR)g(wG:N f_hbou!.sHHdSM3GWQl3`:7O:mih_sV#@-
+Vr!*U<bhn|*`.UC*=c#JZX Vu4nXap'st:sJFb :JqiXX=`a^B5FPMRE1TY|!d=<KFJYrG
+@w#yrU?=4BS m`@tQ(o- C/ESK+Wan]Kp*eL$n$>P&IkDo4t<{kEi9O4pn^[N* 7JqiX7|
+!}QQb~rQeL$n$>P&IkDo4t<{kEi9O4Ic3A\zOzd\HY_ rC*T[<a.AyXz]5F5m^`3CY)8iq
+^5g/OoMd_\PudlEN_QrQJ?-^if^5qyDk8^c^&IGXj~r%Wb$c[n];4E%k8#C``Gt>0KQTS}
+7.,GD3DA+j3]b+C?]lIR5p4qU<,r,IFhrf:/j%nn3P1oCI1_W`QnJ>O Jp2njsFho)SFDg
+_QrgJ?-^if_sV#US:]QTQ?Q',so1_gmt90)HAGDAHk+WP&gAJXrG@w,r1fN=NDm ZGo~7"
+-6SDor2OERX[n%g?WO7*O{`6CY)8_gc*bue),}UbA%\jOd0l=niPb`SxEkYw`T12CI&DQ^
+ZV[0O,nV%ig:_9iV"=pZqJ[oC?9+b1J?O U[];IR5p`;7O"54BO<Dai~Tc)^(\)u=b2HUU
+.MEbog7YsR?=b0K6`Sov+} ~8hlZtCBe"G"/8#RS$Yn&90)H_%;Ketc(Gz%~3B/q2^?q,)
+]=(-9l'+s*/TJ$hbou!.ta'i(uqI[YN1TlhFb`SxCb8kECHk+WP&IcJXrG@wh.2Ic5A%Xu
+ov=YJsBE;gqz\nN4)ap]CY)8_gc*bue)2Cb+C?DAs&KaIc4B9fnX&AD5lKe'srDqk%;!et
+XI:+H:c^&IGXj~r%Wb$c[n];4E%k8#C``Gt>0KQTS}WN8mmQIQ:1j%nn3P1oCI\j+T7}@+
+\w$[j~l_AJ9+b1J?O U[];IR5p`;7O"54BO<gd5B=+f4[G&t^J!?u4nXap'st:sJFb?cTT
+4sS q4K-FOJm*d.UC*=c#J?5KjJYrG@w#yrU?=4BS q4+}a_+yh% g>j0`70F0@-VrXQDs
+k%f,0&fTK_pS3t@-VrkDa2I~k3\n4E%k8#`;7O"5JXrG@wRX7.,GD3DA+j3]b+C?DAs&Ka
+Ic4B9fY#XLO,1\lkh/N5]5F5m^iX&2b+C?m ZGo~7"k4@-Z^iV"=pZqJ0dhQqW7/)usHu1
+nXapZ&&53DhB7U>z]o`60&WYT?]sgHG"C_frOd0l=nnu3|<{kE(X<O_YZ>qZh>s*V[Qedl
+s$TB]sgHG"C_fr+T7}@+\w$[j~l_AJm_QY:pF(@-Vr*c:9N0)aD1+j/M>w@+(#fw:/j%nn
+3P1onT7qSQZ"rUTr.MEbOG:o0RiPHlo:t_;=HB(#D5s&KaIc4B9f]74E%k8#C``Gt>0KQT
+S}WN8mhFhb7UG;N f_ECs&KaIc4B9f8rmQo7T?]sgHG"C_frC?*<D5lKe'J1g42P]MF5X)
+)J(w3vi~Tc)^(\)usXu+4t<{kEi9O4pn^[1meEUTdZ!*8hlZtCBe"G"/8#`!5:euRA2pGs
+VwUSOzovg91m2^?q,)]=(-9lDh:Rs0Be"G"/8#`!5:euRA2pGsVwIh/^l3`ekDGz%~ O,D
+qHu<\ML>L2W,k+*\n&90)H_%;Ketc(Gz%~3B/q2^?q,)]=(-9l'+s*/TJ$hbou!.ta'i(u
+qI[Y]p&*3D:7sE`30&WYt_'iubE]\n4E%k8#4q`Gt>0Ko2)4AZ[]gUGzYw`T12X~H|\eqZ
+h>s*V[Qedls$TB]sgHG"C_fr+T7}@+\w$[j~l_AJm_QYiS8_(#C:XV,y>w:FJ5Fh:.]o`6
+0&WYT?]sgHG"C_frfoqW7/)usHu1nXapZ&DsP4b+;UiX[4ugdjWOm_fKF,_QrgJ?-^,IFh
+_sX3E"rR)g(wG:N f_hbou!.sHHdSM3GWQQndl]NQ',so1iq^5g/eERA2pbne)VaQ>]4];
+%tTyA%>L]lIR5p4qU<RX9|nX^/0&fTgC2IERC&(#C:`zXI[l^qc@d=Sth)K|qvsV=YJsBE
+0G`Zn%+} ~u1C`)`'x9Y);gF323>193k[EJVUU.MEbog7Y4q)`iX7|mI_GjZI1PEhh@V0|
+<Mie^5qy@)\w$[p$?*CWc#a|,:Fh>x(#C:cAQ`jfqW7/)usHu1nXapZ&DsP4b+;UiX[4ug
+djWOm_CH&33Dk%g42PI9O~OVS|DgN f_hbou!.sHHdSMfz,chJb`SxCb]0IR5p4qU<28js
++x9hh,I:eTRA2pbnhbqW7/)uXMu2nXap9eCMQO-#SDor2OERX[n%g?WOf_N4)aJ7g42PI9
+O~OV.7&#s*/TJ$hbou!.ta'i(uqI0d<2-8Oh&UO%V:?7S|;'O X5,4lqflp*eL$n$>P&.p
+D{4t<{kEi9O4pn^[N*/^eEUTdZXi }8hlZtCBe"G"/8#RS2MUU.MEbog7Y4q)`iX7|G#%~
+?TE=_c82DD0;SY.6><(#C:nlT?]s\]O,1\kXIa:R(#C:HFEq*O]w&*b+3:tNCgf_hF2HER
+X[n%g?WO)4AZ[]\jO,1\kX=YJsBEfr,h:']o`60&WY7*QmDg\~C?]lIR5p4qU<RX9|Y#XL
+O,1\gFZ &5iZ`:7O5HTR&*:k\jgPW)Q>]4];%tJ/+Vd"h9;BOznTHlnmt_;=]7IR5p4qU<
+h.s*l1X2E"rR)g(wOznT7qSQZ"rUTr.MEbOG:oq3Ox8nCgf_-Gd"2CjstC`:Qyt>2H:k\j
+qZgEs*V[D8s&KaIc4BZ'Q@]4];%t?D\w$[j~l_AJf_?Cc^&IGXUIr(Wb$c0cW`9RT.EIJ7
+@-8|cjlG)\&SmBo7T?]sgHG"C_3?WQf_os7*\X0&fT:v9tN0/7iP%im,o7Xk7|,G5DDA+j
+.8>{723@-'tm@)(#fw:/j%nn3P1o5+jstN`:QyDrk%;!etXIm>QYDrP4b+;Uet[4ugdjtL
+%im,T</7iPHlo:t_;=]wl0)\J7\~C?:LsE`30&WYT?]sgHG"C_J6@-Z^iV"=pZqJ[oC?Zl
+lyN?3k:dt/f{MLSLfz,h:']o`60&WYm q>OxNDF`rf:/j%nn3P1o)_fsC?*<iZ`:7O:mih
+_sV#@-Vr!*U<bhn|*`.UC*=c#JZX Vu4nXap'st:sJFb4x 7JqiX7|G{`a^B5FPMRE1TY|
+!d=<KFJYrG@w#yrU?=4BS q4mFgO@nQ(o- C/ESK+Wsho{?*t([/iV"=s-/T1kl\@}ov?*
+t(0kRJXgl08k4x&c8m2Ic5A%C@(#C:`z[4ugdjWO9RT.EIJ7@-8|N5-EiPCgf_ECs&KaIc
+4B.{Szfzs&/Tu/*[@+(#C:HFEq*ON8DlN tCCgZllyN?3ks-/T1kr"Wb$c0cqz\nci>Yih
+N%:Lq3OxNDF`_sX3E"rR)g(wOzX~XLO,1\gFoUN;Bz\~+TnlXk3\jstC`:Qyo}?*t(2E7*
+;=OzH>\w$[j~l_AJZllyN?3kpZt-f{ML=v,KUWC?]lIR5p4qU<,rif*2N!W,\z@3u:S@8i
+e*fq,FD3DA+j3]jsUWC?Xk7|@+\w$[j~l_AJf_e),}>{N0XPVenT`:7O5HTR&*:k\jgPW)
+/LdN2CjstC`:QyDrk%;!etXIrcqZh>s*V[D8s&KaIc4B.{SzD8Hk+WP&IcJXrG@wh.N5-E
+iPCgf_'em,T<pTJ1@-8|2IERX[n%g?tLHlo:t_;=]7IR5p4qU<RX9|]74E%k8#C``Gt>0K
+QTS}WN8mhFhb7UG;_Q4yf_;AOz`6CY)8_gc*buW)S|9|,&>h(#C:nlT?]s\]O,1\kXg?i!
+=6uL>66/a4;UB2!.t2f{ML/hr>p_mFIq Nuc\zOzowK-FOJm*d.UC*=c#JZ0`m`Gt>0KM(
+I:/^U<dZsdFbCg[R8Sra 1'b9ePvIss)/TJ$hbou!.ta'i(uqI[Y]p&*evCg7*gC;BG:@-
+VrUnSiDhP4b+;Uet[4ugdjk#+x9hh,I:e_RA2pbnR6/uD-N FUrfgPW)ZWDqk%;!etXI8i
+N5-EiPCgf_ECs&KaIc4B.{Sz;ot]PtIq-GQ[o}?*t(`C:/j%nn3P1o8n7qSQZ"rUTr.MEb
+OGjgqW7/)uXMu2nXap9eCMQO-#sd7{U`/7iPidX2E"rR)g(wG:N FU:.Rfor2OERX[n%g?
+F^8l4Y\~J?O U[];IR5p`;7O"54BO<gd5B=+f4[G&t^J!?u4nXap'st:sJFb4x 7JqiX7|
+G{`a^B5FPMRE1TY|!dZea `Gt>0KM(I:/^U<dZsdFbCg[R8Sra 1'b9ePvIss)/TJ$hbou
+!.ta'i(uqI[Ys&/Tu/(Ed@r9N;&*:k\jNLF`_sZOiV"=pZqJ0dhQqW7/)uta'i(ut,f{ML
+SLH|>Gm ZGo~7"-6sd7{723@k%g42PI9O~OV7|<OnXt]'iubPH:o;=id^5qyDkN4l0)\&S
+mBT<EIJ7@-8|RqIqW):oRf9|8rJhhb7UG;g42PI9O~OV[0O,]5IR5p4qU<RX9|]74E%k8#
+4q`Gt>0Ko27*QmDgN F`rfIrW)Q>Ul];%tR7ZXl9)\Q^uQ[/O,nVX2E"rR)g(wU`EIJ7@-
+8|2IERX[n%g?F^8l2Ic5A%Xuov=YJsBE;gqz\nci>YihN%:L]o-EiPCgf_hbou!.sHHd=w
+1_Fo8l-Hsdo{?*t(`C+TXi7|,GUWC?&cmBT<pTJ1@-8|J/T?/7iPHlnmt_;=]7IR5p4qU<
+h.cj>YihN%ZliV"=pZqJ[oC?ZllyN?3kpZt-f{ML=v,KUWC?Xk7|,GD3DA+jt>7-QmZ=Ve
+)_fsqZgEs*V[D8s&KaIc4BZ'o~b-:/j%nn3P1o)_fsOd0l=nnu3|<{kE(X<O_YZ>qZh>s*
+V[Qe/Kd"2C>O\j];IR5p4qU<RX9|)cfs;>id^5qy@)\w$[p$?*CWc#bu:Rs0Be"G"/8#`!
+5:euRA2pGsVwIh/^l3#vr"XOFcCg 7Q=snuh>66/a4;UEU%>r.Wb$c?RXpn%l^_(N*/^V]
+#yOj=Q#"Dtbc&JbKD+lKe'J1g42P]MF5X))J%4C^lKe'P/Z[6r%j9xq3U^:"]74E%k8#`;
+7O"5JXrG@w,r?lh:Hlo:t_;=8r4xf_;AOzH>\w$[j~l_AJf_R6\zF5m^iXrbJ?O Jp")qh
+R3gON4XPVenT7qSQZ"DglK9{2u<{kE(X1d8gQ\ZV[0O,nV%im,T</7iPE k%;!etXIm>QY
+I3`:7O5HA_9H4xXk&3:k76fsqZgEs*V[D8lKe'sr&37 3@k%g42PI9O~OV^gQ',so1_gmt
+90)HAGQnIqW)jgou!.sHHdSMD8Hk+WP&gAJXrG@w,r1f8gQ\ZV[0O,nVHlItW)Vc)_J7g4
+2PI9O~OV7|1dSzEY,5UWNLWQt_'iube9PtIqW)Vc)_ER>O\jqZgEs*V[D8s&KaIc4BZ'Q@
+]4];%t?D\w$[j~l_AJf_?Cc^&IGXj~r%Wb$c[n8v4xf_;AOz]s-EiPHlnmt_;=]7IR5p4q
+U<h.cj>YihN%ZliV"=pZqJ[oC?ZllyN?3k:dt/f{MLSLfz,h:']o`60&WYm q>OxNDF`rf
+:/j%nn3P1o)_fsC?*<iZ`:7O:mih_sV#@-Vr!*U<bhn|*`.UC*=c#JdzkZ@3u:S@a^u}US
+Ozn&kMpl_(N*/iS32VXVFEF\BRGW@Tu.4t<{kEi9O4Ic3A\zOzn&+}_)jZI1PEhh@V0|<M
+\X0&fTgC2IERC&(#C:`zsDU%,cN ,{T>l05(T%D8lKe'srQ>Q',so1_gmt90)HAG]l4E%k
+8#C``Gt>0KQTS}WN8m4xf_-GdNs$]SCY)8_gc*buTxl0)\&SmBIQ:1j%nn3P1o)_;hW`Qn
++SnlXk^g0&fT:vZ5iV"=pZqJ[ofoqW7/)usHu1nXapo[2Oc5A%Xuov=YJsBE;gqz\nN4-E
+>E763@k%hBou!.sHHdSMQeIqW)Vc)_p]CY)8_gc*buW).7&#ZOO,1\rQ:/j%iIb`SxEkC_
+o[h<5B=+f4[Gr@O"a!WLetRA2pGsVw@?/]eES2#v,lOhnmTc)^(\)un+5w.^k4@3u:S@a^
+/wRydWM&7t?Y1NJS#&t}nPTc)^(\jVh]Nr'&Ew<|e'o/=;?AJJ4t[Zf$(7^~iMcy=rl&mx
+p'EpAhUGp*eL$n$>P&G%*{RJpd[4ugdj@nfZIfM&=J9xk=6>`Bt<Be"G"/H32/JD3RtTC&
+=c]tn@prpsn'Yy]j&1O9bCVr(#N$KTdd5OA oOC5-(A8MVU$]\a0Pm>Gr3h?cmGt<y=]Kl
+6\:+?v)@Yb2V<ueUt3VwO"@)Ok]19/\J[&`b%O#[1SNQ^k^|8S,WczL!uc%>Tw9dlKWD]2
+=C3Tn-O6/]J0hY@kseY>mm6 u|MieVW|Q 57jHkDG"C_hh/M+U y?#h>T]GtPH2YM0$tl3
+,A8#17^X9%HBZ<9a[<I!'V?rXK,Y[h]h6R[bX0.$s\BeL+M:.G"F"/7I)PA_NP@)D@AknD
+oH. k45ZmE6 u|qgWy&6^Pmd6 u|MieVW|Q pn3P1oDDn<+DWx[{1i%0A>GWh3NHe8^Lf0
+5N_87/]/l:Uw0H0c#PVr["a,'^'sM@Hg8FNV^kj->]u@'|DNV8<ueUt3VwO"@)< S2./[i
+ZU;cjrQ/2}NfVG!Y@:D/'5r&JYnFA=("q:ehFc`Vn%1CiX`eZ35lr`?v[clu0WUyVaDPYP
+3~?Wul>X^CZs#Z.Nf.-YndoI+yR?-)f=.wY/9&(jc=9djY>FYd2Vrm J!mYz5uVIX0[&GY
+!W^}^|8S,Wcztj\Mcr&IGXi;k_e'bRh\n:/rPvT6H&g/!gC:&lGBCFZGH!FE0&d^Rwm`Fb
+M&YVnde4tj\MfUSA^+Fb0i>-j`QF?j*)qO_frnl'Twnm[ %$\{5FmJk@*K8w?.(!^(Fbij
+o$/[pKeL7U@{l"im^;0"`t@:p#lj@,)})/^LFb??gE,mZa$ ?$^Lp GQ@-Ks;F$diQLrf*
+SA3 P s~#Emy)pFRX2L\Uh0>c|tj\M[jhfT.9T6v]hdcU`.$V:YnK%;WSO/vssv1[ UDJA
+TrhZiP50:ToHj}50U2hZZAJA zn|RH5,<)6>=Lv+W/0h?nqQv-?j4Stc3O[ \kJAU)hZ_f
+JA!;n|RH5,<)KsYoK%;WSO/vssv1[ UDJATrhZiP50KE^qm::o'"q#YU*h&umT#|u]K)oH
+n!Ub`gjSci`-Ld0^cc>JMTag@`D@V`J#oH_r*:_efp\S1:-YZ dt:./P$>h`^*5YI,W[:-
+`kA%EBZ>X3Sw[ gVL(dwA1XkM-KvMv2XIu]Nol:.#$9 nbl;fuUk,7%|+o@jjeI1?ifEU+
+[l^qQ>\w(k?}*)iG0;a/ NZ\%i#w272?JE7:qBjWWDi~f8JzIp<j05&B6BA5n&rnl'r%pj
+P@m{k@*Keb`K4w'nE.tRq.)2gFJaIpHDnQ(9@~GN,G%|I}s&O1[F9dbC';aF,M_<W&0XZX
+L' }TXs~#E9d:)^b9HHB?%UwJ?O $J2Z]h\{u^JQQ(E;2m&pGJm1WR'mA}&l7205&B6BA5
+n&rnl'2EpWmtce?l*)qOJ1HE80JqhbM\u$+yI&E=HlQ0X>0=)FfFU+ Q]$dR,iVV=\%#/$
+'99>QyX1'gM:T6"^6m\~v(^Cdu!gC:&l1loj_!dRa[.\[$&HE.Z>r.j-ij_"$<mKl;Q@D_
+'~7,s_tPpjP@nm`K4wt.`342gCu[[/%$sr9"@{l"dVX=rn/0J9?=n;&I!~9S'"k]I8EV`j
+fU/,UokuCrUob`:RoH>AtR_'f@,s#}S'.$a%rQk-K?Vu>95IaVgf5IO,U&hZ\crnpY6`SR
+/w?oX2!QgFIt sO-Bpuf#W<;uh0$Gm?ifEhZZA$OA^_aI)T=&(:vq@#P0(U/t9.A:vtA`3
+i!._6URs/ZXDEW)60_Uyt?(E6BS+Hr(/5Pd%.%`f8F?j\{+4/0TJW&0X8"`*r;=LM+ ")?
+ZGsn-+$EHGMeawam._6UO0<Y8v+y:-/P$>272?!|$l._[$&HE.Z>r.j-ij_"$<mKl;Q@D_
+'~7,s_tPpjP@nm`K4wt.`342gCu[[/%$sr9"@{l"dVX=rn/0J9?=n;&I!~9S'"k]I8EV`j
+fU/,UokuCrUob`:RoH>AtR_'f@,s#}S'.$a%rQk-K?Vu>95IaVgf5IO,U&hZ\crnpY6`SR
+/w?oX2!QgFIt sO-Bpuf#W<;uh0$Gmd@;2mE#uY4>zb}$/n/J\")%XWujtbcpn6#2k"'$|
+dMU`.$V:GnEX-antd,NEpn`* pGgf)IvQ`M=436r@{l"N6dJ*UKU#xmA:o'"f8Vy/Cbh?-
+(!@JXD:l);D]EoBS[c\E/h[S96Ys7/);.Wu4H(s+/gL2t#sfm io7T%j4w`742lhtCpjP@
+uc[/%$\{5FoLaxJQfxSA^+Fb.'J9dLU`=Dt77/KZg%LrsW?rTPprG2NuXVs]T'XV0_<2tR
+Rb5,Ztr8N? ~Wt#Ppy_f2jkPnE'U:wq&1x:wA@c/I~Lm/Z[Rd7]4_L%]/_HE0<klYD*&o[
+Fe#2n>*INHnrf5LUA$[cLUv4C?((\L]sr3W..5s{bHhhP1G.#%SnIE^|n:QLW&0X8"`*r;
+=LM+ ")?d%.%`f8F?j\{+4(iOjETf8JzIp3{2>\xf#ir)~qh&kWOmLM9#AfTV"V`qj-GJy
+N0h(f+hZDk8BbrCKuDEb0a:c'"Pb5LM^+Y3t5T((ADR9Q@c^<(N~6\:+e82@=>?qe}WDI~
+LJ@{A\SJ`!:v:vTFs@R4$,?>tSq.5FoLax3ZgFJaIpb|rQk@*K8w3|2>FbmF_SVT[ UDW"
+Y8uWX,nmoZRJVEdT'lmC5P1T)`u7u<*1Otr+Eg^D }Wq;37+JlJltv"f;W2LrJK8u} =`6
+7~_-8&ADq}rYT{St$oufuh@{l"RJVEkKf>,s#}S'.$a%rQk-K?Vu>95IaVgf5IO,U&`*Dy
+b^K;n\AX#3@!m7@]v"I[K4u}fD,5Jt:J)M6X:+r6n-3{ ]`lib"=kE*;V+TP!#MY*1NHoS
+FRI&1.QEW&0X8"`*r;=LM+ ")?d%.%`f8F?j\{+4%&e@4G2Z_}6?uXq.opi9g75KDkG~s-
+P.s~#EfrFe6\!`C:;!fKHtQn5L7(o/C%oH2E,1@|<PJu>}9egALrlp:wVR8Ke]%Dbbi!.G
+,KQ(X1'gM:T6T:u23VRM=QN?2V=/t2p1p ?P".qpq8cj]JO*+UIoJ8HEc;rQk@*Ku2@)*)
+CaJmhbM\u$W[0MF!mF]?tpL3RxVYXWcBbEHy ~,z?V^^(<Q{l4l;Kz!`45iSS9$bn>*)h(
+n%E-pGAIDPXVXV)4t@5[\0Ksr6%$$WOoJ+Vb5lCR6Itv/x:8sT^c7J<;ty:#gFi Gx0dU[
+X?EW)60_Uyt?(E6BS+Hr(/`[?{*l`ZG.N0*d&ZMN;3&Ru63R:TXGK02sIT5p43W1Qs<+K7
+q.6nPwU%Zc["M8q[&s7\8U2kuf[<4OD=jWsK#)s`ax\cBE:=up\xifir4/IV9d@:BPU]'g
+"/,V/)J9sEsz*1Otr+EgX2L\uQ4=&Zhqv/`a(@Y4Qm7sT:?!(\DN93[EN!Z[?7,lo1+ym:
+*]%!*Eb]p|JoJlj<_+C:c^&IGX`Ta2SHEkn:&I!~9S'"k]I8EV`jfU/,UokuCrUob`VdY8
+uWX,nmoZDp/r!G9M*)9\s[.@"QtWMDXY`|ZC^Z!Xr:%$/$'99>r:$!6I]FOGbCsyp1YIkj
+hvi'BG0 &eQpB^_z.VRqD_h_A05]7.7rSQZ"Dg<?cYQ{+0f@_H-i3A/u["hsp"lj@,j^Rw
+Ozq)VG4CoF^Brnl'Jmd^`K4wt.?rtRq.)2gF?j*)qOrE?W^L[k<YJXU H}rM]\'x cWqP/
+,mIm2sp; Eu7+F^o_+32(#H50VA]*R/^Ih<CcYQ{+0BLK~1\NQq^j-cd)bKFe88YuS)60_
+Uyt?(E6B( Y\$@Y1I~ 3iL_"$<mKl;Q@D_'~]JPKJ=*3N!QfX1'g"/t~F~Tk56 a'v<2^W
+fE'rVcH$XuJ+b^'{JO^Z9Lc^&IGXXVAxuPiAi m6j&RQr%XfP|-b6ApdS>8zbX$027%>M[
+R9r%Q',so1R:TkO'(H#TP+i65Cs!iN\=Rs/Z&-k|oB`K4wXVuDsamutCpj:jsn`342lh-t
+H5mF<.tRbrhs_0Fb3tm;-XFbM&=J/.pKeL7U@{l"$,fE8&1ZR;c/)zqh&k:Rmr^ZH!uDM1
+G'\elyN?3kkEkc9c2uNM AQNhh@V0|1b+i7_aU4*l?5wV\]?qtu<$-n/!S]UAAN@Nb!LN'
+hrBp'x0q')* >aj`TcO,awamRwOzA%n&hbM\u$@)*)fdUnrpl'2EXVuDsa:riSFcmF_SVT
+'xlb^La]?-(!^(FbABh#dKtj\MfUSA3 ac\c.)J9'/c/)zqh&k:Rmr[7%$fEDJtK:&mrKF
+eO.Gc"3=jU.FJuZGbF.cM6qO&H[d`)n/6X&7FoGl-QOh;'O EBQ6FH-pgb'lA}&l72s.Jo
+utTI2VHJ\DGk([PY2>#>?)QHDB.~o:aElIfpA_7R.%8Z=~h>^K:J[gDm&0cA`9T4lmfl:4
+);UblJl=fl/IpKeL7U@{l"dV7|0R&bJ9HEc;rQk@*KWTqEqcn(NZd/*U,"_Uo-S#/Z&-k|
+bE[0%$sr`342W3R%_YQ?9QoHJmbLm2PE-AMXd\,=;ytRUmF0Hq,)3xm;-XFbM&=J<[jH k
+t8(?fdY>eCN`UV<dtIpjeuoHax^eh[M\hw(9fdV?2l.9Io;/YNuDsa_[42W3I$HEMeOLTP
+tH9?YFgqr*_[0OX8EWD3]HPKJ=GxD\%}4wR#N+[ 3j&"4wf0)ui+._6UDETQQ'g6p"lj@,
+)})/b0P@P~U;)ui+=nIGav0SW3K~\"=@M+hjUSQ'g6p"lj@,)})/b0P@P~){m>=R4;ac3Z
+C($zo`RJVEbbn|ciI6CB8)):o8DZ*at[oqi9dTRwN1q)l=hbM\u$@)*)fd9"?l8_Wsrn5F
+lAqc82Qk6kmI&.-|J9:v^3_SQ/){m>=R_FFbQ*$,bA@+*)qOJ1HE80-t_L_S3Ql?qcMg^;
+0"EymF]?J5Hr/}%F@=s_'otI9?M2Ve<foLaxmtk@*Keb`K4w8$s_X@n~/*(=;Y<d`542G#
+tRq.pArnl'GjqW;hTQ1vYNlVG JhKCd7_v/DpKeL7U@{l"$,-l\DM{8$Hth%P1q)W@c/I~
+!brhiV`(dMtj\MfUSA3 ac3ZC(3wdF[&HVM1G61bB %bP)s~#EIUiX`(dMtj\MfUSA3 ac
+3ZC($zo`.v_nl&(9fd;`lb`* p3vG\m _eI88)):o8DZ*at[oqi9dTRwN1q)_Hrpl'Jmhb
+M\G6fx9QoHQd6kG#;T;wtR)ym>=R_FFbQ*$,-lJ8HEc;rQk@*KWTmaQf?c?isr.A-{J94X
+3lCgTk&/-|J9:v^3_SQ/){qh&k^La]Yo=,G #2n>A@80Xo2l.9Io<^o$`K4w["%$nM?m*)
+@~A(80Lsk5Y%q)6GYNrpl'r%pjP@m{k@*K1GEWo!/*Y.<fehr%b TT`*T==tC?$zevh1;<
+>aj`TcO,awam(9NLQ%N+[ 3j&"4wf0God@;2>^X7i65Cs!iN\=7xs_fj)u1s,"_Uo-8(s_
+5}GZIqP(s~#Eo;.IX7ly1l[jf^)uUWZ-VY]C_+32(#MZMF0SW3WBo`.v_nl&(9fd5~i,._
+6UDE:ic^CZH!FE0&$~$WA(808OGZgOP(qiYs*-k|Tw1SMXMe^;0"`tKCOi`UQGhJ,At7O'
+W@-%"AO#78W@H:;K);V/'ije,6lq;aY//Zc{-YNDp&u`uS2]E.ptBRoX17*|D]&\^2,Zhe
+=}h>LUb]D)Ron9'Kgb,RJkok[F5n+yjW^BpY/2-k+yjWp"lj@,)})/^LFb%i4w?)tSq.)2
+gFJaIp-I1vU$q5qcc=<[9JoHnQ,ES$hZu\Nbd/*Ui2=nIGav/Z)`b+:jrnk@UVqGJ1HEc;
+;jHbHqG$GY_G-i-{J9P(s~#E?6@nh#R9s: 2uf`)YB\K&:k|Xk<fM2&umLSJ<f;Pt.tG9,
+M1VeL6'14wt~@2YEX^-gI&3R(7\L]4inc@`93{2>so9?`)YBn($,-llTh1PqN+*KC($z->
+[m[^rnMWA(-E7ilb`* p3v_TQ_X4PGH^^2\mdRtj\MfUSA^+FbQ*$,bA@+*)CaJmhbM\u$
+W[S$hZ-4MXd\l=qcMgN+[ 3jmIdV7(s_F.oLaxDk:vtSq.Ufg[Gcb4d/*U<;/T[ WFQX?c
+?isr.A-{J9B&Za$ ?$^Lp U_U?9T6v-L-,`5;tb+:jYM'14wt~@2YEgqnV:v:w%j4wYJY:
+$.-ldb0_(}CwrFuQ4P`lk$Rls@BeVu0MF!M1+ZAnA(oH$yIxWjk/<`G$M1&uqEo3cSb0P@
+1SMX&^i"._6UO0gd:4TF53b_bEWD>sj`TcO,awamRwOzA%-EtRpj:jsn`342lh-t_L_S3Q
+3l4x)`/T[ hw=nIGav/Z)`b+P@hJJaIpb|rQk@*K8we.-8_H_SqO<c;wtRI1GYgO3A,?;y
+tRUmF0Hq,)3xm;-XFbM&=JZ9tf9?%j4wYJ<fs_q9JUY*<fWZ5H5J7,s_Y=X^0ZW30(baCw
+YIfwd7]4/u3)Z4l/Qd6kbvDZ*at[oqi9+{IoCE3wdF[&HVM1&uQ%^;0"`t.<hG\6Jgok\g
+BEOrq)W@3lCg8$Hth%P1q)K|o5sc)yqh&ki!ZC,GnegDH{^|\mdRtj\MfUSA^+FbQ*$,bA
+@+*)CaJmhbM\u$W[S$hZ7~9JoHQd6kG#3tdF[&HVmFAS*RnA; k|H[%~4w?)C;Wsrn5FlA
+qcn(q=qcc=<[9JoHQd6kG{3tm;-XFbM&=JZ9]oDZ*at[oqi9+{IoCE$z%6&!?jGV,$IoV*
+3lCgc/I~!b<2B9uPiAC:dk?%^L8TM1l;[0%$\{5FoLaxJQfx)uUW:EWsrn;T;wtR)ym>=R
+_FFb0iPDr;XZq)_HN**K/T1]MXow&X-|J9:v^3_S3Q_J_SqO<c;wtR)yqh&k^La]Yo=,>w
+]HPKJ=GxD\%}4w1bMXMeN+[ 3j&"4wf0)u1slb`* pY4\7Jgok\gBE/R?6,:acq8hbM\iX
+Umrpl'58CL$zev-2;ytR-i-{J9P(qiYs?b^LN*UV#{_L_SqO<c;wtR/+;ytRUmF0HqG$GY
+gO@nZa$ ?$^Lp U_qfRhs@BeVu0MF!M1+Zh5q23tdF[&HVM1+Zh5;<3vm;-XU%/IpKeL7U
+@{l"dV7|0R&bJ9HEXPu"@)*)qOR%?e?i)h/T[ :I$zevoT.v_nl&RwOzq)_HBR%b?Tl:m2
+PEY8RthZBiS$hZu\Nbd/*Ulb`*aQRwhsr`.GD3H!FE0&$~$WA(-EBT%b[Z[^rnMWA(-EBT
+%b[p=@M+(*^nrc=4;.KL4 M>qO&H[d`)n/6X&7FoGl-QOh;'O EBQ6FH-pgb'lA}&l72s.
+JoutTI2VK1n7_!D)74?W$@!X#k)YBd-*3mie^5FnAC.^Pv7s^x$-(Gc=_2+ULM[,@+*)qO
+J1HE80-tmJFb^L8hrap9 Eu7IDFdbe<SBa+4Iu<e`542G#tRq.pArnl'"%<X$b,"Xvq)VG
+4C29(0Vut tJd:mD&DfFQp2LrJK8bJP@J+3OkQ l+cm"85)clurnk4CFZX4}2PN`*Kt7F~
+JqI"!>$T,"CAA\$+.6Ion:ehu2S2h[ 'bbs!Tk5,el ii!]w`*s8 2ufgZa7EY6vM2$3li
+0iBb`bXzpTfm8Tmq:oEDrqk4nQ\JUl>zSj%I`&bJP@J+3O.8["(7&!4wr8m~nV`M@~DP)F
+O3;J/u3)0ZA]*RO~d6oHbeb0P@J+3OI3[6(7QT[Iq4iq3v5a0ZA]*Rp?v2Tk5,eE]|tS  
+i!unr$n(3O`iv/@6Ts7~?m_^ ?DPYv>z/}%Fv3=bSGEV#};Zf#W`a.d,)IP(g?ufVN9`;J
+k|6YHgXFrnJ+'HBGTPa_(7T7n#2WIuRc5,0$VnOGg6s^AB]vh@d;a8b0P#$.(Gc=ATremI
+O5;JJ DOnnh.>]6C!Fp"(lc=9dbFsyU{$/8}R6LCQBc^''i =:-q2V\.?Ha/BK[c\e@-sQ
+@=8oAOS3/_>th>LUb]E~K4 6+Dh6VcavJ?O -3"(A8ceWDTIq)VG4CYp&*(0^}rpl'2EXV
+uDsa:rI3^W?;@n?qQn9T6v-Lk0gk>5"l@#<f[0%$\{I"3RIfKCd7a8b0'*4wr8m~":lMQ|
+k0k5s}j@ kt8;j"=`3%F(=0nPDc*TT )WB_Q8W+~Te5,Ife)2)c<7r0ZA]*Rp?0,[" /a7
+b0Dgo^ PbKP@J+^Zv)FetR  i!unr$n(eqR`00rhR?dS,iVV-LDyn^ ;N_*Kt7F~`l!Z7G
+cmPK3GcUoH`3JegD8/jdp\szE;#)O3;Jk|6YHgR eO*UGmM1$3li;Tj$J9(@tO"h@#dx.y
+<Js_f>U<WZr$Mg)zk|6YHgR s1*Ubh)m8$fbc9(6<Ls_f>U<t/0/["K:v)`M ^00\RmLrn
+I"&4r"p/5,elTe5,5D((tOs}j@ kt8$#-clRrMJLtH</>gQ! RW>TPTJGhU9r@$k@}O)$.
+(Gc=4'[ n=[F0Xk.'{b i!@`O+_UVTa0bDIu?r%=dGbY`6`*R#g61?P(g?N_*Kt7F~L8qA
+d)EW$UjRtLD/]J9&uWiAJaZ6,5&j#BRz3u_@Asc`c(#}6(/T_5=y6%X^5eU+#{<wjWj(" 
+6m`Z&)?WEe.Xm$5;bS$qL+l9Vo["BMCY%IoEg-_e6@:+2V=/M[Ei0GD9S.JIH!AxuPiAG~
+ezTPf8(yc=9d;JVU/f71VUO6sTDfUpDWR-r6j-#$rgAcN^oZu-t}iRO]uFQcH5p"lj@,-K
+-K:r^^h|kT,A8#\*JgokZ%]<9K+y:-/P$>JMf(bG#q7/)u92[E'Rb?T6ZpkoWDj?#$/knz
+p"lj@,c5A%A~.$7OK^+Ej+)N-I??oYptQ;,!uARGFQSV#PfT(4&d/_Gl`kA%c`^*5YK6+[
+Gh+UOhRF+Fj+9^[XNQ&~?A0v'"Vr5nR3+:bai}c5A%A~.$7OK^+Ej+05ukd>TQ]"L*;'KL
+4 XIqgQ>(C#5;t,3_/!1!?o5OnRFFu h#z3fl>RL6ZHgN?h|k/G'VGN6h<P[./[iVy8FH(
+YzRQQ`b~9iRZ+Ej+)N2">.EdZ>I~6i^ S>3MKOM(Jo\;/lH!FE[1o,t',RW+r8'x?rJ^[#
+1\J[%-!$7Us.-42M#("_6mCe!~V/'i0k&eQp?UADmLimA~uPiAu,t}pyK>-{&\.fh1Te_+
+32(#Jum:)d`ra^eY<@*r:UVJ_N7/DNEW^^;37+o9cH''i ;L,3_/h(dC8o+y:-/P$>JMf(
+bG#q7/)u$=!X#k;+a%9'37(;;fd{oQ?O=nA3ZZ;(qjZ0>&l.0x')* OhRFap-[;}G/c\<(
+N~!'<AM+($E8*5N!QfX1'g"/MWEi`w.FH's}6\Hgn_ns!Q'u.FY`i$n]ZIWLtp=pgcL(dw
+A1nAqP Hgc^K!Xr:YhTdY1`s9I#3bsO"C5u3-pa~KC9LoH&YnWbe:Rmr#Y;Tnz04&B6BNb
+O"C5u3V+%9!$/][ O~Qs@~$0>6c^&IGXp$?*."[scM4=#Y;T0`ukT.s@BedCQF3uAZ[]0~
+'"Vr5n*[p?]?grE:PH]dr.=TK)\J?|NM A&C)6AZ[]<Jd]_HPXXip Rjs@BeVu0MF!mF+}
+(9^\rpl'JmhbM\G6XVuDsaOcnm`K4wQoGy?63A[ C2M)^;/Z[R=@M+/Q?6i!r`\5Jgok\g
+BEOrq)opR QYcm)WFA@%KS<YmKioro(;f(fKQ',so1R:TkO'(H#TP+i65Cs!iN\=Rs/Z&-
+k|oB`K4wXVuDsamutCpj:jsn`342lh-tH}JC+x9hh,]NF5X)X8H3mF&X%t+o@j*%H/mFbd
+?-(!^(FbABh#18D[*at[oqi9+{Ioiq*2N!W,@-Vra*hQu2!VTbADZa$ [@d7jA_+Ja6X^^
+iMqW7/)uEbEqW|TUbAK;8fDD0;SY(p%t+o@jU0F/*{;>ijt%uhM1G' i>j0`70bLKp7#DI
+\SO'(H#TP+/@pKeL7U@{l"dV7|0RG#oLaxu\[/%$nM:vtSq.)2gFJaIp-I/4J9lTO4^;0"
+EymFbdYoRas@BeVu0MF!M1C2oHY<AAZa$ [@d7jA_+Ja6X^^iMqW7/)uEbEqW|TUbAK;8f
+DD0;SY(p%t+o@jU0F/*{;>ijt%uhM1G' i>j0`70bLKp7#DI\SO'(H#TP+/@pKeL7U@{l"
+dV7|0RG#oLaxu\[/%$nM:vtSq.)2gFJaIp-IDiHk+WP&J@O !g?Fd[RwH[*{;>ij30d['l
+Gmd@;2mE#uil5*]HPKJ=GxD\%}4wDxP4b+f`0&fTk_oC&teL[l=@M+hjm6oJax\cij5*!,
+`TBXuPiA!X@%fWEt,3^R3uQs7sX^bZ2`\.ZCup4Ii@[)bAK;N<ioc@`93{2>FbmF+SIoJ8
+HEc;rQk@*KWTDxP4b+f`0&fTk_?ccG<DH NU!LN'hrO=N+[ 3jmIdVoHax3Z2Lc5A%C@(#
+C:Eo/qAc.2_+bEKp7#DIbi?-(!^(FbABh#Y`>z/}%FkHr,);`&tH9?@a9UYNrpl'r%pjP@
+m{k@*KkQimc@`93{2>=y?nao( )6AZ[]\jO,1\2w8)bcb0hZ)t_]426r7rSQZ"DglK9{:;
+;W[k=@M+(*jUr2h?_+32S.m-0[%?M[<@%#8~+y<?A=)@i2h<v#U?D_h_A05]7.p#lj@,)}
+)/^LFb%i4w`742gCu[[/%$sr9"7rSQZ"DglK9{:;7SO?LtH5^2PXXip i!=nIGav/Z)`t7
+7/KZ$.?>?m*)CaJmhbM\u$C;c^&IGXp$?*."NF"y%w[PP-'i0q')* 3vm;-XFbM&p!U_Y.
+KFhftN&s7\>wd%A8bF oWq:RZz>"FM[tL*;'O /l=IG\E`(#%!u~8FH(`aZC%!kT@nhR0&
+tsp"lj@,)})/^LFb%i4w`742lhtCpjP@uc[/%$\{5FoLaxJQfxd\l=Gid@;2mE#uZuiG`;
+]HPKJ=GxD\%}4wWKtp=pC?;W[k=@M+hj2l[jf^W/>^j`TcO,awam(9VTc/I~!bukp:!Q'u
+GM8FH(dE`?_+32S.m-0[%?M[gK#}6(/TAW[8%!kT@nR|s@BedCQF3uAZ[]0~'"Vr5nPmp0
+=_.m6m^ S>@z&m-~^bAm.$7OK^+Ej+[@hf/Ye>A0TE`#T4\TemR}D]"|oSe?:.RAA1cVWD
+j?#$/knzPlp0RTJIH!AxuPiAG~ezTPf8(yc=9d;JVU/f71VUO6sTDfUpDWR-r6j-#$rgAc
+N^oZu-t}iRO]uFQcH5p"lj@,-K-K:r^^h|kT,A8#\*JgokZ%AOWv]<9/+yp 7+,+LBgX:.
+a%RWEy;T^dXjMU[R<gV{N9G1u-^[)SU~hj9'1u&SEn,])NV{N9G1bj@:\GJgok5@sas>LA
++Fu6'nNH27:/6?5O2k^[Hd/^l3#vr"szCI)`iX7|G{`aFTTuA9i\,@u9I|I<)`_nOzk#`e
+UnTP^xHd?Lb0/e((+{"Qi,<j]h.m]LPKJ=9*M1l;[0%$\{5FoLaxJQ;mfKrVA;8$0RW3rj
+k@UVqGJ1HEc;;j,VWQ*HbhJ -LIoX:V0-7Ioh|5*]HPKJ=#T4 fKN-@]DhjE8f0X&l1$72
+?!8d<=s_\ 0S&bR;QYD>0a,"IoV*V`nw@}o[qe_+32(#7,s_?ctSq.)2gFJaIp-I<a9{[%
+bi,:acNU@+*)CaJmhbM\u$W[V`nwAJDPsLA0-EYGY:A/80?P\Y_+32(#`u<2u7hy7X]Wp)
+L^AC0X\A,5bZ&xbJ:j3wacPwN8X~*AADA(80Y:SwUIbh:Rejtj\M;Jb+eu[0%$\{5FoLax
+JQ;mfKrVA[8$s_6R7,gZa|i!r`\5Jgok<GiiN786"NCFmh9ONPVGR*-&k]9;V acoV$,;:
+fKrVA[o[$,;:fKrV0NGmHrj`TcO,+UIoJ8HEXPu"@)*)qOR%N8X~'^3vac'n,VWQ1obhYo
+Ras@BeVuhj9'5I3u8P2M?V;-$0W|2>!R=t r(=@~A(MeN8X~'^ADA(MeN8X~OV[l$^Jr]J
+PKJ=c@Jk`=Es,3v*6R[bX0.$8A-LX7RypSmFIq Nuck/osl^_(N*/ihh/X&ZDOT>L^J~EW
+pZl^H=%~_:2rQp<+R}Z}dYhy!{!!FTGlcGYo^x@=2]u52'pKeLrps>LA+Fu6'nNH27:/6?
+5O2k^[Hd/^l3#vr"szCI)`iX7|G{`aFTTuA9i\,@u9I|I<)`_nOzk#`eUnTP^xHd?Lb0/e
+((+{"Qi,<j]h.m]LPKJ=9*M1ZiuDsaOcnm`K4wQo.@,}h]ACA(n&Y;Swj~beH ezs}j@ k
+t8$#-clRrMJLtH</>gQ!){eppkP@k5Y%q)YJJ4HEXPeR`K4w42uDsa$XEh3=TC]sgHo:Ia
+Rjs@BeVuac\crnJ+'HBGTPa_(7&!4wmA%:$!-clRrMJL(@k&m8`<D=sv4Zsfi55Cs!.3Io
+iq*2N!W,@-Vra*#|-clRrMJLuc>\((&!4wmA%:$!-clRrMJL(@tO3=E\ig`(ZCDMi65Cs!
+.3IodL*U(";Gbnnety[ko2tmq.DeHk+WP&J@O !g/vVnOGg6s^t-Id00bhCqejtj\M;Jb+
+eu[0%$\{5FoLaxJQ;mfKrVA[8$s_6R7,gZbui!r`m6Fa#2n>0/VnOGg6s^o :IDi7XGq4`
+`O4wJ4WjacY@r\k@UV3IuDsaphrnl'2E`lm6E!k%;!iXhY>aj`TcO,$.fEhZr9=bSGEV#}
+A 8$s_Rb5,0$VnOGg6s^ABo;.Is:?lc^8o72dQtj\M;Jeppk%5)6AZ[]\jO,1\2wa0bDIu
+?re}kD%0AAA(Me_UVTa0bDIu?r%=AD_:FxmlOdTPTNk#p"lj@,A5Me_UVTa0bDIu?r%=3v
+ac\clyN?3ks-/T'!_[Nn13:8kzmt:i`c(@Y44IpKeL7U%j4whYJaIpb|rQk@*K8wR;QYoI
+[lN1q)l=hbM\iXUmrpl'58Y"C5I;(7>auS(;NLCvYI(;;Y=IZ9EW_x5Yv*@WA2`&/x845J
+R9!w-pEh3=TC]sgHGzrnRjs@BeVuacPw_UVTa0bDIu?r%=3vac#JqkMg" &qqDI656O;p]
+F[k9]9IzUHIrDZ*at[')4w\mlyN?3ks-/T'!_[Nn13:8kzmt[*K2)zk|!dHu6sL+NSsl_e
+*ZbhH>mreC)42k2g_pinc@`9bJ:j/3J9@(7G(YX7q(beb0P@\^lyN?3ks-/T'!_[Nn13:8
+kzmtp_`a(@Y44IpKeL7U%j4whYJaIpb|rQk@*K8wR;QYD>[lN1q)l=hbM\iXUmrpl'58Y"
+C5I;(B>auS(;NLCvYI(;;Y=IZ9EW_x5Yv*@WA2`&/x845JR9!w-pEh3=TC]sgHGz]9Rjs@
+BeVuacPw_UVTa0bDIu?r%=3vac#JqkMg" &qqDI656O;J7m8`<D=svCIXki65Cs!.3IoCE
+c^&IGXp$?*."I!'HBGTPa_eT?~ +3vac#JqkMg" &qqDI656O;J7Ti2mDsk/h<]ADZ*at[
+')4w\mrnJ+'HBGTPa_(7&!4wf0Q',so1iq^5<$r".pdn2jM*Ts4s -ADGSf)>]p#lj@,Gf
+3r*"f8G&TuA9i\,@u9I|UHOzn%+}^\2rQpQ`dZXIFcCg 7-9f=.wY/9&fhd#Y0d[hYmHoW
+ }u1`)ZCOzh?7|o;K-2s'@&!imCxs0m<)>ueT.s@BetSS(&j6Yn_(#Lr;-L\57n/A3KRQH
+)umFh4P[./[iM(YVE;E$L++FkH#$/k2rj?#$/knzs-Jo\;Jgok5@sas>LA+FbC oWq:RZz
+>"FM_k(Hl@3uukd>Pmp0Wy$rkT@nkDD[9Pj`TcDAtK`,#,XuJ+b^'{*_oI9{*^a{KCfUuK
+c|:06?a@Pm>N6%X^bZdrbAWVhUi!3BH!i05Cs!JoJltvUyNY!^97GY-1pKeLb`@:^I&)?W
+g_+Dj+.stsp"lj@,Gf3r*";--I??oYptQ;,!h/P[./[iY\?4);,3_/Y)6i^ =hsQinQNs@
+Beih5*EX6@Cj*R0_7TMj^|&NMj0NkQ\gJw\*<)f8Et,3h<P[./[iqtq8CJ2-rx:Ej`]FPK
+J=UnUm55n/A3KRQH)uc|tj\M[j8S2]@6K%CFZGj<hT!l'7[?!CM:T6_mh2&?oKoI+yR?mi
+9d'o03f=.wY/9&uW9SNPVG,DQ(h>cmFSTuA9i\,@rneod=#TPNRE1TY|"}#gI`cp9_TUMT
+S7<~8J#|?6-5h~2F#("Qv-fl?9-5h~2F#(n;/r_e_mH&NWa+4mWqrDGd2p!NGiB_X290[c
+AjV[Zq@ +^B5:K[go8&0]k&1O9bCSWJKp|)k,Z\uW@!Q#O*%uq?9-5h~2F#(n;/r_e_mH&
+;d!is:Rzfph_kD%yhpTIT=.LbCPvN#^|IkN[R^3XbSZ@8cjb8f0X&lAtsYa2G2RJg+Pv&(
+-}M9 k(\e1k+p1ZI@56B(?^N:J[gDm&0hf&1O9bCV:M&A/:+<)Pb:x:8/iU<dZXiFc^L |
+u1`)enc(G"%~?>/]?6[;VId[d=U`Zehw<j]h]\a0Pm0.NhAc.2gOc9(6\,KsgKN-,ZfP#$
+kHG"C_hhmFf} f[nG2Us<Yg5Pv&(-},HVnn0Ea`6/xsG=8.*/xsG=8;W3YHj>yWH4L7!A3
+jt*dP!i% DoSc}g3,Wh| dgc/YOh\KK6$tnE&V)v N9c0;4 OALt8%0VH&t=[II 'V?rXK
+Z7EW@eAf2;UA+0NS^,^~f=HtBc;3#4a.hvN#-rkQoQ]/l:*lJf-Z8Zt%ALZ<9a[<.&?B<E
+6j);.WE\\r0=)F;;=.*~;>aBW3e"(7^~t8*it,2u!@((Jum:[D!it.Z5g6n9]zXm$ZJ0*m
+!+'U8MH0P{%Y`Zn%g?)I,+RL7?,3Vj-b7_L 0`uk?i?qpXZQ<d';cH<D;+XRuT[D!it.Z5
+g6n9]zcXtL.Ym$FL"C0[kQg3*rhTX%I6LaT6E-Z>`<;tE.L0m]/|NNqrjH4q9de4GzXO/|
+,g[V;=`$A+Gg$=ODkhKCQ(qg"//\6}:yX3E"rR)g%4iDDik%[AS0101T)`u7Dks&KagA4B
+o\R~CY)8:Rk0^B`q<2RtG\d_dj\Oa0!'JCEX#yf6=>'O=09k728B,lSf#64 F+?%Gaathh
+otkZfl`*2kCn-'6H02X]8JQ]%EoE\@[$;-&Ro l+$& t:UW@]|IR5p4qjqWz'1m,3{g42P
+I9P*OV<eChf_TTj)_sV#nSr7j(WA%93vnSr7j(WA%9ADDkk%f,rDI+E$;`OYU&rDI+E$;`
+OY0aO/YBV0v W7R9i| DoSc}g3,Wh|VZ=C+|gH#)@`:QT:.LbC%k<2t-+zN/+j/\&ZDOT>
+L^r8'x?r?v_.bFHksj#-27GlB;74jD_+F]3lrC2QERX[ovg?<TVk)_XEiV"=pZqJ0NYN-E
+(obb.Fc"Cqk0^BEVaw 2jK4pI`BQmj_(gB<BGmAQQ1hm=n(9R2pdd}rJ+v%q[IACeEOUaA
+jXiU=Q-VND7sd>i@ DoSc}g3,Wh|0ttin1m<,G^U2w,x1UIXi.NsA/:+=HEw?V;-$0,qVo
+eH:.Lp@DS=RsC#$*"'&:mj^[IdSIT2ov:h;6i"Op]~IICFk0TP1v,TDj-o DaTeYVmZq##
+/\6}:yX3E"rR)g%4iDDik%[AuH&>VhMU213Xv!ir_sV#USpSIJItW)[lS010Nm^|,.^R%a
+5RTA]sgHGzC_Bn\sIR`{s!9<NV)khfnBuADks&KagA4Bo\;HOzbh4XTiH/bJ6z3>Rq$ouf
+]PIR5p4qjqGj9O\w$[t``E^J%a5RTA]sgHGzC_Bn\sIR`{@6dbf2=|;]nB`P7=o6Cb\w$[
+j~l_@}N}FU[oS010r5RY&v3X[7fOtMiXou!.XMHei#Vq)_o\FZp.Q(b2Q 'mNH27:/6?t7
+O'[$[&?V&xqXq?&;DNoYdVNH^RH!m<GYnPE$k%;!iXXIY*7A3@:T\w$[j~l_@}<f:k1_O/
+$AB."Ncf08a-kYZPl{!nZ[J.Fop#dBo4fjCY)8_gc*a|P(++_ejL^IU!h0rhHIn_K`]XQ/
+'>^"rDe*]J.iZ18KX3E"rR)}(w3vLNrJG1m<GY(JY4J&/Z6}:yX3E"rR)g%4iDDik%[AS0
+10r5RY&v3X[7fOtMiXou!.sHHdhwlG)\o\FZp.Q(b2Q 'mNH27:/6?t7O'[$[&?V&xqXq?
+&;DNoYdVNH^RH!m<GYnPE$k%;!iXXIY*7A3@:T\w$[j~l_@}<f:k1_O/$A <X9o[lL08a-
+kYZPl{!nZ[J.Fop#dBo4fjCY)8_gc*a|P(++_ejL^IU!bj.<k2pTVv2VmFn>Cb\w$[UIlb
+AJ_&:.j%]=qpBMue&>VhMU213Xv!ir_sV#\z:]ILgRW)j[I13=s28Sl48O#vb?T6X2V:J+
+b^h\h]/jNWHksj#-27GlB;74jD_+F]3lrC2QERX[ovg?<TVk)_XEiV"=pZqJ0NYN-E(obb
+"0K9<,GmF6(,@VElhCqXL"==`2^RH!m<GYCE\w$[UIlbAJ8$%U?rpA?4:PAETi<oOmF[uk
+d>^C?0GYnd7R!s^&/j-VM3QSfRBc-'6H02TYLaPe\UW;fN'hMYHg8F=%'Y:JSWGtZ<p3MD
+PrSG21fLb, 4T_fX7,3X^B\mtf9?iV;_ hLr>Q2kV{Ps_v8M9c^S)SU~*ha/..p 7+s}7?
+W>P=0MB"!Rn7UTlb ](v8~(3YL4Vg!:!qcn(85GqK!I"&4;GG(2pk6'{tn.[@B.U/xsG=8
+AEuAI~+^&xqdukG/Cg'5&-u=?&K[@J.)<M4b?NgMiY)K*%V{Ps_v8Mdnv)K.9v;Y$ufO/2
+gD-qJ9JhB&t[Tk-4'H5jJqreI6_`]\ Bbh.FH's}B(, ]o'>NWr[V%RQ<+Q5;}hFN-7%*g
+m5uARG[:G3qU]s8ZHyN"bF_S5J)k[t ihpQfX190[c!JB*[8QFsn!"R~'OZqL\B[ 7+D?M
+#$hLOi5'DPAfv5C`tcDx;Wo\ZNJA2LnLruiwW/(B\L_~EL\{4A*DC^EP\{4A*D_:lY]N 8
+GGWZ(B#^un)6rAIJc>h;]TiW*0bws1XI\y4A*Dj%jqg:qG>fEQHgjy#pC;GU+<&Fb`n|8~
+A\.ZtXgBsA_s,)hfFjU)ZOj%j$ELq~j^hC_XH/et50Jl0}iPib_y_lW4jwI\ {Sy?J"nLd
+[jX15fZr9trM#-27j;>FbaG+ Q#vb?T6X2ko_nV:(@9ciKg$LrTX_`hs<jkBUF">?9A>`h
+, 'vN!9@<Lk=UFg6s^`!`HLd0^FfTuA9i\,@[7,C(<NQ6?s.X?lYm*F0KOp&(B0+jQazB&
+u|21mm*IK+`U=3E.oE u#[=_Kl6\:+?vo4#/GeGdQ(9/Q_TAL^c5A%A~.$7Ok~fl>X^CJ#
+%JUm8Eo?]g\8L:g)?Jt=^L:J[gDm&0e#F6$uJ]LY\ua*Sx,M41(9Nj!z+WP&?{+zZGj<*2
+eG+l:+K6!Q${/$'99>QyX1'gM:T6"^6m7IT[o71A7D?N(Yps'<. BR9]#sEuA@^`KCgvk8
+;CIu]h\n"bqhWy&6PZ+W&2h~hyKT"U5hh`oQ*l?;(!^(7v>XI\K4o7K!oH2E,1G[tI4C)S
+n!*otsmLez]pUDqd82j%iPHqgDj%_fqdXR]r>M::]ZhZDk8BpXr\Hg3'ek5`sQdcU`EL4S
+m4PE]s\kqdXR]tI8::]ZhZDk8BGwtI4C)Sn!*otsmLez]pUDqd82j%(o<,ZQrnT=&(?=uj
+P3c%I%cDutHwr/p,"UY1-(e>SJ/_*p9rmxBR+#Iu9&SgHw\Yf=Wz90HBCY$*M2Pe\ua*Sx
+sT$>!X6^WF\P#l7/jVWDi~7+m@PE?9Qa;4&R`u9I#3m^O5fUU+\y+47x1Z:w:vs-O"2VAc
+.2_+8Sd3*U]W0c<2:1TF6ljm`K4w#~/U/gaA,AG)bCe+_%W&0XZXOjG[&Aq+M\Zi!k?%9[
+<Ds__[42G#tRq.pArnl'jMoHaxmtce?l*)CaJmhbM\u$+y&#4wXDTB2VQsg6L*#tO%V?\t
+79VNJ.E\-a`&>s?OLL.a6UNo[$7 E\t=M; k]1F5X)n/o5UkcycB2ah:taNTVxWETPmaTV
+M9T6!i?%9[<Ds__[42gCmsn++ge>`K4wXVuDsamutCpjP@ED4Xhw,95Dm_$XJ0*m]W0cX8
+E;_x5Yv*jtR3\!B$Mvi;k_e'A1u(H(V^qg,kQ(X1'gM:T6T:A>E<>WE=nSA6ceWDI~LJ@{
+A\SJ`!:v:vTFs@R4$,?>tSq.5FoLax3ZgFJaIpb|rQk@*K8w3|2>FbmF_SVT[ UD$OA^_a
+I)T=&(:vq@#P0(U/t9.A:vtA`3i!Hq6s?jCB) c=I-r32D,1UmlJ'"@04(r=<cUmrLJ1[l
+qdMg_UnlD!*RnAf+iTPdJjO)<+JJpAfR<[Jkg1rQbgd2*UqkXRYnJ+Vb5lCR6Itv/x:8sT
+^c7J<;ty:#gF(?FA@%ksdVoTqeDq/r!G9M*)9\s[.@"QtW5|2k"'$|dMU`.$V:GlEX-ant
+d,NEpn`* pGgZ=)>k*V:uvsaGwD\F>@%KSU&4~E.\@a*SxbCe+_%cCF'nSA6ceWDI~LJ@{
+A\SJ`!:v:vTFs@R4$,?>tSq.5FoLax3ZgFJaIpb|rQk@*K8w3|2>FbmF_SVT[ UD$OA^_a
+I)T=&(:vq@#P0(U/t9.A:vtA`3i!Hq6s?jCB) c=I-r32D,1UmlJ'"@04(r=<cUmrLJ1[l
+qdMg_UnlD!*RnAf+iTPdJjO)<+JJpAfR<[Jkg1rQbg?-(!^(Fb3tI~itO' Ag$c2&F`"d8
+a<um/Ls{bHhhCDoH2E,1c7r &s7\8U2kufdA;2``!/OiETf8JzIp3{2>-iBSoH.1GW\]rn
+T=&(A[\pbgP(s~#Eo[qeFOSV#PfT-YCYi?(-?UI2SHFNCFUZkjhvi'BG0 &eQpB^_z,Tac
+hOJaIp:vtSq.eVrQk@UVqGJ1HEc;;j$~$W?63A[ C2oHn!6`SR/w?oX2!QgFIt sO-Bpuf
+#W<;uh0$Gm?ifEhZiPMB0n?p__:.#$XVsj!g($ebu7'0XVu;@)o[RJVEdT'l<2]vOe(?f(
+u:$2+19U_TO2@=/}%FkH3V7(%BNH6f-YNDue)h -Ehs)KaHF8,-RX7 8l'M^+Y3t?2?n$;
+>{EW-antd,NEpn`* pGg5x2k"'$|dMU`.$ko_ pa&3q+M\C2dkTZuKC\]8=@M+S5`Te!5%
+/P$>9->2tRpT+Z`q!{qkXR#Pf/-e[(uT0]nTT=&(sEq8:J@du| 'ADXD:l);D]EoBS[c\E
+e^kqfps^OhRFJY4$IU'sa4u,t}FOp#VtN UV@+*)qOJ1HE80JqhbM\iXUmrpl'58CLdk?%
+^LR.5,mAezD75IaVgf5IO,^;0"EymF]?tpL3RxVYXWcBbEHy ~/])6DSXVXV6)dWfGgF43
+2>^:0" 4(Dc=I-r32D,1UmlJ'"@04(r=<cUmrLJ1[ld7]4_L%]/_HE0<klYD*&o[Fe#2n>
+*INHnrf5LUA$[cLUv4C?4[$$>6j%t4fa'*I}A4oOc33VL]9v4b?N<BEW-antd,NEpn`* p
+Gg5x2k"'$|dMU`.$ko_ Qjn5`&8oai*)VT0MF!s-X?hUiWk)._6U9Z@:BPU]'g"/,V/)J9
+sEPw@H }HugDLr48Q}o9JyO:I2X2L\uQ4=&Zhqv/`a(@Y4Qm7sT:?!(\DND^r(n==I?q,q
+j<>Fn'^%]@Gn(Yd`bA,Ki@/}N8q)rkk@*KgFJaIpr&J1HEXPu"@)*)qOR%awamRwhspb$C
+?9M{Us*h&umT#|^VDx[wUnUoDrn^ ;d5#%f8432>2rr8N? ~Wt#Ppy_f2jkPnE'U:wq&1x
+:wA@iPbsJ"Tr`*Dyb^K;n\AX#3@!m7@]v"I[K4u}fD,5Jt:J)M6X:+r6n-3{U2 6kQo{!.
+pmP8;%:8 Qaw%(74Gi^D_](Vcm;R(<,!k0t8`gr Z~G\k.,Gl %$fESA3 tag:D:Dkp_p$
+0]JsSlJ+?!(\R:\Drnjsm,Hg3'ek`kT=&(sEq8:J@du| 'ADXD:l);D]EoBS[c.Wa*+Y^$
+FhS4Z"OjRFJY4$IU'sa4u,t}FOp#Vt+x9hh,uf"(A8`zVG9h'{/w<)Ksnm`% I7V\SJrLv
+Y8Js("NIXVs]T'XV[j]0_L%]/_HE0<klYD*&o[)(U{!3]$n &DfF43\0=%/#fG0'#Oi.13
+&lm(^%Y<LJ@{A\SJ`!:v:vTFs@Z<>z\J?|NM A&CkH5[-59hh,=B(\)umF];4E%k8#"=/$
+'99>1Y&Z3B?)dreP'rlbl|K-<YJXU H}rM]\'x cWqP/,mIm2sp; Eu7VQ/f71SDtv!Q'u
+pD)8V64G%kR}fQ[Glz$pqZH?B*Z+>&VX2>^#19h|59*" 2Eh3Ih\Sx%mK~Pop0qSEbHc+<
+??pj@XaC(?m8`lZCTP((*Db]p|JoJlj<_+C:Dz&0*4N!QfX1'g"/KEb+c}0\ojc(#$/ka]
+.<s:I,VsQzZuu8@G[]0~doIOPlp0K-GZB*Z+>&VX@/&~\&BG-YcyEtAhR>gzZ'rdh?cmGt
+<y=] a6!BR[chQB-/,`!_m2`=/E.&dj5iUk_e'A1'Z?rq4Q;)>/E0hh|0tojiMA1E8Z><q
+);6oAfZ@7?6?HzbS@!2m&p-0"(A8ceWD[0%$srp1Aqo9QPu0,lBRX2'g"/D@@-Vr!*TW8z
+!xS;70M18S2]b+eu[0%$sr`342W35HoLaxDk:vtSq.Uf1eFdmFG#%~[{ N ilAdVoTG#0i
+^Ma]r`m6_x5Yv*]!0=)FfF'F((+{tm1bCJA?W(TshwM1C2;WSOJ6`bXzpTfm8T`$8WW&mj
+).uoaxr9r% wWW(J&!4wqEK3#p,rnAl;fuecW1.mTT7VoOG#0|r(H_TrK/<mu5]2FPTGjE
+miqW#S9r;FQBAqA?ars*&sbgO8Z[7/\NrJVp["6!!s^&0&fT[Wa.VGX0X1G8%V`!fLb,%Y
+FuTGjE7s.He>i6C#:r^^h|VcN#+4d2<TU}rDOl2&2M#("_6m.0Oh;'O EBQ6FHCFbP!OnG
+WVYuFc)ciZmrdV`eUnI}?>T"q4mFFb!z^~ZD9Xr S6SsT=?!(\[+J?O $JEq-W'd@`&L(9
++ym:N UV@+*)qOJ1HE80-t_LFbt-FbK/?KQ1Y9mE#ut/Fb?k^Lp U_s8 2ufgZa7EY6v=\
+@@OopTfmWSO(OtG%@~ac1X-k9g5+@A<MsECF,:k-WFf]r $Vv#l't7t- K;kO@N+*KHb`d
+!wQTr;q8CJBqfc'FeE+jGg3Q(Nt/4?:I`b.FueD^R-r6j-#$m"0vbJGl'>#LOhqe0>fX8w
+=VmH3G\~ePRwK65Hs|^\1ml3dWmF#uGg>SS2mi071R2E^#19@ t_'i(ukc;//IaA,x0R7s
+d>%j4w`742gCu[[/%$sr9"/r?65#)`*k'r,<.>^La]5#)`S&/Z=Im,&DfFQp2LrJK8u} *
+`ll}85TnH|bSJ[5#A-Me*0Oth1 GP|q[,*O|l0PK2fE?\:op436r3R.m:zPz)zk|(k!P]U
+AAN@-K-Kp]4``Z`b@9`d5#,s3vO.el i=uf+>]^C@1(!S=.V;}.ncq_eODLu..k48S\G<)
+f8Et,3QEc^''i =:-q2Vm_oYPXufd-i`X=%~?T/]?6TT8wsLmFIa3AUWePRw +YotNm$5;
+#3Sg.$7O S>](#C:`zX8fv MBD%kk|fl/Y(9^\rpl'JmhbM\G6fxd\Rwex7|cC!{#'Nb/Z
+[Rexc(mI#uZu></}%F5RDm9\"Ar:!p""8TJhe)S|=tnJmt,oIolTl=Ay&c'G,U5Dm_+SuS
+I1or/ufA`^4wUi`S "',i"(9VT8)DD0;SYJrJls%h6u8 Ku1 emyAT[m`Sr*,HO/gdFO*]
+!Y_YEL/a5g[FK6Fv@%@hGhUF/f]0F5m^DtOpbCjP>F@9*)VTS$/Z9 8l4q8$dU'lYoFU#2
+n>8w)6t@5[J~ %kQqY,*:G8RsLb;IPHEMe*0=b!`7GcmPK3GN 5Dj|_'d]\bpo%5&;;h%4
+t/ K;kO@_\426rP3hh@V0|ufuYosZ7t; wt,!L(@t/4?:I`b:RJoHE80(o^MFb7+gZa|&t
+?6@ntKs7 2ufgZa7EY6v=\@@eEQL*aFo7i`*,{iG`K4wf`W/o/ 38NHmQ07}q385)C2_i8
+s#*)VTV`nw@}Jq %.8[mh[M\G6qEK3#p,rnAl;fuecW1.mTT7VO/U&ban! DZ&n0e4:06?
+a@Pm9)+y<?A=>uWHj:.6"Q(KUrI}?TT";>mHFb!zt,R%UdOzn%+}^\?;^L@@YPK E.!?5h
+CVK~1\ps]2F5X)$%#QjO*lBN%gE(Z>&Bk|oB`K4wlYtCpjP@WVqEdVmrdW 1GY89XZRt/Z
+mydWHymFGi:o/}%F5RDm9\"Ar:!p""8TJhe)S|=tnJmt,oIolTl=Ay&c'G,U5Dm_+SuSI1
+or/ufA`^4wUi`S "',i"(9VT8)DD0;SYJrJls%h6u8 Ku1 emyAT[m`Sr*,HO/gdFO*]!Y
+_YEL/a5g[FK6Fv@%@hGhUF/f]0F5m^DtOpbCjP>F@9*)Ca(k^MFb7+gZa|&t?6@ntKs7 2
+ufgZa7EY6v=\@@OopTfmWSR#UdIrh^M\u$lTK|:o=]R6uQS{N1sKnQ\i_Z6bv1sa.>,}sH
+U%'F-McXe]`K4w6cP3hh@V0|ufuYosZ7t; wt,!L(@t/4?:I`b:RJoHEc;1`FdmFN6X~Md
+-j^La]r`p9 Eu7Y L9k4Mm[9``)IjsWF8q-p54sf['%$\{OP#J5+@A<MsECF,:k-WFf]r 
+$Vv#l'Y<Swj~Gj=[Uu+_3vuDsaPH*0[<a.Ayu7t}iR>9rA!pr""y0`r(H_TrK/<mu5<qTF
+a7am>BSD@B9JndB/.::~t=7uT.TAL^LJ+FR37sX^bZ]k8Z^?1bA8Krr>;jh&3A\zOzowFx
+mFkM:v`*/^e,sdFb^L |?Oh=,kt+9Ze%:./P$>h``:7O"52xQv#q0@NA$,Q(F\b+eu[0%$
+sr`342W3R%?e^LJ&3A5W/e8X<\FbM&J'3A/u?6H ezI[K4u}Cl@[2lVV.m007wsECFftb^
+7y3R0Ok|(k&u,sU`[;.6tm1b&-pafmC>I MFv,q.u6u1 5Y!bjb0%54A@BL'ctt8sf\o\S
+nL#bmm%t3s)hOBu2U:-4@AXDQ?u0,lm]IRG:!RL& }?#dk.t/gr,B<s)/T)c/E0hh|)=.W
+oNax1XFdmFN6X~OV-j^La]r`p9 Eu7Y L9k4Mm*h017wsECFftd,i`CgoJax1X-ktLK/;`
+jsWFQ*IqQ07ue@2=uIM\XgC5I;i#5NUwY-et+f3vp]4`hbM\C2;WU%<;UT7NO/u2U:-4@A
+XD`R42W3OR?63AV`nwAJNU/Z[RJ5I[K4u}Cl@[2lVV87$$SkpTfmWSR#],gPh^M\G6qEa)
+-G.n9+Jhe)7(tprCiO?lVLK(IpR:QYgAe]&%WWJ3jy(JC^BqfcJaIpW+8)Gh:xIf'e01r(
+H_TrK/<mu5i>.$n7^%&)cmAnN^oZ.\&x);m6@]VzQp[-dZXIFcCgTk/Z 7JqqcG$C\b0Ry
+dW'loO]'0.e>@OC%DjEoBS` s)/T1ka1V?>rLL9rA%OgRF+VIoJ8HEXPu"@)*)qOR%?e^L
+J&3A5W/e8X<\FbM&J'3A/u?6Zrd",iVV-LDyn^ ;uf 5KCcfPK3GqzNpu8J&b:%54A)SZ-
+ o+cm"85)cb+*aENj^B>iLHGMeG%=[Uu+_3vac1X#!Dtbc&J:w:vk%IBJ~K0`SK3J'9gGm
+(&UD!T[k3fE.!?5hXK:77QC%Gh%F)w)/@VnEoH>0(#C:hvka;3g3WDu*k@UVVLS$/Z9 8l
+C`8$dU'lYoFU#2n>8w)6t@5[v*K32sm 85TnQ%[-NDs-pj:jfAW/o/ 38NHmQ07}q385)C
+2_i8s#*)VTV`nwAJu|K3X*4rN}o[rnl'2E t>j0`70&eQpH>*@5R2tXW4rN}hhK|U&ban!
+ Do[qeJaIp84/r?6R QYgAP(Rt/Z=Im,&DfFQp2LrJK8u} 1EhciPK3G+t@%&Sp%k@*Kfe
+W/o/ 38NHmQ07}q385)C2_i8s#*)VTV`nwAJu|K3X*4rN}o[rnl'58 J/ESKVbNM8w4/P;
+*hTU<;UT7NoOa)e]lKG  2=#r3=4E.dR5[C6A&Mw\'ENAF+59)sMflD^R-r6j-#$m"0vbJ
+Gl'>#LOh^R3uAcJ~qcG|qJ?S7%S dW'lmm;jJH3AUSOzn&FxmFK-YVuk^C%> lX%#PfT`l
+h?b`Sx06.&G;K6Sc7 ^*\m9KM1ZiuDsaUmrpl'Tw1eFdmFG#%~[{ N ilAdVoTG#0i^Ma]
+YoRa9T6v:yisg' Wu7 K PQ8*aFom_'Lt;t-N>*KHb3'>$!`7GcmPK3GN 5Dj|_'d]\bpo
+%5n+[75U7@GmM1C2&"iiO1,uUoUm_sreu} *Jq 1t/SOo[0,4R#*AAGNj<"^KQpVTMO#f*
+oQ*l?;(!S=TIovfs&+#k#yEu0M[V^~emR}ib^5Fn]Uc#A1E8Z>[7%$fEd\Rw,OWQ*HW-mE
+#uh#^E!Xr:WV$ZJ0*m`Z "EhHlQ0-3WDtpl8_r426rP3Y{ o+cm"85)cb+*aENj^B>iLHG
+MeN8X~Mdu2 5Y!bj?m*)VT8)DD0;SYJrJls%h6u8 Ku1 eO;u2U:-4@AXD`R426r/r?6R 
+QYgAP(Rt/Z=Im,&DfFQp2LrJK8u} 1EhHlQ0-3WDYuVc_u426rP3Y{ o+cm"85)cb+*aEN
+j^B>iLHGMeN8X~OVu2 CS}sM/K[ms&h6J-HEMe*0hm5Npe>w`de]lKG  2Gms}`K4wf`d\
+Rw,OWQ*HW-mE#uh#^E!Xr:WV$ZJ0*m`Z "EhRpuQS{1dqc1NevtRq.P!*0=b!`7GcmPK3G
+N 5Dj|_'d]\bpo%5&;;h%4t/ K;kO@_\42W3OR g>j0`70&eQpH>*@@=kL0,@Bo[0,4R#*
+AAR9rql')l_LFb;T9{:d3v?)^L?OQn9T6v:yisg' Wu7 g`l,E5Dm_OSI}:/]QJaIpW+8)
+h) GP|q[,*O|l0PK2fE?\:op436r7,gZbuuc 19~If'ei"IRo6`142W3OR#Jr(n}r-"x[k
+`Sr*,HO/ u[8]V8a5=*";-E.L0?)H4P{Pd8SpU+ku8R%],Ozov+}_)?;^L2rQppbdWsDFb
+4xTk/Z 7=IrgcrJW&F19<)N~!'];0&fTK_:;WX {dh+WacWD?40RG#oLaxDk:vtSq.Uf1e
+FdmFG#%~[{ N ilAdVoTG#0i^Ma]r`p9 Eu7Y L9k4Mm[9``)IjsWF8q'z)Tn+a}M1C2;W
+SOJ6`bXzpTfm8T`$8WW&mj).uoaxr9r% wWW(J&!4wqEK3#p,rnAl;fuecW1.mTT7VoOG#
+0|r(H_TrK/U&8rr S6Ssn%fs&+#k#yEum;-Xh4UB2h'pU~hm5ZG_D\L$Vs["BM@-Vr@yL'
+6Y:+Q(qgJaIpMG?e^L-i,}sH)y/T?6Zrd",iVV-LDyn^ ;uf 5KCcfPK3G+tk0&Monk@*K
+feW/o/ 38NHmQ07}q385)C2_i8s#*)VTV`nw@}Jq %.8[mh[M\iXbr C/ESKVbNM8w4/P;
+[9Ee(&01Gm(&UD!T[kd7tSq.*[_LFb;T9{pZ3t?)^L?OQn9T6v:yisg' Wu7 K PQ8*aFo
+7i`*,{iG`K4w6cP3Y{ o+cm"85)cb+*aENj^B>iLHGMeN8X~Mdu2 5Y!bj?m*)qOOR g>j
+0`70&eQpH>*@@=kL0,@Bo[0,4R#*AAR9rql'2EqEdV7|1Z4]o\F.mFGi:o/}%F5RDm9\"A
+r:#" PQXuQS{1dqc2GiZtRq.)2Hb@T&c'G,U5Dm_+SuSI1or/ufA`^4w9-8lC`my#"fv`4
+ELO@_\42gC<BDD0;SYJrJls%h6u8 gu|`4EL 1;V[k`Sr*,HO/<YhfM\u$lTRwOzC5I;i#
+l=dVoTU_?{*lK%i[S9$bn>&%!!,ztm1bCJm1Do\~rol'58Hb@T&c'G,U5Dm_+SuSI1or/u
+fA`^4w9-8lC`my#"fv`4ELO@_\42lh.5]=(-9l5I5FIRo6ufKNJ}k5]pK3-ji!@9I%&4bb
+KUhf.He>_m *6!.Nf.-YndYsU!a&ZqpGflcm?l*)&$^v1AV/ bH!eg`l_yg3WD]2FPHkLt
+b.!{_q42Qm/f2Qtm0=8a/naAh1Av]0[)GlVu/QjH>F^C/X6}:yM2eTDiP4b+[uPehm*o=f
+h>;HKl,u2@Q,[-3+0aRJE4Z>[0%$#"?KbB4C#zZuo95;h\Sx^F3pt~F~R9$/?>^Crnl'Jm
+d^`K4wt.?rtRq.)2gF?j*)qOG:sLQ@m(6hv*A5n&g#qW7/)uJe0)Q("0`U/}auu,'.4w_+
+XREW6t?NNB6t(7ps.3Io.<el(5VuacO6awamRw:EmIF.F?@%ksdV.sJigJ^}f=@!Us*h&u
+hh5*m|O5;Jk|7Z@{l"F.P2s~#EJ6mg'L(o&u2^$]@#A5MeGxD\F>@%KSqfZ'\NhfC}.0PT
+-:f@?f+W27m^oY;#);V/'ije,6lq;aY//Zc{-YNDp&u`uS2]E.ptBRoX17*|\5E;PT#x2Z
+;.8d2Vh:&3k|oB`K4wXVuDsa-5B'h#&M4wocE9N UV@+*)qOJ1HE80-t_Lp U_$-fEGo2\
+b+eu[0%$sr`342W3R%?e&t[Ro,H{bSbs!db=%5inr-b?%5-rut'K(o&uo[h<Q>(C,lO#Ro
+G\kmF4?%Uw3X8}N~Saa&')2Zoj`:7O&YL/0[l}fl:40RA]*Rp?d^`K4wXV_V42W3rEU_?{
+*l5OO3Y($]@#A5c;5%)g[v_]MI0!`5g MI0!0ZA]*RO~<e`542G#tRq.pArnl'"%<X$b,"
+Xvq)VG4C29(0Vut tJd:mD&DfFQp2LrJK8bJP@J+3OkQ l+cm"85)clurnk4CFZX4}2PN`
+*Kt7F~JqI"!>$T,"CAA\$+.6Ion:ehu2S2h[ 'bbs!Tk5,el ii!]w`*s8 2ufgZa7EY6v
+M2$3li0iBb`bnPI|2]_}l}85)clurnk4`Mnl,'+(IuQBpbA0W(acM4qO-iTi5,o[$,(Gc=
+W*]qtS0`28P(W/P=0MXxq)VG4Cr)@??m ?u|Je!>@@BndcoHr%,Hmmj)J9UC36J9Jh00rh
+qf^K!Xr:(';GbnnetyrZX?]O+k!&@Nl38!lk*:_ebJP@J+^ZqdMg" &qqDI656O;h5S&0K
+7U?jfE@WA2`&/xMim>A<@+k03s:\.5Ion:ehe6r,);`&>&/M V)>Ju1~'(cE&\n;/rPvT6
+m5@]m!0vbJGl'>#LOhDXR|Ep(ZDNDfS.JIhgQ>"}VR&?e@,8oG3O(#1=2>l'fMn:>0@p]8
+F5m^bf==+Wq*/r_e=%K}kh&:0V^$ewg)+v@%F7AC.^jI>F8oM1ZiuDsaOcnm`K4wQo\.o,
+NA*KGq2\b+eu[0%$\{5FoLaxJQfx#{ZuSqq)OPXDQ_$,?>tSq.)2gFJaIp-IOT)`/T_+B|
+A?W(8)23k|d'sI40k|8{`*NMOt*0(-Y4TI2VK1n7_!D)74?W$@!XNvN\k]?A9?7Gf+2?]8
+F5m^bf==+WOhG[7*s_f>U<rmhZM\iXUmqopjP@WVtKs7 2uf@a9UE2sk')4wr8m~$|s|X~
+eCm_O5;Jk|6YHg9gYNrpl'2EpWX?%4Ehs}hnHYA5c;5%)g+&Iu\->z>{k0I[K4u}Cl@[2l
+VVacM4qO(D1A@A<MsECF,:r$XRP?t(-#Hg8SM2$3liU.mLrn`ahnHYp$)z*p(=0nPDH/v4
+eP*U  3v@;?mTsiF&?bb`6qf^K!Xr:WV$ZJ0*m0ZA]*RO~2s 38Nm,^ypa,95Dm_+S["tC
+tb:o*I"KlMQ|I}&e)T(=0nPD7~m6rnABA(c;5%)g_dheO6[lGh*.IVMY89M2$3liU.v5r$
+"\t,s2*U  3v@;?mTs-42skJoMr%c_oHsFK.ZKRAdS,iVV`_Nn13:8kzY@3R\q(-(Q6f`*
+_(@Yl38!lk*:_ebJP@J+^ZqdMg" &qqDI656O;%R`&dL*U(";Gbnnety[k>zo;m88S2k2_
+oR4<Xuq)VG4C29(0Vut h~gGZ']<DB?|cy0'#O+0Sv[f5xE.L0?)H4P{Pd8SnGXwFcC_e}
+7|G{EfcARypSJK3AUWK6`Sovl^^[@@<wjWTP1vJr#/;DauT3Tvv+XlUBtz%9e$LG0OE.TP
+74%p sF2sUJ}rA<#gN:`tOIopV>_:,.];~KLfp2iUGp:/*6+A`8AVguX'!Z7XWDl1on*Iv
+pVJK,DqHGtZ<9a[<!ySJ\$2Z]WGMDl\z4q1M%4QLI6(S#V<=`2Q(<Z/MS*MmkI<RNO[#cn
+6\iZC_l[H{(7\L`*s8 2ufi*[)Wm2liTS9$bC3A\$+>&5ynp7&&=nCL\/EF|[4OcBB'su2
+AHgqBio<^JH!fUbXKCd7G :;6\:+MAqOg)\g5B\s4E%kmxI8oHaxu\S'JaIpAUu`uS3>-,
+(9^\rpl'JmhbM\G6;mTJQ',so1_gsZNG"y%w[Pi&r`F_#2n>m,1lr'R_$.XwgqJaIpUCsF
+"%Z6FxsQ:jigM1-\:5c^&IGXPds@>hPwJ74wD=7*h<qXT!80NH*KqkMg0v_uIphZk1$-;:
+qc:wF2mA%:An9 8l'bADXDF\:80RG#oLaxu\[/%$nMW[2^+x9hh,I:q+&Y%t+o@j[vo,m@
+&DfFd#CZmw/*(=;YYNuDsa4PpW$+>6mrJFCfD=(;VT2^+x9hh,6Gj`Do74rhXe[ &3>Ocb
+CZ*L-6IodL*Uc]s+;9?jJ%0W6rd-5LbSRc5,Q%-j,}>kO; QR>APXDqgQ>sn3y=.W{=]L(
+9d>">rT/VPH~s-q/_X<#W} bcd y9]CVR%19-a1B3t9`ab!wGnD(lKe'Le)fLr8Ss~?5Qa
+;4&RVK_NrJDff!DiP4b+t.?rtRq.5FmJk@*Ki&ew`?.mRy$,?>tSq.5FoLax3Z-v:5c^&I
+GXj~twb>!LN'hrDRtK^J!Xr:q`T!t.9?M2<Ko$`K4weltm!"M;,{XiPETPq7G8ac\crnOP
+.zO^<Y/](9^\rpl'JmhbM\G6;mTJQ',so14\s`NG"y%w[Pi&r`F_#2n>m,1lr'R_$.Xwgq
+JaIpUCsF"%$@:/;=*U2kl9nQM1C2oH(k=v)'`c3=m8GNm `&:S';-~'GKRt3XO9e!FQ3Vg
+H~hBl#H{hwOCLu66\N*4@`$>^vD[d>S>8zBJsaDFceoQDtOpbCPvB[fM&l1lM09cL4ce3u
+O6B1!gg)4V?N`!+yjWtpWy&6@r[8@5s>:,JH;|#+;44--eOh;'O EBQ6FH-pu8] Oz$K^]
+N*/ieEsrFb4pe}7|G#EfsQ?S_M'nDDYPTI\K"6PM+0NSsa<'\PUs\~g@Uel*H{q ,oOh\K
+C6A&K5:?JjpnufnziYC_k6eu4p9EndB/.::~t=7u<6JCWjn4.}-nG1@8Vire'&e:M@_^ev
+4p%=m `&:S';-~'Gkb&H'P7thC$xe:]PMdm\@}\'ENAF+59)sMfld7mD&DfFj).@%mGdi.
+-YT>ovIvpV!"=+]v?{*l5Oimh%<RBairg' WDfo^ PNs8<u=n?V`)kf8bX/]RQ%{OGVsv)
+9etIZ6U"2WpKiN(>Eh3=/^c{-YNDf@?fI5]Nn+2Dc5A%u2/xuDsaOcnm[ %$sr/@ts[9J&
+7*s_tPpj:jsn`342lh-t_$)2AZ[]gULGTsO'(H#TP+=J/.S*MmEcI&*)Sqt.9?M2<Ko$`K
+4wFstRq.k<oHaxDkKC<oeS*Id"T?q)B#CZHk+WP&[}?|o<\ EZ-EDs\~$-fEhZ1X[mEZ-E
+DsUWIBJhIpdL*Uc]s+q/?hJ%0W6rd-5LbSRc5,Q%-j,}>kO;U&d>2kb+eu[0%$\{5FoLax
+JQ;mTJQ',so14\s`NG"y%w[Pi&r`F_#2n>hGsFl'Y,EX<Rs_<d`542gCmsk@*KU4JaIpMG
+2sm8_[6eHu&S4wocDjP4b+;U]EYtU"]E$bmB:/2Fk|>AtR7g]C$bmB:/1Meppk%5Hu6s(K
+k&CfD=pcM1-\s|-K3)qkMg\",OWQN{0aK1qfO<gd`*FOk.-9Nh&~NnEpN?NrD2<'gN:`k&
+4wsFd0<T*r37K6CSDj&8M:,N,zmy-}htkaP(o{?*3G[NatEyCFk0#u0~NQVcr8'x?rDx^]
+Oc0l=nJqd^`K4wlYI8oHaxJQdPJqutTi+VIoJ8HEXPu"@)*)qOR%j\Oc0l=nnua>:I7SO?
+Ltc0YoRa9T6v]|_]%$9xJ'WjacY@r\k@UV3IuDsaphrnl'2E`lq*?h72&S4wmA%:Ano;q,
+?hb=\C_]%$fEhZ1X0b<2^WA%n&hbM\iXUmrpl'58-v:5c^&IGXUItzb>!LN'hrDRtK^J!X
+r:o>tmq.g`2k.9IoYM@**)Car%pjP@ed`K4wanTT\}]9gP0V6r?jfEbj`6\}]9Iro5tmq.
+/0J9+sAD=]Bgu*E9j<2jNI+a!glDptu|R0Y*5e0xgQ:`tOIopVT50b%Z8@=+!:9] Ss>:,
+Hs;|#+d}@!:*>")y/E0hh|0tojiMA1BU;3#4;(&:i @y.j.!SCnDoHpz)>o8k10GQv$4Ju
+ZGj<hT!l'7[?!CM:T6_mh2&?oKoI+yR?-)f=.wY/9&(jc=9de4p1l|fl>X7J[bX0.$s\Be
+L+"/t7O'W@-%a@PmICM.#ARz3uD]EoBSmEh4P[./[imHIA0qLt[{b?Oz'|[?ky1C/zKCI^
+X1ePp.'3j[_nV:(@9cdV^S3uAc<wjW@$+OrS?v[c[d1t0]D_>/-}Fb3t]H<w?1-5h~2F#(
+lk@,e5I)/X&ZDOT>L^kBWP_+XRv(J@p1rBA0Gm:KNtB['VN>3k/(T:Y6TpNuA/:+rqL^AC
+0X:CnD'K,G=MZ,CF6IOq&)?WEe.X-,e>_nV:(@9c);.Wml/*]z<oGkrqL^AC0X<ECxbP!O
+.=elTvA9J],ibC;3Q=jSSJ/_@FVD=p<(R-txS(&j6Y8iiqPdJjJl8Z* R7ZuI$kEO^8iiX
+*0Y44PG2NptAS(&j6Y8iGMH'NdpH?v;-$0,qo0ZI>znD'K,G=MZ,CF6IWy`N4W6o(6Vu6t
+?NNBi{4)9XCG6Itvt}\%WT<P_-m{Js21,rd!TvA9J],ibC;3&2t>0`YyRQQ`X4Fs,gbC;3
+d0&REn,]; k|#vgb )%pVrkdl;q`$wq7q8q8PwepR}R3%tl}HD-AKb$.;:fKDh(c0+qX0^
+HY!Wm6EHCF'"k]l;l;Q@3XbS#)RNo3iQPd+{?V,#?VW.[l`SH$P-H$P-K1u2 UYEX22qh:
+`*FOs&&.@\ Saw7td>!x+W:PNtB[9.@$+O5F5F/ *|u6\wD\bXa- 4?;7qSQZ"QTJpZi0^
+@De'TvA9J],ibC;3&2t>0`uk`*SD?PQeA:>4&;(!8I:v:v*D@{d$#%f8:9do>d'S#OeEDi
+P4b+0jqzBy:K[g`IQOA1-Y#)ot[lhf`*FOUh8 dTG,Np>KQHAqAC.^Pv7sd>3JKOM(jS8'
+rAlAe'%$u43WG)t[nK9*tRq.5F5Firu:BgAsuPiAu,t}\%WT<P_-XFbiRjJI8>QL:v:v7I
+[bX0IH6?0aSGQu@~Z&RQFu h#z3f)|3Yf)XUJW84_l(Hl@3unt!Q'utLs~MSEi0GD96U?!
+ q5cMWEiE|X2L\DW*at[t."KTg_+32(#Jum:J% sWqe]tT5{=Epr>sZ7j#v*JaIp?m*)fd
+_\42gCmsk@*K _]$r$JaIpm57"V:5DHOABYP`O426rZ+RQ`S42W3R5%tL]uSkgO4YVuSpj
+P@&ttM3>oNaxDkm57"V:5DHOABYP`O42gC&ltM3>oNaxJQqe+Pf8Ul_B[kgr@7*)qO7:uk
+d>*#`ra^/cd;sZPJ8e1R2M#(lk@,FE-#%W/)NH27kT,A8#X2L\o2cH''i =z6%X^5eU+Go
+KAb+c}0\oj)V`r }Jum:`<;t/z"*%Z]EH[3=-,Oh&)?Wg_)FNSqbL"[-8P7J[b-%_@As8U
+'"Ew_k(Hl@3unt!Q'uE=Z>J&6i^ S>mGs}@ [z-rJZ7:;L=;qa(=\E-5h~KOQH)uT=&(Z(
++"<?A=GnMSEi`w3=o6ZI)EJum:,GqHR_jtbcd7*#`ra^/cpKeLrp/z-VM3g)0'#OV;##'T
+b?T6ptQ;,!<)aIrcAcN^oZXp&)?WYY)Ev!WDRGFu h#z3f,3_/m=@/nD'KrM/z-VM3QS;k
+O<t!S.3XbSu;9SNPVG,D\pbi@:s~>tZ7j#J~fK.*J98FsLrnl'r%pjP@m{k@UV3IuDsaph
+imc@`9TTeO7,1dJD@oYPg42P]MF5X)TUs;o4m<mI%:G4?~Zris*2N!W,@-Vr!*fMda@:t-
+`K4w,@?W^L?O]RF5m^c2==VTa%rcF]hfM\G6,@?W^L?O]RF5m^c2==VTa%\yF5X)n/tL3>
+oNaxDk8`_/Fb_ DnlKe'P/Z[6rKtC^lKe'\{o0m<[7%$srQBH(mFGii^b`Sx*)?"Mf!Sg>
+b`SxqPo2ZI?;);2EN7@nH!FE0&hbM\p?kB'`R~n9'Kgb,RJkok[F5n#vb?T6X2+/AFQ(F\
+Db*at[e',"?6H 3hX7G+^R:J[gDm&0#UDtbc&J:w:vs-X?hUJb>7'"k]l;+Z]FWZi{4)tC
+[60aenf$,"eE#ub?T6X2koTc$!(^tLHsmrBF'sA~SIs $jkTVDqgZ'F\uk>X7J[bX0.$C,
+*R0_&wm(^%;^/zf> G;x-9:-/P$>TkIB0qbJGlTkIB0qLt[{b?eP_kKK#xTkIB"#jV2=Fc
+E[Y`oWoM#(bgA1?1e3h}*{Zuo9sy%gXarqNPN[XuNwB[do9[Rshs/X&ZDOT>L^J~qcG|tq
+5FG$C_)`iZc(8Y[3,CS /ZeEWVtptPljtCHd/^l3dW6gq#/zenRwK6s&/Tu/(Ed@r9lAe'
+%$?>^L0`mC`[Fbr:rQ=\O JpIpTT323>193kd^O4FdAB`+Qp67]pir*2N!W,US5xV\]?o2
+ih*2N!W,\z5xV\]?o2m,@]>:bP!OH!:ouztaj,nObAo[Tv'Se8!_+W:PNtB[4Cs`qJki-4
+G2NptAS(&j6Y8im[!Q'uTTd>t+9?p/'3j[_nV:(@9c<^T)[fa$d7\U-5h~@48g0X&lAts=
+,qO#S4n9'Kgb,RJk,ibC;3&2?9-5h~2F#(u~m1ozg?7%`mUnI})hetsd@@DkP3<YUC3XbS
+u;9SNPVG,D^q4#7Bs?/z-VM3QSrb=4/M&FGX>02><gsu%gt}t}Aj!Rn7X7BG/B#i!gmm2D
+c5A%SPt(\W-5h~@48g0X&lL_5'Z&RQ+zAGnE\@D\YOqU+Psesf\oGnKC7I,.J~'Ze8SIS8
+K-9Lc^&IGXfrplVo=pg3_nV:(@9c8zA\uARGQ`b~5%)gPbNsA/:+C6A&Mw8c5`Pw2>.)8Z
+(I7`aU,"kB>F]v4ss`qJkiK2`ZovIalletTvA9J],ibC;3&2t>[khf`*FOUh8 +{Z[J.T;
+?|/TTn(@Nj,5Q(qg$qkT6$Yv7O`S4wNM!OnK`K4w[/'iubsam=etTvA9J],ibC;3&2t>0`
+uk`*+Dj+X]3yG3U{:uu0PHIC0qbJGlgS#$/krb=4:8);VU/fb<$Y>(Rp-b6A |%k]h-M.t
+l&iUk_e'Ii,YhmX15fZr72%p6I$@!XNvV?AqNRkcdn\u')-r&l1lojOmbDNFa2SHFNOnRF
+r!R_ICM.#ARz3uD]EoBSY1u1KJb+c}0\oj6g^  +BVX3V:0l=nSZ#PfTV"S4Z"dw\>*C,3
+_/<|2kukd>8oAO*R0_GdnDoH(Z=NZ,[Va.VG-%i;-9MGT6+y=:2k,3_/gg#$/kUY4s2M#(
+"_6mCe!~V/'i0k5Os|3}1on*gOTT8wsLqJki7~!=rbqhQ>c^n#dY2>!NGiB_X290[cAjV[
+Zq@ +^%x,[3l);.Wml!Q'ud8MHP(+Ej+)NX79E#-[T=[:8);+Jj+Y~.~!O3)ojtRq.A:D>
+uDsaM9 k?S7+O"[$;xtRP|fR$!b-5i+yZGTP\Kh<P[./PT-:<Zp>!Q'uGMV< bH!$Fli,q
+A3Xk'|L0?)c/)q`r }Y4jF>5o9"g?KF> h#z^qJaIp[?KY+Ej+05d:[rhf`*2kCn!~t7Uy
+NYA~.$7O@smLd{#}@F?|ndFZM[Ei0Gti^xD[pbS>8zM5IC0qbJGlr>;jh&4Bs`%~ UJqqc
+G$4pe}sd2rIhP*"YVvS4Z"dw\>k$+Cj+[@<op>!Q'uGMS4Z"dw\>k$+Cj+<AOm`Uqg$qkT
+@nmw!Q'uu+>;&ZDO[5,C(<NQ6?1z]Cpl'Rb?T6oM#(bgA1;-*Do2ZIj&GTmcg4RQqy_S3Q
+uDsa_[42W3I$HEXPeR`K4w!?.<=D9{nH_}?O]RIR5p`;7O"5VdS.`Ur$hZ1XJD@oYP+x9h
+h,]NF5X)TUs;o4m<[7%$;:k]^La]<j#vb?T6X2+/UrI})~iXXi30#'rqWI2sQppbl_3PUW
+MPko?v*<X8O,1\43^$%7#(O=`Ur$JaIpW+a%FcM&YV'mNH27:/6?5Os|3}\z;>FA&.oM8]
+Eh-Kk0c*G"4x$kaJ_n4X::(#C:HFEq*O&0:V(#C:KEO=`Ur$JaIpMG!Sd['lYo?9-5h~2F
+#(u~m1ozg?7%c08Y[3,C`mUnI})hetsd3/#'rqrD2r@-VrkDa2I~8`4$@-VrUn@vuATirq
+l'58&0/k?6ZrFpTuA9i\,@u9R%],:]&!)~,3`AQO TJqqcG$4pl3l_,<hdfqkNJ>O Jp")
+qh,Mp1J>O Jpc?tL3>m<b>o[Tv'Se8c!#$/kqeZ'F\uk>X.MfTplkc4~r8'x8K:+LJ+Frg
+$&&c/_Gli;k_e'dTrcAcN^oZ3A?ut\'id1s@.3lHc(#}6(!Fp"?cZ(+"GW'h?UZoQ_%tL]
+@:VEX0P(\vD\bXa-EyM&8UM1FUbeZq@-VrkDa2I~:vpu3s<;X719-a<M%%AWfxNe1\43G#
+mFbdJ S2$oufuh.MfTpl%5r"Be"G"/8#^MfV/ZDPtKqe]\a0Pm*hN>3k/(T:+HAGnE\@D\
+c9#$/k2rRGQ`mifMk\Ks8ced_%Ne1\0W^$&HE.Z>TP&)?WtDF0m^M\JY)k3ThbM\n=bMSx
+*)@~\C6T(#C:E/0'kui+ewq`+AoEm<,GqH&)?W#[lE@H\MpIk@UVE~K4O%C5omqcn(0\]:
+0&fT T'd?rt_'iube9g)D/lKe'srP}fR$!b-5i+yZGTP\Kh<C.lK9{p)7U?$>:mr8FH(;|
+\C7Z!(uOe9u$ZB+"<?A=7^Pmp0=_DCmreC>Pa05%n/A3SZ#PfT2~Ti#r7/U!'Se8R<%tb3
+bA768NL\EcA;i?\>;{EeCQHk+WP&`Ur$b/o[Tv'Se8R<%tb3bAWV[x"%/#*|u6\wD\bXa-
+ 4?;7qSQZ"o2m<j& _N!QfA:i?MPEi 7e-:06?AZ[]0~'"Vr5n03=nSZBG4g8FH(YzFxuk
+d>*#`ra^eY#$/kt ploJaxJQ4$koRNAP[8I~EXg]R2IAop?*."jaXoN~0+BA?uVF oWq:R
+T:?!(\4XTiFQk.MY!`9Mj[02=n\#MU\'12<)N~!'];&x'skk`:7O`SL/s~Z6r$ MWy$m&2
+%+=kLLCVi:NzL%@i-rP(OGVsdw\>'`!taTWDTi@G[]0~doY_nlm<b>o[Tv'Se8R<%tL]\v
+D\bXa-`t@:2kuk>X2kBaZC+"<?*r:UY5jF#$/knz6B!Fp"(lc=9dbF;A/z"*^3P(3dKO!|
+<2^W\Kh<%P^v1A,3_/Y)oJax g'r)q`r }Y\)EJum:J%Wj*)9\u]NaUVMI[,KNhoUn2lSx
+78W@HJ)y3vTiFQJma'd}ogdn6o%lM{bCPvhmktfpax&N zNH[F([DW0Z_"D)b?8S3>m$ou
+g4O^!qhs\`cCk]^*5Yt_'i(up@5AFs*`:91R@cTVSL<((Y/Jo:Z^dtI~Lm7N&1ekR$A1E8
+Z>jF#$/knzPlp0RTJIac=D?h*)VTa%FcQRo-?2Ot:~YzV!oAA=gM2A"&)52>N^UV]PuHg9
+S9$bu%b+%5ADI~o2ZIj&GTmcg4RQqy_S3QuDsa_[42W3I$HEXPeR`K4w!?.<=D9{nH_}?O
+]RIR5p`;7O"5VdS.`Ur$hZ1XJD@oYP+x9hh,]NF5X)TUs;o4m<[7%$;:k]^La]<jM2FUbe
+-dEnuATirql')l#(S!/Z=IA6-E@wO+!Sg>b`SxU{o2m<[7%$\{,Mp1dVoT<fs_2VIuQBH(
+`:7O5Han@:t-`K4wW5a%FcM&YV$.m,O5;Jk]iW^5qyJQuATiF]A/Gm:KNtB[&UN>3k/(T:
+Ol&)?Wm5=xm:uA]2FP?R'6<|`p%O(\DNrljd>F^C/X&ZDOT>L^r8'x?rQ(h>JtM*T6C+#L
+Rz_!6R[bX0.$s\BeL+"/t7O'/xYoJtM*T6C+VD=p<(R-1UPDSJA?[8-r??oY#ub?T6X2ko
+Tc$!(^n:/r_e4\1XPDH/qJ8dVF4Cd[`Q6T:+59+<??B$_+ZDFa#2n>>=c<?MY?A]/f.1,7
+6>3PVJ4CF}/X&ZDOT>L^FE0&BZt,3J:8Rk&: RP(Dh6um6oEUCsQALYE]'hUY!H$ebuhDB
+9e@:KCd7I\K4u}H'Nd/gf=.wnd?v;-$0,qg`2kiTS9$bC3qg?P$;YL3Q(#f9"'/[&ZDOT>
+L^rqL^AC0XC,'"k]l;+Z=&[yR}WXeT+~?Vr)`T)(QT\z4A\RNj# U'eO>56%X^bZ]k8Z;<
+TQrW?v[cu^oW+k$9F0j[7D6H<TYNa]<}$0mR$=?9M{UsG!6^HgXFO,1\gFu[p$?*t(581G
+oN&km(b10>d6''i =:-qO3<Y`.IB0qLt[{74t7O'/x`5;toN&km(b10>d6''cE&\n;/r_e
+<TYNa]<}$0mR_PO2u\#}27*c)zWC6(!Fp"(lc=9d0_kQqe`MCIuEVO.b!b$-Z07Zs*_obP
+$0S+0l=n6=>;@R*RE4kD/&NH27:/aJ32(#1=f>?f+W27%>M[qe0>e##}6(/T_58McMrcAc
+#SAbNIr8'x?rqX0>sq/zh|JnGkQ!KEI^-&`?-}L`ht]v<oGkM&A/:+rqL^AC0X(1m8GSo2
+ZIhf-XNDRbK?-{dZG,NpCpQDM=qOg)oZgqIHbC%k?9-5h~2F#(n;/r_etL9D5_&}mH3UbS
+]#8a6^Hgn_nsVOJ+^ZOz9@$&li?Xu#'|DNsu$-n/-_ilCxRo9T6vf%4~oE;M*OGb;4+d&'
+eo$EliU.FQTuA9i\,@t03J:8Rk&: RP(Dh6uU^sQALYE]'hUnVuhDB9e@:KCd7I\K4u}H'
+Nd/gf=.wnd?v;-$0,qg`2kiTS9$bC3qg?P$;YL3Q(#f9"'/[&ZDOT>L^rqL^AC0XC,qg?P
+$;J/UCXKuT(BC^HcBn'@&!3wTi\KL*;'O EBQ6VX2lny_nA1u(hy7X(Rl@_!NiLpY)<fM&
+Y|(@dn([^R%a5Rn#M=qO:V(#C:XVu"ir^5qyJQBnhf-XcyN-@]R6./[iZU;c(0Y4J&reAc
+#SAbNIr8'x?rJ4Wjhf-XcyN-@]R6./PT-:f@?fI5Y*<fM&Y|(@dnHk(/u$'|DN5G3u8PL1
+"lim1ZPDSJA?`lm6JefstT6i=F#E(:>*O6o}IJNk(A0 AZ[]LZ@J,dLdu='|DN5G3u8P`m
+_yQ]@/&~6@oUFZHv(/]Lhe$H5KQx,Z*~a2i;)w$>RI4E%k-8Eme5hh#$BwKtJ+3O8n+y?O
+&fWzSwh)/ l&_!&TH)bCR}8a/nf=.wY/9&Q38S.=elh}k\4M&1n:eh/@ts7I[bX0.$C,*R
+0_&wm(^%;^4-H`o5cH''i =:-qc'#}6(!Fp"(lc=9d)x4-H`[7;2Q]&%a<Ckh(B?I|a`;/
+0rmye`%omH3UbSu;9SNPVG,DZ&\NOi`UtJ/zh|6:;f^^h|J?O Jp")qhVG_NrJ_!r\?v[c
+LU'mNH27:/6?t7O'/xukQKf(bGo}?*t(0kRJ$3liW|XoMTr8m~3A/-09PDH/qJ?v[clu0W
+UyVaDPYPdY,iVV>}6%X^bZ]k8Z;<TQrW?v[cu^oW+k$9F0j[7D6H<TYNa]<}$0mR$=?9M{
+UsG!6^HgXFO,1\gFu[p$?*t(581GoN&km(b10>d6''i =:-qO3<YE#?u$4+5DTfM5%A?9S
+EZg]IHbCsy[^O21%Lt[{74t7O'/x<b.CE|'76YHy.`,"ld_nA1u(hy7X(R6Ji)VdJ+b^'{
+!$n|@61dum;7RLK{"&h3VwIT?wA8"(9USQZ"V9/-09PD]dplYt7O`SL/s~f>?f+W27%>M[
+qe0>e##}6(/T_58McMm&@]So'|L0"lim1ZPDSJ3q_RO2Z&\2hfT.n9'Kgb,R$EliW|Zq>U
+KZnzrrA((/T;Z7;2g3p|L/]tBQ2"_B[})-L21LH@tdFqTuA9i\,@VJ_NrJrl[eQm2_!62m
+LE= 'O[bLH$SqPPl&v\w\n0&fTplkc4~dKG,NpCpQDBrM&A/:+<)q#eL" $?E\r8M^6\t=
+2@dY2>'hqC\Le^+5C*j0p1ZIj<'kNH27:/6?t7O'[$X1Sa[T_40}h;VOf?\Aoa*lq-eh#$
+[dYbUP]x0rojX8Z,&[KBb+/IlPk,etGM/(f=.wY/9&uWiA@Wk~2>dY^J:J[gDm&0e#e?GM
+Z3O,1\43^$:lX5`=\u+4,B,^I$s!hm*ve8o}?*t(0kRJBQmjiB@WK^2>mH3UbS]#8a)AD-
+/\&ZDOT>L^r8'x?rsgm~3ArecEuj#}27u&M1G'Qz=Zsw8moR'"/_GlhnN-dAu`#}27sdT#
+n9'Kgb,R$EliW|SJDXYPi~ixkb8FHG h#z::Rw"'%Xm:J%Wjhf-XcyN-@]DhlK9{p)7U?$
+3wTi+Fj+9^Fc<C6BRFEXC)3At8N]HgBpm$3UbS]#8a*bt[DF[AREK?-{dZG,NpCpQD5Es!
+hm0<PDSJVtPHH/tzF~\C ~3tTi1@Fn+DK%t~F~_&'kNH27:/6?\R&x/_GlM&A/:+<)f85%
+A?O)57jHq*ehe"#}oSFZeCe%MRu}q:ehols%/Tu/(Ed@u\'{45e]rQ^tG?gb.%$>8}'+LD
+(E3v8cn/A3s*/Tu/(Ed@M4qOg)&qqPea*Zp?h4*uXDr$q^0>$BqP.JBi]$Fx,3_/rR-$[H
+3RG;V;N.RSavhP[YZqOGsT4F%k8#q9eht!sNF0m^c2==0nPDSJNVq^j-CDbP!ORa[fa$m@
+oYpx^J3u46ZeP((Hm8=x5:@-VrkDa2I~7%+/@1EY1#.d],F5m^c2==VTM&A/:+<)f85%A?
+O)/@ut"+e&X3blm;?4-5h~2F#(n;/r_eTPa=uVl?U<c~G,NpCpQDM=qOg)Z%qp0>m+oYPX
+E:dPK"6(qyY/[mHs'lNH27:/6?t7O'/x-,Etv&sgm~FTTuA9i\,@VJ_NrJikt#<!Gm[ 6R
+[bX0.$C,*R0_mJ_nA1N!XW?u@`S0LC->A8KruA]2(RRMF]TuA9i\,@VJ_NrJEW"TsZN]Hg
+S!%h8A($/jb,hsCxmj/*6+dWfG<;c?4'WrO,1\43^$PBnm^C:J[gDm&0UoQOn9'Kgb,RJk
+ok[F`y.<p? Eu7ipM2i((Vshm~`RK*/X&ZDOT>L^FE0&BZh ^E:J[gDm&0cA`9T4Bcm$3U
+bS]#8aYqFUTuA9i\,@iEot?*t(0kRJZiCalKe'P/Z[!=2rI~EX<R);+$H|.i/h[SZ772MX
+YtL\Asdj+5C*PV3X4P,3&~+ym:]yDpO60y2}QvEYa/BK[cr;ngfWFbr:1p/jtzH Tm6R[b
+X0.$s\BeL+"/\RFbr:1p/jtzH Tm6R[bX0.$cLR`$oufBUb]*Z/jg:b`Sx*)?"MfU&eO)H
+8A($7@+/@1_+%m_n.xB![v`*<m=+[rhfJtM*T6X`[mHs'lNH27:/6?t7O'/xoN&k725QZu
+mw_nA1"u/\&ZDOT>L^r8'x?ruAd9ZrRNn9'Kgb,R$EliW|u,'|DNq3gfIHbCPvbAK;N<[m
+gr:4.T\Vg7M8qOPl&v72^I2V6(qyBxM*T6E-Z>`<;tr5;R tu2u<jubc?2)z*+M&Y|(@9c
+c#IHbCsy[^O21%Lt[{74t7O'/xGm)G8A($FoTuA9i\,@VJ_NrJrlo9LQlX$5+5DTfM5%A?
+oI@8VE-%,+LB<MX^5eU+6^Hgn_bg:Rs8R_V0On')munmqp0>m+oY%MqI?v[cu^oW+k Us>
+:,JH;|#+0Ir(8Sl48O#vb?T6X2V:J+b^h\=R/zAe$3^vD[pbS>8zmU@8VE-%,+LBgXYyd_
+syM+V?Ae$|qi0>h6^K3u!C[nd7TQ1vJr7:f+K$`Z*&4@'@&!Q-2}NfVG!Yu#'|DN5G3u8P
+L1?)H4P{%YGm)G8A($FoTuA9i\,@VJ_NrJrlo9LQlX$5F0j[7D6Hu#'|DN5G3u8PL1?)H4
+P{%Y!7_UO2dKh}k\Z3m($fA7-Ya'o[FZ4-=u[rhf.He>_m *6!BR[chQB-/,`!_m2`=/E.
+Yk'+n0fl>X`e^>a"-b"BV:S2K?-{D:lKe'P/Z[A]*R0_Gd.LfTplkc4~r8'x8K:+LJ+Fl\
+:IB*"N")d`m,*i)0BR` m[O6uDiA1Qps\Q[qEK@#=]Yx((2V^"!cKGr6QPf(bG^L:J[gDm
+&0f@?fI5A~:K[gDm&0f@?f+W27%>M[Oo3RR3)z(D0 QpK*D`SssTSm0OrpBef)`le\b|_Y
+Iv@A[8@Bj:k[&p!1f89X5_&}mH3UbS]#8a*bt[DF(.c=9dU$fR.wY/9&uWiA@Wa45%A?-o
+cyEt!Hu##<ODkhKCt#u(lk!-$>h`u.qA*_)0BR` h6h.E!$ o/ZIQFu0iA1Q8{HB!zSZbC
+Pv8S!l+#+B'?kP,, t[JSn3RR3)z(D0 QpK*D`SssTSm0OrpBef)`le\b|_YIv@A[8@Bj:
+k[&p!1f8j)^5qyAX.^Ts6R[bX0.$HQ#ub?T6X2koTc$!(^TTUn;.i"OpsT5Gv/eLU{KDU$
+%>@#FE V"/$ o/'6L,MI==K?PSue#vb?T6X2V:J+b^h\AzN^oZ.\&x1CV/ bH!$FliW|e\
+`l_yQ]@/&~6@`fu.#<ODkhKCt#u(lk!-$>h`u.qA*_)0BR` [;=[01E-Em#H Xn7Tc)^(\
+jVu.#<ODkhKCt#u(lk!-$>h`u.qA*_)0BR` h6h.E!$ o/'6L,MI==K?PSue`;7Oext]'i
+(uC[lK9{f)\yF5X)X8O,1\gFX>O,1\lk,#=MZ,5H#"RNo3%Ac#Tsd4$|$2S+d#1072A#2|
+PK$W19@ qxbeJaD`SssT`b@:`e^>a"-b"BV:21L5f#WX#.8=[G&%RMi`^5qyAX.^srlk:I
+B*"N")d`m,*i)0BR` m[O6uDiA1Qps\Q[qEK@#=]DC1~rFB$[8<q);8{uDSw*!7VGqCF[8
+09
diff --git a/packages/X/Documentation/.DS_Store b/packages/X/Documentation/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..664a5970384d2bba765549b0df7e52b27cb38c44
Binary files /dev/null and b/packages/X/Documentation/.DS_Store differ
diff --git a/packages/X/Documentation/English/.DS_Store b/packages/X/Documentation/English/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..1f12f992e09c9e195280dc361c28d30c6d152d22
Binary files /dev/null and b/packages/X/Documentation/English/.DS_Store differ
diff --git a/packages/X/Documentation/English/Guides/PackageX.nb b/packages/X/Documentation/English/Guides/PackageX.nb
new file mode 100644
index 0000000000000000000000000000000000000000..5aa9f536962626c87a728a62c196720bdeaf30ca
--- /dev/null
+++ b/packages/X/Documentation/English/Guides/PackageX.nb
@@ -0,0 +1,3333 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X GUIDE", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Functions \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Contract\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Contract"], "\<\"Dim\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Dim"], "\<\"Dirac1\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Dirac1"], "\<\"DiracG\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiracG"], "\<\"DiracG5\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracMatrix"], "\<\"DiracPL\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPL"], "\<\"DiracPR\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPR"], "\<\"DiracS\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"], "\<\"DiscB\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiscB"], "\<\"Eps\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Eps"], "\<\"FermionLine\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/FermionLine"], "\<\"FermionLineExpand\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/FermionLineExpand"], "\<\"FermionLineProduct\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/FermionLineProduct"], "\<\"LDot\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/LDot"], "\<\"LeviCivitaE\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LeviCivitaE"], "\<\"Longitudinal\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/Longitudinal"], "\<\"LoopIntegrate\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopIntegrate"], "\<\"LoopRefine\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"LoopRefineSeries\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefineSeries"], "\<\"LScalarQ\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/LScalarQ"], "\<\"LTensor\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LTensor"], "\<\"MandelstamRelations\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/MandelstamRelations"], "\<\"MetricG\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/MetricG"], "\<\"Mu\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Mu"], "\<\"Projector\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Projector"], "\<\"PVA\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVA"], "\<\"PVB\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVB"], "\<\"PVC\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVC"], "\<\"PVD\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVD"], "\<\"PVX\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVX"], "\<\"ScalarC0\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ScalarC0"], "\<\"ScalarD0\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ScalarD0"], "\<\"Spur\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Spur"], "\<\"Transverse\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Transverse"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Special Functions in Package-X\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/guide/SpecialFunctions"], "\<\"CollierLink\"\>":>
+       Documentation`HelpLookup["paclet:CollierLink/guide/CollierLink"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Tutorials \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X Primer\"\>":>
+       Documentation`HelpLookup[
+        If[
+         StringMatchQ[
+          StringReplace[{
+            URL["http://packagex.hepforge.org/primer-2.1.1.pdf"], None}, 
+           "paclet:" :> ""], "paclet*"], 
+         Part[
+          Part[{{"Package-X Primer", 
+             StringReplace[{
+               URL["http://packagex.hepforge.org/primer-2.1.1.pdf"], None}, 
+              "paclet:" :> ""]}, {
+            "Ward Identities and \[Gamma]5 in Dimensional Regularization", 
+             "X/tutorial/AdlersMethod"}, {
+            "Extracting Form Factors from the \[Mu]\[Rule]e \[Gamma] \
+Amplitude", "X/tutorial/MuToEGamma"}, {
+            "The Scattering of Light by Light", 
+             "X/tutorial/ScatteringLightByLight"}, {
+            "Tree-Level e\:207ae\:207b\[Rule]\[Gamma]\[Gamma] Cross Section \
+by The Optical Theorem", "X/tutorial/PairAnnihilationUnitarity"}, {
+            "Bringing the Arguments of D functions to Canonical Form", 
+             "X/tutorial/ArgumentsOfScalarD"}, {
+            "Linking Package-X to COLLIER", "X/tutorial/LinkingToCOLLIER"}, {
+            "Linking Package-X to LoopTools", 
+             "X/tutorial/LinkingToLoopTools"}, {
+            "Linking FeynCalc to Package-X", "X/tutorial/LinkingToFeynCalc"}},
+            1], 2], 
+         StringJoin["paclet:", 
+          Part[
+           Part[{{"Package-X Primer", 
+              StringReplace[{
+                URL["http://packagex.hepforge.org/primer-2.1.1.pdf"], None}, 
+               "paclet:" :> ""]}, {
+             "Ward Identities and \[Gamma]5 in Dimensional Regularization", 
+              "X/tutorial/AdlersMethod"}, {
+             "Extracting Form Factors from the \[Mu]\[Rule]e \[Gamma] \
+Amplitude", "X/tutorial/MuToEGamma"}, {
+             "The Scattering of Light by Light", 
+              "X/tutorial/ScatteringLightByLight"}, {
+             "Tree-Level e\:207ae\:207b\[Rule]\[Gamma]\[Gamma] Cross Section \
+by The Optical Theorem", "X/tutorial/PairAnnihilationUnitarity"}, {
+             "Bringing the Arguments of D functions to Canonical Form", 
+              "X/tutorial/ArgumentsOfScalarD"}, {
+             "Linking Package-X to COLLIER", "X/tutorial/LinkingToCOLLIER"}, {
+             "Linking Package-X to LoopTools", 
+              "X/tutorial/LinkingToLoopTools"}, {
+             "Linking FeynCalc to Package-X", 
+              "X/tutorial/LinkingToFeynCalc"}}, 1], 
+           2]]]], "\<\"Ward Identities and \[Gamma]5 in Dimensional \
+Regularization\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/AdlersMethod"], "\<\"Extracting Form Factors from \
+the \[Mu]\[Rule]e \[Gamma] Amplitude\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/MuToEGamma"], "\<\"The Scattering of Light by Light\
+\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/ScatteringLightByLight"], "\<\"Tree-Level e\:207ae\
+\:207b\[Rule]\[Gamma]\[Gamma] Cross Section by The Optical Theorem\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/tutorial/PairAnnihilationUnitarity"], "\<\"Bringing the \
+Arguments of D functions to Canonical Form\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/ArgumentsOfScalarD"], "\<\"Linking Package-X to \
+COLLIER\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/LinkingToCOLLIER"], "\<\"Linking Package-X to \
+LoopTools\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/LinkingToLoopTools"], "\<\"Linking FeynCalc to \
+Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/LinkingToFeynCalc"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/guide/PackageX\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/guide/PackageX"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                
+                "http://reference.wolfram.com/mathematica/X/guide/PackageX.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/guide/PackageX", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnXdgFFX+wO/Uu/M8S9TDqKjZ0EONFOkQIHQIoSYhCWxCJwRC6E2WIr0E
+QlOKIfRq6IJtRUFQSqQHECOicneKQfBy3t3v3u/7fTNvM7s7W2azyUzC94/P
+eSS7M+/tTub7ed/3fW+CE0d0G/jQ7373u1GPwv90SxjXIjU1YUL3R+AfLSeM
+HpD4MPyftcDD8Br8IWOMIAiCIFQZsfd8LSBc73YQBEEQBFH8DN1/KTn20Fc5
+ereDIAiCIIjiZ8DBnMxOh2/mY15A77YQBEEQBFF8pOw9Fxj77o2ctodvscH7
+ryzRuz0EQRAEQRQfI/adD4969+tbbY/cYvhfvdtDEARBEETxMWzfhZhOR27m
+owdgTiB57/kYvdtEEARBEETxMGT/JUsHdADZA+KoXpAgCIIgHhj6H7y6R+kB
+7Q5/y0ZknaN6QYIgCIJ4AEg4eNXq6AExBygnQBAEQRAPAtwD3rP3gDbvfsuS
+s6hOgCAIgiBKMyl7sgOjD399S+kBCHpA10O5d/RuH0EQBEEQRceIPWcVHvCt
+nQcgg/Zeov0ECIIgCKKU4soDxNwAMv/AGZPe7SQIgiAIomjoe+jaaXceELP/
+OtUMEgRBEEQpJeFgjtXmAUecPaDtoZtsYNZFmh8gCIIgiFJIv4M5ezx5QMuD
+N1nyrmx6LjFBEARBlDIG77tgQQ9w3ENA6QEtDn3LOhzIzde7rXGJCwJ79V0Q
+g3TsvWBJu+j5me1jFmTW7TY/R2JBTr3uC3Je7DQ//8kO81lAx4XsqU5A50Xs
+yc6LWUCXxeypLmksIHIpe6ZbOnu6+zL2TI/lrE7cilsN+67KaWR+Myes31un
+IwevyewyZF1m35EZMX1TM2n9JEEQBFFqSdpzLsaTB7SUcwKxe6+eLo42dew1
+s3vXuHnJbaPmZTbrMddap8ucnPId5txB6kTOzUEa91iQzT2Au8BCTrve8N/e
+izLbx0p0iFuc2T4uLbND/JLMNnFL9tSPXpJTP2ZpjqMHlOm1gpWJWsWej3mT
+vdD7LVY2bjUrG7+WBZnXMVNCBgvql8leHrCR1Ry65U6bEVtPR47cujZx4i7y
+A4IgCKLEMzzrbK3OR27me+MByIB3Lmb68/y9+swLj4ydCzF/bmbLnnP2NOs+
+x9qy59w96ADoAj37zI+J6juvSOYkEpJW1uo5aKUl3LzC6o0HPD94CwscspU9
+P2w7Cxy+iz0/YjcLGZWV327ivtN9LQcsw2YeCtT7+yQIgiAIrUS9e+OW2p6C
+wgPaKjyg1YGbbOiuc8n+OG+MeV6tiN5zLT3i58XEJszTPYb2H7E6sMug1Zla
+PKBsahZ7ccw+9vL4g8w06QgLnvI+6zrzQ+vQuR9RPQVBEARRIhiw/1Km2p6C
+jrWCwgPCgGE7s0t1Xtycsi7cVw+oOO0jVvWNoyxkznHWfsGJnBFpx+m5TQRB
+EIRhSdrzZYyrPQVdeUCL/d8wvdtdHHRNXp9ZGA+osuBzVmXxaVZ1aTYzrzjj
+1zkVgiAIgvAHw985E9j98Dd3XO0l5MoDWj4gLmAetSHGHx4Q8uZFVn3dFdZn
+3QWr3n0iCIIgCCU4N+CNByBKD3hQXCB+1MZkf3lAg/VXWbON11j/jVeseveL
+IAiCIJDkd87U0uoBwgWa7nswXKDDiM1Wf3pA2y1fsa7bbrDUbVdpv0aCIAhC
+d+IPXD3tbk9B5dyAowc8CC4waPyWwHJJW/P97QE9d+ayvu98kz9151Xd10wQ
+BEEQDy5JWdkx7vYU9OQBTfeWfheIHr11SVF4QOw7N1ni3m/ZpD03LHr3kSAI
+gnhwiT14PcfTXkLuPKDxnlymdx+KksHjtwa+Onz7naLygEEHvmMTD9zco3c/
+CYIgiAeTYe+cCS+MBzTbm8td4LMTnz+qd1+Kih6jt2cWpQcMe/d7NvHId/S8
+Z4IgCEIX+u7PsXraU1C5ZqDJvpss6p2cHKUHNAGGbT1bKvcaGjJxe2CFETvz
+i9IDRr13m73+wQ/kAgRBEESxk7zrVKC3ewkJD2iz9+t84QLCA5AhW7P9sgex
+0eg8Zqe1qD1g/Ed/ZzOst61695UgCIJ48BiUdc6ixQNwXgA9IGp3To7SAxpk
+fc0Stl8odfvo4fMGi8MDpnzyI5t99Hap+/wIgiAI49Nnf85pbzygxf6btvoA
+9IAegNIDkB47c0pdjrtR6q5bxeEBMz+7wxYcu03PLSIIgiCKleE7vgj0dk9B
+4QFI4o4LmT12SS4gPKDhO1+zVrtv5OvdJ3/Sc/w7mcXlAfM+v3NH7/4SBEEQ
+Dx6Ddp1N9nZPQeXawcQd5zN7ggs0VXgA0mD312zYptOlYmw7YPLu8OLygDmf
+57FFJ/9h0bvPBEEQxINHv6wLmd7uKSg8QLhAzM7Lpx09oBGQtP3cCr375Q8a
+j8m6VVwesPDUz6VuboUgCIIoGcTsv5bj7Z6CwgNwXiBx+4XMhO3nMx09AInY
+cfWW3v0qLFET92QWmweczstf/MWPtPcwQRAEoQvtD+Tma/WApny9wPnMQVuz
+LY4e0HjXDdZg5w02fOOpWnr3zVcGvp4VXmwecOYuSzv1U6nck4EgCIIoGWjZ
+U1B4AF87uO185rBNp8LRAxo4eAASv/l8idxLd+jUrMC64/bfKS4PWHLm5xL5
+OREEQRClg6TtX4S720PAlQcIF8BjtNh9I194wGuyCzQEmu24XiLXE0RM2mct
+Lg9Ymn23xM+lEARBECWbodtPx7jzAMc9BZVrB81bz3EX6LXt0mlHD6iPuYEd
+N9igjWctevdRC31e32cpNg/48pf8tLM/U40AQRAEoStDt5+K8cUDGgPxW6U5
+gEGbz1rUPKDBjq9Yu21XS8x6+SGWvbWqTjiYXxwekH7uHluanUc1AgRBEITu
+DNl2KkZtT0FPHoD1Ad23X+Fr4IZnfh4oecBXdh6A1N3+FRuYecaidz+9ocnE
+A7eKywPSv7y7RO/+EgRBEASCLqC2p6ArD1CuGei487ptzN9ry8XTah5QD2i7
+1fi5gYgpB6zF5QHLzv1i1bu/BEEQBCEYulVyAce1g00cagXV9hDAeYHh60/y
++e6hG07FqHlAvW1fsdpA38wvDfu8nT5T91uKywNWXLhHtYIEQRCEoUjefCLQ
+3R4C7jwA5wXQAcSxOm65/K2aB9TZep012XI1P3nd54bbb2DgtP3h1Scdzi8W
+D7h4/87Sc3epVpAgCIIwHL56AJKwqWC8P3T9qRg1D6gr02vTxWy9+6okadq+
+wOZTDt8qJg/ITz9/t1Q8o4EgCIIofXR/5+otbz1AuZcQrhnotO2KXc47cvOl
+HPSAeg4eELrlGnt18zWWtP7MG3r3V9Dh9XdPF4cHrLr0K1t+4RdaM0AQBEEY
+lvgdF61qewkJD1DbU7ChrU7wBkvOOGnL/Se9fTJceEAdhQdILnCd1d90NT95
+9Qnd5wpiLIcyi8sDVlz4xaJ3fwmCIAjCHf22nl3ijQe42kOg34azduvjYjO/
+3KPmAbU3X2M1Nl1j7TIv6Vo/lzDtYHJxecDKi/cMWzNJEARBEIKkTSfDHdcO
+eusBSKct9vMEw9d8Fth84+Wf1Dygpkyvt7+06tHXQdMPhNd4/f384vCANy/f
+16WPBEEQBOELHXdfu+O4l5A3HlBPrhUcu/HzTsrjJa09Ge7KA6pvvMpqAP1X
+n7IUZx+Tph8IbDb1vVs2D5h9jDyAIAiCIGRit1+wuvcA9T0FxZqB6A3nrI7H
+THz7zBI1DxDU2HCVDXjri+Ti6mMHy3uni8MDVl/5lfYQIAiCIEocQzd+EeNq
+7aAnDxBrB4etda4JjMr40urKA0KAOuuv5CetOlHka+16TDuyp7g8YNnFe7SH
+AEEQBFEi6bDz2h21PQQaeuEBWCcYnelcAzD8zeOBWCuo5gEhmTmsKvBqxuX8
+YatOFpkP9J1+2EIeQBAEQRCeMW/OznTtATfceoBYM5C0xnmMn7zqeGCzzMt3
+1DygyvocFrJe9oGV/s8PDJpxKJw8gCAIgiC8IznjeGBhPAD3EuqSeSFH7dhD
+3zwR/lrmlXw1DwjJkAh9G3xgxWd+84GB4AGvTvswnzyAIAiCILwnZst5qycP
+cLWnIK4ZwDrBAWu+sKgde+iqE+G10QdUPKDi21c4oesu5SctL7wPJM04GBg2
+/YNb5AEEQRAEoY1hGZ/VcukB2ws8QG0vIbFeoP7GnHycF1A7PvoAzgegB1RZ
+b+8BlYAKQI21hfcB8gCCIAiC8J3oTeetWj3Ace1gt7e/PO3q+EkrP5N8QMUD
+KkCcriiTuPykxZf2R85430oeQBAEQRC+k7zueGDYtmv5yr2EtHiAbS+htz63
+uDpH0orPwrE+wJUHBK+9zMqtucTiln2haQ/fHjPe20MeQBAEQRCFx7zhbGZh
+PAD/i7UBQ1e5zvUnLT8ejvUB6AEV11128oDyb11k5YDolac/GbH4E4+xt+/M
+IxbyAIIgCILwH2235NzR6gGOewi0evvCreErjrmMncPAB2qsvZhfwc4DLts8
+oDzE8UorL7Dw5WduJS0+5tIrEmceTiYPKD2ULVs2FAjzhrZt23fo1LlLhDd0
+9oEuXbo21vvzIHynd++4kMjIbumCrl27u6VHz6hUf5w3Orp3hJKYmFi39Omb
+UEbvz4og1Biy7mSM+tpB7zxArB3ssfqs1d15kpYdD6+/5sIdVx5QeeV5VnH5
+OVY7/Wx+0uKjoxzfP3jm4fC6bxzNJw8oHUB8DwCYt7z88issOLgcq1ChIqtU
+qXKRUKVKCKtXr/71Tp0iNMUJiD2N8b1qVK1avUioUaOmV7z6au37rVu3tXbv
+3tMr14HXRYB3WWvVCmXeAufwijp16vkEfCc2IIab1doNPrcBf9+gQUO3NGrU
+hAOv31vYaxhjf7NmYaxFi5aqtGrV2g74XO8rXSC+jzkEvhv8uY127To40b59
+RxsdOnSy0bFjZyfg2i2gcxdOZwUREZE2wH9twDXM6datBweug/vQPyu0N8Lb
+zwOOsxTe92NsXB+GQP8MB7Tvspv2T4Lr68fesfH/07udSsBz/wvfyVc4Jirq
++3Jsxtk9rtYOeuMBVeT1AnFvnnI77z98yaeBzd46dwvnBiqoeECVZV+yahDn
+g6ccYZ1St1n7jVzL4/Kgme8WhwfkkAcUH3Bdp2hxASVBQSbuBUXhAgKIXbe9
+zRXAPXyDUV1ACdzn+rvrB8SNTVocoLhdAGL4fVdth9h7W4sLQJwrdB4I4u0Z
+LS4An3+68v0QlzYY1QVkH+BAPPLoxl27dv82JiaWCQ8wqgtAX80u2r9F77ap
+Ae3i15Li/pdRlPfl5LeOBYZvunLHVw9Q7iGQuNJ1LSGCPtBh5dkc9IAKq+w9
+oOqiU+AB77EXR+xiQea3WZ3ey76PHbKiZ5M3Pr5TVB6Qdv4+W3bh3vt6x8YH
+Dbims311AUcv8FeuwDGOQ/y8D/dCjzldiFe3S4ILYI4gKipGtT8QG2b44gHF
+6QIQ31TH8j17RUeI13jjAhB/bxf2+oVzpqIHeOsCELudzgmx+3ZJcIHuPXrd
+T+w3wOXfARxrKXqA0V0A/O9fau3HfIDebVOL/zjecXHfMxflvTl+5Wfdq627
+yGphvFd4QC0NHoDrBepkXPkX1gt6/FtadsoqPKAyeECVtDOswtQPWGDKbvZy
+YgYr02MZe7L9fBacmsWqzjjqNw+Y+OlPbNTRn9igj39isUd/Zt2O3c3QOy4+
+aMC1bPKHB/g7X6AWy3HM764vcH81u/IAo7kAAvc9pzEe+gHE3PtGdwFX8wMQ
+7/ZqcQGsFyjM9Qv36zIQo29rcQGIQ3Zt7x0b3xg9oES4gJQbmOHq84Dv5b8l
+wQWgT0fU2g+u863ebfMi/ivJLep7dIVZn1jKv3GUVZxzjFVadJJVTj/NKr95
+joWsvchdQHiAuz0FK8n7CA1d5tkH+i45sQQ9IGTpWYbPE3g+5R1Wtl8m+2vP
+5Sygw3xmGr6LVR6yi1VM3ssqTTuqyQMG7r/FBgPmPTdZ3J5vWc+sb1mnPbdY
+5wM/sC7v/YNFWu+gB1j0josPIoWZHyhKL1CL5ThX4K4vcJ/fW5JcAGKDUxzE
+nAD+zsgu4G5+oEmTZve1uADE4ZDCXL8QG9OFB3jjAhCDzzgeA+LShpLkAvCZ
+qTox5gTAJVlJcAGIt6oxSY/6APys8DvA69HL+G9HcdynK848agVYJRiLV5j+
+scS0j1k5i5WFzPqUhcw+ziovPgVj9C9YpVUwpl95jlVad8lpL6Eaay7lD1v6
+qdPzjR3pn3bcUnv6R/llYfz/4oANrEyvFeyp9vPYC4M3cw+oNGwPqzh8P6s0
+8l1WacrHrBq4AHpAE6Dp2kusbcYV1mr1RdZ23WUWvvoCa7nmImsE/24G7WgB
+rhC+9QZrv/MbNQ8w6x0TH1TQa4vaBZRg3aE3cwmu4rm7vuA8QklyAawjdOwD
+xNLrRncBrA1U+/wxV6CsLfTkAhBDneKyFiDGhSg9wBsXiIvv6+QeOGdQklwA
+Ypfq5wbv+bEkuECvqJh7Ltq/tLja0L1HL/4d49+aH+5rYUV9nwYPCAAPyJM8
+wGrzgHKWj1jwVPjv6x8x05QPOcGTP2RBkz7gmCZ+wF6Z8D685mMY4x/lVJ78
+4flXxhwJ8HTOfpN2hVeOX3X/hcj57PlwC6uUsJZVTNpt5wEVRh9hFcZ9wKpO
++ojVnHqU1Z5xjDWY9RlrNP9z1mjRadY4PZs1Bi/xwgPyyAP0o6y0jrDYPMCV
+G6itSVCL5fhzV33xND9gRBeAGGIXU3v2ig4RvzOyC8C9XLXWD/pj1eICcD8u
+1FpCUS/orQvg+N/xGBAzzcIDSpALWB37Aa8vjx5QElwAawPVvk9cN1CE/sG/
+Bxz7F8F9zGNc9QfgAaGqHjDVvQcgQePe47wyFhhzhAWNOZL9ymjPPmBqNy0g
+qNmY7PK9ljjlA/zsAaF6x8MHGbiG0/R2AXdu4BjLIRZdc9UXT/MDRnQBxzkC
+iA8zjO4CuEZA7fPvHRtfRukB3rgAxCif1/cr6wW9cQHHNYQCiEt7S5oLQGxT
+m1vaUlJcAL3Fsf34M3+P+0Xs9yXvr4XivGeDB5i98YAg2QOC1D2AgQew4FFH
+ssuNOuzRB0IGbbcUoQdkkwfoT9linh8orBtALNqh1g/4uy/jyQOM6AKO+wxA
+fLxtdBdwNT8AfUnV4gKF2VMgLr5vGYjv97W4ALiDar0dxPf7Jc0F+poTzY79
+EPMDRncBHPurfQ+FWUcIHsrr/fB7wGu0mO9R1uK+b4MLpHnyAJPsAa+Mf9/m
+AS8DwgOCAPAAVn7U4ezyI137AHiAuYg9oFhyKoRr4BqO1DvO+0CkWl9wP6KS
+5gIY95V9AJ9prPy9UV0AYoxqrR/E0etaXABis9nXaxdiqrVJk2ZOHuDKBSAu
+X1c7TozD/ECJcIEevZzqNuE94cIDjO4CWBOg9l1omR9Qjvnx71rne1KaHvdv
+8IAMk1wjwD0AMGn3AFYu9TCrMPLd7CpJWU4xuYg9IIM8wBjANZyh8ZrH13u1
+R7EH0EGyfPiby3PVF7jft4X7wgK4J6cXBrh/ew3cizgQM/b6o1YA/63VBaDP
+t6EtGyCupDsC8cVrIJZ4BYy9VMfWuOewowe4c4FWrVr7vKcAxIEZ6AFaXADi
+oup+fdDuCNxzSAk4iiq9omKciFIhOrq3KtAGO+C1G3xxAWizUz4F3n9Eqwtg
+vT6u34Njf16cqH0P7uYHRNzH79Ghzi8PsPgRX/dY0SW/DR4QAB6Q7eQBgJoH
+4NxAsLoHsMoQ66smZuZWjEq39aWIPcCid/wjCnj55VfyMP+uAZOfz5+t8fy6
++Lc3YBzXOm7HPIDyGBDbbmsZw4MD7IX7vSH203dc1+cuLmMNH/Tdpz0FcB8A
+GI/fV47dHcfvynE7Av5i1fvzcQXEaPQrnt9WzgFg/EPATWxg7RuSkNDPqW4T
+fv8vzJML4uL7cvqaE20kJPa3Aef9F5zTac5ex+tnC7aXx/3OXfi1g/k2N/cC
+vHf5NQbD8QKAXI33pFw9PzfwgAAgW4sHBI86Yu8BEOdD+m1gFaKXsaCI2XnB
+rSaFFrEHmPW+3gjFNRRcLhLn4DWQXQRtyNPYBsPWl+A4XEueHe51duNiuJc3
+VhtXuxpr4xp+GB8awgMQiLm3xZo9x5y7Wg5ebV2fJyCelQH/ua+Wo1fLzwvg
+fYXav6AogXHvDBHre/aKtiHG99HRvW3A940x3CmfAmPtcBw/28X9hH6cfv0H
+2hgwcLANiL0e95spToKCTFZcZ6wB1blCHdqh+/gkaNIHJvCAPK0eUH7kYVZx
+xAEW0n8TqxCzkgV1mcOCw6cwU8c3/lkUHhCR9Q0rFzmNmRqmWPT+zIgCKlSo
+mIW1eBpI8fP5IzWeP1fvz8wduJZO7K0vEHlsNRxz7VhH5/gatXG2ICIistDP
+8vEX8lhddQ5djS5duqrO3bsD4znEvOvu5tvVcu3QtkLtaVjUQAy3YoyX47xT
+Pr9P3wQbZozvif2d6jbBGS73HzCIDRw0xMbgIUmcoUnDbSQPT+GAI6jW7ukF
+/G2bNN4LEL/PM+MxfWiHIcYn4AGhr0x4P094wMvjCjwAawRMow87e0DKQVZl
+wGZWsTd4QOQ8FtR6Cgtu83qRrBtsvfY0C2o3CT1AkKH3Z0aw31WpEhLgTZ2d
+AyY/nz9X4/kten9ursDxuTfPwlGC8+vKY+B6N0/jaeW4Gu7/Zr37LegVFbNB
+1MU5xmq1mA19d7l/riMQD80wJt4r8uiOqNXYi/w6tOu2u3379QbG52UwvguU
+OXy1sbwc553mB+Bn/8VYPyx5hI3hI1I5I1PH2Bg9ZhwH/Ei1dk8v4G87ReO9
+IKuI2uFxfxIH/J4rLQzgAaHgAXlBLjygnMIDcG4gZOBWVin2TWbqOp+Z2kxl
+QeGTWZWB2/zuAc3nv8eCW4xRegD5gEGoUaOmWWOdWx5g8SPZPtTambzoV6Sf
+2+kVderUy8S8v8gHCA/AuK1Whw6x0W5cjHvjO85xO6IcV8P7C/0sH38CMfm+
+qHVD3MVsJCYmdi/OkyMw3jXDmD9CAP9Oxf114TM5o5wvV+bPlYg5dGXdnMip
+w/jXq32MIPZGQCxOFyS4IrE/B/xCFYjdHBij24AY7gTEbg78/73KsfygwUNt
+DBk6jKMc1ycNG+6UT0EnHJk6miGjRo+zMWbsBM74CZPtGD1m/P/0vl5U/m61
+3g/MRdSOLI3t8Guu1B+AB4S+Mva9PI8eMGg7qxy/mpXrtoCZ2lqYqfWUIvGA
+uqMy1RyAfMAg1KoVmuXrejWdcOvf8PtIIM8A7VRF7NWH8/yY34ex8yRl+2Es
+u9fdfLfj2jSIjW6fz1ScYCxXxnlXY3RXqMV6Ed+VRLlAxH1RN49gvj2+j9nj
+3sYQ181x8X1vi3o7kZ8XdXeIsp5d5OrV5uUTFON65Rw95u4FyrjvmMtHhgxN
+tgFxn5M8fKQN8AGnfAo4yGUx3h87bqKNCROnqALnvKz3NePwt2vy4W8qDbAU
+AVrbYdL781MDPCBMsZcQ94BghQdUGbyDVYpfw8p1X8RM7abxuQG/e8D+7+7V
+7LPoVw8eQD6gIxCXTL6uK9cRl/6NvzNA+7QS4NCHPPy5sk5AzAUo6+JErh3i
+kur+v3qA69sc693V0BLrlfVyrmK9E4oaeojRZ2DM7bZeEOJ0qmNct+XqFUCs
+taEW31Vy+A7xfZjTGF+Zy1fG+hEpqTZEXl851gc3cOrTuPGT/jdx0utMIGoC
+8HzCXfDzFfMzcJ2pzm/Dz8OKAVMp+ftFnMYnZcuWDfDTmmuBz7UI4AFm4QFY
+IyA8AGsBKvdZy4J7LGZB7aez4LZTiyIfkN3lvX+EQowPALLJB4xJCf3bU60T
+ku8verdNK1kOfYjU+P5cva8hAc7Fu8vbuxrPa4r1ihjvOH5XjuHlOvrbEKvN
+ntoNMTxCbYxvNBdQzhvAea+oXP+Rcnwv1LVTjH9HTrX/8LNsA/xN+oLTdVZW
+n73bcE8E1fsjeIDZzgOGvsOq9H2ble+ZxoI6zgQPsBSFB2SBB9i1B+M8+YDx
+aNCgYbanPeINhss6Ifid1QDt04rZoQ9ZGt9v0fsaEiQk9k/VEqvVcBeT7erq
+VHLxCMZoiMlnIG6avW03vt4xvitjvFouXxmXlfFdLa+v9AdxTP7ZOPiNY32l
+lutGvnYyNF47qvk1H47jC077hMHPTAb4e/QVp/hbVr9nu7j2gdTDZj4vkJTF
+QswZrEKvpcwEHhDUrkg8wOW9SYMPeP13TPhOs2ZhJnfr1AyK6rXRpEkzk7s1
+ewYmQNGHAB/eb9L7OhK0aNHSinWN7uocnPbQcUSlhsAblwA/uAfxeS/EZk3z
+Jfj5eVuHqFwb4bg+Avum13Wj6EueP64dH47jC07r8PFnBvh79AXV8UlZfZ/t
+kudqTqHysD3mqomZrGJUOjN1msXnBvzsAXngAR73e8A4Tz5gDFq3bmvxdt2a
+QcgDVH23VavWae7W7BmUDIc+mDW+3zBrmNq162BSWyNRDGQDZsCn9eXwGaYY
+4DrQilPsgZ9F+uPa8eE4vuIUp+BnuQb4bH3B7NgXXHPtwzptf5MHqPpAhehl
+5qCI2Sw4cp5fPSA888Jt8ACTt39/XvpAHmCIfRtKKzCGy/W0ds1gWEpRX5BI
+hz5kaXy/YdYwdeoUkWL33J3iIw9weV148TeQbYDrQCtmlX5ovXacjuHjcXwh
+V+W8oQb4XH1B9Zkoo8eMTwGYzuQCYa6u/Uq9V67x5z5CjV9/x6d5fnh9ipc+
+QM8tKgI6d+4SqrYHjIFxOQbuBH1xzN+WAPIc+hDgwzFMel9HgsjIbrnKPQV0
+wKq1zfj5GeA60Hzd4LXih2vH6b7q43F8wWl+AH9mgM/WFzLUrq0169ZnAUxH
+LO6ufX8+X6DNxiusZuLSQtX9eVk/oPlvnPBMt2490hzXgRsYK+DSCbt27Z7m
+ah86A5Ph0IcUje8vkr3WfKFnr+hQV3PuxYxFS7tLw3Uj98Psj2vHh+P4iknl
+3LkG+Gx9QXVe/MTJL1IAi044fb5K/OkBzdKPs+AIi1/WAXjpA7o/76G00Ssq
+JldtXbfBsPbyYm/dEtIXRyId+pCt8f0eP5fiondsfJra+gE34OvD3JACWDUe
+E8kDvM4jlobrRu5Hlj+uHfnvrajb75Tfg5+FGuBz9QWXz0w3Kv70gIaTdzFT
+mOpewj75gIb9B8L0/hxLC7FxfSKVtdlekKt3m930JUxjXxAL4Le5JzhWaGE+
+T/i3yYc+GGbuLCGhX26C4zo/95i8PK5F43ERr55X58N3hqTpfN04xR5sjz+u
+HR+vQV9wqnGBn2UU07n9TYkao/rLA8IyLrFaZqc5AX/5gEmuDaDagWIgIbF/
+hnJNthcY9pr3oS9eX5fF9XnCv1M0vt8w8wMDBw2JdLX+3gWa1j7A63M1Ht+r
+axW/A70/cx/a4HTt4r7J/uiHD9egr5hUzp2n8RgUBzQCHpDmDw9omvYpM3We
+qsUDfPGBMC+OZ5h7YElm0OChecrnnniBYddzGKEvhW0D/Dtb4/vNen/uguTh
+KRlin1sv0dR2eH2axuNbvfzOcg1w3WhtQ5jKMaz+uHawf3h8jaRpPLfT/Rt+
+FqnxGIZZR1tSAA/I8IcHvDZhJwtu7nFOwF8+kObF8bzKARLqJA8fGanc59QL
+cvVusx/74vf7SGE/T/h3qMb3G2aOctTocQFAnnKPfC/QNKaD14dpPD7z4jsL
+0/tvwIfv3akN8DOTxmMgfhtT49+TxnObVY6RofEYhllHWxLwhwc0XXOeVY2Z
+XxgH8NUHPNUO5NJcge+MHjM+S+MaVcP+7Y0eMy5DPJPNSyxGawP8O03j+zP0
+/twFEye9blY+B8cLfMrraTwH4nYM78N35vc5Mn+0AX6WovEYfsurwrHCNJ4b
+cbpvw8/yNB7DsDlKI1FlwOYAv3jAwqP/NbWZ6C8P0LQWAF4X6sWxLHp/1iWR
+yVOmBgBMIya92+2KSZOn5gFMA36/bnxog8nh/bl698FXps2YlQUwDZh9PE+2
+P89TQq8bpxgIP8vWox9wnAAfzu3kIfCzSI3HYHpf8yUB2QOy/TAvYJHjsada
+Pl9w+zcq8GKuANtm0vszL2lMh3skwDRg2Lk5H/rC+wP47bop7OcJ/w71sQ+6
+z5PNnbfQBDCN+JTPg/dlaDyPy3EHfnY+fOa5+F358brR2oZclWOYfOhHnnzN
++vQ9yOc0y5+H1nM7XbPwswwfjpPma/sfBPzkAbngAWHimEXoA948syDAi3Nn
+6P25lzTmzl+UBTANmPVusx/7YgRSHPqQZoA2eUI1r5y2dHkKwDTgc37ah3NZ
+3Vw3GQb4TAt13cj9SDFAu7xFtcYFf26AtvmCSe/7nxrgAaF+8IAs8AAn1yoi
+H/DqOQMm7/YoNuR3YkTg/mjSeD9FDOvfPvTFCJgc+pBrgDZ5QtXdYeydrXGs
+bvb1u4b3hmnNQbi5bvIM8JkW6rqR+5FtgHZ5S4ZK+8MM0C5fMGSuVPaAvEJ4
+QB54gNu/0SLyAa/q/+TXUW7AD8yeuyAFYBow7PpNaFuYxr4YgSyHPpgM0CZP
+uHruismH56QUyit9OF+YynUTaoDPVCuqsccA7dKCk0/CzywGaJcvGK6WGjwg
+spAeYAUPMHlzriLyAY+xxuTd8wwNO3Y1EqPHjMvWWK9r1rvNbvriSw2z3phL
+YB8y1D5/c0K/NIBpoNBeCcfI1nhOp3t2CfnMHSnp/ch18TesdR2FUTDpff9T
+Ah5gBg9ghfAAi9ZzFpEPeGyHF7kBw3ma0ehrTjQBTAOGWcPuoj9hGvtjBAJK
+YB/C1D7/du065AJMA+bCfudwjAyN58wojddNCeyHah0n/NxqgLZpxVC5UvAA
+SyE8IBs8wOd6WJN36/20onq/UZzTU24gV+/vxOjAfdFS2PuokYD2hWnsj944
+3UNKQB9U/65q1QoNA5gG8oBC5+7gGGaN53XKrUOfQg3wuRbquimB/VCNN/Dz
+NAO0TStmve99AvCAjEJ4gF/2y/Ayb++32gGTd2sKaP8JN8B9MVfjfVT3NWue
+qFGjJitBqH6e8PM8A7TNFar3iwEDB2cATAMZ/vi+4TihGs/LSuBn7ojZzfWf
+a4D2ecJlnR3+TRigfVrRfT46pN/GAPCALB89IBc8IMyf7SkCH3B7vzB5fq6x
+YZ+dozf9BwwKBZgGcvVuszf06z8wA2AlAJfzLfA7iwHa5wpVv549d0FeYevG
+fMWHOq+wEnzdIC5jD/wuxQDt84TT5+/Qh2wDtNFbdJ8fkD0g20cPSAMPKBKX
+wbn+4por8GJuIlfv78mozJo9Lw1gGigRXgXtNAF5GvumBxke+pFhgDY6ojqe
+27ZjtxlgGvBr3Qkcz6rx/E61RNC3gNJw3Rj42tHSfvwurAZoqzfomisFDwgF
+D8jzwQNywQPCirp9XozX/TlX4KmG0KTnd2VUtm7flQcwDZSY+ZYt23aGAlaA
+GRiP9xB8DZBtgLYKVOtxz2afMwFhGvDrtYTH03h+U2m+buS+hBmsL3mARePf
+sRnIMkDbXfZJz/sceECkjx6QBh5QbPMaJs/PEtKCy2vI5HnvIbOe35cROXX6
+bAAQ5gUWgd5t9rGfoY79MAo+fl9mndtt0vs7LabrxlQarhuDXDt43jA//i0b
+6Xsx63WNggeYwQOYRg/IBQ8o9HehFZNU2+dpzK4Fk4vzeJonyND73kIQBEEQ
+/gA8IMMHD0gDD9CtxtHk370HXNZoeHAOQ+4NSRAEQRDeEpKwPgA8wKrRA3LB
+A8L0bjti8u/aAtU+mTw8v1Dvz4AgCIIgfAU8IBQ8IFujB6SBB+i+3lGJyX+1
+hFYXx4/0ZX6BIAiCIIwMeEAYeECeBg/IBQ8I07vdasi1A/6qJXSqQZaPrzmf
+QBAEQRBGBTwgBTyAafAAC3iAoXIBjnhR4+ctGS6O765mIEzv/hMEQRCEt4AH
+ZGjwgGzwgBKz7tvkv32InLwHfpZFLkAQBEGUZCr3WRsAHpDtpQfkgQdY9G6z
+L/hprsBpzxMPnlEiPyuCIAjiwQE8IBQ8IM9LD7CCB5j0brOv4BjdDy7gtE7Q
+w3EtevebIAiCIFwBHmAGD2BeeEAeeIBZ7/b6A5N/1hWYHI7prh7B8M/XIwiC
+IB5MwAMyvPSADPAAQ9cGasHk3fOGfZknoHoBgiAIokRQOX61CTwg2wsPyAUP
+CNO7vUWBh/l9b3Dah9CNX5TKz5AgCIIomYAHhIEH5HnhARa921qU+CE34PSM
+KPiZ1Zv5BIIgCILQC/AAC3gA8+ABVvAAk95tLQ78kBswORxP1QX07idBEARB
+VI5dFQAekOXBA/LAAx6oGjeT5/0CPRHmcDy1PQbo2UQEQRCEroAHhIIH5Hrw
+gDTwgFJTG6gFU+HWFKQ4HEstz5Chdx8JgiCIB5eqsatGggcwVx5Qediej+uP
+OlTnl7t3H7l79+4f8n7++Q8/A3fu3PnjTz/99Mcff/zxjz/+48c//ePvf+f8
+7fZt5NHbP/zw6A/ff//o9999h/z5O+DWt9/auHnz5p9vfnPzsZvffMP5BsjN
+zZX4GvlayV++vnHDLfiagtfnFhwLEOeQuPnYt4p2INg2bCe294fvf+Btxz78
+7fbfeJ9qthzb2lcXCG40ctp//vvf3//f//3f7/HzduECTusNCIIgCMITGFv+
+85///P63f//7oX/9618P5//znw//ev/+I/d+ucdjNsZrOVaLGM3j3PdyTB42
+ZccL1eLe3OfKA6oM3XW3ych9gy9dvPjkhfPnnzx/7txT57788qkvs7Ofyj5z
+JgA5c+o0cOrpU59//vQXJ08+/fmJk8+c/OzEMyc++4zz2bHjz3527Nizxz/9
+9Nnjn3z67KdHP0H+KnH0r598/LGNo1ZrmY8/Enxkw/rhh16jfJ+EtcxRAI5f
+RnkuPLdox7FPPuFtwzZiW6HNvO0ngc9PnABO8v5BTL/piwtUaTZq1o3r1/9y
+g/tK7mOVm416w/E1r7WZ8Bp+R+hV6FjoW/gd3rt375Ff7//6CH638B0/9G/4
+rpVeQRAEQZQe8N7+bymmPyRi+i/yGPwOxnMYd//9b3/7E45XRSzHMS6OgW98
+9dVfrl+79vjVnJzHr1y+/ISI3cq4DfE6AOMZxjWMcz2T1zWvGrvqpisPaJC8
++63Zyw9Vev/w4cD33n33+cOHDj1/+MCBF94FDu3f/8LBffte3L93b1lkX9Ye
+IOulve+889Ke3btfytq1++WsXbs4u3fsBHa8sgvZvp2zY9u2oB1bBVuDtiNb
+tpi2bRZstrF10ybNKN8vscWExwf4uXZwpPPvhLaIdmE7kXd27pTbv/tl7A/2
+C6nRYvQaX1wA3jcPvUQ4SPWw0XPtXtNo5N1TX3zxNHoVflf4naF3Xbxw4cnL
+ly49kXPlyhPXrl59/CvhE3KeA68BzGOg4yk9wt4h8h/+7bffHkJnJH8gCILQ
+h//CGA7H7fn5+Q//+uuvfMwu4nvBWP37RxWx/S84hsR7P8YAZVy3j+kncMz9
+jDzW5mNdHBd/9P4Hz33w3nvP2WL4wYPPY/w+uH+/FLv37CnbPGGlpXLsKqbm
+AXWHbD/Rf/KODls2bQresmFj8KYNG8ptXL++3IaMjHKZGRnl1697u3zGurUV
+3l6ztsK6NWsqrlu9uuKaN98C3qy0etWqSm+tRFZWfnPFisqrkOXLq6xYtkwi
+PT1k+dKlnGVLkCUh6WlpVZGlgsWLBdWWLFpcLW3RIs3g+xA8hu148vHxXHBe
+hLdBak96yIp0qY3YXg60HfuAfcE+rYb+dew+Kc4XF3i11ZjF6B3CN+Dfi5S/
+r9p81HZ0K3Qs/K7Qu95793Dg+4ePBH743vvPffTBh88VuMQnf8X8xQmeszj5
+DHeI0+AQZ8/ynM3F8xeevAL+cPVKzhPXr157HD0RcxE4L4LzID+AS6p5g8g7
+gDM8RM5AEAShDczX4rgL76X370m5ebzH4jge581FnMe5cBzT8fE73Kchxj+B
+MV4xbreN2fFej/d8zG1DHCiD8QDjgojttnE5xHUcr+L4FceyfMwNMQfHvzge
+3rKxIJZjHLfMXF07NHb5STUPCBmw5ZfOIzZNkOL0khA5LvPYunjBwuqL5s+v
+vnDevBoL5s6tMX/OnJrzkFmza86dNavWnDfeqDV75szQWTNmhM6aPj30jenT
+X505bdqrMyyW2sj0qVOROtNef50zdcqUOpbJU+pOnTy57uuTJ9d7fdIkG5Mn
+Tqw3ZQLnNcGkCRM0oXwvP9bESXbngPMidbENFmiLaJfcztpyu3kfsC/Yp9nQ
+N+xjcKOUe1pdoG746GXCM9Av4N/pyt+HR0wYgo6F39HG9ZnlNoODoYvhd4h5
+DMxdoENgrgLzFJiDQa/Da0DpDuCAgeiCSm/AOQ+c60B/RI8EZwhAZ0DHxByS
+yDegg6KLfnfrlp0v4DwT1olgjgHnoTB3Ra5AEMSDiMjf87H9/fuO8Z7XxmEt
+Go6/xJge77M4RhPjeRy/4ThOGst/8izeq/GejfduW5yXxu8vSHn3LJ5vV8Z4
+zHVjjID4Hszj+9tijL6m4pq33qqIY1ccx/KxOIxzMa6nyzG91+Cl5ioxy++p
+eUDzIZmbxk9e2EzEb4zbGCN5rJbjM4+z48e/NnHsuPrjx45tMH7MmAbjRo9u
+OHbUqIZjUkc1Gj1yJGdUSkrj1BEjGo8cPqJJyvDhTVKSk5uMSE5uOmLYsKbD
+kaSkZslDk5oNGzIUaZ40ZEjzpMGDmw+VCOMMGhQ2RMnAgUiLwQNcg7/nr3N4
+Lx5LPi4/DwfOieceNnQobwu2CduGbcS2Ypux/Ugq9Af7hH0bk5raqEqzkWe0
+usBrrUe9iZ+tcIq6rUetLKgrTLmHnoW+hd61dLGUt8DvjvuDnJvAvAvmYDAf
+o/QGzN3gvAj63w6FM6Aj4tyNyDfY+cIH6AvWMjhfIXIMWOshuwKfn0BXwLwU
+zy2Aw35jm5Ow9wTMc/3666+2nML//vc/8gSCIEo8mNMXc/aYO8V8Pt73cK5e
+jPFxvlYZ88X4/uzpMzx/f9I2tj9qi/d4D7bFe3muXRrT7+Lz6XgfxzltvK/b
+Yj3c83kunufh7eO8GLtL4/YF0ph9zlxprI7jdIg5OKbF2N44Lm1zxZjlzNED
+6vXPODMoZW7XsRDTRTzH2MfjOMZwOXZjzMT4ifEU4yvG3kH9+7cY2L9/ywH9
++rXsn5jYql9CQqtEszk8sW/f8IQ+fVqbkfi4Nn3j4tr0iY1ti8T37t02rndM
+u7iY6HaxMdHte0dHcWKieiEdkOhe8N9ePTtE9+R0LKBHxygPRHMK3sOPw5GO
+jYhzxkZHt4c28LZgm7Bt2Ma+cUhcG3N8fBvsR0Lfvq2xX/2A/tDHeuHD12t1
+gfDOI8dLLjGqIfpTteYjPxa/q9kidT/6FuYoRG7C5g0zZ4Zi3mXenNk1MR8j
+nAHnP9Dx7H1hVaU1b77FfQH9UOkKIr8gzVHstMstCE/AOSWcW8I8VEFO4fiz
+6K+Ys0KfFfkEpSOIXMJtOZeAc1/oyvfleQfKIxAEUQLAOnxeg68c7+M9De9t
+eI+7KXL7irG+Mu6LnP4nH0txX8rnHw7E+yveZw/IY3zM42PM31kQ83n+Hufh
+1/OYv6YCju3xno73drzH43y2iPeL5HiP+XmMDzwnL8d6jB+Yd8eYwnPq48fX
+nwDj97gBM+NDY5Zcc/SAmglv/9B10OJJPL5L424e2wviuiKmx0uxnMdxjOEQ
+QzF2Y3zFeIsxuFeP7p16du/WuUe3rp27d42M6BbZpUu3LhFdunaJiIyM6BzZ
+pXOnrhGdkI7dOndEOnTv1KE9p2P7dj06tGvLad+2TU9BuzaC1r2Qto60DpdQ
+/KydHQXHQjq0lc6B5wNs54e2dOsM7cK2YTsRbDO2nfcDgD7xvkEfOzVpPXix
+VhdoF5GUit40aMCAFuhSIc1SssXvOkaOGI7ehbkU8IXG6GToZph3wRwM5mIw
+L4M5GjtX4HMWb9RC90MHxGvD0RPEnMRqOaeQsRYc4e23y6NnCkfYITuCyCXg
+vJOYe0B3LZh3wDyCNOeAtSrCD0QOAee9vrp+/XGsZcW1opgrwzkyW/5AdgOc
+T0PfNsDfPkEQDzA4RuG1fCrj/oJc/9eP4X3tqly7p8zzn/QQ+5Xj/V3bd8i5
+/c0mvPeKvD6O9ddiTn/VqkpvKuP+Yjnuw/gPx4F4n8e5eLzv4/0f44BFEfMn
+joOYDzFDjOtHQSwRY/pWsXOXVo5eel/pAVX7rLnfKjF9PY5xcbyLY18R53GM
+jONlKcYXxHeMgxgPITZ2KYjrHbt1gniOMVXEcIy9GJvbhLeKat2qZVR4y5bR
+rVq0iGnVIiymZVjz3i2aN+sd1qxZbFizpnHNmzaJa9akcVzTxo3jmzRuFN+0
+caM+TRo17NO4YQOkb6MG9TkN69c3N6r/mrmhRqT3wHvl4+Ax8fgInqspP2fj
+eGwDtgXaFBvWvFksthHbim0Ob9kiGvoBtIpq0zo8qq3sF2Hh8VO1uoDIR6BL
+xcf2bhvSdMSX+PPyjVNuo3ehf6ErYL4F3QwdDecuMC/DPcE2RzGq4Tj4vieo
+OAI6IV4jmA9CV0RnlPxgAZ97UPqBcs5B5BA2ZWaWk2oUtpjEXMOe3btfRo8t
+cAPMHxyxc4MT3A147oDPL2COjNcu5uQ8jrkzzKHxuQVb3kCqV0T3RgdHF9f7
+nkAQxIPDf+TcP9byO47/lXl/vIdhXR+Od86eOSvP82PN/jFbzt99/N/+CuZj
+Ra4fx/0Z69bxmnvM4Yo8v5jLt4v9s51jvxjv43w9jhMxFuAcvcjnY6zAuW6e
+xx88uHm//imdakctzK4Qlc6UHtCob/qRGPOoPiLmY/4cx/Q41sUxrxzvIdZ3
+lsfvHbqJWO8Q53mML4jvTWMxnmJsxTgrYjnG5Aav1UuoX69u4mt16yTWq1O7
+X93ar/av82po/9qhoQNeDa01MLRWzYG1atYcVKtGjUE1a1QfXKN69SE1qlUb
+Uh2oVrXq0GpVQzhVQ0KSJKpwQqrYI37OX1M1JEl6X9Wh1RE4Vo3qSPXBcA5+
+rtCaNQe+CueGNgzAttR59dX+dWvX7levTp1+2FZoc0KD115LQKfAvsgOge4Q
+3yysU4oWDwhpOvwCOhTmSTBngp91cKOU+/i7pm2GLJIcIaadND8Rx+clcE5C
++IHIJaAf4HwN+gH6HtYwYP0CeiD6IHoh+iHWYrp3g4XVsX4EaxJWpC8Lsc0v
+gJuiozrnDUQNguQFB/buK+voBUdtOYPjfC8GXBuJuTPuBZcvP4E5NTGfgOth
+scbGKV9AcwkEQRQhjnkAvP+Imj9cY8XnAL76Spr7h/EM3r9wfCPV9Ts4AK/z
+kxzgoGsH4Ll/HGvhmAvHXpijtR//L64K9+RqIuc/B3P+iviP9/KCsf+4+uNd
+xf8hQ5vxOfyBA/ncfcdYy+uVe6bdV3pA3fhl57r2mTIuWhn7xVg/IoKP8zFH
+jvlyMcbHMTDGfWlsHxbTonlzRcxvFI+xURnvlbGex3k5xvP4Lsd1jNMQt4dV
+qVxpWKVKFZMrVqgwvEL58iPKlys3IthkSjGZgkYGBb2S+sorL6e+/PJLo8q+
+VHZU2bJlR7/44oucF154YQzy/PPPOyF+h/DXl31xNL7/pZdeGgXH4seEY480
+mUwjg4ODU8rBOfH8lSpWHF65UqXkKpUrD0OnQIdAf0AnsTkD+AL4ywDsG7oC
+uo2musEW/TPwM8W5CcyloGfhz8s1Svm1e6TkBpiD4fUNUb064BxMfO/e3A0w
+b4NzNViLgfM3Ni+A71zkDQq8QJ5bGDu2gVrOAOeTbHMKcu0Br1V0yhe8VQlr
+UXHeytEJdtk5wV6bE4h6RNwrCveS+uz4cakW8bTkBLhPAneCa9cex/0hxRwC
+5uLQCfLy8qT6gvx8Xl9A9YcEQfgTVQ+Ae4+dB8C9SVkDmH02W/aAk+q5gIMH
+JQ+Q1/OJOn+sAeA1/pmZkgeslT1glTz/L9X7VcX5XFHrh+vy5jrOAUyewmv3
+8X6OueBxo0c34Pl/uaYP7/8YB5LkOj6c5zcnDIuo03PusQo9lzDhATVjl/+t
+XfwbizDnLxxA5PtFrh/H/sIBcOyPuXDluB/z5mLMr4z/OG7G+I9jaRzn8zG+
+HPulMX3IUIytyrgvYj7GZIzPGKsxbmMsfy7wubF/fa7MuGf/+uz4p595ekLA
+0wETn3zqqUlPPPnk5Mcff3zKY3/5y5Q/P/bY64/++c/IVORPMo8W8Dq+Bl/7
++BNPTIb3Tnoq4KlJeKxnnn1mAh67DJwjMDBwrHCGl6AN6AmmoCDuCOVlRxB+
+gP5SjbtBtSE1ZTeoDW6gxQVatopMxnkGzKugE7Rp23MIX2fYYvA2/A5EXYKT
+E8RwJ5DqGB1yBWIuAddCYK4A3LCpXG/QCJ1xnKg1mDDhNV6XOGWKrc4AnXOO
+LU/AaxHltQtSHSI6q3L+APNamN/CPJdTbYFce3jkkCJH4MIHRM2hXFPwl2/l
+fZIwN/eTXG9I8wYEQRQFbnMCoi7QOSfA1/rjPrqiLgD38PkAXADXZB0+AC4g
+r+3Hemysy8b5Vb7ebyPWBGTa1QTwWkA+J5BumxNAF7CbE5g+PRTHbnztPYzl
++Bo+cAEc40m1AKlSPmD4cO4COB8g5wPCOsVOnVKxx8L7wgOqxCy73yJu/obe
+cQO72+YCenAXkOr6ukgugLV8naU5f3m+Xz0XgHPqOKePc/k4B4+5cxwb4xhZ
+5AF4rh9iJY6nq8s5AIylGFPF+B9jLcZcjL3uPOCpgICJGMcxnmNcF/H/T48+
+avnjo49O+8OfONPtgJ/D7yzgBhZ8LTrBX8Ah8BjoFC59oOyLozEHEfTKK6mY
+lygHbcS2inyBLVdQDV2g+mDMdaD3eD0/0GTYpVYtW8SgX6ELSPUGfaZiTqBj
+h67x3AUiClwAfQ29LaaXXF/QO8Z9fkDMG4ALoCcqawpcucAs9TkDvveScIHV
+jrUEGzaU4+sWXbjA4UPOdQTO8wVybuCqnBv45uZj7nIDet87CIIoXbiqE8B1
+0rfkPQFwrxV5/5+COkGxRuCTT/leALjWCtdcYW31u/K6wH1ZWWXF+gCnGkF5
+PSDuyQc+UNnRBxZ58AHcH0eRG2jomBsYMHBUh7o9535arsciJjygQe9Fh2PN
+o2NFTSDGEnnNnq0e0L42QK4D9GJ+QKr1a6SeH6gj5QdwzIxjZzsvqMrnBpIc
+5wa4G5hMOC/A/QDz+WJOQJ4LGIsxu0zgc+Mwfv+1zF+R8RjPnYCf4+/QKfC1
+4Bc83ov5Azwm+gfGfWm+IGgk5ijKlyvHY39FxVwB1h3YxX/oC855oPOg+zRo
+3FHtuUKqNGiRsLJNeHgUepY8T9C9fsuB6+q2GLLVsYZAkRPgax1FTsCxfkAt
+JwDXRGO/e8DaAg/AfBfuX4AegHkw23oD9ICDB/l6RMybYf4M82h2aw1EPaG8
+r5FtHWJB3cCfHOsG9L5nEARROnG1dgDXPH2vmCu4bpsrkNYN4pgGxzY4xrHt
+A2jbG+jQ84fACRzXDDo6gW29oAsncDtf4FA3KOoGOsfNGF+l+4IfhAe8GpN2
+NiZxaj8xZ4Bjx34J5lY4lkQvwDXzOAeNeWfJC3oq1wlE2M0bOLiByBfwuYOW
+9jWDtrUA0hoAXvcPjpAgHMG+XrAWryMIFbWC1aVagupyjaBcTyDXFEg5BQT9
+AcbpyHCM2egSTlSU5v458HrxXvQPuRaAx3iprrCgnlDEerkuYKBURxiqqCOs
+m4j1EA3lGkJeF9m85yxvPKBC4xF/V9YIiPmAV8OS9nbqHNdP5ACwjoPvd+Aq
+/jvkAZzrBJzrB6cq6gff4HUCMxXzAtwBqjk5wKpV9g6gWFcg7Xso9iWQ1hwe
+5rUCh7FW4DmrvCcBevMJeY9D5X4E8npD/gzJW+7nBqhOgCCIIuf//vc/3D/w
+98r9A3+Snwtg20eoIE+A6wn4s/kK1hNqWU/gJleg3EdA7BtkqyecL/YMsttD
+AO/tKSMtLWr3mGsN7raQoQdU65X2Q5fEeeNsNYXyHAKvJ5D3DsBxJI4nFfsG
+tJb8IK6Nq7WEyn0CFPkDu/oClXWE0bgOz34NoVRvKJxBsXbQtmZQrAOU1xzI
+6w6ktQeST9Tph04hqKtCPTvq2NYDSNSV1wXUS7DFdUVsF2sNm8jrDOU1hnHO
+awyl9YWvhfX3aq+h5m36z8IaTR7ze/Sw1QG07jBwnPO6AUX+H1wO535wr0Qx
+9hdzAMoaQbu1A2rjf/BKzDmp1Qm6nAvA+L9xo9q6wrLKdYVizwHF+oFnpfmA
+U3brB3ge4KuvnPcjunPnj/jcLdt+hbTfAEEQOoLjED5/oLLPkO0ZAqKeQLG/
+IOYLsC5KOYdgtc0hKOoLlW6gzBmIugJFjaFyX0Gx3lCqM1zI8wad+8xNqdB1
+3j30gIo9Ft1rFb9wvi13AONAeY8haU7BYd0Bn1eAeML3EBwy1FZ3KDwBYpBt
+30C1/YXEPIO0H6Bt7wFHZ+jivK+Q5A5ibaLSIdop9gxCl5B8QnYK7hWSW3C/
+aIn7FEh7FbgHXgOvFe+T4nfLgn0CwuW9AuQ9ipT7EYl9iPgeRDCWxz2RxHie
+7z2E8/pdunSp2XzYB57XEY44J2I9378Q/KufPM4X8d5xL4Hh8l4CjuP98Yqc
+P84bOe4noBb37cb96fw5CGJfwoq4RgDXuG4oqAPA/L+p4JkHtj0FymLe64hd
+LcBHtn2L+TMOwI+d9iMUawXU1g/+8ovYr/j3tN8QQRBGpcANfuXPC3Z45gCf
+S8D7nHIfIrEPQcHag+O25wZ+5OAHhxTPGhBzCo77EdieMyA7wpSp6XVrdp/3
+fnDkPFau+8JfGscuXjZxSlp9sS+BWJco5REK5hhELkGsS1DuRzhOsT+Rw77D
+/JkB8vMCXO053IrnGJT7DcfHt3bYa9hun2Gxx3B0L7GvcI+OWM+ITiG8Quxb
+KMA1D+gZNiK5c0SIvQAdwd9zCt7TuYe8X6BAPg8/J47Vowr2LLbtU2zbo9hp
+b2KM63FtcH8gdx5QrlHK/ejopGj0LfQusSeAMs4r9yOeoNhfEJ+jhF4nj/Ft
+OX5bvJfXA4q5fjHWF2sAvNmL2HEtgMj5v6uI+x8qnm+kzPvb7Rug3E/o61xb
+7t9WC1hQA/DQb7/9RrGfIIgSjc0PYDyD45qfXT2f4KuvbPUGyhpEhSPYnkmE
+6xI+VNQdvOv0jALJE5pGzZ9WPnLuL+gBtaMW7Rw2ZlUz8dxglecU8P0LlM8j
+Slu40OYLfN5h9mzl/sWhimcR2WoWZW+QahTGSe4gP4eogfI5RPwZRMpnF4jn
+DymePaR47pDtWUHiWUI4Bw5+0RL9AufEB8igZyjBfEUB5nA32F6Hzw1QHgP9
+RRx/oHxOdBtsg+25RgXPMWoux3H+7CLlc4t6x47o6XFuoEPqDBHbxViex/fJ
+U2zPQlTGePQ3MZcvxfn5NZyfU5Ru20/YLtYr9hRGj7TtGyg/Hxnr/JyePQBO
+Ks/zO431lTEf19aC5z6p3F9Y7fkDOMeWl5f3CMT9hynuEwTxoCE/q/j3eP/D
+++Ddu3cf4XMM//iH/bMLFZ6QU5BLkPcxOG17lpFUhyDlE7r3X9qiUuScY6Yu
+c1lI9/nHo4asbKX2nGKs51I+wxBzCzj+w3lfzAFjfQLGC8wL4/pG4Q0YU+Rn
+HIXgmFJ2h6oun0+Max3Es4nxucTyc4+ULiF8wvZ8Q/lZxBgLbc8dxviIzzoE
+x8B4OUGiAY6NuW8IwDv4MxAdARdxicrr8RjimHh8fp6xY/kevnh+3McJ22KL
+2/IzjhXPNrZ7rnGjtqMWuPOAmi1S9/LnCMnPB5Dy9dIewDjfI43hFc8gVInv
+WGfKx/MFMV6ew5eeL4Tz+LvcPL/4iN1zhsT4/igf38vr/Gy5fTHGv4xj/Cs5
+jyvjvXgmoRjngwM/Ij27+D4+r/MhrLvR+2+QIAjC6Mj5BEdXUOQUCp59hPXV
+mGsdMe7tstW7zpkVFDGbVeg675OW8Us7itwC1icIZzhme+axtcxHH3z4nFTD
+KD/3+JCcZ9i//0VpPqLAHcQzEYU/4Dwxr1+A8aRwCD5HIecepOchS/kHySXe
+qoT15jafEE4BcW1FenoIxjico8Z4t1T2C56fgFgoewZ3DYyPGCeFcwjQPQTo
+IK6Y54Cr1ymPJ3LrAnF+bIvUpoW2dvJ2Q/vT5diNvoR9q9B45Hcu1w00GXl5
+wrj5ddC78DMT8XwDz9HLMV1+vrAtrsvjd3A6+9i+R/GsYfv4zsfymFeC718a
+z9ti/AnFmP7sU5iX4mv65TiP8/gY59FN0VFxzkuM7RWx/mEe63F8D7GexvcE
+QRBFD651xPEVzkGU7/RGC1OnWbngAbmVu85LxPsz3qcxxyDmIiRvkPIMvGYh
+J8c2J4HjOz4vAXGAP0MRxn4F/nBcfoaylHfA+m+MJ9KzlN/nz1PGWKN0CZGH
+wDWTGJuwlhydAuNVgVfstLkF1p5hbMP5aFyLjnkKjHk8V4GuAWNb7hsbNvA9
+miXvkNwDwf3t0EFsQBzlrJNY7yX89eK9iuNtkLCdD8+NbcD2bN4gtQ3biLV0
+Il5jH0TMbtF5gsv9Bis0Tr04cWJ6VfQuMUZHF5Ni+UG+Fw9+tiKe4/wQOpyY
+k8eYjn6Hnod5ej5253H9VIAYv2NdCj4jE5+VgfklrGfF9S7K+I5r9tEx/3Yb
+xvL/+PEPd376CdfP2sV49FNau0cQBGEsgttPNwV1nJkFHpAHHmD29Hq8j/O5
+ifx8rGHAnMNDd+Fej/f8Oz/deQQc4g/gEH+UHOIHXvNo8wicr4DYgTkIHCde
+k+ctCnziAq+FlJwiW653OM3zEhibcN0Yrqs8IfkFj104LkXHEJ4h8hUY57hv
+QMxD50A+lLyDu4fkH0e4g0geIrlIAYeex/HwYR84IoPHKDjeYcR2Pjy3aAf6
+ELaNt/MDHqd527EP6E3YpwpNUo+peUD5xiPPjx6zPBi9S47fT6OLiRgujc/P
+P4l78mMcx88a59/lWM7X3OGevPjd4F58t6Qx+6M4ZoeYjj6IuSSsY30kLy/v
+YYjrDynjOo7faU0eQRBEyQU8wAIekAseYAEPCCiOc2Lel/uElI/gcxjoFBhf
+Crwi7+GfFW6BY0yMSRibwDH+iM+fxXj1newZkmvcfEz4BuYucL0F9w6Idege
+GPfQP7BuAuMg5jQ4EBeFj9hx6RL6iZInvYS/HufA8RiOx8Vz4Tnx3NfktuC+
+uNg+Ps5GsM043v76a96XamGj1fcdbjTyy+6xs5/DzwT9S8Ttn376icdu+Axx
+bgjjN+5xZYvh4HH8s8ecEI3RCYIgHkxM7aaFgQfkggdYwAOKxQGMAPcQ2UUw
+DiK/yWBsVAPjJuefyD/dI7/W1bEwn/KbfF4RhznQJldz4xDzA4A8FRfIxt/p
+/ZkSBEEQJQtTW4sJPCALPCADPMCkd3sIL76zhikZKh6QQR5AEARBaMHUZmoA
+eIAFPCAD6wP0bg/h5ffWMMWs4gEWvdtFEARBlCzAA8zgARngASa920Jo+N4a
+poQ6zA3kAmF6t4sgCIIoOZhaTwkDD0gDDwjTuy2Exu/O2QOyaE6AIAiC8Jag
+8Mkm8AALeECY3m0htCPXCmYrcgGRereJIAiCKBkEtZpkAg8wYz5A77YQviHn
+A4QHWCgXQBAEQWgBPIDiRglGMS9gBUx6t4cgCIIgiOJD9oAsqg0kCIIgiAcT
+mgswJv8PfHB4Tw==
+    "], {{0, 157}, {515, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->{220.49609375, Automatic},
+  ImageSizeRaw->{515, 157},
+  PlotRange->{{0, 515}, {0, 157}}]], "GuideTitle",
+ Selectable->False,
+ ShowCellBracket->False,
+ CellMargins->{{Inherited, Inherited}, {0, 0}},
+ CellID->1998732265],
+
+Cell[TextData[{
+ "Version 2.1, by Hiren H. Patel \
+(hpatel6@ucsc.edu)\[LineSeparator]Accompanying paper: ",
+ ButtonBox["Comput.Phys.Commun. 197 (2015) 276.",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://authors.elsevier.com/sd/article/S0010465515003033"], None}],
+ " ",
+ ButtonBox["arXiv:1503.01469",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://arxiv.org/abs/1503.01469"], None}]
+}], "GuideAbstract",
+ CellFrame->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {{0, 0}, {1, 0}}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ FontSize->9,
+ CellID->449657010],
+
+Cell[TextData[{
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X is a ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " package for the ",
+ "analytic calculation and symbolic manipulation of one-loop Feynman \
+integrals in relativistic quantum field theory."
+}], "GuideAbstract",
+ CellFrame->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {{0, 0}, {1, 0}}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellID->2001916300]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Conventions", "GuideFunctionsSection",
+ WholeCellGroupOpener->True,
+ CellID->1657865166],
+
+Cell[TextData[{
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X follows the conventions summarized in the tables below."
+}], "GuideText",
+ CellID->20613435],
+
+Cell[CellGroupData[{
+
+Cell["Spacetime Conventions", "GuideFunctionsSubsection",
+ CellID->139525137],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell["Metric Signature", "TableText"], 
+    Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["g", "\[Mu]\[Nu]"], "=", 
+       RowBox[{"diag", "(", 
+        RowBox[{"+", 
+         RowBox[{",", 
+          RowBox[{"-", 
+           RowBox[{",", 
+            RowBox[{"-", 
+             RowBox[{",", "-"}]}]}]}]}]}], ")"}]}], TraditionalForm]], 
+     "InlineMath"]], "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell["Spacetime dimension", "TableText"], 
+    Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{"d", "=", 
+       RowBox[{"4", "-", 
+        RowBox[{"2", "\[Epsilon]"}]}]}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[
+    "Dirac matrix commutator", "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["\[Sigma]", "\[Mu]\[Nu]"], "=", 
+       RowBox[{
+        FractionBox["i", "2"], "[", 
+        RowBox[{
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}], TraditionalForm]], 
+     "InlineMath"]], "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell["Fifth gamma matrix", "TableText"], 
+    Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["\[Gamma]", "5"], "=", 
+       RowBox[{"\[ImaginaryI]", " ", 
+        SuperscriptBox["\[Gamma]", "0"], 
+        SuperscriptBox["\[Gamma]", "1"], 
+        SuperscriptBox["\[Gamma]", "2"], 
+        SuperscriptBox["\[Gamma]", "3"]}]}], TraditionalForm]], 
+     "InlineMath"]], "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell["Chiral projectors", "TableText"], 
+    Cell[TextData[{
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox["P", "L"], "=", 
+        RowBox[{
+         FractionBox["1", "2"], 
+         RowBox[{"(", 
+          RowBox[{"1", "-", 
+           SubscriptBox["\[Gamma]", "5"]}], ")"}]}]}], TraditionalForm]], 
+      "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox["P", "R"], "=", 
+        RowBox[{
+         FractionBox["1", "2"], 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           SubscriptBox["\[Gamma]", "5"]}], ")"}]}]}], TraditionalForm]], 
+      "InlineMath"]
+    }], "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell["Levi-Civita symbol", "TableText"], 
+    Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SuperscriptBox["\[Epsilon]", "0123"], "=", 
+       RowBox[{"+", "1"}]}], TraditionalForm]], "InlineMath"]], "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True, True, True}}}},
+ CellID->105240153]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Normalization of Loop Integrals", "GuideFunctionsSubsection",
+ CellID->231547042],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     RowBox[{
+      ButtonBox["LoopIntegrate",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/LoopIntegrate"], "[", 
+      RowBox[{
+       StyleBox["num", "TI"], ",", 
+       StyleBox["k", "TI"], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          StyleBox["k", "TI"], "+", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["0", "TR"]]}], ",", " ", 
+         SubscriptBox[
+          StyleBox["m", "TI"], 
+          StyleBox["0", "TR"]]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          StyleBox["k", "TI"], "+", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["1", "TR"]]}], ",", " ", 
+         SubscriptBox[
+          StyleBox["m", "TI"], 
+          StyleBox["1", "TR"]]}], "}"}], ",", "\[Ellipsis]"}], "]"}], 
+     "\[LineSeparator]", "\t", Cell[TextData[{
+      "= ",
+      Cell[BoxData[
+       FormBox[
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           FractionBox[
+            RowBox[{"i", " ", 
+             SuperscriptBox["e", 
+              RowBox[{
+               RowBox[{"-", 
+                SubscriptBox[
+                 ButtonBox["\[Gamma]",
+                  BaseStyle->"Link",
+                  ButtonData->"paclet:ref/EulerGamma"], 
+                 StyleBox["E",
+                  FontSlant->"Plain"]]}], "\[Epsilon]"}]]}], 
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"4", "\[Pi]"}], ")"}], 
+             RowBox[{"d", "/", "2"}]]], ")"}], 
+          RowBox[{"-", "1"}]], 
+         SuperscriptBox["\[Mu]", 
+          RowBox[{"2", "\[Epsilon]"}]], 
+         RowBox[{"\[Integral]", 
+          RowBox[{
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+           FractionBox[
+            StyleBox["num", "TI"], 
+            RowBox[{
+             RowBox[{
+              RowBox[{"[", 
+               RowBox[{
+                SuperscriptBox[
+                 RowBox[{"(", 
+                  RowBox[{"k", "+", 
+                   SubscriptBox["p", "0"]}], ")"}], "2"], "-", 
+                SubsuperscriptBox["m", "0", "2"], "+", 
+                RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], "]"}], "[", 
+              RowBox[{
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"k", "+", 
+                  SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+               SubsuperscriptBox["m", "1", "2"], "+", 
+               RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], "]"}], 
+             "\[Ellipsis]"}]]}]}]}], TraditionalForm]], "InlineMath"]
+     }], "TableText"]}]}
+  }]], "1ColumnTableMod",
+ CellID->1105087578]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Arguments of the Passarino-Veltman Functions", \
+"GuideFunctionsSubsection",
+ CellID->208716409],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+    Cell[TextData[Cell[BoxData[
+      FormBox[
+       RowBox[{"A", "(", 
+        SubscriptBox["m", "0"], ")"}], TraditionalForm]], "InlineMath"]], 
+      "TableText",
+      Deletable->True]]]], "TableText"], Cell[TextData[Cell[BoxData[
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3T+OI9eTIODYP8aa0g1qfycQoAtwBzpAYxbyOQNsu9uYXUAYj6aMNdqV
+R1tW+3IIrCujL9AAT9Bod61eppilYrOY5HvJJCMz+RH45o9UlYqsrEoGI+PF
++6//+j//+e1/jIj/9V92/+Of/+WX//Zv//Yv//7f//Pu//mnf//f/+Nf/9Pu
+//g//yHi/+6+pvmHX79+BWBmdq8fdhatdzurA5sTPjZvCRW+dBxnffTfenMQ
+x3fZPxcAAKZt93pqc8tlm2+ue+azWQ7z6Oec+a98OftnCwDAOBzlux8mlOsO
+lSu/P8iTn7KvBwAAw9u9vmvzvUfLea/JkZc7P2RfOwAA6hzlvdsR5JhTd5gf
+P2VfXwAA9mJf833T5mqbEeSNj2Ab+88ZzZpBtWMAgDs6yH31OozDl4Pc+Cn7
+9wMAYE5iP7+sybM2I8j7uGwb+9kbzWcWc94AACrFS+13O4LcrsQmumcAPzuc
+BXzJ8cziZ4f/nan8bNSMAQDOiJe+3yaP/DKC/O3Zx/h2/tgyRjirN15mIi8O
+8uYPbexj+3nqMwYA+PpXDvemzdky87NtvOxL8S5mOm+3Pa838e3+Idk/99Uc
+f9YAAF0it/7b5H/P88EW2T+LMYiXmnKTl2bNoXuuFz9l/zwAAIbW5lv37v/9
+GPaN6Hu9jvcnuefnlua/t8z+GQAAXKPNp5Zxv9lnm3jZU9j8guGv5w/t9Vzf
+6TPNl/a/5XMMADAZbc60vkMt8eNz7pt9zo8o9rX+59z4Htd66TMOADBWba6y
+uWE+tA1za0cr7jMHusm5m76Xp+zzBQCIfR/EKm73zPy59us5+YTES3/MLWvG
+TV/xIvtcAYDHE/vn4+sb5r9mCsxI3HZ2SPM5bJl9jgDA/MV+Xdot5gHLfx/E
+DfPiJidehf4ZAGBgbQ68uUHuIv99YAd58ZC/V1/kxADAEG6QA5uTxStxm/l7
+cmIAoJcb5MCbMBOLArGfR/E+huuhkBMDAEUGzoGfa8BP2efFNA1cK5YTAwAn
+xX4uxFA58FYNmCHFy/4tQ+XE77LPCQDIF8PORmty6UX2OTFf8TLPeoj+ib8+
+s2WfEwBwfwPnFE0u/ZR9TjyW9tnD1mc4AKDGQDmEXmBGIYbrKfb7DAAzFvue
+y80AOXBTT9YLzKjEMOs+//r9zj4XAGA4se+HeC8H5hEMlBNvQ98EAExe7Pf1
+urYnWA7M5LQ58fbK3/0PfvcBYHpimBlp69A/ycTF9f3xZrABwITE9fMhNnJg
+5qbJZwf4u7B3OACMVOzXxl2znr753kX2ecCtxMsswat6hrLPAwD41pXv702t
+bJl9DnAvse8h+nDl50Y1YgBINkAtuJkvYW0QDymuX1+3yj4HAHhUcV3/4yb0
+BMNf/C0BwHTEvudxox/i7j/3tzu/tP5sf57fF37v90ff1/jU/LOesTwf79MQ
+x+Pqvgl/VwBwB3HdvOB16Ie49PP9x0G+2/h85uf5Z+Exf71wXf6ojPHS8f4s
+zdE5+fNt/sa2Pf/GzCMGgBuJ/nvHNe/ri+z4x6zNgWt/rmdrsLvXj/Ft3bb3
+sXoc77fsn+mUxXV7NTZ/b9bVAcBAYv/stu/6OGvj+v/cf7nws/3xzPf+XHmd
+ztaYexyvoTZ8/e/AIvrXiO3PAQBXiv49Ec379yI7/qk7U4f9fOZ73h583e87
+P7X/vOnx/bPrmhUe77fnHDz2texzdeKfsn9+cxDX1Yj1TABAT1e8/6oFD3cN
+unLN3zu+/jBv/fnCv7+YCx98/edTuW2cr13LhYf9XVhEvxpx8z16JgCgUPSf
+E9HUjxfZ8c9JdK+de9Xfe5S3nuyfOJMLv6ozH3xtk4//o/J4X7ti4Krfh+Zv
+c93zb3OZHT8AjF3s987oU3vyLHb4a/FjaZ7Z1GAv5cHt13XNgPi943idefCF
+43X2cDDI70bf3qX32bEDwFg1daMe76/N11ujc5vr0dV/8OfR1/0YL/Xjs30J
+0d0v/MvB1/yjPd7nc3nwheNVzWmj1+/HU/R7frPxuRUAvhX9eoOb2RL6EG93
+TX7v+Ln/evA138dLT/HbC8f7/sy1/PHg6/48/mcdxzs3B+7XvudN9e/Jqsff
+7tbfLgD89T7at/9wrbZ00+tyLm/9+eDr/ijNPaN7Ltrng695zr9L5g1bNzcS
+sV9X1+eZziI7dgDI0ubBtXODrcG5z7U5N8/3+/Zrnnt1T86UOHHMrt7eX9t/
+/8vh/19wvK66tV7hnN+Zvmtel9mxA8C9xX6NXG0daRueq97r+nTlrX+2//45
+V/4UhXtaRPdMiuZYzz3CRfs6XzheUW7OzX53+vQ7rbPjBoB76ZkHN/UmPRH3
+u0Zda9J+Pchbm/+/aG5ZdM+k+Hzw37u4Vq7geI2L/RXc/Pdn2eNvfJ0dNwDc
+WvseWVszMofpvtfo7Bq3gzy5OOeM7t7e3+KlBn127V3h8Rr2Xh6B6Dcf8aPP
+vADMVY88WG9wznXqXON2kLdWzSyL7t7e55y2qq8huuvWxT0W3OV3qU8PsXwY
+gNmJ+h7CJg/WG5xzrTr3rzj430W9DAfHPNXb2/yzT7XHi/N1a7PURijqZ8Vs
+/f0DMBc93gebutBTdtyPKl7mBXep6seN8zMphj7ezzXH4q6/V+98Hgbg0fTI
+gzfh+Wjm9Tq3Jq3xqccxu+rMQx/PLLWRi/o1dfJhACarRx68zo750cX5NWmN
+4vVtB8fs6u0d+nhmqU1A1M+RkQ8DMDk98uBVdsz8dd261rj1reGe6+0d+nhm
+qU1Emw/X7LMjHwZgMnrkwcvsmPn72nXtX9G3hvt2yNw1zteti2YdMw5Rv++k
+fBiA0ZMHT1ec7xVucuTqub1n6sxDH88stQmSDwMwJ5V5sPe0kblQc+01q+xM
+nfm3gY9nltqEuXcAMHXey6bvTM21UTVPuD3euTpz9eyzoY/HuLiHADBV3sOm
+L86vSavaY+7gmF115l6zz84dL+y7PAvuJQBMjfeueYjz+1f0ms/Q5NAdx+s1
++yy669Zmqc2IewoAU+E9az7i/H4Yfda4nasz9+mPqJ6lFvueil59yeRybwFg
+7GK/f5T3qpmI7v0r+vZHnKsz98mtzx3v1Sy1Nndu9pJu+ieqe53JV5kPN7Mo
+7FcJwF3Ig+elT8214JhddeZes8/OHO/kfh3x0k9h/40Jkw8DMDa710IePC8X
+aq69aqrRXWfuO5ut+HgHebM+4hmozIc32fECMF+x3zf1izx4Xm5Qwz03+6x6
+b7io6D0+yOub3NlsiZmozIfX2fECMD+x3x9KHjxDse+rHbI/YuhZaj+d+V37
+/sTX6RGeocp8eJUdLwDzEfX7pC6zY6b42g5aw22POejss93r7ZkY37Zf81wP
+/tw37jM/n1/i9X53vzW5d/b1eyTuQwBk2b0+eP+ZpzM13JNr0gqP2bVPct86
+87l+5m/qzkPlwU1d+SCn//Scc7f/rsmPn2cn2/v5jnrkw55PAXCV3et9xfvO
+u+x4qb6+XTXcvmvcblFnPnfMv3P3AfPgnw7y+c6ZcvGynk8+fEdtPrwtvCc1
+/VpP2TEDME1RNzttnR0vva5xVw23ej+M9niDrsM7OG5Xzv61/XeDrJOLb3uT
+z8Z89LX6Je4o6tbxmrUGQLX2vaY0D/6QHS/zFvtZEr8d/d79MlQtuP1vHNaf
+i9bfldSPudnvhHsUADcRdTMj1FyYvHjZp+7vPLvw+/44+J7B8nKKr9uyIh9e
+ZccLwDRE+dqUL/Jg5iC+7cEoXjd4VKu2x13OtVtV5MNvsuMFYNyifK2cGcLM
+Qrye2fa24nsPc2H73OVdw3XFfespO14AxqnyeeMyO1641oneiKb/t3gd3lEu
+3HsOHVdfx5pZa/q6AHgl6tZlr7LjhSHE6/nKVfPRjnLhr9nn88iibp3DOjte
+AMajsqZiPTaz0NaEj2fKVa1/i2/Xzn3NPqdHF3WzJZbZ8QIwDlHea+fZIrNx
+oiZc3eMQL/ttyIVHIsp7vax5AKB533jjfYNHdJzH1vZHtMf4pq6cfU78fV2K
+P99nxwpAnt3rqaK/bpkdLwwlTu/rXLV3XNtjcVVdmZtd35q+r/fZ8QKQY/fa
+eK/gEZ3oj/jc4xg/Hx3jqn2mGfwa13zWX2THC8B9Rfl8es8QmZ0T/RHVs4FP
+5NPmC49M1PWAWQsB8CCifK21ufTMUryeH1G9Z1x8u1ddr2Nwl2tdun+QGTkA
+D6Kij26ZHSsMLU73ClfNUmuPc5xP/5x9bpy8TjW9w/ZoBpi5it6IdXascAvx
+us/3a49j/HR0jKr96rj7NS/dS0ivBMCMVfRGbL0fMFe719uj3/fqNW+7169H
+x9ArPHK71zu9EgCPreI54SI7VriVGGDNm/6IaYry2Tl6JQBmpqI3YpUdK9zS
+iVy4ao+NE/0R5gpPROx7h/VKADyYit4I89OYvRO5cNX8h93rt6Pvf5t9TlRd
+v9I5a3olAGai4rmgPZaZvRO5cHEuG/u95g77I9SEJ6jJcwvviYvsWAG4TpSv
+F1llxwr3EK/nSNTkwsd5tD7hCaroldjqlQCYror7vd4IHkZb263OhU/UhM2O
+mLCKXolVdqwA9LN7rfVGwGvx7R7MRf3CRzXhT2Ge8ORV9Eo8ZccKQJ2mz63w
+Hv8+O1a4t/h2xvDF+m58u1ddUxv+R/Y5MMjvwVPhs7NNdqwA1ImyWcJ64XhY
+R7Xhzhpv2xvx6SAPrt6vmfGK8jUVZg4DTIR7O1zW1HYPctyTM4bbPPg5Z/4k
+D54ntQOA+Yjy9XJmZ/Lw2nz4Odf97bA+HPv+4Oe1clX7cTAtUT6DfZUdKwDn
+7V7vC+7nTa78lB0rjEWb9/559HfyR/vPrZF7AO6dANMX+3UgahsAlSqeqa2z
+YwXgtCibD7TNjhNgjHavZWE9wRxKgJGJ8hlq1ssBdIiydXSb7DgB+FZzb3b/
+BrhORV1hkR0rAHtRvpeo53oAFxT2m9m7HmAkYj/30noPgAFE+TrkZXasAI+u
+cK2HOUAAFaJsxto2O06AR1dYE15lxwkwJVE+Y22ZHSvAo6qoCds3FKBSU0dQ
+GwYYLzVhgNtRGwYYLzVhgNtTGwYYJzVhgNtTGwYYnyibJ6wmDDCAwtqwecMA
+dxJle8ytsuMEmIOK2vAiO1aAuYuy/UHVhAEGVFgb3mTHCTB3UbY36Co7ToA5
+qagN2+se4EaibF9QNWGAGyisDa+z4wSYq+YeW3Affp8dJ8ActbXhS/fgxlN2
+rABzU/F87ik7VoC5KqxJrLLjBJib3eudZ3MAuUp71bLjBJibKNtbw5oNgBuL
+sjXMy+w4AeYiyvbW2GTHCfAIomy2pb03AAaiBgEwLp7VAdxHYW/aNjtOgEfS
+1B+s4QC4vSibZ7nKjhPgkUTZbB/z3gGuVPgczr0W4M52r/f61wBup3B9xjo7
+ToBHVNjDtsmOE2Cqomym+yI7ToBH1eS6Bffpp+w4AaYmyvb63GbHCfDICtfQ
+vc+OE2BqCu+vq+w4AR5Z4Rq6bXacAFMTZTOFn7LjBHh0hf1sZg0DFLIeA2A6
+wjpngEHtXu8K7qvL7DgB2IvL8y+/ZMcIMBW718eCXNhMYYCRiLJZw2+y4xzg
+PH/QnwfcUmF/xIfsOAF40eaIs+yTaHL4dg3LF+9BwK0V9kdMvrYAMDcFz/Qm
+2SdxouY9yfMApmGu91KAuZtrLSNOrw00FwMYXJTtr7HOjhOA1wp73Ca578aJ
+83iXHRMwP1G2v8bkagoAj6Lg2d42O8ae57U5Og89w8DgomB/jewYAei2e60K
+ahqT6y84cV769YDBFdw/fQ4HGLEomyexyo6zx3md6hl+yo4LmI/Yz6y5dP9c
+ZscJwHlxed+Nj9kx9jwv70nAzUTZnHb7awCM3Fzv5yd6odfZMQHzMdc6AsCj
+metzvhM5vvclYBBRNodnlR0nAGUK7unr7Bh7nNNyDvVtYHw67i+TX3cM8Kji
+8lygbXaMPc7pVN1mkR0XMH0F90yzawAmJMr2oJtcjaN5P/LMEhjaiXvL5J+l
+ATyywt63ye3dFvbcAAYWZbMol9lxAlAnLq+JnlweGa/33NhmxwRMW+FztKfs
+OAGo0zzTm1v/W5zec8P6OaC3gl7hbXaMANSLGa6L7uj9WGTHBUyXXmGAeZpx
+z7D1c8AgCu+Ty+w4AeinoGd4nR1jj3PaTP0cgHEofH72lB0nAP0U9Axvs2Ps
+cU6ro3Ow/xzQS1zes35y6yoAeBFl66MntfbsVB0nOyZgmprP0hfuj5ObtwPA
+iyibm/kmO84BzmlSawCBcSi4P66yYwTgOnO81089nwfyxekZjccW2XECcJ14
+vdbs2CY7xh7ndPxcc5UdEzAtJT1k2TECcL0Ta80mvzYkXs/G19MHVInLa4ut
+ywWYgaZ/oOA54FN2nJXndJzfb7JjGvDcft75pdX8g1+zY4I5Knhmts6OEYDr
+Rdks+UV2nJXntJzys8zd6+1Bvtv4dOba/JwdL8xRwX1xlR0jAMOY2z0/Tq95
+ecqOa4DrcMr32XHD3ETZjJ1FdpwADKPgWeCk+m13r+/m8L7V9kN8PnNd/siO
+EeYoynrHJjV7HYBucXlvpcmtETlxDsvsmHqex69nrssv2fHBHMUM1xQD0C1m
+ODvoRK17lR1Tz/P45cx1+TE7PpijeD2L5tgmO0YAhhNlM+UntXfbifeySfV5
+HJxHV134c3ZsMFdxee/l99kxAjCcON1fe2xSe7edeMa5yY6p53n82XE9zFKD
+Gym4H77LjhGAYTX9bxfu/avsGCvP57jvY3L9fbvX92euh1lqcAMxwzmTAFwW
+M5srf6rvIzumHufw85nrYZYa3MCpe8cJT9lxAjCsuLzf6CY7xsrzOfV+9pQd
+V+U5/N5xLcxSgxs58UzplewYARhezHCG0NSfa0b3bGGz1OBGCu6Fk5sxCcBl
+UTBbPjvGHud0fA6TWf+3e/145lqYpQY3EuapATykwh65qc1VO56LtMqOqSL2
+rrnCZqnBDcXltROr7BgBuI2CXHiRHWPl+Ry/p62yY6qIvatX+Lfs2GDOdq+t
+XBjgMRXkwsvsGCvP5zgXXmfHVBi3WWqQpOA+OJleKwDqnOgpmHQ9JCa630aY
+pQYpomzfoUV2nADcRkGf3KT2HZ1wLty17/Kf2bHBnIXZwgAPLeY3Y/h4Tug2
+O6bCuLv2XTZLDW6oJBfOjhGA2zlRR516LvzqfS07poKYz/UKm6UGN7R7LeXC
+AI+rIBfeZsdYeT5TzIXNUoMkc6sHAFBnbs8HJ5oLV81S273+cemazeV6wq3J
+hQEe2wxz4VNrwhfZcV2IuWvf5aJZam1d+dOF6/hr6fHgkcTM1kwAUKckF27y
+y+w4K89pMrlwnN93uXiWWnT3Wfxecxx4NDGzWToA1Omoo04ml+w4p8nEfyaH
+rZqlFqdnsqkDwwUFufAqO0YAbksunBrr1bPU4nX/cNMvYf4EFJALA/AAufAy
+O6aOOK+epdYe4zCfbv7vf2SfG0xFzGzvTQDqFeTCb7JjrDyf4zrPKjumjji7
+9l0unqV2lAf/nn1OMDVzu/8BUG9udZEJ5cJd+y6fnKV29L3H9eBfs88Hpmhu
+z8UAqHcid5QL3yfOrl7hs2veYt8ffPi9b7PPBaZKLgyAXDglxl6z1NrvO5wl
+/FP2ucCUyYUBkAunxFg9Sy2+7S82KwIGIBcGQC6cEmPXvssnZ6kd5c5mRcBA
+5MIAyIVTYuzad/lVrfcob/4j7CMHg5ELAyAXvnt8Xb3Cn4++7niN3MX5EkAd
+uTAAcuG7x3dxltru9dNR7fjTgP/9S+/9wItF9j0DgNsKufC94zs7Sy269+AY
+ZGbECHILmJIfsu8ZANzW7vXhwnvBKjvGyvPZjDX+OL/vcvPvumrGjUH2lRtB
+bgFTIhcGmLm4XBd+nx3jleezyo7pILaumm8zI+2Pgvflq+dHjCC3gClZZN83
+ALit0CNxz9h+K3jvPfc1J2euVcaQnVvAlCyy7xsA3FbIhe8ZW9csta/tv/up
+/bqu+cOfB4ghO7eAKVlk3zcAuK2QC98rrnP7Ln8zNzj2cyS6vvbtlXFk5xYw
+JYvsewcAtxVy4XvF1bXv8sk1cbHvIT719X9cGUd2bgFTssi+dwBwWyEXvldc
+1+y7fOzV/nRAPbkwAHLhu8TUzEsr3nf54Hu6rok96GAAcmEA5MJ3ialrltrZ
+tXDRPVOiyau/v0fsMGdyYQDkwneJqWsPjbP7Z8T59XZXz1eDR1eQC7/JjhGA
+29q9tnLhm8fUte/yxXw2uvfg+JR9XjB1c6sFAFBvbs8Ix5YLx/m+34tr4OL8
+fLWfC76/WYN39X51MEdyYQBmmAuP6hnn7vW24+davG9G9JyvFi99yvop4AS5
+MAAPkAunxh/ds9TO9gofHaMrn278dOb7mhxaLwV0KMiF32fHCMDt7F7fyYVv
+Hk/XLLWqWm1tbThe1utd7KOAR9Xkuhfuf5vsGAG4nSZPLMiFv8uOs/KcRpML
+x/k5EFX7ZVyoDf989LXPvRHFtWd4RLvXSi4M8LhKcuHsGCvP5+nEOfyQGE/X
+3nHFvcJHx+uaR9HUnn9qv+Y5D27qyGYQwxkFufDH7BgBuJ3d683McuFXuX1y
+PF3z0HrVa+P8TIljnX3EwN7utZzTPRCAOgU1kW12jJXnM5pcOM7PUus91yG6
+9+0Y5PjwSE7dM8ZyDwHg9gpy4U12jJXnM6ZcuGvf5UZVr/CJY3fVm+XBUKEk
+F955yo4TgNvYvdYzy4WPc/vZ9vrF617kX6/NseERFeTCi+wYAbiNmMic+djP
+fntX8HXHufAmO3Zg3Apy4dT9egC4naZuOoVcuI21+R/rC18jFwaq7F7bqdwH
+ARhWQT1kmR3jQazP71dNX8fJmccn6tz2jALOKng+5j4CMEMxsT3ndq8PB3F9
+PJUPn3hPW2XHDYxbzGzdBABlYmLrp0/0P7zKh08861xlxw2M24l7y7HZrsEF
+eGQxsX02OnL3Jvf94eBrqurasd+n7n17nKfscwTuL+y3AfCQCmoh2+wYj+J9
+6ojzS5MPx+mej8WJ43zXvvcdrhvcZJ8fkGNqz8gAGEZMsEeuzXu78uF3J/75
+dwff+6bjnL94n4PH1fE5uuoZEwDTExNcO10Q87GmXvz+TA7duDi3GJi3gnvJ
+KjtGAIY1xXt/XO7rOPT/Cr5mk31OQL4p1gYA6G+qzwSjYI1Lbd04+5yAfDHB
+njEA+ouJrhVpex6GyoNX2ecDjEPBM6cv2TECMJw4vc7sG9kxnol9iDx4m30e
+wHhMtT4AQD9Tfh4Y9evnJtH/AeSJ7pmN7hsAM1SQT66zYzwT+6U8/hJrYIBX
+Cu4dq+wYARjGlO/5UdDfca43Io72bQZoFNQIPmTHCMD1omz92SI7zjPxL67I
+hd9kxw+MU+xnkZ/9LJ0dIwDXi7K5ZKOunfbMg9V0gE5zuDcCcNkcah+718fK
+PPiL9zDgnKk/MwOgzBx64poYK3PhZXbMwPgV3EtW2TECcJ053Oujbi/mTXa8
+wDQU1Ao22TEC0F+UrTtbZMc50Hk890Y8ZccLTENc7iGz/xzAhEXZPLLR99VW
+5MLvsmMFpmP3elNwX/khO04A+onLfbYfs2MsPI+SXHibHScwLVG2/5zP2AAT
+1fYMnLvHr7NjLDyPklx4mR0nMD2x35Pn3L1l9OuLAXgtyuYFLbPjLDyXS7mw
+nj6gl7i8z7v7C8AERVmv8FN2nIXncimvX2XHCExTlO25oWcYYGLicq/wNjvG
+yvOZfE4PjE/oGQaYpZhJr/DB+cziPIDx0TMMMC9z6hU+OKeu81hkxwZMm55h
+gHmZU6/wwTmdOodNdlzA9BX2DC+y4wSgTFzeV3SbHWOPc5p8bRsYp8Ke4ffZ
+cQJw2e71XcE9fZ0dZ4/zmnw+D4zX7vXxwn1zEnsTATy6KNtT9E12nD3O6/gc
+VtkxAfPR1H3n1lsG8IgK1oA0vsuOs8d5Tf4cgPGKsv0tzVYDGLm4PEttkx1j
+z/OadI8HMH5zvX8CPIo51zWOzsEeUMDg5vpcDeBRzLnfLV7WtWyyYwHmKcpm
+qy2z4wTgtLi8d9I2O8Yrzm0TE133B0xDlM3hsQcdwAhF2V5zk52P2ebC2+w4
+gHlrcl19EgDTU9gfMdk+2zYXnmSvMzAd+iQApmnO/RHt+X1QiwFuTZ8EwPTM
+vT+iPUd9wsBdFPZJPGXHCcBelM0Bmmx/BMA9FfZJ6NkCGIm4PB9+mx0jwFQU
+9kl8zI4TgH3vwNz7IwDurbBPwvM2gGTu1wDDU2cAGD/P8QBup6D/7Et2jACP
+rFm7YX0HwG0UrkteZscJ8Kji8kxhc38AeoqyeZWb7DgBHtHutSi4R5sHD3CF
+ps9MzQFgfAqf3dmfAuAKhb1o1tAB3FHhmjlrOgCuVHq/DXvEA9zN7rVSpwC4
+D2voAMbFmjmA+ylcQ7fNjhPgETS1B2vmAO6rcA3dIjtOgLnbvTbWzAHcV2Ed
+YpMdJ8CcRdkctW12nABzFJf3odOfBnBDhes37DMHcANRtm55nR0nwBw1tYaC
+e7C5PgA3UngfVhsGuIHCmvA6O06AOXMvBrg/tQiAcfCMDuD+9KgBjEeUzfNZ
+ZccJMAex3/+zZO3yIjtWgEcQZTN91IYBBlBYE95kxwnwSNSGAW5PTRhgnNSG
+AW5PTRhgvAprw++z4wSYotivVVYTBhipwtqwGT8APUTZDMtNdpwAj6ywNrzO
+jhNgSqJ8nvAiO1aAR6Y2DDA8NWGA6SisDW+y4wSYgooawyI7VgDctwGGpL4A
+MD2714eCe/c2O06AMdu9loW1hR+yYwXgRcU6j3fZsQKMUez31dgW3EfX2bEC
+8FrhWg/7bwCcEGX7aliLDDBSUb5XqP03AA5E+b4aq+xYAehWUdfQ6wbQKlxz
+4bkawAQU9rttsuMEGIMon8WzzI4VgMt2rzfW0QFcVrFe7mN2rACUi7L5mJ73
+AQ+toq9skR0rAOWifMbah+xYATI06yYK75Pr7FgBqFdR73iTHSvAvTV9D56f
+AcxXRR/c1r0eeCTNegnrKgDmr2IdnZnDwEOI8lnC1ssBzECUzc20NgR4CFG2
+trhhDjvADFTUQPRKALNW0RvhWRnAjFTc/82VAGYpyudGqAsAzFDFc0FzJYDZ
+ibK5EfrFAGaqolei+Zqn7HgBhhLlMyb1RgDMWEWvxCY7VoAhNHVevREAPKvo
+lVhlxwpwjdjPWS95HqY3AuBBVPRKmCkETFqUz5TUGwHwQKJ8Dw7PDIFJqugJ
+s6cGwAOqqJeYswZMSpTPT/P8C+BBtX10W73DwJxU9gi/y44XgDyVtZNFdrwA
+l0T5+mDPvABo3jdWhe8b5g4Do9asgau4n1kLAcBfKuooH71/AGO0ey095wKg
+j8r+unV2vACH2n6v0nvYKjteAMansnfYehNgFKJuHbAeYQA6Rfk8zsab7HgB
+2t6tknvWVo8XAJc0PRAVa0/M5QTSuF8BMLT2eWNpncVabCBFlM/AaSyz4wVg
+Onavp4p1KGZLAHcVdTMj3mfHC8D07F6LiveaTXa8wGNwbwLgXiprL+vseIF5
+i7rZaZ5ZAXC1irUpnkUCN1PZu2WtHACD2b0+WKMCZIm6Nb1f5cEADKnH+9Ay
+O2ZgHtx/ABiDqNun2fsRcLUeefAqO2YA5qty3Yp8GOitRx68zo4ZgPnrkQ8v
+smMGpmf32siDARijqJu1Zj03UCXq5teYnQbA3cmHgVuQBwMwFT3y4WV2zMA4
+tf3BNX0R8mAA0u1eq4r3LuvpgFeifp3cF3kwAGNR+UxTPgz8rWcerOcKgFGR
+DwO15MEAzEmPfPhddsxAjt3rSR4MwNz0yIfX2TED9xX1c8rlwQBMhnwY6CIP
+BuAR9MiHzUeCmYu6OYzyYAAmrekH7pEPP2XHDQzP/QCAR6QOBHhOBMAj65kP
+L7PjBq4T9XvJyYMBmKXd603UrZdpvM+OG+gn9mvkamamNT7IgwGYq6hfP+69
+ESao52ffdXbcAHBrPWtFH/UQwzTsXqvKv+/GKjtuALiXqN939bmH+E127MBp
+7d/1hx558DI7dgC4t/Z9c93jfVMPMYxM+7xn2+Pz7SI7dgDI1OS2PfJhc0dh
+JKJ+bvDXNm/W9wQAX/96L11G/TobPROQ6IqeiE1YDwsA34h+Myb0TECCnj0R
+jXV27AAwVtFvTd1zz4TnrXAH0W9ORGOZHTsATEH0W1PX1JTfZccOc7V7PUX9
+HnLPf5s+qwJAhejXQ/zci/iUHT/MSezXx/X9e9QbDAA9RL99OdSIYSBX1IIb
+q+z4AWDqov8cYjViuMIVtWBzgwFgYFf0TKgRQ4Ura8F6IgDgRq7omXh+j7Z+
+B86I/YyIPp859UQAwJ1Ev73q/n6/VreCbzU9DVd8ztz6nAkA99W+d2+veO+2
+Zx0PL67rx//afi712RIAEkT/PWAP+yaess8DMkT/tXFfwx7oADAazXvyFe/p
+als8lCufqXxtP3/6ewGAERmgRmzeBLMW182HUAsGgAkYoOa19X7PnMT1PcGe
+nQDAhLTv/dfMmnjuJV5knwv01f4drOK6/qGtvwMAmKa4bh6xnJhJGigHbqyy
+zwUAuF5ct15eTswkDJgDN7/rT9nnAwAMJ4bpmZQTMzoD5sDb0CsPALMW+76J
+jZyYqRswB26+f5V9PgDA/cR+JvF2gJy46UdeZp8PjyP2s9HWA+TAX9vjmA8B
+AA9qoLra8/Pld/IKbiX28wLXA/yuPj/X+CH7nACAfAM+a35+3tzkK0/Z58U8
+NM8d4vp5KHp7AICzDp49D5FzPOcdy+zzYnra38X3A30+e35uscw+LwBg/G6Q
+E39p85qn7HNj3Noa8GbA3z05MADQyw1y4r9rxaGvmFbsZ5sMWQOWAwMAg7lR
+Tvy1PaZ5rg+o/Z16F8PMMpEDAwA3F8OusTvuoZAXz9xB/jvUOrjj5w2L7HME
+AOavzYlvUdOTF8/MjfPf52cLi+zzBAAeUwy/1uk4L/4Q+osnJV76f2+V/1qL
+CQCMSpv/rGP4/olDTW61CnskjErsnxMs73T9fS4CAEYrbts/capm/E5unHKN
+39y49nuoybEX2ecNAFDjTrViufHtr+O9c181YABgNuLlGfrmTnnUs02bvzV5
+3FP2z2Eqmhps+5mi+WyxveP1eu4D9lkGAJiluP1cgUu51nN+3OTmi+yfxwiu
+RZP3rtq8N+uarMPcEADgwbS52OrOtcdTtm2OvGrz9CY/fMr++Qz4c27O5017
+fuu4f33+lL/mg2T/bAAAxiBy68UlefKHNpdctbllI/VZfux7T55jWbaxvW/j
+HUO+e0j9FwCgwEFe/GEEOVyNjwd56HH+3MdhXvvsHusQh/wc8Ve/dvbvFADA
+VMXLDIPtCPI7znue5fGU/XsDADA3sa8ZL2P/vF1unG8Tbd9I9u8GAMCjkRvL
+fQEA2IuX9WSrmF5/7dg0/c/rsH8JAMBkxb52/DxT7N77R0zFJvY92X/NlMu+
+ZgAA3FZ8O4vsQ4xvDtnQtgc57ypmNkcZAIDrxUufxXMteRUvM822I8hpz9V2
+G+v4dt8Q/Q0AAAyqyTHjZa+Lw7z52TpezweudXzM5/z22XfZPweALv8fB3jC
+hw==
+        "], {{0, 396}, {707, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{85.96093749999937, Automatic},
+      ImageSizeRaw->{707, 396},
+      PlotRange->{{0, 707}, {0, 396}}]]]], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{"B", "(", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["p", "2"], ";", 
+         SubscriptBox["m", "0"]}], ",", 
+        SubscriptBox["m", "1"]}], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"], Cell[TextData[Cell[BoxData[
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3T2P3Nj3GOiD9QYbzgD+AL3zCQTMF2gbCjcQvFBeNrBKLdgGBGcdKuxU
+WcUTKZ+kNttAgUInDVTgdAUlG/eSv2JNU9VF8pLFqsuXh8Dz//9GqqZuvXSR
+5557zv3f/9N//g8f/peI+K//W/F//sN//PTv/st/+Y///f/8X4v/+Pf//b/9
+X//p3xT/4/8u/v7fFv+j/MPn52cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAYMWK433hU6X8g8+5xwQAAExHcXyoxQylpyp2OOd97vEC
+AAD5tcQMbX7PPW4AAGB6qrVNP1piib9zjxEAAJiusj6iJZ74lHt8AADAdNXq
+rs/5M/f4AACA6WrJT/zIPTYAAGDaiuNbQzyhTywAANCo7N2kTywAADBE1d9J
+n1gAAKC34vhLn1gAAGCIlr0n9IkFAAAalb1g9YkFAACGaNl3Qp9YAACgVUvt
+xJfcYwMAAKZLn1gAAGAofWIBAIChyr2vG2KJb7nHNgXF8cE6MAAAOK+MG/SJ
+bX19xBMAAHBGR+2EPrHP4gkAAGiiT2zSa7T6eKJ6DT5Vjr3AGmv1a48/fd2e
+qj8XqwIALEDfPrHF8UdLPiPFh9zPecBrtIp4ojje1mKGppqa1lr96rVq2mf9
+VPnZ+yP38wYAYLiWe7+kPrHVvedTx33j59TzTdHS44mBMeK3M+f4e8B5nsQU
+AADzVK456TP33HKepjVTf/U5z1QtPZ4483x/j+a81dGn2uPf9shJNMUUs/+c
+AACsTUsc0KtPbJxfGzPbfMSZ57eqeKL2vJv6fpX+rB7z9uTPP0etNqKKTZo+
+Z2fjEwAA5qHlfjH53i5er5V5ioXV2q44nvjS8Pn4Uf19PZZozUVFey7sucpv
+yFEAAMxEjNAntjpHPSYp//fi1sKLJ175XMWRxzVOfWpt2mKKxeS0AACWrrx3
+a5t7TjxHPZb4K/dzuuJrtdZ4oil/9aHKQ/3ok4s6k8t6Fafkfs4AAKSJ5n6g
+nffJZ/ISi74PXGM80ZG/OvZxejvgvG29wBYbkwIALE3L3HPrmpNqjrn+s7Pb
+T2LAa7XGeKIpf3U0qH462nvK/p37eQMA0C0G9omtfq4+v9x7fnqOVhpPtO1n
+93TBedviicHnBQDgdmJAn9iT+erF9XDqeL3WGE+0rUsaHEeKJwAA5i+a9yo7
+u4blJP5YZA+njtdrVfFER/7qojVJ1jsBAMxfNO9l/CrncBJ7/N22HmqpVhhP
+tPV1vaina7TvkaceGwBg4lrmnn+cPO607nqx988Jr9na4omm/FVyL+GWczfF
+sqVF9wkDAFiCSOgTG4d9j+v3fbNc196xtmYycr9OZ163pnv+i+73o70HbWlQ
+zygAAG6nZb3J++rvm/qEzq6Xk3hi0GvW1if2ohr8OMSpba/Famr8AQDmqGN+
+uPy7th6hs1vbLp4Y9Jo1fQYae3/1OHdbXcbFa6kAALiulrnnp8R771n1dRJP
+DHrNmvJXF69F6ng/1E4AAExccXxJuL9te8wq17fHSuqxoz1/delap67aidmt
+pwMAWJto763z43hPF1fs7zNHK4onmtYjXVyP3/AaHl28lgoAgOuKjj3Korav
+RLTXzX7I/VwyvHZriSea4siL1yJF+1qn1X2mAADmpmXu+WyddRxqKs7GHrmf
+S4bXbi3xRFP+6qK1SB2xrNwEAMAMtMw9n62JaIk/Ll5LPzdriCda7vnH2MOu
+rSZH3QQAwMTFoRa2ae75bGwQ7fWzi7qXTnj91hBPNPWJvahPcBz2Wfc5AgCY
+sWjuE9s699wyr1zGJr/fYuxTsJJ44ip9Yls+Q09r+gwBAMzZ0LnnljUwF99n
+zsnS44mOXNTge/5or+tf1Zo5AIA5u2TuOZr78lzcQ3QuVhBPNOWvLqqVjuaa
+/tXEogAAc9cx99w5R9wxx/w+4efLuu5Z7at95jksPZ5oWpM0uE9sNNfz2wcb
+AGBGGu6FO2snTs4xqHdsbd571vPRK4gnmmr1O+PFhvM1rZNbzGsGALAW0dwn
+NrlvT0tMUmrs91nFIbNfF7XkeKLl3n9Q7UQc+jmdiz8X8XoBAKxNy9xzr5xB
+3xxFvNSAD5rjnpKFxxNN65J6107EYW3duVqdRbxWAABr0zH33Ku/TkeO4v3J
+Y4/rnC7au2AqFh5PNNXb93p+LbGEegkAgJlqmXsetOdxw/3ic5UDeVs95hhL
+LGZ/gaXGEzHSnoVV3Hqav/qxhNwUAMCatcw9D8obRHuvp+S6irlZcDzR1Cc2
+OR6M83ublJ+7Wff0AgBYu46558H9lhruH0c7/xQtOJ7oei+fzr2X1etx7mef
+5CQAAJahY+75or2JW/Iei4slque71Hiiqcb+SzTX8Z9TroP7kPv5AAAwH/G6
+NuPzpXEKN33/OvvEVnFU0153n2IBexUCAAD9nYkH/8k15B4bAAAwbdG8z6H+
+rgAAQKuW+gj11AAAQKOOWv1F7BkCAABcR0ufWLUTAABAq2je51ztBAAA0Cja
+9zm0hwQAANCopU/sxfscAgAAy9bSJ/ZH7rEBAADT1tIn9q/cYwMAAKarXM/U
+stbpU+7xAQAA09VRO2EfOwAAoFFxPLXEE29zjw8AAJimlj3srHcCAADOKtcx
+tfR0ehVT2IMCAAAojr8TYwg5CwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAgBkrjrvcYwAAAOapOL4WdoU3uccCAADMS3FsCs+Vh9zjAQAA5qU4
+ftZiin3hPveYAACAeSiObS2eOHos/JZ7bAAAwLSVtRNn4oljruJd7vEBAADT
+VsUO52KK56pmW64CAAA4q6zFboknnqsai03ucQIAANNT7kPREU8c7exZAQAA
+nKpihZSYosxVfMw9XgAAWLqy9+oZDyM792/0rneIX/eiSPE97IMHAADJ4tAL
+6b669z7ezx/3mN7Fr3s5TMXP2vh2tXF/PMYf1XP7beD5H3K/LwAAMAW1eOF4
+z328B88dE9zK/zvw5/ZxiLH0gQIAYNGqefj7an7+sYoX9hO4l1+Cn9Vrepf7
+fQYAgEvFId9Qzps/xHTWI+3j1/VHl/g+gefTpFwHdp/7MwAAAClqscMx53Dt
+++XjPX153/wQJzUJlbsMr8NvJ2PY1Ma3jdvXepQxzyb35wMAAI5q98wPV7o3
+3lfn3Vb/xqb69xbXzygOe0/8H4X/78pxxc/qtbzL/ZwBAFiXKn54F4fcw1hr
+fI59j44xwyLjhcTX9tbrprZrfK0BALidat58rPjh+0ncoA/Rc7ZYoq6M5za5
+XwcAAJbpgtihjEM25sA7X9+vGWOJun0V64nzAAAYTXTXVe+re+J/1UHnHu+c
+VPma3HHEUX3PvXe5XxsAAJahmrM+jR+2Ve7hLvf45urCWOJ473/MAd23kG8A
+ACCbOPSAFT+M+5puesQOx/xPGde98x4AAMB6dcQSx5r14x4acgsAAMC/VDHC
+MXaor1dSsw4AALSKQ2/Yu9zjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAciuP+xKbwMJLT
+c9/lfr4AAEC78r69un9/V7u331W+F54n4GdtTNtqjB+PsUfu1xAAAJasON5U
+997lffhjdV++n0CcMLbyeX2tnuemes6/5X79AQBgDuIl1/BQ3VdPJb+Q2zG/
+8XiMM3K/VwAAkFM57x4va5R21T1z7vv2uSnjrW0c1k69yf2eAgDAtcRhzdLH
+6v53P4F78aXaxSFGK2M1a6UAAJilWvxQrluSe8inzGE8ii8AAJiyOKxf2sQh
+/yB+mK4yvngI66MAAMgsDjmIh5hv3XS9j+sl9hN4LkOf/zYOcaDcBQAAVxeH
+dTPbid5Df49fe64+VOO9jxvvMRe/7m33MX7tdbuLaeZwdtVYb/Y6AQCwfLUY
+Ivc98DGfsD2JFWY7tx4ve2scY45dTCPf811sAQDAUNU9bs4YoryvfoyXfaRn
+GzNc8B68iZeeumXOZZ85tljdewAAQLo47Cf3mOG+dRcv+Ya73K/D1MVLPmOb
+4b0q45pN7tcAAIBpiJe+TLdaY7MPe7Bd4z2s7w14i/fxWMvtPQQAWKE4rKXZ
+xvXXMx3jhzJmucv9vNciDjmMW8UX30OPKACAxYvb5SLKNTFqeSckDvmLa69l
+k7MAAFigeKmLuFYuYl+d/13u50ry5+G4d/m1YotdqLMAAJi1eOnRdK01Lmog
+Zi5eai+2V4o396E3FADArFT3h7srxhB3uZ8jV/3sXCO2KM/34LMDADBdcaiN
+2F9hftl94ApVscU11kRtfZ4AAKbjCnGEulrqn69r1fGLKwAAMrpCHLELNbS0
+iOvU9osrAABuaOQ44md1f3iX+3kxL9XncCeuAACYh5HjiO9yEYyhyllsR8xZ
+iCsAAEYUh76vY80Dl/dq97mfE8sThzqLjyPFvMd+UPrMAgAMVM37jtFfx5om
+birGWwv1Ux4NAKCfap730Rwvczdibm0vrwYA0K2a1710Hfq+Oo84gkkojjcx
+zl7tX+XZAABeq+ZxL+3vv7c2hCmLl9rtS+MKeTcAgOfR1jaJI5iVkeKK8nN/
+n/u5AADkUhzv4rK1TeojmLUYp77iq98BAGBNqrnZS+6hxBEsyghxRfk78TH3
+8wAAuLY49Oe/JCdRrhG5y/084Bri8j0bd34/AIAlGiEnUf7sm9zPA26hyr8N
+jbvlKgCARbkwJ1HO1b7L/Rzg1uLQq2ArVwEArNUIOYlyjlaNBKsWl/VSlqsA
+AGYpLuvdZF4VTlyY59MDCgCYhQvXaPy0tgmaVb9fXy/4/brP/RwAAJoUx5sY
+3ptma/4U0lT5v6G/a4+5xw8AcKpaizHk3mZvzhT6i8v2li/rMe5yPwcAgAvX
+XzzKScBl4lCvPSRXYX0hAJDVBeub5CRgRBfmKqx/AgBuLg77+A7pNaPPDFxJ
+DO+rtvN7CQDcSgzr32RtxeWv+4fCp8q36nX9PfFnfz/5udJT+WcDx3I839MY
+52PUz8nQNYjl76g96AGAq6nuU4bsq1XOfd7lHv8cFMcftZih9KPldf2WeM7P
+He/P3z3H2HW+b6lxDlf9LA3dr2KTe+wAwPLE8FqJh9xjn4Mqjuj72rbmAorj
+z5P8weBzDTjfl9yvKf/83g6ZA1BTAQCMJobVStg76/LX/VPHa/xny8++7/l+
+teY6BpyvJEcxATF8j8ldqKkAAC4Uw/aVcB8y3uvflA/40fIzH2qP+6vwtvrz
+subhW9P7lni+L8c4Jg45lbZ8xdvcrx+/vI+b6D8vYJ8KAGCwgXOa1kmM+x40
+3a//1fD4+r3/+46/74wnao//cS4+iPYcinhiYmLYukV12gBAL3FYH7EbcM+h
+f9P470VTPfareoeTe/+za6Fa4olX+Y7aY8uY5o+e53tuGgPZP1ND+j+Vv9+b
+3GMHAKYvhvVw+m7+8irvxZ+p9+plLqArlqge19Sb6a+G8zXGEh3na1yPxTQU
+x0PP3/NnMQUA0CaGrYXYhVqJa70fTWuJvp087s94yWO0rjGK5vqJT7XH/FGd
+70dbLNFxvl49aMn2GdtE/5oKaxoBgFeqWMJ9xYTEoZb63Ov+ufaY3+OlxuJD
+x/l+b3kv/6w97tvpnzWcr63H7eehz5ubf86GzCNsc48bAJiOgbHEJve4l6zj
+3v997XF/p96/R3PP1x+1xxxjmJT9KNRiL0QMW+e4zT1uACC/6L/ewb4St3lf
+2vZ7+L16zLF24WyvpzPnbKp1+Fz9/af6fyecryl/onZihmLYPhW7sN4RAFar
+iiX63DvsQ931rd6bpnv/b9XfH+ONp0jcNy6ae0WV5zrWTLTua5d4vqT4hmkq
+jsee3wvfxRQAsD4DYgn3DLd9f5rqnD/X7v3L/07qyRrNvaJ+1P69zvrrhPOV
+OtdKMW2+HwCANu4Vpi066qZrsUbyfXs01zp8iZdcSGs9d+L5Skn5EqbN9wQA
+cM6Ae4Rt7jGvTbTUTdfu/Xv1Y43mWodjXNBrjVI050+S10sxfdG/V4OYAgAW
+TCwxD9GyR1zt/yetS6qd81ytQ/lnT33PF+35E31iF0ZMAQCUxBLzES/7STTp
+VZ8Q7b2ixj7f+z7nYh7EFACwbgNiiYfcY16raK9zLj0NOGdTvmPs8+kTu2BV
+TNFnjwoxBQAsQHHc94wlNrnHvGbRXudcSq6Zrp2zqdZh7PPpE7tw0X/fu13u
+MQMAww1Yo7DJPea1i+a66aG5hLZah7HPp0/sCgyIKba5xwwA9CeWmKdo3iNu
+aC7hw5j3/x35k6S9MJg/MQUALFtx3Ikl5ifaayfKOKP3vg4t+Y6xz6dP7MoM
+iCkec48ZAOg24Bq/yT1m/nnv2ub+B/Vhbcl3fBn5fPrErpDvGwBYFmsQ5q1l
+7r/Ua7+J6nxt+Y7efV3HPh/LENZWAsBilPGBWGKeor3Oudde2LVzNuU7BvV1
+bTtfDFg7xXL0jCnKx73JPWYA4FfF8SiWmK9o3yNuUN+kMg5pON+gvq4t+RN9
+YhkSU9zlHjMAcBD99qv7mnu8nH0P2/acG1I33ZbvGLLWqXef2DisjxpUp8E8
+VTFF6neR/e4AYAKi3351rt8TFc17xA1d69SW7xgSn7Sd71Wf2Cr+eIrDWqje
+tR/MV8/5jV3u8QLAmkW/9QViiYkaMvefcM6mfMegvq4t5zu7J168rI2yx90K
+9YwptrnHCwBrFP16OVmrPGEdc/+D5vZb8h1D+84mn68We6irWLHoV9O1yT1e
+AFib4vjaI5bQS2XCrpBLaOvr2nsP6+hRi1GLjcr4Q8+nlYt+Ped8TwHAjRTH
+g3m/5YhDncGYa53G7hP7tuXz9fuZx41SM1Geo3oudcfXyn7cMxD986jWZAJX
+VxwfateV4/rcxl4ltceffm89VX/ee64OciqOdz1iiY+5x0vn+zlqLqE656h9
+Xavv0aYxfqgec8xL/Lj0ezWa+9zW2Y97JqqYYp/4nfU993iBZajmuI4xQ1sP
+xVfzY7VzfKiuaynfX+W1V/8RJq847iK9/nqbe7wkvadNuYSzdc6J52z67hua
+72ir76i7OJZo+PfPXQfsxz0j0a93xGPu8QLzFYfcduq869G3M+dImdt6de0W
+UzB1kb5uwBzfTERzLmFo3fQ18h1t56x/h14l3xvn11upzZiZ6JdbfZd7vMAy
+xKEGsOla+2q+rbrmpOYkmq6HrlFMUqT3SrEGeUZavrMGzb/HyLXdtfO2fRf/
+dc3vzni93krfqJmK9NovPemAUUVzn8J/5tvOzF99rs+VVbFJ07qCs/EJTEX0
+m9fTI4XRVd+hX06/L+MGNWhnYiTf0zMW6b3p5FmB0Zy5hh39qP6+Hku0zpNF
+d97+xzXn2aCv6Fczsck9XhhbvM7h6KMxY9Gv55NaCmAULfFEOWf1R+1ak7Q+
+ICFPoc6Pyehx3d3mHiuM7cwc0KCet0xL9KvPVksBXCya1zuVa2qfomdPkeiu
++9aHkEmI9LXGZcyhZoLFOTP/8yX3mBjtvd0kfr+pCQMuEu37sh77OL0dcN6m
+/aP+tWYq9/OG4rjvca1VM8Eixet+ffLHCxLp+2fvco8VmK/o7ns+tJ96W0/Z
+v3M/b9Yt+u3/tMk9XriGhvkk9W0LEv1qKezPCQwS7fvZXbLfU1s8Mfi8MIZI
+7w27zT1WuJYz80kX9bxlmiK9lkIPWWCQaF+X1HudU+284gkmKdLXOZX5C2uK
+Wawz80lq2xaqzD0kfu/tco8VmJdo7+160ZqkjnjCeieyiH7rnNRMsGihT+yq
+RPq+FNY9Acmiva/rRTV50b5Hnnpssoj0dU4PuccK13RmPkmf2IWr5lOsewJG
+FYe96c59l1x8XTkz7yWnTlaRvs5pl3uscG1n5pPM86yA70FgbC33/Bfd70d7
+D9rSoJ5RMFSkr3MyL8cqnJlP8r28Ej3ytNY9Aa2ivU/sRWtoi+Ntx3eUNbrc
+lOsnvGiY89EndiXMrwBjieY+sRf3C4z2ugxrdLmpOPRKlN+Hypn5JH1iVybS
+1z19zT1WYLqiuV764px3tPd2UjvBTUXaXk7m4ViNM/NJvpdXqEfe9l3usQLT
+05DrHmutU1ftxOA9LaCvSO+5bp0TqxGv9x26qJ8f8xTp657Kx9iLB/hFNK9H
+unifueL40PKdJKfOzUR6b8Rd7rHCrcSZPrGhdmK1In3d00PusQLTEs19Yi/O
+eUf7WqcPuZ8761Ec28TrpH3rWI0z80n6xK5cpO9zd5d7rMB0RHOf2IvWIp2Z
+95KbIAtzbnDemfkkfWJXTi4X6Kvlnn+MPey+tHwPqZvgZsrrXsK1cR/WBLMi
+cb6+Tf9uys9Gaq3Zfe6xAvlFc5/Yi3LexfFHy/fPl9zPm/Uojk3idVHPElYl
+XveJ1b+bf0RaL7x97nEC+cWV+sS25CbKPiJq/biJSO9Xsss9Vri1M/NJ+sTy
+j0hfJ6ofHqxYQ677aPA9f7Tvhy2Xzs0Ux0Pi9fAu91jh1s7MJ+kTyy8irY9F
+WWthrSis1Jlc99FFtdLxupf5KDkP6CPSawofco8Vbi3O187JHfML36NAl2he
+kzQ45x3Ne1nIo3NT5tWgWbxe63TxfkMskzwv0Caa+8QOynk3zHeV1F9zU+V1
+LfH6t8k9VrilOOwx2rTnkBwyZ0VaHdo29ziB22q59x+U845DP6dz65zEEtxc
+Ym7ie+5xwi1E+76ijXKPm+mI9D55d7nHCtxONK9L6l07EYe67nN9osQS3FyP
+3MR97rECzEWk7eOzzT1O4HZa5qt6xQAtsYR6CbJIzE3sco8TYE4ivX/sXe6x
+AtcX7X1ik+OJOKyZOl3jVNZk6DlIFnITANcjRwEcRXOf2OdI3G8uzu+rXeY8
+/sj9/FivxNzENvc4Aeaox5zNXe6xAtfVEAucxhSv+nzEoS/IuZ99kpMgN9c5
+gOszbwOUzqxR+metUzT3kD2nrJv4kPv5QMk1DuD6zN0AkdAntspDNO1196li
+XROT4foGcDvmb2DdYsQ+sTAVrm0At2MOB9YtmvdF1d+VWXJdA7g98ziwXtFc
+H6GemlkqjgfXNIDbSpzL+Vn4LfdYgfFEe5/Yzh6xMDXldaq6XnVd097kHivA
+0hTH14Tv34fc4wTGE819YtVOMEvFsUm4lu1yjxNgiSJtz+x97nEC44lDf1e1
+EyxGeZ1KuJbd5x4nwFJF2p7Zm9zjBC5Xrmdq+T23hwSzUxzvEq5h33OPE2DJ
+fBfDekRzn9jSn7nHB30lrtvd5B4nwNIl5orVscHMRXOf2B+5xwZ9RVpfkX3u
+cQKsQaTVsm1zjxO4TDT3if0r99igr+J4TLh2PeQeJ8AaRHqvPb1jYabK9Uwt
+v9ufco8P+nLdApiWxHmej7nHCQzTUTthHztmRV4dYHqsQ4VlK46nlt/tt7nH
+B31EWm/C+9zjBFgb38+wTNG8h531TsxO4vyXvoQAGURa79ht7nECacp1TNHc
+0+lVTBH2oGAGiuMh4fO8yT1OgLWK7t6xZf2b+jaYsOL4OzGGkLNgdhKuU8+u
+UwD5RFpd9ib3OAFYn3LNrTw6wLQlrkvd5R4nAOtTxgoJ16j73OMEWLtIq8u+
+yz1OANYluvec2OceIwD/+r7eJMQT9qIA4GYirWfIY+5xAvCv7+zfEr6z9eID
+4GYS1zrd5R4nAAe+twGYkoS1Tua5ACYkMa9szRMAV+eaBDBP5oIAmAI5c4B5
+8v0NwBSY3wKYJ/llAHJzLQKYN3NCwCXK+7zyeyIOfah/yz0e5qc4HuXKAeYr
+cc2TewTgrDj0nz7OS/ysvlPe5B4X81Ece/NaAPOVmGfe5B4nMF1VjuLVPaCc
+BV3K2DPhGvSQe5wAtEv4Lv+ae4zAtFXxw7nvDzkLGjXEoqd8dgAmrowXOr7L
+f+YeIzBtifPMchb8ojh2HZ+Zfe4xAtCtur533Qfc5x4nMG2RVlcrZ8Hx8/Jb
+wmdlm3ucAHQrjruE7/TH3OMEpi1+rc1O9b1a8yJnsTKRVr/3Lvc4AUgTzWuf
+/7nm5x4jMH2J+c7GuWi50PVIzGeJMwFmwvc6MJboXhOfYld9L5Vz2He5nxNX
++Zx0zWPtco8RgHTlnKC8MzCGSKvN7msfh94RH+Uw5i/Saiceco8TgH4SvtvV
+UECCam597f5njB9TyGEsRKTVTtznHicA/UT3GgU1FJDgBvfRnFfWgpc5jAf3
+otMW3Wts9SkHmKFI21dIDQV0mMB9NS/xhbzqBEV37YR9VAFmKNLWPKuhgA4T
+uI9eq/IedRuHHlP2tpioUDsBsGgJ3/Hm+qBDHNbbrN3/E9eNHaxtmqlI6//h
+PQWYqeiuodjlHiMwbXGd/k5l7qFcc78JtdezVsWAre937jECMJzveeBS0b02
+vste7mG5zFsBLJs8NHCJSOvr0LR+6VHuYfmq97rts2BdLcCMRVqd3Mfc4wSm
+p/r+6LpXfDUXXa5hyj12bvYZuUv4TOj7ATBzCWsVtrnHCExPHHoryUXQ9hlJ
+2cfO5wJg5hLuCexrB/wica3kV7mIdYvuGj372AEsQCSsf849RmBaWvKa++oe
+8i73GMkv1GIDrELiPON97nEC09AwB/HVOnhORXd9zUPuMQIwjoR4Qk02UH5X
+1Guw5SJoFGn9PsSgAAvRsnbhSD8/oPyu2MhFkCIx932Xe5wAjCO6a7J3uccI
+wHyE/VIBVsX3PgBjikOPYPNUACuRmJf+Lfc4AZiH6O7ttM09RgDGE2l7mN7n
+HicA8xB6OwGsTkI8occTAEnMUQGsT0Ju+iH3GAGYvsQ1tG9yjxOAccWhB6Ta
+OQAuUhzv9PgAWJ/o7vH0PfcYAZi+hOvJPvcYARhfHPapMp8EwEVCr1iAVUpc
+76pnLACtEurxtrnHCMD4Qs9YAEZQro/V3wNgnRLiiXe5xwjAtCVcSza5xwjA
+dZQ1cuaUALiEXDfAeiWseX3IPUYApqs43iTEE/aeAFio6N6D4mvuMQIwXSm9
+PXKPEYDrie6e4bvcYwRgusJedgCrlhBP2NMOgEYJ15F97jECcD1hTzsALiDP
+DbBu1r0CcAnxBMC6iScAuETYGxtg1cIe2QBcICGeeMg9RgCuSzwBwFDiCQDE
+EwAMJZ4AQDwBwFDF8bPjGrLJPUYArqs49h3Xgo+5xwjANJmTAkCuGoChxBMA
+iCcAGEo8AYB4AoChxBMAiCcAGEo8AYB4AoChxBMAiCcAGEo8AYB4AvqpfmeA
+A/EEwMolXA/2E7hewVRsovv+CXhxn/s6B8B1xeEeKff1BubiYQJjgDm5y32d
+A+C6QjwBfTxMYAwwJ/e5r3MAXFeIJ6CPhwmMAebkPvd1DoDrCvEE9PEwgTHA
+nNznvs4BcF0hnoA+HiYwBpiT+9zXOQCuK8QT0MfDBMYAc3Kf+zoHwHWFeAL6
+eAB+0fU7c5/7OgfAdUV3PLGbwPUKpuI+9+8sTEmIJwBWL7rjiYfcYwRgmsQT
+AIgnABhKPAGAeAKAoYpj7xoCsG4Jc0ub3GMEYJrMSQEgVw3AUOIJAMQTAAwl
+ngBAPAHAUMWx7biG7HKPEYDrKWOFhHjiLvc4AZimOOzLIp4AWKmUeCL3GAGY
+LvEEwLqJJwC4RHF87LiO/Mw9RgCux3UAgEuYlwJYN3lqAC6RWIf3W+5xAnAd
+xfEongBgqLJnR0I8cZ97nABcR3T3Dd/mHiMA0yaeAFivhHjiIfcYAZi2stbO
+tQRgnRLmlD7mHiMA02ZuCmC95KgBuFRCPPE19xgBGF9xvBFPAHCp0CsQYJVC
+z3AARhDdexk95x4jAONLmE+ylx0AnVLmp8IeFACLE/aeAGAE1s8CrJP6OQDG
+khBPbHKPEYBxFce+47v/IfcYAZiH4vjumgKwLglzSe9yjxGAeUjIee9yjxGA
+8STWzt3nHicA85DQ42Ofe4wAjKdcx9oVT+QeIwDz4boCsC7mkQAYk7w3wLpY
+5wrA2BLiiY+5xwjAOIrjpz4cAIwpuns8PeYeIwCXK47fEuaQ9HYCoJfi+Cr3
+DbB8iWtc3+QeJwDzklCb95x7jABczvc9ANegJhtgHdRiA3ANietp1WQDzFxC
+LbZ6OQAGKY59xzVmm3uMAAxXHHcJc0eb3OMEYJ7KeKHjGrPPPUYAhouE/UvL
+mCP3OAGYp3I9U8J15rfc4wRgmHItU8d3/M/cYwRgvorjTUI8oSc5wExF915D
+X3OPEYB5U6cHsEz6bgBwC9HdR/B77jEC0F+ZX06IJ+5zjxOAeYuEfY7UUADM
+T0LtxHPuMQIwf5G2r50aCoCZSaid2OUeIwDLkBBPbHOPEYB0kbbvxEPucQKw
+DAk1FPvcYwQgXaTtO3Gfe5wALEOk7UNxl3ucAKSJ7v1K7TsBwGgibR8KPQUB
+ZiK6e4HbdwKAUbn2ACyDOSIAckjIjesbCzADkdAn1hpWAMaWWLunbyzAxEV3
+n9h97jECsDxl7iEhntjmHicAzSKtT+xj7nECsEzR3TdWPxCACYu0fn33uccJ
+wDIlXoeseQKYqIS1TuaFALiaxDz5Nvc4AXjNdzgAU6COD2Ce5JgBmIJI6zPo
+egQwMQnzQSV9vwG4qkjbB2mbe5wAvEhc62RfUgBuolzTpJ4PYD4S1zptco8T
+gHWw5glgXqx1AmBK9AgBmA/rVAGYInNdAPMgpwzAFFmLCzAPat4AmKLENU/f
+c48TYM3KvIO1TgBMVXF8TbhOvck9ToC18j0NwJSV65nMewFMU2IeeZ97nACs
+W7nutmtdrrpsgNsrjoeEeOJj7nECsG6JfUM2uccJsDYJddj68AGQXaT1NVeX
+DXBDiXXYX3OPEwBKkbYXxX3ucQKsRXHsEr6X7TkBwCSoywaYDnXYAMxRQl12
+6S73OAGWrpy/UYcNwNwk1mU/5h4nwJKV9dUJ38XqsAGYnMT8ut6xAFcUaT1i
+t7nHCQDnJObYH3KPE2CJqtyEtacAzFZx3KsBBMgj0npj7HKPEwDaRFqPwk3u
+cQIsTaTtX3efe5wA0CZxfmyfe5wAS+K7F4AlSZwj2+QeJ8BS+N4FYEnMkwHc
+ju9cAJYo0nqMbHKPE2DuEnMT9q8DYFYirQf6Pvc4AeYsMTdh7x8AZifS+6Bv
+co8VYK4ScxMPuccJAEPIUQBcj9wEAEvXI0dhXS9AD9X3q9wEAIuXmKMwfwbQ
+g+9WANaiR47iIfdYAebA9yoAa9Njje9d7rECTF1xPKpNA2BtEtf5bnOPE2DK
+ynmXhO9SvfMAWJzEHEXpPvdYAaaqOHZyEwCsVXF8T7gO7nKPE2CKyvmWxHmZ
+d7nHCgDX0ONauMk9VoCpSVw3uss9TgC4puL4mlibrcchQCXS+sOW3uQeKwBc
+U49awsfcYwWYgup7M6U/7Db3WAHgFsyzAaST1wWAX0X6Xky73GMFyKlH3dlD
+7rECwC1Fev/Yj7nHCpBDNfeSUoO9zz1WAMgh0vqo2zcbWKVI2we7dJ97rACQ
+Q1kfkXit/Jp7rAC35PsRANL0mH+zPxOwGpG2/6f8LQCr12N9sN4lwCpEeg88
+9WUA8Nyrf4m8PrBoPdY57XKPFQCmJNL6q5c2ucdKts/Ih8Knyrfq8/B74s/+
+fvJzpafyzwaO5Xi+pzHOB6UqX5uyzqlkfx4AqIn0PSmsF16w4vijFjOUfrR8
+Fr4lnvNzx2fq755j7Drft9Q4B+oivZ7sIfdYAWCKiuOdPP86VXFEyntf15oL
+KI4/T/IHg8814Hxfcr+mzEukr/v8nnusADBlkb7u6SH3WLn6Z+FTx2fgz5af
+fd8zNmnNdQw4X0mOgiSRnp8tWecEAC1cVzn5PDTlA360/MyH2uP+Kryt/rys
+efjW9HlKPN+XYxwTh5xKW77ibe7Xj3kwjwIA44r0dU/70EN20Vru1/9qeHz9
+3v99x993xhO1x/84Fx9Eew5FPEGn4viY+H1nnRMA9FAc28RrrB6yCxbN9div
+6h1O7v3ProVqiSde5Ttqjy1jmj96nu+5aQxwFOm9YcucrXwsAPQQ6fvclezp
+tEBxqH9OulcvcwFdsUT1uKbeTH81nK8xlug4X+N6LCj5jgOA6+sxd/ds7m55
+onkt0beTx/0ZL3mM1jVG0Vw/8an2mD+q8/1oiyU6zterBy3rE+k1E3KwAHCB
+4nhIvOaW83xqKRYkDrXU597rz7XH/B4vNRYfOs73e8vn58/a476d/lnD+dp6
+3H4e+rxZvkivmfjpew0ALlccu8Rr7y73WBntPW+7939fe9zfqffv0dzz9Uft
+MccYJmU/CrXY9Bbp+0yU7nOPFwCWIPr1kH3MPV5Gec/b9nv4vXrMsXbhbK+n
+M+dsqnX4XP39p/p/J5yvKX+idoKziuOux3fZQ+7xAsCS9JzT2+QeLxe/3033
+/t+qvz/GG0+RuG9cNPeKKs91rJlo3dcu8XxJ8Q3rUs2LfE/8DtvlHi8ALFGk
+11LorThz0Vzn/Ll271/+d1JP1mjuFfWj9u911l8nnK/UuVaK9Yn0HthqJgDg
+iiK9lsI1eaaio266Fmsk37dHc63Dl3jJhbTWcyeer5SUL2E9esyFlO5zjxcA
+liz69Wz/LqaYn2ipm67d+/fqxxrNtQ7HuKDXGqVozp8kr5diHYpj0yOWsM8E
+ANxAHPalSK1p3OYeL73f38Y94mr/P2ldUu2c52odyj976nu+aM+f6BPLP3xX
+AcB09Zzz0/NpRuJlP4kmveoTWvId1zjf+z7nYrmiXy8nuVQAyKCME3rEFJvc
+4yXpPW2rcy49DThnU75j7PPpE8u/RL9eTmXMcZd7zACwVsXxVUyxHNFe51xK
+rpmunbOp1mHs8+kTS99YoqQXHQBkNGAe0LV7wqK5bnpoLqGt1mHs8+kTS/kZ
+2ZrjAIB5iX7rlMUUExbNe8QNzSV8GPP+P9rzJ0l7YbBcPWMJdV0AMCHRr4+K
+mGKCor12oowzeu/r0JLvGPt8+sSuXM9YYpt7vADAa9Gv55N+KhPTMfc/qA9r
+S77jy8jn0yd2xXz3AMByuK7PV8vcf6nXfhPV+dryHb37uo59PpbBdw4ALE/P
+dQeu7xMQ7XXOvfbCrp2zKd8xqK9r2/liwNop5q9nLGGdJQDMiJhiXqJ9j7hB
+fZPKOKThfIP6ukZz/kSf2BUSSwDA8kW/vSnEFHnfq7Y954bUTbflO4asderd
+JzYO66MG1WkwbT1jiWexBADMU/TfV0pMke+9atojbuhap7Z8x5D4pO18r/rE
+VvHHUxzWQvWu/WC6BsQSm9xjBgCGE1NM35C5/4RzNuU7BvV1bTnf2T3x4mVt
+lD3uFkQsAQDrJKaYto65/0Fz+9Gc7xjadzb5fLXYQ13FgoglAGDdBsYU1jzf
+5r0ZO5fQ1te19x7W0aMWoxYblfGHnk8LURwPYgkAYEBMoSfLbd6Xp4bXf+ha
+p7H7xL5t+Yz8fuZxaiYWJPr1ihNLAMDCiSmmZexcQnXOUfu6FseHljF+qB5z
+zEv8GDruhtfmU7zek/tLGbvkfu/WQCwBAJwzMKZ4l3vcS9SSSzhb55x4ztP7
+70vzHW31Hb/kP8aIJYrjj1pM9HSMWaq/K2OM474ag2pBSHoPyu+IPv2mxRIA
+sDIDYgr3C9d5H5pyCUPrpq+R72g75z/xz0ixxNtaPNTYKzde6sPFFCPz3QAA
+pBp43/CYe9xLEs25hN57zlXnG7W2u3beprjnufq7i2uv49c6jdbxnjzW2qeR
+FMebwl4sAQCkGhhTbEM/2VWJQ4+nLyefg09j5CSq89dzIEn13Cl5DHq9B/dx
+WNsolgAAeolha6XtUcEo4mUv7X/ilMSf+7v2M6PENWsV/feWUFMFALwS/Xu5
+lOsi9H7iIvHrWqrkOvSTfIl9uIe//o8DYgm/9wDAWQNiip/WPDBUvO5F+6HH
+z9bjCXtx93/ty7zkTiwBAIxtwNqHkjpteonX65zKeojkuu6TeGJwf901imF1
+19Y4AgDJqpiib23mzv0GqeL13hu9er+exBPPuZ/PXPjdBgBupZrD7Hvfsbce
+gi5VbuK0V26vmur4tR77OfdzmoPoXytR2uYeNwAwX8VxF/37yZY+5h4703Um
+N9F7vVK87Gknnuh+rfweAwDZxLC6zdJXayQ45zQWiAH7XJ/mN3I/p6kqjncD
+8oz6LAAAoxu4VmIf1j9RE7/uXXfUa4/rOKyXuii/sQZ+ZwGAqYlhtZylh9xj
+Zxri9VqnHwPO8f7kHN9yP68piUPt05D1TTs5RQDg2mJYr8njvcpd7vGT/fNz
+utap994RZ2IS+0+8vDYfB8b8ej4DADcTw2sqyvucd7nHT9bPzmlfp957W8ev
+e2oPOsfSVL+TXwf+Tm5yjx8AWKdyHdOA+5fnUKu9SnG+dqJXn9jqPKcxyfvc
+zy3z6zqk5rpUrolSKwEAZFUc9wPvZeQqViZe1z08DzjH25Nz9NpXe0kuyEmU
+tmJ6AGAqYvj6J7mKFSmODyfvfe866uL4fHKOVdZOXJCTsL4JAJisGL7+qbzH
+sXfWwsUIddSx8rVOcdibbmjsbn0TADB5cVj/tB94v7Nzv7NcZ+KJXvvYxeu1
+Tqvad6KK14fkJErlXhTygADALMRh/dN24H3Pc3Xf5N5nYc7EE736MhXHl5Of
+/5D7Od3odbuPYftJHHN/97mfAwDAEDF8jfdzleNQr70gZ+KJ5HggDnti19c6
+LT43MUJcrjYJAJi9uKwHjTVQCxKv+zv1iSdOY5FF103EZWub9E4DABbnwlzF
+c+hvOXtVjqF3PHEmN7HYnk7V78leTgIA4LURchU/Q23FrBXHt9r7mVQ/cZKb
+eIoF7jcRhxqJ3YW/G3ISAMAqjDAHq4f+TMWve1B05hni1z21yxzFH7mfw8iv
+x92FMbbcHQCwSlWu4vHC+6i9uGJ+TnIUjbmGOKxzeqrFEn/mHvuIr8FdXFZr
+ffz83+d+LgAAORXHmwvXeYgrZqbMMdTihLN7UFSxxDHueFpKLDFSHPGvdX+5
+nwsAwJSU8UBcVq8trpiRKqY4xgtf6nmKONRLHOuve+15N1UjxRGlcm3UXe7n
+AwAwRTHOGihxxYxUscO3k/fv7+rPZ193PWIcUX6m73M/HwCAOajuwXZjxRWh
+VpUbi8M6vjHiiDJn9zH38wEAmKM49ND8PtI92YN1IlxbHHqXjRELP4feyAAA
+o6hyDPuR7tHKOWP7bTOaOKzTG/szepf7eQEALE257iMur9k+KvMem9zPifmK
+l9qIsT6TO3EEAMB1VXPBDyPew5XneXQfR6oqF7Eb6fN3jCPucz8vAIA1uUJc
+8U/OIqxZ50S81FeP+XkTRwAAZHaluOK5und8l/v5kfWzdReHNXb7kT9b4ggA
+gImJ8WtiT9dDqeFegdrnaDfy5+gYo/ocAQBMXHU/OEaf2VN7scXy1GKIr1f4
+zPwM/ZoAAGYpDvtXXOMe8RhblPeJ1kTNULysZbpGHuL4+XgItTgAALNX3Ts+
+xvg1FnVfqznuu9zPl8bPwX31Odhf8XNQxieb3M8VAIDxxcu6lmushTqdmy7v
+W9+Zn876fr+pchDXylEdHdc0WQcHALAScZ3+n02+iy9u9p4e44dbva8b7ykA
+wHrFdfv5tN2Hbqt/15z28PftPg41CrsbxQ/HXISafAAAXonr7TeQYlfdp4ox
+Xr8v9djha6b3p4z/1N4DAJAkDmtnrl27m5LH+FrdR5drpe5zvy5Xfs3vqrjh
+Y/XalzHWrfIO5xxr7K1nAgBgsInEFnU/q3vtbRVrfKzuw+9zv1Ydr+MxXriv
+xv1QPY9r18eLIQAAmIR4qfmd0j3wOfvqXr0edxy9q93X/6Ljud81/Vz1mtT/
+jV1N7teiKzbbhlp5AABuLH7dVznnuhz6OfbbUqcCAMBkxCF38RDTn5Nfm328
+9NOSgwAAYBbi136mue+p16QeP9zl/hwAAMAY4qXOIFfP06Xaxct+gXe532cA
+ALiFmMa+CnNzjB02of4BAABeidd7MKwxziifd33vjbvc7wsAAMxZ/Lp3wzHW
+2E3g3n+I/UnMsKme213u1xkAANYoDv2l7qv5/Ic4vxfEtfbN+Hny72xr//4/
+++2F/koAALBI0b5f3b/kHiMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzEFx3Bc+Fh4Kd7nH
+AwAATE9x/FbFDmXc8LXwvfBcs8s9RgAAIL/ieFN4V8UOu8LPk9jhVBlb/JZ7
+3EshzwMAwFzU1is9VrFDW9wglrjOe/BbFb891vI+b3KPCwCAZaju+U8d8wcp
+vlaxQt3peqUhfppLH/R+3hU2hW3L+/Ax9zgBAFiGKn7YjnD/P6af5tCT3rvT
+upOutWPqUQAAuIpqXvuhxz2pWOK2789p7LC/5HXO/XwAAFiuOKyXueh+9QKb
+3M8/typu2ER6zXqK8v3cVudVkwIAwNVV97VfxRJXe22PdSrbEeOGo7J24rH6
+N+5yP18AANYrDmuhHke+3z03f/41Xuq87yuzW/tUG/umei7H/la7K712P6tz
+H183+QcAACYnDmv4P0a+tVD7+LWP1MOJTZzvV1X35sxz6vqZ+zP/1vZkLLd6
+Deqxg9wDAACzVN3L3vI+eo3K13cb8g4AACxUHNZCbSN/X6i5+l7FDeWaqI9V
+3HCX+30FAIBbisO6oYeB99T/I37dG28/gfv8sexq8UL5HDdiBgAAOK843sSw
+/bHPruWpzndf+Rgv9Qv1Gueja+ZIvp/8W/Xa8dK72jitSwIAgAtU9/597u8/
+3mhcd/G61tr9PwAATEx1775Lnf/PPV4AAGB6qpqBlFzFXe6xAgAA0xOHeu2u
+vbYfc48TAACYrqpued8QT+xzjw8AAJi2Klfx2BBTvMs9PgAAYPqq3kqnuYpt
+7nEBAADzEb/ug/dT/1YAAKCPOOxbd+wtu8k9HgAAYH6qffBusrcdAAAAAAAA
+AADAEhTH+8KnSvkHn3OPCQAAmI7i+FCLGUpPLXt3v889XgAAIL+WmKHN77nH
+DQAATE+1tulHSyzxd+4xAgAA01XWR7TEE59yjw8AAJiuWt31OX/mHh8AADBd
+LfmJH7nHBgAATFtxfGuIJ/SJBQAAGpW9m/SJBQAAhqj6O+kTCwAA9FYcf+kT
+CwAADNGy94Q+sQAAQKOyF6w+sQAAwBAt+07oEwsAALRqqZ34kntsAADAdOkT
+CwAADKVPLAAAMFS593VDLPEt99gAAIBpK+MGfWIBAIC+Omon9IkFAAAa6RML
+AAAM1bdPbHH80ZLPSPEh93MGAADGUeYhLukTW+U3njpiiM/6zgIAwLKU9RFj
+9IltWTP1l36zAACwTC1xQK8+sQ39ZuUjAABgwcboE3umnuJJXygAAFi2MfrE
+VueoxyTl//4j93MDAACuq1yPdGmf2JNY4q/czwkAALiNhpqHxj6xJz97mpf4
+nPv5AAAAt9NSO9FaR13VS9R/1n4SAACwIkP7xFY/V99r4m3u5wIAANzWkD6x
+J/UWejgBAMBKVfvMJfeJPYk/9HACAIAVK3s4pfaJPYk9/m5bDwUAACxbS+3E
+j5PHndZdd/Z9AgAAli2lT2xZZ32Sw3jKPW4AACC/rj6x0bzPnV5OAACwYtU+
+dI19YltyF/a/BgCAlWvJPTxVtdZNscSRvk4AALBSZY1EQszQ9piz/WQBAIDl
+a+kT+1z93dvqcU37U/zIOX4AACCPlj6xr/aVqPo7NT32Q+7nAgAA3Fb8usd1
+Z511VVNxNvbI/VwAAIDbalnDdLYmoiX+OLuPNgAAsExVL9im2omzsUG095a1
+VzYAAKxES5/Y1vrqll5PP+r1FgAAwHJF8z51rXvUddRw6x0LAAArUBzfhsYE
+0bzP3VPu5wUAAFxXRx1EZ111R+/Y9wk/X9Z121cbAABmqNwvYkjtxMk5BvWO
+rdVtWBsFAAAz1NIntrV24uQcTTFJ6W3Lzz1ZFwUAAPPV0ie2V86gb46iVgPe
+uSYKAACYno7+TL32pOvIUbw/eexxnVNyDgQAAJiWaN7jOrl24uR8TX2ifhzX
+PdViiTKfYY8KAACYqWju9Toob9DR6ym5rgIAAJi2aO8TO7jfUjTvjTfK+QEA
+gPxq644urp04c+6mvIdYAgAA6HSmNuPzpXEKAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAUvz/4EyF
+vA==
+        "], {{0, 705}, {788, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{95.42187499999955, Automatic},
+      ImageSizeRaw->{788, 705},
+      PlotRange->{{0, 788}, {0, 705}}]]]], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{"C", "(", 
+       RowBox[{
+        SubsuperscriptBox["p", "1", "2"], ",", 
+        SuperscriptBox["q", "2"], ",", 
+        RowBox[{
+         SubsuperscriptBox["p", "2", "2"], ";", 
+         SubscriptBox["m", "0"]}], ",", 
+        SubscriptBox["m", "1"], ",", 
+        SubscriptBox["m", "2"]}], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"], 
+    GraphicsBox[
+     TagBox[RasterBox[CompressedData["
+1:eJzs3T+P3ErXIPYD24HDq28w1ie4gL7A2FBqQFhDcDq7gJVaWC8gbDahQqXK
+JlakXMkEDhUoNbADTOB4LPtNDDiQm7fZj1ocslhks7v450fgt+8+uj3Uqe4e
+ioen6tR/9x/+13/37r+KiP/tv939P//u33/47//jf/z3//l/+m92/+N/+M//
+6X/5D//17v/zP+7+nx871R/++vULAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAZmt3vNv5UPuyU/3h24zX/2p4qP/8Vekx4XNmvnbH6/o79K3l
++/U59b0EAIBzO7pfrXxsuWdtetFyjiqfesr42V91fvay9Li3xufMnNXfy4fM
+79bno5971fGap9JjAgBgParcJvNe9dj3lnO01Yn6PMitfM6wO9525M3V85d3
+jdd+OHp+86H+s65nQZ8vPRYAALajqjfG77m7XT4cvf515Nciu3KrZzVOfM5s
+Q8f38Hsk5v/X39/v9Xfy8P9v+96Z5w0AwNkl7kd/He5r65zq+M8/Ht/z1ve1
+betjO/M0fM5sQ+znXLfVnD9m/vxhTsXnxHfOMxsAAM4ucU/6VP/345zqS+o+
+NbrXJv7rnO5zfc5LEf11+7mY7Zz56J7PMOgZS6Sf/3w/R+wAANCUyKuq2uPL
+o3vfrPmR0V+fNM/S57wIkd/fqqTZ9s2Kff+5tpgHz0+IdA+8rDo2AACcKlHX
+eVfnD1Velb0/UfT3r3Kv63OevdjPVS+dG+f4Uvq96nj/unLnUd+LSD+vWfyz
+GgAA5q8nRzj0X3494ryput0s7/fXzOc86j17O4PcOMfsnlPE83X0B6PnWSfy
+59nW3wEAWJeMHGFUH6hI7330rfS4t8bnPGpsOX3S5mBWtddI7M8cJ6zTju75
+24t+TgMAwHIk7kkrDyecN5VXjT4vPmfmK/5cR9/07sRzd/Vy0+sdAICLiPT8
+28HzeY/OK6+aEZ8zlxDda+xPnouQOHf2mn0AABgrMc/y5Pvdnrxq0fN6l8bn
+zCX0zHE4aX+t6F6/b+0zAAAXEWfsZ5uoFVWsV/Q5syKRXl9/8vzqxPk/lx47
+AADbEN3rCU+u6UT3GsjK7PoFr5nPmXOqa8Nd6wOq78eLCf6Ortr2rHqnAQCw
+Xonc56S8JzHXcrJ61ITvQWr+8Wz4nJmr3fH53N+BxHf45NwcAAD6RHq+5Un9
+eKJ779dJzj/x+7Dq/NnnzDnFvt921+c/Ve158r2kAQBgiOieD3nyPWmk19vO
+qt/PBvJnnzNnE5epPXetP7A+AACAi4juvk9T9PpJ5aSzuufdQP7sc+YsIl17
+rpzUczvj77D2GQCAs4v0utVT5/T2rYkdvdcwPmfmI9K150n2Lkv8HeY3AABw
+EdE97/ZhgnO/S9xTW6/oc2YlIt17/d0E50/Vnu2NBgDARcQZ1xNGek7vyffU
++JwpL9J96SpT9A07+9pqAADok6gbnTTndne8UpOcD5/z5GObk8+F36euvnST
+fAcyPge93QEAOLvEfenJ6wl76kXWw/qcZy/S89LnpGj9Nbr70k2S2/ec39pn
+AAAuIlE3Omk9YaTXKhatlW2Rz3ny921uitZfz5nbR3pftFV8zwAAWIZEXefU
+e96umuRDTLAWEp9z4fdtboq919G/b9XofaXqcx/WHXR9FvatAgDg7CK959Do
++/Hd8TpxXusUfc6LEeme0nNRdI15z/egMnoOf/zuS/ch8Vks/jkNAADzF909
+c0+6H4997bHtvHrk+pxZmXPlz/F73vaXxN+x6P50AAAsR3TPvR29n1F0r1U8
+eY8kfM7Mzzny56NzVnO2q/kTXevQfd8AALiIxHzIUesJo7vHs/4+PmdWKvrX
+Pw/a/7v+fj3VXtZ/1rX2edH93QEAWIZEDjRqPWF9D902n1dO5XNmxSK9vn5Q
+jbjx/Xp99Gdt57VvFQAAFxHd828Hryes75/b6kNyKp8zG5CoD/+q68i9z2pi
+P2f7MFfi3dGfd32HT9p7DQAAcsXvvrYn5UKJnMq6xBnwOXMJiRz34NuAn//Q
++G9fOs6pTx0AAGcX6fmW2XlV7OcGN+fyVvWjs+/HWtWnor0vVtVnyJrIlXzO
+RzG8rHOsY4eY9GAurP6u9e319f34O1P/THNfqmbunDrvKvZIAwBg3qJ7P6Nf
+dU6SM9eyrR9uVet8eebYX7fkcq1zO3PGsWZL/pyP/v6u+rka+MxEfw26z7Pn
+MYnvsLXPAABcREdO1Mytns2NjH3Nt+1nH9rufc8Q99D7803XJZf6OY8YU9GY
++OPzGZNDf+96HpP4DntmAgDARUR3/baaD903B7N53ztob5oTYh5b29rsffYS
+P+eMMbXtNbzpeQZzE/lzRB76vleJ83hmAgDA2UXGfkbRvbb4V/xee3qR+bt1
+PMdzOL8177ljvzY2VWu9WKxzscTPOXNc7xpx6sE8U/X3pzn//qn+894eBTnf
+YQAAOKeYcD+jC8X74qgGlaw5RXufq03WoJf2OQ8YV/M5iR7MK7XW7zAAAMsR
+3XvBzDLHPLqHzpqv2VGz2tz99tI+5wHjas4714N5paJ7T+lFf4cBAFiOlvxj
+1usJ63ryoPvleD4neXO9epf2OWeOqflsZHOf61ZEeu81+9MBAHB2kd7PaHbr
+Cet76MHzc1vGuak8a2mf84BxNefzZu9hzbIkvsOb+l0GAKCc6O6xtar5zfG8
+R/OqxrfVzzme96JabC2d3s+6a/2BfnEAAFzEVtYTttSuVjW+LX7OHfN5F1tL
+p/fz7lp/oF8cAABn17OecBZ7+0441mb9dVZ7MPmcR42r+Uxk0bV0kp91at8q
+/eIAADi7lrWjq7wnrfPH49rVYmuuPuc/xtV8JrKpz3VLEusPrH0GAOAiEusJ
+V3VP2sgfN1ejXOvn3DKfd7HPAuj9rFe3/gAAgGVJrCdcTT+eap720TiftjRv
+e82fc8t83kU/CyD5WafWH+gXBwDA2fWsJ1xNP55G3Wpz9cm1fs4tc9IX+yyA
+wZ/1Mf3iAAA4u5570lXUdBprJl+XjsfnPOm4mnPSF/ssgN7PurlH2WbXYgAA
+UMbueEjkVYvPNXfHuzWNx+f8x5jsW7UR8Xzf9mOfS8cHAMD6RXcv21XU8hr3
+3IvMEX3OyXHZt2oDYr/2IPX856F0jAAArFedd3T1Yn6WW8UC9waWO6//c255
+LqAH8wrEvtffh1oqbz72Zau/5wAAnEd0rx8cYva1yq3nzhv6nJu51WLXcdM7
+R3uMb6XHBAAAcxb7uZ6HfZo2lztvRbTsWxXWPgMAAGSRO29H2LcKAABglHrN
+5EOdP29uf+etCftWAQAADDYmd65+pnTcjP682/at8swEAAAgoc6lvg/MnV9Y
+L7tc8XzfqqfSMQEAAMzZmNy5/rmP1ssuV9i3CgAAYJB6n6YhdedXR+tm7XW0
+UPUzE/tWAQAAZIjT9jg2d3uhWvat+uWzBAAAaLc7Pp+QO1c+lx4Doz/75tzt
+h9IxAQAAzNEEubP5vgu0O97F8z2r7F0FAADQos6hTs2d9WpeiLFz9EvHDQAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATbvjzc6n0nEAAADAXO2Ov3d+
+7lT/48fOX6VjAgAAgDmpcuWdxzp3Pqj+99+lYwMAAIC5qOvNv1pU9eg3peMD
+AACA0nbHXUfufOx96TgBAACglCovzsidD65LxwsAAACXtjtuBuTOd6XjBQAA
+gEtr9Nruc186XgBgeXbH250PteoPPpaOCQCGqHtt5+bO9rECADrtjndHOXLl
+IXFf8bZ0vACQq86du3ptt/Xetn8VAPDMgDVgx16UjhsAcmX22tYvDAAYpJ6r
+/ZS4r/hWOkYAyLU7bgfkzjel4wUAlqVa35y4t/hQOj4AyBHDem1/Kh0vALA8
+R33C2rwqHR8A9Ilhvba/lo4XAFimRP35qXRsANBnd1wNyJ312gYARtsd3zvu
+MexbBcCsxfBe21elYwYAlml3vEjcZ9i3CoBZq+ZiD1jzbJ8qAGC02Pfftm8V
+AItT9QAbkDvflI4XAFi23fGl4z7DvlUAzFbotQ0AXFh07/1s3yoAZin2vbZz
+c+e70vECAMu3O14l7jfsWwXA7IRe2wBAAdG977N9qwCYnRjea3sVuXM97sed
+N6VjAYCtSqx9/lw6NgBo2h33A3LnVfTabnlm8L50TACwNWHfKgAWpFrHPGDN
+803peCccd9v+XPqhAcAFhX2rAFiIGNZr+7Z0vBOOu21/rtXU1gFgKXbHx477
+ju+lYxsxlnfmoAOs0+64HpA735WOd8Jxdz0zsAYaAC6sypM7/l1e3L5V8meA
+dYr9PlXZvbZLxzvxuNvGaO0zAFxYpNc+L27fKvkzwPrEsF7bj7GeXttXHc8M
+7krHBgBbFCvbt2qJ+XMd84faoQ96Z9+2o9c3x/lQ//ninnsApAzInVezHjjx
+zGA1tXUAWJoYuG/V7niZeQ/T5d2ZxzPL/Hl3vD7KkbvWmx971retHttT5vtc
+fa4vS48b4FQxrNf2atYDR/v+XI+xkto6ACxRIh/L2reqzgcfeu5nPuaeb4Lx
+zCp/Hvm84XvLOb6NOM+DHBpYst3xfsA1bzXrgTueGaymtg4AS7Q7Xg2pfybO
+0zUH/MuQ80w0plnlzy3xvYjumv/Bh6PXv04848jNoe1BBizO7ngz4Fp3Vzre
+Ccd90zHG1dTWAWCJEnnvoH2ron0+8kXqzS2xzDp/Poqzq+d55VX9mteNP/8Y
+R2ub61y86zNszccBliC222v7umOMN6VjA4CtS+Rw2flWPJ+f/BAF+1ctKH/+
+3PHeP9X//Th3TtbxIz2P4J9zpn4eYE5i3zfrMTd3jpWsB048M7grHRsAbF1M
+sG9VfY7jHLz6/xddb7uC/Plj/UziMGd7yDr01D1mkfkAAEOFXtvH7kvHBgD8
+82/121T9M/Mcx7nzl9JjqmNaSv7cVfuv4n+o8+fsOn709yn7WHrMAH1iWK/t
+69LxTjju+5bxraa2DgBLF917KPXmmvG87jyb3GwJ+XOka/+HPtuvR5w31Qd9
+Fs83ALrsjtsBufNN6XgnHHfbM4PV1NYBYA0S9c/kPN+6znn8s2fdz3nEuJaQ
+P3fV/g9G9fuK9B5X30qPG6BLdPecbnNXOt4Jx921P9d16dgAgL0YuW9V/XPH
+Nc7BNdILjG0J+XNX7b/ycMJ5U/nz6PMCnFMM67V9XzreCcfdtT/XTenYAIDf
+YsS+VY2aadEe2z1jW0L+nJpnPfqZhPwZWJrY983K3qcqVrIeOPHM4FPp2ACA
+P8V+P6TsecONfLt4j+2esc06f4507f+kOdY9+bP528CsRHfP6TarWQ8c3ftz
+fS0dGwDwXPzeG6npWU25kWtX+dms9xFeQP6c2mfqpD2montNe0X/MGBWYliv
+7VXkzvW4254ZrKa2DgBrkqh/PjVe1+wTNpsctGd8c8+fu2r/2fuGJc7d9Vyk
+Mpse6QCh13aztn5VOjYA4LnI2Ldqd7xu5GJnXzsb6bnHszHBOLty3JPy20jv
+iVUZ1dMbYGoxrNf2atYDR3ev7dXU1gFgbaJn36ro3lvprL22t5A/J97bykn9
+2GL/zCMV+yz7vQHbEvu+WbnX3NWsB048M7gpHRsA0C7SNcrqv6X2VTrr+tmN
+5M9d729n3/MB506tqz55bjjAqXbHVei1fWw1tXUAWKPorn8+ZOavZ+u7vZH8
+uav2f/Lc6p73z9pnoKgY3mv7qnTME467LXe+Kx0bAJC2Oz5n3LekXjP7NbQx
+0/5hka79nzp3u2/t81nn3gP02R1fB+TOq1gPnHhmsJraOgCsWaT7Mz8d8qw4
+Y4/oC4xxrvlz1/zqk3uzdYz54OS54QCn2B2fMnPnyk3peCcc913H8wG5MwDM
+XHTvW1X5Y1/nSPeield6LD3jnGv+3PVM4uS51ZGeuz3rzwtYtxjWa/u2dLwT
+jvu2I3deRW0dANYuUf9s7QsW+zXRrbl26bH0jHOu+XNX7f+kudU9z0XUnoFi
+dsf1gNz5rnS8E46765nBTenYAIA8ifpn65rmRL5dme1eSHPMnxM57snz4SO9
+Xt26Z6CI6O453WY164Gje3+u29KxAQB5Yt9fqqv+2ZoLR7onVfF6bmKsc8yf
+u/atOmlPsN3xcomfEbBuMbzX9lpy56uOZwZ3pWMDAPJF975VyfpnorZZ5eIv
+LhH7iLHOMX8+y75Vic/nYa6fD7B+u+N+QO68ivXAiWcGq6mtA8BWjK1/Rnpt
+7Sz3sppb/hzpOv7oHDfSPd5mO78eWLdo7znd5aZ0vBOOu21/rke5MwAszyn1
+z+ju7XzyvktnGuvc8ueu2v9Jvb2iu7/bLJ9rAOsXw3ptvy8d74TjbtufazW1
+dQDYkp76Z2+dsqfO+Tbj56s+ZC8vON655c9dc6xH71sV3b3dTt4LC2CM0Gu7
+6U3p2ACA4TryyUp27+dErTO5l9VR7fViNdEZ5s9dfdt6nz10nK9rTr1+YUAR
+MbDXdul4Jx73qmvrALA10b1vVXbv50QOXuncI6nOuy86z3tO+XMi160MXvsc
++37bbc8y5M5AEbHvm/WYmTtXr1vFeuDEM4O70rEBAOMl6p+DasIdeVtnDTp+
+9ywbVWc9Ybxzyp+75lkPXvsc+3n4bevY5c5AMTFsn6pVrAeORK/t0rEBAOP1
+1D8H9WjuyEtb5yLH73nbJ+1vPHLMc8qfu3qvDYonkTtb7wwUE8N6bc9uPXCd
+B9+N+Ln7ttw5VlJbB4CtStQ/s9c+N87X1ce7qnG/rl9zyJ2L7EE8l/w50n3b
+suOpn4E0a/9PzWcWZx7Ly/q7dOwQ00l9xIFl2h3vB+TOs1wPHL97f10N+Jm2
+Zwarqa0DwJYl6p+j6sKR7sXd1Lku+sxjnkv+3LVvVfazhWjft7v6TC/Szzzx
+/VEDhw3bHW8G/FtwVzrexDgOezZn5ffR3Wv7uvRYAIDTRLr+ObofdkdON9n5
+Jxj3XPLnvvfpoe19quNv+9nq9RddS545pqIxAZcVw3pt35eONzGOv47i7F23
+HN37c92UHgsAcLpI1z8HrX1uOXeqLlksd65jm0v+3NVvrdoPuqunW5tqzvy7
+0t+nekxt8w8uPkcfKKPOObP3qYoZrweO57Xkq8Rr9doGAE4Sz9dWfzw1L1+L
+yNi3qs7zP3c9g6hdZJ72gHE1n01cvD8cUEZ095xuM/v1wPF77vbB7cBx35ce
+AwDAGrQ8W/hXLbl0bCeOqzl/u+hcA+ByYliv7evS8faM5a+WmB87Xtu6T9Wc
+a+sAAEtS1WU77ikX3Wsrns87N98ANqCqzQ7InW9Kx5sxnpuO2P9uvK7tmcHs
+a+sAAEvSkmceLLbXVjyfkz5qDzRgWRK5Zpu70vFmjqk5d/vg09FruvbnkjsD
+AEwk0n3bFttrK57PSb94TzbgsmJYr+2vpePNHFPb3O0/5nBH9/5cN6XjBwBY
+k+jet2rpa5+bPdcXW0sH+sWKem03xtVXT/+fO8b9qXTsAABrE/v9ptruyRa7
+9jna9xJfbC0dSIvhvbavSsc8YGxdc7cP/p+l1tYBAJakI888mMUeziPH1ZyT
+vuhaOpCWkWMucj1wpOduL762DgCwJNG9b1Vlsb2q4/mc9MXW0oG0ap7ygNzy
+pnS8A8d2MzB3/rcl1dYBAJYkuvetWnSv6rBvFWzCwPxyceuBB9bVjz3u3Md+
+H6+qL/e1mjQAwGla8syDL6VjO2FM9q2CDYh9r+3cfHJx64Fj3NztHFVefVfl
+1qXHCACwFC155rEPpeM7YVzNOemLfRYAtKvmKMcKe203xjiktj7GXekxAgAs
+RUueeWyxez3F8znpi30WADwXw3ttLy53rsc5du52Tv15MT3UAADmYHc8JO6v
+XpeOb+SY7FsFKzcgr/y51DwxzjN3u3rmcF16bAAASxPP+1M3LbJmG/atglWL
+/brd3HzxpnS8J4zzZsK8+XHJ7wUAQCl1ftnVc/tZDh0L2wO65bmAfatgJQbm
+lLel4z1xrPcT5M1V/f196bEAACzN7vg2wb3Y7GvS8XxO+mLXcQO/xX7/pdxr
+1V3peC841q68+TYWuu4bAIDzi5Z9q8LaZ1i82O9Ttepe243xnlJ7vlv6+AEA
+OL+wbxWsTmyk1/bReMfWnqu8+ap0/AAALEPYtwpWZ0AtdrG9thvjfRyYN1fv
+z3XpuAEAWI5o37fqVem4gPFiWK/tN6XjnWC8NwPGay8qAABGief7Vj2VjgkY
+b3e8H5BLrqLHdGbtWU9tAABOEvatgtWoaslD1v2WjneiMefUnn+sYY46AABl
+7Y7vjftM+1bBAsXAXtul451w3H2156+x8N5oAACUF8/3rarYtwoWJva9tnPm
+MP+qX7eKfDJjrrr52gAATKJl7vZD6ZiA4WLYPlWrmMdcPzPoqrevZpwAAJS1
+O97F8z2rDuxdBQsSw3ptX5eOd8Jx33aM8X4t9XUAAMrYHd8G3GP/S+m4gW4Z
+85eP3ZSOd8Jxd9Web0vHBgAAwLzEsD2P70rHO/HYm7XnKpde/D7WAAAATCuG
+9dq+Lx3vxGNv1p6rtd9XpeMCAABgXnr6ZjX9WNta4MZ677vS8QAAADA/de68
+uV7bR+O/OhrbTel4AAAAmKfYaK/txvh/rO25AAAAANNp6Zm1iV7bR+Ovas9f
+1zYfHQAAgOkM7LX9qXS8Z3oP5M0AAAB0Gthr+2vpeAEAAODS6jnLm+21DQDA
+utT3t3rZAJMa0Wv7qnTMAADQtDveVGsMdx7VfIBzqHtl5a559gwPAIBZqOtA
+N/X97PFcyrvSsQHrUz+f22yvbQAAlqXu2XObmD95VzpGYH0G9tq+LR0vAADb
+VM/LvqvnZav3ABdVP7fLzZ3vSscLAMB21L2/DvOyc3v03JSOG1ifGLZPlb4L
+AACcTb2G+fqo91duX9vj3FmPHmByMbzXttwZAICT1Pnxdb1uuXI/Ik9u8yh3
+Bs6lvlZ5jgcAwGTq+Y1Vfvz+KD/Ove8cyzxJ4Gxi33Mh93p0UzpeAADmq763
+zF0TOLWvcmfgXEKvbQAAJhT7Hl/nrjG3uSs9dmC9Yj+XxvUIAIDJ1feajxfK
+nd+XHi+wXjGw13bpeAEAWKbYr30+53zum9JjBNYrhvXarp4ZWkMCAMBo9f3n
+p4nz5ionvy49NmDdBuTOem0DADCZmG5ttPtU4OxiWK/tN6XjBQBgfWK/NvqU
+Od1yZ+CsYr/2RA8GAACKiX0fntz5kNY7AxdX1ZIHXJPuSscLAMD67I7bE+dt
+fyo9BmDdQq9tAAAKmqDmXPlaehzAusW+1+Fjbu4cem0DADChSO9fVf35f3Gf
+CszBgOd8ehgCADCZuo5zn7j/rP7bVc9r3KcCFxHDem1fl44XAIB1iH3vnVTN
++f3Ra/vqPdelxwOsWwzrzXBTOl4AANZhd3zqqzk3Xp+6T7UnDHBWVT48IHe+
+Kx0vAADLF/09wm47fs596orV34vrI7cdPtXPV1I+JX7++O8w358sMazX9n3p
+eAEAWL66ftN1D/qYymc6fsaeMDN3lKu+r/PXu6M8N7eWdymHuO7qWN8f4i/9
+PlL0O/zXgNxZD0MAAE5S33/eJe457/ruOVt+5qf71Hmoc8w3dc75tc5Bc/ON
+JflZj+1rPdY3cut1q69dQ3ptX5WOGQCA5Yp97+yu+8/qfvNN5nmaP2fubZnP
+8jhPfpxBTjsXj428+qr058Uk3/m7Ad8B1yQAAEaLdH/tH0NyjMbP3pQe29o1
+cuX7xOdIt0O9Wk69QJHucdh0UzpeAACWK9L7vHwaeK6/j372tvTY1qh+j6v1
+vurK5/VYv8fVe61eOVMxrNf2oOsZAAAcxH694NeO+8zs+dqNc17XP/+19PjW
+opEvqy2X8zPk07MSfz6v6+OaBADAKJHem+rH2Pwg9vmzvranfTZXsa+p3YV8
+ec5+1p9R9Vldlf7ebE39e6LXNgAAZxXptc537jOLfCbV84zbyO8fPCePMW5/
+59T+0I8zGNdQP+oxqU2f//dFr20AAM4u9nNPu+4z35eOb0ti/xzjbqa54iGP
+PeS//9pfuUR+GPvnC4e//7A/9XH+Pbc6/WP92Q5eA0HW96Fr3Ulb7ux5BgAA
+g0X3/i7VPeZ16fi2IH7nzKXzvcdGflwkLz7D+3vIs4/z68fC7/VhnrdceprP
+WK9tAADOJtJzHQftTcWo9/+6YM58vC/TTWz4OUn9OdxE2X2+Drn0Zj+HEz/D
+mwHv9W3peAEAWJbY99jpyp2rOZDWOp/vfa/qZI+FcmV7GOd/TqX2zn6svyM+
+p7zP6nrAe3tXOl4AAJYl9nNZu/IB+6BO/37/VdfHLtUDrMq/7uq/c/Fzr+ei
+/r25icuuTf9R/52eZ3V/JnptAwBwFpHusX1TOr41qe/t7wbc30+RL1+VHvdW
+xJ/7iZ07nz7M7/Y85Pf7P7TXttwZAIBs0b1GUJ+w6d/nc9aaq8+rmmP/Xr48
+H3U+/b7+bM75zOSfmnTp8ZYW+3n1ub8vnjsAAJAt9us4u2qX7i1Pf3+v6vf4
+XHlT9TlVa2L1al6I2M/1OOda95/1d+6q9FgLvLd3A96nm9LxAgCwHIl7TesB
+T39v/x54Lz+0zvje843lq78n7+N88xLutvI9iWG9tu1dDwBAtkRudy93Pul9
+vY78+aNjcuar0mPkbN+dqzPm0tV38rr0GM/43l0PeaZQOl4AAJYh9r11unLn
+u9LxLVWcZ23zY9ivaJPifPuZrW6NdAzstV06XgAAliHSfWnvSse3RHXePGWO
+c+infF16bMxDnKdf++Ma8uj6mpb7+1e9ztwaAAB69eTOt6XjW5oz5M33YT9f
+EuL3fuH38uh/vSdD9qnaxDpwAABO05M735SOb0kmzpure3rzsxksfs/vnqom
+vbg8Oob159OfHgCAXnLnyd7H6wnrfo+h1swE4ndNeqq199V5rkuPK2Pc7weM
+6aZ0vAAAzJ/ceZL38O8J8+avS8hNWKb6Gc/Xib6r1Xd+lvOdY79/du447krH
+CwDA/MmdT37/rmK6/Zur81yVHhPbcPTdnWJu96y+uzGs1/Z96XgBAJg/ufPJ
+793tBLnHz/o85mhTxNq+y/V4svepKh0vAADzJ3c+6b2r5oU+riHXgIMJ8+jq
+d6NIH66e61rb7+As554DADAfcufR79tVnL7GWd7MrE2YR1e/K1cXjv1uQHzX
+pd9rAADmTe48+j27lTezJRPm0Rf53g/8Hb0p/f4CADB/ifrMTenY5ij2vYof
+5c1s1UR59OM5672x35srN5a70u8pAADzJ3ce9F5VOcOpe/zcyZtZi/p3ousa
+kuvr1L8TMazX9tfS7yMAAPMndx70Xr05sdZW5QhXpccB5xD7PgCnPFuqfrcm
+6S8Wem0DADCx3fFe7pz1Pp1ac67uz69LjwMuIfZrG3J7XU9ei47hvbavSr9n
+AADMW3SvC7wtHducnFhzrn7ufekxQAn1NeaU351RteiBz7rsUwUAQFKdE7bd
+S96Vjm0uJqg5fzqlhgZrUP8efbpULXrg33VT+v0BAGDeorunzl3p2OYiTuut
+/UNNC/5UX3fGzumufhevM/6OmyHPt0q/JwAAzFvs+/u05c4/Ssc2FzF+P2dz
+taFH7HsujJ3T3Znz1vl5dk279PsAAMC8RXdPHb1nf/3r2cLY+th96EEEWeK0
+Pt0/mr9rieeCXT+/+esdAABpdY7XVjPd/L1kjO8RNtl+O7A1U/zeJZ4Ldv3c
+5q93AACkRfsez9W95ObX6cb43kYn7bED/Cv/HVuL/tTxXLArd9789Q4AgLTo
+7qlzXTq2wu/L1YC6lZoznNEJtehcN6XHCADAvMW+j7R7yfb3Zcy9elXruiod
+P6xRXYvOrScPcVt6bAAAzFvYp6rrfXk/8h5cb224gBN+R9vclR4PAADzFt09
+de5Lx1b4Pbkbcf9tP2e4sDhtv+jj3109CgAASIr2fjybvZdMPE/orV1t9T2D
+0k545lX5P/3uAgDQZ3fcttxLbrb3bHTPY0+pXn9TOnbgn9/hmxG/w/+21Wse
+AAB5ortf2Cb7RY+87zZfG2Ymxs3n9hwMAIBWsd+PqS1XvC0dW6H3Y0wPojtz
+PmGeYvx8br3/AAD4Q0dt5mvpuAq9F+6xYaXGPhsrHTcAAPOwOz613C8+bq2W
+Wten2nqn9c3xvC4dO5AvxvU1+Lq1ayIAAH/aHW86csJNreGNcT22q9dflY4d
+GC72a1bG/M7LoQEANii61zzflI7twu/DmNxZLQoWLsatiZZDAwBs0O64b7k3
+vCsd14XfgzHzOD+VjhuYTrSvYelbt7GpOToAAFsW7fs8b6quMjJ3vikdNzC9
+2O9XJ4cGAOAP0b7P86buBUfkzvqEwcrV18ah14XNXDcBALYm9uv9HlvuAzez
+/9LI3Nk9MmyA6wMAAAd1/nzfuP/bzD7PI+6N9diGjYnhPQXl0AAAKxa/1z9X
+932bWPM8MnfexHsD/EkODQDAsTqf3MT9ntwZGKpjvo4cGgCA1RqRO9+VjhmY
+jxi2R7QcGgCARZI7A1OQQwMAsGZyZ2BKcmgAANaoXrcodwYmNSKHviodMwAA
+dInhfXPvSscMLMfAHFovQgAAZknuDFyCHBoAgKWLYXvN3JWOF1iugTn0fel4
+AQDgYOC97F3peIHlc90BAGBpdsetOhBQwsB5L7el4wUAYLt2x411iEApI/ou
+3JSOGQCA7Yn9Hs9yZ6CoETm0vaEBALiY3XEV+Xs8/5Q7A+dU59CPA65JV6Vj
+BgBg/QbWen6q9QCXUM+JyX2uZ04MAABntzu+micJzNHAdSVfS8cLAF12x7ud
+D7Uv9b9dbzNe3/z37qH+81elxwRbE8N6bd+UjneiMR9fu77XY3uR+bMvGj/3
+r2vYyFgO53uY4nywRjGsr+Ft6XgB2K7d8froPvNjxr9bz+5B63vVp8x/96o8
+/GXpccMW7I43a70nra4jR9euDz3XoO+Z5+y7Bn4bGGPf+b7n5vWwdgOf9b0p
+HS8A21Lfe+b+O9V6D1qf49uI8zzIoeG8Yti6wrvS8Q4Y15hrV7LWuztexZ/1
+4dHnGnG+z6XfU5iL6lqU+XujTwMARcV+juGXnn+vPhy9vqpb59acu3JodRc4
+gxjWL2zxPXmifd3Isc61I7vj7cBrV7KWPeJ8v1wL4bctXbsAWL74c81f6z1o
+nTsf//nH4/vT+L3e7+Q6DjBcDKvhrOL+M7rrvU+Jn3l39Lrq+eHr+s9fpK6F
+mef7fHTNfJmI79fh7wX+9fxvdXNnAFin+p6v8x60kTt/SdVNYj+HMfXv3lPq
+54HhYlgfntXMf0zkp186Xn+c6z7ri9j4773589Hrn9ry4Ug/U5Q/w5EY1pP7
+pnS8AGxXIn/+WNdQDnO2O/twN87XV4fOOg/QL4ateb4pHe/EY+9aT/Jsnksj
+122d253In5/Vs49e29nbIZWPd8UAWxb5zwKthQagmOies/iuvjfsvN/sOF9f
+r5+PpccMaxDD1jzflY534rGn5rq8arz2MIcmeS2L7t7ZXzrOl+yLmDhf5/xy
+2LrIX4tiLTQAFxf7NX9d/zYd+mwPnmcY6XV/rXMrgWF2x6fc+8zSsZ5h7F3z
+XJp7BryK33Xq5LUs8SzxuI/iYU7OUyp37jnfoD2xYGsGPBf8VDpWALYl+vvG
+jur3Fek9rtw7wokif5/nap7jVel4zzD+rr0DPh695sXRs7x3PedLPUs87pX4
+vflnHedLzcMxBwcSqmtW5K9LsS80ABcT3fMLKw8nnDeVP48+L/DP79eQXrWr
+u7fsyXXfHr3ucB3qzVcTzxKfjl5zyNlz9oPWOwxOMPAZoXncAFxEnGl/Ffkz
+nM/uuM+8r1zl3MZErlt5Ub/m8Gwwa71I4lnix/q/fzj+3xnn66qPW/sMmSJ/
+jcp96VgBWL9I9985aY51T/5s/jaMtDveZ95Prm7N89F70JXrfq//+yG/fojM
+/fKiu5d3da7DmufvA2LsOp/+DzBA5K+Ffl86VgDWLdLzC0/aYyq6++a4f4SR
+In9N4CrXPB+9D13Xl+aee1n7BiSeJT4d/X29/cIyzlcZ1VMCtsp1D4C5iDPO
+L0zUXv65xy09dliiyJ+3fVM61jO+B8k+X0e5dXaemniW+Dl+17qT/ccyz1fJ
+qocDv0X+vtD3pWMFYL0SOe5J+W3P/a36C4wQ+fO2v5aO9czvQ2efr6Ncd9Aa
+kcSzxEMePGjOTHTXx7PnfwN/qq5tmddA87gBmFziHvSfGs6J537d82/bSeeH
+rYlh8xdX3Yc2utc+Px3936x51kfnbHuWWP3Zw9Dz9Tw/NPcGRor8fQfM4wZg
+col70JPrI5Geu6j3LAwU+fO2V7dXVct7kdozYPD8lp5niVOf76S+ErB1u+M6
+81p4XzpWANYluucXnjy3OtK9t9VfYIDI3wN1lXtVNd6LVF+uyuC98RLPEqc+
+n2eHMIHI39Nq9c8TAbiM6Om/c8ZzV0bvKQ1bE/nzFR9j5fO26/cjNbelkt3j
+6+icqb0CpjyffQdgAvV18THjurj69SwAXEbiHnRwraXl3O8S/5bpnQMDDKiz
+XJeO9ULvR1efr7G14tTzvqnPp28iTCTy53HflY4VgOVL3IOePLc60nO3B9dy
+YKsG3B+uut924z1J7Ys3placet43ON9NPJus6JsIE6pyY88XAbiExD3oSXOr
+I702Ue0ZBtgdPzLuCzczP7Hn+lJd0wbvq5x4ljj1+Vz/YGKRv77lR+lYAViu
+xD3oyb1tdsfnxL9f1j1Dpsjf63kz/XF6aruj5s4kniV+nvh8+ibCGUR+f0V7
+QgMwSnT3hj2pt83ueJn4d2vUvShs0YCayn3pWC/8vqTWPg/a77k+X6qePXif
+qanPB+SJvP39NjNXB4BpxZn2rYru2nO1V+vgeZCwVZHfM+yqdKwXfE9Sfbm+
+jTxnVz171Fyc1PlcA+F8qmth5jVz9Xv8ATCtnnvQ0fd3u+N14rx65kCmAfeB
+t6VjvfD78jbxXox69hfdvQ5HzcWJ7vq4favgzKprYua18+/SsQKwHIl70JN6
+28S+xjx5TRu2JvLmIT7GxuYhRve6k1HP/nqeJY6Zuz1436rYz/e2tgUmEPl7
+Qt+XjhWA5YjuOdaje9tE95xF/XJggMjfr2ozPcOO3puudSdj526n6tlj8vHU
++Z7Nwanz7eq5YzW3e/DabeC5yO8ldl06VgCWIbp7w47qbRPd/XLUVGCgyNuv
+6r50nAXel8G13YxzdtWzR83FSZzvoeP1X06JH2gXmXN4SscJwPwlct2x9ZaX
+0T5vW+4MA+2Om8y6yebW7vXUdkfVbqO7nj12H6zs8x3l2tZFw8Qiv4fETelY
+AZi36J5nPbjeUteD2u4X5c4wQuSt27srHWeh92bqWnHqWeLgfocxYC310bOA
+72OeWwL9qmtlxvX0sXScAMxbdPeaHZTzJnLni6x3jn3d+0PDoQ5+Uh80KGF3
+vM+419vs3qUxcX/CxLPEsftWpfYfeNHyusnWPLsewnOx7yX2M+O6+r50rADM
+U099JDt/jn3dpnkv+9SssZxpDF35/8VzeJjKgPu829KxFnp/Jq0V1+ecdJ+p
+3fEuEeO7+jWHuvPT2Lgbf6frISRE3n5Wm30uCUBapNcPVvlw7zzCaJ9DWd3D
+Fekd2xHP2fN4mJJ7vN73p6tW3NqXK/OcXX0Ux9azU9fX5rPGk3PnjhhcD+FI
+5O9ndVs6VgDmp+PeqplDP7t3jH1dpe1nH0rfm0X7nEnrCVmMyK8935SOteB7
+1FUrHtvn6xz17NQ5j6+ZZ8md6xhcD6Eh8voybvb5JADdonv94OforsW0qdY9
+vys9nnpMzTmTetmyKJFXe34sHWfh92jqPfcm7UV2dN6uPP9X/d/Omsu6HkK7
+UIMGYKCe2siL+jXv6ly67TWHnjRF5mknxtW8D7aPKosRas+rEvseE81raHXd
+PFvNufH3ux5Ci1CDBmCgmHDfqjlpqUtd5D4VphB5PbcfS8fJMrgeQjc1aACG
+iInXD85BS0191L4zUErm/dxN6TiZP9dDSMusQT+WjhOAeWipSxwstjdrS019
+0B7WUJJ7Oabkegj9PLMEIEek91VZbG/WeL736WKfBbA97uOYkush9PPcEoAc
+caZes4XH9GJNzwLYlt3xxj0cU3E9hHyZzy7flI4TgHJiv99U278PS1773Kyp
+L/ZZANuzO+7VnpmK6yHky6xB35eOE4AyOuoSB7PYw3nkuJo19cU+C2Bbdsff
+GfduP0vHyXK4HsIwmTXo69JxAnB50b1vVWWxe5uEfVpYqN1xl3Hfdls6TpbD
+9RCGqa6xGdfhu9JxAnB50b1v1WL3Ngn7tLBQu+OvnNpz9brSsbIMrocwXH0t
+/plxPb4qHSsAl9VSlzj4Ujq2E8bUrKkvdixsi5oHU3M9hHHMBQKgqaUucexD
+6fhOGFezpr7YsbAtkbfm7qp0nCyH6yGMU11rM67Hj6XjBOByWuoSxxa5N2jY
+p4WFirw9q76WjpPlcD2E01TX3Izr8k3pOAG4jN3xkPj34HXp+EaOyT4tLFLk
+7Vl1XTpOlsP1EE5TXXMzrsv3peME4Pzi+X4mq5i/3TIu+7Qwe+YJcg6uh3C6
+sK4GYNPqekRXz+1nOXQsbA/olpr6Iuehsy2R1zfsfek4WRbXQzhdde3NuD5/
+Kh0nANPaHd8yc+bF1qSjZZ+WsNaPBcisb9izimyuhzCNyNtX8LF0nAAwVNin
+hQWKvL5hd6XjZFlcD2E6kbeX1ZvScQLAEGGfFhYo877sunScLIvrIUwn8vqI
+3ZWOEwByRfs+La9KxwUp5gVyDq6HMD3rbABYk3i+T8tT6Zigz+64ybgf0zeM
+QVwPYXqR10fspnScAJAj7NPCAu2Orxn3Y1el42RZXA9hepG3z+DX0nECQI7d
+8b3xb5h9Wpi1zHux+9Jxsjyuh3AennkCsAbxfJ+Win1amDVzATkH10M4H2tu
+AFiDlrmKD6Vjgj6740fGfZheNAziegjnE3k9H3+UjvOEsVX7KX6q/31a5DgA
+6LY73sXzPVoO7NXCbGXO3baOjmyuh3AZa53D3VFbX9w4APjT7viW8e/WM6Xj
+hmNh7jYTcD2Ey6trtKubw91RW78pHRcAQGb9wtxtgBnaHT97rt/3pWMcOa7m
+uqK70jEBANvW8Yzf3G2AhVjrM9DYr30+HsNj6ZgAgG3rWGNmzhzAQqz1Ot4x
+N/2qdFwAwHZV8+HWWLcA2Iq1ziPqGNeb0nEBANuVsW5ucfdcAFuTMYf7Z+kY
+R47rsTGOT6VjAgC2aXdcZ9QsFte3FWBrIm8fhevScY4YV3OOlH2gATasfl78
+yXoeSmjpzdLmqnScAKRV1+qM6/niarfRsra7dEwAlLM7bo/+TbiPBfb3YLni
++d4gTZ7zAyzEGq/pu+PvNdTRAZhOy9qen2rSnFvk9ZtZXK0CYKsy5xQtrh9k
+PO/TcVs6JgDKifQaVDVpziLa9wXxjB9goXruJw5uSsc5Ylz3jTHoawmwcZHR
+N1NNmilFxr5VpWMEYJiM/PmudIwjxnTbGMNj6ZgAKCv2fT/69hFSk2Yy8Xzd
+QJPn+wALk/E8/rF0jCPG1DZfanHz0AGYVuTtPdFWk/67dOwsS+T1abVvFcDC
+ZN5LXJWOc+CY2v7Nui4dFwDlRX/vzC7Vz914HkuOaNkPpIXnMgALE+39qptu
+Ssc5Ylx6iAHwTOT1/sjJpT/VOdJV6TExP9Hfo/Vn6RgBGKcl12y6Kx3jiDHd
+N8ZgjREA/4iMvk4D/az/3bmt83M16o2L/nkO7ksAFir610AvcR/o26WPAeAc
+6vzuduM+7vy/MW0O3Vajvot9jdo83Q2JvH2fb0vHCcA4kbcGelHP0qOlh1jp
+mADmIJ4/X+Qy1Kg3IvLWCFyXjhOAcdZ4nY/2dd2LGgPAOYT8eU6qGvWb0t8J
+Lv87VjpGAE6T8W/8bekYJxjTTemYAErLubfnrPnyoe+YOd0rFf3r4u5LxwjA
+aeJ5v63FX+tbxnRbOiaA0urc7X7j/ved/y/OmytX87WrPOo2zH/alOjvy/qp
+dIwAnCZWuM9CPO+vel86JgDKy/g379Ta8lXpMVLsu3WV8V25KR0nAKeJln5b
+La5KxzlwTLeN+B9LxwRAWdHeH2Oox7q2/F5tmWOZ91Pm7gMsXObz0kX1OImW
+vmilYwKgrOhfr5TKmd8v7Vkyl9Xy7P6Z0jECMI3oX69zWzrGgeNpqzF45guw
+UbGfWz00b75TYyZX6B0GsBkZz+S/lo5xxJgWXUMHYBq746+M58TNWrM9mhmk
+/u6kvlt6hwFF7I53Ox9q3+tr0ovMn33R+LnKQ/VnI2M5nO9hivMVfE/7+qk8
+lo5xxJia/47dlo4JgMvL+DdOrZmTZXzHbkrHCKzX7nh5lCNXnhLXo++Z5/zY
+c137NjDGvvN9z83rS4uMeW2lYxwxpnvPfQG2LdI9w6rnrGrNnCxa+q60uC4d
+J7A+dd6cM7/qWLLWuztexZ/14dHnGnG+z6Xf08z3fXXX/Xheb7gvHRMAl9Xy
+LFWtmcmtsQ4BLFfs68+pa9KrxM++HZiLJ2vZI85XWUoNum8cN6VjHDie20b8
+j6VjAuByGjlNtUezWjNn0XLP8WyuQ+kYgW1J1HufEj/z7uh1X3Ze139erVn+
+3nWNyzzf50PeHvuaeaoe/br0+5f5Hj/2XPtvS8c4cDzXuZ8tAOtT58x3Yf8F
+ziz03gZmJpGfful4/XGu+7bnv/fmWEevf2rLhyNdI19K/nzfc+1fVA/utvw5
+7N0JAEws4x7qtnSMwLZEd/+wZ+uVG7lu69zuRP78rJ599Noqh3858Hy/umKY
+m+ife/SjdIwjxtQcw3XpmACAdem5f6q8Lx0jsB2x79eVlZtWtd6+3Ll+XVfv
+7C8d5+vMnXvO1zm/fG5ivy4sef0vHeOIMTXHYA9oAGAysd9fvC9/vi4dJ7Ad
+0T03+nvjda/id506OWc6utc/fzh6zcv6fE+p3LnnfIP2xCr8Pl9nXP8X1Xcl
+9mvfzJ8CAM4i8/7pqnScwHbEvvdX27Xo49FrXsTvNdLves73InF9e3X0uu/N
+P+s4X2rPrY9jx13gfb5a2/PTeL4e6bZ0TADAeuyON333T6VjBLajJ9d9e/S6
+b7n5anTvQfV09JpDzp6zH/Tie4cdjaUvf74pHePA8dw14r8vHRMAsB5h7ypg
+RhK5buVF/ZrD2uPWXtwt5+xaq/yx/u8fjv93xvm66uOLWft8NJbmfOem29Ix
+DhxP89+0+9IxAQDrsTs+9dw73ZeOEdiORK77vf7vh/z64ZBPZ5yzq5d3da7D
+mufvA2LsOl9WPj8n0b//wqfSMQ4cTzN/XlwP8cTY3tbPegY97wEAppNx73RX
+OkZgO6K7L9fHo1y3+t9Ze0RFdy/vp6O/r7dfWMb5Kr1zv+cmns93XvQz1GhZ
+k1Q6poHxvzvKkT9E9z7o/zz/KR0vAGxNRv58WzpGYBuip8/XUW6dnadG91rl
+z/G71p3sP5Z5vkpWPXxOon8Nz33pGAeO53qJ+XPPZ7Ca7xsALF3Gv8/2fgYu
+IhJ9vo5y3UH7Q0X3WuVDHjxoznV018ez53/PSaxsD+i2/DkWtgdXPY630b1O
+YPDvAQAwjYz8+bp0jMA2RPfa56ej/5s1z/ronG05SPVnD0PPF+n6+CLXonbk
+m4vNn+sxreLfscTvwz/Pf0rHBwBbUz2Tlz8DcxHptZ6Dc4ZI9/Ke+nyLXIua
+kz8vrX67ln/HIr1WIGv9PwAwncz7pqvScQLrF+m+XJWHEedM1e+mPN/i9q06
+GtPqnqMuPf6jcazu+wYAS5aTP5eOEdiGnlpbJbvH19E5u9YqT32+xe1b1RjX
+2vLnx0b8i+zjkfi+LXKtAAAsnfwZmIvo7vM1tlacWqs89fkWvRY1I39+UzrG
+geO5b8R/WzqmEWNIfd8WuVYAAJYu+vcteSwdI7ANke41PKZW/G7KfDdWvBa1
+pV7bdFs6xoHjWUP+nFprb98qACggI3++Lx0jsH6RXvv8NCZfiO569tTnW+S+
+VY2xNfNN+XP5MXR93+xbBQCFyJ+BOeip7Y5a6xnd9ezPE59v8WtRN5A/fyod
+04gxdH3fFr1WAACWTP4MzEGi1lYZtN9zfb5UPXvw2tGpzzc3K8yfPy3537Ke
+79ui1woAwJLtjq8990x3pWME1i3SfZJGzVWN7nr2qH1/UueLFaxFra71a3qW
+2vJseGnxT/r9BQCmsbaaA7A8ke6TNGquapV3d5xv1D5T0V0fX/S+VUfja+ab
+8uey8Xd930atPQAApiF/BkrbHR8T16Axfb4m3fen53yt+X3s598uJteRP8/H
+1N9fAGA68megtN3xveP6M3bu9qT7/vSc79la1Dr/eYj93O7Ba7cLfQby55mY
++vsLAExH/gyUNKa2m3HOrnr2qH2mEud76Hj9l1PiL/Q5yJ9nYurvb+GxtO3B
+vph5GQDQJH8GSuqptY2q3UZ3PXvsPljZ5zvKfRa1Llr+PB+J79tinsccjUX+
+DMCqyJ+BkqautcXE+/7EgLWoR88CqvxnUfNs5c/z0PN9W9y+VfJnANZG/gyU
+FPt1wpPV2mL6fateJ66PL1pet5g1z41xyp9nYOrvb2lLy5/reD/UDuswOnu2
+Hb2+OcaH+s8X98wD2uyOT3XOAET8XyF/BgqIiWvF9Tkn3Wcq2u//D97VrznU
+nZ/Gxt34+z63/F1Vnf71GT+L255/C36U/r4MHM/7Jcaf+P625py742XP59bn
+3ZnH0/b7UzR/jv2zrkOOnOr9/+w5WWNcT5nvcfWZLu6ZGhyLfc5wyrUGtuS2
+9O8ssE7RXWtr7cuVec6ue9qx9ezU+uxjJ+XOsb+n76rFH6vuxSefG747rvv+
+7tLfl1PHUzqmzLi7vr9Z+1bVv1N936OPueebYDyzyZ9j3LOG7y3n6NpbPqX6
+TOTQLFbIn2GI29K/s8A6RXetbWyfr3PUs1PnPHgYe/767+h6jtBl8j7MIX8u
+rue7lv3MJPF9Osuzl55YZpM/t8T2InENOvhw9PrqGVduzbnrOrGovghwEPJn
+GOK29O8ssE5xYq2t5Xxn2fcn0vfYJ+UkMTx3Phj1jCERR3O+c9Nj6e/LwPHc
+NOL/WTqmE74Lg76/Hb8HF6k3t8Qy2/z5KMaufueVV/Vrmn0QPsbRM7PY5+I5
+v8uL66EOlZA/wxC3pX9nAUqK/b1xc03yyb2B4s+54dWc0HeN/17NFU2tz5xs
+PmjoH1ZcTLBvVTyfo3zS3IgJxrSE/Lmt30Dlqf7vx7lz8nlZ9M9XeUr9PMxV
+yJ9hiNvSv7MAaxP7nPywTjVZG4z9PXnbmtbJatAhfy4d78n7VtXnOM7Bq/9/
+0TW3sez8uXp2VT2POMyTGbIGPfW7VGQuAJwi5M8wxG3p31mAtYnf99i59+Rt
+da3J1kGH/Ll0vF196rL3rYo/c+dR/ebPMK4l5M9ddf8q9uq51aDegNHfp2zS
+tRdwCSF/hiFuS//OAqxN7O/LB91Hx/M62WR7Aof8uXS8XfP0e3PNeF53nk1+
+FjPPnyNd9z/02R68b1yke6DP4tkGDBH7nhK3wD8eQ/4McDFR9xoa8XPNGqX8
+OX88s44/umugfXP7XzZ+9qz7OY8Y19zz57796cbue5fa4+pb6XEDMF70z8e4
+LR0jAP9cr183rs/mb+ePZ7bxx8h9q+L5uvjBddILjG3u+XOqP98p+9Cn8ufR
+5wWgPPkzwDK01Mr0D8sfz2zjjxH7VjW+C0V7bPeMbe75c2qe9ejnEfJngPXK
+yJ8/lY4RgNZamf2r8scz2/ije3/x1rnDjXy7eI/tnrHNNn+OdN3/pDnWPfmz
++dsAC1blx2u6ZwJYo9ivmX46ujZP2iMq41nqXen3YOB4lpQ/P3W8589qyo1c
+u8rRZr2X8Mzz59Q+UyftMRXd69kr+ocBLFjLPYb8GWBmmjXHM5y/L3++Lf0e
+DBzP1yXk/4ka6FPjdc0+YbPIQTPGN+f8uavuf3JfvsQzkcmffQFwWfJngHmr
+c6fD/Xj1fyefr7vC/Lk5nlnGHxn7VsW+b9xxPnb29bORnn88GyeOsSvHPSm/
+jfSeWJVRPb0BmAf5M8C8xZ91x7P0iZI/z+KzPfa2/u9d+yudtdf22vPnxPt6
+8u9YPO+TP+n5ASgr9vuhn+35LgDjxZ/1ybPlTBm5yk3p92LgeGafP0e6Tvki
+0nsrnXUN7Qby56739uS1EZFeVz3Znu0AlLE7ruXPAPMTf64dPXe9sS9XuS79
+fgwcz48F5M9dNdCHzPz1bH23N5A/d9X9T55b3fPeWfsMsHDyZ4D5iT/ngJ41
+d67/vrXlz83435SOqSXGzxnve+o1s19HGzPsHxbpuv+pc7f71j6f/XcZgPPa
+HVdru28CWLICuXPvc9Sdv0u/LwPHNPt/xyLdo/np8NnHGftEX2CMc8yfu+ZX
+n9yXrWO8B5P3zQegDPkzwDxcOneu/87e/Ln0+zJiTLP+dyy6962q/LGvc6T7
+Ub0rPZaecc4xf+56HnHy3OpIz92e9WcFQL6M/Hl2894A1qbOqQ41yYvN86yu
+8WvKn3fH3y1jmFX9PFEDbe0LFvs10a25dumx9IxzjvlzV93/pN+5nmcias8A
+KxLP+6w03ZaOEWDNSuXO9d992/NvwGPp9+co1quM11zPPf9P1EBb1zQn8u3K
+bPdDmlv+nMhxT54LH+m16tY9A6xIrGzfT4Al2R0v6/riU4lcKCN/vi/9Hh3F
+Wj3vvet5zazz59j3mOqqgbZ+/pHuS1W0ntsz1rnlz137Vp20H1j9O7y4zweA
+cXbH16XcOwGsyZjcOSbetyjjGerX0u/TUayHf6/uEq9534j/Z+m4G/F17VuV
+rIFGd32z+u68uETsI8Y6t/z5LPtWJT6bh7l+NgCMFwuqPQCsRV1T/D4wdz7U
+Lie7J8/In29Lv1dHsR7/e1Xl0n/1vGZ2/4bFyBpopNfXznIvqznlz5Gu4Y/+
+fYp0f7fZzq0HYLx4/qz+mdIxAqzJmNy5/rmPfXnWiFiS1//q34jS79dRrNeN
+2H40c+jd8Wnm+fPoGmh093c+ee+lM411TvlzV93/pN5e0d3bbZbPNAA4Xcv9
+iPwZ4IzqPGhI3bmqPR56Tr2dOJa+/Pm69Pt1FOtfLfH9kUPH83r6p4zzXsW+
+bn3W/SYiXQPt/S5EutbZ+72IfR+ySef/9/x9c8qfu+ZYj963Krr7up28FxYA
+8xXte33M9v4JYMkivUdsn6nnbvc+P4357f30syXGn4c4W/Ln247zVLn4TeP1
+Zx1rRz75z+c64Byj9rKK3/XXi9VFZ5Y/d/VsG/U8Krrn0+sXBrABGfdP9oAG
+OFGk97jJMem9eSxw7+eW/PiPHLolv37f+PlqzHctP397gdi79q3KnpOfyMEr
+nfsk1Xn3Red5zyV/TuS6lcHPo+J337/iYwOgjN3x2HMPdVs6RoAlmyB3Hl0r
+S8R02/P3PZZ+3wbG3Fabvq7z6k+Jf+suMs7oroEOqgl35G6V1hp0/O5ZNun3
+JyPOueTPXfOsB699jt+9C4qPC4Byor//6l3pGAGWqiOPGCp7ju+AuO56/s77
+0u9dS8y9NfOG/yPjNdcXiDtVAx3Up7nn+/S28drDvO1J+86dEGeJ/LlrzcSg
+WBK589nXO9fvZdszuOrZSOe8AwDOI573K539PRQAp8l4dtrbe6tAzDk9O4a4
+yBijuwY66rlIRx73z/kO+dRR7lxkH+I55M+R7tmWHUvsn3806/5PzecVZ4j/
+dcvf2+ZLic8YYKvCHlYAm5NxT35bOsaRced6jJY9pM8Uc1cNdFRdONK9uJuK
+1Cdnkj937VuV/Vwh2vfsrj7Ps/Yyj+5nLl1O2osLgHyR14P1qnScAEwj9ns2
+9V33r0vH2RH7/UT580V6Y0a6Bjq6H3ZHXjfZ+ScY9xzy57736KHtPapjb/vZ
+6vVnX0c+Inc+sHcWwAVE+56aRe4zADi/JT83jf41Rzm+XjDeVA100NrnlnOn
+9kMrljvXsc0hf+6a+1ytJe7q59ammi//rsD35Vvz7419/+/Uc4GL7fENsGXR
+3rf02G3pGAGYRvT33v5ZOsZE7L1rjvrGFheat32h96NZq/x4al6+BpGxb1V0
+9+X6Vb+vHy6Zj8Z+rsIh50/WuaN9TfY/n3/p9x5gC6J/PtzFntUDcF7VNb3n
+mn9fOsZE7Ncn5s/vS4+Bi3xPJtu3qkDMWXPEO54RzHZ8AGsS/fPhHkvHCMA0
+onsv5IPZ9d5uxD82d74vHTsX+4586fgOzLY+W9eTB8UXz+vnk+91B8Bzu+Mm
+475jNfPdALYq8npe3JSOs2cMP0bkztW87avSsXOx70jX+uaz9/8aGW81d3vw
+mvV4vr5e/gxwAZG3p+Z16TgBOE3kzX/+u3ScPWPom3/e5rZ03Fzs+5Hq2baq
+fZLj+V5m5m8DXIh7D4D1i/7eYb9KxzjFGBp+lI6Zi34/uvpTry63bHlWMNv5
+6QBrE3qIAaxeRu32vnSMGWPIqaEvpp7O5N+P7x3fg9Xlli3PCuxfBXAh0d9D
+bLb7mQCQJ/r3K5x177B6DDlruM2d2qDYryPu+i5cZA/nC4/1eJ336p4PAMxZ
+5PUQuyodJwDjVNfwjOv8Tek4M8eSkzs/ht6XmxLd+1ZVVrUvdmOsq5ubDjB3
+a7qvAuC5zOeki5jrnJk/X5eOk4t/L7r2rVpVX+rd8fKo9lz9X/O2AQqI/nl9
+d6VjBGCc6hrec41fzDqdjNz5vnSMFPledO1b9aV0bBOP83iN96rq6gBLEv19
+ZR5LxwjAONG/b/Ji+kSaL0XLd+JV4vsweG/luYo/e4a9Lh0PwJbtjvcZ9yRX
+peMEYJjI67n1vnScA8bjWS/N70Rq7fPb0vFNNMZ3cmeA+dgdf3umD7A+u+NN
+xvX9unScA8ZznxjHben4KPKdeEh8Jxafa1ZjWNN4ANYirIEGWJ3oX/v8q3SM
+A8fTlT9X/4bpub0x8Xwf5FXN35Y7A8xXWAMNsDqx38spdW1fzNrnejxd+fNd
+6di46PfgbXT33H6WQ8cC94CWOwPMW1gDDbAqkbc/4WLWPtdj6sqfr0rHxkU+
+/2+ZOfOia9Kx74l26CkudwaYochbA72o+yyALct8LrqIfZ+PxtSWP9+Xjgum
+IncGWI7oXwO9qHl+AFsW/etyFrPv89GY2vLnN6Xjginsjpex74dW5c/2dwaY
+uVhZnxmALcuoPd+VjnHEmJr582PpmGAKY3Ln6mdKxw2wZbvjJuN+y3N+gJmL
+vH2rbkrHOWJczfx5cWOApt3xYuf7wNz5Rf36F6XjB9iq3fHXGusVAFuTM58o
+FrjfUyN/tmcVizcmd65/rtq760vp+AG2bnf86LnfeiwdIwBp0b9v1Y/SMY4c
+13H+/Kl0PHCq2PcUH1J3rvqLHfbuels6foCtixX2awXYksjbT+G2dJwjx3Zc
+V78qHQ+cIk7bj8vcbYAZyLzv8swfYKaqa/Ran4NWeX8dv/0gWLTd8fmE3Lny
+ufQYANjLmPf3WDpGANqt+Rp+lD9fl44FxpogdzZ3G2BG1ly7AFiztc8hqvPn
+x9JxwFi7490EufNT6XEA8Nva778A1mrtzz/r/PmmdBwAAMfWPP8PYK3Wfu3e
+He9LxwAA0LT2GgbA2pg7BABQRuZ92F3pOAHYiz/3dvLcEwDggjLmAf4sHSMA
+e9U1ec1ztwEA5ixzDveb0nECbF11LTZ3GwCgnMw53F9LxwmwddW12NxtAICy
+dsePjHuyq9JxAmxVdQ3OuE7/KB0nAMDa7Y73Gfdl9hMBKMR1GgBgHnbHXxn3
+ZY+l4wTYqoxej5W/SscJALAFmevqrkvHCbA11bVXnwoAgPnI7Ovq/gzgwjKf
+b9onAQDggjLnB16VjhNgKzL7hj2WjhMAYGt2x23Gfdpt6TgBtsJ1GQBgnjLr
+HD9LxwmwFdU117wgAIB52h13GfdqN6XjBFi76lqrLwUAwHxFXp/Xx9JxAqxd
+Zk+K69JxAgBs2e744Z4NoBzPMgEAliFzzuB96TgB1qq6xlpLAwCwDJk9a65L
+xwmwNpm1Z70cAQBmIvL2TLkrHSfA2kReH8fb0nECALC3O/7KrEFflY4VYC0i
+bx/Byl+lYwUA4LfMGshd6Ti3aHe82/lQ+15/Fi8yf/ZF4+cqD9WfjYzlcL6H
+Kc4HW+a6CwCwTAPqIFelY12j3fHyKEeuPCU+g++Z5/zY81l+Gxhj3/m+5+b1
+sHWuuQAAy6YWUuQ9f5l5D30sWevdHa8a9eHR5xpxvs+l31NYAtdbAIBlUw+Z
+h7r+nHr/XyV+9u3AXDxZyx5xvooaNCS41gIArIOayDwk6r1PiZ95d/S6Lzuv
+6z+v1ix/7/o8M8/3+ZC3x75mnqpHvy79/sGcuc4CAKzDgLrIdelY1yyRn37p
+eP1xrvu257/35s9Hr39qy4cjXSOXP0OH3fG32jMAwHpk1kbuS8e5ZtHdP+zZ
+euVGrts6tzuRPz+rZx+9tsrhXw4836+uGIB/fnfu1Z4BANZDDbr4+/8qNzet
+ar19uXP9uq7e2V86zteZO/ecr3N+OWxddc1UewYAWJ/MGvSP0nGuUXTPjf7e
+eN2r+F2nTs6Zju71zx+OXvOyPt9TKnfuOd+gPbFgS9SeAQDWaUAN+qZ0rGsT
++95fbe/1x6PXvIjfa6Tf9ZzvReLze3X0uu/NP+s4X2rPrY9jxw1rVl0r1Z4B
+ANYrswb9uPNX6VjXoifXfXv0um+5+Wp070H1dPSaQ86esx+03mEwQHWNrK+V
+as8AACtV3/P9zLjnuy0d61okct3Ki/o1h7XHrb24W87ZtVb5Y/3fPxz/74zz
+ddXHrX2GFtU1MuM6+lPtGQBg2dz3Xfz97sp1v9f//ZBfPxzy6YxzdvXyrs51
+WPP8fUCMXefLyudhS2K/FsZzSACADRhQg/5aOtY1iO6+XB+Pct3qf2ftERXd
+vbyfjv6+3n5hGefLmvsNW1NdGzOfQVoHAwCwApHf9+a6dKxLFj19vo5y6+w8
+NbrXKn+O37XuZP+xzPNVsurhsBWRv1/VTelYAQCYzu74kXEP+Fg6ziWLRJ+v
+o1x30P5Q0b1W+ZAHD5pzHd318ez537AVkdczzD6AAAArM6COcls61qWK7rXP
+T0f/N2ue9dE529YqV3/2MPR8ka6P27cKjkRe7wjzdgAAViry1/FdlY51ieL3
+fs5dBq0vTtSzz3G+t0POBWsW+T3D9I0AAFipAfeE96VjXZpI9+WqPIw4Z1c9
+e+rz2bcKjlTXQM8aAQAYMCfxTelYlyTSfbkq2T2+js7ZtVZ56vPZtwpq1bUv
+8xp5WzpWAADOL/J64tiPZdh72tXna2ytOLVWeerz2bcKfv3ze5K7399j6VgB
+ALiMyO8lZm1f/nva1ufrlFrxuynz3Z76eNZe1LB2kdcjonJdOlYAAC5nd9xl
+3ieax93/XqbWPld59eB9lRP17KnPZ98q+DVo3vZd6VgBALisAfMUzePufy9T
+td1R+0Il6tmfJz6ffavYPNdDAAD6DKi3mMedfh9Ta58H7fdcny9Vzx68z9TU
+54O1ifx52+bjAABs2ID7xpvSsc5RpPtyfRt5zq569qh9plLnixFzwWFNqmub
+54gAAOQYOG/xqnS8c1PVbxPv2ai+1lXe3XG+UftMJerj9q1i06prmusfAABD
+RP487h+lY52b3fEx8X6N6fOVqmePmbs9eN+q2M/3HrXOGpakuqZlXvtuSscK
+AMB8RP487tvSsc7J7vje8T6NnbudqmePycdT53u2b1Wdbz/Efm734LXbsBTV
+tSzzmmfeNgAAf4j8edyV69LxzsGY2m7GObvq2aP2mUqc76Hj9V9OiR+WoLqG
+ZV7r9NsGAKBV5M/jdk/5q7e2O6p2m6hnj90HK/t8R7m2ddGs1sBnhfptAwDQ
+aXd8yryvvC8da2lnqBWn9pl6Ntc643zZa6mPngVU+bae3KxWde3KvMbdlY4V
+AIB5q2szuT11bkvHW/i9euh4X8bO3Z5636rXic/uRcvrrHlm1SJ/zfNjmGMD
+AECG3fF35j1m5bp0vIXeo0lrxfU5J91nane8S8T4rn7Noe78NDbujvfmQ33O
+47/zc5Wrl/7s2KbIX/Nc+bt0vAAALMfueJ95n7nJfVETteLWvlyZ52zmm6fW
+s1Prs/+ob0+RO1e166NnAA+HHL3+b1VOfdjXetRabhgr8vd5rrwvHS8AAMsT
++XtaVfO9NzXXMVErHtvn6xz17NQ5/5XvT5Q7vz7K/zv37orf/czk0FxEDFuT
+Yq8qAABGqe87HzPvO+9Kx3vh96arVvx25Pkm7UV2dN6uPP9X/d9O7hUWf66z
+TsbbeK253JxddW3KvIY9bu05IAAA04pha6HNe5yZ2Pfg/tz4nD5MUXOuz39c
+487qP5ZTp4YpRP46lIo1zwAAnGx33Ay4B7Vf6kbUuflxD/Ksddrxex306Lnp
+0Cfy97P37A8AgEkNmAP5Ux1nG+LPueHZfdMa9fBRvdEgpZ43k9sv7K50vAAA
+rEsM68FT3bdaR7hi8XxvrHcDfvY4fx61Nxd0qa9Vubnz5nofAgBwGTFsDxj3
+pSvVMm+7Ws+c3YeskT+P3u8LmkY857sqHTMAAOsVw/qJ2QtmheL53teD9qJq
+5M+/So+H9Yj8Pfcq16XjBQBg/WJYP7G70vEy6Wf/Ip7v3TWoB1j82T/sV+kx
+sQ6R36OhclM6XgAAtmPgveqn0vEy2eferD0Pnn+9O77Ln5lSdY3xTA8AgDkb
+OFfypnS8TPKZf298roPmbtfn+KN+XXpMLNvA+TDWlAAAUEQM69Ujh164ap52
+y2f6euA5Xpxav4aDgbmznoYAABQVw/aKkUMvWMvc7acR53jbOMf30uNimQbm
+zvbUAwBgFmLfk3tIDn1dOmZGfc7NuduD925uycHt/8xgMWwfgOra9HfpmAEA
+4MD97PrF877bH0ac48up52DbRjyvc60BAGB2RsyndF+7ENG+9nnQvlX1eZo5
++NvSY2M5RuTON6VjBgCALnLodYrn65Z/jTjH68Y5qlz6RemxsQxyZwAA1kgO
+vT67413jcxvc92t3fGycw9pnssidAQBYs91xJ4dej5ig75e524wxIne+Kx0z
+AAAMNTCHVjOasZb8+ePAn2/O3bbvM70GzmWROwMAsGhy6HVoyZ8H9c3eHZ8b
+P/+u9JiYN7kzAABbJIdevpb8OTv/3R0vGnO31Z5JkjsDALBlI3Lo29Ix88fn
+1+y/PSR/bube1j3TqfrdlzsDALB1I3Lou9Ix86/P7sWY/Lml9qznNp1cIwAA
+4LcR98dfd/4qHTf/fHbfjz6XrPXPjdrzQ9jvmRbV77jcGQAAnhtxn/xDDl1e
+/LkHdG8deXe8Onp9VYN+WXoMzE+dO/+QOwMA0Gd3vIkN7n28O94PvF9+3OL7
+NDeNGnRnLTn287YfjnLnV6VjZ35iv7fz48BrwfvScQMAUEZde/kZG+w5HcN7
+7Fbv03XpuLesqiEf5cWte0DXufMhz36QO9Om+l3e+beB14Cb0nEDAFBW/O43
+e1c6lgJjH5pDqz+V/8xeHuXHn4/r0LFf73zoF9aaX8PI3/ub0nEDAFDeUQ16
+k2t96zrUz4H30nel4966Olf+3vhcvtV/rk8YrWJ4/wPzTgAA+EP8uedpdb+4
+qbW+sV8HOTSH3tyzBliqGNcnbHPXQgAA+jVq0Jucr7g7rkbeX1+Xjh3oVs8x
++b9HPB+7Kh07AADz1KhBb3Kecv0c4X7gfbY10TBTMbzXfuW/mFsCAEBKRw16
+k3WYGL5GsvLVPTfMQ309+zri9/jgTekxAAAwbx016E3OU45xPXofw3pJKCrG
+7ets7TMAAIMkatCbnKcc43pzb+59grmIcfO1U8/DzCkBAKBTogZ9cLele8q6
+ljW0r1jlfkvvE5QU43sX9PlRemwAAMxXRg36V2xsTXSMX0tZvY/WUcIZVb9j
+I+eJ5LorPUYAAOYrowZ9yA2vS8d64fdl7NzQO7VomFb9XOtu5O9k9bt8M+D1
+t6XHCwDAPGXWoP91X7ml3DDGr4l+3NrzBjiX+vfwccTv4R/P/Qbm3zelxw0A
+wDxFXg36+J70pnTMF3xvTllr+WlLzxtgSvXv3qeRv3v3bb97A36X9eQGAKBV
+DKtBH/zYUo114DMGtWg4QYyvOf8zTyZx3r8iv0fgT8+/AABoc0J+WNVzrkrH
+f6H36JR7+q/uxSEtxvfvy35WFfs++7nPC3/4vQUAoCnG1aCPbWKu8on399X7
+a79oaBH7Hl9jr0GDnk/VOXTuue9KvzcAAMxPjK9BH+eHt6XHcaH36pR7/fuw
+thL+Ueey9ydcc25G/r03A/6e29LvEwAA81LXVk/Jnw8e4/9v745x20i6BAC/
+I/y+AeETDOALMPABnDhn5FjZpAodKnXG2JHidcIDTGBgow0MKF9A8AUWXvaw
+NeLQXcUussnqbn4NfMCuf4lT1ZSEfnyv3ruBWcjba3HGc//N5OyhS5zXH+zl
+c6jFmWso+e+vat8zAADGJU6vTU493y5r7+kK9+wuTs9F31Q/c2jEefUbg56D
+KPybp24EAIB/RFlNY1/rc/NEYxfn56Jvqp85tyl2Pfj69r++SM65Y02lPbkH
+/e8DADBdMVwNd9dz533MvF45zstFXyQ+gNoG+Hzpor332vXpyQ0AQLEz80N9
+noOXtfd44fvXPIufWwe/Fkczde3vwvrM34XHa/wuRFlP7sfa9xYAgHGIXQ51
+yJj5KXa5p6ZXz33cyBnC7fUhTp8X/UKPMSYnzu8N9vJ346p9CKPs/MpD7fsM
+AEB9bc6o9Fn3v9sY+b61vJU4+ci9HCKOuInad6av/Xm/j/POMFT93CjK5vit
+at9zAADqi/IabmcC8/fznBm34mhGbcC4eTOGz92irOa8+noBAKgrTsuZiqGP
+39charp/hvPRjEC8nm8+N25ufidGMzM+yntyi6EBAG5YHO+l8z+JZ2Yx9PF7
+O1Su7pc4mhpimL5go66paH9P9eQGAKCXyOdJ79oYWwx9+v39z0AxSGMTM+9r
+Tn2x62uwGehndj32vxOZv3Gdv4O11wsAQD1HYrtF+zVL+Ziz7/Mizp939aL5
+zGPl3jOU9nOeVZx/7mD/s55F7X0V7H9V8plA7fUCAFBH7M7qdj0jPh58Xer5
+Ugxddr+XMVxur8mZPUwpTmFc2s91HmKYcwYvcfOy9r5OvBf3Bftc1V4vAAB1
+JJ6dVx1fJ4Ye7p4PGUe/xC2/vWfQpf1dHvrnb1l7XwPcl3XBnie/XwAAyiWe
+GTvjYTH04Pd+6Dj6JSetVzD/ErtzvkPmmmcTNx/cJz25AQBI6oiJ14VfL4Y+
+/z0YOo5+eT+aHnCL2vuj2s/Vov0ZKJ31fnNx8949a86CP/W8D0/+5gEA3Jb2
+eXH/mfDojNYjMfSi9p6mqo2jh+oztu8x9By7CfHaC+wSP0ezjZsP7mFJT+7v
+tdcLAMB17T1r/yz4nlQMra7x/PdjEcPNvRJLz9yFY+ZfcYMzyCPdW7Hz/tRe
+LwAA17MXC68Lvy+VpxFDD/O+NHHRfUEurJQa74mK19rszYV+Nn62P3s3+zlL
+e3/73q+72usFAOA62mfxX6fEvEdi6GXtvc1F+xnH0OdY9z3Frr/U0fp9qv0M
+fGjfo6cL/hw0P2Or2nsdiyirA/G7AwBwI87Jn2Ri6F+exQd/n/5on+kvlZN+
+0dQC353ymQqDvtd3cbm67H1r73Xyfdj0vIfqbgAA6EUMffX7/XLm9ZI56f24
+QDx9+fd0P16+9Ocjv9qfneZn6GZrtHu+L/8p+D17cj8BAOjjyHPmuvb65iou
+M9v3mE3szsc2NcWL2vdgatrflQ/tPdxc8X0zI/y096uoJ7cYGgCAPo7F0J4r
+L37/P8Tlencfy7s9iqk735PFXqz8GJc9v5zS/Hedzz3vfVwW3O917fUCADAN
+bQydOrMpN3O992CVeR+uZRO7eP6+jT9mm/eMXY5y2e51HdfNK6di5pXft0Hf
+41XB/b+vvV4AAKYj0nnQpznHUWMzolj68GdgP7ZetbHnsvb9ytzHZWt1ECM/
+jeB+ipmv93OQ+rvWZVV7vQAATEekZ6g2ZwnVk17//Xg5d7uO656XPifG3sRr
+bfi+Zh/LM73UVe973PvvPo3gPuQ07+G63YeY+Xq/R5uC98dnhQAA9Bb5mseT
+52YxyHvzRxszXqOPN8P43r5n4rJ6vzclPbmbGNpnGwAA9Bb5/rXr2uvjn5hg
+Fbt85tMI4kR2ntr3ZCUOG4/Y9YXTkxsAgItonzdTORvPlyPTvl+rEE/XjJcX
+tX8OyP6O/FHwvq5rrxcAgGmJfG/uJpezrL1Gsu9djZnFc7eJ1/PcPkOamCjr
+yf1Qe70AAExP8xyZecZ0JnoiYpd/W7Xv5ybG35Ospp/tPXpo75nzyzNx5O/Z
+oVXt9QIAMD1tDJE8Ex1ycZMUu7rvZfx7xtMtxdUvcfI6XudeL2q/L1z8575k
+PpzPTgAAKBa7/OVT4hnzu+fMeYl/z4x6yVlvRhDzlnpZ90PszdKqfX+p+rNd
+2pN7UXvNAABMT/vcmYqhmufMVe01crWfhT/idTbzfXTPZN4UxCl9fD947cNZ
+0y/r8VkOWe3fMj25AQC4uDZWST1rrj1rAmMX+Vl9hx5rrxcAgOlq62BTz55P
+coDA2EVZT+517fUCADBdkZ8T3dCfGxi1I/U0h1a11wsAwLRFfibMRj03MGbt
+uZO+MfSy9noBAJi2I/Xczb9/qL1GgC5R3pPb+RQAAM4S+f7cf/fgkYsGxij0
+5AYAoIIj5wmf1D8CYxRlPbk3tdcLAMA8tM+huXrIB/kbYGzasyh6cgMAcFVt
+PWSut9iTc9HA2Gyvu4IYelV7vQAAzEdTr93Gys5FA5MQZT25fQ4IAMBgeuSi
+f8rjAGNy5AyKntwAAFxUj1z0ZmtRe50A7ed+ub9Xh+dR1NEAADCoHrnoxr1n
+UaC2KOvJ/b32egEAmKceuegn5wqB2kJPbgAARiLy86LVdAPVNf0ZCmLou9rr
+BQBgvpr4uI2T1XQDoxR6cgMAMCJtjid31lCfbqCaHp/z6ckNAMDVRL/+Ys3Z
+6GXttQK3pf37VDLXSs0MAAAX17OmeyPHA1xTFPbkFkMDAHAtset9+3TkGbU5
+l7iovVbgNsRufoCe3AAAjFLbP+xYzkccDVxFlPXkvq+9XgAAbkvPs9F6dQNX
+0fPv0YtV7fUCAHB72rPR6x69e8TRwEVtr8ee8bOe3AAAVNOeQdz0eGZV1w1c
+RJT35F7UXjMAAMPYXh+3/mw1//C59pp6rLlPHO18NHARbU2MntwAADO0vT7t
+xciNH5lnvY+111uwrz5x9F3tdQLzE7u5Vn3PQj/WXi8AAHkFz3b73tRe9wn7
+TMXRP+V9gEuJsp7cD7XXe6F70NSzr2qvAwBgaG2t9nPm+e5b7TWeub/DOPq+
+9pqAeQs9uZt7sG75vBIAmJXt9TnzbPdn7fUNtMcmjn70LAdcQxyfD7Bvdj25
+Y3ce/OWs96L2egAAhhKvfcK6vKu9PoCpCT259z9DaPb3ofZ6AACGkMk/P9de
+G8BUtTH0zfbk3stBz/q8NwBwW7bXX4nnudHPrQIYs9j15O4bQ29qr/cC+z+s
+Y9/M7XMCAOB2bK83mWe5ycytAhirKOvJva693oH33pWDb/7/Ze21AQCUil3/
+7dRz3OTmVgGM0fa6L4ihV7XXe6W939VeGwBAie31NfFcM+m5VQBj01HLnLOs
+vd4B9507B24uAgAwGZGe/TyLuVUAYxHlPblnM9fqSP79aU57BQDmaXu9yzzP
+mFsFMLA2hn7qGUPPpif3kRz0y+cFq9rrBABIifTcZ3OrAC4kbrQn95Ec9D/9
+0+bymQEAMC+RPvv8pfbaAOZse33oGT//HVPWXu+A++6Te2/y7ovaawUAeBHm
+VgFUtb3uCmLoWfSqjv6zvH62+Wq5aACgujC3CqC6KOvJ/aH2egfac58ctHPR
+AMBobK/PiWeVv2qvDeCWxI315C7IQe97EkcDALU0cXLiGcXcKoArirK5Vk9z
+qGkuzEHv28SMZmMDAOMX+bPP5lYBXFmU9eT+Xnu9A+x3eWL8vB9HTz4XDwCM
+X5hbBTA6hTHluvZ6B9jv5swY+u/7EHp1AwAXFIVzq7bX2zOfbz7V3jPAFETZ
+2eD72uu94l6PeYgZ1LUDAOPT5JkTzx+95la1+esfR55lPvd9PQBeRVlP7lXt
+9Z6xz/8MGD83zLwCAAa1vd5lnj16z62KdA3415LXAeB30b+2edI9ubfX48Ax
+9Ms9WdXeGwAwfZm4t2huVXTPv5JvBhhAlPXk/jnVnGsMW8N96EkcDQCcIwaY
+WxW/n4duarn17QYYUBT25J5iDB3D13B3xdCTzc8DAPXEAHOr2tfYj8Gb//tt
+7b0BzFEbQ/eNFde113viHoeo4f7evs597HLay9r7AgCmbXt9TDx39J5bdRA7
+f629J4C5i5n35C7cX+N/Y3eGaBlmVwEAFxLdZ5YbnXOrDr73MO/8ufZ+AG5F
+7OYz9Y0vV7XXW7i3U2q417XXDQDMW6TPPmf7fsXuvPP+95rnDHBlhXXOkzrz
+22Nv/9fxbw+11w0AzFOcOLeq/b79Wc/va+8F4BZFeU/uRe01F+xtdWQ//zWH
+XDsAMA1xwtyq+Pd5aT22ASprYuKYYU/uOF7D3fRRu5tDrh0AGL/t9TXx3NE5
+t+og3tZjG2Akoqwn92Pt9RbsK1XD/bT3Neup59oBgPHbXs+J55LfcsoHsfa3
+yNR3A3B9PeqdJ3dOOLOnh4Ov66phn0yuHQAYt0iffX4++LrDPmFH+3IDUEfs
+Zh33jaFXtdfbYz+pGu5Fx9c9TTnXDgCMV/SYW7W93h/kqH/UXjcAeYl65pRl
+7fX22M9hDff3xNf9Ed3nwNe19wAATFscmVsV/+4Ttk+vbYARi/Ke3KPutRW/
+13DfZb72w1Rz7QDAOG2vN5lnqTeZ3HTja+31A5DXxtCz6Mkdv9dwL458faon
+97L2XgCA6cnklpt5VN96PGvpuw0wcpl65i6b2us9speXGu7O2u2Or19PMdcO
+AIzP9vrS41kq9zWd860AGJeO2uecde319thHsna743s2U8u1AwDjE+m5Vb/a
+/+19+3Wp+dDPNdcPQH+ZeubJnBOO1xruReH3dJ0D39TeDwAwDZGeW9X411zn
+2PXfTn3tp9p7AaCfRD1zyrL2ehN7KK69Dj25AYAzNLXXieelzr5gsTsT3Rlr
+194LAP0lcrFdZnVOuPk8YEq5dgBgPDI12Z1nmjPxduNd7f0A0E9bz/zUM4Zu
+vm4254QjfQ78Q+21AQDjFLvZVKmzz52xcORnXX2pvScA+svUM3fp1et6KkJP
+bgCgQKTnVmX7gUW6F3cTi7+5xtoBGEaTc+0ZP8/unHC8zsGaba4dABjG9vqc
+eD7qPPu89325nmNmWQFMTJT15O49M2rsIt2Te1a5dgDgfNvrr1Nj4Nj15u76
+3h+19wVAuUQ9c8pszglvr0XoyQ0AZET+HPPRPmCRn2X1scf3N33I3ta+DwC8
+2l6bnvHzrM4Jx+4c+Kxz7QDA6bbXp8SzQvbs88FrnDTLKl7PXav1BhiRTD1z
+l6eY0Tnh0JMbAEiI9Nyq7Nnng9dIxeCN95nva+Judd4AIxSFPblnFkM/zD3X
+DgCUi/TcqqKccGkOOl57lh2t8Qagju217Bk/z+6ccHT35P45p88JAID+It8/
+++jZ54PXyuWgPx587Uvddu8cNwB1ZOqZu9zXXu+A+0725BZDA8DtiV3vrrPO
+Ph+8XqqPd5Pjft9+zUvs3OSrzYgGmIAo68m9qr3eAff9n9CTGwD49fdzQWr2
+1El54cj34u59LhqA8UnUM3eZ1TnhSJ8Dv6+9NgDgOiI/t+rkftjxeq45R79t
+gInJ1DOnYujZ1DhHuoZ9VXttAMDl7dVRn332ueO1U3ltsTPAhG2vRSIX22VW
+54SbfPPcc+0AQB3x+9nqz+fG5QDU19Yz9z2r81h7vQPvfZ2IoRe11wYAAMD4
+ZOqZuzzUXu+A+9aTGwAAgCJNXFwQQ69qr3fAfad6cs8q1w4AAMBwon9P7l9z
+Oicc6Z7cs8m1AwAAMJxMPXOqJ/ei9poH3PuHuefaAQAAGE6mnvkWenLfzT3X
+DgAAwHAy9cx6cgMAAMCeKOvJva693oH3ric3AAAAvW2v+4IYelV7vQPuu6lh
+f+rY46b22gAAABinRD1zyrL2egfcd6qGfV17bQAAAIxPlPfknk2vrdCTGwAA
+gAJx2z25U+fAl7XXBgAAwPhk6pm7bGqvd+C9d9WwzyrXDgAAwHAy9cy30JN7
+M/dcOwAAAMPZXncFMfSq9noH3HfqHPim9toAAAAYp0Q9c8qH2usdcN96cgMA
+AFAkkYu9hZ7cy8Q+72qvDQAAgPFp65mfesbQT3M6JxzpntyzybUDAAAwnEw9
+c+dcq9rrHXjvD3PPtQMAADCcTD3zLfTkfpx7rh0AAIDhZOqZZ31OOPTkBgAA
+oFCU9eRe1V7vgPteHNSwq+EGAAAgq8m79oyfZxVjtufAf7W5aLXbAAAAZGXq
+mVMx9GxizfYc+Gz2AwAAwGWV9uQWcwIAAHCrbrknNwAAAJQo7Ml9X3u9AAAA
+UMv2erjFntwAAABQans93mJPbgAAAChxQk/uRe01AwAAQA1NTKwnNwAAABzX
+zrXqexb6sfZ6AQAAoJbCntwPtdcLAAAAtejJDQAAAP1sr3VBDK0nNwAAADep
+oCf3o15iAAAA3LI2hs715Hb+GQAAAH7905O7K4Ze1V4bAAAAjMlBT+6fzjsD
+AABAt+11356HXtReCwAAAMAQttenrT9bX9vagY89vv6wTv9H++/vau8JAAAA
+TrG93u/FyJ979Ep/0/EaTdz83HNOWROHv629bwAAAOijiWELZnO/+KvjNb6d
+8Do/xNAAAABMUZNX3qvRTvlz7+vfF+ScUzH0b7lsAAAAmIImx5yJed+1X/P+
+4N8/759tbmPxrnPQyXgcAAAApmR7fUnEus/t/74fO3/N5ZCbmPpI/PwsBw0A
+AMAUZeLnz+1555ea7WQf7oPXO5aH7vU6AAAAMCaZ+u1P7Znl5yiYQxXH+5R9
+rr1nAAAAKNGeW07FuS99tt+f8Lo/Mq/7tfa+AQAAoERTS32Jfl+Rn3H1rfa+
+AQAAoER7xjk5b+qM183Fzye/LgAAANRwpM66uG5773XFzwAAAMxC5GdNnVVj
+rX4bAACAuTgyZ+qsGVOZnt76hwEAADApTRybiG+fB3jt50z8bH4VAADATByp
+Px6NM/eYinHPim8jPxOrcVJPbwAAAMZn7vFz5OdWvTvz3r0/su6zXh8AAIDx
+uIH4OTW36q8B7l3uXPXZteEAAACMxw3Ez6n+XmfXVh+5d84+AwAAMAmRP598
+bu32sbPPJ8+UBgAAgGvK1Ff/GOC1P2Vi57NrwwEAAOBaIj236uza6iO1259q
+7x0AAAD6ivTcqrNqq5vab7lnAAAA5iAT457dF3t7fXHuGQAAgDmI9Nyqr2e+
+7ttM7Pyl9r4BAACgxKXmVmVyzz+anty19w0AAAB9HZktdXKM29RmZ173rHlY
+AAAAcG3b6+Mlenu1OebBc9oAAABQQ6bG+uS5VZGeJX32LCwAAACoITO36uOJ
+r5fq5a1fGAAAAJN0ZDZz8dnntt92V9222BkAAIDJytRZF599bvuQdfXxFjsD
+AAAwadvr2xC11pnY2XlnAAAAJu3I3Kre8XNbA35Ys/186vnpE/bxKdED7fPW
++9r3GQAAgGnLzK361cbDR88/tzHq4fc2Oe23V1j/+8RZ60NfTznLDQAAAI1E
+7HsYQ/82q7nN93Z9748r5pxT57ZTzpplDQAAwO3K5G6/RHqmVWds2sTUV1x3
+aezsLDYAAAAniR5zqzLnin+1Meyf16jTPlj3fs35t8O4PXbzs3J59auuFwAA
+gGnL5HBHW+ccu35nLznzbJ14dPc0k4MGAACgSOx6ak2qxnkv5u91xjqRYx/t
+5wMAAACMT+Z881X6f5245h+l8X1H/flz7X0AAAAwDZGfWzXKOU9t7fZvvcBP
+2Kv4GQAAgF4y/bVmV9scuxnRs94jAAAAlxG7eVOTOvt8xl4P88+z2yMAAADD
+a+ugU7XbV5vhfMX9Hubaza8CAADgqMzcqsa72usbeK9vDvqkyT0DAADQS2Zu
+1ez6ah18VuDcMwAAAL1l5lZ9rb22gff5dm+vz+q2AQAA6Kupz87UbhfPhhqz
+gx5ps6pLBwAA4LKOnH3+WHt9A+5zv2fY+9rrAQAAYFq2149M/DyLOLPpIT63
+PQEAAHA9HXOcZle/3cTLYmcAAABO0dRlZ3pu/xZDT3UGtNgZAACAU2yvbz1j
+5snnpMXOAAAAkNf2FH8WOwMAAEA3sTMAAADkba+3bT/xZ/OdAQAA4HenxM7N
+99ReNwAAAFzL9nqz9Vdh7Pym/fo3tdcPAAAAl3ZK7Nx+XzP7+mvt9QMAAMA1
+tDO5SvLO7/ZmX3+svX4AAAC4tDPnWavdBgAAYPa215czYufGl9p7AAAAgEsa
+IHZWuw0AAMCsba9PA8TOz7X3AQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAcK7/B69g8gI=
+       "], {{0, 845}, {976, 0}}, {0, 255},
+       ColorFunction->RGBColor],
+      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+      Selectable->False],
+     BaseStyle->"ImageGraphics",
+     ImageSize->{119.7109375, Automatic},
+     ImageSizeRaw->{976, 845},
+     PlotRange->{{0, 976}, {0, 845}}]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{"D", "(", 
+       RowBox[{
+        SubsuperscriptBox["p", "1", "2"], ",", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["p", "2"], "-", 
+           SubscriptBox["p", "1"]}], ")"}], "2"], ",", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["p", "3"], "-", 
+           SubscriptBox["p", "2"]}], ")"}], "2"], ",", 
+        RowBox[{
+         SubsuperscriptBox["p", "3", "2"], ";", 
+         SubsuperscriptBox["p", "2", "2"]}], ",", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            SubscriptBox["p", "1"], "-", 
+            SubscriptBox["p", "3"]}], ")"}], "2"], ";", 
+         SubscriptBox["m", "0"]}], ",", 
+        SubscriptBox["m", "1"], ",", 
+        SubscriptBox["m", "2"], ",", 
+        SubscriptBox["m", "3"]}], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"], 
+    GraphicsBox[
+     TagBox[RasterBox[CompressedData["
+1:eJztnT+PHLmb3+k/gbPVvIIdzxvQAoqN39hQLuEMRRds3wFWcImEs4HBJd4O
+BTiQAEcTqSMHSlZwOsE2HDkY4CfAiQ3cQIPLPRIuOyflfqZJNYtNVlV3k0UW
+6/MAn9VOd3UVi2TxWw/5kPzXf/3mL17/c6XUf/xXm//8xV9d/du//du/+rt/
+/y83f/y7v/tP/+Gv/8Xmf/7rP1Pqf2yQD5umAQAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiajb3acKW5
+lq3y5DP93Zn+vLH4tOFZ7nTXdM+lpWeOZQAA82Njr512xkbaoecbHjqOmVyb
+VNo9l5aeOZYBAICwsXdWO3Oj39WlLXodOObxuNzprumeS0vPHMsAAOaLavdB
+SR/Vrbybe467cd/fc6e9lnsuLT1zLAMAmC+6/TFtzEOonfG8mz/PnfZa7rm0
+9MyxDABgnmzsmdPGvO441o1dmGR7VNo9l5aeOZYBAMwXp425O+DYybZHpd1z
+aemZYxkAwHxR23h0075c9Rx77bRHF7nTX8M9l5aeOZYBAMwTtY1Tt9uXzph0
+5YznREpDVxz9sQTb1RLuubT0zL0MAGC+qG2cumlfbnuOdduud5HSMHYbnP2e
+S0vP3MsAAOaLavc39fVNuWM0k+ybKu2eS0vPHMsAAOaLaq/b0dm+bOzOOvY6
+d9pruefS0jPHMgCAeaLacet9fVN2v9nDVN/JS7vn0tIzxzIAgPni9DcFx1zU
+dnzGfid/lTvttdxzaemZYxkAwHxR7Ri8YLyeaq/l0TmWUzql3XNp6ZljGQDA
+PFHtGLxgHLrTLzXptqi0ey4tPXMsAwCYL04782nAMQf3Senf2+/+Mm862/rI
+qe/Zc7+yNnRwPKu09NRQBtY5rrQ/KffcuVYNAMwT1V7L49ZuH9V2btcnq+08
+eL830w5Zf5s+rmx75qS8Z7W/DrThLqT9paVn6mWgz+GuWSoQYzp+OV+o3R7L
+woNi3icUhmrHrV85fkOj29Gj1nBUei9xz+cm5iGLT5LqntXO73plfdYbC1Ja
+eqZcBoFrmb2agut3Q/Tyded62rB/MhSDOmAtj8jXvc31PKS8ZxXeM8+0CXv9
+cqWlZ+pl4LnWhXUt5lrkKW/WwoPkbOz8yN/ZfWaj+AbaR3zI2AYnu+dQO2u1
+xXttQGnpmXoZeK5lxhgZG8yEaq8ZRJ8oRGdjTzZ837A64rf2e9ooc7J0H9VD
+rr6RTPdsdGdvTLS09NRWBlYbzNhgJhRzPyEhWgO/6Pol/z454LduHEHSmAm1
+G6vKOSY16j07977XBpSWnhrLwGqDGRvMgFPe9IlCdDa21vVL/MFfDvytPY6d
+ZIxGt7efnHYv2xywMe45cN3bgC9YVHpqKwPF2GB2nPL2zo8BOJaNrY7VQP17
+W59Sj9HIO+GNdb0s7+Zj3rN1zatQe19aemorA8XYYHZUhn5/mAcbW1p16+UR
+v3f3cRvFR7O0cHRfJMc963b4zueLlJaeGstAMTaYFU95Z5uvCnWxsYVVrxZH
+/P7M8c0a/XfyOqp28fKjjhPkuGftA3dpYDHpqbgMGBvMiGrPj0nWJ7qx59Z1
+osw5hXIR388q7w9H/P7aaYd8JGsn1W68ZrR+qhz3rDUnGBNbWnoqLQPGBjOj
+2n3gr63P3fehk+pCbB3U+m3WvzF195X+7kztrxHwKdezNTc29ovajgXKH6vc
+6TnyHkzbVG0/lb7Hu1Kei9LSM+J9MzaYvwzsNYO61nMwfQPHriEbRQdVez1b
+lzN9nYeOY2b1jGWoT+eWBn7JnZ4T7uN5zfXF0pwi4gFKS8/I987YYN78t7XJ
+Gw9gldFJ48Sx/UF9TnuthxvtI4oGvg4cE7xPiFIeR88RLA1dn6rcO0ft9ord
+0xz93ajtcWnpyVAejA3mzf/OPSPVbs3tGP2YKXTQ9lVFr0NrFLp9vMQCpalP
+RgO/T0EDrXe8G9MGqV2MRM0a6K4T7TLavZeWngzlYY9HEjeRpwzs+nfhfPdJ
+OXuMnHitFDrYWhM1pG8en5D6Fr8urSwNPHiOYKY0v1LtdZTM+1SVfaH6nvs0
+J/gczSE9I92zG6PP2E2+srBjlG6tz837cNQ44dg6qPbXPAr2Kaj9mBl0MG5d
+Wll5e5k7PQAAQ3C04Up/ZubtRJ8/kUAH7fR3xlmhg0nr0cLK10Xu9AAADEW1
+50s8U+15hNH7IRLooJ3+zvEDtT8niDk6ccrU1sBl7vQAAAzF6Z8W/88dPzto
+XFp1z2U4lmAa1H7/emd/umJvxRR1aPJzBAFgvji+X6N1wvaZDprPmUEHB+8R
+7dFM9lY8vf7YGrjOnR4AgENx/L9r/ZmrF1HH0FTEflFHs/v6RN2xQfpET8v7
+auYIAsB8UYE1ZFR7zC3q3NXIOvgwVNdUOy6+6vm4kcpJdO684zujgfdoIABM
+EdWeb3DrfGdrVdR5O7F0sCv9nmNfO/eDL9ifvwsVGO9TE5wjCADg4vQT7o2V
+Of5TtHUcIupgZ/qt486ce5nduoVH5u9n8fU8n6+svEQDYfao7Tj5mn6R6aF6
+9tx1fKg757uLLu3puW4sHbTTH4wTVT1rxoE3z574tG5jb63PFyOkg/YF9lCB
+/vpMabFjxRgnnxBqwJ67+hh7/O259d31sRoWQwed9AfnPzhajgYOz19b7z7o
+zxbWZ29HSAPtC/jqhRmbXhWQFruONtTVaeHoQ3DfBeWs1aL1R357dJxJJB20
+0+9d88Y5ZnBfqL5HOw71YW4aqnYxMCYO5hfr79UI16d9gVDdeFlKnXDeDamr
+E0MNXINF7Y+t/dDDE64dQwft9LfWAFfbOYXme1kbdfBatWq395mvbs9CC9V2
+30D33v8xswbStoBdRy5Vu6/gPGNa0MKJotr9nX1rsJi1RhutLyfFWkbSQTv9
+V2p/rfp3x5xbn+fa+vtC7fZqqm69+0AeLAPP9T9s+DeJr40GwiCcupI1bhkt
+hLFRB6whc+B5r0I+n5rR/phq2w/qe6bd5/uz1szzSNdFA+EgVHseq9SdlxnT
+ghbCaKh2/Ge0tdG6/Fy1Gy+sum9UtccBh7CK8YyjgXAsWgvXVp1ZZEwLWgij
+oHrmeyS6ptHBqvdp2tiHA/TvPNI10UA4GdWe1/ohYzrQQkiK2t9zd5TxOrXt
+F43WB1siahsf49OjJPqnr4kGQjSc97hVxnSghZAM1Z7HMYouqd38i9p9wVXg
+2Y2uf/p6aCBEx9Ggda66hBZCKlR7vkTyfZPUbt5I1fExKjwuKO1I9Dg8NBBS
+orZzDLOvwYAWQmzU/ho4yWNW1HYssvp9ClU7zqBRCWPv0EAYA1XIvAq0EGKh
+NfDGqUfyd7LxQe17zkEDLz0+4Hmia6GBMBpqO+Ztz6u4zJQOtBBOQrXXOAsR
+dR8lrYHe9dpqQ7XnCy4TXgcNhNFR7TmGwiJTOtBCmAxqOz9xLhpons2k78po
+IOREa+HKqnfJ14kPpAMthOLRGhhcd7wmdNsg2vQ55TOIBkIpOFq4ypQGtBCK
+RW3nZHg1UG3nTlQVM6q2a6IlfS9GA6E0HB3qfAdM1UeCFkKJqPa8RB93udOY
+4J6TPm9oIJSK1qHeeRVqGzO2SJgGtBCKQLXX7Q5Rfdxo5DxFA6FonDp6rzzz
+KvT39wnTgBYCVAgaCFNB11V7XsUv1nfnVt1dJEwDWgiD0PX1PHc6YFA5oYEw
+GVRgXoVqz6u9T5wGtBB6sdrXRe60QG8Z8SzDpNBa+NnWQrW/H/UicRrQQujF
+amNX1IuyQAOhBlR7XsXfO3X5foTro4XQV0dWTr3Isl4g7JULGgjVsLG3AS1K
+7hPq66OFhaK2Y8aXFssTeGmd5/yANLx06gX9pPnrBRoIVaDbl1WgPo/mE+q0
+oIV56oDROaNVa7W/B0FqzDU/6DRIeuz4rSeB362oG1nqDBoIk0a3MZ97tG90
+n1CnDS1Mn8dLrR9fDij/tdrXqmOwzzO0/n3R9fU+8P29op90zPqDBsLkUdv3
+/7cHtoPfx6rjaGHy/HXbsO9al1aq3Xd5PlJ6nqh2n+sHnZ6Q7oVYjZXmuYIG
+Qo3oev1hYJuzHjFdaGHavH2rdaf4vNTp/B09zF4OaCBUj25vVoG6bliOmB60
+EJRqx4oe6h9ST+KUARoIs0Nt+8bWgfblcsR0oIUz5gQNtPt8l9SVk8oADYRZ
+o31EVw/vx6z/aOE86dHAL8ofs/NZtWNxDI96mPuepgYaCLBDa9G99Rx8znB9
+tHAmqF1/hNE3eR+7zJ2uOYEGAvjRbZJ5Nkbd3x4tBBgHNBCgG7WNc1/q52LU
+eVtoIUBa0ECA4Sg9DzHDddFCgASggQDTAS0EiAsaCDA90EKAOKCBANMFLQQ4
+DTQQYPqghQDHgQYC1ANaCHAYaCBAfaCFAMNAAwHqBS0E6AYNBKgftBDADxoI
+MB/QQoA2aCDA/EALR8vnS4dlD2+d40ddm2+OoIEA8wUtjJKHolUvtYat1HYf
+iPtAvp7KvT7/Sl/vJTp5cvmhgQAzBy0cnE9PLH/uc0KtO5YvWh8f/cnc+TUF
+0EAAMKCF3jx5ov2tDzofcuvcMax1+l/mzs/SQAMBwAUt/NE2LlPq3s8//9z8
+6U9/CiLfJ9ZF8RfPc+d1AeWMBgLAHnPUQt0mis90f4rGPH369FHHfvvtt0f+
++OOPR75+/dqcYvJ7cy5zbrmOXO9ETbzX9z2r8UU0EAD6mIMWqu3ekEdp308/
+/fRD737//ffmz3/+c5PT5PqSDqOPkr4jNbF6PxENBICh1KiFajvet1AH9nlK
+P+Wvv/7afPz48WTfbiwTbZT0SrqP6GeVGKDqxhPRQAA4lFq0UPt+q0Ab6OXF
+ixfN+/fvJ6N7fSa6KPcj/uKBPuJySmUdAg0EgGOZshaq7RyHz0PafOlLFN9J
++hdrt2/fvj36iqL1B2iivEecNwWU66GggQBwKlPTQq1/66F+n2jCXM1o4gEx
+N5PSQzQQAGIxBS0cqn8yXiZ9hKIB2M6kD/jNmzdD42yK10M0EABiU6oW6vau
+V//E95O5B1i/HeAjFqmHaCAApKIkLVS7+JfOtlrG/WqJdxnb5L1hQGyN6M2y
+FH1BAwEgNSVooW53O+M/0b94Jvko+dmjh/cq83wLNBAAxiKXFqrtGOA9+pfH
+JF8H+IfrHH2laCAAjM2YWqi2c+A/oH9l2ID+UtGjt814dRENBIAsjKGFfT6g
+tMfEv+QxiafpWa8muW+IBgJAblJpYZ8PKPH9c577V4rJ/BNZ2zSHb4gGAkAp
+xNZC3b4F1wGVORDM/yvLZO22nr7SzzG1CQ0EgNKIpYX6PN5YUOmDow+0bJM1
+Cjrm4kv/9sn7PKGBAFAqp2qh6pgPiA84HZN4pZ55+Ivm+DqGBgJA0RyjhWo7
+FujtBxXfYg7rX9doPeOGq+bwuoUGAsAkOEQLO9q2R5+CuRDTNunH7ugnHaxf
+aCAATI0hWqg6xgJlzWesDpP+7I4YmnvVM2aIBgLAVOnRwr8J9YMyH6JOk3eb
+QH34HtJCNBAApk6HFno1UOLvp2q3t7fNu3fvfiD3dHV1tXfc9fV18+zZs8fv
+Ly4umpubG+/55Dj5vu+4KZm843TUgUXTrjtoIABUwRAtlLHAqcaDij6F7uvT
+p08/jnt4eGieP3++d8zZ2VnrfEOPm6rJu07HmOGiadBAAKiPLi2saU7E69ev
+W/cmmiYm/4oP+OrVq8f/v7u7ax0nf9vHGT9SfEzfcVM30cKOuRX/GQ0EgNpQ
+gbmBsj52TWb6QwXRMzGjbfKdMfnMzgf7ONeH9OlqDSbvPgP3+0UDAWDSzEUD
+xcTfM/dndE8+c8cJRetcvZTjZEyw77iabKAWooEAMFlCGihzrGs0GcMz9yh9
+mqJ/om+uyee2Xgq+mBpbV33f12A98yr+AQ0EgKkS0sBa50XYvpvoofwtcZ6+
+vkwTL6p0LE3I17N11e4vrdE69rxfNAXUZwCAQwjFxdTqB4rZPp7Ee4qGiU/o
+mh37IjopGuiLf7GPqyVWtM8CfmFwfiEAQImENLDG8UDbbB/PHh90zY6lEX1z
+xwR9x/n6Vmu0jvFCtBAAJoHazvuanQa6cZ2h/lAxe8xPjguZrashrazROrTw
+nrFCACiZjZ0rz7yv2jVQzPbdunTL1cuhx9U0X2KIdWjhl6aAug4A4KICeydN
+eZ2YQ8z28aSvM6RbdixNly9Y+3yJIdax7syqKaDOAwDY+GJDZf/4OWigmB3X
+2TW/wZ0vETLfPMQ5mmghMaQAUDobe+u2U1NfM/sQc9c+88WIGjPrZvcd585D
+nLN1rM1N3AwAZCcUFzOnPeRtH6+rD3PoPIjQcTK3oqsvtWYL7NlE3AwAZEWP
+Cd677dPc9tC14zq7+jDtWJquvlPfcUYDa9h76VgLxM18bgp4FgBgnvjGBGUe
+9JzMjevs2g/C3kupa20Ye88KOU78Q9HArthS+zfiQ9Y4pihjzYG4mUVTwPMA
+APNiYy99Y4JziYsxNjSu85B5EO7eTapjfoXxE3190zVq4R9//OG7V5mrc94U
+8FwAwDzQ/aF78wTnNCZobGhc5yHzIMT/M3Eycv6uOBk5l+imMdFF43d2zd+Y
+sgXGCtdNAc8GAMwDGZOZ+5hgCWb2qfCZ8RFrXYcmMFb4ting+QCAuvH1h85p
+nmBJ1jUWafpWa+wbFQvMK6R/FACSEooPlTEbrCwzOlhzfKnsXUL8KACMycaW
+9IdOw8x+TrVboH/0singeQGAulDbNbTpD52AyZhg7b6gsUD/6H1TwDMDAHUh
+8XjEh5ZvEh/aNdewRgvEjy6bAp4bAKgD6Wdy25m5zZefiklfaNdaNTVaYH69
+xMyw5hoAREF59lP6+vVrg5VlMtdwbhpoLLAW94emgOcHAKbNxhZu+zKHfXWn
+ZqKBwpxNxqs9WnjeFPAcAcB0cedJzHHttNJNfMC5a6BYYM21VVPAcwQA08Tn
+C8qcLawcEw2UddSwrcm4NT4hAMQCX7Bsk7ViQhoo8aJzihk1hk8IALHAFyzb
+7D0Kfcx1v14xfEIAiIE7XxBfsByz964IMde4UbGAT7hsCniuAGAa+OYL4gti
+UzKPT8h8QgAYjPLsM48viE3JZK0jj0+4aAp4vgCgbJRnHVHmC2JTNM98wvum
+gGcMAMpGefaUkLWMMWxqFlhj5rIp4DkDgHJx50qwjig2VQusO7pqCnjOAKBM
+lGeveXmnxrCpmvTpe3xC4mUAwIsbHyPv0hg2ZQvsT7hoCnjeAKAs5B1Zx5YT
+H4NVZZ54mS9NAc8cAJSFb/0Y4mOwGuz9+/esLwMAvWzss91OyDs0htVgslem
+RwffNumfqcvU1wCYK7HXiNJ9oq124s2bNw2G1WJPnz4dtW/Uirv+JeV1AOaI
+mece+Zx7caL0iWI1WaBvNFncqNqtz7tIdQ2AuWJiOlOckz5RrFYL9I0umnTP
+6VKxvjdAdNRuzbOofTru3Hn6RLEazdM3+rlJ96yaPpZ1qmsAzBHLb1tHPOcv
+7nuyrFGMYbWZvN85df17k+5ZvVSsaQoQFdVe/3od8bxvXR3EsBotsC9hsjgW
+63nK3n4A1IAzhreOeN7WfAnWE8VqNo8OJps/QcwoQDzU/l5I64jnbq0hw367
+WM3m2Z835RihiRm9THUNgLngxnPG0kHf2KD0HWFYrSbveSOOEZrndpnqGgBz
+wBpvt1lGOveCsUFsThYYIzxv0jy7S3QQ4DSUZ+3ryDrY8jMZG8TmYJ7nadGk
+eX5NDFqyvleA2rHGF1zWkc7/xT4v8waxOZhnHuGHJs3zexnzeQWYG1afSkod
+bJ2XPXexOZhnb94oz5MLOghwPIExQXcc79Rr7MXIsKYoNgfzrDWaJFZGWevX
+pzg/lM/GLjZcWTxseJc7XaWjn537EXRwb21tDJuDBWJlkqy5jQ7OE615ofb7
+We70lY5y5rV3cNLcXLffVcZMMGwO9u3bN9/zdNmkeZ5H1UH8j/LY2K1Vzx5y
+p6d01P4aZxLH8j/1//9TzOfW1VtiRbE5mUcHk6wrk9rftK6D/1EoG7u2yoJ3
+ku68Otf59Fnr4bn+fKU//y+qPYfipOdWObGorCODzck868osmzTPtXnOLlOc
+P3BN/I+C2NidVR6vcqenZNR2XHDvnVHt5jZcqnb8zPLE67XmJUrsQCy7vb1t
+3r179wM5/9XV1d5x19fXzbNnzx6/v7i4aG5ubrznk+Pk+77jsPRWS9m+ePHC
+1cEkc/wy6SD+RyGIL847SZR8bPWrqN0aMCc9t27fSYz11KQNC/XNfPr06cdx
+Dw8PzfPnz/eOOTs7a51v6HFYequtbD3rq62bNM9vDh3E/ygE1e6v/pQ7PVNE
+7fpKvzufL055btX+ut3R1xV9/fp16/zS7onJv+InvHr16vH/7+7uWsfJ3/Zx
+xtcQP8R3HDa+1VC2Hh28b9I8w6PqIP5HWah2HzXvJMfl4WXoXVWdsCai8sxP
+jG2mz0yQNk/MtH/ynTH5zE2HOc71M3xtLza+1VC2vrkTTZpneGwdxP8ohI2d
+OXXsLHeapojaxY+uIp83uQ6KT2DObdpG+cwdS5L20G1T5TgZN+o7DstjNZRt
+xTqI/1EIkv9jvJNs7Ll1nee57zvB/S31vS0jn3dhP/8//fRTE9tknMecX/q9
+pI2UNtA1+dxuUwVf3IXd9vq+x8azGspW1k5ydVAl2C93TB3E/ygL0T6rLF5b
+n9946p7NxYHXiaqDWr/N/FMTc/XKqmPuHB25z2Rzc6xnaBH5vEv7PmLPHbTf
+76XNlL8lFtDX32ViCgU5LuQP2G2v3aeGjWs1la2n/bls0j3D0c/tuVZy/6N2
+3yNyXj10vZM4enKjjvTfY5WJaHWHNp/p6zx0HJNEC1M9Q6l10PYDJCZQ2jnx
+G1yz4yOkLZV20hcjYR9HrGheq6lsK9TB5P5HbB1UhfkeEcvCzqebwDHmfq8i
+XivKu8nG3rkarTXwdeCY4H1GSIuZ4xe1vya1Dtp+gFKqFTthmx1vIW2gO27k
+O87X/4aNZzWVbYU6mNz/iNXmqkJ9j4hlYWvEns6p3Zp3Md4lUuigXVdEr28D
+dcp9x4reF2/OneC8yXTQjf0L9ZmJ2eNCclzI7LY31J5i6a22sq1JB9VI/kei
+NrcY3yNiedjxShfOd5/09weNA45cJq01iUL65imX6H3lU9RB+/2+q21z29Sh
+xzFfIp/VVraV6eAo/keiNrcY3yPS/VxYaby1Pj/T93ATM+2xy0S156A29vtI
+T9lF10G1m9vwJUE5JdNB2w+Q/rBQ22bHW3T5C8yXKMdqK9uRdPBLqnM71xnF
+/0ikg8X4HpHux9aGK/2ZaIus8xM9fimBDtrpvzvg2JQ6uE6Qb2s77bI/dyyz
+Y/+6YuDdmPqQ+eaqYXmstrIdSQcfzx37vM41RvM/ErS5xfgeEcvDjleS+7Pj
+eFOMn8UuEzv9nX3oqr2W7d47WIS0pNTBD3baY/mD7vpYvjhCY2Zt5b7j3Llq
+WB6rsWwr0sHR/I8EbW4xvkek/LHncEr+uz7sQWOzqjue6FiCaVD7c1A745FU
+4r1N1G6/+HWCcy9T6KDtB3T1cw2NlQ8dJ/H3Xf1tWHyrsWwr0sHR/I8EOliM
+7xEpf145abx10t2p9Z7zja2Ddvpve9Lmamb0vU1UorVknHNH1UE79q+rn8uO
+t+jqX/MdZ9pJ9l4a12os29Q6uLFf9Hm/xzyvc41o/keGNrco3yNSedj5fx24
+z9hjaNHeTVRbs/veS1z/PPp7ydR00I3969ozwN5vp2v9EHtfAzlOfAhpJ4fE
+18v1pX0VuuavYf1WUtlKWuzfDq0PPhtBBy/1edcxz+tcI5r/kUEHi/I9IpWH
+dw6navu915GvGVMH7fR36ppq7+8V9Z6sa0xKB4fG/h0SK+/u7yMMafPs+Ish
+bTfWbaWUrdmz0IwlGv9RfnuMD1mJDo7qf0Ruc4vyPSLkjR3zc+t8Z+dbMCY2
+Z5l0pd9z7GvnfpKUx9R0cGjs3yGx8tLemVgKOf+hsRRm71jGEk+zUspWru1q
+q+lfFV091EbQQfOcfYh5Xucao/ofkXWwKN8jQt7YWr3nrzr3cNJaainKpC/9
+1nFnaqS9nhPr4FvrHpLsN1GCGZ/jmDYSm4YZ7T10TbYx9ptI+Qzr84/uf0Rs
+c4vzPSLkTeeeV8593DnfXXRpz0hlYqc/OFaretZsiJynKXXw0m0DajTTZ8bY
+YL1m4lgPnX84xv6DG/usz72IfW59/tH9j5p9jxPzpXfPK33Mgy//1LaP+Kj8
+jFEmTvqDMUiOlh9cp3S5i47euO8CgePRwRNMxo7MvTE2WKcd6wuKjaSDa5Wg
+v9U6/+j+R0QdLM73OLEs7LwOrn3q6P+d1h/57dF9vZF00E6/d86pc8xB7yNq
+f72EZsg9J9bBX9w0ST9RTSY+oNwXY4P1mYkZlZiZY/crfP/+vftM3jfxnzNz
+7vME587if0Rqc0fxPcZEDZwHqfb92x96eMK1Y5SJnf7WGnxqG9drvr/pem8Z
+eC2zTmxw7SDr2GQ6qM/fagfk/bgmY2ywLhPtkz5Qe62a0J6GQ+y3335zdXDd
+nPY8fXD+fmLOfcp5O66Xxf+I1OYm9T2s39s+56dTtGbA9ez3jb55kGatH5Ou
+k8Y7I5WJnf4rJ++Ed8ee27mOvQZg732PrYMfP35sajLGBus1ew7+setzv3jx
+wtXBz83pz9PK+vtSfxZ9nXx9/iz+R6Q2N6nvodvxd9bfpm+16L2acqEOmMcZ
+4Vrm/WbQvNYRdHBtPxvyflyLMTZYv5k5McIxcwdlrpCjDSc9Z9bz9Fb/vYih
+rx3Xy+J/RNLBZL6H1n3fvlPm/ouMNc2Jao/BJl2fQO3mjA7qjxhBBz/bdU/e
+j2sxxgbnYWatt2P2qpC5Qk7b+6hfx+K8V4oGfvA9v2rrJyZ5pqfAmL6Hc12j
+tUXvY5+pTDrjrSJfy7yP9I4N6uPNHL9VovQsrXtvnj592tRijA3Ow0w5H9r3
+/e3bN1cDhcvmtOfpg3O+/63//Uuti6sN31M+01NgTN/DuqaJFzpojes5oPbj
+OFOOoR40Nqh/c6kijN93nH/htgW1GGOD8zCjg4f2ffvmTGx40pz2PC095/Tx
+5dRrTZkxfQ/rmjdaB/EF9/PGjqMqamxQ/ya1Dl66z2gNcycYG5yPybyJY+YO
+euZMnLwfhNrtk9aF+INR16yZEmP6Hvp6Jma0yDW5S0C1Y5aKGhvUv0mqg/oa
+ref0999/b6ZuJpaQscG6TWJjpIy71vIO2a+//urq08nPmO+90sPi1OtMmTF8
+D619n5x8L3ruYcbycOegpl4j7aCxQf2bc5O+hOn6YufD1GNGzd49ci/iK2DT
+Ntu3l7mDRvOkv/uUuYMyFu48/yevg20/rwFWp15j6ozse4jveWNdb3DbOwe0
+Bt44dfQmlY+ujhgbtH6bWgdXdj7E2o93bLP3Snc5pt8MK8fcPbRE/46JD7Ut
+lZ/WoYH3asZjgjpvRvU9rOuatp65g7s8ue6oq0dp1YBrHjw2aP3WpCnJM6Sc
+fSe05mJYtRaIkYkyZqf1Ltn5p8rYvodzbTNPo8j96+eCOmJs0PrtWv/2MlHa
+ql9nFMNs86yndnKMTLN7ntbu86ROnJc4dXL4Hs71TX8ccyby1oODxwat3ybV
+QX2NVp2UWDoMq9Vir6fWtJ+lL86517HODUeXidHBIvfunQPOu9Axa7t716SI
+nMbWO2xN68pgmGuedWSiPVseP+cy1rnh6DIx68Axd3DcfHfHg10Gl4fazc09
+OZ5twDUYI8SqtpRjg02zp4PrWOeFk8pExiGZNzFh1G5u7jrhNfbGCGvbgwnD
+xFKODTbNng6exzw3dOa76Xe7MeNPahebgwZOHLWbm3uf+Drf7Wf4zZs3DYbV
+Zp55g1H3grDOu4p5XujNd4kJdfeWuqYvtB6svsqU11jZdejnn39uMKwm+/r1
+q69PdNEkeFbxBQHionZzki4TXmPhthHMn8BqMs+aolH1Su32n1/FOicAbFG7
+eM5Fwms8cdsI5k9gNZmnTzTqPvHWGMZ5zPMCQCuec5n4Oq19eekbxWqxQJ9o
+1PntWgdXMc8JAFv087VO6Q/q69A3ilVpqftEm+ZH3HXUcwLAuPj6RokbxWqw
+1H2iAFAPbt+orL2BYVM26dNI3ScKAPWgPHtq17A3LzZf8+y5K8x6DyQA6EY5
+c+qnuichhn379s23nmjUufMAUB9qt7b3DyTeDsOmZh8/fvT5gi+bAp4zACgX
+iXlz2w7pW8KwqZnM/XHq8n1TwDMGAOXji5eRPiYMm4oF9pYgPgYABmGtjfED
+Wasfw6ZiMq7t1OHvxMcAwCGo3bqm+ITYpCzgC66aAp4rAJgOvvVlWHMUm4J5
+fEHW/QSAo8AnxKZm+IIAEBOfT8g4IVay4QsCQGzwCbGpGL4gAKQAnxCbiuEL
+AkAqXJ+QNWaw0iywdsyqKeD5AYDpozzrb7948aLBsBJM+uk9a8d8xxcEgJio
+7V7ArbZGxmMwLLdJP73HF1w2BTw3AFAParvfdqutkXdwYmZ2dnt727x79+4H
+kkdXV1d7x11fXzfPnj17/P7i4qK5ubnxnk+Ok+/7jpuzBfYXvGftGABIgfLs
+RUHMTPOoT562+JFPnz79OO7h4aF5/vz53jFnZ2et8w09DgvGxrCnBAAkQd6x
+lbM/oSDv5NjWXr9+3cob0TQx+Vd8wFevXj3+/93dXes4+ds+zviR4mP6jsOa
+x/WNPBq4bgp4VgCgXnwxM0+fPm2wrZn+UEH0TMxom3xnTD6z89A+zvUhfbo6
+d5N4Zc8eu8TGAMAo+GJm6B/dmvh7Jk+M7sln7jihaJ2rl3KcjAn2HYcF+0PZ
+VwkARkFt9+rd6x8lfrR5HMMz+SF9mqJ/om+uyee2Xgq+mBpbV33fz9EC8aFf
+mgKeDQCYD8qzzszc40dt3030UP6WOE9fX6aJFzWxNCFfz9ZVu790rhaID6U/
+FACyoJx969XM59fbPp7Ee4qGiU/omh37IjopGuiLf7GPI1Y0OF+e/lAAyIaO
+H71nrHBrto9njw+6ZsfSiL65Y4K+43x9q3OzwJjg56aAZwEA5svGLj1t0+zG
+Ct24zlB/qJg95ifHhczW1ZBWzsUCY4LSH8p8eQDIzsaWbhslMe1zmldo+25d
+uuXq5dDj5jxfIrCGtnDZFFD/AQAE31ihzCucS9yM7eNJX2dIt+xYmi5fkPkS
+W5N3Kc88QcYEAaA49FjhF7e9kjGdOZgd19k1v8GdLxEy3zzEuZm8QwU0cNUU
+UOcBAFzUdi3uvXmFv/76a1OzuWuf+WJEjZl1s/uOc+chzs1EA6U/waOBXxgT
+BICSCcXN1KyFto/X1Yc5dB5E6DiZW9HVl1qLdWggcTEAMAmUZ469IPEONZod
+19nVh2nH0nT1nfqOMxo4h72X5J0poIG/NAXUbwCAISjPHk01aqEb19m1H4S9
+l1LX2jD2nhVynPiHooF9cydEP+3+1CmOKwY0UPjLpoB6DQBwCBLPULsWDo3r
+PGQehLt3kxowf9CsX2P0VbRT/p6SFnZoIOOCADBZatfCoXGdh8yDMBomx8r5
+++JkjJ/p9pmKnk5lPbYeDUQLAWDSbOy/16yFOU38xNB4oxlnLHktGomJGaiB
+aCEATBIVmEthqDmONLVJ36qZh+EblzQ6WGrfaEdcaKNjrRZoIQBMmT4NRAtP
+M6Nz0i/a9X2J+xb2aWCzq0NoIQBMkg4N/L++dm1Oa7DFMuML9u1XUZoOdqyV
+1tLAZleX0EIAmBQdGvjYbqlA7Ixo4ZzW5j7FJCbG5FtoroaJ4SmpX/T3338/
+SAObXZ1CCwFgEvRpoHXc0teuSRspbSXWbX19omJ9/uLYFtg7qdH15WXTX7fQ
+QgAomqEaaB0fatdmu5fvUDNzDOVfn4mP2OcvjmXS3/3ixYsuDRy8TgxaCACl
+cqgGWr+7DPzuca8Kxgz9ZuYM9o0N5l6PVPq5f/7555AGSt04bw6va2ghABTF
+sRro/H5vzybTTzq3ve2HmFnTNLTeqPk+59jg+/fvQ/onfD5Fs9BCACiFUzXQ
+Os8T5dnL1/DmzRt8Q8uMP+hba8bsV9G1H3BK+/r166Mv36GByyZO3UMLASAr
+sTTQOefbUPsp8aT4hlsz44M+fzBnnKj4gB3xoFJXLpu4dRAtBIAspNBA59z3
++IZhM/MmXK0z66x1xZGmsAE+4DqVLqGFADA2KTXQukZnP6nEXsx9foX4hBIH
+Y+JBc2mgxPZ2+IDR+kG7QAsBYCzG0EDnei8D13tEfBDxReZqslaMyQvRxDH7
+QqWPuiMW1NSJ0fbORQsBIDVja6B13U7fUJA1SufeVzqWyVyInj7QUXxAH2gh
+AKQilwY6aRDf8D7U9krfnPTRoYdpTPzuAXskrcf0AX2ghQAQmxI00EqL+IbL
+rrYYPYxrA/VP6seiKaC+Ng1aCADxKEkDnXSda9+jVw/nPH54ikn/58A9cj+U
+qC1oIQCcSqka6KTxUgXWorGR9py9LIaZxOEOGP8TZMz2vCmgHoRACwHgWKag
+gU56pb2772u7ZS7+x48f6TN1THxm8Z174j/tMcDLpoByHwJaCACHMjUNdNI+
+SA+lz1R8xLmvTyPvBB17QUxa/2zQQgAYypQ10LmPheoZPzSIDyRr1Myl31T6
+PeUdoGfuu81KZY4BjQFaCAB91KKBzj1d6nZ8UJtv/ETRilr6TqXP80C/r9H1
+QOJfzpsCyjEWaCEAhKhRA537M/Mt7g/QgsfxRBk3m5IuGt0TH3fgeJ9b3oum
+gDJLBVoIAC61a6Dnfo2PGFyvrUsXxV+UfRVkbDG3NormSTpEq8XfO0L3Gv1u
+UJ3v1wVaCACGuWmg5/5fHquJBulLlXkG4n8Z31G0KdZ4o5xLEB9Pzi86PHBe
+wxDtm/y437GghQAwdw305MdLrQ33J2qMF9GuIYjPmeL6ulyXc9Y+T5mjhQAz
+BQ3szZ9z3UauUuniCHzRuv6SMu0sa7QQYGaggUfl2bna+YvrQP7l5F6na6m2
+45+U42HlixYCzAQ0MGpenmvNWVr62LvG24msLb17i+ZFLU+0EKBy0MAs+X2p
+WWjtGspL67fnue9lLqCFAPWCBgIMAy0EqA80EOAw0EKAekADAY4DLQSYPmgg
+wGmghQDTBQ0EiANaCDA90ECAuKCFANMBDQRIQ04t1M/1Ze48ACgdNBAgLZm1
+cK05z50PACWCBgKMQy4tVNv1i8wzvuK5BtiBBgKMS0YtfGldS575Jc84zB00
+ECAPGbXwg3O9e0lL7vwAyAEaCJCXjFroW8/9i04Pzz7MAjQQoAxyaGHH82+Q
+8cOXufMGIBVoYHnoMiHvZ0omLQxd0+a71sRfcucRQCzQwGj5KG3IpYdzz7FP
+rO+XmrVq78dL/s+cTFq4GqCF9jjiB18dB5gKaGDUvDzXOja0DemC/AdTr0bV
+Qv2O1tU/6vUPc+cTwDGggcny9fJEPST/oUUGLVwO9AMvc+cNwLGggaPk8TF6
+SP6DlzG1sMcn/D/UUZg6aODo+X2IHv4vtR2fWerfFROLoHZjmm+1L7DW9ehD
+7rTNhZG10OcT/iNtBUwdNDBr3l8q/xytIdxr3TEaaXTScFLZ6XphzrXQ5zda
+15fmde68nRNjaaHy+4R2+/G9pPc0gCGggfnRbcsq0I79N+X3t47RzR8a5XAf
+4XyftU7KelznufN0joyohUv3fUdt48HMu5HUz8vc+QEwBDSwLHQ75pbH957y
+Mxq5tHRyrY73MX3+pq1zRusuqSPlMYYWqrZP+MH53K53i9z5AdAFGlgmulxc
+DYvWz6TacxQN9GNVxEhaaK7x1vPdyrrmMnd+APhAA8tHtdc4JuYEDmIkLZT+
+gsvAd7YWrnLnB4ANGjgddP+jlNWX3GmB6ZFaC1VP37hz/c+0L1ACaOD0ULv4
+A8oHDmYMv3DA9VkTEIoADQSYJwVood32SF8q49EwOmggwLwpRAvteRVoIYwG
+GggAQgFayLwKGB00EABsCtHCz9Z19+ZdAMQCDQQAH7m1UKdhZV13lTtPoD7Q
+QADoohAtfGtrIW0TxAINBIAhFKKFC9ooiEnJGqhYvwugOArRQrvd+kI7AcdS
+uAYuN9znziMA2KcgLbxXzKuAIylVA1V7L5bL3Pk0JzZ2seHK4mHDu9zpgjIp
+RAvteRXSni1y5wtMg4I18KWVrnXufJoLWvN87ZnwLHf6oFwK0sK1de1F7nyB
+silRA3U9/uCkhz6OPGVxa5XBQ+70QPmUoIU6HSvr2uy3Al4K1UDf3nmr3Hk1
+VzZ2bZUDfaIwiIK0cEk7Al0E6mpODXzr0WX5+zx3Xs2Vjd1ZZfEqd3pgOpTS
+vljpwCfMXydeqV28wbXdrmzsTO2PyXxSI4zFqALm3ug03AfeH5e5y26uSP2j
+TxROoYT2RaeDcZW89eB1oH1vtP49V9s4vGxxCbqu5npPC+mf8QWZE5sJ593s
+U+70wDTJ1b5AmWzsndWu3GgfUTTwdeCYx+NypztBPvTpH3FeBaDaMTL0iQLA
+yTjv19e6nTnzHHfj+o250x7p/ofqn4H3x3xldVZjHQSAvDjv1w+htsXjEz7P
+nfYI9748QP+I7cpfXq/oEwWAmKh2zEFj94V6jnVjZiavg9a9ybyIl1oXZQ+x
+fwro4MvcaZ0zahuntVdXPX0VLhe50w4AZeJo290Bx1alg859rvT9/T/nfr/n
+TtvcUe3YLV/fvV1HH8e6c6cZAMrGeb++6jn2WlX+jq3aaz24/cCr3OmbM2ob
+w9wZp2XV0c66DAAgqP2Yg865EKrytaxUe06R/P8TJ3+Y65O3fOz3kj2dU7s1
+t6vspwCA+Kh2zMFtz7GuZla1lpWjgUvr88/6s/vcaZw7znvYhfPdJ/19dX0U
+AJAOp5+zr0/UHRuspr1R7fVMV853Rh9Z+yhvGV343tn0+9mNhjkUAHAQqh1z
+0Klrqr2e43XutEfMA1sD157vz/V357nTOmec97Ar/dkzXS+ZPwEAB6Pa8yX6
++kTtNdgeavEFVXtvzOD6Soq1RLOj2vFcz5w+ffxAqBpV6DrQU8fJt+BYn87j
+6tb2dzTwPqSBkB/VHpuWuujG8RIbClWiJrAO9JRR7ZiDYF6pnhi9qaJ28yOk
+T5Q40IJxfL9G1117bLtz3itADSjWgY6dn/b7dXD+g/MuUqMGMhdiAjjP9rX+
+zI1fZq4EVI2a+TrQCfLT1jdvjIFzzFF9obrc3ulyKeKdXW331DX3tcidHhhU
+Zt41ZFR7zLCa2C0AH2rG60Anyk+7/WjNudK+tvle9Ovg/mW1v2ZpEe2Uas8R
+fJs7PTCozILxXKq9vkywXQCYOp42dZbrQEfOU/v9+sp5z2j0+0SUvLN89GC5
+jXTPv1j3t8pdBjC43DrjuVQ7hquavnsAG8U60LHzc/AaMhGuZc99zjbXQnXM
+k4eyUT177qp2//2d892FTzsBpoZiHejY+Wn3HSdtI6w2KtvYoNrOj7jX6QjO
+EYTyUAP23NXH2P0bz63vrnkXhtio7rkMxxLUNs9zMOt1oCOVYef7deRrmfeS
+LGODauA8eSgTp70Jxn8rp89Itxuvc9U7qJsMOsg60HHLzx1rTRpXoHZjN1nG
+Bje21tdnjuAEUQP7gtT+Wg8/9DD3PQCcimId6Nj5aedR1WODinnyk0e1+zv7
++oLMWqON1k+ef6gCxTrQsfPTfr+udmxwY0vrPhe58x0A4BgU60DHzk+33zhp
+jLnKNDaonL10c+c7AMCxqJmvAx05L80ebbYOJt2vTWUYG9zYpXV/q9z5DgBw
+Cmrm60BHzEd3LomPqP5zjrFBxRxBAKgINfN1oKfO2GODajs/wmjgl9z3DwBw
+KirxOtBaZ1v7tozZf1c7Y44NKuYIAkCFqITrQFtjZc/03xfWWBZrT8Qpv9HG
+BtVu/wjxB89z3zsAQAxUwnWg9fnOPJ8x3yJO2dl+9ijvFWobI8ocQQCoAjXi
+OtCea3r7YKE3/9w5GS4H790EADBX1IjrQHuuSawNAABkRY24DrS+Hr4gAAAU
+gRpxHWgrZvRmDL0FAADoQyVeB1pr3zvVXn+mFY8KAACQCzXuOtCj7b0AAADQ
+hyfmMHnMisT1jx3jDwAA4KIyrANtXft2LN0FAABwURnWgQ5cn3XVAABgdlg6
+SKwMAADMDt3/ytxBAACYHTpO5m6McUgAAIAcqPaesO+M5qntvk3MHQQAgOpx
+5iWaufPEhwIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAA9PD/AYvIm80=
+       "], {{0, 403}, {450, 0}}, {0, 
+       255},
+       ColorFunction->RGBColor],
+      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+      Selectable->False],
+     BaseStyle->"ImageGraphics",
+     ImageSize->{121.29374999999993`, Automatic},
+     ImageSizeRaw->{450, 403},
+     PlotRange->{{0, 450}, {0, 403}}]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True}}}},
+ CellID->1923579602]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Reference", "GuideFunctionsSection",
+ WholeCellGroupOpener->True,
+ CellID->1866139230],
+
+Cell[CellGroupData[{
+
+Cell["General Tensor Operations and Symbols", "GuideFunctionsSubsection",
+ CellID->526673860],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["LTensor",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LTensor"]], "InlineFunctionSans"],
+ " ",
+ Cell[BoxData[
+  RowBox[{"(", 
+   SubscriptBox["\[Placeholder]", "\[Placeholder]"], ")"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[TextData[ButtonBox["LDot",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LDot"]], "InlineFunctionSans"],
+ " ",
+ Cell[BoxData[
+  RowBox[{"(", 
+   RowBox[{"\[Placeholder]", ".", "\[Placeholder]"}], ")"}]], "InlineFormula",
+  
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[TextData[ButtonBox["LScalarQ",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LScalarQ"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]", "GuideEmDash"],
+ " Lorentz tensors and scalar products"
+}], "GuideText",
+ CellID->203374175],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Contract",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Contract"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]", "GuideEmDash"],
+ " contract tensors with repeated indices"
+}], "GuideText",
+ CellID->1463276848],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Transverse",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Transverse"]], "InlineFunctionSans"],
+ ", ",
+ Cell[TextData[ButtonBox["Longitudinal",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Longitudinal"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]", "GuideEmDash"],
+ " project 2nd or higher rank Lorentz tensors"
+}], "GuideText",
+ CellID->1386369759],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["MandelstamRelations",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/MandelstamRelations"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]", "GuideEmDash"],
+ " express scalar products in terms of Mandelstam invariants"
+}], "GuideText",
+ CellID->1652727585],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["MetricG",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/MetricG"]], "InlineFunctionSans"],
+ "(",
+ Cell[BoxData[
+  SubscriptBox["\[DoubleStruckG]", 
+   RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}]]], "InlineGuideFunction"],
+ ")",
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["LeviCivitaE",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LeviCivitaE"]], "InlineFunctionSans"],
+ "(",
+ Cell[BoxData[
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineGuideFunction"],
+ ") \[LongDash] ",
+ StyleBox["metric tensor and Levi-Civita symbol", "GuideText",
+  FontWeight->"Plain"]
+}], "InlineGuideFunctionListing",
+ CellID->1189878812]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Computing One-Loop Integrals", "GuideFunctionsSubsection",
+ CellID->2027455733],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["LoopIntegrate",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFunctionSans"],
+ ", ",
+ Cell[TextData[ButtonBox["LoopRefine",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]", "GuideEmDash"],
+ " routines for one loop integrals"
+}], "GuideText",
+ CellID->1195853391],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["LoopRefineSeries",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]", "GuideEmDash"],
+ " compute series expansions of loop integrals"
+}], "GuideText",
+ CellID->408490264],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Dim",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Dim"]], "InlineFunctionSans"],
+ "(\[ScriptD])",
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["Eps",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Eps"]], "InlineFunctionSans"],
+ "(\[Epsilon])",
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["Mu",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Mu"]], "InlineFunctionSans"],
+ "(\[Micro]) ",
+ StyleBox["\[LongDash]",
+  FontWeight->"Plain"],
+ StyleBox[" dimensional regularization symbols", "GuideText",
+  FontWeight->"Plain"]
+}], "InlineGuideFunctionListing",
+ CellID->189367851]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Dirac Algebra and Fermion Spinors", "GuideFunctionsSubsection",
+ CellID->861134166],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Spur",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Spur"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]", "GuideEmDash"],
+ " compute traces over product of Dirac matrices"
+}], "GuideText",
+ CellID->1189630829],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Projector",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Projector"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]", "GuideEmDash"],
+ " project fermion self energy and vertex functions onto form factors"
+}], "GuideText",
+ CellID->2047800092],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["DiracMatrix",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFunctionSans"],
+ ", ",
+ Cell[TextData[ButtonBox["FermionLine",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/FermionLine"]], "InlineFunctionSans"],
+ " (",
+ Cell[BoxData["\[ScriptU]"], "InlineGuideFunction"],
+ ", ",
+ Cell[BoxData["\[ScriptV]"], "InlineGuideFunction"],
+ "), ",
+ Cell[TextData[ButtonBox["FermionLineProduct",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFunctionSans"],
+ ", ",
+ Cell[TextData[ButtonBox["FermionLineExpand",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]", "GuideEmDash"],
+ " open fermion chains"
+}], "GuideText",
+ CellID->1761136203],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Dirac1",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Dirac1"]], "InlineFunctionSans"],
+ "(\[DoubleStruckOne])",
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["DiracG",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracG"]], "InlineFunctionSans"],
+ "(\[Gamma])",
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["DiracG5",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracG5"]], "InlineFunctionSans"],
+ "(\[Gamma]5)",
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["DiracPL",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracPL"]], "InlineFunctionSans"],
+ "(\[DoubleStruckCapitalP]L)",
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["DiracPR",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracPR"]], "InlineFunctionSans"],
+ "(\[DoubleStruckCapitalP]R)",
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["DiracS",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracS"]], "InlineFunctionSans"],
+ "(",
+ Cell[BoxData[
+  SubscriptBox["\[Sigma]", 
+   RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}]]], "InlineGuideFunction"],
+ ") ",
+ StyleBox["\[LongDash]",
+  FontWeight->"Plain"],
+ StyleBox[" objects in spinor space", "GuideText",
+  FontWeight->"Plain"]
+}], "InlineGuideFunctionListing",
+ CellID->1191667267]
+}, Open  ]],
+
+Cell["\t", "GuideDelimiterSubsection",
+ CellID->311258892],
+
+Cell[CellGroupData[{
+
+Cell["Generated Symbols", "GuideFunctionsSubsection",
+ CellID->1856550494],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["PVA",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/PVA"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["PVB",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/PVB"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["PVC",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/PVC"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["PVD",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/PVD"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["PVX",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/PVX"]], "InlineFunctionSans"],
+ " ",
+ StyleBox["\[LongDash]",
+  FontWeight->"Plain"],
+ StyleBox[" symbolic Passarino-Veltman functions", "GuideText",
+  FontWeight->"Plain"]
+}], "InlineGuideFunctionListing",
+ CellID->449935939]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations \
+\[RightGuillemet]",
+ BaseStyle->{"Link", "GuideFunctionsSubsection"},
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "GuideFunctionsSubsection",
+ CellID->895059350],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Kallen\[Lambda]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/KallenLambda"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["DiscB",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiscB"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["ScalarC0",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["ScalarD0",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ ButtonBox["\[Ellipsis]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/guide/SpecialFunctions"]
+}], "InlineGuideFunctionListing",
+ CellID->707285569]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Tutorials", "GuideMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], {{
+     Inherited, Inherited}, {Inherited, 20}}, {{Inherited, Inherited}, {
+     Inherited, 20}}]],
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "TUTORIALS", "GuideMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Tutorials"}], "GuideMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->415694126],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X Primer",
+ BaseStyle->"Hyperlink",
+ ButtonData->{
+   URL["http://packagex.hepforge.org/primer-2.1.1.pdf"], 
+   None}]], "GuideMoreAbout",
+ CellID->529345392],
+
+Cell[CellGroupData[{
+
+Cell["\t", "GuideDelimiter",
+ CellID->318632390],
+
+Cell[TextData[ButtonBox["Ward Identities and \[Gamma]5 in Dimensional \
+Regularization",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/AdlersMethod"]], "GuideMoreAbout",
+ CellID->374259514],
+
+Cell[TextData[ButtonBox["Extracting Form Factors from the \[Mu]\[Rule]e \
+\[Gamma] Amplitude",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/MuToEGamma"]], "GuideMoreAbout",
+ CellID->1885805579],
+
+Cell[TextData[ButtonBox["The Scattering of Light by Light",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/ScatteringLightByLight"]], "GuideMoreAbout",
+ CellID->681992812],
+
+Cell[TextData[ButtonBox["Tree-Level e\:207ae\:207b\[Rule]\[Gamma]\[Gamma] \
+Cross Section by The Optical Theorem",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/PairAnnihilationUnitarity"]], "GuideMoreAbout",
+ Deletable->True,
+ CellID->806871991],
+
+Cell[TextData[ButtonBox["Bringing the Arguments of D functions to Canonical \
+Form",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/ArgumentsOfScalarD"]], "GuideMoreAbout",
+ CellID->594980622]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\t", "GuideDelimiter",
+ CellID->1804942399],
+
+Cell[TextData[{
+ ButtonBox["Linking ",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/LinkingToCOLLIER"],
+ StyleBox[ButtonBox["Package",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/LinkingToCOLLIER"],
+  FontSlant->"Italic"],
+ ButtonBox["-X to COLLIER",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/LinkingToCOLLIER"]
+}], "GuideMoreAbout",
+ CellID->830847924],
+
+Cell[TextData[{
+ ButtonBox["Linking ",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/LinkingToLoopTools"],
+ StyleBox[ButtonBox["Package",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/LinkingToLoopTools"],
+  FontSlant->"Italic"],
+ ButtonBox["-X to LoopTools",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/LinkingToLoopTools"]
+}], "GuideMoreAbout",
+ CellID->1911862241],
+
+Cell[TextData[{
+ ButtonBox["Linking FeynCalc to ",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/LinkingToFeynCalc"],
+ StyleBox[ButtonBox["Package",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/LinkingToFeynCalc"],
+  FontSlant->"Italic"],
+ ButtonBox["-X",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/LinkingToFeynCalc"]
+}], "GuideMoreAbout",
+ CellID->393171447]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "GuideMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "GuideMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "More About"}], "GuideMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[{
+ ButtonBox["Special Functions in ",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/guide/SpecialFunctions"],
+ StyleBox[ButtonBox["Package",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/guide/SpecialFunctions"],
+  FontSlant->"Italic"],
+ ButtonBox["-X",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/guide/SpecialFunctions"]
+}], "GuideMoreAbout",
+ CellID->1567025153],
+
+Cell[TextData[ButtonBox["CollierLink",
+ BaseStyle->"Link",
+ ButtonData->"paclet:CollierLink/guide/CollierLink"]], "GuideMoreAbout",
+ CellID->252299663],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Package-X - Wolfram Mathematica", "Package-X"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "GuideColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 51, 43.115282}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Guide", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Version 2.1, by Hiren H. Patel (hpatel6@ucsc.edu) Accompanying paper: \
+Comput.Phys.Commun. 197 (2015) 276. arXiv:1503.01469", "synonyms" -> {}, 
+    "title" -> "Package-X", "titlemodifier" -> "", "windowtitle" -> 
+    "Package-X", "type" -> "Guide", "uri" -> "X/guide/PackageX"}, 
+  "SearchTextTranslated" -> ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb", 
+  CharacterEncoding -> "UTF-8"]
+]
+
diff --git a/packages/X/Documentation/English/Guides/SpecialFunctions.nb b/packages/X/Documentation/English/Guides/SpecialFunctions.nb
new file mode 100644
index 0000000000000000000000000000000000000000..a412cdfd05d77a6b4e053374f4e2307394c692fc
--- /dev/null
+++ b/packages/X/Documentation/English/Guides/SpecialFunctions.nb
@@ -0,0 +1,473 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X GUIDE", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Functions \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"C0Expand\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/C0Expand"], "\<\"ContinuedDiLog\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/ContinuedDiLog"], "\<\"D0Expand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/D0Expand"], "\<\"DiLog\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiLog"], "\<\"DiscB\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiscB"], "\<\"DiscExpand\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiscExpand"], "\<\"KallenExpand\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/KallenExpand"], "\<\"KibbleExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/KibbleExpand"], "\<\"Ln\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Ln"], "\<\"ScalarC0\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/ScalarC0"], "\<\"ScalarC0IR6\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/ScalarC0IR6"], "\<\"ScalarD0\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/ScalarD0"], "\<\"ScalarD0IR12\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/ScalarD0IR12"], "\<\"ScalarD0IR13\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/ScalarD0IR13"], "\<\"ScalarD0IR16\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ScalarD0IR16"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/guide/SpecialFunctions\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/guide/SpecialFunctions"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/guide/\
+SpecialFunctions.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/guide/SpecialFunctions", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Special Functions and Abbreviations in ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X"
+}], "GuideTitle",
+ CellID->942062912],
+
+Cell[TextData[{
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X attempts to provide compact analytic expressions in terms of elementary \
+functions for one loop integrals.  To accomodate cases involving general \
+kinematics, ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X defines a limited set of special functions (output by ",
+ Cell[TextData[ButtonBox["LoopRefine",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFunctionSans",
+  ShowStringCharacters->False],
+ ") that serve as abbreviations for commonly occuring expressions.  They can \
+be numerically evaluated at any real-valued kinematic point with arbitrary \
+precision, expanded in Taylor series to arbitrary order, or be expressed in \
+terms of known mathematical functions."
+}], "GuideAbstract",
+ CellFrame->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {{0, 0}, {1, 0}}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellID->2001916300]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Reference", "GuideFunctionsSection",
+ WholeCellGroupOpener->True,
+ CellID->1866139230],
+
+Cell[CellGroupData[{
+
+Cell["Special Functions", "GuideFunctionsSubsection",
+ CellID->1015132303],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["DiscB",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiscB"]], "InlineFunctionSans"],
+ " (",
+ Cell[TextData[ButtonBox["DiscExpand",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiscExpand"]], "InlineFunctionSans"],
+ ") \[LongDash] logarithmic part of the two-point function"
+}], "GuideText",
+ CellID->1463276848]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\t", "GuideDelimiter",
+ CellID->978815593],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["ScalarC0",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFunctionSans"],
+ " (",
+ Cell[TextData[ButtonBox["C0Expand",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/C0Expand"]], "InlineFunctionSans"],
+ ") \[LongDash] three-point scalar function"
+}], "GuideText",
+ CellID->608053726],
+
+Cell[TextData[Cell[TextData[ButtonBox["ScalarC0IR6",
+ BaseStyle->"Link",
+ ButtonData->
+  "paclet:X/ref/ScalarC0IR6"]], "InlineFunctionSans"]], \
+"InlineGuideFunctionListing",
+ CellID->1751197365]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\t", "GuideDelimiter",
+ CellID->2050945370],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["ScalarD0",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFunctionSans"],
+ " (",
+ Cell[TextData[ButtonBox["D0Expand",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/D0Expand"]], "InlineFunctionSans"],
+ ") \[LongDash] four-point scalar function"
+}], "GuideText",
+ CellID->381088806],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["ScalarD0IR12",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ScalarD0IR12"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["ScalarD0IR13",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["ScalarD0IR16",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ScalarD0IR16"]], "InlineFunctionSans"]
+}], "InlineGuideFunctionListing",
+ CellID->1736299041]
+}, Open  ]],
+
+Cell["\t", "GuideDelimiterSubsection",
+ CellID->1535885274],
+
+Cell[CellGroupData[{
+
+Cell["Logarithms", "GuideFunctionsSubsection",
+ CellID->1516414420],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Ln",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Ln"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["DiLog",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiLog"]], "InlineFunctionSans"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " ",
+ Cell[TextData[ButtonBox["ContinuedDiLog",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ContinuedDiLog"]], "InlineFunctionSans"]
+}], "InlineGuideFunctionListing",
+ CellID->189367851]
+}, Open  ]],
+
+Cell["\t", "GuideDelimiterSubsection",
+ CellID->870363178],
+
+Cell[CellGroupData[{
+
+Cell["Gramian Determinants", "GuideFunctionsSubsection",
+ CellID->449566407],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Kallen\[Lambda]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/KallenLambda"]], "InlineFunctionSans"],
+ " (",
+ Cell[TextData[ButtonBox["KallenExpand",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/KallenExpand"]], "InlineFunctionSans"],
+ ") \[LongDash] kinematic triangle function"
+}], "GuideText",
+ CellID->203374175],
+
+Cell[TextData[{
+ Cell[TextData[ButtonBox["Kibble\[Phi]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/KibblePhi"]], "InlineFunctionSans"],
+ " (",
+ Cell[TextData[ButtonBox["KibbleExpand",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/KibbleExpand"]], "InlineFunctionSans"],
+ ") \[LongDash] kinematic cubic function"
+}], "GuideText",
+ CellID->78759089]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "GuideMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "GuideMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "More About"}], "GuideMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "GuideMoreAbout",
+ CellID->1567025153],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Special Functions and Abbreviations in Package-X - Wolfram Mathematica", 
+  "Special Functions and Abbreviations in Package-X"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "GuideColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 51, 46.855981}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Guide", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Package-X attempts to provide compact analytic expressions in terms of \
+elementary functions for one loop integrals. To accomodate cases involving \
+general kinematics, Package-X defines a limited set of special functions \
+(output by LoopRefine) that serve as abbreviations for commonly occuring \
+expressions. They can be numerically evaluated at any real-valued kinematic \
+point with arbitrary precision, expanded in Taylor series to arbitrary order, \
+or be expressed in terms of known mathematical functions.", "synonyms" -> {}, 
+    "title" -> "Special Functions and Abbreviations in Package-X", 
+    "titlemodifier" -> "", "windowtitle" -> 
+    "Special Functions and Abbreviations in Package-X", "type" -> "Guide", 
+    "uri" -> "X/guide/SpecialFunctions"}, "SearchTextTranslated" -> ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb", 
+  CharacterEncoding -> "UTF-8"]
+]
+
diff --git a/packages/X/Documentation/English/Index/_6.cfs b/packages/X/Documentation/English/Index/_6.cfs
new file mode 100644
index 0000000000000000000000000000000000000000..994738410b19af5be626689efff3a08bbcde966b
Binary files /dev/null and b/packages/X/Documentation/English/Index/_6.cfs differ
diff --git a/packages/X/Documentation/English/Index/segments.gen b/packages/X/Documentation/English/Index/segments.gen
new file mode 100644
index 0000000000000000000000000000000000000000..026de2bed049722c8324ef37f5158c2a98cae496
Binary files /dev/null and b/packages/X/Documentation/English/Index/segments.gen differ
diff --git a/packages/X/Documentation/English/Index/segments_f b/packages/X/Documentation/English/Index/segments_f
new file mode 100644
index 0000000000000000000000000000000000000000..2a499be7547aa727fbac3a016c655be1be287eee
Binary files /dev/null and b/packages/X/Documentation/English/Index/segments_f differ
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/C0Expand.nb b/packages/X/Documentation/English/ReferencePages/Symbols/C0Expand.nb
new file mode 100644
index 0000000000000000000000000000000000000000..0cdb440d7a49ed38cf11caf3e45f0755af115059
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/C0Expand.nb
@@ -0,0 +1,2117 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"ScalarC0\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/ScalarC0"], "\<\"ScalarC0IR6\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ScalarC0IR6"], "\<\"DiLog\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/C0Expand\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/C0Expand"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/C0Expand.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/C0Expand", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["C0Expand", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["C0Expand",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/C0Expand"], "[", 
+       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]replaces ",
+     Cell[BoxData[
+      ButtonBox["ScalarC0",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " and ",
+     Cell[BoxData[
+      ButtonBox["ScalarC0IR6",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " everywhere inside ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " with their explicit expressions."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(4)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->127681602],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(2)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->608521461],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarC0", "[", 
+   RowBox[{
+    SuperscriptBox["M", "2"], ",", "s", ",", "0", ",", "M", ",", "M", ",", 
+    "M"}], "]"}], "//", "C0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1058320005],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    SuperscriptBox["\[Pi]", "2"], 
+    RowBox[{"18", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["M", "2"], "-", "s"}], ")"}]}]]}], "-", 
+  FractionBox[
+   SuperscriptBox[
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"2", " ", 
+        SuperscriptBox["M", "2"]}], "-", "s", "+", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["M", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]]}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox["M", "2"]}]], "]"}], "2"], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["M", "2"], "-", "s"}], ")"}]}]]}]], "Output",
+ ImageSize->{241, 67},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1059893284]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1993752064],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarC0IR6", "[", 
+   RowBox[{"s", ",", "m", ",", "m"}], "]"}], "//", "C0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->588754942],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    SuperscriptBox["\[Pi]", "2"], 
+    RowBox[{"6", " ", 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"DiscB", "[", 
+     RowBox[{"s", ",", "m", ",", "m"}], "]"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "4"]}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        RowBox[{"(", 
+         RowBox[{"s", "+", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], ")"}]}]}], 
+      
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], "2"]}]], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "4"}], " ", 
+       SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], "-", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"PolyLog", "[", 
+     RowBox[{"2", ",", 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         SuperscriptBox["m", "2"]}], "+", "s", "-", 
+        SqrtBox[
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"]}]]}], "]"}]}], 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]]}]], "Output",
+ ImageSize->{404, 153},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1864856968]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Scope",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1293636265],
+
+Cell[TextData[{
+ "Some expressions are given most concisely in terms of ",
+ Cell[BoxData[
+  ButtonBox["DiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiLog"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->759291654],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarC0", "[", 
+   RowBox[{"s", ",", "t", ",", "0", ",", "m", ",", "0", ",", "M"}], "]"}], "//",
+   "C0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1278879218],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"DiLog", "[", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}]}], 
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"], "+", "s", "-", "t"}], ")"}]}]], ",", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", "s", " ", 
+      RowBox[{"(", 
+       RowBox[{"s", "-", "t"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "t"}]}], ")"}]}]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "-", 
+  FractionBox[
+   RowBox[{"DiLog", "[", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "t"}]}], 
+       RowBox[{"t", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "-", "s", "+", "t"}], ")"}]}]]}], ",", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["M", "2"], "-", "t"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{"s", "-", "t"}], ")"}], " ", "t", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "t"}]}], ")"}]}]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "-", 
+  FractionBox[
+   RowBox[{"DiLog", "[", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "+", 
+       SuperscriptBox["s", "2"], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}], "-", 
+       RowBox[{"s", " ", "t"}]}], 
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"], "+", "s", "-", "t"}], ")"}]}]], ",", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", "s", " ", 
+      RowBox[{"(", 
+       RowBox[{"s", "-", "t"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "+", 
+        SuperscriptBox["s", "2"], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "t"}], "-", 
+        RowBox[{"s", " ", "t"}]}], ")"}]}]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "-", 
+  FractionBox[
+   RowBox[{"DiLog", "[", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "+", 
+       SuperscriptBox["s", "2"], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}], "-", 
+       RowBox[{"s", " ", "t"}]}], 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}]}]], ",", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", "s"}]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "+", 
+  FractionBox[
+   RowBox[{"DiLog", "[", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "t"}], "+", 
+        RowBox[{"s", " ", "t"}], "-", 
+        SuperscriptBox["t", "2"]}], 
+       RowBox[{"t", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "-", "s", "+", "t"}], ")"}]}]]}], ",", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["M", "2"], "-", "t"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{"s", "-", "t"}], ")"}], " ", "t", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{"t", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", "s", "+", "t"}], ")"}]}]}], 
+       ")"}]}]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "+", 
+  FractionBox[
+   RowBox[{"DiLog", "[", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}], "+", 
+       RowBox[{"s", " ", "t"}], "-", 
+       SuperscriptBox["t", "2"]}], 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}]}]], ",", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["M", "2"]}], "+", "t"}]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["M", "2"]}], " ", "s"}], "-", 
+         SuperscriptBox["s", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", "t"}], "+", 
+         RowBox[{"s", " ", "t"}]}], ")"}]}], 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "2"]}], " ", 
+        SuperscriptBox["M", "2"], " ", "s"}], "+", 
+       RowBox[{
+        SuperscriptBox["M", "4"], " ", "s"}], "+", 
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", 
+        SuperscriptBox["s", "2"]}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "4"], " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "2"], " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "s", " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s", " ", "t"}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["t", "2"]}]}]]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "-", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["M", "2"]}], " ", "s"}], "+", 
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", "t"}], "-", 
+         RowBox[{"s", " ", "t"}], "+", 
+         SuperscriptBox["t", "2"]}], ")"}]}], 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "2"]}], " ", 
+        SuperscriptBox["M", "2"], " ", "s"}], "+", 
+       RowBox[{
+        SuperscriptBox["M", "4"], " ", "s"}], "+", 
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", 
+        SuperscriptBox["s", "2"]}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "4"], " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "2"], " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "s", " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s", " ", "t"}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["t", "2"]}]}]]}], "]"}], 
+   RowBox[{"s", "-", "t"}]]}]], "Output",
+ ImageSize->{552, 346},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1662348512]
+}, Open  ]],
+
+Cell[TextData[{
+ "Provide assumptions about the kinematic parameters using ",
+ Cell[BoxData[
+  ButtonBox["Assuming",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Assuming"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain an expression in terms of built-in ",
+ Cell[BoxData[
+  ButtonBox["PolyLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/PolyLog"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1666830514],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Assuming", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"s", ">", 
+     RowBox[{"4", 
+      SuperscriptBox["m", "2"]}]}], "&&", 
+    RowBox[{"t", "<", "0"}]}], ",", 
+   RowBox[{
+    RowBox[{"ScalarC0", "[", 
+     RowBox[{"s", ",", "t", ",", "0", ",", "m", ",", "0", ",", "M"}], "]"}], "//",
+     "C0Expand"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1788934605],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   SuperscriptBox[
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["M", "2"]}], " ", "s"}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}]}], 
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{"s", "-", "t"}], ")"}]}]], "]"}], "2"], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "-", "t"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}]}], 
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"], "+", "s", "-", "t"}], ")"}]}]]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "-", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "t"}]}], 
+       RowBox[{"t", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "-", "s", "+", "t"}], ")"}]}]]}]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "+", 
+       SuperscriptBox["s", "2"], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}], "-", 
+       RowBox[{"s", " ", "t"}]}], 
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{"s", "-", "t"}], ")"}]}]]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "-", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "+", 
+       SuperscriptBox["s", "2"], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}], "-", 
+       RowBox[{"s", " ", "t"}]}], 
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"], "+", "s", "-", "t"}], ")"}]}]]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "t"}], "+", 
+        RowBox[{"s", " ", "t"}], "-", 
+        SuperscriptBox["t", "2"]}], 
+       RowBox[{"t", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "-", "s", "+", "t"}], ")"}]}]]}]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}], "+", 
+       RowBox[{"s", " ", "t"}], "-", 
+       SuperscriptBox["t", "2"]}], 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}]}]]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["M", "2"]}], " ", "s"}], "-", 
+         SuperscriptBox["s", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", "t"}], "+", 
+         RowBox[{"s", " ", "t"}]}], ")"}]}], 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "2"]}], " ", 
+        SuperscriptBox["M", "2"], " ", "s"}], "+", 
+       RowBox[{
+        SuperscriptBox["M", "4"], " ", "s"}], "+", 
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", 
+        SuperscriptBox["s", "2"]}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "4"], " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "2"], " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "s", " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s", " ", "t"}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["t", "2"]}]}]]}], "]"}], 
+   RowBox[{"s", "-", "t"}]], "-", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["M", "2"]}], " ", "s"}], "+", 
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", "t"}], "-", 
+         RowBox[{"s", " ", "t"}], "+", 
+         SuperscriptBox["t", "2"]}], ")"}]}], 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "2"]}], " ", 
+        SuperscriptBox["M", "2"], " ", "s"}], "+", 
+       RowBox[{
+        SuperscriptBox["M", "4"], " ", "s"}], "+", 
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", 
+        SuperscriptBox["s", "2"]}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "4"], " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "2"], " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "s", " ", "t"}], "-", 
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", "s", " ", "t"}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["t", "2"]}]}]]}], "]"}], 
+   RowBox[{"s", "-", "t"}]]}]], "Output",
+ ImageSize->{553, 201},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->840876526]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1575743894],
+
+Cell[TextData[{
+ "More general analytic expressions are valid only in the physical region, \
+and wrapped with ",
+ Cell[BoxData[
+  ButtonBox["ConditionalExpression",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/ConditionalExpression"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1631813844],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarC0", "[", 
+   RowBox[{"s", ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", "m", ",", "m", ",", "m"}], "]"}], "//", 
+  "C0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1217369598],
+
+Cell[BoxData[
+ RowBox[{"ConditionalExpression", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"DiLog", "[", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["m", "2"], " ", "s"}], "-", 
+           RowBox[{
+            SuperscriptBox["m", "2"], " ", 
+            SqrtBox[
+             RowBox[{"s", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"-", "4"}], " ", 
+                 SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["m", "2"], " ", "s"}], "-", 
+           RowBox[{
+            SqrtBox["3"], " ", 
+            SqrtBox[
+             RowBox[{"-", 
+              SuperscriptBox["m", "4"]}]], " ", 
+            SqrtBox[
+             RowBox[{"s", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"-", "4"}], " ", 
+                 SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], ",", 
+         RowBox[{"s", "-", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}]}], 
+      
+      SqrtBox[
+       RowBox[{"s", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]]}], "+", 
+    FractionBox[
+     RowBox[{"2", " ", 
+      RowBox[{"DiLog", "[", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", "s"}], "+", 
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", "s"}], "-", 
+          RowBox[{
+           SqrtBox["3"], " ", 
+           SqrtBox[
+            RowBox[{"-", 
+             SuperscriptBox["m", "4"]}]], " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], ",", 
+        RowBox[{"s", "+", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}]}], 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "-", 
+    FractionBox[
+     RowBox[{"2", " ", 
+      RowBox[{"DiLog", "[", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", "s"}], "-", 
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", "s"}], "+", 
+          RowBox[{
+           SqrtBox["3"], " ", 
+           SqrtBox[
+            RowBox[{"-", 
+             SuperscriptBox["m", "4"]}]], " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], ",", 
+        RowBox[{
+         RowBox[{"-", "s"}], "+", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}]}], 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "+", 
+    FractionBox[
+     RowBox[{"2", " ", 
+      RowBox[{"DiLog", "[", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", "s"}], "+", 
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", "s"}], "+", 
+          RowBox[{
+           SqrtBox["3"], " ", 
+           SqrtBox[
+            RowBox[{"-", 
+             SuperscriptBox["m", "4"]}]], " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], ",", 
+        RowBox[{
+         RowBox[{"-", "s"}], "-", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}]}], 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "+", 
+    FractionBox[
+     RowBox[{"DiLog", "[", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", " ", 
+              SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}], "+", 
+          
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"], " ", "s"}]]}], ",", 
+       RowBox[{"s", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "2"}], " ", 
+           SuperscriptBox["m", "2"], " ", "s"}], "+", 
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{"s", "+", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], 
+            ")"}]}]}], ")"}]}]}], "]"}], 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "+", 
+    FractionBox[
+     RowBox[{"DiLog", "[", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}], "+", 
+         RowBox[{"s", " ", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"3", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], ",", 
+       RowBox[{
+        RowBox[{"-", "s"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "2"}], " ", 
+           SuperscriptBox["m", "2"], " ", "s"}], "+", 
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{"s", "+", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], 
+            ")"}]}]}], ")"}]}]}], "]"}], 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "+", 
+    FractionBox[
+     SuperscriptBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"]}], 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s", "-", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+           "s"}]]}]], "]"}], "2"], 
+     RowBox[{"2", " ", 
+      SqrtBox[
+       RowBox[{"s", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]], "+", 
+    FractionBox[
+     RowBox[{"PolyLog", "[", 
+      RowBox[{"2", ",", 
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s", "+", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s", "+", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]]}], "]"}], 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "-", 
+    FractionBox[
+     RowBox[{"PolyLog", "[", 
+      RowBox[{"2", ",", 
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "s"}], " ", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], "-", 
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "2"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}], 
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"3", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]]}], 
+      "]"}], 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]]}], ",", 
+   RowBox[{
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}], ">", "0"}]}], 
+  "]"}]], "Output",
+ ImageSize->{509, 684},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1248185645]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["Normal",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Normal"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to extract expression out of the ",
+ Cell[BoxData[
+  ButtonBox["ConditionalExpression",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/ConditionalExpression"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ": "
+}], "ExampleText",
+ CellID->1924872590],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "Normal"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1756508025],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{"2", " ", 
+     RowBox[{"DiLog", "[", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", "s"}], "-", 
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", "s"}], "-", 
+         RowBox[{
+          SqrtBox["3"], " ", 
+          SqrtBox[
+           RowBox[{"-", 
+            SuperscriptBox["m", "4"]}]], " ", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], ",", 
+       RowBox[{"s", "-", 
+        SqrtBox[
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}]}], 
+    SqrtBox[
+     RowBox[{"s", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "4"}], " ", 
+         SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]]}], "+", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"DiLog", "[", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "+", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SqrtBox["3"], " ", 
+         SqrtBox[
+          RowBox[{"-", 
+           SuperscriptBox["m", "4"]}]], " ", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], ",", 
+      RowBox[{"s", "+", 
+       SqrtBox[
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}]}], 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "-", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"DiLog", "[", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "+", 
+        RowBox[{
+         SqrtBox["3"], " ", 
+         SqrtBox[
+          RowBox[{"-", 
+           SuperscriptBox["m", "4"]}]], " ", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], ",", 
+      RowBox[{
+       RowBox[{"-", "s"}], "+", 
+       SqrtBox[
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}]}], 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "+", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"DiLog", "[", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "+", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "+", 
+        RowBox[{
+         SqrtBox["3"], " ", 
+         SqrtBox[
+          RowBox[{"-", 
+           SuperscriptBox["m", "4"]}]], " ", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], ",", 
+      RowBox[{
+       RowBox[{"-", "s"}], "-", 
+       SqrtBox[
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}]}], 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "+", 
+  FractionBox[
+   RowBox[{"DiLog", "[", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}], "+", 
+        RowBox[{"s", " ", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"], " ", "s"}]]}], ",", 
+     RowBox[{"s", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         SuperscriptBox["m", "2"], " ", "s"}], "+", 
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{"s", "+", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], ")"}]}]}],
+        ")"}]}]}], "]"}], 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "+", 
+  FractionBox[
+   RowBox[{"DiLog", "[", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"2", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}], "+", 
+       RowBox[{"s", " ", 
+        SqrtBox[
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"3", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], ",", 
+     RowBox[{
+      RowBox[{"-", "s"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         SuperscriptBox["m", "2"], " ", "s"}], "+", 
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{"s", "+", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], ")"}]}]}],
+        ")"}]}]}], "]"}], 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "+", 
+  FractionBox[
+   SuperscriptBox[
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], 
+      RowBox[{
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}], "-", "s", "-", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]]}]], 
+     "]"}], "2"], 
+   RowBox[{"2", " ", 
+    SqrtBox[
+     RowBox[{"s", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "4"}], " ", 
+         SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s", "+", 
+       SqrtBox[
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s", "+", 
+       SqrtBox[
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]]}], "]"}], 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "-", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "s"}], " ", 
+        SqrtBox[
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], "-", 
+       RowBox[{"s", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "2"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}], 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"3", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]]}], "]"}], 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]]}]], "Output",
+ ImageSize->{436, 684},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2008651639]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ScalarC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ScalarC0IR6",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0IR6"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->1103068013],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "C0Expand - Wolfram Mathematica", "C0Expand"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 51, 48.282092}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "C0Expand[expr] replaces ScalarC0 and ScalarC0IR6 everywhere inside expr \
+with their explicit expressions.", "synonyms" -> {}, "title" -> "C0Expand", 
+    "titlemodifier" -> "", "windowtitle" -> "C0Expand", "type" -> "Symbol", 
+    "uri" -> "X/ref/C0Expand"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/ContinuedDiLog.nb b/packages/X/Documentation/English/ReferencePages/Symbols/ContinuedDiLog.nb
new file mode 100644
index 0000000000000000000000000000000000000000..587765f6cee1ef4d143bf8c3ab28b23997cc2a57
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/ContinuedDiLog.nb
@@ -0,0 +1,1655 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"DiLog\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/ContinuedDiLog\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/ContinuedDiLog"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/\
+ContinuedDiLog.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/ref/ContinuedDiLog", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["ContinuedDiLog", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["ContinuedDiLog",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/ContinuedDiLog"], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["x", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["\[Alpha]", "TR"], 
+           StyleBox["1", "TR"]]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["x", "TI"], 
+           StyleBox["2", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["\[Alpha]", "TR"], 
+           StyleBox["2", "TR"]]}], "}"}]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the two variable Beenakker-Denner continued \
+dilogarithm function ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox["\[ScriptCapitalL]\[ScriptI]", "2"], "(", 
+        RowBox[{
+         RowBox[{
+          SubscriptBox["x", "1"], "+", 
+          RowBox[{"i", " ", 
+           SubscriptBox["\[Alpha]", "1"], "\[CurlyEpsilon]"}]}], ",", " ", 
+         RowBox[{
+          SubscriptBox["x", "2"], "+", 
+          RowBox[{"i", " ", 
+           SubscriptBox["\[Alpha]", "2"], "\[CurlyEpsilon]"}]}]}], ")"}], 
+       TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->37769940],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Mathematical function, suitable for both symbolic and numerical manipulation.\
+\
+\>", "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ "The function ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["\[ScriptCapitalL]\[ScriptI]", "2"], "(", 
+    RowBox[{
+     SubscriptBox["x", "1"], ",", " ", 
+     SubscriptBox["x", "2"]}], ")"}], TraditionalForm]], "InlineMath"],
+ " has the contour integral representation\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["\[ScriptCapitalL]\[ScriptI]", "2"], "(", 
+     RowBox[{
+      SubscriptBox["x", "1"], ",", " ", 
+      SubscriptBox["x", "2"]}], ")"}], "=", 
+    RowBox[{
+     StyleBox[
+      SubscriptBox["\[Integral]", 
+       RowBox[{" ", "C"}]],
+      ScriptLevel->0], 
+     RowBox[{
+      FractionBox[
+       RowBox[{"Ln", "(", "t", ")"}], 
+       RowBox[{"1", "-", "t"}]], " ", 
+      StyleBox["dt",
+       FontSlant->"Italic"]}]}]}], TraditionalForm]], "InlineMath"],
+ ",\[LineSeparator]where ",
+ Cell[BoxData[
+  FormBox["C", TraditionalForm]], "InlineMath"],
+ " is the contour that starts at ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"t", "=", "1"}], TraditionalForm]], "InlineMath"],
+ " on the principal sheet of the complex logarithm ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"Ln", "(", "t", ")"}], TraditionalForm]], "InlineMath"],
+ " and ends at ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"t", "=", 
+    RowBox[{
+     SubscriptBox["x", "1"], 
+     SubscriptBox["x", "2"]}]}], TraditionalForm]], "InlineMath"],
+ " on the Riemann sheet of the logarithm determined by the accumulated phase \
+of the product ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["x", "1"], 
+    SubscriptBox["x", "2"]}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1420246836],
+
+Cell[TextData[{
+ "If ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"-", "\[Pi]"}], " ", "<", 
+    RowBox[{
+     RowBox[{"arg", "(", 
+      SubscriptBox["x", "1"], ")"}], "+", 
+     RowBox[{"arg", "(", 
+      SubscriptBox["x", "2"], ")"}]}], "<", "\[Pi]"}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["\[ScriptCapitalL]\[ScriptI]", "2"], "(", 
+     RowBox[{
+      SubscriptBox["x", "1"], ",", " ", 
+      SubscriptBox["x", "2"]}], ")"}], "=", 
+    RowBox[{
+     SubscriptBox["Li", "2"], "(", 
+     RowBox[{"1", "-", 
+      RowBox[{
+       SubscriptBox["x", "1"], 
+       SubscriptBox["x", "2"]}]}], ")"}]}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->65172795],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ContinuedDiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ContinuedDiLog"], "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      SubscriptBox[
+       StyleBox["x", "TI"], 
+       StyleBox["1", "TR"]], ",", 
+      SubscriptBox[
+       StyleBox["\[Alpha]", "TR"], 
+       StyleBox["1", "TR"]]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      SubscriptBox[
+       StyleBox["x", "TI"], 
+       StyleBox["2", "TR"]], ",", 
+      SubscriptBox[
+       StyleBox["\[Alpha]", "TR"], 
+       StyleBox["2", "TR"]]}], "}"}]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has a branch cut discontinuity in each complex ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["x", "i"], TraditionalForm]], "InlineMath"],
+ " plane running from ",
+ Cell[BoxData[
+  FormBox["0", TraditionalForm]], "InlineMath"],
+ " to ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"-", "\[Infinity]"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1457110582],
+
+Cell[TextData[{
+ "For real negative product ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["x", "1"], 
+     SubscriptBox["x", "2"]}], "<", "0"}], TraditionalForm]], "InlineMath"],
+ ", the sign of ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["x", "1"], 
+     SubscriptBox["\[Alpha]", "2"]}], "+", 
+    RowBox[{
+     SubscriptBox["x", "2"], 
+     SubscriptBox["\[Alpha]", "1"]}]}], TraditionalForm]], "InlineMath"],
+ " determines on which side of the branch cut ",
+ Cell[BoxData[
+  ButtonBox["ContinuedDiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ContinuedDiLog"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates."
+}], "Notes",
+ Deletable->True,
+ CellID->71666241]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(7)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1291705715],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(3)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->785764482],
+
+Cell["Evaluate numerically:", "ExampleText",
+ CellID->1546663071],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ContinuedDiLog", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"3.2", ",", "1.0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1", ",", "1.0"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1443361267],
+
+Cell[BoxData[
+ RowBox[{"-", "1.708900762668394`"}]], "Output",
+ ImageSize->{55, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1598169440]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1953502775],
+
+Cell["Evaluate symbolically:", "ExampleText",
+ CellID->777511246],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ContinuedDiLog", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"3", "+", 
+      RowBox[{"2", "I"}]}], ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"1", "/", "10"}], ",", "1"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1422999365],
+
+Cell[BoxData[
+ RowBox[{"PolyLog", "[", 
+  RowBox[{"2", ",", 
+   RowBox[{
+    FractionBox["7", "10"], "-", 
+    FractionBox["\[ImaginaryI]", "5"]}]}], "]"}]], "Output",
+ ImageSize->{129, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2041226611]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ContinuedDiLog", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"3", "+", 
+      RowBox[{"2", "I"}]}], ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"0", ",", "1"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1338533176],
+
+Cell[BoxData[
+ FractionBox[
+  SuperscriptBox["\[Pi]", "2"], "6"]], "Output",
+ ImageSize->{22, 34},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->166925526]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1791144089],
+
+Cell["\<\
+Compare the principal value of the dilogarithm function with the analytically \
+continued version:\
+\>", "ExampleText",
+ CellID->803070337],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"x1", "=", 
+   RowBox[{
+    RowBox[{"-", "3.0"}], "+", 
+    RowBox[{"1.0", "I"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"x2", "=", 
+    RowBox[{"1.0", "-", 
+     RowBox[{"0.5", "I"}]}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"PolyLog", "[", 
+  RowBox[{"2", ",", 
+   RowBox[{"1", "-", 
+    RowBox[{"x1", " ", "x2"}]}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"ContinuedDiLog", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"x1", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"x2", ",", "1"}], "}"}]}], "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1168428113],
+
+Cell[BoxData[
+ RowBox[{"0.27648087468141513`", "\[VeryThinSpace]", "-", 
+  RowBox[{"3.827716817615632`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{136, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1019355916],
+
+Cell[BoxData[
+ RowBox[{"0.27648087468141513`", "\[VeryThinSpace]", "-", 
+  RowBox[{"3.827716817615632`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{136, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1837828093]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"x1", "=", 
+   RowBox[{
+    RowBox[{"-", "3.0"}], "+", 
+    RowBox[{"1.0", " ", "I"}]}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"x2", "=", 
+    RowBox[{
+     RowBox[{"-", "2.0"}], "+", 
+     RowBox[{"1.0", "I"}]}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"PolyLog", "[", 
+  RowBox[{"2", ",", 
+   RowBox[{"1", "-", 
+    RowBox[{"x1", " ", "x2"}]}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"ContinuedDiLog", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"x1", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"x2", ",", "1"}], "}"}]}], "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1378409242],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "2.8687520941795945`"}], "+", 
+  RowBox[{"1.77998352179693`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{135, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->752367653],
+
+Cell[BoxData[
+ RowBox[{"11.2403746812413`", "\[VeryThinSpace]", "-", 
+  RowBox[{"9.886547201537589`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->659430435]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(4)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell["Evaluate to high precision:", "ExampleText",
+ CellID->821071617],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ContinuedDiLog", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"3.2`50", ",", "1.0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.1`50", ",", "1.0"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1608699772],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  "1.7089007626683938213982018570174654981697940464239767631680363005604683371\
+5169`48.74888914231057"}]], "Output",
+ ImageSize->{372, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->911266882]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->312207116],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ContinuedDiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ContinuedDiLog"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is needed to analytically represent the Passarino-Veltman D-functions:"
+}], "ExampleText",
+ CellID->39075871],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", 
+    SuperscriptBox["m", "2"], ",", "s", ",", "t", ",", "m", ",", "0", ",", 
+    "m", ",", "0"}], "]"}], "//", "D0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->182137506],
+
+Cell[BoxData[
+ RowBox[{"RootSum", "[", 
+  RowBox[{
+   RowBox[{"Function", "[", 
+    RowBox[{"\[FormalX]", ",", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "+", 
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", "t"}], "+", 
+      RowBox[{
+       SuperscriptBox["\[FormalX]", "2"], " ", 
+       SuperscriptBox["m", "2"], " ", "t"}], "+", 
+      RowBox[{"\[FormalX]", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "4"], "+", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "t"}]}], 
+        ")"}]}]}]}], "]"}], ",", 
+   RowBox[{"Function", "[", 
+    RowBox[{"\[FormalX]", ",", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         SuperscriptBox["\[Pi]", "2"], "6"], "+", 
+        RowBox[{"DiLog", "[", 
+         RowBox[{
+          RowBox[{"1", "+", "\[FormalX]"}], ",", 
+          RowBox[{"-", 
+           FractionBox["t", 
+            RowBox[{
+             SuperscriptBox["m", "4"], "+", 
+             RowBox[{"2", " ", "\[FormalX]", " ", 
+              SuperscriptBox["m", "2"], " ", "t"}], "+", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"2", " ", 
+                 SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+              "t"}]}]]}]}], "]"}], "-", 
+        RowBox[{
+         RowBox[{"Ln", "[", 
+          RowBox[{
+           RowBox[{"-", "\[FormalX]"}], ",", 
+           RowBox[{
+            RowBox[{"-", "t"}], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["m", "4"], "+", 
+              RowBox[{"2", " ", 
+               RowBox[{"(", 
+                RowBox[{"1", "+", "\[FormalX]"}], ")"}], " ", 
+               SuperscriptBox["m", "2"], " ", "t"}], "-", 
+              RowBox[{"s", " ", "t"}]}], ")"}]}]}], "]"}], " ", 
+         RowBox[{"Log", "[", 
+          RowBox[{"-", 
+           FractionBox[
+            SuperscriptBox["m", "2"], "t"]}], "]"}]}], "-", 
+        RowBox[{"RootSum", "[", 
+         RowBox[{
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "+", 
+             RowBox[{
+              SuperscriptBox["\[FormalR]", "2"], " ", 
+              SuperscriptBox["m", "2"]}], "+", 
+             RowBox[{"\[FormalR]", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"2", " ", 
+                 SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}]}]}], "]"}], 
+          ",", 
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{"ContinuedDiLog", "[", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", 
+                 FractionBox["1", "\[FormalR]"]}], ",", 
+                RowBox[{
+                 RowBox[{"-", 
+                  FractionBox[
+                   SuperscriptBox["m", "2"], "\[FormalR]"]}], "+", 
+                 RowBox[{"\[FormalR]", " ", 
+                  SuperscriptBox["m", "2"]}]}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", "\[FormalX]"}], ",", 
+                RowBox[{"-", 
+                 FractionBox["t", 
+                  RowBox[{
+                   SuperscriptBox["m", "4"], "+", 
+                   RowBox[{"2", " ", "\[FormalX]", " ", 
+                    SuperscriptBox["m", "2"], " ", "t"}], "+", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+                    "t"}]}]]}]}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], ")"}], 
+      "/", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "4"], "+", 
+        RowBox[{"2", " ", "\[FormalX]", " ", 
+         SuperscriptBox["m", "2"], " ", "t"}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "t"}]}], 
+       ")"}]}]}], "]"}]}], "]"}]], "Output",
+ ImageSize->{575, 173},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1834350375]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0IR12", "[", 
+   RowBox[{
+    SuperscriptBox["M", "2"], ",", 
+    SuperscriptBox["M", "2"], ",", "s", ",", "t", ",", "m", ",", "m"}], "]"}],
+   "//", "D0Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->7660001],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]], 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox[
+      SuperscriptBox["\[Pi]", "2"], "8"]}], "-", 
+    RowBox[{"2", " ", 
+     RowBox[{"DiLog", "[", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["M", "2"], "-", "s"}], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}]], ",", 
+       RowBox[{
+        SuperscriptBox["M", "2"], "-", "s"}]}], "]"}]}], "+", 
+    RowBox[{
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["m", "2"], 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", "t"}]], "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        RowBox[{"Ln", "[", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", 
+            SuperscriptBox["M", "2"]}], 
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", "s"}]], ",", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["M", "2"]}], "+", "s"}]}], "]"}]}], "+", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", "t"}]], "]"}]}], ")"}]}], "+", 
+    RowBox[{"RootSum", "[", 
+     RowBox[{
+      RowBox[{"Function", "[", 
+       RowBox[{"\[FormalR]", ",", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "+", 
+         RowBox[{
+          SuperscriptBox["\[FormalR]", "2"], " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"\[FormalR]", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "-", 
+            SuperscriptBox["M", "2"]}], ")"}]}]}]}], "]"}], ",", 
+      RowBox[{"Function", "[", 
+       RowBox[{"\[FormalR]", ",", 
+        RowBox[{"ContinuedDiLog", "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"-", 
+             FractionBox["1", "\[FormalR]"]}], ",", 
+            RowBox[{
+             RowBox[{"-", 
+              FractionBox[
+               SuperscriptBox["m", "2"], "\[FormalR]"]}], "+", 
+             RowBox[{"\[FormalR]", " ", 
+              SuperscriptBox["m", "2"]}]}]}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{
+            FractionBox[
+             RowBox[{
+              SuperscriptBox["m", "2"], "-", "t"}], 
+             RowBox[{
+              SuperscriptBox["m", "2"], "-", 
+              SuperscriptBox["M", "2"]}]], ",", 
+            RowBox[{
+             SuperscriptBox["M", "2"], "-", "t"}]}], "}"}]}], "]"}]}], 
+       "]"}]}], "]"}]}], ")"}]}]], "Output",
+ ImageSize->{532, 135},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->15220398]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->71523406],
+
+Cell["The derivative:", "ExampleText",
+ CellID->1650525969],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   RowBox[{"ContinuedDiLog", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"x", ",", "xInf"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"y", ",", "yInf"}], "}"}]}], "]"}], ",", "x"}], "]"}]], "Input",
+ 
+ CellLabel->"In[1]:=",
+ CellID->1283152455],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"y", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"Ln", "[", 
+      RowBox[{"x", ",", "xInf"}], "]"}], "+", 
+     RowBox[{"Ln", "[", 
+      RowBox[{"y", ",", "yInf"}], "]"}]}], ")"}]}], 
+  RowBox[{"1", "-", 
+   RowBox[{"x", " ", "y"}]}]]], "Output",
+ ImageSize->{196, 33},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1047067223]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1896206168],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["PolyLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/PolyLog"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has a branch cut discontinuity when the phase of the product ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["x", "1"], 
+    SubscriptBox["x", "2"]}], TraditionalForm]], "InlineMath"],
+ " crosses ",
+ Cell[BoxData[
+  FormBox["\[Pi]", TraditionalForm]], "InlineMath"],
+ ", whereas ",
+ Cell[BoxData[
+  ButtonBox["ContinuedDiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ContinuedDiLog"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is continuous over the interval ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"-", "\[Pi]"}], TraditionalForm]], "InlineMath"],
+ " to ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"+", "\[Pi]"}], TraditionalForm]], "InlineMath"],
+ " for the phase of each variable ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["x", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["x", "2"], TraditionalForm]], "InlineMath"],
+ " separately:"
+}], "ExampleText",
+ CellID->1309022827],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Grid", "[", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"\"\<PolyLog\>\"", ",", "\"\<ContinuedDiLog\>\""}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"Plot", "[", 
+       RowBox[{
+        RowBox[{"Im", "[", 
+         RowBox[{"PolyLog", "[", 
+          RowBox[{"2", ",", 
+           RowBox[{"1", "-", 
+            RowBox[{
+             SuperscriptBox["\[ExponentialE]", 
+              RowBox[{"\[ImaginaryI]", " ", 
+               RowBox[{"\[Pi]", "/", "2"}]}]], 
+             SuperscriptBox["\[ExponentialE]", 
+              RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]]}]}]}], "]"}], "]"}],
+         ",", 
+        RowBox[{"{", 
+         RowBox[{"\[Theta]", ",", 
+          RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
+        RowBox[{"PlotRange", "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"-", "5"}], ",", "5"}], "}"}]}], ",", 
+        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
+      "\[IndentingNewLine]", 
+      RowBox[{"Plot", "[", 
+       RowBox[{
+        RowBox[{"Im", "[", 
+         RowBox[{"ContinuedDiLog", "[", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{
+             SuperscriptBox["\[ExponentialE]", 
+              RowBox[{"\[ImaginaryI]", " ", 
+               RowBox[{"\[Pi]", "/", "2"}]}]], ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             SuperscriptBox["\[ExponentialE]", 
+              RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]], ",", "1"}], 
+            "}"}]}], "]"}], "]"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"\[Theta]", ",", 
+          RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
+        RowBox[{"PlotRange", "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"-", "5"}], ",", "5"}], "}"}]}], ",", 
+        RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], "}"}]}], "}"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1960062812],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnX3M5FS9x3vv5Y+LYXmLRlQMrgI3mmuzKOTGRRe7RkAUqruSNTJBVtyR
+ECLVu8pWg5IqwYmaOBiTIazOIhkUR0MmQGYjjC+D2TtRG6CKXWMls2IFixTs
+stal7J57fu0888w8z/R5ps90ns7L9xNYhtkzZ870fHpefj093fjxG7fl/10Q
+hP/9T/7Htp03SZ/5zE51+wn8f7aqu3d9/D/4C43/q/ybINBrBgDw2q2W4WVa
+AqPVantBlkUAIb5rm6bVoW37Kyb2jJIQkisZK+dqW51MTau9cp5g3XDber1W
+a7QM09DbbuKzzzZ0a9A567Woj22OoUExSjLPWS7pjArfEYrr6ixRytd5MrXl
+dsrjtCOlKSUamfXFrChREyGIYtRUNFZoVALf892GJooFfaVMfUMRhQXy2XZd
+ICRolXJUu4qal6hWCgtn39D4RT441we54bcbDT15+zQUzY5sXiUfWSpFZhUa
+7d4SGI3mQlvnVxWpK59atcZSLBCPb3BTiqEofi1PqvFXjlHLd9oEqVg3e9Mb
+RanbnnhmRRIl/k/Z9AMrei1XLX9Jsi4Dsw2clpaTBFFWC/y/opSvoAVKF1fn
+VSzU2tEZ54UtA7UnA6qD+gJRkuWcTH8hq1VK51r1CrVHOa1cq1YrlbrdaT28
+Ku85RCmn1boNTbuu8XcUVZXD879YpzM67La4GAGXhOcr5Up2lNpvlxU5KoGs
+VTvZ+u2KRuWSlYIm85KFFgWGJEh6mKDdpJ8TFYK+jqsj52vWYlvXo/QigWuW
+Fr4r1/0u5taL1Pvl1GKpwL9U7v42sDY8va89EQutoF2lgUWpYbuuWae6Uxt2
+N73e21AEdthx5E3++aBNYx215i1PFqUdnG1b5UIo5WaroVFtixXdWadfPjfw
+uhDkSvf88tqm5QYx1REYVZXihDW9bdR4T18yPN7gFxQ6wcWcoqmqopS6567T
+toxWWRSLi8Md36ZGRsg3zHarzOVQKVNH524UdI/O6maFtygtssQtSTR5tlzf
+dwyNf0ipB9GbolLX9Vox353v8EmN1PkU/YKiKGjhECvwbNNohpkvFiFSun8E
+5tCsTC4YtutYzbAFoW6rWaCiVhvNavhdSmXgCAwkIIqK8CY+7Kmkets3yzlB
+KnUPrM6PuVxe/N8lDYVT5x+r8uGnUxMWa7wvmWvqphMMzPZZ6kq0Tgvi6yLv
+g1CjacPHioLaXPJmXC33jldLYvc8DfjrojFwvqPLYqH35OVfl6+FHRANKsRQ
+iZ6swpEGvenpNDPJa6VioVgshQOa/MFDNYrGLGRXV/gQZ0B70lOwJeUM/zr8
+CVHawLVahh3Y3FKxG+ThwySBCkY9YNnqDEj4WI1aPDAaoT/5pmkaZmcOqvPW
+X650h31kWq7aNWn5RKbBOzSlzIe0YjhXWp6spYlq0x2Y7fPUmimdybDXEnta
+JJAWYWBTafe/GVfLdDKK0ckYnbZRfdCQYPDp5rfkTvpuVnIn5WIjEH48CqX5
+VMv6Qnuilqt8DsWp1euNpvls2Lt1T/xWN1jX157Y/QOS3nKGaXvaE08v8LR/
+pQakp6uyo77PVmkAFr0bVOQ1hJVAP4HfbvCRoGZ5fletaMRSbFDDzafOMo0N
+rTCt53oUjxXUOn/het1RbyMMgXWrmxJSMqUWJnPrqsRrKiZbmwaiklqtlnPh
+NBpdRPo4DYpaaDXb813bKOYoKBFXyzb5oIaxFqoatRP59MoST6D7gccnLKpa
+ogSB7zqu265Loma5nuNEQVm/oUpqnT4V2PS9dbrER6d8rkwfb/KvF8QwTEFT
+XbkYNh6BZ9RLilbzAjNHsRReVI/Pl2iSpTX8TlZig79rGyWamqhhsYLQL4u3
+hUrd4q9dPwh834qUDuWzqLfjcx8aivAj4PAEXpvmYWEbqBdlelWpFsMoblFH
+ezIS0SW5zpWYymIw3Kxp3fdzhZqzLHHYfpQWTn2fy7Y4OOEDYGEppbBvGpgt
+nw6VtbwsK6WyJmB8Mh5co9qtFDFXMBw69QdUx0Ld5SqmVY2uqchRjbh6uZtY
+KTU8ioWqS2q5YvlWNbpiKDYcpyIvetKuFzrfLknRF/jhpaFcj0/FGsWEHb2y
+cHlQksO0Rf2vveqJOU13oqZrqWlS8UAlJywlX42+K7+YTm11rmN6rUohJ8tq
+sazJfZMmkDI0ynB7hi3xUGRPHjbuEZ9t0K6hPRknvrv8yA9fy2EOnBG+3x/0
+RXyM4S0vFS/UOC60eG7PuLoPCthqmO9kCu+Nuhf78xVz9Q8MzsXo9jJ89IvL
+dWAd8avdUQufteFaQLb4jqkbEcuWLQ5P4LRNwzDbDoYmYL2hJeJcPmuVxeEA
+AAAAAAAAAAAAAAAAwOwRXXDLuhRgmoAzIA6IAZICZ0AccAMkBc6AOOAGSAqc
+AXHADZAUOAPiQGwNJAXOgDggBkgKnAFxwA2QFDgDOrgteWGLpAi4AVYBzoDB
+eOVwv5KSDjfAkMAZMBirkhdkTenfURxugBWAM2Aw9HQMyfD9itS3o3h3Y84M
+iwYmFDgDBuMURUEsNF3XoEdkVBcfxwIrQAxwBsTgG3mRHinafTpxxex0N3AD
+DAbOgNXxlzxBCW6A1YAzIA56PFMRboAEwBkwLHADJAXOgDgQqAdJgTMgDogB
+kgJnQBxwAyQFzoA44AZICpwBccANkBQ4A+JAbA0kBc6AOCAGSAqcAXHADZAU
+OAPigBsgKXAGxAE3QFLgDIgDboCkwBkQB2L1IClwBhCB73le0P8exAArAWfA
+IMxKnmsQ7o0jVQ3sBQpWB86AOBzTsMMN+5qaIKiN7vvZu3HsGPve99jdd7Nq
+lT34IGs22aOPsnabHT6cccHmnsl1BkwMZkkS5MoE7QX60kvsYx9jO3awD32I
+feADbOtW9ra3sY0b2YYN7MQT6cW73sWuuorddBO74w7WaLCnnsq4wPPHxDkD
+JoTA5ENYpd7uvjHRe5X7PnvySfbII+wHP2C33cauvZZamzPPZCedxC64gO3c
+yb75Tfbzn7MXXsi6oDPNdDkD1g3fVPhMuNDsDa9NpRV8KnTgANu7l11/Pdu8
+mZ18Mjv7bBrDFIus1aIBD0iLmXEGpIzNJ8G5srHk3Rlx44kn2He/y667jr39
+7ewVr2AXXcRuvpk9/DCNcMDamWlnwAgYJVkQVMvzPdd1vcWzbAbd8Dy2fz+1
+J3zoErUtX/kKjVuOHcu6ZFPGHDkDktF5Cm0HqdTdrHzG3XjxRVavs89+lr31
+rezUUynqWy6zZ57JulhTwbw6A0Zgjtx4+ml2113syiupYbngAqZp7LHHsi7T
+VDJHzqyB++9n//hH1oXIjHkM1AcB+9nPaNBy7rnsrLPYLbckzWC+lZlLZ4ZH
+UajDuuQSul7w3HNZl2a9mXcxTJPdfnvSD823MnPvzKr885/shz+kyfWGDezS
+S+lKwdwsaYAba2OOlYEzQ3PkCC2d2raNnXIKk2V2770zf8ERbozI/CkDZ5Jz
++DDbt49dfDE77TR29dXsJz9hx49nXaaxADfSYm6UgTMj4Di0qPv889lrX8t2
+72a/+13WBUoZxNZSZ9aVgTNp8Ic/MFUlRc47j9Z1P/ts1gVKB4gxPmZUGTiT
+HnwI+/DDdD8sny3zOfMDD7CXX866TCMBN8bNzCkDZ8aA57E772TvfCd79avp
+VnreFU0ncGPdmBVl4Mw4OXiQVkZxRbZsobXcR45kXaBkwI31Z8qVgTPjJwhY
+rUbbAZ12Gt3l+uijWRdoWOBGVkytMnBmHfnLX9iXv8ze8Aa6cb5UmvxNCxGr
+z5xpUwbOZMH+/Wz7dup7PvEJ9utfZ12aWCDG5DAlysCZ7HAc2qhw40a6ZMj7
+Hs9b/SPrC9yYNCZeGTgzFKkfpcUMjx+n5ZIf/jBdMty1a5Sp8hgLOakZjiPP
+tDIcX8HSU2Zyj974MhxHnqtmuCTB8vQrJ0iavvPOrbfSVPn889mdd64xh3Em
+mMAijZ5gDRnGkcnh7VFmRg7v5CdIlF4AYBAsnqyLBiaUFZxZb2ybNvN5/evZ
+O95Bz7TK4sbUyTogYDUiZV73ugyVgTOTzbFjtBDh/e+nyP6NN9Jqp3UEbkwj
+L7+coTJwZko4dIh94QvsNa+hLdnvuYf961/r8J1wY6rJQhk4M1XwvudHP2Lv
+fS975StpWfaYb/OAGzPA+ioDZxIQ+B4nWD1hgix5hv4acnzySfb5z9NtHrzv
+qVTY0aNpFmqByXfDX+PhWzFDL824w+Q4sy7KwJlhCR9gJIgi/0Oqt1NQzjfL
+FAKmDAW1uvQ5a0Px0kvU91x8MXvVq2gf5N//vt0oSpSh3EpjpVOqMWq/UVTC
+g1dy08nPyHfrQ62mkWf0TJkoR81Kw7gJdGaZMgzOjMDanfFdJ+pmGqogaK3R
+i+I7lmmTY05T43bYo+TVbtNU+Ywz7PPE5p68KGxJy40UcungG41ms6oKYjGd
+RZ2BY5jhMXMavJx1J4UsXccNa9gOazgF3SbZmQVl2P+c19yzp/LfggRn1sDo
+ztTyQq5qpVCUBXyzJAg5c/Tui0+V77+fXX6RJJzQumYX+9WvRswv9bGrbxQF
+ISU3ugSGJAjlFA5fl7YiCJV2mkPiiXUmUuaKy/UTBEm+ZnRl4Aw9c3I4/HpR
+kWlko400lliWbZUPwpR6avr6uiRc2LrlNnbOOewtb2Ff//qaNxNM3Q1vDG5Y
+dPjUdip5+VZRyYU13Eglvyly5kJBuv6W0ZWZd2fuvZeevrQc17F7caklC2zT
+aNZpwqTWEvc1fn+Ojhu1jV6Nt2tiYS2y+a7dn+PC+7w9WRi7NpvsmmvoF8oy
+u+8+mjwnYfLdsOjwSQ07pRMr8CxDr5f50FWsWYk7r9lwZjRl5tqZXTf7p5/O
+Hn98eSK/XlAVtYOSV2rW4g9y6rw8haQzJatezPfkWAjtamiikKus7Vj5Vl3p
+yVEp1Dv59LYnES++SM+U2rKFYnCf/jTT9SG/IvU1w+m6YTc0QcgbY7jHNqzh
+pOGOmXJmrcrMqTN82njFJkE4o3Xo0LAf8b2oewiaVKHV0Vs3z+BTYKFmuTxn
+103vF7otSRCb7qAC/ulPtCB740Ya1BYK7KmnVs4p9b7G1Qv8tEojDMYPn847
+fX7S+uHhS2Um7HVqwealTCXcMQPOJFRmHp3hx2TzZvu/BGHH3Qmc0YvSwpU6
+uWamUJVGKddz55Csp/HzevMs6vH94S9/SdsI8sHZu99NN6bGPMA7VTeiK2sL
+P3bk4xedWV1KKXQ5XklcqGFJS6OGZ8qZ4ZSZO2du2LhmZwLeqjlOOs3aRHD0
+KM2Qo300rriC1mT3b3+cel8z6QQB77ecFPv9mXNmNWXmyBnfpyconXlm8ND+
+dJ2Zfg4fpvtRL7uMwnBXXklB6tCS+XEDJCVGmXlxptFgb3wj/fDnnsu6KJOM
+67K9e9mll7ING/jBIjdeeCHrMoGJpl8Zak9mWxnegFx7Le0j8uCDWRdliuCW
+7NvXidW/733s299ePRIH5ptQmc71nZlUhg/Abr2VIkiKQte/wEqE960tie9T
+Y8IP3I9/zK6+mo7jpk3si19kBw7QriwAxDizRJkvfWnqlTl6lN1xB+38sGMH
+s9Jc5jybmJV8N0hdNRYj/H1zYS7EI49QBEoUaaeej36Ufec77M9/zqC4YAIY
+xplImT17plgZPncrFOix9ZddlmARzpzjmEZ4kxkLbzJbXGoeG1uzbVrt9JGP
+0J4a55zDbriB4nHPPLMuhQUTQVJnpk4ZPqbiQ6xTT6Wn1f/2t1mXZjoxS5Ig
+V7oXN1eP1R8/zh57jH3jG3TtkB/6N7+ZYlV799Jt8GA+SOrMhCvzm9/Qbddn
+n03r93gh//73rAs0vQRmeJPZ4m1S3ZU/Q32ci/L44xSGy+XoWtoppzBJYrt3
+Uz908CCtSAazx2jOTIgyf/sb+/73WT7PzjqLnXsuzemn6IHRmTPotjW6AZ7u
+kio0e8NrI60l4C37/v0UEN++nb3pTezEE+mZdnwEedttFK3jFRa3whJMHuvj
+zLop8/TT7KGHaPhx1VXUgJx+Ot38ePvt7I9/TCf/eWLgbWs2nwTnykv3+0pz
+bdKRI7S5xr591PpzXTZtYiefTEE6UaS1Czt3ss99jn31qxRGv+ce2p+9Xmc/
+/SlrpbAHERiZbJxZmzK/+AUFgfkL3jTddx8tuvvWt+ga0yc/yS6/nD570kkU
+X926lS773nXXpMyzZolwW0LV8qKbzBbXho99rePzzzPDoIrn9fq1r5E3111H
+MbsPfpA2Od28mV6AiSQrZ1ZV5sIL6cV73sMuuYRt20bNzqc+xTSNmp0HHqDP
+Hj481gKC3ruuaK/O7q0Ic7J2GiQHzoDEwA2QFDgD4khwcQeAEDgD4oAYIClw
+BsQBN0BS4AyIA26ApMAZEAfcAEmBMyAOxNZAUuAMiANigKTAGRAH3ABJgTMg
+DrgBkgJnQBxwAyQFzoA44AZICpwBcSBWD5ICZ0AcEAMkBc6ADm5L7n+oK9wA
+qwBnwGA6O1qUdLgBhgTOgMFYlbwga4ooFPSY5+8A0A+cAYNx6oIgGb5fkbgb
+fX0NwmtgMHAGhCzbq9wpioJYaLquoQqCUjUSPH8HzAdwBsSwbK/yJ/4vL4qS
+JIoLPUvF7HQ3cAOEwBmwBvySuHTsmmFpwDQAZ0AcHnejCDdAAuAMGBa4AZIC
+Z0AcCNSDpMAZEAfEAEmBMyAOuAGSAmdAHHADJAXOgDjgBkgKnAFxILYGkgJn
+AAAAAAAmnP8HvJxQDw==
+    "], {{0, 130}, {368, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{368, 130},
+  PlotRange->{{0, 368}, {0, 130}}]], "Output",
+ ImageSize->{372, 130},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2069617531]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[Cell[BoxData[
+ StyleBox[
+  ButtonBox["DiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiLog"],
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    "Verdana"]]], "InlineFormula",
+ ShowStringCharacters->False]], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->1466703571],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "ContinuedDiLog - Wolfram Mathematica", "ContinuedDiLog"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 51, 50.464485}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "ContinuedDiLog[{x_1, \\[Alpha]_1}, {x_2, \\[Alpha]_2}] gives the two \
+variable Beenakker-Denner continued dilogarithm function \
+\\[ScriptCapitalL]\\[ScriptI]_2 (x_1 + i \\[Alpha]_1 \\[CurlyEpsilon], x_2 + \
+i \\[Alpha]_2 \\[CurlyEpsilon]).", "synonyms" -> {}, "title" -> 
+    "ContinuedDiLog", "titlemodifier" -> "", "windowtitle" -> 
+    "ContinuedDiLog", "type" -> "Symbol", "uri" -> "X/ref/ContinuedDiLog"}, 
+  "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Contract.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Contract.nb
new file mode 100644
index 0000000000000000000000000000000000000000..1b70d7098c5088ec7b1635c0517b222b290e86f6
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Contract.nb
@@ -0,0 +1,3598 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LTensor\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LTensor"], "\<\"LDot\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LDot"], "\<\"LScalarQ\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LScalarQ"], "\<\"\[DoubleStruckG]\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/MetricG"], "\<\"\[CurlyEpsilon]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/LeviCivitaE"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Contract\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Contract"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Contract.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Contract", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["Contract", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Contract",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Contract"], "[", 
+       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the form of ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " where repeated indices attached to multiplying tensors are \
+contracted."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1269213058],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " applies a list of rules to form the appropriate contractions involving \
+four-vectors, the metric tensor (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"], 
+   RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "), the Levi-Civita symbol (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "), and other generic tensors."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " expresses products of the Levi-Civita symbol (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") in terms of ",
+ "metric tensor (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"], 
+   RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ")",
+ "."
+}], "Notes",
+ CellID->1281696338],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " expands out linear combinations of four-vectors contracted into the \
+Levi-Civita symbol (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ")."
+}], "Notes",
+ CellID->1094146886],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has attribute ",
+ Cell[BoxData[
+  ButtonBox["HoldAll",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/HoldAll"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->170097276],
+
+Cell[TextData[{
+ "If ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " wraps ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", tensors outside are contracted into tensors inside before ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates. ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Contract#1002092898"]
+}], "Notes",
+ CellID->321230505]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(18)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->708800155],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(6)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->712415176],
+
+Cell["Obtain the dot-product of two 4-vectors:", "ExampleText",
+ CellID->176087655],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["k", "\[Mu]"], 
+   SubscriptBox["k", "\[Mu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1431308751],
+
+Cell[BoxData[
+ RowBox[{"k", ".", "k"}]], "Output",
+ ImageSize->{25, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2065169941]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1096203277],
+
+Cell["Contract a 4-vector with the metric tensor:", "ExampleText",
+ CellID->1066734899],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], 
+   SubscriptBox["k", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->330062548],
+
+Cell[BoxData[
+ SubscriptBox["k", "\[Mu]"]], "Output",
+ ImageSize->{17, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->627146735]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->626268926],
+
+Cell["Contract a 4-vector with the Levi-Civita symbol: ", "ExampleText",
+ CellID->209643228],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Lambda]"}]], 
+   SubscriptBox["k", "\[Lambda]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1824823800],
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+   RowBox[{"{", "k", "}"}]}]]], "Output",
+ ImageSize->{57, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->984069421]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->884485335],
+
+Cell[TextData[{
+ "Contract tensors into a ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ": "
+}], "ExampleText",
+ CellID->822978765],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["k", "\[Mu]"], 
+   SubscriptBox["k", "\[Nu]"], 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1669857697],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   RowBox[{"\[Gamma]", ".", "k"}], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p1"}]}], ",", 
+   RowBox[{"\[Gamma]", ".", "k"}], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p2"}]}]}], "]"}]], "Output",
+ ImageSize->{282, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->514014328]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->40254471],
+
+Cell[TextData[{
+ "Contract tensors into an inactive ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " 10",
+ " and above ",
+ "only): "
+}], "ExampleText",
+ CellID->2046835082],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["k", "\[Mu]"], 
+   SubscriptBox["k", "\[Nu]"], 
+   RowBox[{
+    RowBox[{"Inactive", "[", "Spur", "]"}], "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1136473875],
+
+Cell[BoxData[
+ RowBox[{
+  TemplateBox[{"Spur"},
+   "InactiveHead",
+   BaseStyle->"Inactive",
+   SyntaxForm->"Symbol",
+   Tooltip->"Inactive[Spur]"], "[", 
+  RowBox[{
+   RowBox[{"\[Gamma]", ".", "k"}], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p1"}]}], ",", 
+   RowBox[{"\[Gamma]", ".", "k"}], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p2"}]}]}], "]"}]], "Output",
+ ImageSize->{232, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->42649343]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->584904147],
+
+Cell[TextData[{
+ "Contract tensors into an inactive ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " 10 and above only): "
+}], "ExampleText",
+ CellID->1451346310],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "0"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1756758784],
+
+Cell[BoxData[
+ TemplateBox[{RowBox[{
+     SubscriptBox["k", "\[Mu]"], " ", 
+     SubscriptBox["k", "\[Nu]"]}],"k",RowBox[{
+     TemplateBox[{"k", "m", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (RowBox[{"[", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], "]"}]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{
+       RowBox[{"(", 
+         RowBox[{"k", "+", "p"}], ")"}], "0", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+      InterpretationFunction -> (
+       RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+  "InactiveLoopIntegrate",
+  DisplayFunction->(RowBox[{
+     StyleBox["\[Integral]", "Inactive"], 
+     FractionBox[
+      RowBox[{
+        SuperscriptBox[
+         StyleBox["\[DifferentialD]", "Inactive"], 
+         StyleBox["\[ScriptD]", "Inactive"]], #2}], 
+      SuperscriptBox[
+       RowBox[{
+         StyleBox["(", "Inactive"], 
+         StyleBox["2", "Inactive"], 
+         StyleBox["\[Pi]", "Inactive"], 
+         StyleBox[")", "Inactive"]}], 
+       StyleBox["\[ScriptD]", "Inactive"]]], 
+     FractionBox[#, #3]}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{
+     RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+     RowBox[
+      Riffle[
+       Join[{#, #2}, 
+        Part[
+         Map[ToBoxes[
+           ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& ),
+  Tooltip:>"Inactive[LoopIntegrate]"]], "Output",
+ ImageSize->{166, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1200274749]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], 
+   SubscriptBox["p", "\[Nu]"], "%"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1607259108],
+
+Cell[BoxData[
+ TemplateBox[{SuperscriptBox[
+    RowBox[{"(", 
+      RowBox[{"k", ".", "p"}], ")"}], "2"],"k",RowBox[{
+     TemplateBox[{"k", "m", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (RowBox[{"[", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], "]"}]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{
+       RowBox[{"(", 
+         RowBox[{"k", "+", "p"}], ")"}], "0", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+      InterpretationFunction -> (
+       RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+  "InactiveLoopIntegrate",
+  DisplayFunction->(RowBox[{
+     StyleBox["\[Integral]", "Inactive"], 
+     FractionBox[
+      RowBox[{
+        SuperscriptBox[
+         StyleBox["\[DifferentialD]", "Inactive"], 
+         StyleBox["\[ScriptD]", "Inactive"]], #2}], 
+      SuperscriptBox[
+       RowBox[{
+         StyleBox["(", "Inactive"], 
+         StyleBox["2", "Inactive"], 
+         StyleBox["\[Pi]", "Inactive"], 
+         StyleBox[")", "Inactive"]}], 
+       StyleBox["\[ScriptD]", "Inactive"]]], 
+     FractionBox[#, #3]}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{
+     RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+     RowBox[
+      Riffle[
+       Join[{#, #2}, 
+        Part[
+         Map[ToBoxes[
+           ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& ),
+  Tooltip:>"Inactive[LoopIntegrate]"]], "Output",
+ ImageSize->{166, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1390611706]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Activate", "[", "%", "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->84349616],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["m", "2"], "4"], "+", 
+     FractionBox[
+      RowBox[{"3", " ", 
+       RowBox[{"p", ".", "p"}]}], "4"]}], ")"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "0"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       SuperscriptBox["m", "2"], "4"]}], "-", 
+     FractionBox[
+      RowBox[{"p", ".", "p"}], "4"]}], ")"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "4"], " ", "\[ScriptD]", " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "0"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["m", "4"], "4"], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "0"}], "]"}]}]}]], "Output",
+ ImageSize->{405, 75},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->2090006205]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Scope",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(5)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1293636265],
+
+Cell[TextData[{
+ "Obtain the result of contracting two Levi-Civita (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") symbols:"
+}], "ExampleText",
+ CellID->1739739702],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Lambda]"}]], 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Rho]", ",", "\[Lambda]"}]]}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->145397644],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"6", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Mu]"}]]}], "-", 
+  RowBox[{"5", " ", "\[ScriptD]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Mu]"}]]}], "+", 
+  RowBox[{
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Mu]"}]]}], "-", 
+  RowBox[{"6", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Nu]"}]]}], "+", 
+  RowBox[{"5", " ", "\[ScriptD]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{451, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->883029974]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->886055770],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " expands out products of uncontracted Levi-Civita (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") symbols:"
+}], "ExampleText",
+ CellID->515070224],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Lambda]"}]], 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Delta]", ",", "\[Phi]"}]]}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->421758978],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnK2S80YWhr0/YG9jb+C7h8kNTFWWDtikKqbrSrZqS1RMUExMyEjISMjE
+yETExMTAxETAQETAQCu3PJOx1Po5Urt1WnqfquTzF1unT799/DOe1PPPX//z
+8/Kvi8Xij3/k//r5l/+9/f77L9a//p7/5Sfrv7/9+rf8xr/zf6K/LBb32xkA
+AAAAAAAAAABADbf44Du2ZXv70znabraHGNWGw7lzztV0rjWfaoL0sIuS1681
+n2qC2lSf1j1vfiwWq+BwjQ/WYrF4887XtPeS86mmc635VNO51nyqfXJ1l+71
+xWvNp9on8lRLRK4V7HfbSDww3iyd/ZAl66vdosC1bCc8tnbUqbfzLnBs213v
+b4OrpafQsoPGd7Uk2h0rC90ux0N0eBBFx+u3RyBVpPp1F5NUj4ft6n21PRyR
+aqnaK1ItsXes8LgP92KR63Zp7/6skjbvQHJ/XbV467rbS5ZdrDen+8f0+t5O
+9tK93LL02rCz7tWy5LRZObvaK9OD41VnL402/oO17/mb87c3xgGpEjrvkCrh
+jCad6uxnNViv1+7b4t1br33Marma+lRLJAf/x+LNv7/Cp9v8k7QtqqUnz7J9
+37XdTbj2D5WvHuK9bzn++n7/qb1alm5c/xhf8vcfJziWSp1D1/IjcfO2db1j
+2lrt/gWLu3x//1iFp+rGktDbFG9X4ebQobfHnd7KlZ1+ss1DWH28L1duEMny
+k9MjVXoOTalm5DOaZqr0HJpTJefQkGqPyS/u7JtqfqFX/RaxV6rUHPTNKpNU
+q5y33sd7zofrOyv3vnTk2VuxZP7J+s09lC+4nRw7LG6Grn9pq5Y/3vN2aRof
+tr7tbqvP4XNg+8dbsned8FK+q1Ltdg4tJxT7uljvlXfG9OgWIV93bnBqrVZw
+Ce3FmyTkc+j4x/S6X0dp/hOHc6B8kUNOlZhDS6rEM5psqmpnlZhDS6rUExcM
+SDUJ/Y30J3ZyqtR50DmrbFJ93mNyiR8vxknkfTj39KKg2EXi/lj45+LOdB94
+6939L+kx8HZF4diz/GtbtTwWb/vYwd5bX56rFbvxLCuPrvz5X9qbZ+8fm72f
+zq3U22mzFr/3OwaVjGXV7v/5FKz86BR6YVze6c5e7W9Z5AdJlq4tr3xmDdBT
+pebQnCr1jKaaqtpZpebQnKqAcOIZn1SJOeicVQGDVMtL5y0tP3Ly1/ilexRd
+nALH9u9fWG92G8vyL3m7yX6xWLji2+P8lf/t3VqHG9eyNsektdol/9jte56/
+CTz78Xn+WzXBNX8v2VffKWTV8iNeWV4Yru2VvY9vpWqXzerN8gPPta2VvY5a
+q0WBs7SCRORuLd3z807T/H3Tsj7eV45tl3eqOlVqDs2pUs9oqqmqnVVqDs2p
+CggnzihVYg46Z5VLqt1I4jgp3gxu9z/i7Wrxwy8azz/Y56/6168HtBE67vn+
+ThLHn//7xPdqfUivl/jPr76/VUvz3k7XJEmLxslf4Et6u2ydQPIDfj8aUqXS
+nCr1jO5MMVWls9orh9pUFTBSquQcNM6qAl6aajNpfDrGj5WvMeG3e9LHf6+m
+tLfkGJ36vArIqwluyZX++9aea1FoTpV6Ro29GZyq0ll9QQ5qq2lKlZyDxllV
+gM5UAQAAAAAAAAAAAAAAAAAAAAAAAAC6w1nzyLmazrXmU03nWvOpJoCEFhJa
+w6rpXGs+1XSuNZ9qn0BCCwktrTcmCkroUpFqa28NqdalNGCnkNCySLUEGwUl
+qbdWBSVJaMlKlyoBqbauZa6EVppSw05bgIRWMHqq5X7G16WqFHtmdKFlcScD
+XapKsadqta+5qXIWJj8uraZUU612Qop7tUloeQuTvzY7ZqpVRtalqhV7UqWj
+Aha6VLViT7VqX3NT5SxMFtSmVO2teUJ0Smg5C5MFHFJ93uPYulSlYk+q0DKb
+qNhToE7ta26qjIXJspSaqskmBMJkrqmWYxlbl6pU7EkVWk5V7Ek9o8mmyliY
+LEmpubfqhECYzDbVbujSpSoWe/YRWj4zDbFnHyaYKmdhMrlQdUIgTK5WI6I7
+1ZZuXqVLVSz2VC+0NFPsqbQ3c1PlLEymIpkQCJMH9zZyqgAAAAAAAAAAAAAA
+AAAAAAAAAAAAUjgbHTlX07nWfKrpXGs+1QTwzcI3a1g1nWvNp5rOteZT7RP4
+Zmftm+3hh1RoRu2AJjMqPQe+vtkOGOmbNXdW1fpmMau6fLMqHZ5EP2SrGVWC
+etvkC8yopBw0OzylGJEqqXPts0qz+Lag0TerelYlmJtqidEdnl+XdvZDNtkm
+6SbMgbbJms30SpWYgz6Hp7mpKjejFpcqmdWMfEZcfLP0HDi7kbn6ZlU7PDOK
+H7LVNkkzYQ61TdbSw+FJykGzw9PcVFWaUQXKZpX6POLkmyXlwNqNzNU3q9zh
+SfJDttomSSZMVg5PUg6aHZ7mpqrQjJopnVXqGbFKVeGsCkZzI7P1zap1eFL9
+kM22SQHFhMnG4Un2ZGp0eJqbKrlzjbNKfh6xSVXtrFLPyIxUuwGH5wM4PMlM
+NtU+KLP4ItVvGJtqSzdweL4AODxfwetSHc6AM0KqtZibKgAAAAAAAAAAAAAA
+AAAAAAAAAACAFM5GR87VdK41n2o615pPNQF8s/DNGlZN51rzqaZzrflU+wS+
+2Vn7Znv01mCb7GEEbcNIMyq9GlJ99ADfbCvwzZromyX21mKbJBpB2zDWjKrW
+N2tyqrN3IxvgmzXQjWySb7bW99jPNllc2tGE2eC6LC7S6Jul5qDPN/t1qYGp
+8nUjU098cKpMfbOZ4lllkWqVkX2zzb5Huhk1I5kwm12XOs2oxBw0+2YzQ1Pl
+7EamnvjQVLn6ZtXOKptUn/c4sm9W5nts7K3NjEoyYQpKrstxHJ7UHDT7Zk1N
+lbEbmXriAhapUnPQOatcUi0xtm9W4ntsrNZsm6SaMAXPrsuRHJ7UHHT6Zg1O
+lbEbmXrifFLl7Ebmkmo3dPlmJb7HdpSZUSWM5PAk58DYNythLDMqYzdyr8l/
+Zhq+WaWzyj3VZl7mm5X4Hof0NpyRHJ7kHBj7ZjtU02VGZexGfsHkm+mbVTqr
+hqUKAAAAAAAAAAAAAAAAAAAAAAAAACCFs9GRczWda82nms615lNNAN8sfLOG
+VdO51nyq6VxrPtU+gW921r5Zcx2eas2ocHjy983Sq3Gx+Kr1zdaBVKUwMaOq
+dniS3JVtaDSjqnZ4SphhqlKYpEq3+DbuVaNvVgpSlcLBjFpcqsjhSXNXsjKj
+EnPQavE1NNWGTjikWlzaffLrTqG4SKNvVuUrAP2MDEi1yshmVIEyhyfVL8rH
+jErMQavF1+RUmzoxy43cfAo6fbOqXwFIZ2RKqk+MbUbN1Do8ie5KwRQdnkot
+vkanWumkqRpnN7LsFKbgRhYQzsiMVMsbGdmMqtjhSXRXCqbo8FRq8TU3VUkn
+bFIln3j1FCbhRqaekRmpdkObGbUP9WbUPu7KZybh8FRs8UWqHNzI1VOYhhu5
+D8am2szrzKhKe3uBZ9VIh6di6yZSFTdHdiO3P4/MdCMr7Y3MuKkCAAAAAAAA
+AAAAAAAAAAAAAAAAAEjhbHTkXE3nWvOppnOt+VQTwDerdVaf1mVsdORcTeda
+86mmc635VPsEvll9s1qCg20SvtkC+Gb5+2bNnVW1vlnMKgkmtknVvllCb4Je
+tsnZ+WZJ1TI+qZI6n+asvsA3O/tZJcDA4fm4VJFvlmwEHWabrNnM2L5Z1Q5P
+c1Pl60bucUZsfLPUHPRZfLWn2pWRHZ4CZb5ZuglzmG2ylpF9s2odnuamytmN
+TH8ecfHNEnPQbPHVm2o3xnZ4Zmp9s0QTJh+HJzUHnQ5Pc1Pl7EYWEM6IT6rU
+HDRbfFmkWl56ZIenYt8s1YTJxuGp1jdLPaOppsrZjUw9Iz6pcnYjc0m1G7oc
+nr2otU3STZhcHJ5kkOoXMKM+MHJW52Xxbea1RsdhvNaEaaQZVQGTSBVmVGXA
+4gsAAAAAAAAAAAAwhP8DS9MuCw==
+    "], {{0, 96}, {461, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{461, 96},
+  PlotRange->{{0, 461}, {0, 96}}]], "Output",
+ ImageSize->{465, 96},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1053693972]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->415858289],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " expands out added/subtracted four-vectors that are contracted into the \
+Levi-Civita symbol "
+}], "ExampleText",
+ CellID->2117098376],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+   RowBox[{"{", 
+    RowBox[{"p", "+", 
+     RowBox[{"2", "k"}]}], "}"}], ",", "\[Rho]"}]]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1182413989],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"2", " ", "k"}], "+", "p"}], "}"}]}]]}]], "Output",
+ ImageSize->{82, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1254553713]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+    RowBox[{"{", 
+     RowBox[{"p", "+", 
+      RowBox[{"2", "k"}]}], "}"}], ",", "\[Rho]"}]], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->41921626],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "2"}], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "k", "}"}]}]]}], "-", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", "p", "}"}]}]]}]], "Output",
+ ImageSize->{141, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1121717135]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+    RowBox[{"{", 
+     RowBox[{"p", "-", "k"}], "}"}], ",", 
+    RowBox[{"{", "k", "}"}]}]], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->260784179],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+    RowBox[{"{", "k", "}"}], ",", 
+    RowBox[{"{", "p", "}"}]}]]}]], "Output",
+ ImageSize->{75, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->436722116]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1287718092],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " a four-vector into a ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", or into a ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->337777778],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["q", "\[Mu]"], 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"p1", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}], "//", 
+  "Contract"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->873067162],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   RowBox[{"\[Gamma]", ".", "q"}], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p1"}], "-", 
+    RowBox[{"\[Gamma]", ".", "q"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Output",
+ ImageSize->{242, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->364807383]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["q", "\[Mu]"], 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"p1", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], "//", 
+  "Contract"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->579580134],
+
+Cell[BoxData[
+ RowBox[{"\[LeftAngleBracket]", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p1", ",", "m"}], "]"}], ",", 
+  RowBox[{"\[Gamma]", ".", "q"}], ",", 
+  RowBox[{
+   RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+   RowBox[{"\[Gamma]", ".", "p1"}], "-", 
+   RowBox[{"\[Gamma]", ".", "q"}]}], ",", 
+  SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}]], "Output",
+ ImageSize->{287, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1357508014]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->449930767],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " the levi-civita symbol ",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]], 
+  "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " into the products of gamma matrices:"
+}], "ExampleText",
+ CellID->696479882],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Rho]"]}], "]"}], 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "//",
+   "Contract"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1590783332],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", "\[Gamma]5"}], 
+   "]"}]}]], "Output",
+ ImageSize->{163, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1958600242]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], "]"}], 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "//",
+   "Contract"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1954492682],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], ",", "\[Gamma]5"}], 
+   "]"}]}]], "Output",
+ ImageSize->{173, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->819189426]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[TextData[{
+ "Contract a vector boson polarization sum ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"-", 
+     SubscriptBox["g", 
+      RowBox[{"\[Mu]", " ", "\[Nu]"}]]}], "+", 
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     RowBox[{
+      SubscriptBox["k", "\[Nu]"], "/", 
+      SuperscriptBox["M", "2"]}]}]}], TraditionalForm]], "InlineMath"],
+ " into a leptonic tensor:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1072523377],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"leptonTensor", "=", 
+  RowBox[{"Spur", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p2", ".", "\[Gamma]"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{
+     RowBox[{"gV", " ", "\[DoubleStruckOne]"}], "-", 
+     RowBox[{"gA", " ", "\[Gamma]5"}]}], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "\[Gamma]"}], "-", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    RowBox[{
+     RowBox[{"gV", " ", "\[DoubleStruckOne]"}], "+", 
+     RowBox[{"gA", " ", "\[Gamma]5"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1136875059],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SuperscriptBox["gA", "2"], " ", 
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["gV", "2"], " ", 
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["gA", "2"], " ", 
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Nu]"]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["gV", "2"], " ", 
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Nu]"]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["gA", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["gV", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["gA", "2"], " ", 
+   RowBox[{"p1", ".", "p2"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["gV", "2"], " ", 
+   RowBox[{"p1", ".", "p2"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+  RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", "gV", " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]]}]}]], "Output",
+ ImageSize->{442, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1480368137]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{"leptonTensor", "*", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+     RowBox[{
+      SubscriptBox["k", "\[Mu]"], 
+      RowBox[{
+       SubscriptBox["k", "\[Nu]"], "/", 
+       SuperscriptBox["M", "2"]}]}]}], ")"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->30384107],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "4"}], " ", "\[ScriptD]", " ", 
+   SuperscriptBox["gA", "2"], " ", 
+   SuperscriptBox["m", "2"]}], "+", 
+  RowBox[{"4", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["gV", "2"], " ", 
+   SuperscriptBox["m", "2"]}], "+", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SuperscriptBox["gA", "2"], " ", 
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"k", ".", "k"}]}], 
+   SuperscriptBox["M", "2"]], "-", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SuperscriptBox["gV", "2"], " ", 
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"k", ".", "k"}]}], 
+   SuperscriptBox["M", "2"]], "+", 
+  FractionBox[
+   RowBox[{"8", " ", 
+    SuperscriptBox["gA", "2"], " ", 
+    RowBox[{"k", ".", "p1"}], " ", 
+    RowBox[{"k", ".", "p2"}]}], 
+   SuperscriptBox["M", "2"]], "+", 
+  FractionBox[
+   RowBox[{"8", " ", 
+    SuperscriptBox["gV", "2"], " ", 
+    RowBox[{"k", ".", "p1"}], " ", 
+    RowBox[{"k", ".", "p2"}]}], 
+   SuperscriptBox["M", "2"]], "-", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["gA", "2"], " ", 
+   RowBox[{"p1", ".", "p2"}]}], "+", 
+  RowBox[{"4", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["gA", "2"], " ", 
+   RowBox[{"p1", ".", "p2"}]}], "-", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["gV", "2"], " ", 
+   RowBox[{"p1", ".", "p2"}]}], "+", 
+  RowBox[{"4", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["gV", "2"], " ", 
+   RowBox[{"p1", ".", "p2"}]}], "-", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SuperscriptBox["gA", "2"], " ", 
+    RowBox[{"k", ".", "k"}], " ", 
+    RowBox[{"p1", ".", "p2"}]}], 
+   SuperscriptBox["M", "2"]], "-", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SuperscriptBox["gV", "2"], " ", 
+    RowBox[{"k", ".", "k"}], " ", 
+    RowBox[{"p1", ".", "p2"}]}], 
+   SuperscriptBox["M", "2"]]}]], "Output",
+ ImageSize->{560, 70},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->268749180]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to take ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"d", "\[Rule]", 
+    RowBox[{"4", "-", 
+     RowBox[{"2", "\[Epsilon]"}]}]}], TraditionalForm]], "InlineMath"],
+ ", and simplify the result:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1813362846],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->77753502],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  RowBox[{
+   FractionBox["1", 
+    SuperscriptBox["M", "2"]], 
+   RowBox[{"4", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["gA", "2"], " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "-", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["gV", "2"], " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "-", 
+      RowBox[{
+       SuperscriptBox["gA", "2"], " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"k", ".", "k"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["gV", "2"], " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"k", ".", "k"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["gA", "2"], " ", 
+       RowBox[{"k", ".", "p1"}], " ", 
+       RowBox[{"k", ".", "p2"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["gV", "2"], " ", 
+       RowBox[{"k", ".", "p1"}], " ", 
+       RowBox[{"k", ".", "p2"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["gA", "2"], " ", 
+       SuperscriptBox["M", "2"], " ", 
+       RowBox[{"p1", ".", "p2"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["gV", "2"], " ", 
+       SuperscriptBox["M", "2"], " ", 
+       RowBox[{"p1", ".", "p2"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["gA", "2"], " ", 
+       RowBox[{"k", ".", "k"}], " ", 
+       RowBox[{"p1", ".", "p2"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["gV", "2"], " ", 
+       RowBox[{"k", ".", "k"}], " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ")"}]}]}]}]], "Output",
+ ImageSize->{526, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->398112974]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell[TextData[{
+ "If ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " wraps ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", external tensors are contracted into ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " before evaluation, leading to faster evaluation:"
+}], "ExampleText",
+ CellID->1002092898],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Slow", " ", "method"}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"Timing", "[", 
+   RowBox[{
+    RowBox[{"myTrace", "=", 
+     RowBox[{"Spur", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", "p"}], "+", 
+        RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", "k"}], "+", 
+        RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+       SubscriptBox["\[Gamma]", "\[Rho]"], ",", "\[DoubleStruckCapitalP]L", 
+       ",", 
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", 
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}]}], "+", 
+        RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", 
+         RowBox[{"(", 
+          RowBox[{"k", "-", "p"}], ")"}]}], "+", 
+        RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+       "\[DoubleStruckCapitalP]R"}], "]"}]}], ";", "\[IndentingNewLine]", 
+    RowBox[{"result1", "=", 
+     RowBox[{"Contract", "[", 
+      RowBox[{"myTrace", "*", 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+       SubscriptBox["p", "\[Rho]"]}], "]"}]}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->290228873],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.01519799999999999970401454163493326632`4.202386353453816", ",", 
+   RowBox[{
+    RowBox[{"2", " ", "\[ScriptD]", " ", 
+     SuperscriptBox["m", "3"], " ", 
+     RowBox[{"k", ".", "p"}]}], "+", 
+    RowBox[{"4", " ", "m", " ", 
+     RowBox[{"k", ".", "k"}], " ", 
+     RowBox[{"k", ".", "p"}]}], "-", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", "m", " ", 
+     RowBox[{"k", ".", "k"}], " ", 
+     RowBox[{"k", ".", "p"}]}], "+", 
+    RowBox[{"4", " ", "\[ScriptD]", " ", "m", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"k", ".", "p"}], ")"}], "2"]}], "+", 
+    RowBox[{"4", " ", 
+     SuperscriptBox["m", "3"], " ", 
+     RowBox[{"p", ".", "p"}]}], "-", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", 
+     SuperscriptBox["m", "3"], " ", 
+     RowBox[{"p", ".", "p"}]}], "-", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", "m", " ", 
+     RowBox[{"k", ".", "k"}], " ", 
+     RowBox[{"p", ".", "p"}]}], "-", 
+    RowBox[{"4", " ", "m", " ", 
+     RowBox[{"k", ".", "p"}], " ", 
+     RowBox[{"p", ".", "p"}]}], "+", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", "m", " ", 
+     RowBox[{"k", ".", "p"}], " ", 
+     RowBox[{"p", ".", "p"}]}], "-", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", "m", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"p", ".", "p"}], ")"}], "2"]}]}]}], "}"}]], "Output",
+ ImageSize->{478, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->66696226]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Faster", " ", "method"}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"Timing", "[", 
+   RowBox[{"result2", "=", 
+    RowBox[{"Contract", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"\[Gamma]", ".", "p"}], "+", 
+         RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{
+         RowBox[{"\[Gamma]", ".", "k"}], "+", 
+         RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+        SubscriptBox["\[Gamma]", "\[Rho]"], ",", "\[DoubleStruckCapitalP]L", 
+        ",", 
+        RowBox[{
+         RowBox[{"\[Gamma]", ".", 
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}]}], "+", 
+         RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+        SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+        RowBox[{
+         RowBox[{"\[Gamma]", ".", 
+          RowBox[{"(", 
+           RowBox[{"k", "-", "p"}], ")"}]}], "+", 
+         RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+        "\[DoubleStruckCapitalP]R"}], "]"}], "*", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+      SubscriptBox["p", "\[Rho]"]}], "]"}]}], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->204228769],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.00868799999999999954247709155197298969`3.959519725524396", ",", 
+   RowBox[{
+    RowBox[{"2", " ", "\[ScriptD]", " ", 
+     SuperscriptBox["m", "3"], " ", 
+     RowBox[{"k", ".", "p"}]}], "+", 
+    RowBox[{"4", " ", "m", " ", 
+     RowBox[{"k", ".", "p"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "k"}], "-", 
+       RowBox[{"p", ".", "p"}]}], ")"}]}], "-", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", "m", " ", 
+     RowBox[{"k", ".", "p"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "k"}], "-", 
+       RowBox[{"p", ".", "p"}]}], ")"}]}], "-", 
+    RowBox[{"4", " ", "m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "k"}], "+", 
+       RowBox[{"k", ".", "p"}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "p"}], "-", 
+       RowBox[{"p", ".", "p"}]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", "m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "k"}], "+", 
+       RowBox[{"k", ".", "p"}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "p"}], "-", 
+       RowBox[{"p", ".", "p"}]}], ")"}]}], "+", 
+    RowBox[{"4", " ", 
+     SuperscriptBox["m", "3"], " ", 
+     RowBox[{"p", ".", "p"}]}], "-", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", 
+     SuperscriptBox["m", "3"], " ", 
+     RowBox[{"p", ".", "p"}]}], "-", 
+    RowBox[{"8", " ", "m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "k"}], "-", 
+       RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+     RowBox[{"p", ".", "p"}]}], "+", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", "m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "k"}], "-", 
+       RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+     RowBox[{"p", ".", "p"}]}], "+", 
+    RowBox[{"4", " ", "m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "k"}], "-", 
+       RowBox[{"k", ".", "p"}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "p"}], "+", 
+       RowBox[{"p", ".", "p"}]}], ")"}]}], "-", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", "m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "k"}], "-", 
+       RowBox[{"k", ".", "p"}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "p"}], "+", 
+       RowBox[{"p", ".", "p"}]}], ")"}]}], "+", 
+    RowBox[{"8", " ", "m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "p"}], "-", 
+       RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "p"}], "+", 
+       RowBox[{"p", ".", "p"}]}], ")"}]}]}]}], "}"}]], "Output",
+ ImageSize->{503, 65},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->97789396]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"result1", "\[Equal]", "result2"}], "//", "Simplify"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->883942028],
+
+Cell[BoxData["True"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1833298604]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->163688124],
+
+Cell[TextData[{
+ "If ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " wraps ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", external tensors are contracted into ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " before tensor decomposition, facilitating the cancellation of scalar \
+products common to the numerator and denominator (provided option ",
+ Cell[BoxData[
+  ButtonBox["Cancel",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate#377984336"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is not set to ",
+ Cell[BoxData[
+  ButtonBox["False",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/False"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "):\[LineSeparator]     ",
+ "     ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    GraphicsBox[
+     TagBox[RasterBox[CompressedData["
+1:eJzt3b1u80p6AODJT5HSd3AU+AZ8CUrqFMamSKtdJGljbAIEp1O5pa8g0CUY
+ewNRuUUKlwukURMg6VSkSeWIx6PP1HgoURKpocjnAE/2i0VJryiKL2femeFf
+/uaffvWPfxpC+Oe/2P2fX/36X//qt7/99c9/++e7/+evf/6Xf/jNn+3+8fgn
+IfznTvXHj48PYKAef5o977ztrHfedz5qFqXjA4B7t8unLzvbJMfuzUrHBwBj
+ssutr7U8uykdDwCMTZJr30rHAwBjk9RrX0rHAwBjssutD0mt9ql0TAAwJnE8
+8j7PbkvHAwBjo1YLAP1SqwWA/qjVAkC/1GoBoF/n1GqrNu/OMpqXjh0A7kGb
+Wm2VV6u1pOJ6juv472r7Ven4AWDI2tRqq3sQxMeWcfuHmG/VdwHghFO12ti/
+vK33F1dt2SQ/z28VLwDcm2O12to9gJ6Sv6+TXDsr/TkAYKiaarWx3/hbno2P
+PcfHtu5xCwDH5Wq1x/IsANBeHFt8UKuN45/kWQDoQMyrP+4NH+uw8iwAdCQz
+xukjjjF+Md4JAK6X5NhqPPJbbNfu/7Y2nwcALpOr1dYee0ny8KJ0vABwb5Ja
+7bc1kJN8W7V1H0rHDAD3JKnVNq2BXO9Pnmcen5X+HAAwVKfWQI7bvJ/ItRv9
+ywDwXVKr3RzZrnHN48fPe+tZnxEAMpJa7erIdvVc+5A8Vo1bfi/9WQBgiJJa
+7eLIdsfu/7NpqvMCwNS1vUdPrV67Tv6+v/+PsckAkGhbq43b7u8R/yOvxjrt
+VpsWAPKqdmxtLs+yxfb7+9vu10v+ZY2p0p8DAIYstk0XZ2w/i21c6yQDAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAMHq7/55KxwAAY7b7b71T/WMb/73cWcjB
+ANCNmGeb1PPvvHSsAHCPTuTaXO59i+3eh9KxA8A9ODPXpuRdADjhylyb5t3n
+0p8HAIakGv/UYa6t9zO/7sxKfz4AKKnKhTsvPeTatK07L/1ZAaBPse36HMcS
+V2OK33vOrzl/3Pn70vsCALpQtSNreXVbIK+e8h77mKv8b0wVAIMX26373HpO
+vlvHPt4h5N4qfmtnADAYMb9WbcPNiTy2nw+7jO3IWfI6yx5zaPXef4i5tPLH
+cLqdXT2+CsYzA1BAy/y6iblqkebVhtfsIteu43tWrzU/1T4Nn2Oynlt8ln3e
+1d4FoDe7/x5i3jw2nqnKdS9tcmvm9c/NtVVufIvv10kOjLl3EY73Z2/ie6rv
+AtCJmH9eQ3OfayfrNcX3aNMH3VluPRHP/triWN5dXXJdAQCVmGNXJ9p2sw7f
+b93wPr+MEy68L0616avY56W/MwDuQ/isxeby3r4dN+/pfffvOejaaNw/q4Z2
+vpwLQKMj7dgqpyz77iuN7ddF6f1wRrwPcb/IuQAcFXNGrla6z7HGAJ3eh4uQ
+H8esngswcbHmmrbL5NjL92cu59qfABMUa465cT6vcsLV+7apb3mjXxlgGkJ+
+HutaX2fn+/mhof795noGYJwa2rJVW8sahP3u93lmv2/td4BxaWjL6i++/XeQ
+9iv7DgDuXOzHXKsbDkP4nFeVfh9Vm3eQc4kBOC72XWpHDVCmn6H6nhal4wKm
+6fGn2XxnubOOXnYekm2eq21Kxzok4XMuj/rggMX6+Sb5nlal4wKmI+bY952P
+nU3Mt8v47/d9vt397yJu81Y65qHIjH19N8Z4mGIff3pvg7W+B6BvMad+RMvk
+sYeYa6s27tPONm73Ujru0uJ5Ox3vuiodF62+u7QfQg0X6M0uZ65qeXbRsM0s
+Pr6tbTvp81Icc5Pm2ez+Y5jC5z3r6/X1rXwLdC3WYj/a9AnX+pd/ybmlYy8p
+1v3Sc/S8dFxc/F1ugjo70IPYH/xRa68erVftHn9tm5fHrCHPagvdsYZawKJ0
+XMD9S9qpyxbbr2vbT7JWm8mz78bUjIN8C3StNpZ4b3Zi+4dk+8m14+TZaciM
+KV+Ujgm4T0mb9r3F9s9TrtXKs9Mi3wLXqo0pbt0fPOVarTw7TZl8Oy8dE3A/
+krHHrfqDk3bwZGq1sYa3kWenKRyueWEMHNBa1S49pz94qrXazFgZeXZiMsdA
+lW9npeMChi8ZT7xusf0ka7XaNMTjwDUXcLYk1y5bbD+5Wm34vDePPMv+eHhI
+avaT+B0Al0ty7aLF9psp1WqrMafGoJLKjJFblo4JGK4k185PbFtfW2r0tVrn
+U47JXIdZyxHISvqE5ye2rd+XYNS12kxdTj8h32TqC7PSMQHD8/h5n9qT9drM
+2lKjzj3JfMqN8S80CZ/3u/0xVqp0PMAw1fqRNw2P7+fg1u+hN9pabfi8t1q9
+b3DUfeVcJzNWalk6JmB4Hr/u//4R+4kf4t/nMQ9vM+3aUeafzHlztNcUdKda
+R8r1GXBKzLerJJ/uc+8s6Wseba02mUe7Lh0P9yOp3ao7AEfFvDpP/rYce602
+6Ts2zoWzhO9reC5LxwTcl7GvgazvmC7oSwYuNYU1kJNxx+vS8XC/kr7kdel4
+gPsw9jWQM22RWemYuF+ZvuRF6ZiA4Rv7GsjJ/Mhl6Xi4f5nav3FSwFFjrtWG
+w3X2jB2lM67hgLaS/uPKqNZ81ddHX8LnetrGtQNZsc94+/h9ru2Pmm1c42Je
+OtZrJG3adel4GJ9kzN2qdDzAcMQ1GZct3HV/a9KmnZeOh/Gp2rLG3QFTpU3L
+rSRzgFal4wG4FW1abiXOAdK2BSZFm5ZbS+q2r6XjAeibNi23ltRtzbcFehfX
+aZoXfO8f82lL7wumI2nbjmqeOjA8tfrVssB71++Ztyi9L5iOZL7tpnQ8wPjV
+rvHXtxoroh+P0nb/vatfALcSDteL/aWN23fuq/rtjE+hpGRc3qp0PMD4hcP7
+xe7XI170+H71MVGz0p+f6Qnf75OsbwXoVTJWpNecm9TK3kt/dqYrOe4XpeOB
+qYo1zCn4j5DPtfWcW/X7Xn3tHw7X7jEGlGLC4Vj40d2jEu7FifwzVatwRb9v
+OOw/1m9HUY5HKG8AeW1ItjHPPl2xP+v9x9oRFBcO+1kWpeOBKQqfY3KnoD7X
+NbUJ+o8ZqeD6D7iR8FmzzeXYRcfvU5/TOCv9uaESauORS8cCjFP4fl/Pbehh
+jm3yPsYfMxjhcDzyc+l4gPEJh+tKvPXV3gyHawdYv4LBcGwCfYt9xdu+r+eT
+tsO89OeGvXB4X1t9LkCn4riQ9677ixvea6MmxlAlYwnM/QE6c6vxSUmtdl36
+c0MqGSOvZgvcnXB4f4Nl6XggldRsl6XjAThXHNeszcBg6XsB7l0yf3dWOh7I
+qc2z3ZaOBeBczmHcg+Sa0Pgoburxp9nrznan1Tq4u+0edl7abs+4JfMp1qXj
+gSZJrWNeOh6mY5cvn3c+olbzznbbreP2VX6elf4MlBUO71tmnQAGKxkfZb1u
+bia2afe5ttW63LXtP7RtSdalcv5isFwXUkrVlq3lzZPnyaQdrDaHfjnuhnoH
+JcS661lt1EvawYxbOLxfn34OBs1ajTSJOXEezc587lPTcy5po57bDmb86mM7
+S8cCp9TXaiwdC+Xt8tgqaXPubc54jeWxPHpuGzXTDp6X3k+UF6yDzB1xbche
+zGmvcbzvJslvqzNe58dzGx6/plabfU2mR/2Le6LmQZMk1y5aPufpWF7soFa7
+Lr1fKnHdtXmiyBz18HlPnYNYCsXxkNknsx7fT67lbpwayzeU33GMJf0dF7k2
+GNJ5ti+ZnDhr+byj/cMd1GqXpfZJzCXLet9lRlWTeen7eIjH3Cp8rZuU83aL
+32v4nDv4fiSOan+9dpl3g3Gd3Jlcro25pM3veHGD+BbhsO2d2sZYZz3HMRvK
+efYWkpy4OeN529rzvq0Ff6+12vi9Hvs95I7LztfCjznm2O8hZ93H7yPm+2O/
+h9w+WXb43uYrcjeSXPs34fBee21U+aXz9mX4utf0ObG89pHn4j465zy76eM8
+e0tJTly1fM7iVH5+/Fr76W7m1cZrudxxv6x5bTheW+27lnE8ZY7Dbcy99VhW
+Ddt19jsNh+vgpO3XeizrzHbra3+nSa5dljgu4BzJb+a/Mr+L3O94k9lu0XFM
+6bliE9+7Hkvu+v792t9xLY6mNkTb8+yy9Pd7qaTfttV3m4ynyj7n3Dbque3g
+roXvebY6HmZHtn/K5Jer213he56t/n20DyXzO+ok34bvebY69hu/y/DVT3aQ
+b6+MQa7lriTH7EGeOPE7fs7k3EUH8Twnr7k59rrhq4bWeb7NnDNXJ86z88xz
+7m4u6CW12qRNm52r/fg5T/es8cTHxizHNm9v/QeZ46rxOMw89yV57lVxhsNr
+ufdjx2HyvIfkuZtrfhuZ88XqjOemuX/ZURwXvw7cSua30/raN/6OV8lzZ1fE
+Mkt+i29tzwvh+3X/VW2JK8+zq+S58w6+p4v367nOrdXG3Fxv02aPn8evebet
+7jdwasxyfM/ermXC4bVk6++/4Ri6OMdd+zqZfLvsaJ+sLnj+IvltXNTO3v33
+c+01/q2vYwC6svvv72rH7P9dcuyHw37W9RWxXPU6Md9eneMyr7O44DXq+XZz
+xT7Zj8m5eL+e69xabbL98sh29Vrtyc+T5OZt8tjTsbzehdrxePF1Wzjs5zi5
+L1sci/ML47j6dTo8putjQs7ug4rXDv9Te43f93UMQFfC53io/TH77xe+xkM4
+bFOe3dZIrncvbh/30Aa45jx7bRtgXj8/3uqYOKdWm/QLr09s+3HGtmlbeZ08
+/nLO+OgLv7+LjsHkNdIc1/o4CN/7as4+hpLXq+e4s8ZJhw77auJvrP7baJ1v
+w2ffVzo2YtnncQBdCB3VPcL3OuvijOcukude1S8YxlHbmocO+8TbOqdWWz1W
+m+NT5efGfZXWak/lycfva0Uuk8erPHwXcz0yx/epsUR9jkFI89TRea+hpzEI
+meuI7alzRmied7W8Nh7oW1e5Nr5Weu17aszmLHwf57vq4DNlx2yeeM4iHF5r
+dzVmMx0js25xnk3nXd3svhBta7UxJ+/bv9tTfblJf3DjnJ/4um/xNeuxvNa2
+eWk7ZmsoMvl2fy23nyOzCLcbW58bM/+WxNH72PrM73S/T1ZJLKvMdv8r13JP
+Qsf3W87k2/25Yhnf6yX+u9RcxNzveJPZrsu5iMuGfXLT82wbbWq15+bZ+Jx6
+rbbeN/z6+HUvodf4epv9a9Zy9D73vsR/30WbNjkO5plj7ZQ+54yfE0cVdx9r
+c8xCfg7uMdX29drXsvR3C6ckv7l5R6/Z1NfT5GS788I4Hi78HfexNkdujtTJ
+8+ytj4dTtdo4Jmm/zXvbtmXSnq1eY1Frv37UXu8l7YuO225qOXd56/3S8bGw
+CMfXadlfE7bat1fEMYu5/Nhv9T3cbs3J3LVm3Vv4Wtvuof6bLf2dwil95Nr4
+uvua07H8sgkn5vF2FEvb3/Gi5zgehnKezTlVq43tyn1uXB2rzybPq9dqi6z9
+NETha63+Rcxn8z6u81rG8hTf/yXGMy9xDMZYqvd+jueGedN5Sa7lnvSVa5P3
+mA3sdzyPn/s5FLpvwJDOs3tNtdo4Buqt3pd75uvWa7U3X/uJcZJruSfBPfWI
+0lptzLHLmF+38d9nX5c8nrkGMrRR6zPTV8LgBfeKJ0pqtQf10UtybO11G9d+
+gks5d3FP6rXD0rFQVq0Wu419xosOXlOtll4kfXKz0vHAMbVj9WZzOBmm2Gfc
+abtTrZa+3GKsCXQhGDdPz9Rq6UvoeG0A6Es4XDPq7tYGYPjUaulL6HDNO+hT
+cl24LB0P41Nf96J0LIyLfjnuRThcd3deOh7GJ66PMb9mHDM0CV9rXhl3x2CF
+w/ULZ6XjAThHcg5zPccguSYE7lnSN9f5vRHgWuFz3US1DuBuhcP7Zi9LxwOp
+cHg/zWXpeADOpc3A0Ol7Acagti7yR+lYIBUO7+tmTAFwl8LnPSjNp2Bwknlp
+5j0Cd0s9jKFKjk3rRQF3K6nZajswGEmfi1otcNfqNVs1MYaiNq/WcQncvWSs
+56J0PBAO1+t2jzPg7jmvMTTJ9Z/7UAGjoL+OIUnqGrPS8QB0IRmHsigdD9OV
+9LMYrweMRnJ+W5eOh+lKrvv0HwOjot+O0uL6FeoZwGhVa1lY14KSkvUrjNMD
+RidZ18K9Qrm5cLj+sfUrgFGq2hLGSFHC7r+n2rG3KR0PQF/C4T1t16XjYTqS
+MVHL0vEA9CkZIzUvHQ/jl9QvjIkCRi8Zn7IuHQ/jl7RpV6XjAehbZt7FU+mY
+GK/M8TYrHRPALSTzf9al42G8kmNtVToegFvJtDXmpWNifDJ12lnpmABuSduW
+vqnTAlOnbUuftGkBPiVjkjel42E8qr6S2rH1WjoegJKS+bbuu8LVkjVTtubT
+AlMXDu+3t9XXxzVibcL1G0AiHK6T7P4rXKzqL64dS+4FDxDFcSz1cVLuwcLZ
+wuH9BYy3A0hUfX1qbFwjHN4zz3gogIxk7Ki+ZFpL+o43rtUA8jJ9yYvSMTF8
+yfg6fccAJ2T6kmelY2K4Mmui6DsGaCEZl/yuP5AmSd3BsQLQUqatsiodE8MT
+DtfUro4X92cEOENm/saidEwMR7I2lOMD4EJJ7daYF34Rr8P0ewB0JBzeF00/
+4cSF72swWhsK4Erx3Fpfo8D4l4nKHAvWPAHoSK4t4xw7PcmYY30cAB3L1Ojk
+2wlJaglq9wA9yeRb6zhOQCbPLkrHBDBm4ft6fKvSMdHr9y3PAhRQnW+T8+9a
+f/L4yLMAZWXyrfrtSMSxcPIswADIt+OTmdcjzwIUlhkvZS7InQqf91SUZwEG
+qCHfPpeOi6u/w0XpuAD4Es/VaZvopXRctPru0lqAvgmAgYq1vnVy3n5Twx2m
+hjFQ7/IswPBlzt8b5+9haeiHcF0EcEdiv+Q26FMenPB5r8T0u1mWjguA8zW0
+nao+5lnp2KYo9hm/ZWqz89KxAXC5hprgVhv35t9Drp9hrc8YYDyqOUAN53p1
+3H73+ywzXs21DsBINfRhVl61r3rZ18vMvtaHDzABsY270dbqbf/m+ovtX4CJ
+ie2u10y7q8rBi9Lx3aOYY9NrmI9YL9dvADBRDfVEOfe8fdiUY9fGGAOwFz7v
+QT+KnBs+5zr13l97JMfe3T4D4HaO5I9tHOszKx1jQ9xV+/ylFvu6x/dZZuqx
+ciwAZ4k5N9fO3a8lWPw+QrX8mq7X0XmuDZ/jyXJjuOVYAK4S+5abckzVtlvd
+Mu/GeF4b8munuTb2Ra8a2rD7emzxaw4AxiG2IV+P5J3O8274HCs9j322TW3s
+Jm8Xvudz/Bybhtfdf85Z6e8EgPE60Z9ab/NVOXLe8jXn8XX3ebUp17W1PON9
+2+Ty6vMugrk7ANxQbHcuWuTdfU3zD3Hb38fcdm5b9apcGz77hKt4X1u+d7XN
+izYsAEMQ8+6p/tdbWtfaq6dqu2n/sPYrAIMX25AvMXf99wByb1NufYtxugcD
+AHcttnt/VzDvvse8WrV1q/b3rPQ+AYC+hOY1qrr0u/g+s9KfFwBKCZ/ziFah
+eR7RNealPx8ADEX4Gs/cZVt3XvpzAcAQhePrLrZW+nMAwD2o5d0283flWgC4
+Ujhc4+lojbd0rAAwBuH7OlBbuRYA+hXHWc1LxwEAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAMBpjz/N5tEyet1Z7zyXjg0A7t0un77sfDRYlo4PAMZgl1MX
+sT37luRa7VoA6FDsR67n2ofSMQHAmMS27T7PvpeOBwDGJo6H2ufa19LxAMDY
+qNUCQH/UagGgX2q1ANAvtVoA6JdaLQD0R60WAPrVtlZbtXeTvuatdRy/7aPq
+umUV982PfVr9vbbNQ9yPb6XjBeA2TtVqY27Y548qLz9Fm/icRenPUFrcR2/1
+a5CdWbSKf5/Hbd+tNw0wLcdqtTGHvEez+Lcn9yg42Ef1644f+ynZ5i1us6rt
+t3np2AHo37FabZJn639fyrU/9sWs1l+8zeXZ2nYH91EqHTsAt9FUq23Ks/Gx
++n34tlMdS1XbR63Gbyd99evS8QNwG0212vj3b3m29ng1Tmox1Twb98HrObkz
+2dfL0vEDcBtprbY2Dqoxz5LtE563eM72nO0BuH+ZWu28qd/4BrHM4vv3rZPP
+lYxx2rTY/mA8WenvHoDbyIxx2o+jvXWefcnE0ZdqLPDTlfE+JK95ck3L5DOu
+S3/3ANxGUj/M5dyb1GMfv+agrm9g2UG8i2RfnVzT8vFr7q1aLcCE5PLF4/e1
+oa5uB45N0n/cak3LR7VagMl5PLEGctJ2m+y8noZ9V5/nc/L+g49qtQCT9Nhi
+DeQkp7yUjnkokmuUVYvt1WoBJijpJ86O7Uny8TLzeNX2XZT+LAX23VlrZqnV
+AkxTm7E9SV1ymXl8M8X2brLv5i22V6sFmJhTtdradvW270vy2H4th8mNm0r2
+y/zEtgdjlkvHDsBtJH3D6yPbNeaUWIPclP4shfZffW3GxZHtHpI2beO+BmBc
+khy6bLldOk55M8Vabfzss9p+aap1p/clUKsFmJC29cak/3NW+/tyqm3a2j7Y
+t22/3Ufv8XOOz3sm1zbuawDGpdavuW2x7T5frGOddxWfP7k6bWbf7MeObfZj
+smt/q3Lxs1otwDTFdte6bR9wrM3u1zhcybMH+6a6/nhL9s88PtaqLg4AXKZt
+XRwAuIxaLQD0J53DXDoeABgbtVoA6Fcy32dZOh4AGJO4joVaLQB0KK4lNY9z
+bNdJrl3Fubbz0nECwD3KrHt8TPaeSjBm/w+Vje4E
+       "], {{0, 291}, {475, 0}}, {0, 
+       255},
+       ColorFunction->RGBColor],
+      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+      Selectable->False],
+     BaseStyle->"ImageGraphics",
+     ImageSize->{113.06458333333308`, Automatic},
+     ImageSizeRaw->{475, 291},
+     PlotRange->{{0, 475}, {0, 291}}], "  ", "=", "  ", 
+    RowBox[{
+     RowBox[{"i", " ", 
+      RowBox[{
+       SuperscriptBox["\[CapitalPi]", "\[Mu]\[Nu]"], "(", "q", ")"}]}], "=", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["e", "2"]}], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["d", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{"Tr", "[", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+            RowBox[{
+             RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+            RowBox[{
+             RowBox[{"k", ".", "\[Gamma]"}], "-", 
+             RowBox[{"q", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SuperscriptBox["m", "2"]}], ")"}], 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"k", "-", "q"}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}]}]}], TraditionalForm]],
+   "InlineMath"]
+}], "ExampleText",
+ CellID->1707760664],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["q", "\[Mu]"], 
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{"Spur", "[", 
+      RowBox[{
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{
+        RowBox[{"k", ".", "\[Gamma]"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+       RowBox[{
+        RowBox[{"k", ".", "\[Gamma]"}], "-", 
+        RowBox[{"q", ".", "\[Gamma]"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "q"}], ",", "m"}], "}"}]}], "]"}]}], "]"}]], "Input",
+ 
+ CellLabel->"In[1]:=",
+ CellID->1133947369],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->807699575]
+}, Open  ]],
+
+Cell[TextData[{
+ "Contraction after tensor decomposition requires ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to show that the integral vanishes:"
+}], "ExampleText",
+ CellID->334692701],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{"Spur", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{
+      RowBox[{"k", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"k", ".", "\[Gamma]"}], "-", 
+      RowBox[{"q", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "q"}], ",", "m"}], "}"}]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["q", "\[Mu]"], "%"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"%", "//", "LoopRefine"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2061342716],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["q", "\[Mu]"], " ", 
+   SubscriptBox["q", "\[Nu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "2", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], ")"}]}], 
+  "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"q", ".", "q"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{459, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->497643213],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"q", ".", "q"}], " ", 
+   SubscriptBox["q", "\[Nu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "2", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], ")"}]}], 
+  "+", 
+  RowBox[{
+   SubscriptBox["q", "\[Nu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"q", ".", "q"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{449, 28},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1588159473],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1122014148]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(4)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not check for syntax errors.  ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will form the dot product between the first pair of repeated indices it \
+finds if indices are repeated more than twice:"
+}], "ExampleText",
+ CellID->727087315],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["k", "\[Mu]"], 
+   SubscriptBox["q", "\[Mu]"], 
+   SubscriptBox["p", "\[Mu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1091587931],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"k", ".", "p"}], " ", 
+  SubscriptBox["q", "\[Mu]"]}]], "Output",
+ ImageSize->{41, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1732859737]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->312209094],
+
+Cell[TextData[{
+ "All subscripted symbols are interpreted as ",
+ Cell[BoxData[
+  ButtonBox["LTensor",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LTensor"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Variables with subscripts not intended to represent vectors may be \
+processed by ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X functions in unintended ways:"
+}], "ExampleText",
+ CellID->995693237],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Quark", " ", "mass", " ", "squared"}], "*)"}], 
+  "\[IndentingNewLine]", 
+  SuperscriptBox[
+   SubscriptBox["m", "Q"], "2"]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1016040293],
+
+Cell[BoxData[
+ SubsuperscriptBox["m", "Q", "2"]], "Output",
+ ImageSize->{17, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2077322721]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Package", "-", 
+    RowBox[{"X", " ", "interprets", " ", 
+     SubscriptBox["m", "Q"], " ", "as", " ", "a", " ", "four"}], "-", 
+    RowBox[{"vector", " ", "m", " ", "with", " ", "index", " ", "Q"}]}], 
+   "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"Contract", "[", 
+   SuperscriptBox[
+    SubscriptBox["m", "Q"], "2"], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->159633947],
+
+Cell[BoxData[
+ RowBox[{"m", ".", "m"}]], "Output",
+ ImageSize->{25, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->73505438]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->809243300],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not contract indices within ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects:"
+}], "ExampleText",
+ CellID->1572138619],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[Gamma]", ".", "p"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1865957696],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{"\[Gamma]", ".", "p"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]], "Output",
+ ImageSize->{166, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1177212639]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m2"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"p1", ".", "\[Gamma]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m1"}], "]"}]}], "\[RightAngleBracket]"}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2097325633],
+
+Cell[BoxData[
+ RowBox[{"\[LeftAngleBracket]", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p2", ",", "m2"}], "]"}], ",", 
+  SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+  RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+  SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p1", ",", "m1"}], "]"}], "\[RightAngleBracket]"}]], "Output",
+ ImageSize->{232, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->823904302]
+}, Open  ]],
+
+Cell[TextData[{
+ "Instead, apply ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->194324457],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[Gamma]", ".", "p"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->2075733776],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"2", "-", "\[ScriptD]"}], ")"}], " ", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{"\[Gamma]", ".", "p"}], "]"}]}]], "Output",
+ ImageSize->{161, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1865178814]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"p1", ".", "\[Gamma]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+  "]"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1345816306],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"2", " ", "m"}], "-", 
+    RowBox[{"\[ScriptD]", " ", "m"}]}], ")"}], " ", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{194, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1511441836]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1901548231],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not contract indices across separate fermion lines:"
+}], "ExampleText",
+ CellID->1298320792],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{
+      RowBox[{"k2", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+   "\[CircleTimes]", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->183055781],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"k2", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "k1"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "k2"}]}], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+  "\[CircleTimes]", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p1"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p2"}]}], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{320, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->31108912]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{
+      RowBox[{"k2", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+   "\[CircleTimes]", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1034953169],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "32"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "p2"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "k2"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]}], "+", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{
+       RowBox[{"{", "p1", "}"}], ",", 
+       RowBox[{"{", "p2", "}"}]}]], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+      RowBox[{"k1", ".", "k2"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{"\[Mu]", ",", 
+       RowBox[{"{", "p2", "}"}]}]], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", 
+      SuperscriptBox["m", "3"]}], "+", 
+     RowBox[{"16", " ", "\[ImaginaryI]", " ", "m", " ", 
+      RowBox[{"k1", ".", "k2"}]}]}], ")"}]}], "+", 
+  RowBox[{"16", " ", "m", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "k2"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"k1", ".", "p2"}]}], "+", 
+  RowBox[{"16", " ", "m", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "p2"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"k2", ".", "p1"}]}], "-", 
+  RowBox[{"16", " ", "m", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "k1"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"k2", ".", "p2"}]}], "-", 
+  RowBox[{"16", " ", "m", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"k2", ".", "p2"}]}], "+", 
+  RowBox[{"32", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"k2", ".", "p2"}]}], "+", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{
+       RowBox[{"{", "k1", "}"}], ",", 
+       RowBox[{"{", "k2", "}"}]}]], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+      RowBox[{"p1", ".", "p2"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{"\[Mu]", ",", 
+       RowBox[{"{", "k2", "}"}]}]], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", 
+      SuperscriptBox["m", "3"]}], "+", 
+     RowBox[{"16", " ", "\[ImaginaryI]", " ", "m", " ", 
+      RowBox[{"p1", ".", "p2"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      SuperscriptBox["m", "4"]}], "+", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"k1", ".", "k2"}]}], "+", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"p1", ".", "p2"}]}], "-", 
+     RowBox[{"4", " ", 
+      RowBox[{"k1", ".", "k2"}], " ", 
+      RowBox[{"p1", ".", "p2"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"k1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"4", " ", "\[ScriptD]", " ", 
+      SuperscriptBox["m", "4"]}], "+", 
+     RowBox[{"8", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"k1", ".", "k2"}]}], "-", 
+     RowBox[{"4", " ", "\[ScriptD]", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"k1", ".", "k2"}]}], "+", 
+     RowBox[{"16", " ", 
+      RowBox[{"k1", ".", "p1"}], " ", 
+      RowBox[{"k2", ".", "p2"}]}], "+", 
+     RowBox[{"8", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"p1", ".", "p2"}]}], "-", 
+     RowBox[{"4", " ", "\[ScriptD]", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"p1", ".", "p2"}]}], "-", 
+     RowBox[{"16", " ", 
+      RowBox[{"k1", ".", "k2"}], " ", 
+      RowBox[{"p1", ".", "p2"}]}], "+", 
+     RowBox[{"4", " ", "\[ScriptD]", " ", 
+      RowBox[{"k1", ".", "k2"}], " ", 
+      RowBox[{"p1", ".", "p2"}]}]}], ")"}]}]}]], "Output",
+ ImageSize->{511, 233},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1022246029]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LTensor",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LTensor"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LDot",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LDot"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LScalarQ",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LScalarQ"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1340531007],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Contract - Wolfram Mathematica", "Contract"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 51, 52.635866}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Contract[expr] gives the form of expr where repeated indices attached to \
+multiplying tensors are contracted.", "synonyms" -> {}, "title" -> "Contract",
+     "titlemodifier" -> "", "windowtitle" -> "Contract", "type" -> "Symbol", 
+    "uri" -> "X/ref/Contract"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/D0Expand.nb b/packages/X/Documentation/English/ReferencePages/Symbols/D0Expand.nb
new file mode 100644
index 0000000000000000000000000000000000000000..e83a37cd26a772a7abe367359f8eb38ab0ff0010
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/D0Expand.nb
@@ -0,0 +1,2019 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"ScalarD0\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/ScalarD0"], "\<\"ScalarD0IR12\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/ScalarD0IR12"], "\<\"ScalarD0IR13\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/ScalarD0IR13"], "\<\"ScalarD0IR16\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ScalarD0IR16"], "\<\"DiLog\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiLog"], "\<\"ContinuedDiLog\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ContinuedDiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/D0Expand\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/D0Expand"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/D0Expand.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/D0Expand", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["D0Expand", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["D0Expand",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/D0Expand"], "[", 
+       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]replaces ",
+     Cell[BoxData[
+      ButtonBox["ScalarD0",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      ButtonBox["ScalarD0IR12",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/ScalarD0IR12"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      ButtonBox["ScalarD0IR13",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      ButtonBox["ScalarD0IR16",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/ScalarD0IR16"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " everwhere inside ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " with their explicit expressions."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(5)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1284434242],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(3)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->980685650],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0", "[", 
+   RowBox[{
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    RowBox[{"4", 
+     SuperscriptBox["m", "2"]}], ",", "0", ",", "M", ",", "M", ",", "M", ",", 
+    "M"}], "]"}], "//", "D0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1198156678],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["M", "2"]}]}], ")"}], " ", 
+     RowBox[{"DiscB", "[", 
+      RowBox[{
+       SuperscriptBox["m", "2"], ",", "M", ",", "M"}], "]"}]}], 
+    RowBox[{
+     SuperscriptBox["m", "4"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["M", "2"]}]}], ")"}]}]]}], "+", 
+  FractionBox[
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}], ",", "M", ",", "M"}], "]"}], 
+   SuperscriptBox["m", "4"]]}]], "Output",
+ ImageSize->{318, 42},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->338951455]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1144301515],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0", "[", 
+   RowBox[{
+   "0", ",", "0", ",", "0", ",", "0", ",", "s", ",", "0", ",", "m", ",", "m", 
+    ",", "M", ",", "M"}], "]"}], "//", "D0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->821062117],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", "0", ",", "s", ",", "M", ",", "m", ",", "m"}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", 
+    SuperscriptBox["M", "2"]}]], "-", 
+  FractionBox[
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", "0", ",", "s", ",", "M", ",", "M", ",", "m"}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", 
+    SuperscriptBox["M", "2"]}]]}]], "Output",
+ ImageSize->{364, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->638200340]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1900353115],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0IR16", "[", 
+   RowBox[{"0", ",", "0", ",", "s", ",", "0", ",", "m", ",", "M", ",", "m"}], 
+   "]"}], "//", "D0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1858005621],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}], 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       SuperscriptBox["M", "2"]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["M", "2"], "-", "s"}], ")"}]}]]}], "-", 
+  FractionBox[
+   RowBox[{"Log", "[", 
+    FractionBox[
+     SuperscriptBox["M", "2"], 
+     RowBox[{
+      SuperscriptBox["M", "2"], "-", "s"}]], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["M", "2"], "-", "s"}], ")"}]}]]}]], "Output",
+ ImageSize->{200, 51},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->123066096]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Scope",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1293636265],
+
+Cell[TextData[{
+ "General cases are expressed in terms ",
+ Cell[BoxData[
+  ButtonBox["RootSum",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/RootSum"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "s of ",
+ Cell[BoxData[
+  ButtonBox["ContinuedDiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ContinuedDiLog"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " functions:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox["1", 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SuperscriptBox["m", "2"]}]], 
+       FractionBox["1", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", 
+           SubscriptBox["p", "1"]}], ")"}], "2"]], 
+       FractionBox["1", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "-", 
+           SubscriptBox["p", "3"], "+", 
+           SubscriptBox["p", "1"]}], ")"}], "2"]], 
+       FractionBox["1", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "-", 
+           SubscriptBox["p", "2"]}], ")"}], "2"]]}]}]}], ","}], 
+   TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]with\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "2"], "=", 
+    RowBox[{
+     SubsuperscriptBox["p", "2", "2"], "=", 
+     SuperscriptBox["m", "2"]}]}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "3", "2"], "=", 
+    RowBox[{
+     SubsuperscriptBox["p", "4", "2"], "=", 
+     SuperscriptBox["M", "2"]}]}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "1"], "+", 
+       SubscriptBox["p", "2"]}], ")"}], "2"], "=", "s"}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "1"], "-", 
+       SubscriptBox["p", "3"]}], ")"}], "2"], "=", "t"}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->122233506],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{"1", ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p3", "+", "p1"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p2"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"MandelstamRelations", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+       "p1", ",", "p2", ",", "p3", ",", "p4", ",", "m", ",", "m", ",", "M", 
+        ",", "M"}], "}"}], "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], ",", 
+     RowBox[{"Eliminate", "\[Rule]", "u"}]}], "]"}]}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->503884865],
+
+Cell[BoxData[
+ RowBox[{"ScalarD0", "[", 
+  RowBox[{
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["M", "2"], ",", 
+   SuperscriptBox["M", "2"], ",", "s", ",", "t", ",", "0", ",", "m", ",", "0",
+    ",", "0"}], "]"}]], "Output",
+ ImageSize->{269, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->135838130]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "D0Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->527223513],
+
+Cell[BoxData[
+ RowBox[{"RootSum", "[", 
+  RowBox[{
+   RowBox[{"Function", "[", 
+    RowBox[{"\[FormalX]", ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[FormalX]", "2"], " ", 
+       SuperscriptBox["M", "4"]}], "+", 
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", "s"}], "+", 
+      RowBox[{"\[FormalX]", " ", "s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]}]}], "]"}], ",", 
+   RowBox[{"Function", "[", 
+    RowBox[{"\[FormalX]", ",", 
+     RowBox[{
+      FractionBox["1", 
+       RowBox[{
+        RowBox[{"2", " ", "\[FormalX]", " ", 
+         SuperscriptBox["M", "4"]}], "+", 
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]}]], 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"ContinuedDiLog", "[", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"-", "\[FormalX]"}], ",", 
+             RowBox[{"-", 
+              FractionBox["s", 
+               RowBox[{
+                RowBox[{"2", " ", "\[FormalX]", " ", 
+                 SuperscriptBox["M", "4"]}], "+", 
+                RowBox[{"s", " ", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]}]]}]}], 
+            "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             FractionBox[
+              RowBox[{
+               SuperscriptBox["m", "2"], "-", "t"}], 
+              SuperscriptBox["m", "2"]], ",", 
+             RowBox[{
+              RowBox[{"-", 
+               SuperscriptBox["m", "2"]}], "-", "t"}]}], "}"}]}], "]"}]}], 
+        "-", 
+        SuperscriptBox[
+         RowBox[{"Ln", "[", 
+          RowBox[{
+           RowBox[{"-", "\[FormalX]"}], ",", 
+           RowBox[{
+            RowBox[{"-", "s"}], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"2", " ", "\[FormalX]", " ", 
+               SuperscriptBox["M", "4"]}], "+", 
+              RowBox[{
+               SuperscriptBox["m", "2"], " ", "s"}], "-", 
+              RowBox[{"s", " ", "t"}]}], ")"}]}]}], "]"}], "2"], "+", 
+        RowBox[{
+         RowBox[{"Ln", "[", 
+          RowBox[{
+           RowBox[{"-", "\[FormalX]"}], ",", 
+           RowBox[{
+            RowBox[{"-", "s"}], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"2", " ", "\[FormalX]", " ", 
+               SuperscriptBox["M", "4"]}], "+", 
+              RowBox[{
+               SuperscriptBox["m", "2"], " ", "s"}], "-", 
+              RowBox[{"s", " ", "t"}]}], ")"}]}]}], "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"Log", "[", 
+            RowBox[{"-", 
+             FractionBox[
+              SuperscriptBox["m", "2"], 
+              SuperscriptBox["M", "2"]]}], "]"}], "+", 
+           RowBox[{"Log", "[", 
+            FractionBox["s", 
+             SuperscriptBox["M", "2"]], "]"}]}], ")"}]}]}], ")"}]}]}], 
+    "]"}]}], "]"}]], "Output",
+ ImageSize->{540, 120},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2115316079]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation (",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"i", " ", "\[CurlyEpsilon]"}], TraditionalForm]], "InlineMath"],
+ " prescription omitted):\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox["1", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}]], 
+        FractionBox["1", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", 
+            SubscriptBox["p", "1"]}], ")"}], "2"]], 
+        FractionBox["1", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", 
+            SubscriptBox["p", "3"], "+", 
+            SubscriptBox["p", "1"]}], ")"}], "2"]], 
+        FractionBox["1", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", 
+            SubscriptBox["p", "2"]}], ")"}], "2"]]}]}]}], "=", 
+     "\[LineSeparator]", "\t", 
+     RowBox[{
+      StyleBox[
+       FractionBox["i", 
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}]],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+      RowBox[{
+       UnderscriptBox["\[Sum]", 
+        RowBox[{" ", 
+         SubscriptBox["x", "i"]}],
+        BaseStyle->Larger,
+        LimitsPositioning->False], 
+       RowBox[{"[", 
+        RowBox[{
+         FractionBox["1", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SubscriptBox["x", "i"], " ", 
+            SuperscriptBox["M", "4"]}], "+", 
+           RowBox[{"s", "(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]], 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{
+             SubscriptBox["\[ScriptCapitalL]\[ScriptI]", "2"], "(", 
+             RowBox[{
+              RowBox[{"-", 
+               SubscriptBox["x", "i"]}], ",", 
+              FractionBox[
+               RowBox[{
+                SuperscriptBox["m", "2"], "-", "t"}], 
+               SuperscriptBox["m", "2"]]}], ")"}]}], "-", 
+           RowBox[{
+            SuperscriptBox["ln", "2"], "(", 
+            RowBox[{"-", 
+             SubscriptBox["x", "i"]}], ")"}], "+", 
+           RowBox[{
+            RowBox[{"ln", "(", 
+             RowBox[{"-", 
+              SubscriptBox["x", "i"]}], ")"}], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"ln", "(", 
+               RowBox[{"-", 
+                FractionBox[
+                 SuperscriptBox["m", "2"], 
+                 SuperscriptBox["M", "2"]]}], ")"}], "+", 
+              RowBox[{"ln", "(", 
+               FractionBox["s", 
+                SuperscriptBox["M", "2"]], ")"}]}], ")"}]}]}]}]}], 
+        "]"}]}]}]}], ","}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]where the sum is over the roots ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["x", "i"], TraditionalForm]], "InlineMath"],
+ " of ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["M", "4"], 
+      SuperscriptBox["x", "2"]}], "+", 
+     RowBox[{
+      RowBox[{"s", "(", 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", "t"}], ")"}], "x"}], "+", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "s"}]}], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ "."
+}], "ExampleText",
+ Deletable->True,
+ CellID->900906679],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["Normal",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Normal"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to expand out the ",
+ Cell[BoxData[
+  ButtonBox["RootSum",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/RootSum"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1211374702],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "Normal"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->2034799809],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"ContinuedDiLog", "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", "t"}], 
+           SuperscriptBox["m", "2"]], ",", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "-", "t"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"-", 
+           FractionBox[
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", 
+               SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+             RowBox[{"s", " ", "t"}], "-", 
+             SqrtBox[
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"], " ", 
+                SuperscriptBox["M", "4"], " ", "s"}], "+", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   SuperscriptBox["m", "2"], " ", "s"}], "-", 
+                  RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}], 
+            RowBox[{"2", " ", 
+             SuperscriptBox["M", "4"]}]]}], ",", 
+          RowBox[{"-", 
+           FractionBox["s", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", 
+               SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+             RowBox[{"s", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["m", "2"], "-", "t"}], ")"}]}], "+", 
+             RowBox[{"s", " ", "t"}], "-", 
+             SqrtBox[
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"], " ", 
+                SuperscriptBox["M", "4"], " ", "s"}], "+", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   SuperscriptBox["m", "2"], " ", "s"}], "-", 
+                  RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}]]}]}], "}"}]}], 
+       "]"}]}], "-", 
+     SuperscriptBox[
+      RowBox[{"Ln", "[", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+           RowBox[{"s", " ", "t"}], "-", 
+           SqrtBox[
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"], " ", 
+              SuperscriptBox["M", "4"], " ", "s"}], "+", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 SuperscriptBox["m", "2"], " ", "s"}], "-", 
+                RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["M", "4"]}]]}], ",", 
+        RowBox[{"s", " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"], " ", 
+            SuperscriptBox["M", "4"], " ", "s"}], "+", 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               SuperscriptBox["m", "2"], " ", "s"}], "-", 
+              RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}]}], "]"}], "2"], "+", 
+     RowBox[{
+      RowBox[{"Ln", "[", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+           RowBox[{"s", " ", "t"}], "-", 
+           SqrtBox[
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"], " ", 
+              SuperscriptBox["M", "4"], " ", "s"}], "+", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 SuperscriptBox["m", "2"], " ", "s"}], "-", 
+                RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["M", "4"]}]]}], ",", 
+        RowBox[{"s", " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"], " ", 
+            SuperscriptBox["M", "4"], " ", "s"}], "+", 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               SuperscriptBox["m", "2"], " ", "s"}], "-", 
+              RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}]}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"Log", "[", 
+         RowBox[{"-", 
+          FractionBox[
+           SuperscriptBox["m", "2"], 
+           SuperscriptBox["M", "2"]]}], "]"}], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox["s", 
+          SuperscriptBox["M", "2"]], "]"}]}], ")"}]}]}], ")"}], "/", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+     RowBox[{"s", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", "t"}], ")"}]}], "+", 
+     RowBox[{"s", " ", "t"}], "-", 
+     SqrtBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "4"], " ", "s"}], "+", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", "s"}], "-", 
+          RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"ContinuedDiLog", "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", "t"}], 
+           SuperscriptBox["m", "2"]], ",", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "-", "t"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"-", 
+           FractionBox[
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", 
+               SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+             RowBox[{"s", " ", "t"}], "+", 
+             SqrtBox[
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"], " ", 
+                SuperscriptBox["M", "4"], " ", "s"}], "+", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   SuperscriptBox["m", "2"], " ", "s"}], "-", 
+                  RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}], 
+            RowBox[{"2", " ", 
+             SuperscriptBox["M", "4"]}]]}], ",", 
+          RowBox[{"-", 
+           FractionBox["s", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", 
+               SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+             RowBox[{"s", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["m", "2"], "-", "t"}], ")"}]}], "+", 
+             RowBox[{"s", " ", "t"}], "+", 
+             SqrtBox[
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"], " ", 
+                SuperscriptBox["M", "4"], " ", "s"}], "+", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{
+                  RowBox[{
+                   SuperscriptBox["m", "2"], " ", "s"}], "-", 
+                  RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}]]}]}], "}"}]}], 
+       "]"}]}], "-", 
+     SuperscriptBox[
+      RowBox[{"Ln", "[", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+           RowBox[{"s", " ", "t"}], "+", 
+           SqrtBox[
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"], " ", 
+              SuperscriptBox["M", "4"], " ", "s"}], "+", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 SuperscriptBox["m", "2"], " ", "s"}], "-", 
+                RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["M", "4"]}]]}], ",", 
+        RowBox[{
+         RowBox[{"-", "s"}], " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"], " ", 
+            SuperscriptBox["M", "4"], " ", "s"}], "+", 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               SuperscriptBox["m", "2"], " ", "s"}], "-", 
+              RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}]}], "]"}], "2"], "+", 
+     RowBox[{
+      RowBox[{"Ln", "[", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+           RowBox[{"s", " ", "t"}], "+", 
+           SqrtBox[
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"], " ", 
+              SuperscriptBox["M", "4"], " ", "s"}], "+", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 SuperscriptBox["m", "2"], " ", "s"}], "-", 
+                RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}], 
+          RowBox[{"2", " ", 
+           SuperscriptBox["M", "4"]}]]}], ",", 
+        RowBox[{
+         RowBox[{"-", "s"}], " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"], " ", 
+            SuperscriptBox["M", "4"], " ", "s"}], "+", 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               SuperscriptBox["m", "2"], " ", "s"}], "-", 
+              RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}]}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"Log", "[", 
+         RowBox[{"-", 
+          FractionBox[
+           SuperscriptBox["m", "2"], 
+           SuperscriptBox["M", "2"]]}], "]"}], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox["s", 
+          SuperscriptBox["M", "2"]], "]"}]}], ")"}]}]}], ")"}], "/", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], " ", "s"}], "+", 
+     RowBox[{"s", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", "t"}], ")"}]}], "+", 
+     RowBox[{"s", " ", "t"}], "+", 
+     SqrtBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "4"], " ", "s"}], "+", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", "s"}], "-", 
+          RowBox[{"s", " ", "t"}]}], ")"}], "2"]}]]}], ")"}]}]}]], "Output",
+ ImageSize->{516, 764},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->548327965]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1629515366],
+
+Cell[TextData[{
+ "If there are multiple non-zero internal masses, indicating their hierarchy \
+with ",
+ Cell[BoxData[
+  ButtonBox["Assuming",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Assuming"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can lead to simpler results: "
+}], "ExampleText",
+ Deletable->True,
+ CellID->405806171],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Assuming", "[", 
+  RowBox[{
+   RowBox[{"m", "<", "M"}], ",", 
+   RowBox[{
+    RowBox[{"ScalarD0", "[", 
+     RowBox[{
+     "0", ",", "0", ",", "0", ",", "0", ",", "s", ",", "t", ",", "m", ",", 
+      "M", ",", "m", ",", "M"}], "]"}], "//", "D0Expand"}]}], "]"}]], "Input",
+ 
+ CellLabel->"In[1]:=",
+ CellID->335257009],
+
+Cell[BoxData[
+ RowBox[{"RootSum", "[", 
+  RowBox[{
+   RowBox[{"Function", "[", 
+    RowBox[{"\[FormalX]", ",", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["M", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"], "+", "s"}], ")"}]}], "+", 
+      RowBox[{
+       SuperscriptBox["\[FormalX]", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["M", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["m", "2"]}], "+", 
+            SuperscriptBox["M", "2"], "+", "s"}], ")"}]}], "-", 
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["m", "2"]}], "+", 
+            SuperscriptBox["M", "2"], "-", "t"}], ")"}]}]}], ")"}]}], "+", 
+      RowBox[{"\[FormalX]", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["m", "2"]}], "+", 
+            SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["m", "2"], "+", 
+            SuperscriptBox["M", "2"]}], ")"}], "2"], "-", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["M", "2"]}], "-", "t"}], ")"}]}]}], ")"}]}], "-", 
+      
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"], "-", "t"}], ")"}]}]}]}], "]"}], ",", 
+   RowBox[{"Function", "[", 
+    RowBox[{"\[FormalX]", ",", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"RootSum", "[", 
+         RowBox[{
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{
+             RowBox[{
+              SuperscriptBox["\[FormalR]", "2"], " ", 
+              SuperscriptBox["m", "2"]}], "+", 
+             SuperscriptBox["M", "2"], "+", 
+             RowBox[{"\[FormalR]", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["m", "2"], "+", 
+                SuperscriptBox["M", "2"]}], ")"}]}]}]}], "]"}], ",", 
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{"ContinuedDiLog", "[", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", 
+                 FractionBox["1", "\[FormalR]"]}], ",", 
+                RowBox[{
+                 RowBox[{"\[FormalR]", " ", 
+                  SuperscriptBox["m", "2"]}], "-", 
+                 FractionBox[
+                  SuperscriptBox["M", "2"], "\[FormalR]"]}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", "\[FormalX]"}], ",", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", "s"}], "-", "t"}], ")"}], "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["m", "2"], "+", 
+                    SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+                   RowBox[{"2", " ", "\[FormalX]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["M", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"], "+", "s"}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"], "-", "t"}], ")"}]}]}], ")"}]}], 
+                   "-", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["M", "2"]}], "-", "t"}], ")"}]}]}], 
+                  ")"}]}]}], "}"}]}], "]"}]}], "]"}]}], "]"}], "+", 
+        RowBox[{"RootSum", "[", 
+         RowBox[{
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "+", 
+             RowBox[{
+              SuperscriptBox["\[FormalR]", "2"], " ", 
+              SuperscriptBox["M", "2"]}], "+", 
+             RowBox[{"\[FormalR]", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["m", "2"], "+", 
+                SuperscriptBox["M", "2"]}], ")"}]}]}]}], "]"}], ",", 
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{"ContinuedDiLog", "[", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", 
+                 FractionBox["1", "\[FormalR]"]}], ",", 
+                RowBox[{
+                 RowBox[{"-", 
+                  FractionBox[
+                   SuperscriptBox["m", "2"], "\[FormalR]"]}], "+", 
+                 RowBox[{"\[FormalR]", " ", 
+                  SuperscriptBox["M", "2"]}]}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", "\[FormalX]"}], ",", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", "s"}], "-", "t"}], ")"}], "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["m", "2"], "+", 
+                    SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+                   RowBox[{"2", " ", "\[FormalX]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["M", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"], "+", "s"}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"], "-", "t"}], ")"}]}]}], ")"}]}], 
+                   "-", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["M", "2"]}], "-", "t"}], ")"}]}]}], 
+                  ")"}]}]}], "}"}]}], "]"}]}], "]"}]}], "]"}], "-", 
+        RowBox[{"RootSum", "[", 
+         RowBox[{
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "+", 
+             RowBox[{
+              SuperscriptBox["\[FormalR]", "2"], " ", 
+              SuperscriptBox["m", "2"]}], "+", 
+             RowBox[{"\[FormalR]", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"2", " ", 
+                 SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}]}]}], "]"}], 
+          ",", 
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{"ContinuedDiLog", "[", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", 
+                 FractionBox["1", "\[FormalR]"]}], ",", 
+                RowBox[{
+                 RowBox[{"-", 
+                  FractionBox[
+                   SuperscriptBox["m", "2"], "\[FormalR]"]}], "+", 
+                 RowBox[{"\[FormalR]", " ", 
+                  SuperscriptBox["m", "2"]}]}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", "\[FormalX]"}], ",", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", "s"}], "-", "t"}], ")"}], "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["m", "2"], "+", 
+                    SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+                   RowBox[{"2", " ", "\[FormalX]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["M", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"], "+", "s"}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"], "-", "t"}], ")"}]}]}], ")"}]}], 
+                   "-", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["M", "2"]}], "-", "t"}], ")"}]}]}], 
+                  ")"}]}]}], "}"}]}], "]"}]}], "]"}]}], "]"}], "-", 
+        RowBox[{"RootSum", "[", 
+         RowBox[{
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{
+             SuperscriptBox["M", "2"], "+", 
+             RowBox[{
+              SuperscriptBox["\[FormalR]", "2"], " ", 
+              SuperscriptBox["M", "2"]}], "+", 
+             RowBox[{"\[FormalR]", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"2", " ", 
+                 SuperscriptBox["M", "2"]}], "-", "t"}], ")"}]}]}]}], "]"}], 
+          ",", 
+          RowBox[{"Function", "[", 
+           RowBox[{"\[FormalR]", ",", 
+            RowBox[{"ContinuedDiLog", "[", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", 
+                 FractionBox["1", "\[FormalR]"]}], ",", 
+                RowBox[{
+                 RowBox[{"-", 
+                  FractionBox[
+                   SuperscriptBox["M", "2"], "\[FormalR]"]}], "+", 
+                 RowBox[{"\[FormalR]", " ", 
+                  SuperscriptBox["M", "2"]}]}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"-", "\[FormalX]"}], ",", 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"-", "s"}], "-", "t"}], ")"}], "/", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{
+                    SuperscriptBox["m", "2"], "+", 
+                    SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+                   RowBox[{"2", " ", "\[FormalX]", " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{
+                    SuperscriptBox["M", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"], "+", "s"}], ")"}]}], "-", 
+                    RowBox[{
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"-", 
+                    SuperscriptBox["m", "2"]}], "+", 
+                    SuperscriptBox["M", "2"], "-", "t"}], ")"}]}]}], ")"}]}], 
+                   "-", 
+                   RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"2", " ", 
+                    SuperscriptBox["M", "2"]}], "-", "t"}], ")"}]}]}], 
+                  ")"}]}]}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], ")"}], "/", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "+", 
+           SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "+", 
+           SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+        RowBox[{"2", " ", "\[FormalX]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["M", "2"], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"-", 
+               SuperscriptBox["m", "2"]}], "+", 
+              SuperscriptBox["M", "2"], "+", "s"}], ")"}]}], "-", 
+           RowBox[{
+            SuperscriptBox["m", "2"], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"-", 
+               SuperscriptBox["m", "2"]}], "+", 
+              SuperscriptBox["M", "2"], "-", "t"}], ")"}]}]}], ")"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["M", "2"]}], "-", "t"}], ")"}]}]}], ")"}]}]}], 
+    "]"}]}], "]"}]], "Output",
+ ImageSize->{532, 443},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1488514276]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ScalarD0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ScalarD0IR12",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR12"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ScalarD0IR13",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR13"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ScalarD0IR16",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR16"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ContinuedDiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ContinuedDiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->446728825],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "D0Expand - Wolfram Mathematica", "D0Expand"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 51, 55.115186}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "D0Expand[expr] replaces ScalarD0, ScalarD0IR12, ScalarD0IR13, \
+ScalarD0IR16 everwhere inside expr with their explicit expressions.", 
+    "synonyms" -> {}, "title" -> "D0Expand", "titlemodifier" -> "", 
+    "windowtitle" -> "D0Expand", "type" -> "Symbol", "uri" -> 
+    "X/ref/D0Expand"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/DiLog.nb b/packages/X/Documentation/English/ReferencePages/Symbols/DiLog.nb
new file mode 100644
index 0000000000000000000000000000000000000000..042c8d2fc614c536dda8c255925ca9b05c2cd3a6
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/DiLog.nb
@@ -0,0 +1,1331 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Ln\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Ln"], "\<\"ContinuedDiLog\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/ContinuedDiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/DiLog\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/DiLog"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/DiLog.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/DiLog", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["DiLog", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["DiLog",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/DiLog"], "[", 
+       RowBox[{
+        StyleBox["x", "TI"], ",", 
+        StyleBox["\[Alpha]", "TR"]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the dilogarithm function, which for real ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"x", ">", "1"}], TraditionalForm]], "InlineMath"],
+     " evaluates on the side of the branch prescribed by ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        UnderscriptBox["lim", 
+         RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
+          SuperscriptBox["0", "+"]}],
+         LimitsPositioning->False], 
+        RowBox[{
+         SubscriptBox["Li", "2"], "(", 
+         RowBox[{"x", "+", 
+          RowBox[{"i", " ", "\[Alpha]", " ", "\[CurlyEpsilon]"}]}], ")"}]}], 
+       TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->568531863],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Mathematical function, suitable for both symbolic and numerical manipulation.\
+\
+\>", "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"], "[", 
+   RowBox[{
+    StyleBox["x", "TI"], ",", 
+    StyleBox["\[Alpha]", "TR"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has a branch cut discontinuity in the complex ",
+ Cell[BoxData[
+  FormBox["x", TraditionalForm]], "InlineMath"],
+ " plane running from ",
+ Cell[BoxData[
+  FormBox["1", TraditionalForm]], "InlineMath"],
+ " to ",
+ Cell[BoxData[
+  FormBox["\[Infinity]", TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1023959414],
+
+Cell[TextData[{
+ "For ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"x", ">", "1"}], TraditionalForm]], "InlineMath"],
+ ", the sign of \[Alpha] determines on which side of the branch cut ",
+ Cell[BoxData[
+  ButtonBox["DiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiLog"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates.  For all other values of ",
+ Cell[BoxData[
+  StyleBox["x", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"], "[", 
+   RowBox[{
+    StyleBox["x", "TI"], ",", 
+    StyleBox["\[Alpha]", "TR"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " returns ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PolyLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/PolyLog"], "[", 
+   RowBox[{"2", ",", 
+    StyleBox["x", "TI"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->819965464]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(8)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1160275938],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1606175206],
+
+Cell[TextData[{
+ "Compare ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ "'s built-in function ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PolyLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/PolyLog"], "[", 
+   RowBox[{"2", ",", 
+    StyleBox["x", "TI"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"], "[", 
+   RowBox[{
+    StyleBox["x", "TI"], ",", 
+    StyleBox["\[Alpha]", "TR"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " defined by ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "ExampleText",
+ CellID->94237429],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"PolyLog", "[", 
+  RowBox[{"2", ",", "2.7"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"DiLog", "[", 
+  RowBox[{"2.7", ",", "1"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"DiLog", "[", 
+  RowBox[{"2.7", ",", 
+   RowBox[{"-", "1"}]}], "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->49347967],
+
+Cell[BoxData[
+ RowBox[{"2.384730761537743`", "\[VeryThinSpace]", "-", 
+  RowBox[{"3.1203924732541433`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1040598599],
+
+Cell[BoxData[
+ RowBox[{"2.384730761537743`", "\[VeryThinSpace]", "+", 
+  RowBox[{"3.1203924732541433`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->233832225],
+
+Cell[BoxData[
+ RowBox[{"2.384730761537743`", "\[VeryThinSpace]", "-", 
+  RowBox[{"3.1203924732541433`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->123131565]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->432364652],
+
+Cell["Symbolically:", "ExampleText",
+ CellID->1815528363],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiLog", "[", 
+  RowBox[{"x", ",", "1"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->245666958],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox["1", "2"]}], " ", 
+   SuperscriptBox[
+    RowBox[{"Log", "[", 
+     FractionBox["1", 
+      RowBox[{"1", "-", "x"}]], "]"}], "2"]}], "-", 
+  RowBox[{"PolyLog", "[", 
+   RowBox[{"2", ",", 
+    FractionBox["x", 
+     RowBox[{
+      RowBox[{"-", "1"}], "+", "x"}]]}], "]"}]}]], "Output",
+ ImageSize->{234, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->470973341]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiLog", "[", 
+  RowBox[{"x", ",", 
+   RowBox[{"-", "1"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->496878637],
+
+Cell[BoxData[
+ RowBox[{"PolyLog", "[", 
+  RowBox[{"2", ",", "x"}], "]"}]], "Output",
+ ImageSize->{93, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->153708832]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->145793488],
+
+Cell["Evaluate to high precision:", "ExampleText",
+ CellID->72311589],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"N", "[", 
+  RowBox[{
+   RowBox[{"DiLog", "[", 
+    RowBox[{
+     RowBox[{"22", "/", "10"}], ",", "1"}], "]"}], ",", "30"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2045187526],
+
+Cell[BoxData[
+ RowBox[{"2.458586601999741851737986678758721916686065949268832818468`29.\
+875339195664033", "+", 
+  RowBox[{
+  "2.47701185098919138804527173547508581165972443642022272308`30.\
+31355278772205", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{473, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->21940677]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1836636819],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[", 
+  RowBox[{
+   RowBox[{"DiLog", "[", 
+    RowBox[{"x", ",", "\[Alpha]"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1704158763],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"x", "+", 
+   FractionBox[
+    SuperscriptBox["x", "2"], "4"], "+", 
+   FractionBox[
+    SuperscriptBox["x", "3"], "9"], "+", 
+   FractionBox[
+    SuperscriptBox["x", "4"], "16"], "+", 
+   FractionBox[
+    SuperscriptBox["x", "5"], "25"], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "x", "]"}], "6"],
+    SeriesData[$CellContext`x, 0, {}, 1, 6, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`x, 0, {1, 
+    Rational[1, 4], 
+    Rational[1, 9], 
+    Rational[1, 16], 
+    Rational[1, 25]}, 1, 6, 1],
+  Editable->False]], "Output",
+ ImageSize->{182, 34},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1873126979]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell[TextData[{
+ "Passarino-Veltman C-functions in more complicated cases are most concisely \
+expressed in terms ",
+ Cell[BoxData[
+  ButtonBox["DiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiLog"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1526783680],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"s", ",", "0", ",", 
+     SuperscriptBox["M", "2"], ",", "0", ",", "0", ",", "m"}], "]"}], ",", 
+   RowBox[{"ExplicitC0", "\[Rule]", "All"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1271885936],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{
+     SuperscriptBox["M", "2"], "-", "s"}]], 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["\[Pi]", "2"], "6"], "+", 
+     RowBox[{"DiLog", "[", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["M", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["m", "2"]}], "+", 
+            SuperscriptBox["M", "2"], "-", "s"}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", "s"}]]}], ",", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["M", "2"]}], "+", "s"}], ")"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "+", "s"}], ")"}]}]}], "]"}], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["M", "2"], "-", "s"}]], "]"}], "2"]}], "+", 
+     RowBox[{"PolyLog", "[", 
+      RowBox[{"2", ",", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"], "-", "s"}], 
+        RowBox[{
+         SuperscriptBox["M", "2"], "-", "s"}]]}], "]"}], "-", 
+     RowBox[{"PolyLog", "[", 
+      RowBox[{"2", ",", 
+       FractionBox[
+        SuperscriptBox["M", "2"], "s"]}], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{414, 79},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1565410358]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->965043492],
+
+Cell[TextData[{
+ "The derivative of ",
+ Cell[BoxData["DiLog"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is ",
+ Cell[BoxData[
+  ButtonBox["Ln",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Ln"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1655823533],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   RowBox[{"DiLog", "[", 
+    RowBox[{"x", ",", "\[Alpha]"}], "]"}], ",", "x"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1350551398],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"Ln", "[", 
+    RowBox[{
+     RowBox[{"1", "-", "x"}], ",", "\[Alpha]"}], "]"}], "x"]}]], "Output",
+ ImageSize->{90, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->59532590]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "If the second argument evaluates to zero and the first argument is a \
+positive number greater than 1, a message is issued and ",
+ Cell[BoxData[
+  ButtonBox["DiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiLog"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " returns ",
+ Cell[BoxData[
+  ButtonBox["Indeterminate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Indeterminate"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1190425600],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiLog", "[", 
+  RowBox[{"2", ",", "0"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->716834984],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"DiLog", "::", "branch"}], "MessageName"], ":", 
+  " ", "\<\"'\[NoBreak]\\!\\(0\\)\[NoBreak]' in position 2 does not indicate \
+branch. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/DiLog\\\", ButtonNote -> \
+\\\"X`DiLog::branch\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->453192015],
+
+Cell[BoxData["Indeterminate"], "Output",
+ ImageSize->{98, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1821183843]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Interactive Examples",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1653164318],
+
+Cell[TextData[{
+ "Explore the behavior of ",
+ Cell[BoxData[
+  ButtonBox["DiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiLog"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " for different signs of the small imaginary part:"
+}], "ExampleText",
+ CellID->379735562],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Manipulate", "[", 
+  RowBox[{
+   RowBox[{"Plot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Re", "[", 
+        RowBox[{"DiLog", "[", 
+         RowBox[{"x", ",", "\[Alpha]"}], "]"}], "]"}], ",", 
+       RowBox[{"Im", "[", 
+        RowBox[{"DiLog", "[", 
+         RowBox[{"x", ",", "\[Alpha]"}], "]"}], "]"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", 
+       RowBox[{"-", "12"}], ",", "12"}], "}"}], ",", 
+     RowBox[{"PlotRange", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "10"}], ",", "10"}], "}"}]}]}], "]"}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"{", 
+    RowBox[{"\[Alpha]", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2041675297],
+
+Cell[BoxData[
+ TagBox[
+  StyleBox[
+   DynamicModuleBox[{$CellContext`\[Alpha]$$ = -1, Typeset`show$$ = True, 
+    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
+    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
+    "\"untitled\"", Typeset`specs$$ = {{
+      Hold[$CellContext`\[Alpha]$$], {-1, 1}}}, Typeset`size$$ = {
+    180., {59., 63.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
+    Typeset`skipInitDone$$ = True, $CellContext`\[Alpha]$1728$$ = False}, 
+    DynamicBox[Manipulate`ManipulateBoxes[
+     1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = -1}, 
+      "ControllerVariables" :> {
+        Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$1728$$, False]}, 
+      "OtherVariables" :> {
+       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
+        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
+        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
+         Typeset`skipInitDone$$}, "Body" :> Plot[{
+         Re[
+          X`DiLog[$CellContext`x, $CellContext`\[Alpha]$$]], 
+         Im[
+          
+          X`DiLog[$CellContext`x, $CellContext`\[Alpha]$$]]}, \
+{$CellContext`x, -12, 12}, PlotRange -> {-10, 10}], 
+      "Specifications" :> {{$CellContext`\[Alpha]$$, {-1, 1}}}, 
+      "Options" :> {}, "DefaultOptions" :> {}],
+     ImageSizeCache->{223., {100., 105.}},
+     SingleEvaluation->True],
+    Deinitialization:>None,
+    DynamicModuleValues:>{},
+    SynchronousInitialization->True,
+    UnsavedVariables:>{Typeset`initDone$$},
+    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
+   Deployed->True,
+   StripOnInput->False],
+  Manipulate`InterpretManipulate[1]]], "Output",
+ ImageSize->{227, 207},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1095842289]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Ln",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Ln"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ContinuedDiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ContinuedDiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->1117244452],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "DiLog - Wolfram Mathematica", "DiLog"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 51, 57.010091}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "DiLog[x, \\[Alpha]] gives the dilogarithm function, which for real x > 1 \
+evaluates on the side of the branch prescribed by UnderscriptBox[lim, \
+\\[CurlyEpsilon] \\[Rule] 0^+, LimitsPositioning->False]Li_2 (x + i \\[Alpha] \
+\\[CurlyEpsilon]).", "synonyms" -> {}, "title" -> "DiLog", "titlemodifier" -> 
+    "", "windowtitle" -> "DiLog", "type" -> "Symbol", "uri" -> "X/ref/DiLog"},
+   "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Dim.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Dim.nb
new file mode 100644
index 0000000000000000000000000000000000000000..d85f90c9fdf1ab7d969007bc28f1b9b4bdee37e7
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Dim.nb
@@ -0,0 +1,1000 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopRefine\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"\[Epsilon]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Eps"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Dim\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Dim"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Dim.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Dim", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "Dim ",
+ StyleBox["(\[ScriptD])", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      ButtonBox["Dim",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      ButtonBox["\[ScriptD]",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]is the non-integer number of spacetime dimensions."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->2077979043],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Dim",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]dim\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->1424373254],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Dim",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by tensor manipulation functions such as ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->844911532],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " replaces ",
+ Cell[BoxData[
+  ButtonBox["Dim",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ Cell[BoxData[
+  RowBox[{"4", "-", 
+   RowBox[{"2", 
+    ButtonBox["Eps",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/Eps"]}]}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and retains terms through order ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", 
+    SuperscriptBox["\[Epsilon]", "0"], ")"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1067943069]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(4)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->67224540],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->266445458],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["\[DoubleStruckG]", 
+  RowBox[{"\[Mu]", ",", "\[Mu]"}]]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1753826711],
+
+Cell[BoxData["\[ScriptD]"], "Output",
+ ImageSize->{10, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1835642642]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->520865146],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Alpha]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Beta]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1724464432],
+
+Cell[BoxData[
+ RowBox[{"4", " ", "\[ScriptD]", " ", 
+  SubscriptBox["\[DoubleStruckG]", 
+   RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}]], "Output",
+ ImageSize->{46, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->546138487]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1732009498],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to safely obtain the ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Rule]", "4"}], TraditionalForm]], "InlineMath"],
+ " limit:"
+}], "ExampleText",
+ CellID->742797801],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+   RowBox[{
+    RowBox[{"q", ".", "\[Gamma]"}], "-", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->725233606],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   RowBox[{"p", ".", "q"}]}], "-", 
+  RowBox[{"2", " ", "\[ScriptD]", " ", 
+   RowBox[{"p", ".", "q"}]}]}]], "Output",
+ ImageSize->{88, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1288136607]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->649281009],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "4"}], " ", 
+  RowBox[{"p", ".", "q"}]}]], "Output",
+ ImageSize->{43, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2068997186]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2066533472],
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["Block",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Block"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to temporarily assign a value:"
+}], "ExampleText",
+ CellID->975040973],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Block", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"\[ScriptD]", "=", "4"}], "}"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"Spur", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+     
+     RowBox[{
+      RowBox[{"q", ".", "\[Gamma]"}], "-", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+    "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->151730936],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "4"}], " ", 
+  RowBox[{"p", ".", "q"}]}]], "Output",
+ ImageSize->{43, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1118570803]
+}, Open  ]],
+
+Cell["\<\
+Take care using this construct when computing loop integrals, since setting \
+\[ScriptD]=4 prematurely may lead to incorrect finite parts.\
+\>", "ExampleText",
+ CellID->519397844]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Epsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Eps"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->645408611],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Dim (\[ScriptD]) - Wolfram Mathematica", "Dim (\[ScriptD])"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 51, 58.665132}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Dim or \\[ScriptD] is the non-integer number of spacetime dimensions.", 
+    "synonyms" -> {}, "title" -> "Dim", "titlemodifier" -> "", "windowtitle" -> 
+    "Dim (\[ScriptD])", "type" -> "Symbol", "uri" -> "X/ref/Dim"}, 
+  "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Dirac1.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Dirac1.nb
new file mode 100644
index 0000000000000000000000000000000000000000..9847ca85ac598e00f9f1c67bcf4eb7c39d6f3dca
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Dirac1.nb
@@ -0,0 +1,974 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Spur\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Spur"], "\<\"\[Gamma]\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiracG"], "\<\"\[Gamma]5\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"\[DoubleStruckCapitalP]L\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracPL"], "\<\"\[DoubleStruckCapitalP]R\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPR"], "\<\"\[Sigma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Dirac1\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Dirac1"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Dirac1.html"],
+                 StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Dirac1", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "Dirac1 ",
+ StyleBox["(\[DoubleStruckOne])", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      ButtonBox["Dirac1",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Dirac1"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      ButtonBox["\[DoubleStruckOne]",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Dirac1"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]represents the unit matrix in spinor space."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->442624080],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Dirac1",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dirac1"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is recognized as an object in spinor space by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->2054935183],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Dirac1",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dirac1"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckOne]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dirac1"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]11\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Dirac1",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dirac1"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " must be included multiplicatively in each term in ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " that does not contain any other object in spinor space."
+}], "Notes",
+ CellID->350681662]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(2)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->299559352],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(2)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->992360496],
+
+Cell[TextData[{
+ "Try to compute ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"Tr", "[", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"p", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+   TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1391590334],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p", ".", "\[Gamma]"}], "+", "m"}], ",", 
+   RowBox[{
+    RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1401804739],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"Spur", "::", "symb"}], "MessageName"], ":", 
+  " ", "\<\"Expression '\[NoBreak]\\!\\(m\\)\[NoBreak]' does not contain any \
+recognized Dirac matrices;\\n possibly missing Dirac unit matrix (alias: [\\!\
+\\(\\*\\nStyleBox[\\\"Esc\\\",\\nFontWeight->\\\"Bold\\\"]\\)] 11 \
+[\\!\\(\\*\\nStyleBox[\\\"Esc\\\",\\nFontWeight->\\\"Bold\\\"]\\)]). \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/Spur\\\", ButtonNote -> \
+\\\"X`Spur::symb\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1086117185],
+
+Cell[BoxData["$Failed"], "Output",
+ ImageSize->{54, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->760528795]
+}, Open  ]],
+
+Cell["Supply the missing \[DoubleStruckOne]'s:", "ExampleText",
+ CellID->319586437],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   RowBox[{
+    RowBox[{"k", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1373500590],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SuperscriptBox["m", "2"]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"k", ".", "p"}]}]}]], "Output",
+ ImageSize->{71, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1102706030]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->310406739],
+
+Cell[TextData[{
+ "A ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with no arguments is equivalent to the unit matrix:"
+}], "ExampleText",
+ CellID->768283810],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", "\[DoubleStruckOne]", "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->4715679],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", "]"}]], "Output",
+ ImageSize->{97, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->340015206]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Spur",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Spur"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]5",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG5"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]L",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPL"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]R",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPR"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Sigma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracS"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1244853670],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Dirac1 (\[DoubleStruckOne]) - Wolfram Mathematica", 
+  "Dirac1 (\[DoubleStruckOne])"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 0.063985}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Dirac1 or \\[DoubleStruckOne] represents the unit matrix in spinor \
+space.", "synonyms" -> {}, "title" -> "Dirac1", "titlemodifier" -> "", 
+    "windowtitle" -> "Dirac1 (\[DoubleStruckOne])", "type" -> "Symbol", "uri" -> 
+    "X/ref/Dirac1"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/DiracG.nb b/packages/X/Documentation/English/ReferencePages/Symbols/DiracG.nb
new file mode 100644
index 0000000000000000000000000000000000000000..8776f83e6da31c092e29b316e1ba5dd9814d9d35
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/DiracG.nb
@@ -0,0 +1,1371 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"\[DoubleStruckOne]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dirac1"], "\<\"\[Gamma]5\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"\[DoubleStruckCapitalP]L\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracPL"], "\<\"\[DoubleStruckCapitalP]R\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPR"], "\<\"\[Sigma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"], "\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracMatrix"], "\<\"Spur\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/Spur"], "\<\"FermionLineExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/FermionLineExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/DiracG\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/DiracG"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/DiracG.html"],
+                 StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/DiracG", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "DiracG ",
+ StyleBox["(\[Gamma])", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LTensor",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LTensor"], "[", 
+       RowBox[{
+        ButtonBox["DiracG",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/DiracG"], ",", " ", 
+        StyleBox["\[Mu]", "TR"]}], "]"}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      SubscriptBox[
+       ButtonBox["\[Gamma]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/DiracG"], "\[Mu]"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]represents the Dirac gamma matrix with index \[Mu]."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LDot",
+        BaseStyle->"Link",
+        ButtonData->"paclet:ref/LDot"], "[", 
+       RowBox[{
+        ButtonBox["DiracG",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/DiracG"], ",", 
+        StyleBox["p", "TI"]}], "]"}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      ButtonBox[
+       RowBox[{"\[Gamma]", ".", 
+        StyleBox["p", "TI"]}],
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracG"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]represents the Feynman slash ",
+     Cell[BoxData[
+      OverlayBox[{
+       StyleBox["p", "TI"], "/"},
+       Alignment->{Center, Center}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1606962350],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracG",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is recognized as an object in spinor space by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->481162453],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracG",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " should only appear as a four-vector (e.g. ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["LTensor",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LTensor"], "[", 
+   RowBox[{
+    ButtonBox["DiracG",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/DiracG"], ",", " ", 
+    StyleBox["\[Mu]", "TR"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"], "\[Mu]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "), or as a dot-product with another symbol (e.g. ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["LDot",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/LDot"], "[", 
+   RowBox[{
+    ButtonBox["DiracG",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/DiracG"], ",", 
+    StyleBox["p", "TI"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ StyleBox["\[Gamma].p", "InlineCode"],
+ ")."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracG",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]g\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->1315467655],
+
+Cell[TextData[{
+ "Although the symbol ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be used in other ways, such as an index in ",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"], 
+   RowBox[{"\[Gamma]", ",", "\[Delta]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", using different symbol is prefered. ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracG#1181380282"]
+}], "Notes",
+ CellID->1566366945]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(6)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1461871778],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(5)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->318567519],
+
+Cell["Traces involving Dirac gamma matrices:", "ExampleText",
+ CellID->630114248],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->352102539],
+
+Cell[BoxData[
+ RowBox[{"4", " ", 
+  SubscriptBox["\[DoubleStruckG]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]], "Output",
+ ImageSize->{37, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->188718255]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{"\[Gamma]", ".", "k"}], ",", 
+   RowBox[{"\[Gamma]", ".", "p"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1576421671],
+
+Cell[BoxData[
+ RowBox[{"4", " ", 
+  RowBox[{"k", ".", "p"}]}]], "Output",
+ ImageSize->{35, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1875525116]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1906358167],
+
+Cell[TextData[{
+ "A ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " without an index or dot is invalid:"
+}], "ExampleText",
+ CellID->129659275],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{"\[Gamma]", ",", 
+   RowBox[{"\[Gamma]", ".", "p"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->498300035],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"Spur", "::", "symb"}], "MessageName"], ":", 
+  " ", "\<\"Expression '\[NoBreak]\\!\\(\[Gamma]\\)\[NoBreak]' does not \
+contain any recognized Dirac matrices;\\n possibly missing Dirac unit matrix \
+(alias: [\\!\\(\\*\\nStyleBox[\\\"Esc\\\",\\nFontWeight->\\\"Bold\\\"]\\)] 11 \
+[\\!\\(\\*\\nStyleBox[\\\"Esc\\\",\\nFontWeight->\\\"Bold\\\"]\\)]). \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/Spur\\\", ButtonNote -> \
+\\\"X`Spur::symb\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->785109909],
+
+Cell[BoxData["$Failed"], "Output",
+ ImageSize->{54, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1202713395]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1234323531],
+
+Cell[TextData[{
+ "All objects in spinor space should be entered inside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Otherwise, symbols outside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are always assumed to commute, and can lead to incorrect results:"
+}], "ExampleText",
+ CellID->112289572],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "-", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Nu]"], 
+   SubscriptBox["\[Gamma]", "\[Mu]"]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->690133867],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1607301782]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], "-", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->917701703],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], "-", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]}]], "Output",
+ ImageSize->{277, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->33401867]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2022583126],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1035950319],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", "m", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{"\[Gamma]", ".", "p"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "+", 
+     RowBox[{"p", ".", "p"}]}], ")"}]}]}]], "Output",
+ ImageSize->{308, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1514045154]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1944359096],
+
+Cell[TextData[{
+ "A transition current: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     OverscriptBox["u", "_"], "(", 
+     SubscriptBox["p", "2"], ")"}], 
+    SubscriptBox["\[Gamma]", "\[Mu]"], 
+    RowBox[{"u", "(", 
+     SubscriptBox["p", "1"], ")"}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->439479436],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[LeftAngleBracket]", 
+  RowBox[{
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->124811693],
+
+Cell[BoxData[
+ RowBox[{"\[LeftAngleBracket]", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p2", ",", "m"}], "]"}], ",", 
+  SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]], "Output",
+ ImageSize->{155, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->432358345]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "If the symbol ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is used in ways other than representing the Dirac gamma matrix, it can \
+cause it to be added to the ",
+ Cell[BoxData["Global`"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " context, causing it to shadow the ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X symbol:"
+}], "ExampleText",
+ CellID->1181380282],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"Run", " ", "this"}], ";", " ", 
+    RowBox[{
+    "the", " ", "\"\<\[Gamma]_\>\"", " ", "causes", " ", "it", " ", "to", " ",
+      "be", " ", "added", " ", "to", " ", "the", " ", "Global`", " ", 
+     "context"}]}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"myTensor", "[", 
+    RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], "=", 
+   RowBox[{
+    SubscriptBox["p", "\[Alpha]"], 
+    SubscriptBox["p", "\[Beta]"], 
+    SubscriptBox["p", "\[Gamma]"]}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1548734670],
+
+Cell[TextData[{
+ "The shadowing usually only affects the front-end syntax highlighter, \
+without interfering with the operation of ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X.  Thie conflict can be resolved by deleting the symbol with ",
+ Cell[BoxData[
+  ButtonBox["Remove",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Remove"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->2055031912],
+
+Cell[BoxData[
+ RowBox[{"Remove", "[", "Global`\[Gamma]", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->661196873]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckOne]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dirac1"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]5",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG5"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]L",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPL"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]R",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPR"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Sigma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracS"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Spur",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Spur"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineExpand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineExpand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->487559862],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "DiracG (\[Gamma]) - Wolfram Mathematica", "DiracG (\[Gamma])"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 3.227932}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LTensor[DiracG, \\[Mu]] or \\[Gamma]_\\[Mu] represents the Dirac gamma \
+matrix with index \\[Mu].LDot[DiracG, p] or \\[Gamma].p represents the \
+Feynman slash OverlayBox[{\"p\", \"/\"}, Alignment->{Center, Center}].", 
+    "synonyms" -> {}, "title" -> "DiracG", "titlemodifier" -> "", 
+    "windowtitle" -> "DiracG (\[Gamma])", "type" -> "Symbol", "uri" -> 
+    "X/ref/DiracG"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/DiracG5.nb b/packages/X/Documentation/English/ReferencePages/Symbols/DiracG5.nb
new file mode 100644
index 0000000000000000000000000000000000000000..0823a418e28a6aaf6116fe74e095d8e498f41a63
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/DiracG5.nb
@@ -0,0 +1,1673 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Tutorials \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Ward Identities and \[Gamma]5 in Dimensional \
+Regularization\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/AdlersMethod"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"\[DoubleStruckOne]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dirac1"], "\<\"\[Gamma]\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracG"], "\<\"\[DoubleStruckCapitalP]L\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracPL"], "\<\"\[DoubleStruckCapitalP]R\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPR"], "\<\"\[Sigma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"], "\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracMatrix"], "\<\"Spur\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/Spur"], "\<\"FermionLineExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/FermionLineExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/DiracG5\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/DiracG5"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/DiracG5.html"]\
+, StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/DiracG5", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "DiracG5 ",
+ StyleBox["(\[Gamma]5)", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      ButtonBox["DiracG5",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      ButtonBox["\[Gamma]5",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]represents the fifth Dirac gamma matrix ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox["\[Gamma]", "5"], "=", " ", 
+        RowBox[{"i", " ", 
+         SuperscriptBox["\[Gamma]", "0"], 
+         SuperscriptBox["\[Gamma]", "1"], 
+         SuperscriptBox["\[Gamma]", "2"], 
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "3"], "."}]}]}], TraditionalForm]], 
+      "InlineMath"]
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1469942616],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracG5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is recognized as an object in spinor space by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->477695870],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracG5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]g\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "5 (the '5' should not be set in subscript position)."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracG5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " anticommutes with all other gamma matrices (naive implementation of \
+dimensional regularization)."
+}], "Notes",
+ CellID->311225104]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(4)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->673672024],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(2)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->871920384],
+
+Cell[TextData[{
+ "Take the trace of ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["\[Gamma]", "5"], TraditionalForm]], "InlineMath"],
+ " with various gamma matrices:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->750592396],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Spur", "[", "\[Gamma]5", "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[Gamma]5"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", "\[Gamma]5"}], 
+  "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2097629337],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->996604135],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1700733992],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+   "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}]], "Output",
+ 
+ ImageSize->{75, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1228861974]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->415077511],
+
+Cell[TextData[{
+ "All objects in spinor space should be entered inside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Otherwise, symbols outside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are always assumed to commute, and can lead to surprising results:"
+}], "ExampleText",
+ CellID->112289572],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[Gamma]", "\[Mu]"], "\[Gamma]5"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->690133867],
+
+Cell[BoxData[
+ RowBox[{"\[Gamma]5", " ", 
+  SubscriptBox["\[Gamma]", "\[Mu]"]}]], "Output",
+ ImageSize->{34, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2132891631]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[Gamma]5"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->584670073],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[Gamma]5"}], "]"}]], "Output",
+ ImageSize->{135, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->104893667]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "Cyclically permuted traces involving the product of ",
+ StyleBox[ButtonBox["\[Gamma]5",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracG5"], "InlineCode"],
+ " with six or more gamma matrices yield ",
+ StyleBox["apparently",
+  FontSlant->"Italic"],
+ " different results:"
+}], "ExampleText",
+ CellID->1627032130],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Tau]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Lambda]"], ",", "\[Gamma]5"}], "]"}]], "Input",
+ 
+ CellLabel->"In[1]:=",
+ CellID->302014254],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[FinalSigma]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Tau]"}]]}], "+", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", 
+     "\[Tau]"}]]}]}]], "Output",
+ ImageSize->{511, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->445569268]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Tau]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Lambda]"], ",", "\[Gamma]5", ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->234972704],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[FinalSigma]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Tau]"}]]}], "+", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", 
+     "\[Tau]"}]]}]}]], "Output",
+ ImageSize->{511, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1179472603]
+}, Open  ]],
+
+Cell["The difference is a totally antisymmetric rank-6 tensor:", "ExampleText",
+ CellID->625232501],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "-", "%%"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->630553774],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "+", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "+", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", 
+     "\[Tau]"}]]}]}]], "Output",
+ ImageSize->{417, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->803336748]
+}, Open  ]],
+
+Cell["\<\
+By Schouten's identity, totally antisymmetric tensors of rank higher than the \
+number of space-time dimensions vanish.  In many cases, the ambiguity can be \
+resolved by imposing symmetrization properties on an amplitude.\
+\>", "ExampleText",
+ CellID->1309626884],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1059591922],
+
+Cell[TextData[{
+ "Since ",
+ StyleBox[ButtonBox["\[Gamma]5",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracG5"], "InlineCode"],
+ " is (naively) defined to anticommute with all gamma matrices in ",
+ Cell[BoxData[
+  FormBox["d", TraditionalForm]], "InlineMath"],
+ "-dimensions, a contradiction can be reached:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1357318193],
+
+Cell[TextData[{
+ "Compute the trace of a product of six gamma matrices with ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " first; then contract a pair of indices:"
+}], "ExampleText",
+ CellID->1953716435],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Tau]"], ",", "\[Gamma]5", ",", 
+   SubscriptBox["\[Gamma]", "\[Alpha]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->715865326],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[FinalSigma]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]"}]]}],
+   "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Tau]"}]]}], "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Alpha]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Alpha]", ",", "\[Mu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], 
+  "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], 
+  "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", 
+     "\[Tau]"}]]}]}]], "Output",
+ ImageSize->{519, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->964552449]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Alpha]"}]], "%"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->61119220],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+   "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}]], "Output",
+ ImageSize->{82, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1403069]
+}, Open  ]],
+
+Cell["Contract pair of indices before computing the trace:", "ExampleText",
+ CellID->1893264935],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Tau]"], ",", "\[Gamma]5", ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1980822971],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+   "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}]], "Output",
+ ImageSize->{84, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1679219903]
+}, Open  ]],
+
+Cell[TextData[{
+ "The difference is ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", "\[Epsilon]", ")"}], TraditionalForm]], 
+  "InlineMath"],
+ "."
+}], "ExampleText",
+ Deletable->True,
+ CellID->986839992],
+
+Cell["\<\
+This will affect VVA and AAA three-point functions.  Apply Adler's method to \
+enforce Ward Identities by hand.\
+\>", "ExampleText",
+ CellID->2022671629]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckOne]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dirac1"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]L",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPL"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]R",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPR"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Sigma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracS"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Spur",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Spur"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineExpand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineExpand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Tutorials", "TutorialsSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "TUTORIALS", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "TutorialsSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Tutorials"}], "TutorialsSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->250839057],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Ward Identities and \[Gamma]5 in Dimensional \
+Regularization",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/AdlersMethod"]], "Tutorials",
+ CellID->341631938],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->2084970407],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "DiracG5 (\[Gamma]5) - Wolfram Mathematica", "DiracG5 (\[Gamma]5)"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 1.524701}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "DiracG5 or \\[Gamma]5 represents the fifth Dirac gamma matrix \
+\\[Gamma]_5 = i \\[Gamma]^0 \\[Gamma]^1 \\[Gamma]^2 \\[Gamma]^3.", 
+    "synonyms" -> {}, "title" -> "DiracG5", "titlemodifier" -> "", 
+    "windowtitle" -> "DiracG5 (\[Gamma]5)", "type" -> "Symbol", "uri" -> 
+    "X/ref/DiracG5"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/DiracMatrix.nb b/packages/X/Documentation/English/ReferencePages/Symbols/DiracMatrix.nb
new file mode 100644
index 0000000000000000000000000000000000000000..921ce0f9811f060be606dbba618907b652dd22fa
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/DiracMatrix.nb
@@ -0,0 +1,3072 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"\[DoubleStruckOne]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dirac1"], "\<\"\[Gamma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracG"], "\<\"\[Gamma]5\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"\[DoubleStruckCapitalP]L\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracPL"], "\<\"\[DoubleStruckCapitalP]R\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPR"], "\<\"\[Sigma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"], "\<\"Spur\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Spur"], "\<\"FermionLine\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/FermionLine"], "\<\"FermionLineExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/FermionLineExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/DiracMatrix\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/DiracMatrix"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/DiracMatrix.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/DiracMatrix", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["DiracMatrix", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["DiracMatrix",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/DiracMatrix"], "[", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["mtx", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        StyleBox["\[Ellipsis]", "TR"], ",", 
+        SubscriptBox[
+         StyleBox["mtx", "TI"], 
+         StyleBox["n", "TI"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]represents a product of objects in spinor space."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1768487329],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The following spinor space objects may appear as linear combinations inside \
+",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Notes",
+ CellID->474992141],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["Dirac1",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/Dirac1"], " ", "or", 
+     ButtonBox["\[DoubleStruckOne]",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/Dirac1"]}], Cell[
+    "unit matrix in spinor space", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["DiracG",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracG"], " ", "or", " ", 
+     ButtonBox["\[Gamma]",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracG"]}], Cell[
+    "Dirac gamma matrix", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["DiracG5",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracG5"], " ", "or", " ", 
+     ButtonBox["\[Gamma]5",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracG5"]}], Cell[
+    "fifth gamma matrix", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     RowBox[{
+      ButtonBox["DiracPL",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPL"], "/", 
+      ButtonBox["DiracPR",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPR"]}], " ", "or", " ", 
+     RowBox[{
+      ButtonBox["\[DoubleStruckCapitalP]L",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPL"], "/", 
+      ButtonBox["\[DoubleStruckCapitalP]R",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPR"]}]}], Cell[
+    "left/right chiral projectors", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["DiracS",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracS"], " ", "or", " ", 
+     ButtonBox["\[Sigma]",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracS"]}], Cell[
+    "gamma matrix commutator", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["DiracMatrix",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracMatrix"], "[", "]"}], Cell[
+    "sequence of multiplied objects in spinor space", "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True, True, True}}}},
+ CellID->1590026210],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be used to bracket a product of matrices inside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"], "[", "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is effectively equivalent to the unit Dirac matrix ",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckOne]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dirac1"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->335877360]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(6)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1792864023],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1322583504],
+
+Cell["A product of Dirac matrices:", "ExampleText",
+ CellID->1966226379],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+    RowBox[{"me", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p2"}], "-", 
+    RowBox[{"me", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->667196036],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "me"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p1"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "\[DoubleStruckOne]"}], " ", "me"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p2"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Output",
+ ImageSize->{288, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->84678964]
+}, Open  ]],
+
+Cell["Its trace:", "ExampleText",
+ CellID->208298666],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "Spur"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->564266995],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "+", 
+  RowBox[{"4", " ", 
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Nu]"]}], "-", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["me", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{"4", " ", 
+   RowBox[{"p1", ".", "p2"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{276, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1540185001]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1715436019],
+
+Cell[TextData[{
+ "Bracket a product of matrices inside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"Tr", "[", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"p", ".", "\[Gamma]"}], "+", "m"}], ")"}], "   ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"p", "+", "k"}], ")"}], ".", "\[Gamma]"}], "   ", 
+        SuperscriptBox["\[Gamma]", "\[Mu]"]}], "+", 
+       RowBox[{
+        SuperscriptBox["\[Gamma]", "\[Mu]"], "  ", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"p", "+", "k"}], ")"}], ".", "\[Gamma]"}]}]}], ")"}], "   ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"p", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+   TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->482655006],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   RowBox[{
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"p", "+", "k"}], ")"}], ".", "\[Gamma]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], "+", 
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"p", "+", "k"}], ")"}], ".", "\[Gamma]"}]}], "]"}]}], ",", 
+   RowBox[{
+    RowBox[{"p", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->968091918],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"8", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   SubscriptBox["k", "\[Mu]"]}], "+", 
+  RowBox[{"8", " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   SubscriptBox["k", "\[Mu]"]}], "+", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   SubscriptBox["p", "\[Mu]"]}], "+", 
+  RowBox[{"8", " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   SubscriptBox["p", "\[Mu]"]}]}]], "Output",
+ ImageSize->{215, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->779150633]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1519967890],
+
+Cell["Compute a loop integral:", "ExampleText",
+ CellID->1782346165],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"k", "+", "p"}], ")"}], ".", "\[Gamma]"}], "-", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], "]"}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "M"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"%", "//", "LoopRefine"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1440734981],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "m"}], " ", 
+   RowBox[{"DiracMatrix", "[", "]"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{"\[Gamma]", ".", "p"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}], "+", 
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "1", ",", 
+       RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{414, 28},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1079666578],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{"\[Gamma]", ".", "p"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"p", ".", "p"}], ",", "m", ",", "M"}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"], "+", 
+         RowBox[{"p", ".", "p"}]}], ")"}]}], 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       SuperscriptBox["M", "2"], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "p"}]}]}], 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "4"]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"], " ", 
+          SuperscriptBox["M", "2"]}], "-", 
+         SuperscriptBox["M", "4"], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["M", "2"], " ", 
+          RowBox[{"p", ".", "p"}]}], "+", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         SuperscriptBox["M", "2"]], "]"}]}], 
+      RowBox[{"4", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"p", ".", "p"}], ")"}], "2"]}]], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "2"}], " ", "m"}], "-", 
+     RowBox[{"m", " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "M"}], "]"}]}], "-", 
+     FractionBox[
+      RowBox[{"m", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"], "+", 
+         RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         SuperscriptBox["M", "2"]], "]"}]}], 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}]], "-", 
+     RowBox[{"m", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}]}]}]], "Output",
+ 
+ ImageSize->{569, 170},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1866842943]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->569133955],
+
+Cell["Expand out a product of Dirac matrices:", "ExampleText",
+ CellID->542217947],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p"}], "-", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->671870010],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", "m", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[Gamma]", ".", "p"}]}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"p", ".", "p"}]}], ")"}]}], "-", 
+  RowBox[{"2", " ", "m", " ", 
+   RowBox[{"DiracMatrix", "[", "]"}], " ", 
+   SubscriptBox["p", "\[Mu]"]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{"\[Gamma]", ".", "p"}], "]"}], " ", 
+   SubscriptBox["p", "\[Mu]"]}]}]], "Output",
+ ImageSize->{363, 34},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1144391830]
+}, Open  ]],
+
+Cell[TextData[{
+ "View in ",
+ Cell[BoxData[
+  ButtonBox["TraditionalForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/TraditionalForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1273566913],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "TraditionalForm"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1732168887],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"2", " ", "m", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["\[Gamma]", "\[Mu]"], 
+      TooltipBox[
+       OverlayBox[{"p", "\<\"\[ThinSpace]/\"\>"}],
+       RowBox[{"\[Gamma]", ".", "p"}]]}], ")"}]}], "+", 
+   RowBox[{"2", " ", 
+    SuperscriptBox["p", "\[Mu]"], " ", 
+    TooltipBox[
+     OverlayBox[{"p", "\<\"\[ThinSpace]/\"\>"}],
+     RowBox[{"\[Gamma]", ".", "p"}]]}], "+", 
+   RowBox[{
+    SuperscriptBox["\[Gamma]", "\[Mu]"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "-", 
+      SuperscriptBox["p", "2"]}], ")"}]}], "-", 
+   RowBox[{"2", " ", "m", " ", 
+    SuperscriptBox["p", "\[Mu]"]}]}], TraditionalForm]], "Output",
+ ImageSize->{240, 23},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]//TraditionalForm=",
+ CellID->1688258869]
+}, Open  ]],
+
+Cell[TextData[{
+ "Generate ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{"T", 
+     AdjustmentBox["E",
+      BoxBaselineShift->0.5,
+      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], "TR",
+    SingleLetterItalics->False], TraditionalForm]]],
+ " code (requires \\usepackage{slashed} in preamble):"
+}], "ExampleText",
+ CellID->144697377],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%%", "//", "TeXForm"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1774042505],
+
+Cell["\<\
+2 m \\left(\\gamma ^{\\mu }\\slashed{p}\\right)+2 p^{\\mu } \
+\\slashed{p}+\\gamma ^{\\mu } \\left(-m^2-p^2\\right)-2 m p^{\\mu }\
+\>", "Output",
+ ImageSize->{829, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]//TeXForm=",
+ CellID->947777842]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   Cell[BoxData[
+    FormBox[
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["e", "-"], "\[Gamma]"}], "\[Rule]", 
+      RowBox[{
+       SuperscriptBox["e", "-"], "\[Gamma]"}]}], TraditionalForm]], 
+    "InlineFormula",
+    FontFamily->FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro",
+       Inherited]],
+   " Matrix Element",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->536511945],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJzs3T+LbFnXGPYX2xvJ2cw3aD8fwFyYVEHZTKjgIjNY4KQk7Amc+CIbBmWV
+GCZsnNgDNnRkzIOCGwomqcCBgkFcsAJhNKYxMghZjBu/IEsW+LrP9O651af2
+rjpVdarW2ef8XvhJz9yu7l77VPX5s/Zea/97f/u/+Bvf/1t/8Rd/8V/+1ef/
+52/8rR/+g7/zd/7W3/2P/p3n//gP/+5/9Z/97X/7+X/8u89f/+n5X7p//Pz5
+MwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMVvor
+f/XbZz/0/Pbs87NvouMDAAAAYJrSX/mrP+Uc0iG/RccJAAAAQBu6tUo765Z2
+/RgdGwAAwNyoJQHm7Pk89udCjunb6LgAAADmQC0JsBSFHJNzGwAAwBWoJQHm
+rHB++yk6JgAAgLlSSwLMUa4F7p/bvouOCwAAYK7UkgBz1K3HdG4DAAC4HbUk
+wBw9n8t+6Z3b/hwdEwAAwFypJQHmKPeac24DAAC4EbUkwBw9n8t+6J/bnn0d
+HRcAAMBcqSUB5uj5XPazcxsAAMBtqCUB5qhbr1Q4t30fHRcAAMBcqSUB5qjL
+lRdyTF/vfL3Uh67m1+jxAABf5Ov4Dz2vexh9Ex0fwFKpJQHmqDuX9c5tPx94
+7beFvTU/5/vVP0WPhat/VjynADSg2/d6wLyQvrIAQdSSAHNVyBn9cMLr/2w9
+57x5TgFoW+73UZof+jE6NoClUksCzFHl3FXNGfVqhg/mopgfzykAbSqsWe58
+Gx0XwFKpJQHmqMsN9M5Tvxx47bfuS/GcAtCewrnb+lOAQGpJgDnqckpDzm07
++aVfk747i+Y5BaA9hWeZn6JjAlgqtSTAHOW6p/65bW+t5fO/ff+6xslaTDyn
+ALSl8izzXXRcAEullgSYo14+vHhu2zn/VeuDWQ7PKQDtKTzLWH8KEEgtCTBH
+Xd7o0LltpybKOhV+5zkFoD2FZ5k/R8cEsFRqSYA56up9C+e2b/LX/rRzP6re
+lz94TgFoS+VZxvpTgCBqSYA56u4vS+e2tL8vpppffuc5BaA9hWeZ7hpvLyKA
+IGpJgDlK+3uD/bizHlM/Z/Z4TgFoT+FZxvpTgCBqSYC5Svt7g/XvQeUR6H9m
+PKcANKTyLPN9dFwAS6WWBJijVN4b7Pc1S4XznvtRPKcANKhyTf965+u1+4GS
+X6PHA9A6tSTAHKX9vcH+6KuTcwl7a5yiYyb8M+M5BaAxhWeZ6vW8MIf+R5+Q
+ZD8jgFGoJQHmKO3vDdbvM/dT4Tzn/nLBPKcAtKdwLj7Y36P3+j97vgEYz4E5
+WbUkQLNSeW+wb3qvKZ3/9J1bMM8pAG2pXMur5+L0dl8H13yAkSW1JMAMpf29
+wX6pvO5X9U3kz4LnFIDGFJ5litf7/Nrd87w+swBXoJYEmKO0X/P7Y+V1/VzU
+H3l2lsVzCkB7jj3L7Lzu9bz9a39dMwDjUEsCzFEq7w1WzBtV1mvaq36BPKcA
+tKXyLLM3F56+7GX0i7lygOtRSwLMUTqyN1jh9aX1mnuvzz+3uraFdnlOAWjP
+kGeZnTWq+n0AXJlaEmCOCjmjg3mhLlcwZL1mzrfb92CGPKcAtKfwLNPv+fG6
+V+hP0bECzJ1aEmCuCuerYv689z39Pet/213LlHMQ1jDNlOcUgLZUnmW+yV/7
+U/pS/6zHB8ANqCUB5qhS83R03WUq9577OX/t9Xyp984MeU4BaE/hWeaX/O/f
+9uaa7MsAcANqSYA5Svt7gx3Mn/e+t7+W6aS1ULTJcwpAewrX7O76/33h+m39
+KcANqCUB5ijt7w02+JyUc+n9c+Pg2uB8DuzvkfCj9U/T5jkFoD2F63W/5rn4
+vALA+JJaEmCGhq63PPIzvtnJU/025PsL611K1FlNlOcUgLZUnkl+nwtI5X4g
+aiwArihNpJYkXwPs/ww0q5Kzr7Ef58R4TgFoT+VZ5rv8tdJeRfYDBbiiFFhL
+kn/Gd70Y5JiAJu2cy37cPZfl3EU/J/9rdLzsvX+eUwAaU3iW6e8FWtqryPMG
+wBWkoFqS/H393JJzPtCsnTUw1V7QhRyGeuIJ8ZwC0JbK+uFveq8prVFVsw4w
+Izm31fW4+CFzvw40LecfhvRr2l0Lo15uIjynALSn8BxRrMdI+3twWEsMMGO9
+874cE9CcfB472suuVzNXXfPEzd8/zykAjUn7+zIU+8EWzvHmeYBJez5HffVs
+lX14tsnWr/8eHeOUyTEBS9Grt7Iv2UR4TgFoS3rpkzfofJzKPfUG948FuLbn
+c9JdziV9fPZUOL/VPObv6b73LnocUyHHBCzFzjom/aInwnMKQHtSeb/P6txN
+KvfU23t9/rmD90ACOFdeq9Tlhj6dkFM65lP+mV9Fjy/42MoxAYuwk59QJzcR
+nlMA2lM4Fx8836aBex3l55Lvo8cHzFdes/Rw4nqlU3U/+36puSY5JmAJ0pee
+0cU6LMLeF88pAI0prCk9em1Nb3sifs4/4+udr/9gbgC4lrxuaXNGbql7/TY7
+53s3S8s1yTEBS5DPdYu7d00vvQlfr4cf839P5jrnOQWgLam8F+jR3nipvD/o
+z/lrr2tav7lm7GeMdZW+9Pp9Hx0PcL6cIzqWE9rmv/fVofvl9LIW6vX8MKTW
+ruvbtIo+Bjc81nJMwKx1eYsu55AW0Of7eYzv8nXs9TpZmm+ZxPrdJT2nAMxF
+vqYOrnHufW9/juCkOYaAsW56Ma6jYwJOl17WMNXOPZ8unYNNX3o7PR74PZ1N
+9LG40fGWYwJuKp+Hb5LfyGtafl3K+S29rFU6af1uYKyLeU4BmIs8Z7N7zh28
+bjS91Dv31692ju7fsHM9f3O+v+acQiHH1LGeCRqTXtYcldYsra70uw6tmfp4
+q+egwOMtxwRcVc4pvU8va2e6uYKHG/3e75aUX8pj7l/T7gfkmrr35F1ArCHP
+KZXPyS9L+pwAnCMN7Il35Gd8s3P+/+3Y96eXtaul8/3ZMZwQ64fK/Mxd9HsB
+DJdeats2+T65W2u0vsHv3O1XUbr3nm2eSY4JGFshp3TzdeY796SLOq/1r2H5
+396l4+t3u2vgzeZmI55TCt//XXqb51rUZwVg6lK5prrmaK31mTGU1gdvo48N
+MH35mahWYzDbPJMcE3CpIzml3RzGTdbK5HvS7ty2qJ48qVBrXnjNsfW76+hx
+3OA49XNLroEAE7Rzrv5x9xyd55H6NdO/XimGryr3Nuvo4wO0IZXXRP6eZ4qO
+7UrjlWMCTjIwpxSSpz8lv/T8mp/SjPqAp0Kt+YHXfkj19bvr6LFc8Rh166d+
+Ti99PX6QYwKYpvRlf4dvD7ym39fvKnNL6WU9cP9a+Rh9jIB2pJfaudJ990N0
+bFcYqxwTcNAZOaWQ8+YZ+aVZ9YZO+71Jn468/u7A+3nz/kxBx8w1EGCC8nX6
+aA10etur6Sr1cvn3lPp/r6OPE9COA3mmdXRsI4/T/TUsUJ6TW2Uf8r1Tp6sZ
+3qb6vvenWN9wPLUe0IfMqpYu7dfAfRzwPbUagO69n2WNeG/8roEAE5TPz0fX
+Gqe3NXPVNU8jxPNV4b5olnUuwPVU8kyz2ktgrPvr9LLGYRU9Hli6vDZlvZMz
+etjJGR3q+Tymm/VeymP+U9rfz/iYwXuYtSAVejE9+3DC95byTEdzVK2TYwJo
+W3pZ7/R6Hr9q/Xsqr2W6iz4GQFtSed/n2dx3j3F/3cvrb+WaIE46vE/mLXTn
+gJuufzkjv9S5yj7Hge97qZfg3Qnf353HSznIVfTYbvjZkWMCaEz6so7p5xv8
+rrPncwB2VeZ3V9FxjTCufr/T78/8OaWcvlwTBEkva5lq+2Re03302JeqkB86
+ef1+WmBPUzkmgLalL3XyV6uT6/2+/v3VNvoYAO2p3Hdvo+M6cyx/GvisOCjf
+lMq1yXJNMAHppdfSLerjunPAOnq8S5XKdd1nzaum8trd99FjvOKxk2MCaFT6
+svfczfbwSPvrhg/urwFQk156msxuLdMIx+WryrGRa4IJyH+jpbWGY+lyWIvY
+g2yqCnnEs/t1V+YNttFjvOKxk2MCaFQ+h9+0v2Kev+vfC81+jwxgfOml9qR/
+PnmIjmsq8vGRa4KJSi/rMfv7jl3q5r2X2HtfS32YNhf+zNJaprvosV7p+Mkx
+ATTo+Zz9Y5dfSlfu8134vaWeTKvo4wG0qZJD8Xz19hjJNcGE5ZzEGD3B9V6K
+fy/vCu/l2WuYej+3/37PsqepHBNAe9JLT9lfo87bckzAWFK5L9M6Oq4pkmuC
+6Xr+m/vrz/7PC/JLs8w3tCaV96MY5b0p/OzZ7KfaG6ccE0BDns/V30Xml3IM
+ckzAaJZy3z3i8ZJrgolILz0ELq2Xe4gex5nj7vpib7KP+Th07vO/fciva2Jt
+auW8evJecgd+fr+H1yx7msoxAbQjvfT4/i36fC3HBIwp7fepmOV99xWOm1wT
+BBkpt9RMfim9rDn9cMGYH/O5fpL7qVXOpV2N3Gi919NCeprKMQG04fkc/U0+
+Z38zgVjkmIDRVO6776LjaoVcE9zOiLml3/8mo8dzZKxdD85urVKpfuwSTznf
+dBc9xjzO2vlzfYXjOft7aDkmgOk7Jb/0/Jqf0hX7gKdy7xT76wIXKZxXJjnX
+PWVyTXA9J+SWhvwNfs55m0muYcm5kE0ap4/5kON1FzjOj5W4Nlf6nXJMAIQ6
+I7/045Xjed+/PkYfI6B9aX+efBMdU6vkmmA8J+aW7vL3tJxfWp+YW/qUj8/H
+nJe6T1/6Mp3ycza3PCbpZc70sfZeXvH3yjEBEKY7L6eX/kunzAddtZYu7fdN
+Ga0XIrBchWe4TXRMrZNrgvOdk1va+b5Drx+1x8+I4/1q4Hi7XNKHoWPI56H3
++Tgdyzk9XvtclL6s0aq+n1f+/XJMAITI+aVfj1yL+365QVz9OZ+H6GMFtK+Q
+v95GxzQX0bmm/Dz6EH0cYIhzc0u9728tv7Q6kv95zH/HF68zyvmmY8d39HNR
+Glb/9+EGx3rWOabn8fzQG9/30TEB8OKM/FLnhyvHVLpv0jMFuFjan1feRsc0
+N1G5pvSlxvoh+hhAzaW5pd7PqX3vFPNL6yO5pXXg8d7m+M7ObaWXmrj7I7ml
+p1vcz6aZ9vxOL/PiQ55T5JsAeKPwbPJ0yXUf4FUhx6QO93rH+qa5pt4z9zp6
+/LBrrNzSzs+r1WGto8daiPVQfmlzoxjeH8n/7J6PNvn9qr4P+evr/H7V+i3t
++nire9lUzj+6jwZgkfIzyd79VnRcwDwk+wlEHPOhe0ddlGsqPFeto8cOY+eW
+dn5uKce0jh5vIc5afqnLy9x0vVU+F/Xrpa+tG+dN1+IXPhtP0Z8DAIhSuQ+7
+i44LmIf0Us/QP8dMrq5kjq6da0rl+hDvLSGulVva+fn9PMJ99JgLMdbyS91x
+CVtXk4avsbw0t7QOGl9//9SP0Z8FAIiQXvo89q/RrovAqArnmav3X+XN8b9a
+rqnwMybZ+5j5unZuaef37P6Oh+hxF+J7V/kbn0ysOde0ScNq3YbqauLCeoim
+cj2AaxwAi3PgXuQuOjZgXgrPf3LZMe/D6Lmmyvc/uZZwbbfKLe38vtffNbnz
+V/7bLuVtHqJjOxBzdx/6IeeITsk5de9DV3/X1WGH9zxK5RrKiz9vANCSA/ml
+TXRswPxU7sHDnw2WasxcU9qvEXn1yXvMNdw6t7Tze7dT/Vyncs+j5vZXyO9t
+zWjv5YjxflU4j26j4wKAWzqQX2ruXgRoQyr3ZFpHx7V0Y+SajjzrT/J5nDZF
+5ZZ2fv9mip/nyvnV/sC3Ofal3F5Y3R4A3Fqq7yPrXgS4qrRfC/EYHRN/vDdn
+55oGPPM/RI+PtkXnlqaucmzkOa5/3Pv7ajY5X5tzlJvoOABoS35+qO3noT8r
+cHWpvMfAOjou3rxHJ+eaUrkOUp6Ji8ktDT5G/eMxuX5Rc5PKNXKf+zn4qcrx
+3/fmfjwLAHBU+rJ/R+15QX4JuInKPfljdFxU36uhuaah+5FvosdFG+SWTjpW
+peO06GNyg2PenR9Lfeiayu0Vzu/30TEBME05r7ROL/t0HLo3+yS/BNxSZc3L
+Jjouqu/X0FzTUOvoMTFdcksnH6+70rGJjmvODuSXuvVATfWcKMwPPEbHBMC0
+5LzSkHuz3+cqWrsWAu1L9foC+e4JGznXpE8Mb8gtnX3cSjl7x+e6x7yUX2qy
+JiC99Gh1LQZgT84t9XvpHlq7tIqOGViuVO7LZP+xBoyUa2ryeYyrfJ7kli47
+fv18R1O1Wq1J9brgZvPmhXO5ejmAM+X75HV0HBeO4V1lPqVk2/p4gfmoPFdu
+o+MaEPdrLfImj2HbOw8/7fz7fc6nraLjvsJx6K6hf//Z/yfPxBmfH7mly49h
+qU5uHR3XXKXymp/mj3khb/YYHRNAq/K9/yo6jgviXw+4N/uUn4PuouMF2JWf
+j0prYR6iYyvE+i7t779zjo/53N30eq18PIbWZR/LM62ix8NNPztyS+Mdy9J9
+YNPnlqlK9RrvdXRsI4xNvRzACPL98edW720Lcw79e3Z5JWDyUnnP7dfny9Bn
+pfxMcUod8qm5lSafoVO5/8ulPkSPi6t/buSWxj+m971j9yk6prkqHOvObGrK
+Cvmz2YwN4FZ27nOam+85kF96zS01NyZguSpz8b8/L0U9a+aYxtpHbRbP1DlH
+cI1822TyilztcyO3dJ1j2z+uD9ExzVEq1yQ2t4fckTGqlwO4wO7zTHQsZ8Re
+yy9t3ZsBrTqQZ+ryPDfrpZqfh4f2uOte9zHn9jf5ezsf8n/fD3y2fjXJOYL0
+sp7r0NrZMYXlFbna5+fYuje5pfOPbT/nu4mOaY4qn+FVdFwjj1G9HMCZ0tt6
+6qfoeE6MvfYM9hAdG8ClDpzjrp5HH5hHea1ve39qLigN7+f0OKX7+jzWW63n
+2j3OkzkGXPwZqvWxkVu6/NjOOu8xFYXP7zY6phuNU70cwADpbT31NjqeE+J+
+V7lH20THBjCWdLxG7WHM/EN6qYHYHPmdXd7nw6l5pQO/s1vr9PFInmUd/D58
+lcbp6X2J0GPAqJ+n3XUgckvjHVc5pusf49L6nputrb3xWNXLAZwofenz3WKO
+qXSv/xAdF8DY8rn6WL3ap5yPujvj53+VnxuO5Xm6vNPVelGn43uzPQS/D+v0
+pQ7wIce6TdftyTSpY8Bon6XXdYJ30bHMRSr3CFpFxzU3ab/Xd1M1ECeOVb0c
+wIkK9/Kb6JgGxl2qH9lGxwVwTWn4/mWf8vPrbk+kvnU6rT9Sl3+6SW+kdLge
+7SH6fTgS+13a70O1ycfvNSd1aa3dp1u9F9CKVNiTMzqmOSpcMx6iY7ryeNXL
+AQxUydNsouMaGHt/zvjJXCCwBDmHccuarS6fsQoY56HatIfo92HEca5yDurU
+91SPJtiRc7pyTNc/zv1z0To6piuPV70cwACp3m9y8vXULefGAMaScxPX3Nts
+O4VnhwNjDI/tiu/rKTmnWR4HOFXhXLGNjmlu0gLrEZN6OYBB0n4tdTPXicJ9
+d5crUzMALFK+5+/m74/1axriMV8fJnX/fCDPtIqO7QZjH5JzUrvB4qX9Ne7+
+LsY/xousR0zq5QAOSvt9vpvJy1fmTzbRcQFMQT5H7vZZOtb3Z5vzNx8aOP+X
+8kyPS5tjOJBz2i7tWMCryv3h5Nfmt2bBOSb1cgAHHJoLjY5tQOylOrm76LgA
+uL5U3vfuITqu4GOym3N6nHquEK4hlfdDkHMd/zgvNcekXg6gopKjaeY6UZhH
++BQdEwC3kV56CfbrYRZRM3fCMfLcw+IUzgsfo2Oao6XmmPLY1csB9By4N/9j
+nX10jAPG0O834vwOsCClZ5wWrl/AdVTmT9fRcc1R5fx7Fx3XjcauXg6gp7KO
+uKl79ELMau0BFqZwr28tEyxUYf7RXjDXO9ZfLfXcq14O4K1U7oXYVE+LJV/X
+APiick1TGwMLU1nDtImOa84KNWOLOd7q5QC+KMzxlGyi4zwyhtL6XPNUAAtU
+Wct0Fx0XcBt57rH/zG8N0/WPe3/voMXk99XLAbyo3IeXfIiO9cg4FttnEIC3
+KmuZJn0dA8aTyvtMbqLjmrvuPLvUOV/1cgCDejA1U3cmxwTArsJ8ur1G4Yju
+mTjfUzX7bFzJczxGx7UE+fOz2Py+ejlgyVK5Rr3lHFNpznrSMQNwPUueT4dD
+ch3Z+zzX2OViD+0r/Dl/fZtfv4qO/8jYave3k457TtJ+D47H6JhuOHb1csAi
+5TmGfp696RxTHldzMQNwHeYe4IucV+ryL6UasnN0P2cdPa7eGGv5pU10bEtS
+eR8WsZYpqZcDFijfc5+aX2rivrwwD7eJjgmAOK4LLF2+73s4895viO7nduub
+QtcIHsgvLabn9FSkhfdbL4xdvRwwW/mcP2QPuSbngApzc9vomACIU7gueN5k
+EfI939B9XUbLNQWNtTbOT0vJa0xNKtcqL+L8W/g8PkbHBHAthXvtueWY9N4A
+4A9pf2+LbXRMcG15Tc+QdUuP+Xn49z5L2V3+Ge92/m2T7yGH/szVjcb5LtXn
+TuWX4j+HpfdmEx3XDcatXg5YhOdz2/2F81Ob6DEMGKO9qgH4Q2Hu4TE6JriW
+9LJ26dh84mP+u7g783e8y/eUx/qEP5z7OwbE8Fr/V/vdW/mleKm8x1xnHR3b
+DcauXg6YtXT6HnJN5pjyWBe7lwUAb6WXNRhvrmfRMcE15Of5Q3mfLu+yGvl3
+rm+ZaxqQW/r990W/F7x5z0o1BrPPuRQ+p4/RMQGMpXR/faaH6LEMHG8pn7aO
+jguA25NjYgnS4f2Cr167lvMIx+roPuXXnVQzlMf2oTCH2Nf9/vfR7wXF97CW
+F9yOlX+cmqReDpipI/ccp9pGj2fgmBe9lwUAX6RyrYb7fGbjyL3e5oZxDKnT
+270v6/ILXc3dpuA+f33oPezHueYq5uJAnimsV/wNxqxeDpiVdNkecs3mmPLY
++z1ef7//iI4LgNsrXA+sdWAWDuSXun9bBcW0yvmhse4/D96bRo2Tsz4bh+oc
+n/L9+110nFcc72N0TACXuML1fRs9phPHX+oPsImOC4DbKsy3mEumeam8bvtz
+/rzfTSC+Ltd0yX7Gx9YtraLHyFmfi1p/pv5n+H4Kn+MLx6peDpiNI/MEr3MF
+XQ7qH884x1TrQ7WOjg2A2ylcEz9FxwSXKuROX5/NJ9UbIL306f4wwtznNl2w
+Hx7TkV7W3w2ttdi2fO9eyAOb4wCaU5kfeMz32H/0Wkwv81/91/2rQ+f56LGd
+cSxKNXPyTAALksp7QdxFxwXnqtzfNNF7Ms8BbvJ96faA+3zfuoqOmat9Fobs
+S7iba2rus1CY43iMjgngFHmu6PPOtfl97X6jcs/9Hxfy7c3mmPI4a2u69OMA
+WICda+OuD9FxwTkqn+enpAaHRuVnkqHr3O5byKXujK1UL+cZBJiltF8j/5j/
+vZR7ajbHlMdUyjM9mccGWIa0X5fxGB0TnKPyLC5nSvNy/nRdeEaZfE3okXH1
+5+8fomMCGFsq18nd73y92I8vOu4Lx1yq+95GxwXA9VXmT8wl05RU7jW5jY4L
+xpbzTZsD9RXNrN0rzHU/RccEMLbKvfa73mtKa3/uomO/YMxfVfJM6+jYALiu
+VN6D6zE6LjhFZQ3TXXRccC353F1b19REnimplwMWoHCufqy8rn8vs4qO/cJx
+vyuc44tjB2BeUrlPshojmlC5h3mIjgtuIc+Pl9Y0dT3DJ183V4j9ITomgLGk
+I3Vyhdfurv1ZRcc/wvhLzxjr6LgAuK7KWia9+WhCeul1bA0Ti5XzrKU80zY6
+tgGxn10vZ80TMHVpQJ1c7/W75/NVdPwjHYP+PqmP0TEBcH2VeYZtdFxwjHUQ
+cDDPNOk1qefWy+Xc8qfo+AEOGVon1/ue1/XZq+j4RzoGJ+XZAJiPVO7NV1zP
+O1XppR/uKvuQc2cfdv7tLjpGRn2/S3Vy1jawSJW/h8mvST01T7zzvLKNjh2g
+JpXr5DYDv3c9l/uZynFo6vkCgPNUnk8mXTed58C7+exSz+dDtvn7VtFj4KL3
+v7/+zr5ULFoq74H9EB3XkZgH18ult3tIbqNjB6iprN+5i44r6Fj013NZhwqw
+EJXnk0nlmfIzxkNh7vtcT/nnWbfbmEJu8WN0TBAtldek3kXHdSDeQfVyab8e
+cBsdO0CNvMqbY7GXb4uOCYDbKcwpT2Jda84tnbpe6VRba5vaUcgzbqJjgmi9
+tT6TOH8PiPlgvVza329JThmYrFSuD5t0f7wrH49SrcQqOi4AbudAnqnLwdx0
+P+x8XTont/SYv++c9U7d91nXNHHuV6CscM58jI7pSLwH6+UK+SU5ZWCykjq5
+0jFxzwawcAfyTF3OZn2D39/NAZX2pS/lkh7y9Xx15Ge+9gL/ODD3NOm5/yVL
+5bUad9FxwRSkcv3ZZPPmlXjf56/VrkWb6LgBSpI6udIx6d93L3ZdF8CSHbi3
+v2pdWc4XPR7J/zxc+vvzc82hMX7O8+eTfTZbqlKOKTommJLC/fwmIIb7nTmA
+g+fRQrwPqd4jUI4JmKSkTq52XPrrazfRMQEQ48g9/muuaT3C7/kq/65DuaXu
+GaTbS2zUer1u/Uva36Os/3tX0e8Fb94zOSY4oDCPvg2Iod+n+ylfMzb5b/ir
+ndf28/3/8si1ZxN9jAH6kjq52nGRYwLgD/k54di6oqf8THN0vrr3c19r147V
+rX289jU655oOxbKOfi/4473q5wQfo2OCKSnMDzwFxVF63uqvFe3WO/03A64D
+u/b2ngOIVriPXHydXD4u/bWq6+iYAIiXn+tP6aG9rSj1b615vPWzRHqpoauN
+cx39PvBHDU7oGg2YsjShtX6FfNcYVtHHGGBXUid36Ng4hwNQlF7W+hzrYTSG
+3+viAsf57kAubBX9Pixd2l9z/RAdE0xJPldP5tx1hetG2FgASpI6udpxeVc4
+LnqdAvBG+tLD6FgN3am6vM46enx5jF9V8kxPro3h7415QjhianmZA3l7OSag
+eUmdXO247K1ljY4JgGnL8xP3Fzw/bPP15y56LIWx1fJM3b+N2nucwe/JXg2Q
+nB/sm1pe5sD59Bz+5oHJSOrkDh2b8D0oAGhbzgF064U3Ox56//2+lWeEA89F
+99GxLVHa78UU0ssYpm5qOaYcU3+vubNEjwNgV1InVzsupdzbJjouAIiWXmoD
+S89FTeTJ5qTwPjxExwRTU1nvdxcd14HY5JiAZhXW6qiT+1zcB9i9MwBkee3V
+Xp1fdFxLUpkntIc59JTOV9Ex9eIr/S3LMQHNqazVWXydXD4u/XlBuTcA2FGY
+p5pE/clSpP395NTJQUHarymd3H19umCvuejYAV5VcuZ30XFFq6xhWkfHBQBT
+ksr7gW+j41qCyj3cJjoumKK030PuITqmSpylvP0xk8uXActVOI8t/hyVXnrv
+9c/dj9FxAcAUVebe76LjmrO83vqxv4Yp2dsP9lTu7dfRcVViPWevuW103ACd
+pE6udkxK5/V1dGwAMEWVtUz2mLvuMe/X/VjDBBWVPPhk87GpvqeCHBMwaZU1
+1nfRcQUfk9L61G10XAAwZYXr52N0THOVyr3WH6f8zAxRUrnH6sfouAbE/e6E
+PNM2Ol6ATuF+cLF1cvn6U5rjeFp63g0AjqnkPUL3Ys3X9m5P8A/ppc/iJt/7
+bPM6oNd/ex8d6wljqj132ksOCir396vouAbGPnSvucfoWAGSOrn+sajVPbtn
+A4ABpnBfkfNFD2m/V9EQTzkH9WGK80sH8ksP0bHBFOUcc9NrflJ5H6I90XEC
+VPLid9FxBR2H2jrUdXR8ANCKvD7o5vUoOffycOB6fq6PU5lrOpBf6ubI1MhB
+TyrXyDWzhqk3lv65tcR5AAiVFl4nl+c1Dp2v19ExAkBLCvPtV723GHAtH8tj
+5H1BHmfpWVk9PxSkeo3C5PswVcZT2hev+dwZMB9poXVy+fz8IR1eP/8kvwQA
+p0uFnkxX+j21HoqHru3brPu++53/PqWmrnv9Tfs2FfJ2u2NqoocU3NKB/FLT
+ffFTeS9JOSZgEtKC6uTSy96f9wPvIT+5XwOA86Ry75NRn+nS4Rr33WfJ+5zz
+GvT7c+ybyrNp3/21n1VzPLVY5JegItXXNjb9N5PqtX+LWS8ATFdaQJ1czi0N
+nePszteb6JgBoGWpvE56NeLPPnZdfxjj9+3MTx16nnvKOamxc2jvCvdp5sNg
+gFRf67OOjm2k8R3aZ24THR+wTJX7v9nkvfP4Bu2/kO8Pu/vRu+i4AWAOrpFj
+Sof3f/18rWv5zj3FsVzT/SV5n/x7umfHY72lPo6d04K5SIVa3Tnll3bGWTtP
+PETHBixTJf99Fx3XSGN7d+QedPcebe0+DQDGVbjmXrQv25H80qcxclgDYrhL
+h9cWvXqt0Vsfyjnln/damzekZ/nTnOYDYWypXke2jo7tCmOt9f/eRscGLFPh
+HmkWdXLpeH+GrbwSAFxXIR+0ueBnHcov3QeM7X06rUf4bo5oyBxYbY2Wexc4
+IJVr5B6i47rxeGfxTAe0Jc20Ti4drk3uckur6BgBYAkKc1ln7RV+IL8Uvv9r
+vu84J9d0am7pLvr9hKlLL+sCS2sKZ5ubTZV1W9FxActTycXcRcd1hTG93oNe
+tD4fADhN2u+J+HTmzyn1957UfmrpZV3TkBq6oR7z8buLHhu0orKmZxUd1w3G
+vfcMFB0TsDyF+6Cm11Sml3rkUn3cJ/dnAHB76aXPUP+6fFJe6Pn1H6aeX+rF
++1XONz2k02rinvK92Yepjg2mrvAssI2O6YZj759vnEeAm0kzq5NL9TX03b/N
+dm0sAExd4do8uHdSeql7ab53b54HW2XrvD5ptcO9ClwolfeSW0wdQyGnv4qO
+CViO0nrKltf6VNbFyi8BQLDCuunHC763s4keEzA9ab+m9jE6puBjsI6OB1iO
+wj1bs3Vyqdzb76nlnBkAzEVlXms94PtKdXbN3q8A15X2e+/ffL/JaOlt/+9N
+dDzAMsywTq7UB3Qx62IBYOoK9W6PA75nW7i+6y8C7Kk83yzyeSB96WG3iY4F
+WIY51clV1jBto+MCAL5I+/vLHVzLVFnD9BA9DmCaKueMu+i4Ao/HJ89EwK3M
+rE6u1IfpLjouAOCLXv3Gbl17sW9iZY3yXfQ4gGkq5ZiiY5rA8dhGxwHM3wzr
+5Pp11x+jYwIA9lXWMu1dtyv5qIfo+IHp2qkP+yOHHR1TtCX2owJur3D+bXZe
+ML3sA6zuGgAakHNH/bmhvZq5VN5/XB8moKqQw95GxwSwBLk2dy51cv1ryeLn
+KwBgyio9U97kkAp1co/Rce/E/iHX6W93fH7tfZI95HuU97VaQGBchXn0x+iY
+AOYulftjt1wn1+8rpU4OACYulXspPr3mmQprnULqPfK6q3XhfuNUn/KYrcWC
+Kynlr6NjApi7OdXJ5fH012RtomMCAI4rXMNf80x/vfDvN62Dz3NyD2m/J9QY
+unGvo48/zE1ljeRddFwAc5ZzTLtzg83WyeXx6MUEAA3Ka4RKeaaSm9Sb7eSW
+xs4rlTzKNcF4UnlfI88GADeQXnpl37d+b1O4jqyiYwIAhhmaZ7pRLKU972q2
++T5qk613/vcmf73U27y2rkkNHYyg8HdnXzUABpNjAoC2Dcgz/ZMr//7VgHzQ
+Yzqjn1JeFzW0n9Mm+r2A1hXWIT5GxwRAO+SYAKB9Oc+0PZB/Gb2uLOeWDv3O
+zzk3tBpxjN0ap0M9nrpcm33o4Ew5p+v5AICzuIYAwHwMqFd7Omc90c7P79YV
+9XtT1mrhVlca47Fc0+O544Oly39f/b+th+i4AGhD4b5sHR0TAHC+NLwP+FNe
+Z9Tla97ndUmr/DPevf53/vrDgLzS689c32icX6V6Dd2TPBOcJ5X79vt7AuCo
+whp3ff0AoGFHasmuqVsfdfM6tbyuSp4JRpLXK+6tTYyOC4DpK8xTfIqOCQA4
+T+XZcOgapHM85Z9/Fzzud5Xcmv5McIbKWqYP0XEBMG2p3NfvLjouAOB0lev6
+V/lr7/Nz4xjrnLb5d00mf3Mgz7SNjg1ak/PVpb+nVXRsAExXZb7THAUANGjo
++uT0pc/Sx3S8f9NTzind5zzVZPJKhXHV8kzubeBEqVyHqgYVgIMK95aP0TEB
+AKdJ5f2gTuqzmH/GquVnyBx/6bn4Ljo2aE3a7936+ve0io4NgGmqrKtfR8cF
+AAxXuZ43myu68FiU1l9so+OC1uS8c22to/WBABQV5j2fprwWHgB4K+339X6M
+jin4eJTWX6yi44LWHOjN9NqbbRUdIwDTUpnv+xgdFwBwXO6T1L+Ob6LjCj4m
+9l+HkeS/p0O92+SaAHijMP9pDSwANKBwDbce+XN1//VF1g/CpXLdXGl94Jv1
+k/nv7n10vADEqvTI1JsJACYsvewPZw1T+diU1jI9RMcFLcv1D7XauX6uuzs/
+3UXHDECMyn2qPBMATFC3JqfyXLf4NUw7x6i/lukpOiZoXc7fltYJ1tw7LwEs
+U9eHqXJtWEXHBgBjyfmZu+g4Loj/q0qd+zo6timprNNWxwMj2Mk1DV3X5G8P
+YGFSfY/Sp5bvxQFYnpxH+pCfgY71EXnKr+nm29dTvuYduFZvo2ObosLz7310
+TDA36WXvgSH5Jn9/AAvj3hWAVuW80n1ljc+pumvhpPqJHJkLUotSPmb9mp5P
+0THBnOV806G8/kfnK4BlsQYfgJbktUeH9ta+VPdMtAoeYy2/1LFf2uHPxpvj
+FR0TLEF6qVWt5fs/yTMBLEvSSxSAiTvyDHMN24h1TfmaXBvnOvp9mLLK/Yyc
+HNxAzo3X+oM/RMcHwG2l8l5zH6LjAmDZ8nNLbZ+KUl7otc/SKnuXvf73h/ya
+oWuhNreac6lci+WXTjuG/eO2io4JlqS0nvD1XBodGwC3VZg3fYyOCYDlSi+9
+Po71lf2YX3dyHijnr9bpeJ/wx2vmeHL8h9ZoXe13z03h82K+DG7sQJ7JukKA
+BalcD+w9CsDN5bVGtZzL09jri9KXvbkP5Zo+jZnvScd7Sz15Jjv5mPbzhZvo
+mGCJKusy9eEHWJjC/N9DdEwALMuRXM/9mLmlwu++G7Cu6SnHeNI8TF43NXTf
+7+01xzlXckwwHalc57yOjguA2ync1z9GxwTAchzIL3265ZqeNKxObze2hzxv
+v8nfu975749H1iv181fr6PehVYVn2o/RMcFS5bx6/zz6GB0XALeT74v797vm
+UQG4ugP5pYeIa1F+PtqckGu6xOj1f0uU9utz1OZAoMLfpLVMAAuS76f714FV
+dFwAzFvlOWQStU47uaZDfbnP9Si3NOp7Za4MJqSylsn6QoAFKVwH7MkCwNVU
+8gKTnOtOw/spHcsrndzPiUHvz13heDvOEKgyhyD3C7AQSb9MAG6kMsfdxLXn
+OcZ36Uvfpe2O1zHs/tsmv/YuOu65K6w3e4iOCZaskvtdR8cFwG3IMQFwK6nc
+g+khOi7aVfhMPUXHBEtXyP3eR8cEwG3IMQFwC8/Xl1WljkwNBWer1F6uo+OC
+JetySr2/yW10TADchhwTALdQuN7YZ4JRFNZM2F8OAj3/DX7on++jYwLgNgr3
+ZZvomACYl8oapofouJiHSo/hdXRcsFSlc350TADchjllAK7t+drysXC9uYuO
+i3lI5V7y6jAhiBwTwDJV5pXvouMCYD7y8781TFxVZS3TJjouWCI5JoBlKvTj
+sxcLAKMq9eUwn8HYKmuZrM+GAHJMAMtU6MX0MTomAOalUCenHzNXkcp7zD21
+ltPMz+c176Ljg2PkmACWp1Int46OC4B5KVxrPkTHxHxVen99mmpvpi7/1d1/
+dfWjhbm/Qz7l71m3lkNj/grrV9VKAMxc2t9D+mmq918AtKkyn2EdBleTa+ZK
+uZrJ5JlyjOsc09Cc0pCc03oqY2TZcv5z9/O5jY4JgOup3PM/RMcFwLwU5rI/
+R8fE/HV5zFTuzfQYmePMuaVNJbaxPOXfIddEmEKe9z46JgCu48D83l10bADM
+S9rf62sbHRPLcCDP1P3bOiCea+eWirmm6PeB5cl/e/3P4/vouAC4jsLaVXML
+AFxF2q/LfoiOieU4kGfqfLzFWp+8dnxITdynnId6f2itVR5T95r7E36u+lRu
+pvCsoRcTwEyllzr90jyX9dQAjK6QY9pEx8SyHMkzXa2uLL308i7N6/Vr97p6
+0rsLf8+HdLxfuF77XF3+PPY/ew/RcQEwvkp+ydpVAK6msM5iEx0Ty5Ofew+t
++XnK64LuRvhdq4G5pfUVxrk+kmt6MK/INVU++6vouAAYV75vKt1rqJED4GrM
+azAlB+6HSjVrq4E/s+tz+Vq7dmwt0dMt1hPldU21tVuT2V+PeUnlPYW20XEB
+MJ48b9evU7BuFYCry8/e5rOZlDS8P9LumqNttsm5pNf/PpZTCltDlP/+aveA
+8kyMKtX3FFpFxwbA5dKXvXFr9zlb9xYAXFNlTtu1h0lIx+vKxrKNfM4+cD+4
+jX4PmIf83FHK236Mjg2Ay6SXtdrdPNmhvXEfouMEYP4Kz7b2FmJy8r3Tx5Hz
+Sk/5fmwS+7mlek9OPRO4WCr3YLKnEECjBuaVXtlTBICbSPt1Oua0may8FmOd
+801D7qlKNXUP+WdM7tn6QJ5JjzTOVskvfZ5KfhWA4dJpa7y3zvUA3Eoq92Iy
+z0Ez0ktPy1Vej9fvw7TZ0b3mLjregWMq5ZmsN+Esqd5Dfx0dGwDD5XuZobml
+T+anALi19LKvVf+adBcdFyxdZd2JNYacJNdRyC8BNCzPCdfWo5Z6AKyiYwZg
+mQpzIZ+iYwIO9mdeRcdGG/JnqFRPaq0qQCMO3A/s5pXu3R8AEK0yv+3ZAyai
+659Q6qsQHRdtqMx5P0THBcAw+T6g1nvyKdcjqKMHYBIKa5j0e4GJqeQJVtFx
+MW3ppU9Zqd+9czxAA/J5vJZfunc+B2BKKn2YNtFxAW9VcgUP0XExbXKTAO06
+UB/X5Zz08QZgUirzItYwwURV8gX+Ximq9GHaRscFwDCV6353Xn8XHRsA9FXm
+RfRhgomq9GVaR8fFNHWfDWuYANpU6ZcqvwQwA/m5rjvPbw5Yt3TvXpkXsZcc
+TFyhf9rH6JiYpu6z0e/DFB0TAMfldaj96/1n9XEAbco1ZF2fom2lv94x3fqg
++6nOM1h3C+3K55Y3f7vRMTFNhTq5++iYADguz1/v9feOjguA0+S1SKX6sUs8
+5uvEJHqmVPJL6m2gEd16ycLf7110XExLKtdVrqLjAuC4whyB/UABGpHXom4K
+5/JreIh6FszjrOWXzItAQwp/w9bO80YpFxkdEwDHpXIvvXV0XAAcl156LJVq
+nQ+tSdpWDP0ZXS5rc+NxdvPZtfVZD9HvA3Cawt/zJjompiXt11k8RscEwHFJ
+Lz2A5uQ1Pf3zd0n3HPdhaH1BeunjtM7rhY6ti/o09OdeOM5SPbf8EjSskNe2
+FpE3Cuf+bXRMAByW79379+ub6LgAqMtreg7lf177J92N8LvWA9Y4XaV+Lv/u
+Q2u0NtHvBXCetN/3exsdE9MixwTQnvRSY9G/Z7+LjguAslSub97NLa2v9HtX
+A3JN20t/f86f3R/JoXVf07sFGiZ/wDE+IwDtKZy7H6NjgrE9/983z759FR0P
+nOtIfukm+76ll7q7YzV03dc/5teuDsWVc0rrnFca0ldqay4E2le4B/0UHRPT
+IscE0J7CnPTH6JhgbM//9/Ozz6+i44FzHMgvdXmZdzeO5dD+bsdyT911p9a7
++5BHa5dgPlJhLX10TExL6boXHRMAhxVyTJvomGBscky07kB+6dMt1i4diOvu
+zFzTqbmldfR7AIwrr2Hs/73fNF/OtOV1sP3PyF10XADUFc7b6+iYYGxyTLQs
+1ft7P0THthNjl2saWus21EfXJJi3wt/9h+iYmBbPKgBtKZy3V9ExwdjkmGhV
+eqlJK+VtHqJjOxBzlxPb5HWyx/o29ddkPeQ1W2Frs4DbKayn17OBN9J+bbXP
+CMCEyTGxBHJMtCrt7+0dXh93xhi+yvUOnQ85/7TZ+Te1MbBQab+n8+eWzm9c
+X+U66DMCMFHWn7IEcky0KJV7lTy5twbmonKeW0fHxXRUPiOb6LjgXDm3/sEc
+G3NVWKO8iY4JxibHRIsK5+eOfdW4uVy/eG+tM9dQqAd+jI6JaSnUy5lvoVm9
++7vHnT4Bd9GxwRjUwbMEcky0JpX30nF+JkShnmlrDpax5M+S3g1UpfLeqpvo
+uOAclTnE3X4I3ZzOe3lUWlW4b3yMjgnGJsdEayr3H3fRcbFMlZ45u+sJzMFy
+tvTSs62/P8BjdFxMS2G922d5blp0JMfUt83X4FV03DBUzpE6XzNrcky0pHtO
+L5yXH6LjYrmO5Jj6Hs3BcqrKZ+xDdFxMR+WZ5dF5htacmGPqz+l8zGs/76LH
+ATV57qj/+b2PjgvGJMdESyrPWnfRcbFcJ+aYSuv+zcFyUGUt05N5T3bl5+vS
+OUaeiWZckGMq5Vhf1xH7G2BSCufrp+iYYExyTLQk7fc21YeJUBfmmGpzsHIH
+vJHKfZnkD/hDJRfpc0JTRswxlf4Ofl9HHD1GSOU+etYnMxtyTLQilevk1tFx
+sWwj5pgOzcHeRY+TeJVnL3l2/tDlpw+cT+Sumbwr5pj67M9BqLTfR8+eoEzS
+8//9cIZfd3NMZ/6MP0WPnfmr5Pydiwl1xRxTdQ7W536Zcp69tE7lITo2pqNy
+rXy1cf5gym6YY+o/239M5nS4ocq52rwRk9PLFd3St9FjZ/7y8/WbZ+7omOCG
+OabSHGz3u83BLkgq93aWZ+KNI3mmJ7kmpioox9T3uo7YnA5Xlcp7gqqZY1Lk
+mJizwn2HPRgIF5hjKs3B2k9nAQ7kD/Td4Q/ppW6utO5t17949g/zeQym4DHF
+X1P7/tmzf5Be8k7Rx4d5eUjlz9x/HX0NgVdyTMzZ8/n2/+6df//+BK4NsE3x
+97+lnFOXb+jyTj9O4Bgxvn9Qee//1bP/6YZx/Lfp5W/gv4++RlC8bn6VpnmO
+AuCwvxZ9DYFz/YWe3zRiAud6AOr+UfR1gur1s6v5eZzAZwSAYf5B9LUDziXH
+RAtSeU85AKbj/42+VnD0WrpOck0ALfjfo68ZcC45JlqQDvcvBWAa7qKvFwy6
+pvbft/8tvdTUQbT/K8Wfx0r+8tk/ffaPnv3PEzhOzM//mvY/d3os0iQ5JlqQ
+9nvi/T8TuBZA5zHF3/uW/Jv00qf0H6eX3j3Rx4nr6p55/mka9tl4fVbqPhuf
+stef8w/yf3fPUd1nu3ve+zcDf25nHX294Oj1dFV43+xPySTk81D09fNz+rK3
+3DrJnXMDqVyz8T46LjiHHBMtSPvP8faUYxLSS9/j6HvhV929+QfPi8uVXvYS
+u+Uz2r/u/fdD9DHg6Gekf856io4JXgXmmHb3Z3UNJYTnHeZCjompy89M8vpM
+UnCOqVtvcv9sFX0cmJb0slblms9q3X3wOn/+5CsaUvhcfIyOCV7dOMf0KV/D
+V9Hjhk7ar9v4FB0TnEOOianLc0r9+wL1yUzCjXNMr2v33/sbYIj0svZ+k8ap
+6XzKn7/Vzs9/X3idNQATVni/PkTHBK+unGPqzoP3rqFMVSr3n/VZpTlyTExd
+elm7vHuu3UbHBK+unGN6XbuvHwQXy/mmdc4TDXmO+5Q/f5tDeSM5i3YkvZiY
+uJFzTK95cddQmpDKPZnW0XHBqeSYmLp8j7B7rt1ExwSvrpBj0lOJm8r3tKvs
+5M9d4ZlQ7dVEFc5XahuZlBFyTHoq0bQ8v7P7mX6IjglOJcfElKVyL6ZVdFzw
+aoQc02tPJT3GaJK8RTsKzy7ygUzKGTkmfQmZlbTf5/AxOiY4lRwTU5YKvZii
+Y4JdZ+SYdvdDVmNP85L6qyZ055vC+7SOjgt2Dcgx6UvIrKVyn8O76LjgFHJM
+TFnSi4mJG5Bj2t0P+S46XriGwudeT6aJ8dxCCwo5Jn0JWRTzAcyBHBNTlvRi
+YuIqOaZtOtInGeak8FyoBmti1F/Qgnwu0ZeQRUt6MtG45//7MeeZfhcdD7xS
+f0ELci7pj55K1u6zREld8+R5ZgFogzkBgOsorA/RRxZggpL9GSZN7QVAOyq1
+zebZAS6k9gKgHWqbp0svJoC26HMIMD7nVoB2JHs0TFZ62YdL3QVAI8y1A4xL
+LyaAtujJNF3pZb93vZgAGqFnCMC4nFdZIj3DaZmeTNPU1cQV3pf30XEBUGe+
+HWBc1oeyRDuf+4+eAWmRnkzT0/X2LjynyGUDTJy+IQDjqOx/45zK7OX1BrvP
+6I95Td9ddGwwRKEn06fomJau0IvJewLQAHPuAONI9r9hwQp1on/cV1jbxNRZ
+MzM9hV5M99ExAXCc3iEA4+juf3vn08fomOCWCs+Eb/4erG1iqvT+mRbvB0C7
+9DkEGEe3jr93Ln2IjgluqdLnsba2aR0dL+yybmY6rCsDaFvS5xDgIpVeTOvo
+uODWCn1tDnnK6//uouMG/X+mo3Ae8V4ANKRwHt9GxwTQkqQXE/wu7ff/Hmor
+L0ska2emw/w3QNuez9sf+tfU6JgAWpL0YoI/lO4rzljb1D3vv4seC8uR9ACa
+hKSPB0DznMsBLpP2+3g8RMcEkdJ+f7JLck7dGqeuX/jKuhKuybk8nrlvgHmw
+JhXgPJW573V0XBApDe//fY4uf/WQn0WtdWI0ab8n02N0TEuT9PAAmIXC+Vxv
+PYABkh4enCGvzblWDmaJXtc6vff3x7mS3nrhknlvgFlI5d4J7tEAjijMe8vR
+c5Qc09V1NU8fk7VOnCDZIzT6+OvfATATSZ9DgLOk/f4d99ExMX1yTFf3Wk+n
+dzgnSfu9xB6iY1qKpBcTwKx4TgI4jfw855JjGpW+4Iwm2Sc08tj3z4sfo2MC
+4HxJvQfASZJeTJwpvdSErGbsP71iTskaJa4m6ckUeez7x/1DdEwAnM+zEsBp
+5OahrLAe4ZI1Sl1fpd/XKEWPi/lLejJFHffSXpRyyMxazmk/+KwzV0nNB8BJ
+0v7+N2qMWbzKnNUpOaX7/DPuosfCMqX9nkxqtq5/zDf9c0F0THBtOaf9ei/5
+KV/7rPFgVpKeTACDJPvfwJ7e/fIpttaKMBXyHSHHXC8mFint97p/ymubVtGx
+wRjSft3HY3RMAFNUuCf4HB0TREv7/ZKHrFm6i44bdqnbCjnmejGxWIUc6x/P
+4vl+09ommpX0OQQYJL30iHmzDiM6JohUWdtnzRJNkvO46bEuPX/I6bEYA6+f
+1jbRpKTPIcAghXqgTXRMEOnAPKw1SzRH7dZNj3V//aPaRBbnhHXA1jbRnLTf
+5/AhOiaAKanMN62i44IoqVA7as0SLUt6Mt3yWHv2YPHSef0Mu7VN9uhi8go5
+1MfomACmpPQ8HR0TRCncF1uzRPOSnky3Os5qKCBL5brRoWubNq67TFXls30X
+HRfAVCS9mOAP6ct+IdYsMSuF+2E9mcY/xp47YEc6XHc+xKc8z7OWF2cqzCcA
+HOa5A77I97F30XHA2Mwn3OQYq5+AHd319MIcU99Tzltt8vpMfZwIkdRFAxSp
+nwBYhqQu+hbH2DMHJ8nrIVYn2jTm0rVMQ2rrHvI5zj0sN5Hs7wBQlPSBBViE
+ZH+Hax9ftROcrDLXx+Ve1zp19at30e8z81P525XjBBYv2c8aYDHS/j5Pm+iY
+5iK91Nn2nzfuouNi2uSYbuZ1rZPaOkZT+JzpNwIsnnMjwHIkPZmueWwfesf2
+U3RMTJ8c01V9yn+X+oVzFclcPcAblfsa12C4kee/t2+f/dDzW/5b/CY6PuYn
+6cl0zWP72Du299ExMX1n5pg+5WfbVvT7lF2DXuDcXNJzBOCNpFcd3Nzz39lP
+A+6Vf4uOk3lK5Z5M76Pjal0q753luMLnYv51rDVK3X2sNUqESebrAd4ozCtZ
+3wk39Pw39036sm5p14/RsTFfhec9620uP6alXkzWUbB4hXUe565R+vi6Ril6
+TLCr8HnVdwRYpGT/G5iE57+7Pxf+Fr+Njov5SvoGOaZwA3l9X3+fgaG6XHhX
+23sXPQ44JO33ZNpGxwQQIb3s5dq/nt9FxwVLU8gxqZPjqqy5ucoxtTYMetL+
+HgND1is9WKtES5I+hwC/S/u9mB6jY4IlSvu1cj9Fx8S8Jb2DHE+4snRaL/NP
+Ofct101zUrnP4So6LoBbS/u9mB6iY4KlSS/7yvXvS76Ljov5s+5m1GO5N4ft
+WZmlK5xjamuW9EemeWm/JnQTHRPALSW9mGASnv/uflQnR4Skf9CYx7JfD7SN
+jgkipcN9vq1ZYnZcB4ClS3oxwSQ8/9390vs7/HN0TCxD0pNpzGNp/hqySu2o
+NUvMWmk9a3RMALdUmL9+jI4Jlub57+4bdXJEqTwHrqPjak3ShwPeSG/32LJm
+iUVwLQCWrlAjrw8H3Njz390P/Tq5Z19Hx8VyJH35xjiG5q4hy+vkrVlikQpr
+Wj1fAYtQmbu2/w3c2PPf3c/q5IiU7C86xjHUgwMAfQ6BxdKDA+J165UKf4ff
+R8fFsiS9+cY4hnoxAeAZC1gsOXbG0OVDcq3XrmJPoe6/n/3U+9z9vOScSj4m
+/fuQr3e+/m3h6zW/Ro+HNiV7jF56/FaF47eKjguA21MrAixV0ouJM1XW3pR8
+nV//p0I9WN/PaYE9iLq6uP5xOPDaLt/0W+HYdXm9P0WPhbYlPZkuOXb9/dmf
+omMCII7nLGBp5NcZS843lfJHP+ev1/IiJYvrQ1Q4Nj+c8Po/LzEvx3UkPZku
+OXbb3rH7GB0TAHGSehFgYZI6YUaUyvVc3dqab/L//jXt1MPlf/+lkmf6Nno8
+wcetmjNKb+sQD+ai4FRJT6ZLjl3/uH2IjgmAOJ61gKVJ+/vfyK1ztlTuKfS6
+funHyvd8XVnfVHz9HHVj7Y39lwOv3c1HLSYPx+2kck8muZLjx63Ui8le7QAL
+ltSMAAuT7H/DiHrraz7nNUq/HFtrU8ixHMyzzE1hLVfxeO3kl7r1YN9Ex818
+JTVf5xwzvZgA2JP2ezI9RMcEcA3d/GrhuX4VHRftKuRKBvVWKuSmfs+jRI/n
+Rsfsm8LY9/p2p5d9+17zdvp6c1XyJWcdM3k5APYkfQ6BhehqH/rPttEx0a5U
+3mPutyH5kJ38yeI+j6W1X4XXvK7zqu41B2NS93Xy8VJfCEBR0ucQWIi034tp
+Gx0T7arkiQb1o65872/RY7rRcevvxfdD7+t/zv/+U3SsLIucyUnHyvMDAEWV
+eYh1dFwAY0t6MTGinVzIwZqvyveWckyzr5WrrP36Jn/tT+lL7aG947g5tV8n
+HSt1EABUPV8XPvWuEw/RMQGMKenFxMjS/t5wR/sw7XxvqR/T7OvC0v4+fL/k
+f/+2dzztH8fNJT2ZTjlWnh0AqDIXAcydZwfGlL7sd7br+xO+/6fC9/94w1hv
+YS9PVFj79WNlTZc6OW7OXMTg46QGAiYgX99/6Hmdr7EXK6GSmmpg5pIaCEaU
+vvSkftXd0319wveX9qP77kqxTinH1F/71e/NdNbxhLEkNdVDjpHnBgiSynNU
+e9fQ6DgZ9F52+fr1XOcyKvMR+hwCs+Ecx5gKOaJT6uSK+9FdMdZJ5JgOxNHd
+L/dr6DqD14XBWJK9IYYco9nWP8gp0pLnz+s3hbmbzlXWRTPa+/a+d62Z7bx3
+2q+rnu1YgWVJ9qRmRPme7uw1SKlcGzb7+8G0v/brj+OW8257a5yiY2Z5uvmH
+/uc0OqapKTwzPETHNNK43skp0ppU3n9ET8MJK11nnn0VHdeVxqpXCTBLzm+M
+Ke336z5pDVIq14cN2o+uZWl/7dcPva+X1v/P/rgwLUlPpmPH565wfNbRcY00
+tq0cE60p5JjUyU3cnM+jhbGa5wdmKenFxIgKOaLB/am7nMlC1zCV1n5903tN
+qZbuh4h4WbakJ9OhY7Oe4/z7zrjuo2OBU6T9NcD2zGhAWlANWeGaoV8J0Dzn
+NsaSyr2UTqmT66/V+TUtoLd1Ye3XL5XX/do/PtGxszxJT6ZDx+Z/7B2bT9Ex
+jTCmr3byipvoeGCoytzMVfYPYfT3bkn1cub6gVlJ5f1vrNHkLGm/N/Xg/c8q
+a5gWcS9YWPtVXLtVyEUt5hgxHUu69z/j2PTXeDW/7ie97WG+jo4HhkqFPW6j
+Y2Lwe7ekejk9S4BZeT6P/b3eee2fRcdEuwrrkE7ZT67fM2H2NXJ53IPXfqVy
+7+/BxxjGULn3fx8dV7TnY/DX5nZc0n7/rVV0TDBUumCPW+KlhdTLJT2ZgJl5
+Pof9Ze+c9vejY6JdhfzHoH5BhfVPi7kPLIy9U137VcjjFV+ff26x5g4u9fzZ
+epzbep0Rjsk/nNv6rrRfw+G5hyakC/e4JV5a0JrZpM8hMBPP56//vHDuXsTa
+EcZXuZ87uu9ZeqmR281N/Rw9lhsft37O6GBeKJVrCvdyeemld9P30eNjnp4/
+Ww+9z2DzfYcuPB6leejP0XFdOKa9/uXRMcFQqbDH7aH5G6YnLateTp9DoHnp
+pYfnPy+cu/9mdGy0Ke33PRi0hia9Xcu+qPxSHn9/7dfRPG8q7MW8e++c762t
+YeJqSvmHuc4vDzwe/ZqOpnMy6W2f7+bHwzQU8j5X2xs17fc5XMz66DkpnFvn
+Wi+3t2YrOiaAU6X9/nJ6LXCRtN/3YEiu5OdTXj836cy1/Km8V87P+WuvtXff
+RI+P+arMLzfde+iCY1HKtzX9jJDe9vm2Vo1R3CrHlMp9Dq3rbVAp9zLH+Yy0
+3/vOMxnQlNr8pPMZ50oD67d2Xv/NTk7qtyF5lTNi+i7/jqP1eoHHrb/2qzN0
+H77+WqZT83vdvf6v/e+Tm2KopCfTsevp5+j4zhxT6VlH7cbtjv/3+fy8qzgH
+ka9z/Xrrn6eaT7lhjulgn8NUnqep+TX6uC1ZWla9nJ5MQLPSfh8NOSYuUrhv
+fM0dfd97Xf9++MehOZUTYnnNLb3+jinnmPprvwbXt6X9PlavDtYD5Hvr0vdd
+/b6feSlcSx6jYwo4BrU1wS3nmPp9vl89RMc2V6m87qbk6/z6P6X9WrC+n8e+
+vo4wzlvlmPpzMNU6/APXxB+mfP+wJGk59XJ6MgFNSvX5STkmzla4n/tzvj8r
+3QP/dI37ykJuadI5pnTi2q/Kz+ivBzv4/alcm1dj/x0OSuUasbvouG44/m5+
+vbqGqcUcU+U9Nad+2/fg68q187Ueesg8waA5h4Cx3SrHdNIet73Xd/cvk8rN
+LV1aTr3cWT2Z0sueE6vo+IHlSvX5yVeL7KfB+fL98En3c1eI4XVOt19XMNkc
+U9B79ZqP+nH3uORnln6eUH0AB6WXOrH+NWQ94Pvuhrxu6tLhNcHN5Zjy+9mv
+f5RjinkvSrVc3bXtdZ7gzb6h6e18Q9+30ePZifPqOabKsavmjHoxWcM7QWkh
+9XKpvA5g77ksv67LR3Xrnl7nOTbR8QPL1J2njt0PO0dxqlTuexCa10lv+wzJ
+MX1+c99dfd5I+/2h9GbioLRfw/BQeM3vOaWck/kjhxEd+4XjXg24njY1xnSk
+7i+ZJ7/le1G6rr6uXyr220vl+Z7PtdcHjesWOabBe9z28lGTycVRfK+WUi+3
+1+ewklPy/AZMQuG85RzFxU65n7thTHJM+8dkUI1i7xlFvRwHpf39x7rrTLce
+5n3+WvW6Ex37heM+tia4qTGm8joBOaa496Ofi/klO1bzVdpHIvyafGBc18gx
+9ddzFX/HTn6pu18wnzJxaTn1cv31sf96yLXG8xsQoXJudo7iYml/3jR8zlSO
+qXpMjvaYSG9r5szrclAatj626fxLYcyHehY1OcaBObPZPc9NVSFP0jnaW6mQ
+w/k9hxI9ngPxjZpjSuWeg3v3AOll777X3J17hAakGdfLpZd5mde1vv/izGvq
+JnocwLKkI3srO0dxrsr9XPjaFzmmi47d7r5/+p5SlF5qxbraqv9lgTmmIWuC
+mxljGjgHFR3nUqTyHnO/DbmW7eROJvne3SDHtLf+q/Ca17Ve1b3mmKY0k3q5
+9Hatb39M59pEjwtYlrRfy+AcxSgK93OTyOnIMV107F7XMbn/5g87OaVBNWJz
+zVmk4z2LmhpjGr4O7TE61qWo5IkG5WIq3/tb9Jh24rt2jqm/H98Pva+/Xt9+
+ij4WnPX+Nlsvl17WYY2ZU/L8BoRJw3osOEdxlrS/nn8S97JyTBcdu9faR3Vy
+C5e+9Bi9xv3w5+jxnXE8TlkTPPkxppc+skPHs42OdynS/h6fg69jqZxjWkSt
+XCqv//omf+1PO/cr9o5rVOWZZh0d18DYT75+eH4DpiqdPue8iY6ZNlTu5yax
+9iXJMZ173F57oIb31CJeumJ+aer5l8rx6PdibXaM+XlncM1fkmO65XvT73F4
+tA/TzveW1hZP4rpciW/MHFN/L75f8r9/2zum5k8alhqul0vDe+PKMQGTlQbu
+rewcxTlSeb50ErmJJMd0yXGbzB5ExEqnr4M9xTZ6fCcei3fnjDM67spYvio8
+p83q/WpV+pLn3/X9Cd//U+H7r3JdrsR6C8UcUdpf//Vj5T5FnVzDUsP1cjn+
+U3L7nt+AyTnjHtI5isEK93OdSaxBT3JM5xyz7n68qyXQ55s/pBP7D51gGz22
+E4/DuX2o3kXHXhjLyeuxWnu/WpW+9KN+9dsp5+RU3o/uKvtwpOnlmPrrv/q9
+mc46pkxLarheLsd/zvy/5zdgEtIJeys7R3Gq9NLboPT5kWNqUHqpX/jVsaIv
+Xa+HxDZ6bCccg0ueCVbR8ffGcnbOMDr2JUj7OaJT6uSK+9FdMdbJ5JgOxNKt
+6+rX0HUGrw1jelLD9XI5/tH2ztixiR4XMG/psmeCTXT8TFu+X/u18vnp/j08
+z5TkmM55Px0nitL5cxaHbKPHdcL4L6ltWEXHP9b7GB3/3D0f428Kx33wGqQ0
+4fr1nRiv0o8p7a//+uPYpZfc294ap+hjwUXvd+v1cmfVXnt+AyKly2obNtHx
+M03pvDnLkLxFkmM65T39zTHimDT+fsvb6DENHPelPVpX0WPI47j4mSZ6DHOX
+9vMvJ61BSuXasEmd2wtjHCvH1F//9UPv66U+VZM6Npz0fjddL5fHcE7Nsuc3
+IETlvOscxaIkOaYhx+ibfJy+iY6F6Uvj95DYRo9pwJjHqBNcTWAcdyOM43P0
+OOYu7eeIBvemTuX69UmtYcpxjp5jSuX1X9/0XlOaIwtfc81F73vr9XJj16Fv
+oscEzFe6PC++iR4DXCrJMR07PoPzS+ll/ld/VMbuIbGNHs+A8d6PMM5V8BjO
+2UOu5i76PZmrVO6ldEqdXH+dzq9TPG+n6+SY+j+zuDdq2q/x/zX6eHDR+950
+vVwew5h7amyixwPMUxpnnnkTPQ64VJJjOnRsTs0vTW4unBjp8nWyzeSYRhzr
+KngcH0d8z0LHMmdpvy/14L3PUnkN01X2khthnNfIMfXXfxWvWYXfPdnjxKD3
+vfl6uTyOS/r9eX4Dri6NM8e8iR4HXCrJMdWOy5/Sfu/TY9TS8Yc0ztqeFnJM
+Y+VmVoFjGLvfR9hY5i7tr0M6ZT+5P/e+d7LzAmnkHFM6Yf1XKvf+HnycmZ7U
+eL1cHsNYe2psoscCzI9zFLwo3MPao/jzH/ml2n6ANcWaA5YrjddDYhs9lgNj
+HLP31CpoDNfYCzBkLEtQyH0Myr2k/fVPk86ZFK7Pl+aY+uPvVNd/pXLv773X
+55/r+jdxaQb1cnkc1ggAk5Pv+a21ZLFSuVagZLH5pnR6funi+3/mqXJff6pt
+9DgOjG/MPfRWAfEfy5F19wvdOq3/YepjWYJU7ll9dP1t2l+X+nP0WAbEPHaO
+qZ8zOpgXqtwr7MWQr5eLvV9oRZpPvZxeJ8DkJD3jALihdPm8xjZ6DJVxjb3+
+Z3Xj+N+l/XVmXc7sPo/tbue1/Vq6f+n+IOQz9+MpeZKd7/tl53smn1/KMY+d
+Y+qv/zpaJ5j2awvf9L7KMVrD1Ig0g3q5PA57NgGTkUbak9g5CoChnq8V7y+8
+1myjx1AY09h7SUfkmLo5p23+/w/+7sJYu2ecQ/22NtHv0Rz1ckVD8yQ/n/L6
+qRgzx5TK67+O9vB+fs23he/7OX/ttfZOH8JGpPnUy136PLeJHgMwH2n8np6b
+6DEBMH3psh4S2+j4C+MZc01wSI7phLGWcoTv89dq9xWb6LjnJg2s3dp5fZdX
+ec1J/TYkp3JGTN/l3zH6fhlp3BxTf/1XZ+hefP21TCfl+G5xrBj8HsyiXi6P
+5ZJr0CY6fmAe0sua+LHvhzfR4wJg+i68Bm2j4++NZew1wVPPMfXzSE87X+vW
+c5V6Um2i456bQs7lNXf0fe91XS5jt/fQj0PzKSfE8povef0dU88x9dd/Da5v
+S/U9Vgf1TL/FseKkz8Jc6uUuWUu7iY4fmIc0zj4EzlEAnKWQq2g1xzT2muCp
+55j26uR6Xy/tJdLkc9uUpf31NH/OeZifC5+lny7JyRyIoZ8vmXyOKZ24/qvy
+M/prwo5+/y2PFSe9l7Ool8tjObcn4CY6dqB96fJeGM5RAFwknT/vuo2OfWcM
+Y+zp00yOqXL/8L7wun7/8Mm8Z3PwfDy/TvtraW66l2fO1fyccz/9/I+8iWPV
+hDSjerk8nnP2Nt1Exw20L12+p49zFAAXS+f1kNhGx70T/zXWBE85x1Stkyu8
+djcfNZn3bA7Sl/7Sk8lVPP/+X6cSy9Q5VtNSyMt8io7pgrGcM+/xITpuoG1n
+3s/LMQEwulSuq2oix5TOr0toOcd0sE7uwDGaxHs2F2m/Z/XgfkJXjEnexLFq
+UirXy91Fx3XBeD62fq0B2pGus7eyHBMAZzsjV7ONjjnHfZefTU69n2/yvj8N
+rJMrfF+39qnZdQFTlPbr5AbvZ3bFmORNHKsmpXK9XLNreyrjaeZaA7Ql55jW
++X7vGvVym+gxAtCedFrN2TY63soYuhqFzYljaea+P51QJ1f43nV0/HORXvpN
+9z8r300gLnkTx6pZaUb1cnk8p9StrKLjBeYjvZ2DHWN90zZ6TAC0J53WQ2Ib
+He8JY7q/4Pq6ih5Dbzwn1clxtfeh3zN6EnkKeRPHqmVpfvVyp9SurKLjBeYr
+vewD051j/6EcEwC3lPbXycziWlO4z/9nrd33pzPr5LjKe/FL7334LTqmHJe8
+iWPVrHRBvVx+frqLHkMhrlLebNLXGmC+Cvf5fznH+34ApqNyj9/0tSY/e+zd
+z+c55vfpcO36Kjr+nXGcXSfHqO/D14XPyc/RceXY5E0cq6alM+rl8nXraao5
+9wPXl0lea4D5KpyP7vO/H+s1sY2OHYB2pWE9JLbRcV4ynsrruueUfr/EVXT8
+O/Gpk5uA5+P+feHvIbzfd45N3sSxalo6sV4uzxV8mtr5uhfjkDr0ScYOzEcq
+zyMXc/N5DvZ+5/y6jY4fgHalYT0kttFxnjCe/pzMx4Hf112Lv4qOP8eiTm4i
+no/7nwvvxQ/RceXY5E0cq6ZVnoGq9XK98/sqOv6BccoxATeXyntIH73Pzc8F
+76LjB6BtletQqzmmwc8rU5XUyU1Cl4uo/D3IMTXGsZquNLBernBeXEXHfmBM
+x+rQJxs7MA+Fc2bTe3cC0J7CfX5zOaZUrlFobi4mqZML93zMv+vlJXb9OoU8
+k7yJYzUHaUC9XGUeZNLn9sLznRwTcDOFe8n76JgAWJZKfubVJjq+gWPo92Jq
+bv1PUicXffy/PbL+oCQkZyFv4ljNQWXNz4edr5fOiZ+j4x4wrkN16Kvo+ID5
+SpX9b6LjAmB5Ur2HxCY6tjPjH9SLaUoKc9/N5cm4DXkTx2ouUqVeLj8nFfM0
+0TEPHFdtT41VdGzAfKXC+tDomABYpsp8cue/i45tYPzVufBWFJ6nHqJjYprk
+TRyrKcv5oW3Os3TrZKu9ZkvPQ8/+/bS/73Zzz0vPsf7zQvx/MzouYL66Odbe
+OWcbHRMAy5Ve9i7t3w///ei4BsRdqqeYdL+OgWNQJ0eRvIljNXWFdZmf8r+t
+d8/PlfmN/6OWX2osx/SfFOL/MTouYL4K85Wb6JgAWK700kPi3/SuTf84Oq4B
+cfdzY4/RMZ0xBnVyDCZv4lhNXb6eHNpP4inPt3drnf7JoZxSP1cVPbYTj8Nf
+tjZvA7Qp6cUEwAR197+9a9O/io5pQMz955iH6JjOGIM6OQZ5/mz80PusfB8d
+01Q5VuHHv8szVWvezrSNHteJx+Dv9eL/Z9ExAfOU9GICYIJSeY+5ydad5WeY
+frzr6LhOHIM6OQ7q1t8MfP5efA7FsZqWdKB390JyTKXz+110XMD8pP39b7bR
+MQFAp3A/vImO6UCszd+/J3VywIxVztNLyTE1Pw8CtKFwrmlu/xsA5ik1tCdF
+mkcvJnVywKyll17fY+SYPkaP5Yyx9+u5mxsDMG2psToEAJYlNVTPXbh3f4iO
+6cT41ckBi1BYs3mOTfQ4zhh3fy7EWlVgVOll/wTnGQAmKTWyL8UcahAKz1zu
+CYDZSvv9QpaQY7K+ALiqwrnVekkAJqVQv7WJjqkQY6n24i46rguP80N0TADX
+kucG+utPZ51jyuPWJwW4GucYAKYuNdCTqbAG6FN0TCfGr04OWJx02V5zm+j4
+zxyzNQbAVVgrCUALUgM9mZ5jeuzFeB8d04nxq5MDFimVa7KHaDIPn/RKAa4k
+6fkGQAMq9/+TubfvauKmHN/AMaiTAxYrnbfX3Co67jPHap0BcBWp8f1vAFiO
+Ka8TqjybfBUd1wnxq5MDFq8w/z7LHFMeq34pwKjSDPa/AWA5CrVck+l3NOXY
+zozfumZgkQrnw7nmmCbf5xBoS2XO8i46LgAomfJaoSmvsRoYvzo5gM8n7zW3
+jo73gnFOvs8h0JbCWtDH6JgAoCZNtOdRmnivqAHxq5MD2JHzTEP2mttEx3rB
+GEvXrlV0XEC7Cvn5h+iYAOCQKa4XKs0FT2V91cD41ckB9KRyX+y+8GvQhWPs
+59E20TEBbUp6MQHQoEI+JLzvUWq8p4U6OYCywvm9bxsd48jja3o8QJzKuvi7
+6LgA4JA0wZ5MLc8Dq5MDqEsvNdqHaua20TFeOD49mYBRFOaBH6NjAoBjUrkn
+0zownqb7WaiTAzismzc4kGNq+pzZ+jUMmI40wX4WADBEmlA/wdbngNXJARxX
+eHZq8pxfGVv/OuC5EDhJZQ7YungAmpAmtC9qy70s1MkBDJMO9/++i47vwrFN
+rs8h0JY0wV4WADBUJTdyFxRLy72Y1MkBDFSYU5hFbZlnQ+BSctUAtCxNZG/U
+yrz2u+jjc0L86iMABkr1/t9Nr/9U4wJcqlBP7J4SgKakCfRkSvt9YJtZB1RZ
+C9ZMfgwgQuG839T61QPj8nwInEWeGoA5SBPoyfT8O7e9GD5GH5cTYre/LMAZ
+CvmYTXRMI4xJnQtwllTY/0a9LQCtmcI6nMLv/xB9XE6IXZ0cwBkK159m5hcO
+jElPJuAsab9XnRw1AE2KzPGkhnsxTSE/B9Cy3jrWbXQ8I4ynVOuyjo4LmL7C
+vOUmOiYAOEdkrVrjvZjUyQFcoJeTeYyOZ6Qx9WsAH6JjAqatm6Ms5KdX0XEB
+wDki8zyN92JSJwdwod1rUHQsI40nvM8h0JZSL6bomADgXFH1al2PilZ7MamT
+AxhHvhY8zuWZqnJ9uIuOC5iuQi+mbXRMAHCJiFxPy/fh6uQAxrNzPVhFxzLC
+WErzJ+vouIDp0osJgLmJqFlruZ5AnRzAuPJ1aBUdx0hj+aQnEzCEXkwAzFFE
+T6ZW78HzHPV9etvXVZ0cwAXSS//vJuqlB4yl2TkU4LYi7sEB4NpuPYcyl1qC
+fNw20XEAMB0t14IDtxVRSwAAt3DLWnD33wDMVWUeZRZrtIBxOVcAMFfphnta
+qCMAYM6sTQCOSUF7OwPALXTzJv3r3BV/12Pvdz1Ejx8AxqLHCnCM8wQAc3ar
+nky5r2vzvZgAoMb6BOAY6x0BmLtb9GTq8kmF++6voscOAGPSZwU4xDkCgLm7
+RU+mri6u9zs+RY8bAMZmjQJQU9n/xlpHAGal1JNp7DVGhV5M99HjBoCx6bUC
+1Nj/BoAlqPRKet/KzweAqdCTCajp1vHb/waAJbjmOiO9mABYklv0OQTa0t37
+2v8GgKW4Zr8kvZgAWJJb9DkE2lLpxXQXHRcAXMM11xoV5nP1YgJgtkp9DqNj
+AmLpxQTAklyrZ1LXg6Lwc1fR4wWAa3HtA/r0YgJgaa7Rk8lcLgBLpCcT8Koy
+l7uOjgsArqnQN+lxhJ+pJwUAi+P6B7yy/w0AS3SNXoTmcQFYotI6Xs+UsEz2
+vwFgidLIe6rqRwHAUlWugRf3OQTac41+FADQgjH7EerFBMCSea4ErrWvDgC0
+II24r6peFAAsmfoYQC8mAJZszJ5MhZ/zIXp8AHArni0BuWYAlmysnkxd36XC
+z3kXPT4AuBU1MoCaWQCWboyeTN3+cb2f8RQ9LgC4Nc+XsFx6/wNAsSfTyfmh
+rvdS72d8jB5Xjuv7Zz/0vMb4Xe+13z37qTeOn7ufET0OgLmY+3lZnQwsV7L/
+DQCMUuc2pV5Mz7/760I8JV/n1/8pP7Mceu3Pr68H4DRLOi+nck+mu+i4gOtL
+9r8BgN9dkiMaI0d1xXF9XXlO+Tl//dtnvw189vlz9HgAWjf383Iaqc8h0J7n
+v/Wn3t/+JjomAIiQLqh1SyPU2l15bN8W7ve72oxv8v/+Ne3UXeR//6XyPPNt
+9HgAWjf383Iaoc8h0JZU7sW0io4LACKkC3p2T/1eOr3089h7Jsnz5D9Wvufr
+yjx68fUADDf383Jh7uUxOibgupJeTADwh3RmvVsLNQHpbT/Zz3kuvPPDke/7
+sTC2X6LHA9C6uZ+Xn2N6X4jzLjou4HqSXkwA8EbhfvhoT6YW7qMr9RVHe3gU
+noF+r9+IHg9A6+Z+Xm5h/gUYV+FvfhMdEwBESvs9mbYDvmfS9QCpvJdRV2vx
+pwHf+33hez9HjwmgZUs5L6eJ15ED40kT3v8GAKKkM+rIp34PXXkeOViLceR7
+f4seE0DLlnJenvocDDCedEFfUwCYq3Tifhgt1AJ0tReFGI/OlefvLT3LTK4m
+A6AlSzkvp3ItuXUNMEPpgv2ZAWDOunmX3jVyc+C1LfRi6u9BdLTfx873lvp+
+/Bw9JoCWLem8XIj1aJ9DoD3+1gGgLJ2wJ8bz1x6mXAeQXvbB7l/zvz/h+38q
+fP/k9sgGaMXSzsvWNsD8Jb2YAKAqndCTqcsp9V57Hx1/L77+Htfd3PnXJ3x/
+ad+j76LHBdCqpZ2Xkx4tMHv+zgGgLg3sydTVxBVe9z46/l6M/WeRU+oxivse
+RY8JoGVLOy9b3wDzl/b3v7FeEf7/9u4Yt40jCgBoNX1ygyAnCKALuNAV1LvS
+FdSmVJlWnWtX7tn4ACpyAQI5ga+QcKGhsZodkrtkxD/LecUDDImyPiXok/Nn
+5n+AkTTtyTQ5n7T72OfK++ZfomMfxXd3yV53qveVbfY+BkDres3LlZj1aYEb
+kVYw/wYAoqVpn6W/z3lM8HMo+8Iu2uvePX5Tec8wa+4RAFO95uWkJxPcrLSC
++TcAEG3OGaXUfi+mci3ysuBrf1/jXjlAy3rNy2naq+Xf6JiA/8fw/rf4+/4n
+OiYAaE060Wvp1OejpXrPjiX3Mcq5Rdu0oCctAO/1nJfTzD6HwPqkaS+mL9Ex
+AUCLjp1TSpXZc+U5p+DYH8r7GHPXIgf2ypudWQSwBr3n5TTtc/hndEzAZZJe
+TAAwWzrSb2n372+HPteCyn73krlFX9d4FwOgZb3n5crr5vfomIDLJL2YAGC2
+dKQnU+v7sXl/fBzf08yvK/fZZ6+BADis97xcO/8bHRNwmaQXEwDMlg70XEqN
+95VI9dnYJ+cO5bsY4zXQJvq5ANwCeVlPJrhFadpX4kt0TADQstprZ+t7scMd
+iiK+15lf93oL6xiA1sjLP59P02eAgfkO7cVGxwUALaudAU6N95Qo1iSz+nak
+9/O0V9fnA6Bl8vLP59R0L0NgvnSkpwQAUJfqvQyb3YdN9dlDB3t+5Psb+7XP
+cB9jVXOKAFonL797bpM1aXRMwHnSkdk4AEBdqs9kbbafxLBuqcQ3rFEei8cN
+PWTHM46GexyzZmgvjOchr5VO9h0BuEUt5OUcw7Y8SzXUs678s6jdrfkt+ncE
+LDec4y/+lv+KjgkA1mDYlyleQ8f7Nk3t2aTpfOuveW2xqbyvfzm2l35hHPva
+0uzetgC3KDIv7/6v+zSdZzf7TNUH/TzG69Lv0b8f4Dzp/Vn/4Yz/H9ExAcAa
+lK+h+WOfWjq/lGP6tbKWuPbaoawtqTEB3YrMy6k+y+6Qq97Ha/E1FFgun038
+5DwiACyT3mYuD6+hzfYyzPWdsNpOeus5ssn78+XdEDUmoDuReXlU738ef898
+tqk8W7WN/lkBAADtSGfOxv7AeLZqTEDPovJyriMN3+9+QWxX7c0EAAC0q3If
+I3TWtRoT0LuovJxm9nUq4ruZ+XUAAMD5DvTdCF0vqDEBPYvMyzn/npxJV9yZ
+O3jmCQAA6Eel/1F4XUeNCehZi3m5EuPLKLaTNSkAAOD2pekstx8NxKTGBHSr
+xbxciXF/jmkTHQsAABAvvc3GLvfKw9cLakxAr1rNy5U49/2Y3JMDAACGNcJj
+ZS0T2u87x6XGBHSp1bxcxHjfYlwAAECcomfr3sl5QleIS40J6FKrebmIccjR
+r9FxAAAAbRhqN5V1TBNrGTUmoEct5+VRjM+5X5Q+3wAAwLBGeCjqOGPb6PWM
+GhPQm9bzco7xKcciLwMAQOdGPTSWuPpaQo0J6MWK8vK+BiYnAwAAq6HGBNCO
+XAf7IR8DAABro8YE0IZdDr7LOfkuOhYAAICl1JgA4i2pL+0e86IPOAAA0Bo1
+JoBYZ9SXnqNjBgAAKKkxAcQZ8m7uv7SkD7m7dAAAQFPybOzxuuUxOiaAXuT6
+0nZhfek1Om4AAIBBXtPMWceoNwF8oDPqS4On6LgBAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAevAfDedBpQ==
+     "], {{0, 521}, {1177, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{200.0168749999998, Automatic},
+   ImageSizeRaw->{1177, 521},
+   PlotRange->{{0, 1177}, {0, 521}}]], "Input"],
+ "\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "\[ScriptCapitalM]"}], "=", 
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     SuperscriptBox["e", "2"], 
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      StyleBox[
+       SubscriptBox["p", "2"],
+       FontWeight->"Bold"], ")"}], 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+          RowBox[{
+           RowBox[{
+            SubscriptBox["p", "1"], ".", "\[Gamma]"}], "+", 
+           RowBox[{
+            SubscriptBox["k", "1"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+         SuperscriptBox["\[Gamma]", "\[Nu]"]}], 
+        RowBox[{"s", "-", 
+         SuperscriptBox["m", "2"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+          RowBox[{
+           RowBox[{
+            SubscriptBox["p", "1"], ".", "\[Gamma]"}], "-", 
+           RowBox[{
+            SubscriptBox["k", "2"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+         SuperscriptBox["\[Gamma]", "\[Mu]"]}], 
+        RowBox[{"u", "-", 
+         SuperscriptBox["m", "2"]}]]}], ")"}], 
+     RowBox[{"u", "(", 
+      StyleBox[
+       SubscriptBox["p", "1"],
+       FontWeight->"Bold"], ")"}], " ", 
+     RowBox[{
+      SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+      StyleBox[
+       SubscriptBox["k", "2"],
+       FontWeight->"Bold"], ")"}], " ", 
+     RowBox[{
+      SubscriptBox["\[Epsilon]", "\[Nu]"], "(", 
+      StyleBox[
+       SubscriptBox["k", "1"],
+       FontWeight->"Bold"], ")"}]}]}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]Square the amplitude \[LongDash] average over inital \
+spins/helicities, sum over final spins/helicities:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"|", 
+     OverscriptBox["\[ScriptCapitalM]", "_"], 
+     SuperscriptBox["|", "2"]}], "=", 
+    RowBox[{
+     FractionBox["1", "4"], 
+     SuperscriptBox["e", "4"], 
+     SubscriptBox["g", "\[Mu]\[Mu]\[Prime]"], 
+     SubscriptBox["g", "\[Nu]\[Nu]\[Prime]"], 
+     RowBox[{"Tr", "[", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SubscriptBox["p", "2"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+            RowBox[{
+             RowBox[{
+              SubscriptBox["p", "1"], ".", "\[Gamma]"}], "+", 
+             RowBox[{
+              SubscriptBox["k", "1"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           SuperscriptBox["\[Gamma]", "\[Nu]"]}], 
+          RowBox[{"s", "-", 
+           SuperscriptBox["m", "2"]}]], "+", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+            RowBox[{
+             RowBox[{
+              SubscriptBox["p", "1"], ".", "\[Gamma]"}], "-", 
+             RowBox[{
+              SubscriptBox["k", "2"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           SuperscriptBox["\[Gamma]", "\[Mu]"]}], 
+          RowBox[{"u", "-", 
+           SuperscriptBox["m", "2"]}]]}], ")"}], 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SubscriptBox["p", "1"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Nu]\[Prime]"], "(", 
+            RowBox[{
+             RowBox[{
+              SubscriptBox["p", "1"], ".", "\[Gamma]"}], "+", 
+             RowBox[{
+              SubscriptBox["k", "1"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           SuperscriptBox["\[Gamma]", "\[Mu]\[Prime]"]}], 
+          RowBox[{"s", "-", 
+           SuperscriptBox["m", "2"]}]], "+", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Mu]\[Prime]"], "(", 
+            RowBox[{
+             RowBox[{
+              SubscriptBox["p", "1"], ".", "\[Gamma]"}], "-", 
+             RowBox[{
+              SubscriptBox["k", "2"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           SuperscriptBox["\[Gamma]", "\[Nu]\[Prime]"]}], 
+          RowBox[{"u", "-", 
+           SuperscriptBox["m", "2"]}]]}], ")"}]}], "]"}]}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->167925146],
+
+Cell[TextData[{
+ "Enter the trace:\t\[LineSeparator]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " let ",
+ StyleBox["\[CapitalDelta]s", "InlineCode"],
+ " and ",
+ StyleBox["\[CapitalDelta]u", "InlineCode"],
+ " symbolically denote the denominators\[LineSeparator]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " use ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to group products of Dirac matrices inside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "\[LineSeparator]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " apply ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to contract the metric tensors into the trace"
+}], "ExampleText",
+ CellID->893104289],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"comptonTrace", "=", 
+  RowBox[{
+   FractionBox["1", "4"], 
+   SuperscriptBox["e", "4"], 
+   RowBox[{"Contract", "[", 
+    RowBox[{
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Mu]p"}]], 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Nu]p"}]], 
+     RowBox[{"Spur", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", "p2"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+       RowBox[{
+        RowBox[{
+         FractionBox["1", "\[CapitalDelta]s"], 
+         RowBox[{"DiracMatrix", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+           RowBox[{
+            RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+            RowBox[{"\[Gamma]", ".", "k1"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}], "+", " ", 
+        RowBox[{
+         FractionBox["1", "\[CapitalDelta]u"], 
+         RowBox[{"DiracMatrix", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+           RowBox[{
+            RowBox[{"\[Gamma]", ".", "p1"}], "-", 
+            RowBox[{"\[Gamma]", ".", "k2"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]}]}], ",", 
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+       RowBox[{
+        RowBox[{
+         FractionBox["1", "\[CapitalDelta]s"], 
+         RowBox[{"DiracMatrix", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Nu]p"], ",", 
+           RowBox[{
+            RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+            RowBox[{"\[Gamma]", ".", "k1"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Mu]p"]}], "]"}]}], "+", 
+        RowBox[{
+         FractionBox["1", "\[CapitalDelta]u"], 
+         RowBox[{"DiracMatrix", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Mu]p"], ",", 
+           RowBox[{
+            RowBox[{"\[Gamma]", ".", "p1"}], "-", 
+            RowBox[{"\[Gamma]", ".", "k2"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Nu]p"]}], "]"}]}]}]}], "]"}]}], 
+    "]"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->973115055],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{
+   FractionBox["1", "4"], " ", 
+   SuperscriptBox["e", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"4", " ", 
+       SuperscriptBox["\[ScriptD]", "2"], " ", 
+       SuperscriptBox["m", "4"]}], 
+      SuperscriptBox["\[CapitalDelta]s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       SuperscriptBox["\[ScriptD]", "2"], " ", 
+       SuperscriptBox["m", "4"]}], 
+      SuperscriptBox["\[CapitalDelta]u", "2"]], "+", 
+     RowBox[{"\[LeftSkeleton]", "113", "\[RightSkeleton]"}], "+", 
+     FractionBox[
+      RowBox[{"16", " ", "\[ScriptD]", " ", 
+       RowBox[{"p1", ".", "p1"}], " ", 
+       RowBox[{"p1", ".", "p2"}]}], 
+      RowBox[{"\[CapitalDelta]s", " ", "\[CapitalDelta]u"}]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       SuperscriptBox["\[ScriptD]", "2"], " ", 
+       RowBox[{"p1", ".", "p1"}], " ", 
+       RowBox[{"p1", ".", "p2"}]}], 
+      RowBox[{"\[CapitalDelta]s", " ", "\[CapitalDelta]u"}]]}], ")"}]}],
+  Short]], "Output",
+ ImageSize->{441, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//Short=",
+ CellID->493327281]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply on-shell conditions, and express result in terms of Mandelstam \
+variables.  Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to safely take the ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Rule]", "4"}], TraditionalForm]], "InlineMath"],
+ " limit:"
+}], "ExampleText",
+ CellID->90366590],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"comptonTrace", "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "k1"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"k2", ".", "k2"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "p1"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{"k2", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      FractionBox[
+       RowBox[{"s", "+", "u"}], "2"]}], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "k2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s", "+", "u"}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{"k2", ".", "p1"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "u"}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "u"}], ")"}]}]}]}], "}"}]}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->215737211],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{
+    SuperscriptBox["\[CapitalDelta]s", "2"], " ", 
+    SuperscriptBox["\[CapitalDelta]u", "2"]}]], 
+  RowBox[{"2", " ", 
+   SuperscriptBox["e", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["m", "4"], " ", 
+      SuperscriptBox["\[CapitalDelta]s", "2"]}], "+", 
+     RowBox[{
+      SuperscriptBox["m", "2"], " ", "s", " ", 
+      SuperscriptBox["\[CapitalDelta]s", "2"]}], "+", 
+     RowBox[{"3", " ", 
+      SuperscriptBox["m", "2"], " ", "u", " ", 
+      SuperscriptBox["\[CapitalDelta]s", "2"]}], "-", 
+     RowBox[{"s", " ", "u", " ", 
+      SuperscriptBox["\[CapitalDelta]s", "2"]}], "+", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "4"], " ", "\[CapitalDelta]s", " ", 
+      "\[CapitalDelta]u"}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", "s", " ", "\[CapitalDelta]s", " ", 
+      "\[CapitalDelta]u"}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", "u", " ", "\[CapitalDelta]s", " ", 
+      "\[CapitalDelta]u"}], "+", 
+     RowBox[{
+      SuperscriptBox["m", "4"], " ", 
+      SuperscriptBox["\[CapitalDelta]u", "2"]}], "+", 
+     RowBox[{"3", " ", 
+      SuperscriptBox["m", "2"], " ", "s", " ", 
+      SuperscriptBox["\[CapitalDelta]u", "2"]}], "+", 
+     RowBox[{
+      SuperscriptBox["m", "2"], " ", "u", " ", 
+      SuperscriptBox["\[CapitalDelta]u", "2"]}], "-", 
+     RowBox[{"s", " ", "u", " ", 
+      SuperscriptBox["\[CapitalDelta]u", "2"]}]}], ")"}]}]}]], "Output",
+ ImageSize->{489, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->983688357]
+}, Open  ]],
+
+Cell["Organize result by denominators:", "ExampleText",
+ CellID->808073959],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[", 
+  RowBox[{"%", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\[CapitalDelta]s", " ", "\[CapitalDelta]u"}], ",", 
+     "\[CapitalDelta]s", ",", "\[CapitalDelta]u"}], "}"}], ",", "Simplify"}], 
+  "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1016837609],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"2", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "-", 
+      RowBox[{"s", " ", "u"}], "+", 
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"3", " ", "s"}], "+", "u"}], ")"}]}]}], ")"}]}], 
+   SuperscriptBox["\[CapitalDelta]s", "2"]], "+", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "-", 
+      RowBox[{"s", " ", "u"}], "+", 
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{"s", "+", 
+         RowBox[{"3", " ", "u"}]}], ")"}]}]}], ")"}]}], 
+   SuperscriptBox["\[CapitalDelta]u", "2"]], "+", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "+", "s", "+", "u"}], ")"}]}], 
+   RowBox[{"\[CapitalDelta]s", " ", "\[CapitalDelta]u"}]]}]], "Output",
+ ImageSize->{488, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1507458963]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Electron self energy",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->993628516],
+
+Cell[TextData[{
+ "In the covariant Fermi gauge, the electron self-energy function at one-loop \
+order is:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     RowBox[{"\[CapitalSigma]", "(", "p", ")"}]}], "=", "  ", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3T+PY8m7EOASEBDOhmTNfoKR9gsYtB+gddHmvldiU1qAtLqZw81uh0zm
+EG3UIdImDglWogUJyUpOkJCQho5IkBjOGZd3PB67qo597Dp/HksP98dOT/fr
+c3pc560/7/vP/+7f/M3P/yiE8O/+afP//M3f/vIv/u2//du//1f/pPn//Mu/
+//f/+u/+cfM//lnz5//Q/I/2P3769AkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOhZ8/qh8UvjQ6P9D9/X
+jgkAAIC6Yp7Y+j3mioc+1o4PAACA+zhYS9w7zhHP+bV27HBO83rXWDQeG6vG
+uvHSeKgdGwAAjEnz+rFDnnjKT7XfA/PW5oExP1zG/LDNDTdnfl/b3PFd7ZgB
+AGAK2vOLB2cZc76rHS/T17zex/xwFbW54WuHOY5t+/drvw8AAJii5vVH5nn8
+t9oxctX93e/jfIx5Wcr7O8RzvLd0E3O+a9bFP8XvZ60RAABupHn9mnkm/6V2
+jFx1f7us23VZ39sUaPO51N7SPrzeI+cFAIC5K8gdf6gdI1fd33dxfe9WuVst
+b21uWvv6AgDAXDSv3xLP53/Ujo/e7vPTAPK9vmyCGqoAAHBXzetj4hldb44J
+Cbuzhm8DyP2uWWtc1r6OAAAwN2HX7zH1rK43x8SEXa+LW5yBvLX23KRaOAAA
+UEHz+iXxrP6xdnzc7L6P6QzkNui7AQAAVYV0fw69OSau3f85gNww5dlaIwAA
+1NW8vss8t+vNMQPN630Y3hnIV2uNAAAwDM3rp8zz+3e1Y+RuvwvvwnDOQK5q
+Xw8AAOCLkO7rqDfHDIW6ZyA3Qd8NAAAYnKA3B6d/L5Z3zhnb/bJPtd83AADw
+rZDvzfFD7Rip9rvx0PgPjf93h7zxxVojAAAMV9Cbg29/J9qccX3HtcbH2u8Z
+AABIa16/JZ7r9eaYkea1uGPOuF9r1HcDAAAGLuR7c/xUO0bu8nvQ5oybO+aM
+rXXt9w0AAJQJenPMWqWcsbWq/d4BAIByQW+OWaqYM7aWtd8/AADQTZsfJp7x
+f6kdH73f70tzxraezX+8Mmd8kzcCAMD4BL05ZuOKnHHbeGq8a/eZXpk3vq99
+HQAAgO7CFb05mteHvvYw1r4OU3Zlzrg8+l6XfJ/995I3AgDASIV0b45fO3yf
+72Me+nthLvF7/Hp1eG53b3vLGQ++59sF3+816MEBAACj1q4tJp75O/fmCPl+
+H23OaB/sbe/pQ7isP2ObZy4y31feCAAAMxNu0Jsjkzuqu3Pb+3mTnPHg+z92
+/L7r2tcEAAC4Xkj35vjtwu/584nv1a5t/lj7/U5V+FLDput+0qKc8eDnrOSN
+AAAwP6Hn3hxhd+bxeA9s+zO+r/1epyrs6p92zRlfu+SMBz9rU/j9l7WvCwAA
+0I+QP5fY+UziiVy0PduoFs5t7t8i7GradMkZt9fkdYU/7+LvDwAADE9I9+b4
+44Lvd1xftbhGK52u8/sO63+95Izx577L/Iy3S9YyAQCAYQs99eaI3+s4b1QT
+p//71eZu6445Y5vPPfX08xeZn6N3IwAATFDooTdH2O17PdynqibObe5V1zON
+7deuQo+9McL5Ojnt2cmH2tcIAADoX/P6IZF3fOzwPf48+Hvt/9a3sd/7tAjd
+zzSub5HLNa+XM3mj3o0AADBR4creHO3a4tG6Zbv2qCZOf/fn4UyulrK55frf
+iRz2Rd4IAADTFtK9OX7O/N3jGjsX9YHk7PVdddyf2uZ0ixvHdFwnZ137OgEA
+ALcV8r05zq4fnlivVEu1v/vSdX9qb3VwCmPb/9zn2tcKAAC4veb1UyIfOdmb
+I+abx7VUk+uTFN+PS+qnPt9zv2jY1epp/8ey9vUCAADuo3l9SOQk3/TWCN/W
+xFFLtb970bV+6iZUqGkadj0lH2tfLwAA4H5CujfHD0dfe7xG+fH4a7joHryP
+eWCXM41yNwAA4C5Ch94c4XwtVrnjdfdg1XF/6uqe+1MBAADCtzVSD32IX3Pq
+bOM3X0fna78Iu36Ig96fCgAAkMkJ2/2px30bT65PBr0cu1zzthbOc4ec8c3+
+VAAAoJaQ782RWpP85mtrv58xCN37bty1fioAAMCxkO7Ncey3zPrjn7Xfz5Bd
+sNbY7mVd1I4bAAAgnK99c+znwq/Xp+P0de6y1tjuT13VjhkAAGAvfN2j8ZQ/
+wkEN1ZCuyfp5bbL2exqSC9YaN0EtHGYszrOc81A7PgCAOSrIA0/WTg3p2jqt
+72u/tyEIu36NXdYan2rHDPcS/308NdahW1/T/b+XTZyXeZRTAgDcVkjXwTm7
+fti8fs48182+Zk7o1q/xxbMvcxDzvHXM/brkiiVeYy75vvb7BACYmrCrfdM5
+/wu72qypmjkfa7+3itf0fSjv16jvBpPXzovcMF88Zxvnb9QnBgC4UkH+90Pm
+7+dq5vxc+z1WuKZPHZ6PXzzXMmVhdz5xc8d88Zw2b32ofT0AAMYqpHtzZNcN
+Q/6s5O+13+Mdr+W7mAuWrjU618hkhd064xByxlM5pPkaAICOQnrdsKhWasjX
+zEmuXU5B2K2tlK41bqx/MFVxDmU1gBzR3A0AQI/CrvfGueerolo3Ib122TpZ
+p3UqQnnvDc+rTFroVlP42L7GzVOcizlb6yb++WPMUV+u+JnmcQAACjSv7zPP
+VcXrhSHfH/K72u/3BtfvIZTXw3lNPQvD2MWcr2vutm4sQw97SMOXXh+l/yYP
+53TUqgIASAjp3hydaqSGHvt1NK8PYeC9IeOaR+ke1VXteOGWYg5Ymqtt+8oX
+E/G08zrPHf6Ntp5rX0cAgKEK6d4cRWcdD75XL/06DvLZTj//ztetdI9q+4y8
+qB0v3ErYnW0sXef7nDNWiG/VIYdc176mAABDlMn1itcJD75fah2zlezXEXZ7
+aPcxDW7dMXTbo6r3BpPWIW+sfs43xlo65/Pq3y4AwBfN68fM81Pn2qghv/b4
+Z+bv79dBO+etd7hepXtUqz8nw611yBs3YUC1aMLuTGRR3LVjBQAYipDuzdHp
+rOPR971o7TF8qdXa1twZVF2djusV6uEweaGsj+mqdpyJ+NcF8a9rxwkAMAQh
+3Zvj4rOGBWuP7Z99f/R3fjj4859qX5uDuN6F8t7m7bOofW5MXkHeNYq6pWFX
+r2e0+S8AwD3E/C71vHTVntGCtcc2b/0hfu3PB7nmYPpAht3ettI9qsva8cI9
+FORb7b+H0ay9h12fyNy/88HnwQAAtxLy/TSu2jMac9Ncv8djg9mrWrge0bJH
+ldkIu1pRqTxrVHnjwfvKzRO1f/ZQO04AgBpCujfHHz39jJ8SP+PYx3BBbZ4b
+XZt1Yczt19mjev/78y6uFa3C7hzqJtoe3Z/twZ89x69fuGdXXftN5t/E6PLG
+g/f2mHlvm9oxAgDUENLnEX/t8eekctRDPw7gmnTpU7esHe+cxOf65w73p2S9
+uP1+i9rvbSya19PU/02E/H6D0b9HAIAuwtd1aU7ptVZN8/o98bM+DiRvLD3b
+uB3z2sqYxHuyLrwv13iLeeRD7fc8VHFeJXUfnmvH2ON7XWd+V6xbAwDcUNid
+rzw8/9jWyhlED8eCtYa9jefGu92PvtYXu2rv8aL2NRiaTD71Wju+nt/ru/Dt
+/udDq9oxAgBwf6G8b+Nk1lWGKuaMqWf2e+eQ1pd392WRuVaTu06Z92ztEQBg
+RuLaQklv81H0qRuzsNubuhlAvnhyzmDOeULIr8FNdk4lpNdaV7XjAwDg9sKu
+z0DJnsjtFNdUhiTsap9euz64jt9nFdeL9vb/bV+L9dJzk+3fW9S+VpXuTyp/
+mvT6W0if8Zz0ewcA4K81rpIcYuPZ8Ob34ZIzje1a8dOlOX38uU+hbM15Nmts
+Z67VMnM9Jr8eH9JzG8va8QEAcBvxWbgkb1zXjnXKOtyHvdf4d3rN5eO6UptH
+bjvEMos5hZA/4/hSO8Y7XYd3qd+F2vEBANC/kO9NZy1hWPdhn6ct7hTXskMO
+2eayD7Wv5Q2vRW5tflb7NUN63+5kfw8AAOYo8+x3+DzsbGP9+3DXnPFEjMtM
+3jTp35eCvLE1+b2qR9dkkbgWT7XjAwDgeqG8lurrFPOAIemQv1d/Fu/wezOp
+/LEwb1zVjrPStdmeuR6z2LsLADBl8fm/pBZLu8Y1m/13le5FSQ/Nwe0DLVyD
+nEQN1ri2lnuvs82TUr/DtWMDAOByobyG57p2rFMX8rU6B30fCtfiWsvasd74
+Hr3OeY4lpPetzmoPLwDAVHR41q++N3Lq4r0Yfc4VyvuBrseUX4Xd2vxa3lh8
+vUY39wEAwGmhbN/dKPKVsYt5yXYq9yGU74Fu3/OidrwF72dRcH/kjV9fs3Nn
+YN9qxwYAQLlQtu9uUrVNhizxnD26vPHgPZXmj4Ndgwy7NdSStUZ547fXLvUZ
+Y98qAMAIyBuHpX2OztyL59oxXvHeSmuw7n/nVkPIv2Lcq1C2Lv8pvsfqcQ9J
+vIbnrtemdnwAAKSFsl7z1k/ue0+2U3/GjnlYSQ52mEM+VIjzIexqhJbmjK1V
+7es7VJl5g7vfXwAAygR1PgYnk1O9TelehN36apecbL+et7zldYjrY8tMnnPu
+/th7mb/n567funZ8AAB8qzBvXE8pVxm6mLOkcqnJ5SWh2x7WU3lku25+9V7q
+sKtp+3RlLP6tlF3rbeI62hcPADAgpXlj7TjnJqTXHCfdVz5ctgZ5bBN/t9vr
+uAy7WqinPMWvWce/c83PtNbY/V4vU/ewdnwAAOzIG4crsx7zUDu+O7z/rvVo
+ahpMHZ8xyvyuL2vHBwAwZ/G5vGSNZVk71jkKzoEdXouHwjmOWjnjs5zx6nu8
+zFxj1xcAoIJQ3ldvWTvWuQrqT566Jvt1yNQa1b1sg3XGvu9v6jNp0nu0AQCG
+SN44fCHd984z9Ke/1mXX4b77Wd/iz3Se8Tb3dJG5/k+1YwQAmAt54ziE9P49
+ecu316vNI58Lf7e7eo3fe1H7fc5BvNap++H3HwDgxgrzRjUiByCcP9v3Vju2
+MQhfaqe2ecgmlJ3r3X/dKv7dRe33MUfxc2qb+YzStwMA4EY65I2eyQYg8ey8
+rh0b3FrI7131WQUAcAPyxnEJ6bOOy9rxwT3EtV+fWV9fk0U0q/cNANyHvHF8
+MmsuD7Xjg3sJ+b4sb1PaWxw/rx/jvumXgs/u/TXYxGtlrzUAcBF54zil1ltq
+xwb3Vpg/jbb+atj1Ll0Vvs9SbzH3XAY9ZACAAvF5RN44Mon7tqkdG9xb4RzY
+p5grjSJPiu9p2XO+mLK2HgkApGSeueSNAxXO1wTV15FZ6pA/boecI8X3sQr3
+7Ul6fH2Wta8DADBMZ5655I0DlsgdV7Vjg1o65I/7NciH2jEfxV4zZxxVjg0A
+1HP0zCVvHDi5I5wWP8vWHXKk59o5ZNjtTd0OIF8cfI4NAAzDQf4obxw4uSOk
+hfxZ7mPre372xc/bpytyxn3t1FXMPRfRu/j93x/8t1XMkS89O9n+rGXtewoA
+QHdyR8iLeVPXPaCvMad7uFFMj6HbuuhxbKtrctzwpcfH+oJrsw4jqTUEAMCO
+3BHKxFzp5Ypc7TnmWg8X/vxFzEUvjeGma6Khey3XV/kjAMB4hPP73Ebbww5u
+KeZ/5/7ddN0n+hLX/05Zx6+59md9Cnc8ixlz3E2H6+BsAwDACCSe6Ra1Y4Oh
+CsOrZZpaZ3yodI2WhddH/ggAMAJyR7jcgHPIajnjieuzlj8CAIxb2NVPPPcs
+5zkOCsUcqV1n21bMF9v8q3qfkDPXp2QN8m2IsQMA8Pl57vHcc1zt2GCs4pzM
+8x3zyPbM5LL2+y68Lrlron4OAMAAhfN9695qxwZTEPOlfW3Uvva1bmJu+lj7
+/V1wPfa9f5O5cO04AQD4Wjhf639TOzaYonZPZvjSa2MV/w1uEp7j17V7BCax
+j7wwf1TnGQBgQBLrIKvasQHTFfPH1P5VZx8BAAYipOvkjG4vHDAu8TMotY93
+UztGAAA+P7c9J57Z1KoAbi4k6nWZxwIAGIbEfrHX2rEB85GZx9rWjg8AYM4y
++1XVqADupuDs47J2jAAAc9W81onntIfa8QHzktm7uq0dHwDAHMU5/nPPaPar
+AlWEXU8S5x4BAAYi7HrF2RsGDErY9b0899n0Ujs+AIA5iWuO52riv6mvCtSU
+WXv0+QQAcCeZc46r2vEB89bufbAvAgCgrkxtVTVygEFI7I2wbxUA4A7aOjjW
+HIGhS+yPeKsdGwDA1IV0723nHIHBCOl+He9rxwcAMFWZ57DWU+0YAfZCuo+Q
+zysAgBuIZxzPnR1qbWrHCHAsscf+uXZsAABTE+fuU2cc3+z/AoYoceZxUzs2
+AIApKcgb7f0CBqut33Xmc2tbOzYAgKkozBvXteMEOCd1Trt2bAAAU9C8Hgry
+xld1VYEha14LuSMAwG0U1MXRjwMYBbkjAMBttGcXMzmj2jjAaMgdAQD6Ffeo
+buSNwJTIHQEA+hPrEOb2qMobgdGROwIAXK95LRvbgpxxXxfnoXbMAF3Ezzm5
+IwBAR2HXd6NLzth6URcHGKNwvr/ja+3YAIB5i+cGl/F55SWeITyXp73GP1/H
+r1/cKkcLux5n68K9qYdWta8pwKXi596pz7ZN7dgAgHk5WMe7JC87Zxu/3/LS
+faJh12fjmrjaGJxtBEYtnO9T+1w7NgBgHuIa4bn57FvYRKuETeI5qdNaY7BH
+FRi5sJvbO/c5t6wdHwAwbXEtr4/8bIjaPbYPta8xQB/Cbq/+uc87+yoAgJsI
+u3XG7QDyu1vYtO+v9jUG6FPzej7zmfdWOzYAYHrCrvbNywDyu761ZyDXwToj
+MFFxXuzkHovasQEA0xJ2+1MvrX+zjTnnKnypoXroMf735/h801ednZyX+L6c
+ZwQmLfE5+FQ7NgBgGsKuvsL6wnW85aVreeFLf4916G9/7GvMTx/li8BchF2t
+6XOfi4va8QEA4xfzxi61cF5vtY4XY2nXKJ/C1/0iz1nHr1t6NgLmLCTq5NSO
+DQAYvzhPXbp3dCM/AximOI928jxB7dgAgHHrkDe2X7OsHS8A5yVyx03t2ACA
+8eqQN66dGQQYvnC+PrYaqwDAReKZwlzeaK0RYETC+f4cq9qxAQDjE8rq4rR5
+4/vasQJQTu4IAPQp5PtwvNqjCjA+ckcAoC9h18dC3ggwQXJHAKAPzeshc8bx
+Td4IMF5yRwCgD4n6e843AkxA4kyCOqsAQJHmtcjsVV3WjhGA6wT9HQGAKzWv
+bSJvXNeOD4DrJXLHbe3YAIDhy9TH2TrjCDANqT0mtWMDAIYvs+b4WDs+APrR
+nltPfN4vascHAAxXmxsmniM2teMDoF+Jz/yn2rEBAMOVqa26qB0fAP0K5/t0
+qLUKAJzUnmO05ggwL4l6OZ9qxwYADFO7PymROy5rxwdA/1L1cpxxBwBOSexX
+fasdGwC3037On/n8X9eODQAYnsS887p2bADcTuasu75MAMBf7FkCmK9MjW31
+VgGAv6iVADBviX2r29qxAQDDkdivtKkdGwC317ye1UsDAHKa1+uZ54Xn2rEB
+cHvN6yGRO26dewQAWuaaAWhroyXGg1Xt+ACA+hLPCovasQFwH5m1x9ZD7RgB
+gHqa1/vEc8L72vEBcD+ZtcdN7fgAgHpCoj9H7dgAuK+49niu5qq9qwAwY3JH
+AA6FRN8m5xkAYL7kjgAcS9Tf/hTXJZ1pAICZSeWOarIDzFPmLPynmFsaIwBg
+Rtqx374kAI41ryf5IwBwSO4IwCnN60X+CADsJWrqrWrHBkA9cW9K6uzjPn90
+/hEAZqB5bc48D6xrxwZAXTF/TPXt2NfPeawdKwBwW83r+cyzwLZ2bADUF2vn
+5PLH1nPtWAGA22ley8RzwEPt+ACor0P+aA8rAExUmx8mngGeascHwDB0yB8/
+n3tQRwcApqfdn3pu/rh2bAAMR2H9nMNzkCs5JABMR+LMo32rAHwl5o/rwvxx
+n0Ou7WUFgPGL+5DUPgCgWHuuocMe1sPzkE/ySAAYr8S+1Tf7jQA4Jc49bjrm
+j4fjy0vc17qwzwUAxiGO3efG91Xt+AAYrgvXIFM2Z6zjeLVs883a7xsA5iie
+X0nNDVt7BOCsOI6kzs/fymv8uY/GKgC4j5CufbCuHR8Awxd2vZ+ee16H7KId
+yx5rXwcAmLKQ7vXYeqgdIwDjENchn0J5T4++bePPtxYJADcQ0vuN1rXjA2B8
+wq6mznOlPPJzn8na1wAApibOE6f2GZm/BeBicZx5jLnkJjPm9L0Ouaj9/gFg
+SoKaqwDcUcwnF9EyjkOnbHpYu3wxDwoA/cisPW5rxwcAYbcP9inmgl3XLts1
+yPe13wMATEFm7VH9OgAGJa5XvnTMIZe14waAsQvpmqvr2vEBwClx/Fp3yB+f
+a8cMAGOXmL99qx0bAKTEHHJTmD+ua8cLAGMW9/+cG2edEwFg8MKupmvJech1
+7VgBYKxizRz1VgEYtTielaxBrmrHCgBjFc7XQt/Ujg0Augi7npLq5wDADYTz
+9VadeQRgdDLnMT7F/a3OZQBAR2HXp/nc+PpQOz4A6Kogf2z33LyrHScAjEnm
+zOOidnwAcImC/FHvDgDoKFGf7ql2bABwqZDvA7moHSMAjEmiNt2qdmwAcI1M
+/dXX2vEBwJgkxtV17dgA4Brt2f3E/hp1VwGgg0St1U3t2ADgWpmzj9va8QHA
+WMgdAZi6zN7VZe34AGAM5I4ATF3zem/tEQCuI3cEYA4ydVcXteMDgKGTOwIw
+B7FuzrnccV07PgAYuub1LHcEYA4S5x7fascGAEOXGEefa8cGAH3K1Fx9rB0f
+AAxZIndc1Y4NAPoWzvd7XNeODQCGTM1yAOYkUTNnWzs2ABiqTN2ARe34AKBv
+mX2rD7XjA4Ahyoyf72rHBwB9y8ybOvMIACckaqxua8cGALfSjnPO+gNAucTY
++VI7NgC4lUSdOOMfABzJ7Nl5qh0fANxKu754Zvzb1I4NAIamzQ/VCgBgjhK5
+47Z2bAAwNM3r1bgJwBy1tcTPzZ/Wjg0AhqR5vU+sOT7Xjg8AbknuCABlwvm+
+yK33teMDgFuSOwJAXqZGzmvt+ADg1uSOAJCXWXNc1o4PAG5N7ggAaZk1x7fG
+u9oxAsCtqbMKAGnN6yWRO65qxwcA95DIHTe1YwOA2prXozVHAEjOpb7Ujg0A
+amrzwnYfjjVHAPg8Lp4bE1e1YwOAmjJ7VbfWHAGYizifem5MfKwdHwDU0rye
+EmOkcRKAWWlriifGxIfa8QFADaka5M51ADBH4XyvqrfasQFADc3rfayBoz4O
+AESJsXFdOzYAuLeCvLG1qB0nANxTZr/qsnZ8AHBPhXnjqnacAHBvzWuTGBvt
+xQFgNuL5xlzeuK4dJwDcW6YGwLp2fABwLwX1VFuv5lUBmKPMmuOidnwAcGth
+16cq1b9R3gjArGXWHLe14wOAW2tejwV7VOWNAMxWnGPdqpEDwBw1r4fM3ht5
+IwB8+jxmPltzBGBuYs64LswZP8WvlTcCMEuZvarOOQIwOXHsKznTqA8HAHz6
+a741da5jUztGAOhD2PVpfM6c0TjlzTwqAHMWzzi+ZsbKh9pxAsAl4ji3jOuL
+JfVvTnmxRxWAOSvIG9XHAWCUDvLFS3LFv876W2sEYO4K88aX2nECQKk4tq0u
+2I96as/NU+33AwBDEPL15NQeB2AUDnLGS/ekHq4zrox/ALBTkDc64wjAKDSv
+xx7WGTfOaADA1+L5j1ze+L52nACQEtcarznP2O6veTJXCgDfCru65PJGAEYt
+rjV23Z/6FvfdPNqTCgDnxfnZ3J6eRe04ASAlnkfskjO2a5OPteMGgLEIuz7I
+qbF1WTtGAEgJ+fP6h9b2owJAN+16YmZ8fa4dIwCc0/Fs44ucEQAuE9J9HDe1
+4wOAlMK8cevsBQBcLuxqyKXqBjzUjhEAzincp7pW/wYALhf3+KTq0C1rxwgA
+5xSc1W891Y4TAMYupGvRbWrHBwDnhF0vjVzPjWXtOAFgCjJrjvo4AjBI7XmK
+zBimHzEA9KSdi02dC6kdHwCc0+6Nyaw56tcIAD0J6dqqD7XjA4BTMjXenNUH
+gB61+3isOQIwNgU13ta1YwSAKcnUpXM+BIBBCul+HK+14wOAqQm7/sjGXQBG
+I9bHSe1VNfcJAD3K7FfVAwuAQcqsOa5qxwcAU5OpMfBQOz4AOJZZc2zPP76r
+HSMATE2irrn9qgAMUruuaM0RAO4rUZ9uVTs2ADglcU7fmiMA3EDmrOOidnwA
+cCwzdq1qxwcAU9S8HhPjr3lbAAYnpPtKPdSODwCmKHFeZFs7NgA4JbFf1Tl9
+ALiRRH3zTe3YAOBYpr6qvlIAcCOJGqur2rEBwLHmtbRfFQDuT+4IwJgkzjpu
+a8cGAFOW6M9h3w8Ag5OY81zXjg0Apkx/DgDGRG8OAKhD7gjAmBi3AKAOYzAA
+Y9GOTYlx633t+ABgyuSOAIxFKnesHRsATJ1aOQCMhdwRAOrRowOAsZA7AkA9
+idzxuXZsAHBI7ggA9bT9sM6Mw5vasQHAIbkjANTT7k09Mw5va8cGAIfkjgBQ
+T/N6TNRafVc7PgDYkzsCQD1tPyx9OgAYg+b1YMwCgHoSfTpWtWMDgEOJ3PGx
+dmwAMHWJWquvtWMDgEPteXzznQBQR/N6SszjPtSODwD2EvOdm9qxAcDUZc48
+PtWODwD2EvXBP9WODQDmILEHyL5VAAYjVWvVmUcYD/X8Ybya13NiLH5fOz4A
+2EuMV+vasQFl4h6Ctl7jS2PpnBSMR2bf6rp2fACwF581T41Xb7VjA8qc2X/e
+7oNbh13/ceuSMGDt/lQ1cwAYurhGcW68WtaOD8hLnV0+PDsV98YtascLfC0z
+Fq9rxwcArXY9IjFebWrHB+QV5o7H2j0HT85TQX1xLH6z9gjA0CX2rX6yRgHD
+d2Hu+NUe9bi/dekZFerI/Dt+qR0fALRCut7qpnZ8QFoPueOps5Lt/lZnJeFO
+CtYe1T8HYBDC+f5SxisYuBvkjt/MIcWfsaj9XmHKMv+W38zlADAEIX1O33gF
+A3aH3PH488BZSbiRzFyuvasADEJI1whf144POO3OueOp/a3r4Kwk9CKkz5G0
+nmrHCAAF49WydozAtyrnjsf2vUDsdYcLhXQNu0/+fQEwBJnxqt2rZo8aDMzA
+csdjmxifzw4oFPJ1c4zHAFRnvILxGXjuePz5sT8r+VD7usGQhfxeIOMxANWF
+XV1+4xWMxIhyx2Pb8OWspHpccKTg37bxGIDqwu68kvEKRmDEueOx/VnJRe1r
+CkMR51dy4/GidpwAzFvYnVMyXsHATSh3PNZ+BukFwqyF3VmSVB30PfVXAajG
+eAXjMOHc8dD+rOQyOCvJzHQYj9fB/m8AKukwXm08z0EdM8kdj21D7AXiWZk5
+6DAet/82FrXjBU6Lc6ArmLBfG/8z5Mer/9v4bwOIF+ZmE+rncrX9z3gd1hWu
+P9xL6Xjc+h+NfxhAzFDTsnaueJQ3bkL98RIAAIBvvdbOGQ/WG2tfCwAAAM6o
+nTfG3HFV+zoAAABwXu280bojAADA8NXOGw/yx5J6VwAAANzfIM47xtyxrZe8
+CruaOTBX/6Xxf8Kuzur/avznAcQEc7IN9cfm2trPn7b+5H8PPoOYr/Z3/2PY
+/Xtox+X/OoCYoKanoI8TAPwlzPf8/Ut8Lnhf+x4AAAAM3Yxyx/acyHPQ9xwA
+AKCzCeeO28a68RjsOQIAALjKhHLHt7Dbh7psPNS+rgAAAFMy8txxE5xZBAAA
+uLmR5Y77M4uPta8bAADAnAw8d9yG3ZnFZXBmEQAAoJqB5Y77M4vtPtSH2tcG
+AACAnQHkjpsYw6L2tQAAAOC0CrnjX2cW7UMFAAAYhzvkjtvw5cziQ+33CwAA
+QHc3yh33Zxb1zgAAAJiAnnLHV2cWAQAApuvC3HHrzCIAAMB8FOaOb84sAgAA
+zFcid9w4swgAAEDrIHfc985Y1I4JAACAYWn3oDqzCAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADA9zWvRqh0H
+AAAAw9W81o32f2wbT413tWMCYBia10Nj1f7f2rEAAHW1uWLjLeaPe2trkQDE
+vSn7sWHTWNaOCQCoJ643fjpha74ZYN6a18vR2NDONz4bGwBgnprX65n8ca99
+dnisHScA9xX3rR7vT/lqLdJ5BwCYj6N9SSnWIgFmJn7up8aGt3je4X3tWAGA
+2zuom1PKWiTATMS5w5Kx4dVaJABM25m6OdYiAeiyP8VaJADMQJwr7po7WosE
+mIEL9qdYiwSACQu72gfX5I/WIgEm6Ir9KdYiAWCC2jG9h9zxeC1yWft9AXC9
+cL6vk7VIAJihsOvd1Wf+uJ9v1hMMYORCvq+TtUgAmIke9iWVzDevGo/mnAHG
+JXSvm1NqG9c1jQsAMCIxr7tV7njqeWEdnxkWtd87AGnhNvtTDq2NBwAwHqGf
+ujmX2sRnkzaHfah9LQD4Itx+f4q1SAAYkTZnq5g7nnp+eAnWJgEGIVzf1+mS
+OcVV2O2ZlUsCwMDEcbp23phbm2yfXx5qXyuAuQl196e0Z+fXcQxQawdgxgaQ
+lzA+7f6pdm1yFaxNAtxc6L+v07U2QS02gNkZwPjDNLTz0tYmAW4k3L5uzjW2
+4UstNmuTABM1gPGG6fgrf6z9ew0wNWFXN2c7gM/6UpvwZW3yofb1A+B6Axhb
+GCf7VgHuLNy3r1PftkEtNoBRG8BYwjjYkwoXCLtzahvo0f8O9ceEvrTvR58o
+gJEYwLjB8GyDuWHoRdj1Oaj9bxrGYhvsaQEYrAGME9S3CeZ94SaC3BEutd/v
+8lD73zEAOwMYG7ivbbCmCHcT5I5QYhusNwIMXtg911BPO696y/F4E/TggmqC
+3BFO2QT7XQCgWNit/d1qTF7Wfn/A53/niwE8p0NN22C/CwBcLOz6dL31ODa3
+38u5EBiYIHdkfjZBX0cA6E3zWvc4Ri9rvx/gtCB3ZNq2YTeetWuK72v/ewOA
+qQnXP0taY4SRaP+dht0aDFzjP4X6eWJrE+Nxhh4A7iBcXh+nHbOXteMH4H5C
+/2ccSrVj1bodd4I1RQC4u9C9Ps42WGMEmK3Q3xmHkj0t7c9aWFMEgLo6zh23
+Nekea8cMQD3hPudlX+PaonwRAAaiYO64XWNcWWMEoBVu1wN4v8ZoLyoADExm
+7tgaIwBfCbfpAWyNEQAG7sTcsTVGAE4K/dbHscYIACMRc0RrjAAUKTjjUGJj
+jREAxiXuO7LGCEBW5oxDyRqj2twAAAATF880XLTGWDt2AAAAbu/ojIM1RgAA
+AL7S5oCF9XGsMQIAAMxUrKVmjREAAICTEvVxrDECAADw2VF9nK3a3AAAAByK
+PRj1/wUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAkWpePzR+aXxo
+tP/h+9oxAQAAUFfME1u/x1zx0Mfa8QEAAHAfB2uJe8c54jm/1o4dAACA22pe
+P3bIE0/5qfZ7AAAA4P7a84sHZxlzvqsdLwAAAPU0rz8yeeNvtWMEAACgrvYs
+YyZ3/KV2jAAAANRVkDv+UDtGAAAA6mr3pCbyxj9qxwcAAEB9be9GvTkAAAA4
+J/Z71JsDAACAs9o6OIm88WPt+AAAAKgv059Dbw4AAICZa17f6c0BAABASnuW
+MZM7flc7RgAAAOrK9HXUmwOASYtn/lsf4tj3febrv49f//upGgHxz9SYA2By
+9OYAYA6a148HeeKfXevDxZrkp/LFs7Xm5JAATEVBb44fascIAF2dWEss9eHM
+9+v6fdScA2BSgt4cAExI8/r5ihzvm37GcY713Bql/BGA2WjHMuMcAFOWmSc9
+9t3B3/sxpM91dKVuOQCjFPK9OZzRAGASQr6m+FdzpjFvPP7ztrbcjye+b+kZ
+yI9B7XIARqhgHDW+ATAZBWuIv8Sv++Hoaz/kxsQOa5vWHgEYnaA3BwAzUrA+
+2OaM3x/kjX8erzNmvn/qHIjxFYDRascv86IAzEVI17z5I37Nfmz8o+v+m5Cv
+XW5fDzBLQR/dUSsY3/TmAGBSMuPerwf7cTrnjQc/o6S2TvFaJsCYBH10Jylc
+0ZsjXNfj6iu1rwMA81AwZ7rPG/+8Zl0wlO1b/bn29QC4VtBHdzYyY9uvHb5P
+aj35lN/j19uvA8DdZOZM93PX7f+9at9NSNcS2HMuBBitoI/u7IT0nprO674h
+3+/j92vHYwC4VGbOtLecriBHlTsCk1P42benj+6IhBv05sjkju4hAFUVPJv8
+2dPPkTsCs1SQY3y1Nhj00R2FkN5Pc9Fabzi9dv3x+N4DwL2FsvqnvZxBlDsC
+c1YwT6eP7siEnntzhK97Ye21PyNZexcA7qHgeaOXNcfCn9VbngowNAXrg/ro
+jkjIn0vsfCbxRC76e27eAADuJTNn2msuF8rqBNqTA0xS0Ed3UjLzoZ1z9BNz
+C8U1WgHg1grmTJN9qS74eSVncuzLASYp89mnj+7IhJ56c8TvdTw+2lsMwKCE
+fO2GXuc8M3PuveeqAENRsCaoj+7IZPL0ot4ccQ73cP+PmjgADFLI7yHtrX9U
+yK9xtvQfAyYp6KM7KZm5gKJ50PBt784/+xx3AaBPmTnT3mrkxJ9VUp/e8www
+SYXrgfrojkQmR8/Og4Zve3devE8ZAG4tM2f6ef9Uzz+vZC7cWUdgkjJzdb3N
+18kd73Y/U3XmknuCT9wje24AGLSC54te981kxtnPc661rwnALRTM1WXzjQ4/
+S+54+/uZO4Nxdv3wxDyqWqoADF5I1zzte7/q9/d6bgIYmoJ8Th/dEQnpMxgn
+50Fjvnk87roPAAxewZxp3/tVS2pEOOcBTFLBvgt9dEckc42/WdMN39bEUUsV
+gNHIzJn2/lxR8Nxk/xQwSQVzdYPvo9vmtgXfcwx+7+kap86u/nD0tcfj7cfj
+rwGAIQvpujV9P8f8mHtuCtYcgYk6kTscG3wfXbnjV9eiuDdHYqyVOwIwGpln
+i17rvYV8XXrnPYDJChPooyt3/OpapM5gfDi4D6n13w+1fy8BoERmzrT1U48/
+K1cjR21VYNLCBProyh2/uhapnLC9/sd9G0+x3waAUQj5ujW9jWchP9+unyMw
+WWEifXTljn9dh9y6bkmN27++tvbvJwDkhPQe0t7WAQuemYybwKQV5BL66I5I
+KFvX3WvH2rutOQNA3+KcaWos6y2fC+l9Pb2eqQQYosznoD66IxPK1nX/us4F
+X69PBwCDVTBn2ssceEjvb2rnxZ3zACYt6KM7OSFfw/aPw3E05PffmEcFYLAy
+c6C99OYI6bXNdtx1xhGYvIK5On10R6QgDzxZOzXk+20aEwEYpMyzRS/zn+H8
+eUr9kIHZuMdc3cHP0kf39vczta57dvwM+TpDcnoABifkz8JcPX5lxlZ5IzAb
+QR/dSclc47PjZ8jXGeh1HgEA+pDJ667O7UJ6P496AMBsZD4PW/rojkhB/pcc
+P0O+Zo7cHoBBycyZXjXvGZ9dTo2r9qkCs1MwV6eP7oiE9NnV7PhZMJdwVd9J
+AOhbZs704nEr5o2n9mapiwPMUmauTh/dkcmsGxbtPw75mjnmWQEYhJCvo3Cy
+Plzh9z2Vk/7W57w6wFgEfXQnJ6TrzBXdz8za5cXjMAD0LTNnetE8eDi/J8u5
+DWC2CnIEfXRHJOTPkxbfz5DvD+meAVBdZs70krnTU9+vXWu0RxWYtcxcnT66
+I5OYJ+18PzP5fqc16bA75+o+A9Cr+IyRyxsP879v1g1jvvjLmWeVds+UOqoA
+n7JzdfrojkziWne+n5mcvzgXPchn7UsGoFcF85y/Zsay1N+TMwJEQR/dycmM
+j53vZ+b+fTo1f3vid2wfk3VHAHqVmTP9ePB1P8Yx7dx5jA/xz3vrSwYwJQV5
+gT66IxLydeY638+QX3v8M/P392O6GroA9C4zRtnvAtCT0rm6C7+3Prr3v583
+Obt66dpj+FKHqZ3jVVcHgF5l5qjNWwL0KDNXp4/uyIQbnV0tWHv8eHxfj8Zz
++38A6F3B3Ka5aoAeBH10JyXk68xdNfdaMD7/sR+jw65uwf53QB9IAG4iM2fa
+S614ALL7Gz/nAhd8T310693PXJ25q/L2mJvm+j2eWmc2XwBA7wrmTJ11BOhJ
+Zq6u01pV0Ee3upA+u9p5HiBxn0vzRudaAbiZgjHJWUeAHhTM1R3nf/roDtyZ
++7D3a48/J5WjHnL/AbiZsOupkRqHzF8C9CDoozspIV9nrtdaNXFuILXe6HcA
+gJvKPKc46wjQk8zakT66lPwO/Xz0e9HuWbY/CICbK5gzddYRoCeZuTqftwDA
+YIV87W9zmQA9KJir83kLAAxW5uxE72c1AOaqYK7O2XIAYJBCWb0//aEAehD0
+0QUARirke3P8WTtGgCkomKtz1hEAGKywq+nuWQbgxgrm6px1BAAGK7N/yrMM
+QE+CProAwEiFXe+w3FnHn2vHCTAFQR9dAGCkCuqrWncE6EHQRxcAGKmQrxOv
+Vg5ATwo+c83TAQCDEp9fStYbv8of49/zbANwgYLPXX10AYDqmtf3HXPFEh9q
+vy+AMQj66AIAAJAR9NEFAAAgI+ijCwAAQEbQRxcAAICEoI8uAAAAGYV1ra07
+AgAAzFRBT0e1cgAAAGZKH10AAABO0UcXAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAACAqfr/XPSdFg==
+        "], {{0, 537}, {911, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSizeRaw->{911, 537},
+      PlotRange->{{0, 911}, {0, 537}}], "=", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["e", "2"]}], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+           RowBox[{
+            RowBox[{"p", ".", "\[Gamma]"}], "-", 
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], " ", 
+          SuperscriptBox["\[Gamma]", "\[Mu]"], 
+          SubscriptBox["g", "\[Mu]\[Nu]"]}], 
+         RowBox[{
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"p", "-", "k"}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], 
+          SuperscriptBox["k", "2"]}]]}]}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->418736520],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"DiracMatrix", "[", 
+      RowBox[{
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", "p"}], "-", 
+        RowBox[{"\[Gamma]", ".", "k"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"p", "-", "k"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0"}], "}"}]}], "]"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->415401000],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"6", " ", "m"}], "+", 
+     RowBox[{"4", " ", "m", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+     FractionBox[
+      RowBox[{"4", " ", "m", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+      RowBox[{"p", ".", "p"}]]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{"\[Gamma]", ".", "p"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", "\[Epsilon]"]}], "-", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["m", "2"], "+", 
+       RowBox[{"p", ".", "p"}]}], 
+      RowBox[{"p", ".", "p"}]], "-", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}], "-", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]]}], ")"}]}]}]], "Output",
+ ImageSize->{475, 124},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->584495774]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     RowBox[{"\[CapitalSigma]", "(", 
+      SuperscriptBox["p", "2"], ")"}]}], "=", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        StyleBox["i",
+         FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], " ", 
+       SuperscriptBox["e", "2"]}], 
+      StyleBox[
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]]], "[", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", 
+         RowBox[{"m", "(", 
+          RowBox[{
+           FractionBox["1", "\[Epsilon]"], 
+           StyleBox["-",
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+           StyleBox[
+            SubscriptBox["\[Gamma]", "E"],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+           StyleBox["+",
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+           StyleBox[
+            RowBox[{"ln", "(", 
+             RowBox[{"4", "\[Pi]"}], ")"}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+           RowBox[{"ln", "(", 
+            FractionBox[
+             SuperscriptBox["\[Mu]", "2"], 
+             SuperscriptBox["m", "2"]], ")"}]}], " ", ")"}]}], "+", 
+        RowBox[{"6", "m"}], "-", 
+        RowBox[{
+         FractionBox[
+          RowBox[{"4", 
+           RowBox[{"m", "(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", 
+             SuperscriptBox["p", "2"]}], ")"}]}], 
+          SuperscriptBox["p", "2"]], 
+         RowBox[{"ln", "(", 
+          FractionBox[
+           SuperscriptBox["m", "2"], 
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", 
+            SuperscriptBox["p", "2"]}]], ")"}]}]}], " ", ")"}], " ", "+", 
+      RowBox[{"p", ".", 
+       RowBox[{"\[Gamma]", "(", 
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            FractionBox["1", "\[Epsilon]"], 
+            RowBox[{
+             StyleBox["-",
+              FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+             RowBox[{
+              StyleBox[
+               SubscriptBox["\[Gamma]", "E"],
+               FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+              RowBox[{
+               StyleBox["+",
+                FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+               RowBox[{
+                StyleBox[
+                 RowBox[{"ln", "(", 
+                  RowBox[{"4", "\[Pi]"}], ")"}],
+                 FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+                RowBox[{"ln", "(", 
+                 FractionBox[
+                  SuperscriptBox["\[Mu]", "2"], 
+                  SuperscriptBox["m", "2"]], ")"}]}]}]}]}]}], ")"}]}], "-", 
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["m", "2"], "+", 
+           SuperscriptBox["p", "2"]}], 
+          SuperscriptBox["p", "2"]], "+", 
+         RowBox[{
+          FractionBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "4"], "-", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               SuperscriptBox["p", "2"], ")"}], "2"]}], ")"}], 
+           SuperscriptBox[
+            RowBox[{"(", 
+             SuperscriptBox["p", "2"], ")"}], "2"]], 
+          RowBox[{"ln", "(", 
+           FractionBox[
+            SuperscriptBox["m", "2"], 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", 
+             SuperscriptBox["p", "2"]}]], ")"}]}]}], " ", ")"}]}]}], "]"}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1109708662]
+}, Closed]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckOne]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dirac1"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]5",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG5"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]L",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPL"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]R",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPR"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Sigma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracS"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Spur",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Spur"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineExpand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineExpand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->57721631],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "DiracMatrix - Wolfram Mathematica", "DiracMatrix"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 4.838024}", 
+    "history" -> {"1.0", "2.0", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "DiracMatrix[mtx_1, ..., mtx_n] represents a product of objects in spinor \
+space.", "synonyms" -> {}, "title" -> "DiracMatrix", "titlemodifier" -> "", 
+    "windowtitle" -> "DiracMatrix", "type" -> "Symbol", "uri" -> 
+    "X/ref/DiracMatrix"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/DiracPL.nb b/packages/X/Documentation/English/ReferencePages/Symbols/DiracPL.nb
new file mode 100644
index 0000000000000000000000000000000000000000..c589bd49de467223146a9e25f5f55d03342eba37
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/DiracPL.nb
@@ -0,0 +1,1093 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"\[DoubleStruckOne]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dirac1"], "\<\"\[Gamma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracG"], "\<\"\[Gamma]5\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"\[DoubleStruckCapitalP]R\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPR"], "\<\"\[Sigma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"], "\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracMatrix"], "\<\"Spur\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/Spur"], "\<\"FermionLineExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/FermionLineExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/DiracPL\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/DiracPL"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/DiracPL.html"]\
+, StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/DiracPL", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "DiracPL ",
+ StyleBox["(\[DoubleStruckCapitalP]L)", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      ButtonBox["DiracPL",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPL"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      ButtonBox["\[DoubleStruckCapitalP]L",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPL"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]represents the left chiral projector ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        FractionBox["1", "2",
+         Beveled->True], 
+        RowBox[{"(", 
+         RowBox[{"1", "-", 
+          SubscriptBox["\[Gamma]", "5"]}], ")"}]}], TraditionalForm]], 
+      "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1612327420],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracPL",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPL"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is recognized as an object in spinor space by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->477695870],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracPL",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPL"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckCapitalP]L",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPL"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]PL\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ "The relation ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["P", "L"], 
+     SuperscriptBox["\[Gamma]", "\[Mu]"]}], "=", 
+    RowBox[{
+     SuperscriptBox["\[Gamma]", "\[Mu]"], 
+     SubscriptBox["P", "R"]}]}], TraditionalForm]], "InlineMath"],
+ " is used by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (naive implementation of dimensional regularization), and generally leads \
+to faster results than with ",
+ StyleBox["(\[DoubleStruckOne]-\[Gamma]5)/2", "InlineCode"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1089117867]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(4)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1438290094],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1265679226],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+   RowBox[{
+    RowBox[{"k", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1244233944],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", 
+   SubscriptBox["k", "\[Nu]"], " ", 
+   SubscriptBox["p", "\[Mu]"]}], "+", 
+  RowBox[{"2", " ", 
+   SubscriptBox["k", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "-", 
+  RowBox[{"2", " ", 
+   RowBox[{"k", ".", "p"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+     RowBox[{"{", "k", "}"}], ",", 
+     RowBox[{"{", "p", "}"}]}]]}]}]], "Output",
+ ImageSize->{261, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1363448803]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1262802706],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", "\[DoubleStruckCapitalP]L", "]"}], ",", 
+   RowBox[{"ChiralBasis", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->344196441],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"DiracMatrix", "[", "]"}], "2"], "-", 
+  FractionBox[
+   RowBox[{"DiracMatrix", "[", "\[Gamma]5", "]"}], "2"]}]], "Output",
+ ImageSize->{226, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->273243546]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1014926976],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{"\[DoubleStruckCapitalP]L", ",", "\[DoubleStruckCapitalP]R"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1910487811],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1428582357]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->379156348],
+
+Cell[TextData[{
+ "All objects in spinor space should be entered inside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Otherwise, symbols outside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are always assumed to commute, and can lead to incorrect results:"
+}], "ExampleText",
+ CellID->112289572],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[Gamma]", "\[Mu]"], " ", 
+  "\[DoubleStruckCapitalP]L"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->51835686],
+
+Cell[BoxData[
+ RowBox[{"\[DoubleStruckCapitalP]L", " ", 
+  SubscriptBox["\[Gamma]", "\[Mu]"]}]], "Output",
+ ImageSize->{35, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->902224632]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1910101891],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+  "]"}]], "Output",
+ ImageSize->{136, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1620609885]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckOne]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dirac1"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]5",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG5"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]R",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPR"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Sigma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracS"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Spur",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Spur"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineExpand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineExpand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1445227847],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "DiracPL (\[DoubleStruckCapitalP]L) - Wolfram Mathematica", 
+  "DiracPL (\[DoubleStruckCapitalP]L)"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 7.028797}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "DiracPL or \\[DoubleStruckCapitalP]L represents the left chiral \
+projector 1/2 (1 - \\[Gamma]_5).", "synonyms" -> {}, "title" -> "DiracPL", 
+    "titlemodifier" -> "", "windowtitle" -> 
+    "DiracPL (\[DoubleStruckCapitalP]L)", "type" -> "Symbol", "uri" -> 
+    "X/ref/DiracPL"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/DiracPR.nb b/packages/X/Documentation/English/ReferencePages/Symbols/DiracPR.nb
new file mode 100644
index 0000000000000000000000000000000000000000..b9c854b00692b2951c70e490cdfb8b88d3fab87b
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/DiracPR.nb
@@ -0,0 +1,1092 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"\[DoubleStruckOne]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dirac1"], "\<\"\[Gamma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracG"], "\<\"\[Gamma]5\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"\[DoubleStruckCapitalP]L\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPL"], "\<\"\[Sigma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"], "\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracMatrix"], "\<\"Spur\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/Spur"], "\<\"FermionLineExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/FermionLineExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/DiracPR\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/DiracPR"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/DiracPR.html"]\
+, StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/DiracPR", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "DiracPR ",
+ StyleBox["(\[DoubleStruckCapitalP]R)", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      ButtonBox["DiracPR",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPR"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      ButtonBox["\[DoubleStruckCapitalP]R",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPR"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]represents the right chiral projector ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        FractionBox["1", "2",
+         Beveled->True], 
+        RowBox[{"(", 
+         RowBox[{"1", "+", 
+          SubscriptBox["\[Gamma]", "5"]}], ")"}]}], TraditionalForm]], 
+      "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1904376959],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracPR",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPR"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is recognized as an object in spinor space by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->477695870],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracPR",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPR"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckCapitalP]R",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPR"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]PR\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ "The relation ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["P", "R"], 
+     SuperscriptBox["\[Gamma]", "\[Mu]"]}], "=", 
+    RowBox[{
+     SuperscriptBox["\[Gamma]", "\[Mu]"], 
+     SubscriptBox["P", "L"]}]}], TraditionalForm]], "InlineMath"],
+ " is used by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (naive implementation of dimensional regularization), and generally leads \
+to faster results than with ",
+ StyleBox["(\[DoubleStruckOne]+\[Gamma]5)/2", "InlineCode"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1089117867]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(4)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->767275025],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2099528587],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]R", ",", 
+   RowBox[{
+    RowBox[{"k", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]R"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1244233944],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", 
+   SubscriptBox["k", "\[Nu]"], " ", 
+   SubscriptBox["p", "\[Mu]"]}], "+", 
+  RowBox[{"2", " ", 
+   SubscriptBox["k", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "-", 
+  RowBox[{"2", " ", 
+   RowBox[{"k", ".", "p"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+     RowBox[{"{", "k", "}"}], ",", 
+     RowBox[{"{", "p", "}"}]}]]}]}]], "Output",
+ ImageSize->{261, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1537278332]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1262802706],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", "\[DoubleStruckCapitalP]R", "]"}], ",", 
+   RowBox[{"ChiralBasis", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->344196441],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"DiracMatrix", "[", "]"}], "2"], "+", 
+  FractionBox[
+   RowBox[{"DiracMatrix", "[", "\[Gamma]5", "]"}], "2"]}]], "Output",
+ ImageSize->{226, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->157254850]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->415077511],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{"\[DoubleStruckCapitalP]L", ",", "\[DoubleStruckCapitalP]R"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1910487811],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1290598203]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->379156348],
+
+Cell[TextData[{
+ "All objects in spinor space should be entered inside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Otherwise, symbols outside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are always assumed to commute, and can lead to incorrect results:"
+}], "ExampleText",
+ CellID->112289572],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[Gamma]", "\[Mu]"], " ", 
+  "\[DoubleStruckCapitalP]R"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->51835686],
+
+Cell[BoxData[
+ RowBox[{"\[DoubleStruckCapitalP]R", " ", 
+  SubscriptBox["\[Gamma]", "\[Mu]"]}]], "Output",
+ ImageSize->{35, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1842751690]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]R"}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1910101891],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]R"}], 
+  "]"}]], "Output",
+ ImageSize->{136, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->253201331]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckOne]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dirac1"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]5",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG5"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]L",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPL"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Sigma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracS"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Spur",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Spur"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineExpand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineExpand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1473157852],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "DiracPR (\[DoubleStruckCapitalP]R) - Wolfram Mathematica", 
+  "DiracPR (\[DoubleStruckCapitalP]R)"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 8.441269}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "DiracPR or \\[DoubleStruckCapitalP]R represents the right chiral \
+projector 1/2 (1 + \\[Gamma]_5).", "synonyms" -> {}, "title" -> "DiracPR", 
+    "titlemodifier" -> "", "windowtitle" -> 
+    "DiracPR (\[DoubleStruckCapitalP]R)", "type" -> "Symbol", "uri" -> 
+    "X/ref/DiracPR"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/DiracS.nb b/packages/X/Documentation/English/ReferencePages/Symbols/DiracS.nb
new file mode 100644
index 0000000000000000000000000000000000000000..d49a71028025fffc049e7b7c3329affbdeb67973
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/DiracS.nb
@@ -0,0 +1,1337 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"\[DoubleStruckOne]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dirac1"], "\<\"\[Gamma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracG"], "\<\"\[Gamma]5\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"\[DoubleStruckCapitalP]L\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracPL"], "\<\"\[DoubleStruckCapitalP]R\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracPR"], "\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracMatrix"], "\<\"Spur\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/Spur"], "\<\"FermionLineExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/FermionLineExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/DiracS\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/DiracS"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/DiracS.html"],
+                 StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/DiracS", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "DiracS ",
+ StyleBox["(\[Sigma])", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LTensor",
+        BaseStyle->"Link",
+        ButtonData->"paclet:ref/LTensor"], "[", 
+       RowBox[{
+        ButtonBox["DiracS",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/DiracS"], ",", 
+        StyleBox["\[Mu]", "TR"], ",", 
+        StyleBox["\[Nu]", "TR"]}], "]"}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      SubscriptBox[
+       ButtonBox["\[Sigma]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/DiracS"], 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]represents the gamma matrix commutator ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], "=", 
+        RowBox[{
+         FractionBox["i", "2",
+          Beveled->True], "[", 
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
+          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}], TraditionalForm]], 
+      "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1025052301],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracS",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracS"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is recognized as an object in spinor space by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->45623356],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracS",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracS"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  ButtonBox["\[Sigma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracS"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]s\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->1184505067],
+
+Cell[TextData[{
+ "The ",
+ Cell[BoxData[
+  ButtonBox["FullForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/FullForm"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " of ",
+ Cell[BoxData[
+  SubscriptBox["\[Sigma]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["LTensor",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/LTensor"], "[", 
+   RowBox[{
+    ButtonBox["DiracS",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/DiracS"], ",", 
+    StyleBox["\[Mu]", "TR"], ",", 
+    StyleBox["\[Nu]", "TR"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ "Four-vectors contracted into ",
+ Cell[BoxData[
+  ButtonBox["DiracS",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracS"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " appear as indices set in braces ",
+ StyleBox["{}", "InlineCode"],
+ "."
+}], "Notes",
+ CellID->911584619],
+
+Cell[TextData[{
+ "The indices of ",
+ Cell[BoxData[
+  ButtonBox["DiracS",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracS"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are ordered automatically."
+}], "Notes",
+ CellID->1621177171],
+
+Cell[TextData[{
+ "Although the symbol ",
+ Cell[BoxData[
+  ButtonBox["\[Sigma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracS"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be used in other ways, such as an index in ",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}]]], 
+  "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", using different symbol like ",
+ Cell[BoxData[
+  ButtonBox["\[FinalSigma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/\[FinalSigma]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is prefered. ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracS#1414560375"]
+}], "Notes",
+ CellID->1965057217]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(5)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->940206673],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(3)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->868878485],
+
+Cell["A trace with sigma-matrix:", "ExampleText",
+ CellID->1306994065],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{"c", " ", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->606616155],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", "c", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Mu]"}]]}], "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", "c", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{175, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->74401098]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1024684266],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiracMatrix", "[", 
+   SubscriptBox["\[Sigma]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], "]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1807629030],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[ImaginaryI]", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}], "-", 
+  RowBox[{"\[ImaginaryI]", " ", 
+   RowBox[{"DiracMatrix", "[", "]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{286, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->948955991]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->415077511],
+
+Cell[TextData[{
+ "All objects in spinor space should be entered inside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Otherwise, symbols outside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are always assumed to commute, and can lead to surprising results:"
+}], "ExampleText",
+ CellID->112289572],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[Sigma]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]"}]], 
+  SubscriptBox["\[Gamma]", "\[Mu]"]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->51835686],
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[Gamma]", "\[Mu]"], " ", 
+  SubscriptBox["\[Sigma]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]], "Output",
+ ImageSize->{43, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->323647318]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Sigma]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->132782527],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Sigma]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]], "Output",
+ ImageSize->{144, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1088168251]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell[TextData[{
+ "The commutator ",
+ Cell[BoxData[
+  SubscriptBox["\[Sigma]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in terms of Gamma matrices:"
+}], "ExampleText",
+ CellID->2133535849],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], "]"}], ",", 
+   RowBox[{"ChisholmExpand", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1304077436],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[ImaginaryI]", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}], "-", 
+  RowBox[{"\[ImaginaryI]", " ", 
+   RowBox[{"DiracMatrix", "[", "]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{286, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1881322541]
+}, Open  ]],
+
+Cell["Its dual:", "ExampleText",
+ CellID->696479882],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], "]"}], 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "//",
+   "Contract"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1590783332],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], ",", "\[Gamma]5"}], 
+   "]"}]}]], "Output",
+ ImageSize->{173, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->688703263]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "If the symbol ",
+ Cell[BoxData[
+  ButtonBox["\[Sigma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracS"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is used in ways other than representing the gamma matrix commutator, it \
+can cause it to be added to the ",
+ Cell[BoxData["Global`"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " context, causing it to shadow the ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X symbol:"
+}], "ExampleText",
+ CellID->1414560375],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"Run", " ", "this"}], ";", " ", 
+    RowBox[{
+    "the", " ", "\"\<\[Sigma]_\>\"", " ", "causes", " ", "it", " ", "to", " ",
+      "be", " ", "added", " ", "to", " ", "the", " ", "Global`", " ", 
+     "context"}]}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"myTensor", "[", 
+    RowBox[{"\[Rho]_", ",", "\[Sigma]_"}], "]"}], "=", 
+   RowBox[{
+    RowBox[{"a", " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Rho]", ",", "\[Sigma]"}]]}], "+", 
+    RowBox[{"b", " ", 
+     SubscriptBox["k", "\[Rho]"], 
+     SubscriptBox["k", "\[Sigma]"]}]}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1548734670],
+
+Cell[TextData[{
+ "The shadowing usually only affects the front-end syntax highlighter, \
+without interfering with the operation of ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X.  Thie conflict can be resolved by deleting the symbol with ",
+ Cell[BoxData[
+  ButtonBox["Remove",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Remove"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->2055031912],
+
+Cell[BoxData[
+ RowBox[{"Remove", "[", "Global`\[Sigma]", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->661196873]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckOne]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dirac1"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]5",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG5"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]L",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPL"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]R",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPR"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Spur",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Spur"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineExpand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineExpand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->351897795],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "DiracS (\[Sigma]) - Wolfram Mathematica", "DiracS (\[Sigma])"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 9.874574}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LTensor[DiracS, \\[Mu], \\[Nu]] or \\[Sigma] \\[Mu], \\[Nu] represents \
+the gamma matrix commutator \\[Sigma]^\\[Mu]\\[Nu] = (i/2)[\\[Gamma]^\\[Mu], \
+\\[Gamma]^\\[Nu]].", "synonyms" -> {}, "title" -> "DiracS", "titlemodifier" -> 
+    "", "windowtitle" -> "DiracS (\[Sigma])", "type" -> "Symbol", "uri" -> 
+    "X/ref/DiracS"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/DiscB.nb b/packages/X/Documentation/English/ReferencePages/Symbols/DiscB.nb
new file mode 100644
index 0000000000000000000000000000000000000000..b445857c0d9371bfb2ec5564dde471fa31701387
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/DiscB.nb
@@ -0,0 +1,1816 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopRefine\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"DiscExpand\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiscExpand"], "\<\"Kallen\[Lambda]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/KallenLambda"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"], "\<\"Special Functions and Abbreviations \
+in Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/DiscB\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/DiscB"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/DiscB.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/DiscB", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["DiscB", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["DiscB",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/DiscB"], "[", 
+       RowBox[{
+        StyleBox["s", "TI"], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the part of the Passarino-Veltman ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["B", "0"], TraditionalForm]], "InlineMath"],
+     " function containing the ",
+     Cell[BoxData[
+      FormBox["s", TraditionalForm]], "InlineMath"],
+     " plane branch cut, ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"\[CapitalLambda]", "(", 
+        RowBox[{
+         RowBox[{"s", ";", 
+          SubscriptBox["m", "0"]}], ",", 
+         SubscriptBox["m", "1"]}], ")"}], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->176276727],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Mathematical function, suitable for both symbolic and numerical manipulation.\
+\
+\>", "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiscB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to maintain compact expressions.  ",
+ Cell[BoxData[
+  ButtonBox["DiscExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will replace ",
+ Cell[BoxData[
+  ButtonBox["DiscB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit definition. "
+}], "Notes",
+ CellID->762873304],
+
+Cell[TextData[{
+ " ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"\[CapitalLambda]", "(", 
+     RowBox[{
+      RowBox[{"s", ";", 
+       SubscriptBox["m", "0"]}], ",", 
+      SubscriptBox["m", "1"]}], ")"}], "=", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"\[Lambda]", "(", 
+       RowBox[{"s", ",", 
+        SubsuperscriptBox["m", "0", "2"], ",", 
+        SubsuperscriptBox["m", "1", "2"]}], ")"}], 
+      RowBox[{"2", "s"}]], 
+     RowBox[{
+      UnderscriptBox["lim", 
+       RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
+        SuperscriptBox["0", "+"]}],
+       LimitsPositioning->False], 
+      RowBox[{
+       StyleBox[
+        SubsuperscriptBox["\[Integral]", "0", "1"],
+        ScriptLevel->0], 
+       RowBox[{
+        RowBox[{"\[DifferentialD]", "z"}], 
+        FractionBox["1", 
+         RowBox[{
+          RowBox[{"s", " ", 
+           SuperscriptBox["z", "2"]}], "+", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "s"}], "+", 
+             SubsuperscriptBox["m", "1", "2"], "-", 
+             SubsuperscriptBox["m", "0", "2"]}], ")"}], "z"}], "+", 
+          SubsuperscriptBox["m", "0", "2"], "-", 
+          RowBox[{"i", " ", "\[CurlyEpsilon]"}]}]]}]}]}]}]}], 
+   TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]where ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Lambda]", "(", 
+    RowBox[{"s", ",", 
+     SubsuperscriptBox["m", "0", "2"], ",", 
+     SubsuperscriptBox["m", "1", "2"]}], ")"}], TraditionalForm]], 
+  "InlineMath"],
+ " is the K\[ADoubleDot]ll\[EAcute]n kinematic function ",
+ Cell[BoxData[
+  ButtonBox["Kallen\[Lambda]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenLambda"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->964877872],
+
+Cell[TextData[{
+ "The scalar Passarino-Veltman ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["B", "0"], TraditionalForm]], "InlineMath"],
+ " function in terms of ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[CapitalLambda]", "(", 
+    RowBox[{
+     RowBox[{"s", ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"]}], ")"}], TraditionalForm]], "InlineMath"],
+ " is given by ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["B", "0"], "(", 
+     RowBox[{"s", ",", 
+      SubscriptBox["m", "0"], ",", 
+      SubscriptBox["m", "1"]}], ")"}], "=", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"ln", "(", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SubsuperscriptBox["m", "1", "2"]], ")"}], "-", 
+     RowBox[{
+      FractionBox["1", 
+       RowBox[{"2", "s"}]], 
+      RowBox[{"(", 
+       RowBox[{
+        SubsuperscriptBox["m", "0", "2"], "-", 
+        SubsuperscriptBox["m", "1", "2"], "+", "s"}], ")"}], 
+      RowBox[{"ln", "(", 
+       FractionBox[
+        SubsuperscriptBox["m", "0", "2"], 
+        SubsuperscriptBox["m", "1", "2"]], ")"}]}], "+", 
+     RowBox[{"\[CapitalLambda]", "(", 
+      RowBox[{
+       RowBox[{"s", ";", 
+        SubscriptBox["m", "0"]}], ",", 
+       SubscriptBox["m", "1"]}], ")"}], "+", "2."}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "Notes",
+ Deletable->True,
+ CellID->1163168731],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["DiscB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiscB"], "[", 
+   RowBox[{
+    StyleBox["s", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has a branch cut discontinuity in the complex ",
+ Cell[BoxData[
+  FormBox["s", TraditionalForm]], "InlineMath"],
+ " plane running from ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", "=", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["m", "0"], "+", 
+       SubscriptBox["m", "1"]}], ")"}], "2"]}], TraditionalForm]], 
+  "InlineMath"],
+ " to ",
+ Cell[BoxData[
+  FormBox["\[Infinity]", TraditionalForm]], "InlineMath"],
+ ", and a (non-Landauian) pole at ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", "=", "0"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ CellID->1434338415],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["DiscB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiscB"], "[", 
+   RowBox[{
+    StyleBox["s", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is a dimensionless function taking an external invariant-squared ",
+ Cell[BoxData[
+  FormBox["s", TraditionalForm]], "InlineMath"],
+ ", and two masses ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["m", "0"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["m", "1"], TraditionalForm]], "InlineMath"],
+ " as arguments."
+}], "Notes",
+ Deletable->True,
+ CellID->351455310],
+
+Cell["\<\
+For special cases, simple expressions are automatically substituted.\
+\>", "Notes",
+ CellID->1848209735]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(10)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1303001476],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1655058673],
+
+Cell["Evaluate numerically:", "ExampleText",
+ CellID->20363769],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiscB", "[", 
+  RowBox[{"2.5", ",", "2.0", ",", "1.0"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->284581046],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "1.1186849689756562`"}], "+", 
+  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{99, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1937033046]
+}, Open  ]],
+
+Cell["\<\
+The precision of the output tracks the precision of the input:\
+\>", "ExampleText",
+ CellID->1015353154],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiscB", "[", 
+  RowBox[{"2.5`20", ",", "2.0`20", ",", "1.0`20"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->87221091],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+  "-", "1.11868496897565613874931487630472834892`18.511784458839273"}], "+", 
+  RowBox[{"0``18.646783271613973", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{235, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1489278412]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1539796451],
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["DiscExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to insert explict expression:"
+}], "ExampleText",
+ CellID->33521960],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiscExpand", "[", 
+  RowBox[{"DiscB", "[", 
+   RowBox[{"s", ",", "m", ",", "m"}], "]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->292778524],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], " ", 
+   RowBox[{"Log", "[", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s", "+", 
+      SqrtBox[
+       RowBox[{"s", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"]}]], "]"}]}], "s"]], "Output",
+ ImageSize->{242, 60},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1074771887]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->567332050],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   RowBox[{"DiscB", "[", 
+    RowBox[{"s", ",", "m0", ",", "m1"}], "]"}], ",", "s"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->293692193],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox["1", "s"]}], "+", 
+  RowBox[{
+   RowBox[{"DiscB", "[", 
+    RowBox[{"s", ",", "m0", ",", "m1"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", "s"]}], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m0", "2"]}], "-", 
+       SuperscriptBox["m1", "2"], "+", "s"}], 
+      RowBox[{"Kallen\[Lambda]", "[", 
+       RowBox[{
+        SuperscriptBox["m0", "2"], ",", 
+        SuperscriptBox["m1", "2"], ",", "s"}], "]"}]]}], ")"}]}]}]], "Output",
+ 
+ ImageSize->{330, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->183081807]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->87753366],
+
+Cell["Series expansion:", "ExampleText",
+ CellID->1707454285],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[", 
+  RowBox[{
+   RowBox[{"DiscB", "[", 
+    RowBox[{"s", ",", "m", ",", "m"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->323658190],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", "2"}], "+", 
+   FractionBox["s", 
+    RowBox[{"6", " ", 
+     SuperscriptBox["m", "2"]}]], "+", 
+   FractionBox[
+    SuperscriptBox["s", "2"], 
+    RowBox[{"60", " ", 
+     SuperscriptBox["m", "4"]}]], "+", 
+   FractionBox[
+    SuperscriptBox["s", "3"], 
+    RowBox[{"420", " ", 
+     SuperscriptBox["m", "6"]}]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "s", "]"}], "4"],
+    SeriesData[$CellContext`s, 0, {}, 0, 4, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`s, 
+   0, {-2, Rational[1, 6] $CellContext`m^(-2), 
+    Rational[1, 60] $CellContext`m^(-4), 
+    Rational[1, 420] $CellContext`m^(-6)}, 0, 4, 1],
+  Editable->False]], "Output",
+ ImageSize->{209, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->743393597]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[", 
+  RowBox[{
+   RowBox[{"DiscB", "[", 
+    RowBox[{"s", ",", "m", ",", "m"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", 
+     RowBox[{"4", 
+      SuperscriptBox["m", "2"]}], ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1811187732],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", 
+     SqrtBox[
+      RowBox[{"s", "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}]}]]}], 
+    RowBox[{"2", " ", "m"}]], "-", 
+   FractionBox[
+    RowBox[{"s", "-", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}]}], 
+    RowBox[{"2", " ", 
+     SuperscriptBox["m", "2"]}]], "-", 
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"s", "-", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}]}], ")"}], 
+      RowBox[{"3", "/", "2"}]]}], 
+    RowBox[{"16", " ", 
+     SuperscriptBox["m", "3"]}]], "+", 
+   FractionBox[
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"s", "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}]}], ")"}], "2"], 
+    RowBox[{"12", " ", 
+     SuperscriptBox["m", "4"]}]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"s", "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}]}], "]"}], 
+     RowBox[{"5", "/", "2"}]],
+    SeriesData[$CellContext`s, 4 $CellContext`m^2, {}, 1, 5, 2],
+    Editable->False]}],
+  SeriesData[$CellContext`s, 4 $CellContext`m^2, {Complex[0, 
+      Rational[1, 2]] $CellContext`m^(-1) Pi, 
+    Rational[-1, 2] $CellContext`m^(-2), Complex[0, 
+      Rational[-1, 16]] $CellContext`m^(-3) Pi, 
+    Rational[1, 12] $CellContext`m^(-4)}, 1, 5, 2],
+  Editable->False]], "Output",
+ ImageSize->{432, 43},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->813702355]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[", 
+  RowBox[{
+   RowBox[{"DiscB", "[", 
+    RowBox[{"s", ",", "\[Lambda]", ",", "M"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"\[Lambda]", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->968829038],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   FractionBox[
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["M", "2"]}], "+", "s"}], ")"}], " ", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       RowBox[{"M", " ", "\[Lambda]"}], 
+       RowBox[{
+        SuperscriptBox["M", "2"], "-", "s"}]], "]"}]}], "s"], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox["1", 
+        RowBox[{
+         SuperscriptBox["M", "2"], "-", "s"}]]}], "+", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["M", "2"], "+", "s"}], ")"}], " ", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{"M", " ", "\[Lambda]"}], 
+          RowBox[{
+           SuperscriptBox["M", "2"], "-", "s"}]], "]"}]}], 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["M", "2"], "-", "s"}], ")"}], " ", "s"}]]}], ")"}], 
+    " ", 
+    SuperscriptBox["\[Lambda]", "2"]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Lambda]", "]"}], "3"],
+    SeriesData[$CellContext`\[Lambda], 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Lambda], 
+   0, {($CellContext`s^(-1) (-$CellContext`M^2 + $CellContext`s)) 
+    Log[($CellContext`M/($CellContext`M^2 - $CellContext`s)) $CellContext`\
+\[Lambda]], 
+    0, (-1)/($CellContext`M^2 - $CellContext`s) + ((($CellContext`M^2 - \
+$CellContext`s)^(-1)/$CellContext`s) ($CellContext`M^2 + $CellContext`s)) 
+     Log[($CellContext`M/($CellContext`M^2 - $CellContext`s)) $CellContext`\
+\[Lambda]]}, 0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{392, 52},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1608736265]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Scope",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1293636265],
+
+Cell[TextData[{
+ "Evaluate ",
+ Cell[BoxData[
+  ButtonBox["DiscB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " at its singular points:"
+}], "ExampleText",
+ CellID->417916336],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiscB", "[", 
+  RowBox[{"0", ",", "m0", ",", "m1"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1630850009],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"DiscB", "::", "irdiv"}], "MessageName"], ":", 
+  " ", "\<\"\[NoBreak]\\!\\(\\\"non-Landauian\\\"\\)\[NoBreak] singularity \
+encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/DiscB\\\", ButtonNote -> \\\"X`DiscB::irdiv\\\"]\
+\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->8157315],
+
+Cell[BoxData["ComplexInfinity"], "Output",
+ ImageSize->{112, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1808523444]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiscB", "[", 
+  RowBox[{"0", ",", "m", ",", "m"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1229019104],
+
+Cell[BoxData[
+ RowBox[{"-", "2"}]], "Output",
+ ImageSize->{19, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1290403879]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiscB", "[", 
+  RowBox[{
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"m0", "+", "m1"}], ")"}], "2"], ",", "m0", ",", "m1"}], 
+  "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->322371670],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1618162581]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(4)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiscB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is \"most\" of the finite part of ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["B", "0"], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->221793557],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVB", "[", 
+   RowBox[{"0", ",", "0", ",", "s", ",", "m0", ",", "m1"}], "]"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1841631721],
+
+Cell[BoxData[
+ RowBox[{"2", "+", 
+  FractionBox["1", "\[Epsilon]"], "+", 
+  RowBox[{"DiscB", "[", 
+   RowBox[{"s", ",", "m0", ",", "m1"}], "]"}], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m0", "2"], "-", 
+      SuperscriptBox["m1", "2"], "+", "s"}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m0", "2"], 
+      SuperscriptBox["m1", "2"]], "]"}]}], 
+   RowBox[{"2", " ", "s"}]], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["m1", "2"]], "]"}]}]], "Output",
+ ImageSize->{394, 46},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1633756347]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVB", "[", 
+   RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m"}], "]"}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->515901803],
+
+Cell[BoxData[
+ RowBox[{"2", "+", 
+  FractionBox["1", "\[Epsilon]"], "+", 
+  RowBox[{"DiscB", "[", 
+   RowBox[{"s", ",", "m", ",", "m"}], "]"}], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["m", "2"]], "]"}]}]], "Output",
+ ImageSize->{208, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2068274801]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1325806264],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiscB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is contains the normal threshold branch cut of ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["B", "0"], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->2084920109],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", "s", ",", "m0", ",", "m1"}], "]"}], ",", 
+   RowBox[{"Part", "\[Rule]", 
+    RowBox[{"Discontinuity", "[", "s", "]"}]}]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"DiscB", "[", 
+    RowBox[{"s", ",", "m0", ",", "m1"}], "]"}], ",", 
+   RowBox[{"Part", "\[Rule]", 
+    RowBox[{"Discontinuity", "[", "s", "]"}]}]}], "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->70015974],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{"HeavisideTheta", "[", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"m0", "+", "m1"}], ")"}], "2"]}], "+", "s"}], "]"}], " ", 
+   SqrtBox[
+    RowBox[{"Kallen\[Lambda]", "[", 
+     RowBox[{
+      SuperscriptBox["m0", "2"], ",", 
+      SuperscriptBox["m1", "2"], ",", "s"}], "]"}]]}], "s"]], "Output",
+ ImageSize->{395, 39},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2024007665],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{"HeavisideTheta", "[", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"m0", "+", "m1"}], ")"}], "2"]}], "+", "s"}], "]"}], " ", 
+   SqrtBox[
+    RowBox[{"Kallen\[Lambda]", "[", 
+     RowBox[{
+      SuperscriptBox["m0", "2"], ",", 
+      SuperscriptBox["m1", "2"], ",", "s"}], "]"}]]}], "s"]], "Output",
+ ImageSize->{395, 39},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1355857175]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->584009871],
+
+Cell["\<\
+Numerically confirm the defining integral representation in the Euclidean \
+region:\
+\>", "ExampleText",
+ CellID->1162317319],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"discBnum", "[", 
+   RowBox[{"s_", ",", "m0_", ",", "m1_"}], "]"}], ":=", "\[IndentingNewLine]", 
+  RowBox[{
+   FractionBox[
+    RowBox[{"Kallen\[Lambda]", "[", 
+     RowBox[{"s", ",", 
+      SuperscriptBox["m0", "2"], ",", 
+      SuperscriptBox["m1", "2"]}], "]"}], 
+    RowBox[{"2", "s"}]], 
+   RowBox[{"NIntegrate", "[", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{
+       RowBox[{"s", " ", 
+        SuperscriptBox["z", "2"]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", "s"}], "+", 
+          SuperscriptBox["m1", "2"], "-", 
+          SuperscriptBox["m0", "2"]}], ")"}], "z"}], "+", 
+       SuperscriptBox["m0", "2"]}]], ",", 
+     RowBox[{"{", 
+      RowBox[{"z", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2086986754],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"discBnum", "[", 
+  RowBox[{
+   RowBox[{"-", "15.1"}], ",", "1.0", ",", "2.0"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1709237569],
+
+Cell[BoxData[
+ RowBox[{"-", "2.997119794490322`"}]], "Output",
+ ImageSize->{62, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1207703413]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiscB", "[", 
+  RowBox[{
+   RowBox[{"-", "15.1"}], ",", "1.0", ",", "2.0"}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1208488067],
+
+Cell[BoxData[
+ RowBox[{"-", "2.9971197944850334`"}]], "Output",
+ ImageSize->{62, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1064950627]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->313877711],
+
+Cell[TextData[{
+ "Scalar ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["C", "0"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["D", "0"], TraditionalForm]], "InlineMath"],
+ " functions can be reduced to ",
+ Cell[BoxData[
+  ButtonBox["DiscB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in special kinematic limits:"
+}], "ExampleText",
+ CellID->1122851745],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarC0", "[", 
+   RowBox[{"0", ",", 
+    SuperscriptBox["M", "2"], ",", 
+    SuperscriptBox["M", "2"], ",", "m", ",", "m", ",", "m"}], "]"}], "//", 
+  "C0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->971256152],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"DiscB", "[", 
+   RowBox[{
+    SuperscriptBox["M", "2"], ",", "m", ",", "m"}], "]"}], 
+  RowBox[{
+   RowBox[{"4", " ", 
+    SuperscriptBox["m", "2"]}], "-", 
+   SuperscriptBox["M", "2"]}]]], "Output",
+ ImageSize->{108, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2055696020]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+    SuperscriptBox["M", "2"], ",", "0", ",", "m", ",", "m", ",", "m", ",", 
+    "m"}], "]"}], "//", "D0Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1243204341],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["2", 
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    SuperscriptBox["M", "2"]}]], "+", 
+  FractionBox[
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     SuperscriptBox["M", "2"], ",", "m", ",", "m"}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    SuperscriptBox["M", "2"]}]]}]], "Output",
+ ImageSize->{154, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1132040569]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiscB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not evaluate for complex arguments: "
+}], "ExampleText",
+ CellID->793391287],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiscB", "[", 
+  RowBox[{"5.5", ",", 
+   RowBox[{"4.3", "-", 
+    RowBox[{"0.23", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"4.3", "-", 
+    RowBox[{"0.23", "\[ImaginaryI]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->245529215],
+
+Cell[BoxData[
+ RowBox[{"DiscB", "[", 
+  RowBox[{"5.5`", ",", 
+   RowBox[{"4.3`", "\[VeryThinSpace]", "-", 
+    RowBox[{"0.23`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"4.3`", "\[VeryThinSpace]", "-", 
+    RowBox[{"0.23`", " ", "\[ImaginaryI]"}]}]}], "]"}]], "Output",
+ ImageSize->{248, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1148026217]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiscExpand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiscExpand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Kallen\[Lambda]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/KallenLambda"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->215437520],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->200969798],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "DiscB - Wolfram Mathematica", "DiscB"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 11.434675}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "DiscB[s, m_0, m_1] gives the part of the Passarino-Veltman B_0 function \
+containing the s plane branch cut, \\[CapitalLambda](s; m_0, m_1).", 
+    "synonyms" -> {}, "title" -> "DiscB", "titlemodifier" -> "", 
+    "windowtitle" -> "DiscB", "type" -> "Symbol", "uri" -> "X/ref/DiscB"}, 
+  "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/DiscExpand.nb b/packages/X/Documentation/English/ReferencePages/Symbols/DiscExpand.nb
new file mode 100644
index 0000000000000000000000000000000000000000..2f873cb02a86158b537715635f2e8c00272136b8
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/DiscExpand.nb
@@ -0,0 +1,630 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"DiscB\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiscB"], "\<\"Kallen\[Lambda]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/KallenLambda"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/DiscExpand\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/DiscExpand"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/DiscExpand.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/DiscExpand", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["DiscExpand", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{"DiscExpand", "[", 
+       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]replaces ",
+     Cell[BoxData[
+      ButtonBox["DiscB",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiscB"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " everywhere inside ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " with its explicit definition."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(1)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1855101902],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(1)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1530079768],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiscB", "[", 
+   RowBox[{"s", ",", "m", ",", "m"}], "]"}], "//", "DiscExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1554804437],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], " ", 
+   RowBox[{"Log", "[", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s", "+", 
+      SqrtBox[
+       RowBox[{"s", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"]}]], "]"}]}], "s"]], "Output",
+ ImageSize->{242, 60},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->675483670]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiscB", "[", 
+   RowBox[{"s", ",", "m0", ",", "m1"}], "]"}], "//", "DiscExpand"}]], "Input",
+ 
+ CellLabel->"In[2]:=",
+ CellID->987662025],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SqrtBox[
+    RowBox[{"Kallen\[Lambda]", "[", 
+     RowBox[{
+      SuperscriptBox["m0", "2"], ",", 
+      SuperscriptBox["m1", "2"], ",", "s"}], "]"}]], " ", 
+   RowBox[{"Log", "[", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["m0", "2"], "+", 
+      SuperscriptBox["m1", "2"], "-", "s", "+", 
+      SqrtBox[
+       RowBox[{"Kallen\[Lambda]", "[", 
+        RowBox[{
+         SuperscriptBox["m0", "2"], ",", 
+         SuperscriptBox["m1", "2"], ",", "s"}], "]"}]]}], 
+     RowBox[{"2", " ", "m0", " ", "m1"}]], "]"}]}], "s"]], "Output",
+ ImageSize->{366, 57},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->231570678]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiscB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiscB"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Kallen\[Lambda]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/KallenLambda"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->2081471598],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "DiscExpand - Wolfram Mathematica", "DiscExpand"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 13.146737}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "DiscExpand[expr] replaces DiscB everywhere inside expr with its explicit \
+definition.", "synonyms" -> {}, "title" -> "DiscExpand", "titlemodifier" -> 
+    "", "windowtitle" -> "DiscExpand", "type" -> "Symbol", "uri" -> 
+    "X/ref/DiscExpand"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Discontinuity.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Discontinuity.nb
new file mode 100644
index 0000000000000000000000000000000000000000..d37786177a098706b2fa8a994ac3e0c260000d1a
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Discontinuity.nb
@@ -0,0 +1,2888 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Tutorials \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Tree-Level e\:207ae\:207b\[Rule]\[Gamma]\[Gamma] Cross \
+Section by The Optical Theorem\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/PairAnnihilationUnitarity"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopRefine\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"PVA\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVA"], "\<\"PVB\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVB"], "\<\"PVC\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVC"], "\<\"PVD\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVD"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Discontinuity\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Discontinuity"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Discontinuity.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/ref/Discontinuity", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["Discontinuity", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Discontinuity",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Discontinuity"], "[", 
+       StyleBox["s", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]is a setting for ",
+     Cell[BoxData["Part"], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " to ",
+     Cell[BoxData[
+      ButtonBox["LoopRefine",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " to compute the discontinuity across the normal threshold cut in \
+channel ",
+     Cell[BoxData[
+      FormBox["s", TraditionalForm]], "InlineMath"],
+     "."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Discontinuity",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Discontinuity"], "[", 
+       RowBox[{
+        StyleBox["s", "TI"], ",", 
+        StyleBox["t", "TI"]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]computes the Mandelstam double spectral function in \
+overlapping channels ",
+     Cell[BoxData[
+      FormBox["s", TraditionalForm]], "InlineMath"],
+     " and ",
+     Cell[BoxData[
+      FormBox["t", TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->784537956],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Gives discontinuities across branch cuts of ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Poles are ignored."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ "The output is always proprtional to the ",
+ Cell[BoxData[
+  ButtonBox["HeavisideTheta",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/HeavisideTheta"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " function which has support only when the channel is open."
+}], "Notes",
+ CellID->1117066294],
+
+Cell[TextData[{
+ "Channels of Passarino-Veltman functions are identified by matching patterns \
+",
+ Cell[BoxData[
+  StyleBox["s", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  StyleBox["t", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to entire arguments of ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  "
+}], "Notes",
+ CellID->271258170],
+
+Cell["\<\
+A correct result is guaranteed only if all other channels are closed (below \
+normal threshold).\
+\>", "Notes",
+ CellID->1715397744],
+
+Cell[TextData[{
+ "Internally, a channel marker is placed in the appropriate arguments of ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and a much simplified form of the Passarino-Veltman reduction formula is \
+applied to obtain the result."
+}], "Notes",
+ CellID->1619796319]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(7)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->179833912],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(1)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->959067655],
+
+Cell[TextData[{
+ "Calculate the discontinuity across the normal threshold cut of the scalar \
+two-point function:\[LineSeparator]\t",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJzt3T9u5E52wPG39gYOpRv0zgkEjA/QNuYAwi4m5y7gCZxYWBsQNmM4cKRw
+lTGeSOECSngABUodCGj4AFplDmVyujgqFqtINpvkK5LfBj7+raUe9ePr7nqs
+f+Tv/vQfv//2DyLyn/9U/J/f//H2X/785z/+5Q+/Lf6ff/3Lf/3bn/6x+B//
+/BuR/y6UP3x/fwcwg/Lr5sgLWSEpXGjHBwCYRtnGm7b+ofBW1QHP89w64Sr/
+faJ9PACAcRSPvekP2G39oXBXuA48v1LWldT0Kd48fyPRPj4AwDDFY2fa96pd
+fzO14erMv1n1ScofZNrHCQA4jRlfSp1z/3SOuQXz2sxhAEDETFt9MPXh+Zz+
+w4DXzs1rz/aaAIDTmbGh5znP7c2Y1MHqwyTaeQAAxMX0ZR6sWnGnHRMAbJ1Z
+y5Rpx+HEVM2PlHPnO+14AGCrrPWuB+1YPLElzFMAgB5nTdNeOx4AQDzMHjjm
+AAAAXta6ogP7FQAANsabAABtrOssPWjHAgCIi1lDxHpTAICXtYct1Y4FABAX
+s9e56kswdw0AqDF1IqMvAQAAAAAAAAAA5lA8bgzmrwEADdb+a+oEAKDGWg/7
+rh0LACA+1rVhc+1YAADxoU4AANqY+evyf/xdOxYAQHzoT6jm/lPh1vJa+K4d
+FwDYqBMqOb+11pi5PmvHBwA26oR6/p+sGvGqHQ8AuKgT6vm/t+oEY04AokOd
+UM//i1UnvmrHAwCu8r515p7YiXYsW1PORTDmBAAIceazf2jHAwCIizOHzZgT
+AOCX4nHprIe91I4JABCPsv8wx5hT8fhivc4X7eMGsExcL1Yl5z+s9vub9fPH
+lj14pU8nvs6odcLUt2r/eLWm96v53aVnD+EP9g4Cy0edUMn5a9uYk9PePg6d
+vxirTpS1rKV2XZrXeW15DrUCWDDqxOz5ttvux8BzqnP12xFfa5Rxp+Lx3a1h
+pkZ8CzwneJwAloE6MXu+7Ta0UQfk45qAY4wTTVEn7L5OWc+eAn0idwyNuXpg
+oagTs+fbXg/7yfndD/P7k+YhWl5rijpRuyZVqP339CmYRwcWijoxa64/We3m
+k/XzS3P+/TjmeffYdULqe8hrc/Ce57pz2tQJYKGoE7Pm2m47b83Pyra3vM7T
+6OtjJ6gTdvwvJzyXOgEs2FrrhByvW5UVdtqxWDHZ62HL+mDvoxh9/H6COmHH
+3zrHLvVr4TbG2AAsx4rrxJvVRt0VLpTjsfdgv3jG709a2yTta1WHCsYgzT3k
+rWtdhXtrAKux4jqxK+RWW1XWjRvFeL467eyTc87dOo7j+Xtz1wk7/qeO2Nya
+wr01AERLjvfYeLbarEP5M4U47P7DvfmZ256OOoYvI447OTWta8zJnZtgzAlA
+9IpHIvWxqExmHIuSwB5sqY/534/8mmPWide+7b7U77806jEBwJTKuiDHuQp7
+LCqZ4XXt9aRPzu/stjy4H2Hg64513Y5g/J7nfnOOh74EgMUpHlfOWFQuE66L
+csZhGmP1zvn3WdfqcP7uWHWiNX7reZfCvVyB1am+09pxKB17OkffQjruSeSc
+g784v/vU1jZ3vO5YdcKOP7jOSTquSQJgmbZcJ8zx75y+xYOMOG8hPe5JZJ5j
+j/9/sX53P7SNH6NOOPEH17c6tY4aAazI1uuElQe3b7Ef6e/a7WfwuqnO2M6L
+aZ/Lfzt4HnikOmHH790z7jyHsSZgZagTtVy48xbpCH+z1x5maY7t/6oXZ7z2
+GHXCjr92jUI57qmofv/YNiYFYLmoE418lGuiMqttzM8Zh3LGk7r2MFfXeno3
+7e9Za4VGqhN2/LdSn6v4Oa899G8DWAbqRDAviXzstyj/e6Udk0IOeu/BBrBe
+1InW3LjjUIl2TDMfv71+iWtvABtFnejMTzkO9WC1l3faMc147K3reQGsi2nv
+9sa1HNf3pPacrXFnxufTgOpv7LWPaeb82bkade1sjKR5TyLuWwqsgBz3Auyt
+9j6X43Xv3if2bF6rfN0bE8Pq2lE5zlnYx7y6Y7SO1V6ny9wEsECmJlxb9eBN
+pq8HpzpY9WMVtUOOcxZv1vGtcn5b6uthmZsAFsDUhfJ8NpupjzBl3+PO1LhF
+1g2pz2+vbi2UNPeQs78aiJRpj+6kvuZmLPkAU8VRjlXttPN94ntzscZaYWrE
+o/Melf8/8xNAJExtyOS8PsPBtL9ljUnlY+55zOsW7aQ+J57J+eNfz+Zv7bTf
+h545cGtFoh3Tmcfj3tPah+uEAwpMm3s3sDY8mzb65/yx9rGY46nWVpVt/sMZ
+x3UzZm2b8FgzK+5EOyYA6yHH+YZ8QPs52vh+9XdnONadDJ9fyWKpgS3HR60A
+MArTXqbSf3zmzZyTl23sboJ4ZqkTnte9Mv2FU+rkweQhyj5G31ohI1xfEMD6
+mPqQ9WwP38xzr2eIS6VOODFcmPb/4YT8pDHWC+s99s5tm/r4HmPsAHTIcZy+
+b/v3MPeYRQx1wonnwvQz+qytqurpTjtu5xiCtcL63eTnAADiZvoPferDQRTX
++MRWJ5zYqrVffcbooulfSGDNrPl5dSybuU4UgDrpP76Uz913CMQbbZ2wYqz6
+GIce/Yso6oVTKw7yMbb26/xAO0YA8zLtQNrj3LesIXvteK24o68TTryJdM99
+HyKpwXatKP/7v06cO+0YAcxDjmtUu851sxjbhaXVCSvufY96kYvyPmmpXw/K
+lWjnEcC05DjG1NVWPcRYH6xjWGSdsOLfS/ec990cY1HycZ2VXPrtTc+08wdg
+OnIcL29rB/KYxpdajmPRdcI6jqSjT3eY4/2QE/fGaOcNwPh69CEOjCeovTd9
+5ogm71v07GdWVnH9QABH5py1rQ1K5xjfQOf7VLbTbWuSD3O0z3Kct+rqW9xo
+5wvA+aR5j2TXM+eF8enRTqczfXbu2mqWdp4AnEeOc5MHzbYGZ71/XTU+n6MP
+KO3z7ezNBhaqY5xpFX2I6ni045jhONv6FrOMQ5k4Ul+t0s4PgNNJ+57q1Vxz
+YSt1whzrhbTPLyczxeE7/1j8OQewFR1tSfnd3mvHOPLxbqZOWMd8o30OIM39
+d5l2XgB0k+M6mdAY8vMc49gKx7y5OmGOu22fdDbHe21isD9vO+28AAjraje0
+45vwuDdZJ8yxX4jyeYETw2rGM4G16agRiXZ8Ex/7ZuuElYMsglqRmc/g6vqs
+wNJJ/VrPq56LCBz/5uuEyUNozsJ7X7qJYihrBfvugIh01IhNrD+hTsT1edjK
+5w5YgpY2YZXz1S15oE7U8xEag9zMuQMAaoSTC+pEMyfUCmDD5LgvlxrxkQ/q
+hD8vbbVipx0fgGm0fPc3WSPQjs8LsC185zEEnxtgG+S4Pv3Adx1DtNSKB+3Y
+AJxPwntuqRHoraVWZNqxATiP+Pfasm7lIz/MY/fPVWidXKIdG4BhxH+tf2pE
+PUfUidPyFaoVe+3YsBzF42vh1rg3n6Gv5neX5uf25+tH4bN23Gsjx/uHce7X
+nSfqxOk5C/VRGcdEq+LxLdAuvZv68KXw2vIcasV478UuMJacascWG+rE4Lzl
+vjkv7biwHMXju/XZeTR9jLJGfAs85+fztONeC/HPW7M2xZ8r6sSwvIXW0HFt
+cPTijC2VY09PZZ/C87xHt9+hHfvSiX9OgrVN4XxRJ4bnLrQGaq8dG+Jn6kL1
+mXkNtf+ePsUX7diXTPxzEsxbt+eMOnFe/pLAZ47zEgSV8wzOZ+Zby3PdOW3q
+xPC8h8YBuJ5/e96oE+fn8IFxTpzCaftfTngudeK8vN/xXR2UN+rE+TkMnaNc
+a8eGOMlxnWv1ObnteO6987n6pB3/ErWMN9H3784ddWKcPPIZRC9yXP9qf05a
+17qKM4+hHf8ScS6HWNCnRR9yXP9afT6eOp7r1pTv2vEvkfjXN/HdxOxazln2
+2rEhHs44UteYkzs3wZjT6fne0ddHTALjTwftuBAPqe+3bm33i8eL9dx77diX
+SPx7YhlvgqrA+FOqHRf0SX09bNeYk32Nj1f6EoPy7Ttvy7XjWpoqd9pxrIkZ
+f3L339HPhTuOFJxrMPMSdl/iq3bsSxQYB95px7U01InJ8pp4Pp+ZdlxQ/1zY
+a5eC65ykvge7dQ4DwRz6voNcV2dYLqkT0+XWd52xnXZcUPs82GuXgutbnfEm
+asTwfLt9Cfr0w3NJnZgut76x0Uw7Lqh9Huz2/0eP5zDWNDzXqee7l2rHtVTU
+icnzm3s+r3vtuKDyWbD3YJfjT5+s3321fv/YNiaFzjz75gcP2nEtGXVi8vzu
+PHUi144LKp8Fez3srTNX8W7mJLh20/l59s1LJNpxLRl1YpYcZ8xTbJucsAcb
+Z+fanZc4aMe0dNSJWXLs61Nk2nFh1s+AvX6Ja29Ml2f6EtPklToxT57pU2yY
+M8bE/PR0eXbXGL5px7QG1InZ8nzlqROs5d4Aad6TiPuWTpPnvec7lmrHtQbU
+iVlznbvnOsJ67tWT+h5s5iamy7Ovz873C4tSPK4ZO90eqa+HZW5imhxfMAeI
+tfCsxXjWjgmTvt/u/SPYXz1Nnm88deJKOy5gCD7P22FqxKPzXj8yPzFJrjn/
+wmrQP94Gad7T2ofrhI+Ta98akUQ7rjVhHlsl5+58G2v3gIHEf78X5q/HzTF1
+Yv6c++azub8WMIBnzCnTjmltqBNqeeezDZxJ/HsmOOcaP8/UCZ28N/rK2jEB
+S+P5HjGGO02eaaN08u6be+M8CL+Yz0g5l7XXjiVW9MtnyzN1Qi/3fMbRSj72
+8JeflRvmZ2u54VxrvlxTJ/RyT58ZrQJtIX2M9+BeJOroNLmmTujl3rfuiT13
+qPHNZdHHqPW1Krl2TGtFnYgj/5ZUOybERfz38XTlpp6U5x477Zhnyoubgxvt
+mNaKOqGe/wfOieJX1m9l7ueky5v5N+W/3Wvnb4L3Y+85ZvriWCXxjLFqxwTv
++3RKGx2jsm6s5n4npv4xt4dNEP885V47LjTep3P6AmP424l1obyvWybH+4Cu
+7jxbmnMTD9oxAVOS5thzqh0T4iHd8xOrHmMK5MTNB3MTWDVpjj1zboRfxH+f
+tqrPUPYXNrXeSeiDY4OEsVYESHO+9s3UjdWNJZ2Qk8Z6cu2Y1o486/O0Be9b
+O0dE8LPxbD4P+Rb7DoGcuOdV3JNo+pxTJ/TfA9+9i/bacUH9c1GOr5R7Inba
+scTEM4edace0dtSJOEjzWk+pdkxAjPiuqOScOhEBzpGAfuh76+VcO46t84y5
+5toxAbEJrHXa7Jz+jHmnTkRAmvuyWfMEOHxrPrRj2gJyHQc+/0A3T7/7oB3T
+FtAmxaFc08K4K9CO8Vm1vFMnIkGdANoJ1y7Qyjt1IhLCNWuAVp51gal2TMCc
++A4A7fiOYOv4DgDtPH3uRDsmYE7SvC4oY6+AhTk8bB1rOYB21AndvGvHAeoE
+0IU6oZt37ThAnQC6UCd0864dB6gTQBfqhG7eteMAdSJmZi0a9FEndD7/1IlI
+SLNO/D2C7yWO9wpy2yfEYaf9vd2CKt/aceDne+FeMxZxyCOIAX577e/tFlT5
+1o4DP9+LNILvHZryCGKA3177e7sFVb6148DP9yKN4HuHpty8N9BHndBpm6gT
+kfB8Dw4RfC/BtSGiIdQJ1bxrxwFvnci1YwJiQp3Qzbt2HKBOAF2oE9g66gTQ
+To5jsfZ3hHu0YFOkea+uTDsmICbSXHuWascEzInvANCO7wi2ju8A0E6a92jJ
+tWPaAuax4+GZo0u0YwJiwhyeWt6pE5FgLQfQTprXtnnTjmkLqBNxKB5Xnjpx
+pR0XEJPy3Mn9nmjHtAXkOg58/oFuxWNHv1sl77RJEfCMux60YwJi5KkT19ox
+rR11Ig7SvMdBrh0TEKPi8cy6wNlzTp2IgGdN7J12TECMpLkf9UE7prWjTsSh
+XLfhfPa5HgHgwRitSs6pE/rvAXNzQE++NR+FC+241ow6oa+ch2OtE9AP51XY
+IvrRwGmked3YVDsmYEqeOexMOyYgZp657Fw7JmBKnj40c9hAC2lev+NdOyZg
+KoE5Oa7XAbQQ/3Vu9tpxrRW1WD3/7twE1zUDevCsJWfP0XS5pk7o5t/dW8qe
+IaAHzxzFs3ZMa0WdUM39BXMTwDDFI/F8f3baca0RdUI193zOgYEC+ygS7bjW
+iDqhmvuMfRPAcIzbzpZn6oRe7pmHA87gWx8rXMNjijxTJ3Ty3rhWB+thgdME
+1scm2nGtDXVCLe/umBPrYYEBPGNPuXZMa0OdUMn5BWNOwDgCY0877bjWhDqh
+knPfOifGnIABAuueUu241oQ6oZLznHVOwHj4TmFNOPcBxhfoo19rxwUMUc5D
+MJYKjM8z55drxwScKjB/zb4gYAScg2EN6BsD0wmM6Wbaca0B89iz5vrAXBsw
+HWleQ5b92ePklToxT559+6+5NiwwIvHf9yvVjmvpqBOz5dldt/fGeQ4wPr5r
+k+SUOjF9jjnHAWYS6Lun2nEtGXVilhy75zeMmQIT8swF0qc4L5/UiWnz6+tL
+ZNpxAWsW6FNk2nEtFXVi8vz6zmt22nEBaxfox++041oi6sSkuU0YJwV0BPry
+uXZcS0SdmCyvvr3XjJECMwr0KfbacS0NdWKyvKb0JQBd4t+jfdCOC+CzCcRD
+/Nd9SrXjwrYF+rpcxwlQEBgDLnFvMKgQ/z0Yc+24gC0LrCl51o4L22PGm3zn
+LTvt2ICtC/TzU+24loB57FFzyecQiFTLeRzjT925o06Mk0ffeBP9WiAioe8p
+69U780adOD+HV5ynAMsQ6PffaccVM+rEKDl8ZrwJWIaW8SfWJIZzRp04L3++
+tdmMNwEnkuN1NpKZXst3ncA3xgCC+aJODM+db60d1/kDBpLjdTPTmV4rY66i
+d66oE8PyFpqTSLRjA5bKmmfOZniti8CY8YN2HmJDnRiUswtpXi98ls82sGZS
+v+ZNNtPr+c73mNeu54k6cXrOfOcgzEkAIyjP52euFb65CsYG6jmiTpyWL9+Y
+JnMSwEg87XY2w2v69lWwBuojP9SJ/rnyrW1inwQwMs+4bj71/HLLOSDfb/Qi
+/rVN9E2BCYj//i3PU7fZ4t+DR61Ap5YakWrHBqyR+O/hUrXZNxO+bmgNFLUC
+QS01ItOODVgzqc9nu/Kp5gSpFTgFNQLQI+G55cn7FhLeH7XJWlEdv3YcsWmp
+EezXBGZg2uq2OjHpHDe1opYL6kQzJ9QIIAI960TVdo++hrWjVuy18zP3+6Ad
+Ryxa+rrUCGBm4l9/VPof8ztbuW59N0EMoVpRSrRzNNP7QJ34yEVGjQDiIc31
+sf9n/nuY8ztpasUh0D6k2nma4fg3XyfkuL4htLYip0YAOqS5N/vfrfY6nzmW
+0Dqod3OOudp2Yut1Qo7rtIPvvXZ8wJaZttmeE7hwxoEyhXhC7cXzFONeMdhy
+nZDjfVFC446ZdnwAfn5Pq/5Dav3M7mdMtu+uJabQGPUq57e3WiekfW12oh0f
+gCPTJr+54zrOdzhRiCttaUNS7byNfKybqhPSPhcxydo6AMOZepAFfpdZ393Z
+9zTIcQ19aExiNeNQW6oTHeNMB43PGYB25twuOEdsnfdp1YorCc9ZTHo9Koz6
+Ppafs9A1wd/N52y1axWANZP63LJWrWgbp6jWTe60c4Xg+7eX8Lrn1Y0jAlvk
+qRUq531mjCw0ZkHfIjI9+hBl7dhrxwlgHE6tUNsb2zEOVfUtGOPW/7xcd/Qh
+GGcCVsjUioN2rTCxpC1tUCmjHVJ5X64kfD0Y1jMBGyD1fXjataKrb/Fm6knU
+9aKKVzuOM49hJ+F9L/QhgI2R+vWY1K8DbmpBaN6iGgdPtPPWEv9i64TpY/bJ
+P30IYGMkgnVQTjw7aV8TFW29WGKd6Fkf3pfQnwMwndhqhYlp3zEWVdWLaNqv
+JdUJa3ypqz6UNXunHS8AfdK8dl+iHZOJK5H29TZVbcu027Ml1AlTf7v6a9V6
+s712vADiYmpFZrUV0exjkPY9F277lijFGGWdMO/rTY96W/XR9toxA4ibUysy
+7XisuE5p76o+xmxjaLHVCTnufejTd1CtrwCWSerXmY3uXpU9x6Psc+S7qWtG
+DHXC1IasZ9+L8SUAZzFtzpvV1qrPb3ti3J9wzmz3M5Kxa59GnZDjfPTNwBzs
+tN8/AMsnzT1wiXZMgTjL9jI9oY9h95XuTE08q27MUSfMcSamnR9yrKPXRwDL
+UTw+FW4tr4XvI/xd9zqvWcxtjZw+9uKOUT2YmrPXPOc2NfraxJKfcTyTj7kB
+iJupCaF24vOIr5M656bRtz3WufeQNtY9F89NDlLTfpd1ZD8wrovq35sYU9Oe
+53J6PyFUGwbFBmDdiseT1V68TvD3906bG83a2R6xX5v289x2OEbPptZEX7sB
+6Coe91bbcfaYU+A13HGo8hx4p33sJx7DToaP88dgtHkVANtSPF6stuTrxK9l
+731b9P2FTO2r5gIeIqsdz6aelbHttXMFYLmKx2erbRl9zCnwmjupr4fKZWF9
+i47j21v1IzPH13XdqSFy404+5tAZQwIwKqnPZ/+Y+bVTp2+RaudjpuO256Or
+3O/70I4dwPZIfQ570jGnwOvvpH4PtOcttYfVcWvHAQA+xePSGce4VIwlkfqa
+qFQ7PzMdN3UCQLTK/oPWmFMgngsz1v6+lXF26gSAmJW1waoT36yfP3bMn36a
+OK7NrNmkTgCImRyv0REcc3LmuB815i/WjjoBIFbF44tdAwLPqfbf3WrHu1bU
+CQCxKh7frTrRqAPycU3AL9qxrhl1AkCsnPWwn5zf/TC/n3QeAtQJAHGS47XE
+qxrxZP380sxDPGqukQUA6HLmp2/Nz8rrd7zEsD4WAKDLWQ/72dlHQT8CADbM
+2YP94sxns7YJADbO6Tu8m/lq+/4TL9oxbgnz2ABi4/Qf7s3P3Os8sRZ2vveD
+OgEgKqE92M6cxb12nACA+Un9nkRPzu/s/dmvzGcDwPY462Eb98GW+v1Pmc8G
+gI2RjnsSFY9voflsszevUVsAAOvgmav2XR/20pm/+GL97p757dHfk73Jc64d
+CwA4fQXv9WHN8+yxqRdTO74xtz3Je0KdABANZz1TcO7B1AV7nuJXvdA+hrWh
+TgCIiTOe9LnjuZ+tWlHWF64bO817kpkcH7RjAQDERz72PP5VOxYAQHyKR2rq
+RKodCwAgPta4U6odCwAgPuX8takTe+1YAADxKR43pk+x044FAAAAAAAAAACs
+W/G4LvfWFRLtWAAA8WEfNgAgpHhcFN5MnUi04wEAxKWsDfQlAAA+pi9xYG8d
+AMDHup7Tg3YsAIC4FI8rUyPKuYkL7XgAAPFgvAkAEGJqxDPXhQUAfbGtM3Vq
+RKYdDwBsWfG4q+41Hcv4v6kTGTUCAPSV4/7W/rXyHP5KOyYAQFzMmqKqVpT/
+vZ759atxpkQ7FwAAP9NW56ZO7GZ83b21pumgnQcAQLu5xp1MH+bB1IeqH5Nq
+Hz8A4HTVXmhzjaXdGX9nZ/7Gs1sfYplDBwCczrTjb07bnpufJ2bsaO/uhTNj
+WddmTZVdG97NWBP1AQBWwvQFUmsuwcv5N9X6Vrs2ZHPPkwMA5mXmFlLTp3Dr
+Bv0DIBL/D0cMLyU=
+     "], {{0, 308}, {394, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{92., Automatic},
+   ImageSizeRaw->{394, 308},
+   PlotRange->{{0, 394}, {0, 308}}]]]
+}], "ExampleText",
+ CellID->1693045798],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{"1", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"%", ",", 
+   RowBox[{"Part", "\[Rule]", 
+    RowBox[{"Discontinuity", "[", 
+     RowBox[{"p", ".", "p"}], "]"}]}]}], "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1320115342],
+
+Cell[BoxData[
+ RowBox[{"PVB", "[", 
+  RowBox[{"0", ",", "0", ",", 
+   RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]], "Output",
+ ImageSize->{133, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1192793338],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{"HeavisideTheta", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      SuperscriptBox["m", "2"]}], "+", 
+     RowBox[{"p", ".", "p"}]}], "]"}], " ", 
+   SqrtBox[
+    RowBox[{
+     RowBox[{"p", ".", "p"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"p", ".", "p"}]}], ")"}]}]]}], 
+  RowBox[{"p", ".", "p"}]]], "Output",
+ ImageSize->{341, 42},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->517787021]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[TextData[{
+ "Obtain the tree-level ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"h", "\[Rule]", 
+    RowBox[{"Z", " ", "Z"}]}], TraditionalForm]], "InlineMath"],
+ " partial width ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[CapitalGamma]", "=", 
+    RowBox[{
+     FractionBox["1", "Flux"], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       SubscriptBox[
+        RowBox[{"(", "PS", ")"}], "2"], 
+       SubsuperscriptBox["\[ScriptCapitalM]", "0", "*"], 
+       SubscriptBox["\[ScriptCapitalM]", "0"]}]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " by computing the discontinuity across the normal threshold cut of the \
+one-loop Higgs self energy function ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     RowBox[{"Disc", "(", 
+      SubscriptBox["\[ScriptCapitalM]", "1"], ")"}]}], "=", 
+    RowBox[{"Flux", "\[Times]", 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       SubscriptBox[
+        RowBox[{"(", "PS", ")"}], "2"], 
+       SubsuperscriptBox["\[ScriptCapitalM]", "0", "*"], 
+       SubscriptBox["\[ScriptCapitalM]", "0"]}]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ".\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     SubscriptBox["\[ScriptCapitalM]", "1"]}], "=", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJztnb2O3Mxyhss/gcPVHYx1BQvIF0AbCh0sjqF8jgErtWAfQDjZhAoVOLAy
+BoaDL9pcCS9AwUaOLGDgyJE8gVNDHmqau81ik8OZaXY1yWeA55xPM1yyWPx5
+u6urq//y7//xd+//VET++S+O//O733/863/6p9//8e/+/PiPv/njH/7h7//s
++B9/9Sci/3ak/vLnz58AsBDqR1pRHSmPbI/cWdsHAADzptYSpymPRw6N3gS2
+03qkqf9+a30+AAAwL46fwvVvfE3ZH/l85KFn+4Zav3auj3QI7GNrfX4AAJA3
+x8/G6UijHwenQfc37rPpY9VflNbnCQAAeeLicjvVl9mlGPtxx2aMCQAAGk3Y
+Ox16uqU/dMWxK3fsZMcEAIB8cTG1p5R9FRfL23t9sq21HwAAYJ24vtmjp0mf
+rW0CAIA0uNy50toOZVMzflXnUGys7QEAgGnx8rj31rYEbNsyjgQAsHxUDl1h
+bQ8AAKwPN1eVMRoAADDFy2PbM98HAAAsIE4HAAA54NWRe7S2BQAA1onLWSOP
+GgAATPHmmu6sbQEAgHXiah80fSNyGAAAwASnRyV9IwAAAAAAAAAAAAAAADh+
+PjjIYwAAADO8egzoEQAAmODlef+0tgUAANaLV8u7srYFAADWC3oEAAA54PIY
+6v/4H2tbAABgvdA/WhbHz+sjHz1+HPlkbRcAwDnQo2XgtOdnD2+s7QMAOAd6
+tDyOn2+eFv2wtgcAYAzo0fI4fr54ekSsDgBmAXq0PI6f754evbO2BwBgDPU6
+sPUaE/XasNa2QJTr+YZYHQAAWKPyGn6ztgcAANaJymUgVgcAAMk5fl6pPO9X
+1jYBAMD6qPtDKWJ1x89b7zhvrc8bAJYD9b2XQa1Bnk68977/OjBXtub1hceJ
+qkdOR5t6Ek2u+jv326vAXN/fmOMLsEzQo2XgagP1xurUe/3rteNLsfSo1swB
+jXzljvNjYBs0CWBhoEfzR2nE155tmr7Hx4jHihKvO34+aa10WvS+Z5ve8wSA
++YIezR/1ru7ojbzUVo0RX5tCj/y+W62b33r6eDr2SM4GwIJAj+aPtPO8X6vf
+fnO/XzRONHCsKfSoVXOvT2cCfSTyKQAWBHo0b+S0xkTzfv7mff/K9Se+xuxH
+xNYjadeUaOViBLbVuQ3oEUBGHD93cqpDV6+ttwtQ/7YZ+Hv0aMaod/RH9139
+jq/r2EXP+55Aj3z7v1+wLXoEkAFOg2r9eVLP5xBPTp82al/o0Xi/Px75XPvf
+2hbPJj/Pu9Yhfx5S9PGVCfTIt38w10Latcs7sUkASIfTofICDeqjbHQJPRrt
++3vPfwen7aa6JO2aDHV/SI+vXJRLJ8M52NfSa4N0a0oM5nALazsBZIHrDx0G
+nvv6t0qxP/Ou2KFHF12Dwvm18V/t3wdDe96p61m/r/0+xGD8K7C/1Hrk2//t
+jG1au1jbCSAxcuoTPfY86/W7cSvD40P13z9If7+q3kc28ac54Hy+Vz68N7DD
+7w99cd/p93bUMRaJGK9T2nkuVqfHjojVASTEaUlojOhxSIMG9rfp0aUnNOmq
+a7OTdp91l9KP0lOTQdpjMl8iHzOmHvn2D+qLtNcZjHpOADBMjxbV774iwr7v
+pRvLQ5Ou8+VG2v3XfYxrNOK4fp70N/Wbrxm983muPG6sekG99ge2fa/Oh74R
+QEKkG6OLqhc9evdofd5zRU4xUV/jJ83Dk3b8qjOWovoTN9UIUvuNpUeD9nvb
+vRLWYAcwQ065C5P3XZwm6djdB+vznyvOn59T9JXkzNp7qk/xXf32ekgDzhw3
+lh759vfm1cmZWkgAMB3uneaPSRwmbmdrPaqPt7H2w4C9hUfyHIILbGz1lSLv
+/+zae24bf3zmrffbl2u1JIYeKft787aVpqJFAImRbr5BMfHxtB5lE7eTl3m/
+jzKc6753fjPLve6x3e8rPcXST/We7q1zLar2gdOB+m+vzgeIpEe+/cEaEmob
+YnQAiQn0jSbXBe9YWge3hn7YBOwZSxZzVb1zefCu6SGGX2VkTQPpjr0869IN
+x46hR779rVqvcpqT1Pxe195jnSMAA6Q7brRJcMzmWKE4YdJ4WKBPcQu/dMn6
+mnrnVSntv1ovpR2HO1fToKll99O952/KTYukR779H6U9llTz6dp9A0Ac1Dur
+SnTMX8dz//0QeKcn0SQJ56A/9xOdVhf+e9z9zYPTsL6/fUqh6yPPcZejXYl9
+MLomAwDYod6j25TH9P6t+yeTa5K0Y1o+5SXvbKdXZU9fKYvcB2ejH78rrG1K
+fP5+vhw1fwAyxL2nksbq3HFbeuS+C73TJ8kDV32G577hLefvfBmaS5yLJm2U
+fVtrmxKe+2CeOgDYo97Lh4TH7eiR+z6kSVWsd3qPZtREyY2WcC30bHLZA/aV
+1jYlOGe99h7rjQNkiHo3J8u37tMj91uo79LE0Yorj1dIe5xs0hhlQJOerK/1
+gI/rcbIs8gInOlc//5yxI4AMkfbaOlnFb6Q7t9On/r4eb3ro63fIKTY1Judg
+slhaQJN21n5V9m2VLxapSdLO82bsCCBD1Pty0noMV9rX1LIOaUmIvv6PJklO
+trN/L3n7+F5e8hwWp0nSrSlBvQWAzAj0jUprmwZs3Uh3jYVr2Ev6tRmKnPtI
+3r3g595lkX8R4bxqLfqq/F//m/EjgIwI9CU21jaNtLtZ4y+Uk9AXk/sV28vE
+13trH/bY6Nddn70mSXvNvT5YPwLAGOnGwHbWNt1wLoVj687rofnO2jbPRj3f
+N8t3/dI0CQDyRtpj2E0MK/mYQXN8a38kPN/Weq7W9gzYiSYBwORIe46+aVt9
+hXrkr3NYWdtzxtbRmpSztgJAngT6RTVbQ3vWpkd+jDSruUg99p7VJHdP7a1t
+BYDrkVO+mD/m0dTsjN5XkXC9AFMtcnatTY9aY0jW9oy0WWvSnfq9ynk8DADC
+OO05t75bQ1NX+qZxHXfM0PG2GfhjNu/lSOdbzE2PnN2+Jj3PT5L2fAHWmgeY
+Aa7/sx+hQX3UfZvRucryMlcndMzDJfua2C+zei9HON9Z6pGzfSNqzqzqc2ex
+ri8AhJHheje+PlQj9erg+k071+8pHA/uu/LMfurjbKz94vlndu/lG8/XX/Nw
+b23PFfb7c2b/Xdr97mR1eAHgMqS/xs3e/Vb0/N29e29VI/RpLPtc+kTqXNem
+R/49UVnbc+U56JoePowhAWSGhHMHnvo0aGA/GxmuBXqOx0uPmdhP6FHGyMsa
+g5Xj3LjnztpmAHihR4t2Efbb9Jsee94NzTtjl2NfqOec0KOMkdMYkV6zd4js
+zwlgLUg3RsfcdnhGZjb/yLO7kJG1Aq1tBYBgXB0tghYyw/lHyv4PI2J2s+ib
+AyyZQPuxsLYJ8kK6607Mrr0ipzHNxwE9Iu8bwBDp1uHZWdsEeaLuk9nOIXV9
+vX2PJm2s7QNYK+q53FvbMxfmGre68ZyrpfQlpL8OVWltG8AaCYwbba1tmgsr
+1aMPsrC+ROCcsluTHWANSDsfljnql/lujXq0Ue/uz9Y2RTovYtYAxqg8htLa
+njmxRj1y561jXBtrmyKdl19PaG9tD8DaUO8Vcl2v8J21HQbnrftIsx5HUud2
+77XRttb2AKyFwNjRxtqmObFWPXLnrvtIs821C5xbsz7F3toWgLUgM14/IAfW
+7Df3ztZzSwtruyKfX7mkcwLIGfToZv+t2m+i6jXIAmt6LO18AHIFPbrZf6v3
+m4RzpbfWdgHAvAiMH9EWvMx/q9cj5wc9lvQrD1yYwwMAF0B+3e2+s7YjByS8
+rgN9JQAYjTD/CCIhpzmlofrZe6dX9L8hCsfPuyMfHV/cffbO/fbKfe/fg78d
+eWNtN5y9rtRngGjIaW5SFdAkv89U/77r4dHF/3ZubKqwPifIh+Pn/cC9VevQ
+2yM/BrZBkzImMIa0tbYJ5o/rK+0H3guXUusU8WR45vj55N0fX12fqdai9z3b
+/NrO2m44e13990ZlbQ8sBznlcJZyfh28sezRJaiRdkyujtl9q/tIge2+6n6U
+te0weF0XV7M5kd/IZ7jMX4WLw9X6VPXg/zakYXV/ify9FeP0p7kffvTpTKCP
+9Nbadhi8rnfqem2tbZoD6FESH987DdtLuK9EjsQKOX7eqHvh/cC2OrcBPcoc
+aY9Bl9b2zAH0KLm/t4E+0+JqQsCoe8HXmO8XbIsezQDXBmUM6TKfoUfpfX4n
+3fw9NGllyCl/u7n+H89s+0XdL6+t7Yez17dVi8zanjmAr0x9X6p3zBPjSetA
+Tnnd/rUfzOHW40zW9sOoa1ygRxf7DF/Z+l9r0iLWqoWz1/2dd82/ndlWa9cn
+a/th1DVGjy73Gb6yvwZP6n1D3G7hqPjbuVidHjsiVjcD0KOrfIav7K/BRto5
+DpW1TTD5Nf8xVl+On+/etl+sbYfR1xg9utxn+CoDpJ2LU7Oxtgkmu9Z+nve5
+WJ1fW+gHfaP5IOQzXOMzfJUB0l2rlnGkhaLib71jQW7cyO8bvbO2HS66zn4b
+88naHoBLULkNe2t7YLLr7OfK9ebVSbsmw+AYE+SHMB8WZozu3xOzWx7SzpXr
+zdtWcbpVapGc5o6X8lJ768NcngmhXhDMnMA9XETaZzk2/ien3Ary+6a7xr7O
+/DZim9XF6Fy7bN/0K5wufXbx7Fmsj+lspm0Js0baNe52Efbn1xnentl2Iy9j
+WNQfn+b6+jUZ6rjda++3d97vX4dieUtFXtaye9LtImnnqxXWtp45D/85rqzt
+mQuNz6ztgOfrUUXWI39/g/0epV03HxuCPvbzvD9KeyzpV36DrLQ2nbyMn9Zt
+omCdEnmZq1dZ2ztwHrpvtLW2aS6gR3kxgR6NzjeV0/oXs2h/zhG5oCbD2lDv
+8GJgu5233cba7oB9d6pvtLe2aU6gR3kRU49UfKMasf2B+2HSa+vny1Hz58Uv
+G+/eezyzra9H2cWU5SXeSN/oOv/x/skIiTh+pJ7dwX3JaY0m4t3TXls/Nre6
+PIUBv5SeX87FlEff0wbnoeN0lbVNcwM9ygeJnF+n+lqD+xLGjqa+tnrtPdYb
+//ncN2p8cnbOaMz4QeTzKNT1rft7G2u75gZ6lA8Sef6Rv68R2zJ2NO219Wsy
+MHb04he/HfRhxPZ+DZOttf3OJt0vysa2uYEe5YNErM8gN4wdCWswTXFt/Txv
+xo5e/OL3d87F6vyYchbtJunWnUSLbvMnepQBKm5Rc1P9OmHsKBuku37RKust
+9PjmOb41YtsPl2w/sd11e0+vE4MWRbofrO1YO9Jdl29z4/78dmdxZlvGjqa7
+rrUWfVXXtv736sePVB9+MK/Obe/HlEtDmyvp6hBaFMe/6JH9NdBxiDLWdR1z
+bYWxo6mu65ee95bPatePUH34wbEj6eb6JKlpJae4xda1F/c917BTSwKu9jd6
+ZOt/PX8uRt/Ib3dWI7YPzjty+9la+wiWiVxfO6Sc2K6N08o+/XmOGQrxBFgQ
+0o1B7yLs0293Do5DycDYkXtf3GwPQIixfXhprw3WW0sogj0b6cbNQ+zdM0be
+DyyGwL1fRdqv3+7cXWDDTv2WLC4C60K683V67zN1jxYT2bOTdo5pKCZX117I
+riYEwK1Id67RU6z2ltpvb/8o8E54UPaZ5jDBclF9+FoHgvkMarvtBHbcSX9+
+Qon+wNKR7pjRIVY/JKAx+57t7t1x/Xhh4f1eDWkZwC0oDXhw92LZtMnkFDtr
+8mz2U/TT3XMYytmu7dhY+2iNNNfA2o41Id05dGfnpd+w7+b5ap7zO3mJTZRK
+G3dum61Q7yQLXLvhyV2TxYxX+G0xdZ5Jxml6tGgv5JdmcV9Y27EWpD02G23M
+yNu/3+7cSjuX248N+rE5/S44CHGKbPCuYdOGKKxtuvF8Cu9ee1S/bdzvm4lt
+KAPPxGL0fq6gR8n9/UE9B8UU11PU2I97xouhZ655F1j7CILXRY+17929NLt3
+qFww72ii4082dgs3Xxv0KK2//X5IFXnfve1OmDcSjsP68djC2sYLzsXvwyfN
+35RufGKy/HG46vqgR+l8vVHvkW3k/Zu2O2FaZNz8zMrdB4N9YePzCPbhEx1b
+6zpx6YxAj5L6Wsfqor4vLNuda8D515JQLtg5ag0r3b1nfk+IcR9eJhy7hSjX
+Bz1K5+tyymdBDNuda+AKLciNWtNMc/jFsA8v3XWKCut7CjrXCD1K5+vKexZ2
+kfdt2u5cA/KSE2JFeYH27OWUl/chp/euegZSjx35uaZn16IFk/sDPUrsa2Hs
+CC6/vpsz+vPk7oE6dyzLcSN3Hk28bG94bJ6RTEGP0vtaJogVqLaz+TgBxEX1
+K57jsu66z+Z6y2muW5laMyXDtWUBLJlYj+7cc76zPk+Ii4Tny2xz7gflhqg6
+Wtb2AFhD+wwuRV7qOc2uL5QT0s5t3VvbA2ANegSXIi/rk9IXus2P/vhqZW0P
+gDWMpwLYgB4BtFFj0qzlAJAI4nXzgPG9pL7+7I9JW9sDsBbIZ5gHXJ+kvt6q
+MaSNtU0Aa0C687cKa5sgeJ3Qo3S+vlPPBGNIAIlQ47c7a3sgeI3Qo7T+9muW
+7K3tAVgL0p4zvre2B4LXCD1K628ds9ta2wSwBqQ7r7iwtgk61wg9Su/zPe00
+gPSoZ6+ytgc61wc9Su9z3UfaWdsEsAakux4fY7gZgR6Z+V2vrVZY2wSwBqS7
+zi41mDIBPTLzu643fOC5AJgePReJZy8f0CNT3+v1y3kuABIQiNvx7MHqke6a
+n/Vz8WBtF8DSCTx7jOXC6ul5LuraQtR0zgw5zWnWY38x2Eay717a8z5j8BTr
+Xuy512+ljGzPfwvjubBiJnpOeedFfudJez5zbDY3nvfdBNel4THCddHx6Szu
+benG7hqoeQyrRU554FO9T3jn3Yjb/xRafNP7NHAPxbYtytiKTNe3LCPYVl/X
+/wrsO1o7CUZdh+dnDexxz8V/TPRO3UaycdXvPDnV5iwiEnUc3d1DMe3bRLTt
+LrJtRWTf1e0Z3d5AkxLR+NzaDuhclz8c+V/1XPznkb/lnXfWtqzfeZA37t7W
+bRo0KY3v0aNMkVM7vPNcWNsFsHQk3M+urO1aOuhR3vQ8F4yzAkxMz7O3s7Zr
+yaBH+dPzXBTWdgEsHffs7dWzx7zZ6fyNHs0A6eZ1EbcDSIB0a3tV1jYtFfRo
+Pkh3ngR1HAASEHj2Cmublgh6NC9U7ODm+ToAcB7pzrurrG1aIujRvJDufE9y
+UAESEOgjbaxtWhro0bxwOeD+M7G1tglgDbg+kv/ssZZffB+jRzND5dqR+w2Q
+CGnXL6ys7QGwRk61v3kmABIjqlaWtT0A1qg4NnnfAIkI5H4X1jYBWFLnedNG
+A7CBORcAL8ipxid6BGCAGr/dWduzJHinzQ+V832wtgdgTdRjtujRZL5Fj2aG
+Gj+qrO0BWBPo0aS+RY9mhnoeqNEAkBD0aFLfokczQ9p1S5iTB5AQadfs2lnb
+syTQo3mhc+uE2vcASSHfe3rfWtsBo69X6T0Le2t7ANaEzm0VatjF9i96NBOk
+W7tuZ20TwK3IqS7cB+muOXmOfer+icolIrc1vn/Ro5mgxlFpm8HskVP9ncNI
+/QlRJrbX10xyieL7Fz2aAdJdZ4I6qjBrVOz54P69c5Tqfq+83xqKxPbqWkFb
+ax8uDfQofwLPQf3ssu4RzBalN4+h+1nd9/vMbOYZhNXhnkkdzyhG/u1GTuOv
+xdjYnpxi+QXPGkyFtGtkl2e29TXALJc00CYctBtgaQRidGdzGHr061e8Y+Qx
+m/VdqBsO0XFtpOb+3J9r90h7foPZXDth7BZWintm9f0/qk3m/raOrX9WurQb
+8bf++pd7az/A8lD9nWLE9sUl9/BENu8uaRMCLAHXFnyUrg5d9QyofRUjth8d
+RwG4FGnPV9iP/JutpQ5Id/752T4d3ORv8hnsfH/v2l5VT4ytGTctrtz/3tvP
+2WdI9cmuOiZAH9KOP4+KvUl7LeSkaw1JOPZNPZRpfY4epfV3E0/bS1h/fD5f
+2xZTbdGzY0HXtF0BLkG1d0a916U93yeZFsgpdq3n526tfbh00KNkfq7v73KE
+Bu2dXm1uPN7W17UR25c8dzAlfl9j5PZm45nSHTMqrf23BtCjJD5+CPT7/Xhc
+6WIZ0dp/Sl8G4xz0jSAF3j1Wjdzej+/tEtq5Uc8ouaaJ7xFrO5bKQJ+oPKcT
+Nx537x3rXE7tRXkPANdwhR4193DSuaeBZ5Yxo8T3iLUdS0PC8eef7t2/mfjY
+fvtusG0n7fwhahDBZHjPQzViW79vtE1spx/LKK39tibQo0l8GtKiw5T9IXX8
+7RiNcXY2z95TyjYorA95yZXbn9nOz2srE9vI+mK29wh6FN+neg7RU8r7WkaO
+HXmaSS0umBxp12Yoera59+7L0sBG/9lh3Ci9/9GjuP7cBbQo6bteRowdec/d
+gTYgpMLru+/1fSfttSd2RvZVY2ILMJn/0aN4vjSvwy0jxo7QIrDExcSaNlMl
+7fngj5b3pHp+t9a+WhvoUVRfVup+Tv5cycDYkbTHtRgvAlPkVJvug4spFDnc
+j+r5LaztAbgGpQOW8YbSs+HB+96fA2ViG0DuoEewBKSdT7e3auuJGjty8bsm
+v6IiPgfQD3oEcycwbrQ1ssMfOzp48cOKZwvgPOgRzB1p1yA+GNpRqD5abdfG
+2j8Ac0HFF3bW9qwN8hmi+NC/h0tjW7IYFwaYI9KeO/hobc/aQI9u9p8fIxuc
+fwoAeSPtOkW98/dgMv+jR7f5T9cX4f4FmCmB9uXW2qY1gR7d7L+dd+9SXwRg
+5kh7HuHe2p41gR7d7D9fjyprewDgNqQ7l3DU2uoQxffo0W3+Q48AFoa05xNS
+Vyud39Gj2/yHHgEsDDV3gvpa6fyOHt3mP/QIYIFIe14hmpTG5+jRbf5DjwAW
+inTX1Uy6ltnaQI9u9l9r7NPaHgCIh/Sv9byztg1AI93adbSdABZEjyY1Nbnq
++MjG2kaABnlZx4HcUICFEhhP0nG80umTpv6+8v69pd0KUyHtmlfMiQVYKC7v
+rhrQpUs4OK0qrM8LloMeQ+L+Alg2TpceI+lSE/vbWp+XNY0/rO2YOypmV1rb
+AwDT48aWHlwcrurh0YvZnetbPa25PYseRfNjFmsgAUD+uP7VZ2mvVeOzs7bR
+yC/oURw/6jy7wtomAMgfF+8P6VLdr1rV/Fv0KKovD2tv3wDAdUh7bv0qa0Kg
+R1F96ceGP1vbAwDzwsVZDlqTrO1KeP7oUTxf+u2bytoeAJgfEp5/W1rblejc
+0aN4vkSPAOBmejTpwdquBOeNHsXzJXoEAFEIxO4OSx9LQo+i+rL0c2Os7QGA
+eSPdufY7a5smPl/0KJ4vn9Zy3wBAGlSe1KL7SOhRND/erS3WCzAn5FRHYXZ1
+TKW7Vi01m2GQQL96Y20TALzg2oyHmWqS30faW9sDeaNidauZLwAwJ9wY7+w0
+yfXt/PburOyHdATula21TQDQxYt9Heb2nBKzg3O4GMB+LeONAHNHPa9ba3su
+sNuP2ZXW9kx0juQz3Oa/knYLwHyon9E5xjNkBfMb0aObfKfva8aNADInkAs7
+C01S75tFrmmDHkW5N5o4HWOMADNAwmu77qztOmNz4dtrbc9E5zj7c3PXqdaH
+zxJem7Hu524lQg62a1uF7mXmGwHMBOnmID3HOHJtV6JH+eLup1K6tdnPsXe6
+tbnimNue422t/QEAlyH9a7NmOQ6MHuWH9K+leA2V219vPpycahp+6DlmrU2F
+tU8A4HJcu/Tc+2Fjbadn787vx1nbM9E5zkKPXNtA11/X2lC5e2zn8SjtPMmh
+flOlGOp7ZXWvAsBlSH/MTr9XsugrCfl1WSDhdXz92NuoeK+8xPhu6VPVx9xa
++wQAbqNuT17w3Ju3P9Ejc9v6cgdu0gS33zoGN9Tf0tR2kLMAsCDksti/6Roy
+6JGpXaH1EWt2ExynkHaMr6HWrMLaFwAwDYH27v+5/y+tbQvYuvj5R7ki3TGf
+uh2TZR4mAMwT6c4j/Bfvv7MYN/JsLZSt1CVL43ed9/KE7wEgNuodf3Dxkq33
+XTYxeunWldha27R0pJvzghYBwGSExgLkJe8pq7oragzDdDyrx757p/FFTn67
+8lxCtbJnfU4AkDfe2MBdz/fZ1OwPxBc3hrYUbpy9kuG5Mc1cnHrbwtqHF5zf
+Tp1HVvFbAFgebnygDHzv51RlEaeRbo56x+4Ex9/JbTUJDtJTI6fZJgM/N2sJ
+LzqfEQDywrXzNz2/bbz3Ui6aVKr3e5HgmHdyvp7FNZS+TzPSI90PndzHAADn
+kNOYSKNJ5mM2SiMnjyfKaUy/Lx53cJryQeu6s7Nwv5UDfarnGhgZ6ZE/TldZ
+2wMA0KA0qczAns7aa7E1yfWJdF/M79cUV+yzGNjn81wwY99ulF1b6+sNAOAj
+7TzwMgN79FzeJ4mU3yD99QgeYxzDvfNDtXdy0KOtssc8RgsAoMlJk3o0o+7D
+3TRnyvVhdHzu5v1ecCxTDVD9t8r6ngMA6GMGmvTrPXppPM31WUKxtGj9rgvO
+wSx3RNrjXDvr+w0AYIgMNSmkI817vbcOp9Og7UDsrEqhCz2alNyvchon9G3I
+pj4HAEAfSpMeLWNMzp6hPDg/7lbJ+flDydd9km49pOR6oHSdmrUAMBucJmUz
+P8m903cjdGmI+p28MbI/pItJfCrGc40BAG5F2rng5prk2dXE4cZoU91n+pCD
+7dKtYfo50XF1zHJj7QsAgEtRmpRd3U15mZu6lZf13ep/F9a29dhbpYzbSTfH
+u7T2AQDAtbh3fjMmP0l+9FqQcA2KSTRetSWSxggBAKZCunli1IS+3pe6zxJd
+kyQ8/4l2BAAsBmnnaZW0t0f77ZfPevwYtd8p3ZpLNTtrHwAAxEa97yadU7oU
+tB6577QmNfn1V/nT9Yn0+BRjRgCQBcfP6yMfPX4c+RRhv348iDGl8/7q6JH7
+vm+ti3KMT+VlHfqQDhFXBQBznPb05UC/iXSMjRpTSpK/PEf69Mj9dm6+b+V0
+a+dRSrieUsNeMs0xBID1cvx8895TPybYv9/Gr9+RWeWE58CQHrnfh2ojXcLB
+6RXjegCQHcfPF+99dXOsrucYfhs/eU2e3DmnR952G6fv+wt1qKnnhw4BQLYc
+P9+999a7CY9zJ+1xjPq/N9bnnwNj9Uj9zb3TmM/Ol5q6H7TFxwAwB46fN1PG
+6nqO+YG+UscnF+sRAMCSkHZew28Jj7sJ9JVWO66EHgHA2pF2LsNksbqB4/t9
+pZ9rHWtHjwBgzRw/r9SY9ysjO+q+kl9juh6rL6z9k9gH6BEArJa6P2QRqxuw
+p/DyxgprewAAIA21Bnl69N77/msgX9jn9cR2UcsBAGBFyKk2UG+sTuU6fLUY
+XwIAgGVz/Lz1taZnm2ae7EdrewEAYJkcP588PerojbzUVn1rbesaIJ8BANaK
+yvN+rX77zf0+6TgRtHyOHgHA6pDTGhONFn3zvn/lxom+WuV+AwDAelB5Ch/d
+d3XdoO855H0DAMA6UHneb9Q8JPpFAAAwOaomw3eV10AuHQAAJEH1hX66vAV/
+/aPv1jauDVeX4ldNWWtbAABSofpDX9x3uo4dOd5prwl6BACro68mgxpT+mJt
+55pAjwBgbUh77b1v6je/XsMP8hqSXpfS+X1vbQsAQApUnvenwO/+uuXkNaS7
+Lk0M9V+tbQEASIGcWXvv+Hnfl9fg5tB2NAyiXJed8/nO2hYAgKkJ5CyE6nm/
+UuNLb73fvpDnMNm1KdEjAFgLqu8TrOfttvNjet+dRr0nx2HSa1MJaxACwEpQ
++XO9Y0NOf/xxpGddsj6HpXL8fHB9pI21LQAAU6PicG/ObPvG06Rax6jzDQAA
+AAAAAAAAAIvm+Hmo58Ae2VrbAgAA64W6DAAAYM3xc3fk4PRoa20PAACsk1qD
+6BsBAIAlrm+0Zw4sAABY4tWre7S2BQAA1snxc++0qB47urO2BwAA1gdxOgAA
+sMZp0RN1vAEA1kNu+dNKi0prewAAYHqOn8/uvV/lMj7j9KhEiwAA1kM9LuPN
+M637JPfWNgEAwDpxOWyNJtX//5D4+E18bmvtCwAAsMVpQuX0aJPwuIWXQ7e3
+9gMAAORBqnid65M9emseHsijAwCAIZraCK6G3OaG/WzcPp60DuWSSwEAAPni
+9OKgNKRy329dzK3Qc1ZdDPDB5fD5GvTTxejQIQAAuAjXt9l5Yz1B1N80edu+
+BpWp8yUAAGCZuLGfnesjaX2ivwOQEf8P4ylDsA==
+        "], {{0, 308}, {420, 0}}, {0,
+         255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{114.49609375, Automatic},
+      ImageSizeRaw->{420, 308},
+      PlotRange->{{0, 420}, {0, 308}}], "=", 
+     RowBox[{
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], "i", " ", "g", " ", 
+        SubscriptBox["m", "W"], 
+        SuperscriptBox["g", "\[Mu]\[Nu]"], 
+        FractionBox[
+         RowBox[{"-", 
+          RowBox[{"i", "(", 
+           RowBox[{
+            SubscriptBox["g", "\[Rho]\[Mu]"], "-", 
+            RowBox[{
+             SubscriptBox[
+              RowBox[{"(", 
+               RowBox[{"k", "+", "p"}], ")"}], "\[Rho]"], 
+             RowBox[{
+              SubscriptBox[
+               RowBox[{"(", 
+                RowBox[{"k", "+", "p"}], ")"}], "\[Mu]"], "/", 
+              SubsuperscriptBox["m", "W", "2"]}]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "W", "2"]}]], "i", " ", "g", " ", 
+        SubscriptBox["m", "W"], 
+        SuperscriptBox["g", "\[Rho]\[Sigma]"], 
+        FractionBox[
+         RowBox[{"-", 
+          RowBox[{"i", "(", 
+           RowBox[{
+            SubscriptBox["g", "\[Nu]\[Sigma]"], "-", 
+            RowBox[{
+             SubscriptBox["k", "\[Nu]"], 
+             RowBox[{
+              SubscriptBox["k", "\[Sigma]"], "/", 
+              SubsuperscriptBox["m", "W", "2"]}]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SubsuperscriptBox["m", "W", "2"]}]]}]}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->412072835],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"iM1", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"\[ImaginaryI]", " ", "g", " ", "mW", " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]], "*", 
+     RowBox[{"-", "\[ImaginaryI]"}], 
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Rho]", ",", "\[Mu]"}]], "-", 
+       RowBox[{
+        SubscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "\[Rho]"], 
+        RowBox[{
+         SubscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "\[Mu]"], "/", 
+         SuperscriptBox["mW", "2"]}]}]}], ")"}], "\[ImaginaryI]", " ", "g", 
+     " ", "mW", " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], "*", 
+     RowBox[{"-", "\[ImaginaryI]"}], 
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]], "-", 
+       RowBox[{
+        SubscriptBox["k", "\[Nu]"], 
+        RowBox[{
+         SubscriptBox["k", "\[FinalSigma]"], "/", 
+         SuperscriptBox["mW", "2"]}]}]}], ")"}]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "mW"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "mW"}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1218217789],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       SuperscriptBox["g", "2"], "4"]}], "-", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["g", "2"], " ", 
+       RowBox[{"p", ".", "p"}]}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox["mW", "2"]}]]}], ")"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "mW"}], "]"}]}], "+", 
+  FractionBox[
+   RowBox[{"\[ScriptD]", " ", 
+    SuperscriptBox["g", "2"], " ", 
+    RowBox[{"PVA", "[", 
+     RowBox[{"1", ",", "mW"}], "]"}]}], 
+   RowBox[{"4", " ", 
+    SuperscriptBox["mW", "2"]}]], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["g", "2"]}], " ", 
+      SuperscriptBox["mW", "2"]}], "+", 
+     RowBox[{"\[ScriptD]", " ", 
+      SuperscriptBox["g", "2"], " ", 
+      SuperscriptBox["mW", "2"]}], "-", 
+     RowBox[{
+      SuperscriptBox["g", "2"], " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["g", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"p", ".", "p"}], ")"}], "2"]}], 
+      RowBox[{"4", " ", 
+       SuperscriptBox["mW", "2"]}]]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "mW", ",", "mW"}], "]"}]}]}]], "Output",
+ ImageSize->{399, 75},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->873563192]
+}, Open  ]],
+
+Cell[TextData[{
+ "Compute the discontinuity function, explicitly restoring the factor of ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    FractionBox["i", 
+     RowBox[{"16", 
+      SuperscriptBox["\[Pi]", "2"]}]],
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ " (factor of ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox["i",
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ " cancels that in ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    StyleBox["i",
+     FontColor->RGBColor[0.6666666666666666, 0., 0.]], " ", 
+    SubscriptBox["\[ScriptCapitalM]", "1"]}], TraditionalForm]], "InlineMath"],
+ "):"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1755806339],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"disc", "=", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"16", 
+     SuperscriptBox["\[Pi]", "2"]}]], 
+   RowBox[{"LoopRefine", "[", 
+    RowBox[{"iM1", ",", 
+     RowBox[{"Part", "\[Rule]", 
+      RowBox[{"Discontinuity", "[", 
+       RowBox[{"p", ".", "p"}], "]"}]}]}], "]"}]}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->144428150],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"\[ImaginaryI]", " ", 
+   SuperscriptBox["g", "2"], " ", 
+   RowBox[{"HeavisideTheta", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      SuperscriptBox["mW", "2"]}], "+", 
+     RowBox[{"p", ".", "p"}]}], "]"}], " ", 
+   SqrtBox[
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["mW", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}]}], " ", 
+     RowBox[{"p", ".", "p"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"12", " ", 
+      SuperscriptBox["mW", "4"]}], "-", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["mW", "2"], " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}]}], 
+  RowBox[{"32", " ", 
+   SuperscriptBox["mW", "2"], " ", "\[Pi]", " ", 
+   RowBox[{"p", ".", "p"}]}]]], "Output",
+ ImageSize->{526, 45},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->169574018]
+}, Open  ]],
+
+Cell[TextData[{
+ "The width is ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[CapitalGamma]", "=", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"-", "i"}], "Flux"], " ", 
+     RowBox[{"Disc", "(", 
+      SubscriptBox["\[ScriptCapitalM]", "1"], ")"}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", where ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"Flux", "=", 
+    RowBox[{"2", 
+     SubscriptBox["m", "H"]}]}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1883271144],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"width", "=", 
+  RowBox[{
+   RowBox[{
+    FractionBox[
+     RowBox[{"-", "\[ImaginaryI]"}], 
+     RowBox[{"2", "mH"}]], " ", "disc"}], "/.", 
+   RowBox[{
+    RowBox[{"p", ".", "p"}], "\[Rule]", 
+    SuperscriptBox["mH", "2"]}]}]}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1647677845],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SuperscriptBox["g", "2"], " ", 
+   SqrtBox[
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["mH", "2"]}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["mH", "2"]}], "+", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["mW", "2"]}]}], ")"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["mH", "4"], "-", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["mH", "2"], " ", 
+      SuperscriptBox["mW", "2"]}], "+", 
+     RowBox[{"12", " ", 
+      SuperscriptBox["mW", "4"]}]}], ")"}], " ", 
+   RowBox[{"HeavisideTheta", "[", 
+    RowBox[{
+     SuperscriptBox["mH", "2"], "-", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["mW", "2"]}]}], "]"}]}], 
+  RowBox[{"64", " ", 
+   SuperscriptBox["mH", "3"], " ", 
+   SuperscriptBox["mW", "2"], " ", "\[Pi]"}]]], "Output",
+ ImageSize->{491, 43},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->229225533]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell[TextData[{
+ "Since Feynman integrals are real analytic functions of their arguments, the \
+discontinuity across the normal threshold cut is ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"2", " ", "i"}], TraditionalForm]], "InlineMath"],
+ " times the imaginary part of the Feynman integral:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->36146205],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"boxfull", "[", 
+    RowBox[{"s_", ",", "t_", ",", "m_"}], "]"}], "=", 
+   RowBox[{"LoopRefine", "[", 
+    RowBox[{
+     RowBox[{"PVD", "[", 
+      RowBox[{
+      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       "0", ",", "s", ",", "t", ",", "m", ",", "0", ",", "m", ",", "0"}], 
+      "]"}], ",", 
+     RowBox[{"Part", "\[Rule]", "All"}]}], "]"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"boxdisc", "[", 
+   RowBox[{"s_", ",", "t_", ",", "m_"}], "]"}], "=", 
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{
+    RowBox[{"PVD", "[", 
+     RowBox[{
+     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+      "0", ",", "s", ",", "t", ",", "m", ",", "0", ",", "m", ",", "0"}], 
+     "]"}], ",", 
+    RowBox[{"Part", "\[Rule]", 
+     RowBox[{"Discontinuity", "[", "s", "]"}]}]}], "]"}]}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2139147669],
+
+Cell[BoxData[
+ RowBox[{"ScalarD0", "[", 
+  RowBox[{
+  "0", ",", "0", ",", "0", ",", "0", ",", "s", ",", "t", ",", "m", ",", "0", 
+   ",", "m", ",", "0"}], "]"}]], "Output",
+ ImageSize->{245, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->488209187],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     SqrtBox[
+      RowBox[{"s", " ", "t", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "-", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"], " ", "t"}], "+", 
+         RowBox[{"s", " ", "t"}]}], ")"}]}]], " ", 
+     RowBox[{"HeavisideTheta", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], "]"}], " ", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "4"]}], "+", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"], " ", "t"}], "-", 
+           RowBox[{"s", " ", "t"}]}], ")"}]}], "+", 
+        RowBox[{
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", "s"}], " ", "t", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "4"]}], "+", 
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"], " ", "t"}], "-", 
+             RowBox[{"s", " ", "t"}]}], ")"}]}]]}]}], 
+       RowBox[{
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "4"]}], "+", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"], " ", "t"}], "-", 
+           RowBox[{"s", " ", "t"}]}], ")"}]}], "-", 
+        RowBox[{
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", "s"}], " ", "t", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "4"]}], "+", 
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"], " ", "t"}], "-", 
+             RowBox[{"s", " ", "t"}]}], ")"}]}]]}]}]], "]"}]}], ")"}], "/", 
+   RowBox[{"(", 
+    RowBox[{"s", " ", "t", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "4"]}], "+", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"], " ", "t"}], "-", 
+       RowBox[{"s", " ", "t"}]}], ")"}]}], ")"}]}]}]], "Output",
+ ImageSize->{503, 117},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1944274369]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"2", "*", 
+      RowBox[{"Im", "[", 
+       RowBox[{"boxfull", "[", 
+        RowBox[{"s", ",", 
+         RowBox[{"-", "6.3"}], ",", "1.0"}], "]"}], "]"}]}], ",", 
+     RowBox[{"Im", "[", 
+      RowBox[{"boxdisc", "[", 
+       RowBox[{"s", ",", 
+        RowBox[{"-", "6.3"}], ",", "1.0"}], "]"}], "]"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", "0", ",", "30"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1185176277],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnft7Elcax+fZ3R/239h/gP+A6FjtxWpp7cV2N+22ttJu2+3GXIzESxWr
+Fi8DA7mQmIQkiqZJ3IiNolY0UqtoxVTURVvUeMGaUVHH6qi0j/sOtwwBBphz
+CCQ5nydGMjPnzAn58p7zzvuec/624D/ztH+iKKrqr/Bt3ge1dGXlB7rX/wI/
+zNBVL1zwZ3ixCP4NwD/x9TOlUBEUFydMYogwCJnApY3er3c1qxdt/rwNS20E
+vAy7WFoFf2qNh09/QcjDUlS5N/kslj7Fe+AsCOP0IT98b/mMyKPkCHrdbrdd
+RdHptSH4NKIKNKnaQL+1Vdvc/K/N8OLGJc6irj7c40Gvk4CZsJdOrw2ht5zS
+6A10ilXBog1m5vJju7zR1wMN+4103RPhKXq1BJwI6bURdOkolZUP+zUU7RWS
+TlFxlN/z4eMm9aInj0fFYJy7ZkvddsUVEgpCWm2EPDAMMbiHOX8vaMDu46Qn
+sQw2jDPqpEfOn7hoLqu+HbyLWDMBJ+m0wftsKkpFq1RxC6H1SUwHujZ2mpym
+19ePOVj/nqXpoybEmgk4CXloSuUOhSM/CF6HzeGVWInIaCRtn4Jyz/aqruZP
+WsYcDF4cgUHppTPXUGom4MJnLU8MHlhvCAwGC/aC9Y5eIVoV/H5K/btm+5c9
+qcfBmWXnM4iVE4oIujaY2frd1gOpx+/dfmAuqzlz5AJi/YRigUEbs5af2PNT
+2lNblnYzc75CrJ9QLNDHG+y02stnr6c99UR4apq+5OC2H1DqJxQLdLvRoK58
+yD/KdPbb+n3Mc0v/+OMPxLsQCkdY4HleSD2OqI3f7j8Cbchfwzy/om/9LpS7
+EBDJHGvj7QkPhtb5sMbarvhvsNMWy19zbJcXrpGxLYRCkznWJgR8/ojJCOop
+SucKSs8h2o3Th/1jHoqmxfSaob2yE+VGBFQyxtqiCDaa0tj80kOI2jjS/yPz
+4sqsl8Fg1aKuDvx0BeVeBCQyxNpiJwN2UIIjGJYeRIy17WsfNM5dk8uV7VVd
+OV5JKAiZtSEExECbwR0ccxzRbvSb9pje3JDLleDPGmmdc/NBlNsRlJNJG5wL
+Rqk2XxrRIGqjW7/D8g9TjhcPdh9jp9WCa4NyR4JC0sfaQjYNRVU4QgIfCoV4
+rLG2ziXbmhZac7/e9Pr6aIYYYTzJGGsTvKMnwMW1+qSlEO1G6xe2vPKHR67e
+MZfV/LDzJMpNCeMDojas2uaOxVvzKrLbesA0fcmDuw9R7ksYBxD7lPr3LFuX
+fZNvKXb+Jiio+KaE8QHRbpjfZnrW7cy31J2b99lpiw9tO4pya0KhQdQGjC0d
+rFNBQZf9CMjj5pXbKHcnYEIAHyWcchRRG0bNWmerwkcWMIhlXlr19ElqowiY
+kZnXFg66NdGBhUrnx+rDMi+vBgugrOzv4d+Z2Xri0o4DMrG2RBjFrVdRerf0
+HKLdYF5Y+X3fCcXFoU+BnmVv2yBKGwg5kTbWJoymlws+lqL00gkqqNqYtfyE
+8zRKDUcdXnNZ9VmSVlpo0j4zlx4MOqnkCxBjbcYZdacP+bNfJwuMZsF6XLtw
+E7EeghxZtcG5UrWBckMjveSC9zJKDVHaKzuZmcvuh35Dr4qQnszaKFCfAp93
+XBOUzO8YGxc0kMzSQpE+1sbDWFTbG4BDHgNN6VzSEoh+irms5sYlLvt1OSAG
+8eeuMc0zEK8WOzLz2sJBV8yHpdL4sCg3tair79y8j1KDFOHhY3CK2Tc3gnuL
+q05CdsI8x4VSE80RtdGorsQbNXvIP2JeWtWsXkQ6l6KD2KeMWXkDC2A0wP0x
+vbEBe82EvEARBny0QRsYG5Pg0YPHMPZg5q6BXqYQ9RNyAUUbYP8bs01cUgwY
+DfatTcyLq7jrdwp0i6mFwI/N+RslzIdCQooHgKKNe7f4enWV4uJZEe3SR02m
+6UvOHv2lcHeZCgTdbDye5hgbUeE82rgLY0iZu6RYHiNX74CforC5OdO3fpel
+rFpxRI8QXSLSJjqonIGi9O6kZw4+8GYrxBAb59ZRtE1qWVDsRvDiCFtWo7h4
+7vyw8yRbtrijZitxXhTAiw882ai58LE0pUsKtgbs5RRtBbn4beW0dCUfNG1c
+Pns962RYXFw6c415fgUMUG/fIEvM5YdUG+KKkRQbkp4WH5tH0Q4nF0SJtf18
+6rJpeq3SJucNjE7F4ce02iP9P47bTScBUm1wKdoI9FZQtN5u1YnisGGzG/7j
+ASOtU1xcGXvbBs1lNdaPm4l7myO8l6VU0j5FGjTh9BRlHxZdFE5c0lzjxbSG
+pM99PpdJ9Ni5eeW28dV1cOuhQ+fG/+4Tj8hYtDcAAuBg4KlzcZJYG5dYWkHw
+2yiq3C/xZFH8lFOuc8xzS7E0XwE7Ng6AAWlaaCVTXbISdBliPmxF1IcdjbUF
+nJFTkdVn9c6AtBSK3Ti57wwzczlaq5H4dfgW+9YmGA/vaydZhVkI8yGOy7DC
+ghhr41ITzVG04RkYYmYVUxtRBruPwbCHmbOaJBbiBaVPERdmeeFLrM1RCLgw
+W+q2W8qqGz5oAGNS7OZMElDsxuEeTy6L9owb3PU7oA2Lurrl09Z7tx8UuzkT
+HhRtHNp2lJmtx9gYLFw6c838NgPD1LaKjrsj2PKOJjxysbZnvLj4xtgBB0qf
+cqDre+bl1crKFhr/8QA7fxPYkM2ft41cneqRXLlYm+DX0zFHBeMzc/AOSnxJ
+6sDQsKWcrVdX1b9rxpIPPyGRjbU5tXDIFTEZQig5MRBFG3vbBo2vrFVcfNy4
+cYlr+azNXFZtnLtmf4c7e4HJhVysLSIbJxcOp5ssjaKN3dYDRs0E0EaUh/yj
+nrX9zMxl4PB2LN46ddwZuVib4BWTzOP7Llk9afI3lCnk2/p9xle/Rmp3MfAM
+DMFgFToa0zwDmJFJP+VBLtYW0YY+8sx82FGRuCwKit1wsE54exUXLy7gwmxf
+1cfMWgEeTeOHTZM4NCMXa+M94uT60XltSSFaFG30G/ek7tQ24Th/4mLLp62m
+6bXQ14BTAw5OsVuEG7lYG29VUeWReW1BZ0Vq3pdiefRv2s2+uRFH60sC6Gsa
+FzSy0xYbZ9TB2HUyWRKZWJsw7Izn9tAOf5KDi2I3+tbvYt/ahNbqUgREYl1o
+NdJLQCf171kOdH3/6MGEzxXJGmvDO6+td51jcu/Wd/bIBVvVFubFlTBwBf/X
+vrJ3Sj0kQelTvlnTb37HiLc9pcnt4N2dJid4N2xZDYxM6t81wzh80nvBKHaj
+e/UOy99zXcx80uBzn9+ytNv4ylowJsxzSxv+Wb/Lsg/XYgIlBYo2wAeETxDG
+xkwsnj4Jn3Ce7li8FXRiUVfD+AQMS/dX/dATleJcCdlYW1pQ+hT7lz1TWRtj
+OH3YDx8WGJybpi8RTcpsPXjEzs0HgxdHit002VhbhJCYSFyOcV/prcu+IUtP
+p2Xk6p29bYPgCDNzVoNJYafVGjVrW7+w7bcNXv9l3Jc1k421JS6gsO45Dt1u
+w/v1iotPHQJDwzAmsX7czLy82lJWbS6rYeZ8BW7yfzcOgLUp9FIS8vPaQBm9
+5ZRGb6BTVqZF0kbd9ob3GxQXn7IM/+86WJX2RZ2meQYjXdeorhTXG3l9PRwZ
+aPru3LFf8C5bJD+vTTyisvJhvya+KFwClFhbp25b4wKiDVQePXjsPXB2x8aB
+5o9bYFgLw5WoWoyvfQ29Ehw/PjB071bGDRqzIhdrC3lU4k5tw5xf3LLN7kvq
+blDsRmetvfHDJsXFCZkAtZxyndtpcrb+ux3sCTNzGQxuxZ7ohZXmd4xgXhys
+0/vdmRwzHmVibbzPpqJUdDxGT1FaH6Z5beC+WbXNiosT8uLahZuHezw9a/th
+3AImBQTToK6EgS4za4XpjQ3Nn7RsW9mXvqRcrC1OeHSh0QQoPqytagvRRnH5
+dfiWZ2Co37gHjAk7P2NsSybWFkOcTY/TT2mv6gINKy5OGE/kYm0ZQNLGok4w
+ZYqLE0oclD6lXdfdXNGFtz2E0gHJT+nwbm5RvnkKocRB8lNs3tbNRBsThMyx
+trDA8+lOofQpHbaTba1keaUJQOZYG29PrIJP63z4/BRbO9HGREAu1iYEfNHd
+D4KJBXwSIPkpbT/Cl+LihPEhW6wtyuimfglQtAFGA7oVxcUJ40OWNSQjCAE7
+KMERTJrGhRJrA210dXqzX0coKvJrSD4ThSEG2gzu4JiCKHYDHFhwYxUXJ4wP
+smtIinJRwWjEl+aRKYo2WpqPE7sxAZCLtYVscK7CEQIPNzTWx0XxYUEbW7pO
+YWg8ocBkjLUJ3tGN3ChKY/VJS6HYjWYr0caEYZxjbaCNbfYhxcUJJQ5Kn1Jv
+Odq9HWnDcUIpg2I3TMYjfX1nMDaGUFKgaGPD+sOOnZNnIQLCGFD6lHVrD+3e
+fR5vewilA4rd0K9y7d/3M5aqUsFYG2kYlgrz/fHQwYtYqkJvCa4fJ82tlUER
+JjvoIonqpEFdFf+qjHylvkj6qo98LVUvZ9XVN24on29FKHFwaYxAIBAIhBIn
+khxd9DWlw2Ie9phW5L9EUqyuDEndihAbltqydOvWF43I9pExxuzBkSvhYVar
+SS4edrOaaJ06R35rBQvDLi0tzg1nvSHEFsYKRiaa63pjIeysSyRlIE1St/K3
+TrJMPa13RtUWDro18Zb5cQkQjUjWmc4fCnEcp1Cz8Fu5PL06lcoQe39GtysV
+E5NU7tQcx8wIQa/L7dZRlCGuDcUtFLiAPyi+y5xbTMSObKSabYmkzJWlJnUj
+vHVCLObOOUEKbvHlaD6wW6+CluVTW6GQZiSi4GPphDYkrwWritLl8Sd4liiV
+rA2kFgp+q6hVIce07SyVJf6IGN66oIOitGJWlzC6TkJk4Xp9KaxryfusUUum
+ZV0ov6ZXog3J67C47JDBk2+j2CRtILZQ6NVSVIUznFvadpa6JEndKA0TAs6K
+crEPiW5yEdVGbM2uIBgT2lMSD5/CYQGsr7sCPlp25fsIZNDGM3RtoLWQF7cW
+URmiedhZ07blSUnqVt6wMB/0ed02HchDl7AbnnjLSkYbMfw2DVXeq3gQ5EvS
+hiq+eIi4j0MkAzYveGuSNpS30AV9d7k98TZnSduWJ3NSN8JbFwRdGTyh0uxT
+QPuR/wSHuDFcvh/wUcBWJEZQgmhsK8SPQ8hNU6q8pfEsxKokA0WlLYzafEcg
+logdbVlK2nauTUqT1K38rRNiVUT0Zg/Aax6GMdrIZigeQ56iLRjiRynmOlV4
+OEV+ijThWWON/A3CbkPMIavo9Wcrn9yeeCcuVhYxPopb6LMmJWJHP5Upadv5
+/47xpG7lb51oJWLONa2PNSMcdMXeMqpUfNhYFnMIf/cG1WJ6kIO5hQrStuVq
+UtQwGKmEUj1fcTOUUKnogkAgTEz+D2VlS5s=
+    "], {{0, 113}, {180, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{180, 113},
+  PlotRange->{{0, 180}, {0, 113}}]], "Output",
+ ImageSize->{184, 113},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->37823203]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->236510286],
+
+Cell["\<\
+Only 4- (and higher point-) functions have nonvanishing Mandelstam spectral \
+functions:\
+\>", "ExampleText",
+ CellID->645443497],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"PVC", "[", 
+    RowBox[{
+    "0", ",", "0", ",", "0", ",", "0", ",", "u", ",", "s", ",", "m", ",", "M",
+      ",", "M"}], "]"}], ",", 
+   RowBox[{"Part", "\[Rule]", 
+    RowBox[{"Discontinuity", "[", 
+     RowBox[{"s", ",", "u"}], "]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1856850706],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1444390114]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"PVD", "[", 
+    RowBox[{
+    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "s", ",", "0", ",", "u",
+      ",", 
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"], ",", "m", ",", "m", ",", "M", ",", "M"}], 
+    "]"}], ",", 
+   RowBox[{"Part", "\[Rule]", 
+    RowBox[{"Discontinuity", "[", 
+     RowBox[{"s", ",", "u"}], "]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->709500310],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+    RowBox[{"HeavisideTheta", "[", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "4"], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "3"], " ", "M"}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         SuperscriptBox["M", "2"]}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "-", 
+        RowBox[{"2", " ", "m", " ", "M", " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "u"}], "-", 
+        RowBox[{"2", " ", "m", " ", "M", " ", "u"}], "-", 
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "u"}], "+", 
+        RowBox[{"s", " ", "u"}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "4"], "-", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "3"], " ", "M"}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         SuperscriptBox["M", "2"]}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "+", 
+        RowBox[{"2", " ", "m", " ", "M", " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "u"}], "+", 
+        RowBox[{"2", " ", "m", " ", "M", " ", "u"}], "-", 
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "u"}], "+", 
+        RowBox[{"s", " ", "u"}]}], ")"}]}], "]"}]}], ")"}], "/", 
+  RowBox[{"(", 
+   RowBox[{"\[Sqrt]", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "4"], "+", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "3"], " ", "M"}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         SuperscriptBox["M", "2"]}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "-", 
+        RowBox[{"2", " ", "m", " ", "M", " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "u"}], "-", 
+        RowBox[{"2", " ", "m", " ", "M", " ", "u"}], "-", 
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "u"}], "+", 
+        RowBox[{"s", " ", "u"}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "4"], "-", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "3"], " ", "M"}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         SuperscriptBox["M", "2"]}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "+", 
+        RowBox[{"2", " ", "m", " ", "M", " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "u"}], "+", 
+        RowBox[{"2", " ", "m", " ", "M", " ", "u"}], "-", 
+        RowBox[{
+         SuperscriptBox["M", "2"], " ", "u"}], "+", 
+        RowBox[{"s", " ", "u"}]}], ")"}]}], ")"}]}], ")"}]}]], "Output",
+ ImageSize->{551, 72},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->641445825]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell["\<\
+Channels of Passarino-Veltman functions are identified by matching to entire \
+arguments only, and Passarino-Veltman functions for which none of the \
+arguments match are assumed not to exhibit a cut and therefore dropped:\
+\>", "ExampleText",
+ CellID->702356224],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"PVB", "[", 
+     RowBox[{"0", ",", "0", ",", "t", ",", "m", ",", "m"}], "]"}], "+", 
+    RowBox[{"s", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"4", 
+         SuperscriptBox["m", "2"]}], "-", "s", "-", "u"}], ",", "m", ",", "m",
+        ",", "m"}], "]"}]}]}], ",", 
+   RowBox[{"Part", "\[Rule]", 
+    RowBox[{"Discontinuity", "[", "t", "]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->26149069],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   SqrtBox[
+    RowBox[{"t", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]], " ", 
+   RowBox[{"HeavisideTheta", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      SuperscriptBox["m", "2"]}], "+", "t"}], "]"}]}], "t"]], "Output",
+ ImageSize->{299, 39},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->511669360]
+}, Open  ]],
+
+Cell[TextData[{
+ "Make sure all instances of Passarino-Veltman functions depend on the \
+channel variable in the same way, or use ",
+ Cell[BoxData[
+  ButtonBox["Alternatives",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Alternatives"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (",
+ Cell[BoxData["|"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") to match multiple forms:"
+}], "ExampleText",
+ CellID->156130592],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "0", ",", "t", ",", "m", ",", "m"}], "]"}], "+", 
+     RowBox[{"s", " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+        RowBox[{
+         RowBox[{"4", 
+          SuperscriptBox["m", "2"]}], "-", "s", "-", "u"}], ",", "m", ",", 
+        "m", ",", "m"}], "]"}]}]}], "/.", 
+    RowBox[{"u", "\[Rule]", 
+     RowBox[{
+      RowBox[{"-", "s"}], "-", "t", "+", 
+      RowBox[{"4", 
+       SuperscriptBox["m", "2"]}]}]}]}], ",", 
+   RowBox[{"Part", "\[Rule]", 
+    RowBox[{"Discontinuity", "[", "t", "]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1327330084],
+
+Cell[BoxData[
+ RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+  RowBox[{"HeavisideTheta", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "4"}], " ", 
+     SuperscriptBox["m", "2"]}], "+", "t"}], "]"}], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    FractionBox[
+     SqrtBox[
+      RowBox[{"t", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]], "t"], "+", 
+    FractionBox[
+     RowBox[{"s", " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["t", "2"]}], "+", 
+         RowBox[{"t", " ", 
+          SqrtBox[
+           RowBox[{"t", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]]}]}], 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["t", "2"]}], "-", 
+         RowBox[{"t", " ", 
+          SqrtBox[
+           RowBox[{"t", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]]}]}]], "]"}]}],
+      "t"]}], ")"}]}]], "Output",
+ ImageSize->{473, 122},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->538277997]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"PVB", "[", 
+     RowBox[{"0", ",", "0", ",", "t", ",", "m", ",", "m"}], "]"}], "+", 
+    RowBox[{"s", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"4", 
+         SuperscriptBox["m", "2"]}], "-", "s", "-", "u"}], ",", "m", ",", "m",
+        ",", "m"}], "]"}]}]}], ",", 
+   RowBox[{"Part", "\[Rule]", 
+    RowBox[{"Discontinuity", "[", 
+     RowBox[{"t", "|", 
+      RowBox[{
+       RowBox[{"4", 
+        SuperscriptBox["m", "2"]}], "-", "s", "-", "u"}]}], "]"}]}]}], 
+  "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->846705132],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+    SqrtBox[
+     RowBox[{"t", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "4"}], " ", 
+         SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]], " ", 
+    RowBox[{"HeavisideTheta", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "4"}], " ", 
+       SuperscriptBox["m", "2"]}], "+", "t"}], "]"}]}], "t"], "-", 
+  FractionBox[
+   RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", "s", " ", 
+    RowBox[{"HeavisideTheta", "[", 
+     RowBox[{
+      RowBox[{"-", "s"}], "-", "u"}], "]"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s", "-", "u"}], ")"}], "2"]}], 
+       "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s", "-", "u"}], ")"}], " ", 
+        SqrtBox[
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"s", "+", "u"}], ")"}], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s", "+", "u"}], ")"}]}]]}]}], 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s", "-", "u"}], ")"}], "2"]}], 
+       "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", "s", "+", "u"}], ")"}], " ", 
+        SqrtBox[
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"s", "+", "u"}], ")"}], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s", "+", "u"}], ")"}]}]]}]}]], 
+     "]"}]}], 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "4"}], " ", 
+     SuperscriptBox["m", "2"]}], "+", "s", "+", "u"}]]}]], "Output",
+ ImageSize->{466, 120},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->759526588]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->57570938],
+
+Cell["\<\
+If multiple arguments of a Passarino-Veltman function match the channel \
+variable, the Passarino-Veltman function is dropped:\
+\>", "ExampleText",
+ CellID->1227113816],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{
+    RowBox[{"PVD", "[", 
+     RowBox[{
+     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+      "0", ",", "s", ",", "s", ",", "m", ",", "m", ",", "m", ",", "m"}], 
+     "]"}], ",", 
+    RowBox[{"Part", "\[Rule]", 
+     RowBox[{"Discontinuity", "[", "s", "]"}]}]}], "]"}], "//", 
+  "FullSimplify"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->56166001],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopRefine", "::", "discmult"}], "MessageName"], ":", 
+  " ", "\<\"Warning: Multiple occurrences of channel variable \
+\[NoBreak]\\!\\(s\\)\[NoBreak] found in \[NoBreak]\\!\\(PVD[\\(\\(0, 0, 0, 0, \
+0, 0, 0, 0, s, s, m, m, m, m\\)\\)]\\)\[NoBreak] and will be dropped. \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/LoopRefine\\\", ButtonNote -> \
+\\\"X`LoopRefine::discmult\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1788682527],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1911140583]
+}, Open  ]],
+
+Cell["\<\
+Be sure arguments of Passarino-Veltman functions have different forms if only \
+the discontinuity across the normal threshold cut is desried:\
+\>", "ExampleText",
+ CellID->447777016],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{
+    RowBox[{"PVD", "[", 
+     RowBox[{
+     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+      "0", ",", "s", ",", "t", ",", "m", ",", "m", ",", "m", ",", "m"}], 
+     "]"}], ",", 
+    RowBox[{"Part", "\[Rule]", 
+     RowBox[{"Discontinuity", "[", "s", "]"}]}]}], "]"}], "//", 
+  "FullSimplify"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->495867307],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{"HeavisideTheta", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      SuperscriptBox["m", "2"]}], "+", "s"}], "]"}], " ", 
+   RowBox[{"Log", "[", 
+    FractionBox[
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["s", "2"], " ", "t"}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", "s", " ", 
+       RowBox[{"(", 
+        RowBox[{"s", "+", 
+         RowBox[{"2", " ", "t"}]}], ")"}]}], "-", 
+      RowBox[{
+       SqrtBox[
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], " ", 
+       SqrtBox[
+        RowBox[{"s", " ", "t", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"s", " ", "t"}], "-", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"], " ", 
+            RowBox[{"(", 
+             RowBox[{"s", "+", "t"}], ")"}]}]}], ")"}]}]]}]}], 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["s", "2"], " ", "t"}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", "s", " ", 
+       RowBox[{"(", 
+        RowBox[{"s", "+", 
+         RowBox[{"2", " ", "t"}]}], ")"}]}], "+", 
+      RowBox[{
+       SqrtBox[
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], " ", 
+       SqrtBox[
+        RowBox[{"s", " ", "t", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"s", " ", "t"}], "-", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"], " ", 
+            RowBox[{"(", 
+             RowBox[{"s", "+", "t"}], ")"}]}]}], ")"}]}]]}]}]], "]"}]}], 
+  SqrtBox[
+   RowBox[{"s", " ", "t", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"s", " ", "t"}], "-", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{"s", "+", "t"}], ")"}]}]}], ")"}]}]]]], "Output",
+ ImageSize->{504, 87},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->139146423]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->883337705],
+
+Cell[TextData[{
+ "LoopRefine cannot compute discontinuities across cuts of functions besides \
+those of ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1164501278],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Log", "[", "s", "]"}], 
+    RowBox[{"PVB", "[", 
+     RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m"}], "]"}]}], ",", 
+   RowBox[{"Part", "\[Rule]", 
+    RowBox[{"Discontinuity", "[", "s", "]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->31662599],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopRefine", "::", "discpoly"}], "MessageName"], ":", 
+  " ", "\<\"Warning: input expression contains non-polynomial dependence on \
+channel variable \[NoBreak]\\!\\(s\\)\[NoBreak] outside of Passarino-Veltman \
+functions.  Possible discontinuities arising from non-polynomial sources will \
+be dropped. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/LoopRefine\\\", ButtonNote -> \
+\\\"X`LoopRefine::discpoly\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1133930283],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], " ", 
+   RowBox[{"HeavisideTheta", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      SuperscriptBox["m", "2"]}], "+", "s"}], "]"}], " ", 
+   RowBox[{"Log", "[", "s", "]"}]}], "s"]], "Output",
+ ImageSize->{345, 39},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1196382903]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Tutorials", "TutorialsSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "TUTORIALS", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "TutorialsSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Tutorials"}], "TutorialsSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->250839057],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Tree-Level e\:207ae\:207b\[Rule]\[Gamma]\[Gamma] \
+Cross Section by The Optical Theorem",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/PairAnnihilationUnitarity"]], "Tutorials",
+ CellID->341631938],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1665078683],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Discontinuity - Wolfram Mathematica", "Discontinuity"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 14.588038}", 
+    "history" -> {"2.1", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Discontinuity[s] is a setting for Part to LoopRefine to compute the \
+discontinuity across the normal threshold cut in channel s.Discontinuity[s, \
+t] computes the Mandelstam double spectral function in overlapping channels s \
+and t.", "synonyms" -> {}, "title" -> "Discontinuity", "titlemodifier" -> "", 
+    "windowtitle" -> "Discontinuity", "type" -> "Symbol", "uri" -> 
+    "X/ref/Discontinuity"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Eps.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Eps.nb
new file mode 100644
index 0000000000000000000000000000000000000000..df16761b34697f478bc515156fe7f0845f36bd81
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Eps.nb
@@ -0,0 +1,1295 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopRefine\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"\[ScriptD]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dim"], "\<\"\[Micro]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Mu"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Eps\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Eps"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Eps.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Eps", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "Eps ",
+ StyleBox["(\[Epsilon])", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      ButtonBox["Eps",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      ButtonBox["\[Epsilon]",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]is the small parameter of dimensional regularization ",
+     
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"d", "=", 
+        RowBox[{"4", "-", 
+         RowBox[{"2", "\[Epsilon]"}]}]}], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->39413309],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Eps",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to represent poles arising from UV or IR divergences."
+}], "Notes",
+ CellID->1404460525],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Eps",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]e\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->1092074617],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Eps",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " formats as ",
+ Cell[BoxData[
+  FormBox[
+   OverscriptBox["\[Epsilon]", "~"], TraditionalForm]], "InlineMath"],
+ " in ",
+ Cell[BoxData[
+  ButtonBox["TraditionalForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/TraditionalForm"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1434787373],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " defines integrals with the combination ",
+ Cell[BoxData[
+  FormBox[
+   FractionBox[
+    RowBox[{"i", " ", 
+     SuperscriptBox["e", 
+      RowBox[{
+       RowBox[{"-", 
+        SubscriptBox[
+         ButtonBox["\[Gamma]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:ref/EulerGamma"], 
+         StyleBox["E",
+          FontSlant->"Plain"]]}], "\[Epsilon]"}]]}], 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"4", "\[Pi]"}], ")"}], 
+     RowBox[{"d", "/", "2"}]]], TraditionalForm]], "InlineMath"],
+ " factored out of canonically normalized integrals typically found in \
+one-loop calculations.  This serves to abbreviate the poles",
+ " near ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Epsilon]", " ", "~", " ", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " ",
+ "as follows:"
+}], "Notes",
+ CellID->2089490918],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox[ButtonBox["LoopRefine",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopRefine"],
+      FontWeight->"Bold"],
+     StyleBox[" output:",
+      FontWeight->"Bold"]
+    }], "TableText"], Cell[TextData[StyleBox["implied expression:",
+     FontWeight->"Bold"]], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FractionBox["1", "\[Epsilon]"]], "InlineFormula",
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       FractionBox["1", "\[Epsilon]"], "-", 
+       SubscriptBox[
+        ButtonBox["\[Gamma]",
+         BaseStyle->"Link",
+         ButtonData->"paclet:ref/EulerGamma"], 
+        StyleBox["E",
+         FontSlant->"Plain"]], "+", 
+       RowBox[{"ln", "(", 
+        RowBox[{"4", "\[Pi]"}], ")"}]}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FractionBox["1", 
+      SuperscriptBox["\[Epsilon]", "2"]]], "InlineFormula",
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       FractionBox["1", 
+        SuperscriptBox["\[Epsilon]", "2"]], "+", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", 
+           SubscriptBox[
+            ButtonBox["\[Gamma]",
+             BaseStyle->"Link",
+             ButtonData->"paclet:ref/EulerGamma"], 
+            StyleBox["E",
+             FontSlant->"Plain"]]}], "+", 
+          RowBox[{"ln", "(", 
+           RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "+", 
+       FractionBox[
+        SubsuperscriptBox[
+         ButtonBox["\[Gamma]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:ref/EulerGamma"], 
+         StyleBox["E",
+          FontSlant->"Plain"], "2"], "2"], "-", 
+       RowBox[{
+        SubscriptBox[
+         ButtonBox["\[Gamma]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:ref/EulerGamma"], 
+         StyleBox["E",
+          FontSlant->"Plain"]], 
+        RowBox[{"ln", "(", 
+         RowBox[{"4", "\[Pi]"}], ")"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "2"], 
+        RowBox[{
+         SuperscriptBox["ln", "2"], "(", 
+         RowBox[{"4", "\[Pi]"}], ")"}]}]}], TraditionalForm]], "InlineMath"]],
+      "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True}}}},
+ CellID->1378542191]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(2)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->994521087],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(2)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1050684608],
+
+Cell[TextData[{
+ "An integral that is UV divergent:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       SuperscriptBox[
+        StyleBox["k", "TI"], "2"], 
+       RowBox[{
+        SuperscriptBox["k", "2"], "-", 
+        SuperscriptBox["m", "2"]}]], 
+      FractionBox["1", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+        SuperscriptBox["m", "2"]}]]}]}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1949207611],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"k", ".", "k"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->118635992],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"3", " ", 
+   SuperscriptBox["m", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{294, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1634476202]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        SuperscriptBox[
+         StyleBox["k", "TI"], "2"], 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SuperscriptBox["m", "2"]}]], 
+       FractionBox["1", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}]]}]}]}], "=", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"3", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "2"], 
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["p", "2"], ";", "m"}], ",", "m"}], ")"}]}], "+", 
+       RowBox[{"2", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "(", 
+         RowBox[{
+          RowBox[{
+           FractionBox["1", "\[Epsilon]"], 
+           StyleBox[
+            RowBox[{"-", 
+             SubscriptBox["\[Gamma]", "E"]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+          StyleBox["+",
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox[
+           RowBox[{"ln", 
+            RowBox[{"(", 
+             RowBox[{"4", "\[Pi]"}], ")"}]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+          RowBox[{"ln", "(", 
+           FractionBox[
+            SuperscriptBox["\[Mu]", "2"], 
+            SuperscriptBox["m", "2"]], ")"}]}], ")"}]}]}], "}"}]}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ CellID->333964039],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1575942466],
+
+Cell[TextData[{
+ "An integral that is IR divergent:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       StyleBox["1", "TI",
+        FontSlant->"Plain"], 
+       SuperscriptBox["k", "2"]], 
+      FractionBox["1", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"k", "+", 
+          SubscriptBox["p", "1"]}], ")"}], "2"]], 
+      FractionBox["1", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"k", "+", 
+          SubscriptBox["p", "2"]}], ")"}], "2"]]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " where ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "2"], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "2", "2"], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->162854273],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{"1", ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p2"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", "2"]}], 
+       RowBox[{"q", ".", "q"}]}]}]}], "}"}]}], "//", "LoopRefine"}]], "Input",
+ 
+ CellLabel->"In[1]:=",
+ CellID->1541431976],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    SuperscriptBox["\[Pi]", "2"], 
+    RowBox[{"12", " ", 
+     RowBox[{"q", ".", "q"}]}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox["\[Epsilon]", "2"]], "+", 
+    FractionBox[
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        RowBox[{"q", ".", "q"}]]}], "]"}], "\[Epsilon]"], "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], 
+         RowBox[{"q", ".", "q"}]]}], "]"}], "2"]}]}], 
+   RowBox[{"q", ".", "q"}]]}]], "Output",
+ ImageSize->{248, 59},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1275058000]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        StyleBox["1", "TI",
+         FontSlant->"Plain"], 
+        SuperscriptBox["k", "2"]], 
+       FractionBox["1", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", 
+           SubscriptBox["p", "1"]}], ")"}], "2"]], 
+       FractionBox["1", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", 
+           SubscriptBox["p", "2"]}], ")"}], "2"]]}]}]}], "=", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+     FractionBox["1", 
+      SuperscriptBox["q", "2"]], 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{
+           FractionBox["1", 
+            SuperscriptBox["\[Epsilon]", "2"]], 
+           StyleBox[
+            RowBox[{
+             RowBox[{"+", 
+              FractionBox["1", "\[Epsilon]"]}], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                SubscriptBox["\[Gamma]", "E"]}], "+", 
+               RowBox[{"ln", "(", 
+                RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+          StyleBox[
+           RowBox[{"+", 
+            FractionBox[
+             SubsuperscriptBox["\[Gamma]", "E", "2"], "2"]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+         StyleBox["-",
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+         StyleBox[
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[CapitalEpsilon]"], 
+           RowBox[{"ln", "(", 
+            RowBox[{"4", "\[Pi]"}], ")"}]}],
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+         StyleBox["+",
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+         StyleBox[
+          RowBox[{
+           FractionBox["1", "2"], 
+           RowBox[{
+            SuperscriptBox["ln", "2"], "(", 
+            RowBox[{"4", "\[Pi]"}], ")"}]}],
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], "]"}], "+", 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          FractionBox["1", "\[Epsilon]"], 
+          StyleBox[
+           RowBox[{"-", 
+            SubscriptBox["\[Gamma]", "E"]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox[
+           RowBox[{"+", 
+            RowBox[{"ln", "(", 
+             RowBox[{"4", "\[Pi]"}], ")"}]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], "]"}], 
+        RowBox[{"ln", "(", 
+         FractionBox[
+          SuperscriptBox["\[Mu]", "2"], 
+          RowBox[{"-", 
+           SuperscriptBox["q", "2"]}]], ")"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "2"], 
+        RowBox[{
+         SuperscriptBox["ln", "2"], "(", 
+         FractionBox[
+          SuperscriptBox["\[Mu]", "2"], 
+          RowBox[{"-", 
+           SuperscriptBox["q", "2"]}]], ")"}]}], "-", 
+       FractionBox[
+        SuperscriptBox["\[Pi]", "2"], "12"]}], "}"}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->2064696387]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[ScriptD]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dim"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Micro]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Mu"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->98177375],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Eps (\[Epsilon]) - Wolfram Mathematica", "Eps (\[Epsilon])"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 16.523067}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Eps or \\[Epsilon] is the small parameter of dimensional regularization \
+d = 4 - 2 \\[Epsilon].", "synonyms" -> {}, "title" -> "Eps", "titlemodifier" -> 
+    "", "windowtitle" -> "Eps (\[Epsilon])", "type" -> "Symbol", "uri" -> 
+    "X/ref/Eps"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/FermionLine.nb b/packages/X/Documentation/English/ReferencePages/Symbols/FermionLine.nb
new file mode 100644
index 0000000000000000000000000000000000000000..2ab9f0ed749710759db7756b17df0f35939b2d22
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/FermionLine.nb
@@ -0,0 +1,3799 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"\[DoubleStruckOne]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dirac1"], "\<\"\[Gamma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracG"], "\<\"\[Gamma]5\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"\[DoubleStruckCapitalP]L\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracPL"], "\<\"\[DoubleStruckCapitalP]R\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPR"], "\<\"\[Sigma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"], "\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracMatrix"], "\<\"FermionLineProduct\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/FermionLineProduct"], "\<\"FermionLineExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/FermionLineExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/FermionLine\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/FermionLine"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/FermionLine.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/FermionLine", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["FermionLine", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["FermionLine",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/FermionLine"], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["sgn", "TI"], 
+           StyleBox["2", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["2", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["sgn", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", 
+        RowBox[{
+         ButtonBox["DiracMatrix",
+          BaseStyle->"Link",
+          ButtonData->"paclet:X/ref/DiracMatrix"], "[", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["mtx", "TI"], 
+           StyleBox["1", "TR"]], ",", "\[Ellipsis]", ",", 
+          SubscriptBox[
+           StyleBox["mtx", "TI"], 
+           StyleBox["n", "TR",
+            FontSlant->"Italic"]]}], "]"}]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      RowBox[{"\[LeftAngleBracket]", 
+       RowBox[{
+        RowBox[{
+         SubscriptBox["\[ScriptW]", 
+          StyleBox["2", "TR"]], "[", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["2", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "]"}], ",", 
+        SubscriptBox[
+         StyleBox["mtx", "TI"], 
+         StyleBox["1", "TR"]], ",", "\[Ellipsis]", ",", 
+        SubscriptBox[
+         StyleBox["mtx", "TI"], 
+         StyleBox["n", "TR",
+          FontSlant->"Italic"]], ",", 
+        RowBox[{
+         SubscriptBox["\[ScriptW]", 
+          StyleBox["1", "TR"]], "[", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"]], ",", "\[Ellipsis]"}], "]"}]}], 
+       "\[RightAngleBracket]"}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]represents a product of Dirac matrices sandwiched \
+between spinors ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        OverscriptBox["w", "_"], "(", 
+        RowBox[{
+         SubscriptBox["p", "2"], ",", 
+         SubscriptBox["m", "2"], ",", "\[Ellipsis]"}], ")"}], 
+       TraditionalForm]], "InlineMath"],
+     " and ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"w", "(", 
+        RowBox[{
+         SubscriptBox["p", "1"], ",", 
+         SubscriptBox["m", "1"], ",", "\[Ellipsis]"}], ")"}], 
+       TraditionalForm]], "InlineMath"],
+     " corresponding to frequency sign ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox[
+        StyleBox["sgn",
+         FontSlant->"Italic"], "k"], TraditionalForm]], "InlineMath"],
+     ", 4-momentum ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["p", "k"], TraditionalForm]], "InlineMath"],
+     ", mass ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "k"], TraditionalForm]], "InlineMath"],
+     ", \[Ellipsis]."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1836374614],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " prints as ",
+ Cell[BoxData[
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["\[ScriptW]", 
+      StyleBox["2", "TR"]], "[", 
+     RowBox[{
+      SubscriptBox[
+       StyleBox["p", "TI"], 
+       StyleBox["2", "TR"]], ",", 
+      SubscriptBox[
+       StyleBox["m", "TI"], 
+       StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "]"}], ",", 
+    SubscriptBox[
+     StyleBox["mtx", "TI"], 
+     StyleBox["1", "TR"]], ",", "\[Ellipsis]", ",", 
+    SubscriptBox[
+     StyleBox["mtx", "TI"], 
+     StyleBox["n", "TR",
+      FontSlant->"Italic"]], ",", 
+    RowBox[{
+     SubscriptBox["\[ScriptW]", 
+      StyleBox["1", "TR"]], "[", 
+     RowBox[{
+      SubscriptBox[
+       StyleBox["p", "TI"], 
+       StyleBox["1", "TR"]], ",", 
+      SubscriptBox[
+       StyleBox["m", "TI"], 
+       StyleBox["1", "TR"]], ",", "\[Ellipsis]"}], "]"}]}], 
+   "\[RightAngleBracket]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ Cell[BoxData[
+  SubscriptBox["\[ScriptW]", 
+   StyleBox["k", "TI"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " standing in for ",
+ Cell[BoxData["\[ScriptU]"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData["\[ScriptV]"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " depending on ",
+ Cell[BoxData[
+  SubscriptBox[
+   StyleBox["sgn", "TI"], 
+   StyleBox["k", "TI"]]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1067943069],
+
+Cell[TextData[{
+ "The ",
+ Cell[BoxData[
+  SubscriptBox[
+   StyleBox["sgn", "TI"], 
+   StyleBox["k", "TI"]]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are allowed to be +1 (",
+ Cell[BoxData[
+  FormBox["u", TraditionalForm]], "InlineMath"],
+ "-spinor) or \[Dash]1 (",
+ Cell[BoxData[
+  FormBox["v", TraditionalForm]], "InlineMath"],
+ "-spinor) only."
+}], "Notes",
+ Deletable->True,
+ CellID->374619464],
+
+Cell["\<\
+The product of objects in spinor space should be delimited by commas.\
+\>", "Notes",
+ CellID->755378334],
+
+Cell[TextData[{
+ "Products of ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects are assembled to form a ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->870678276],
+
+Cell[TextData[{
+ "The ",
+ Cell[BoxData[
+  FormBox["u", TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox["v", TraditionalForm]], "InlineMath"],
+ " spinors at either end of a ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as follows:"
+}], "Notes",
+ Deletable->True,
+ CellID->446855417],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}], "]"}]}], 
+    StyleBox[
+     RowBox[{
+      FormBox["u",
+       TraditionalForm], "\[Dash]", 
+      RowBox[{"bar", " ", "spinor", " ", 
+       RowBox[{"(", 
+        FormBox[
+         OverscriptBox["u", "_"],
+         TraditionalForm], ")"}]}]}], "TR"], Cell[TextData[{
+     Cell["Esc", "KeyEvent"],
+     StyleBox["\[ThinSpace]ub\[ThinSpace]", "InlineCode"],
+     Cell["Esc", "KeyEvent"]
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}], "]"}]}], 
+    StyleBox[
+     RowBox[{
+      FormBox["v",
+       TraditionalForm], "\[Dash]", 
+      RowBox[{"bar", " ", "spinor", " ", 
+       RowBox[{"(", 
+        FormBox[
+         OverscriptBox["v", "_"],
+         TraditionalForm], ")"}]}]}], "TR"], Cell[TextData[{
+     Cell["Esc", "KeyEvent"],
+     StyleBox["\[ThinSpace]vb\[ThinSpace]", "InlineCode"],
+     Cell["Esc", "KeyEvent"]
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}], "]"}], 
+     "\[RightAngleBracket]"}], 
+    StyleBox[
+     RowBox[{
+      StyleBox["u",
+       FontSlant->"Italic"], "  ", "spinor", " ", 
+      RowBox[{"(", 
+       StyleBox["u",
+        FontSlant->"Italic"], ")"}]}], "TR"], Cell[TextData[{
+     Cell["Esc", "KeyEvent"],
+     StyleBox["\[ThinSpace]u\[ThinSpace]", "InlineCode"],
+     Cell["Esc", "KeyEvent"]
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}], "]"}], 
+     "\[RightAngleBracket]"}], 
+    StyleBox[
+     RowBox[{
+      StyleBox["v",
+       FontSlant->"Italic"], "  ", "spinor", " ", 
+      RowBox[{"(", 
+       StyleBox["v",
+        FontSlant->"Italic"], ")"}]}], "TR"], Cell[TextData[{
+     Cell["Esc", "KeyEvent"],
+     StyleBox["\[ThinSpace]v\[ThinSpace]", "InlineCode"],
+     Cell["Esc", "KeyEvent"]
+    }], "TableText"]}
+  }]], "3ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True}}}},
+ CellID->1670236951],
+
+Cell[TextData[{
+ "The momentum and mass arguments of ",
+ Cell[BoxData["\[ScriptU]"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["\[ScriptV]"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are mandatory."
+}], "Notes",
+ CellID->1641813654],
+
+Cell[TextData[{
+ "The glyphs ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptU]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/character/ScriptU"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptV]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/character/ScriptV"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered as ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]scu\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ " and ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]scv\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ ", respectively."
+}], "Notes",
+ CellID->1594557504]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(10)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->313162814],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(5)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1992479748],
+
+Cell[TextData[{
+ "A transition current: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     OverscriptBox["u", "_"], "(", 
+     SubscriptBox["p", "2"], ")"}], 
+    SubscriptBox["\[Gamma]", "\[Mu]"], 
+    RowBox[{"u", "(", 
+     SubscriptBox["p", "1"], ")"}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->439479436],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[LeftAngleBracket]", 
+  RowBox[{
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->124811693],
+
+Cell[BoxData[
+ RowBox[{"\[LeftAngleBracket]", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p2", ",", "m"}], "]"}], ",", 
+  SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]], "Output",
+ ImageSize->{155, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->817571447]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1385142405],
+
+Cell["Expand:", "ExampleText",
+ CellID->1365667355],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"P", ",", "M"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[Gamma]", ".", "P"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1815987996],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "\[ImaginaryI]"}], " ", "M", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"P", ",", "M"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"P", ",", "M"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["P", "\[Mu]"]}], "+", 
+  RowBox[{"M", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"P", ",", "M"}], "]"}], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{514, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1905412490]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"P", ",", "M"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->244254642],
+
+Cell[BoxData[
+ RowBox[{"2", " ", "m", " ", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptV]", "[", 
+    RowBox[{"P", ",", "M"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{160, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->918999544]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1237399075],
+
+Cell["Do an integral:", "ExampleText",
+ CellID->476292604],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   SuperscriptBox["\[Mu]", 
+    RowBox[{"2", "\[Epsilon]"}]], 
+   RowBox[{"\[Integral]", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        OverscriptBox["u", "_"], "(", 
+        SubscriptBox["p", "2"], ")"}], 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            SubscriptBox["p", "1"], "-", "k"}], ")"}], ".", "\[Gamma]"}], "+",
+          "m"}], ")"}], 
+       RowBox[{"u", "(", 
+        SubscriptBox["p", "1"], ")"}]}], 
+      RowBox[{
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SubscriptBox["p", "1"], "-", "k"}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SuperscriptBox["M", "2"]}], "]"}], "[", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", 
+           SubscriptBox["p", "2"], "-", 
+           SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+        SuperscriptBox["M", "2"]}], "]"}]]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "ExampleText",
+ Deletable->True,
+ CellID->880236874],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], ",", 
+      RowBox[{
+       RowBox[{"\[Gamma]", ".", 
+        RowBox[{"(", 
+         RowBox[{"p1", "-", "k"}], ")"}]}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], ",", "k", 
+    ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"p1", "-", "k"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "M"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p2", "-", "p1"}], ",", "M"}], "}"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+     SuperscriptBox["m", "2"]}], ",", 
+    RowBox[{
+     RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+     SuperscriptBox["m", "2"]}], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      RowBox[{
+       RowBox[{"q", ".", "q"}], "/", "2"}]}]}]}], "}"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->427709169],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"2", " ", "m", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           FractionBox[
+            RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", "M", ",", "m", 
+       ",", "M"}], "]"}]}], "-", 
+    RowBox[{"m", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "1", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           FractionBox[
+            RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", "M", ",", "m", 
+       ",", "M"}], "]"}]}], "+", 
+    RowBox[{"m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"PVC", "[", 
+        RowBox[{"0", ",", "0", ",", "1", ",", 
+         SuperscriptBox["m", "2"], ",", 
+         SuperscriptBox["m", "2"], ",", 
+         RowBox[{
+          RowBox[{"2", " ", 
+           SuperscriptBox["m", "2"]}], "-", 
+          RowBox[{"2", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", 
+             FractionBox[
+              RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", "M", ",", "m", 
+         ",", "M"}], "]"}], "+", 
+       RowBox[{"PVC", "[", 
+        RowBox[{"0", ",", "1", ",", "0", ",", 
+         SuperscriptBox["m", "2"], ",", 
+         SuperscriptBox["m", "2"], ",", 
+         RowBox[{
+          RowBox[{"2", " ", 
+           SuperscriptBox["m", "2"]}], "-", 
+          RowBox[{"2", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", 
+             FractionBox[
+              RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", "M", ",", "m", 
+         ",", "M"}], "]"}]}], ")"}]}]}], ")"}]}]], "Output",
+ ImageSize->{475, 112},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->692216407]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->144397890],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{"2", " ", "m", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         SuperscriptBox["m", "2"], ",", "m", ",", "M"}], "]"}]}], 
+      RowBox[{
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}], "-", 
+       RowBox[{"q", ".", "q"}]}]]}], "+", 
+    FractionBox[
+     RowBox[{"2", " ", "m", " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"q", ".", "q"}], ",", "M", ",", "M"}], "]"}]}], 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"q", ".", "q"}]}]], "+", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        SuperscriptBox["M", "2"]}], ")"}], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        SuperscriptBox["M", "2"]], "]"}]}], 
+     RowBox[{"m", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"q", ".", "q"}]}], ")"}]}]], "+", 
+    FractionBox[
+     RowBox[{"m", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"8", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["M", "2"]}], "-", 
+        RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{
+        SuperscriptBox["m", "2"], ",", 
+        SuperscriptBox["m", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", "M", ",", "m", ",", "M"}], "]"}]}], 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"q", ".", "q"}]}]]}], ")"}]}]], "Output",
+ ImageSize->{490, 112},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->200123438]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1135020610],
+
+Cell[TextData[{
+ "View ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in ",
+ Cell[BoxData[
+  ButtonBox["TraditionalForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/TraditionalForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["InputForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/InputForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->194155969],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1100228636],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   OverscriptBox["\[ScriptU]", "_"], "(", "p2", ")", 
+   SuperscriptBox["\[Gamma]", "\[Mu]"], "\[ScriptU]", "(", "p1", ")"}], 
+  TraditionalForm]], "Output",
+ ImageSize->{78, 17},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//TraditionalForm=",
+ CellID->837789344]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "InputForm"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1006217961],
+
+Cell["\<\
+FermionLine[{1, p2, m}, {1, p1, m}, DiracMatrix[LTensor[DiracG, \[Mu]]]]\
+\>", "Output",
+ GeneratedCell->False,
+ CellAutoOverwrite->False,
+ ImageSize->{490, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]//InputForm=",
+ CellID->439558823]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->720659232],
+
+Cell[TextData[{
+ "The product of two or more ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects is represented by ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " object:"
+}], "ExampleText",
+ CellID->312092564],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p3", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+   "\[CircleTimes]", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p4", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], "//", 
+  "InputForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->311943144],
+
+Cell["\<\
+FermionLineProduct[FermionLine[{1, p3, m}, {1, p1, m}, \
+DiracMatrix[LTensor[DiracG, \[Mu]]]], 
+ FermionLine[{1, p4, m}, {1, p2, m}, DiracMatrix[LTensor[DiracG, \[Nu]]]]]\
+\>", "Output",
+ ImageSize->{641, 27},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//InputForm=",
+ CellID->1981840769]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "QED vertex function",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1365422010],
+
+Cell[TextData[{
+ "In the covariant Fermi gauge, the QED vertex function at one-loop is:\
+\[LineSeparator]\t",
+ Cell[BoxData[{
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "e", " ", 
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "2"], ")"}], 
+     RowBox[{
+      SuperscriptBox["\[CapitalGamma]", "\[Mu]"], "(", "q", ")"}], 
+     RowBox[{"u", "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "1"], ")"}]}], "=", "  ", 
+    GraphicsBox[
+     TagBox[RasterBox[CompressedData["
+1:eJzs3b+rJNnbGPYH24FxtPsXqL1/gBnY1IK2mUjRRfbmLSFP6kEWDEpMhxve
+0Jt15GDs4OLIsMkN3sDBBhcMwgIPNAaDQPZ4wJLhtYXGXVvVOz19u36d6u5T
+Pz4FH+n7zt7b99Sp01XnPHXOc/7Df/hf/v13/05E/Ff//uH/+fv/4MN/8o//
+8T/4p//Zv3f4P/7Tf/pP/ot/+O8e/se/PPz3/+DwL8U/fv36FQAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAICZORxvDz4c/H7w9cxv
+B7/kLiMAAABwW1Vs4NOF2MAlv5383s81P/M59zkBAAAA/RTzA2riAx8P3p39
+bBFL+Fz99w/Vv/3aFksAAAAAxq+KBZyP7/8o5gg0/M6P1c98Pvnfl+IE1icA
+AADABFRrBS7NIfi14+//dJKvoG5two+5zxMAAABoVuUp/HxhXP+h5+fUzSP4
+c05C7vMEAAAAmhX5BmrG9b1iBNVn1eUl6DwvAQAAAMijIUaQNKavchrWxQnk
+JgAAAICRqtYaXHV9QEOcwH6IAAAAMFJVzsKL4/kiH+GAz61bd/Ax9zkDAAAA
+r1X7ElzKWVh4N/CzL+2pmJTrAAAAALi9hj0Jfr/hZ/+c+7wBAACA77XsR5C8
+3qD67B/lJgAAAIBpKPYbaIgRDF4X0PD5v+U+dwAAAOCb6l3/p4bchT9e4W/U
+zVWwHyIAAACMSPFO/5ZzCaq/UZcbcXAMAgAAALiOan+DuhjBteYSvK35/D9y
+nz8AAADwzZ3mEtTth/hr7vMHAAAASi1zCQbvcdDhb8hNAAAAACPRMpfg9xv/
+DfshAgAAwIg05BYsvLvC5zfNJfiY+/wBAACAUjHnv2XNwTXyF9489wEAAAAw
+XJFDsGEMP3gfgsPxc0sc4ufcdQAAAACUilhAwxj+txt/vtwEAAAAMCIt7/oH
+rQkofr/l8wfHIQAAAIDraMkvOGi/wuqzj/kR6+YU2A8RAAAARuJwvG2JE7wd
+8Nm/H+ckNOynMDhHIgAAAHAdt4oTnKw3+NjwNwbnSAQAAACu5xZxgpPPLNYa
+/Bj1+yn8mvv8AQAAgG865Cd41/Pzfq7WGBR+qv6tLjdB8poGAAAA4Pqq9/1N
+cYLO7/yrmMOn0xhAQxzCfogAAAAs2uF4c/ByMlZ+PPhhBOWqe9//tZoX0Jpr
+sFprcMxV+O7k3+v2RfyY+7wBAAAglyIecPDlwni5+LeHzGWrG8sf/d7j9z+c
+/bePNZ/54VbnAwAAAGN3ONYtY/HHjGX7Mer3Lfxrb4KDX85+53y/w/MYQdPn
+/pz7mgAAAEAuHeIEX6s1CVnWIXSYU9Dmlwuf+UvdWobc1wMAAAByalh3cG5/
+8CZTGVNiBcU8g59qPs9+iAAAAFDjcGw6xgq+ZIwVFPkIP3UoY/EzjXsmNnzO
+q7kHAAAAsETVvIKnjvMKsu2FUM0t+P18vUD17287/P7PDefWun8CAAAALMnh
+eOgwt+AldzkHnF/dGoY/cpcNAAAAxqhYW1DNG2iKFexylzPx3P6QmwAAAAD6
+qdYhvLTECh5yl7PnOf3YcC6taxYAAABgyapYQdO8gi85cxUknI/9EAEAAGCA
+ag1CU76Cx9xl7HEuH2vO4WPusgEAAMBUVLkNm9YfrHKXseN5fK4p/4fcZQMA
+AIApieY9E3e5y9eh/E37If6cu3wAAAAwJVWugqb1B6POU1DsZyA3AQAAAFzP
+4dg2xAm2ucvXUnb7IQIAAMAVtcwp2OcuX0O5m/ZD/CV3+QAAAGCqiv0NGsbc
+b3KXr6bMHxrK/GPu8gEAAMBUFXsbNIy53+cuX02Zf68p7x+5ywYAAABTdzhe
+asbdz7nLdqGsbxviGr/lLh8AAABMXVM+w9xlOytnsRfip4Y4wafcZQQAAICp
+OxzrhrH3KmO5fqpyEXxoiQ+c+ljMOchdpwAAADBV1b4HdePudYbyNK0tSPF7
+7joGAACAKYn6/RFHmcsQAAAAuJ0iZ2FNnGCbu2wAAADAfYkTAAAAAEfiBAAA
+AMCROAEAAABwJE4AAAAAHB2OF3ECAAAAoFATIyg85C4bAAAAcD+H401DnGCd
+u3wAAADA/RyOTV2cIHfZAAAAgPs6HLuaOME+d9kAAACA+zocX2riBLvcZQMA
+AADup8hT2JCbYJO7fAAAAMD9HI7nhjjBD7nLBwAAANxHsZdBQ4zgKXf5AAAA
+gPtpmUvwkLt8AAAAwH205CXY5y4fAAAAcB9F3oEiFiB/IQAAAFDkHjCXAAAA
+ADgc24YYQWGdu4wAAADA7RXrCVpiBPY4AAAAgAXoECP4UuQtyF1OAAAA4LYO
+x64lRmC9AQAAAMzc4VgdvHSIEWxylxUAAAC4nSpf4ZcOMYJd7rICAAAAt1Gs
+Hyj2NuwQHxAjAAAAgBk7HI8d4wOFbe7yAgAAANdX7FPQMQ/BcV+DTe4yAwAA
+ANd3ON50zEPwtYolvMldZgAAAOD6esYItrnLCwAAANxGjxjBc7E/Yu7yAgAA
+ALdR5SNo29NAHgIAAABYgA45C+UhAAAAgAUo8gx0iBH8kLucAAAAwG1VOQnE
+CAAAAIC29QZ7MQIAAABYhiInYUvOQvkIAAAAYCFa9jd4n7t8AAAAwH20zCV4
+zl0+AAAA4H5a8hJYbwAAAAAL0bLHwS53+QAAAID7ORyPDXGCde7yAQAAAPfT
+kL/wJXfZAAAAgPs5HCt7HAAAAACFw/HQECdY5S4fAAAAcD+HY1sTI9jnLhsA
+AABwX4fjuSZO8JS7bAAAAMB9FbkKa+IE29xlAwAAAO6rITfBJnfZAAAAgPtq
+iBOsc5cNAAAAuC9xAgAAAOBInAAAAAA4EicAAAAAjhriBA+5ywYAAADc1+HY
+2xcRAAAAKByO55o4wS532QAAAID7OhyPNXGCl9xlAwAAAO7rcLxvyFHwQ+7y
+AQAAAPdzON40xAk2ucsHAAAA3Nfh+FITJ3jKXTYAAADgvoqchQ1zCla5ywcA
+AADcz+F4aIgTbHOXDwAAALivw7GviRN8kc8QAAAAlqWYN9Awp2CXu3wAAADA
+/RRzBhryGRbWucsIAAAA3E/LnIK99QcAAACwHB3mFNgnEQAAABbkcGwa4gRy
+FQAAAMDCHI5nsQIAAACg0GH9wZ+xAvkKAAAAYBkOx5uWOEHh5WCVu6wAAADA
+7XXIVfC1mnfwPndZAQAAgNvrGCs4zi1Y5y4vAAAAcFs9YgWFx9zlBQAAAG7r
+cDx0yG0obwEAAAAsRJXb8KVjrKCIKbzJXWYAAADgtg7Htsc6hE3u8gIAAAC3
+Vc0teBYrAAAAAI6KPRE75C2wBgEAAAAWomPegiJW8EPusgIAAAC3V8QADp5a
+YgXPucsJAAAA3M/h2LXECra5ywgAAADcT4f8hqvcZQQAAMjpcPxy8KFS/MOv
+ucsEt1KtQWjKV/Ccu4wAY6OvAADzczjenTzfC58axkm/5C4v3FKV27BpTsE6
+dxkB7k1fAQCWoeP+8ed+zF1uuLUiF4E5BQD6CgCwdNW8wc8Nz/3fc5cR7uVw
+7OUpAPievgIALE+xprDh2f8hd/ngXg7HpuG78Ji7fAC56CsAwLLEtxxEl/yc
+u3xwTw1zCr7kLhtALvoKALAsDe8IPucuG9zb4Xjf0Bde5y4fQA76CgCwLIfj
+j5pnvz2OWJwo90m09gDghL4CACzH4fixYUxkjyMW6XA81XwnXnKXDeDe9BUA
+YFmizGFsjyM40bT2IHfZAO5NXwEAluVwfKx57tvjiMUq8hA09Inf5C4fwD3p
+KwDAskT9fsj2OGLR5DIEKOkrAMByHI6fG8ZC9jhi0aJ+f8Rt7rIB3Iu+AgAs
+S9TvhWyPIxbvcDyLEwBLp68AAMvSsN7wt9xlg9zECQD0FQBgScIeR9BInABY
+On0FAFiWsMcRNBInAJZOXwEAluVw/Frz3P8jd9lgDMQJgKXTVwCAZSme8TXP
+fnscwVf7HQDoKwDAcrSsN7THEXz983tS9x15yF02gFvTVwBYhsPxLsq9bQrH
+3LW1OWhOfv782fCp+nfPiImqua72OILK4Vg39I/XucsHt6KvwMm11VcAmInD
+8fbk+V63pqwxB031zP/c4Xe/Vn2In3KfN73bSa89jopr3LE91HmX+5yhj8Px
+vq495y4bDKWvQMd2oq8AMHGJ9+Y/LnzG7wmf88nzf1oa+nad9jiq+pafWtrF
+r10/D8bmcDzVtOuX3GWDVPoK9Gwv+goAMxPlmrK6OPDRh5Off9vwPOj6/Lc/
+zgQcjp8brmPnaxj18xE/agtM2eH4oeE78pi7fHAt+go0tA19BYAZi/o8tYWf
+q595eyG2+/PJZ/zYcJ+/2JdgvBquZa89juLyXFXvBJi8w7FpuM/JYcjs6Ctw
+oU3oKwDM2OH4reY+/7n676fP/cbYbkts+c/PFBsev4b+YOe+W7yeu/op5Kpi
+JqJ+P8QvucsGt6CvwIXrqK8AMGMNz/5fq/v3cf5gn7VmTc9/MeIRiyvscVR9
+xmn/ofjf1pwyC4fjoeE7sstdPrgFfQXOrp++AsDMNcSD31Vx3c99YrsXYsOv
++hS5z5nG6/dLzXXrvMfRWZv6mPuc4Jqifi5B4U3u8sEt6Ctwdv30FQBmrCUe
+fMxV/Dbhc5ty13oWjFjU7391cY+jC+3p9Lmvn8esHI5tw73tOXf54Bb0Fbhw
+7fQVAGasIR58lJRLKJr3Q/o993nTeO3q3hk1zgGt3g2d/q49jpmVw/Hm4EvD
+vW2du4xwC/oKXLh2+goAM9YQDy58GvC5Tc/+5M+9UR28a+n/TMXgPlUk7nFU
+/d7pe6He75VgzKLcB/Gl4fvxnLuMcCv6CvoKZ3WhrwAwc9E85y/5/u3ZP9ln
+f+89juL790zyFDNLh+Op5fu3yl1GuBV9BX2Fs7rQVwCYsWiOBw96jrQ8+0c1
+l9Cz/7u6+Fjz2RfnlJ71FeQpZpYOx67lu7fNXUa4FX2Fv8qqr/CtLvQVAGYs
+mvckGrQfUdSvWyuMKjeRZ/93dfG55rNfxf3P+glFX89e18xKlGsNdi3fu5fc
+5YRb0lf4q6z6Ct/qQl8BYMaiPh7ceU+bhs+ue4YURpXX1rP/r3qoe2f0+ezn
+znMQteY2hqk5HKtozkdQKHIarnKXFW5JX+GvsuorfNVXAFiChufzoGdzNO+f
+VEjKi8zN20PrHkeH4+1ZuxnV+lG4hsPxEM37Ghy9yV1WuDV9Bc6um74CwIxF
+8x5Hg3LLVM+Hpme/3DUjFC17HDW0GfmKmYUo5xA8d4gPFDa5ywu3pq/Aheum
+rwAwYw3x4NpctT0+u2kt4+B5itykPTS91/mxob0URrWGFFIcjm3H+IAYAYuh
+r8DZNdNXAJi5hnjw4Hl+0Zy/eFTrDfnrmtXF/z+1XM8juYuZpOiWh+CoWIuw
+zl1muBd9Bc6umb4CwIy1xIOHziNsW29o3tkIHY7fOjzfm37GOlImpxjzR7c8
+BF+rWIJ8BCyGvgIXrpu+AsCMRf1cv8F5ZqI5H/DgeYrcrE005Zz+fOyzxQ3z
+XsM9HY5Nx/hA4fHgh9xlhnvSV+DCddNXAJixhvv34Hl+0Tzv7F3uc+fiNavb
+4+hrnO11HM15p1xfJqFHjGAf1hmwUPoKnF0zfQWAmWuIBw+a59fyDPF+YKSi
+/p3RxZxDUa5DvNhPyH0u0KZjjKBYi7DNXVbISV+Bs+umrwAwYw3P58FzwaJ5
+TZq1hiMV9e+MLq4jbOgrFOxjxWgdjjfRno9AHgIWT1+BC9dNXwFgxqJ+z5pB
++9Ucjp8ange/5T5vaq9bkUuq7p3Rxed4NOefcq0ZpcPxQ4cYwS7kIQB9Bc6v
+m74CwMzFjfY4ang/UMw7+/EaZecm7aFuj6PGd0YN1/uz680YHY6nthhB7jLC
+WOgrcHbd9BUAZqwltpt8v47mfDXmlo1YJL4ziub1pfY9YlQOx4MYAXSjr8CF
+a6evADBjDfHgQXmDoj5XjWfAyMWAd0ZRn6968J5ZcC3Rvt7gOXcZYUz0Fbhw
+7fQVAGYs6ud/Je9xFPV5agbvm8TN20PTO6PWdzst74Z+6dh2fspdD8zb4dg2
+tNN9yEcA39FX4Oza6SsAzFzU56BpvU/XfF7dfDL5aSbgcLyruX6d81lH4r5H
+8e19lfdI3Ey0zyVY5y4jjI2+AmfXT18BYMYantOF3usNo8xZfOm+77k/EVG/
+x1HnfNYN/YdC7f5WVdsx55Cbiua5BLvc5YOx0VfgwjXUVwCYsaif89d7vWGU
+c9AurVXz3J+QqH9n1Ctu3/c9QXzLh5T0bgq6inJdwaW2WcwxsN4AzugrcOE6
+6isAzFjU55Hp9bxueO5bYzgh0fzOqFfe6Zb3BL+c/exxDuGgPbihTTTvcfCY
+u3wwRvoKnF1HfQWAGYvmHDSdn/3V8+I8Hvz53rHeKOcxfjhzLNegfMxLEfXv
+jDqvNzz7vLpcyEX7eFv9zPG5b59sbu5w7Brue6vc5YOxmUtfoRqPXsrF+Gs0
+zHHnYl3qKwDMWNTvcdT5PhyX984t3jvcLQdt1L/n8K7ienWZFLuP5nzG5/TT
+uLmoz1/4lLtsMEZT7ytUz6G6ue3fPeeMPzvXqb4CwIzVPLfPn/+v1plFGZO/
+9LvFz2dfL1ZTtuzlGrtofmeUnFO4Qzsb9PnQ1eF409AGN7nLB2M05b5C1L/3
+rmPuYXud6isAzFzUx9eLeXl1+WkuPleL/kDu8zk5r0txae8I2uut6Z1Rr/WG
+Fz67ac7HbJ/7xbg0dxn47npsGtqh/IVwwVT7CgkxgiPzD5vrVV8BYMaiwx5H
+Ub+W72t8W/9/t/UFPc7tPCeOfDcjcKHP9uvQPsUYRfnO+jHKnPqb3OXhu2vz
+WHM/e8ldNhijqfYVzsayv5/HJ6LMZ9T0/np0fZulWEpfAWCsGuLsk59zd+HZ
+LwbNTR2O1cH7+H6/vU3ucvHqOj3X3Pd2ucsGYzTFvkKU8+KPcyAa1zfE5dyK
+5hQAsFhR5uuZ5Xy7eD0PUhyaqzscP0Q5j/3S2HOTu3xcvGb7mvveNnfZYIym
+2Fc4iW10yoEQl+dMjDYOAgC3dGEs/bXPc3WsLjzvk/bogTqH4+Hgqeb7U+TS
+f8hdRmqvXd0cY9cMLphiX6GaH9ArjhGv103oOwCwONGcg2bS+f7i9RzJzns7
+Q53DsT7YRf2eescYgbyFI9Zw7da5ywZjM8W+QpRrDnqvNbxwruIEACxO1Ofu
+mfw8u3idK3e07zwYt/g+H2FdX1mMYELECabL9ytLnc+2r3DhXM/3SZrdOQJA
+myj3JprUesOO53VpT99RvvNgnOJbPsKXDrEBMYKJESeYpup7+TXsIXLvep9l
+X6HmXM/nE8zuHAGgSc1Y+uhu+xrf6NzOn/PeB9AqvuUjrMs5IEYwE+IE0xTl
+mp/T61XEC+SUuG2dz7avUHO+53Mn7IsIwKJE/R5HhUnvC3DhOe99ALWizEd4
+Pv4QI5ixhmu5yV02aq/ZquG6PYvx3KzeZ9tXuHCuRUzkNF+jvgMAixP1exxN
+PmdP2A+RFlHmHNhFcz5CMYKZivr1JNvcZaP2mnWZ5yNecP16n21f4cK5nsZE
+zEMEYJEujKWPPuYu28Dzsh8iF1XvI7fRLR+hGMGMVePJS9f0KXfZuHi91j2/
+m0UMcJW73HMw177ChfP86eRci//fegMAFufCWPpU732ExiRez5GcVV+G3u2h
+GF/0zUcoRjBzVbzo0nXd5y4bF69XSs4Q8YLh9T7bvsKFcz3N1WgOIgCLdGEs
+fWrS+wfG6zmSs+rLUHvdV1HmGdhWY4r9leMCYgQzEmW+yrrru8pdPl5drx+q
+73bqOqHid3/IfR5TM+e+wtl5nuY0epu7PACQy+H41PDsn+wzMuyHuAhRzhEo
+xnmPUc4fH5pjQIxgYaI5J9773OWj9roV8YLdgO+ueEG/+p5lX+HsHN/N7ZwA
+IEW83gvg3GTfv4f9EGelGhOs49scgWuvHRAjWLCon3PykrtstF671dB4Qe5z
+GLs59xVOzvGtGAEAS1eNoevyFr96/scE90W+0K+xp9FERLn/wKaKCTzHfecI
+iBEsUJTzUequt2s9AVW84DnxO70P+2BeqtPZ9xWq8xQjAGDRDsfvVxgjTeK9
+QbyeIzmb9ZNzEd/mCBS5BXcD+vhiBAxti28arvkud/nodS3X4gWD63BJfQUx
+AgBYiLiwH2LITZD7mqziW27B57htbkExAlLaaNNaFtd9Yqp4Qer6pOIetc59
+Dty8jfwc3/Y/FCMAgJkL+yGOSqSvHR6TvbHivEXzvgfPucvHoOu6Fy/grF2I
+EQDAwoT9EEclhuUZG4PinaS86AvQMp6098GEDYwXFLlTV7nPgau1hZ+iXJtY
+xAl+zl0eAOD24vJ+iPoBIzDReIEYwYJE85wC604mLsqcKNtIz426Ey+YtpQY
+QfE7ucsNAAwTr/dD/Jy7TLy6RlOJF4gRLFA0r2nXJmbgCvGCR+1geqJ8j/BH
+zxjBjyHHEQBMXtgPcTJGHi8wHlyoKPPfaRsLUMULUu9BX6pYg7YwASkxgur3
+ij6FHEcAMHFVP+C0L2c/xJEbYbzAOHDhonxfrI0sxMB70J/xgtznQOs1/r1P
+jCDKPIfHXEf6EQAwYfF6P8SCuYITMZJ4gfEfx/bYtqde8d/lK5iR6h70nHjv
+2B9scp8DF6/r7wOeCdYcAMDExes1B59yl4mk65grXiBPHX+Jck562/r14r8/
+5C4rV7/2a/GCeTgcvw18LvyW+xwAgDSH41283gvxyJ6IE5UhXmDfO75TxI06
+xAoK/8fBf567vFz9+g+JFxS/t859Dkt2hRhBwZoDAJiQSJxHmLvcJF3rIl7w
+P9w4RvCU+zwZpx6xgsJ/F9atzE6U+2XuxQumI8r3B0OfC/ZLAgAYoSjnfrfl
+lBtqb2xHk56xguLnNrnLzE3awdB4wSr3OQAAwJQdjocBffI+5CSg0Um86t/0
+aFcv3iPPU5T7IXaNG53biRcAAEA/Ua4zeLpDfKCwzX2+jFv1Djl1TPi1asur
+3OfB1dvFD1eIF5jHBAAALQ7H+4Fjsj6ec58v4xVlDru2vRH7eDQunJ8Ytjbq
+SxVr0C4AAOBMlOu/n+8UHzj2z/XNeSVuO5+laHf21ZihGLY/i3gBAABU4tvc
+3b796v9l4HhtnfvcGZdIey+8P/gnCePDvTY4TwPjTEW72OQ+BwAAyCXKed37
+hH70Q2Js4egx97kzLtF/vcur979Ve37u2RaLn5dHc4YS24N4AQAAixTle9uU
+921/re8eECd4yX3+jEdirGoXDXkJI22fjl2Ycz5LA+MF9swAAGD2Ii1P4cv5
+O9fEOMGXpvEdyxFp+TCe+4zZon8u/D/nKOSuG27W5jYJ8aOktgcAAFOQOC6r
+zfmWGCd4yF0P5BXlXJZdz3azT207A/7eJnddcRtXiBescp8DAAAMlTimb9xz
+PuEzd7nrgbwi4/v9KHPbPSeMCde5643biGF7wO7ECwAAmKJIW/td9Jtb3932
+jBMU6xas/V6oSHt/u7tFm0n8ThgTzlR82+9FvAAAgFmLtLnWhb/yFHb4G33i
+BPLJL1Ck7z+wukPZBu+vwHxE+v6w2gYAAKMX5bvblDyF655/p2uf+mJ+A+Yr
+yjn+feNU+75t8ArlTBkbFt+tTe465mZtIqXtihcAADBKkbb+Onn9d5TvY9s+
+/yl3vXA/kTaHuzZX5h3LXXx3+u4Tar+8GbtCvGCT+xwAAFi2hHeiX2Pg/O4o
+55S3vR/2Xm0hIm0ey3ZMbaRq0y89z6Ex3yfTFmlrZ07vgZvc5wAAwLIkjms6
+5Sns+Leb/s46d/1we3McW0da3sXOuT2YnivEC9a5zwEAgHmLcn73Y0J/9Wpj
+mZY4wTZ3HXFbMfO5+jHRNRTcvF08JMSQjp6n0v4BAJiWqp/ad3731d9nNcQJ
+nnPXEbeTGKMq2t8md9kTz7eIh+xyf98Yl0ibc3IaL7AHDAAAg0VansKbvduv
+iRMU8Qtzr2cqFryXYKTv8Wg8OGMJ34lTRfxplfscqvNYV+ehvQIATET0n/98
+HKOsblimS3GCwXkPGJ/qWu+nOga6cl2kzDvfzSFWQm2bSFmjMqrvysn9/Evu
+sgAA0CzS8xRu7lS207/7mLu+uPo1fhNp79DXuct+h7rpOy5M3oOUaRgYL8g6
+9+bsfv4irgUAMD6Rnqdwd6/+3Xm/MnedcdVr+0Okrclf1HySAfW0yV12btou
+VgntImu8IF7HfZ9z1yMAAN9E2rzm4ufXdy7nsV9pnuqMhPfkKXVWjAufe35n
+n+/9nSVLuxgSL7jr3hkXyrDLXYcAAEsXafvMfc3x7qkq7zFOsMldd1zlem4S
+4lO7HG1vrEIeBy63i5T1O3eff1Lz9+3zCQCQSaTlzC76ndlyU0c553qdu+4Y
+fB3XCWOYZ2Pbxjpd7L4QNLaLlO/aabzgput6Gv72JnfdAQAsSfWeKSVPoXc8
+DBJpc6L3YkOd6/eY067vd3uTu+zcvG2so/+8k9MY3fpG5Wpql/ZLBAC4sUjP
+U/jknSNDRFpOdrGp9PpeRf/1RC/iMfMXaWt9bhYviOa5Dl88ewAAbicmkqeQ
++anGJX3Xt2yND65S9+voP3eoiC+scpedm7eNlO/l0e5abaQlTnCMX7kXAABc
+UZTvcSeTp5D5MEYdj0h7h/zoHjBvkTbP56rxgg5xgj/vC7nrCgBgLiItT2Ex
+rrMmlGRhzvsoJY4Jrf1YgCvEC7apMaWOcYI/YxK56wkAYMoibT8s4wEGibT8
+F/sYQQ69w/Ghpny/JX7e7zWf924E51rEcXYJ12mdu+yMsm2cPkN6xwt63jM2
+uesIAGBqIi3XecFcbwaJie/Jt6Q4wUkZ15G2N6X5RjN3hXhB55hzwjPrpvs0
+AgDMSaTtebXX52KIxHa3G1tcaolxgpOypuQ4La7hKGI83LRtpMxNO32+bDr8
+jb5xAvslAgC0iPQ8hXKUkSxx/FD8/Dp32WvOZ7FxgpMybyNhTkjucnOXtrEe
+GC+ojUcnxAmObc/zCwDggkjb10qeQpJVcandNccJYyBOMPj6bnKXnbu0j3X0
+38OkMU4Y5XyWlM+zXyIAwIko144+J7x/kaeQZDHj983iBK/Kn3KPuTgOZH4i
+bZ/Ni+2kij2kfE5hl7suAADGINLmaBb9slXusjNNiWOCXUzoXZ84Qe15rBOv
+/Sp32blL+xgSL/gzf+7AOEHhMXc9AADkkthfL97njnq+N+MV6fnwV7nLnnCu
+4gTN5zPp/Sy4ads47rPTdw3c0f84ME5Q2OSuBwCAe4q09cJ/vmPRRydFpO2J
+to8JzzkXJ+h0Tin7rn4xhluGK8QLhlrnrgMAgHuI9DyF69xlZ3oS+/mzyHsh
+TtDr3FbRf48V96WFiPTY9lD2SwQAZi3S8xRuc5edaUqMSRUxhVnMWREnSDrH
+dfTPff/nmvTcZecu7WOVIV6wn8s9CQDgVKTN23zW9yaFsd5f9SBOkF53m+if
+O8W6qIWItLj3EPZLBABmI3G8Zu0vScLc8fP6ECcYVn+LXbNC5zayvmO8YJf7
+fAEAhqj6148p/SDvTOgrsb3t5x6PEie4Wj2uYmE5MOndRop4wf96h1jBNve5
+AgCkOBwP0X+NgT41ScLedk11I05w3fosxoLPPe9txc/LQzdjcf8ch5vc5wwA
+0FWkr9fc5i4701ON2fY921rRl1/lLvsd60ic4Db1+pDY9mYfm1qa6B+nFCsA
+ABYj5CnkTg7Hm4R4VPHz69xlz1BX4gS3rd++9z37t8xEpOXeubZd7noAALik
+GrPJU8jNRdrc3v3BQ+6yZ6wzcYLb13Fqu9zkLjt3u9639BzmqQAAIxHpeQqf
+9GnoK7y3Ta03cYL71fUqzHOZtci3xqBNEatf5a4fAGDZIm1t7l5/mL4ibQ/7
+XYhFHetPnOD+db5ObLOr3GWn8ZrmXmPQpohfyJcJANxdpO1NX9gat9FHpOeV
+X+Uu+5iIE2Ste/twTFyMb41Blza0yV1vAMByJPR5j+M27zfoLOxTf+36FCfI
+W/8/VGN/Y72JSXzmjcU2d/0BAPMW6XkK3+cuO9NxMp7q+/5VO2uu1+xxgsPx
+S1WOH3PXR8brsIr+c7GK++46d9mXJqaxxqCLXe66BADmJ+Qp5E6izEHQ973d
+VjvrVLdjiBP8Vv3MT7nrI7fEMWhxT13lLvvcxfTWGHTx4j4JAFxLpOXhKn5+
+nbvsTIcx013quC5O8Hvi56XECT6GOMF5nWwS7rGPxnw3vSZFnOA54bqMXXE+
+1v8BAMmqflJKnkL9VzoLc7DvWdd1cYLPiZ/3R83nNcUJjr+z2HUHNfVirc3I
+RRnLLLyvrtUuyljC1NYlfHH/BABSRFrOpqKv5D0FnUTaWpZ9yOk2pM7r4gSF
+t1f8rKY4wedIjEssQcjdOWnxLZawiTKWUNzjnqP/fi33sMldXwDANESZp7Bv
+f8Y7LXoJe8TlqvemsX3ntQdFHKD6nbr5BB9qfu/n4+/lrouxi/S9QMVqR656
+zp7GErYnsYR776mwy10fAMB4Rdp+XQXrw+ks0nJd7LSxq9X/MU7wqaauf+3w
+Gcc8hL9Ffdzh4uec/PzFOAIX6+wh8TsjpjZhUc4rWVfXv3g2Pya0gz7Pce0F
+APhO4tit+PmH3GVnGiJtnkrx8+vcZZ+Tk3F6kX/wY029F//t3dnv/Vz97ueT
+OMOPBz/VfMbF+QLxLT4hh2H/a1eMFXvPwcldbq7eDor4waYa219z7kGxbnCV
++/wAgPwifd8neQrpJLGNiUHd7noc5wJ8rsb5dfMKmhS/+/OFzzz34exv/1r9
+e9IejAz6Pm1yl52btYl1lDGka+RSLOIO1q0AwIJF2h718hTSWXj/OTrx/RyC
+nyufe1yjT6cxguozf2qINxRzE4p5CH+c/L65BMOv4yomPj/n5BzEnK9Xpz9U
+z/ZdpK9RKO7Dm9znAgDcV2L/0viNziJtL/id8cJdrs1p3sFfqn/7qRrPt12j
+IsZwcS/DKOMNbXMT/hAjuPr1XCd+11YjKPsuvsWfffdvU8fFeq8iZ2zK/sbb
+3OUHAO4j0vIUPo+hT8n4RXp+9lXusi9FfD934Nez/3bMQXA63v9c/dvPHT//
+w4WYw59zCnKf+5zFxPYPqcavp+UpYh3mqt2+3ouciI/RfY3CLneZAYDbibR3
+TkU/0hpxWoX93ichynwEp9fgU+4ycdXrm7JnTZY55nE5nmht/H2vQXHf3kR7
+PkTzPQBgZkKeQm7oZFzS9z3m+9xlX6LD8cuF69FpngDTUY3/+s4zf7lX3C7K
+d9pN9wexgjzt5k11P78Uw5GbCABmouqLpeQpXOcuO+MXaXkwt+JPWa/ZhwvX
+xHqAmYpyHlnfHPhFfGF143LtO8QSjUnztp0fqj7E7uR6fdE/AHI4HO+qPkzh
+mI/5lw4/f/58+RQ91lLC3ERansI/x3C5y874HY5/dPC/j23sQadr9/HCtfmY
+u1zc/LpvOozNz91kTll0XxchVjAiVb/imA/RekTg6g7H25NYwK8dnhOv8ipX
+8YGuezgVfSK5lVmU6L/O4NkYjjrxbQ3rf3/wr3u2LfNTRiS+3+vg6I/c5eIu
+1z77GqGqDH3/vlgBwIxFuedS33ebf1z4jC77Np2zVzOL0qMvZo9kXjmJCxTx
+pn3CPfdr9Xub3OfCq2t7Mcaeu1zctQ2sIlPO0SjnKPS9l4gVACxIlDmXL81/
+PPXh5Off1vVvesQKLu75DHNUjfOavhNFP9E6cY5xpb57ZTX16bfa1vjE670O
+TomlL0yk72GaNGaPMj4x5L4iVgCwIHF5DuTRz9XPvD3791/jJPdA1fe5lKeg
+Nu4AS1DTB9yHeeCLd8W4wHnsaZX73Ki95k3z+t7mLh/Z2sVD9J83VHzXe8UC
+E2ISYgUAC3Y4fqt5Hnyu/vtpjKCYf1A7J6CIHbQ8Yz43/T7MTbx+f7PNXSay
+tYV11O93NVTxmevc50hrG2h6RooTLFyk5S7Ydvzs9ZXuNWIFAAvRECco5gz8
+FN/WGtTue3D2eW3zCjp9DszFydhwlbss3PW6N+2DfS37kPd6MuL13DxxAs7b
+SLEGaZdwH9i0fO7+ivcdsQKABYj6dQfFngafqjhB5/0Noz1f4q+5zxng2qq4
+wHHPqj7vBFP76dvc50zvNmLdAZ1E2t66xc+vL3zW5kb3ILECgJmK5pxKx30N
+evddqvhC3efaJxqYvPh+L+tbxwVO7UKOwklqeebKY8grUa4X2CfcI1bV7/fd
+B1GsAJilKN+Bf6gcc/nXznM/+fnze9+n6t87v0efoqJuWp4BSXkHo3nvxN9z
+nzdAX3GdvQqHeA5rVyYvLs/h+5y7XIxblDHJ3rkLolxDesv7klgBMBpRru87
+xgK63P9e5c2LMj7QdY+/It4wyzh/S/19GvC5TXGC5M8FuJco38NtIl9c4Kj4
+2+vc9cHV2tW7C9fYXkC0qu5J24z3oiab3PUDLFe0r3u/5I8Ln9E0hq0d28YM
+YwXRvD4gea1kSx2LEwCjU/XBb7FXYar/++B97nrhJm3tdB7jb7nLw7REObfp
+aQT3KLECYJSiXOf3seWe9eHk54t5CF3nENTFCmazp1807880aG1AWHcATECM
+Ky5w6r8JOQiABlHmLhjbvWuTu14AjqI+X3/h5+pnzvci+jVOcg9EGXNo28/v
+u7jD1LWc76C9C1uuiTyGQBZVv3obt92rcIj/9+Dv5a4nYDqiXB+1H8H9S6wA
+GJXD8VvNfepz9d9PYwTF/IPaOQHR/I79z89s+v0pifq5GIPzKUXzvA37IgJ3
+EeVehWOOC5z6VyEfGJAgvuUuuOfeK2IFwKhFfZygmDPw08mYtdM78mifVzDo
+XftYNIzlB43jo3nfp8Js5mQA41LFBXLsVTiUnOHAYIfjP4oyt0nue5pYAZBd
+1M9xL3IKf6rGw533N4z2fImTfx8ezfshDtoLMl6v8bjq5wMcRZnPa4pxATEC
+4OpifPshbHLXCbBM0fzu+phLr3fe/mjeB2Dy6+ujfj/EP67w2U3zMewRDSSL
+Mi6wifx7FYoRAKNS3R/HGC/d5K4bYHmi+b14IWmOe8w8X3/Uz8EYvCagpe4m
+PxcDuL8o9yXYj6C/K0YAjFKU8dPc9zWxAmAUov69eOHTgM9tGusmf+4YRPMc
+jKFrDtpyE/Se2wEQZY6u/Qj6umIEwOhEmZsl931NrAAYjWheH5A8Jo15xwnq
+1gUMPq8oc0LU1dvgNQ3AckW53iB3P1eMABidmMaeLmIFwF1E8x6Gg9YGxIzX
+HUT9foiD1wS01Nu73OcOTNuE+sJ19iFGAFxRlOuyct/bxAqA0YjmfHmD9i6M
++vX7hUnnMYz6/RAHrQmI5riNuQTAYIdjPYI+bqqXgx9y1yEwLzHNNVmb3PUG
+zFfUvxcfnFO/YSxdmGwuvoax/DXq7LeGOpOXALiKGHeuLjEC4G5ifPsg9rHN
+XX/APDWM5QeN46M9F9/gPQEy1lld3sdBcyQOx08N9fVb7vMG5iPKvb9y92/F
+CICsoszvOsZ9EPvY5a5HYF6ieT/EoTn737bc0wZ9fuZ6u8l+iFE/l6DIM/lj
+7vMG5iWm8w5NjAC4icPxOIJ7nFgBMCpR/1588Dr4aM57MHh+fsY6a5onkTyW
+j+a4ymRjKsB4xTTeo4kRADcR05tXJVYA3EXc6L149dlNOfunnJugbg7GoNhK
+1O9NOdn1GcD4xbj3SRQjAG4mppmnRawAuKlofi8+dM1BW26Cyebji/q1Acmx
+j6ifezHZeAowHdV4PHffVowAuLso5xRsoowZ7Edw7xMrALJqGJt+usJnv2u4
+d016b7+oz/uYtIdk1O+dIG8hcBcxvn0SxQiALKKMG7w/eIrxr8sSKwCuLur3
+Qxz8Djua1xy8y33uA86rbkxf6J2bIMr9DS6tNxAjAO7qcDyPoF8rRgCMyuF4
+M+G4wS53/QHTE/XvxQetCWgZS099LkHdHIze5xXl2oxL+SHECIC7i3Hk8xIj
+AEatihtsYzyxVbEC4GoaxvKD9yGI+vX7g2MQuUX9PIleY/uGGIF8BEA2kXd/
+MDECYHKiXLc19rjBLnc9AdMQ9fshfhz4uT813KMm/Z48mnMzdj63KGM052sN
+irkdSfkNBl6rD2eO5Zr0vA8gTeTbJ1GMAJiFw/EQZcx1bPlhd7nrBhi/uNF+
+iFE/l6AYf/Zevz8mUb8fYufzi8vxmWKOwk93PI+m3BFH5jXAAkWZ87tuTZoY
+AUAPUcZexxQ32OWuE2C8ovm9ePJY/nC8bfjcQfssjkHNGP88VvAqzhLl3g+X
+frf4+bvOIehxXtnLBdxPlPNmnzP0WZ/ECIClqOIGm8i7B+Mudz0A4xT178UH
+zTWPy3n7v14aO09Rw/kVcyj6vH8r5nKMZs+HuBzfmfTcD6CbKHMX7vRVAe6v
+ugfniBvscp87MD5RvzYgea551O8DMIv569FhP8Qo5w3U1e1x/f/d1hf0OLd3
+Z2UdlKMCGL8o32ltI98eX7vcdQAwNlXc4F57MFrzBXwn6t99J801bxhDTzpv
+4dk5Xm0/xLGJ1+sOZjH/A7gsyndXOfcA3+WuA4ApiHIPxlvGDcQKgD81jOkL
+veeaR5kz/9J8/NnECKrz/FhTZ5OfL3EhbjT5XBLAa1HmIOibR+t/EyMAGIcq
+brCN6+aTESsAivvL1d6LR5kP8dK+CbOKEVTnetU5GGNxIW70OXeZgOuKch7r
+U0K/sYgrXHOfxF3uugCYk+o+XcQN/kasABgi6vfE6zW2b4gRTP79+oVzbdoP
+cdL5/i7EjWYX44Glqsb4jz37ivuDzdnnbMUIAMYvypxT/0ysAOgjmvdD7Dw+
+jPId9Plag+J9+13erUd9vsBinf3bG/y9uv0Q55Cb4DxuNOn5EUApyvWsfeYB
+fKniAa/6iFW8YS9GADANUc4zSJlj8M/FCmB5ovm9eDHub303XjNmLsaaN8/j
+H+X+fXV7E5762OVcevzdS/Mm/oxL5L6mA8/rUtxo0vMjYOmqvmHfMf3uYNXy
+uRsxAoBpORwPCc+E//Pg7+QuO3A/NWP881jBq1z3Ub6/v/S7xc/faw5BXV6F
+Old5118zlj56l/uaDjy387jR5OdHwFJFmdvqued9svj5dY+/0ffzd7nrBYA/
+79/b6DfH7N/ExN+HAd1F/bv4Yg5/XZ6+i2Pwe46RE2IER4Pvby1/e9L7AsTr
+2I/nAUxMlGsCdj3vjfuDh4S/tRYjAJimxOdFsefNJnfZgduJDvshRv26/6/V
+eLlw8/UFZ+U+fef9+3l8Isp9GZvmSQwqb9Tvhzj5fQHCfojUqO4F57krivjg
+q/lGCZ9dfKdPY5a/hfUuqXW5jYQcBAP/Zpc+5i533QBwWZR74Dz3jBcUP7/O
+XXbg+uKK+yHescw/nownGtc3xOXcioPfkV8YSx99zF0/A8/Lfohcahc/XogP
+nPt9wOe/vfZnLlGUuQL2Pft4xfh+cG6qqn8pRgAwcXGjfDaMU9UHK8aDl/Ku
+fa7+26TXVJPcNurei492rvlJbKNTDoQLY99BcZCazzsa/F51JHU7i7gHV2sX
+dfOJrtL+G+5DhbvOVZqiqk/33LNP93ztPl3U75O4y11HAPQTV9wfh/Gp+vxd
+8sDPZpxD7zZS9158tPvgVW26Vxzjwjgn+T35hbH0JOqt47mdj9fcDxYuyjU8
+XZ8fxf2k91qBhvtQwbqX+npbRVoOgvWNyvPDhT7l+9z1BECa6r5eFwNuihds
+cped2mvadZ+4Op/0zeYvmvdDHOW64CjnP/ceu1441yFxgqbv1tvcdTSwbifR
+DrhruzjGxYp2/9PZv10l1twUd8h9/mN00m/r+57n5mP2+H6fxE3uugJguCjj
+0k89x5MvIXfBqJz13347H+9X46W2ffCO74XECmasoR2MNjfBgHM9X/+cdI4d
+vjuTff9+IZYyu3ZAUrs4zjE5zxVatxahd06Bhu+TdS+v62rTMz7wNe48D7Tq
+G25y1xUA1xXlOreXns+gIr6wyl32pTvrtzWOV6KcS9q0JvQYK7A2dKbicr6K
+wmhzEww41/MxcN91C790+L789d07H1NNwYUYyOzaAUnt4nif+PHs3+tyD37t
++9yICa5/ynAdJtM3u2dMAoD7i7S8uY+eD9mu1+k8gs7vAaN9D3rvFGcoLs8x
+P5rcGLfD+Z6PgTuNY6I9x3unuEHu8+94rufrKYzROLaLi/P/G8b3vdp8zffM
+moOyblZhricAIxMjXgPHd9fp/L1O3z7auzmMc+h1zZviQ7Nab1LFRE7HM96T
+v66jV/shhtwEfP0rTvCp5r9dZe1STZxg0c+dqv/12DM+sA/z/QG4oxhZTl1e
+XZ/z94C9c6m1jBuNGWYm6ufQz+4dXiTOtVmSC99/68L5U9U2Lo7ZL8SXkuKN
+cXkN1GLXvIW9qACYmEjfo/dN7rLPVVzOWZ80po/mOdaLfrczN1E/X3hW48Mo
+83Acz1W+jfp6sh8iSS7EqXu3oQuf8Vvu88pUl0Ufa9+zj7UL+aEAGInD8ZD4
+LBPrvv61ePVeeMBnNe2T3TuHNeMUze8AZzU+jO/fU85qPcUV6+hSrgp1RSdR
+Pxft4lqFms9YdPs7HG8i7R3MOnfZAeCSSMtdsM1d7jmJC++FB35e3V5XyfMU
+GJeGfn1hNrnr4vu1073X4ixFvJ6TNLu1J9xOS3y5dbx/IW65mJh0lDkIdj3j
+A/uDh9xlB4A2A55zm9xln7oL/atrxAma3jUba81A1M8Tns01ju9zc87inG5Y
+V/ZDZJAYsMfqhTjVIr6v4T0LAAsRZa7D557xguLn17nLPlVR8174Cp9bN46c
+3X55S3NhTHhu8usO4vv9PxYx5hhYX+djvNnMKeE+6p5F0WFuytk9afZzCSJt
+z+ldWLcJwMSFPDz3rOuLY75bfe4cxpBLFeU7u7o9Dl5d56nGhMQIetfXpflD
+1hfRS1zOcdHpe3gWp5rtdzbS80CvcpcdAK4p7Otzjzq+mEvgCp/7ruYamY88
+MdG8h0VXk4gPiREk1dl5TLBz7jk41RCHrN27IL7PbTDLuQRhX2kAeCXK3AXb
+ns/HIl6wyV32KbhhnKAuR8Ei96pi/Ko2e8zpKUbQXl/vGsZ1k4gLMS4N8eXa
+tQfx/XqFWX1vT/o/fd+XvM9ddgC4lyqe/tQzXvAint5arxf7+Vf43Lr81eYT
+MDpiBJ3rKWluSe5yMw1Rrj14tf9O5WLOi/iWC2dWcwmizEHQJz7wNcynBGDB
+olyf99Lz2VnEF1a5yz5Gdf3+K32294yMXhXT+lSNTxa15zqMTV3suvj3Cz87
+u3VC+jgAMEyk5ft9FGt/VY/3jhNMMrcd85QSIyh+J3e5Ya7i9R6HR8V39Mez
+nz3GFCY/lyDMmQSAqwlr965Rh/eOE3hfyyhEOcf5j54xguO8aPn84Uaifu3B
+u5OfOV3bNtm5BFU/5rFnfGAfcjABQKuQC3hI3d01TpD7fKGQEiOofq/I7f9q
+/jNwPVG/r+7HCz/zR+7yDjhPezoBwB1E+t7Cb3KXPWOd3SROEJfzGBpfMQpV
+u+8zj6DIc3ic43wxnxpwHfF93oFzP8b3+Q4nt5at6qvse/ZVdiEHAQAMcjge
+Ep/Bi4vR3zBOcKmfJ4ch2dW1+Y6sOYA7iG/7GLx6jsS3vRA/5S5nz3N6E2nv
+Mta5yw4AcxJpuQu2uct95zq6VZzgw9lnGl+R3eH4bUCMoPBb7nOAJbjwDDk6
+rheazFyCKHMQ7Hrea/YHD7nLDgBzNeD5vMld9jvVz63iBOd7W81qfBVlTgxr
+RSfkCjGCgjUHcAdRrvVp+i5OYi5BeF8BAKNWjeuee44Jip9f5y77jeulbg52
+8t5vUa4dnfVcgrPYk37dyB2Od1eIEXzOfR6wJFHOHaj7Po56HVuk7d1cPFfE
+nQEgg5A/6Lw+6uIEye9N4/V80VH35xLOb1VTZ0W72uQuH3A/1f3gve/+Teq2
+bu3BaGPPkZ5PeZW77ADAn8/yvvsRFbZzi/U3xAmS9iaI7/NQJ3/OmB2Op5Z2
+Il4AMxblerbNwcsxlpy7THMUl/fNGWXsOezPDACzUfX1tj2f61/mNAZsiBMU
+Ou8rf/J5p3kJPo31nc+A+lr3fEe0zl1m4Dqq2MB5nHCXu1xzVvOMSl4Xd4Py
+HfsRfXMQvM9ddgCgWfUeoO0d8bmXOYwBW+IEf/QZ5x+OX09+t/Pe9FMS5Z6b
+fdqJeAFMWBUb3NWMA3e5yzd38Tq3yGhy4lZxo8XPSwSAuav6gy89n/nFGHCV
+u+wDzrltL/kiVtD67iZezyOYXYzg5FxX0X9+aeFpym0FliLKfe4fozmXzS53
+OZcgXufFzf5sSewruP8DwMRFWp7ixym+I2iIE5znmS7mCrw9+91i7WiRZ+o0
+H0HxebNaa9BQd6nxgp3+IoxLfMtH2GX8t8td3iWJb3Ho30fQRhY59xAAKMVC
+1hzWxQmq/3YeA2hSzCF4l/t8MtXhOvrnt55sbAnmIr7lI+zz/d3lLjdZ2slj
+z/v7PmaUywgA+F6k5zB+yF32judXGyc4+Zl3Ub8/VfHvyXsozklivKCILW3F
+C+B+oswz0ve+LkawQNF/byT3dABYkMQxYPHzb3KXveW8WuME9K7Th+i/buXP
+vmXussNcRZlzYNdzzCdGsFDVM7/vfbxoX6vcZQcA7i9xDLgb67sFcYKb1u0m
+oa0UP7/JXXaYgyjng7XlIxQj4LTNFPGk557to/j5de6yAwD5RVrugu3Y4gU1
+cYJPucs1J9F/3qp4ASSqxnld8xGKEXBsN0UOgl3CfXoSawwBgPsZ0K/Y5C77
+yTmIE9yvrfSNLX0NubKhVpRzw99X9+HnK8UFxAgWJuHebJ0YANAqyrmtffuo
+z2MY/4kT3L2+U+MFo2gvkEN1j32ovjtPMXwdQRePuc+bm7erTUJb2sXI5gUC
+AOMWE8x7JE6Qrd5XkZZv/Tlne4Fbq+6jxfjtMW4zR6CLTe564OZtrG/bcu8F
+AAaJtPXo2xzvKA7HHxfK8kfuOlyKAfGCrPElGCrKuTXr+DZH4Fr5BMQIqGtz
+KffbfZjLBQBcSXybX96nP/Ll3n3Uw/HpQjl+z11/SxNpObaP8QJzYBm1qn1v
+qnvic6TvTShGQEr7S1nvVfzs+9xlBwDmqXp/8dSzr3q33HWH4/OFv/8xd70t
+VaTNhx3lXhosV3x7bzuWOQJiBAsVZXxqEvP7AIDlqcZ/ffvMxXhxdcMy/Vjz
+d3/NXV9LF2m5LsQLGIXE9itGwLXbYN9n7tMtn7kAAHUiLb/y4y3Gfofj55q/
+9yF3PTGoveyNexiDxPYrRsCQNreKEc/hAwCoEyNZK3k4fqn5W7/kriNeXatN
+z/YiXsBojDhesMldN1ytjf2dg//JPRIAmLpIz738cKW//2vN3/g5d91w8Xql
+xJe8K2M0RhYv2OSuD67Wroo9hv62x7W3RgsAGL1I38v5zcC/e2lPxM+564PW
+65YaL3gWL2AMRhAv2OSuA67SjtYJ7WgXchAAABNyOB4S+zzeiSxQpM1HuUqM
+Ca4hU7xgk/u8GdxuUvaR/ZsQJwUAJizSchdsxQuWaUC8wHs1RuGO8YJd7nNl
+UDv5IfFe92d8NHf5AQCGSuwP7b0rW64qXtD3HZt4AaNx43hBkadDLHWiIm2t
+lTgRADBLiWO/4ufXuctOtjazTmgz5qQwClU7/H9uECew1maCbhA7uuq+QQAA
+OYV8TaS1mZepxQuqv3+VPT2YjsT2amw4U5Ge3/fvRfu8g3Xu8wMAuKbq3Urf
+uZdZx32Mos30jTEVbWyTqbzP1d/3/ncBolxj9Xij+EDhKfc50qs9rCJtzd36
+5DPetDwnv3gmAgBzE9/2xZvEuI9xSIwX7O/dbuLbO0R9+ZmLco+XoWvO2+57
+2tAERNp+r8XPXpwrUrUt8SMAYHGq9y5PPfvNL2HO5WIl9sVfva+7cRmfz9qr
+cd7MRHrOzb7Wuc+VTu1hk3BP2rbdG4oYQstnWN8EAMxWpK/jXOUuO9naTGq8
+4PnWY694PQd9l7u+uOr1fd+z3aXGE7a5z5XWtlA8u/rmpHjq8+yK5lj6vi3W
+AAAwdZE2r/xRP2m5In0/8mLsdpP8AXF5Tc1j7rpi8HV903NMWLSxVU17aP3d
+3OdLY1tYtYzfL0maC1fd45riUtvc9QEAcGtx5TWeLEOk5Q77GjfYU6NhXLjJ
+XU8kXc++eQq/y6WSECf4cu02Sba2UNgP/e5Hc64COSwAgMVIHPcV/THrNRcs
+0teNXy1e0DIuXOeuI3pdy4foN8fp6XzMlhAncA8boei/3uSqe7RG8/yFbe76
+AQC4pyjn+vYd9xU/b0+6BYu0nBdfr9Gvj3L9TNPYQdscueg/r3xfFwPqGSew
+PmVkqnvJvud9ZBfXn6e0armvmFMAACxO9H+vd+yr6TstWGK8YNB7wOpvto0p
+tcuRiv7vjRvbSo84wUvuc+e765Yao17fsExNbcnaOwBgsaJ/7oJ/W/XdjMsW
+LNJyZCblvegQJ/hzTKhNjkuk5SlsnRvSMU5gnslIRFpu1OLecvP1ItGc03Cf
+u+4AAHKKtFxSn0MeucVLjBfs+7SdjnGCwi53ffDX/aTLWD4pfhTN61COOrcv
+btoWtg3j8Lq2sL1zGZtiGOvcdQgAkFuk5ax71pciYTzQ+Z1hNK8jPrfNXRdL
+Fv3Xnr/KU9jxb4gXjVikxQ93fdvClcradH/RlgAAKgl9/WMfb5W77GRtNyl7
+cHaKNfX8vE3uulia6tr3zVOYNK+8JU6wzzHW5Ltr85zw/V9lLnddmb/krlMA
+gLGJ8p3Q3/bs823105ct0taxNMYLEj7L2vT7Xe++eQofh9wjWuIErnueNrCK
+tBwE69xlr8q/aSjnKMoIADAmh+N/ThijFWOGTe6yk73tpIwdvsaFuSmJbdCY
+8bbXt2/++pdrXJOGOIH89PdvAylziJLymd7hPOrKu81dPgCAsUkYn52PC9a5
+z4HsbaiIF/SZk/4qXtBzHHLa/sxtuc013eYaF9bECZ5z18nSRPkOvu/3cjvW
+72TUx7y0LQCAE4fjYWCc4K9+VshdsHiRtnb5OLb4m8S295L7vOck0vIUrm5Q
+hvM4xCjHnnNU1X+f/S5v0g5ucF7buvLnLhsAwJhE8xrzTc/xwtcYuC6ZeUiM
+F/x/iXGCwi73OU9dlPOydz3qvLg3JOUp7Nh+Tv/WOnf9LEGkzQuazJyyC+3q
+lDVMAACVhjjAU/XfZ7E2lWztKyXWlGqb+3ynKvrPL79pPPBsPOe63v76p+Ql
+Lb7Xm9xlTzjXuvOZ3LkAANxCy7uV92c/u4q0XNc3ed/ItNwxXrDJfa5TUn2v
+n3vU713eHZ/cm6wpuX1d/7cH/7ZHGyjiSduY6LyxqF9Psc1dNgCAMWgZ969q
+fqdv/vPC/3Xwd3OfL/lF//31+rIHQvdrse07Nrxj2dbV31zlrqe5qur4X/T8
+fu2mfk0anl9PucsGAJBbNO8R1foOL8r8h/uEPuYk30FxPZG2lqVvrGCV+zzH
+KvrnKXxWn/MRabHe4ufXuct+pfPf1p1j7rIBAOTW0FcqbHp+Tt/cBVvxAg7H
+302INXVlv8TX9d13DXrxXbVuaCaif57KrzHDtWPiBAAAl1X9xbqxfe/9xxLG
+H8f+5yZ3XXB/ie1FrGBYnT80fOcvsW/JjET/eO6/jpmu149y7dPFZ1LusgEA
+5NQyRtsO+NxVLHg+K53ayKbneOUasYJV7vPOWN99v5OT2eOOTte/+L7te35n
+/tmcY0TRkL83d9kAAHKJcm1qUx9xdYW/8Y8O/rZn33S35PHc3EXamuhrWWRu
+w+j/Dnmbu8xc7dqvE75vRYzoP85d9jvVjTgBAMCJqN8T6urjhMPxXx/8q559
+1WJsM9t3WUsT91tj0MUmd33cqc7XLd/zc8V4cpW73Fzl2q8iLQfBOnfZ71hH
+4gQAACeiOXdh77wEHf/mDy1/t64sm9z1xeBrv4n7rjHoFIfKXS83rO+UPIWb
+3OXmatd+2/P7Vvzs+9xlz1BXdc+jfe6yAQDcW9M7lMpN+4tRvud66jmms1Z6
+giLvGoMudjGzOSvRP0/h7OpgqSItHrdd6vVviBM85y4bAMA9VeO2pn7kyx3L
+sk4YQxbxhVXueqT12o5pjUGbWeyFEP3jb/sQe5uF6L++xL30qzgBAEChGrvt
+G/qNWXK8RVoebnu1jVSMc41BlzHzZPMbRrm/mzyFCxPmZg2tv+eaOtrlLhsA
+wD1UMYK2903Z1qeGNbWzENOZQ1DXnh5y12HP+n7T4Xt9qhgXTTYewl/XPWW+
+zj7koDivx31NXW1zlw0A4NaifOfUNpbY5S7nSVl3Cf3fde6y89f4ZR3lnIJt
+5bkylTkGm9z12LGe++YpFFObgeg/d+RLLDgHQUtd1tXZpOKFAAB9RXs+gsLo
+1mdHWu6C4ue9Kx25KGNBxfV9uBBL2I8gTlDY5a6nhvp76FlPT2P7fpN03dcJ
+349dLDwHQUt91tWb5wgAMFtRvndq60fuxzyGSBgTHfvGoz0nOl3347yE9Uks
+4enOsYTnMbWjqk7kKVyYSNsz5Nm1b63XbV395S4bAMAtRPfcVlnyFiae0zYS
+5trmLjc3bxfHWML7k1jCNdc3FHNtViM4z955CscU4yDpmhdxoV3P9lrEhsyZ
+71a/dWvxnnOXDQDg2nqMJyYTIzg5t9R+8yZ32bl7WyliB48NY4E+sn1Xov+7
+5Oepfa+5eN23PeNC4qL96nfVFGPLXT4AgGuJfnsLjuId6YBzXfUcOx3HT+vc
+ZSdLe/mh+n7senxHLo3DNncu87Zn+eQpnLie9/Gjol2bO9KvnpvW5ImzAQCT
+Vo2Xtz37lc9z6VOGvF6ktZs31Tihb6zpLu8aE9r1kzY9bZGet9V1T6vvunlG
++9xlAwBIMfYxTqY6sU8YQ9pPkSvzscfYfHejcqTkKbQWfcLCPrA56vxNQ90+
+5i4fALAs8W0vuL6O+dmee46FF9WvjP7ztI/xgk3usjMe1fd0E+35EK+6l2j0
+j3U9XvPvc/d2drxf9Y1vWlsyvO53DXVszQEAcBNV/++4L/xz5N8PflHjiei+
+18P5mG+du+yMT5TvHrdxeZ7yfui4Ivrn2ngxlpm2KONQfWO+2yXdx29Y96um
+71bu8gEA81KNJa6VW/1airHHKnfdZLwm64TrYZ03teJbDHAX3+J/X1JjTCFP
+4aK4J+UXzXMJNrnLBwBMX6TlELyHp9RxyxxFWv7wRc3BIE11D3hffec2PX5v
+3bNNGitOWJjjNApRxvnq5nF8yV0+AGDaqj5+0zuJHPbV2HaVu37GKKwFZgSq
+dtjn3lG0QXkKJ6q63o8J9/JN7rLPUZQx47p63+YuHwAwTVGuLXgeQUzg9H1T
+0Qe1Vrn7NVz1HKcd++3r3GVn2qL/mnRzWiYs7MEyOlG/5uOLegcA+or+7wCv
+rejDPEc5b7XoR671aQZf03Wk7VUuJkMvkZancJ273CRf73X0X+dUPF9Wucs+
+Z9Gcv3CXu3wAwLREmbMsdS/CLydj+wd9//GprktKn16chlbRP0/hNneZSb7W
+KfPNnj0X7nZ93jdcB/FfAKCTKOcQ9M07dXwX+F6/Y1oiLXfBNne5Gafon9e+
+GC+ucpebpGudMt+siE3KO3Hf61QXw9nnLhsAMA3Ve6F9zzGjHIITN6C/v8ld
+dsYh+uetk6dwwsQXp6PhmjzmLhsAMH7RnA/ZGHEBov968uP74HXuspO97fQZ
+MxYxKetXJijS9lp1vfNdr3XDdVnnLh8AMG7RfS2x/fIWIOQjo3+b6XIP2Rub
+TFOk5z9d5S77kkVDboLcZQMAxi26zzd/8k5oWcL+ZvRrL02xpW3u8pF0TVc9
+nhHiQSMT9WuBXnKXDQAYr479P+uIFyzKdedd3hWft5lN7rJz97ay9k55Hk6+
+933jhOabjUjUzwHZ5S4bADBODe8Zvnvn4N0wheq9Yt99MF68V1yWk9ijWNFE
+RZmDoO+euFvPivGJ+r1HtrnLBgCMT3TLWbjLXU7GJ/rve/e1ii+scpedu7SP
+494ZxowT47s9Pw3XzRxBAOA70Zz/2LsGOom0vOePxo8wLmGu0Gw1XD/XDgD4
+S/Wur20+6SZ3OZmGsIYZJqv6/nZZf3Zq7xkxHeIEAEAX0b6vlfEbvYWc6DAp
+YS+TRRAnAADaRMM+ypVd7jIybZG+x/qb3GWHJai+o/ue39EiBrjKXXaSrrc4
+AQBQq3rf2/Tu6Dl3GZmPw/GQOBbxrhJuoIjFJcbw1rnLzqDrLk4AANRq6R/u
+jc+4hUjLXbDNXW6Yi/i2/0TfNUHy4c9AwzXe5C4bAJBXtO9vsM5dRuZrwDhl
+k7vsMGXidDS8I3CdAWDhonk/7Mfc5WMZolz70jSvxbxnuIJI27O0iOWZVzYz
+Dffcp9xlAwDyqfqL1hswGiGPGtxEpOcRXeUuOzdrE9u653/usgEA+bTMJdjk
+Lh/LFfZlg6sI+5JS3zaa3hW4lwLAAkVzXoLn3OWDKHMX1L3vaooXbHKXHXI7
++f70jbe9z1127tZG3jS0BbkqAWCBWt4vrXOXD46q96FPPeMFL9oxS1W9J+4T
+H/hqPs4yNbSTXe6yAQD3Vb1nqh1f5S4fXFLNgWlaK3NJEV9Y5S473IPvCAlt
+pi4G+yV32QCA+4rmNYmb3OWDJpGWr/3Ru1LmypwbBrSdpv6AtQcAsCDeHzB1
+Ye01HL8Hjz3jA3vxYI6ieX6h/REBYCFa+gS73OWDPkIudxYq7AnClbTMRVnl
+Lh8AcHvFPEJzDJmbsDc8C1G19X3Ptr7T1qkTzWsPdrnLBwDcXtTPUbXmgMmr
+4mApYyjvWBm1KPewS4mFrXOXnfFruW+ucpcPALithn6mdYjMRqTlLtjmLjec
+i3Kt2K5nfKAY85kfRmfVPbM23pS7fADAbTX0A7a5ywbXZHzF1Il3cS/V/bKp
+rbkvAsBMRZnzra4PsM5dPriFMF+biana7L5nmy1iYtbPkKxlTsEX7QsA5inK
+/Fd1fQDPf2Yt0vK/PeYuN8vTs50WMa1V7jIzDy1t7zl3+QCA64tyH62Lz//c
+ZYN7if77yb3PXWaWoyWee75GZp27vMxLNO+JVNjmLiMAcF0Ncwqfc5cN7inK
+tbh1e3/4fpBNlGsOmtrjF7ErbulwPLW0wU3uMgIA1yNOAN+LMmdHW5/4OXc5
+WZbD8VL3LjesEePGoj2n4VdzWQBgPqI+9/tz7rJBTtVc77qx2SZ3+ViWeJ17
+s7h3r3KXi+WI9vUvX8QKAGAeoj7n+zZ32WAMiphAfMvjZY85YLEa5iCKowLA
+jIgTAABdNcxD1IcAgJloiBPscpcNABifhjVZp57kzgCAaWqYQ/icu2wAwPhE
+mdewS6ygWKv1kLu8AEA/4gQAQF89YgVfq7mLq9xlBgC6aYgT7HOXDQAYt475
+CuzTAQATUswHrHue5y4bADB+De8cmuYXbG5UljdV32Zb5Uh4bpn38FL9zFP1
+O8XvvsldpwCQUzTvh+w5CQC0qvoTX3rGC75U4/NN6jyDKi7wvvqcvn+/S9ne
+mwMBwBI1PCM3ucsGAExDlDkLngaOzYt3+7vq3f62iiGsT/7v03kC14oJdPEi
+ZgDAkhyOfc0z8TF32QCAaYly7n5d32IOijjGOnc9A8AtRX0OopfcZQMApql6
+93/NtQBj8yxeAMBcRTmPru4Z+EPu8gEA0xTlWoSin7Efwbj+lvECOZ0AmJUo
+cwDVPfsecpcPAJi+KNcjDMlf0Me+Gr9v49s+BuszDyf//fkKsYzH8H4FgBmJ
++nmB29xlAwDmI8o5BsUYfXeFsfnRSzVOfxgyVj8p22Ni2YrfWeeuYwC4hob4
+/nPusgEA81WNzdfVe/3H6t3+0ZeT8ffx356qn31/6zF5lHMuHxvep9TZ5q5X
+ABiqet5ejIvnLhsAQG5R7tHYZ47B05C5DQCQWzXH7uJzLnfZAADGome8oFgP
+scpdZgBIUc33EycAAOgguu/7WPyM/RAAmJwi1t3wfFvnLh8AwNhU/adnsQIA
+5kqcAACgv4Y8T2IFAEyaOAEAQJpqDWfbOoQvchsCMCXiBAAA6aLcR/GlQ25D
+sQIAJkGcAABgmCIG0CFWsMtdTgBoU8W/655l1tIBAHTUMVawyV1OAGgS9kUE
+ALiaKlbQlK+g+G+r3OUEgDpFTFucAADgeqr5mk2xgufcZQSAOofjsS7XTu6y
+AQBM1eF4aFl/8D53GQHgkiKeXfPsespdNgCAKWt4H2OvRABGq+HZtc1dNgCA
+KatyFez1twCYipb5cOvc5QMAmLqmnNFyGgIwNk1z4XKXDQBgLg7HzpwCAKag
+IQ+v3AQAAFdSzBlo6HfJUwDAKLSsOZB/FwDgiop5A/peAIxZwz4HX62TAwC4
+riqnYV3fy37UAGTVkk/HmgMAgBtoyVPwJnf5AFiulrkED7nLBwAwR0UsoKEP
+9pi7fAAsU8tcgn3u8gEAzFnR37L2AIAxaXg2FTa5ywcAMGdFzkI5ogAYi5Y8
+u/vc5QMAmLuWtQeb3OUDYDla1ht4LgEA3EnD/E45CgC4i2ofni8NMYLn3GUE
+AFiKYn8pfTIAcqliBC8tcwnswwMAcCdNOQpylw2A+WuIVx9tc5cRAGBJWtaD
+rnKXD4D5Ohy7lhjBc+4yAgAsTTXfs65/ts5dPgDmp3r2tM0jKPIV/JC7rAAA
+S9TQR3vIXTaAuSvmblVzu4p1YNsij2zxHr3GtrKZaiy3Ot+2fARf5CQAAMin
+ob+2zV02gLmpYgLbatzflOO/q301f38z9vVi1bl3OedN7rICACxZ1VcVJwC4
+kWJ+VjWWv0ZcoM1LFYdY5T7vk/Mv1hk8diz/Jnd5AQCWTpwA4PqinF//eKfY
+QJ3n3OPuKkayFyMAAJgOcQKA66niA7uMsYFL9tUcg7vlBYxyjUHd8+VcEUuR
+EwcAYCTECQCGG2l84NJ4vJjjsLpRHRTrCzbRnqfwPIYhZyEAwIiIEwCkq8bG
+2yuN4Z8rj/Ftb4OjXfXf+ozBmxSf837oGL06/9T8C8XeiPY+BAAYGXECgDRR
+zq3fJ47Tn6vx/zplrFyM76N8d78bUIbTGMVTVZ6HqkyrmvNdV/GFxwExi+Lv
+vc99/QAAuKyhn7fNXTaAsYq0OQRP1dj+6u/Qo1z38P4KMYNbe74UgwAAYDwa
++nLr3GUDGJso59n3eY/+Je68T2H1zn83gpjAqb3nCgDANIgTAHQT5Vz/rmvw
+i3HxJnN5VyOIF2SvBwAA+mno29mjCqBSvaPvEiM4zh8YTX6+KOdA3HtNwk68
+GQBgmkIeQ4BGUeYU6DI2Lu6nq9zlbTmXYk7EkByETfGRm+VfAADgfsQJAOp1
+jBFMMn9/fNvTcFs9C/rMN3iu5gwM3lsRAIBxaYgT7HKXDSCn6JaPYD/HcXJ8
+2wPx1Cp3uQAAuL2o39vrOXfZAHLpGCN4McceAIC5qeaMXuwD5y4bQA7Rbe/D
+nRgBAABzVM0lresHz24uLUCb/7+9+8dtI2kWAN5H8N6A2BMY2Asw8AGUbM5o
+Y2VfynBDhW8zxRsp34QHcKALGGD4IkM32Md+bH2iabJnhhyy5s+PwA8wYIms
+aVKCqqa7Ku378VVrBNExAgDALVX+Fh5dXy6Aa9T2WBUv0TECAMCtVfbXbqJj
+A7iX3KevoSeBfgQAAMxC2s/SPvd3sb+JgVlI5+e/vM8+9PsQAIBZaOhR4OwB
+MHm7x0PDeYNldIwAAHBPlb222+jYAG4t/66r1AieouMDAIB7KzO+3EcDZmf3
+WFV+/22j4wMAgAh5BmLl7+RNdHwAt9Kwl2AZHR8AAERp6OG1jI4PoG8NewnM
+QAQAYNbsvQXmpmEvwSI6PgAAiNbwN/M6Or7gtflUZkM8pv0syU1Rm7f+/jW5
+/8O6fP8i+lqAxlkvz9HxAQDAEKTm2WCfo2MMWI9cE3htWJeutqV2sFI3gBip
+3r91Vr/rAACgJtX7FOR8+VN0jDe+/oeSP9T2CfTttexTmPTawpBUfsZfo2MD
+AIAhSfXZB5Ps7ZX2ZwrWqX7u4l5yjWIZvSYwZam+d2oVHR8AAAxNyZmruWx0
+jD1d5yLV9x5H2qgXwG2k/Xmicz979vUAAMAJqflM/mN0jFdc2/v+gehagHoB
+BKj8fpvcfikAAOhLudfedEb/KTrOC67rocV1tcndn0utIfcVWJ6wKv//Phvh
+2tfMr+c+J1wp7euEk6t/AgDAPaT63LD/5q/Rcba8lpwbvFyYo7+UesBVPdBL
+7WVVcv7tBXHkWsND9FrCmDX8XjPnAAAAGpS8til/HfQchHTZHoKXW+fkad8z
+8umC2OwtgAul82eO3qJjAwCAsSj30kd5rzvV+5WduoacQywC4lyl5p4Qx7UZ
+9z6ho3R+X9EmOjYAABiTyj24U/fhw+91p/3e4m3H+sBQ4m5bL8hxL6NjhjFJ
++34hp36e1tGxAQDA2KR2ZxBC8+7Ufdbh8xDqA2fWuu15hFV0vDAWlZ8rPQwB
+AOACHfPXu9ULLqgPbId+Lz7tey+2PTexio4Xhi7VZx0so+MDAICxSvv+e9sO
+Ofn7ffte+xeUv/lz3WJzQSyD20NQuc62fRhX0bHS6v3MNa1lg0V0nFOU6rMO
+rDkAAFwhXT5n8C1dMWew/J3/eMVrr6LX7sL1zrllm74Fo7y+KUofczDXpZa1
+vfAzm7/3qTzXIvq6xixV+qxExwYAAFOR9ve6L8l/Dr0e5ELrI0/l/7rMAjhl
+M/YcK+1rM88t8kpzEOLeo4fyHl37M1GzLa+RX2s0+2KGIJ3fe7SJjg0AAKak
+5K9n79MFyznVKnqNel7vNrUC+eP93o9leU/a9u3o01u6wZmeqaqs4zo6NgAA
+mKLUvZfgrfOn9VTz5RbrvImOccrSR2+M7QA+64c1scepfuZ7eM8eKmu3jI4P
+AACmrNQLnlLM/dXZ5EotagXr6BinJn3snYn4bKuRXffenetp8hYdGwAAzEna
+33O9pOdg17wo58yz23udmmc96FXQ31qvBl4fOPVzsYpetyFI9XmIL9HxAQDA
+HJW/0/O+37zP4NqehP+W53iaY23gxLpua+sUHePYpf0c0Gs+s/n9ybWydfkZ
+WLZ4zWWxLt9be4/b/KzMul6U6v1TZv07BAAAhqTkQav041yDU97nIKza5Fhz
+U/LYWp64io5xrBryy5qX1PMcw/QxZ/E5XbavYR29nkHv4afKejlzAAAATFJD
+Pmv+Qff1XKTuewg2JY+/y1qX19p0jPG1z9rFGDT8bDxFxwcAAHArDXntOjq+
+sUj7fS5d7tc/R+beqfuckXxty+h1vtPa1PYS/Du3mgkAADAvqX7+wJ6Cdmu4
+Gkt94ETsXesFq+iY77AmT7X3Lzo+AACAW2vIE9fR8Q1ZQ055vHd/sH0BU7e+
+i5P9TKT9vpDatS+iYwQAALi1ck/5XF60jY5vqFreh897Mh6jY+1wTY9t90VE
+x3qDa2+aA6IvAQAAMBsNOa8ZcN3WaxR7CCrX1nZvwXN0rD1f96ah3uMMDgAA
+MBsNewpeouMbkpb33J/HnFeWe+svLa5zNHslGq63qe6jVgYAAMxOQ1442py3
+5zVatcidJ7M/veW+iVV0nDd+T9XJAACAWcr3TKeaC/a0Pp9T8+zDya1Ty9rI
+KK+7xbVt1cgAAIA5q+TBm+jYgtelqcfdaHPlltc/uVpBajerYnT9JQAAAPrU
+sM98ER1f4Lo0ndWfxDn9hjVo05dh8GcuSs2n9jkfZd0DAADgFsre+nN503N0
+fEFrUjuPMat1aZlfb4a6Vz+1n+Uw+boPAABAWw376xfR8d15LfK951pPgk10
+jAFr0qZWkNdsUDMCdo91i7hnVfcBAABoI9XPoj9Hx3fntajlxG9DvW8evC6H
+XqJrS7vHsqH2dWgdvbYAAABD0+Ie+ix6u5X8spZTLqNjDF6fNn0A/1tfune9
+oLx/mw4xrqLXFAAAYKga9mhvouO70xrUzrEPvl/fndaotvfkXL3gZnWmUuNa
+Nbx3p/aFLKPXEgAAYMha7CmYdJ+3hjrJbM8bnFmr3Btw27FesC37Ea6uGeR9
+CqU20DST4mTNK82s5wYAAMClUn0O3tst7wsHX3dt5oP96afX7NOFefr7Z2lT
+ajM531+e+myVekD+v4fytS8X1CcOraPXDQAAYGxSff/269Tuq5d8t5Z7bqJj
+HLKSw1+Tu99DrkksotcKAABgjFLzvfVNdIw9X2/TufZJ7qHoeQ0/lfv9tXMr
+EXL9Yhm9PgAAAGOXmufOP0fH2NN1Pjdc5zo6xjEZUL0g7x9YRa8HAADAlLS4
+z/4cHeOV19dUI9hExzhW6bIZBNd6SzeerQAAADBnad9Drum+8HN0nBdeW1ON
+wHyDfj9HjzeqGWzLe/kQfZ0AAABzkJp7FfybRtTbsNznbspXJzvXIVpZ/2X6
+mF3QpXaQawKbtJ+tuEr6EgIAAIQoOVmbHG4ZHWvDdXxO7fryuzcd9/4sTxhF
+DQoAAGBOWtYK/i33iQeX16XmvozvVtGxAgAAwBh0qBUMZm9BuR/dZg+BGgEA
+AAB0lPfkp/Yz7zZR9YJSH9i0jPPNWQMAAAC4TIdz/od9Dld3iu2hQ33gfe+D
+noUAAABwhbTvW//SIR9/v2//XHL53noYlL0DTx32ORzudxhcLwUAAAAYq93j
+8YL8/DBPX5e6wbLl630uX78u33/Ja+fveYxeOwAAAJii3WPRca9/m3MKmyN9
+PXd+rkX0mgEAAMDUlf3/rz3m9H3aJr0KAQAA4O7Sfn7iUOoFuT6wil4TAAAA
+mLuyv+A5qD7wYv8AAAAADE/az0ZYldz90p6HbWsDua+iGQYAAAAwEmWfwbrk
+9dsLawK53rBJH/MS1AYAAABgItJ+3uEyfcw8PLYq/7+MjhUAAAAAAAAAgOnY
+PX7b+c/OX+X8yq/RMQEAAAD3UWoC2T8nelx8j44PAAAA6NfBHoF3bXth/hkd
+OwAAANCP3ePLlXM0f4++BgAAAOB2cr+Bg94DTX6JjhcAAAC4vd3ja0ON4O/o
+GAEAAID7yL0HGuoE/4mOEQAAALiPFnWC36JjBAAAAO4jnyuo1Ai+RscHAAAA
+3M/u8d08RAAAACCfKTAPEQAAAMhyj8JKjeB7dHwAAADA/TTMRDQPEQAAAGZi
+9/jFPEQAAAAgy70HGuoEv0THCAAAANxHnmVgHiIAAACQmYcIAAAAZC3mIf4W
+HSMAAABwH+YhAgAAAO/yzEPzEAEAABiC3WO987azKf9+2FlExzUXLeYh/h4d
+IwAAAPOxe3zaeT2To+bawdPOaudzdKxTZB4iAAAwdLvH484yOg7u+p5/KnsK
+avmq2sFt1t48RAAAYLBKvvieo+S88aXUDeSDE5ff4w61ArWD/tb9a2Vd/xMd
+HwAAMG/lbPq5nGW781xywUV0rNzk/f98YZ2gVjuwP+X8epuHCAAADFqpA7TN
+A7f2G0xPqQP1VSs49lo+Y2oH+7W+eB7i7vFXX+9L9DoAAADDVXL/S/ONw575
+y51P0dfDxZ+DW9YKzn1uzllXrMpn7aTodWyxzrV5iH92eJ5f077m8E/LNf+n
+fL0eiQAAwFmp3z3nx/ePcz5nz8GIpG57S8Zok4LPz+we3yvxdZ6HmJpnLOb6
+gLMMAABAKzlnKrnTPfIzPe9GYKK1gnxW5mEAa9v7PMSGOoGeiAAAwEXSfubB
+Q8nlX++Uu23Swbn15MzCYNzxM3BLb+XzvIhez4N1rc1D/PvC5/zjxHPlPQtf
+oq8XAACYjlI3WJU8fnvH3G6bPs6n59dfRq/FHJX3f6y1gm357Ayu7pR6noeY
+9j0Kjs8x5Nf4NfpaAQCAaUsx+w2O7w1vyuvnGsIyOb9wj/f8bQB5f1vPacB1
+pdTcR6BzD4ETdYfci0CfQgAA4O5KDrksOfsmOD/cpo8zDDmehxLbInqdxi7t
++1wOuVbwVt7zwb/XqT4P8esFz3c856D1rAQAAIB7KDnlquTrQ9qz/l5HeEkf
+s/Xeawn2JPz8Pi6LVVmr/xnAe3gsv5+r6LXquK69zEMsz3VcI9CvEAAAGIWS
+bz4OsHZQqyds0sfehHfLQ9Hr2nLtPx3F/XB0TS8H1zvkPQOH8vsyytpO6mEe
+YtqfXTg8a6BfIQAAMHrpx9rBZgC5Z182Ffla11c6zOuPDb0Gc41tuf7B9SXs
+8Jn/rXJ93zs8x7eD78v/7tzTAAAAYAx2j0X6uN/9MvG8l3Y2Ow/Rn82ePt9X
+zUPcPb6kH/cj5D0F+hUCAACzk/Y9D5ZpXz94TuPaI093b+V9XkR/9nr+HNfm
+If7R8L3H/Q8b6woAAABzlH48c5/nJW6SfQhjtU37syijPVtQ+Zw2zUM8uy8g
+/bwPwUwDAACAC6Qfe/it04/n+9US2ntNH/0V/vcGz5+fexn9ebnxZ/H3yvWf
+nIeY9rWF45kG1X0HAAAAXC99nGvI1gc2B7YDyNf7zvuzwzmRjwfrsDizTn3G
+kc8XTKL3QIvP2F+VdfhpnmH6uV+hmQYAAAADlvY9F5epPnPwWG1WQVvPDa/x
+cCKuXvbxl9fuq0bw1FdcY5Dq8xB/O/ra470H34+/BgAAAKKlfnpHbtPEzxic
+WLfW8xDT+ZkI6gQAAAAMxu6x6qFGsI6+jqC1O55VcOiv8jWnehH89HUAAAAw
+BGl/ZuLS+sAmTWzGYce1q+X/+YzBl4ZzCe9nD87ORAAAAIB7SfteDJfUB/I5
+hVV0/MFr1zQPsbbX4Kevjb4eAAAASPs5CF1rBHn/wWz6FFbWrjYP8djfDfsK
+vkVfDwAAAKRuMyHz1y6jYx6KdL4v4bE/Wn692YgAAACESfu5im1rBGt7CH5a
+v28Na/Y1HcwySPXZCP+/5yD6mgAAAJiv3eO5RX1gs/M5OtahaZHzn5xhkOp9
+D7Nfo68NAACA+cl7A9K+F+G5fDX/32N0nEOV6j0Kz+4LyGcQGuoE+hkCAABw
+d7vHqpKr6lPYvH5/X5Lrp/2MhFo/w+/R1wYAAMD8lPMEp/oUPkTHNnQtcv3f
+Gr6/qZ/hH9HXCAAAwHzsHosTuemTPQSt1682D7FxP0CL3gb/RF8jAAAA81Fq
+Au856WvSp7Dr+tX2A7SaWZCa+xlW9yQAAABAX8r5An0KL1+/r9f2IWzYk3B2
+XgIAAAD0Le17GC6i4xij3ePXvvYB7B7fGp7rl+jrBQAAAM5L9XmInWYVpB5n
+JOb9B7mGEb0+AAAAMCepPg+xVW+Cg+fqZUbiQe2i0+sDAAAA12nI61vf/z94
+vtr+hMYZieUcxHtM9hMAAADAneweX/qeUdBiT8G3hu9/39/QuUYBAAAAXC7V
+5yF26k1w9LwX7SlIHzMTvul5CAAAAPeV6vMQL+4N0KZPwfGZgrx34eD/f49e
+GwAAAJiTksv3MpvgzPM37Sn4+n6uIe3nJLzXFf6KXhsAAACYm9Q8w/Cqff+l
+DvGt4TV+6l3gvAEAAADcX6rPQ/za02v83qFG8D1d0DcRAAAAuF5D/4A/e3yd
+Wj3i0JfoNQEAAIA5OuoZeEqvfQR3j38a9hGoEQAAAMCMlH4Ih/0Kvl7bKxEA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA47/8AGRJhZQ==
+       "], {{0, 747}, {
+       1034, 0}}, {0, 255},
+       ColorFunction->RGBColor],
+      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+      Selectable->False],
+     BaseStyle->"ImageGraphics",
+     ImageSize->{120.37812500000047`, Automatic},
+     ImageSizeRaw->{1034, 747},
+     PlotRange->{{0, 1034}, {0, 747}}]}], 
+   TraditionalForm], "\[IndentingNewLine]", 
+  FormBox[
+   RowBox[{"\t", 
+    RowBox[{"=", 
+     RowBox[{
+      SuperscriptBox["e", "3"], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           OverscriptBox["u", "_"], "(", 
+           SubscriptBox[
+            StyleBox["p",
+             FontWeight->"Bold"], "2"], ")"}], 
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+           RowBox[{
+            RowBox[{
+             SubscriptBox["p", "2"], ".", "\[Gamma]"}], "-", 
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+           RowBox[{
+            RowBox[{
+             SubscriptBox["p", "1"], ".", "\[Gamma]"}], "-", 
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+          SubscriptBox["\[Gamma]", "\[Nu]"], 
+          RowBox[{"u", "(", 
+           SubscriptBox[
+            StyleBox["p",
+             FontWeight->"Bold"], "1"], ")"}], 
+          SubscriptBox["g", "\[Rho]\[Nu]"]}], 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["k", "2"], "[", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{
+               SubscriptBox["p", "2"], "-", "k"}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              SubscriptBox["p", "1"], "-", "k"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}]]}]}]}]}]}], TraditionalForm]}], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->37970285],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"\[LeftAngleBracket]", 
+       RowBox[{
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p2", ",", "m"}], "]"}], ",", 
+        SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"\[Gamma]", ".", "p2"}], "-", 
+          RowBox[{"\[Gamma]", ".", "k"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"\[Gamma]", ".", "p1"}], "-", 
+          RowBox[{"\[Gamma]", ".", "k"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+        SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Rho]", ",", "\[Nu]"}]]}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"q", ".", "q"}]}], "/", "2"}], "+", 
+       SuperscriptBox["m", "2"]}]}]}], "}"}]}], ";"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1895003420],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1187291818],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "m", " ", 
+     RowBox[{"DiscB", "[", 
+      RowBox[{
+       RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}], " ", 
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Sigma]", 
+       RowBox[{"\[Mu]", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"-", "p1"}], "+", "p2"}], "}"}]}]], ",", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], 
+    RowBox[{
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"q", ".", "q"}]}]]}], "+", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"DiscB", "[", 
+         RowBox[{
+          RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"8", " ", 
+           SuperscriptBox["m", "2"]}], "-", 
+          RowBox[{"3", " ", 
+           RowBox[{"q", ".", "q"}]}]}], ")"}]}], 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"q", ".", "q"}]}]]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"1", "-", 
+        FractionBox[
+         RowBox[{"2", " ", 
+          RowBox[{"DiscB", "[", 
+           RowBox[{
+            RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "-", 
+            RowBox[{"q", ".", "q"}]}], ")"}]}], 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", 
+          RowBox[{"q", ".", "q"}]}]]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+      RowBox[{"ScalarC0IR6", "[", 
+       RowBox[{
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{577, 117},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1128022698]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "e", " ", 
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "2"], ")"}], 
+     RowBox[{
+      SuperscriptBox["\[CapitalGamma]", "\[Mu]"], "(", "q", ")"}], 
+     RowBox[{"u", "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "1"], ")"}]}], "=", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       StyleBox["i",
+        FontColor->RGBColor[0.6666666666666666, 0., 0.]], " ", 
+       SuperscriptBox["e", "3"]}], 
+      StyleBox[
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]]], " ", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], "i", " ", "m", 
+        FractionBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["q", "2"], ";", "m"}], ",", "m"}], ")"}], 
+         RowBox[{
+          RowBox[{"4", 
+           SuperscriptBox["m", "2"]}], "-", 
+          SuperscriptBox["q", "2"]}]], 
+        RowBox[{
+         OverscriptBox["u", "_"], "(", 
+         SubscriptBox[
+          StyleBox["p",
+           FontWeight->"Bold"], "2"], ")"}], 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        SubscriptBox["q", "\[Nu]"], 
+        RowBox[{"u", "(", 
+         SubscriptBox[
+          StyleBox["p",
+           FontWeight->"Bold"], "1"], ")"}]}], "+", 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            RowBox[{"\[CapitalLambda]", "(", 
+             RowBox[{
+              RowBox[{
+               SuperscriptBox["q", "2"], ";", "m"}], ",", "m"}], ")"}], 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "8"}], 
+               SuperscriptBox["m", "2"]}], "+", 
+              RowBox[{"3", 
+               SuperscriptBox["q", "2"]}]}], ")"}]}], 
+           RowBox[{
+            RowBox[{"4", 
+             SuperscriptBox["m", "2"]}], "-", 
+            SuperscriptBox["q", "2"]}]], "+", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"1", "+", 
+             FractionBox[
+              RowBox[{"2", 
+               RowBox[{"\[CapitalLambda]", "(", 
+                RowBox[{
+                 RowBox[{
+                  SuperscriptBox["q", "2"], ";", "m"}], ",", "m"}], ")"}], 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "2"}], 
+                  SuperscriptBox["m", "2"]}], "+", 
+                 SuperscriptBox["q", "2"]}], ")"}]}], 
+              RowBox[{
+               RowBox[{"4", 
+                SuperscriptBox["m", "2"]}], "-", 
+               SuperscriptBox["q", "2"]}]]}], ")"}], 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              FractionBox["1", "\[Epsilon]"], 
+              StyleBox[
+               RowBox[{"-", 
+                SubscriptBox["\[Gamma]", "E"]}],
+               FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+             RowBox[{
+              StyleBox["+",
+               FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+              RowBox[{
+               StyleBox[
+                RowBox[{"ln", 
+                 RowBox[{"(", 
+                  RowBox[{"4", "\[Pi]"}], ")"}]}],
+                FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+               RowBox[{"ln", "(", 
+                FractionBox[
+                 SuperscriptBox["\[Mu]", "2"], 
+                 SuperscriptBox["m", "2"]], ")"}]}]}]}], " ", ")"}]}], " ", 
+          "+", 
+          RowBox[{"2", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", 
+              SuperscriptBox["m", "2"]}], "-", 
+             SuperscriptBox["q", "2"]}], ")"}], 
+           RowBox[{
+            SubsuperscriptBox["I", "C6", "fin"], "(", 
+            RowBox[{
+             RowBox[{
+              SuperscriptBox["q", "2"], ";", "m"}], ",", "m"}], ")"}]}]}], 
+         "]"}], 
+        RowBox[{
+         OverscriptBox["u", "_"], "(", 
+         SubscriptBox[
+          StyleBox["p",
+           FontWeight->"Bold"], "2"], ")"}], 
+        SuperscriptBox["\[Gamma]", "\[Mu]"], 
+        RowBox[{"u", "(", 
+         SubscriptBox["p", "1"], ")"}]}]}], "}"}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1482713304]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "NLO Higgs decay: ",
+   Cell[BoxData[
+    FormBox[
+     RowBox[{"h", "\[Rule]", 
+      RowBox[{
+       OverscriptBox["f", "_"], "f"}]}], TraditionalForm]], "InlineMath"],
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection",
+   Deletable->True],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1108322331],
+
+Cell[TextData[{
+ "A Higgs decay to two fermions mediated by a hypothetical massive vector \
+boson (unitarity gauge, vector couplings to fermion only):\[LineSeparator]\t\
+",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJzt3T+LJEuX3/FzJRkyZ16BSv0KBq4royTGEazRrBjk1i5oXDUrQbOwRplj
+tnsNQZlLW20K2ilDhgQNGlPG01DIWlhotSFjQUijislT09lZJ/JfRebJjPw2
+fHafuV1/IqOqq34ZeSLin//lv//zr/9IRP7DPz3+nz//i9t/+Vd/9Rd//W/+
+yfEf/+qv/+O/+8t/fPwf/+k3kf92vE34jz9+/AAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAYJbkN7k6uj36dvTj6HfvNgEAAABj0Sx8
+8qyZuOzJu40AAADAGCJ52PLNu60AAADA2I45+GMYL45k5C/e7QMAAAA8aK1F
+NR+/hPzs3TYAAADAQyQj33u3CwAAAPAS8rCRkW+92wUAAAB40bqKakZmzTcA
+AAAsUpiXx5pvAAAAwJvSXiGs+QYAAAD8+JmRrXXfWPMNAAAAi6RrI7PmGwAA
+AKCOWfgra74BAAAAb1jzDQAAAHiPNd8AAACANyELt1nz7fjfHo3b1fnD+9gG
+6q+Puh/hrY6/v0Rud2vMg3xifB4AAGD6IvtP1675Flkn7jTP7zaXuX66ZvQp
+D1tj7Wd125H+tPrps/fxAQAAwBYZH25c883IjFmtpdxhvPxWb/+xx1g79SwA
+AAATE1vzrcX9PnfN1HMm9rofJ6EPr46eT+cK4d+l+34p/a7q2fvYAAAA8J7Y
++0/XrvmmmfCU+V6WMhYq9tofT6X+eCpn48p9r2pqNbI+vwAAAJibSF1x7Zyy
+Uj3BcywT5ijWV5qNG9eSjtw/uxoVAACAuRN7/+lo7i3l45/jp97tH7mvrHHk
+0B9na4BE7m+N2ZtriAAAAMCHtFzzTW/7sZSnH5eWj7UPrFqJl7Zj6VpvQU0y
+AADAhEnLNd80253y8SL3p46cTzTWpRiPY8778z4+AAAAFCK1A18qt/m9ND9v
+sXWzkfOJl67j6WRkAACAaTNqB14qv/9cus2i94YTe93jTvsIUmsBLNvx55N3
+GwAA9SK1A/el35fXA/7q3V7nvrLWkA467ZNXU6/BnD1gAY4/4f+8Hu2ONkcr
+7zYBAN6TmjXfKnUFix/jFHs9is79EnmczuPRAOZJM3LV96O7o+ujD95tBICl
+k8iab21qlC94zurefF66jv9a5xOda7PFrmlefB0LsBSRjFy1P9pSlwEA44vU
+Dpz2ibMyXJK1LGacka1+6XzeEDn/CBaxTyGwdC0zclmoy3g4uqEuAwCGJ/Fr
+/j9qcvLF6yHPMSOLXUP80vP4rfWVqUUGFqJHRq46aC0zdRkAMIBjLvsjkh2/
+6e+tnLzIegCx6yM61w/XnJcsej4ksCQJMnKslnntfWwAkIPIeObn0u+tXLjI
+uXuR+og+dRbWeUnn9ZUBzNcAGbnqVJdBLTMAdBSpHXiq3CbJWmc5MM4n+uwb
+8jFyXrLIsXlgqUbIyNVa5lCXsaGWGQCaRcaIrf2nrXHPRe1DLXb9dOc+YFwe
+QDByRo7VZVDLDACGtrUDkXyYZO7eXEjNGtIdH+fZeJzFjckDS+eckav2whpz
+APBTzTV/M/cufe5e5Pg7rdMm7/crjI7bA8jfBHJxXV0Ga8wBWCyx11aIrj0W
+yXeLqBGI1GR3Wqctck7CWm9YlOPPvz3609F/P/rXUtTI7mvsdHwzR95ZuEtm
+DrUZf3v0reMxrqfI++8AwLT1qR2IjDtH13XQ55h9HUHkfKLT+K/R389LqlUB
+jj//7Oj/lbJX+X8DY/ru/fcAYLr61A5E5ps9Rm77uc1jzkHbuu2a+1fruUM+
+vvI+LmBMUly7985GwMna+28CwPREagca94urqWE+y3uawTvvrzFFXeq2jfte
+yft5euRjLNLx528mkIuAk5X33wSA6YmMB7dax6zNffU2WeyJIS3WkK6578fK
+eP0T+RhLJUVtcTWnbBuEuWP7THlnxK7+Xopa8qeWx/d9Am22hPrqG++/BwDT
+FKkdaLVGRc1Y8q3+/pShO+8/N0V9zyeMfHw/1DmD1nL8kcu4PfJ0/Pkv1bzi
+3Sbn/vDOik1Cxt0KNQkAFiSScVvXDUdyY5brmUXqts0a7NJ9PpfqK0Jffx2o
+bV8r7SMjY7KOP/+bjPyuP7wzcNVB2FcEwIJFagcaa5GNx7HGorPKaRLfh/uH
+jtteVW4fzh0eu47N92hT7Bwlm75HXjR3neUy73Y594l3JmZ/agAouaQW2Xis
+8npmT0ONlzr2lbXm26P2obU/94v+brB+0HOTWz3X+b1yTYCMjEmSSP2td7uc
++8QjF5/2BmE/PQBAb5Jo/+mB2/hIRsaUhTwWy2zebXPulzEyMTXFAIDk5P2a
+bZ3rtkdqIxkZkxYbQyYjD5KJD0JNMQBgQKnqtkdoJxkZkyUN+4Z4t8+5b1Jk
+YmqKAQCjSlm3PXA7ycgLFq6hq23JRv/byrltnzTDkZHt/qGmGAAwO5F1OyZV
+i6ztJCMviObOO2m/P8OrZqrNmNfe2+RjMjI1xQCA+ZEL15AesZ1k5MyFbKvj
+hocE1+Z3Q48v1+TjP5GR3/UTNcUAgFmJrPk2uVpkbSsZOWOajRvHY6eSlTXX
+We0N/+3PyMjv+oqaYgDArETWfHvyblekrWTkDOlYbNt6itPY415q1pCI5Nab
+RO39oDkv9jzheNZk5Hd9Rk0xAGBWxN5/epL7a5OR86PjiXVjx63GHeVtLl9T
+1g75etOzrR/0OWLtfT3lQDIyAADzJfH9pyc3X0/bS0bOiObe2iwrPWpUdRw3
+Ns5bzrONdbAhl2s7Hhoe73t5nJSMDADAfEVqkYPP3m2LtJeMnImafJyyJqJL
+DUfI5PuKtnUcd9WcTUYGAGC+Imu+BVfebYu0l4ycgZp8HPLsaoDnG2ouYMjV
+68hzkpEBAJihyN56J1+82xdpMxl55nRs18qbu7qahwTP21RL3EXI8puG5yMj
+AwAwM7qvnrUm8smz3uajd1sr7SYjz5zY6x7vRm7DtWZyqy11uTjUVLRam4GM
+jKXR+S236j62hqj+vjpX/Gmq82AALEPIlTW5uM5X77Zr+8nIM6bjuGfZ07lN
+Kznf3/pkE6ulaPG4ZGRkS+eynPJwbLzlvnKf2xbfNS9TnQ8DAFM2hYwsA9TL
+LoHWOlTrHF6HrK9wPl4yMrLUYWzlVm//sfLZ3cbk9nkFgCnzzMjytm9Etrlu
+4P6zxpA33u0a8HjJyMheuMZYk3NDNr7S2r2f6+5LaT64jkU/R+777H1sADAn
+XhlZztdF2Hn3xdwYY8h77zYNfLxkZCyC2OsjPWlGftb/ba6VpBk6Vqsxybnj
+ADBFY2dkzTmxeV3sq9u+H6+N/rv2btfAx0xGxiLo+PBZnYVm4/ue9/857ux9
+bAAwF/J+LvRgGVnncTXtq5Zkn4slkPM97w7ebRrhmMnIGdDPgpV3O6YsMo4c
+xjOeWt4/tpdVq/sDwNIZYw0vMsBaQdK8hm5YA2zt3R9zYvTnnXebRjhmMnIG
+SnX0+5zr5y/qI7tW4iVWX2Hc/4qaZADopmE+SNVF6wU11FWc1mBg7Lh7v66M
+vlx7t2uE4yYjZ6LyuRA+B1qvk507ie9F1Wn8Iva57n18ALBkmuH2DXUVoVaA
+tSz69e9ZVlxCX5KR8xF5D5+uKW2W8H6O9o295nEYQ+60/xQZGQCmQ972Jq7L
+xnvGiy7u55vqeLx3m0Y6bjJyRqR+fsKrnkcv7rNC7HWPO80VodYCAKZDinUW
+muoqNt7tzIFxHrL3btNIx01GzojYe+BYDnpemP3Ysq7tdnHdW029BnP2AGAk
+YZynRV3F3RK+30bsczIyGTkLxjWRJmFsee3d7sH6w16PovPYb826Fi57qQLA
+kugY0B11FS59Xz0nyX5NCz1uMnKGpKhB7pKTT2PL4Vxx5d3+pH1hr2vceU3j
+SE1z53l/AIBupJhTU3eNNHx/Zb2fhXP/V/t+692mkY6bjJwhvRbVNSOXPWhe
+Xnsfy8V98X69+t5744m9vnLwu/cxAkCOpF1dRfiuoq5i2Neg2udr73aNdOxk
+5Ey1uCbVRRiX3um5/GyuY0VqiF96Ppa1vjK1yACQmBR1FbuG76V9btc9p8jK
+Et5tGvHYyciZkvbz9/ra6/n79VQ/pyL1EZ3rh2tqkb96HyMA5ESKOTVNdRVr
+73YuhZyvHfLg3aYRj52MfN4nd5r/mvSp+c1Z+DuaVI1GpD6iT53FHynWVwYA
+2DSP1H2vhty89W7nkkhx7bj6Omy82zXi8ZORz/tkP4G8mYtfNRour+V5fUSf
+fUM+RuosmKsHABc6/qykua4ijL+svNu6JFJciz5Uz1O82zVyH5CRz/uEjJxG
+6McwJu9SixHWPzZy7X2Px7HqNdg3BMDiHH9uEj/eVqirmCSx5zRtvds1ch+Q
+kc/7hIzcXfiMC+f5N1P5PIus+dZ57Dfk4Uv3HwGAudM8+yPRY62leY+8pHl8
+aqQYp10b3NfokGJsyzpfcW/byP2wrvaDd5u8SVF/s23Jen9Pyd8Z7/MUQg3F
+nfbVyvs1M19He823Tuu0hTl5KdZWBoA5k1JWuPBxVlKMp9R9v+wkwywmxRpq
+W2k3DveqtwvjTqOuJaXttMb2F7f+dPl9n+L9j+mQ870jLxkj3suE5uI1Hru9
+/3Snddoidcis9QZgUTTXnjJTr3pUKcZMt5HsVR57WXsfb+K++6A595BgXGoz
+Qntj+Xjn3ZdOrx8ZOUOVz7Q+djKztZDfHb+9Vlun8V+jVuOZdSwALI28X2ti
+3+P+1w0Z8XWM/OfQb01r2PVxGKqvJL6XYXj9sxvXb9knZOQMSfO1rNjf3k0O
+fwuXrvlmzPcL+fjK+7gAYExyvt7EvsN9w1jNvuF75y6H75zKcX+S4deGDf26
+StTeDzWZ4TW316dj35CRM2O9pg3CZ+Dau91J+8Beq63VGHDIwpV5euRjAIsj
+9tq4+xb3O9VVNGW8WV6n7NFnVb/mt1fzp7zN47upya3V7+9Vz7Y21b98z/E1
+6thHZOTMSLu6p4NkMmZ8dvz2/tOt6oi1Brk81++JfAxgaSRel7pvuN+mJnOd
+xiU33sc3UJ/tGr5zN12/c0s5tul7/aHN4+vjXTe09ZSPs8sHPV5TMnJGpPnc
+PfxdrL3bOWgf2OsZN66LbOTj+6Hqj7WWI+zd13lfbAAYkuaoWK3APnKfkKn3
+Dd8/21xzV03mTLKGnbSb81jO43tt01b//75Fzj658+7PqSAj50Pi8/QO+ney
+8m7jKP1gr/n22HCfz6X6ilCn8XWgtn2ttI+MDGBSpP4a/75y25DdrL0m3t0n
+5++fmuPfpz4nkHY13n1lt65Igv4mI2fC+FwL/17UeoaRNd9+5dFq3YSOOT+W
+bpN8f2ltkzW2TUYGMClS1ODV5t3SbTeRcZny+EzW30Fi77Xx85rtwM+7TpiV
+R1lXbo7IyHkovY7hM2mb8zl7bT/Ya749akb9w/jdi/5ukHFjbdO9Psfv6oWM
+DGBqrDwQGRtdS/O6DeF7KMu6ilJ/rSLnCLuR23An3ddfPuj9Fj0nr0X/kpEz
+IEUtWNbn6636IdH+0wO38ZGMDGBKpKiZaFPr2rR368NSxmjErknZObZnpZlu
+qx70nGZf+m/XS3l9EvUpGRnZqKzZ1mv/6RHaSEYGMCly+XX7MC659j6OEfvr
+LDsdffduF4Z/nb3bBPQRWfPtxbtdRjvJyAAmQ5rn3NUJY89b72Nw6DPrnIK6
+hcyQkZGLvmu+ObSTjAxgEiQ+56yN3RKv20tR2ziZGgsM+lqTkZEFsfefnlQt
+sraTjAzAncT3CelSX7G4eTCRcfeVd7swyGtNRkYWxN5/elK1yNpOMjIAV1K/
+T0hXoe5g7X1MI/bdoXL8D95twmCvNRkZsxdZ821ytcjaVjIyADc6fpwqH1ez
+ctY1uVKsHVE97sWNpS8FGRk5iKz59uTdrkhbycgAXCSor1h0nbIU+6ZUjzfr
+daCXjIyMHIi9//Q373ZF2kpGBjC6kfJxNStnlR+lWGO4fIys95YxMjLmTuL7
+T09uvp62l4wMYFQO+fjkNacxZTnfN4Ra5IyRkTF3kVrk4LN32yLtJSMDGE2k
+PmAIB3nb022j+SK3ceR95Zi33m3CoK83GRmzFlnzLbjyblukvWRkAKMYKB/v
+dTw1ZOGwvnLW8/Qq/Vmd67j1bhMGfb3JyJityN56J1+82xdpMxkZwOAuzMev
+moXDWsA3mhVW3sfkzegn1rTIGBkZc6X76llrIp88620+ere10m4yMoBByfnc
+sibfT1nYu+1TJfb+evRXxsjImJuQK2tycZ2v3m3X9pORAQxGivUkuuTilXeb
+50D7iry0IGRkYFxkZABDaZGPycX9+7a6psXeu00Y/DUnIwMjIiMDGEJNPiYX
+X963K6Nfb7zbhcFfdzIyMCIyMoCUjj8f5Hy9BXJx2j62zj/o28yRkYFxkZEB
+pFLJx+TiYfrYGkPee7cLo7z2ZGRgRJV9s8nIAHqTt/06Vt5tyZWc7xvCehYL
+QUYGxnPMxN8qa228THXPbAAYi46Hr9Vk9iQRYy0LxpCXg4wMDCusOddhfbpJ
+7p8NAKlo7ULInmGdiENknuGvPCrFPiaj79Uh8T1YVt59iNHeA2RkAAAwGB0n
+3hhzC7t41by8GqG9sXzMWhYLQkYGAABD0Zrp1wuysWU3VFaO1FcED959iXGR
+kQEAQGqaL5pqKS4Rcvc2YXtXcr5PyEkY//7g3acYFxkZAACkpGPHTRl3r7e7
+1izyQe/7Sf99o+PFTWPQIYf3rleWog6kbqybfLxQZGQAAJCK1O+HfdDs2ylz
+ao7et8jKrdeH1sdsyuAP5OPlIiMDAIAUJD4nL+TQTYLHX7fIyqe8fBqnLtu1
+vH+w9e5P+CIjAwCAS9WMHycfi9Xx4tTzAMs1IJNZoxl+yMgAAOASEq8/Hmyt
+NGmuI+7qkGKsG/kgIwMAgL6sHKE2Iz3/ae3ltjUU1RqQMP699u5HTA8ZGQAA
+9CX2+m4ue23I257WW3mrPa4Kv7uhngJNyMgAAKCPSI0Fe20gC2RkAADQlY7Z
+VmuBw79ZKw1ZICMDAICutAbYpQYZGAMZGQAAdCXnayEfvNsEpERGBgAAXRx/
+VlOZpwcMhYwMAAC6iNRZrLzbBaRERgYAAF3I+Z56373bBKRGRgYAAF3I+X4d
+d95tAlIjIwMAgC6MNd+oRUZ2yMgAAKALoxZ57d0mIDUyMgAAaEv3DiEjI3tk
+ZAAA0JaVG4S99ZAhMjIAAGgr1B6TG7AEZGQAANCWse7b3rtNwBDIyAAAoC1j
+TQvWfUOWyMgAAKANsffXW3u3CxgCGRkAALRh7B1y8G4TMBQyMgAAaHL8uTbG
+kLfe7QKGQkYGAAB1dE3kQyUvvLLmG3JGRgYAAHWMtSwYQ0b2yMgAAIzv+LPS
+OXB3WudbXS/iNFa719tce4zbirEeMmPIWAIyMgAA49CahZCLvxu5s62H8Bgj
+tXcTacO1d18CQyMjAwAwLM3G28hYcV+HIbOyjl1bz8t6yFgEMjIAAMPR79lD
+wmxcFWoxPiVs70rO13g72Xn3JzAWMjIAAMOoGYst+663u9Hv5LLw33YtM3Z4
+jN41wi3Gunfe/QmMiYwMAEBamjfrao4Pmn9XHR5zpTm4qV5j12VcOdxW71P3
+uDvvPgXGRkYGACCdhnwccugmwePXjfeWn+tBb1seo77R/7Zv8RjBjXefAh7m
+mJG7nHcDADCWhnwcxmqTrZcm9XXDk6tzBuZmbhlZP3+YUwsAmByx99r4cenY
+ccNzrhNn5cOQ7QXmYoYZ+edngXc7AAAoE3uvjUHzceX519JcV1xXlxHuu/bu
+R2AqZpiRt1NvIwBgWbTuwcqmG6f2rPX78kHHmA+VceK9vNUqr737D5iiGWbk
+B23n2rstAAAEkRqLrXe7APQ3w4x8Ok9nni0AwJ2OIVfz8XfvdgG4zJwycuVz
+6MG7PQAARMaQ197tAnCZmWXk63I9lXd7AAAw6pAZwwEyMLOMXN3Tc+XdJgDA
+clXGbhhDBjIys4y8r7R1490mAMByGXUWB+82AUhjZhm5eq7OXiIAADdyvqce
+30tAJuaSkY8/n5g3DACYEuN76dq7TQDSmFFGNvcv8m4XAGCZImM3n7zbBSCN
+GWXkas0XcyMAAG7m8v0JoJ+5/I0bNV+z28dIfpOro9ujb0c/jn73bhMAoJ+5
+fH8C6GcOf+PHnw+RfDzZdSg1C588ayYue/JuIwCgvzBGwxwZIF8zychnbSx5
+9W7fu7baedjyzbutAID+jBrAvXebAKRz/PmzGWTk6rn6LOZIHHPwxzBeHMnI
+X7zbh/yV6nuq78NwLndbut3vvE+Bbo4/h7nW/gFodvz5GyNzrrzbVWnjQ0NG
+3ni3Mdr2Ip9Uc8dLyM/ebUO+NPPel95z9+W8e/zfnzU3P+q/rffpD96ngE3s
+NS1Y9w3IyPHnPxt/5zfe7aq08bUhI++82xhtu5097r3bhXxV3nPhfOxz5Han
+6xy3lTxNzTzQ4PhzZ3wXffBuF4B0jj9/N+V5cGFMuyEfT3qeRCR73Hq3C/nR
+uopyTUWop7hquM8XzdHUzAMtSTGPvDp2M5nvTQCXq8mfk5kHF+ooWmTkydWH
+/Gq/nT9Y8w1JaW3Fc5d8rPf7WDOvlFpkwBCZI0OdBZCRhvy59m6ftnHfMiNv
+vdt61vZijI7r1xiU5uPquVjr87CajEwtMlChY0vVMeSDd7sApNUwF247gfa1
+qbOY7GeUvO0VwvVrDCKSjzvV8kTyMedygEHs/aw23u0CkJZxLly2n0D7rDkR
+dTbebX7XfnvdN65fIwmtP66ux/3Y43GoRYYrre+91hqGvTqcav9K/+1Or3+u
+nNq5m+J3JYC0xF63psp1jm5Dhp9krv/VdrvOkzXfkEzkHKyxBrnyGKyLDDea
+d5vW9oxeO9RMvRqprVY+fvXK6wCGI837cgRucxCk/Vy9qpV33/5s/2/y1cgd
+rPmGJCJ1PJ3XS4nUzL94Hx/ypWPG2x5jIHV2Q372R/Lx5K5dAkhD2s2Fu3Ns
+X9+xBbc2v2s/a75hILFc2+caRSRrcy6HQUhRT3FImI2rtonbuxK7/vhnLvfu
+TwDDaPl547LusHSbq1c1iXXrjHlUrPmGi2kNj/Xe6nX+FanX4FwOSUkxdhwb
+iy076PjIVq2luKYY/vddTV6tPsY6QXu3Nc+x8+5TAMPQc/m2mXPl0L66z6Y2
+Nq79a9d4nq0TEOZXRWpBY/7wfu/AV3gPJBxDvoq8zziXQzKaN+uy7UE61BXr
+44XcvG8a49HbtZ5XI8U8nZDF6+pAJnGtEsAwpNt6ERuH9h0uzMh71/6195+u
+XScgcs37lH9umeuHmkzbdwzZep9Si4xkNHPG8ubh0u8XKcaZm7LyD71NyOHX
+ep+yGynGuJu+d169x18ADK/hnN71mpJ0G+Oe1Pj3r2Owx4cb1wkwrqGz/hZ+
+iYwhd17LovR41XXjqEVGMlKM98ZyZxinSbZukhTjxSnnAFoZe+XdpwCGpZ9b
+XT4bDiO3r+9cvbPPYJf+jaz51uJ+n7tmaixHzRhy5/WQ9fGq7zdqkZGMxOsr
+Qo4dZL0kGWa9jMNQ7QUwPdJvTbVPI7Wta36v4zJ3T+w1B2rH5jRXn8b0XqgH
+RVWkLuKSOotYLTzvPVxM7Hq+1zG+S0pZ+XDB98cD2RhYHmk3t7jqZqS23STM
+yMFm9P7tsW5tKa88971ujryJvf5Er0xbM4ZMLTIuJkWNr0s+NtrySb9XQuaN
+1Rie9vELuT7U+rnunQXAT89z64cJtC18jv2p8t/2MrH9tCNZJpp7S/n4iXl5
+sETqd3pn2poxZNZNwcUin+Mb73YBQJ3jz6rvmOwIbbPGHk52Ulw/21f++1aa
+191cjda/Ldd809t+LOXpR/IxYiL1O73m14m9/yM18EhC7Fq+UcZYAOASclkt
+w3rgtlk591B+Xisjl34XMrZ1LW20uXuRmtGztSl0/tVT35yDZampRe607kmp
+7t3ag+QH52m4lPEZHK7zUbsAYPLksjUjtgO2qzpX79V6vrqMXLrNjbyvvxjt
+M1rs/ae/VG7ze2l+Hmu7oVGkxr3zfL3S41hryJnXO4C2pKj9He17AwBSksvW
+xBlsX+rK9bl9rD6iTUbW21XrLzaj9O/5+NxL5fefS7dhjS20Esm0nd5DpTqg
+28i5HOdruIjYa1l8qNxmJed7eASjz+cDgBOpr/dta5DxWCmuzx2kYa2dthm5
+cszhsfeD969di3xf+n25DvSr9/sB83FpRi7VWNzrv61aC2qRcRE5r7PY6djy
+1vjsjo7FaNZm3TUAo9HPqUsz8lBrv2/a5O+uGbl0v/Xg/Vuz5lulnvTZ+72A
+eampR25Vy66170/6v61zOWqRcRGx17b/nxd+3xz0e4t6ZgCD6nAeX8dl77qa
+Y9h69+uvtkXWfGtTowzUkfi6Fm32b3yU0rrbkbxNLTIuImmuU8a8kpUBDCVy
+jt/rvN75OCaZkcVev/Y5kptZywKd6PsrthaFWW8hb2unvNu3caxaZL02lHJP
+4Or44sX1q2KvJ5lSkjGFEfpynaCNqfd/GqytAFAmxd5BqT6nVo7HUf0+23r3
+7c92xcf5ftTkZK5to7VILc/JH6XbXZXGis/2NY9k7c/J2ztcpvuVlxK0cYxc
+t1lIX24bnuNB+3sduX+oW95IUcPcdLyu1zMB5EXs+cZun/kXHMe+0patd9/+
+bFd8TtU3/b2Vk1nXAq3J+z1n2niSyv6OkVrkQfafHiF7viZoY1OuS+FmIX35
+zXpc6VkjIUVern7el+28/yYB5EHi+9T34bZnkvGZufXu25/tahibi9SAMncP
+nWhOtmol2tZfWGPRg9T9SP3el1PJnisZdow2ydrsknaMw7JN0MZ/cfQP5Qyb
+6NjDNdBDpN17779JAPOm3wNJP/cdj2Wf+rP94ja12H9a7HrlQa5xI39a21PN
+yvdN1ybGvp4hxfXz9QCSraUrRU3yEG0Mks0xm1lfrhK/j6rr3Zftxvq7A5Af
+eb8/Ryou670bn5NuY9q/2tR+/2mrHoO5exhFzXna795tA9qQeP34xdcUACxT
+zfn3JVw+k+S8fnDv3r8t13aTYo895u7BhdjzSgepRQaGUjPmwz59ADqTeC3X
+JfZOxzKpjCzxNbnM3Dv2tW7gZMxaZGBIxvdA8N27XQDmRYoattT5+Cen45la
+RrbG5qL7Mcj7/aiZu4fRcH6GnIi95sXGu10A5qOmfiuFtcPxTC0jR/efrrmP
+Ne4c3XdPn4O5feiNWmTkRuw1SQ7e7QIwH1Ks2z5URh59HfcJZmRrbK42d0Tm
++D1GbvuZLINLUYuMHEVqLq692wVgHgbMx8Ho9V9TysiRsbnG3FFTw3xl3DZk
+8D9Stx3LErnekXz/aWBMUqwJVx1L3nm3C8D0SbFO5ZAZOUi2/mfLY5pSRrbG
+g1vNgWpzX73NC+te4FJd63uAuZDz/VXc1u8HMB+R61CpjXpda2IZ2VrzrdUc
+qJqx5Fv9/S05BimIvccNaw4iC2LPS197twvAtEna/adjdiMf05QyspVxW9cN
+R8aSuRaOpCLvs+jaK8DcGPUWW+82AZguKeq0hs7HwWHk45pERo6MzXWeAxUZ
+i/5BDTJSibzHOP9CNuR8Hbidd5sATFeogRgpIwerEY9rKhm5dy2y8Vjl+VRh
+jt5X7/cP8hDmgUbOwXiPIRtT+V4AMA9yPo9hSKPtS81nIdDeMQs/UseD3PG9
+AKALGWb/6ZiHEY+Lz0IgQueC3raodWePPWTj+LOpfi95twnAdEmx7ltb1l58
+Xe7/acTjIiMDhpox47aogccsib3O6ajrkgLIk/X54t2mmraSkQEAvxx/VtY4
+j3e7AMwfGRkAMGdyvv7bnXebAMwfGRkAMGfHn4fKd8PBu00A5o+MDACYMzHm
+7VFvAeBSZGQAwJyJvW/W3rtdAOaNjAwAmLvjz46xZAApkZEBAHMXWd/iu3e7
+AMwXGRkAkIPIWPLOu12l9q3FYW8BAP2QkQEAOdC65Oo6cMHGoS3XR3fhe8po
+T9mr3mZLbgamhYwMAMiFZlMri25GeO6V5mIrp7d10O869goEnJGRAQA5idRc
+BIPsLaLZOPacfb2SlQFfZGQAQG7kfF+RX/P4UtY0HH9uLhw3bpOVr737E1gi
+MjIAIDdS1CbHcvIPHfddXfD4a83bTfl2pzl6XX6+kNP1v20b2vmrvd59CiwN
+GRkAkCtproEI+XQjLWoapKipCHn30PCY+65jv5rpNw25+3ubdgJIg4wMAMiZ
+Zs829RDfNTNvS05rU7S9/zpBe69rcjg5GRgJGRkAkDsdA963yLl9a4ZvErf3
+g+ZzMyd79yewBGRkAMBS6Hdeqqw8+NoTUoyBW8+98+5LIHdkZADA0kgxZ+6u
+pqahTusa5kRtjeVk1rsABkRGBgAsmRR1GBt5W2NiX3Gnv1uPlYuNNlo5+dWr
+PcASkJEBAJg+seuTt97tAnJFRgYAYPqkmMdn1YYwlgwMgIwMAMA8WN/ZjCUD
+wyAjAwAwH3K+LsfBu01AjmaWkdfyfm33jXebAAAYU2T+3ifvdgG5mVNGBgBg
+6bQumXoLYGBkZAAA5kWKNererdns3SYgN2RkAADmxZifc/BuE5AbMjIAAPPC
+dzcwPP7OAACYF767geHxdwYAwLxIsX92dd7e2rtdQE7IyAAAzA8ZGRgWGRkA
+gPmR832pt95tAnJCRgYAYH6M9d/23m0CckJGBgBgfo4/N0a9xQfvdgG5ICMD
+ADA/kXl7N97tAnJBRgYAYJ6OP9/ZSwQYBhkZAIB5Ov5sGEsGhkFGBgBgnkL9
+8dFr5Xv8lbpk4HJkZAAA5isyd2/v3S5g7sjIAADMm1GXHOwc2vFB6z/uQk43
+xrhPvuvadSHfr7z7D7CQkQEAmLfjz6dIFt2N9PwbOV+vuYuD5mVqRDAZZGQA
+AOYvUnPxMycPlT01Gx8uyMZVYdx5S1bGFJCRAQDIg+bhWG3Dp4TPs9JailTZ
+2MrK1979iWUjIwMAkI+anHwaU15d8NgfdJy3KeOGTH6nY9vrio0+RpuM/cCY
+MryQkQEAyIvm07rsuesyThtuq/eJzcE7jf3edcng8jbHz5pzWM7b5GSMjowM
+AEB+NNfWZdqTvWbbrebVa/3fp7HepsdIUkOseeRQ8xzJakWANsjIAADkSYq6
+4UvWm2iTr1eJ27xlPBlTQEYGACBv+l2/T5yN1wO2NzYG/t27L7EcZGQAAJZB
+inWUdy3qJ2L1Drshs7HRVqudW+9+xDKQkQEAWB7NoDeae/eVcebTv3da+7B2
+bKOV16lNxuDIyAAAYKqkmEd4Vuvh3S7kj4wMAACmTOx5h2vvdiFvZGQAADBl
+UqzPUc3ID97tQt7IyAAAYOrE3j9w5d0u5IuMDAAApi4ylnzj3S7ki4wMAADm
+QM73rKbeAoMhIwMAgDmQ8z34Xr3bhHyRkQEAwBxYmYWaZAyFjAwAAOaCNeAw
+FjIyAACYCyMjX3u3CXkiIwMAgLkw5u1tvduEPJGRAQDAXBx/9mRkjIGMDAAA
+5sLYS2Tv3SbkiYwMAADmIuwbQm7BGMjIAABgLo4/n5i3hzGQkQEAwJyEvUMq
+2WXn3Sbkh4wMAADmxKhJZi8RJEdGBgAAcxKpt9h5twt5ISMDAIC5MdaAY889
+JEVGBgAgX2HM1bsNAx3XWX45Ohx98G4b8kBGBgAgT6FG97SGcI5Z+fjzYOTk
+B8e+3hzdaX9X9wPcqzu93cq7/9D4mpKRAQDIkFGPcJfTOGs4FmONi9FqkzUX
+b3X8utqGNkKOvsnpNckJGRkAgPwcf64juSxkyhvv9iU8Tqvm4oeOMQ+SPTUb
+73rm4thrsiUrTwsZGQCA/Oj4pDXGWh7DXHu3M9GxbiLHeEh9jJpl6/r10qyc
+zfnL3JGRAQDIk453WjW77+oSchi/rMnJp2NcXfj4azmvMY6de9xplr7W+230
+37uWj7HP4TWZOzIyAAB50+/6Q+7jlw05+ZSV1x0e74M+5r5Fpt20zbV67nLT
+8JqE32U3z3JOyMhYCvlNPh7dqvujl8jtwu+fjn6UhH/feh8DAFxCmusEDl0y
+5BRprmmqhQi/f6iM9Z6cxnybcvEpG1/UXw3nL6/kZPf3EhkZWTnm2S+lPPxS
+ybsn95X73EZuVxYe67P38QFAXzo2umvIfiE/rrzbeuExNtWYXCL5uLvmcnLy
+hJCRkZsWOffkVm8fxpcfO9wv+N37OAHgEtJcX/tzrQXvdiY4xjbjwV2E84uh
+1sv4JPYY+GGo50Tj+4eMjCwds+zXmpwbsvHV0bP++1v4d+m+X0q/q3r2PjYA
+SEGa178I+Wzt3c4Lj3Gt2bbvehQHGWlttpqc7LI3ypKRkZE7rT2uZtwnzcjP
++r+vIve9qqnV+OJ9bACQgrSrvwjjsSvvtiY41rW81Rsfao71Qc8fRq9zqMnJ
+1979tyRkZOROx4fP6iw0G9/3vP/PcWfvYwOAlDSb7Ruy8ijjqUtn5TOh5sL9
+NfBuE5BSZBw51B8/tbz/l0hGbnV/AJgbKdZ2aKq/YExz+Ndha52jeLdrKcjI
+yF2kVuIlVl9h3P+KmmQAS6P1F3ct6i9Yc2HY16BaD3LwbtdSkJGRs7D+RN2a
+Fh0ex5z35318ADC0lvUXd9QADNb/G+qS3fqejIxsib3mcRhD/tjxccjIABZN
+ir02qmOaZaE2Y+PdzhwZdS877zYtARkZOYuse/xHx8eg1gIAfvy69m/VyFJ/
+MWy/V2teXr3btARk5LzoZ1c4z79Z+nUvXdvNyrad9smrqddgzh6ARTr+rFrU
+X+xSfg/JgueqWVmN8xCffvduEy56PT9UrsmEz6i1d7tc+sJej6Lz2G/Nuhad
+xqMBIDeaIZrqL5Ls2ayPd+d9zI59Xe3bjXebckdGzo+OIVf/lg46xrzybt9o
+/WCva9x5TeNITXPneX8AkCv9fqlbK+77peM1S8+Gcr5v+Na7TbkjI+ep4RpY
+2Dso+zmxukfIxXvjRdZXDn73PkYAmAqtv3hoUX+x6vn45bHpxdUZGN/rix1T
+H7HPycgZkmKtnrrPqdPY8l2OY8uRGuKXno9lra9MLTIAGFrWX2x7PG51XHpR
+c27kfN7e3rtNuSMj58v4e6qzz+n6VaQ+onP9cE0t8lfvYwSAKZOi7q9pr751
+h8c7uybqfYwj9+eWjDx6n5ORMyX2/jxNXjVbz/o6VqQ+ok+dxR8p1lcGgCXS
+76Fdw/fOQ5vrmZH7JpkPOAdi7CXi3abckZHzJsWa710ycvVa1maOedmoj+iz
+b8jHSJ0Fc/UAoAPNGtU5Z2f1F1JTP1Fz37X38Y3Yh9Vjn93385yQkfMnzXMo
+2o4v7/Uz7Lruc8xbWP/YyLX3PR7Hqtdg3xBgYqTY5+e2tJYN82knSsddmuov
+zDnlDd9Pk/1OStx/1WNn3t6w/U1GzpwUc43rPpP6Omj+vpnSeXxkzbfOY78h
+DxuP02n/EQBpaRY+sf5GmU87cVLUXzTNlwljMqvK/fZ1t/c+rpH6rjrmdfBu
+U87IyLV9s9Fx06E96N/+kA41ny0phWtp4bNvI07XgCJrvnUaVwpz8lKsrQwg
+jUgetvB3OhNSrL+0b/hOCd+RH/T2TbfNfkxVjJpkmdAYVW6EjFzXN01/j2g2
+ao2G2PtPdxpXitQhMzYFTIT+jVrnwr3m5sL59Wyuv3jV27T5Ts567X8530s3
+2Hu3K1dk5Nq+ISOnzcqnuozBcnJkrbZO40pGrcYz61gA0xKZL8CaMzOl2W/b
+8D3yv1p+12Q9jy3ST4tZ32PkviYjx/uGjNxfueZiNdprduGab8Z8v5CPr7zf
+iwDei2TkznNzMS1SzJ+59Ls36/1FxB5Lfh3zu3YpyMi1fXMnw9cJBzsZvua5
+bs2dS5XrKdaur5m9VlurcSWdG/9MPgamL3I+zLqMmZCiNu9wwffSzvsYBu6f
+rXHMbucGUtSWh+vEsdx0yjlrrzb2PK51tZ+924ThX+MLfdf3+0YmdE1L7P2n
+W9URG/WNT+RjYLoi58Os+ZYRKcZLvx39Q8/vqo33MQzcP9bY12g5WbPFTvqt
+m/WgGWLSeZmMnD+5/LrVXuaxLnKva69GPr5PWdOo7arOLwrPwX7WQA+ReQfM
+q82IvNUnX7pu6WTGcQboo0+R/hk0J2u2PVz4upw07h3j3Mdk5IyJvU5M27Hi
+yZ/jvTtWe577Y8N9PpfqK15S5lb9HrfGut59rzPHCOjGmFfLmm8ZkeZ1Lrpm
+sJxzcmwv3XDc68TP1Watvktep8nNOyQj50vsuv6m9+hujp8nYq/5dvJHtW5C
+x3Yfh6pjjIxpk5OBBCLnw6z5NnOSdnxySTl5U3Ps4Tt9deHjt1lz5CRk6Ds5
+nxO1b/na7i9tb+K+JSNnSpr3MToJ79tB12Qb/Fjta6+PmlX/MH73or9LXu9Q
+qYu+Ledf/Z0114gxMKCFyPkwa77NmOaQIeeVLz0nn7Jyp+MPWVVzRNPa1eGx
+W61LrY9505CXJ/NakZHzJMU1kabPjPC+Xnu3NcnxJtp/OlFbHrV+Izp/SOx9
+/PiOBxpE/nZY822GNH/sB87GVRvv4x6wPz81ZM/TmNhOM/X6lEWlGCsO/77W
+XNx0znJxHbE+V93zuL9WZOQ81XzuhL+PWY8Zm8dr71M7+hx3KdaPC8/9ucVt
+q+PbXCsGGkSuw7Dm28xIMZ6YquaYnPzWrx80Aw/ZfyFfrBK2+abmvbB27k8y
+cmbEvuay836vDXa89ppvL05t+Vnb0bPdrHMBNBDWfMuKvI1fbqRb3So5ub5f
+15J+jD68LoPs9S3FGLg1puxad0FGzou8n6d3kAzHjM+OeUL7bekYV+vvazIy
+0F7kfPhszTd5Px+3jVbntS3bWP08chvj1trtW3UfGzsQe33KJ+/xec1N15qd
+dwNkvq33e3qEPlzL5ePKD0Nl40pbP0RysufeKGTkjOjnSfh7WHu3ZbRjnvG1
+10qNCLUWQI3I+XDtfNfIXIXyvN2k8wC8MrIU85ZPeTi25uR9Q1tj/dRYOzbq
++6Co01jL+33d+tZt7LyPZ6Q++yBvtcZN5xrlfcJGzaY1OXnr1G9kZMzanK+9
+VtrOnD2gRmR8uPHc0viMGGwdGY+M3GG8/FZv/7HHWPvkP1M1X2103LNLZt55
+t92xzz5pDlx7t6XUplXk9Vs5tIWMjNkSe803l1rkHm2/KrU52bVeIEcSWfOt
+xf0+d83UF7bTtdZC7HU/fp2H6+fO6fpVGGO/Kt33i9jzn4Nn7/dA5754u67a
+Ji/vvNuLs9fO/TUiI2POxL6OOos9aSvfpVfe7QGmLHI+XDvvQDNheR/NwcdC
+vTOytsGqP3sq9cdT7DNHM3SsVmO29WAt87Jb3SvM18yqCVmN3AYyMmZL7P22
+ZrEfR6nts2gv4ClyPlybP0v1BM9jnYdOJCObfaWfOY3zmSP3z+azqiEvk5Mn
+Qmsuqq/P3chtICNjliLXXl2+k3q0/XQ99NG7LcAcRM6Ho7m3lI9H3et9IhnZ
+Gkd+bHuNLTJmP5trdJ36ys7L5OSJMMaSDyM/PxkZs1TzOT6pOdhGu0/XO5/H
+/O4G5kparvmmt/1YytOPY/+NTSQjW7USL23H0uX9XIlZ1yR36rf3eTnk5Ens
+h7xkYu/3MNrrQkbGXEXGSiZf26vtHu3aLzB3Ru40r/trtjvlY6810r3n7Fnn
+E53bEXmMH97vhdH6UddJ827H0kmxVkk1I9+M+PxkZMxOzffApOeVyNvapZNf
+RwmYisj58JfKbX6X0noNjm31zsjW+cRL1/H0pWdkTIdRb7Eb8bnJyJgVqV8j
+/zQ/J/neAAnafapBJh8DHRh/7y+V338u3cZ3bzj/jGyte9xpbcml1lpgmqTY
+96ScU/cjPjcZGbMQPudrcnEd9z2e5W2N1knXSgNTE7lmdF/6/deJ/a27ZWSJ
+z2Pu9LlTc50uuzl7mD4p9iJ/t/bIiM9NRgYGpN83L1OuAQGmSmrWfKvk0UmM
+cTpnZGsec+d+iTxO5/FoIAXPnEpGBoYjb+vxtxrf0tsz1gwoiaz5Ji1qlJ3a
+65mRrfOJzrXZxjG41I0AARkZ+lqwzkxG5G3P19bXf/V7n/UugB/R2oHTPnFW
+hkuyloWc71/tpWuNhNUvnc8bIucfAXMpMLrjz8pY22I90nOTkX1f942ux3ig
+7/Mhb2sgtx0//qjfS+wpAqiaa/4/anLyxXN155iRxa4hful5/NacaGqR4cZr
+/Tcy8uiv87XO0fxuvOb0fQbk/R4GXblfKwamQuLzdL/p762/s4vrAWaaka36
+iM71wxI/L3GfD4nlMtZ/exjpecnIw/bvJ52TWX19Td7txYWv92X5eBJzjoCp
+iIxnfi793sqFrn9HRptGqeGVRPXZkfOSzusrAymFcWMjM61GeF4yctr+XOlr
++SDv939vxbv9uPD1t9cmbYv5MICSFvtPS6K1zhK32ysjn60h3TXXan9a5yV8
+NsFVpCZ5O8LzkpEv678P8rbH+6FrJqbvAeBcZIzY2n/aGvd02Yc60u7B86XY
+tSGd+2CK4/LAiXE9PoxDfhj4OcnI/fosWlNMRgaAy7StHYjkwx9etQFOGTm6
+hnTHx3k2Hoe1KDEJUqxxUM1NdwM/Jxm5uY8+leonkmZi+h4A3qu55m/mXhlo
+7l7PtntkZOv4O63TJu/3K4yO2wOeItfr1wM+Hxn5vE9W8rYmW+eaYjIyAPQn
+9toK0bXHIvnOpUZg7Iwsdk12p3XaIuckrPWGybEyq+a01VjP590HDn1+qike
+pH6CjAwA7fWpHYiMO0fXddDnSF5H4JCRrfOJTuO/Rn8/e9WqAE0i1/RDdkte
+m7zUjCwd12QjIwPAOPrUDhjZNDD35CnVMCffN84hI1+05puc13OHfMxen5gs
+Hdc8RHJy0v2Kl5KRRS5bk42MDADDi9QONO4XF6kX+GHlPc3gnffXaNn+sTNy
+67pt475X8n6eHvkYs6DjnFaWC//tOuHznGVk/W8etgl9O/pbKc4rJpuJDSn7
+YEw7Kcbk+wrnLknP/wDMT2Q8uNU6Zm3uq7cZbE+MMTOytFhDuua+1f2OnsjH
+mBOJ5+QfmilWCZ7D2rsE8DD4WocApi1SO9AqZ9aMJd/q70/5dbA930fOyL3O
+J4x8fD/UOQMwJKnPycFOeoy/STFHbT+BXASUrb3/5gD4iWTc1nXDkdw42npm
+I2dkq27brMEu3edzqb4i9PXXAY6/2q771M8DnEiRk5vWWwi/D+syhOy7ijzG
+RhLtBwcMgHFkYMEitQONtcjG41hj0cEgNciV5x4lI0t8H+6fx1mtm9B2PQ7V
+LinW17DOb97VgTBejSFIMY/vbuCM8n/FYU3gkpDz9wn816P/cfT3R//H6Vj6
+SnH8HkLtz/ZC1CMDC9a3diDyWN8q2WyUccwRM7K15tujPr+1P/eL/i55P7QY
+uycnYxRSzG0LmSR1NttJpmN48rZP3hD9lpR3XwEApk8S7T+doB3lsf/bcv7V
+31lj+uzfh0FpVr50b+QwXhzGplfex+PQd+77hZCRAQB9yPs12zrXbSdsx6O2
+JfrcYu+DyFgyBidFDcZG2tcZ/6pb9m77FMjbHntt+4+MDABwk6puO0E7rvS5
+G/crNOo/BltbBKgj9trD1Hq267uVnnO47DXiffwAgGlLWbedoB2t5kEauZ51
+LoCZk5Frmb2PFwAwbZEaX49a5Psu9R1kZCBvWpcxWC2z9/EBAKYtssba6LXI
+PdpdrqGm1gLImHSvBScjAwB6i6z5Nnotcs+2l7M9c/aABdFa5ptLapm9jwEA
+MF2RNd+evNvVot1XpfYOvpcLgGnTWuZtl1pm7zYDAKZL7P2nJ7/ecGWe4ZV3
+ewBMS5taZu82AgCmSeL7T48+X69H25/mkucB+IrVMnu3CwAwTZFa5FbrEzu3
++7SHyKN3WwDMz6mW2bsdAIBpiqz5NunaBR37flbM0wMAAEAykb31Jr+Omub6
+5ynneAAAAMyPznez1kQ+edbbTGqcttTuya/dDAAAgHkIa6TV5OI67nvYlWqQ
+yccAAABYvDCHcA5zCQEAAIAxaN30y5RrpAEAAICx6F56L21rPfT2jDUDAAAg
+S5p3n7vUQuuaF6x3AQAAgOyU1kBuO378UfMxe4oAAAAgO5p3n4y1NdqgZhkA
+AABZuTAfP3u3HwAAAEgt1Er0zMfBrXf7AQAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAuvr/Tzw9TA==
+     "], {{0, 413}, {713, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{123.9356249999997, Automatic},
+   ImageSizeRaw->{713, 413},
+   PlotRange->{{0, 713}, {0, 413}}]], "Input"]
+}], "ExampleText",
+ CellID->97247466],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{" ", 
+   RowBox[{
+    RowBox[{"i\[ScriptCapitalM]", "~", 
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]]}], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         OverscriptBox["u", "_"], "(", 
+         SubscriptBox[
+          StyleBox["p",
+           FontWeight->"Bold"], "1"], ")"}], 
+        RowBox[{
+         SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+         RowBox[{
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          SubscriptBox["m", "f"]}], ")"}], 
+        SuperscriptBox["\[Gamma]", "\[Nu]"], 
+        RowBox[{"v", "(", 
+         SubscriptBox[
+          StyleBox["p",
+           FontWeight->"Bold"], "2"], ")"}]}], 
+       RowBox[{
+        RowBox[{
+         RowBox[{"[", 
+          RowBox[{
+           SuperscriptBox["k", "2"], "-", 
+           SubsuperscriptBox["m", "f", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "V", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", 
+            SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+         SubsuperscriptBox["m", "V", "2"]}], "]"}]], 
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["g", "\[Nu]\[Sigma]"], "-", 
+        FractionBox[
+         RowBox[{
+          SubscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "2"]}], ")"}], "\[Nu]"], 
+          SubscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "2"]}], ")"}], "\[Sigma]"]}], 
+         SubsuperscriptBox["m", "V", "2"]]}], ")"}], 
+      RowBox[{
+       SuperscriptBox["g", "\[Rho]\[Sigma]"], "(", 
+       RowBox[{
+        SubscriptBox["g", "\[Mu]\[Rho]"], "-", 
+        FractionBox[
+         RowBox[{
+          SubscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "-", 
+             SubscriptBox["p", "1"]}], ")"}], "\[Nu]"], 
+          SubscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "-", 
+             SubscriptBox["p", "1"]}], ")"}], "\[Sigma]"]}], 
+         SubsuperscriptBox["m", "V", "2"]]}], ")"}]}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "ExampleText",
+ Deletable->True,
+ CellID->524192404],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"int", "=", 
+   RowBox[{
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"\[LeftAngleBracket]", 
+        RowBox[{
+         RowBox[{"\[ScriptU]", "[", 
+          RowBox[{"p1", ",", "mf"}], "]"}], ",", 
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{"\[Gamma]", ".", "k"}], "+", 
+          RowBox[{"mf", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+         RowBox[{"\[ScriptV]", "[", 
+          RowBox[{"p2", ",", "mf"}], "]"}]}], "\[RightAngleBracket]"}], 
+       RowBox[{"(", 
+        RowBox[{
+         SubscriptBox["\[DoubleStruckG]", 
+          RowBox[{"\[Nu]", ",", "\[Sigma]"}]], "-", 
+         FractionBox[
+          RowBox[{
+           SubscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p2"}], ")"}], "\[Nu]"], " ", 
+           SubscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p2"}], ")"}], "\[Sigma]"]}], 
+          SuperscriptBox["mV", "2"]]}], ")"}], 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Rho]", ",", "\[Sigma]"}]], 
+       RowBox[{"(", 
+        RowBox[{
+         SubscriptBox["\[DoubleStruckG]", 
+          RowBox[{"\[Mu]", ",", "\[Rho]"}]], "-", 
+         FractionBox[
+          RowBox[{
+           SubscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "-", "p1"}], ")"}], "\[Mu]"], " ", 
+           SubscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "-", "p1"}], ")"}], "\[Rho]"]}], 
+          SuperscriptBox["mV", "2"]]}], ")"}]}], ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "mf"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "+", "p2"}], ",", "mV"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1"}], ",", "mV"}], "}"}]}], "]"}], "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+       SuperscriptBox["mf", "2"]}], ",", 
+      RowBox[{
+       RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+       SuperscriptBox["mf", "2"]}], ",", 
+      RowBox[{
+       RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+       RowBox[{
+        FractionBox["1", "2"], 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mH", "2"], "-", 
+          RowBox[{"2", 
+           SuperscriptBox["mf", "2"]}]}], ")"}]}]}]}], "}"}]}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1731202219],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "int", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->41015626],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "mf"}], "]"}], ",", 
+   RowBox[{"\[ScriptV]", "[", 
+    RowBox[{"p2", ",", "mf"}], "]"}], "\[RightAngleBracket]"}], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    FractionBox[
+     RowBox[{"4", " ", "mf", " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        SuperscriptBox["mf", "2"], ",", "mf", ",", "mV"}], "]"}]}], 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["mf", "2"]}], "-", 
+      SuperscriptBox["mH", "2"]}]], "-", 
+    FractionBox[
+     RowBox[{"4", " ", "mf", " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        SuperscriptBox["mH", "2"], ",", "mV", ",", "mV"}], "]"}]}], 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["mf", "2"]}], "-", 
+      SuperscriptBox["mH", "2"]}]], "-", 
+    FractionBox[
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["mf", "2"]}], "-", 
+        SuperscriptBox["mV", "2"]}], ")"}], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["mf", "2"], 
+        SuperscriptBox["mV", "2"]], "]"}]}], 
+     RowBox[{"mf", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["mf", "2"]}], "-", 
+        SuperscriptBox["mH", "2"]}], ")"}]}]], "+", 
+    FractionBox[
+     RowBox[{"4", " ", "mf", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["mf", "2"]}], "-", 
+        SuperscriptBox["mH", "2"], "+", 
+        SuperscriptBox["mV", "2"]}], ")"}], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{
+        SuperscriptBox["mf", "2"], ",", 
+        SuperscriptBox["mf", "2"], ",", 
+        SuperscriptBox["mH", "2"], ",", "mV", ",", "mf", ",", "mV"}], "]"}]}], 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["mf", "2"]}], "-", 
+      SuperscriptBox["mH", "2"]}]]}], ")"}]}]], "Output",
+ ImageSize->{509, 128},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->537612211]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{" ", 
+    RowBox[{
+     RowBox[{"i\[ScriptCapitalM]", "~", 
+      FractionBox[
+       StyleBox["i",
+        FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+       StyleBox[
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}],
+        FontColor->RGBColor[0.6666666666666666, 0., 0.]]]}], 
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "1"], ")"}], 
+     RowBox[{"v", "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "2"], ")"}], 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"4", 
+        SubscriptBox["m", "f"], 
+        FractionBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{
+           RowBox[{
+            SubsuperscriptBox["m", "f", "2"], ";", " ", 
+            SubscriptBox["m", "f"]}], ",", " ", 
+           SubscriptBox["m", "V"]}], ")"}], 
+         RowBox[{
+          RowBox[{"4", 
+           SubsuperscriptBox["m", "f", "2"]}], "-", 
+          SubsuperscriptBox["m", "H", "2"]}]]}], "-", 
+       RowBox[{"4", 
+        SubscriptBox["m", "f"], 
+        FractionBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{
+           RowBox[{
+            SubsuperscriptBox["m", "H", "2"], ";", " ", 
+            SubscriptBox["m", "V"]}], ",", " ", 
+           SubscriptBox["m", "V"]}], ")"}], 
+         RowBox[{
+          RowBox[{"4", 
+           SubsuperscriptBox["m", "f", "2"]}], "-", 
+          SubsuperscriptBox["m", "H", "2"]}]]}], "-", 
+       FractionBox[
+        RowBox[{"2", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", 
+            SubsuperscriptBox["m", "f", "2"]}], "-", 
+           SubsuperscriptBox["m", "V", "2"]}], ")"}], 
+         RowBox[{"ln", "(", 
+          RowBox[{
+           SubsuperscriptBox["m", "f", "2"], "/", 
+           SubsuperscriptBox["m", "V", "2"]}], ")"}]}], 
+        RowBox[{
+         SubscriptBox["m", "f"], "(", 
+         RowBox[{
+          RowBox[{"4", 
+           SubsuperscriptBox["m", "f", "2"]}], "-", 
+          SubsuperscriptBox["m", "H", "2"]}], ")"}]], "+", 
+       RowBox[{"4", 
+        SubscriptBox["m", "f"], 
+        FractionBox[
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", 
+            SubsuperscriptBox["m", "f", "2"]}], "-", 
+           SubsuperscriptBox["m", "H", "2"], "+", 
+           SubsuperscriptBox["m", "V", "2"]}], ")"}], 
+         RowBox[{
+          RowBox[{"4", 
+           SubsuperscriptBox["m", "f", "2"]}], "-", 
+          SubsuperscriptBox["m", "H", "2"]}]], 
+        RowBox[{
+         SubscriptBox["C", "0"], "(", 
+         RowBox[{
+          SubsuperscriptBox["m", "f", "2"], ",", 
+          SubsuperscriptBox["m", "f", "2"], ",", 
+          RowBox[{
+           SubsuperscriptBox["m", "H", "2"], ";", 
+           SubscriptBox["m", "V"]}], ",", 
+          SubscriptBox["m", "f"], ",", 
+          SubscriptBox["m", "V"]}], ")"}]}]}], ")"}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->1761234119]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell["\<\
+A negative momentum argument supplied to a \[ScriptU]-spinor is equivalent to \
+a \[ScriptV]-spinor with positive momentum:\
+\>", "ExampleText",
+ CellID->1925345348],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{
+      RowBox[{"-", "p1"}], ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//",
+   "FermionLineExpand"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "FermionLineExpand"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2068317945],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "m"}], " ", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{
+     RowBox[{"-", "p1"}], ",", "m"}], "]"}], 
+   "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{157, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->244162852],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "m"}], " ", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[ScriptV]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{148, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1951287794]
+}, Open  ]],
+
+Cell["Same is true for a \[ScriptV]-spinor:", "ExampleText",
+ CellID->1074903240],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{
+      RowBox[{"-", "p1"}], ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//",
+   "FermionLineExpand"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "FermionLineExpand"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1266316116],
+
+Cell[BoxData[
+ RowBox[{"m", " ", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[ScriptV]", "[", 
+    RowBox[{
+     RowBox[{"-", "p1"}], ",", "m"}], "]"}], 
+   "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{148, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->870731491],
+
+Cell[BoxData[
+ RowBox[{"m", " ", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{141, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1430598579]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->21197129],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects are internally represented as a collection of two ",
+ Cell[BoxData[
+  ButtonBox["Lists",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/List"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and a ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1591590359],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "InputForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->802856681],
+
+Cell["\<\
+FermionLine[{1, p2, m}, {-1, p1, m}, DiracMatrix[LTensor[DiracG, \[Mu]], \
+LDot[DiracG, p1], 
+  LTensor[DiracG, \[Nu]]]]\
+\>", "Output",
+ ImageSize->{627, 27},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//InputForm=",
+ CellID->1723176687]
+}, Open  ]],
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["Part",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Part"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to strip away the Dirac spinors:"
+}], "ExampleText",
+ CellID->207838357],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "[", 
+  RowBox[{"[", "3", "]"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->837921793],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Output",
+ ImageSize->{173, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->227728209]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1581175274],
+
+Cell[TextData[{
+ "The product of two or more ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects are assembled to form a ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "ExampleText",
+ CellID->1850182140],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[Gamma]", ".", "p2"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[Gamma]", ".", "p3"}], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1814820401],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{"\[Gamma]", ".", "p2"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{"\[ScriptV]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+  "\[CircleTimes]", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[Gamma]", ".", "p3"}], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{394, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1953490033]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckOne]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dirac1"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]5",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG5"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]L",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPL"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]R",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPR"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Sigma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracS"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineProduct",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineProduct"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineExpand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineExpand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1894616965],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "FermionLine - Wolfram Mathematica", "FermionLine"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 20.533334}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "FermionLine[{sgn_2, p_2, m_2, ...}, {sgn_1, p_1, m_1, ...}, \
+DiracMatrix[mtx_1, ..., mtx n]] or \\[LeftAngleBracket]\\[ScriptW]_2[p_2, \
+m_2, ...], mtx_1, ..., mtx n, \\[ScriptW]_1[p_1, m_1, \
+...]\\[RightAngleBracket] represents a product of Dirac matrices sandwiched \
+between spinors OverscriptBox[w, _](p_2, m_2, ...) and w(p_1, m_1, ...) \
+corresponding to frequency sign sgn_k, 4-momentum p_k, mass m_k, ....", 
+    "synonyms" -> {}, "title" -> "FermionLine", "titlemodifier" -> "", 
+    "windowtitle" -> "FermionLine", "type" -> "Symbol", "uri" -> 
+    "X/ref/FermionLine"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/FermionLineExpand.nb b/packages/X/Documentation/English/ReferencePages/Symbols/FermionLineExpand.nb
new file mode 100644
index 0000000000000000000000000000000000000000..04128cc1af6ba4d1d0dbcbb74a70a0a3fb84c2e7
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/FermionLineExpand.nb
@@ -0,0 +1,3045 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"\[DoubleStruckOne]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dirac1"], "\<\"\[Gamma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracG"], "\<\"\[Gamma]5\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"\[DoubleStruckCapitalP]L\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracPL"], "\<\"\[DoubleStruckCapitalP]R\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPR"], "\<\"\[Sigma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"], "\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracMatrix"], "\<\"FermionLine\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/FermionLine"], "\<\"FermionLineProduct\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/FermionLineProduct"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/FermionLineExpand\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/FermionLineExpand"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/\
+FermionLineExpand.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/ref/FermionLineExpand", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["FermionLineExpand", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["FermionLineExpand",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/FermionLineExpand"], "[", 
+       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]expands out ",
+     Cell[BoxData[
+      ButtonBox["DiracMatrix",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      ButtonBox["FermionLine",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", and ",
+     Cell[BoxData[
+      ButtonBox["FermionLineProduct",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " objects in ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details and Options"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->799700729],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The input ",
+ Cell[BoxData[
+  StyleBox["expr", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " may contain only ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", only ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", or only ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects, and must be strictly linear in them."
+}], "Notes",
+ CellID->1303065471],
+
+Cell[TextData[{
+ "An internal version of ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is used by ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to carry out numerator algebra. ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LoopIntegrate#100181607"]
+}], "Notes",
+ CellID->1663716136],
+
+Cell[TextData[{
+ "If possible, ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " contracts any multiplying Levi-Civita symbols ",
+ "(",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ")",
+ " into the products of Dirac matrices."
+}], "Notes",
+ CellID->1207439736],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " anticommutes ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckCapitalP]L",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPL"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckCapitalP]R",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPR"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to the right-most position, and uses the Dirac algebra to contract pairs \
+of gamma matrices with repeated indices."
+}], "Notes",
+ CellID->1118659285],
+
+Cell[TextData[{
+ "For expanding ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects, ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " additionally applies the Dirac equation, and replaces momentum-squares \
+with masses-squares consistent with the on shell conditions implied by the ",
+ Cell[BoxData["\[ScriptU]"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["\[ScriptV]"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " spinors."
+}], "Notes",
+ CellID->971909577],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " identifies and consolidates equivalent tensor structures in ",
+ Cell[BoxData[
+  StyleBox["expr", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ". ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/FermionLineExpand#1500815072"]
+}], "Notes",
+ CellID->1350855076],
+
+Cell[TextData[{
+ "Additional algebraic manipulations are controlled by the following options, \
+and are observed also by ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " for numerator algebra:"
+}], "Notes",
+ CellID->1146014044],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["ChiralBasis",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/FermionLineExpand#1085028300"], 
+    ButtonBox["Automatic",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/Automatic"], Cell[
+    "whether to perform the Dirac algebra with chiral projectors", 
+     "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["ChisholmExpand",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/FermionLineExpand#1212617335"], 
+    ButtonBox["Automatic",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/Automatic"], Cell[
+    "whether to resolve products of Dirac matrices to SVTAP form", 
+     "TableText"]},
+   {Cell["      ", "TableRowIcon"], "DiracAlgebra", "$DiracAlgebra", Cell[
+    "whether to use the Dirac algebra", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["GordonIdentity",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/FermionLineExpand#928905348"], 
+    ButtonBox["True",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/True"], Cell[
+    "whether to apply the Gordon identity", "TableText"]}
+  }]], "3ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True}}}},
+ CellID->2124297117],
+
+Cell[TextData[{
+ "Possible values for ",
+ Cell[BoxData[
+  ButtonBox["ChiralBasis",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand#1085028300"]]],
+ " are:"
+}], "Notes",
+ CellID->475716367],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["Automatic",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/Automatic"], Cell[
+    "Determines the basis based on input expression", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["True",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/True"], Cell[TextData[{
+     "Performs Dirac algebra with chiral projectors ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["P", 
+        StyleBox["L",
+         FontSlant->"Plain"]], TraditionalForm]], "InlineMath"],
+     " and ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["P", 
+        StyleBox["R",
+         FontSlant->"Plain"]], TraditionalForm]], "InlineMath"]
+    }], "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["False",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/False"], Cell[TextData[{
+     "Performs Dirac algebra with ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["\[Gamma]", "5"], TraditionalForm]], "InlineMath"],
+     " "
+    }], "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True}}}},
+ CellID->1712105851],
+
+Cell[TextData[{
+ "Possible values for ",
+ Cell[BoxData[
+  ButtonBox["ChisholmExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand#1212617335"]]],
+ " are:"
+}], "Notes",
+ CellID->1959502877],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["Automatic",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/Automatic"], Cell[TextData[{
+     "Resolves products of Dirac matrices for ",
+     Cell[BoxData[
+      ButtonBox["FermionLine",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " and ",
+     Cell[BoxData[
+      ButtonBox["FermionLineProduct",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " objects, but not for ",
+     Cell[BoxData[
+      ButtonBox["DiracMatrix",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]]
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["True",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/True"], Cell[
+    "Resolves all objects to SVTAP form", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["False",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/False"], Cell[
+    "Does not resolve products", "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True}}}},
+ CellID->1229651604],
+
+Cell[TextData[{
+ "With the setting ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["DiracAlgebra",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#1616289800"], "\[Rule]", 
+   ButtonBox["False",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/False"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " distributes the product Dirac matrices over addition without any other \
+algebraic manipulations. "
+}], "Notes",
+ CellID->1135279052],
+
+Cell[TextData[{
+ "Possible values for ",
+ Cell[BoxData[
+  ButtonBox["GordonIdentity",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand#928905348"]]],
+ " are (applicable only to ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "):"
+}], "Notes",
+ CellID->86819375],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["True",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/True"], Cell[
+    "Applies the Gordon identity", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["False",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/False"], Cell[
+    "Does not apply the Gordon identity", "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->1519373347]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(13)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1617489377],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(1)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->148471866],
+
+Cell["Expand out a product of Dirac matrices:", "ExampleText",
+ CellID->986900148],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "k"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p"}], "-", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->86240412],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    SuperscriptBox["m", "2"]}], " ", 
+   RowBox[{"DiracMatrix", "[", "]"}]}], "-", 
+  RowBox[{"m", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{"\[Gamma]", ".", "k"}], "]"}]}], "+", 
+  RowBox[{"m", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{"\[Gamma]", ".", "p"}], "]"}]}], "+", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "k"}], ",", 
+    RowBox[{"\[Gamma]", ".", "p"}]}], "]"}]}]], "Output",
+ ImageSize->{554, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1695977554]
+}, Open  ]],
+
+Cell["Expand out a fermion line:", "ExampleText",
+ CellID->983919053],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p2"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2019428406],
+
+Cell[BoxData[
+ RowBox[{"2", " ", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{"\[ScriptV]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+  SubscriptBox["p2", "\[Mu]"]}]], "Output",
+ ImageSize->{187, 17},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->415789954]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p2"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->753535346],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[ImaginaryI]", " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "-", 
+  RowBox[{"m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{422, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->338503648]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Scope",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(6)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1293636265],
+
+Cell["Contract gamma matrices:", "ExampleText",
+ CellID->462333798],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->870420300],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"2", "-", "\[ScriptD]"}], ")"}], " ", 
+  RowBox[{"DiracMatrix", "[", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], "]"}]}]], "Output",
+ ImageSize->{153, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->292729765]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->15731224],
+
+Cell["Apply spinor equations of motion:", "ExampleText",
+ CellID->1242089649],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1761259440],
+
+Cell[BoxData[
+ RowBox[{"m", " ", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{141, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->964180887]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->205971284],
+
+Cell["Write products of Dirac matrices in SVTAP basis:", "ExampleText",
+ CellID->1892749465],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[Gamma]", ".", "p2"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1332393349],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[ImaginaryI]", " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "-", 
+  RowBox[{"m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{558, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1697065735]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p3", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+   "\[CircleTimes]", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p4", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1507553244],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[ScriptD]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p3", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p4", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]}], "-", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p3", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+   "\[CircleTimes]", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p4", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]}]], "Output",
+ 
+ ImageSize->{345, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->247941384]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->254193187],
+
+Cell["Apply the Gordon identities:", "ExampleText",
+ CellID->879920026],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p1", "+", "p2"}], ")"}], "\[Mu]"], 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1614031560],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "-", 
+  RowBox[{"\[ImaginaryI]", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "p1"}], "+", "p2"}], "}"}]}]], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]}]], "Output",
+ 
+ ImageSize->{396, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->516502949]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p1", "+", "p2"}], ")"}], "\[Mu]"], 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1419058010],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "\[ImaginaryI]"}], " ", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Sigma]", 
+    RowBox[{"\[Mu]", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "p1"}], "+", "p2"}], "}"}]}]], ",", "\[Gamma]5", ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{245, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->416246358]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1313853018],
+
+Cell["Consolidate equivalent tensor structures:", "ExampleText",
+ CellID->1500815072],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"a", " ", 
+    RowBox[{
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p3", ",", "m"}], "]"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+     "\[CircleTimes]", 
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p4", ",", "m"}], "]"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}]}], "+", 
+   
+   RowBox[{"b", " ", 
+    RowBox[{
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p3", ",", "m"}], "]"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+     "\[CircleTimes]", 
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p4", ",", "m"}], "]"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}]}]}], "//",
+   "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->72417424],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"a", "+", "b"}], ")"}], " ", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p3", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+   "\[CircleTimes]", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p4", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]}]], "Output",
+ 
+ ImageSize->{361, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->545393267]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->551980910],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " applies cyclic invariance of ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " 10 and above only): "
+}], "ExampleText",
+ CellID->1359907986],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"Inactive", "[", "Spur", "]"}], "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      SubscriptBox["\[Gamma]", "\[Rho]"]}], "]"}], "+", 
+    RowBox[{
+     RowBox[{"Inactive", "[", "Spur", "]"}], "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]}], ",", 
+   RowBox[{"DiracAlgebra", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->13799330],
+
+Cell[BoxData[
+ RowBox[{"2", " ", 
+  RowBox[{
+   TemplateBox[{"Spur"},
+    "InactiveHead",
+    BaseStyle->"Inactive",
+    SyntaxForm->"Symbol",
+    Tooltip->"Inactive[Spur]"], "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    SubscriptBox["\[Gamma]", "\[Rho]"]}], "]"}]}]], "Output",
+ ImageSize->{118, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->743328858]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Options",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(5)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1002285628],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "ChiralBasis",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->552822728],
+
+Cell[TextData[{
+ "If the input is in terms of chiral projectors ",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckCapitalP]L",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPL"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckCapitalP]R",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPR"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", the algebra is carried out in the chiral basis:"
+}], "ExampleText",
+ CellID->169494404],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p2"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1710765041],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[ImaginaryI]", " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "-", 
+  RowBox[{"m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{422, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->20090355]
+}, Open  ]],
+
+Cell[TextData[{
+ "Expand out a fermion line in the basis of definite parity (involving ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") instead:"
+}], "ExampleText",
+ CellID->1085028300],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+     
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p2"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+     
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], ",", 
+   RowBox[{"ChiralBasis", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1786991423],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "-", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{441, 78},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2001411296]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "ChisholmExpand",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1277332574],
+
+Cell[TextData[{
+ "Resolve products of Dirac matrices into the sixteen independent 4x4 SVTAP \
+matrices S=",
+ Cell[BoxData[
+  FormBox["\[DoubleStruckOne]", TraditionalForm]], "InlineMath"],
+ ", V=",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["\[Gamma]", "\[Mu]"], TraditionalForm]]],
+ ", T=",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], TraditionalForm]]],
+ ", A=",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Gamma]", "\[Mu]"], 
+    SubscriptBox["\[Gamma]", "5"]}], TraditionalForm]]],
+ ", P=",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["\[Gamma]", "5"], TraditionalForm]]],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1212617335],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[Gamma]5"}], "]"}], ",", 
+   RowBox[{"ChisholmExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->784808267],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "\[ImaginaryI]"}], " ", "m", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Sigma]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", "\[Gamma]5"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[Gamma]5"}], "]"}], " ", 
+   SubscriptBox["p1", "\[Mu]"]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[Gamma]5"}], "]"}], " ", 
+   SubscriptBox["p1", "\[Nu]"]}], "+", 
+  RowBox[{"m", " ", 
+   RowBox[{"DiracMatrix", "[", "\[Gamma]5", "]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p1"}], ",", "\[Gamma]5"}], "]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+  RowBox[{"\[ImaginaryI]", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    SubscriptBox["\[Gamma]", "$24"], "]"}], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "$24", ",", 
+     RowBox[{"{", "p1", "}"}]}]]}]}]], "Output",
+ ImageSize->{553, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->87161599]
+}, Open  ]],
+
+Cell[TextData[{
+ "For ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects, this is the default behavior:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->86462784],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->928875411],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["p1", "\[Nu]"]}], "+", 
+  RowBox[{"2", " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{432, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->660689002]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], ",", 
+   RowBox[{"ChisholmExpand", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1527556957],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["p1", "\[Nu]"]}]}]], "Output",
+ ImageSize->{446, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->487317624]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "DiracAlgebra",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1077820489],
+
+Cell[TextData[{
+ "By default, ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " applies the Dirac algebra to bring products of matrices to \"standard\" \
+form:"
+}], "ExampleText",
+ CellID->297310180],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", 
+      RowBox[{"(", 
+       RowBox[{"p", "-", "k"}], ")"}]}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+   "]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->904396178],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "k"}], ",", "\[DoubleStruckCapitalP]L"}], 
+    "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"2", "-", "\[ScriptD]"}], ")"}], " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p"}], ",", "\[DoubleStruckCapitalP]L"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{391, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->824941122]
+}, Open  ]],
+
+Cell[TextData[{
+ "Set ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["DiracAlgebra",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#1616289800"], "\[Rule]", 
+   ButtonBox["False",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/False"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to make no algebraic manipulations beyond distributing the product over \
+addition:"
+}], "ExampleText",
+ CellID->1538661530],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+     
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", 
+       RowBox[{"(", 
+        RowBox[{"p", "-", "k"}], ")"}]}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+    "]"}], ",", 
+   RowBox[{"DiracAlgebra", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->286257536],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"m", " ", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+     
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+    "]"}]}], "-", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[Gamma]", ".", "k"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+   "]"}], "+", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[Gamma]", ".", "p"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+   "]"}]}]], "Output",
+ ImageSize->{453, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1151527668]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "GordonIdentity",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1857639277],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " applies the ",
+ "Gordon",
+ " identity on ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects to exchange convective transition currents in favor of Dirac and \
+Pauli transition currents:"
+}], "ExampleText",
+ CellID->928905348],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+   SubscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p1", "-", "p2"}], ")"}], "\[Mu]"]}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->887464293],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "2"}], " ", "m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{"\[ImaginaryI]", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", 
+      RowBox[{"{", 
+       RowBox[{"p1", "+", "p2"}], "}"}]}]], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]}]], "Output",
+ 
+ ImageSize->{397, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->932820238]
+}, Open  ]],
+
+Cell["Without applying the Gordon identity:", "ExampleText",
+ CellID->1345827944],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FermionLineExpand", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], ",", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+    SubscriptBox[
+     RowBox[{"(", 
+      RowBox[{"p1", "-", "p2"}], ")"}], "\[Mu]"]}], ",", 
+   RowBox[{"GordonIdentity", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1228716111],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["p1", "\[Mu]"]}], "-", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox["p2", "\[Mu]"]}]}]], "Output",
+ ImageSize->{315, 17},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->432550873]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1669847046],
+
+Cell[TextData[{
+ "Sometimes ",
+ Cell[BoxData[
+  ButtonBox["Hold",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Hold"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated to prevent vector differences from expanding:"
+}], "ExampleText",
+ CellID->1635427758],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p2", "\[Mu]"], 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->758986211],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "p1"}], "+", "p2"}], "}"}]}]], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox[
+    RowBox[{"Hold", "[", 
+     RowBox[{
+      RowBox[{"-", "p1"}], "+", "p2"}], "]"}], "\[Mu]"]}]}]], "Output",
+ ImageSize->{411, 60},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->201467482]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["ReleaseHold",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/ReleaseHold"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to convert the vector difference to a normal expression:"
+}], "ExampleText",
+ CellID->1864874288],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "ReleaseHold"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1753010236],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"m", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Mu]", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "p1"}], "+", "p2"}], "}"}]}]], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      SubscriptBox["p1", "\[Mu]"]}], "+", 
+     SubscriptBox["p2", "\[Mu]"]}], ")"}]}]}]], "Output",
+ ImageSize->{467, 49},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1747033629]
+}, Open  ]]
+}, Open  ]]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "Since ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["\[CurlyEpsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LeviCivitaE"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are implemented naively in dimensional regularization, different set of \
+operations involving ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " starting from the same expression can yield results that disagree starting \
+at ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", "\[Epsilon]", ")"}], TraditionalForm]], 
+  "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->794075051],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"expr", "=", 
+   RowBox[{
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}]], 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{"\[Gamma]", ".", "p2"}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+      SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->944069127],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+   "Process", " ", "entire", " ", "expression", " ", "with", " ", 
+    "FermionLineExpand"}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"res1", "=", 
+   RowBox[{"expr", "//", "FermionLineExpand"}]}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->263808213],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "8"}], " ", "m"}], "+", 
+     RowBox[{"6", " ", "\[ScriptD]", " ", "m"}], "-", 
+     RowBox[{
+      SuperscriptBox["\[ScriptD]", "2"], " ", "m"}]}], ")"}], " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Sigma]", 
+     RowBox[{"\[Sigma]", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "p1"}], "+", "p2"}], "}"}]}]], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Sigma]"], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"18", " ", "\[ImaginaryI]", " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"9", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", 
+      SuperscriptBox["m", "2"]}], "+", 
+     RowBox[{"\[ImaginaryI]", " ", 
+      SuperscriptBox["\[ScriptD]", "2"], " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"12", " ", "\[ImaginaryI]", " ", 
+      RowBox[{"p1", ".", "p2"}]}], "+", 
+     RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", 
+      RowBox[{"p1", ".", "p2"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", "m"}], "+", 
+     RowBox[{"8", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", "m"}], "-", 
+     RowBox[{"\[ImaginaryI]", " ", 
+      SuperscriptBox["\[ScriptD]", "2"], " ", "m"}]}], ")"}], " ", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], ",", "\[Gamma]5", ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   SubscriptBox[
+    RowBox[{"Hold", "[", 
+     RowBox[{
+      RowBox[{"-", "p1"}], "+", "p2"}], "]"}], "\[Sigma]"]}]}]], "Output",
+ ImageSize->{514, 54},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->404771810]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+   "Process", " ", "only", " ", "the", " ", "FermionLine", " ", "object", " ",
+     "with", " ", "FermionLineExpand"}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p2", ",", "m"}], "]"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+       RowBox[{"\[Gamma]", ".", "p2"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], "//", 
+     "FermionLineExpand"}], ";"}], "\[IndentingNewLine]", 
+   RowBox[{"(*", 
+    RowBox[{"then", ",", " ", 
+     RowBox[{
+      RowBox[{"contract", " ", "with", " ", "the", " ", "Levi"}], "-", 
+      RowBox[{"Civita", " ", "symbol"}]}]}], "*)"}], "\[IndentingNewLine]", 
+   RowBox[{"res2", "=", 
+    RowBox[{
+     RowBox[{"Contract", "[", 
+      RowBox[{
+       SubscriptBox["\[CurlyEpsilon]", 
+        RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}]], 
+       "%"}], "]"}], "//", "FermionLineExpand"}]}]}]}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1418388483],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Sigma]"], ",", "\[Gamma]5", ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"10", " ", "\[ImaginaryI]", " ", 
+     SuperscriptBox["m", "2"]}], "-", 
+    RowBox[{"11", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", 
+     SuperscriptBox["m", "2"]}], "+", 
+    RowBox[{"6", " ", "\[ImaginaryI]", " ", 
+     SuperscriptBox["\[ScriptD]", "2"], " ", 
+     SuperscriptBox["m", "2"]}], "-", 
+    RowBox[{"\[ImaginaryI]", " ", 
+     SuperscriptBox["\[ScriptD]", "3"], " ", 
+     SuperscriptBox["m", "2"]}], "+", 
+    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+     RowBox[{"p1", ".", "p2"}]}]}], ")"}]}]], "Output",
+ ImageSize->{480, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->118956312]
+}, Open  ]],
+
+Cell[TextData[{
+ "The difference is ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", "\[Epsilon]", ")"}], TraditionalForm]], 
+  "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->676060117],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Series", "[", 
+   RowBox[{
+    RowBox[{"res1", "-", "res2"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"\[ScriptD]", ",", "4", ",", "1"}], "}"}]}], "]"}], "//", 
+  "Simplify"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->601340757],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"10", " ", "\[ImaginaryI]", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"\[LeftAngleBracket]", 
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p2", ",", "m"}], "]"}], ",", 
+        SubscriptBox["\[Gamma]", "\[Sigma]"], ",", "\[Gamma]5", ",", 
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "-", 
+      RowBox[{"2", " ", "m", " ", 
+       RowBox[{"\[LeftAngleBracket]", 
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p2", ",", "m"}], "]"}], ",", 
+        SubscriptBox["\[Sigma]", 
+         RowBox[{"\[Sigma]", ",", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"-", "p1"}], "+", "p2"}], "}"}]}]], ",", "\[Gamma]5", ",", 
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], "+", 
+      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+       RowBox[{"\[LeftAngleBracket]", 
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p2", ",", "m"}], "]"}], ",", 
+        SubscriptBox["\[Gamma]", "\[Sigma]"], ",", "\[Gamma]5", ",", 
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{"\[ScriptD]", "-", "4"}], ")"}]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"\[ScriptD]", "-", "4"}], "]"}], "2"],
+    SeriesData[X`Dim, 4, {}, 1, 2, 1],
+    Editable->False]}],
+  SeriesData[
+  X`Dim, 4, {
+   Complex[0, 10] $CellContext`m^2 
+     X`FermionLine[{1, $CellContext`p2, $CellContext`m}, {
+       1, $CellContext`p1, $CellContext`m}, 
+       X`DiracMatrix[
+        X`LTensor[X`DiracG, X`DiracS], X`DiracG5]] - 2 $CellContext`m 
+    X`FermionLine[{1, $CellContext`p2, $CellContext`m}, {
+      1, $CellContext`p1, $CellContext`m}, 
+      X`DiracMatrix[
+       X`LTensor[X`DiracS, X`DiracS, {-$CellContext`p1 + $CellContext`p2}], 
+       X`DiracG5]] + 
+    Complex[0, 4] 
+     X`FermionLine[{1, $CellContext`p2, $CellContext`m}, {
+       1, $CellContext`p1, $CellContext`m}, 
+       X`DiracMatrix[
+        X`LTensor[X`DiracG, X`DiracS], X`DiracG5]] 
+     X`LDot[$CellContext`p1, $CellContext`p2]}, 1, 2, 1],
+  Editable->False]], "Output",
+ ImageSize->{498, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->356800938]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckOne]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dirac1"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]5",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG5"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]L",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPL"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]R",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPR"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Sigma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracS"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineProduct",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineProduct"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->2138137695],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "FermionLineExpand - Wolfram Mathematica", "FermionLineExpand"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 18.245453}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "FermionLineExpand[expr] expands out DiracMatrix, FermionLine, and \
+FermionLineProduct objects in expr.", "synonyms" -> {}, "title" -> 
+    "FermionLineExpand", "titlemodifier" -> "", "windowtitle" -> 
+    "FermionLineExpand", "type" -> "Symbol", "uri" -> 
+    "X/ref/FermionLineExpand"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/FermionLineProduct.nb b/packages/X/Documentation/English/ReferencePages/Symbols/FermionLineProduct.nb
new file mode 100644
index 0000000000000000000000000000000000000000..3b2381f1fba42fc3f235391cd6e3cc9ac8ffda31
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/FermionLineProduct.nb
@@ -0,0 +1,1088 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracMatrix"], "\<\"FermionLine\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/FermionLine"], "\<\"FermionLineExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/FermionLineExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/FermionLineProduct\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/FermionLineProduct"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/\
+FermionLineProduct.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/ref/FermionLineProduct", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["FermionLineProduct", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["FermionLineProduct",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/FermionLineProduct"], "[", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["fLine", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["fLine", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      RowBox[{
+       SubscriptBox[
+        StyleBox["fLine", "TI"], 
+        StyleBox["1", "TR"]], "\[CircleTimes]", 
+       SubscriptBox[
+        StyleBox["fLine", "TI"], 
+        StyleBox["2", "TR"]], "\[CircleTimes]", 
+       StyleBox["\[Ellipsis]", "TR"]}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]represents the direct product of ",
+     Cell[BoxData[
+      ButtonBox["FermionLine",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " objects ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["fLine", "TI"], 
+       StyleBox["1", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["fLine", "TI"], 
+       StyleBox["2", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", etc."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->2087296686],
+
+Cell[TextData[{
+ "Products of ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects are assembled to form a ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->986170266],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(3)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->2050027857],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(3)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->590560131],
+
+Cell[TextData[{
+ "The multiplication of ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects is automatically reordered and assembled into a ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1162425895],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p4", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p3", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->383852148],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p3", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+  "\[CircleTimes]", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p4", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{317, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->412160080]
+}, Open  ]],
+
+Cell[TextData[{
+ "Input the direct product \[CircleTimes] (",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]c*\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ ") explicitly to fix a specific ordering:"
+}], "ExampleText",
+ CellID->1333995780],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p4", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+  "\[CircleTimes]", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p3", ",", "m"}], "]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->613788317],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p4", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+  "\[CircleTimes]", 
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p3", ",", "m"}], "]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]], "Output",
+ ImageSize->{317, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->414848011]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1323239008],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p3", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+   "\[CircleTimes]", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p4", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], "//", 
+  "InputForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1963141732],
+
+Cell["\<\
+FermionLineProduct[FermionLine[{1, p3, m}, {1, p1, m}, \
+DiracMatrix[LTensor[DiracG, \[Nu]]]], 
+ FermionLine[{1, p4, m}, {1, p2, m}, DiracMatrix[LTensor[DiracG, \[Mu]]]]]\
+\>", "Output",
+ ImageSize->{641, 27},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//InputForm=",
+ CellID->1645838314]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p3", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+   "\[CircleTimes]", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p4", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2106415492],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   TooltipBox[
+    RowBox[{
+     RowBox[{"\[InvisiblePrefixScriptBase]", "\[LeftAngleBracket]"}], 
+     SuperscriptBox["\[Gamma]", "\[Nu]"], 
+     RowBox[{"\[RightAngleBracket]", "\[InvisiblePrefixScriptBase]"}]}],
+    "\!\(\*OverscriptBox[\(\[ScriptU]\),\(_\)]\)(\!\(TraditionalForm\`p3\))\
+\[Ellipsis]\[ScriptU](\!\(TraditionalForm\`p1\))"], 
+   TooltipBox[
+    RowBox[{
+     RowBox[{"\[InvisiblePrefixScriptBase]", "\[LeftAngleBracket]"}], 
+     SuperscriptBox["\[Gamma]", "\[Mu]"], 
+     RowBox[{"\[RightAngleBracket]", "\[InvisiblePrefixScriptBase]"}]}],
+    "\!\(\*OverscriptBox[\(\[ScriptU]\),\(_\)]\)(\!\(TraditionalForm\`p4\))\
+\[Ellipsis]\[ScriptU](\!\(TraditionalForm\`p2\))"]}], 
+  TraditionalForm]], "Output",
+ ImageSize->{53, 17},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]//TraditionalForm=",
+ CellID->998231829]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->530729425],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can expand out ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects:"
+}], "ExampleText",
+ CellID->1225352147],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p3", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+   "\[CircleTimes]", 
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p4", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], "//", 
+  "FermionLineExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1469859984],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"2", "+", 
+     RowBox[{"2", " ", "\[ScriptD]"}]}], ")"}], " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p3", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p4", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", 
+     RowBox[{"2", " ", "\[ScriptD]"}]}], ")"}], " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p3", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p4", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], 
+     "\[RightAngleBracket]"}]}]}]}]], "Output",
+ ImageSize->{436, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1805534139]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["FermionLineExpand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/FermionLineExpand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->2022188930],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "FermionLineProduct - Wolfram Mathematica", "FermionLineProduct"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 22.859601}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "FermionLineProduct[fLine_1, fLine_2, ...] or \
+fLine_1\\[CircleTimes]fLine_2\\[CircleTimes]... represents the direct product \
+of FermionLine objects fLine_1, fLine_2, etc.", "synonyms" -> {}, "title" -> 
+    "FermionLineProduct", "titlemodifier" -> "", "windowtitle" -> 
+    "FermionLineProduct", "type" -> "Symbol", "uri" -> 
+    "X/ref/FermionLineProduct"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/KallenExpand.nb b/packages/X/Documentation/English/ReferencePages/Symbols/KallenExpand.nb
new file mode 100644
index 0000000000000000000000000000000000000000..d4c52df8b5599b6f9b18cc5633e54199c31ae8d3
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/KallenExpand.nb
@@ -0,0 +1,569 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Kallen\[Lambda]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/KallenLambda"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/KallenExpand\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/KallenExpand"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/KallenExpand.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/KallenExpand",
+              ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["KallenExpand", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["KallenExpand",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/KallenExpand"], "[", 
+       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]replaces ",
+     Cell[BoxData[
+      ButtonBox["Kallen\[Lambda]",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/KallenLambda"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " everywhere inside ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " with its explicit definition."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(1)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->853149088],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(1)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->128410997],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Kallen\[Lambda]", "[", 
+   RowBox[{"s", ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["M", "2"]}], "]"}], "//", "KallenExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2049908271],
+
+Cell[BoxData[
+ RowBox[{
+  SuperscriptBox["m", "4"], "-", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   SuperscriptBox["M", "2"]}], "+", 
+  SuperscriptBox["M", "4"], "-", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["m", "2"], " ", "s"}], "-", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["M", "2"], " ", "s"}], "+", 
+  SuperscriptBox["s", "2"]}]], "Output",
+ ImageSize->{213, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1995082118]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[Cell[BoxData[
+ StyleBox[
+  ButtonBox["Kallen\[Lambda]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenLambda"],
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    "Verdana"]]], "InlineFormula"]], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->2130044991],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "KallenExpand - Wolfram Mathematica", "KallenExpand"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 24.227616}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "KallenExpand[expr] replaces Kallen\\[Lambda] everywhere inside expr with \
+its explicit definition.", "synonyms" -> {}, "title" -> "KallenExpand", 
+    "titlemodifier" -> "", "windowtitle" -> "KallenExpand", "type" -> 
+    "Symbol", "uri" -> "X/ref/KallenExpand"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/KallenLambda.nb b/packages/X/Documentation/English/ReferencePages/Symbols/KallenLambda.nb
new file mode 100644
index 0000000000000000000000000000000000000000..ffc6a313be7c123f6cf5f20a45a44ba24bab693b
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/KallenLambda.nb
@@ -0,0 +1,910 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"KallenExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/KallenExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"], "\<\"Special Functions and Abbreviations \
+in Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/KallenLambda\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/KallenLambda"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/KallenLambda.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/KallenLambda",
+              ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["Kallen\[Lambda]", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Kallen\[Lambda]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/KallenLambda"], "[", 
+       RowBox[{
+        StyleBox["a", "TI"], ",", 
+        StyleBox["b", "TI"], ",", 
+        StyleBox["c", "TI"]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the K\[ADoubleDot]ll\[EAcute]n kinematic \
+(triangle) polynomial ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"\[Lambda]", "(", 
+        RowBox[{"a", ",", "b", ",", "c"}], ")"}], TraditionalForm]], 
+      "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1113768247],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Mathematical function, suitable for both symbolic and numerical manipulation.\
+\
+\>", "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Kallen\[Lambda]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenLambda"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has attribute ",
+ Cell[BoxData[
+  ButtonBox["Orderless",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Orderless"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1279573098],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"\[Lambda]", "(", 
+    RowBox[{"a", ",", "b", ",", "c"}], ")"}], "=", 
+   RowBox[{
+    SuperscriptBox["a", "2"], "+", 
+    SuperscriptBox["b", "2"], "+", 
+    SuperscriptBox["c", "2"], "-", 
+    RowBox[{"2", "a", " ", "b"}], "-", 
+    RowBox[{"2", "a", " ", "c"}], "-", 
+    RowBox[{"2", "b", " ", "c"}]}]}], 
+  TraditionalForm]], "InlineMath"]], "Notes",
+ Deletable->True,
+ CellID->2102770465],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["KallenExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will replace ",
+ Cell[BoxData[
+  ButtonBox["Kallen\[Lambda]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenLambda"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit definition."
+}], "Notes",
+ CellID->1545310960],
+
+Cell["\<\
+For degenerate cases, explicit expressions are automatically substituted.\
+\>", "Notes",
+ CellID->59967973]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(4)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1635460077],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1534316186],
+
+Cell["Evaluate numerically:", "ExampleText",
+ CellID->1275718431],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Kallen\[Lambda]", "[", 
+  RowBox[{"2.5", ",", "1.2", ",", "0.5"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->184462971],
+
+Cell[BoxData[
+ RowBox[{"-", "1.7599999999999998`"}]], "Output",
+ ImageSize->{41, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1238967712]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1860579710],
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["KallenExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to insert explicit expression:"
+}], "ExampleText",
+ CellID->1253802003],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"KallenExpand", "[", 
+  RowBox[{"Kallen\[Lambda]", "[", 
+   RowBox[{"s", ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["M", "2"]}], "]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->412167606],
+
+Cell[BoxData[
+ RowBox[{
+  SuperscriptBox["m", "4"], "-", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   SuperscriptBox["M", "2"]}], "+", 
+  SuperscriptBox["M", "4"], "-", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["m", "2"], " ", "s"}], "-", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["M", "2"], " ", "s"}], "+", 
+  SuperscriptBox["s", "2"]}]], "Output",
+ ImageSize->{213, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->896100704]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1163786340],
+
+Cell["\<\
+Explicit expressions are automatically substituted for special cases:\
+\>", "ExampleText",
+ CellID->475959504],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Kallen\[Lambda]", "[", 
+  RowBox[{"s", ",", 
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["m", "2"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1983728401],
+
+Cell[BoxData[
+ RowBox[{"s", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "4"}], " ", 
+     SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], "Output",
+ ImageSize->{79, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1197639008]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Kallen\[Lambda]", "[", 
+  RowBox[{"s", ",", 
+   SuperscriptBox["m", "2"], ",", "0"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2059731026],
+
+Cell[BoxData[
+ SuperscriptBox[
+  RowBox[{"(", 
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", "s"}], ")"}], "2"]], "Output",
+ ImageSize->{57, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1102045608]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1732470958],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   RowBox[{"Kallen\[Lambda]", "[", 
+    RowBox[{"s", ",", 
+     SuperscriptBox["M", "2"], ",", 
+     SuperscriptBox["m", "2"]}], "]"}], ",", "s"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->843405994],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "2"}], " ", 
+   SuperscriptBox["m", "2"]}], "-", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["M", "2"]}], "+", 
+  RowBox[{"2", " ", "s"}]}]], "Output",
+ ImageSize->{101, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1523018665]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[Cell[BoxData[
+ StyleBox[
+  ButtonBox["KallenExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenExpand"],
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    "Verdana"]]], "InlineFormula",
+ ShowStringCharacters->False]], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->268504926],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->899148935],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Kallen\[Lambda] - Wolfram Mathematica", "Kallen\[Lambda]"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 25.571317}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Kallen\\[Lambda][a, b, c] gives the K\[ADoubleDot]ll\[EAcute]n kinematic \
+(triangle) polynomial \\[Lambda](a, b, c).", "synonyms" -> {}, "title" -> 
+    "Kallen\[Lambda]", "titlemodifier" -> "", "windowtitle" -> 
+    "Kallen\[Lambda]", "type" -> "Symbol", "uri" -> "X/ref/KallenLambda"}, 
+  "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/KibbleExpand.nb b/packages/X/Documentation/English/ReferencePages/Symbols/KibbleExpand.nb
new file mode 100644
index 0000000000000000000000000000000000000000..b007e7f428077c1e9e4df4984e57533a4ea2fccc
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/KibbleExpand.nb
@@ -0,0 +1,586 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Kibble\[Phi]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/KibblePhi"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/KibbleExpand\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/KibbleExpand"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/KibbleExpand.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/KibbleExpand",
+              ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["KibbleExpand", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["KibbleExpand",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/KibbleExpand"], "[", 
+       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]replaces ",
+     Cell[BoxData[
+      ButtonBox["Kibble\[Phi]",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/KibblePhi"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " everwhere ",
+     "inside ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " with its explicit definition."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(1)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->153726606],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(1)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->260239701],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Kibble\[Phi]", "[", 
+   RowBox[{
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["M", "2"], ",", "s", ",", "t"}], "]"}], "//", 
+  "KibbleExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1994369304],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    SuperscriptBox["m", "2"]}], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"]}], ")"}], "2"]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     SuperscriptBox["M", "2"]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     SuperscriptBox["M", "2"], "+", "s"}], ")"}], " ", "t"}], "-", 
+  RowBox[{"s", " ", 
+   SuperscriptBox["t", "2"]}], "-", 
+  RowBox[{"t", " ", 
+   RowBox[{"Kallen\[Lambda]", "[", 
+    RowBox[{
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["M", "2"], ",", "s"}], "]"}]}]}]], "Output",
+ ImageSize->{417, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1062699203]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[Cell[BoxData[
+ StyleBox[
+  ButtonBox["Kibble\[Phi]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KibblePhi"],
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    "Verdana"]]], "InlineFormula"]], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->1571949415],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "KibbleExpand - Wolfram Mathematica", "KibbleExpand"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 26.955249}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "KibbleExpand[expr] replaces Kibble\\[Phi] everwhere inside expr with its \
+explicit definition.", "synonyms" -> {}, "title" -> "KibbleExpand", 
+    "titlemodifier" -> "", "windowtitle" -> "KibbleExpand", "type" -> 
+    "Symbol", "uri" -> "X/ref/KibbleExpand"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/KibblePhi.nb b/packages/X/Documentation/English/ReferencePages/Symbols/KibblePhi.nb
new file mode 100644
index 0000000000000000000000000000000000000000..3fba4742bb69a647dbc41e462208c9d21e64158a
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/KibblePhi.nb
@@ -0,0 +1,1492 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"KibbleExpand\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/KibbleExpand"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/KibblePhi\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/KibblePhi"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/KibblePhi.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/KibblePhi", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["Kibble\[Phi]", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Kibble\[Phi]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/KibblePhi"], "[", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["3", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["4", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["12", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["23", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]gives the Kibble kinematic polynomial ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"\[Phi]", "(", 
+        RowBox[{
+         SubscriptBox["s", "1"], ",", 
+         SubscriptBox["s", "2"], ",", 
+         SubscriptBox["s", "3"], ",", 
+         RowBox[{
+          SubscriptBox["s", "4"], ";", 
+          SubscriptBox["s", "12"]}], ",", 
+         SubscriptBox["s", "23"]}], ")"}], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1409992511],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Mathematical function, suitable for both symbolic and numerical manipulation.\
+\
+\>", "Notes",
+ CellID->1067943069],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"\[Phi]", "(", 
+    RowBox[{
+     SubscriptBox["s", "1"], ",", 
+     SubscriptBox["s", "2"], ",", 
+     SubscriptBox["s", "3"], ",", 
+     RowBox[{
+      SubscriptBox["s", "4"], ";", 
+      SubscriptBox["s", "12"]}], ",", 
+     SubscriptBox["s", "23"]}], ")"}], "=", 
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"4", "s12"}]], "[", 
+    RowBox[{
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SubsuperscriptBox["s", "12", "2"]}], "-", 
+        RowBox[{
+         SubscriptBox["s", "12"], "(", 
+         RowBox[{
+          SubscriptBox["s", "23"], "-", 
+          SubscriptBox["s", "1"], "-", 
+          SubscriptBox["s", "2"], "-", 
+          SubscriptBox["s", "3"], "-", 
+          SubscriptBox["s", "4"]}], ")"}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["s", "1"], "-", 
+           SubscriptBox["s", "2"]}], ")"}], 
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["s", "3"], "-", 
+           SubscriptBox["s", "4"]}], ")"}]}]}], ")"}], "2"], "+", 
+     RowBox[{
+      RowBox[{"\[Lambda]", "(", 
+       RowBox[{
+        SubscriptBox["s", "12"], ",", 
+        SubscriptBox["s", "1"], ",", 
+        SubscriptBox["s", "2"]}], ")"}], 
+      RowBox[{"\[Lambda]", "(", 
+       RowBox[{
+        SubscriptBox["s", "12"], ",", 
+        SubscriptBox["s", "3"], ",", 
+        SubscriptBox["s", "4"]}], ")"}]}]}], "]"}]}], 
+  TraditionalForm]], "InlineMath"]], "Notes",
+ CellID->1204994083],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["KibbleExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KibbleExpand"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will replace ",
+ Cell[BoxData[
+  ButtonBox["Kibble\[Phi]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KibblePhi"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit definition."
+}], "Notes",
+ CellID->441554290],
+
+Cell["\<\
+For certain degenerate cases, explicit expressions are automatically \
+substituted.\
+\>", "Notes",
+ CellID->59967973]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(6)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->262087732],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->419551727],
+
+Cell["Evaluate numerically:", "ExampleText",
+ CellID->2134042910],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Kibble\[Phi]", "[", 
+  RowBox[{"3.2", ",", "3.2", ",", "1", ",", "1", ",", "15.0", ",", 
+   RowBox[{"-", "3.5"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1925425559],
+
+Cell[BoxData["90.14999999999998`"], "Output",
+ ImageSize->{40, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1340299553]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1376334722],
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["KibbleExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KibbleExpand"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to insert explicit expression:"
+}], "ExampleText",
+ CellID->1511310817],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Kibble\[Phi]", "[", 
+   RowBox[{
+    SuperscriptBox["m1", "2"], ",", 
+    SuperscriptBox["m2", "2"], ",", 
+    SuperscriptBox["M", "2"], ",", 
+    SuperscriptBox["M", "2"], ",", "s", ",", "t"}], "]"}], "//", 
+  "KibbleExpand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1895654243],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    SuperscriptBox["M", "2"]}], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m1", "2"], "-", 
+      SuperscriptBox["m2", "2"]}], ")"}], "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["s", "2"], " ", "t"}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m1", "2"], "-", 
+     SuperscriptBox["m2", "2"]}], ")"}], " ", "s", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["M", "2"], "-", 
+     SuperscriptBox["m2", "2"], "+", "t"}], ")"}]}], "-", 
+  RowBox[{"s", " ", 
+   RowBox[{"Kallen\[Lambda]", "[", 
+    RowBox[{
+     SuperscriptBox["M", "2"], ",", 
+     SuperscriptBox["m2", "2"], ",", "t"}], "]"}]}]}]], "Output",
+ ImageSize->{459, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->178954766]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->395149842],
+
+Cell["\<\
+Explicit expressions are automatically substituted for special cases:\
+\>", "ExampleText",
+ CellID->1263957970],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Kibble\[Phi]", "[", 
+  RowBox[{
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["m", "2"], ",", "s", ",", "0"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1308569234],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->836166584]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Kibble\[Phi]", "[", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "s", ",", "t"}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1689943509],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "s"}], " ", "t", " ", 
+  RowBox[{"(", 
+   RowBox[{"s", "+", "t"}], ")"}]}]], "Output",
+ ImageSize->{73, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1187185376]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->859831705],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   RowBox[{"Kibble\[Phi]", "[", 
+    RowBox[{"s1", ",", "s2", ",", "s3", ",", "s4", ",", "s", ",", "t"}], 
+    "]"}], ",", "s"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->605382878],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "s1"}], " ", "s2"}], "+", 
+  RowBox[{"s1", " ", "s3"}], "+", 
+  RowBox[{"s2", " ", "s4"}], "-", 
+  RowBox[{"s3", " ", "s4"}], "-", 
+  RowBox[{"2", " ", "s", " ", "t"}], "+", 
+  RowBox[{"s1", " ", "t"}], "+", 
+  RowBox[{"s2", " ", "t"}], "+", 
+  RowBox[{"s3", " ", "t"}], "+", 
+  RowBox[{"s4", " ", "t"}], "-", 
+  SuperscriptBox["t", "2"]}]], "Output",
+ ImageSize->{389, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1892264590]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell["\<\
+Construct the Kibble polynomial by computing the determinant of the \
+associated Grammian matrix:\
+\>", "ExampleText",
+ CellID->406941473],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"gramMatrix", "=", 
+  RowBox[{"Outer", "[", 
+   RowBox[{"LDot", ",", 
+    RowBox[{"{", 
+     RowBox[{"p1", ",", "p2", ",", "p3"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"p1", ",", "p2", ",", "p3"}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->770192542],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], ",", 
+     RowBox[{"p1", ".", "p2"}], ",", 
+     RowBox[{"p1", ".", "p3"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], ",", 
+     RowBox[{"p2", ".", "p2"}], ",", 
+     RowBox[{"p2", ".", "p3"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p1", ".", "p3"}], ",", 
+     RowBox[{"p2", ".", "p3"}], ",", 
+     RowBox[{"p3", ".", "p3"}]}], "}"}]}], "}"}]], "Output",
+ ImageSize->{463, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->621584926]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"kinematics", "=", 
+  RowBox[{"MandelstamRelations", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "p1", ",", "p2", ",", "p3", ",", "p4", ",", "m1", ",", "m2", ",", "m3", 
+       ",", "m4"}], "}"}], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], ",", 
+    RowBox[{"Eliminate", "\[Rule]", "t"}]}], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->291208870],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+    SuperscriptBox["m1", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+    SuperscriptBox["m2", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p3"}], "\[Rule]", 
+    SuperscriptBox["m3", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p4", ".", "p4"}], "\[Rule]", 
+    SuperscriptBox["m4", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m1", "2"]}], "-", 
+       SuperscriptBox["m2", "2"], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m3", "2"]}], "-", 
+       SuperscriptBox["m4", "2"], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m2", "2"]}], "-", 
+       SuperscriptBox["m4", "2"], "+", "s", "+", "u"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m1", "2"]}], "-", 
+       SuperscriptBox["m3", "2"], "+", "s", "+", "u"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m1", "2"], "+", 
+       SuperscriptBox["m4", "2"], "-", "u"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m2", "2"], "+", 
+       SuperscriptBox["m3", "2"], "-", "u"}], ")"}]}]}]}], "}"}]], "Output",
+ ImageSize->{545, 83},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->605173532]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"result", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"4", 
+     RowBox[{"Det", "[", "gramMatrix", "]"}]}], "/.", "kinematics"}], "//", 
+   "Expand"}]}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1054681359],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    SuperscriptBox["m1", "4"]}], " ", 
+   SuperscriptBox["m3", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m3", "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "4"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m2", "4"], " ", 
+   SuperscriptBox["m4", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", 
+   SuperscriptBox["m4", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", 
+   SuperscriptBox["m4", "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "4"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m2", "2"], " ", "s"}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", "s"}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "s"}], "-", 
+  RowBox[{
+   SuperscriptBox["m3", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "s"}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", "u"}], "-", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", "u"}], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", "s", " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", "s", " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m3", "2"], " ", "s", " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m4", "2"], " ", "s", " ", "u"}], "-", 
+  RowBox[{
+   SuperscriptBox["s", "2"], " ", "u"}], "-", 
+  RowBox[{"s", " ", 
+   SuperscriptBox["u", "2"]}]}]], "Output",
+ ImageSize->{481, 48},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1354560209]
+}, Open  ]],
+
+Cell[TextData[{
+ "Compare with ",
+ Cell[BoxData[
+  ButtonBox["Kibble\[Phi]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KibblePhi"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1926403524],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Kibble\[Phi]", "[", 
+    RowBox[{
+     SuperscriptBox["m1", "2"], ",", 
+     SuperscriptBox["m2", "2"], ",", 
+     SuperscriptBox["m3", "2"], ",", 
+     SuperscriptBox["m4", "2"], ",", "s", ",", "u"}], "]"}], "//", 
+   "KibbleExpand"}], "//", 
+  "Expand"}], "\[IndentingNewLine]", "result", "\[IndentingNewLine]", 
+ RowBox[{"%", "\[Equal]", "%%"}]}], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1105097758],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    SuperscriptBox["m1", "4"]}], " ", 
+   SuperscriptBox["m3", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m3", "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "4"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m2", "4"], " ", 
+   SuperscriptBox["m4", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", 
+   SuperscriptBox["m4", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", 
+   SuperscriptBox["m4", "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "4"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m2", "2"], " ", "s"}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", "s"}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "s"}], "-", 
+  RowBox[{
+   SuperscriptBox["m3", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "s"}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", "u"}], "-", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", "u"}], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", "s", " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", "s", " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m3", "2"], " ", "s", " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m4", "2"], " ", "s", " ", "u"}], "-", 
+  RowBox[{
+   SuperscriptBox["s", "2"], " ", "u"}], "-", 
+  RowBox[{"s", " ", 
+   SuperscriptBox["u", "2"]}]}]], "Output",
+ ImageSize->{481, 48},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1714991150],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    SuperscriptBox["m1", "4"]}], " ", 
+   SuperscriptBox["m3", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m3", "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "4"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m2", "4"], " ", 
+   SuperscriptBox["m4", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", 
+   SuperscriptBox["m4", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", 
+   SuperscriptBox["m4", "2"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "4"]}], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m2", "2"], " ", "s"}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", "s"}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "s"}], "-", 
+  RowBox[{
+   SuperscriptBox["m3", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "s"}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", "u"}], "-", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m3", "2"], " ", "u"}], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", 
+   SuperscriptBox["m4", "2"], " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", "s", " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m2", "2"], " ", "s", " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m3", "2"], " ", "s", " ", "u"}], "+", 
+  RowBox[{
+   SuperscriptBox["m4", "2"], " ", "s", " ", "u"}], "-", 
+  RowBox[{
+   SuperscriptBox["s", "2"], " ", "u"}], "-", 
+  RowBox[{"s", " ", 
+   SuperscriptBox["u", "2"]}]}]], "Output",
+ ImageSize->{481, 48},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->330748016],
+
+Cell[BoxData["True"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1194226476]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Neat Examples",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->589267740],
+
+Cell[TextData[{
+ "The physical region of a ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"2", "\[Rule]", "2"}], TraditionalForm]], "InlineMath"],
+ " scattering (or a 3-body decay) process in the Mandelstam plane:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1963566549],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Manipulate", "[", 
+  RowBox[{
+   RowBox[{"RegionPlot", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"Kibble\[Phi]", "[", 
+       RowBox[{
+        SuperscriptBox["m1", "2"], ",", 
+        SuperscriptBox["m2", "2"], ",", 
+        SuperscriptBox["m3", "2"], ",", 
+        SuperscriptBox["m4", "2"], ",", "s", ",", "t"}], "]"}], ">", "0"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"s", ",", 
+       RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"t", ",", 
+       RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
+     RowBox[{"FrameLabel", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"\"\<s\>\"", ",", "\"\<t\>\""}], "}"}]}]}], "]"}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"m1", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"m2", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"m3", ",", "0.15"}], "}"}], ",", "0", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"m4", ",", "0.14"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1204303528],
+
+Cell[BoxData[
+ TagBox[
+  StyleBox[
+   DynamicModuleBox[{$CellContext`m1$$ = 0.5, $CellContext`m2$$ = 
+    0.5, $CellContext`m3$$ = 0.15, $CellContext`m4$$ = 0.14, Typeset`show$$ = 
+    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
+    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
+    "\"untitled\"", Typeset`specs$$ = {{{
+       Hold[$CellContext`m1$$], 0.5}, 0, 1}, {{
+       Hold[$CellContext`m2$$], 0.5}, 0, 1}, {{
+       Hold[$CellContext`m3$$], 0.15}, 0, 1}, {{
+       Hold[$CellContext`m4$$], 0.14}, 0, 1}}, Typeset`size$$ = {
+    225., {110., 116.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
+    Typeset`skipInitDone$$ = True, $CellContext`m1$1802$$ = 
+    0, $CellContext`m2$1807$$ = 0, $CellContext`m3$1808$$ = 
+    0, $CellContext`m4$1809$$ = 0}, 
+    DynamicBox[Manipulate`ManipulateBoxes[
+     1, StandardForm, 
+      "Variables" :> {$CellContext`m1$$ = 0.5, $CellContext`m2$$ = 
+        0.5, $CellContext`m3$$ = 0.15, $CellContext`m4$$ = 0.14}, 
+      "ControllerVariables" :> {
+        Hold[$CellContext`m1$$, $CellContext`m1$1802$$, 0], 
+        Hold[$CellContext`m2$$, $CellContext`m2$1807$$, 0], 
+        Hold[$CellContext`m3$$, $CellContext`m3$1808$$, 0], 
+        Hold[$CellContext`m4$$, $CellContext`m4$1809$$, 0]}, 
+      "OtherVariables" :> {
+       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
+        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
+        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
+         Typeset`skipInitDone$$}, "Body" :> 
+      RegionPlot[
+       X`Kibble\[Phi][$CellContext`m1$$^2, $CellContext`m2$$^2, \
+$CellContext`m3$$^2, $CellContext`m4$$^2, $CellContext`s, $CellContext`t] > 
+        0, {$CellContext`s, -3, 3}, {$CellContext`t, -3, 3}, 
+        FrameLabel -> {"s", "t"}], 
+      "Specifications" :> {{{$CellContext`m1$$, 0.5}, 0, 
+         1}, {{$CellContext`m2$$, 0.5}, 0, 1}, {{$CellContext`m3$$, 0.15}, 0, 
+         1}, {{$CellContext`m4$$, 0.14}, 0, 1}}, "Options" :> {}, 
+      "DefaultOptions" :> {}],
+     ImageSizeCache->{268., {196., 201.}},
+     SingleEvaluation->True],
+    Deinitialization:>None,
+    DynamicModuleValues:>{},
+    SynchronousInitialization->True,
+    UnsavedVariables:>{Typeset`initDone$$},
+    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
+   Deployed->True,
+   StripOnInput->False],
+  Manipulate`InterpretManipulate[1]]], "Output",
+ ImageSize->{272, 399},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->418862401]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[Cell[BoxData[
+ StyleBox[
+  ButtonBox["KibbleExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KibbleExpand"],
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    "Verdana"]]], "InlineFormula"]], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->1217062588],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Kibble\[Phi] - Wolfram Mathematica", "Kibble\[Phi]"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 28.338164}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Kibble\\[Phi][s_1, s_2, s_3, s_4, s_12, s_23] gives the Kibble kinematic \
+polynomial \\[Phi](s_1, s_2, s_3, s_4; s_12, s_23).", "synonyms" -> {}, 
+    "title" -> "Kibble\[Phi]", "titlemodifier" -> "", "windowtitle" -> 
+    "Kibble\[Phi]", "type" -> "Symbol", "uri" -> "X/ref/KibblePhi"}, 
+  "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/LDot.nb b/packages/X/Documentation/English/ReferencePages/Symbols/LDot.nb
new file mode 100644
index 0000000000000000000000000000000000000000..a91ca830842a91ee8d9b31d89dabae2bb6e9c024
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/LDot.nb
@@ -0,0 +1,1878 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LTensor\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LTensor"], "\<\"LScalarQ\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LScalarQ"], "\<\"Contract\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Contract"], "\<\"\[DoubleStruckG]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/MetricG"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/LDot\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/LDot"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/LDot.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/LDot", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "LDot ",
+ StyleBox["(.)", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LDot",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LDot"], "[", 
+       RowBox[{
+        StyleBox["a", "TI"], ",", 
+        StyleBox["b", "TI"]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      RowBox[{
+       StyleBox["a", "TI"], ".", 
+       StyleBox["b", "TI"]}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]represents the Lorentz 4-vector dot product ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"a", "\[CenterDot]", "b"}], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->389178841],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Generic object that represents a Lorentz 4-vector dot product.\
+\>", "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ "Built-in ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " function ",
+ Cell[BoxData[
+  ButtonBox["Dot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Dot"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " must be called by its full name while ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X is active."
+}], "Notes",
+ CellID->2120702025],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LDot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LDot"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has attribute ",
+ Cell[BoxData[
+  ButtonBox["Orderless",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Orderless"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->2091443679],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["LDot",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LDot"], "[", 
+   RowBox[{
+    StyleBox["a", "TI"], ",", 
+    StyleBox["b", "TI"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " automatically expands if either ",
+ Cell[BoxData[
+  StyleBox["a", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  StyleBox["b", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has head ",
+ Cell[BoxData[
+  ButtonBox["Plus",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Plus"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->500423658],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Clear",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/Clear"], "[", 
+   ButtonBox["LDot",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LDot"], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " clears all user defined values for ",
+ Cell[BoxData[
+  ButtonBox["LDot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LDot"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->2145681897]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(10)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1841075572],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(5)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2012752628],
+
+Cell["A dot product of two 4-vectors:", "ExampleText",
+ CellID->1356290286],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LDot", "[", 
+  RowBox[{"p", ",", "k"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1720522864],
+
+Cell[BoxData[
+ RowBox[{"k", ".", "p"}]], "Output",
+ ImageSize->{25, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1611118104]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1613819517],
+
+Cell[TextData[{
+ "Enter directly using the infix operator \"",
+ Cell[BoxData["."], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "\":"
+}], "ExampleText",
+ CellID->1771949977],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"p", ".", "k"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->990298504],
+
+Cell[BoxData[
+ RowBox[{"k", ".", "p"}]], "Output",
+ ImageSize->{25, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1887403072]
+}, Open  ]],
+
+Cell[TextData[{
+ "(",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ "'s built-in ",
+ Cell[BoxData[
+  ButtonBox["Dot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Dot"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " must be spelled out in full while ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X is active):"
+}], "ExampleText",
+ CellID->1638951276],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Dot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"d", ",", "e", ",", "f"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1287678252],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"a", " ", "d"}], "+", 
+  RowBox[{"b", " ", "e"}], "+", 
+  RowBox[{"c", " ", "f"}]}]], "Output",
+ ImageSize->{81, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1186874520]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1234323531],
+
+Cell["\<\
+Automatic expansion of dot products of linear combinations of four-vectors:\
+\>", "ExampleText",
+ CellID->583555497],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"p", "+", "k"}], ")"}], ".", "r"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->291490879],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"k", ".", "r"}], "+", 
+  RowBox[{"p", ".", "r"}]}]], "Output",
+ ImageSize->{59, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->352793177]
+}, Open  ]],
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["Hold",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Hold"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to keep linear combinations from expanding:"
+}], "ExampleText",
+ CellID->374208557],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Hold", "[", 
+   RowBox[{"p", "+", "k"}], "]"}], ".", "r"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->209395104],
+
+Cell[BoxData[
+ RowBox[{"r", ".", 
+  RowBox[{"Hold", "[", 
+   RowBox[{"p", "+", "k"}], "]"}]}]], "Output",
+ ImageSize->{88, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->374908875]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "ReleaseHold"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->155126643],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"k", ".", "r"}], "+", 
+  RowBox[{"p", ".", "r"}]}]], "Output",
+ ImageSize->{59, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->370962327]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1947026197],
+
+Cell[TextData[{
+ "Enter Feynman slash by dotting a Dirac ",
+ ButtonBox["gamma matrix",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracG"],
+ " with a four-vector:"
+}], "ExampleText",
+ CellID->313479993],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{"\[Gamma]", ".", "p"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1460176765],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{"\[Gamma]", ".", "p"}], "]"}]], "Output",
+ ImageSize->{118, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->597633921]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1371429293],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " forms dot products among vectors with repeated indices:"
+}], "ExampleText",
+ CellID->670144200],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["k", "\[Mu]"], 
+   SubscriptBox["p", "\[Mu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->271402757],
+
+Cell[BoxData[
+ RowBox[{"k", ".", "p"}]], "Output",
+ ImageSize->{25, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->188265061]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Scope",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1293636265],
+
+Cell["Make global definitions:", "ExampleText",
+ CellID->169761296],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"p", ".", "p"}], "=", 
+   SuperscriptBox["m", "2"]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"k", ".", "k"}], "=", "0"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"k", ".", "p"}], "=", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], "/", "2"}]}], 
+  ";"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->146144246],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"\[Gamma]", ".", "k"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"\[Gamma]", ".", "k"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1867221834],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"8", " ", 
+   SuperscriptBox["m", "4"]}], "+", 
+  RowBox[{"8", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["m", "4"]}], "+", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["m", "4"]}], "+", 
+  RowBox[{"16", " ", 
+   SuperscriptBox["m", "2"], " ", "s"}], "-", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", "s"}], "+", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["s", "2"]}], "-", 
+  RowBox[{"8", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["s", "2"]}], "+", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["s", "2"]}]}]], "Output",
+ ImageSize->{369, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->161002399]
+}, Open  ]],
+
+Cell[TextData[{
+ "Clear specific definitions with ",
+ Cell[BoxData[
+  ButtonBox["Unset",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Unset"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->120101632],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"p", ".", "p"}], "=."}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->2045932254],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"\[Gamma]", ".", "k"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"\[Gamma]", ".", "k"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->308306737],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "8"}], " ", 
+   SuperscriptBox["m", "4"]}], "-", 
+  RowBox[{"8", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["m", "4"]}], "+", 
+  RowBox[{"10", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["m", "4"]}], "+", 
+  RowBox[{"16", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["m", "2"], " ", "s"}], "-", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", "s"}], "+", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["s", "2"]}], "-", 
+  RowBox[{"8", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["s", "2"]}], "+", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["s", "2"]}], "+", 
+  RowBox[{"32", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"p", ".", "p"}]}], "-", 
+  RowBox[{"12", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{"16", " ", "s", " ", 
+   RowBox[{"p", ".", "p"}]}], "-", 
+  RowBox[{"16", " ", "\[ScriptD]", " ", "s", " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", "s", " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{"16", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"]}], "-", 
+  RowBox[{"16", " ", "\[ScriptD]", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"]}]}]], "Output",
+ ImageSize->{511, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1162522705]
+}, Open  ]],
+
+Cell[TextData[{
+ "Clear all user-defined global definitions with ",
+ Cell[BoxData[
+  ButtonBox["Clear",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Clear"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->627767093],
+
+Cell[BoxData[
+ RowBox[{"Clear", "[", "LDot", "]"}]], "Input",
+ CellLabel->"In[5]:=",
+ CellID->1741417852],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"\[Gamma]", ".", "k"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"\[Gamma]", ".", "k"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[6]:=",
+ CellID->1188953647],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["m", "4"]}], "+", 
+  RowBox[{"16", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"k", ".", "k"}]}], "-", 
+  RowBox[{"16", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"k", ".", "k"}]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"k", ".", "k"}]}], "+", 
+  RowBox[{"32", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"k", ".", "p"}]}], "-", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"k", ".", "p"}]}], "+", 
+  RowBox[{"32", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"k", ".", "p"}], ")"}], "2"]}], "-", 
+  RowBox[{"32", " ", "\[ScriptD]", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"k", ".", "p"}], ")"}], "2"]}], "+", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"k", ".", "p"}], ")"}], "2"]}], "+", 
+  RowBox[{"16", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{"16", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"p", ".", "p"}]}], "-", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"p", ".", "p"}]}], "-", 
+  RowBox[{"16", " ", 
+   RowBox[{"k", ".", "k"}], " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{"16", " ", "\[ScriptD]", " ", 
+   RowBox[{"k", ".", "k"}], " ", 
+   RowBox[{"p", ".", "p"}]}], "-", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   RowBox[{"k", ".", "k"}], " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{"32", " ", 
+   RowBox[{"k", ".", "p"}], " ", 
+   RowBox[{"p", ".", "p"}]}], "-", 
+  RowBox[{"32", " ", "\[ScriptD]", " ", 
+   RowBox[{"k", ".", "p"}], " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   RowBox[{"k", ".", "p"}], " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{"16", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"]}], "-", 
+  RowBox[{"16", " ", "\[ScriptD]", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"]}]}]], "Output",
+ ImageSize->{554, 48},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[6]=",
+ CellID->26317666]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1471573685],
+
+Cell[TextData[{
+ "Define a rule so that ",
+ Cell[BoxData[
+  ButtonBox["LDot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LDot"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " constructs the scalar product from components of a covariant and a \
+contravariant four-vector:"
+}], "ExampleText",
+ CellID->382406075],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LDot", "[", 
+    RowBox[{"a_List", ",", "b_List"}], "]"}], "/;", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"Length", "[", "a", "]"}], "\[Equal]", 
+     RowBox[{"Length", "[", "b", "]"}], "\[Equal]", "4"}], ")"}]}], ":=", 
+  RowBox[{"Dot", "[", 
+   RowBox[{"a", ",", "b"}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->561689013],
+
+Cell[TextData[{
+ "Scalar product ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SuperscriptBox["q", "\[Mu]"]}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1441997816],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"{", 
+   RowBox[{"k", ",", "0", ",", "0", ",", "k"}], "}"}], ".", 
+  RowBox[{"{", 
+   RowBox[{"q0", ",", 
+    RowBox[{"-", "qx"}], ",", 
+    RowBox[{"-", "qy"}], ",", 
+    RowBox[{"-", "qz"}]}], "}"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1565116430],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"k", " ", "q0"}], "-", 
+  RowBox[{"k", " ", "qz"}]}]], "Output",
+ ImageSize->{65, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1574995534]
+}, Open  ]],
+
+Cell[TextData[{
+ "Alternatively, define a rule so that ",
+ Cell[BoxData[
+  ButtonBox["LDot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LDot"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " constructs the scalar product from components of two covariant \
+four-vectors or two contravariant four-vectors:"
+}], "ExampleText",
+ CellID->659114425],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LDot", "[", 
+    RowBox[{"a_List", ",", "b_List"}], "]"}], "/;", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"Length", "[", "a", "]"}], "\[Equal]", 
+     RowBox[{"Length", "[", "b", "]"}], "\[Equal]", "4"}], ")"}]}], ":=", 
+  RowBox[{"Dot", "[", 
+   RowBox[{"a", ",", 
+    RowBox[{"DiagonalMatrix", "[", 
+     RowBox[{"{", 
+      RowBox[{"1", ",", 
+       RowBox[{"-", "1"}], ",", 
+       RowBox[{"-", "1"}], ",", 
+       RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "b"}], "]"}]}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1055694459],
+
+Cell[TextData[{
+ "Scalar product ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SuperscriptBox["\[ScriptG]", "\[Mu]\[Nu]"], 
+    SubscriptBox["q", "\[Nu]"]}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->546880899],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"{", 
+   RowBox[{"k", ",", "0", ",", "0", ",", "k"}], "}"}], ".", 
+  RowBox[{"{", 
+   RowBox[{"q0", ",", "qx", ",", "qy", ",", "qz"}], "}"}]}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->197260333],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"k", " ", "q0"}], "-", 
+  RowBox[{"k", " ", "qz"}]}]], "Output",
+ ImageSize->{65, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1649976614]
+}, Open  ]],
+
+Cell["Clear the definitions:", "ExampleText",
+ CellID->2111580032],
+
+Cell[BoxData[
+ RowBox[{"Clear", "[", "LDot", "]"}]], "Input",
+ CellLabel->"In[5]:=",
+ CellID->1925339766]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LDot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LDot"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not check for semantic correctness.  The following meaningless \
+expressions do not generate warnings or error messages:"
+}], "ExampleText",
+ CellID->1728604030],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LDot", "[", 
+  RowBox[{"DiracG", ",", "DiracS"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1145572966],
+
+Cell[BoxData[
+ RowBox[{"\[Gamma]", ".", "\[Sigma]"}]], "Output",
+ ImageSize->{25, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1223355809]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LDot", "[", 
+  RowBox[{
+   SubscriptBox["k", "\[Mu]"], ",", "MetricG"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->810074076],
+
+Cell[BoxData[
+ RowBox[{"\[DoubleStruckG]", ".", 
+  SubscriptBox["k", "\[Mu]"]}]], "Output",
+ ImageSize->{31, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1315367899]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->674450807],
+
+Cell["\<\
+If there is a product of symbols, it is not clear which is the vector:\
+\>", "ExampleText",
+ CellID->782013694],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"p", "+", 
+    RowBox[{"\[Beta]", " ", "q"}]}], ")"}], ".", "p"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->704235418],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LDot", "::", "symb"}], "MessageName"], ":", 
+  " ", "\<\"Cannot identify Lorentz vector/tensor in product \
+'\[NoBreak]\\!\\(q\\\\ \[Beta]\\)\[NoBreak]'.  Disambiguate by declaring \
+'LScalarQ[\\!\\(\\*StyleBox[\\\"symb\\\", \\\"TI\\\"]\\)] = True' for all \\!\
+\\(\\*StyleBox[\\\"symb\\\", \\\"TI\\\"]\\) that are not vectors/tensors. \\!\
+\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/LDot\\\", ButtonNote -> \
+\\\"X`LDot::symb\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->276808332],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"p", ".", "p"}], "+", 
+  RowBox[{"p", ".", 
+   RowBox[{"(", 
+    RowBox[{"q", " ", "\[Beta]"}], ")"}]}]}]], "Output",
+ ImageSize->{83, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->868056522]
+}, Open  ]],
+
+Cell[TextData[{
+ "Indicate that \[Beta] is a scalar constant with ",
+ Cell[BoxData[
+  ButtonBox["LScalarQ",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LScalarQ"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1485055425],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LScalarQ", "[", "\[Beta]", "]"}], "=", "True"}], ";"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1476909903],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"p", "-", 
+    RowBox[{"\[Beta]", " ", "q"}]}], ")"}], ".", "p"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->894355977],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"p", ".", "p"}], "-", 
+  RowBox[{"\[Beta]", " ", 
+   RowBox[{"p", ".", "q"}]}]}]], "Output",
+ ImageSize->{69, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->308283935]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Neat Examples",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->589267740],
+
+Cell[TextData[{
+ "Form the Gramian matrix out of the four-vector ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "1"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "2"], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->946998754],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Outer", "[", 
+  RowBox[{"LDot", ",", 
+   RowBox[{"{", 
+    RowBox[{"p1", ",", "p2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"p1", ",", "p2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1643894437],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], ",", 
+     RowBox[{"p1", ".", "p2"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], ",", 
+     RowBox[{"p2", ".", "p2"}]}], "}"}]}], "}"}]], "Output",
+ ImageSize->{219, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->71355901]
+}, Open  ]],
+
+Cell[TextData[{
+ "Its determinant is proportinal to ",
+ Cell[BoxData[
+  ButtonBox["Kallen\[Lambda]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenLambda"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->556689963],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "4"}], 
+   RowBox[{"Det", "[", "%", "]"}]}], "//", "Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->928493252],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p1", ".", "p2"}], ")"}], "2"]}], "-", 
+  RowBox[{"4", " ", 
+   RowBox[{"p1", ".", "p1"}], " ", 
+   RowBox[{"p2", ".", "p2"}]}]}]], "Output",
+ ImageSize->{165, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->534350288]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Kallen\[Lambda]", "[", 
+   RowBox[{
+    RowBox[{"p1", ".", "p1"}], ",", 
+    RowBox[{"p2", ".", "p2"}], ",", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"p2", "-", "p1"}], ")"}], ".", 
+     RowBox[{"(", 
+      RowBox[{"p2", "-", "p1"}], ")"}]}]}], "]"}], "//", 
+  "KallenExpand"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1769271112],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p1", ".", "p2"}], ")"}], "2"]}], "-", 
+  RowBox[{"4", " ", 
+   RowBox[{"p1", ".", "p1"}], " ", 
+   RowBox[{"p2", ".", "p2"}]}]}]], "Output",
+ ImageSize->{165, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1136553137]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LTensor",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LTensor"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LScalarQ",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LScalarQ"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Contract",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Contract"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1171011252],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "LDot (.) - Wolfram Mathematica", "LDot (.)"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 30.090996}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LDot[a, b] or a.b represents the Lorentz 4-vector dot product \
+a\\[CenterDot]b.", "synonyms" -> {}, "title" -> "LDot", "titlemodifier" -> "",
+     "windowtitle" -> "LDot (.)", "type" -> "Symbol", "uri" -> "X/ref/LDot"}, 
+  "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/LScalarQ.nb b/packages/X/Documentation/English/ReferencePages/Symbols/LScalarQ.nb
new file mode 100644
index 0000000000000000000000000000000000000000..1ae3d5387ff50d2eb23cf4e4e5303994c95b7fef
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/LScalarQ.nb
@@ -0,0 +1,1040 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LTensor\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LTensor"], "\<\"LDot\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LDot"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/LScalarQ\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/LScalarQ"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/LScalarQ.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/LScalarQ", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["LScalarQ", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LScalarQ",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LScalarQ"], "[", 
+       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives ",
+     Cell[BoxData[
+      ButtonBox["True",
+       BaseStyle->"Link",
+       ButtonData->"paclet:ref/True"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " if ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " is a Lorentz scalar expression, and ",
+     Cell[BoxData[
+      ButtonBox["False",
+       BaseStyle->"Link",
+       ButtonData->"paclet:ref/False"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " otherwise.  Assigning ",
+     Cell[BoxData[
+      RowBox[{
+       RowBox[{
+        ButtonBox["LScalarQ",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/LScalarQ"], "[", 
+        StyleBox["symb", "TI"], "]"}], "=", 
+       ButtonBox["True",
+        BaseStyle->"Link",
+        ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " declares ",
+     Cell[BoxData[
+      StyleBox["symb", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " to be a Lorentz scalar."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1606581142],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+An expression is considered a Lorentz scalar if it is a numeric quantity, or \
+if it also contains symbols that are known Lorentz scalars.\
+\>", "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LScalarQ",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LScalarQ"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is used during expression manipulation by ",
+ Cell[BoxData[
+  ButtonBox["LTensor",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LTensor"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["LDot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LDot"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and other related functions."
+}], "Notes",
+ CellID->1073878452],
+
+Cell[TextData[{
+ "A symbol can be declared a Lorentz scalar explicitly with ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{
+    ButtonBox["LScalarQ",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LScalarQ"], "[", 
+    StyleBox["symb", "TI"], "]"}], "=", 
+   ButtonBox["True",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->848312430]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(3)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1497359863],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(2)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1913841895],
+
+Cell["Number of spacetime dimensions is a Lorentz scalar:", "ExampleText",
+ CellID->1485622672],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LScalarQ", "[", "\[ScriptD]", "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1086873639],
+
+Cell[BoxData["True"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1606654918]
+}, Open  ]],
+
+Cell["Generic symbols are not known to be Lorentz scalars:", "ExampleText",
+ CellID->1114510029],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LScalarQ", "[", "a", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1793745068],
+
+Cell[BoxData["False"], "Output",
+ ImageSize->{40, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->295354746]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1701451385],
+
+Cell["\<\
+Without further information, it is not possible distinguish generic symbols \
+as scalars or as vectors:\
+\>", "ExampleText",
+ CellID->1604189714],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "2"], 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"m", " ", "v"}], ")"}], ".", 
+   RowBox[{"(", 
+    RowBox[{"m", " ", "v"}], ")"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1102881867],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LDot", "::", "symb"}], "MessageName"], ":", 
+  " ", "\<\"Cannot identify Lorentz vector/tensor in product \
+'\[NoBreak]\\!\\(m\\\\ v\\)\[NoBreak]'.  Disambiguate by declaring 'LScalarQ[\
+\\!\\(\\*StyleBox[\\\"symb\\\", \\\"TI\\\"]\\)] = True' for all \
+\\!\\(\\*StyleBox[\\\"symb\\\", \\\"TI\\\"]\\) that are not vectors/tensors. \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/LDot\\\", ButtonNote -> \
+\\\"X`LDot::symb\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1444605874],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LDot", "::", "symb"}], "MessageName"], ":", 
+  " ", "\<\"Cannot identify Lorentz vector/tensor in product \
+'\[NoBreak]\\!\\(m\\\\ v\\)\[NoBreak]'.  Disambiguate by declaring 'LScalarQ[\
+\\!\\(\\*StyleBox[\\\"symb\\\", \\\"TI\\\"]\\)] = True' for all \
+\\!\\(\\*StyleBox[\\\"symb\\\", \\\"TI\\\"]\\) that are not vectors/tensors. \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/LDot\\\", ButtonNote -> \
+\\\"X`LDot::symb\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->40811336],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "2"], " ", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"m", " ", "v"}], ")"}], ".", 
+   RowBox[{"(", 
+    RowBox[{"m", " ", "v"}], ")"}]}]}]], "Output",
+ ImageSize->{88, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->868840759]
+}, Open  ]],
+
+Cell[TextData[{
+ "Declare ",
+ Cell[BoxData["m"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to be a Lorentz scalar:"
+}], "ExampleText",
+ CellID->401184243],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LScalarQ", "[", "m", "]"}], "=", "True"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->747715231],
+
+Cell[BoxData["True"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1476373014]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData["m"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will now be consistently factored out of ",
+ Cell[BoxData[
+  ButtonBox["LDot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LDot"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["LTensor",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LTensor"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->386976712],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "2"], 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"m", " ", "v"}], ")"}], ".", 
+   RowBox[{"(", 
+    RowBox[{"m", " ", "v"}], ")"}]}]}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1684156572],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "2"], " ", 
+  SuperscriptBox["m", "2"], " ", 
+  RowBox[{"v", ".", "v"}]}]], "Output",
+ ImageSize->{56, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->125966736]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox[
+   RowBox[{"(", 
+    RowBox[{"p", "/", "m"}], ")"}], "\[Mu]"], 
+  SubscriptBox[
+   RowBox[{"(", 
+    RowBox[{"p", "/", "m"}], ")"}], "\[Nu]"]}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->2130722596],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], 
+  SuperscriptBox["m", "2"]]], "Output",
+ ImageSize->{38, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->303088736]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell["Indices attached to Lorentz scalars are dropped: ", "ExampleText",
+ CellID->1287711513],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"LScalarQ", "[", "a", "]"}], "=", "True"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"LScalarQ", "[", "b", "]"}], "=", "True"}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ SubscriptBox[
+  RowBox[{"(", 
+   RowBox[{"a", " ", "b"}], ")"}], "\[Mu]"]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->477417176],
+
+Cell[BoxData[
+ RowBox[{"a", " ", "b"}]], "Output",
+ ImageSize->{21, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2028401477]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LTensor",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LTensor"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LDot",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LDot"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->930664499],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "LScalarQ - Wolfram Mathematica", "LScalarQ"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 48.737278}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LScalarQ[expr] gives True if expr is a Lorentz scalar expression, and \
+False otherwise. Assigning LScalarQ[symb] = True declares symb to be a \
+Lorentz scalar.", "synonyms" -> {}, "title" -> "LScalarQ", "titlemodifier" -> 
+    "", "windowtitle" -> "LScalarQ", "type" -> "Symbol", "uri" -> 
+    "X/ref/LScalarQ"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/LTensor.nb b/packages/X/Documentation/English/ReferencePages/Symbols/LTensor.nb
new file mode 100644
index 0000000000000000000000000000000000000000..c822dd2ec40f050499863d7367ce60e286a73080
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/LTensor.nb
@@ -0,0 +1,1649 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LDot\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LDot"], "\<\"LScalarQ\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LScalarQ"], "\<\"Contract\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Contract"], "\<\"\[DoubleStruckG]\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/MetricG"], "\<\"\[CurlyEpsilon]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/LeviCivitaE"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/LTensor\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/LTensor"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/LTensor.html"]\
+, StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/LTensor", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["LTensor", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LTensor",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LTensor"], "[", 
+       RowBox[{
+        StyleBox["p", "TI"], ",", 
+        StyleBox["\[Mu]", "TR"], ",", 
+        StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["p", "TI"], 
+       StyleBox[
+        RowBox[{"\[Mu]", ",", "..."}], "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]represents the Lorentz tensor ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox["p", 
+         RowBox[{"\[Mu]", ",", "..."}]], "."}], TraditionalForm]], 
+      "InlineMath"]
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1554833592],
+
+Cell[CellGroupData[{
+
+Cell["Generic object that represents a Lorentz tensor.", "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ "Can be entered with subscript boxes using ",
+ Cell["Ctrl", "KeyEvent"],
+ " + ",
+ Cell["-", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->647074909],
+
+Cell[TextData[{
+ "Certain built-in tensors like the metric tensor (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"], 
+   RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") and the Levi-Civita symbol (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") will automatically canonically order their indices."
+}], "Notes",
+ CellID->1378635693],
+
+Cell[TextData[{
+ "The first argument ",
+ Cell[BoxData[
+  StyleBox["p", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " representing the tensor can be almost any expression.  The rest of the \
+arguments ",
+ Cell[BoxData[
+  StyleBox[
+   RowBox[{"\[Mu]", ",", "\[Ellipsis]"}], "TR"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " representing indices must be ",
+ Cell[BoxData[
+  ButtonBox["Symbol",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Symbol"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "s."
+}], "Notes",
+ CellID->1532199677],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["LTensor",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LTensor"], "[", 
+   RowBox[{
+    StyleBox["p", "TI"], ",", 
+    StyleBox["\[Mu]", "TR"], 
+    StyleBox[",", "TR"], 
+    StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " automatically expands out ",
+ Cell[BoxData[
+  StyleBox["p", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has head ",
+ Cell[BoxData[
+  ButtonBox["Plus",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Plus"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->776189556],
+
+Cell[TextData[{
+ "Four-vectors contracted into higher-rank tensors appear as indices set in \
+braces ",
+ StyleBox["{}", "InlineCode"],
+ "."
+}], "Notes",
+ CellID->911584619],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Clear",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/Clear"], "[", 
+   ButtonBox["LTensor",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LTensor"], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " clears user defined values for ",
+ Cell[BoxData[
+  ButtonBox["LTensor",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LTensor"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1495207669]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(10)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1507164048],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1336538371],
+
+Cell[TextData[{
+ "A four-vector with index ",
+ Cell[BoxData[
+  FormBox["\[Mu]", TraditionalForm]], "InlineMath"],
+ ":\[LineSeparator](enter Greek letter \[Mu] using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]m\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "):"
+}], "ExampleText",
+ Deletable->True,
+ CellID->2127085827],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LTensor", "[", 
+  RowBox[{"k", ",", "\[Mu]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1695157677],
+
+Cell[BoxData[
+ SubscriptBox["k", "\[Mu]"]], "Output",
+ ImageSize->{17, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->621253669]
+}, Open  ]],
+
+Cell[TextData[{
+ "Enter with subscript using ",
+ Cell["Ctrl", "KeyEvent"],
+ " + ",
+ Cell["-", "KeyEvent"],
+ ":"
+}], "ExampleText",
+ CellID->240934416],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["k", "\[Mu]"]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->989276627],
+
+Cell[BoxData[
+ SubscriptBox["k", "\[Mu]"]], "Output",
+ ImageSize->{17, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2072974970]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->301952748],
+
+Cell["A symbolic rank-two tensor:", "ExampleText",
+ CellID->1513649635],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LTensor", "[", 
+  RowBox[{"r", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->999462396],
+
+Cell[BoxData[
+ SubscriptBox["r", 
+  RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "Output",
+ ImageSize->{27, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->923302856]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->562977229],
+
+Cell[TextData[{
+ "The metric tensor (entered as ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]gg\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "):"
+}], "ExampleText",
+ CellID->145339121],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["\[DoubleStruckG]", 
+  RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->361627143],
+
+Cell[BoxData[
+ SubscriptBox["\[DoubleStruckG]", 
+  RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "Output",
+ ImageSize->{27, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->997524039]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1632000887],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"myTensor", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"f", "[", 
+     RowBox[{"k", ".", "p"}], "]"}], 
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["p", "\[Nu]"]}], "+", 
+   RowBox[{
+    RowBox[{"k", ".", "k"}], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1846885315],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"f", "[", 
+    RowBox[{"k", ".", "p"}], "]"}], " ", 
+   SubscriptBox["k", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "+", 
+  RowBox[{
+   RowBox[{"k", ".", "k"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{138, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1524063776]
+}, Open  ]],
+
+Cell["Re-express tensor in terms of different vector:", "ExampleText",
+ CellID->1377768325],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"myTensor", "/.", 
+  RowBox[{"p", "\[Rule]", "q"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1212528142],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"f", "[", 
+    RowBox[{"k", ".", "q"}], "]"}], " ", 
+   SubscriptBox["k", "\[Mu]"], " ", 
+   SubscriptBox["q", "\[Nu]"]}], "+", 
+  RowBox[{
+   RowBox[{"k", ".", "k"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{138, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->180736458]
+}, Open  ]],
+
+Cell["Exchange indices:", "ExampleText",
+ CellID->1488156211],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"myTensor", "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"\[Mu]", "\[Rule]", "\[Nu]"}], ",", 
+    RowBox[{"\[Nu]", "\[Rule]", "\[Rho]"}]}], "}"}]}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1976509702],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"f", "[", 
+    RowBox[{"k", ".", "p"}], "]"}], " ", 
+   SubscriptBox["k", "\[Nu]"], " ", 
+   SubscriptBox["p", "\[Rho]"]}], "+", 
+  RowBox[{
+   RowBox[{"k", ".", "k"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]]}]}]], "Output",
+ ImageSize->{138, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->919811379]
+}, Open  ]],
+
+Cell["Manually symmetrize the tensor:", "ExampleText",
+ CellID->997628007],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"myTensor", "+", 
+  RowBox[{"(", 
+   RowBox[{"myTensor", "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"\[Mu]", "\[Rule]", "\[Nu]"}], ",", 
+      RowBox[{"\[Nu]", "\[Rule]", "\[Mu]"}]}], "}"}]}], ")"}]}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->458259453],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"f", "[", 
+    RowBox[{"k", ".", "p"}], "]"}], " ", 
+   SubscriptBox["k", "\[Nu]"], " ", 
+   SubscriptBox["p", "\[Mu]"]}], "+", 
+  RowBox[{
+   RowBox[{"f", "[", 
+    RowBox[{"k", ".", "p"}], "]"}], " ", 
+   SubscriptBox["k", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"k", ".", "k"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{235, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->649776133]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[TextData[{
+ "Numeric constants and known Lorentz scalars (declared with ",
+ Cell[BoxData[
+  ButtonBox["LScalarQ",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LScalarQ"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") are factored out"
+}], "ExampleText",
+ CellID->2084181214],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox[
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", "2"}], "b"}], ")"}], "\[Mu]"]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1227897481],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "2"}], " ", 
+  SubscriptBox["b", "\[Mu]"]}]], "Output",
+ ImageSize->{35, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->700794113]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LScalarQ", "[", "m", "]"}], "=", "True"}], ";"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->805177882],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox[
+  RowBox[{"(", 
+   RowBox[{"m", " ", "v"}], ")"}], "\[Mu]"]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->855023645],
+
+Cell[BoxData[
+ RowBox[{"m", " ", 
+  SubscriptBox["v", "\[Mu]"]}]], "Output",
+ ImageSize->{27, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1240647569]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1544762514],
+
+Cell["Indices of four-vectors distribute over addition:", "ExampleText",
+ CellID->723285818],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox[
+  RowBox[{"(", 
+   RowBox[{"a", "-", 
+    RowBox[{"2", "b"}]}], ")"}], "\[Mu]"]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->933719192],
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["a", "\[Mu]"], "-", 
+  RowBox[{"2", " ", 
+   SubscriptBox["b", "\[Mu]"]}]}]], "Output",
+ ImageSize->{53, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->196400742]
+}, Open  ]],
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["Hold",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Hold"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to keep linear combinations from expanding:"
+}], "ExampleText",
+ CellID->374208557],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox[
+  RowBox[{"Hold", "[", 
+   RowBox[{"a", "-", 
+    RowBox[{"2", "b"}]}], "]"}], "\[Mu]"]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->209395104],
+
+Cell[BoxData[
+ SubscriptBox[
+  RowBox[{"Hold", "[", 
+   RowBox[{"a", "-", 
+    RowBox[{"2", " ", "b"}]}], "]"}], "\[Mu]"]], "Output",
+ ImageSize->{90, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1591371700]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "ReleaseHold"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->155126643],
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["a", "\[Mu]"], "-", 
+  RowBox[{"2", " ", 
+   SubscriptBox["b", "\[Mu]"]}]}]], "Output",
+ ImageSize->{53, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->237420978]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1537283141],
+
+Cell[TextData[{
+ "Definitions for ",
+ Cell[BoxData[
+  ButtonBox["LTensor",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LTensor"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be made for fully contracted tensors:"
+}], "ExampleText",
+ CellID->741993730],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+    RowBox[{"{", "p1", "}"}], ",", 
+    RowBox[{"{", "p2", "}"}], ",", 
+    RowBox[{"{", "k1", "}"}], ",", 
+    RowBox[{"{", "k2", "}"}]}]], "=", "0"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2144447051],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1240278956]
+}, Open  ]],
+
+Cell[TextData[{
+ "Definitions for uncontracted tensors cannot be made, since they interfere \
+with ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X tensor manipulation functions:"
+}], "ExampleText",
+ CellID->1470835530],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", 
+    RowBox[{"{", "p2", "}"}], ",", 
+    RowBox[{"{", "k1", "}"}], ",", 
+    RowBox[{"{", "k2", "}"}]}]], "=", "0"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->632990448],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LTensor", "::", "set"}], "MessageName"], ":", 
+  " ", "\<\"Cannot assign to \[NoBreak]\\!\\(\[CurlyEpsilon]\\_\\(\[Mu], \
+\\(\\({p2}\\)\\), \\(\\({k1}\\)\\), \\(\\({k2}\\)\\)\\)\\)\[NoBreak].  The \
+lhs argument must be a fully contracted tensor without free or dummy indices. \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/LTensor\\\", ButtonNote -> \\\
+\"X`LTensor::set\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[2]:=",
+ CellID->1187033194]
+}, Open  ]],
+
+Cell["This clears the definitions:", "ExampleText",
+ CellID->618547227],
+
+Cell[BoxData[
+ RowBox[{"Clear", "[", "LTensor", "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->365733437],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{
+   RowBox[{"{", "p1", "}"}], ",", 
+   RowBox[{"{", "p2", "}"}], ",", 
+   RowBox[{"{", "k1", "}"}], ",", 
+   RowBox[{"{", "k2", "}"}]}]]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1077783144],
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{
+   RowBox[{"{", "k1", "}"}], ",", 
+   RowBox[{"{", "k2", "}"}], ",", 
+   RowBox[{"{", "p1", "}"}], ",", 
+   RowBox[{"{", "p2", "}"}]}]]], "Output",
+ ImageSize->{111, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->924641179]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell["\<\
+In subscript form, indices of higher rank tensors must be separated by commas:\
+\>", "ExampleText",
+ CellID->729193139],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["t", 
+  RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->5268182],
+
+Cell[BoxData[
+ SubscriptBox["t", 
+  RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "Output",
+ ImageSize->{27, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->18402609]
+}, Open  ]],
+
+Cell["\<\
+Without comma separators, symbols would be interpreted as being multiplied  \
+\>", "ExampleText",
+ CellID->51378167],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["t", 
+   RowBox[{"\[Mu]", " ", "\[Nu]"}]], "//", "InputForm"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2132679473],
+
+Cell["LTensor[t, \[Mu]*\[Nu]]", "Output",
+ ImageSize->{109, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]//InputForm=",
+ CellID->339530741]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->312209094],
+
+Cell[TextData[{
+ "All subscripted symbols are interpreted as ",
+ Cell[BoxData[
+  ButtonBox["LTensor",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LTensor"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Variables with subscripts not intended to represent vectors may be \
+processed by ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X functions in unintended ways:"
+}], "ExampleText",
+ CellID->995693237],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Quark", " ", "mass", " ", "squared"}], "*)"}], 
+  "\[IndentingNewLine]", 
+  SuperscriptBox[
+   SubscriptBox["m", "Q"], "2"]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1016040293],
+
+Cell[BoxData[
+ SubsuperscriptBox["m", "Q", "2"]], "Output",
+ ImageSize->{17, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1455457575]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Package", "-", 
+    RowBox[{"X", " ", "interprets", " ", 
+     SubscriptBox["m", "Q"], " ", "as", " ", "a", " ", "four"}], "-", 
+    RowBox[{"vector", " ", "m", " ", "with", " ", "index", " ", "Q"}]}], 
+   "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"Contract", "[", 
+   SuperscriptBox[
+    SubscriptBox["m", "Q"], "2"], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->159633947],
+
+Cell[BoxData[
+ RowBox[{"m", ".", "m"}]], "Output",
+ ImageSize->{25, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->766770918]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->674450807],
+
+Cell["\<\
+If there is a product of symbols, it is not clear which is the vector:\
+\>", "ExampleText",
+ CellID->782013694],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox[
+  RowBox[{"(", 
+   RowBox[{"p", "-", 
+    RowBox[{"\[Alpha]", " ", "k"}]}], ")"}], "\[Mu]"]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->704235418],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LTensor", "::", "symb"}], "MessageName"], ":", 
+  " ", "\<\"Cannot identify Lorentz vector/tensor in product \
+'\[NoBreak]\\!\\(\\(\\(-k\\)\\)\\\\ \[Alpha]\\)\[NoBreak]'.  Disambiguate by \
+declaring 'LScalarQ[\\!\\(\\*StyleBox[\\\"symb\\\", \\\"TI\\\"]\\)] = True' \
+for all \\!\\(\\*StyleBox[\\\"symb\\\", \\\"TI\\\"]\\) that are not \
+vectors/tensors. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\
+\"Link\\\", ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/LTensor\\\", \
+ButtonNote -> \\\"X`LTensor::symb\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1215959132],
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["p", "\[Mu]"], "+", 
+  SubscriptBox[
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "k"}], " ", "\[Alpha]"}], ")"}], "\[Mu]"]}]], "Output",
+ ImageSize->{75, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1170746672]
+}, Open  ]],
+
+Cell["\<\
+Indicate that \[Alpha] is a scalar constant:\
+\>", "ExampleText",
+ CellID->1485055425],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LScalarQ", "[", "\[Alpha]", "]"}], "=", "True"}], ";"}]], "Input",
+ 
+ CellLabel->"In[2]:=",
+ CellID->440529043],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox[
+  RowBox[{"(", 
+   RowBox[{"p", "-", 
+    RowBox[{"\[Alpha]", " ", "k"}]}], ")"}], "\[Mu]"]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->656331036],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "\[Alpha]"}], " ", 
+   SubscriptBox["k", "\[Mu]"]}], "+", 
+  SubscriptBox["p", "\[Mu]"]}]], "Output",
+ ImageSize->{61, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1865361999]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LDot",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LDot"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LScalarQ",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LScalarQ"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Contract",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Contract"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->521453777],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "LTensor - Wolfram Mathematica", "LTensor"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 50.234393}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LTensor[p, \\[Mu], ...] or p \\[Mu], ... represents the Lorentz tensor p \
+\\[Mu], ....", "synonyms" -> {}, "title" -> "LTensor", "titlemodifier" -> "", 
+    "windowtitle" -> "LTensor", "type" -> "Symbol", "uri" -> "X/ref/LTensor"},
+   "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/LeviCivitaE.nb b/packages/X/Documentation/English/ReferencePages/Symbols/LeviCivitaE.nb
new file mode 100644
index 0000000000000000000000000000000000000000..550b43c426ded12647d33986838ecbbaf3c2725f
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/LeviCivitaE.nb
@@ -0,0 +1,1223 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LTensor\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LTensor"], "\<\"LDot\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LDot"], "\<\"\[DoubleStruckG]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/MetricG"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/LeviCivitaE\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/LeviCivitaE"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/LeviCivitaE.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/LeviCivitaE", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "LeviCivitaE ",
+ StyleBox["(\[CurlyEpsilon])", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LTensor",
+        BaseStyle->"Link",
+        ButtonData->"paclet:ref/LTensor"], "[", 
+       RowBox[{
+        ButtonBox["LeviCivitaE",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/LeviCivitaE"], ",", 
+        StyleBox["\[Mu]", "TR"], ",", 
+        StyleBox["\[Nu]", "TR"], ",", 
+        StyleBox["\[Rho]", "TR"], ",", "\[FinalSigma]"}], "]"}]], 
+      "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      SubscriptBox[
+       ButtonBox["\[CurlyEpsilon]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LeviCivitaE"], 
+       RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]],
+       "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]represents the Levi-Civita antisymmetric symbol ",
+     Cell[BoxData[
+      FormBox[
+       SuperscriptBox["\[CurlyEpsilon]", "\[Mu]\[Nu]\[Rho]\[FinalSigma]"], 
+       TraditionalForm]], "InlineMath"],
+     " near 4 spacetime dimensions."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1645971256],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]levi\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->1478544218],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   SuperscriptBox["\[CurlyEpsilon]", "0123"], "=", 
+   RowBox[{"+", "1"}]}], TraditionalForm]], "InlineMath"]], "Notes",
+ Deletable->True,
+ CellID->658939952],
+
+Cell[TextData[{
+ "The indices of ",
+ Cell[BoxData[
+  ButtonBox["LeviCivitaE",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LeviCivitaE"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are ordered automatically."
+}], "Notes",
+ CellID->277426428],
+
+Cell[TextData[{
+ "Four-vectors contracted into ",
+ Cell[BoxData[
+  ButtonBox["LeviCivitaE",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LeviCivitaE"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " appear as indices set in braces ",
+ StyleBox["{}", "InlineCode"],
+ "."
+}], "Notes",
+ CellID->911584619],
+
+Cell[TextData[{
+ "The indices of ",
+ Cell[BoxData[
+  ButtonBox["LeviCivitaE",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LeviCivitaE"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are assumed to run over ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " dimensions (naive implementation of dimensional regularization)."
+}], "Notes",
+ CellID->1246646781]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(7)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->2102042585],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(5)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->776249298],
+
+Cell["The Levi-Civita antisymmetric symbol:", "ExampleText",
+ CellID->1716599713],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{
+  "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->375808451],
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{
+  "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]], "Output",
+ ImageSize->{47, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1589216512]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1965298785],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " an external vector into the Levi-Civita antisymmetric symbol:"
+}], "ExampleText",
+ CellID->330704988],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["v", "\[Mu]"], 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1590512201],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", 
+    RowBox[{"{", "v", "}"}]}]]}]], "Output",
+ ImageSize->{65, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1897782682]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"-", 
+     SuperscriptBox["\[Epsilon]", "\[Nu]\[Rho]\[FinalSigma]\[Delta]"]}], 
+    SubscriptBox["v", "\[Delta]"]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1886439221]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1459513372],
+
+Cell["\<\
+The Levi-Civita symbol vanishes if any pair of indices are identical:\
+\>", "ExampleText",
+ Deletable->True,
+ CellID->1483027170],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Alpha]"}]]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->71419987],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1886051207]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], 
+   SubscriptBox["p", "\[Nu]"], 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->768340945],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->367815233]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2014458543],
+
+Cell[TextData[{
+ "Sums or differences of vectors contracted into the Levi-Civita symbol can \
+be expanded with ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1925037246],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+   RowBox[{"{", 
+    RowBox[{"p", "+", "k"}], "}"}]}]]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->927825027],
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", "+", "p"}], "}"}]}]]], "Output",
+ ImageSize->{67, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->417005523]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->996209513],
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", "k", "}"}]}]], "+", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", "p", "}"}]}]]}]], "Output",
+ ImageSize->{123, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1210157155]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1009994043],
+
+Cell["The following quantity vanishes:", "ExampleText",
+ CellID->1914091270],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["\[CurlyEpsilon]", 
+  RowBox[{"\[Mu]", ",", 
+   RowBox[{"{", "p", "}"}], ",", 
+   RowBox[{"{", "k", "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"p", "+", "k"}], "}"}]}]]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->422299097],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", 
+    RowBox[{"{", "k", "}"}], ",", 
+    RowBox[{"{", "p", "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", "+", "p"}], "}"}]}]]}]], "Output",
+ ImageSize->{95, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1018609030]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1993136418],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->652663802]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell["Contraction of two Levi-Civita symbols:", "ExampleText",
+ CellID->529959827],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}]], 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Delta]", ",", "\[Phi]"}]]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Alpha]"}]], 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Beta]"}]]}], 
+  "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->421758978],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"6", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Phi]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "-", 
+  RowBox[{"5", " ", "\[ScriptD]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Phi]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "+", 
+  RowBox[{
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Phi]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "-", 
+  RowBox[{"6", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Phi]"}]]}], "+", 
+  RowBox[{"5", " ", "\[ScriptD]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Phi]"}]]}], "-", 
+  RowBox[{
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Phi]"}]]}]}]], "Output",
+ ImageSize->{451, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1967501754],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"6", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "-", 
+  RowBox[{"11", " ", "\[ScriptD]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "+", 
+  RowBox[{"6", " ", 
+   SuperscriptBox["\[ScriptD]", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "-", 
+  RowBox[{
+   SuperscriptBox["\[ScriptD]", "3"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}]}]], "Output",
+ ImageSize->{211, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->848782972]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1259134813],
+
+Cell[TextData[{
+ "Traces over products of Dirac matrices (",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") involving gamma-5 (",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") typically involve the Levi-Civita symbol:"
+}], "ExampleText",
+ CellID->161211514],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Lambda]"], ",", "\[Gamma]5"}], "]"}]], "Input",
+ 
+ CellLabel->"In[1]:=",
+ CellID->1729768565],
+
+Cell[BoxData[
+ RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+   "\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}]]}]], "Output",
+ ImageSize->{67, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2081835699]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LTensor",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LTensor"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LDot",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LDot"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->458795961],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "LeviCivitaE (\[CurlyEpsilon]) - Wolfram Mathematica", 
+  "LeviCivitaE (\[CurlyEpsilon])"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 31.851580}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LTensor[LeviCivitaE, \\[Mu], \\[Nu], \\[Rho], \\[FinalSigma]] or \
+\\[CurlyEpsilon] \\[Mu], \\[Nu], \\[Rho], \\[FinalSigma] represents the \
+Levi-Civita antisymmetric symbol \
+\\[CurlyEpsilon]^\\[Mu]\\[Nu]\\[Rho]\\[FinalSigma] near 4 spacetime \
+dimensions.", "synonyms" -> {}, "title" -> "LeviCivitaE", "titlemodifier" -> 
+    "", "windowtitle" -> "LeviCivitaE (\[CurlyEpsilon])", "type" -> "Symbol", 
+    "uri" -> "X/ref/LeviCivitaE"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Ln.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Ln.nb
new file mode 100644
index 0000000000000000000000000000000000000000..7e8e2f5232250ec42a330da55b3dbdaffba05a14
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Ln.nb
@@ -0,0 +1,1193 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"DiLog\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Ln\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Ln"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Ln.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Ln", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["Ln", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Ln",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Ln"], "[", 
+       RowBox[{
+        StyleBox["x", "TI"], ",", 
+        StyleBox["\[Alpha]", "TR"]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the natural logarithm, which for real ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"x", "<", "0"}], TraditionalForm]], "InlineMath"],
+     " evaluates on the side of the branch prescribed by ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        UnderscriptBox["lim", 
+         RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
+          SuperscriptBox["0", "+"]}],
+         LimitsPositioning->False], 
+        RowBox[{"log", "(", 
+         RowBox[{"x", "+", 
+          RowBox[{"i", " ", "\[Alpha]", " ", "\[CurlyEpsilon]"}]}], ")"}]}], 
+       TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1517423797],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Mathematical function, suitable for both symbolic and numerical manipulation.\
+\
+\>", "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Ln",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Ln"], "[", 
+   RowBox[{
+    StyleBox["x", "TI"], ",", 
+    StyleBox["\[Alpha]", "TR"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has a branch cut discontinuity in the complex ",
+ Cell[BoxData[
+  FormBox["x", TraditionalForm]], "InlineMath"],
+ " plane running from ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"-", "\[Infinity]"}], TraditionalForm]], "InlineMath"],
+ " to ",
+ Cell[BoxData[
+  FormBox["0", TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1268751429],
+
+Cell[TextData[{
+ "For ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"x", "<", "0"}], TraditionalForm]], "InlineMath"],
+ ", the sign of ",
+ Cell[BoxData[
+  FormBox["\[Alpha]", TraditionalForm]], "InlineMath"],
+ " determines on which side of the branch cut ",
+ Cell[BoxData[
+  ButtonBox["Ln",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Ln"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates.  For all other values of ",
+ Cell[BoxData[
+  StyleBox["x", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Ln",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Ln"], "[", 
+   RowBox[{
+    StyleBox["x", "TI"], ",", 
+    StyleBox["\[Alpha]", "TR"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " returns ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Log",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/Log"], "[", 
+   StyleBox["x", "TI"], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1625094978]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(7)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1973448054],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2003999310],
+
+Cell[TextData[{
+ "Compare ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ "'s built-in function ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Log",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/Log"], "[", 
+   StyleBox["x", "TI"], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Ln",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Ln"], "[", 
+   RowBox[{
+    StyleBox["x", "TI"], ",", 
+    StyleBox["\[Alpha]", "TR"]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " defined by ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "ExampleText",
+ CellID->1388548615],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Log", "[", 
+  RowBox[{"-", "4.5"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Ln", "[", 
+  RowBox[{
+   RowBox[{"-", "4.5"}], ",", "1"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Ln", "[", 
+  RowBox[{
+   RowBox[{"-", "4.5"}], ",", 
+   RowBox[{"-", "1"}]}], "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->506446756],
+
+Cell[BoxData[
+ RowBox[{"1.5040773967762742`", "\[VeryThinSpace]", "+", 
+  RowBox[{"3.141592653589793`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->266164290],
+
+Cell[BoxData[
+ RowBox[{"1.5040773967762742`", "\[VeryThinSpace]", "+", 
+  RowBox[{"3.141592653589793`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->214785329],
+
+Cell[BoxData[
+ RowBox[{"1.5040773967762742`", "\[VeryThinSpace]", "-", 
+  RowBox[{"3.141592653589793`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2124497543]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1031967399],
+
+Cell["Symbolically:", "ExampleText",
+ CellID->1198141821],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Ln", "[", 
+  RowBox[{"x", ",", "1"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1904200846],
+
+Cell[BoxData[
+ RowBox[{"Log", "[", "x", "]"}]], "Output",
+ ImageSize->{47, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->34648073]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Ln", "[", 
+  RowBox[{"x", ",", 
+   RowBox[{"-", "1"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->568335330],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  RowBox[{"Log", "[", 
+   FractionBox["1", "x"], "]"}]}]], "Output",
+ ImageSize->{60, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->778681933]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1615996118],
+
+Cell["Evaluate to high precision:", "ExampleText",
+ CellID->821071617],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"N", "[", 
+  RowBox[{
+   RowBox[{"Ln", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "5"}], "/", "2"}], ",", 
+     RowBox[{"-", "1"}]}], "]"}], ",", "50"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1521453340],
+
+Cell[BoxData[
+ RowBox[{"0.\
+9162907318741550651835272117680110714501012199082624678860493298256775003945`\
+50.", "-", 
+  RowBox[{
+  "3.1415926535897932384626433832795028841971693993751058209749445923078163860\
+4904`50.", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{389, 27},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->637494477]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->965043492],
+
+Cell["Differentiate:", "ExampleText",
+ CellID->1655823533],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   RowBox[{"Ln", "[", 
+    RowBox[{"x", ",", "\[Alpha]"}], "]"}], ",", "x"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1350551398],
+
+Cell[BoxData[
+ FractionBox["1", "x"]], "Output",
+ ImageSize->{16, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->20013587]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell[TextData[{
+ "The derivative of ",
+ Cell[BoxData["DiLog"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is ",
+ Cell[BoxData[
+  ButtonBox["Ln",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Ln"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->845709091],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   RowBox[{"DiLog", "[", 
+    RowBox[{"x", ",", "\[Alpha]"}], "]"}], ",", "x"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1785916591],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"Ln", "[", 
+    RowBox[{
+     RowBox[{"1", "-", "x"}], ",", "\[Alpha]"}], "]"}], "x"]}]], "Output",
+ ImageSize->{90, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1832691167]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "If the second argument evaluates to zero and the first argument is \
+negative, a message is issued and ",
+ Cell[BoxData[
+  ButtonBox["Ln",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Ln"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " returns ",
+ Cell[BoxData[
+  ButtonBox["Indeterminate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Indeterminate"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1425964689],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Ln", "[", 
+  RowBox[{
+   RowBox[{"-", "4"}], ",", "0"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1962663834],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"Ln", "::", "branch"}], "MessageName"], ":", 
+  " ", "\<\"'\[NoBreak]\\!\\(0\\)\[NoBreak]' in position 2 does not indicate \
+branch. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/Ln\
+\\\", ButtonNote -> \\\"X`Ln::branch\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->980751709],
+
+Cell[BoxData["Indeterminate"], "Output",
+ ImageSize->{98, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1556982438]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Interactive Examples",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1653164318],
+
+Cell[TextData[{
+ "Explore the behavior of ",
+ Cell[BoxData[
+  ButtonBox["Ln",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Ln"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " for different signs of the small imaginary part:"
+}], "ExampleText",
+ CellID->379735562],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Manipulate", "[", 
+  RowBox[{
+   RowBox[{"Plot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Re", "[", 
+        RowBox[{"Ln", "[", 
+         RowBox[{"x", ",", "\[Alpha]"}], "]"}], "]"}], ",", 
+       RowBox[{"Im", "[", 
+        RowBox[{"Ln", "[", 
+         RowBox[{"x", ",", "\[Alpha]"}], "]"}], "]"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"x", ",", 
+       RowBox[{"-", "12"}], ",", "12"}], "}"}], ",", 
+     RowBox[{"PlotRange", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "10"}], ",", "10"}], "}"}]}]}], "]"}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"{", 
+    RowBox[{"\[Alpha]", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2041675297],
+
+Cell[BoxData[
+ TagBox[
+  StyleBox[
+   DynamicModuleBox[{$CellContext`\[Alpha]$$ = -1, Typeset`show$$ = True, 
+    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
+    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
+    "\"untitled\"", Typeset`specs$$ = {{
+      Hold[$CellContext`\[Alpha]$$], {-1, 1}}}, Typeset`size$$ = {
+    180., {59., 63.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
+    Typeset`skipInitDone$$ = True, $CellContext`\[Alpha]$2882$$ = False}, 
+    DynamicBox[Manipulate`ManipulateBoxes[
+     1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = -1}, 
+      "ControllerVariables" :> {
+        Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$2882$$, False]}, 
+      "OtherVariables" :> {
+       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
+        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
+        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
+         Typeset`skipInitDone$$}, "Body" :> Plot[{
+         Re[
+          X`Ln[$CellContext`x, $CellContext`\[Alpha]$$]], 
+         Im[
+          
+          X`Ln[$CellContext`x, $CellContext`\[Alpha]$$]]}, {$CellContext`x, \
+-12, 12}, PlotRange -> {-10, 10}], 
+      "Specifications" :> {{$CellContext`\[Alpha]$$, {-1, 1}}}, 
+      "Options" :> {}, "DefaultOptions" :> {}],
+     ImageSizeCache->{223., {100., 105.}},
+     SingleEvaluation->True],
+    Deinitialization:>None,
+    DynamicModuleValues:>{},
+    SynchronousInitialization->True,
+    UnsavedVariables:>{Typeset`initDone$$},
+    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
+   Deployed->True,
+   StripOnInput->False],
+  Manipulate`InterpretManipulate[1]]], "Output",
+ ImageSize->{227, 207},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->155208240]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[Cell[BoxData[
+ StyleBox[
+  ButtonBox["DiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiLog"],
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    "Verdana"]]], "InlineFormula",
+ ShowStringCharacters->False]], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->82883622],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Ln - Wolfram Mathematica", "Ln"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 33.450273}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Ln[x, \\[Alpha]] gives the natural logarithm, which for real x < 0 \
+evaluates on the side of the branch prescribed by UnderscriptBox[lim, \
+\\[CurlyEpsilon] \\[Rule] 0^+, LimitsPositioning->False]log(x + i \\[Alpha] \
+\\[CurlyEpsilon]).", "synonyms" -> {}, "title" -> "Ln", "titlemodifier" -> "",
+     "windowtitle" -> "Ln", "type" -> "Symbol", "uri" -> "X/ref/Ln"}, 
+  "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Longitudinal.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Longitudinal.nb
new file mode 100644
index 0000000000000000000000000000000000000000..a314ef02ca6342fd37311de00a8ce111e6bfe130
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Longitudinal.nb
@@ -0,0 +1,1283 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Transverse\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Transverse"], "\<\"Contract\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Contract"], "\<\"Projector\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Projector"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Longitudinal\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Longitudinal"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Longitudinal.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Longitudinal",
+              ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["Longitudinal", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Longitudinal",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Longitudinal"], "[", 
+       StyleBox["tensor", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the longitudinal scalar projection of the \
+rank-two ",
+     Cell[BoxData[
+      StyleBox["tensor", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " containing only one four-vector."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Longitudinal",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Longitudinal"], "[", 
+       RowBox[{
+        StyleBox["tensor", "TI"], ",", 
+        StyleBox["v", "TI"]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]gives the scalar projection of the given rank-two ",
+     Cell[BoxData[
+      StyleBox["tensor", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " longitudinal to vector ",
+     Cell[BoxData[
+      StyleBox["v", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Longitudinal",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Longitudinal"], "[", 
+       RowBox[{
+        StyleBox["tensor", "TI"], ",", 
+        StyleBox["v", "TI"], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          StyleBox["\[Mu]", "TR"], ",", 
+          StyleBox["\[Nu]", "TR"]}], "}"}]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]gives the rank ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"P", "-", "2"}], TraditionalForm]], "InlineMath"],
+     " tensor projection of the rank ",
+     Cell[BoxData[
+      FormBox["P", TraditionalForm]], "InlineMath"],
+     " ",
+     Cell[BoxData[
+      StyleBox["tensor", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " longitudinal to vector ",
+     Cell[BoxData[
+      StyleBox["v", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " along indices ",
+     Cell[BoxData[
+      StyleBox["\[Mu]", "TR"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " and ",
+     Cell[BoxData[
+      StyleBox["\[Nu]", "TR"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1455631698],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Given a four-vector ",
+ Cell[BoxData[
+  FormBox["v", TraditionalForm]], "InlineMath"],
+ " and two indices ",
+ Cell[BoxData[
+  FormBox["\[Mu]", TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox["\[Nu]", TraditionalForm]], "InlineMath"],
+ ", a rank ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"P", "\[GreaterEqual]", "2"}], TraditionalForm]], "InlineMath"],
+ " tensor ",
+ Cell[BoxData[
+  FormBox["T", TraditionalForm]], "InlineMath"],
+ " can be generically be written ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["T", 
+     RowBox[{
+      RowBox[{"\[Mu]", " ", "\[Nu]"}], "..."}]], "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["g", 
+         RowBox[{"\[Mu]", " ", "\[Nu]"}]], "-", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["v", "\[Mu]"], 
+          SuperscriptBox["v", "\[Nu]"]}], 
+         SuperscriptBox["v", "2"]]}], ")"}], 
+      SuperscriptBox["A", "..."]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["v", "\[Mu]"], 
+         SuperscriptBox["v", "\[Nu]"]}], 
+        SuperscriptBox["v", "2"]], ")"}], 
+      SuperscriptBox["B", "..."]}]}]}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1204740257],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Longitudinal",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Longitudinal"], "[", 
+   StyleBox["tensor", "TI"], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " extracts the rank ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"P", "-", "2"}], TraditionalForm]], "InlineMath"],
+ " tensor ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["B", "..."], TraditionalForm]], "InlineMath"],
+ " by multiplying ",
+ Cell[BoxData[
+  StyleBox["tensor", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ "the projector ",
+ Cell[BoxData[
+  FormBox[
+   FractionBox[
+    RowBox[{
+     SubscriptBox["v", "\[Mu]"], 
+     SubscriptBox["v", "\[Nu]"]}], 
+    SuperscriptBox["v", "2"]], TraditionalForm]], "InlineMath"],
+ " and applying ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->620837642],
+
+Cell[TextData[{
+ "If the four-vector ",
+ Cell[BoxData[
+  StyleBox["v", "TI"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and indices ",
+ Cell[BoxData[
+  StyleBox["\[Mu]", "TR"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  StyleBox["\[Nu]", "TR"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are not explicitly specified, ",
+ Cell[BoxData[
+  ButtonBox["Longitudinal",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Longitudinal"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " attempts to determine them automatically."
+}], "Notes",
+ CellID->1067943069]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(2)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->668241662],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(1)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1945623071],
+
+Cell["Project the longitudinal part out of a simple rank-2 tensor:", \
+"ExampleText",
+ CellID->744125836],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"a", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+   RowBox[{"b", " ", 
+    SubscriptBox["p", "\[Mu]"], 
+    SubscriptBox["p", "\[Nu]"]}]}], "//", "Longitudinal"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1876062987],
+
+Cell[BoxData[
+ RowBox[{"a", "+", 
+  RowBox[{"b", " ", 
+   RowBox[{"p", ".", "p"}]}]}]], "Output",
+ ImageSize->{55, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1269578804]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell["\<\
+Check that the QED vacuum polarization tensor has no longitudinal component, \
+a requirement of the Ward identity:\
+\>", "ExampleText",
+ CellID->651813231],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   GraphicsBox[
+    TagBox[RasterBox[CompressedData["
+1:eJzt3b1u80p6AODJT5HSd3AU+AZ8CUrqFMamSKtdJGljbAIEp1O5pa8g0CUY
+ewNRuUUKlwukURMg6VSkSeWIx6PP1HgoURKpocjnAE/2i0VJryiKL2femeFf
+/uaffvWPfxpC+Oe/2P2fX/36X//qt7/99c9/++e7/+evf/6Xf/jNn+3+8fgn
+IfznTvXHj48PYKAef5o977ztrHfedz5qFqXjA4B7t8unLzvbJMfuzUrHBwBj
+ssutr7U8uykdDwCMTZJr30rHAwBjk9RrX0rHAwBjssutD0mt9ql0TAAwJnE8
+8j7PbkvHAwBjo1YLAP1SqwWA/qjVAkC/1GoBoF/n1GqrNu/OMpqXjh0A7kGb
+Wm2VV6u1pOJ6juv472r7Ven4AWDI2tRqq3sQxMeWcfuHmG/VdwHghFO12ti/
+vK33F1dt2SQ/z28VLwDcm2O12to9gJ6Sv6+TXDsr/TkAYKiaarWx3/hbno2P
+PcfHtu5xCwDH5Wq1x/IsANBeHFt8UKuN45/kWQDoQMyrP+4NH+uw8iwAdCQz
+xukjjjF+Md4JAK6X5NhqPPJbbNfu/7Y2nwcALpOr1dYee0ny8KJ0vABwb5Ja
+7bc1kJN8W7V1H0rHDAD3JKnVNq2BXO9Pnmcen5X+HAAwVKfWQI7bvJ/ItRv9
+ywDwXVKr3RzZrnHN48fPe+tZnxEAMpJa7erIdvVc+5A8Vo1bfi/9WQBgiJJa
+7eLIdsfu/7NpqvMCwNS1vUdPrV67Tv6+v/+PsckAkGhbq43b7u8R/yOvxjrt
+VpsWAPKqdmxtLs+yxfb7+9vu10v+ZY2p0p8DAIYstk0XZ2w/i21c6yQDAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAMHq7/55KxwAAY7b7b71T/WMb/73cWcjB
+ANCNmGeb1PPvvHSsAHCPTuTaXO59i+3eh9KxA8A9ODPXpuRdADjhylyb5t3n
+0p8HAIakGv/UYa6t9zO/7sxKfz4AKKnKhTsvPeTatK07L/1ZAaBPse36HMcS
+V2OK33vOrzl/3Pn70vsCALpQtSNreXVbIK+e8h77mKv8b0wVAIMX26373HpO
+vlvHPt4h5N4qfmtnADAYMb9WbcPNiTy2nw+7jO3IWfI6yx5zaPXef4i5tPLH
+cLqdXT2+CsYzA1BAy/y6iblqkebVhtfsIteu43tWrzU/1T4Nn2Oynlt8ln3e
+1d4FoDe7/x5i3jw2nqnKdS9tcmvm9c/NtVVufIvv10kOjLl3EY73Z2/ie6rv
+AtCJmH9eQ3OfayfrNcX3aNMH3VluPRHP/triWN5dXXJdAQCVmGNXJ9p2sw7f
+b93wPr+MEy68L0616avY56W/MwDuQ/isxeby3r4dN+/pfffvOejaaNw/q4Z2
+vpwLQKMj7dgqpyz77iuN7ddF6f1wRrwPcb/IuQAcFXNGrla6z7HGAJ3eh4uQ
+H8esngswcbHmmrbL5NjL92cu59qfABMUa465cT6vcsLV+7apb3mjXxlgGkJ+
+HutaX2fn+/mhof795noGYJwa2rJVW8sahP3u93lmv2/td4BxaWjL6i++/XeQ
+9iv7DgDuXOzHXKsbDkP4nFeVfh9Vm3eQc4kBOC72XWpHDVCmn6H6nhal4wKm
+6fGn2XxnubOOXnYekm2eq21Kxzok4XMuj/rggMX6+Sb5nlal4wKmI+bY952P
+nU3Mt8v47/d9vt397yJu81Y65qHIjH19N8Z4mGIff3pvg7W+B6BvMad+RMvk
+sYeYa6s27tPONm73Ujru0uJ5Ox3vuiodF62+u7QfQg0X6M0uZ65qeXbRsM0s
+Pr6tbTvp81Icc5Pm2ez+Y5jC5z3r6/X1rXwLdC3WYj/a9AnX+pd/ybmlYy8p
+1v3Sc/S8dFxc/F1ugjo70IPYH/xRa68erVftHn9tm5fHrCHPagvdsYZawKJ0
+XMD9S9qpyxbbr2vbT7JWm8mz78bUjIN8C3StNpZ4b3Zi+4dk+8m14+TZaciM
+KV+Ujgm4T0mb9r3F9s9TrtXKs9Mi3wLXqo0pbt0fPOVarTw7TZl8Oy8dE3A/
+krHHrfqDk3bwZGq1sYa3kWenKRyueWEMHNBa1S49pz94qrXazFgZeXZiMsdA
+lW9npeMChi8ZT7xusf0ka7XaNMTjwDUXcLYk1y5bbD+5Wm34vDePPMv+eHhI
+avaT+B0Al0ty7aLF9psp1WqrMafGoJLKjJFblo4JGK4k185PbFtfW2r0tVrn
+U47JXIdZyxHISvqE5ye2rd+XYNS12kxdTj8h32TqC7PSMQHD8/h5n9qT9drM
+2lKjzj3JfMqN8S80CZ/3u/0xVqp0PMAw1fqRNw2P7+fg1u+hN9pabfi8t1q9
+b3DUfeVcJzNWalk6JmB4Hr/u//4R+4kf4t/nMQ9vM+3aUeafzHlztNcUdKda
+R8r1GXBKzLerJJ/uc+8s6Wseba02mUe7Lh0P9yOp3ao7AEfFvDpP/rYce602
+6Ts2zoWzhO9reC5LxwTcl7GvgazvmC7oSwYuNYU1kJNxx+vS8XC/kr7kdel4
+gPsw9jWQM22RWemYuF+ZvuRF6ZiA4Rv7GsjJ/Mhl6Xi4f5nav3FSwFFjrtWG
+w3X2jB2lM67hgLaS/uPKqNZ81ddHX8LnetrGtQNZsc94+/h9ru2Pmm1c42Je
+OtZrJG3adel4GJ9kzN2qdDzAcMQ1GZct3HV/a9KmnZeOh/Gp2rLG3QFTpU3L
+rSRzgFal4wG4FW1abiXOAdK2BSZFm5ZbS+q2r6XjAeibNi23ltRtzbcFehfX
+aZoXfO8f82lL7wumI2nbjmqeOjA8tfrVssB71++Ztyi9L5iOZL7tpnQ8wPjV
+rvHXtxoroh+P0nb/vatfALcSDteL/aWN23fuq/rtjE+hpGRc3qp0PMD4hcP7
+xe7XI170+H71MVGz0p+f6Qnf75OsbwXoVTJWpNecm9TK3kt/dqYrOe4XpeOB
+qYo1zCn4j5DPtfWcW/X7Xn3tHw7X7jEGlGLC4Vj40d2jEu7FifwzVatwRb9v
+OOw/1m9HUY5HKG8AeW1ItjHPPl2xP+v9x9oRFBcO+1kWpeOBKQqfY3KnoD7X
+NbUJ+o8ZqeD6D7iR8FmzzeXYRcfvU5/TOCv9uaESauORS8cCjFP4fl/Pbehh
+jm3yPsYfMxjhcDzyc+l4gPEJh+tKvPXV3gyHawdYv4LBcGwCfYt9xdu+r+eT
+tsO89OeGvXB4X1t9LkCn4riQ9677ixvea6MmxlAlYwnM/QE6c6vxSUmtdl36
+c0MqGSOvZgvcnXB4f4Nl6XggldRsl6XjAThXHNeszcBg6XsB7l0yf3dWOh7I
+qc2z3ZaOBeBczmHcg+Sa0Pgoburxp9nrznan1Tq4u+0edl7abs+4JfMp1qXj
+gSZJrWNeOh6mY5cvn3c+olbzznbbreP2VX6elf4MlBUO71tmnQAGKxkfZb1u
+bia2afe5ttW63LXtP7RtSdalcv5isFwXUkrVlq3lzZPnyaQdrDaHfjnuhnoH
+JcS661lt1EvawYxbOLxfn34OBs1ajTSJOXEezc587lPTcy5po57bDmb86mM7
+S8cCp9TXaiwdC+Xt8tgqaXPubc54jeWxPHpuGzXTDp6X3k+UF6yDzB1xbche
+zGmvcbzvJslvqzNe58dzGx6/plabfU2mR/2Le6LmQZMk1y5aPufpWF7soFa7
+Lr1fKnHdtXmiyBz18HlPnYNYCsXxkNknsx7fT67lbpwayzeU33GMJf0dF7k2
+GNJ5ti+ZnDhr+byj/cMd1GqXpfZJzCXLet9lRlWTeen7eIjH3Cp8rZuU83aL
+32v4nDv4fiSOan+9dpl3g3Gd3Jlcro25pM3veHGD+BbhsO2d2sZYZz3HMRvK
+efYWkpy4OeN529rzvq0Ff6+12vi9Hvs95I7LztfCjznm2O8hZ93H7yPm+2O/
+h9w+WXb43uYrcjeSXPs34fBee21U+aXz9mX4utf0ObG89pHn4j465zy76eM8
+e0tJTly1fM7iVH5+/Fr76W7m1cZrudxxv6x5bTheW+27lnE8ZY7Dbcy99VhW
+Ddt19jsNh+vgpO3XeizrzHbra3+nSa5dljgu4BzJb+a/Mr+L3O94k9lu0XFM
+6bliE9+7Hkvu+v792t9xLY6mNkTb8+yy9Pd7qaTfttV3m4ynyj7n3Dbque3g
+roXvebY6HmZHtn/K5Jer213he56t/n20DyXzO+ok34bvebY69hu/y/DVT3aQ
+b6+MQa7lriTH7EGeOPE7fs7k3EUH8Twnr7k59rrhq4bWeb7NnDNXJ86z88xz
+7m4u6CW12qRNm52r/fg5T/es8cTHxizHNm9v/QeZ46rxOMw89yV57lVxhsNr
+ufdjx2HyvIfkuZtrfhuZ88XqjOemuX/ZURwXvw7cSua30/raN/6OV8lzZ1fE
+Mkt+i29tzwvh+3X/VW2JK8+zq+S58w6+p4v367nOrdXG3Fxv02aPn8evebet
+7jdwasxyfM/ermXC4bVk6++/4Ri6OMdd+zqZfLvsaJ+sLnj+IvltXNTO3v33
+c+01/q2vYwC6svvv72rH7P9dcuyHw37W9RWxXPU6Md9eneMyr7O44DXq+XZz
+xT7Zj8m5eL+e69xabbL98sh29Vrtyc+T5OZt8tjTsbzehdrxePF1Wzjs5zi5
+L1sci/ML47j6dTo8putjQs7ug4rXDv9Te43f93UMQFfC53io/TH77xe+xkM4
+bFOe3dZIrncvbh/30Aa45jx7bRtgXj8/3uqYOKdWm/QLr09s+3HGtmlbeZ08
+/nLO+OgLv7+LjsHkNdIc1/o4CN/7as4+hpLXq+e4s8ZJhw77auJvrP7baJ1v
+w2ffVzo2YtnncQBdCB3VPcL3OuvijOcukude1S8YxlHbmocO+8TbOqdWWz1W
+m+NT5efGfZXWak/lycfva0Uuk8erPHwXcz0yx/epsUR9jkFI89TRea+hpzEI
+meuI7alzRmied7W8Nh7oW1e5Nr5Weu17aszmLHwf57vq4DNlx2yeeM4iHF5r
+dzVmMx0js25xnk3nXd3svhBta7UxJ+/bv9tTfblJf3DjnJ/4um/xNeuxvNa2
+eWk7ZmsoMvl2fy23nyOzCLcbW58bM/+WxNH72PrM73S/T1ZJLKvMdv8r13JP
+Qsf3W87k2/25Yhnf6yX+u9RcxNzveJPZrsu5iMuGfXLT82wbbWq15+bZ+Jx6
+rbbeN/z6+HUvodf4epv9a9Zy9D73vsR/30WbNjkO5plj7ZQ+54yfE0cVdx9r
+c8xCfg7uMdX29drXsvR3C6ckv7l5R6/Z1NfT5GS788I4Hi78HfexNkdujtTJ
+8+ytj4dTtdo4Jmm/zXvbtmXSnq1eY1Frv37UXu8l7YuO225qOXd56/3S8bGw
+CMfXadlfE7bat1fEMYu5/Nhv9T3cbs3J3LVm3Vv4Wtvuof6bLf2dwil95Nr4
+uvua07H8sgkn5vF2FEvb3/Gi5zgehnKezTlVq43tyn1uXB2rzybPq9dqi6z9
+NETha63+Rcxn8z6u81rG8hTf/yXGMy9xDMZYqvd+jueGedN5Sa7lnvSVa5P3
+mA3sdzyPn/s5FLpvwJDOs3tNtdo4Buqt3pd75uvWa7U3X/uJcZJruSfBPfWI
+0lptzLHLmF+38d9nX5c8nrkGMrRR6zPTV8LgBfeKJ0pqtQf10UtybO11G9d+
+gks5d3FP6rXD0rFQVq0Wu419xosOXlOtll4kfXKz0vHAMbVj9WZzOBmm2Gfc
+abtTrZa+3GKsCXQhGDdPz9Rq6UvoeG0A6Es4XDPq7tYGYPjUaulL6HDNO+hT
+cl24LB0P41Nf96J0LIyLfjnuRThcd3deOh7GJ66PMb9mHDM0CV9rXhl3x2CF
+w/ULZ6XjAThHcg5zPccguSYE7lnSN9f5vRHgWuFz3US1DuBuhcP7Zi9LxwOp
+cHg/zWXpeADOpc3A0Ol7Acagti7yR+lYIBUO7+tmTAFwl8LnPSjNp2Bwknlp
+5j0Cd0s9jKFKjk3rRQF3K6nZajswGEmfi1otcNfqNVs1MYaiNq/WcQncvWSs
+56J0PBAO1+t2jzPg7jmvMTTJ9Z/7UAGjoL+OIUnqGrPS8QB0IRmHsigdD9OV
+9LMYrweMRnJ+W5eOh+lKrvv0HwOjot+O0uL6FeoZwGhVa1lY14KSkvUrjNMD
+RidZ18K9Qrm5cLj+sfUrgFGq2hLGSFHC7r+n2rG3KR0PQF/C4T1t16XjYTqS
+MVHL0vEA9CkZIzUvHQ/jl9QvjIkCRi8Zn7IuHQ/jl7RpV6XjAehbZt7FU+mY
+GK/M8TYrHRPALSTzf9al42G8kmNtVToegFvJtDXmpWNifDJ12lnpmABuSduW
+vqnTAlOnbUuftGkBPiVjkjel42E8qr6S2rH1WjoegJKS+bbuu8LVkjVTtubT
+AlMXDu+3t9XXxzVibcL1G0AiHK6T7P4rXKzqL64dS+4FDxDFcSz1cVLuwcLZ
+wuH9BYy3A0hUfX1qbFwjHN4zz3gogIxk7Ki+ZFpL+o43rtUA8jJ9yYvSMTF8
+yfg6fccAJ2T6kmelY2K4Mmui6DsGaCEZl/yuP5AmSd3BsQLQUqatsiodE8MT
+DtfUro4X92cEOENm/saidEwMR7I2lOMD4EJJ7daYF34Rr8P0ewB0JBzeF00/
+4cSF72swWhsK4Erx3Fpfo8D4l4nKHAvWPAHoSK4t4xw7PcmYY30cAB3L1Ojk
+2wlJaglq9wA9yeRb6zhOQCbPLkrHBDBm4ft6fKvSMdHr9y3PAhRQnW+T8+9a
+f/L4yLMAZWXyrfrtSMSxcPIswADIt+OTmdcjzwIUlhkvZS7InQqf91SUZwEG
+qCHfPpeOi6u/w0XpuAD4Es/VaZvopXRctPru0lqAvgmAgYq1vnVy3n5Twx2m
+hjFQ7/IswPBlzt8b5+9haeiHcF0EcEdiv+Q26FMenPB5r8T0u1mWjguA8zW0
+nao+5lnp2KYo9hm/ZWqz89KxAXC5hprgVhv35t9Drp9hrc8YYDyqOUAN53p1
+3H73+ywzXs21DsBINfRhVl61r3rZ18vMvtaHDzABsY270dbqbf/m+ovtX4CJ
+ie2u10y7q8rBi9Lx3aOYY9NrmI9YL9dvADBRDfVEOfe8fdiUY9fGGAOwFz7v
+QT+KnBs+5zr13l97JMfe3T4D4HaO5I9tHOszKx1jQ9xV+/ylFvu6x/dZZuqx
+ciwAZ4k5N9fO3a8lWPw+QrX8mq7X0XmuDZ/jyXJjuOVYAK4S+5abckzVtlvd
+Mu/GeF4b8munuTb2Ra8a2rD7emzxaw4AxiG2IV+P5J3O8274HCs9j322TW3s
+Jm8Xvudz/Bybhtfdf85Z6e8EgPE60Z9ab/NVOXLe8jXn8XX3ebUp17W1PON9
+2+Ty6vMugrk7ANxQbHcuWuTdfU3zD3Hb38fcdm5b9apcGz77hKt4X1u+d7XN
+izYsAEMQ8+6p/tdbWtfaq6dqu2n/sPYrAIMX25AvMXf99wByb1NufYtxugcD
+AHcttnt/VzDvvse8WrV1q/b3rPQ+AYC+hOY1qrr0u/g+s9KfFwBKCZ/ziFah
+eR7RNealPx8ADEX4Gs/cZVt3XvpzAcAQhePrLrZW+nMAwD2o5d0283flWgC4
+Ujhc4+lojbd0rAAwBuH7OlBbuRYA+hXHWc1LxwEAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAMBpjz/N5tEyet1Z7zyXjg0A7t0un77sfDRYlo4PAMZgl1MX
+sT37luRa7VoA6FDsR67n2ofSMQHAmMS27T7PvpeOBwDGJo6H2ufa19LxAMDY
+qNUCQH/UagGgX2q1ANAvtVoA6JdaLQD0R60WAPrVtlZbtXeTvuatdRy/7aPq
+umUV982PfVr9vbbNQ9yPb6XjBeA2TtVqY27Y548qLz9Fm/icRenPUFrcR2/1
+a5CdWbSKf5/Hbd+tNw0wLcdqtTGHvEez+Lcn9yg42Ef1644f+ynZ5i1us6rt
+t3np2AHo37FabZJn639fyrU/9sWs1l+8zeXZ2nYH91EqHTsAt9FUq23Ks/Gx
++n34tlMdS1XbR63Gbyd99evS8QNwG0212vj3b3m29ng1Tmox1Twb98HrObkz
+2dfL0vEDcBtprbY2Dqoxz5LtE563eM72nO0BuH+ZWu28qd/4BrHM4vv3rZPP
+lYxx2rTY/mA8WenvHoDbyIxx2o+jvXWefcnE0ZdqLPDTlfE+JK95ck3L5DOu
+S3/3ANxGUj/M5dyb1GMfv+agrm9g2UG8i2RfnVzT8vFr7q1aLcCE5PLF4/e1
+oa5uB45N0n/cak3LR7VagMl5PLEGctJ2m+y8noZ9V5/nc/L+g49qtQCT9Nhi
+DeQkp7yUjnkokmuUVYvt1WoBJijpJ86O7Uny8TLzeNX2XZT+LAX23VlrZqnV
+AkxTm7E9SV1ymXl8M8X2brLv5i22V6sFmJhTtdradvW270vy2H4th8mNm0r2
+y/zEtgdjlkvHDsBtJH3D6yPbNeaUWIPclP4shfZffW3GxZHtHpI2beO+BmBc
+khy6bLldOk55M8Vabfzss9p+aap1p/clUKsFmJC29cak/3NW+/tyqm3a2j7Y
+t22/3Ufv8XOOz3sm1zbuawDGpdavuW2x7T5frGOddxWfP7k6bWbf7MeObfZj
+smt/q3Lxs1otwDTFdte6bR9wrM3u1zhcybMH+6a6/nhL9s88PtaqLg4AXKZt
+XRwAuIxaLQD0J53DXDoeABgbtVoA6Fcy32dZOh4AGJO4joVaLQB0KK4lNY9z
+bNdJrl3Fubbz0nECwD3KrHt8TPaeSjBm/w+Vje4E
+      "], {{0, 291}, {475, 0}}, {0, 
+      255},
+      ColorFunction->RGBColor],
+     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+     Selectable->False],
+    BaseStyle->"ImageGraphics",
+    ImageSize->{113.06458333333308`, Automatic},
+    ImageSizeRaw->{475, 291},
+    PlotRange->{{0, 475}, {0, 291}}], "  ", "=", "  ", 
+   RowBox[{
+    RowBox[{"i", " ", 
+     RowBox[{
+      SuperscriptBox["\[CapitalPi]", "\[Mu]\[Nu]"], "(", "q", ")"}]}], "=", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["e", "2"]}], 
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["d", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        RowBox[{"Tr", "[", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+           RowBox[{
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+           RowBox[{
+            RowBox[{"k", ".", "\[Gamma]"}], "-", 
+            RowBox[{"q", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["k", "2"], "-", 
+           SuperscriptBox["m", "2"]}], ")"}], 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "-", "q"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "ExampleText",
+ Deletable->True,
+ CellID->1569699563],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Perform", " ", "the", " ", 
+    RowBox[{"integral", " ", "[", 
+     RowBox[{"prefactors", " ", "ignored"}], "]"}]}], "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"vacPol", "=", 
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{"Spur", "[", 
+      RowBox[{
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{
+        RowBox[{"k", ".", "\[Gamma]"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+       RowBox[{
+        RowBox[{"k", ".", "\[Gamma]"}], "-", 
+        RowBox[{"q", ".", "\[Gamma]"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "q"}], ",", "m"}], "}"}]}], "]"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->122730581],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["q", "\[Mu]"], " ", 
+   SubscriptBox["q", "\[Nu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "2", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], ")"}]}], 
+  "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"q", ".", "q"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{459, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1939671861]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"Perform", " ", "the", " ", "longitudinal", " ", "projection"}], 
+    ",", " ", 
+    RowBox[{"and", " ", "convert"}]}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"Longitudinal", "[", "vacPol", "]"}], "//", 
+   "LoopRefine"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1028895875],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2009727700]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Transverse",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Transverse"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Contract",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Contract"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Projector",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Projector"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->353461428],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Longitudinal - Wolfram Mathematica", "Longitudinal"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 35.056629}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Longitudinal[tensor] gives the longitudinal scalar projection of the \
+rank-two tensor containing only one four-vector.Longitudinal[tensor, v] gives \
+the scalar projection of the given rank-two tensor longitudinal to vector \
+v.Longitudinal[tensor, v, {\\[Mu], \\[Nu]}] gives the rank P - 2 tensor \
+projection of the rank P tensor longitudinal to vector v along indices \\[Mu] \
+and \\[Nu].", "synonyms" -> {}, "title" -> "Longitudinal", "titlemodifier" -> 
+    "", "windowtitle" -> "Longitudinal", "type" -> "Symbol", "uri" -> 
+    "X/ref/Longitudinal"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/LoopIntegrate.nb b/packages/X/Documentation/English/ReferencePages/Symbols/LoopIntegrate.nb
new file mode 100644
index 0000000000000000000000000000000000000000..f113a7b6a8d68442175cc71212c759f3c12234fb
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/LoopIntegrate.nb
@@ -0,0 +1,10522 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopRefine\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"PVA\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVA"], "\<\"PVB\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVB"], "\<\"PVC\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVC"], "\<\"PVD\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVD"], "\<\"PVX\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/LoopIntegrate\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/LoopIntegrate"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/LoopIntegrate.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/ref/LoopIntegrate", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["LoopIntegrate", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LoopIntegrate",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LoopIntegrate"], "[", 
+       RowBox[{
+        StyleBox["num", "TI"], ",", " ", 
+        StyleBox["k", "TI"], ",", " ", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["q", "TI"], 
+           StyleBox["0", "TR"]], ",", " ", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["0", "TR"]]}], "}"}], ",", " ", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["q", "TI"], 
+           StyleBox["1", "TR"]], ",", " ", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"]]}], "}"}], ",", " ", "..."}], "]"}]], 
+      "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]expresses the one-loop tensor integral over \
+integration variable ",
+     Cell[BoxData[
+      StyleBox["k", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " with numerator ",
+     Cell[BoxData[
+      StyleBox["num", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " and denominator factors ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           SubsuperscriptBox["q", "0", "2"], "-", 
+           SubsuperscriptBox["m", "0", "2"]}], ")"}], 
+         RowBox[{"(", 
+          RowBox[{
+           SubsuperscriptBox["q", "1", "2"], "-", 
+           SubsuperscriptBox["m", "1", "2"]}], ")"}]}], "..."}], 
+       TraditionalForm]], "InlineMath"],
+     " in terms of Passarino-Veltman coefficient functions."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LoopIntegrate",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LoopIntegrate"], "[", 
+       RowBox[{
+        StyleBox["num", "TI"], ",", 
+        StyleBox["k", "TI"], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["q", "TI"], 
+           StyleBox["0", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["0", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["w", "TI"], 
+           StyleBox["0", "TR"]]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["q", "TI"], 
+           StyleBox["0", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["w", "TI"], 
+           StyleBox["1", "TR"]]}], "}"}], ",", "..."}], "]"}]], 
+      "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]expresses the one-loop tensor integral in terms of \
+Passarino-Veltman coefficients with weights ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["w", "TI"], 
+       StyleBox["0", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["w", "TI"], 
+       StyleBox["1", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", \[Ellipsis]."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details and Options"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->686452794],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " generates a Lorentz covariant representation of the integral in terms of \
+coefficient functions ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVX",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVX"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", which is valid for any value of the kinematic arguments and to all orders \
+in ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1937532077],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to convert ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " into analytic expressions."
+}], "Notes",
+ CellID->1728089724],
+
+Cell[TextData[{
+ "Denominator specifiers typically have the form ",
+ Cell[BoxData[
+  RowBox[{"{", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["q", "TI"], 
+     StyleBox["n", "TR",
+      FontSlant->"Italic"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["n", "TR",
+      FontSlant->"Italic"]]}], "}"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and represent a factor ",
+ Cell[BoxData[
+  FormBox[
+   FractionBox[
+    StyleBox["1", "TI",
+     FontSlant->"Plain"], 
+    RowBox[{"(", 
+     RowBox[{
+      SubsuperscriptBox["q", "n", "2"], "-", 
+      SubsuperscriptBox["m", "n", "2"], "+", 
+      RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], ")"}]], TraditionalForm]], 
+  "InlineMath"],
+ " in the integrand, with ",
+ Cell[BoxData[
+  SubscriptBox[
+   StyleBox["q", "TI"], 
+   StyleBox["n", "TI"]]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  SubscriptBox[
+   StyleBox["m", "TI"], 
+   StyleBox["n", "TI"]]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " corresponding to internal momentum and mass variables."
+}], "Notes",
+ CellID->343811928],
+
+Cell[TextData[{
+ "Denominator specifiers may optionally take an additional argument  ",
+ Cell[BoxData[
+  RowBox[{"{", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["q", "TI"], 
+     StyleBox["n", "TR",
+      FontSlant->"Italic"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["n", "TR",
+      FontSlant->"Italic"]], ",", 
+    SubscriptBox[
+     StyleBox["w", "TI"], 
+     StyleBox["n", "TR",
+      FontSlant->"Italic"]]}], "}"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", with the integer ",
+ Cell[BoxData[
+  SubscriptBox[
+   StyleBox["w", "TI"], 
+   StyleBox["n", "TI"]]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " indicating the weight of that denominator factor ",
+ Cell[BoxData[
+  FormBox[
+   FractionBox[
+    StyleBox["1", "TI",
+     FontSlant->"Plain"], 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubsuperscriptBox["q", "n", "2"], "-", 
+       SubsuperscriptBox["m", "n", "2"], "+", 
+       RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], ")"}], 
+     SubscriptBox["w", "n"]]], TraditionalForm]], "InlineMath"],
+ ".  The default value for ",
+ Cell[BoxData[
+  SubscriptBox[
+   StyleBox["w", "TI"], 
+   StyleBox["n", "TI"]]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is 1. ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LoopIntegrate#1445834945"]
+}], "Notes",
+ CellID->2058089587],
+
+Cell[TextData[{
+ "Denominators independent of integration variable ",
+ Cell[BoxData[
+  StyleBox["k", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are factored out of the integral, and identical denominator factors are \
+merged to form weighted denominators."
+}], "Notes",
+ CellID->81014465],
+
+Cell[TextData[{
+ "The number of unique denominator specifiers given to ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " determines the topology of the corresponding one-loop graph:"
+}], "Notes",
+ CellID->340965605],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     RowBox[{
+      ButtonBox["LoopIntegrate",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/LoopIntegrate"], "[", 
+      RowBox[{
+       StyleBox["num", "TI"], ",", 
+       StyleBox["k", "TI"], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          StyleBox["k", "TI"], "+", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["0", "TR"]]}], ",", " ", 
+         SubscriptBox[
+          StyleBox["m", "TI"], 
+          StyleBox["0", "TR"]]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          StyleBox["k", "TI"], "+", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["1", "TR"]]}], ",", " ", 
+         SubscriptBox[
+          StyleBox["m", "TI"], 
+          StyleBox["1", "TR"]]}], "}"}], ",", "\[Ellipsis]"}], "]"}], 
+     "\[LineSeparator]", "\t", Cell[TextData[Cell[BoxData[
+      FormBox[
+       RowBox[{"=", 
+        RowBox[{
+         FractionBox["1", 
+          SubscriptBox["C", "\[Epsilon]"]], 
+         SuperscriptBox["\[Mu]", 
+          RowBox[{"2", "\[Epsilon]"}]], 
+         RowBox[{"\[Integral]", 
+          RowBox[{
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+           FractionBox[
+            StyleBox["num", "TI"], 
+            RowBox[{
+             RowBox[{
+              RowBox[{"[", 
+               RowBox[{
+                SuperscriptBox[
+                 RowBox[{"(", 
+                  RowBox[{"k", "+", 
+                   SubscriptBox["p", "0"]}], ")"}], "2"], "-", 
+                SubsuperscriptBox["m", "0", "2"], "+", 
+                RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], "]"}], "[", 
+              RowBox[{
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"k", "+", 
+                  SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+               SubsuperscriptBox["m", "1", "2"], "+", 
+               RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], "]"}], 
+             "\[Ellipsis]"}]]}]}]}]}], TraditionalForm]], "InlineMath"]], 
+      "TableText"]}]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     RowBox[{
+      ButtonBox["LoopIntegrate",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/LoopIntegrate"], "[", 
+      RowBox[{
+       StyleBox["num", "TI"], ",", 
+       StyleBox["k", "TI"], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          StyleBox["k", "TI"], "+", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["0", "TR"]]}], ",", " ", 
+         SubscriptBox[
+          StyleBox["m", "TI"], 
+          StyleBox["0", "TR"]], ",", 
+         SubscriptBox[
+          StyleBox["w", "TI"], 
+          StyleBox["0", "TR"]]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{
+          StyleBox["k", "TI"], "+", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["1", "TR"]]}], ",", " ", 
+         SubscriptBox[
+          StyleBox["m", "TI"], 
+          StyleBox["1", "TR"]], ",", " ", 
+         SubscriptBox[
+          StyleBox["w", "TI"], 
+          StyleBox["1", "TR"]]}], "}"}], ",", "\[Ellipsis]"}], "]"}], 
+     "\[LineSeparator]", "\t", Cell[TextData[Cell[BoxData[
+      FormBox[
+       RowBox[{"=", 
+        RowBox[{
+         FractionBox["1", 
+          SubscriptBox["C", "\[Epsilon]"]], 
+         SuperscriptBox["\[Mu]", 
+          RowBox[{"2", "\[Epsilon]"}]], 
+         RowBox[{"\[Integral]", 
+          RowBox[{
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+           FractionBox[
+            StyleBox["num", "TI"], 
+            RowBox[{
+             SuperscriptBox[
+              RowBox[{
+               SuperscriptBox[
+                RowBox[{"[", 
+                 RowBox[{
+                  SuperscriptBox[
+                   RowBox[{"(", 
+                    RowBox[{"k", "+", 
+                    SubscriptBox["p", "0"]}], ")"}], "2"], "-", 
+                  SubsuperscriptBox["m", "0", "2"], "+", 
+                  RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], "]"}], 
+                SubscriptBox["w", "1"]], "[", 
+               RowBox[{
+                SuperscriptBox[
+                 RowBox[{"(", 
+                  RowBox[{"k", "+", 
+                   SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+                SubsuperscriptBox["m", "1", "2"], "+", 
+                RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], "]"}], 
+              SubscriptBox["w", "2"]], "\[Ellipsis]"}]]}]}]}]}], 
+       TraditionalForm]], "InlineMath"]], "TableText"]}]}
+  }]], "1ColumnTableMod",
+ CellID->1105087578],
+
+Cell[TextData[{
+ "Although the canonical integration measure that arises in typical one-loop \
+calculations is ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"2", "\[Pi]"}], ")"}], "d"]]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " gives results with the combination ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["C", "\[Epsilon]"], "=", 
+    FractionBox[
+     RowBox[{"i", " ", 
+      SuperscriptBox["e", 
+       RowBox[{
+        RowBox[{"-", 
+         SubscriptBox[
+          ButtonBox["\[Gamma]",
+           BaseStyle->"Link",
+           ButtonData->"paclet:ref/EulerGamma"], 
+          StyleBox["E",
+           FontSlant->"Plain"]]}], "\[Epsilon]"}]]}], 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"4", "\[Pi]"}], ")"}], 
+      RowBox[{"d", "/", "2"}]]]}], TraditionalForm]], "InlineMath"],
+ " factored out and removed.  To interpret results in terms of the canonical \
+integration measure near 4 spacetime dimensions, (1) multiply the output of \
+",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " by ",
+ Cell[BoxData[
+  FormBox[
+   FractionBox["i", 
+    RowBox[{"16", 
+     SuperscriptBox["\[Pi]", "2"]}]], TraditionalForm]], "InlineMath"],
+ ", and (2) interpret poles near ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Epsilon]", " ", "~", " ", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " as follows:"
+}], "Notes",
+ Deletable->True,
+ CellID->1041579871],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox[ButtonBox["LoopRefine",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopRefine"],
+      FontWeight->"Bold"],
+     StyleBox[" output:",
+      FontWeight->"Bold"]
+    }], "TableText"], Cell[TextData[StyleBox["implied expression:",
+     FontWeight->"Bold"]], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FractionBox["1", 
+      ButtonBox["\[Epsilon]",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       FractionBox["1", "\[Epsilon]"], "-", 
+       SubscriptBox[
+        ButtonBox["\[Gamma]",
+         BaseStyle->"Link",
+         ButtonData->"paclet:ref/EulerGamma"], 
+        StyleBox["E",
+         FontSlant->"Plain"]], "+", 
+       RowBox[{"ln", "(", 
+        RowBox[{"4", "\[Pi]"}], ")"}]}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FractionBox["1", 
+      SuperscriptBox[
+       ButtonBox["\[Epsilon]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Eps"], "2"]]], "InlineFormula",
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       FractionBox["1", 
+        SuperscriptBox["\[Epsilon]", "2"]], "+", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", 
+           SubscriptBox[
+            ButtonBox["\[Gamma]",
+             BaseStyle->"Link",
+             ButtonData->"paclet:ref/EulerGamma"], 
+            StyleBox["E",
+             FontSlant->"Plain"]]}], "+", 
+          RowBox[{"ln", "(", 
+           RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "+", 
+       FractionBox[
+        SubsuperscriptBox[
+         ButtonBox["\[Gamma]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:ref/EulerGamma"], 
+         StyleBox["E",
+          FontSlant->"Plain"], "2"], "2"], "-", 
+       RowBox[{
+        SubscriptBox[
+         ButtonBox["\[Gamma]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:ref/EulerGamma"], 
+         StyleBox["E",
+          FontSlant->"Plain"]], 
+        RowBox[{"ln", "(", 
+         RowBox[{"4", "\[Pi]"}], ")"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "2"], 
+        RowBox[{
+         SuperscriptBox["ln", "2"], "(", 
+         RowBox[{"4", "\[Pi]"}], ")"}]}]}], TraditionalForm]], "InlineMath"]],
+      "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True}}}},
+ CellID->1378542191],
+
+Cell[TextData[{
+ "The option ",
+ Cell[BoxData[
+  ButtonBox["Apart",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate#1834656470"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " controls whether to carry out a partial fraction expansion of the \
+integrand before making the Lorentz covariant decomposition.  Possible values \
+are:"
+}], "Notes",
+ CellID->798666657],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["False",
+      BaseStyle->"Link",
+      ButtonData->"paclet:ref/False"], " ", 
+     RowBox[{"(", "default", ")"}]}], Cell[
+    "Does not make a partial fraction expansion", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["True",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/True"], Cell[
+    "Makes a partial fraction expansion", "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->1212477902],
+
+Cell[TextData[{
+ "The option ",
+ Cell[BoxData[
+  ButtonBox["Cancel",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate#377984336"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " controls whether to cancel common factors in the numerator and denominator \
+before making the Lorentz covariant decomposition.  Possible values are:"
+}], "Notes",
+ CellID->958989141],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["Automatic",
+      BaseStyle->"Link",
+      ButtonData->"paclet:ref/Automatic"], " ", 
+     RowBox[{"(", "default", ")"}]}], Cell["\<\
+Does not cancel common factors if the numerator contains kinematic \
+singularities, and cancels otherwise\
+\>", "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["True",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/True"], Cell[
+    "Cancels common factors", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["False",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/False"], Cell[
+    "Does not cancel common factors", "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True}}}},
+ CellID->1134134539],
+
+Cell[TextData[{
+ "The option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Dimensions",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#810408792"], "\[Rule]", 
+   StyleBox["n", "TI"]}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " sets the dimension of integration measure to ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"n", "-", 
+    RowBox[{"2", " ", "\[Epsilon]"}]}], TraditionalForm]], "InlineMath"],
+ ".  Default setting is ",
+ Cell[BoxData["4"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and may be set to any even integer."
+}], "Notes",
+ Deletable->True,
+ CellID->51923480],
+
+Cell[TextData[{
+ "The option ",
+ Cell[BoxData[
+  ButtonBox["DiracAlgebra",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate#1616289800"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " specifies whether to apply the Dirac algebra to simplify the numerator.  \
+Possible values are:"
+}], "Notes",
+ CellID->132171944],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["True",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/True"], Cell[
+    "Applies the Dirac algebra.", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["False",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/False"], Cell["\<\
+Does not apply the Dirac algebra.  Uses only linearity to decompose the \
+integral.\
+\>", "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->1621232867],
+
+Cell[TextData[{
+ "With the setting ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["DiracAlgebra",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#1616289800"], "\[Rule]", 
+   ButtonBox["True",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " observes the default option settings of ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and can be changed with ",
+ Cell[BoxData[
+  ButtonBox["SetOptions",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/SetOptions"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ". ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LoopIntegrate#100181607"]
+}], "Notes",
+ CellID->1135279052],
+
+Cell[TextData[{
+ "The option ",
+ Cell[BoxData[
+  ButtonBox["Organization",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate#1631545564"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " specifies how the result should be organized.  Possible values are:"
+}], "Notes",
+ CellID->1544763705],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["Automatic",
+      BaseStyle->"Link",
+      ButtonData->"paclet:ref/Automatic"], " ", 
+     RowBox[{"(", "default", ")"}]}], Cell[
+    "Chooses organization scheme automatically", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["LTensor",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LTensor"], Cell[
+    "Organizes result by Lorentz tensor structures", "TableText"]},
+   {Cell["      ", "TableRowIcon"], "Function", Cell[
+    "Organizes result by Passarino-Veltman functions", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["None",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/None"], Cell[
+    "Leaves result unorganized (fastest) ", "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True}}}},
+ CellID->1335403558]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(35)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->929957074],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->402559852],
+
+Cell[TextData[{
+ "Compute a scalar one-loop integral with one propagator (tadpole diagram):\
+\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"   ", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3b2O5MiRwPG4D+PM0RuU9AQD3AvwBD3AQML6lIBb9wa6AxbyypTZ7nm0
+12pfDh9ARj/ALUDzrL1+g7niFGuHXV3MCH5Gfvwb+EmrVXV18COYmZFJ8td/
++o/ff/+PIvKf/3L5j9//8Yd/+/Of//iXP/zz5X/89i//9e9/+qfLP/zfP4j8
+z+W/+3/55csXAAAAAAAAAAAAAAAAAAAAICuXn+8ufhj0/+Kv3jEBKbv8fD/K
+qd5PQ2498p13vECKAjkV8ivvuIEcDH3HnwO59jfvGIGc9OOzQL794B0fkJNR
+XeSRf/WOD8hJoH372Ts2IDeXn79P5BvzAMCG+toj8wDAMYb6JPMAwAEuPz8y
+DwAcIzD3xjwAsKG+1s88AHCMwLwb8wDAxgJjt//2jg3ICfMAwHGYBwCOE1jD
+9Xfv2IDcBNZwMQ8AbEgZuzEPAGyIeQDgOHPnAS4/vwm0hxbfe28z4CWwhss0
+DyD684W+DPUY5hVQNGUNl3keINAn/ZH5BOAqkCez5gEm5hNoz4CRLeYBHozn
+fqKuCby1xTzA8B3jnO3/+Tfe2wbERqbXcJnnAe5y7UfvbQJiNTHmmpwHuPvd
++3aNZwkBAYGxW7DOMYzXxr/LfBoQsHQeYPi98Vzb77y3BYjdknmAu/EeNUjA
+SKbXcD2cB7jLT2qQwAwyvYbrXZt1l5t/C/U3AbwVGLv9fPe5+7oIzzEBZrLM
+A/R1kLs28CfvuIEUafMAMj0PTi0SmEHCa7h+FWj7WD8CzBRou34aaiFTuXZD
+XRIw6sdohpwKfYbnBwFGgXmAL8P/97vhc1PzczzTBDAIzAO8m1cb6pNTn2W9
+JKCQwDMPJj4/9UwS3gUHKAJ9RMsaLnUdCoCrodZvXsM1+p3Jmor3NgGxCswD
+BOsfgVrlz8I6SuAhmZ7HDs5hKzUW5gaAB2TFc7hkeh6cNZXAHWUcptY9lLkB
+9RmTQ92FdSkoQj9ftmTsdvcdi+YGRuNG+p4oQmAewLz+OJCzvcn7BoY8pd+J
+YgTmAWa1OXPbuFGNhueaowhKfXHWnLXSxn1399lbP5J7eFAM2fhdioE653it
+8y3X+vaQOToUQ6Zr+YvaHaVWaR7XAbmR8DzA4nqhhO8BX/39QIpkeg3X7LHb
+g+8O3QtOrgEbezA2/OvaPAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEjR5ae+
++OgdB1CCy8/T8LyTs3csQO76tm30jKGXi8o7JiBnQ56Nn+3Vt3kfvOMCcnT5
++fzguZUdbR2wvcvPKfC82GfaOmBbQ15N5dzrxSfvGIFcDPMC2nsI2r4t9I4V
+yMHQjmk513/ms3esQOouP40h38ZzB8yTw80wl1UNPvVzyHeehz7ZFK19Cf1u
+++Dv1aN4KmP81ny7OXvvd+RllEf1cB4/jc7xbsE5GoNb/M2wTZ+HbfzfBd/V
+WfIZuJG3bVIjtvYG73O49j6WiMPl58OQV/21/NZGkVPb64Z9zLxdIeQ6h3tr
+r1rx6fe9yNvxVSPvx1hjtYzGW3cejQfHxn3cG++8ex22+eR9PmDT3Lq1W2fZ
+v826nctP8nbc04u2XifX688tznqUp7ft2bud7/8Gc+YJGs6derh23q+13apN
+GudStHm04T79tHO+3XTDsaOvGam7/Oo2vN7e2qg+p07e2+m4f/v669Hj2Ndh
+/xe732Mj137i2vzqf/+ZvJrcxx65dq8/PpX3vsDX82FOvt3nFn2W8L79EEGu
+3R+/2nu/lEzCa4z6sVbfJ/lEuzV7v36Q7ce+N63RrT9/j/WZfudFPZFftF3L
+9+maXGuHa+DXWpL3tmDzc+NEfm2+T0P3ut28yrc6bX/Ny75GC2xton/eCTUl
+YFNDLtEfBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABggrx917DVyTtuICby
+/t1srez3vrnbu3tuz667Pb+OZ0MiK0P71D/3NOb3onajXOQZ70iCXJ/3/WmU
+W955tMb4OcmV974FeqP82usdFjHp869/3iv9UBxiaMNqsT1LP2edXJ+3zLt+
+sSlyTHV7vz25h8Xk2ldsIjiX25k84+2E9/3CSK5t2WfZpy7/KI/6fD4Pf7OS
+jd+vKtf3ct2+9yxv5x72zr3+b9TexxTxGc7LZsfz7mmUU9G8k26Uj30ePu90
+nemG749mu+F2vlUbX+tfh/M22fc2ybd5jfMO+6b/zpP3NuLwc2rLPHsZzqMs
+6+Tydl5xq/avIe/yJ9f1HlvkWd+G1VJgH2nYh59l/Zzjrb0rbh/mTrYZn72U
+mmPKfl3b7vV599l7W7DZOXGW5esWX4X6tnU/VyuvaX3OVt7bgVXHf+l192tb
+5r0NKZLreG/NNe6Z61s6huO99Drbco3d9FjUC6959DETINc62pLrasM1ddfj
+sjTvWo5LfIY27Wnh8cyyjh+jhXnXXz9r79jxyzH8uOAYvtBvdD1mnxf0Q/px
+HbVh/+PGtTJBC/skHf0Rt2PVzDxWT1wf4zP0T+bOndfecZdCrnOsc45PR98x
+fgv6mI13zLkbroVzjgltWkKGa2k74/i+cHx3OxY1bVoZ5Dpfzpgujf1PHSsD
+Mq/u/ErObbbfmxm5xpqEjMi1LmZ9bgy15/X725prr/Qf8zWzf1N7x5uiGbnW
+j5lP3vFi9/Nhzlq92jvelMzINcZqBZk5pqu9403BjFxrvGOFy/nxQezzr7V3
+vDGbkWvURQpGzm2yD625xv7DVzPOmco71piIfd1x7R0r4mLMOebnvu2vmlzD
+GjNy7uQdq/N++kiuYQvGnCt2vaVc16Za5lNq71iRBrGtRWm943TYL9b60tk7
+VqRjxnn15B3rwfvF0vY33nEiPTNyrvaO9aD9YalFPnvHiXQZxyrZ1yyN9ZFi
+x7TYjtjuTc72XBva+c5wzTl5x4o8iG2uqfGOc6dtt9SOKu84kRexPQMsq3eP
+y/VeCm2bWROJXYj+TJRs+lXGsSv1EexmGMto52DrHedG26pdW7pcx6yIh1zf
+l5R1H0tstf+sa7KIh+jPZUi2X2lsw8/ecaIsos+Ft94xLtwurR754h0jyiO2
+ebmk6pXGvjL9SLgwjHNeU6opiD6vffaOEWUz1PGSWNNsGJPSj4Q7sa0tPHnH
+qWyDpUZCPxJRMLQNrXeMSvxNDm00yiC2Nb2Vd5wTsZ9yGoOiDKKvNey8Y5yI
+Wxt/Jj13j3wZzt3aO8a7eKsUrxFAz9A367xjvItXuz5U3jECIYbaQ+0d4xCn
+1ra13jECGtFr6513jEOctG3IgujzA7VzfFrbxn1tSEbsbZzoa5JP3vsQmCPW
+Ns5Q02m89x0wV6xtnKGeU3nvO2AJQxtXHRzPB2qSyJWhjWsPjieq/Ae2Zui/
+nQ6MpQvEwf02SF4s9QnR13fW3vsK2IKE6++HrL/XYvDeR8BWRJ9frnf++1ob
+e/beR8CWPMdOhjrJyXv/AFsS/dlCpx3/dijXWbuF7Ig+97XLMwtEf75KUs/s
+A6wkPDfQOfxN6iTIlqFusnlbI+H5dp4DhKwpY6lm47+lzbnxjDtkTcLvbdy0
+f+fRfwViIvpc2GZ9SqUvefbeF8ARJPxunWajv6H1JU/e+wE4goTn4jbpUyr9
+VtYmoxhH9CmVugx1SRRF6VOuygfR57ipS6IoSn+vW/ndof7qqu8GUmRog04r
+vrvdux4DpEYZYy16T4bo6zRZL4kiSXg+etG6fdHnAXi3FIqk5MaieQFlXNh6
+bzPgxdD3qxZ8Z6juefbeZsDTlvlhyF/mAVC0Lft/e/RPgZxo9Y2Z33Vm7AZM
+27IPKOF5t7P3tgIxUMZw5nm4rWsvQI6UMZxpHk6U9Sre2wjEQhnDdcbvqAPf
+wf03wED0+3PUNSFKG8n9N8CIhJ99UBl+P1Qrqb23D4jJ2triVjVOoAQSnjsL
+1kyolQDzKDWTYL1jze8CJdJqJsrvhtrGxnvbgBgtHYNJ+F2KZ+/tAmKk1Ewm
+78uW8PqUynu7gBhJ+H7vc+D3Qu3iyXu7gBgtqVGuGfcBJZPw+6raBb9DbRKY
+IAvm0ST8rMnWe5uAmCljsXfrKJU+6Nl7e4CYSfiZlNWDz4fmAhY9wxIohcyc
+E1A+X3lvDxAzmTknICvvKwBKNnc8Nre+AuAbCd+n3d59NvisIe9tAWInM+bg
+lM8y9wYolBx6nfHZ1ntbgBRY+4jCXDew2ox8m1VbAfCeUuP/OPoc+QasJMY5
+bFl4/w6Ab2bkm+lzAKYpefTJ+LnKezuAFFjHZeQbsB75BhxnRr5NzhuI4Z0D
+ALbJN+9tAFIh4XUjzehz5BuwkhjXRZJvwHrkG3Ac8g04DvkGHId8A45DvgHH
+Id+A45BvwHHIN+A45BtwHPINOA75BhyHfAOOQ74BxyHfgOOQb8BxJPyOnOfR
+58g3YCWxP0+hC3yu8t4OIAUz8q0l34B1yDfgOOQbcBwJv4fj8+hzoXyrvbcD
+SIG13bK2gwCmkW/Accg34DiBHOqdRp/7FPhc670dQApC+Xb3uYp8A9bZKN9e
+vLcDiJ2SQ93dZz9YcxPAe3P7iOQbsNzcGsjl5zXw+Y/e2wPETKnxPz34fBv4
+fOW9PUDMlHw7P/h8KN9q7+0BYjY3f/o2b05+Avhmbv9wbv8TwDdz6x9z6ysA
+vplb3xfmvIFF+vYrkDuvE7/DnDewgNJWtYHfm8w3Ga1vBvCNUvt4Dvzey5wa
+C4DltX2lpvn5qPiBlCh5Uwd+L9Qunr23C4iRLHx+a9+GLRn3ASVT6h4fAr8X
+qrN03tsFxEbJmYdzAaPfZU4AmEFWrhOR8LqUynv7gJgoNY/G8PuLai1AiS4/
+z2tqjMJ9AoDZ0trk6PepUQJGSm3yZPj9xfUWoCRb5IpWo5TAfAJQkq36gmv7
+pEAJlFqH+R5tpUZ59t5OIAZb1fJl4f0FQEmUcZf5GZISnjPvvLcT8Cbhe7q/
+zPyuEzUTYFrfX9yiVjL6PtZ1ARMk/K7u2c+zo2YCTJPwsxDqBd8Xqpm03tsL
+eNqqVjL6virwfawzQbGU3Piy8Du1dSa8MwdF2qvvt3UfFciBrLwHJ/C9oRpM
+473dgAeldv9pxffWge/tvLcbOJoo89yyYm5a9Hnvk/f2A0eS8D0Bq9+zobSd
+tff2A0dSxm6r39u29/cDKdm7/VHaz857+4GjGMZupxT+BpCCo9oexnCAOrZq
+Uvs7QMyOaneEeTgUzjCu2uyeUNHn4VhLiaxJeM3k5u+3l/Azu3gXI7Im4ftB
+N58Xk/BaSp4hhGyJfq/M4jWTgb8ZeobQF+99AuzF49z3yHEgBl59u6P7sEAM
+vGoXwtouFEYc11cZ/jbzAsiKhOcBugP+vkvbCniQ8DNFdh9DKWPHzef9AC+i
+r/PYvUao1Ub37M8CR1LqFYc9E1LC6zbpUyILEl6nf9gaj1jiAPYi+nxzfWAs
+tRIL789B0mI6x2PKfWAPsfXhYosH2EqM7UlM7S2wpRjP7RivAcAWlL5bG2lc
+9CmRnJjbkRjbXWCNmM9pw7WAuW8kJfY+mxIf6ymRDNHXS9YRxKi1vyfvGAEL
+Ca+XjGJ8ZOhTnr1jBCwkfO+Ne19yFGcTiLPzjg/QiH4vde0d4yhW7R4d7vtG
+1C4/T4Hz97B7b2bEG7pHp/GODwiR8HMLGu/4HsSb1PUBuDH0zyrvGB/EnEz/
+FxiT8JxW5x1fIO5Qm9x6xwfcS7m+Lvr8xck7RmAs5XPWcK3gGcyISup9slT7
+wihPXwdJveZgqPXwXg9EQcLrNJKpqafeRiN/hrFP4x3jjG05pzoGRRkMdZJk
+1kSJfl8DdRO4Uvpgyd1HptRNkukbIz851EkebJNWN0lum5CHXNuC3NpspC/n
+sY5hTFp5x4iySHhdfdK1PMmo5or0Dedj6L6x1jvGDbaxyfV6grSI/qyd5Ndi
+iH6fztk7RpRBqSd03vFtuJ1tqB4kETz3CHkTvV6ezbNSDdtae8eIvJV2zS+l
+LUd8DGOaZOcAAtuszQ3U3jEiTyXW7KSAWiziI/r8duMd447bfla2vfKOEXkx
+tG2Vd4w7brt2rWm9Y0Q+6FOZrjfJ3HeEuBn6U8nPbxv2QbH9aRzH0LZ13jEe
+uC9C90NkWS/CsQxtW+0d44H7oqKNw15o2x7uk5Y2DnsQ5nof7RPaOOxCwmuZ
+slu7NWO/0MZhU6Lfc3P2jtFx39DGYVO0ber+oY3DJmjbNtlHjXeMiJ/oNcni
+27bRvgr1AWjjoBJ9vu3sHWMsRL8ftfGOEfGibVu0zxjHYRHatkX7rFL2Wesd
+I+JD27Zq32ltXOUdI+JC27Zq39HGwUyu95rQtq3bh7RxMBH9XsraO8bYGdq4
+zjtG+BP9PsrOO8ZUiH5/XO0dI9zPEa0fxDli35fqtYt+ebnoA+2yT7W++dk7
+RridG4zxt9+n1J7w6LyolVxrvWNMlehzK413jDj0fPgg+lrbyjvOVIm+dqDH
+8/MKwfX3kH1M/wGW8UXv5B1nDgx9iOyf21k66meH7utK2dedd4xwPf7Uzrbf
+5y3XtzIZjn3tHWNuRJ8Df6X/nh/D+P3FO8ZcXX6eqE+VQ2z16co7zlyx/8ti
+uL4+e8eYO/oXZRD9nduMH447Fi/UTvJGfSweYqsPn7zjxOLjq/VhOqH+f/Qx
+aejb58c4Rmd9Q5zHpfKOE7OPq3Ydbb1jLJXo7/mi35EQxgnxo3aSD9HXyXIs
+/Y+RVjfucc9O5ES/16bzjhG/HCttXpQ5uYiJvlaPsXhExHbf72fvODF5/Frl
+2DXeMeLdMdPescNYO0KGmhf32kRK9OdWtt4x4s3xOok+p1N7x4lVx49+ZSQM
+/cjWO0aox9DSPzl5x1k6jlM+uG7GjX5IXjiecTNcD5m/SYzo86f0V3yOi9aP
+7LE+IUGir/VqvWMsibHfcfaOE4uPr2WtF/3K444H/cjM0a+MA/3Ichj6lVxX
+993/H+lHloNxg/v+53pXGPozbvud/nyhDOP1Tlgbu+X+rqhXlcvYr2y848yB
+2O6Rar3jxO7ngXbfTo/nP63fz9q9GvQjC8G5sPv+rbmmYXQ+0NfZb9/SZ8ej
+88Iylj97x5ka0Wv//XWOmlSBRK9V9yrvOFMh+nObmHMpnOF6zPMzbPvRUoc6
+e8cJ9/PEMt5oveOMGfsQc4itnnb2jjNWxj7CyTtOxEP090Qwlnu83yxjNmr/
+eEOucwSM5ebtM8uY7ck7TsRJbPeNtN5xxsA4ZmPdP4IYy5n2kbUvcPKOFfEz
+juWKHZOwf7Alrt/BfWNp/xmzYRbjWO6lpPqJ2J6/xJgNixiv5Y13nAftC8sa
+7yLbfGxHbPNL2d+jLPq98b3KO06kzzCWy/pcM15zzt5xIg9DX0oby2XZlzL2
+qZ+940RexHa/XFb1E2t9JKdtRjzE9ky9LK71M9p07mfDbsQ213v2jnPlNlrm
+H3vMaWNXM87F2jvWFduY/TUF6RDbWt0k+1pie8ZEFn1mpMNYS0jq/h2x1SKp
+j8BFTuen2NavJdlmIx/GsU7U/S+x1SJ7lXesgNjWOjXecU7Enn39B3lJ+ZxN
++VqBchnHP71o5qyMfeHWO07gEbHXLN1rDmJbK5NErQflElvN0nVtcwoxAlZi
+mzN2aTtSaoMBK+PY6NCcmzHGrL33HzCX2GqWzUGxnIy5lv296siT2OcJmhLi
+APY2o1057/T3rbkW9RoYwMpz3CT6u8qp+yM7Ynsew6Y5JxHWbICjiG3eq7d6
+DYox15hjQ9aMObdq/ktsz69jjg1FmNH2zM6HGW0ouYZi7JFzM3Kt9t5+4Ghb
+5hy5BoSJfW4sWEMk1wCbtTkntndo9xrvbQVisDTnxD6P3nhvIxCTuTlHrgHr
+zMihF3INWG9Gzmla723B5DHux9zdBscYwHv9mvGPo1zzjgfI3de1qkK7Bhzl
+HEEMQCn6fmUXQRxACc7C+A04wi/3Gsr1WbtdBDEBOWplqE/+P8YmTa0=
+        "], {{0, 
+        495}, {220, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{27.578124999999737`, Automatic},
+      ImageSizeRaw->{220, 495},
+      PlotRange->{{0, 220}, {0, 495}}], "  ", "=", "  ", 
+     RowBox[{
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         StyleBox["1", "TI"], 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}]]}]}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->594389758],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{"1", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1399975601],
+
+Cell[BoxData[
+ RowBox[{"PVA", "[", 
+  RowBox[{"0", ",", "m"}], "]"}]], "Output",
+ ImageSize->{65, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1354713138]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain an explicit expression:"
+}], "ExampleText",
+ CellID->334608084],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1866705745],
+
+Cell[BoxData[
+ RowBox[{
+  SuperscriptBox["m", "2"], "+", 
+  RowBox[{
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{138, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->39150268]
+}, Open  ]],
+
+Cell[TextData[{
+ "To interpret the result, (1) restore an overall factor of ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    FractionBox["i", 
+     RowBox[{"16", 
+      SuperscriptBox["\[Pi]", "2"]}]],
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ ", and (2) read ",
+ Cell[BoxData[
+  FractionBox["1", 
+   ButtonBox["\[Epsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "-", 
+     SubscriptBox["\[Gamma]", "E"], "+", 
+     RowBox[{"ln", "(", 
+      RowBox[{"4", "\[Pi]"}], ")"}]}],
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ ":\[LineSeparator]Therefore,   ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        StyleBox["1", "TI"], 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SuperscriptBox["m", "2"]}]]}]}]}], "  ", "=", "  ", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[
+       0.6667429617761501, 0.011367971313038834`, 0.011367971313038834`]], 
+     "[", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "+", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "(", 
+       RowBox[{
+        RowBox[{
+         FractionBox["1", "\[Epsilon]"], 
+         StyleBox[
+          RowBox[{"-", 
+           RowBox[{
+            SubscriptBox["\[Gamma]", "E"], 
+            RowBox[{"+", 
+             RowBox[{"ln", "(", 
+              RowBox[{"4", "\[Pi]"}], ")"}]}]}]}],
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], "+", 
+        RowBox[{"ln", "(", 
+         FractionBox[
+          SuperscriptBox["\[Mu]", "2"], 
+          SuperscriptBox["m", "2"]], ")"}]}], " ", ")"}]}], "]"}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->830255719],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->589932088],
+
+Cell["Massless tadpoles vanish in dimensional regularization:", "ExampleText",
+ 
+ CellID->139684635],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{"1", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "0"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->741604333],
+
+Cell[BoxData[
+ RowBox[{"PVA", "[", 
+  RowBox[{"0", ",", "0"}], "]"}]], "Output",
+ ImageSize->{65, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1671761410],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1765464169]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1162089199],
+
+Cell[TextData[{
+ "Compute a tensor bubble diagram with identical internal masses:\
+\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"  ", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3T+P3MjXKOYD24HDFeAPMN5PIGC/wNhQ6EC4hvK5F7BSC9cXEG42ocJJ
+lXWsSPkm7cyBAoVOBpjAqQUljsfkNnun1WoWi2x2F/88BJ73/a3UQ1X/mSZP
+nTqn/sf/9L//h/f/TUT8H/999X/+w3/8+D/95//8H//r//rfVf/xP//X//K/
+/af/tvof/2f19/9D9T/qP3x+fgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAVqw63lU+Nuo/+FR6TAAAwHRUx/uDmKH22MQOp7wrPV4A
+AKC8RMyQ8qr0uAEAgOlp1jb9SMQSf5ceIwAAMF11fUQinvhYenwAAMB0HdRd
+n/JX6fEBAADTlchP/Cg9NgAAYNqq41tLPKFPLAAA0Kru3aRPLAAAMETT30mf
+WAAAoLfq+KJPLAAAMERi7wl9YgEAgFZ1L1h9YgEAgCES+07oEwsAACQlaic+
+lx4bAAAwXfrEAgAAQ+kTCwAADFXvfd0SS3wrPbYpqI731oEBAMBpddygT2zy
+9RFPAADACR21E/rEPosnAACgjT6xWa/R6uOJ5jX42Nj3Amut1T94/PHr9tj8
+uVgVAGAB+vaJrY4/E/mMHO9LP+cBr9Eq4onqeHMQM7TV1CRr9ZvXqm2f9WP1
+Z+/P0s8bAIDhEvd+WX1im3vPx477xk+555uipccTA2PEbyfO8feA8zyKKQAA
+5qlec9Jn7jlxnrY1U1/6nGeqlh5PnHi+r6I9b7X38eDxb3rkJNpiitl/TgAA
+1iYRB/TqExun18bMNh9x4vmtKp44eN5tfb9qfzWPeXP055/ioDaiiU3aPmcn
+4xMAAOYhcb+YfW8Xv6+VeYyF1dquOJ743PL5+NH8/WEskcxFRToX9tzkN+Qo
+AABmIkboE9uc4zAmqf/34tbCiyd+86mJI/drnPrU2qRiisXktAAAlq6+d0vN
+PWee4zCW+FL6OV3wtVprPNGWv3rf5KF+9MlFnchl/RanlH7OAADkifZ+oJ33
+ySfyEou+D1xjPNGRv9r3cXoz4LypXmCLjUkBAJYmMfecXHPSzDEf/uzs9pMY
+8FqtMZ5oy1/tDaqfjnRP2b9LP28AALrFwD6xzc8dzi/3np+eo5XGE6n97B7P
+OG8qnhh8XgAAricG9Ik9mq9eXA+njtdrjfFEal3S4DhSPAEAMH/RvlfZyTUs
+R/HHIns4dbxeq4onOvJXZ61Jst4JAGD+on0v499yDkexx9+p9VBLtcJ4ItXX
+9ayerpHeI089NgDAxCXmnn8cPe647nqx988Zr9na4om2/FV2L+HEudti2dqi
++4QBACxBZPSJjd2+x4f3fbNc196xtmYySr9OJ163tnv+s+73I92DtjaoZxQA
+ANeTWG/yrvn7tj6hs+vlJJ4Y9Jql+sSeVYMfuzg19VqspsYfAGCOOuaH679L
+9Qid3dp28cSg16ztM9Da+6vHuVN1GWevpQIA4LISc8+Pmffes+rrJJ4Y9Jq1
+5a/OXovU8X6onQAAmLjq+Jxxf5t6zCrXt8dK6rEjnb86d61TV+3E7NbTAQCs
+TaR76/zY39PFBfv7zNGK4om29Uhn1+O3vIZ7Z6+lAgDgsqJjj7I42Fci0nWz
+70s/lwKv3VriibY48uy1SJFe67S6zxQAwNwk5p5P1lnHrqbiZOxR+rkUeO3W
+Ek+05a/OWovUEcvKTQAAzEBi7vlkTUQi/jh7Lf3crCGeSNzzj7GHXaomR90E
+AMDExa4Wtm3u+WRsEOn62UXdS2e8fmuIJ9r6xJ7VJzh2+6z7HAEAzFi094lN
+zj0n5pXr2OTVNcY+BSuJJy7SJzbxGXpc02cIAGDOhs49J9bAnH2fOSdLjyc6
+clGD7/kjXde/qjVzAABzds7cc7T35Tm7h+hcrCCeaMtfnVUrHe01/auJRQEA
+5q5j7rlzjrhjjvldxs/Xdd2z2lf7xHNYejzRtiZpcJ/YaK/ntw82AMCMtNwL
+d9ZOHJ1jUO/Yg3nvWc9HryCeaKvV74wXW87Xtk5uMa8ZAMBaRHuf2Oy+PYmY
+pNba77OJQ2a/LmrJ8UTi3n9Q7UTs+jmdij8X8XoBAKxNYu65V86gb44iXmrA
+B81xT8nC44m2dUm9aydit7buVK3OIl4rAIC16Zh77tVfpyNH8e7osft1Tmft
+XTAVC48n2urtez2/RCyhXgIAYKYSc8+D9jxuuV98bnIgb5rH7GOJxewvsNR4
+Ikbas7CJW4/zVz+WkJsCAFizxNzzoLxBpHs9ZddVzM2C44m2PrHZ8WCc3tuk
+/tzNuqcXAMDadcw9D+631HL/ONr5p2jB8UTXe/l46r1sXo9TP/soJwEAsAwd
+c89n7U2cyHssLpZonu9S44m2GvvP0V7Hf0q9Du596ecDAMB8xO+1GZ/OjVO4
+6vvX2Se2iaPa9rr7GAvYqxAAAOjvRDz4b66h9NgAAIBpi/Z9DvV3BQAAkhL1
+EeqpAQCAVh21+ovYMwQAALiMRJ9YtRMAAEBStO9zrnYCAABoFel9Du0hAQAA
+tEr0iT17n0MAAGDZEn1if5QeGwAAMG2JPrFfSo8NAACYrno9U2Kt08fS4wMA
+AKaro3bCPnYAAECr6nhMxBNvSo8PAACYpsQedtY7AQAAJ9XrmBI9nX6LKexB
+AQAAVMffmTGEnAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMCM
+VcdN6TEAAADzVB1fK9vK69JjAQAA5qU67irPjfvS4wEAAOalOn4exBRPldvS
+YwIAAOahOjYH8cTeQ+WP0mMDAACmra6dOBFP7HMVb0uPDwAAmLYmdjgVUzw3
+NdtyFQAAwEl1LXYinnhuaizuSo8TAACYnnofio54Ym9rzwoAAOBYEyvkxBR1
+ruJD6fECAMDS1b1XT7gf2al/o3e9Q/y6F0WO72EfPAAAyBa7Xki3zb33/n5+
+v8f0Nn7dy2Eqfh6Mb3sw7g/7+KN5bn8MPP996fcFAACm4CBe2N9z7+/BS8cE
+1/L/Dvy5p9jFWPpAAQCwaM08/G0zP//QxAtPE7iXX4KfzWt6U/p9BgCAc8Uu
+31DPm9/HdNYjPcWv64/O8X0Cz6dNvQ7stvRnAAAAchzEDvucw6Xvl/f39PV9
+830c1SQ0bgq8Dn8cjeHuYHybuH6tRx3z3JX+fAAAwN7BPfP9he6Nn5rzbpp/
+46759xbXzyh2e0/8L5X/78Jxxc/mtbwp/ZwBAFiXJn54G7vcw1hrfPZ9j/Yx
+wyLjhczX9trrpjZrfK0BALieZt58rPjh+1HcoA/Rc7FY4lAdz92Vfh0AAFim
+M2KHOg65Mwfe+fp+LRhLHHpqYj1xHgAAo4nuuuqn5p74nzro0uOdkyZfUzqO
+2Dvcc+9t6dcGAIBlaOasj+OHTZN7uCk9vrk6M5bY3/vvc0C3CfINAAAUE7se
+sOKHcV/Tux6xwz7/U8d1b70HAACwXh2xxL5mfb+HhtwCAADwjyZG2McOh+uV
+1KwDAABJsesNe1N6HAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQQnXcHrmr3I/k+Nw3pZ8v
+AACQVt+3N/fvbw/u7beN75XnCfh5MKZNM8YP+9ij9GsIAABLVh2vm3vv+j78
+obkvf5pAnDC2+nl9bZ7nXfOc/yj9+gMAwBzES67hvrmvnkp+obR9fuNhH2eU
+fq8AAKCket49XtYobZt75tL37XNTx1ub2K2del36PQUAgEuJ3ZqlD83979ME
+7sWXahu7GK2O1ayVAgBglg7ih3rdktxDOXUO40F8AQDAlMVu/dJd7PIP4ofp
+quOL+7A+CgCAwmKXg7iP+dZNH/ZxPcfTBJ7L0Oe/iV0cKHcBAMDFxW7dzGai
+99Df49eeq/fNeG/jynvMxa97232IX3vdbmOaOZxtM9arvU4AACzfQQxR+h54
+n0/YHMUKs51bj5e9NfYxxzamke/5LrYAAGCo5h63ZAxR31c/xMs+0rONGc54
+D17HS0/dOufyVDi2WN17AABAvtjtJ/dQ4L51Gy/5hpvSr8PUxUs+Y1Pgvarj
+mrvSrwEAANMQL32ZrrXG5inswXaJ9/Bwb8BrvI/7Wm7vIQDACsVuLc0mLr+e
+aR8/1DHLTennvRaxy2FcK774HnpEAQAsXlwvF1GviVHLOyGxy19cei2bnAUA
+wALFS13EpXIRT83535Z+rmR/HvZ7l18qttiGOgsAgFmLlx5Nl1rjogZi5uKl
+9mJzoXjzKfSGAgCYleb+cHvBGOKm9HPkop+dS8QW9fnufXYAAKYrdrURTxeY
+X3YfuEJNbHGJNVEbnycAgOm4QByhrpbDz9el6vjFFQAABV0gjtiGGloS4jK1
+/eIKAIArGjmO+NncH96Ufl7MS/M53IorAADmYeQ44rtcBGNochabEXMW4goA
+gBHFru/rWPPA9b3abennxPLErs7iw0gx774flD6zAAADNfO+Y/TXsaaJq4rx
+1kL9lEcDAOinmed9MMfL3I2YW3uSVwMA6NbM6567Dv2pOY84gkmojtcxzl7t
+X+XZAAB+18zjntvf/8naEKYsXmq3z40r5N0AAJ5HW9skjmBWRoor6s/9benn
+AgBQSnW8jfPWNqmPYNZinPqKr34HAIA1aeZmz7mHEkewKCPEFfXvxIfSzwMA
+4NJi15//nJxEvUbkpvTzgEuI8/ds3Pr9AACWaIScRP2zr0s/D7iGJv82NO6W
+qwAAFuXMnEQ9V/u29HOAa4tdr4KNXAUAsFYj5CTqOVo1EqxanNdLWa4CAJil
+OK93k3lVOHJmnk8PKABgFs5co/HT2iZo1/x+fT3j9+u29HMAAGhTHa9jeG+a
+jflTyNPk/4b+rj2UHj8AwLFmLcaQe5snc6bQX5y3t3xdj3FT+jkAAJy5/uJB
+TgLOE7t67SG5CusLAYCizljfJCcBIzozV2H9EwBwdbHbx3dIrxl9ZuBCYnhf
+ta3fSwDgWmJY/yZrK+AKzliDWP+O2oMeALiY5j5lyL5a9dznTenxw5rE8P0q
+7kqPHQBYnhheK3FfeuywVs3v7ZA5ADUVAMBoYlithL2zYAJi+B6TdV5RTQUA
+cJYYtq+E+5CJqI73lY+Nb8378yrzZ18d/Vztsf6zgWPZn+9xjPPR+/UfMi9g
+nwoAYLCBc5rWSVz/ffrzIGao/Ui8P98yz/mp433+u+cYu873LTfO4azPypB1
+i+q0AYBeYrc+YjvgnkP/puu+T38OiPeSuYDq+OsofzD4XAPO97n0a7oGMaz/
+U/37fVd67ADA9MWwHk7fzV9OQ+zyE6n36q/Ez77r+b4ncx0DzleTo7jeZ+V+
+wPtzV3rcAMB0xbC1ENtQKzEpiXzAj8TPvD943JfKm+bP65qHb23vf+b5Pu/j
+mNjlVFL5ijelX781iWE1FdY0AgC/aWIJ9xULkLhf/9Ly+MN7/3cdf98ZTxw8
+/sep+CDSORTxxPU/L0PmETalxw0ATMfAWOKu9LhpfT/b6rF/q3c4uvc/uRYq
+EU/8lu84eGwd0/zZ83zPbWPg4p+ZIescN6XHDQCUF/3XO9hXYsJiV/+cda9e
+5wK6YonmcW29mb60nK81lug4X+t6LK7y2RmyT8U2rHcEgNVqYok+9w5Poe56
+0qJ9LdG3o8f9FS95jOQao2ivn/h48Jg/m/P9SMUSHefr1YOWi32GHnp+L3wX
+UwDA+gyIJdwzzEDsaqlPvX+fDh7zKl5qLN53nO9V4jPx18Hjvh3/Wcv5Uj1u
+Pw193oz+OfL9AAC0cq+wTB33/u8OHvd37v17tPd8/XHwmH0Mk7MfhVrsmfA9
+AQCcMuAeYVN6zGS/t6n9Hl41j9nXLpzs9XTinG21Dp+av/94+N8Z52vLn6id
+mKDo36tBTAEACyaWWLbEvf+35u/38cZjZO4bF+29oupz7WsmkvvaZZ4vK76h
+yOdKTAEAiCVWINrrnD8d3PvX/53VkzXae0X9OPj3OuuvM85X61wrRdHPlpgC
+AFZsQCxxX3rM9H6Pk3XTB7FG9n17tNc6fI6XXEiynjvzfLWsfAlFP2Ovo98e
+FWIKAFiA6rjtGUvclR4zg97n1rrpg3v/Xv1Yo73WYR8X9FqjFO35k+z1UhT/
+nPXd925beswAwHDRf43CXekxM/i9bt0j7uD/Z61LOjjnqVqH+s8e+54v0vkT
+fWJnZEBMsSk9ZgCgP7HEusTLfhJtetUnJPIdlzjfuz7nojwxBQAsW3XciCXW
+I9J1zrXHAedsy3eMfT59YmdqQEzxUHrMAEC3Adf4u9Jj5uz3PFXnXMuumT44
+Z1utw9jn0yd2xnzfAMCyWIOwTtFeNz00l5CqdRj7fPrEzlxYWwkAi1HHB2KJ
+9Yn2PeKG5hLej3n/35E/ydoLg2nrGVPUj3tdeswAwK+q40EssT6Rrp2o44ze
++zok8h1jn0+f2AUZEFPclB4zALAT/far+1p6vIz63qfm/gf1YU3kOz6PfD59
+YhemiSlyv4vsdwcAExD99qtz/V6YxNx/rdd+E835UvmO3n1dxz4f09dzfmNb
+erwAsGY91xeIJRYm0nXOvfbCPjhnW75jUF/X1PliwNop5qFnTLEpPV4AWKPo
+18vJWuUFivQecYP6JtVxSMv5BvV1TeRP9IlduOhX03VXerwAsDbV8bVHLKGX
+ygJFes+5IXXTqXzHkLVOvfvExm591KA6DaYn+vWc8z0FAFdSHffm/Yj2PeKG
+rnVK5TuGxCep8/3WJ7aJPx5jtxaqd+0H0xP986jWZAIXF7u+6B8b+zx667zZ
+weOPv7cemz/X+5xZqY63PWKJD6XHy8U+B6PvERft+Y5BfV0T5zu5J97Bd7o9
+7hakiSmeMr+zvpceL7AM1fHmIGZI5fNb582aOCK1x9OhL+bCmIPquIn8+utN
+6fFy0c9Cau5/0PdZtOc7hvadzT7fwXe9uooFin69Ix5KjxeYr/oamPld0zpv
+1pyjrZ4w5VFMwdRF/roBc3wLl5hrGZpLSPV17Z3HjR61GAexUR1/6Pm0UNEv
+t/q29HiBZWiuR6ne6rWPB4+v8xq5OYm2mMK1jEmK/F4p1iCvQPN9lfxO7Hm+
+sfvEvkl8Rl+deJyaiRWI/NovPemAUUV7zvzfebMT165PcTCn1sQmqX1kz7oW
+wyX1nNfTI2XhYuRcQnPOUfu6xm7NadsY3zeP2eclfgwdN/MT+b3p5FmB0VTH
+59S82VEs8SUSOYaO6/D+uiZHwWREv5qJu9Lj5Sqfiba5kZN1zpnnbMvtDs13
+pOo7jr9zxRIrEv16PqmlAEaRiCfqHMSfB9fBrP7oiWvxc5/zwDX0uO5uSo+V
+q30m2nIJQ+umL5Hv6Jq7+Sf+EUusU/Srz1ZLAZwt2tc7vY+XXuXZ16Torvse
+dE2GsUX+WuM65lAzsRLRnksYNBcSI9d2H5w3Vf+WzCWzfNVxl/n9piYMOEuk
+e4Ts+zi9GXDetlrGf65zpZ83VMdtj2utmgkmp/n+Ps4v2/eHf0X+/tnb0mMF
+5iu61+AOXdub6ik7aG9ZGEv02//prvR4AYaIfrUU9ucEBon0fnbn1B6m4onB
+54UxRH5v2E3psQKcI/JrKfSQBQaJ9Lqk3uucDs4rnmCSIn+dU52/sKYYmL06
+95D5vbctPVZgXiLdH+SsNUkd8YT1ThQR/dY5qZkAFiPy96Ww7gnIFum+rmf1
+dI30HnnqsSki8tc53ZceK8CYmvkU656AUUV7r8EfI5y7rd9iTb9Yri7y1zlt
+S48V4BJ8DwJjS9zzn3W/H+ketLVBPaNgqMhf52ReDli0Hnla656ApEj3iT2r
+d3l1vOn4jtIbnaty/QTYMb8CjCUutF9rc+5UXcbZa6mgj9j1SpTfB2hE/rqn
+r6XHCkxXtNdLn70WKdK9ndROcFWRt5eTeThgVXrkbd+WHiswPZGubzh3rVNX
+7cTgPS2gr8jvuW6dE7AqPdY91Y+xFw/wi8R6pLP3mauO94nvpLPXUkGuyO+N
+uC09VoASIn/d033psQLTEu19Ys9eixTptU7vSz931qM6NpnXSfvWAasV+fvc
+3ZQeKzAd0d4n9qy1SJHeb1tugqsx5waQRy4X6Ctxzz/GHnafE99D6ia4mvq6
+l3FtfAprggHq78zcWrPb0mMFyov2PrFfzjzvn4nvn8+lnzfrUR13mddFPUsA
+GpHXC++p9DiB8uJCfWITuYnHyqvSz5t1iPx+JdvSYwWYkshfJ6ofHqxYpHu5
+Dr7nj/R+2PbC5mqq4z7zenhTeqwAUxN5fSzqWgtrRWGlquNdy3fDWbXSTQ5i
+9JwH9BH5NYX3pccKMEW+R4EuiTVJg/vERvteFvbB5qrMqwGcT54XSIn2PrHv
+Bp6vrVeU+muuqr6uZV7/7kqPFWDqIq8ObVN6nMB1Je79B9VOxK6f06l1TmIJ
+ri4zN/G99DgB5iDy++TdlB4rcD2JdUm9aydiV9d9qk+UWIKr65GbuC09VoC5
+iLx9fDalxwlcT3X8PcbapEQsoV6CIjJzE9vS4wSYk8jvH3tTeqzA5UW6T2x2
+PBG7NVPHa5zqmoxB9RdwLrkJgMuRowD2or1P7HNk7jcXp/fVrnMef5Z+fqxX
+Zm5iU3qcAHPUY87mpvRYgctqiQWOY4rf9oqojvctP/soJ0FprnMAl2feBqid
+WKP071qnaO8he0pdN/G+9POBmmscwOWZuwEio09sk4do2+vuY8O6JibD9Q3g
+eszfwLrFiH1iYSpc2wCuxxwOrFt1fGn5ndfflVlyXQO4PvM4sF7RXh+hnppZ
+qo571zSA68qcy/lZ+aP0WIHxRLpPbGePWJia+jrVXK+6rmmvS48VYGmq42vG
+9+996XEC44n2PrFqJ5il6rjLuJZtS48TYIkib8/sp9LjBMYTu/6uaidYjPo6
+lXEtuy09ToClirw9s+9KjxM4X72eKfF7bg8JZqc63mZcw76XHifAkvkuhvWI
+9j6xtb9Kjw/6yly3e1d6nABLl5krVscGMxftfWJ/lB4b9BV5fUWeSo8TYA0i
+r5ZtU3qcwHmivU/sl9Jjg76q4yHj2nVfepwAaxD5vfb0joWZqtczJX63P5Ye
+H/TlugUwLZnzPB9KjxMYpqN2wj52zIq8OsD0WIcKy1Ydj4nf7Telxwd9RF5v
+wtvS4wRYG9/PsEzRvoed9U7MTub8l76EAAVEXu/YTelxAnnqdUzR3tPpt5gi
+7EHBDFTHfcbn+a70OAHWKrp7x9b1b+rbYMKq4+/MGELOgtnJuE49u04BlBN5
+ddl3pccJwPrUa27l0QGmLXNd6rb0OAFYnzpWyLhG3ZYeJ8DaRV5d9k3pcQKw
+LtG958RT6TEC8M/39V1GPGEvCgCuJvJ6hjyUHicA/3xn/5Hxna0XHwBXk7nW
+6ab0OAHY8b0NwJRkrHUyzwUwIZl5ZWueALg41ySAeTIXBMAUyJkDzJPvbwCm
+wPwWwDzJLwNQmmsRwLyZEwLOUd/n1d8TsetD/Ufp8TA/1fEgVw4wX5lrntwj
+ACfFrv/0fl7iZ/Od8rr0uJiP6ngyrwUwX5l55rvS4wSmq8lR/HYPKGdBlzr2
+zLgG3ZceJwBpGd/lX0uPEZi2Jn449f0hZ0Grllj0mM8OwMTV8ULHd/nP0mME
+pi1znlnOgl9Ux7bjM/NUeowAdGuu7133AbelxwlMW+TV1cpZsP+8/JHxWdmU
+HicA3arjJuM7/aH0OIFpi19rs3N9b9a8yFmsTOTV770tPU4A8kT72ud/r/ml
+xwhMX2a+s3UuWi50PTLzWeJMgJnwvQ6MJbrXxOfYNt9L9Rz2TennxEU+J13z
+WNvSYwQgXz0nKO8MjCHyarP7eopd74gPchjzF3m1E/elxwlAPxnf7WooIEMz
+t752/0+MH1PIYSxE5NVO3JYeJwD9RPcaBTUUkOEK99GcVteC1zmMe/ei0xbd
+a2z1KQeYocjbV0gNBXSYwH01L/GFvOoERXfthH1UAWYo8tY8q6GADhO4j16r
++h51E7seU/a2mKhQOwGwaBnf8eb6oEPs1tus3f8Vl40drG2aqcjr/+E9BZip
+6K6h2JYeIzBtcZn+TnXuoV5zfxdqr2etiQGT73fpMQIwnO954FzRvTa+y5Pc
+w3KZtwJYNnlo4ByR19ehbf3Sg9zD8jXvdeqzYF0twIxFXp3ch9LjBKan+f7o
+ulf8bS66XsNUeuxc7TNyk/GZ0PcDYOYy1ipsSo8RmJ7Y9VaSiyD1GcnZx87n
+AmDmMu4J7GsH/CJzreRXuYh1i+4aPfvYASxAZKx/Lj1GYFoSec2n5h7ypvQY
+KS/UYgOsQuY8423pcQLT0DIH8dU6eI5Fd33NfekxAjCOjHhCTTZQf1cc1mDL
+RdAq8vp9iEEBFiKxdmFPPz+g/q64k4sgR2bu+6b0OAEYR3TXZG9LjxGA+Qj7
+pQKsiu99AMYUux7B5qkAViIzL/1H6XECMA/R3dtpU3qMAIwn8vYwvS09TgDm
+IfR2AlidjHhCjycAspijAlifjNz0fekxAjB9mWtoX5ceJwDjil0PSLVzAJyl
+Ot7q8QGwPtHd4+l76TECMH0Z15On0mMEYHyx26fKfBIAZwm9YgFWKXO9q56x
+ACRl1ONtSo8RgPGFnrEAjKBeH6u/B8A6ZcQTb0uPEYBpy7iW3JUeIwCXUdfI
+mVMC4Bxy3QDrlbHm9b70GAGYrup4nRFP2HsCYKGiew+Kr6XHCMB05fT2KD1G
+AC4nunuGb0uPEYDpCnvZAaxaRjxhTzsAWmVcR55KjxGAywl72gFwBnlugHWz
+7hWAc4gnANZNPAHAOcLe2ACrFvbIBuAMGfHEfekxAnBZ4gkAhhJPACCeAGAo
+8QQA4gkAhqqOnx3XkLvSYwTgsqrjqeNa8KH0GAGYJnNSAMhVAzCUeAIA8QQA
+Q4knABBPADCUeAIA8QQAQ4knABBPADCUeAIA8QQAQ4knABBPQD/N7wywI54A
+WLmM68HTBK5XMBV30X3/BLy4LX2dA+CyYnePVPp6A3NxP4ExwJzclL7OAXBZ
+IZ6APu4nMAaYk9vS1zkALivEE9DH/QTGAHNyW/o6B8BlhXgC+rifwBhgTm5L
+X+cAuKwQT0Af9xMYA8zJbenrHACXFeIJ6ON+AmOAObktfZ0D4LJCPAF93AO/
+6PqduS19nQPgsqI7nthO4HoFU3Fb+ncWpiTEEwCrF93xxH3pMQIwTeIJAMQT
+AAwlngBAPAHAUNXx5BoCsG4Zc0t3pccIwDSZkwJArhqAocQTAIgnABhKPAGA
+eAKAoapj03EN2ZYeIwCXU8cKGfHETelxAjBNsduXRTwBsFI58UTpMQIwXeIJ
+gHUTTwBwjur40HEd+Vl6jABcjusAAOcwLwWwbvLUAJwjsw7vj9LjBOAyquNB
+PAHAUHXPjox44rb0OAG4jOjuG74pPUYApk08AbBeGfHEfekxAjBtda2dawnA
+OmXMKX0oPUYAps3cFMB6yVEDcK6MeOJr6TECML7qeC2eAOBcoVcgwCqFnuEA
+jCC69zJ6Lj1GAMaXMZ9kLzsAOuXMT4U9KAAWJ+w9AcAIrJ8FWCf1cwCMJSOe
+uCs9RgDGVR1PHd/996XHCMA8VMd31xSAdcmYS3pbeowAzENGzntbeowAjCez
+du629DgBmIeMHh9PpccIwHjqdaxd8UTpMQIwH64rAOtiHgmAMcl7A6yLda4A
+jC0jnvhQeowAjKM6furDAcCYorvH00PpMQJwvur4I2MOSW8nAHqpjq9y3wDL
+l7nG9XXpcQIwLxm1ec+lxwjA+XzfA3AJarIB1kEtNgCXkLmeVk02wMxl1GKr
+lwNgkOp46rjGbEqPEYDhquMmY+7orvQ4AZinOl7ouMY8lR4jAMNFxv6ldcxR
+epwAzFO9ninjOvNH6XECMEy9lqnjO/5n6TECMF/V8TojntCTHGCmonuvoa+l
+xwjAvKnTA1gmfTcAuIbo7iP4vfQYAeivzi9nxBO3pccJwLxFxj5HaigA5iej
+duK59BgBmL/I29dODQXAzGTUTmxLjxGAZciIJzalxwhAvsjbd+K+9DgBWIaM
+Goqn0mMEIF/k7TtxW3qcACxD5O1DcVN6nADkie79Su07AcBoIm8fCj0FAWYi
+unuB23cCgFG59gAsgzkiAErIyI3rGwswA5HRJ9YaVgDGllm7p28swMRFd5/Y
+p9JjBGB56txDRjyxKT1OANpFXp/Yh9LjBGCZortvrH4gABMWef36bkuPE4Bl
+yrwOWfMEMFEZa53MCwFwMZl58k3pcQLwO9/hAEyBOj6AeZJjBmAKIq/PoOsR
+wMRkzAfV9P0G4KIibx+kTelxAvAic62TfUkBuIp6TZN6PoD5yFzrdFd6nACs
+gzVPAPNirRMAU6JHCMB8WKcKwBSZ6wKYBzllAKbIWlyAeVDzBsAUZa55+l56
+nABrVucdrHUCYKqq42vGdep16XECrJXvaQCmrF7PZN4LYJoy88hPpccJwLrV
+62671uWqywa4vuq4z4gnPpQeJwDrltk35K70OAHWJqMOWx8+AIqLvL7m6rIB
+riizDvtr6XECQC3y9qK4LT1OgLWojm3G97I9JwCYBHXZANOhDhuAOcqoy67d
+lB4nwNLV8zfqsAGYm8y67IfS4wRYsrq+OuO7WB02AJOTmV/XOxbggiKvR+ym
+9DgB4JTMHPt96XECLFGTm7D2FIDZqo5bNYAAZUReb4xt6XECQErk9Si8Kz1O
+gKWJvP3rbkuPEwBSMufHnkqPE2BJfPcCsCSZc2R3pccJsBS+dwFYEvNkANfj
+OxeAJYq8HiN3pccJMHeZuQn71wEwK5HXA/2p9DgB5iwzN2HvHwBmJ/L7oN+V
+HivAXGXmJu5LjxMAhpCjALgcuQkAlq5HjsK6XoAemu9XuQkAFi8zR2H+DKAH
+360ArEWPHMV96bECzIHvVQDWpsca35vSYwWYuup4UJsGwNpkrvPdlB4nwJTV
+8y4Z36V65wGwOJk5itpt6bECTFV1bOUmAFir6viecR3clh4nwBTV8y2Z8zJv
+S48VAC6hx7XwrvRYAaYmc93otvQ4AeCSquNrZm22HocAjcjrD1t7XXqsAHBJ
+PWoJH0qPFWAKmu/NnP6wm9JjBYBrMM8GkE9eFwB+Ffl7MW1LjxWgpB51Z/el
+xwoA1xT5/WM/lB4rQAnN3EtODfZT6bECQAmR10fdvtnAKkXePti129JjBYAS
+6vqIzGvl19JjBbgm348AkKfH/Jv9mYDViLz9P+VvAVi9HuuD9S4BViHye+Cp
+LwOA5179S+T1gUXrsc5pW3qsADAlkddfvXZXeqwAl9Dka3PWOdXszwMAByJ/
+TwrrhYFF6lFPdl96rAAwRXXNtTw/sEY91n1+Lz1WAJiyHuue7kuPFWAMPfKz
+1jkBQAfXVcZUHe8rHxvfms/Nq8yffXX0c7XH+s8GjmV/vscxzsdymEcBgHH1
+WPf0FHrIrl51/HkQM9R+JD4z3zLP+anjs/d3zzF2ne9bbpzDslTHh8zvO+uc
+AKCH6thkXmP1kF2pJo7I+YwcSuYCquOvo/zB4HMNON/n0q8p1xX5vWHrnK18
+LAD0EPn73NXs6cQ/mvxE6rPyV+Jn3/WMTZK5jgHnq8lRrITvOAC4vB5zd8/m
+7thL5AN+JH7m/cHjvlTeNH9e1zx8a/vcZZ7v8z6OiV1OJZWveFP69eM6Ir9m
+Qg4WAM5QHfeZ19x6nk8tBal44kvL4w/v/d91/H1nPHHw+B+n4oNI51DEEysQ
++TUTP32vAcD5qmObee3dlh4r5UV7PfZv9Q5H9/4n10Il4onf8h0Hj61jmj97
+nu+5bQwsR+TvM1G7LT1eAFiC6NdD9qH0eCn6Wfkr9169zgV0xRLN49p6M31p
+OV9rLNFxvtb1WCxDddz0+C67Lz1eAFiSnnN6d6XHS7HPSdtaom9Hj/srXvIY
+yTVG0V4/8fHgMX825/uRiiU6zterBy3z0syLfM/8DtuWHi8ALFHk11LorbhS
+saulPvWZ+HTwmFfxUmPxvuN8rxKfs78OHvft+M9azpfqcftp6PNm+iK/B7aa
+CQC4oMivpXBNXpmOe/93B4/7O/f+Pdp7vv44eMw+hsnZj0It9gr1mAup3ZYe
+LwAsWfTr2f5dTLEeiXv/2qvmMfvahZO9nk6cs63W4VPz9x8P/zvjfG35E7UT
+C1Uddz1iCftMAMAVxG5fityaxk3p8XK1z0Xbvf+35u/38cZjZO4bF+29oupz
+7WsmkvvaZZ4vK75hXnxXAcB09Zzz0/NpBaK9zvnTwb1//d9ZPVmjvVfUj4N/
+r7P+OuN8tc61UsxL9OvlJJcKAAXUcUKPmOKu9Hi56GchWTd9EGtk37dHe63D
+53jJhSTruTPPV8vKlzAP0a+XUx1z3JQeMwCsVXV8FVMQibrpg3v/Xv1Yo73W
+YR8X9FqjFO35k+z1Ukxfz1iiphcdABQ0YB7QtXuBIrFH3MH/z1qXdHDOU7UO
+9Z899j1fpPMn+sQuSOT3hTXHAQATEf3WKYspFihe9pNo06s+IZHvuMT53vU5
+F9PVM5ZQ1wUAExL9+qiIKRYk0nXOtccB52zLd4x9Pn1iF6JnLLEpPV4A4HfR
+r+eTfioLEek651p2zfTBOdtqHcY+nz6xC+C7BwCWw3V9faK9bnpoLiFV6zD2
++fSJnTnfOQCwPD3XHbi+z1y07xE3NJfwfsz7/0jnT7L2wmCaesYS1lkCwIyI
+KdYh0rUTdZzRe1+HRL5j7PPpEztjYgkAWL7otzeFmGKGOub+B/VhTeQ7Po98
+Pn1iZ6pnLPEslgCAeYr++0qJKWYmMfdf67XfRHO+VL6jd1/Xsc9HeQNiibvS
+YwYAhhNTLFek65x77YV9cM62fMegvq6p88WAtVOUJZYAgHUSUyxTpPeIG9Q3
+qY5DWs43qK9rtOdP9ImdGbEEAKzbwJjCmucJi/Sec0PqplP5jiFrnXr3iY3d
++qhBdRpc9LN2L5YAAAbEFHqyTFi07xE3dK1TKt8xJD5Jne+3PrFN/PEYu7VQ
+vWs/uNjnbCOWAAD2xBTLMGTuP+OcbfmOQX1dE+c7uSdevKyNssfdRIglAIBT
+BsYUb0uPm1/ew9Tc/6C5/WjPdwztO5t9voPYQ13FBDTfEX36TYslAGBlBsQU
+7hcm5AK5hFRf1957WEePWoyD2KiOP/R8Kv/Z8t0AAGQZeN/wUHrc/PPePba8
+P0PXOo3dJ/ZN4jP06sTj1ExMQHW8rjyJJQCAXANjik3oJ1vyPRs1l9Ccc9S+
+rtXxPjHG981j9nmJH0PHzaifq9vYrW0USwAAvcSwtdL2qCj3frXlEk7WOWee
+80fLOYfmO1L1Hb/kP8QS5UX/vSXUVAEAv4n+vVyeQu+nEu9TWy5haN30JfId
+qXP+G/+IJcqrjocBsYTfewDgpAExRX1vcVd63GuSyCX03nOuOd+otd0H522L
+e56bv1N7XfZzVOclt2IJAGBs0X/tQ02dNr+IXY+nz0efk49yEuXFsLpraxwB
+gGxNTNG3NnPrfgOmze82AHAtzRxm3/uOJ+shYJqif61EbVN63ADAfFXHTfTv
+J1v7UHrswI7fYwCgpBhWt1n7ao0ElFUdbwfkGfVZAABGN3CthPVPUIjfWQBg
+amJYLWftvvTYYS1iV/s0ZH3TVk4RALi0GNZrcn+vclN6/LBkdc3DwJhfz2cA
+4GpieE1FfZ/ztvT4YWma38mvA38n70qPHwBYp3od04D7l+dQqw2jiWE118/N
+mii1EgBAUdVxO/BeRq4CznBGTqK2EdMDAFNxxvonuQoY4IychPVNAMBknbH+
+qb7HsXcWdIjd3nRDY3frmwCAyWvWPz0NvN/Zut+B05p4fUhOovYgDwgAzEWz
+/mkz8L7nublvcu8Dz//G6EP2k9jn/m5LPwcAgCFi+Brv5ybHoV6b1RohLleb
+BADMXpzXg8YaKFbpzLVNeqcBAItzZq7iOfS3ZAWa35MnOQkAgN+NkKv4GWor
+WKDY1Uhsz/zdkJMAAFZhhDlYPfRZhNj1fz0nxpa7AwBWqclVPJx5H/UkrmCO
+mjhiM8Ln/7b0cwEAKKk6Xp+5zkNcwWyMFEf8s+6v9HMBAJiSOh6I8+q1xRVM
+1khxRK1eG3VT+vkAAExRjLMGSlzBZIwYR9Sf6dvSzwcAYA6ae7DtWHFFqFXl
+ymK3jm+MOKLO2X0o/XwAAOYodj00v490T3ZvnQiXFrveZWPEws+hNzIAwCia
+HMPTSPdo9Zyx/bYZTezW6Y39Gb0p/bwAAJamXvcR59ds79V5j7vSz4n5ipfa
+iLE+k1txBADAZTVzwfcj3sPV53lwH0euJhexHenzt48jbks/LwCANblAXPFv
+ziKsWedIvNRXj/l5E0cAABR2objiubl3fFv6+VH0s3UTuzV2TyN/tsQRAAAT
+E+PXxB6vh1LDvQIHn6PtyJ+jfYzqcwQAMHHN/eAYfWaPPYktlucghvh6gc/M
+z9CvCQBglmK3f8Ul7hH3sUV9n2hN1AzFy1qmS+Qh9p+P+1CLAwAwe82940OM
+X2Nx6Gszx31T+vnS+jm4bT4HTxf8HNTxyV3p5woAwPjiZV3LJdZCHc9N1/et
+b81PF32/Xzc5iEvlqPb2a5qsgwMAWIm4TP/PNt/FF1d7T/fxw7Xe1zvvKQDA
+esVl+/mk7kM3zb9rTnv4+3YbuxqF7ZXih30uQk0+AAC/icvtN5Bj29ynijF+
+f18OY4evhd6fOv5Tew8AQJbYrZ25dO1uTh7ja3MfXa+Vui39ulz4Nb9p4oYP
+zWtfx1jXyjucsq+xt54JAIDBJhJbHPrZ3GtvmljjQ3Mfflv6tep4Hffxwm0z
+7vvmeVy6Pl4MAQDAJMRLze+U7oFPeWru1Q/jjr23B/f1v+h47jdtP9e8Jof/
+xvZA6deiKzbbhFp5AACuLH7dV7nkuhz62ffbUqcCAMBkxC53cR/Tn5Nfm6d4
+6aclBwEAwCzEr/1MS99Tr8lh/HBT+nMAAABjiJc6g1I9T5dqGy/7Bd6Ufp8B
+AOAaYhr7KszNPna4C/UPAADwm/h9D4Y1xhn18z7ce+Om9PsCAABzFr/u3bCP
+NbYTuPcf4ukoZrhrnttN6dcZAADWKHb9pW6b+fz7OL0XxKX2zfh59O9sDv79
+f/fbC/2VAABgkSK9X90/So8RAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOagOm4rHyr3lZvS
+4wEAAKanOv5oYoc6bvha+V55PrAtPUYAAKC86nhdedvEDtvKz6PY4VgdW/xR
+etxLIc8DAMBcHKxXemhih1TcIJa4zHvwRxO/PRzkfV6XHhcAAMvQ3PMf2+cP
+cnxtYoVDx+uVhvhpLn3Q+3lTuatsEu/Dh9LjBABgGZr4YTPC/f+YfppDz3rv
+jutOutaOqUcBAOAimnnt+x73pGKJ674/x7HD0zmvc+nnAwDAcsVuvcxZ96tn
+uCv9/Etr4oa7yK9Zz1G/n5vmvGpSAAC4uOa+9qtY4mKv7b5OZTNi3LBX1048
+NP/GTennCwDAesVuLdTDyPe7p+bPv8ZLnfdtY3Zrnw7Gftc8l31/q+2FXruf
+zbn3r5v8AwAAkxO7NfwfotxaqKf4tY/U/ZG7ON2v6tDrE8+p62duT/xbm6Ox
+XOs1OIwd5B4AAJil5l72mvfRa1S/vpuQdwAAYKFitxZqE+X7Qs3V9yZuqNdE
+fWjihpvS7ysAAFxT7NYN3Q+8p/6/49e98Z4mcJ8/lu1BvFA/xzsxAwAAnFYd
+r2PY/tgn1/I057ttfIiX+oXDGue9S+ZIvh/9W4e147W3B+O0LgkAAM7Q3Pv3
+ub//cKVx3cTvtdbu/wEAYGKae/dt7vx/6fECAADT09QM5OQqbkqPFQAAmJ7Y
+1Wt37bX9UHqcAADAdDV1y08t8cRT6fEBAADT1uQqHlpiirelxwcAAExf01vp
+OFexKT0uAABgPuLXffB+6t8KAAD0Ebt96/a9Ze9KjwcAAJifZh+8q+xtBwAA
+AAAAAAAAsATV8a7ysVH/wafSYwIAAKajOt4fxAy1x8Te3e9KjxcAACgvETOk
+vCo9bgAAYHqatU0/ErHE36XHCAAATFddH5GIJz6WHh8AADBdB3XXp/xVenwA
+AMB0JfITP0qPDQAAmLbq+NYST+gTCwAAtKp7N+kTCwAADNH0d9InFgAA6K06
+vugTCwAADJHYe0KfWAAAoFXdC1afWAAAYIjEvhP6xAIAAEmJ2onPpccGAABM
+lz6xAADAUPrEAgAAQ9V7X7fEEt9Kjw0AAJi2Om7QJxYAAOiro3ZCn1gAAKCV
+PrEAAMBQffvEVsefiXxGjvelnzMAADCOOg9xTp/YJr/x2BFDfNJ3FgAAlqWu
+jxijT2xizdQX/WYBAGCZEnFArz6xLf1m5SMAAGDBxugTe6Ke4lFfKAAAWLYx
++sQ25ziMSer//Wfp5wYAAFxWvR7p3D6xR7HEl9LPCQAAuI6WmofWPrFHP3uc
+l/hU+vkAAADXk6idSNZRN/UShz9rPwkAAFiRoX1im5873GviTennAgAAXNeQ
+PrFH9RZ6OAEAwEo1+8xl94k9ij/0cAIAgBWrezjl9ok9ij3+Tq2HAgAAli1R
+O/Hj6HHHddedfZ8AAIBly+kTW9dZH+UwHkuPGwAAKK+rT2y073OnlxMAAKxY
+sw9da5/YRO7C/tcAALByidzDY1Nr3RZL7OnrBAAAK1XXSGTEDKnHnOwnCwAA
+LF+iT+xz83dvmse17U/xo+T4AQCAMhJ9Yn/bV6Lp79T22PelnwsAAHBd8ese
+15111k1NxcnYo/RzAQAAriuxhulkTUQi/ji5jzYAALBMTS/YttqJk7FBpHvL
+2isbAABWItEnNllfnej19OOw3gIAAFiuaN+nLrlHXUcNt96xAACwAtXxbWhM
+EO373D2Wfl4AAMBlddRBdNZVd/SOfZfx83Vdt321AQBghur9IobUThydY1Dv
+2IO6DWujAABghhJ9YpO1E0fnaItJam8SP/doXRQAAMxXok9sr5xB3xzFQQ14
+55ooAABgejr6M/Xak64jR/Hu6LH7dU7ZORAAAGBaon2P6+zaiaPztfWJ+rFf
+93QQS9T5DHtUAADATEV7r9dBeYOOXk/ZdRUAAMC0RbpP7OB+S9G+N94o5wcA
+AMo7WHd0du3EiXO35T3EEgAAQKcTtRmfzo1TAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAluL/B8AB
+t20=
+        "], {{0, 705}, {788, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSizeRaw->{788, 705},
+      PlotRange->{{0, 788}, {0, 705}}], "   ", "=", "  ", 
+     RowBox[{
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          SubscriptBox[
+           StyleBox["k", "TI"], "\[Mu]"], 
+          SubscriptBox["k", "\[Nu]"]}], 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}]], 
+        FractionBox["1", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}]]}]}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->1541344949],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2013850949],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{333, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1688489715],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"p", ".", "p"}]}], ")"}]}], 
+      RowBox[{"3", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "12"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"13", " ", 
+        RowBox[{"p", ".", "p"}]}]}], 
+      RowBox[{"18", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     RowBox[{
+      FractionBox["1", "3"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "18"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"21", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"4", " ", 
+         RowBox[{"p", ".", "p"}]}]}], ")"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"6", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{577, 78},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1597728547]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        RowBox[{
+         SubscriptBox[
+          StyleBox["k", "TI"], "\[Mu]"], 
+         SubscriptBox["k", "\[Nu]"]}], 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SuperscriptBox["m", "2"]}]], 
+       FractionBox["1", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}]]}]}]}], "  ", "=", "  ", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]], "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          FractionBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              SuperscriptBox["m", "2"]}], "+", 
+             SuperscriptBox["p", "2"]}], ")"}], 
+           RowBox[{"3", 
+            SuperscriptBox["p", "2"]}]], 
+          RowBox[{"\[CapitalLambda]", "(", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["p", "2"], ";", "m"}], ",", "m"}], ")"}]}], "+", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "12"}], 
+            SuperscriptBox["m", "2"]}], "+", 
+           RowBox[{"13", 
+            SuperscriptBox["p", "2"]}]}], 
+          RowBox[{"18", 
+           SuperscriptBox["p", "2"]}]], "+", 
+         RowBox[{
+          FractionBox["1", "3"], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             FractionBox["1", "\[Epsilon]"], 
+             StyleBox[
+              RowBox[{"-", 
+               SubscriptBox["\[Gamma]", "E"]}],
+              FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+            StyleBox["+",
+             FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+            StyleBox[
+             RowBox[{"ln", 
+              RowBox[{"(", 
+               RowBox[{"4", "\[Pi]"}], ")"}]}],
+             FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+            RowBox[{"ln", "(", 
+             FractionBox[
+              SuperscriptBox["\[Mu]", "2"], 
+              SuperscriptBox["m", "2"]], ")"}]}], ")"}]}]}], ")"}], 
+       SubscriptBox["p", "\[Mu]"], 
+       SubscriptBox["p", "\[Nu]"]}], "+", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          FractionBox["1", "18"], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"21", 
+             SuperscriptBox["m", "2"]}], "-", 
+            RowBox[{"4", 
+             SuperscriptBox["p", "2"]}]}], ")"}]}], "+", 
+         RowBox[{
+          FractionBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"4", 
+              SuperscriptBox["m", "2"]}], "-", 
+             SuperscriptBox["p", "2"]}], ")"}], "12"], 
+          RowBox[{"\[CapitalLambda]", "(", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["p", "2"], ";", "m"}], ",", "m"}], ")"}]}], "+", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            RowBox[{"6", 
+             SuperscriptBox["m", "2"]}], "-", 
+            SuperscriptBox["p", "2"]}], "12"], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             FractionBox["1", "\[Epsilon]"], 
+             StyleBox[
+              RowBox[{"-", 
+               SubscriptBox["\[Gamma]", "E"]}],
+              FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+            StyleBox["+",
+             FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+            StyleBox[
+             RowBox[{"ln", 
+              RowBox[{"(", 
+               RowBox[{"4", "\[Pi]"}], ")"}]}],
+             FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+            RowBox[{"ln", "(", 
+             FractionBox[
+              SuperscriptBox["\[Mu]", "2"], 
+              SuperscriptBox["m", "2"]], ")"}]}], ")"}]}]}], ")"}], 
+       SubscriptBox["\[ScriptG]", "\[Mu]\[Nu]"]}]}], "]"}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ CellID->255421820]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->940014479],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["HoldForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/HoldForm"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to check your input:"
+}], "ExampleText",
+ CellID->1854997270],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"HoldForm", "[", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1919013391],
+
+Cell[BoxData[
+ TagBox[
+  TemplateBox[{RowBox[{
+      SubscriptBox["k", "\[Mu]"], " ", 
+      SubscriptBox["k", "\[Nu]"]}],"k",RowBox[{
+      TemplateBox[{"k", "m", "1"}, "LoopIntegrateDenomSpec", 
+       DisplayFunction -> (RowBox[{"(", 
+          SuperscriptBox[#, "2"], "-", 
+          SuperscriptBox[#2, "2"], ")"}]& ), 
+       InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+      TemplateBox[{
+        RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "m", "1"}, "LoopIntegrateDenomSpec",
+        DisplayFunction -> (RowBox[{"(", 
+          SuperscriptBox[#, "2"], "-", 
+          SuperscriptBox[#2, "2"], ")"}]& ), 
+       InterpretationFunction -> (
+        RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+   "LoopIntegrate",
+   DisplayFunction->(RowBox[{"\[Integral]", 
+      FractionBox[
+       RowBox[{
+         SuperscriptBox["\[DifferentialD]", "\[ScriptD]"], #2}], 
+       SuperscriptBox[
+        RowBox[{"(", "2", "\[Pi]", ")"}], "\[ScriptD]"]], 
+      FractionBox[#, #3]}]& ),
+   Editable->True,
+   InterpretationFunction->(RowBox[{"LoopIntegrate", "[", 
+      RowBox[
+       Riffle[
+        Join[{#, #2}, 
+         Part[
+          Map[ToBoxes[
+            ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& )],
+  HoldForm]], "Output",
+ ImageSize->{206, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->448433865]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "ReleaseHold"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1633878577],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{333, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->822359264]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Scope",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(14)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1293636265],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Numerators",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(6)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->242146905],
+
+Cell[TextData[{
+ "The numerator can be any tensor expression provided it is a polynomial in \
+the integration variable:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        SubscriptBox[
+         StyleBox["g", "TI"], "\[Mu]\[Nu]"], "-", 
+        RowBox[{
+         SubscriptBox["k", "\[Mu]"], 
+         RowBox[{
+          SubscriptBox["k", "\[Nu]"], "/", 
+          SubsuperscriptBox["m", "A", "2"]}]}]}], 
+       RowBox[{
+        SuperscriptBox["k", "2"], "-", 
+        SubsuperscriptBox["m", "A", "2"]}]], 
+      FractionBox["1", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+        SubsuperscriptBox["m", "H", "2"]}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->987447805],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], "-", 
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     RowBox[{
+      SubscriptBox["k", "\[Nu]"], "/", 
+      SuperscriptBox["mA", "2"]}]}]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "mA"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "mH"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->760785116],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     SubscriptBox["p", "\[Mu]"], " ", 
+     SubscriptBox["p", "\[Nu]"], " ", 
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "2", ",", 
+       RowBox[{"p", ".", "p"}], ",", "mA", ",", "mH"}], "]"}]}], 
+    SuperscriptBox["mA", "2"]]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"p", ".", "p"}], ",", "mA", ",", "mH"}], "]"}], "-", 
+     FractionBox[
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", 
+        RowBox[{"p", ".", "p"}], ",", "mA", ",", "mH"}], "]"}], 
+      SuperscriptBox["mA", "2"]]}], ")"}]}]}]], "Output",
+ ImageSize->{548, 34},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1386419990]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->54854436],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        RowBox[{"k", ".", "p"}], " ", 
+        SuperscriptBox["k", "2"], 
+        SuperscriptBox["p", "2"]}], 
+       RowBox[{
+        SuperscriptBox["k", "2"], "-", 
+        SuperscriptBox["m", "2"]}]], 
+      FractionBox["1", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+        SuperscriptBox["m", "2"]}]]}]}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ CellID->851560167],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"k", ".", "p"}], " ", 
+    RowBox[{"k", ".", "k"}], " ", 
+    RowBox[{"p", ".", "p"}]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->668021289],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"p", ".", "p"}]}], "-", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "\[ScriptD]", " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "m"}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{525, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->401647718]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->268950073],
+
+Cell[TextData[{
+ "A Dirac trace can appear in the numerator of a loop integral:\
+\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{"Tr", "[", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p"}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+          ")"}]}], "]"}], 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->447675984],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{"Spur", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"k", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"k", "+", "p"}], ")"}], ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1993121689],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"8", " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{301, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->941607538]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->307588982],
+
+Cell[TextData[{
+ "A product of Dirac matrices (",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "):\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SubscriptBox["\[Gamma]", "\[Mu]"], "(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+         ")"}], 
+        SuperscriptBox["\[Gamma]", "\[Mu]"]}], 
+       RowBox[{
+        SuperscriptBox["k", "2"], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", "p"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->654882145],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", 
+       RowBox[{"(", 
+        RowBox[{"p", "-", "k"}], ")"}]}], "+", 
+      RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->786975714],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[ScriptD]", " ", "m", " ", 
+   RowBox[{"DiracMatrix", "[", "]"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{"\[Gamma]", ".", "p"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}], "-", 
+     RowBox[{"\[ScriptD]", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}], "-", 
+     RowBox[{"\[ScriptD]", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{436, 42},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1819890078]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2011411183],
+
+Cell[TextData[{
+ "An open on-shell fermion line (",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " object):\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         OverscriptBox["u", "_"], "(", 
+         SubscriptBox["p", "1"], ")"}], 
+        RowBox[{
+         SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+         RowBox[{
+          RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+        SuperscriptBox["\[Gamma]", "\[Nu]"], 
+        RowBox[{"v", "(", 
+         SubscriptBox["p", "2"], ")"}], " ", 
+        SubscriptBox["g", "\[Mu]\[Nu]"]}], 
+       RowBox[{
+        RowBox[{
+         RowBox[{"[", 
+          RowBox[{
+           SuperscriptBox["k", "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+          SuperscriptBox["M", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", 
+            SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+         SuperscriptBox["M", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->100181607],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"\[Gamma]", ".", "k"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p2"}], ",", "M"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "p1"}], ",", "M"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2003849926],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[LeftAngleBracket]", 
+   RowBox[{"\[ScriptU]", "[", 
+    RowBox[{"p1", ",", "m"}], "]"}], ",", 
+   RowBox[{"\[ScriptV]", "[", 
+    RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"\[ScriptD]", " ", "m", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"]}], "+", 
+        RowBox[{"2", " ", 
+         RowBox[{"p1", ".", "p2"}]}]}], ",", 
+       SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}], "-", 
+    RowBox[{"m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        RowBox[{"PVC", "[", 
+         RowBox[{"0", ",", "0", ",", "1", ",", 
+          SuperscriptBox["m", "2"], ",", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "+", 
+           RowBox[{"2", " ", 
+            RowBox[{"p1", ".", "p2"}]}]}], ",", 
+          SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}], 
+       "-", 
+       RowBox[{"\[ScriptD]", " ", 
+        RowBox[{"PVC", "[", 
+         RowBox[{"0", ",", "0", ",", "1", ",", 
+          SuperscriptBox["m", "2"], ",", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "+", 
+           RowBox[{"2", " ", 
+            RowBox[{"p1", ".", "p2"}]}]}], ",", 
+          SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}]}],
+       ")"}]}], "+", 
+    RowBox[{"m", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        RowBox[{"PVC", "[", 
+         RowBox[{"0", ",", "1", ",", "0", ",", 
+          SuperscriptBox["m", "2"], ",", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "+", 
+           RowBox[{"2", " ", 
+            RowBox[{"p1", ".", "p2"}]}]}], ",", 
+          SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}], 
+       "+", 
+       RowBox[{"\[ScriptD]", " ", 
+        RowBox[{"PVC", "[", 
+         RowBox[{"0", ",", "1", ",", "0", ",", 
+          SuperscriptBox["m", "2"], ",", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "+", 
+           RowBox[{"2", " ", 
+            RowBox[{"p1", ".", "p2"}]}]}], ",", 
+          SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}]}],
+       ")"}]}]}], ")"}]}]], "Output",
+ ImageSize->{442, 90},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2070739078]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " observes all options set for ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to carry out the numerator algebra.  Do the same calculation in the chiral \
+basis:"
+}], "ExampleText",
+ CellID->26184638],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SetOptions", "[", 
+  RowBox[{"FermionLineExpand", ",", 
+   RowBox[{"ChiralBasis", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1924618250],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"ChiralBasis", "\[Rule]", "True"}], ",", 
+   RowBox[{"ChisholmExpand", "\[Rule]", "Automatic"}], ",", 
+   RowBox[{"GordonIdentity", "\[Rule]", "True"}], ",", 
+   RowBox[{"DiracAlgebra", "\[RuleDelayed]", "$DiracAlgebra"}]}], 
+  "}"}]], "Output",
+ ImageSize->{374, 28},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->304383036]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"k", ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p2"}], ",", "M"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "p1"}], ",", "M"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->663854107],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], ",", "\[DoubleStruckCapitalP]L", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"\[ScriptD]", " ", "m", " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "0", ",", "0", ",", 
+        SuperscriptBox["m", "2"], ",", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p1", ".", "p2"}]}]}], ",", 
+        SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}], 
+     "-", 
+     RowBox[{"m", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{"PVC", "[", 
+          RowBox[{"0", ",", "0", ",", "1", ",", 
+           SuperscriptBox["m", "2"], ",", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "+", 
+            RowBox[{"2", " ", 
+             RowBox[{"p1", ".", "p2"}]}]}], ",", 
+           SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}], 
+        "-", 
+        RowBox[{"\[ScriptD]", " ", 
+         RowBox[{"PVC", "[", 
+          RowBox[{"0", ",", "0", ",", "1", ",", 
+           SuperscriptBox["m", "2"], ",", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "+", 
+            RowBox[{"2", " ", 
+             RowBox[{"p1", ".", "p2"}]}]}], ",", 
+           SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], 
+          "]"}]}]}], ")"}]}], "+", 
+     RowBox[{"m", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         RowBox[{"PVC", "[", 
+          RowBox[{"0", ",", "1", ",", "0", ",", 
+           SuperscriptBox["m", "2"], ",", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "+", 
+            RowBox[{"2", " ", 
+             RowBox[{"p1", ".", "p2"}]}]}], ",", 
+           SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}], 
+        "+", 
+        RowBox[{"\[ScriptD]", " ", 
+         RowBox[{"PVC", "[", 
+          RowBox[{"0", ",", "1", ",", "0", ",", 
+           SuperscriptBox["m", "2"], ",", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "+", 
+            RowBox[{"2", " ", 
+             RowBox[{"p1", ".", "p2"}]}]}], ",", 
+           SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], 
+          "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{"\[ScriptU]", "[", 
+     RowBox[{"p1", ",", "m"}], "]"}], ",", "\[DoubleStruckCapitalP]R", ",", 
+    RowBox[{"\[ScriptV]", "[", 
+     RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"\[ScriptD]", " ", "m", " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "0", ",", "0", ",", 
+        SuperscriptBox["m", "2"], ",", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p1", ".", "p2"}]}]}], ",", 
+        SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}], 
+     "-", 
+     RowBox[{"m", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{"PVC", "[", 
+          RowBox[{"0", ",", "0", ",", "1", ",", 
+           SuperscriptBox["m", "2"], ",", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "+", 
+            RowBox[{"2", " ", 
+             RowBox[{"p1", ".", "p2"}]}]}], ",", 
+           SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}], 
+        "-", 
+        RowBox[{"\[ScriptD]", " ", 
+         RowBox[{"PVC", "[", 
+          RowBox[{"0", ",", "0", ",", "1", ",", 
+           SuperscriptBox["m", "2"], ",", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "+", 
+            RowBox[{"2", " ", 
+             RowBox[{"p1", ".", "p2"}]}]}], ",", 
+           SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], 
+          "]"}]}]}], ")"}]}], "+", 
+     RowBox[{"m", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         RowBox[{"PVC", "[", 
+          RowBox[{"0", ",", "1", ",", "0", ",", 
+           SuperscriptBox["m", "2"], ",", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "+", 
+            RowBox[{"2", " ", 
+             RowBox[{"p1", ".", "p2"}]}]}], ",", 
+           SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], "]"}]}], 
+        "+", 
+        RowBox[{"\[ScriptD]", " ", 
+         RowBox[{"PVC", "[", 
+          RowBox[{"0", ",", "1", ",", "0", ",", 
+           SuperscriptBox["m", "2"], ",", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["m", "2"]}], "+", 
+            RowBox[{"2", " ", 
+             RowBox[{"p1", ".", "p2"}]}]}], ",", 
+           SuperscriptBox["m", "2"], ",", "m", ",", "M", ",", "M"}], 
+          "]"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
+ ImageSize->{476, 180},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->2120602301]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->245427404],
+
+Cell["\<\
+Supply a list of numerators to obtain a list of loop integrals:\
+\>", "ExampleText",
+ CellID->1729776788],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"k", ".", "k"}], "-", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"k", ".", "p"}], "-", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      SuperscriptBox["m", "2"]}]}], "}"}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->925587301],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}], ",", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "-", 
+      FractionBox[
+       RowBox[{"p", ".", "p"}], "2"]}], ")"}], " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"0", ",", "0", ",", 
+      RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], ",", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", 
+      RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"0", ",", "0", ",", 
+      RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}], 
+  "}"}]], "Output",
+ ImageSize->{508, 28},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->439909557]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Internal Momenta",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1938283623],
+
+Cell["\<\
+The internal momentum can be any linear combination of the integration \
+momentum and external momenta:\
+\>", "ExampleText",
+ CellID->1839935732],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   SubscriptBox["k", "\[Mu]"], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "q", "+", "p"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "k"}], "+", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1052545477],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["q", "\[Mu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "1", ",", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         RowBox[{"p", ".", "p"}]}], "+", 
+        RowBox[{"4", " ", 
+         RowBox[{"p", ".", "q"}]}], "+", 
+        RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m"}], "]"}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          RowBox[{"p", ".", "p"}]}], "+", 
+         RowBox[{"4", " ", 
+          RowBox[{"p", ".", "q"}]}], "+", 
+         RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m"}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{499, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->237984383]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1886777177],
+
+Cell["Integration momentum can be normalized non-canonically:", "ExampleText",
+ 
+ CellID->933304182],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   SubscriptBox["k", "\[Mu]"], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"2", "k"}], "+", 
+      RowBox[{"2", "p"}]}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1210349985],
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["p", "\[Mu]"], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     FractionBox["1", "4"], " ", 
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"4", " ", 
+        RowBox[{"p", ".", "p"}]}], ",", "m", ",", 
+       FractionBox["m", "2"]}], "]"}]}], "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "1", ",", 
+       RowBox[{"4", " ", 
+        RowBox[{"p", ".", "p"}]}], ",", "m", ",", 
+       FractionBox["m", "2"]}], "]"}]}]}], ")"}]}]], "Output",
+ ImageSize->{363, 30},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2068620051]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1707741245],
+
+Cell["\<\
+Denominator factors can be independent of the integration momentum, and will \
+be automatically factored out of the integral:\
+\>", "ExampleText",
+ CellID->888162560],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"p", ",", "m1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "M"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1729484956],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SubscriptBox["p", "\[Mu]"], " ", 
+    SubscriptBox["p", "\[Nu]"], " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"0", ",", "2", ",", 
+      RowBox[{"p", ".", "p"}], ",", "M", ",", "m2"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"-", 
+     SuperscriptBox["m1", "2"]}], "+", 
+    RowBox[{"p", ".", "p"}]}]], "+", 
+  FractionBox[
+   RowBox[{
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"1", ",", "0", ",", 
+      RowBox[{"p", ".", "p"}], ",", "M", ",", "m2"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"-", 
+     SuperscriptBox["m1", "2"]}], "+", 
+    RowBox[{"p", ".", "p"}]}]]}]], "Output",
+ ImageSize->{356, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->494442023]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Internal Masses",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->915506718],
+
+Cell["Internal masses can be almost any expression:", "ExampleText",
+ CellID->361599346],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", 
+     RowBox[{"m", "+", "\[CapitalDelta]m"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2035089884],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"m", "+", "\[CapitalDelta]m"}], ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"m", "+", "\[CapitalDelta]m"}], ",", "m"}], "]"}]}]}]], "Output",
+ 
+ ImageSize->{389, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->151295657]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->614061693],
+
+Cell["Masses can be zero:", "ExampleText",
+ CellID->85990789],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{"1", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "p"}], ",", "0"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->469361696],
+
+Cell[BoxData[
+ RowBox[{"PVB", "[", 
+  RowBox[{"0", ",", "0", ",", 
+   RowBox[{"p", ".", "p"}], ",", "0", ",", "0"}], "]"}]], "Output",
+ ImageSize->{133, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->254441446]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1989209227],
+
+Cell[TextData[{
+ "For gauge-dependent internal masses (e.g. ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["m", "G", "2"], "=", 
+    RowBox[{"\[Xi]", " ", 
+     SubsuperscriptBox["m", "W", "2"]}]}], TraditionalForm]], "InlineMath"],
+ "), remember to take the square-root of the gauge parameter:\[LineSeparator]\
+\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        SubscriptBox["k", "\[Mu]"], 
+        SubscriptBox["k", "\[Nu]"]}], 
+       RowBox[{
+        SuperscriptBox["k", "2"], "-", 
+        RowBox[{"\[Xi]", " ", 
+         SubsuperscriptBox["m", "W", "2"]}]}]], 
+      FractionBox["1", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+        RowBox[{"\[Xi]", " ", 
+         SubsuperscriptBox["m", "W", "2"]}]}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1142648643],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", 
+     RowBox[{
+      SqrtBox["\[Xi]"], "mW"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", 
+     RowBox[{
+      SqrtBox["\[Xi]"], "mW"}]}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1652109643],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"mW", " ", 
+      SqrtBox["\[Xi]"]}], ",", 
+     RowBox[{"mW", " ", 
+      SqrtBox["\[Xi]"]}]}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"mW", " ", 
+      SqrtBox["\[Xi]"]}], ",", 
+     RowBox[{"mW", " ", 
+      SqrtBox["\[Xi]"]}]}], "]"}]}]}]], "Output",
+ ImageSize->{461, 20},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->40348799]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["HoldForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/HoldForm"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to check your input:"
+}], "ExampleText",
+ CellID->1536818827],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"HoldForm", "[", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", 
+      RowBox[{
+       SqrtBox["\[Xi]"], "mW"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", 
+      RowBox[{
+       SqrtBox["\[Xi]"], "mW"}]}], "}"}]}], "]"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1528202920],
+
+Cell[BoxData[
+ TagBox[
+  TemplateBox[{RowBox[{
+      SubscriptBox["k", "\[Mu]"], " ", 
+      SubscriptBox["k", "\[Nu]"]}],"k",RowBox[{
+      TemplateBox[{"k", 
+        RowBox[{"(", 
+          RowBox[{"mW", " ", 
+            SqrtBox["\[Xi]"]}], ")"}], "1"}, "LoopIntegrateDenomSpec", 
+       DisplayFunction -> (RowBox[{"[", 
+          SuperscriptBox[#, "2"], "-", 
+          SuperscriptBox[#2, "2"], "]"}]& ), 
+       InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+      TemplateBox[{
+        RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], 
+        RowBox[{"(", 
+          RowBox[{"mW", " ", 
+            SqrtBox["\[Xi]"]}], ")"}], "1"}, "LoopIntegrateDenomSpec", 
+       DisplayFunction -> (RowBox[{"[", 
+          SuperscriptBox[#, "2"], "-", 
+          SuperscriptBox[#2, "2"], "]"}]& ), 
+       InterpretationFunction -> (
+        RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+   "LoopIntegrate",
+   DisplayFunction->(RowBox[{"\[Integral]", 
+      FractionBox[
+       RowBox[{
+         SuperscriptBox["\[DifferentialD]", "\[ScriptD]"], #2}], 
+       SuperscriptBox[
+        RowBox[{"(", "2", "\[Pi]", ")"}], "\[ScriptD]"]], 
+      FractionBox[#, #3]}]& ),
+   Editable->True,
+   InterpretationFunction->(RowBox[{"LoopIntegrate", "[", 
+      RowBox[
+       Riffle[
+        Join[{#, #2}, 
+         Part[
+          Map[ToBoxes[
+            ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& )],
+  HoldForm]], "Output",
+ ImageSize->{303, 46},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1639969785]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "ReleaseHold"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->409400959],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"mW", " ", 
+      SqrtBox["\[Xi]"]}], ",", 
+     RowBox[{"mW", " ", 
+      SqrtBox["\[Xi]"]}]}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"mW", " ", 
+      SqrtBox["\[Xi]"]}], ",", 
+     RowBox[{"mW", " ", 
+      SqrtBox["\[Xi]"]}]}], "]"}]}]}]], "Output",
+ ImageSize->{461, 20},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1685869946]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Weights",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1945864828],
+
+Cell["Denominator factor with non-unit weight:", "ExampleText",
+ CellID->1445834945],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}], "//", 
+  "HoldForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->14100152],
+
+Cell[BoxData[
+ TagBox[
+  TemplateBox[{RowBox[{
+      SubscriptBox["k", "\[Mu]"], " ", 
+      SubscriptBox["k", "\[Nu]"]}],"k",RowBox[{
+      TemplateBox[{"k", "0", "2"}, "LoopIntegrateDenomSpec", 
+       DisplayFunction -> (SuperscriptBox[
+         RowBox[{"(", 
+           SuperscriptBox[#, "2"], ")"}], #3]& ), 
+       InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+      TemplateBox[{
+        RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "m", "1"}, "LoopIntegrateDenomSpec",
+        DisplayFunction -> (RowBox[{"[", 
+          SuperscriptBox[#, "2"], "-", 
+          SuperscriptBox[#2, "2"], "]"}]& ), 
+       InterpretationFunction -> (
+        RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+   "LoopIntegrate",
+   DisplayFunction->(RowBox[{"\[Integral]", 
+      FractionBox[
+       RowBox[{
+         SuperscriptBox["\[DifferentialD]", "\[ScriptD]"], #2}], 
+       SuperscriptBox[
+        RowBox[{"(", "2", "\[Pi]", ")"}], "\[ScriptD]"]], 
+      FractionBox[#, #3]}]& ),
+   Editable->True,
+   InterpretationFunction->(RowBox[{"LoopIntegrate", "[", 
+      RowBox[
+       Riffle[
+        Join[{#, #2}, 
+         Part[
+          Map[ToBoxes[
+            ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& )],
+  HoldForm]], "Output",
+ ImageSize->{186, 41},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1704842413]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "ReleaseHold"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->981614818],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "m", ",", 
+     RowBox[{"Weights", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "m", ",", 
+     RowBox[{"Weights", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}]}]}]], "Output",
+ ImageSize->{567, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1646310149]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->331172115],
+
+Cell["\<\
+Negative weight implies the denominator factor is in the numerator:\
+\>", "ExampleText",
+ CellID->1879607428],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "0", ",", 
+     RowBox[{"-", "1"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->12471838],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "+", 
+     RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "2"], "+", 
+        RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"4", " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"1", ",", "m"}], "]"}]}]}], ")"}]}]}]], "Output",
+ ImageSize->{423, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1282276336]
+}, Open  ]]
+}, Open  ]]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(4)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Massless gauge-dependent spin-1 propagators",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->186399305],
+
+Cell[TextData[{
+ "The propagator for massless spin-1 fields in covariant gauges contains an \
+extra piece:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     SuperscriptBox[
+      OverscriptBox["D", "~"], "\[Mu]\[Nu]"]}], "=", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["i", 
+       SuperscriptBox["q", "2"]]}], 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["g", "\[Mu]\[Nu]"], "-", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"1", "-", "\[Xi]"}], ")"}], 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["q", "\[Mu]"], 
+          SuperscriptBox["q", "\[Nu]"]}], 
+         SuperscriptBox["q", "2"]]}]}], ")"}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]For integrals involving such propagators, the extra piece \
+can be handled by supplying a non-unit weight to the denominator specifier."
+}], "ExampleText",
+ Deletable->True,
+ CellID->1910715353],
+
+Cell[TextData[{
+ "Consider the self-energy function in scalar \
+electrodynamics:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     RowBox[{"\[CapitalSigma]", "(", 
+      SuperscriptBox["p", "2"], ")"}]}], "=", " ", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3TGvI9m2EOAtICCcGxJxmF/Q0vwBg+YHtB66GYEfEpPSAqTRyxxOeMI3
+EoFDdKMOkSZxSDASJyQZyQEBEmI4OYjGe1y+fdpt773LLntVlT9LH2+4fY7P
+cpXtqrX32mv/s3/9b//mh3+QUvr3/3j3//zN3/74z//dv/vbv/uX/2j3//kX
+f/cf/s2//oe7//gnu3//V7v/yP/jp0+fAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAALvHdzs/7vy8k/+Hb6Nj
+AgAAmKIut8p+6fKrt36Pjg8AAGDM3sxZHRznVef8FB07nLN7fLOz2Hm/s9pZ
+73zceYqODQCA+ds9vu+RW53y5+jXwGPLuVOXUy27nCrnU5sz79ecb30THTMA
+AI8rr8d6szar5k/R8TJ/u8e7LqdadXI+9dJjXGCbfz/6dQAAwMHu8WvlHvYv
+0TFy1fk91Ni973KZknd3iOe47m/T5UnXzL9+6p7PnBYAAKOye/xUuY/9MTpG
+rjq/feaH+swjbRrkHKhU9zeEl3vkiQAAcImGfOu76Bi56vx+080j3SrfifKa
+87no4wsAACW7x18K97S/RsfHYOf5wwhypKFskt6DAABMwO7xe+G+Vh/4GUn7
+tVOvI8iXrpnTWkYfRwAAaJH2+3GV7m/1gZ+ZtO+rfos1XbeW14HphwEAwGSk
+8p7Hv0fHx83O+5TWdG2THu8AAExQKveC1wd+5tJ+7+DofKrk2ZwWAABTtHv8
+qXKvqw/8A0j7PYbHtqbrxZwWAABTtnv8uXLP+6foGLnbe+GbNJ41Xavo4wEA
+ANdK5X239IF/QCl2Tdcm6fEOAMBMJH3gOf2+WN45z8q1jB+iXzcAAAwl1fvA
+fxcdI2Hvjaedv9/5f3fItT6a0wIAYG6SPvB8/Z7Iedb6jnNa76NfMwAA3MLu
+8ZfCvbA+8A9k91jcMc86zGnp8Q4AwCyleh/4P0fHyF3eBznP2twxz8rW0a8b
+AABuKekD/9CC8qxsFf3aAQDg1pI+8A8pMM/KltGvHwAA7iHnVIX74h+j42Pw
+831pnpV7WvynK/OsV7kWAACPIukD/zCuyLO2Ox92vsk1gFfmWu+ijwMAANxL
+uqIP/O7x81D1ZdHHYc6uzLOWR891yfMcnkuuBQDAQ0nlPvA/9Xieb7vc7ZfG
+++9fup/Xi+N253awPOvNc75e8HwvSb93AAAeUJ7DKtwn9+4Dn+q95XOepUbx
+tuf0KV22f1bOzRaV55VrAQBAg3SDPvCVfEvvjduez5vkWW+e/33P511HHxMA
+AIiSyn3g/3Lhc/5w4rnyHNr30a93rtLnPhZ9a/2a8qw3f2cl1wIAgDZp4D7w
+ab+G67g+Mf+Nb6Nf61ylfd/AvnnWS588683f2jQ+/zL6uAAAQKRUX2fVe43V
+ifwtr9XSD+M252+R9n0t+uRZ22tyoca/d/HzAwDAXKRyH/hfL3i+476Ezb0N
+6XWc3/WYZxokz+r+7jeVv/F6yZwZAADMURqoD3z3XMe5lr4Yw5+vnO+se+ZZ
+OQf6MNDfX1T+jr21AACgkwboA5/2NYlvawj1xbjNueq7Riv/7CoN2Ic9ne+V
+kdeCPUUfIwAAGIvd47vCvfrvPZ7jtze/l//bvlrDnqdF6r9Ga32L/Gf3+Hgm
+17K3FgAAvJGu7AOf57CO5sfyHJe+GMOdn6cz+U3J5pbzTCfyvo9yLQAA+Foq
+94H/ofK7x302Ltqni7PHd9WzdjDnQYsbx3TcK2MdfZwAAGCMUr0P/Nl5qhPz
+YnoQDnde+tYODtYLozG2w999jj5WAAAwVrvHnwv38Cf7wHc52nEPwuI8GM3n
+45K+g8/3rOVL+34d+T+W0ccLAADGbPf4uXAf/1Uf9/R1Xww9CIc7F337Dm5S
+QC/AtN/z63308QIAgLFL5T7w3x397PFc2O/HP8NF56DvnsVb+Q4AAIxb6tEH
+Pp3vYSjfuu4crHrWDq7uWTsIAABcJn3dW/Ctn7ufObVW66ufo/exX6T9flWj
+rh0EAAAuU8mjcu3g8b5aJ+fBkr22+hzz3A/juUee9ap2EAAApiXV+8CX5r6+
++tno1zMFqX+P97v2HQQAAIaRyn3gj/2lMs/1W/TrGbML5rRyneEiOm4AAOAy
+6Xz/i2M/NP68nvCnj3OfOa1cO7iKjhkAALhO+nIPrVN+TW96D6ZyL8M/5sCi
+X9OYXDCntUn6YfBg0n4vhMUZ76LjAwC4REPudLLnYCr318i+jX5tY9DdQ/aZ
+0/oQHTPcUh5L2Fl2YxCb1G9f79fud56755CHAQCjlsq9MM7OU+0eP1Tuix6+
+b0bqt5/WR3NazFU3R/XcY+yhj/yc66R3JwAwQmnf/6J3zpT2PQ1LfTN+v9dr
+GJtuTqt1Py093pmlbh5rdaMcq/R5ejZ2AQCMQUPO9F3l92t9M36Ifo0Bx/RD
+aq+PynNaerwzK12etb5jjnXOJuntCQAESuU+8NX5qVRf+/VL9Gu847H8psuf
+WsfgrdNiVrrPwBjyrFN511P08QEAHk8qz0819RhM9b4ZxTmyOUj7tSmtc1ru
+/Zid1G9eN4o9wwGAu0r7Pu/n7k2a+l2k+l7JJ/sbzkVq7/NuTovZSfvawc2F
++c827efDVt2YxaLwdxadVfc72yv+5tm/AwAwlN3j28p9SfO8VKrv3/Wn6Nd7
+g+OX7zNbe2Lkn9O3mllJ/eZ1D3LN7TINMMebPveVb63jfWsVffwAgHlL5T7w
+vXoLpgF7w+8eP6eR7921e7zvcZ+5io4Xhpb29YOtuU3+rKyGyLEK8XzTxbTt
+mfupLwQAbiKV+8A3rd1681yD9IZ/kwP2+vt3Pm6t9YP5vm8RHS8MLbX3xDjk
+WXfNadJ+zqs173qRcwEAt1DJj3rvVZzK82VZsTd82tc3HmIa3fxW6lc/aNyc
+WeqRa4X3pkjtPTzkXADAoHaP7yv3H717Cqb6HNdvld8/zLf1zvXucLxa6wf1
+xGC2GnOtPK+0iI71Tcyt+zTIuQCAwaRyH/hea7eOnveiOa70ucdh7rsxqt4a
+qb1+UE8MZivt6wJrn4H1WHOW1LbeTM4FAAwilfvAX7x2qmGOK//bt0e/83bP
+5D9HH5s3ceVx8U1jrjXa+0y4Vtqvh6p9BlbRcTa8jnepPk+9iY4TAJi2Licq
+3W9cVc/XMMeVc73vup/94U1+Npp9uhrvyz51P7OMjhdupfGzsIyOs+fr2VZe
+z3N0nADAdKV67/ar6vm6fK62H9ex0dQRNo7lH2qP1A8yW2k/x1vrEbOMjvNG
+r2sRHScAME2p3Af+14H+xp8r9zJv/Z4u6M9xo2Ozbow5/5z6wfudl0Xar79Z
+pX2N5+bE/fLrm39bdz+b+5w8Rcc/Vam+dnEZHeMVr602b7f1GQcALpHK66t+
+GvDvlPK6t74fwTFpGe+e/D3mVHT3wofcqs88aeneed3lX+6h287BojbmEB3j
+QO+z0mtUVwgA9JK+7E1xyqD9KnaPXwp/6/eR5Fqta7XyPbv6wdudh6e0n0/Z
+DpRjnfPa5V6L6Nc8Zqk8/vASHd+Ar3NZeb/4zAMAo5b268XerufK/TJGscdW
+w73WwSaZF7nVOViktv2RbiHndsvoYzA2qdw7PeerT9ExDvx6S++/TXR8AABT
+lNr31VJTdJvjv0jD1QsOkXe9jz4mY5D2tbWl+d7Z7efd8JoX0TECAExFd2/V
+Mp/y6h78Zsd/PYIc6+RcRprZ3M0F5+ch53pSea57tq8bAGBIab9GqKUvRp7v
+sG5j+OP/oTKP0JIP5XxglT73H1ykL/sXPnc/d+nfyb83uzmcHuendGxm/ZlI
+5bWDs37tAADXSu19MfK9urVawx771jnFYy9dDrW48O/m/HqZ9vNpffOvj4/0
+Pkh69aVUnuNaR8cHADBW3X1Uy/32OjrWuenu40vzBqfmFvM8y9ON3gebnrHM
+fl4j1dcvbR8l9yy8V1+jYwMAGKNUr5E6WEbHOjdpX+/XOq+0udc5SP16dbzO
+OedKbXvPLaLjvOPxWPqOAABok9r6Msz6fjrw2JfuW4/nTpZBMS4K8xmzv9du
+zLVW0XEGHBPz3wAABal9vdCLXOsmx78118q9LcLr1NJ+jdhD5VyNudYmOs6g
+Y3NunEZNIQDw8BrvIw/1a+H3+nPTmGvlOaVFdKxHcee5rpbax2V0rAO81qeG
+z8jLo34+Ku9h4zMAwMNK+94MLbnWOjrWOUptPSBHex/fI1ef7PunMa986Brb
+VK4pXEXHBwAQofFeP3vIvZXucPxrPe4mkaekfrWoT9Hx9nxtq4bX9dC51ptj
+dS7vfomODQDg3hrH7GdRCzZWqd7vbx0dY8/Xs27MTUafv6d9/WDt/Mi1vjxm
+pb6mT9HxAQDcS2pbL+Q+8rbnoNZzfx0d44WvqyXn+tTlMqN7f6X9XF3LnJbP
+yNfHrrT/8+z3fgYAyORa8bq5k9Lc4iY6xitfX2u+8qnLz56iY+7izp+NbWPc
+k6uNvNMxPHf89CkEAGavYU7lcB85yt4Mc5HKa522czj+Xe7Sum/zIe+6e46f
+Ps9nteZZn7rzN/lzdKPjWfqOWUbHBwBwK6mtzkuudfvzsKicg0V0jAO+1tbe
+l8fvweWt34e7x/vGz8Sx0a89Cz7npT6F2+j4AABuofG+ci3Xusu52BTOwSo6
+vhu83nz//XxBXnPIvVZD5KBd7rfs5qb6zLu9jUWNbduxLn3fLKPjAwAYUmuu
+FR3nI0jlua3tnPPd7rX3nes6lfN87HKwD91znrLsfua5y28vya8O8u+uoo/f
+lKRy34zXOb/PAYDHItcal1Ret7WMju9Ox2B5Zf5zT/nz8xR9zKYoledx9SoE
+ACYt7Wu4Svc7D3WPPwZp35Pw7NxWdHx3PhaHHhVjzbvkWdef49L7PVtExwgA
+cInuXralbmsZHesjSfq2nTsuy8b3663l3O9ZnjXouV2XxhiSukIAYGLkWuNV
+OC/b6NjGIO3X/Dynfn3Zh/DR5+Fm5/SbVJ7D/BgdIwBAK7nWeKVybZW1LF8f
+r5x7rVJbTWxf227e5b35lbucy9qef6voGAEAahpzrTzO/D461keU9jVz586L
+HuP147dIn3sOblJbz8HDzz13v7eQX4Wdv1revIyOEQDgnB65lvv6uHO0PjfX
+Eh0b3Fqq1xXKuQCAUZJrTUM6vyZpHR0b3EMq7z33kDlX2tfN5uOyiI4FAPia
+XGs63F9Cta724EN0nAO/5kVXz/qxoa7ybS3sYV/vRfRrAIBHJNeajsq4vvPD
+Q0kz34M97XvjfEjlvc0vseme9yn6NQLAI+jGPeVaE5D2ffBOnqfo2CBCY871
+MqXvsO5zPnSOVcq9ltGvGQDmrDK/JdcakUJuvI2ODaI05lz5u2zU9YVpXyO5
+vVOe9dV3SPf9ou8mANzAmZxLrjUyhXxrEx0bRGrMuQ5zXYvoeI9ij8yzTuWl
+y+hjAgBzdJRzybVGSL4F5xU+H6fker2n4HgX6Tb7cA9hUjWYADAVb3Iu19kR
+km9BWdqvfartz/XFZyfdeb4r7eezaj2KajHnvbc/dDnb4pA7pn2PjcP/9qH7
+uWtyulX0OQUAuBf5FtSl/V5UffOZbZeb3GSsqYvpuWcueBzb4soYFt3zbHv+
+/ZeklyEA8AC6eyX5FjQojE+05DfrtJ+Huij/6vKrZfc8l+RYh3ms9zc6Nn17
+IKoxBwBmL52vC1pFxwZj1OU95z43fXOfTZfDnXKo27umTvDgbmvL0r7+cN0j
+tmX0OQUAuBX5FlwmjasHYCmnWwQdn0WPXHEZfT4BAG5BvgXXGWneFZZnnTg+
+KzkXAPCo3PvAMLq869z4xb2sx5JnHR2bd4056ehiBwC4VNr36nffAwNK+/VL
+uW/6EOuuWueycq73TfRrrxyXt/sxnqOHBgAwG2m/vuLcfc9TdHwwdV3utezm
+nVrmd1q8pM+9DkedY505JuuG1ze51wUAcCwV1lVExwZz1M3xLLr5r1WXe2wK
+nrufy7nVIjr+AY9DLedaR8cIAHCtdH6tySY6NmDeCt8/BzfZJwwA4F4K9zmr
+6NiAeUv19VxbdYUAwFTlsWPjykCktO9b+GrsBwCYm9L6iejYgMfRrU0r1RU+
+RccIANBHV8dzbkz5Y3R8wGPJ3zt6ZwAAc1EZT15Gxwc8lrTvm1+qK3yKjhEA
+oFUq7wNkfTpwd6mwP4V1XADAVFT6ZKyj4wMeU6XOeRsdHwBAi8rc1iI6PuBx
+Vea49E0FAEatsm5rEx0f8Ni6dVzm3wGAyanU6pjbAkah0KvwNTo2AIBzKv2W
+N9HxAWSVefh30fEBAByr9MgwtwWMRjcXf+676kN0fAAAb6X6vjbr6BgB3to9
+XnxfAQBj140Tn7tv+dTlYfbbAkZl93hW+wwAjF1lzZb+ysAo5brBc99b0bEB
+AGS57qaSa62jYwQ4Ja8plW8BAGPVkGu9qCMExiqV9+FaRMcHADymbr1WrYYw
+r9nSUxkYNfkWADAm3XhwqTeG/WuAyZBvAQBj0a11KPV8P1hGxwrQQr4FAETr
+6gfP9U2WawGTJd8CACLtHu93tnItYI7kWwBAhK52cNOYZ+mNAUxO/t6SbwEA
+99TNZ7XmWYee73ItYHKS/bcAYFa6dVA5n1mlfT/1TaFWb9v9+8fu5/PvPd0o
+rnfd+qzWusGDdbK/FjBRu8cH+RYATFuXJ12Sy5Rq99bdfcJF80pp39N92T3P
+JXHlGN5HH1uAa6Tze7ZvomMDAM7r8pnn1NY7fQgv3VzYquAwn3bt38rPY04L
+mLx0fi/BdXRsAMDXUr8eE1OT70sW0ccYYAhpX9997vtuGR0fAPBZ2s9nzTXP
+2rr3AOYm7Wu9z33v6QEEACOQ+u0DPDW5bnARfYwBbqHw3f0aHRsA8Me1epEu
+74GR13Vt0ue1VYsTDv+2ueLv9JVrBnMfjqfo4wtwS+l8TcLH6NgA4NF1edAl
+80UX5zLpcy/5dTq/xruvbfd8SzkW8EgK34sfomMDgEfV5TzrnvnM6la5TDcP
+tuz+xrobrz3nsI/Xh+739BgEHlIq98pYRMcHAI+ouz63zivlPGsZHTMAX+vG
+nM59fxuLAoA765Fr5XVZq+h4ATivlG9FxwYAj6ZHrrWxBgpg/NL5Nbjb6NgA
+4NE05lqr6DgBaFPItzbRsQHAI0n13hiv1mkBTIt8CwDidX38arnWu+g4AehH
+vgUAsXIeJdcCmCf5FgDEalizJdcCmCj5FgDEKVyHD5bRMQJwOf0JASDG7vHU
+1Qqey7Weo2ME4DrJ/lsAEKLSj/AlOj4ArlfKt5J9FAHgJrq5LWu2AGYu7fex
+P/ddv4iODwDmqDK3pY4QYEYKteOr6NgAYG4qY535mvxNdIwADCf3Ijzznf8x
+OjYAmJtU3tt4FR0fAMMq9Ch8jY4NAOYm9wA2twXwOHaP99brAsDt5euqdVsA
+j6VSR+67HwAGUqgp0RcYYMYKa7i20bEBwFzsHi9nrrf22wKYscra3UV0fAAw
+B/pkADymVN53cR0dHwBMXR6/NLYJ8LgKNYVqygHgSqVakujYALi93WNpjgsA
+biP3oDpzjd1ExwbAfaTze4KY4wKAKxTqSNbRsQFwH5W+GZvo+ABgqgr51io6
+NgDuI+334not5Fzvo2MEgCkqXFuX0bEBcD+VOa6ci30THSMATI3ehAAcVNZx
+fYyODwCmRr4FwEEq7xGSfYiOEQCmRL4FwFu5X1Il57KWCwAaybcAeKvrnVGq
+K8xrud5FxwkAU1C4pq6iYwMgRkNdoZwLABok/eABOKHSr1DOBQANcr8pfagA
+OKVhLder9VwAcF6exzpzDd1GxwZAvN3jpZJz6VsIAGfkccnC9dPelgAPruuf
+0ZJzfXTdAIAv7R5PhWvnMjo+AOL1yLnUFwLAke76eOq6uY6ODYBx6JFzfep6
+MT1FxwwAY1BYD/0aHRsA49HlXLUeGl+M28m7AHh0uW5QTSEArQq9lkpru9QZ
+AvCQuvHKszUh0fEBMD5pvyfyuXr0c7Y7z/l3o+MHgHuq1IcsouMDYHy68bpz
++zi29NbYdHNluVeuvZMBmK1unNIcFwC9ddeQ7YV51ykvXS527GOXn33o/qb+
+8wBMRuVauYiOD4Bx63KhvjWG19p2NRpL+RcAY5bKfTM20fEBMH5pX2O4Gni+
+q4+Pci8AxqpyfVxGxwfAdHR5zyYo78rzbLk3x1P0cQCAg8oc1zY6PgCmJ+c8
+ab/mKir3ejbfBcBYVK6Hi+j4AJiutK83zP0IV9315l7rvfLf+RD9+gEglXsV
+foyOD4D56a49ize52CkfB5gjy7//FP16AXhslevZU3R8ADy2tK9RXKZ9b8K+
+c2T555fRrwGAx9WNL567TqnHAGBUuuvWumfetY6OG4DHlc73KnyJjg0ATkmf
++9G3znnlGkW9NAC4u+56paYQgMnp8q7nxpzrRc4FwL11tfFqCgGYrN3jXZdP
+ybkAGJ1CTaE+hQBMRuNcl2sbAHdVuD69RscGAH2kfT/DWs71HB0nAI8jlfsU
+vouODwD66OoLa700ltFxAvAYuvXG565H76PjA4C+GnKuV32hALiXwhquVXRs
+AHCJhpzL3icA3MXusTlzLVpHxwYAl2pYz6UXLwA3l87vw7WJjg0ArlHpW5jn
+v/SIB+Cm5FsAzFkq78+1jo4PgHkr1VtExwYA1+rWcpXqCp+iYwRgvnaPhXwL
+gDkr1HKY4wLgpuRbAMxd2u9/UupXaB0XADch3wLgEeR+hIV8axUdHwDzJN8C
+4BFU5ri20fEBME+F8b7X6NgAYEiVdVzvouMDYH4K155NdGwAMKTci7CQbz1H
+xwfA/KTze0FuomMDgKGl8/txvUTHBsD85LzKOB8Aj6LSN+MpOj4A5qWwdngV
+HRsADK1SU/g+Oj4A5qNyzVlExwcAt5D7ERprBODWdo9lId+y9yMAs7R7fLR2
+GYBb2z3WZ6432+jYAOBWCr15t9GxATAfhbVb6+jYAOBW8jqtc/Ud0bEBMA+7
+x7tCLeEyOj4AuJW8Rlm+BcAtFWoJrd0CYNb0iwLglnI+VagltN8jALMn3wLg
+Vip9CZfR8QHArcm3ALiVdH7fEbWEADwE+RYAt1CZ21pHxwcAt9bV1cu3ABhc
+ZW7rXXR8AHBrpf6E6jwAuFQ6v79jtomODwDuoZRvRccGwDR1vW/P9SRUPwHA
+wyiMP75GxwbANOX5K3NbAFDcg3ITHRsA07N7fCjkWtlTdIwAcC+FtczP0bEB
+MC25B0Yl11pFxwgA99LV19uDEoCrNazZ2urDBMAjqdR8PEXHB8A0pP3eIi+V
+uS393wF4KIVr4zY6NgCmoTHXWkXHCQD3VKkltHYLgKrGXOtjdJwAcG85p1Lz
+AcClut4YtVzrxZotAB5NNx55bk3zNjo+AMZt91hUemN86v79KTpWALi3dH6P
+YzX2ABRVriFvcy21EgA8nFTu1/uq7gOAUxrrB+VaADy0vG65cI1cR8cHwLh0
+NeilNb9yLQD49Mc18706ewBadHnWqmGdlt4YADy8Sh2hdVsA/KGrG1z3yLM+
+dT8v1wLgIaX6/ihb10mAx9WNyX1oXJ91XBvxITp+AIjUjTuWrpeL6BgBuK+u
+xnzdjbn1ybEONtZqAfDoGnKt5+gYAbiPtN83q2+toDktADihIdeythngAewe
+yyvmsb5Y6+u6AQB/XFs/NIxPqgMBmLGB8qx8vcj94J+iXw8AjEF3fa1dP99H
+xwnAbaT2vYlrNRAfzGcBwGfdNbZWl7+MjhOA4aV+exOfy7Ge1T8AwNe662yt
+bmQZHScAw7tiTutjVxfxFP0aAGDMumtm6ZqqnxTADKV9b/c+PQc3XY6lVhAA
+GnTX2tK1dR0dIwDDS21rdt/mWYvomAFgSro6wtK45iY6RgCGl+r7fsizAOBK
+levtq3oRgPlpzLXsTQwAV8jjlZVr7SI6RgCG1VhD+KIHBgBcp6sROXetfY6O
+D4BhNazXtWYXAAZQmdtSRwgwM6ltj8VVdJwAMAeVua1ldHwADKfrjVTbX2sZ
+HScAzEGuyS9cb7fR8QEwrFwjXsm19MUAgIFU+lIto+MDYDgNvZHW0TECwJwU
+6ve30bEBMKxKHeFLdHwAMCep3AdYPQnAjFS+8/PY21N0jAAwJ5VaQj0JAWYk
+1y0YYwOA+ynUEq6jYwNgOJW5rU10fAAwN5U10++j4wNgOJW5rUV0fAAwN7vH
+Si0hwPzlMTT9CAHgvtL5PY430bEBMJzKWt130fEBwBwV1m6tomMDYBi5XsG6
+LQC4r9zzVx0/wPxV+mQso+MDgDmq9MqwdgtgJgq1hK/RsQHAXO0eH87lW9Gx
+ATCcQu34Ojo2AJirQm/CTXRsAAwj98JQSwgA97d7PMu3AOatsnZL7TgA3Eih
+F/xzdGwADKMwtraNjg0A5qyQb62iYwNgGIXv+o/RsQHAnMm3AOZv93jxXQ8A
+9yffApg/vTIAIIZ8C2D+CvnWIjo2AJgz/TIA5k++BQAx9IMHmD/5FgDESPY7
+Bpg9+RYAxNg9Ppy7DkfHBsAw5FsAECNfawvX4W+i4wPgevItAIixezy5DgPM
+m+95AIize7zqCQ8wX4Xv+Q/RsQHA3BV6wm+iYwPgevb+AIA4hR6F1nABzMDu
+8dG4GgDEqPTMeB8dHwDXKY2rRccGAI+gUNu/jo4NgOtUxtXeRccHAHNXqDVR
+Uwgwcfl7vPAdv4qOD+jP/RlMy+6xLFyLl9HxAXCd3ePlzHf8S3RsQH9dnfBr
+N2ae7+OeomMCygo1hdvo2AC4TqU30lN0fEA/Zz7T27wWJK+/N/8F49N9PvXN
+AJihvE6r8B2vLzxMTGUM5a/z1/nznextDqNQuRZvouMD4Drd2Pep7/hXY+Ew
+LY351rFce/gh6ZMDYdL5PTGt4wKYuO4+S98MmIEL863jcZZc27RUUwz3k8o9
+g7fGPwGmK5X7FJrjggkZIN86dZ+Xaw+t/YIbq8xxraLjA+ByqbxW1zoumIgb
+5FtfrSXp/sYi+rXC3FTmuDI1vwATleuGfMfD9N0h3zqe/7b2CwaUyvsfb80z
+A0xXZY7LflwwAXfOt07dC+bvkWWy9gsu0o1/ntuPK/sYHSMAl0n7dVyl7/h1
+dIxAWXC+9dU4TerWfkUfF5iSVO5jla2iYwTgMg3f8cvoGIHzRpZvHdt08ak9
+hIpU7p3hegwwYQ3f8caqYaRGnm+99Xbt11P0cYOxSfWaEzkXwESleu34q/Fp
+GKcJ5VvHtunz2i/9AODTH5/nRcNnZxkdJwD9pf1eO7Wx6WV0nMCXJpxvHTus
+/VpEH1OI1I1ByLkAZqi71/EdDxMyo3zr2CbpO8+DSuX+wQfr6DgB6K/1Oz6p
+/4FRmHG+9dZh7dcyWfvFg2i8Hr/4TABMT6r3z8i2Sd0PhHuQfOvU988ffeeT
+sR9mrDHnyuMRH6JjhSGl/VrG1Uwso4/nhedgOYJjN5RF9PE8cXxzj6RNarvv
++S87P43gOM7qHDSeow8jOHZDeYo+phM+B5sUn/9E+x/dcVgHHP+h5PfS5HLH
+NK97olGeg9SWcx3GIf5+BMfxGsvo433hOVqO4NgNZTGC49myvmVq1tHH9Ubf
+O1PyHH1cH+hYn7OMPt49zku+z38ZwTEb2mT2Hdg93qV632boK7+nRne/X/gc
+LEdwzIb2MsZzkPb3wdHH5l7W0ce757lZj+CYDS3svjTte2ZHv/5bmcR65LS/
+x4k+VrfyFH18zxzz1QiOzT28Rh/rHudkjuM+2Tb62PY4Bx9HcLyYp1GOv535
+HMx1zGGUtXlpn9/O9Zgfc18aLPCYLqJf+w2tot+zjedgNYJjdSuL6ONbOO55
+jcQjfMdP5ft9M4JjdRPRx9Y5YAQ20e/vHp+D6GN1K6voY1s45vn+fo71DZM5
+B0fnYzWCY3UTgcf0Kfq139Ak6njSvHPeUd/rd+//zQiO081EH+Me58L8Vvw5
+ML/Frayj3989PgdzHYcb5fzWm+Oea8rneh04cF8aLPi4rqNf/w28RL9fe56D
+OY7rrKOPa4/j/3c7/3cEx2xoU6rheUrzvM9ZRh/bHudgtjUkhMqf66fo93eP
+z8FqBMdsaNs0wvVbZ47/Yud/jeCYDW1q96WbERyzoa1HcFyX3bGdg1H24qkc
+/0NPsOhjN5Rl9DG94Bz8053/uvO/d/572vcojD6Ol/o40XPwlPbjm9HHbwjr
+NOJ62sI5eNfFHn38tin+2hzt/6R9j8L/lqb7fZQ/z0/R7+sLPge53vzjCI7f
+UOdgUvdE3Tn4j2l/Pf6faT8mHX0cr+G+NN6o53cB4N7SPOcYWuR7/HyPM+pa
+bAAAYLoeKN/K4/Z5/mERfcwBAIDHMON8a5v29Zq5Xm1S9UUAAMA8zCjfyr0i
+/lhPmSa4jgkAAJifiedbm2QNFgAAMFITy7cOa7AmsbcOAADw2Eaeb23Tfg3W
+MlmDBQAATMzI8q3DGqxcI/gUfWwAAACuMYJ8a9PFsIg+FgAAAEMKyLf+ugZL
+jSAAADBnd8i3tunzGqyn6NcLAABwLzfKtw5rsPRpBwAAHtZA+daLNVgAAABf
+ujDf2lqDBQAAUNaYb71agwUAANBPId/aWIMFAABwuTf51qFP+yI6JgAAgDnI
+9YHWYAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAADAtOweiyw6DgAAgLnZPdY7+T+2Ox92vomOCYBx2D2edlb5/0bHAgBT
+lPOrndcu5zpYm/MCoKuBOFwbNjvL6JgAYGq6ea1PJ2yNawI8tt3j49G1IY/R
+Pbs2AEC73ePlTM51kK+376PjBOC+uprC4zqIL+a81KIDQNlRzUiJOS+AB9N9
+75euDa9dLfq76FgBYKze9M5oZc4L4EF0420t14YXc14A8LUzvTPMeQHQpw7C
+nBcAnNGNSfbNt8x5ATyAC+ogzHkBwJG0X/98Tc5lzgtghq6ogzDnBQCdfB0c
+IN86nvNaRr8uAK6Xzu8hYs4LABql/d4qQ+Zch3FNe7YATFyq7yFizgsACgao
+GWkZ11ztvDe2CTAtqX/vjFbbbv7MdQGA2etyoVvlW6eusevuOruIfu0AlKXb
+1EG8tXY9AGDu0jC9My616a7nOe97ij4WAHyWbl8HYc4LgNnLeU5gvnXqmvsx
+mQMDGIV0/R4il4zDrdK+nlH+BcAsdNe26FyrNgeWr/lP0ccK4NGk2DqIvBZ4
+3V0D9NsA6GkE9/JMT65tyXNgq2QODODm0vB7iFxrk/RjAmgygu9s5iGPf5oD
+A7iRdPveGdfYps/9mMyBAbwxgu9o5uOvOVf0+xpgbtK+d8Z2BN/1rTbp8xzY
+U/TxA4gygu9jpklNIcCdpfvuITK0bdKPCXhAI/j+ZRrUC8IF0n7dzQYG9L9T
+/DVhKPn12JMEmLURfNcyPttkDBIGkfY9taM/0zAV26R2ApiZEXy3Em+TjC/C
+TST5FlzqUFfxFP05BrjGCL5Pua9tMncFd5PkW9Bim8xrATOV9vcCxMnjd7e8
+hm2SPVIgTJJvwSmbpK4CgBtL+zmmW13HltGvD/jjc74Ywb0tRNomdRUA3Fna
+76PyOuD1LD+XOncYmSTf4vFskn23AAi2e6wHvK4to18PcFqSbzFv27S/nuW5
+q3fRnzcAyNL191/msmAi8uc07cf64Rr/OcXnVtmmi8eaYABGK13eIyNf55bR
+8QNwP2n4+vNW+Vq1Tvt97s1dATAJqX+PjG0ylwXwsNJw9ecttRP5by3MXQEw
+RT3HKHMvp/fRMQMQJ91n/d9LN4clxwJg0hrGKPNc1spcFgBZut0ejYe5LHWC
+AMxCZYzSXBYAX0i32aPRXBYAs3RijNJcFgAnpWF7ZJjLAmDWurzKXBYATRrq
+z1tszGUB8Ai6mhBzWQBUVerPW+ay9LQFAAA4oas3v2guKzp2AACAsTqqPzeX
+BQAAMICcNzX2yDCXBQAA0EPXT8lcFgAAwIAKPTLMZQEAAFzhqEfGVk9bAACA
+63V7ZNmfEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGK3d47udH3d+
+7vZl/jY6JgAAgCnqcqvsly6/euv36PgAAADG7M2c1cFxXnXOT9GxAwAAjNHu
+8X2P3OqUP0e/BgAAgKnI67HerM2q+VN0vAAAAFOze/xaybX+Eh0jAADAFOW1
+WZV868foGAEAAKaoId/6LjpGAACAKcr1goVc69fo+AAAAKYq762lDzwAAMCw
+uv249IEHAAAYWGXP49+j4wMAAJiqSi94feABAAAukPcw1gceAABgeHltViXf
++lN0jAAAAFNU2XdLH3gAvtKt+81+7q4X31Z+/tvu5385tU64+ze9mQCYHX3g
+AThn9/j+TW71W9++Sl3/21M51tkeTfIuAOaioQ/8d9ExAnAfJ+asWv185vn6
+Po9eTQDMStIHHuDh7R4/XJEXfbVHYzeWd24uTM4FwMPI1zLXOQCOVcbjjv3p
+ze99n8p16n3pkQvAJKV6H3j18wAPLNX7134xNtflWsf/nnsyfX/ieVvXdP2e
+9MkFYIIarqOubwAPrmGu6sfu5747+tmfa9eRHnNo5rgAmJykDzwAFQ3zUDnP
++vZNrvXb8XxW5flLde2uSQBMVr5+GUsEoCSV+1782v3M4Xrya9/aiFTvk6vm
+AnhIyT6Hk9ZwfdMHHoBUuVb89KZWoneu9eZvtPTXaJ4zA5iSZJ/DWUpX9IFP
+1+2n8oXo4wDAeQ1jc4dc67dr5p9SW03hD9HHA+BayT6HD6Nybfupx/OU5i1P
++aX7eXUhACNXGZs7jJHm/3tVTUQqryc+UOcOTFayz+HDSeXajd7zi6neW/6X
+a6/HANxXZWxusDyoIa+TbwGz0/jdd2CfwwlJN+gDX8m3nEOACWq4nv820N+R
+bwEPqeG+/Is5qGSfw0lI5bqNi+YU0+k50t+Pzz0A05Da+gYOsqZKvgU8soax
+LfscTkwauA98+nLflYP8N4o9KwEYr4Zr9CBzW41/a7DcDmBsGuah7HM4Iam+
+zqr3GqsT+dsvtVwbgHGrjM0Nmv+ktv5a6iWAWUr2OZyVyhhi77z2RD7e3NsQ
+gHFqGJsr7htywd9rWWOgZgKYpcp3n30OJyYN1Ae+e67j66O6T4AZSPX124OO
+rVXGdgfP7wDGomHuyT6HE1PJbZv6wHfjnm/rTPTFAJiRVK/vG2x/j1SfS8vs
+DwPMUrLP4axU8uemscP09d5qvw153QUgXmVsbrA+Gd3faumF7B4AmKXGeSf7
+HE5EJa+tjh2mr/dWu7iGFIBxqozN/VHbMvDfaxlztXYLmKXK+NZgY1zyrbud
+z1KvqWK95olzpLYDYIYarsmD1jRUrk1/jO1FHxOAW2gY36reo/f4W/Kt25/P
+Wn382XmqE2OPehACzFQq9wocupbw23vdawCMTUMOZJ/DCUnl+viTY4ddjnZ8
+3XUeAGaqYWxu6FrClnXi6taBWWqY37fP4YRUjvFXc4fp674YehACzFxlbG7w
+a3HDvYbaFmCWGsa3Rr/PYc4HG55zCn4Z6BiX1uJ9d/Szx9fb349/BoD5SeXe
+FUNf+7+v3Wskc1vATJ243z42+n0O5VtfHIvmPvCFa618C2DmKtfjQfskpXoP
+ZPXrwGylGexzKN/64liU6uN/fnMeSvOMP0e/LwG4ncrYXPbnAf9WrU+GnoTA
+rKUZ7HMo3/riWJTyqHz8j/fVOkVdB8CMpXrvisGuAak+rmu/LWC20kz2OZRv
+/fU41OYPW3pD/vVno9+fANxGKtf3DTbf1HCf4VoDzFrD/bd9Dicktc0fHuRr
+7d3mNgEYh25srvT9P1gOlMo1F4OuEQMYo8r3oH0OJya1zR/+9Tg3/Lye8AAz
+0zA2N8hYayrXnuTxV3XrwKwl+xzOTqr3fvz17XU01es8jD0CzExlrG2QPvCp
+PIeWr1XWbAGz1zC+ZZ/DCWnInU72HEz1/dBcEwFmpHI9HmScLZ1fH2aPR+Bh
+3GN8683fss/h7c9naf7w7PUz1XuNyIMBZiLVa/uv/s6vXI/kWsDDSPY5nJXK
+MT57/Uz1ddOD5t4AxKnkQlfnQ6lca2FNMPAwKt+HmX0OJ6QhZypeP1O9b4Z8
+GGAGKmNzV42vddf7U9ciNYTAw2kY37LP4YSk8lq86vWzIf++eh9mAOJVxuYu
+/q7vcq1TdTN6YwAPqTK+ZZ/DianMTzXVhqZ63wxjkwATluprqU/2VWp83lN5
+3F+GHL8FmIpkn8PZSeVeU03nszJHdvF1GIBxqIzNXTTems7Xy6hDBx5Ww321
+fQ4nJNXXxzWfz1Tfv8s5A5ioytjcJWN0p54vz2mpHwQeWmV8yz6HE1MYW+x9
+Pis5cq+5z7Rft+c8A4xAd12u5Vpvc6av5qe6HOvHM9f3XM+i/yDAp+r4ln0O
+J6ZwrHufz0qe3Jy/vckB1YwCjEDDeNpPle//0u/JswA6yT6Hs1O5PvY+n5Xz
+9+nUmOeJ99ghJvNbACNQGZv7/c3Pfd9dB87Vl//c/ftg+8YAzEnDvbR9Dick
+1XtN9T6fqT7H9Vvl9w/XdL0nAUai8r2uFgFgIK3jWxc+t30O738+b7IW79I5
+rvS5F0seF9VbA2AEKmOhxscABlQZ37LP4cSkG63Fa5jj+v34vB5dz9WZAIxE
+wxiaMVGAAST7HM5Kqveaumq8suH6/OvhGp3267AP7wH7dAGMSGVsbpC+xABU
+a8/+uH++4Dntcxh3Pmu9pq7Kdbt8rrYf16n5TDk2wEg0jM1ZuwUwkMr4Vq85
+kWSfw3CpvBavd+5cOM+tuZZ1egAj0/A9bu0WwAAaxreOcyb7HI7cmfNw8NOA
+f6eU173l/AOMTNr3by99dxsnAxhAss/hrKR6r6lB+1V0+XRpXst7AGCEKtd2
+a7cABlKZo7DPIS3voR+O3he5nlQdCsBINYzNWbsFMJDK+JbvWwCYmVTvM2vM
+DGAADeNbvm8BYGYqteCD154DPKqG8S1rZQFgRlJbnyz7dwAMINnnEAAeSqr3
+gf8tOkaAOWgY37J2CwBmJu37B7v+A9xYw/iWtVsAMDOV2hbXf4CBJPscAsBD
+Sfu9XWprt36IjhNgDpJ9DgHgoTT0JTS/BTCAZJ9DAHgoqd6TWL8MgIE0fOca
+2wKAGeiu+S3zWl/kXN3vuR8AuEDD9659DgFgonaPb3vmVy1+jn5dAFOQ7HMI
+AABwE8k+hwAAADeR7HMIAABwE8k+hwAAAINL9jkEAAC4icZ+sOa3AAAAemjY
+c0u/DAAAgB7scwgAADAc+xwCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHCN/w/a
+YFrj
+        "], {{0, 537}, {860, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSizeRaw->{860, 537},
+      PlotRange->{{0, 860}, {0, 537}}], " ", "=", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["e", "2"]}], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           SubscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Mu]"], 
+           SubscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Nu]"]}], 
+          RowBox[{
+           SuperscriptBox["k", "2"], "[", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"p", "-", "k"}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}]], "[", 
+         RowBox[{
+          SuperscriptBox["g", "\[Mu]\[Nu]"], "-", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"1", "-", "\[Xi]"}], ")"}], 
+           FractionBox[
+            RowBox[{
+             SuperscriptBox["k", "\[Mu]"], 
+             SuperscriptBox["k", "\[Nu]"]}], 
+            SuperscriptBox["k", "2"]]}]}], "]"}]}]}]}]}]}], TraditionalForm]],
+   "InlineMath"],
+ "\[LineSeparator]There are two methods to compute this integral:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->2147191312],
+
+Cell[TextData[{
+ "Method 1: Split the integral, and compute each term separately (",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["e", "2"], TraditionalForm]], "InlineMath"],
+ " factored out):\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     RowBox[{"\[CapitalSigma]", "(", 
+      SuperscriptBox["p", "2"], ")"}]}], "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["e", "2"]}], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[CenterDot]", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", "p"}], "-", "k"}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["k", "2"], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}]]}]}]}], "+", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["e", "2"], "(", 
+       RowBox[{"1", "-", "\[Xi]"}], ")"}], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", " ", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          SubscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Mu]"], 
+          SubscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Nu]"], 
+          SuperscriptBox["k", "\[Mu]"], 
+          SuperscriptBox["k", "\[Nu]"]}], 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            SuperscriptBox["k", "2"], ")"}], "2"], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}]]}]}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1551696030],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", "p"}], "-", "k"}], ")"}], ".", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", "p"}], "-", "k"}], ")"}]}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"p", "-", "k"}], ",", "m"}], "}"}]}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"1", "-", "\[Xi]"}], ")"}], 
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Mu]"], 
+      SubscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Nu]"], 
+      SubscriptBox["k", "\[Mu]"], 
+      SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"p", "-", "k"}], ",", "m"}], "}"}]}], "]"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->327338466],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "2"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "0"}], "]"}]}], "+", 
+  RowBox[{"PVA", "[", 
+   RowBox[{"0", ",", "m"}], "]"}], "-", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"1", "-", "\[Xi]"}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVA", "[", 
+      RowBox[{"0", ",", "0"}], "]"}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"Weights", "\[Rule]", 
+         RowBox[{"{", "2", "}"}]}]}], "]"}]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m", "4"], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         RowBox[{"p", ".", "p"}]}], "+", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"p", ".", "p"}], ",", "0", ",", "m", ",", 
+        RowBox[{"Weights", "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}]}]}], ")"}]}]}]], "Output",
+ 
+ ImageSize->{432, 54},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->55326593]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->689620162],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "3"}], " ", 
+   SuperscriptBox["m", "2"]}], "-", 
+  RowBox[{"4", " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], " ", "\[Xi]"}], "-", 
+     RowBox[{"3", " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{"\[Xi]", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "3"}], "+", "\[Xi]"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "4"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+   RowBox[{"p", ".", "p"}]]}]], "Output",
+ ImageSize->{554, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->278568293]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1229375544],
+
+Cell[TextData[{
+ "Method 2: Combine both parts under a common denominator, and integrate \
+together ",
+ "(",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["e", "2"], TraditionalForm]], "InlineMath"],
+ " factored out):",
+ "\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     RowBox[{"\[CapitalSigma]", "(", 
+      SuperscriptBox["p", "2"], ")"}]}], "=", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["e", "2"]}], 
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", " ", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        RowBox[{
+         SubscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Mu]"], 
+         RowBox[{
+          SubscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Nu]"], "[", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["g", "\[Mu]\[Nu]"], 
+            SuperscriptBox["k", "2"]}], "-", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"1", "-", "\[Xi]"}], ")"}], 
+            SuperscriptBox["k", "\[Mu]"], 
+            SuperscriptBox["k", "\[Nu]"]}]}], "]"}]}], 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           SuperscriptBox["k", "2"], ")"}], "2"], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}]]}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->1174600221],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"-", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      SubscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Mu]"], 
+      SubscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", "p"}], "-", "k"}], ")"}], "\[Nu]"], 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SubscriptBox["\[DoubleStruckG]", 
+          RowBox[{"\[Mu]", ",", "\[Nu]"}]], 
+         RowBox[{"k", ".", "k"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"1", "-", "\[Xi]"}], ")"}], 
+         SubscriptBox["k", "\[Mu]"], 
+         SubscriptBox["k", "\[Nu]"]}]}], ")"}]}], "//", "Contract"}], ",", 
+    "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"p", "-", "k"}], ",", "m"}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->186890534],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    RowBox[{"(", 
+     RowBox[{"1", "+", "\[Xi]"}], ")"}]}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "0"}], "]"}]}], "+", 
+  RowBox[{"PVA", "[", 
+   RowBox[{"0", ",", "m"}], "]"}], "-", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["m", "2"]}], "+", 
+     RowBox[{
+      SuperscriptBox["m", "2"], " ", "\[Xi]"}], "+", 
+     RowBox[{"p", ".", "p"}], "-", 
+     RowBox[{"\[Xi]", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"Weights", "\[Rule]", 
+      RowBox[{"{", "2", "}"}]}]}], "]"}]}], "-", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}], "-", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["m", "4"]}], "+", 
+     RowBox[{
+      SuperscriptBox["m", "4"], " ", "\[Xi]"}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"p", ".", "p"}]}], "-", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", "\[Xi]", " ", 
+      RowBox[{"p", ".", "p"}]}], "-", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"p", ".", "p"}], ")"}], "2"], "+", 
+     RowBox[{"\[Xi]", " ", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "m", ",", 
+     RowBox[{"Weights", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}]}]}]], "Output",
+ ImageSize->{560, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->518997959]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->432932826],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "3"}], " ", 
+   SuperscriptBox["m", "2"]}], "-", 
+  RowBox[{"4", " ", 
+   RowBox[{"p", ".", "p"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], " ", "\[Xi]"}], "-", 
+     RowBox[{"3", " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{"\[Xi]", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "3"}], "+", "\[Xi]"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "4"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+   RowBox[{"p", ".", "p"}]]}]], "Output",
+ ImageSize->{554, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->61760867]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     RowBox[{"\[CapitalSigma]", "(", 
+      SuperscriptBox["p", "2"], ")"}]}], "=", 
+    RowBox[{"-", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        StyleBox["i",
+         FontColor->RGBColor[0.6666666666666666, 0., 0.]], " ", 
+        SuperscriptBox["e", "2"]}], 
+       StyleBox[
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}],
+        FontColor->RGBColor[0.6666666666666666, 0., 0.]]], "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "3"}], 
+        SuperscriptBox["m", "2"]}], "-", 
+       RowBox[{"4", 
+        SuperscriptBox["p", "2"]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "\[Xi]"}], "-", 
+          RowBox[{"3", 
+           SuperscriptBox["p", "2"]}], "+", 
+          RowBox[{"\[Xi]", " ", 
+           SuperscriptBox["p", "2"]}]}], ")"}], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            FractionBox["1", "\[Epsilon]"], 
+            StyleBox[
+             RowBox[{"-", 
+              SubscriptBox["\[Gamma]", "E"]}],
+             FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+           StyleBox[
+            RowBox[{"+", 
+             RowBox[{"ln", 
+              RowBox[{"(", 
+               RowBox[{"4", "\[Pi]"}], ")"}]}]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], "+", 
+          RowBox[{"ln", "(", 
+           FractionBox[
+            SuperscriptBox["\[Mu]", "2"], 
+            SuperscriptBox["m", "2"]], ")"}]}], ")"}]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", "3"}], "+", "\[Xi]"}], ")"}], 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["m", "4"]}], "+", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            SuperscriptBox["p", "2"], ")"}], "2"]}], 
+         SuperscriptBox["p", "2"]], 
+        RowBox[{"ln", "(", 
+         FractionBox[
+          SuperscriptBox["m", "2"], 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           SuperscriptBox["p", "2"]}]], ")"}]}]}], "]"}]}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ CellID->506964100]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Massive gauge-dependent spin-1 propagators",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1775614930],
+
+Cell[TextData[{
+ "The propagator for massive spin-1 fields in ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["R", "\[Xi]"], TraditionalForm]], "InlineMath"],
+ " gauges contains an extra piece:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     SuperscriptBox[
+      OverscriptBox["D", "~"], "\[Mu]\[Nu]"]}], "=", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["i", 
+       RowBox[{
+        SuperscriptBox["q", "2"], "-", 
+        SubsuperscriptBox["m", "A", "2"]}]]}], 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["g", "\[Mu]\[Nu]"], "-", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"1", "-", "\[Xi]"}], ")"}], 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["q", "\[Mu]"], 
+          SuperscriptBox["q", "\[Nu]"]}], 
+         RowBox[{
+          SuperscriptBox["q", "2"], "-", 
+          RowBox[{"\[Xi]", " ", 
+           SubsuperscriptBox["m", "A", "2"]}]}]]}]}], ")"}]}]}], 
+   TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]Loop integrals written in terms of propagators of this form \
+would increase the number of denominator factors due to the second term.  A \
+form that maintains the number of denominator factors is:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     SuperscriptBox[
+      OverscriptBox["D", "~"], "\[Mu]\[Nu]"]}], "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox["i", 
+        RowBox[{
+         SuperscriptBox["q", "2"], "-", 
+         SubsuperscriptBox["m", "A", "2"]}]]}], 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["g", "\[Mu]\[Nu]"], "-", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["q", "\[Mu]"], 
+          SuperscriptBox["q", "\[Nu]"]}], 
+         SubsuperscriptBox["m", "A", "2"]]}], ")"}]}], "-", 
+     RowBox[{
+      FractionBox["i", 
+       RowBox[{
+        SuperscriptBox["q", "2"], "-", 
+        RowBox[{"\[Xi]", " ", 
+         SubsuperscriptBox["m", "A", "2"]}]}]], 
+      RowBox[{"(", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["q", "\[Mu]"], 
+         SuperscriptBox["q", "\[Nu]"]}], 
+        SubsuperscriptBox["m", "A", "2"]], ")"}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1478001051],
+
+Cell[TextData[{
+ "Consider one of the diagrams contributing to the vacuum polarization \
+function in the Abelian Higgs model:\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     RowBox[{
+      SuperscriptBox["\[CapitalPi]", "\[Mu]\[Nu]"], "(", "q", ")"}]}], "=", 
+    " ", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzs3d2N48qbH+CCv+DLDkHOoEOQHUFjHYC5C9i3bqwNGHunEDoEhdBwBAqh
+Q9CFA+gMjllH7B2NRhKrKEovKT4Env+enZmWXpbY/PipPv7TP/3Pf/gf/yal
+9L/+Y/s///CP/+c///M//+O//Nd/1/4//+Vf/vd//6d/2/7Hf2v/5z/8+5Ty
+H/71118AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAMADtdu6tWl9tvat/Ifr6LoAAAAAgHG026rVtD5a
+X10GeM4qulYAAAAAoE7XB/Ct6we4be2uZICnvqLrBwAAAAD+1G4vXfbXnGR/
+3xX53yUf0fsHAAAAAPypywRvzf8ueY3ePwAAAADgum7OwPWRTc/cgdd8R+8P
+AAAAADBct75wbS64ja4bAAAAABgujwcekAu+RdcNAAAAANxmQC74El0zAAAA
+AHCbdttXZIKf0fUCAAAAALer7Cv4Hl0vAAAAAHC7ylxwFV0vAAAAAHCbynVH
+9tH1AgAAAAC3a7emIhf8iK4XAAAAALhdXkekIhdcR9cLAAAAANyu3b4LM8Hv
+6FoBAAAAgNvl/n8VfQW30fUCAAAAALfL8wVW5IJNdL0AAAAAwO3a7asiF3yJ
+rhcAAAAAuE27rSoywV10vQAAAADA7fK44Ipc8D26XgAAAADgdu32WZELvkbX
+CwAAAADcrt2+CzPBfXStAAAAAMDt2m1d0VfwI7peAAAAAOB2OeuryAXfousF
+AAAAAG7Xbl+FmeB3dK0AAAAAwO3a7aWir+BndL0AAAAAwO3aranIBZvoegEA
+AACA27XbtiIXfImuFwAAAAC4XZ4zsDAT/IqudU7abdPXptE1AgAAALBM7fZa
+0VdwE13vnMgFAQAAAJiqkuzqyGt0vXMiFwQAAABgqvLY4MJMcB9d69zIBQEA
+AACYoryGSEVfwW10vXMjFwQAAABgitqtqcgF36LrnRu54EPaeNUdx9vW7kpb
+57V1Prt/a01tAAAAYNG6LKUoF4yudY7kgndr19zP9b1iDPy5jPA9ej8AAAAA
+onT5SEmO8ln4euuBOc0Q6+j2K2gPueC47bnqsuzS47bP9sx7NBU/L1sEAAAA
+ZqfdXivyj6bwNV+6bPBH02VjOcvZ35jh5J//6F4zv/bkx4LKBUdrx5fusy85
+Tr66dl+feL9wDG5O3uuz4phcRbcNAAAAQK2SzGrs/KMyc/mxSzPoGzi0jaNr
+nLouzyvpH7gtOU67XPn09V67v6tZh2cf3TYAAAAAQ6Tyudm+RnzPdUXu8jXX
+PPBof+WCw9tula6vI/Ljsza37l77+PjfdX/+XnF8fkS3EQAAAECtyn5Ro+Uf
+7fa2pMxFLnjTcdLXRzD/fXPDe6xO3mNdkZVn1ucGAAAAZifVra3wOuL7bgve
+r4lunxH3Vy5Y32Yl8wh+jXFcnnw+tWsbT35+SwAAAIBThfnc332yRnzPvnVO
+vsfMIKdALljVVrkP664wExwlk0t1/WaP7aLbCwAAAGCIVLaOQ7Yd8T2v9cfK
+f7eKbpc7tLNcsKydVoX99UbLBI/eu7afYPYe3WYAAAAAtQr67R0bZQ61dL1/
+4m7srGcq5IJFbfRamFOPngl273/t2Lzkqfq1AgAAAMuQ6tZcvTmH6Xm/bXR7
+3Lmt5YLX2yc0Eyz9jE7so9sNAAAAYIhUNodb9jnCezVXXr+JbosHtLVc8HLb
+lGaCd513ckAuuI1uOwAAAIBaqW6dhZvmULuSCeacZ5TxyVMnF7zYLqWZ4F/3
+PlYG5IJNdPsBAAAA1MoZS0X+sbrhfS5lgvt79v2aGrng2TapyQQ3U/iMTjzl
+XJgAAADAc0vlayzs7/Aed5sjbqrkgn+0x0sqX/93N5XP6PgYjm5DAAAAgCG6
+/nol+cfHwNe/lAlul5YJdu0hF/zVFjWZYO5PuHpQXZ8VueAmuh0BAAAAaqXD
++M3S/GNd+drXMp9BGeMzkAv+1haXMuNzbprbsrKuXUVdixkDDwAAADyPnLWU
+9tWqfN3XK5lgE73fwW0uFyxshyO7B9dWOtdh1e8FAAAAwFRU9IvaVrzm+kKu
+kv9sHb3P0eSCf7dBzVo3Dxs/3NW2qqjtM7otAQAAAGqlwzjf0vyjKXzN5sLP
+576Dxlv+JRfscrfS/njZ5sH11WSWTXR7AgAAANSqzD961wdJ1hwubfel54Kl
+64xk+4D6PirqW0W3JwAAAECtKzneqV3P61xbX2QbvZ9Ts+RcsGTfT6wDaizN
+Lb+i2xMAAABgiNwXqzD/uLgObDqsL3JpTOgmeh+naKm5YDrMO1mTCe4CalxV
+1LfYNbUBAACA+eryvNL84+y8gOkwl+ClTLCJ3sepWnAuWJpDR/YVLF2fO3uL
+blMAAACAWhX5x/7Cz2+v/Mwmev8K9r8mn1qa0T+/VD9+eBt0XBTPfRh9DAMA
+AAAM0W67wvzj4+Tnrs0leDVLnJIJZG9Tthm5rVcDalgFHBM1dX5GH8MAAAAA
+tbpsrzT/eDv6uWtzCZ5aR+9nTxtEZ29Tthm5rT8r338bdExsKmq8OOcmAAAA
+wFTlrK8w+/g++pmaedfCsp2KNojO3qZsM2I7rwe8/zromNhX1LiKPoYBAAAA
+arXbR2H2kft55b6F24H50kv0vl5pg+jsbco2I7bzrvK9d0HHQ1NR4z76+AUA
+AAAYIpX3i8r5YfE6DGdMdqzlBLK3KduM1MbrAe/dBB0Pu4oat9HHLwAAAECt
+NGwNiKH20ft7pR2is7cp24zUxrXzCn6P8b4D6lxX1vkWUScAAADALVL9PIG/
+5Tapbm2GyWYoE8jepmwzQvuuBrzvx63vO7DWXWWdkx0fDwAAAHBJqu/D9SOP
+J14NeI3P6H2emlSQrUbXOMI+ls5heew1oM51ZY276LYFAAAAGGJgJvhx8hpN
+5c+vovd7ShaSC+4rj5F9UJ27yjonO2cmAAAAwCXt9laZgeRxw+sLr/Vd8Tqb
+6H2fkmfPBXO/v1uz5wfVuR5Q58P7NAIAAADcKtWN7cxjhS/Oo1b5WvvofZ+S
+BeSCQ8YQP3weylTfpzFkXRQAAACAW1XkINuC16rtE9ZE7/9ULCAXrM3bHr6/
+adj6O9votgUAAAColerWh10XvuZXxWvuottgKp45F6w8zn58PbjGl1Q3Dl62
+DQAAAMxWTf+oitdsKnOVVXQ7TMGT54K1c1hmD51bMPf7G1BjdnFcPQAAAMBU
+pcN8gaP26xvQ72ob3Q5T8OS5YO++nfGwNX7TsLVGHt6nEQAAAGAsFfnHpvJ1
+a9aY+Nbn6ulzwd2AzG39oNpyjr0fmAtuotsWAAAAoFaqG9u5rnztVWW+0kS3
+RzS54B9eH1TbkHWSH5pdAgAAAIypIg/5Hvj6NVnQPro9oj15LliduT2orvXJ
+++Zx9aVj4Af9XgAAAABES+VjJz8Hvn7tWhPr6DYJ/jzkgg/c1/Tn+OGcBzYV
+NQ76vQAAAACIlOrG+Q5e/6Eie1x8ziIXfHgueLrmzjrVjSluotsVAAAAoFbO
++iryj8HzvFX2v8pW0W0T+JnIBR+0r2eO/0335zU59iq6XQEAAABqnekrdclN
+c6ilw1jN0vnaso8b3ivnam/RbXtj/XLBO+9rOjOnYPfnq4r6vqLbFAAAAGCI
+ivzj5rG9JXnXcQ6Zs8QB77Eas+agz0Qu+Lvq46CgjteTnHr/8z6prg/t4Pwa
+AAAAIMqZ/lLXDJ5b8Oj9avphZc2A99jJBadrYC64HrmG3Hf16ySDfj36+11F
+bbPtlwoAAAAsV6pbW2Hw3IIn77mteM995Wufrnu8im7jgW30zLlgTeY2WiZ9
+9P6nmeBv+XP398W1RbcnAAAAwBBn8pFLbppb8OQ9V5WZUFP4ujnP2R/93Ca6
+fW9oo2fOBUvnszw2yhx+FzLBzcm/Oc2Wr5llf1QAAABg2SrzuVHzj3SHPoPp
+976POR8cfU66B342z5wL9u7bBasb3/c1/bnG8PbGY3O0fowAAAAAj9JuTUX+
+0Yz83jWZZO/7n+njNes53548F3wdmAvubnjPfKyfroV99vXO/Lu7ZZUAAAAA
+EVLdeM7VHd6/pl/WxbWJ05/rys5+bOcz54Ld/u0HZoPbyvd5uXCcf507nioz
+y310OwIAAAAMUdEvan+n919VZkJ/ZDlnMsHvZ+jDtYBcsHf/rtj1fcbdsbW5
+cIyfzQQH1LWNbkcAAACAWu22nkL+ker6DP5kOm9d/edynya6bUdql2fPBV8u
+ZHY1tkfHwo/3dL0f7MVMsKurdB2ebNZj1QEAAIBlSr+v0dGnuWMdqxHyoR+z
+Hz981C5PnQuW7uPItj31vFS+3mzXtQEAAACWq7Jf1OrOtYyRD13tBzY3S8gF
+u/3cPSgT3BTU0lS83i667QAAAABqpbp5/fYPqqkmpzyV+xu+RrfryO2xlFzw
+5cbPvvf4ba0La6lZh+c9uu0AAAAAalX2i9o+qKaadWCfOhPs2mMRuWC3rzkb
+3N4hE8xj5Yv7kKa68exPd8wBAAAAz6+yX1TzwLpq8sqnzQS7tlhMLni0z2+V
+2dwlu9rjItWtw/Md3VYAAAAAQ1RmL6sH19YU1rd7dG0PbofF5YLdfue+gx8D
+8sH877dDc+JUtw7PNrqdAAAAAJ5ROsx/uD2TDf1kP+voGrn7MfDSZcSfVzLC
+XZfnvY3wfvuKXLCJbh8AAAAA4Dapbh2e7GnWvQYAAACApWq394pM8Cu6XgAA
+AADgdqluHZ5NdL0AAAAAwG26eQxrxhCvo2sGAAAAAG6T1yypWfM4ul4AAAAA
+4Hbd+talueBndL0AAAAAwO3abV+RCzbR9QIAAAAAt2m318q5BVfRNQMAAAAA
+t8lrC1dkgl/R9QIAAAAAt8tZX0Uu+BFdLwAAAABwm3Z7qRxD/BZdMwAAAABw
+m7yGSE0uGF0vAAAAAHC7dttW5IKf0fUCAAAAALdrt++KXPA9ul4AAAAA4Dbt
+tq6cW/A1umYAAAAA4DZ5beGKTHAfXS8AAAAAcLt2+6rIBbfR9QIAAAAAt2m3
+VeUY4rfomgEAAACA2+Q1RCpzwZfomgEAAACA27TbZ0UmuIuuFwAAAAC4Te77
+V9lXcBNdMwAAAABwm5zzVeaC6+iaAQAAAIDhur6C33JBAAAAAFiOynkF5YIA
+AAAAMGPtthqYCWbb6PoBAAAAgDJdFtjckAcee4/eHwAAAADgl3Z7zWN9c3bX
+rSmyGzCHYIl99/pN936nXqPbAgAAAACWossBx84Ah9hFtwUAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAADL025vrY/WS3QtAAAAAMBjtNumW1f3u/UeXQ8AAAAA
+cH+5n2CXC/7Yt9bRdQEAAAAA99Vu25NsMNu1XqNrAwAAAADuI+d/Z3LBH1tz
+DwIAAADAc+r6B17KBvPcg5voGgEAAACAcbVbcyUXPJ57sImuFQAAAAAYT5f7
+9WWDP3MPrqPrBQAAAABu127vhbng8dyDq+i6AQAAAIDh8voi3VyCNdng33MP
+WpsEAAAAAOar6wNYkwse54NNdP0AAAAAQL08LnhgLvjjy9yDAAAAADA/3boi
+t2SD2ae5BwEAAABgPnJ/vxFywR/mHgQAAACAmWi3/YjZYJ578D16nwAAAACA
+6/IaIiPmgj/25h4EAAAAgOnKY3+7fn5jZ4N/dfMXrqL3EQAAAAD4U7t93CkX
+/LE19yAAAAAATEvu03fnXPBn7sFN9L4CAAAAwNi6fG19wXs6rNl7b5fef91T
++/YB2eBPPpj7J75Gf14AAAAAkOWs6ihHa07yts90mC/vx73m5Hu0n/35Cnjv
+/J45L11Ff/YAAAAAPJejrO/tKOPbPmG+N3c5d22ijxcAAAAApi/9Grf7k/l9
+HOV90TkXw+Scdpt6xj0DAAAA8NzSr3G9x7lfxJhXHm+fDp/7Kvo4BAAAAGB8
+6Ve/v5wB/WR/xvdyLGfBTesl+ngFAAAAoE46zPX3M+b3M+n3xzDb1lv08QwA
+AADA79rtJf3q/5cznN0EsiSeT+5TmvuXvkYf8wAAAABLkw5jgH/6AO7S847/
+3adfa5pkn+nX+sY/3tOv+RBP3T27Sr/y2HOaM/Vuu335fxNo31t9de2/iv6d
+AAAAAHg26bkywF36M9/7LdeLbu8HfabNBD6LseXPtIluWwAAAIC5Sr/GAn/O
+KAPcn8n7frK+VXSbTkk6zPc4l891iLxv27SQjBcAAABgiHToC9ikw3xtU14P
+5Cf3++gyv7cu87NObd3n/dK1ZfTn+cjjJh8vq+i2BwAAAIiUDn3F8rjZzwnm
+Q8fZ38/YXmtLjPv5Tzn7vbe8702SJQMAAAALcJIDTmXs6Ff6Nd73Tfb3sGNh
+O4HP/lHysb5L59eKcbwBAAAAT2diOaD8byLS/NcZ+TrK+X7Gkm+6/Von80gC
+AAAAC5N+zQ+4Dc4Bf/Kav3Oa6Hbht2PkdQK53rFrffl+Mj7HEAAAAMCJdOh7
+lzO4/QQyQH0AJywd1hmJyIt3yZrQAAAAADdJhz6BP2ODH53v5PGbWxng/HSZ
+4CPWGfnujs13xwgAAADAbVJMn8CffOfvfl7RbcDNx9BWDggAAAAwbV3friY9
+dr2QfdIX8Cl1mZ0cEAAAAGCC0q/xwY8Y6/lX9z65D2Lui7iK3n/udlytR8iL
+5YAAAAAAI0qHtWE3D8oC90c54Ev0vvOQ42uV6vub5uNkmw79RlfR+wAAAADw
+bNL91w2R7yxYKl9nxHECAAAA8EBp3Dnffhjvyc/xdSl3lgMCAAAABOrGeI42
+Njh6f5iOdBib/nOMfMkBAQAAAKalcJznpT6Bq+j6maZuDLF5JAEAAAAmqnAs
+8XfX30vOAwAAAABP4MpY4p/xweYJBAAAAIAndDSW+Mv4YAAAAABYhnZbywIB
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAeFbttmqtj2yOfLZ2na/WX91/v0XXDQAAAAD8
+ne+9nOR770f53sdRvrfr8r1bNdH7DAAAAADPpN1ej/K9t5M+fMf53n6kjG+I
+7+h2AgAAAIApOtOH7zjf254Zozs3q+g2vuGzWUfXAAAAAMBzSYc5+3YTyO3k
+gr9/Ljmn/TjZh68uo21ar9E1AgAAADBfM+7/V2MX3c4DPpfPgv36TodMd5MO
+fTxfousGAAAAYPq6fmfRmd295exsVn3r0qEP59D9Pe5TuIreFwAAAACmp+tn
+Fp3bjZn/7Y7kMbh5nePZ9aFLh75/Y7bLZ/dZr6P3DQAAAIB4abr9Bb+O8r1t
++n0NlPWRVXQb3ulzWT2gfT+SPoUAAAAAi5QOa1t83zF/2qff+/Ad53tvR/ne
+rMb5Puiz2T0wh9WnEAAAAGBhciZXmA0e53sfR/nee/q9D9/sxu1OUZfZRq4J
+o08hAAAAwAKcZHtrWdA0dJ/Fe9ef7559O/UpBAAAAICJSoe5B5uuL19kf0J9
+CgEAAAAgUNencDOhPoXv+hQCAAAAS5AOc/St9ZliCibWp3DX1fHm9wMAAAB4
+BumwLsT7mdwl5yDW3mBSJtSn8CO6LQAAAACG6Po9bfv6SEXXCdcE9yncRO8/
+AAAAQIkuQ8n5yb4i+1hF1w01Htin8Dt6XwEAAAAuSYdxwrk/1W5g9rGO3ge4
+RTrMm9l0/WNH7VMYvW8AAAAAp7o+U9sR+kutovcFxtRl5T99Cnc3/I7oLwgA
+AABMQjqME85riOxH6g/1Gb1P8AgD+xRuousGAAAAlq3LMz7HHB/ZvZ71iFmk
+gj6F1iMGAAAAQnT9mz5GGCd8bN+95ip6/2Bqut+5tbwcAAAAeLSuD9N7xTjH
+Unns5Fv0/gEAAAAAv+TMrsvuxswCv7qMUd8nAAAAAJiIdFhDZJPGW0Pkr27M
+cc4XX6P3DwAAAAA46MYJN906B2OvIdJE7x8AAAAA8Eu3nsE2jb+GSO5vuIre
+PwAAAADgoBsn/H6nccLr6P0DAAAAAH5JhzVEPkceJ/zVjT+2hggAAAAATEQ3
+TvjjDuOEP4wTBgAAAIDpSL/WEPkauW9g7mv4Fr1/AAAAAMAv6dcaImOPE343
+Thio0X03kb9L2OlfDAAAAPfTzR049hoir9H7BczPhe8n8nll4zsGAAAAGFca
+Z23h3K+nid4XYL7abV3wvUMTXScAAAA8g2788C1riGyM8QPG0J1PSs895isF
+AACAGwzMBfM4v3V07cBzqcgFj/spr6PrBgAAgLkqHEec1xBpzO8F3EvBOOJr
+31WsousHAACAuUmX1x3Jc3lZCxR4mHTbuugb310AAABAnW488bYbl7c1dxcQ
+peubXNKP+dL3Ge/R+wAAAAAA1Mv9/rr+f98D88G97zcAAAAAYJ66fPCWscW5
+D/Q6ej8AAAAAgHp5ntMu4xuaD1qbBAAAAABmKh3WLP6yNgkAAAAALI+1SQAA
+AABgmUZam6SJ3g8AAAAAoJ61SQAAAABgubq1ST5vyAc/rU0CAAAAAPPUrU1y
+y9rFH9YmAQAAAIB5GmFtkk30PgAAAAAAw1ibBAAAAACWqVub5MPaJAAAAACw
+PNYmAQAAAIDlsjYJAAAAACyXtUkAAAC4p3Z7zaLrAOA8a5MAAAAwpnZ7O+mH
+kv/7LbouAP400tokvgMCAABYuK7vyaVnx3V0fQCcd+PaJHvzDgIAACxT19+k
+by77bXSdAFyXhq9N0kTXDgAAwGN1z5Al81PtomsFoMyZOSH6bKJrBgAA4HF6
+xg2f+oyuF4A67fZe+N3Pe3StAAAA3F/huGHzCwI8ge6cf+17oG/zCwIAADy/
+inHD5p0CeCLpsDbJ9uT8nscaW48YAADgyVWOG/7pQ+J5EeCJdPngWj9wAACA
+5zdw3PDOuDIAAAAAmKeB44Y30XUDAAAAAMMMHDe8jq4bAAAAAKjXjRv+NG4Y
+AAAAAJYhrxPSrS9p3DAAAAAALEC7vRs3DAAAAADLYNwwAAAAACyLccMAAAAA
+sCzGDQMAAADAcgwcN/xl3DAAAAAAzNPAccMf0XUDAAAAAMMMHDf8Fl03AAAA
+AFDvhnHDq+jaAQAAAIB63bjhL+OGAQAAAGAZ2q3pxgIbNwwAAAAAT64bN7w1
+bhgAAAAAlsG4YQAAAABYFuOGAQAAAGA5jBsGAAAAgGUZOG44Z4gv0bUDAAAA
+APUGjhtuousGAAAAAIYZOG74NbpuABjbmfk09q336LoAAADGNiATNG4YgKfV
+brtL17/o2gAAAMaS1woxbhgADrp5dq9+NxZdIwAAwBjabW3cMAActNumpN98
+dJ0AAAC3KswFjRsGYBHa7a10To3oWgEAAG7Vzadu3DAAi9etOfItGwQAAJag
+m0vp9BnIuGEAFunCdVE2CAAAPKWuf8RbN6/SW3Q9ABBJNggAAAAAyyQbBAAA
+AIBlkg0CAAAAwDLJBgEAAABgmWSDAAAAALBMskEAAAAAWCbZIAAAAAAsk2wQ
+AAAAAJZJNggAAAAAyyQbBAAAAIBlkg0CAAAAwDLJBgEAAABgmWSDAAAAALBM
+skEAAAAAWCbZIAAAAAAsk2wQAAAAAJZJNggAAAAAyyQbBAAAAIBlkg0CAAAA
+wDLJBgEAAABgmWSDAAAAALBMskEAAAAAWCbZIAAAAAAsk2wQAAAAAJZJNggA
+AAAAyyQbBAAAAIBlkg0CAMBytdumte/u93etdXRNAMDjyAYBAGB58r39hXv+
+t+jaAIDHqcwGN9H1AgAAw7Xb+5X7/X10fQDAY1Vkg9/RtQIAAMN09/1X7/mj
+awQAHq8iG1xH1woAANRpt5ej+QTlggDAbwqzwdfoOgEAgDrt9lnQB+Azuk4A
+IE5PNriPrg8AAKjTM6fgv84Z1FpF1woAxLqQDX7rKwgAAPOS5wEqXGPQWsQA
+wN/yd4Xd94qb7v++RNcEAACU6+YULJlD/CO6VgAAAABgHO22K8gEv6LrBAAA
+AADG0Y37MacgAAAAACyEOQUBAAAAYFkq5hTcRNcKAAAAAIyjcE7BXXSdAAAA
+AMA4KuYUfImuFQAAAAC4XcWcguvoWgEAAACA25lTEAAAAACWx5yCAAAAALAs
+5hQEAAAAgGUxpyAAAAAALEu7rcwpCAAAAADL0m5f5hQEAAAAgOVotw9zCgIA
+AADAcrTbmzkFAQAAAGA5KuYUfI+uFQAAAAAYR+Gcgp/RdQIAAAAA4yicU3Bv
+TkEAAAAAeA4Vcwq+RtcKAAAAANzOnIIAAAAAsDzmFAQAAACAZTGnIAAAAAAs
+izkFAQAAAGBZctZnTkEAAAAAWI48JticggAAAACwLO22NacgAAAAACxHuzXm
+FAQAAACA5TCnIAAAAAAsS8WcgtvoWgEAAACAcRTOKfhlTkEA4Jl14yfWWXQt
+AABwb4VzCn6bUxAAeFbd2IndmXXW3P8AAPCU2m1VOKdgE10rAMC9XBk7sY+u
+DQAA7iGvIWJOQQBgybq+gtZcAwBgUdptY05BAGDJuvkE++ZTcT8EAMBT6ekv
+aE5BAGARCsZPbKJrBACAMXXjZi7NL9hE1wcA8AhX5hc8toquEwAAxpT7BJ6s
+v/ctEwQAlqTnu1JzLgMA8NS6tYmNGwYAFqlg3uVsHV0nAAAAADCers/gvicX
+3EXXCQAAAACMK8+lUtBn8C26TgAAAABgXO321ZML7qNrBAAAAADGlecQLOgz
+2ETXCQAAAACMK88j2JML5rWLX6LrBAAAAADG026rgj6Dm+g6AQAAAIBxtdu2
+oM/gKrpOAAAAAGA8eZxwl/1dywa30XUCAAAAAOPKY4ULxhO/RtcJAAAAAIyn
+6zO478kFd9F1AgAAAADjaremoM/gOrpOAAAAAGBc7fbVkwvuo2sEAAAAAMaV
++wMW9BlsousEAAAAAMaV5xHsyQXz2sUv0XUCAAAAAONpt1VBn8FNdJ0AAAAA
+wLjabVvQZ3AVXScAAAAAMJ48TrjL/q5lg9voOgEAAACAceWxwgXjiV+j6wQA
+AAAAxlPYZ3AXXScAAAAAMK52awr6DK6j6wQAAAAAxtVu+55ccB9dIwAAAAAw
+rtwfsKDPYBNdJwAAAAAwrjyPYE8umOchfImuEwAAAAAYT153uKDP4Ca6TgAA
+AABgXO22LegzuIquEwAAAAAYT878uuzvWja4ja4TAAAAABhXHitcMJ74NbpO
+AAAAAGA8eW2Rgj6Du+g6AQAAAIBxtVtT0GdwHV0nAAAAADCudtv35IJf0TUC
+AAAAAOPK/QEL+gw20XUCAAAAAOPK8wj25IK5T+FLdJ0AAAAAwHjyusMFfQY3
+0XUCAAAAAONqt21PLvitzyAAACW6uWo+u3Ep2Vt0TQAAnNduqy77u5YNbqPr
+BABg2nIGeOFe8iO6NgAAzstjhQvGE6+i6wQAYLq6uandSwIAzEgeJ6zPIAAA
+Q13pK/hjHV0jAADntVvTN89gdI0AAExTwZzV6+gaAQC4rGfsxz66PgAApqcb
+e9I3J4117AAAJqxbP844YgAAihWMO/mMrhEAgH4XxoB8+Y4XAIBzunvFa7ng
+W3SNAACU6b7zzfngrvUuEwQA4Jx2ezVHNQAAAAAsS7t99OSCH9E1AgAAAADj
+yv0Be3LBVXSNAAAAAMB48ryBPZngV3SNAAAAAMC48jrDPblgE10jAAAAADCe
+PD64JxP8y9p1AAAAAPBc2u29JxPcRtcIAAAAAIyr3fY9ueA6ukYAAAAAYDzt
+9tqTCe6jawQAAAAAxpXHCPfkgpvoGgEAAACA8eS1RFrfPbngKrpOAAAAAGA8
+7db0ZIK76BoBAAAAgHHl3K8nF2yiawQAAAAAxpPHB/dkgt/RNQIAAAAA48rr
+ifTkgtvoGgEAAACAcbXbvicXfI2uEQAAAAAYT7u99WSC++gaAQAAAIBx5THC
+Pbnge3SNAAAAAMB42u2lJxPMXqLrBAAAgDkomL//b3d43973bK2j2weYjnZr
+es4Zn9E1AgAAwFzIBYG5aLevnnPGW3SNAAAAMBdyQWAO8hrDPeeL7+gaAQAA
+YE7kgsActNtHz/niI7pGAAAAmBO5IDAHuT9gz/liFV0jAAAAzIlcEJi6PG9g
+z7niK7pGAAAAmBu5IDB17fbZc65oomsEAACAuZELAlOWxwcXnCteousEAACA
+uZELAlPWbu8954ltdI0AAAAwR3JBYMrabe88AQAAAOOTCwJT1W6vPeeIfXSN
+AAAAMFdyQWCq8hjhnnPEJrpGAAAAmCu5IDBF7fbS+u45R6yi6wQAAIC5kgsC
+U9RuTc/5YRddIwAAAMyZXBCYopz79ZwfmugaAQAAYM7kgsDU5PHBPeeG7+ga
+AQAAYO7kgsDUFJyXttE1AgAAwNzJBYGpabd9z7nhNbpGAAAAmDu5IDAl7fbW
+c17YR9cIAAAAz0AuCExJHiPcc154j64RAIB5yM+Urc/uPvIrP/9G1wQwJXJB
+YCra7aXgvPASXScAANN3ZRzKNro2gKmQCwJT0W5NzznhM7pGAADmIV2fs9p8
+1QB/yQWB6SgYQ/wWXSMAAPPQc19pbhqAv+SCwHS028eV88F3dH0AAMyHcSgA
+/eSCwFSkw7zQl84Hm+j6AACYj3RYZ+TSveU+uj6AKZALAlNyYSxxvqez3ggA
+AMUu3FceW0XXCBBNLghMTddvcNNpousBAGB+Uv+adk10jcA8tNtrOsx7dakf
+8u4R55TcX6b7zuP7TF+aQfPxywUBAAB4Nt1z/LXnzY/oGoFp63K4z8IM6+85
+CtKd1jvvark2P8Kg85pcEAAAgGd0pk/Nb/1rousDpq0ghzsnn3dGnwcr9c+N
+8GNV+bpyQQAAAJ5OOozte9hzLvA8SvOyC3Yj1/JS8d7v99jPO7SvXBAAAIC7
+KXjeXUfXCExPZQ539/NLOszBX/q+m8rXlgsCAADwdAqepTfRNQLTk/vcjZAL
+7oLq2VS+tlwQAACAp1PQ5+czukZgetKf8wq+d3+ezykfFRndaqR6irK7IVna
+M+SCJ/tQtf8AAAA8rzPP98e+o+sDpuXM9wl/zNeXytcorprr70pNpblg9TlN
+LggAAMCzSv1reK6iawSmI/05/8Afawvn80ZhrjXKuucVueD2Xq99h3aWCwIA
+AHBX7db0PHc20TUC09Fub0fnh92Vf1faZ3A1ck0352gnr12aOb6O3M5j5oI7
+uSAAAACnCvr1fETXCEzHSU528fxQ8J3Dj80INa0L3mc/wv4+5DuUwv2RCwIA
+AHCzdvu+8tw5yjg/4Dmc5GSbnn977dxyU1538j59328Mzh8rcsFR1mlKh/kb
+r837OiQXvKnPJAAAAM8r9Yz3i64PmI7KXHBbmG/dPAa34D3+mAdxwP72WY2w
+H6VtVpTxnWam0ccPAAAA01Lw3LuOrhGYhspcsHTev5vmKzjNvs7YjrS/fXY3
+vE/uJ7ireK+sdz3nk89A/28AAAB+k/rnstpE1whMQ5fBrTurgn+/L8i39jfW
+1HcOW9/w2jW54KAMst1eT9op/3fJWOJNwWtvx8pfAQAAeE49z56jzJsFLE/O
+ogrztLcb3uNaLri7sf7aXPDvc2ZhZrpK58cNrwvf9+q5OR36IB7P8TjqmskA
+AAA8h56+Kd/R9QHz1PWFu0s/u6P3eL9H3ti99mk+dy7Hu7hP6bAu8/rEJl2e
+1/Wjst0uzpt4Uvs++lgAAABgmlJ/n55VdI3APPV873Dz9w9X+tbtR6j99LXf
+CvdniO3Je+8KfuZsn8EzuWITfRwAAAAwTV2flmvPnk10jcA8pev9+W4+z1zJ
+zwa93slrn+aC713m9l24T4Mywe6914U/m/sevh79XHNSn/VGAAAAuCj1r+dp
+vnpgkILzy9W+bwWvvz/zWvuRaj/NHLfdn4+ZDW6vvH/p/IyXfCfzCgIAANCj
+5xlXfxNgsDP52iUX58u78LqXMsfmTnXvT977ljHF+ZzbO/9hqpvTUCYIAABA
+tXR5HvxBz+sAP1L/XAWD8rwLr7sfse5z35esztSwr8zstjXn1HQYv1zTP3F3
+WicAAABcki7P3f9jHV0jME85AyvNsypf91xfumbEus/VeLaPXzqMLd6k830j
+v7vvXt6HfsfSteF79/rnMsKvrj3W0Z83AAAA85L657jfRNcIzNeFDO+cVcVr
+nvbT249Y76Vz4ja6LQEAAGBsY/bjATiW+9kV5oLvha/3eue+gs2F+vbRbQkA
+AABjS9fn0P+Org+YtwvjX/8YD1v4Wqdr9e5HrvXaWsCr6LYEAACAMfU8B2fW
+tgQGG3Ms8ZmMsRm51t2tfRoBAABgLq6Mm7vLczewLBfG/p7z0fM6p+eq/R1q
+vVbfZ3RbAgAAwJhyH52eZ+FtdI3AvKU/1wqpnsPvTF++ZuQa+86FV+sDAACA
+OTozNq963i+AS9ptU9hn8Oy8BWf6HO7vUOO6oL6X6LYEAACAMeXxcZ6FgXsp
+6It3tX9y+nOOwuYONZZkl+votgQAAIAxtdu7Z2HgntL1tc9//LEGev5e4hHj
+eQtzwU10OwIAAMCYCsbPbaJrBOat4PuHH28nP3ea1zV3qm8nFwQAAGCJep6F
+d9H1AfN2pt9f71ji7meO5z/d37G+klxwF92OAAAAMLaeZ+I/xvYB1Er9c5n+
+1eWAL92/f0hfwe695IIAAAAsUrt99DwPn10nFKBUzvUK+ww2Z/oK3vX7icK6
+dtFtCAAAAGNrt7e+5/ToGoH5O8n6Lvk801dwc+e6SnJBfacBAAB4Ou226nke
+3kbXCMxfPpeUZnDnxhbfsa6Smv6Kbj8AAAC4h3bbX3ke/oquD5i/gr7J52we
+UJdcEAAAgMVK/WsC3LW/DrAMPd9BnOs3ePdzT+H45l102wEAAMA9tNt7zzPx
+OrpGYP5S/zpHxz4eVNNOLggAAMBS5dwveiwf8Pza7bUiF1w9qKbtVDJK4Lml
+w5zOx99F5P7KTXRdAACgrwzwCO32VZDDbR9YT1NQz1t0uwHzludFSJfnUnCO
+AQAgVM9Yuu/o+oDnkPrnLXhYX8Gjmq7NMfiQeQ6B59bzHYQ13gAACJX65/16
+ja4RmL9uHN2k+if3ZJWb6DYD5i+fS66d+6LrAwBg2fIYlp5n9XV0jcBz6Omf
+vA6q6f1kjF/+7/fotgKeQ+qZyzS6PgAAlq2gD886ukbgOVwZT2csHfCUer4P
+ce4DACDclXvWfXRtwPNIh/n3z51rmujaAO6hJxfcRdcHAADds/rpWqF5LJ25
+BYFRnRlTt4+uCeBe5IIAAMxFHjOcDvNjv0XXAjynM3OamssPeFo9c7Vso+sD
+AAAAAMbXkwtuousDAAAAAMYnFwQAAACAZWm3lVwQAAAAAJalm7f5Wi64jq4R
+AAAAABiXXBAAAAAAlufM+utyQQAAAAB4cnn+wJ5c8CW6RgAAAABgXH25YHR9
+AAAAAMD45IIAAAAAsDzt9nklF/yOrg8AAAAAGF+77a7kgrvo+gAAAACA8ckF
+AQAAAGB52u1LLggAAAAAy3JtzZHWR3R9AAAAAMD4enLBTXR9AAAAAMD45IIA
+AAAAsCzttu7JBZvoGgEAAACAcRXkguvoGgEAAACAcckFAQAAAGB58jhhuSAA
+AAAALEteV+RaLhhdHwAAAAAwPrkgAAAAcE67vXTzj+Xs4KO16+wv5Ag/f//Z
+/UxjHOIydMdJ033un0fHwrnjZH/09x/dz+Sff4nej6V5dC7Ybq+tt+59t0fH
+wXfFOeU1ut24rwHXnq+jf5N/5t05ZRkuXHu+Lhwn30fHybb7mXw+WkXvB3c/
+TlaV5xTXnoXqjpP37nP/OQ4unVNcexYq1d3PuvYsVJKlMFPdfVPTnbMuHa9D
+fXW/D2/R+8kox8pb93leulcaat8df43r5UM+x921z2KE18/3Te/d9e1S9jfU
+rrtmelabue6+6e7XnuRZbfbS4f765956zOPkuztPvbv2zF863M/e+9qzjt5P
+bj5OXtJj7mdde2YuHe5nN6499Bwnq3S/+9ldd65aR+8nz6m7Jr7f4XrYdw7M
+vy8ywhnp7p22afx77Gu+uuPTPdV9PtNr9ze7ga/52l23xr4e9t1/5/eUEc5E
++pUFPvLak+X77yZ6/6k6ViKvPavo/af4OFmluPvZdfT+U3yc/Fx7PiOuPcn9
+7Gyk2PvZVfT+U3ycRF57ZCncLB2+c98++Jp46bjeOP9NU3eu26THPo9dko/X
+dXSbPJM0Yi6YYjKec/bJvfdkpWlde3Idq+g24exxkp/dN+mxz2MXz4XJvfdk
+pUNuvJvAcZKPVd9jTlQ63M9uU/z97M+1x/eYE5R+5cZTufY00W3CxWNlnR7/
+/cKla8/GtYda3TG8m8AxfE6+Tq6i24i/j5NVmsaz+6Xr5Dq6jZ5Bun5//Fnw
+81N6dj/1852D6+QEJNceyo6TVZrGs/s5++QZbTLSdJ7dXXsmLE3nu6hzdsn9
+7CSkX/ezrj30HStNmkY/iHPyuW4V3UZMW5r2M9m5Y9r9VMxxkq+LHxM4Bkrk
+43kd3WZz1tO+m56fbdI0n8lOffftC3c9xl7TvK49q+g2W6I07WeyU/uk/2Dk
+sfKWZnTtSe5no46TVZpuHnhql1x7Io+VTZrPtaeJbq+lSvPKUvKzvGsPv0mH
+e+3tBI7PWvn8/B7dfkuSDuNf5nBdPLV17hv8mV9r182Fn8k5z1S/J7tmn+TI
+jzy25vQdwzE58uOPlbc0z2vPLnmWf+RxskrzeSY7tk9y5EcfK5sJfO5DeJZ/
+7HGyTvP4juHULhmH/sjjJN/PTmG8cC1ZCv8qjX+vvU+/1s/O167Nke3R3419
+7ltFt+UzS/e51/45FrYnx0nJGu1Dz33uu+s+95eeNt2c+ZnNyMfJV3csfJ4c
+J5t0v3OK++77H1vrkX+/90fHwulxcnxOGfN6l49N9933PU5e7vD7/XMsbM8c
+K5/pPtce9933P1bG/t7y2jnlM93n2pNf17XnvsfJ2N9bfl85p9zr2pOPzXV0
+Wz6zdJ/vLa/dz/4cJ2N/p76Jbstnlw5jox517dkmWQrjH8Nj9BH8mRc334ut
+B9awPjof3lpLE92uz2ik893PuS1/3tX3vN3Pvadx5pTaDqlhibp2v9aWb0f/
+dox77fzz+T4sf19RnbekQ3791r3GrbXsh9RA0ed06712Pgd8pnGuPZ8jnFNk
+Pvc5Tsb43nKXfl17VgNqyOe1Jh2uG/sRanHtGf84GSM73nefcTPkvJ9+XXvy
+sXbrted7yHmNos9pM8Jn85PprIf8Pqdf97NjXHs+otv0GXXn/VvP98f3s6uB
+NTRpnLWOv4bUQO9nNEYfwfzZbtN0shT9ZxYm3fb8vu/OUaM/L3fH9lu6La/c
+RrfvM7n1s+g+z9Gfg7pj+JZrpX4+Ze287mnHdffvbnl+z59Fvh6u7lD/z5px
+uxuO4yb6c3gW3ecxuWvP0TG8veE41s9n3M9jc8Pv7Ge603rj6ZD/vKfh157v
+ex3DS5QO9wJDf2f3D7j23PLMuIlu32eRbnt+/+kDcZfn5fRrzZOhx/HOtWfU
+z6O54Xd294Brz9B7KJnPuJ/H1LOUW649vm9YiDT8Hmr3yPNJd1wPvff+co0c
+pf2HnO/23ef2sPbvzn+7gdfIdXRbT1kqyAW7z3tI22/TA7+/TId7qo+B579t
+9GcxdzO79jQ3XHtW0W09Z2n4WIb8eW0efO1ZD6w1a6Lbeu7S8Of3/JmtH1jn
+Kg1fs2Ab3c5z17X/kPvZr0f/nqbh32Pm85/vG25v/yHn8+/u93v1wDpfXXtC
+j5OhfSE+H3ztuSVLyechWcoTS8PuoT4fea67UnftMS0bHN7eQzLBffS1Jg1f
+Vy607ilL/X12/m9lW//cP4X9bqbha5puoz+PuUrDMsFdCs7t07B15fQHG97e
+rj2UtnkzoL3zZ7SaQN2150L3s8Pb27WHkvYe8n3UFO5nV2lY3/ptdJvP1cyv
+PXvXHo6Oh9pjYR1d98k+vFde3/eukdVtXPtclj+PSc2tlQ73U7XPlk103VM0
+8H5jstfFk33Lx/pH7T5E1z03A649+wlee5rKa4/ns/o2HnLtyeenydyzpmHr
+czXRdc9Nqn9+303w2lN7bfV8Vt/OtZngfmq/j6l+fS7Xnvo2HvJ91MeUfh+7
+a0/tuNFtdN1zk+rvZ/O1Zx1d98k+bCrPi649T6byOJ5cznOyL7VzhDie69q2
+5to46fm0Un2O3ETXPDVpnFxwP7Xr4sk+1s4Rso2ueS5S/zj0U5vomq/sS22O
+7Pmsrm1rfgd3aUI5z5n9qR1j1ETXPBepbt6KSc+nlepzZPez5W1bmwlOKuc5
+2ZfaHNm1p659a38HJ9u2qT5H3kbXPBfpubKUfO2RpSxQqnsum/T57mS/mopr
+vuO5vz1rnstyuzfRNRfuV23mM9lniKD221a03dl7jrn87qW6zGcbXe/Upbrn
+sv2Mrj01mc/3XI7/4DatOUdP9l77ZJ/yNXVXsV9NdM1Tl+qey3Zz+d1LdZnP
+LrreqUuHZ96ac/Q6uubC/Vqn8sxHNljWptuK371ZrMWQ6vvPbKJrnrrKa89s
+5plOdf1nZCkzl+qey7Zz+7xT3Tryu+h6pyyVP7/s53avkermDXEvNey4OGcW
+z+8n+9tUnDM30fVOVap7Lpt0v+Mr+1eaZbmXut6WT31uTnXfN6yj652qVPcd
+9ya63oH7V3y/Hl3vVKW677hnd25Odd837Oe2fw9uy9Jz86T7HV/Zv5q+1U10
+vVOVKrOU6HoH7t++cP8+o+tl8Of8UvE5b6LrvXE/S+8BZvFdT0Abll4bZ3cP
+dbKfG/dS1W1Wev95eg+1jq79hn2uuQeY3b3iA9qv5py8ja73xv0s/U7evdT5
+Nix9bpnN9+8X9rOpOHfOdj/v2H6rinNyE13vDftZM75hdt+7PagNS8/J2znf
+56Xy71O+omudospz8uy+jzraz9LxDbPezzu2X02WMttzcpKlPL2Ka2MTXesI
++1rz/Znn+N/b7q303mLO91BH+1t6L+A5/tBepb9XT3VvkcqzQc/xf7Zd6fcM
+m+haR9rf7bPfM96p3dauPZ7jC9uu5Hllln16zuxrzfPZ7K+1I7fdprDdttG1
+jrS/pdcez/G/t1vp/d2sv48asL/7Z7jWjtx2u8LfsSa61hH2tebaM/tr7ZKk
+8u/gm+haR97v0nvHVXStU5DKv4N/iueyo/1uCn8/Fv8cX9hOx79bT/OcUnPv
+GF3rVKTy7xk20bWOvN/bwv1+mt+PG9ur9Dv4pV57PMf/arPS7xnW0bWOuM+l
+z2f7Z/r9uLHNXguPk210rSPvd+m1Zx1d61Qs8Xer4n5Wn4hfbba4LKXi2mPu
+7JlI5VnP02UeFcfzLrrWKUhl34M81XPZ0b6XnO8XnyEXXhN/PF3mUXEvtYmu
+NVp3/i1pq210rXfa///f3t0bOc4EjQGeEC4ERqDaBFTFEDYEhrCfJZfKYEOg
+L2dtWQhhQ6Cjqs/TeZKlE/Fy9j0ej+TOgAAaPw+rHud+yEYTRM80BkDJGn09
+5HOuSno9S609u8Lj6TY61mipfE3pLjrWAba9tHeuh3zOV8nY/xAd50DbfijY
+9uMSj6cdcrUvyNWiznFfbHvp8XT1a8FS+XmGXXSsA2x7aS9FD3kGUlmv5xAd
+54DbXzqW2kXHGpynXWFtXOw4onAs1UTHGZyjkrq46N9TxfhgEx1rcJ5Kfk+L
+HUdUjKX20bEG52lbWHsWNy+7yMG+IAer7yEXjuUWd477YvtLz0tto2MNzlPR
+72nh49mmIAer7iGfXv+1cCy35NqzK6y/i/2tFOap5Pd0iI5zwO0vPc+/6h5y
+Oq/Fu1wT8DGl40cqu4Zr8WPNVDaPX+1xr+L3Ppl9e8BclMzjd9FxBuWmtB+2
++LFmKltf2kTHGZifbUntWfoxN5Wt11/1OuRU1utZ/Fgzla0v3UfHGZiffUF+
+Fnue4SIPxvWP87MpyM/ij7mpfE3ENjrWwBz974L87KLjHCEPJev1Fz+uf5Cf
+XUF+mug4R8iDXsrj/NzrpUym3qTvexyTiXWEXJTM41d53CusCYs9B3+Vi82d
+3/Wl4xqPe6fXfyvYT1YzH0ll8/jF9zPu5Kakv7748ww5FyXz+MX3M+7kZq8u
+/5uLknn8asZsV7lRl//MhzHb/dw06vK/uSiZxzfRcQbl5j/U5T/yYcx2Oy8l
+62ZW0wtLZb2UfXScQbk5PMjJITq+HON3390uOsaR81EyXljVcc+44WZOSubx
+q5irXuXlf32Tk/+TVjRnLRwvHNcyXrjIy9644a+c6CH/nZNNwe9nNecZck62
+BfvJauaqF3kpGbtto+McMR96yLfzYuz2d05K6vGqesj59/N/jd3+yIm54O28
+lJyDWdvYraQer62X8t3YrYmOMcc5+RhHzscmFcxDVlYLrCm9nZeS4942Os4R
+81Eytvwf0XEG5MU85M98lNz/alW9npwX55z/zomx5e28mIf8mY+dY+zNvGwL
+8tJExzliPpynu5+bY0Ht2UTHOWI+nKe7nZd9QV720XGOmI+SY+waz9NtCvKy
+mnF+KjtP10THmWM9PIhxEx1fUE5KjnurGGOmsvnHPjrOoNyUHPdWMcZMZecR
+/190nIH5aYwx/62NJdeibKNjDcrPzhjz31yow/dzU9pD3kTHOkIuSs4zrKqf
+fpWfQ8HvaBVrwdThh7nZFuRmFfP4wjr8n9FxBubnWJCfxZ+vU4e/zY8x3O9c
+lNThXXScOdZ787RJxBeYl5Lj3qJzVFgb2zytcrydc1Ry3Fv0PL6wNrb+e3Ss
+gTnaFORn0c9TzXkoqY2H6DiDc9QU5GjR8/hU/vzhNdeeknv4LPrahgfj11WN
+1QpytPpnxhWO1ZroOINzVLJG7hAd58A5KH2e93+JjjUwRyX1+bjk2pPzUDJW
+20fHGZif0uca7aJjHTgPu5KxWnScd+Le57HmJjqeaIXHvcXO4ytq4zY61uA8
+lR73DtGxDrj9JfOy/xkda7RUNi9Z7Dw+lfUxVt3ryXkqfab3Ite1VNSeXXSs
+0VLZvOQQHeeA21/Sx2ii44xWcezdRMc60PbvCo+pi9z+ijyV9pB30bEOuP3H
+gu3fR8carfDYO7leR4/bf1jz9lfkaVtYe5bcSympPdvoWCn6PkuuoV3c/pzK
+52WrWP9bkK+S494ix1KFtXH1vZ6LfJX0UBfXG0zl87JF9ro65Gu/0tpTep6h
+iY51ClLZ/ZBbh+hYB9j20tqziY51ClJZD3mJtad0PLuPjnUKUlkPeXHj2Yra
+s/pez0W+1lp7Sn8jixqfPZGvkh7yEsezeikLk8rPHS1mf67Yj49LGz8+mbeS
+HvKixlKpbF7W2kbHOhWp/NzRYuZnqbwnuOjr7TvkrWSOsqTaUzovc57hz7yV
+zlEO0bH2uM2ltWcXHetUpPIe8pJqT+l4tomOdUpS2Tx+Mb+vytqziHrbU95K
+nqm3tNpTOp7dR8c6FUkvZRX1di0qvtvZ788V2/pr7ts6UP5KxhWLGEul8nmZ
+8yB/5650Hj/7elExhpr9tg6Qu82Kak/pvKy1jY53alL5PP4QHWsP21pae2a/
+rQPkrnQeP/vjcaobu896WwfIXek8fvbj2craM+ttHSh/pWsiDtGx9rCtpWP3
+JjrWqUnlayKWMJ5dTd9orVL53Lb9jrfR8Xbcxm3hfqw23s9h6br62dbIyjFU
+Ex3vVKXyuW2b6010vB23sXQMpTbez+G2MIezPS5XjKFa++h4p6jyuNwee2bX
+B8nbWHPcnN02jpTH/dKPy6l8zN7aRsc7RZXH5Vk+BytvY/FxMzreqarIYTPX
+43JF7XGe4X4OS4/Lc649rxXHzV10vDz1XZeeE5ldjUzl83e18ftc1oylZlUj
+87YdC7fNvOz7fJaOpWZ1viHVzd9b7in4OJ+lY6nWrNbn5m1b9LmUEXNZU3tm
+db4hndfO1hwvZ7NtQfksPT63udxFx1u5bTVj9VltW0Aua2rPYU5jvlQ3f3dP
+wce5rFlf2h7HZ9PzydvWVBwvZ7NtQfksrT2tufVS9hXbto+Ol16+85r9uZl6
+jczHu9Lrj8zLyvNaM5aaRc8n1fWOzcvKclqzxmcWdSTV9Y5bu+iY56Cy9ky+
+55Pqe8fmZWV5rekNtv9u8j35VNc7Ni8ry2lt7Wl/q1Mfz24qt2lW51AC87qr
+rD2T//2lut6xc9xlOa2tPZPv+aS63nFrGx3zHKS6sd/H1H9/ufY0NfU0OmZ6
+/f5r9ufJnmtNdWNt+3G3/JbmdrLj7lzra4535mV1+a2dn31OceyRt2Nfuc/v
+ouOekw61Z5Lj7nQeax8r9/nJHRunKtXNz77G3ZvouG9sxybVnbdUe+ryW1t7
+jlOsPXlb9pX7/CE65jlJ9ePZ/RSP2el8Xw61Z7j81taeZqK1p/a8pfFsfY5r
+a/sk85vOa2bUnpXrcLxopjKeynWxqYz/EB33HHUYS01mLp/rYs051a/4zcu6
+5bpmfvYrH4M20bHn+Nv9/GgMNUqua2vPcUK1p/Ycw69kXvZMrmvGqu2/3U8h
+1+n3OYba+NWebrmurT3NhGpP7TkG49nuud51qD276Lhz7JtU14dQe7rnurb2
+tN6nkusOtcd4tlueu/Re29qzjY49x7/tUDsP0XEz6D5Ruz+H7tOpWz/Qfvx8
+3mvXof87noqok+k8fupSF2dx/chUpW7zs18psD+YuvUDjaGez3ttv/6r9oRc
+M5prz6FDzJO/fmTKUrf5WVh/MHXrB37FrPY8l/emY+0JyXuuPV1i3kfne85S
+fW/w3/FsULybjrVHT/C5vNfeT+ay9mwC4m2PgW8dY95G53vOOv4+m6i8J70U
+Hu8fNfdcu66Tb0PXnXys26Vu/QZjqP6+hy7zs6+a0/YABh97p3P/ssvx2Riq
+v++gy/mzL20PZfC+TzqPs9+f2J+30XlegtRtfnZZezYj7MttjE3HOA/ROV6C
+VPe8zevf6mGk2rN9svYMui+vxRPfQZNGOI+Za0+XufvX/ryLzvESpG7nur9q
+z36M3+uztWfofXkNUvdz3V/fwRjj2Zf8WV33Z+ej+vke9h33k8+Rak/XvvGX
+SVwHyDieqJFfPvL+1svxJf0eO9Wumb8eQ03+fuRzkrqfk7+sQW0/ZttjPF+9
+wGf2X/fu7n9f6Vojv367hz5rZTrP29uYuo7xvuq3MVS/+0mXc/LX30nftafd
+756tPbvo3C5Jqn++2L3a08uYIP2uPe9P7r+Hvo5x/Pvd7NLz49n2PTY9xfOS
+j1HP1J5jX8c4/vhenh0P7Pv6XtLv2nN4cv81f+9/Xzk88X18jWdf+zrWp/N4
+9tna0/QVD/9+L331UjY9xfNVe54dz26jc8v4Uv2zaB7tQ+377NO5xrXHr5t1
+M++z2/zv9vn/PfObujzebaJzulTpuZ7P9ff0no9b2+yvOpX3za+/bz/7kJ4b
+z13uq3rHw+0n7fd17OF7at/jI3/3r/l9Nw8+c5v3qffUzzHtV5rQvWOWJj3f
+83lUe7Z3PvOr9rzmf//R076qdzzsvvKW+hkjtN/TIX/3X8eMW7XnRxqu9pi/
+D7efPNvzeVR77o1nv/aTt9TveNa9CIbbT9rfd5d7WtzSpKvx7J3P3KRhas/x
+3r5JL/vKsz2fR7Vnc2ff/Pr7fep3PLuPzudSpeX1UtSelUv9jbsjGGuPt5/0
+Ne6OYqw9zn7S57g7wjE5VzbWvtLXuDvKPjqHa5D6G3dHaWPfROdxDVJ/5zAj
+OG853n6yTf305qI4bznOftLXOcwozluOt6/s03zHs3op/CF1v89tpPZYvYnO
+3dqk+fWRj0mfJ2I/2aZ59ZHbfXqfjLXH3k/acfdhAt9/jSapPRH7yi7Nr/bs
+ovO2NqnbM8Sj6fOMv5+0tWc/ge++Rrtfb6Nztzap2zPEI+nzxOwnmzS/PvIh
+qT3ckbo/s0ZdXJE0j/GUe35NQOr+/N+x6+ImOldrluaxJqyNbxudqzVL3Z//
+O3btaWM01o7dV7ZJ7eH7/WSTpn9uqt2Pd9G5Wrs0/XURas8EJL0UFibv01Pr
+eX/Yh6clTXOOdkzGT5OTnnvG+BC+7g29ic4Nf+wnL2l6c7RG7ZmWCdeeNiZz
+sglJ57U+zQT2j0tqz8SkafYH2zHTLjo3/LGftLVnl6Z1zkE/cILSNPuDeil0
+luvks89AesYxf/4mOhc83E++6mRk36c91rk3z8TlOnlIcfP5dh9tz/kaP01Y
+rj37wNrz1Td2b56JS88/T7qP2rOLzgPf7idf5xyias8xH9M20bng4X7yIz3/
+POk+as82Ohd8u6+8BteeRu2ZvvS7l6L2sBj5+DdGj/CYP0ePZ4by8e8tDX+O
+pD2+/jMfS3o8s5N+95IPI9TKz1wT9XhmKJ3n8+9p+HnaMe+Pas8MXdSeMeZp
+as+MpfN49pCGH89+5mOX2jNDufbsR6g9X71AtWeG0u/x7Bi1p8l1bhO93XTa
+V8bupag9DC6dx9+71M9z1Jv8PjvHuWXJtfI1/X6O+jPHwc9cc9v32kZvG73v
+Ky95rHNIz43Bf+Z9bZ/3PfP2BRmg9hzy+xk7LUw6r03e57rxTO05qj3LNUDt
+ec+1ZxO9bfS6n1yPZ585n/mZ97c3tWd5eq49zVftScazi5J+j2cPSS+Fhck1
+c5u95ePYtbeLf+P4tlIX+8Duzn6yz+OvrTHTeuWa+bWv3NtPdl//JjpewvaT
+ktqzv/g3m+iYCdtXXvI+8PpgP1F7Vq6w9hjPUjqeVXtWrrD2GM+uXOF4Vu0B
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWInTa3fy
+IzoOABjL6bU9eYmOAwAAIEo7Jzr5lR3aeVJ0TAAwhPYc2MnbyTHXvY/omAAA
+ACK186KL3uCvPF96s4YQgCXIawMPV7Xul/WCAADA2p1em5OfN+ZL1hACMEs3
+1gZee4+OEQAAYApOr/2deZM1hADMxoO1gZd+qmcAAAC/nV6f38yjLtcQvkbH
+CwCtvO790drAa2oYAADAhbzGomQ+dbmGsF1nuImOHYD1aft7N+6R+50mOm4A
+AIApKrj26p4P6y8AGFpeG7ivWBt4bRO9DQAAAFOUzvdpv/cMEmsIAQjRcW3g
+tX30dgAAAExZvkfTM/MuawgBeFoPawOvz1t51ggAAMA3UvkzSKwhBKBXPa0N
+vOY8FQAAQIHT66Xn+Zg1hADc1fPawL9qT/T2AQAAzMnp9T5Qb/BrDeG7NYQA
+63Z67QZYG3jpp1oDAABQJz3/DJJSTTsvjN5eAMaR1wa+j1Rj9tHbCwAAMEd5
+HcfQc7bLNR3tPHEbvd0A9Cv3Anf5XNBYdeUYvd0AAABzNvIc7tJn7hO288iX
+6DwAUCad15tv0/l+gR9pnHWBt2yjcwEAADBnabhnkHRZT9jkeWY73/wRnRsA
+/q0T7TmcQ+r3efbP8KwRAACAHqRhn0HyjM88D23no9YUAgws/bkWsElxawG/
+O4+0ic4VAADAEuR54HECc72SuWCT56uvyZpCgKek81rAtzSttYDfeYvOGwAA
+wJLkPlv0XK+LY57PtvNaawoB7kjnc0Cv6fdawOjjdxef0XkEAIA1Sr+vLWK5
+5rJW5DtNsqYQWLn051rA4wSOzX14+6aOMW/O7wEATFQer0XPB6CLYzo/M/Of
++WT0bwmgb6fXJp3PhbT3i20mcNyFLpro3xIAALclfUGWpUnn+fM2+rcFUCud
+1/C35zracx7HCRxToQ9N9G8LAIDbkr4gy3BM1g4CC5CsEWR5mujfFQAAtyV9
+QeapSec5czt33kT/jgCGlM612jpC5qqJ/g0BAHBb0hdk+o7p97OJt9G/GYBo
+6feawn2yppDpa6J/MwAA3Jb0BZmeJnnuMECVtMznFLMMTfTvAwCA25K+ILGO
+6fdawJfo3wPAUqTzM0ysKWQKmujfAwAAtyV9QcbzM/1eC7hN1gICjCqd1xTu
+0vl8zOcE6gLr0ETv+wAAsCbpvEYkeh7QzjkP6TwHtRYQYGLSeU3hNv1eU/gz
+um5E5wQAAGDO8jzvOPJczlpAgAVI8WsK36JzAAAAMFe5NzdWL7CdN1oLCLBQ
++VzTbsQe4U/nlgAAAOqdXpsR5myfeY5o3gawIum8lvCQhr/e+BC9rQAAAHOT
+hnvmpLWBAPxjpDWE2+jtBAAAmIs8R7M2EIDRDLiG8Bi9bQAAAHOQ1270NSez
+NhCAKgOtIdxHbxcAAMDUnV7vPcy/GmsDAXhWXkP43sP5qvb/b6K3BwAAYKry
+/OuZOde7eRcAQ8jnm5on6tRH9DYAAABMVcf51j9rA6NjB2Ad2vNPT6wh3EbH
+DwAAMDWp7lkj1gYCEK7DGsJjdMwAAABTksqfNWJtIACTU7mGcB8dLwAAwFSk
+x88asTYQgNkoWEPoGSQAAAC/Hj5rxNpAAGbrmzWEnkECAACs3tWaimN7fZV1
+FAAsyen12vYCPYMEAADg7GKtYDtXeo2OBwCGlNcQ7vN5MGsGAQAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeNrptT3Zn3ycHE/aP9xG
+xwUAAAAA9OP02pzsTt5PPnMP8JZNdKwAAAAAQJ28BvA1rwM8nDQPeoDXPqPj
+BwAAAAD+dnr9yL2/3VXv72dF/++e9+jtAwAAeOTiWqjv1kH8zPdMav/tj+i4
+AeBZuSf4bP/vnpfo7QMAALiW10e8fXNPpEfaHuFb9HYAQF/yebLthf0zdTJ6
+ewAAAC7lOc+hp+ujWocbn7Gr+P96iwBMWl4r/3R9BAAAiJDXB74XzmU+8xqJ
+7ZV2feHxxr/fX31WzfxpE50bAHjk9Hrp0Bd8jY4bAAAg9/NK1gceSvp0eT3g
+9fu95L/7UTFnOkbnBgBKdOgLug8vAAAQJp2vGW4K5i4ftev28ntf3nOpyX/+
+VjFn8pxGAGbhznr5u3U1Ol4AAGC92uuXCtYItn+/e+IzNlefsU1192d3jRUA
+s1C5VtC9cwEAgBCp7D6Cbf/upYfP2l+9p2usAFicyvq2iY4XAABYl3S+t19T
+2BPspSeX6u4neKmJzhcAlEh1zx05RscLAACsS/r7fn+D9wQvPrt2naBrrACY
+jXR+3lZpfXPvXAAAYDR5HUPJ84Z77wnmzz906As+fQ0zAIwhnZ/PVVrfttHx
+AgAA6xDdE8wx7Ct7gsfovAFAqcI62/oZHSsAALAOFT3Bn0Ouz+vQFzxE5w4A
+SrTr/9Q3AABgSip6gq3XgWOp7QvuovMHACVOr3f1DQAAmIrKnuB+hHhq+4KD
+XM8MAH1Ldc/WUt8AAIDBtHOOijlKM1JMNX3Bz+gcAkCJ02tTUd+a6HgBAIDl
+quwJtusJNyPFVfOcxn10HgGgRHtdcEV9e4uOFwAAWK7T6zDF+Um7RqIirsGe
+fwIAfao876W+AQAAg6i8VrcZObbSex3+jM4jAJSqqG/H6FgBAIBlOr1eK3qC
+o10/nGPbVMT2EZ1LAChxem0r6tt7dLwAAMDy5L5b6XqF0e/fV9mz3EXnEwBK
+tL2+ivr2Gh0vAACwPKn8OSMh1zFVzps20fkEgBIV9dc9MgAAgN6lunsKtrYB
+MZbOmz6j8wkAJU6vHxW11z0yAACAXqW6+xq1moAYNxXxufcSALPQ3veior7t
+ouMFAACWpb0meAZrBd8q4nPvJQBm4fQ6VNS3H9HxAgAAy9Hh+uFDUJzF9z6M
+zikAlErlz/tyjwwAAKA3ldfmftlMPE73XgJgFk6vl4r6to+OFwAAWI62hzaT
+tYI1axrfovMKACUq69tLdLwAAMAypPpnjbS2QbEep7yeEQC6SOX3yDhGxwoA
+ACzH6dVU9gSboDh3FTEeo/MKACVOrx9TX68PAAAsT8e1grugWGv6l4fo3AJA
+icrzXq/R8QIAAMuQ6u8r+DMoztr+pXkTALPQnssqrW/RsQIAAMuQuj2D+D0o
+1pq1gq0f0fkFgBLtObfC2vZR+H6159KesY3OHwAAUK/t8XUY/4/+DMQO85sm
+OrcAUKKtqxX1bVf4nj9y7fyyS+fnHR9S3fO7bjnm8cMuv7fzcAAAMEMd5gbH
+oDibyjjfonMLACVyv660vm16+szae4j8yrV4G50vAADgeZXrE76Mfg1x6nYt
+1OhrGgGgi9Prs7C2ffb4mTW19VM/EAAAliV1u4Z49Gd5pPo1jSHPRQGAWul8
+ve/o5+baej7V84EAAMDwOvTbfgXE+Nahd3mIzi0AlEjne/SNvhY+lT3/eBed
+HwAAoH+p23OIe7t+qTDGdg1F6fMZzWMAmJ3C/lyva+HT9/cR+dlnDxIAAJiW
+iuuHwq4lqpgrXfNcRABmoeL816HHz3x0P8P27zbReQEAAIaT6p59+GW0Z/ym
+bs8aGX1NIwB0VbBu71Iv9/f95pxb49waAAAsXx771/bctiPF1l4/fOzYF9xH
+5xYASqS6e+g+3a/75vMO0fkAAADG0bEvOMq9hlK35ySP2rsEgGdV1OKPHj5r
+9+D9d9G5AAAAxtOl5zZSXNvruVAqv/dSb/dkB4Ah5bXxpTX4qft4POgJtvW1
+l+uTAQCA+ZhiXzD9ff3wz2/WN/S+ngIAxpDqnv+1eeJz7tXRtt565jAAAKzQ
+RPuCH1ef2a4drLmmeBedVwAokR4//+OP/t0An9E+c9jzRQAAYKWm1hdMf98L
+fZ///FgR4yY6rwBQoqK+vXd8/3s9wYOeIAAArNuU+oLpxj0F859vKuL7jM4p
+AJQ4vV4q6tu28r1/5PWAvfUYAQCAZenSFxxifUGeG10+V+T49Tk31hD2vp4C
+AMZWUd+qnqeVa+q9nuAuersBAIBp6NgX3PYcw/WahrY/+HLx901FbJ6nCMAs
+VNS3Q8V7bq/Os13W1m30NgMAANNR2XP78tbj59+6zml39ffFsUXnEwBKVNa3
+XeF77u78/8/kmcMAAMCV9Pezf0v0cg+/Oz3B/dW/ea2I6yM6nwBQorK+fXv/
+juSZwwAAQKW2D9ehL9jaPPm57b2Pjlfvebjx7+7NcwZdxwgAQ6qob8037/Po
++SKH6O0EAACmK9U9C7F4nvLNZ+7S3/c+uvl+N/7dYL1KABjLjXNj1ee80t/P
+7Lq7/h4AAOCWirnJU+sQ8pqGW9ct37zGqbJneYzOIwCUqKxvN+8LeOcc25dd
+9DYCAADzkLpfS/zPOr/v1um1f58/49b85e59jyrjOkTnEQBKtGsAnznnlR5f
+g7yP3j4AAGA+8jq+mut1b/bl0vke6tsL7bzn0XNNHt4LPd2/X9Itr9F5BIAS
++ZxaSW17v/p/j+4laP08AADQSeXavD4cvonnR+X7edYiAJNXWd9eL/7fo3sJ
+XttGbycAADAvFesXnrUviGVX8X5NdO4AoEQ6r60vqW0/L/5P6XXHRefeAAAA
+rqWy65OecSxdw5AeX3987e6zGgFgSk6v98La9pHr8qFjzbWOHgAAqPLkHOSR
+95o5Sqq73+HNZzUCwNTkc2SldfOZc3XOmQEAAJ2k83VOzz6LpNXU9u3S+Zkl
+pe//c4jtB4C+nV6bAc673XOM3l4AAGC+0nnt4HuH/mD77w9d1/Gl8musWofo
+PAFAiVR/n8Dr2rqv/D+v0dsMAADMW+4P7tL5Xkf3eoRN7uc9PQdJ5ddYtXbR
++QGAEqnu3rmX2uuJNx3e4yN6mwEAAEql+mus3FcdgFno2BN8v3qPXeX/30Rv
+NwAAQIlUd43VZ3S8AFAine/bW3vd8PbOe9Xc32Mfve0AAAAlKq+P2kfHCwAl
+Ut29cz8erYevfK9j9LYDAAB8J53vY1izlmIbHTMAlEjl9849FLzXS2W93EVv
+PwAAwCOV11j9jI4XAEqkunvnbgvf87PiPZvoHAAAADzSrpGoucYqOl4AKJEq
+7p1b8Z67yjWDm+g8AAAA3FNxjZVrogCYjVR+79ym4j3be2/UPH/kEJ0HAACA
+W1L9vZI20TEDQImK2ravfN+a54+0PcS7zzIBAACI0s6FKuY2n9HxAkCJVHfv
+3G3le28qz6ntovMBAABwLdXdP/09Ol4AKFGxpq/T87Taa48r6ucxOh8AAACX
+0vkeSTXrHV6jYwaAEqn83rmdnqdVuR6xek0iAADAkFLlMxWj4wWAEpXX+b49
+8TmlvcfO/UcAAIAhnF4H8xkAlqbt9VXUt5cnPqfq/Fry7C4AAGAi0vkZiYOv
+pwCAMbXnsgprW6d7C158zo/KWtr5Pr3p/Jww9/MAAACednptK9c4dF5PAQBj
+GnMtfO7XlX5e20P80eEzNtbvAwAAfUnlz2lsHaPjBYASlee9nl4Ln+ruZdja
+dfiMRl8QAADoy+n1WTGHOUTHCwAlKs979bIWPtXdr/dY+d7Xzz3eROcYAACY
+rw5rG9zPCIBZqDjv9dS9Ba8+c5A1g+l8/8Ljxf/bR+cXAACYt1T3nMZW9b2Q
+AGBslf25Xq/HHWLN4NXax6N6DAAAPCuVP6ex1UTHCwAl2nV4fa/Zq/jsXtcM
+pr+vH7Z2HwAAeEq+Jqlm3rKPjhkASlSe99oM8Pk1awbvPpv49HrJfz/I2kYA
+AGCd2j5fZV9wGx0zAJS46qU9fR1vh8+vXTP4ed0bvNET/DlEDxMAAFiXvFaw
+dM6kLwjAbLT1qqK2HQaMo2bN4Fdv8DXHv79Rp3fRuQUAAOYv1V1fpS8IwGyk
+P5/R8Z3dgHFsOpyDu8f1wwAAwFPyHKVLT3DQNRUA0Je87q60tm0GjmXfQ0/w
+r2uMAQAASuRe4O6JfuClt+jtAYB7Ut19/Y4jxVTTp7zWrjd8ic4rAAAwbel8
+f/Jt27vL6xOa1N/1S3/Mo/L77/LnXTN/ASBErk2TWgef67OeIAAAMJjcB+y7
+B9hFE50LANYp1a2N340YV02/Uk8QAAAAACqkunXym5Fj2xXG14wdGwAAAAAw
+nHS+/+HhRn/wZ/7zbXSMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALAk/x+UOUVf
+        "], {{0, 863}, {
+        1286, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{102.42447916666666`, Automatic},
+      ImageSizeRaw->{1286, 863},
+      PlotRange->{{0, 1286}, {0, 863}}], " ", "=", 
+     RowBox[{
+      RowBox[{"-", "4"}], 
+      SuperscriptBox["e", "2"], 
+      SubsuperscriptBox["m", "A", "2"], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"2", "\[Pi]"}], ")"}], "d"]], "[", 
+         RowBox[{
+          RowBox[{
+           FractionBox["1", 
+            RowBox[{
+             SuperscriptBox["k", "2"], "-", 
+             SubsuperscriptBox["m", "A", "2"]}]], 
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["g", "\[Mu]\[Nu]"], "-", 
+             FractionBox[
+              RowBox[{
+               SuperscriptBox["k", "\[Mu]"], 
+               SuperscriptBox["k", "\[Nu]"]}], 
+              SubsuperscriptBox["m", "A", "2"]]}], ")"}]}], "+", 
+          RowBox[{
+           FractionBox["1", 
+            RowBox[{
+             SuperscriptBox["k", "2"], "-", 
+             RowBox[{"\[Xi]", " ", 
+              SubsuperscriptBox["m", "A", "2"]}]}]], 
+           RowBox[{"(", 
+            FractionBox[
+             RowBox[{
+              SuperscriptBox["k", "\[Mu]"], 
+              SuperscriptBox["k", "\[Nu]"]}], 
+             SubsuperscriptBox["m", "A", "2"]], ")"}]}]}], "]"}], 
+        FractionBox["1", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "q"}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "H", "2"]}]]}]}]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]Write as a sum of two different integrals (",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"-", "4"}], 
+    SuperscriptBox["e", "2"], 
+    SubsuperscriptBox["m", "A", "2"]}], TraditionalForm]], "InlineMath"],
+ " factored out):\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     RowBox[{
+      SuperscriptBox["\[CapitalPi]", "\[Mu]\[Nu]"], "(", "q", ")"}]}], "=", 
+    " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], 
+      SuperscriptBox["e", "2"], 
+      SubsuperscriptBox["m", "A", "2"], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox["1", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SubsuperscriptBox["m", "A", "2"]}]], 
+        FractionBox["1", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "q"}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "H", "2"]}]], 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["g", "\[Mu]\[Nu]"], "-", 
+          FractionBox[
+           RowBox[{
+            SuperscriptBox["k", "\[Mu]"], 
+            SuperscriptBox["k", "\[Nu]"]}], 
+           SubsuperscriptBox["m", "A", "2"]]}], ")"}]}]}]}], "-", 
+     RowBox[{"4", 
+      SuperscriptBox["e", "2"], 
+      SubsuperscriptBox["m", "A", "2"], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox["1", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          RowBox[{"\[Xi]", " ", 
+           SubsuperscriptBox["m", "A", "2"]}]}]], 
+        FractionBox["1", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "q"}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "H", "2"]}]], 
+        RowBox[{"(", 
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["k", "\[Mu]"], 
+           SuperscriptBox["k", "\[Nu]"]}], 
+          SubsuperscriptBox["m", "A", "2"]], ")"}]}]}]}]}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->264074654],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]], "-", 
+     RowBox[{
+      SubscriptBox["k", "\[Mu]"], 
+      RowBox[{
+       SubscriptBox["k", "\[Nu]"], "/", 
+       SuperscriptBox["mA", "2"]}]}]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "mA"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "q"}], ",", "mH"}], "}"}]}], "]"}], "+", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     RowBox[{
+      SubscriptBox["k", "\[Nu]"], "/", 
+      SuperscriptBox["mA", "2"]}]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", 
+      RowBox[{
+       SqrtBox["\[Xi]"], "mA"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "q"}], ",", "mH"}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->645479141],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     SubscriptBox["q", "\[Mu]"], " ", 
+     SubscriptBox["q", "\[Nu]"], " ", 
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "2", ",", 
+       RowBox[{"q", ".", "q"}], ",", "mA", ",", "mH"}], "]"}]}], 
+    SuperscriptBox["mA", "2"]]}], "+", 
+  FractionBox[
+   RowBox[{
+    SubscriptBox["q", "\[Mu]"], " ", 
+    SubscriptBox["q", "\[Nu]"], " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"0", ",", "2", ",", 
+      RowBox[{"q", ".", "q"}], ",", 
+      RowBox[{"mA", " ", 
+       SqrtBox["\[Xi]"]}], ",", "mH"}], "]"}]}], 
+   SuperscriptBox["mA", "2"]], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"q", ".", "q"}], ",", "mA", ",", "mH"}], "]"}], "-", 
+     FractionBox[
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "mA", ",", "mH"}], "]"}], 
+      SuperscriptBox["mA", "2"]]}], ")"}]}], "+", 
+  FractionBox[
+   RowBox[{
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"1", ",", "0", ",", 
+      RowBox[{"q", ".", "q"}], ",", 
+      RowBox[{"mA", " ", 
+       SqrtBox["\[Xi]"]}], ",", "mH"}], "]"}]}], 
+   SuperscriptBox["mA", "2"]]}]], "Output",
+ ImageSize->{567, 77},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->764366559]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "More than four denominator factors",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1313713334],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can generate a result with integrands containing more than four \
+denominator factors.  The output is in terms of a generic Passarino-Veltman \
+function ",
+ Cell[BoxData[
+  ButtonBox["PVX",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVX"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1517648939],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{"k", ".", "p"}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "q"}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "q", "+", "p"}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", 
+      RowBox[{"2", "p"}]}], ",", "M"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->697954884],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    RowBox[{"p", ".", "q"}]}], " ", 
+   RowBox[{"PVX", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{"4", " ", 
+      RowBox[{"p", ".", "p"}]}], ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m", ",", "M", ",", "0", ",", 
+     "0"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], "-", 
+     RowBox[{"p", ".", "q"}]}], ")"}], " ", 
+   RowBox[{"PVX", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{"4", " ", 
+      RowBox[{"p", ".", "p"}]}], ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m", ",", "M", ",", "0", ",", 
+     "0"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"PVX", "[", 
+    RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{"4", " ", 
+      RowBox[{"p", ".", "p"}]}], ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m", ",", "M", ",", "0", ",", 
+     "0"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"PVX", "[", 
+    RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{"4", " ", 
+      RowBox[{"p", ".", "p"}]}], ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m", ",", "M", ",", "0", ",", 
+     "0"}], "]"}]}]}]], "Output",
+ ImageSize->{496, 112},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1076883549]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is unable to convert ",
+ Cell[BoxData[
+  ButtonBox["PVX",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVX"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to analytic expressions.  In some cases, it may be possible to reduce the \
+number of denominator factors by expanding them in partial fractions:"
+}], "ExampleText",
+ CellID->16054340],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{"k", ".", "p"}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "q"}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "q", "+", "p"}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", 
+      RowBox[{"2", "p"}]}], ",", "M"}], "}"}], ",", 
+   RowBox[{"Apart", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->246245475],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"p", ".", "p"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{"p", ".", "p"}], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"p", ".", "q"}]}], "+", 
+        RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m", ",", "0"}], "]"}]}], 
+    RowBox[{"4", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       SuperscriptBox["M", "2"], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+     RowBox[{"p", ".", "q"}]}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"p", ".", "p"}], " ", 
+    RowBox[{"PVC", "[", 
+     RowBox[{"0", ",", "0", ",", "0", ",", 
+      RowBox[{"p", ".", "p"}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", 
+      RowBox[{"q", ".", "q"}], ",", "m", ",", "m", ",", "0"}], "]"}]}], 
+   RowBox[{"4", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+    RowBox[{"p", ".", "q"}]}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["m", "2"], "2"]}], "+", 
+      FractionBox[
+       SuperscriptBox["M", "2"], "2"], "-", 
+      FractionBox[
+       RowBox[{"3", " ", 
+        RowBox[{"p", ".", "p"}]}], "2"]}], ")"}], " ", 
+    RowBox[{"PVC", "[", 
+     RowBox[{"0", ",", "0", ",", "0", ",", 
+      RowBox[{"p", ".", "p"}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", 
+      RowBox[{"q", ".", "q"}], ",", "m", ",", "M", ",", "0"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}]}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       SuperscriptBox["m", "2"], "2"], "-", 
+      FractionBox[
+       SuperscriptBox["M", "2"], "2"], "+", 
+      FractionBox[
+       RowBox[{"3", " ", 
+        RowBox[{"p", ".", "p"}]}], "2"]}], ")"}], " ", 
+    RowBox[{"PVC", "[", 
+     RowBox[{"0", ",", "0", ",", "0", ",", 
+      RowBox[{"p", ".", "p"}], ",", 
+      RowBox[{
+       RowBox[{"4", " ", 
+        RowBox[{"p", ".", "p"}]}], "+", 
+       RowBox[{"4", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", "m", ",", "M", ",", "0"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}]}], ")"}]}]], "-", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["m", "2"], "4"]}], "+", 
+      FractionBox[
+       SuperscriptBox["M", "2"], "4"], "-", 
+      RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+    RowBox[{"PVC", "[", 
+     RowBox[{"0", ",", "0", ",", "0", ",", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "-", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", "m", ",", "M", ",", "0"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "q"}]}]}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["m", "2"], "4"]}], "+", 
+      FractionBox[
+       SuperscriptBox["M", "2"], "4"], "-", 
+      RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+    RowBox[{"PVC", "[", 
+     RowBox[{"0", ",", "0", ",", "0", ",", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], ",", 
+      RowBox[{
+       RowBox[{"4", " ", 
+        RowBox[{"p", ".", "p"}]}], "+", 
+       RowBox[{"4", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", 
+      RowBox[{"q", ".", "q"}], ",", "m", ",", "M", ",", "0"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "q"}]}]}], ")"}]}]], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{"p", ".", "p"}], "2"]}], "+", 
+        RowBox[{"p", ".", "q"}]}], 
+       RowBox[{"2", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "+", 
+          RowBox[{"2", " ", 
+           RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+        RowBox[{"p", ".", "q"}]}]]}], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{"p", ".", "p"}], "2"]}], "+", 
+       RowBox[{"p", ".", "q"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p", ".", "p"}]}], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p", ".", "q"}]}]}], ")"}]}]]}], ")"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "0", ",", "0"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{"p", ".", "p"}], "2"]}], "+", 
+       RowBox[{"p", ".", "q"}]}], 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+       RowBox[{"p", ".", "q"}]}]], "-", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          FractionBox[
+           RowBox[{"p", ".", "p"}], "2"]}], "+", 
+         RowBox[{"p", ".", "q"}]}], ")"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p", ".", "p"}]}], "+", 
+         RowBox[{"4", " ", 
+          RowBox[{"p", ".", "q"}]}]}], ")"}]}]]}], ")"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"q", ".", "q"}], ",", "m", ",", "0", ",", "0"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{"p", ".", "p"}], "2"]}], "+", 
+        RowBox[{"p", ".", "q"}]}], 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "+", 
+          RowBox[{"2", " ", 
+           RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "+", 
+          RowBox[{"2", " ", 
+           RowBox[{"p", ".", "p"}]}], "+", 
+          RowBox[{"2", " ", 
+           RowBox[{"p", ".", "q"}]}]}], ")"}]}]]}], "+", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          FractionBox[
+           RowBox[{"p", ".", "p"}], "2"]}], "+", 
+         RowBox[{"p", ".", "q"}]}], ")"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"], "+", 
+         RowBox[{"2", " ", 
+          RowBox[{"p", ".", "p"}]}], "+", 
+         RowBox[{"4", " ", 
+          RowBox[{"p", ".", "q"}]}]}], ")"}]}]]}], ")"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "M", ",", "0", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{541, 471},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->264619341]
+}, Open  ]]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Options",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(7)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->774746581],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Apart",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->312884688],
+
+Cell[TextData[{
+ "Make a partial fraction expansion of all linearly dependent denominator \
+factors before expressing the integral in terms of Passarino-Veltman \
+functions:\[LineSeparator]\t",
+ Cell[BoxData[{
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox["1", 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SuperscriptBox["M", "2"]}], "]"}]]}]}]}], 
+   TraditionalForm], "\[IndentingNewLine]", 
+  FormBox[
+   RowBox[{"\t", 
+    RowBox[{"=", 
+     RowBox[{
+      FractionBox["1", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"]}], ")"}]], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], "[", 
+        RowBox[{
+         FractionBox["1", 
+          RowBox[{
+           SuperscriptBox["k", "2"], "-", 
+           SuperscriptBox["m", "2"]}]], "-", 
+         FractionBox["1", 
+          RowBox[{
+           SuperscriptBox["k", "2"], "-", 
+           SuperscriptBox["M", "2"]}]]}], "]"}]}]}]}]}], TraditionalForm]}], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->1834656470],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"exprApart", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{"1", ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "M"}], "}"}], ",", 
+    RowBox[{"Apart", "\[Rule]", "True"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2020535922],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", 
+    SuperscriptBox["M", "2"]}]], "-", 
+  FractionBox[
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "M"}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", 
+    SuperscriptBox["M", "2"]}]]}]], "Output",
+ ImageSize->{148, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1750289935]
+}, Open  ]],
+
+Cell["\<\
+Express in terms of Passarino-Veltman functions without making a partial \
+fraction expansion:\
+\>", "ExampleText",
+ CellID->99438684],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"exprNoApart", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{"1", ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "M"}], "}"}], ",", 
+    RowBox[{"Apart", "\[Rule]", "False"}]}], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1925987133],
+
+Cell[BoxData[
+ RowBox[{"PVB", "[", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "m", ",", "M"}], "]"}]], "Output",
+ ImageSize->{119, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->730735499]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " should generate equivalent expressions for any setting of ",
+ Cell[BoxData[
+  ButtonBox["Apart",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate#1834656470"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->511572744],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopRefine", "[", "exprApart", "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "exprNoApart", "]"}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1626069467],
+
+Cell[BoxData[
+ RowBox[{"1", "+", 
+  FractionBox["1", "\[Epsilon]"], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["M", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{
+    RowBox[{"-", 
+     SuperscriptBox["m", "2"]}], "+", 
+    SuperscriptBox["M", "2"]}]], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["m", "2"]], "]"}]}]], "Output",
+ ImageSize->{188, 46},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->174446419],
+
+Cell[BoxData[
+ RowBox[{"1", "+", 
+  FractionBox["1", "\[Epsilon]"], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", 
+    SuperscriptBox["M", "2"]}]], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["M", "2"]], "]"}]}]], "Output",
+ ImageSize->{188, 46},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->605785978]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->288753120],
+
+Cell[TextData[{
+ "Making a partial fraction expansion leads to (usually removable) kinematic \
+singularities:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["I", "2"], "=", 
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox["1", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", "q"}], ")"}], "2"], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", "q", "+", "p"}], ")"}], "2"]}]]}]}]}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ CellID->1908129267],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{"1", ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "q"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "q", "+", "p"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"Apart", "\[Rule]", "True"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1086677077],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m", ",", "0"}], "]"}], 
+   RowBox[{"2", " ", 
+    RowBox[{"p", ".", "q"}]}]], "-", 
+  FractionBox[
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{"q", ".", "q"}], ",", "m", ",", "m", ",", "0"}], "]"}], 
+   RowBox[{"2", " ", 
+    RowBox[{"p", ".", "q"}]}]], "+", 
+  FractionBox[
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{"q", ".", "q"}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "0", ",", "0"}], "]"}], 
+   RowBox[{"2", " ", 
+    RowBox[{"p", ".", "q"}]}]], "-", 
+  FractionBox[
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"q", ".", "q"}], ",", "m", ",", "0", ",", "0"}], "]"}], 
+   RowBox[{"2", " ", 
+    RowBox[{"p", ".", "q"}]}]]}]], "Output",
+ ImageSize->{334, 135},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1362073213]
+}, Open  ]],
+
+Cell[TextData[{
+ "The kinematic point ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"p", ".", "q"}], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ", which may be of interest, is not accessible by a simple replacement ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{"p", ".", "q"}], "\[Rule]", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Instead, define ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{"p", ".", "q"}], "=", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " before evaluating ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " so that an appropriate partial fraction expansion is applied:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1759194991],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"p", ".", "q"}], "=", "0"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{"1", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "q"}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "q", "+", "p"}], ",", "0"}], "}"}], ",", 
+   RowBox[{"Apart", "\[Rule]", "True"}]}], "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1591673636],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVC", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", 
+    RowBox[{"p", ".", "p"}], ",", 
+    RowBox[{"q", ".", "q"}], ",", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], "+", 
+     RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m", ",", "0", ",", 
+    RowBox[{"Weights", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "1", ",", "1"}], "}"}]}]}], "]"}], "-", 
+  RowBox[{"PVC", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", 
+    RowBox[{"p", ".", "p"}], ",", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], "+", 
+     RowBox[{"q", ".", "q"}]}], ",", 
+    RowBox[{"q", ".", "q"}], ",", "m", ",", "m", ",", "0", ",", 
+    RowBox[{"Weights", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "1", ",", "1"}], "}"}]}]}], "]"}], "+", 
+  RowBox[{"PVC", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", 
+    RowBox[{"q", ".", "q"}], ",", 
+    RowBox[{"p", ".", "p"}], ",", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], "+", 
+     RowBox[{"q", ".", "q"}]}], ",", "m", ",", "0", ",", "0", ",", 
+    RowBox[{"Weights", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}]], "Output",
+ ImageSize->{420, 42},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1561383278]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->660005793],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "4"], "-", 
+    RowBox[{"2", " ", 
+     SuperscriptBox["m", "2"], " ", 
+     RowBox[{"q", ".", "q"}]}], "+", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], " ", 
+     RowBox[{"q", ".", "q"}]}], "+", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"q", ".", "q"}], ")"}], "2"]}]], "+", 
+  FractionBox[
+   RowBox[{"Log", "[", 
+    RowBox[{"-", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{"p", ".", "p"}]]}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "4"], "-", 
+    RowBox[{"2", " ", 
+     SuperscriptBox["m", "2"], " ", 
+     RowBox[{"q", ".", "q"}]}], "+", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], " ", 
+     RowBox[{"q", ".", "q"}]}], "+", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"q", ".", "q"}], ")"}], "2"]}]], "-", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"q", ".", "q"}]}]], "]"}]}], 
+   RowBox[{
+    RowBox[{"p", ".", "p"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"q", ".", "q"}]}], "+", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], " ", 
+       RowBox[{"q", ".", "q"}]}], "+", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"q", ".", "q"}], ")"}], "2"]}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"p", ".", "p"}], "-", 
+       RowBox[{"q", ".", "q"}]}]], "]"}]}], 
+   RowBox[{
+    RowBox[{"p", ".", "p"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"q", ".", "q"}]}], "+", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], " ", 
+       RowBox[{"q", ".", "q"}]}], "+", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"q", ".", "q"}], ")"}], "2"]}], ")"}]}]]}]], "Output",
+ ImageSize->{480, 103},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1810601736]
+}, Open  ]],
+
+Cell[TextData[{
+ "Alternatively, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can give a result by carefully taking the appropriate limit:"
+}], "ExampleText",
+ CellID->1536913604],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"p", ".", "q"}], "=."}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", ".", "q"}], ",", "0", ",", "0"}], "}"}]}], "]"}]}], "Input",
+ 
+ CellLabel->"In[4]:=",
+ CellID->2010795686],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], 
+      RowBox[{
+       SuperscriptBox["m", "4"], "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        RowBox[{"q", ".", "q"}]}], "+", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], " ", 
+        RowBox[{"q", ".", "q"}]}], "+", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"q", ".", "q"}], ")"}], "2"]}]], "+", 
+     FractionBox[
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{"p", ".", "p"}]]}], "]"}], 
+      RowBox[{
+       SuperscriptBox["m", "4"], "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        RowBox[{"q", ".", "q"}]}], "+", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], " ", 
+        RowBox[{"q", ".", "q"}]}], "+", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"q", ".", "q"}], ")"}], "2"]}]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+       RowBox[{"q", ".", "q"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          RowBox[{"q", ".", "q"}]}]], "]"}]}], 
+      RowBox[{
+       RowBox[{"Kallen\[Lambda]", "[", 
+        RowBox[{
+         RowBox[{"p", ".", "p"}], ",", 
+         RowBox[{"q", ".", "q"}], ",", 
+         RowBox[{
+          RowBox[{"p", ".", "p"}], "+", 
+          RowBox[{"q", ".", "q"}]}]}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "4"], "-", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"], " ", 
+          RowBox[{"q", ".", "q"}]}], "+", 
+         RowBox[{
+          RowBox[{"p", ".", "p"}], " ", 
+          RowBox[{"q", ".", "q"}]}], "+", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"q", ".", "q"}], ")"}], "2"]}], ")"}]}]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         RowBox[{"p", ".", "p"}], "-", 
+         RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+       RowBox[{"q", ".", "q"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          RowBox[{"p", ".", "p"}], "-", 
+          RowBox[{"q", ".", "q"}]}]], "]"}]}], 
+      RowBox[{
+       RowBox[{"Kallen\[Lambda]", "[", 
+        RowBox[{
+         RowBox[{"p", ".", "p"}], ",", 
+         RowBox[{"q", ".", "q"}], ",", 
+         RowBox[{
+          RowBox[{"p", ".", "p"}], "+", 
+          RowBox[{"q", ".", "q"}]}]}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "4"], "-", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"], " ", 
+          RowBox[{"q", ".", "q"}]}], "+", 
+         RowBox[{
+          RowBox[{"p", ".", "p"}], " ", 
+          RowBox[{"q", ".", "q"}]}], "+", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"q", ".", "q"}], ")"}], "2"]}], ")"}]}]]}], ")"}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"p", ".", "q"}], "]"}], "1"],
+    SeriesData[
+     X`LDot[$CellContext`p, $CellContext`q], 0, {}, 0, 1, 1],
+    Editable->False]}],
+  SeriesData[
+   X`LDot[$CellContext`p, $CellContext`q], 0, {X`DiscB[
+       X`LDot[$CellContext`p, $CellContext`p], $CellContext`m, \
+$CellContext`m]/($CellContext`m^4 - 2 $CellContext`m^2 
+     X`LDot[$CellContext`q, $CellContext`q] + 
+     X`LDot[$CellContext`p, $CellContext`p] 
+      X`LDot[$CellContext`q, $CellContext`q] + 
+     X`LDot[$CellContext`q, $CellContext`q]^2) + ($CellContext`m^4 - 
+       2 $CellContext`m^2 X`LDot[$CellContext`q, $CellContext`q] + 
+       X`LDot[$CellContext`p, $CellContext`p] 
+        X`LDot[$CellContext`q, $CellContext`q] + 
+       X`LDot[$CellContext`q, $CellContext`q]^2)^(-1) 
+     Log[-$CellContext`m^2/X`LDot[$CellContext`p, $CellContext`p]] + 
+    8 X`Kallen\[Lambda][
+        X`LDot[$CellContext`p, $CellContext`p], 
+        X`LDot[$CellContext`q, $CellContext`q], 
+        X`LDot[$CellContext`p, $CellContext`p] + 
+        X`LDot[$CellContext`q, $CellContext`q]]^(-1) ($CellContext`m^2 - 
+      X`LDot[$CellContext`q, $CellContext`q]) 
+     X`LDot[$CellContext`q, $CellContext`q] ($CellContext`m^4 - 
+       2 $CellContext`m^2 X`LDot[$CellContext`q, $CellContext`q] + 
+       X`LDot[$CellContext`p, $CellContext`p] 
+        X`LDot[$CellContext`q, $CellContext`q] + 
+       X`LDot[$CellContext`q, $CellContext`q]^2)^(-1) 
+     Log[$CellContext`m^2/($CellContext`m^2 - 
+       X`LDot[$CellContext`q, $CellContext`q])] - 8 X`Kallen\[Lambda][
+       X`LDot[$CellContext`p, $CellContext`p], 
+       X`LDot[$CellContext`q, $CellContext`q], 
+       X`LDot[$CellContext`p, $CellContext`p] + 
+       X`LDot[$CellContext`q, $CellContext`q]]^(-1) ($CellContext`m^2 - 
+     X`LDot[$CellContext`p, $CellContext`p] - 
+     X`LDot[$CellContext`q, $CellContext`q]) 
+    X`LDot[$CellContext`q, $CellContext`q] ($CellContext`m^4 - 
+      2 $CellContext`m^2 X`LDot[$CellContext`q, $CellContext`q] + 
+      X`LDot[$CellContext`p, $CellContext`p] 
+       X`LDot[$CellContext`q, $CellContext`q] + 
+      X`LDot[$CellContext`q, $CellContext`q]^2)^(-1) 
+    Log[$CellContext`m^2/($CellContext`m^2 - 
+      X`LDot[$CellContext`p, $CellContext`p] - 
+      X`LDot[$CellContext`q, $CellContext`q])]}, 0, 1, 1],
+  Editable->False]], "Output",
+ ImageSize->{485, 175},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->2023783732]
+}, Open  ]]
+}, Open  ]],
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1845492051]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Cancel",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->972435106],
+
+Cell[TextData[{
+ "If the integrand does not contain kinematic singularities and if the \
+external vectors are linearly independent, ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", by default, cancels common factors in the numerator and denominator \
+before expressing the integral in terms of Passarino-Veltman functions:\
+\[LineSeparator]\t",
+ Cell[BoxData[{
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       SuperscriptBox["k", "2"], 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], 
+   TraditionalForm], "\[IndentingNewLine]", 
+  FormBox[
+   RowBox[{"\t", 
+    RowBox[{"=", 
+     RowBox[{
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SuperscriptBox["m", "2"]}], ")"}], "+", 
+          SuperscriptBox["m", "2"]}], 
+         RowBox[{
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}]]}]}]}]}]}], 
+   TraditionalForm], "\[IndentingNewLine]", 
+  FormBox[
+   RowBox[{"\t", 
+    RowBox[{"=", 
+     RowBox[{
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], "[", 
+        RowBox[{
+         FractionBox["1", 
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}]], "+", 
+         RowBox[{
+          SuperscriptBox["m", "2"], 
+          FractionBox["1", 
+           RowBox[{
+            RowBox[{"[", 
+             RowBox[{
+              SuperscriptBox["k", "2"], "-", 
+              SuperscriptBox["m", "2"]}], "]"}], "[", 
+            RowBox[{
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+             SuperscriptBox["m", "2"]}], "]"}]]}]}], "]"}]}]}]}]}], 
+   TraditionalForm]}], "InlineMath"]
+}], "ExampleText",
+ CellID->377984336],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"exprCancel", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"k", ".", "k"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1081547396],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVA", "[", 
+   RowBox[{"0", ",", "m"}], "]"}], "+", 
+  RowBox[{
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{223, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1870301010]
+}, Open  ]],
+
+Cell["\<\
+Express in terms of Passarino-Veltman functions without canceling common \
+factors:\
+\>", "ExampleText",
+ CellID->1895969561],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"exprNoCancel", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"k", ".", "k"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"Cancel", "\[Rule]", "False"}]}], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1687008567],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"\[ScriptD]", " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{308, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->487242306]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " should generate equivalent expressions for any setting of ",
+ Cell[BoxData[
+  ButtonBox["Cancel",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate#377984336"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->453824381],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopRefine", "[", "exprCancel", "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "exprNoCancel", "]"}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1836748495],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"3", " ", 
+   SuperscriptBox["m", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{294, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->474627769],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"3", " ", 
+   SuperscriptBox["m", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{294, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1314648625]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1235641065],
+
+Cell[TextData[{
+ "Setting ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Cancel",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#377984336"], "\[Rule]", 
+   ButtonBox["False",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/False"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can lead to complicated expressions involving Gramian functions ",
+ Cell[BoxData[
+  ButtonBox["Kallen\[Lambda]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenLambda"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["Kibble\[Phi]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KibblePhi"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       SuperscriptBox["k", "2"], 
+       RowBox[{
+        RowBox[{
+         RowBox[{"[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "-", "p"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", "q"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->1464119787],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"k", ".", "k"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "p"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "q"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"Cancel", "\[Rule]", "False"}]}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1921384003],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "\[Epsilon]"], "+", 
+  FractionBox[
+   RowBox[{"32", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "q"}], ")"}], "2"], "-", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], " ", 
+       RowBox[{"q", ".", "q"}]}]}], ")"}]}], 
+   RowBox[{"Kallen\[Lambda]", "[", 
+    RowBox[{
+     RowBox[{"4", " ", 
+      RowBox[{"p", ".", "p"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}]}], "]"}]], "+", 
+  FractionBox[
+   RowBox[{"128", " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "-", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m"}], "]"}], " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"p", ".", "q"}], ")"}], "2"], "-", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], " ", 
+        RowBox[{"q", ".", "q"}]}]}], ")"}], "2"]}], 
+   SuperscriptBox[
+    RowBox[{"Kallen\[Lambda]", "[", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "-", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}]}], "]"}], "2"]], "+", 
+  FractionBox[
+   RowBox[{"128", " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m"}], "]"}], " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"p", ".", "q"}], ")"}], "2"], "-", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], " ", 
+        RowBox[{"q", ".", "q"}]}]}], ")"}], "2"]}], 
+   SuperscriptBox[
+    RowBox[{"Kallen\[Lambda]", "[", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "-", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}]}], "]"}], "2"]], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["m", "2"]], "]"}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"256", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"p", ".", "q"}], ")"}], "2"], "-", 
+        RowBox[{
+         RowBox[{"p", ".", "p"}], " ", 
+         RowBox[{"q", ".", "q"}]}]}], ")"}], "2"], " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{
+       RowBox[{"4", " ", 
+        RowBox[{"p", ".", "p"}]}], ",", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"p", ".", "q"}]}], "+", 
+        RowBox[{"q", ".", "q"}]}], ",", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], "+", 
+        RowBox[{"2", " ", 
+         RowBox[{"p", ".", "q"}]}], "+", 
+        RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+    ")"}], "/", 
+   SuperscriptBox[
+    RowBox[{"Kallen\[Lambda]", "[", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       RowBox[{"p", ".", "p"}]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "-", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "+", 
+       RowBox[{"2", " ", 
+        RowBox[{"p", ".", "q"}]}], "+", 
+       RowBox[{"q", ".", "q"}]}]}], "]"}], "2"]}]}]], "Output",
+ ImageSize->{428, 192},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->682802741]
+}, Open  ]],
+
+Cell["\<\
+Expanding out these functions may lead to a simplified result:\
+\>", "ExampleText",
+ CellID->10629822],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"%", "//", "KallenExpand"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->186624977],
+
+Cell[BoxData[
+ RowBox[{"2", "+", 
+  FractionBox["1", "\[Epsilon]"], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["m", "2"]], "]"}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{
+     RowBox[{"4", " ", 
+      RowBox[{"p", ".", "p"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "q"}]}], "+", 
+      RowBox[{"q", ".", "q"}]}], ",", "m", ",", "m", ",", "m"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{520, 67},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->233982998]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Dimensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1717275433],
+
+Cell[TextData[{
+ "Compute a loop integral in ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"6", "-", 
+    RowBox[{"2", "\[Epsilon]"}]}], TraditionalForm]], "InlineMath"],
+ " dimensions:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox[
+         StyleBox["k", "TI"], "2"], "+", 
+        RowBox[{"2", 
+         RowBox[{"k", ".", "p"}]}], "+", 
+        RowBox[{"\[ScriptD]", " ", 
+         SuperscriptBox["p", "2"]}]}], 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "2"], 
+        SuperscriptBox["k", "2"]}]]}]}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->810408792],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"k", ".", "k"}], "+", 
+    RowBox[{"2", 
+     RowBox[{"k", ".", "p"}]}], "+", 
+    RowBox[{"\[ScriptD]", " ", 
+     RowBox[{"p", ".", "p"}]}]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "0"}], "}"}], ",", 
+   RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->619276869],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVA", "[", 
+   RowBox[{"0", ",", "0", ",", 
+    RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{"\[ScriptD]", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "0", ",", 
+     RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}]}]}]], "Output",
+ ImageSize->{510, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->577842590]
+}, Open  ]],
+
+Cell[TextData[{
+ "To be consistent, also set ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Dimensions",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#810408792"], "\[Rule]", "6"}]], 
+  "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (and ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") to take the limit ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptD]", "\[Rule]", 
+    RowBox[{"6", "-", 
+     RowBox[{"2", "\[Epsilon]"}]}]}], TraditionalForm]], "InlineMath"],
+ " when converting to explicit expression:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->815728647],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"%", ",", 
+   RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2069635385],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["17", "9"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"]}], "+", 
+  RowBox[{
+   FractionBox["5", "6"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        RowBox[{"p", ".", "p"}]]}], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{246, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->713214359]
+}, Open  ]],
+
+Cell[TextData[{
+ "To interpret the result, (1) restore an overall factor of ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{
+     FractionBox["i", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"4", "\[Pi]"}], ")"}], 
+       RowBox[{"6", "/", "2"}]]], "=", 
+     FractionBox["i", 
+      RowBox[{"64", 
+       SuperscriptBox["\[Pi]", "3"]}]]}],
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ ", and (2) read ",
+ Cell[BoxData[
+  FractionBox["1", 
+   ButtonBox["\[Epsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "-", 
+     SubscriptBox["\[Gamma]", "E"], "+", 
+     RowBox[{"ln", "(", 
+      RowBox[{"4", "\[Pi]"}], ")"}]}],
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ ":\[LineSeparator]Therefore,   ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox[
+          StyleBox["k", "TI"], "2"], "+", 
+         RowBox[{"2", 
+          RowBox[{"k", ".", "p"}]}], "+", 
+         RowBox[{"\[ScriptD]", " ", 
+          SuperscriptBox["p", "2"]}]}], 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], 
+         SuperscriptBox["k", "2"]}]]}]}]}], " ", "=", "  ", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"64", 
+        SuperscriptBox["\[Pi]", "3"]}]],
+      FontColor->RGBColor[
+       0.6667429617761501, 0.011367971313038834`, 0.011367971313038834`]], 
+     "[", 
+     RowBox[{
+      RowBox[{
+       FractionBox["17", "9"], 
+       SuperscriptBox["p", "2"]}], "+", 
+      RowBox[{
+       FractionBox["5", "6"], 
+       RowBox[{
+        SuperscriptBox["p", "2"], "(", 
+        RowBox[{
+         RowBox[{
+          FractionBox["1", "\[Epsilon]"], 
+          StyleBox[
+           RowBox[{"-", 
+            SubscriptBox["\[Gamma]", "E"]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+         StyleBox["+",
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+         StyleBox[
+          RowBox[{"ln", "(", 
+           RowBox[{"4", "\[Pi]"}], ")"}],
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], "-", 
+         RowBox[{"ln", "(", 
+          FractionBox[
+           SuperscriptBox["\[Mu]", "2"], 
+           RowBox[{"-", 
+            SuperscriptBox["p", "2"]}]], ")"}]}], " ", ")"}]}]}], "]"}]}], 
+   TraditionalForm]], "InlineMath"],
+ "."
+}], "ExampleText",
+ Deletable->True,
+ CellID->989783212]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "DiracAlgebra",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1085758112],
+
+Cell["\<\
+Make a covariant decomposition of the integral without applying the Dirac \
+algebra (uses only the property of linearity of gamma matrix multiplication). \
+ Positions of gamma matrices in each product are unchanged:\
+\>", "ExampleText",
+ CellID->1616289800],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+      RowBox[{
+       RowBox[{"\[Gamma]", ".", 
+        RowBox[{"(", 
+         RowBox[{"p", "-", "k"}], ")"}]}], "+", 
+       RowBox[{"mf", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+     "]"}], 
+    RowBox[{"(", 
+     RowBox[{
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]], "-", 
+      RowBox[{
+       SubscriptBox["k", "\[Mu]"], 
+       RowBox[{
+        SubscriptBox["k", "\[Nu]"], "/", 
+        SuperscriptBox["mW", "2"]}]}]}], ")"}]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", "-", "k"}], ",", "mf"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "mW"}], "}"}], ",", 
+   RowBox[{"DiracAlgebra", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1171777107],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{"mf", " ", 
+     RowBox[{"DiracMatrix", "[", 
+      RowBox[{
+       RowBox[{"\[Gamma]", ".", "p"}], ",", "\[DoubleStruckCapitalP]L", ",", 
+       RowBox[{"\[Gamma]", ".", "p"}], ",", "\[DoubleStruckCapitalP]L"}], 
+      "]"}], " ", 
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "2", ",", 
+       RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}]}], 
+    SuperscriptBox["mW", "2"]]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p"}], ",", "\[DoubleStruckCapitalP]L", ",", 
+     RowBox[{"\[Gamma]", ".", "p"}], ",", 
+     RowBox[{"\[Gamma]", ".", "p"}], ",", "\[DoubleStruckCapitalP]L"}], "]"}],
+    " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"PVB", "[", 
+        RowBox[{"0", ",", "2", ",", 
+         RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+       SuperscriptBox["mW", "2"]]}], "-", 
+     FractionBox[
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "3", ",", 
+        RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+      SuperscriptBox["mW", "2"]]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+     
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+    "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"mf", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}]}], "-", 
+     FractionBox[
+      RowBox[{"mf", " ", 
+       RowBox[{"PVB", "[", 
+        RowBox[{"1", ",", "0", ",", 
+         RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}]}], 
+      SuperscriptBox["mW", "2"]]}], ")"}]}], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p"}], ",", "\[DoubleStruckCapitalP]L", ",", 
+      SubscriptBox["\[Gamma]", "$20"], ",", 
+      SubscriptBox["\[Gamma]", "$20"], ",", "\[DoubleStruckCapitalP]L"}], 
+     "]"}], " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"1", ",", "1", ",", 
+      RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}]}], 
+   SuperscriptBox["mW", "2"]], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "$20"], ",", "\[DoubleStruckCapitalP]L", ",", 
+      SubscriptBox["\[Gamma]", "$20"], ",", 
+      RowBox[{"\[Gamma]", ".", "p"}], ",", "\[DoubleStruckCapitalP]L"}], 
+     "]"}], " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"1", ",", "1", ",", 
+      RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}]}], 
+   SuperscriptBox["mW", "2"]], "+", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+     
+     RowBox[{"\[Gamma]", ".", "p"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+    "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], "+", 
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "1", ",", 
+       RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], "-", 
+     FractionBox[
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", 
+        RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+      SuperscriptBox["mW", "2"]], "-", 
+     FractionBox[
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+      SuperscriptBox["mW", "2"]]}], ")"}]}]}]], "Output",
+ ImageSize->{559, 237},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1386629915]
+}, Open  ]],
+
+Cell["\<\
+Making use of the Dirac algebra usually leads to simpler expressions: \
+\>", "ExampleText",
+ CellID->296317839],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+      RowBox[{
+       RowBox[{"\[Gamma]", ".", 
+        RowBox[{"(", 
+         RowBox[{"p", "-", "k"}], ")"}]}], "+", 
+       RowBox[{"mf", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L"}], 
+     "]"}], 
+    RowBox[{"(", 
+     RowBox[{
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]], "-", 
+      RowBox[{
+       SubscriptBox["k", "\[Mu]"], 
+       RowBox[{
+        SubscriptBox["k", "\[Nu]"], "/", 
+        SuperscriptBox["mW", "2"]}]}]}], ")"}]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", "-", "k"}], ",", "mf"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "mW"}], "}"}], ",", 
+   RowBox[{"DiracAlgebra", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->827960840],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], ",", "\[DoubleStruckCapitalP]L"}], "]"}], 
+  " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p", ".", "p"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "2", ",", 
+           RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+         SuperscriptBox["mW", "2"]]}], "-", 
+       FractionBox[
+        RowBox[{"PVB", "[", 
+         RowBox[{"0", ",", "3", ",", 
+          RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+        SuperscriptBox["mW", "2"]]}], ")"}]}], "-", 
+    FractionBox[
+     RowBox[{"2", " ", "\[ScriptD]", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}]}], 
+     SuperscriptBox["mW", "2"]], "+", 
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"PVB", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], "+", 
+       RowBox[{"PVB", "[", 
+        RowBox[{"0", ",", "1", ",", 
+         RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], "-", 
+       FractionBox[
+        RowBox[{"PVB", "[", 
+         RowBox[{"1", ",", "0", ",", 
+          RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+        SuperscriptBox["mW", "2"]], "-", 
+       FractionBox[
+        RowBox[{"PVB", "[", 
+         RowBox[{"1", ",", "1", ",", 
+          RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+        SuperscriptBox["mW", "2"]]}], ")"}]}], "-", 
+    RowBox[{"\[ScriptD]", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"PVB", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], "+", 
+       RowBox[{"PVB", "[", 
+        RowBox[{"0", ",", "1", ",", 
+         RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], "-", 
+       FractionBox[
+        RowBox[{"PVB", "[", 
+         RowBox[{"1", ",", "0", ",", 
+          RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+        SuperscriptBox["mW", "2"]], "-", 
+       FractionBox[
+        RowBox[{"PVB", "[", 
+         RowBox[{"1", ",", "1", ",", 
+          RowBox[{"p", ".", "p"}], ",", "mW", ",", "mf"}], "]"}], 
+        SuperscriptBox["mW", "2"]]}], ")"}]}]}], ")"}]}]], "Output",
+ ImageSize->{562, 142},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->532006851]
+}, Open  ]],
+
+Cell[TextData[{
+ "Applying the Dirac algebra risks violating Ward identities in chiral gauge \
+theories since ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (naively) anticommutes with all other gamma matrices in ",
+ Cell[BoxData[
+  FormBox["d", TraditionalForm]], "InlineMath"],
+ " dimensions."
+}], "ExampleText",
+ Deletable->True,
+ CellID->1592366173]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Organization",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->423094414],
+
+Cell["Organize result by tensor structures:", "ExampleText",
+ CellID->1631545564],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["k", "\[Nu]"], 
+    RowBox[{"k", ".", "k"}], " ", 
+    RowBox[{"k", ".", "p"}]}], " ", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "M"}], "}"}], ",", 
+   RowBox[{"Organization", "\[Rule]", "LTensor"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1538553441],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         SuperscriptBox["m", "2"], "2"], "-", 
+        FractionBox[
+         SuperscriptBox["M", "2"], "2"], "-", 
+        FractionBox[
+         RowBox[{"p", ".", "p"}], "2"]}], ")"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "m"}], "]"}]}], "-", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"p", ".", "p"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "4"}], "-", "\[ScriptD]"}], ")"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"1", ",", "m"}], "]"}]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", 
+          SuperscriptBox["M", "2"]}], "2"], "-", 
+        FractionBox[
+         SuperscriptBox["M", "4"], "2"], "-", 
+        RowBox[{
+         FractionBox["1", "2"], " ", 
+         SuperscriptBox["M", "2"], " ", 
+         RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "2", ",", 
+        RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}]}]}], ")"}]}], 
+  "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         SuperscriptBox["m", "2"], "2"], "-", 
+        FractionBox[
+         SuperscriptBox["M", "2"], "2"], "-", 
+        FractionBox[
+         RowBox[{"p", ".", "p"}], "2"]}], ")"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"1", ",", "m"}], "]"}]}], "-", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"p", ".", "p"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"1", ",", "m"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox["M", "2"], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"1", ",", "M"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "2"}], "-", "\[ScriptD]"}], ")"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"2", ",", "m"}], "]"}]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["m", "2"], " ", 
+          SuperscriptBox["M", "2"]}], "2"], "-", 
+        FractionBox[
+         SuperscriptBox["M", "4"], "2"], "-", 
+        RowBox[{
+         FractionBox["1", "2"], " ", 
+         SuperscriptBox["M", "2"], " ", 
+         RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", 
+        RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{466, 151},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->982583311]
+}, Open  ]],
+
+Cell["Organize result by Passarino-Veltman coefficient functions:", \
+"ExampleText",
+ CellID->1442849340],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["k", "\[Nu]"], 
+    RowBox[{"k", ".", "k"}], " ", 
+    RowBox[{"k", ".", "p"}]}], " ", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "M"}], "}"}], ",", 
+   RowBox[{"Organization", "\[Rule]", "Function"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1352227599],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         SuperscriptBox["m", "2"], "2"], "-", 
+        FractionBox[
+         SuperscriptBox["M", "2"], "2"], "-", 
+        FractionBox[
+         RowBox[{"p", ".", "p"}], "2"]}], ")"}], " ", 
+      SubscriptBox["p", "\[Mu]"], " ", 
+      SubscriptBox["p", "\[Nu]"]}], "-", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"p", ".", "p"}], " ", 
+      SubscriptBox["p", "\[Mu]"], " ", 
+      SubscriptBox["p", "\[Nu]"]}]}], ")"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "4"}], "-", "\[ScriptD]"}], ")"}], " ", 
+      SubscriptBox["p", "\[Mu]"], " ", 
+      SubscriptBox["p", "\[Nu]"]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         SuperscriptBox["m", "2"], "2"], "-", 
+        FractionBox[
+         SuperscriptBox["M", "2"], "2"], "-", 
+        FractionBox[
+         RowBox[{"p", ".", "p"}], "2"]}], ")"}], " ", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"p", ".", "p"}], " ", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}], ")"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["M", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "M"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "-", "\[ScriptD]"}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"2", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "2"], "-", 
+     FractionBox[
+      SuperscriptBox["M", "4"], "2"], "-", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox["M", "2"], " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "2"], "-", 
+     FractionBox[
+      SuperscriptBox["M", "4"], "2"], "-", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox["M", "2"], " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{538, 151},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->626243890]
+}, Open  ]],
+
+Cell["Do not organize result:", "ExampleText",
+ CellID->922539740],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    SubscriptBox["k", "\[Nu]"], 
+    RowBox[{"k", ".", "k"}], " ", 
+    RowBox[{"k", ".", "p"}]}], " ", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "M"}], "}"}], ",", 
+   RowBox[{"Organization", "\[Rule]", "None"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1466174844],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["m", "2"], "2"], "-", 
+     FractionBox[
+      SuperscriptBox["M", "2"], "2"], "-", 
+     FractionBox[
+      RowBox[{"p", ".", "p"}], "2"]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{"4", "+", "\[ScriptD]"}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["m", "2"], "2"], "-", 
+     FractionBox[
+      SuperscriptBox["M", "2"], "2"], "-", 
+     FractionBox[
+      RowBox[{"p", ".", "p"}], "2"]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "m"}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["M", "2"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "M"}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{"2", "+", "\[ScriptD]"}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"2", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "2"], "-", 
+     FractionBox[
+      SuperscriptBox["M", "4"], "2"], "-", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox["M", "2"], " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "2"], "-", 
+     FractionBox[
+      SuperscriptBox["M", "4"], "2"], "-", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox["M", "2"], " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{518, 151},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->475775831]
+}, Open  ]]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[TextData[{
+ "Sum the first few 1PI diagrams contributing to the Coleman-Weinberg \
+effective potential in the ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["\[Lambda]\[Phi]", "4"], TraditionalForm]], "InlineMath"],
+ " theory\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["V", "eff"], "(", "\[Phi]", ")"}], "=", 
+    RowBox[{"i", 
+     RowBox[{
+      UnderscriptBox["\[Sum]", 
+       RowBox[{"n", "=", "1"}]], 
+      RowBox[{"[", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"\[Lambda]", " ", 
+          SuperscriptBox["\[Phi]", "2"]}], "2"], 
+        SuperscriptBox["\[Mu]", 
+         RowBox[{"2", "\[Epsilon]"}]], 
+        RowBox[{"\[Integral]", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            SuperscriptBox["\[DifferentialD]", "d"], "p"}], 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+          FractionBox["1", 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["p", "2"], "-", 
+              SuperscriptBox["m", "2"], "+", 
+              RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], ")"}], "n"]]}]}]}], 
+       "]"}]}]}]}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator](",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    FractionBox["i", 
+     RowBox[{"16", 
+      SuperscriptBox["\[Pi]", "2"]}]],
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ " restored explicitly):"
+}], "ExampleText",
+ Deletable->True,
+ CellID->77193418],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     FractionBox["\[ImaginaryI]", 
+      RowBox[{"16", 
+       SuperscriptBox["\[Pi]", "2"]}]], "*", "\[ImaginaryI]", " ", 
+     RowBox[{"Sum", "[", 
+      RowBox[{
+       RowBox[{
+        FractionBox[
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"\[Lambda]", " ", 
+            RowBox[{
+             SuperscriptBox["\[Phi]", "2"], "/", "2"}]}], ")"}], "n"], 
+         RowBox[{"2", "n"}]], 
+        RowBox[{"LoopIntegrate", "[", 
+         RowBox[{"1", ",", "p", ",", 
+          RowBox[{"{", 
+           RowBox[{"p", ",", "m", ",", "n"}], "}"}]}], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}]}], "//", 
+    "LoopRefine"}], ",", "\[Phi]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1321594430],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[Lambda]", "3"], " ", 
+    SuperscriptBox["\[Phi]", "6"]}], 
+   RowBox[{"1536", " ", 
+    SuperscriptBox["m", "2"], " ", 
+    SuperscriptBox["\[Pi]", "2"]}]], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[Lambda]", "4"], " ", 
+    SuperscriptBox["\[Phi]", "8"]}], 
+   RowBox[{"12288", " ", 
+    SuperscriptBox["m", "4"], " ", 
+    SuperscriptBox["\[Pi]", "2"]}]], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[Lambda]", "5"], " ", 
+    SuperscriptBox["\[Phi]", "10"]}], 
+   RowBox[{"61440", " ", 
+    SuperscriptBox["m", "6"], " ", 
+    SuperscriptBox["\[Pi]", "2"]}]], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[Lambda]", "2"], " ", 
+    SuperscriptBox["\[Phi]", "4"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox["1", "\[Epsilon]"], "+", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], 
+   RowBox[{"256", " ", 
+    SuperscriptBox["\[Pi]", "2"]}]], "+", 
+  RowBox[{
+   SuperscriptBox["\[Phi]", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "\[Lambda]"}], 
+       RowBox[{"64", " ", 
+        SuperscriptBox["\[Pi]", "2"]}]]}], "-", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", "\[Lambda]", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox["1", "\[Epsilon]"], "+", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           SuperscriptBox["\[Micro]", "2"], 
+           SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], 
+      RowBox[{"64", " ", 
+       SuperscriptBox["\[Pi]", "2"]}]]}], ")"}]}]}]], "Output",
+ ImageSize->{355, 97},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->991529419]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell["\<\
+Dimensional regularization preserves the shift symmetry of loop integrals:\
+\>", "ExampleText",
+ CellID->932912804],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int1", "=", 
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["k", "\[Mu]"], 
+      SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}], "//", 
+   "LoopRefine"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->925646446],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"p", ".", "p"}]}], ")"}]}], 
+      RowBox[{"3", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "12"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"13", " ", 
+        RowBox[{"p", ".", "p"}]}]}], 
+      RowBox[{"18", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     RowBox[{
+      FractionBox["1", "3"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "18"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"21", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"4", " ", 
+         RowBox[{"p", ".", "p"}]}]}], ")"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"6", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{577, 78},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1404752189]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int2", "=", 
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox[
+       RowBox[{"(", 
+        RowBox[{"k", "+", "a"}], ")"}], "\[Mu]"], 
+      SubscriptBox[
+       RowBox[{"(", 
+        RowBox[{"k", "+", "a"}], ")"}], "\[Nu]"]}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "a"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "a", "+", "p"}], ",", "m"}], "}"}]}], "]"}], "//", 
+   "LoopRefine"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1538192503],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"p", ".", "p"}]}], ")"}]}], 
+      RowBox[{"3", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "12"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"13", " ", 
+        RowBox[{"p", ".", "p"}]}]}], 
+      RowBox[{"18", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     RowBox[{
+      FractionBox["1", "3"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "18"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"21", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"4", " ", 
+         RowBox[{"p", ".", "p"}]}]}], ")"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"6", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{577, 78},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->802134987]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int1", "\[Equal]", "int2"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->994951938],
+
+Cell[BoxData["True"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->2109317296]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell["Numerator must be a polynomial in integration variable:", "ExampleText",
+ 
+ CellID->2116633687],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Sin", "[", 
+     RowBox[{"k", ".", "p"}], "]"}], " ", 
+    SubscriptBox["k", "\[Mu]"]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1012684035],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopIntegrate", "::", "poly"}], "MessageName"], ":", 
+  " ", "\<\"Numerator is not a polynomial in \
+\[NoBreak]\\!\\(k\\)\[NoBreak].\\!\\(\\*\\nStyleBox[\\\"vec\\\", \
+\\\"TI\\\"]\\), or \
+\\!\\(\\*SubscriptBox[\\(\[NoBreak]\\!\\(k\\)\[NoBreak]\\),\\!\\(\\*\\\
+nStyleBox[\\\"idx\\\", \\\"TI\\\"]\\)]\\). \\!\\(\\*ButtonBox[\\\"\
+\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:ref/message/General/poly\\\", ButtonNote -> \
+\\\"X`LoopIntegrate::poly\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1305593347],
+
+Cell[BoxData[
+ TemplateBox[{RowBox[{
+     RowBox[{"Sin", "[", 
+       RowBox[{"k", ".", "p"}], "]"}], " ", 
+     SubscriptBox["k", "\[Mu]"]}],"k",RowBox[{
+     TemplateBox[{"k", "m", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (RowBox[{"[", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], "]"}]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{
+       RowBox[{"(", 
+         RowBox[{"k", "-", "p"}], ")"}], "m", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (RowBox[{"[", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], "]"}]& ), 
+      InterpretationFunction -> (
+       RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+  "LoopIntegrate",
+  DisplayFunction->(RowBox[{"\[Integral]", 
+     FractionBox[
+      RowBox[{
+        SuperscriptBox["\[DifferentialD]", "\[ScriptD]"], #2}], 
+      SuperscriptBox[
+       RowBox[{"(", "2", "\[Pi]", ")"}], "\[ScriptD]"]], 
+     FractionBox[#, #3]}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"LoopIntegrate", "[", 
+     RowBox[
+      Riffle[
+       Join[{#, #2}, 
+        Part[
+         Map[ToBoxes[
+           ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& )]], "Output",
+ ImageSize->{206, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->119477983]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["k", "\[Mu]"], 
+    RowBox[{
+     SubscriptBox["k", "\[Nu]"], "/", 
+     RowBox[{"k", ".", "k"}]}]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->619801924],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopIntegrate", "::", "poly"}], "MessageName"], ":", 
+  " ", "\<\"Numerator is not a polynomial in \
+\[NoBreak]\\!\\(k\\)\[NoBreak].\\!\\(\\*\\nStyleBox[\\\"vec\\\", \
+\\\"TI\\\"]\\), or \
+\\!\\(\\*SubscriptBox[\\(\[NoBreak]\\!\\(k\\)\[NoBreak]\\),\\!\\(\\*\\\
+nStyleBox[\\\"idx\\\", \\\"TI\\\"]\\)]\\). \\!\\(\\*ButtonBox[\\\"\
+\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:ref/message/General/poly\\\", ButtonNote -> \
+\\\"X`LoopIntegrate::poly\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[2]:=",
+ CellID->1803731006],
+
+Cell[BoxData[
+ TemplateBox[{FractionBox[
+    RowBox[{
+      SubscriptBox["k", "\[Mu]"], " ", 
+      SubscriptBox["k", "\[Nu]"]}], 
+    RowBox[{"k", ".", "k"}]],"k",RowBox[{
+     TemplateBox[{"k", "m", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (RowBox[{"[", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], "]"}]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{
+       RowBox[{"(", 
+         RowBox[{"k", "-", "p"}], ")"}], "m", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (RowBox[{"[", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], "]"}]& ), 
+      InterpretationFunction -> (
+       RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+  "LoopIntegrate",
+  DisplayFunction->(RowBox[{"\[Integral]", 
+     FractionBox[
+      RowBox[{
+        SuperscriptBox["\[DifferentialD]", "\[ScriptD]"], #2}], 
+      SuperscriptBox[
+       RowBox[{"(", "2", "\[Pi]", ")"}], "\[ScriptD]"]], 
+     FractionBox[#, #3]}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"LoopIntegrate", "[", 
+     RowBox[
+      Riffle[
+       Join[{#, #2}, 
+        Part[
+         Map[ToBoxes[
+           ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& )]], "Output",
+ ImageSize->{211, 48},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1427856790]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->136559750],
+
+Cell["Integration mometum vector must be a symbol:", "ExampleText",
+ CellID->2060347912],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"k", "+", "q"}], ")"}], ".", "p"}], ",", 
+   RowBox[{"k", "+", "q"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "p"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->374746969],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopIntegrate", "::", "kinem"}], "MessageName"], ":", 
+  " ", "\<\"Invalid integration variable \[NoBreak]\\!\\(k + q\\)\[NoBreak];  \
+atomic symbol expected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/LoopIntegrate\\\", ButtonNote -> \
+\\\"X`LoopIntegrate::kinem\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->2022503129],
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"k", "+", "q"}], ")"}], ".", "p"}], ",", 
+   RowBox[{"k", "+", "q"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "-", "p"}], ",", "m"}], "}"}]}], "]"}]], "Output",
+ ImageSize->{325, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1838924387]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->217290526],
+
+Cell[TextData[{
+ "If the external momenta are linearly dependent (for example, for form \
+factors at zero momentum transfers), common factors will not be canceled in \
+the numerator and denominator.  The output will be equivalent to setting ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Cancel",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#377984336"], "\[Rule]", 
+   ButtonBox["False",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/False"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{" ", 
+    GraphicsBox[
+     TagBox[RasterBox[CompressedData["
+1:eJzt3b1uHF3XJuYF28GEr47A9HMEAhQ6oQ0dgDAe5ZwBRqmFsWFhMoYKlSpj
+5ECRokkUjAb4IkOBQgcmTDiaiBAcjGEYGLlLXXzYbPbe9d+7fq4Grg/vJ5HV
+tYt8WndVrbXqv/lX/+M/f/dfRMT/9M92/+ef/8sP/92/+Tf/8t/+D//V7v/5
+7//t//yv/9V/ufsf/8vu73/vVH/4+/dvAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGCjdq93Ox9qX3aqP3zb
+4ut/H7mt//xV6TUBAMBW7V6vD/L9xxO5/diLE9uoMv99i+/9XZ9D/FV63QAA
+sBVV/m6Z1Q/9OLGNbz22cyv/AwBAGdX1/IO6npQPB1//usO1/lT+f3YPAQAA
+OI/q2n4mr7+qv+b10Z9/PKzlr88jTtX9J88lAACA89q9Pidy+n3994e5/0vu
+2n11PtCQ/e9d+wcAgDIy2f9jXd//UOeTnPdztL2m6/+ttgMAAIwrU/Pzrq7R
+v48Oszqjuaf4Y+k1AwDA1tR1+qmM/jDP53WP7d5mtvul9LoBAGBrqvqbKXpz
+Iz8H9FvpdQMAwNZE/tletwO2m8v+vbcLAAD001Cb07nW52C7sj8AAMxE5Odx
+DqrLUfMDAADz0TCLc9AczszsIL2+AABwZrF/TtfJ52+NsO37TPY34xMAAM4o
+k88HZfPIzw3tPTsIAADormG2Z+vneCW2/boh+w/aPgAA0F5mtuePEbad6yMY
+XE8EAAC0l+nFHVyP0zDjR60/AACcSUM9/tB6n6Za/97PDAAAALrJ1OQMfubW
+7vUuk/sH1xMBAADtZWZ7Dq7Haaj3eVd67QAAsCWZ2Z6D6nEi/5xg1/wBAOCM
+Mvl8jOd5fVbnDwAA85CZ7fll4Hb/yuT+z6XXDQAAWzPVbM/MNf/bavZP6XUD
+AMCWNMzf7J3PI/8cX8/wBQCAM9u93k7Rh1tf25/kOWEAAEB3mbqc3rM9I/2s
+AM/vBQCAQjKzPd/23F5qZpDeXgAAKKRh9n7nWv96rs+pWh+5HwAACsrU5nSu
+9a97hk/NC5L7AQCgsN3r2xj1OZncr74fAAAKa5jt2Tr713VDx3U+9337BQAA
+gHFlZnu2fvZWnH4ecHUv4a/S6wMAAPYSuf04/z+bxb97vUt8761r/QAAMD+J
+eTx/6n0ycz9P9gVX5wOl1wMAADzXZrZnfX0/9dyvDzW1PQAAMGNjzvYEAADm
+a/f6ksj+ZnICAMCKZOr59eoCAMBKNMz2bJzrCQAALENmtqdafwAAWJF6Jqda
+fwAAWLGqpidT72NGPwAArERmtmflVen9AwAAxpGZ7Xlfet8AAIDxZGZ7fim9
+bwAAwDiqmp5Mvc+H0vsHAACMo6HW3zO9AABYrd3rHzvXO+93Lh8U2peXB/vw
+vt6vyvedT9W+jvAet5ns/7r0zwMAAKZSZ/+fmTxcuavz94PrA28O8vrLE9t/
++Ls3B9/z6WBbdw3v/WvnaqS1pp7npeYHAIBNqPP/14ZcXML1SNf630Z6ts+z
+/B9m/AMAsHK7180M8v7v+n7AxQjr+TbCvrgXAADAKtXX2ktl/rso1GsAAABb
+tHtdnTnzVzX970uvGwAAtij2/bm/zpD7R5nfAwAA9Bf7mZtT5f/vMUJNPwAA
+MI7d67/e+b/U9AMAwPpU1+Nj/2yt7yPX9F+XXhsAAGxdXd9T5f2m53z1caOm
+HwAAyqnz/qdofrbukGv9b0qvEwAAtqjK4vV1+K55///s+PXV/YOXpdcLAABb
+UdXaHOT9rjN7ftZ1QBf1/YEuM3zU+AAAwMTqvH+187VHnc7X+nsvjrb5veX3
+fyq9fgAAWLN4nM3TtVf310HeT16rb7mdq9LHAQAA1ij2vbrXPfN+VQPUqg83
+9s/4bdqe2n4AABhR9J/Nc1d/X+eMXp9f5HoC1PYDAMAIYliv7vXQa/KZWv+b
+0scGAACWLJ726vaezTPi/px6n6vSxwkAAJYo9r26D3m/72ye0WtvTtT6V+ci
+l6WPFwAALEkMm81zM1XeP9rHw1r/n2PeTwAAgDWLx17drnn/LjrM5hlxfx9q
+/b9OfZ4BAABLV9fNnHU2z4j7Xv2f69LHEAAA5iqGzeZ5XzLvH61jFvsBAABz
+EU9n83Tt1f0eI8/mAQAAxnPQqzur2TwAAMBwMXw2zxt5HwAA5m1Ar+5ZZ/MA
+AADDtLzWX3w2DwAAMExd65ObzXNReh8BAIDhYv9crsNeXXkfAABWymweAAAA
+AAAAANim3evtzoda9QcfS+8TAADQz+717iDfV24zMwHflt5fAACgm47P/Xnw
+ovR+AwAAw9T1PfeZ3P+t9D4CAADjqOr5M9n/Q+n9AwAAxnHQ03vKq9L7B6xb
+9TyCncvq2WSl9wUA1i5z3f++9L4B61Tn/av6+cOHnzvfPZsMAKaze/1IZH+z
+PYHR7F4XO+/rfJ+bL3BTel8BYI2qGT5mewJTqep4dq53fnaYLfar9H4DwBrV
+c37M9gRGU9fuf9q56zlX+K70GgBgjXavL2Z7AkPtXm+qWp3qmn3PvH/ouvR6
+AGCNIj3b32xPICnTqztEdd7wqfTaAGCNdq9XmX+DzfYEnoj2vbpd8351v+BN
+6fUBwJpFeq6/2Z7AH9GvV7exnj/2/QDm+QPAmUS61v9z6X0Dyonhvbqn/Kzv
+Gcj7AHBmYbYncCDG7dV98LXO+xel1wcAWxZme8KmxXS9ul/r7Xo2LwDMxO71
+MfFv94/S+wZMI/TqAsAmVRk/8e+42Z6wIrHv1X0fenUBYJMiX+tvticsXJ33
+9eoCAFUuMNsTViam6dX9Hnp1AWDRouNsz93rr4H54V3pNcPaxNNe3bFn81Tb
+1asLACtQXd9P/JvfarZnfd/gtiE/fGy7PaCdeOzVHXs2T3W/QK8uAKzM7vUq
+kwFaz/aMdN3Qly7bAfJi2l7dy9LrAwCmk8nsnWZ7xukZoa7zwwhiul7d69Cr
+CwCbESPM9ozn9f9V/Y/5QDBA6NUFAEYUI8z2rLdxeP5Q/e+/Sq8Nlib06gIA
+E6pqchJZofVsz6Pc/6X0mmBJQq8uAHAmcbpGv3JytufR9x5f7/9Yej2wBKFX
+FwAoINK1/tke3djX9x9+r3n9kBF6dQGAgqLnbM/6+w5n+b8uvRaYo9CrCwDM
+RPSY7RlP+wPM8oED8dirO3be16sLAAwS+2duncoZJ2d7Hp0rmOUDv//8d3ER
+j7N5xsr6enUBgFHtXveJ3PHsWv7RecK38JxeNiweZ/NM0asr7wMAo4p0rf/9
+0dcd9/Q2zv+BNYrpenWrberVBQAmEy1me+5er4/uDdyW3m84p3js1R077+vV
+BQDOJhpme0b6mV9m+rBaoVcXAFiZ2D+TK5VRXmTuCVQ8t5dViYl7deV9AKCk
+zDX9ambntxa5xnwfFi306gIAG7F7fW6RY3Jfc3IGKMxZ6NUFADYo0rM9f9d/
+97r+utT8//uS+w9thV5dAGDDIj3bs/Jkbn/s5/ykvvZd6bXAKbF/Bt3/vfOf
+R8z7enUBgMWJp8/mPXSyhzf2PQAnzxNKrwUOxb6G/9+NlPX16gIAi5ep4zlZ
+w585V6g8e/4vnFvs53Jex/CZnHehVxcAWInYz+9M1fqfzPGRnwfqGb8UVdfh
+DMn8enUBgFWK9GzPbO9upGf+VOcRL86x73Bo97qM/v27enUBgNWL9DO7ss/r
+inx/sHmfnE3s53R+75H3//f6HsFF6TUAAJzD7vWjb36P9DO/bkuvi/WLfR/v
+zYDanuvSawAAOJfI1+039uxGft7n2xbfX/UMex4wncR4fbzXpdcCAHAuu9e7
+RCZq/Zyu6DnvMx77DNQH0Vr06+P9j7I/ALB1kZ7tma31P9pG6vyh8jrzfbdq
+g2gr+vXxfo98L8B16XUBAJxLpGd7droW3/Xafzz2FzfWBbFtDdk9pTpHuDzY
+huwPAGxa5Of0dHo+V8O1/7dHX/tQ69P63gLbE/36eKtaoKsT25L9AYBNi/Sz
+eVvX+h9tLzUvqLq38Lr+mofcX90n8AwAnol+fby/6u/5R2Kbsj8AsGmRns/Z
+63p85Gf+HEv2AbBd0a+Pt7o3cNGwXdkfANisyM/27D13J9LPCRtl+6xTDOjj
+bbl92R8A2Kx4rL05pVOt/4ltp+4nyP08ESP08bZ8H9kfAGAi8byX4OPQcwrW
+I0bs4235frI/AACcUUzQx9vyfWV/AAA4k5ioj7fle8v+AAAwsZi4j7flPsj+
+AAAwkThTH2/LfZH9AQBgZHHmPt6W+yT7AwBwUux7Uq9K78eSRKE+3pb7JvsD
+APDM7vX+IL9elt6fJYiCfbwt90/2BwDgb3V+vTuuPy+9X3MWM+jjbbmfsj8A
+AKnMf+iq9D7OTcyoj7fl/sr+AAAbVl+zbsqvVV59U3pf5yJm2Mfbcr9lfwCA
+DWqZ+Yvn1TmJGffxttx/2R8AYEPqa9ZtMv8s8upcxMz7eFuuQfYHANiAlnUq
+Mv/z41bdH7nrmPmrjH3WPt6Wa5H9AQBWrGXmf7hGLfM/HrdF9fG2XJPsDwCw
+QtG+Nn1WdSmldThXWlxfhOwPALAuMv/kx22xNVKyPwDAesTTZ/HmatEvS+/r
+nMQK+nhbrlP2BwBYuGh+LpfMf/q4XbY4bqeO4+z6eFuuV/YHAFiolpn/TuZ/
+dtxW18fbct2yPwDAwkT7Z/Feld7XOYkV9/G2XL/sDwCwEDJ/7+O2+j7elsdB
+9gcAmLnwLN4hx+6qY+b/HQvs4215LGR/AICZalmjIvOfPnaXsaE+3pbHRPYH
+AJiZlpm/8knmf3bsNtnH2/LYyP4AAD3UtSRvRt6m53L1P3Ztz5eO75lcld73
+Mx4j2R8AoKM69/8e61qxzH+WY7f5OinZHwCgm7qm5CFnXo6wPc/i7X/srjpm
+/k2fP8n+AMu2e73a+bDzOfF5/qP++7el9xXWIPZ1JYdZ83LAtqrceifz9zp2
+ly2O3aljudo+3pbHTfYHWKDd693Obcd/9+6r84DS+w5LFfvakp9H/11d9thO
+m8x/J/OfPHb6eIcdP9kfYEF2r9eJzP/l+Np+7O8JfDzxtdX3vy69FliaU7mp
+4/dftsitVU69Kr3WuQl9vGMdR9kfYCFiX7tz6lp+NsfvXn/Fvvbn+HvdA4CW
+Urmz5ffK/P2Puz7ecY+n7A+wAJnc/6rl97+Q/6Gf2PfinsyZDd930SLzy6np
+43fVMfP/jg338bY8prI/wMwlcn+lU/9u7K//38v/0F48zvJsnf3Ds3iHHvPL
+0Mc71bGV/QFmrMr3ic/pzz239y6xvVb3D2BL4uksz1N+Hn19m8xf8Sze9PFO
+ZdOU6hzhsvS+L4XsDzBfsa/TSc3y+WvAdk9ts/qzF6XXDHMRz2d5nrzWXH+t
+53INP9ZtzpmO75tcld73pZH9AeYr0jP7e13zP9hu6tr/x9JrhjmI07M8T/kn
+mX/wcW5z/I4zf/U97pv0O+ayP8AMxb42P/Vv36D5nLG/n3Cq7n/Q/QRYi0w+
+Ovb/Nfx9tZ3L0uuZo9DHW+q4y/4AMxTpa/73I23/S2L7g+4pwNJF99oTmb/b
+8b0Mfbwlj7/sDzAzkb/m/2Wk90jV/bj2z2ZFZpZnS3cyf/LY6uOdAdkfYH4i
+PdOz0mmuZ+Y9XmTeQ90/mxMNszwbVDV0V6XXMEehj3dWZH+A+Yl0LX5ltFmc
+mfcZpa4IlmL3ehPda8+P/XSN+skx1cc7Q7I/wLzsXq9z1xZHfq9Uzf9o9xdg
+7mLY9f5TbraeXUMf72zJ/gDzsnt9zPzb+G3k98rVFo3SVwBzFuP09aauX78v
+vb4Cx/My9PHOmuwPMC+714/Mv5Gj1uFHvt9X3Q+rFft6lFQGGtMm6oBCH+9i
+yP4A8xH5/tvKh5HfL1dfVBmttwDmIva9p22e2zWmm1hhHVDo410c2R9gPnav
+tw3/Zo5agx/5WaKjn2tAafX16aE9vX1V7/um9DEY6Tjq410o2R/WKfbXc6ta
+7m8n/vv+PHaGZLSfW67+vjLoeb6J98y9n5p/ViPG7+lt8r12U2fe6tkBF6WP
+w0jHUR/vQsn+sC51drxt+Vn8+eD7XiW+Rs33eX9+ubk7ldGfuRX5eaI/Sh8T
+GEOdvcfK9L8Ocv11rcrDl7HintXQx7sKsj+sQ+xrRU5l/ipLvjv62g8Hee9D
+/Wep2TKfz72WLYt8n2/lxQTvmT1XLH1MYIjY16bc9Mj3VT/ApzrXX9Y2WasS
++nhXRfaH5YvT14qrDJns04x9T+mP+hzg4X+f+ixQG3Ten2XuGvzvid7zVF3Y
+odHvNcA51Lm/bU/vXX2OcLXVjH/i+F30OG/Sxztzsj8sV+zrdE5ds201BzIe
++zw/Zz7HR7/OnNiXpjr3uZis9zWaZ/xMUn8Vzdl/9B4DmFq06+n9GvsafDUp
+T4+dPt4Vk/1hmWLfy3vqGnGnbBr5GpOz1XrL/n+OQdPMnduJ3rcp+7v3w6Ls
+Xm8SufWhjuey9D7OVejjXT3ZH5Yn0s9j6pxLI/8M2VGfI9WwH7J/86z9qbJ/
+7r5P5d0U7wtTiP11/Iff3V/xWMdzUXrf5iz08W6G7A/Lksn9vXJ6Q+Y+2/Ve
+2V/2h6HqnP891PF0OWb6eDdG9oflyGTD3rU5mcx91tmesn+r7D9JDVaL7O/5
+XrAyoY93s2R/WIbIzN+PAXNYIl3zc9ZnOsn+rbL/t4neV/aHjQh9vJsn+8P8
+xb4HNDX7cVA9RqSfJSXvnf/nLPsDkwl9vPyW/WEJIj2LZ3AWzGw7+WwAJvs5
+zzX7q/eHBQt9vDz9fZD9YcYiP4dn0DOXIj1P/qy1/vz985hrvb/sDwsU+ng5
+/Xsh+8NM7V5vM5/Pg+swMtv/XHrtWxTl5vs3ZX/P9oIFCX285H8/ZH+Yofqa
+/Kln9v65Lh8jPG830vcUPMup3M+8RPZveraX+i9YgNDHS7vfE9kfZqjhWuwo
+vZeR7h8efF5B75/JHLO/3weYudDHS/vfFdkfZibytR9jXfMf/VkBjPKzT93r
++WOi98xlf70fMGOhj5fuvzOyP8zMma75p2Z79no+MKP97FM/lymzf+58Y5LZ
+QsAwoY+X/r87sj/MSMM1/8qg2T4t3kOtf9mff26u0yg//xPvmar9ci4IMxP6
+eBlI9od5abjmP8o12Mx7qO8o//PPzXaqjN532/B+zgVhBkIfLyOR/WFeGq7B
+Dp6z3nDN/0vp9W9dle3PmcUbfh8q+nyhsNDHy4hkf5iPFtd8x+jxnbyXoOd+
+fej471opkx+jhvO/Ud+/4VxD3zcUFPp4mYDsD/MR+VrvwTmsIedVis1xl/1b
+/x6MWn8f+fNNtf5QQOjjZUKyP8xHle8zn+uDn7XbsP2itf6y/5Njkcvjo87d
+aTjunucLZxT6eDkD2R/mY8rM2SJbDz63mHj/5uIsdVGRrvsZ9Rwt0jNF9X3D
+mYQ+Xs5I9od5iOaey949nvW2H7Jk6tp/0Xkusv+z45Gr+xmtNivz+6DeB84g
+9PFyZrI/zEOkn7P7oHf9RTw+t/VDpK8nF53nIvs/Ox65c8Gxnu/2IvMeoz9H
+AHgU+ngpRPaHeZgq+x9k6i+Z9zDPZYYiPZNprOc8pPoKPMsXJhL6eClM9od5
+mCL7H2zzR32NN1VHor5jhiJ/7X+Mea+p3wc9vjCy0MfLTMj+MA8NOa/S6ble
+sZ/neV/7q/6zVG23rDdTka6FGlz3E6frv4r2fMPahD5eZkb2h3mIfO11p2vz
+9XnE7WGuz5xbmOcycwc/yyc/txhw7T9O1/v8fZ4IDBf6eJkh2R/mI3NdvnXW
+i32dz8P13HcHf566fvyl9Lpp/JmmnsnW+9p/PPZ/Hyo66wnWIvTxMmOyP8xH
+Jp8/yPZgHn3/h6O/S81xP8vcGgb/bqT6cjvP+6zOCU9sR88HDBT6eFkA2R/m
+I/Z1P6kZnA9+HF6frb/neHbnce7PbXe0WfFM/vtxKrNX9UCt63TisQ/kcBtq
+/GGA0MfLgsj+MC8xfM79s7qNSF8zVuu/MImfZZXlG/u16+89zv2u90NPoY+X
+BZL9YX565v8fqeu/YbbnqtTX7k/1hlR1Xc9quOrfp+P6/vtT54lAO6GPl4WS
+/WGeYt+ze2q+y6maj+z8z8x2ZL8Fi30NUJvfkePMr8cDegp9vCyc7A/zlrlm
+W/15mzqP1IyYyuDnQ1Fe/TM+9Xvy4Fv99871oKfQx8tKyP6wbpGuH/pRet8A
+5i708bIysj+sW6SfGaDWHyAh9PGyUrI/rFfknxXcWC8EsEWhj5cVk/1hvcJs
+T4DWQh8vGyD7w3pF+lm+X0rvG8BchD5eNkT2h/WK9LN8zXgENi/08bJBsj+s
+U+Rne74qvX8ApYQ+XjZM9od1ivSzfNX6A5sV+njZONkf1inM9gT4W+jjhT9k
+f1ifyM/29GxXYDNCHy88IfvD+kT6Wb6VF6X3D2BqoY8XTpL9YX12r2+J/65/
+lN43gCmFPl7Ikv1hXXav15l/3z6X3j+AqYQ+Xmgk+8N6xH6u523m37jb0vvI
+5L8D1bVLvYlsSujjhdZkf1iu3euv2Nf2f2jI/IeqZ/2+Lr3vTPY78fCZ/rO+
+BqqGgdUKfbzQmewPyxP5up4+vpVeE6P9brw8+tlW9Q83rm+yJqGPF3qT/QHW
+JfZ1P6c+190LYNFCHy8MJvsDrEudj+4aspB7ASxK6OOFUcj+AOuze71pmY3c
+C2DWQh8vjEr2B1inzOd77hrpZen9hkro44VJyP4A6xT7fsguuekwP713L4AS
+Qh8vTEr2B1ivSPf9tvW13sZl6bWwbqGPF86iRPYPfTcAZxPda6VzftbXZK9C
+PTUjCX28cDaFsv+1fzOAc4h9zfDlxlX1O2Nl/1PXXb9HfW8gXH+lg9DHC2cX
+ZbJ/9Z5XpdcOrF/mM47pPNwbeC+jcUro44ViMv/tXU/4nn9mS5deO7B+PfIF
+06h+DtfhXGDTQh8vFJf5d/F6ovd7eN78z9JrB9Yv8xnHedzFvl+4ugdwWfr3
+gWL/HerjhZnI/Lt4PdH7XT28R+m1A+uX+YxjGt/rvFY9W+yi9M+f8kIfL8xK
+5t/F64ne7+bgPS5Lrx9g7WL4nM+Uu1DXT0Lo44VZKpD9f079HgDsxb6+uus1
+1zbX9NVhcFLo44VZO2f2j3293+F7fC29foA1i32t/ZCsf+U6LG2EPl5YhDNn
+/8vj/+ZLrx9grU585rbNYp9CrTUthT5eWJQzZ//rE+9zUfoYAKxRdKu1/ur6
+K12FPl5YnDNn/1PvdVX6GACsTeJay6ka62s5jK5CHy8s1pmz/6lrA59KHwOA
+NYnm/t7qGv+b0vvJ8oQ+Xli8c2X/+t+iU+/jGV8AI4rT/b2u8dNb6OOF1Thj
+9r9KfT6UPgYAaxHP+3td46e30McLq3PG7P8p8zlxWfo4AKxBfX3fNX4GC328
+sEpnzP4/M58Vo74XwFa5lsJQoY8XVu2M2T/3meEZXwBQUOjjhU04R/aP5ufL
+3JU+DgCwRaGPFzblTNn/usXnyEXpYwEAWxH6eGGTzpT9T82bO2YOBQCcQejj
+hc2aOvvX1xXafL7clD4WALBmoY8XNu8M2f+qw+fL6u4h7l5vdz7Uqj/4WHqf
+ANiW0McL1M6Q/XOzPY+9L308eq7x3UG+r9xm1vi29P4CsA2hjxc4MmX2r68z
+dLrGUPp4dFxfl7U9eFF6vwFYt9DHCyRMnP27XmuoXJY+JgPWW9X33GfW9q30
+PgKwbqGPF8iYOPt3/ez58/lT+pgMXPPHzNo+lN4/ANYp9PECLUyV/aNbj++x
+xd5vjMee3lNeld4/ANYl9PECHUyY/bt+Dh26Kn1cBqw7dd3/vvS+AbAeoY8X
+6GGK7F9/HvXN/ZWfpY/LgLX/SKzJbE8ABgt9vMAAE2X/TwOzf2Vx9Ye714vM
+esz2BCYX+/qPqzrnfao/47/X14ev679b3OfriXVW15jeZNb5PlZY0xL6eIGB
+Jsr+fXp8n31WlT42Pdb9NrMesz2BScS+x/Om42fvr/p7Lkvvf4d1vqxz/l3H
+dX6tzhNK7/8IP+Mu6/4d+niBE8bO/jGsx/f483pR9yZ3ry+JtZjtCYyuzoNd
+np+YUmXKq9LraVhn6t+q1awzsXZ9vMCoJsj+Y3w+P7gqfXw6rj01299sT2A0
+sa93GfOz9vA68UXp9R2ss6prv5lgnbPPxqGPF5jImNk/2vf4Vtep3kfz/enF
+9PzuXq8y6zDbExhF7Gvcx6irnHV+jP317inX2evfuTOsWx8vMKmRs3/bHt/v
+9ddX5wpfG752EbWKkZ7rb7YnMIoYr6ayjU8bWedN6Z/r0br18QKTGjn7pz6z
+/ulU9j/4vstI9zDdlD5GLdeeqvX/XHrfgOXrkYd/1p/v1TWZ6/p/d+0NOHv+
+77HOuxHWeVP4Z5v7NzClWuciro0B8xIjZf/E5/Vd/Zl2efyZldhG9bl9fP4w
++57fMNsTmFCHPPy9/trkZ2bsa0quMp/9x67OuM6XLfep+relqhu9aNheVR/V
+dG+55HmOPl7g7EbM/sfbuT74u1bZv/7aixOf1Velj1PD2s32BCZRfyY21YH0
+yoPRfk7Q5NeXY39O0rTOXr0I0b43+ixzQHev/3bnf+uY+WfRhwEs3xjZP572
++Fbbuzj6+9bZ/+h77uqvn3XP7+71MXEMf5Tetx5reXdiHeqWoJAWmfUmBt4b
+jeZerck/g6N5ps33Edb5vkW+nvQ+8+71H3pk/uup9wvYjpGy/3Wd009eM+mT
+/Y+2XX32zbauscr4iWO4uNmesj/MRzTX+tyc8b2uJ1zn8b8RJdc5We3P7vUv
+Oub+m9DHC4xspOx/kbsmMST7P2y/9HHK7Fuu1n9xsz1lf5iPyF+Pvznz+01y
+DSb2tT53mff9PsF7NuX/y4l+nv9Hy8z/T1Mca4DKGNm/xXsMyv5zFiub7bm0
+7F/v74faw6ylZH/1wdcfr/G2/vPFna+xXrG/73nq82WyGpzMvwl/3jdGrj2J
+fC/uZDU4Ld531Owd3Z7Tpc4HmIzsP3htnWZ77l5/dfj8P+XdxOuZXfbfvV4f
+5PtUb8WhZ/3V9bpSz10+Vv1M/yr9uwUnPjsfXE74nhcN/32Mlv9b5OGrCdfZ
+1Fs8Wv5vsc6UuymPAbBNIfsPXVsqT7aa7Vnn2duGz/+Pbbc3wnpmk/2j33nS
+jxPb+NZjO9XPRP6nuNjPqbw7yIKTz6KJ9P2Gw0x6OWD7F9E8X+j7GdZ51bAP
+v4Yc79ifX7SdMdp0vtX7eAMcCtl/yLpeZT6rW8/2jHTd0Jcu2xlpTbPJ/if2
+7UWk77M8+HDw9dX9grbX+lP534xWNqlFNq/cRId+rDoLX0e7WZ6ttztwnW2y
++deu+xP9ntHb5Pu5jguwXiH7D1lXKrN3mu0Zp+tYijwTLGac/Q/2MTVXqfKq
+/prXR3/+MQ5q+WN/HpH6+Z08l4AtiXbPFTjMxlXWfVYjU2+nundx02F7l2dc
+Z3U+0vY5wNW/l+8T6/xHvc5PHdZ5VW+v6zlCdSz1AgC9hOw/ZF2DZ3vG87qW
+2yjYbxrLyP6fE8f9vv77w9yfvXcS+Xs3f7aZ+35Ys9g/d3bsa9eNebjAOrvk
+/9HXGY/3Q7p8v35goJeQ/fuuafBsz3obh+cP1f8uWmMey87+1bX96lzqoc6n
+S89F7t/YIvdgYA5in//vzpCFB9XWj7DOc+b/q8Q+XET3vuC71PYATgnZv++a
+3iaOW+vZnvE0938pvaZ6n5aQ/VP3W6p9r+6bVNm/9b2TaO4p/lh6zVBSnYtT
+/1aMocrcxefZ1+vsmr27nt9cttiPyx7HWz8w0Erm8+V6xPe4PNr299LrHmFN
+qVmTjTk5nl/vn022jJln/8jfb3mY5/O6x3Zzs5ZmcV4GpcU0/avXMbO6lXg6
+W2ksN13X2XM/qn/TL0ofQ2C+ZP/ea0pde87Wh8T+GvPh9046r7/Huuae/VP3
+Wx706s2N/BzQb6XXDXMRj7XpQ7Lxr+g4I6jQWq9GOAcYvM7QDwyMSPbvtZ5e
+sz3r7zu8vtz5+vQZ1jb37J97ttftgO3msn/v7cKaxeP8njb5uMquD/OAFpVJ
+Y9/zUM3vadMPMMk6Qz8wMBLZv9d6Os/2jKfXq4vO8mlY29yzf642p/e5lOwP
+w9TZ9DJhVdkzs86LM7z3RegHBgaQ/XutJ/V8qZP1JkfnCsVn+TSsbbbZP/L3
+WwbV5TRkfzU/wKyEfmCgJ9m/13pSz4p9di3/6DyhypeznhU/8+yfm8U5aA5n
+5J8XptcXmKXQDwx0JPt3Xkvq2vP90dcd9/TOIj+3WN+cs3/qfkvruaqZbafO
+5yqzmcMEcEroBwZakv07r6Vxtmfsnyt7mCUnrxePfM3KbAxcYyqfD8rmkZ8b
+Wuk1OwjgnEI/MNCC7N95LdnZnpGeQTnpTJ+1Z//Mca0M6puO/blabr9n2ZcN
+cEroBwYyZP9O68hdH67+Ljd/ctKa8Q1k/9SxTc5W6rDtXB/B4HoigBJCPzBw
+guzfaR2pa8+3LbP3ZPN9NpD9U/dbBtfjNBw7tf7AooV+YOCA7N9pHZ9bfF7m
+vmb2deMxw17fyN9vGVrv01TrP7vnrwH0EfqBgd+yf8d15GbB3D/kxJhwHs0Z
+1jjH7J+qyRncQ51Y74PB9UQAcxL6gWHzZP/Wa8g+VyoO5vZHvnf0Xem1NKxz
+jtk/dS41uB4n8vU+s/5ZAfQV+oFhs2T/1mtIXXs+2cMb+x6Ak+cJpdfSsM45
+Zv/U/ZZB9TgN53Ou+QOrF/qBYXNk/9ZrSF17PlnDnzlXqMx2ZuTcsn8mn4/x
+PK9cb4Y6f2AzQj8wbIbs32r/X2SuPZ/M8ZHvIZ3Fc3IT+z237J+a7TloZmrs
+n7u8uJ8PwJRCPzCsnuzfav9Tsz2z154z15Wr84gX59j3HmudW/afZLZn5mdz
+O9efDcA5hH5gWDXZv9X+97r2HPl68lnO+5xT9o+GZ6kN2G6uF3u29VgA5xT6
+gWGVZP9W+9/72nOk58gMnk850VrnlP1T91sG9eFGug97ludjACWFfmBYFdm/
+cd8HPVeq4Rrz2xbfX/UMT/Y84BPvN6fsn6rL6T3bM9I92J7fC5AR+oFhFWT/
+xn1PPfup9ZyZzHXm7LzPeLzufbbr0TPL/qn+6sZzpsT2UjVYensBWgr9wLBo
+sn/jvqdme7aeM5M5f6gkZ0nW5wxnrQ2aS/bP5PRK51r/2M/1OXUOJvcDdBT6
+gWGxZP/GfU9de+50LT6RO5PX/uOxv7jXNe4B651L9k/V5nSu9Y993dapng25
+H2CA0A8MiyP7Z/c7d+250zyYRKZ+8Pboax9qfQbNsO+55rlk/1SPdKd9yeR+
+9f0AIwn9wLAYsn92v1PXnns9UzaRQf9sL+ran4PcX2TO/Byyf4z0XLT63O34
+fsv98bkWAOMI/cAwe7J/dr9T1557XY+P/MyfY8k+gInXPIfsn5rt2fqcKE4/
+k6H6eZ5tZhLAVoV+YJgt2T+5z7lrz73n7iQy6WjbH2Hdc8j+Tcfo9tQxqvf9
+1PdWX+9aP8AZhX5gmCXZP7nPuWvPg579Gun7CUVzf71vc8j+qb7oat5/qvf6
+lKrG6l3p3yWALQv9wDArsn+x437cS/Bx6DnFGkSL2Z71+UnquV8f4szPQwOg
+WegHhlmQ/ZmTE+dEf1/DL71vAAwX+oGhKNmfOYn0s9TM5ARYkdAPDEXI/sxJ
+pOv59eoCrEzoB4azk/2Zi8j3V5/9WQcAnEfoB4azkf2Zi0jP9lTrD7ABoR8Y
+Jif7MxeRfu6xWn+ADQn9wDAZ2Z85iPyz1MzoB9ig0A8Mo5P9mYNIz/asbP65
+BwBbFfqBYVSyP3MQ6dme96X3DYDyQj8wjEL2Zw4iPdvzS+l9A2A+Qj8wDCL7
+U1pV05P5vP5Qev8AmJ/QDwy9yP6UFvlaf8/0AiAp9ANDJ7I/pe1et5nP59el
+9w+AeQv9wNCa7E9JkX6el5ofADoJ/cDQSPanhKqWJ9KzfZ7l/zDjH4CWQj8w
+JMn+nNPu9a3jZ7F7AQD0EvqB4RnZHwBYs9APDH+T/QGAtQv9wPDHmbL/y/p9
+HnwqvW4AYHtCPzAbd47sDwAwJ6EfmI2S/QGArQr9wGyM7A8AbF3oB2YjZH8A
+AP3AbIPsDwDwKPQDs2KyPwDAc6EfmBWS/QEA0kI/MCsi+wMANAv9wKyA7A8A
+0E7oB2bhZH8AgG5CPzALJfsDAPQT+oFZGNkfAGCY0A/MQsj+AADjCP3AzJzs
+DwAwntAPzIzJ/gAA4wv9wMyQ7A8AMJ3QD8yMyP4AANML/cDMgOwPAHA+oR+Y
+gmR/AIDzCv3AFCL7AwCUEfqBOTPZHwAoIfY9sK5hPx6LVCbTD8xoZH8A4Nzq
+mpdfD3UspfdnLkI/MBOT/QGAcztR666O5enx0Q/MJGR/AOCc6hp3dSzNx0k/
+MKOT/QGAc9q9Xraoa6nyycvS+zoHoR+YEcn+AEAJVTZtcQ5QZd6L0vs6B6Ef
+mBHI/gBAKQd1LbnadnUsT4+ZfmB6k/0BgNLqc4CmupbqHOB96X2di9APTL/f
+G9kfAJiF2Ne2f23Ir9U17zel93UOQj8w3X9nZH8AYFaiXW179feXpfd1DkI/
+MO1/V2R/AGCWol1te3Wf4KL0vs5By3OmY/qBN0T2BwDmLtrVtn9Sx/L38dIP
+TOp3Q/YHAGYvzATqc8z0A3P8OyH7AwCLEe1q26tr3lel93UOQj8wT38fZH8A
+YHFi/3zgVI45PAe4LL2vc9DynMk51MrJ/gDAksW+v/VnQ4at8s7L0vs6B6Ef
+eNNkfwBgDarr09Hc31pd974ova9zEPqBN0n2BwDWItr1A/8OteyHx0w/8IbI
+/gDA2tTnAJ8a8muVd9+X3tc5CP3AmyH7AwBrFWYCTXG8HL8Fk/0BgLWLdv2t
+1d9fTvC+b0qvf6LjdUw/8ALI/gDAVkS7/tYqG12M9H7XdW3MImcMtTxekx0/
+JvmZyv4AwKbEfiZQU39rVfsyqJY9Hmvo74Zuq/Dx0g+8ErI/ALBF0W4m0KB+
+1vq6+d81MaXXPNLx6pL/9QPPjOwPAGxZtOtvrTLsVY9tXx5fCy+93jMdr2N3
+fY4fk/z8ZH8AYPPqTJvKRYcZ9rLDNo+zf2UVc0VDP/Aiyf4AAI9aZtrvbTJs
+IvtXFjf7J7NG/cALIvsDADwX+37gpkx7k8uwmey/2Nk/mbXqB14A2R8AIC2a
++4Ern05l2Ez2f6h/WVXuDf3Asyf7AwDktcy0v07lp4bv+V56bRMdr4vQDzxL
+sj8AQDstM+2TDNsi896UXteEx+sykzVz90MuS+/7Wsn+AADdtMy0PyNf83Po
+qvSaJj5e+oFnQvYHAOinzvZdM23KZen1nOF46Qcu/zOQ/QEABoh2M4Ga/NrC
+de7QD1z6+Mv+AAADHWTarte1j+uENpFvQz9wqeMu+wMAjKQ+B/hfB+T/r6XX
+cObjdZnJo7lzpMvS+75Esj8AwHhiX/8z5Nr/nxr30usocNz0A5/nOMv+AAAD
+1devfw7M/JvO//Vx1A887fGV/QEAeop+detdrmtvLtOGfuApj63sDwDQUYzT
+29vGZvp/TxzjPudVd6EfOHdMZX8AgA6iX236ENX5xcvS6y54vC8zmTV3znRZ
+et/nRvYHAGivRwYdM/9fll5/4WOvH3j4MZT9AQBaqq6/x36Wz3Xs61G+n/ke
+wFXpY1Ba6AcecuxkfwCAEcS+Pv3yDOcG16XXWlroB+573GR/AIAzyJwb9OkX
+vim9njkI/cBdj5fsDwBQWOxriT5Ft2cEfN/yNeyj43eZybUpm+sHlv0BAOal
+vpZd3Rv42uKewGZngCaOnX7g/PGR/QEAZqzOs58ymXbTM0ATx0w/8OnjIvsD
+ACxEfU/g/YkMt/kZoCeOlX7g58dE9gcAFmn3ervzoVb9wcfS+3Tm9f+jvidw
+c3CN+6r0fs1N6Ac+PBayPwAwW7vXu4N8X7nN5LW3pfe38LF6WV+zVv9z+vhc
+ZrLvJvqBZX8AYI465rMHL0rvN/MXG+4Hlv0BgCWIfX3PfSabfSu9jyxLbLAf
+WPYHAJZi9/qYyWQfSu8fyxMb6weW/QGApYjHnt5TXpXeP5YrNtIPLPsDAEuR
+ue5/X3rfWIdYeT+w7A8ALMXu9SORWzY125PpxUr7gWV/AGAJdq8Xmcy16dme
+TCdW1g8s+wMASxD7OT+prGW2J5OJFfUDy/4AwBLsXl8SmcVsT84iVtAPLPsD
+AEsQ6dn+ZntyVrHgfmDZHwCYu93rVSZTme1JEbHAfmDZHwCYu0jP9Tfbk+Ji
+Qf3Asj8AMHeRrvX/XHrfoBIL6QeW/QGAOQuzPVmQmHk/sOwPAMxZmO3JAsVM
++4FlfwBgznavj4ms8qP0vkGTmFk/sOwPAMxZlfETWcVsTxYjZtIPLPsDAHMV
++Vp/sz1ZlJhBP7DsDwDMVZjtyQpFwX5g2R8AmKvoONtz9/qrY5469q70mtmO
+KNAPLPsDAHNVXd9P5JRWsz3r+wa3DVnqY9vtwRTijP3Asj8AMEe716tM7mk9
+2zPSdUNfumwHphZn6AeW/QGAOcpk9k6zPeP0jFDX+ZmlmLgfWPYHAOYoRpjt
+Gc/r/6v6H/OBmL2YqB9Y9gcA5iZGmO1Zb+Pw/KH633+VXht0ESP3A8v+AMDc
+VDU5iXzSerbnUe7/UnpNMESM1A8s+wMAcxOna/QrJ2d7Hn3v8fX+j6XXA2OJ
+gf3Asj8AMDeRrvXP9ujGvr7/8HvN62d1Ylg/8D/J/gDAXETP2Z719x3O8n9d
+ei0wpejXD/z/yP4AwFxEj9me8bQ/wCwfNiX69QPL/gBAcbF/5tapbHJytufR
+uYJZPmxW9OsH1hcDABSze90nssmza/lH5wnfcjVBsBXRrx+48rX+3ovSawAA
+1i/Stf73R1933NPbOP8HtiT69QMf+ll//8vSawEA1ilazPbcvV4f3Ru4Lb3f
+MFfRrx/42F29jTel1wMArEc0zPaM9DO/zPSBjBinH/h3XUtU1QZdRf3MAACA
+rmL/TK5U3niRuSdQ8dxeaGH3+tc7/3mEc4DD2iA9AgBAJ5lr+tXMzm8tMoj5
+PtDS7vUfdv7jzv874nlAVRv0qbrHUHp9AMC87V6fW2SL3NecnAEK5MV+Nuin
+6D8fNFUbdBNqgwCAEyI92/N3/Xev669Lzf+/L7n/sAa718u6hufniOcBFfND
+AYA/Ij3bs/Jkbn/s5/ykvvZd6bXAWsR+RtBVndvHPA/4Wd9nMD8UADYonj6b
+99DJHt7Y9wCcPE8ovRZYq9jXBt1Ev+eGpdyF+aEAsCmZOp6TNfyZc4XKs+f/
+AuOKfW3Qp5imNqi616BHAABWKPbzO1O1/idzfOTngXrGL5xR7GuDqlr+7yOf
+BzzMD1UbBAArEenZntne3UjP/KnOI16cY9+Bp6rr9fV1+6qOZ+zaIPNDAWDh
+Iv3MruzzuiLfH2zeJ8xA7J8nbH4oAPDH7vWjb36P9DO/bkuvC3gqzA8FgE2L
+fN1+Y89u5Od9vm3x/VXPsOcBw5nFY22Q+aEAsBG717vEv9+tn9MVPed9xmOf
+gfogKCwe54fejXge8FAbZH4oAMxApGd7Zmv9j7aROn+ovM58X3XOoDYIZiam
+nx96UXqNALBFkZ7t2elafNdr//HYX9xYFwSUE4/zQ6eoDTI/FADOJPJzejo9
+n6vh2v/bo699qPVpfW8BKC+mnx+qNggAJhLpZ/O2rvU/2l5qXlB1b+F1/TUP
+ub+6T+AZALBgYX4oACxGpOdz9roeH/mZP8eSfQDA8sRjbdDYPQLfw/xQABgk
+8rM9e8/difRzwkbZPjB/8XR+6Ji1QeaHAkAP8Vh7c0qnWv8T207dT5D7YYNi
+4vmhoTYIAIqK570EH4eeUwDLF/v5oddhfigAAGxGTDs/9FptEAAAzE/sewQe
+aoPMDwUAgI2I6eaHPtQG6REAAICZCfNDAQBgc2K6+aEPtUF6BAAAYIbqHoGp
+ni1sfigAAMxQmB8KAACbU/cIPNQGjXkeYH4oAADMVEw7P/RPbVDpNQIAAM/V
+tUFj9wj81BsAAADzFY/zQ7+P0RdQej0AAECzGD4/9FfpNQAAAN1F9/mhd6X3
+GQAAGKbuEWh6tvB16f0EAADGE0/nh/6q7wtcl94vAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAB4sHtdVkrvBwAALNnu9Y+HbF17ecb3flm/55ud
+69rXne87dzu/D/ys9rX08QIAgCWr8/dx1j7O3d8P3Bxk9cr7o/OHQw9fc3Pw
+/an3yb2/3A8AACPZva4azgFKkPsBAGAi9XX8XzPI/d/lfgAAmFbs+wCuC54D
+3JQ+BgAAsCX1OcCN3A8AANuwe12c6RzgpvRaAQCAP+cAL6PfrJ423pdeHwAA
+8FTs53eOeQ7wn2I/27/qM74ovT4AAOCpmG4uaLXNTztvSq8RAAB4VJ8DTDkT
+yD0BAACYidjPBJqqF+D4nsBNdU8gzP8HAIBiYv9cgC5Z/t/X3/Oz57nA9/qe
+wMvSawcAgK2pr8m3rgE6+L5/1PVDN9Gvj8A9AQAAOLPYPxOg7bX8y8Q2XtbX
+9PvWEv2s7ym4JwAAABOL/byepoz+qcV2/lFfz+97T+BX/b1X7gkAAMA0onkO
+0M8e23y4J/B14D2By9LHBwAA1qTO6rkaoIuB239T32Poe0/ga32OMmg/AACA
+v+t2bhL5+2rE97kY4Z7AJ/cEAABgmPr6+nHevpnw/S7rLN9njujDPQHPFgMA
+gB7qGqDD+pxfZ3rfi/rc42v0exbxXX0e8ab0MQQAgKWoa4AO63LOPotz4D2B
+3+4JAABAe3V2rv7HdeH9OHy2WN97AtX3erYYAAAk1Nffr0rvx9E+VXVJ1wPu
+CXyvz2s8WwwAABbi6J7AXY/zAPcEAABggeLx2WLfe94TeHi22Oj3BHavdzsf
+al/q93vb4uuP9/G2/vNXpY83AADMQX1P4E3PewJfe77n64N8/7HF+7w4sY0q
+89+33M/qHOKv0scaAADm5OCeQJtni1113PZfPe4x/DixjW89tnMr/wMAQFp9
+T+BT4p7AxcBtvzio60n5cPD1rztc60/l/2f3EAAAgKdi/2yxh3sCP0fc7o9M
+Xn9Vf83roz//GAe1/PV5xKm6/+S5BAAAcF671+dETr+v//4w93/JXbuvzgca
+sv+9a/8AAFBGJvt/rOv7H+p8kvN+jrbXdP2/1XYAAIBxZWp+3tU1+vfRYVZn
+NPcUfyy9ZgAA2Jq6Tj+V0R/m+bzusd3bzHa/lF43AABsTVV/M0VvbuTngH4r
+vW4AANiayD/b63bAdnPZv/d2AQCAfhpqczrX+hxsV/YHAICZiPw8zkF1OWp+
+AABgPhpmcQ6aw5mZHaTXFwAAziz2z+k6+fytEbZ9n8n+ZnwCAMAZZfL5oGwe
++bmhvWcHAQAA3TXM9mz9HK/Etl83ZP9B2wcAANrLzPb8McK2c30Eg+uJAACA
+9jK9uIPrcRpm/Kj1BwCAM2moxx9a79NU69/7mQEAAEA3mZqcwc/c2r3eZXL/
+4HoiAACgvcxsz8H1OA31Pu9Krx0AALYkM9tzUD1O5J8T7Jo/AACcUSafj/E8
+r8/q/AEAYB4ysz2/DNzuX5nc/7n0ugEAYGummu2ZueZ/W83+Kb1uAADYkob5
+m73zeeSf4+sZvgAAcGa719sp+nDra/uTPCcMAADoLlOX03u2Z6SfFeD5vQAA
+UEhmtufbnttLzQzS2wsAAIU0zN7vXOtfz/U5Vesj9wMAQEGZ2pzOtf51z/Cp
+eUFyPwAAFLZ7fRujPieT+9X3AwBAYQ2zPVtn/7pu6LjO575vvwAAADCuzGzP
+1s/eitPPA67uJfxVen0AAMBeIrcf5/9ns/h3r3eJ7711rR8AAOYnMY/nT71P
+Zu7nyb7g6nyg9HoAAIDn2sz2rK/vp5779aGmtgcAAGZszNmeAADAfO1eXxLZ
+30xOAABYkUw9v15dAABYiYbZno1zPQEAgGXIzPZU6w8AACtSz+RU6w8AACtW
+1fRk6n3M6AcAgJXIzPasvCq9fwAAwDgysz3vS+8bAAAwnsxszy+l9w0AABhH
+VdOTqff5UHr/AACAcTTU+numFwAArMTudZvJ/q9L7x8AADBc5nlean4AAGAF
+qlqezGyfZ/nfjH8AAFiW3etby7zvXgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJvz/wNIbIK9
+       "], {{0, 630}, {
+       767, 0}}, {0, 255},
+       ColorFunction->RGBColor],
+      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+      Selectable->False],
+     BaseStyle->"ImageGraphics",
+     ImageSize->{102.94010416666669`, Automatic},
+     ImageSizeRaw->{767, 630},
+     PlotRange->{{0, 767}, {0, 630}}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1101481876],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int1", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"k", ".", "k"}], " ", 
+     RowBox[{"k", ".", "p"}]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"Cancel", "\[Rule]", "True"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->663558160],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopIntegrate", "::", "nocancel"}], "MessageName"], ":", 
+  " ", "\<\"Warning: External vectors \[NoBreak]\\!\\({0, 0, p}\\)\[NoBreak] \
+are linearly dependent, scalar products involving integration variable \
+\[NoBreak]\\!\\(k\\)\[NoBreak] in the numerator cannot be canceled with \
+denominator factors.  Set Apart->True to LoopIntegrate to permit canceling \
+scalar products. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\
+\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/LoopIntegrate\\\", ButtonNote -> \
+\\\"X`LoopIntegrate::nocancel\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->920213601],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "3", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "0", ",", "0"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"2", "+", "\[ScriptD]"}], ")"}], " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"1", ",", "0", ",", "1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "0", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{558, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2000249960]
+}, Open  ]],
+
+Cell[TextData[{
+ "Set option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Apart",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#1834656470"], "\[Rule]", 
+   ButtonBox["True",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to expand denominators in partial fractions thereby making all \
+denominators factors suitable for canceling scalar products:"
+}], "ExampleText",
+ CellID->874207131],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int2", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"k", ".", "k"}], " ", 
+     RowBox[{"k", ".", "p"}]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"Cancel", "\[Rule]", "True"}], ",", 
+    RowBox[{"Apart", "\[Rule]", "True"}]}], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1223255085],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         SuperscriptBox["m", "2"], "2"]}], "-", 
+       FractionBox[
+        RowBox[{"p", ".", "p"}], "2"]}], 
+      SuperscriptBox["m", "2"]], "+", 
+     FractionBox[
+      RowBox[{"p", ".", "p"}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}]]}], ")"}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "0"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["m", "4"], "2"]}], "-", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"0", ",", "0", ",", 
+      RowBox[{"p", ".", "p"}], ",", "m", ",", "0"}], "]"}]}], 
+   SuperscriptBox["m", "2"]]}]], "Output",
+ ImageSize->{523, 57},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1013304655]
+}, Open  ]],
+
+Cell["Results are the same in both cases:", "ExampleText",
+ CellID->173171285],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopRefine", "[", "int1", "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "int2", "]"}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->447829355],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "4"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"p", ".", "p"}]}]]}]], "Output",
+ ImageSize->{422, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->72744204],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "4"]}], "+", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"p", ".", "p"}]}]]}]], "Output",
+ ImageSize->{422, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->693641485]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Neat Examples",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->589267740],
+
+Cell["\<\
+Make a list of the first few covariant decompositions of a tensor bubble \
+integral:\
+\>", "ExampleText",
+ CellID->191823653],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"1", ",", 
+      SubscriptBox["k", "\[Mu]"], ",", 
+      RowBox[{
+       SubscriptBox["k", "\[Mu]"], 
+       SubscriptBox["k", "\[Nu]"]}], ",", 
+      RowBox[{
+       SubscriptBox["k", "\[Mu]"], 
+       SubscriptBox["k", "\[Nu]"], 
+       SubscriptBox["k", "\[Rho]"]}]}], "}"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"Organization", "\[Rule]", "Function"}]}], "]"}], "//", 
+  "TableForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1600253590],
+
+Cell[BoxData[
+ TagBox[
+  TagBox[GridBox[{
+     {
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]},
+     {
+      RowBox[{
+       SubscriptBox["p", "\[Mu]"], " ", 
+       RowBox[{"PVB", "[", 
+        RowBox[{"0", ",", "1", ",", 
+         RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]},
+     {
+      RowBox[{
+       RowBox[{
+        SubscriptBox["p", "\[Mu]"], " ", 
+        SubscriptBox["p", "\[Nu]"], " ", 
+        RowBox[{"PVB", "[", 
+         RowBox[{"0", ",", "2", ",", 
+          RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+       RowBox[{
+        SubscriptBox["\[DoubleStruckG]", 
+         RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+        RowBox[{"PVB", "[", 
+         RowBox[{"1", ",", "0", ",", 
+          RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}]},
+     {
+      RowBox[{
+       RowBox[{
+        SubscriptBox["p", "\[Mu]"], " ", 
+        SubscriptBox["p", "\[Nu]"], " ", 
+        SubscriptBox["p", "\[Rho]"], " ", 
+        RowBox[{"PVB", "[", 
+         RowBox[{"0", ",", "3", ",", 
+          RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           SubscriptBox["p", "\[Rho]"], " ", 
+           SubscriptBox["\[DoubleStruckG]", 
+            RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+          RowBox[{
+           SubscriptBox["p", "\[Nu]"], " ", 
+           SubscriptBox["\[DoubleStruckG]", 
+            RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "+", 
+          RowBox[{
+           SubscriptBox["p", "\[Mu]"], " ", 
+           SubscriptBox["\[DoubleStruckG]", 
+            RowBox[{"\[Nu]", ",", "\[Rho]"}]]}]}], ")"}], " ", 
+        RowBox[{"PVB", "[", 
+         RowBox[{"1", ",", "1", ",", 
+          RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}]}
+    },
+    GridBoxAlignment->{
+     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+      "RowsIndexed" -> {}},
+    GridBoxSpacings->{"Columns" -> {
+        Offset[0.27999999999999997`], {
+         Offset[0.5599999999999999]}, 
+        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+        Offset[0.2], {
+         Offset[0.4]}, 
+        Offset[0.2]}, "RowsIndexed" -> {}}],
+   Column],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ ImageSize->{483, 70},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//TableForm=",
+ CellID->1505904063]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVX",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVX"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1249944514],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "LoopIntegrate - Wolfram Mathematica", "LoopIntegrate"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 37.315905}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LoopIntegrate[num, k, {q_0, m_0}, {q_1, m_1}, ...] expresses the \
+one-loop tensor integral over integration variable k with numerator num and \
+denominator factors ( q_0^2 - m_0^2) ( q_1^2 - m_1^2) ... in terms of \
+Passarino-Veltman coefficient functions.LoopIntegrate[num, k, {q_0, m_0, \
+w_0}, {q_0, m_1, w_1}, ...] expresses the one-loop tensor integral in terms \
+of Passarino-Veltman coefficients with weights w_0, w_1, ....", 
+    "synonyms" -> {}, "title" -> "LoopIntegrate", "titlemodifier" -> "", 
+    "windowtitle" -> "LoopIntegrate", "type" -> "Symbol", "uri" -> 
+    "X/ref/LoopIntegrate"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/LoopRefine.nb b/packages/X/Documentation/English/ReferencePages/Symbols/LoopRefine.nb
new file mode 100644
index 0000000000000000000000000000000000000000..0ee48e4c6d8cc6be1270b1858bc7b514e504d531
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/LoopRefine.nb
@@ -0,0 +1,7833 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopIntegrate\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopIntegrate"], "\<\"LoopRefineSeries\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefineSeries"], "\<\"PVA\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVA"], "\<\"PVB\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVB"], "\<\"PVC\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVC"], "\<\"PVD\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVD"], "\<\"Discontinuity\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Discontinuity"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"], "\<\"Special Functions and Abbreviations \
+in Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/LoopRefine\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/LoopRefine"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/LoopRefine.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/LoopRefine", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["LoopRefine", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LoopRefine",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LoopRefine"], "[", 
+       StyleBox["expr", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]converts the Passarino-Veltman coefficient functions \
+in ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " to analytic expressions that can be numerically evaluated."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details and Options"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1132411844],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " converts ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to analytic expressions in terms of elementary functions and ",
+ ButtonBox["special functions, and are ",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/guide/SpecialFunctions"],
+ "valid for real (positive or negative) external invariants and positive \
+semi-definite internal masses."
+}], "Notes",
+ CellID->2057726153],
+
+Cell[TextData[{
+ "With the default setting ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Dimensions",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#956537117"], "\[Rule]", "4"}]], 
+  "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " replaces spacetime dimension ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in ",
+ Cell[BoxData[
+  StyleBox["expr", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ StyleBox["4-2", "InlineCode"],
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (default) and retains terms through order ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", 
+    SuperscriptBox["\[Epsilon]", "0"], ")"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1019076446],
+
+Cell[TextData[{
+ "All logarithmic UV and IR divergences are explicitly displayed as ",
+ Cell[BoxData[
+  FractionBox["1", 
+   ButtonBox["\[Epsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  FractionBox["1", 
+   SuperscriptBox[
+    ButtonBox["\[Epsilon]",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/Eps"], "2"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " poles.  An expression generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " that is free of ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is expressly free of any logarithmic UV and IR divergences."
+}], "Notes",
+ CellID->763042231],
+
+Cell[TextData[{
+ "To interpret the output of ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in terms of the canonical integration measure ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"2", "\[Pi]"}], ")"}], "d"]]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " near 4 spacetime dimensions, (1) multiply the output by ",
+ Cell[BoxData[
+  FormBox[
+   FractionBox["i", 
+    RowBox[{"16", 
+     SuperscriptBox["\[Pi]", "2"]}]], TraditionalForm]], "InlineMath"],
+ ", and (2) interpret poles near ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Epsilon]", " ", "~", " ", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " as follows:"
+}], "Notes",
+ Deletable->True,
+ CellID->699149630],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox[ButtonBox["LoopRefine",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopRefine"],
+      FontWeight->"Bold"],
+     StyleBox[" output:",
+      FontWeight->"Bold"]
+    }], "TableText"], Cell[TextData[StyleBox["implied expression:",
+     FontWeight->"Bold"]], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FractionBox["1", 
+      ButtonBox["\[Epsilon]",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       FractionBox["1", "\[Epsilon]"], "-", 
+       SubscriptBox[
+        ButtonBox["\[Gamma]",
+         BaseStyle->"Link",
+         ButtonData->"paclet:ref/EulerGamma"], 
+        StyleBox["E",
+         FontSlant->"Plain"]], "+", 
+       RowBox[{"ln", "(", 
+        RowBox[{"4", "\[Pi]"}], ")"}]}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FractionBox["1", 
+      SuperscriptBox[
+       ButtonBox["\[Epsilon]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Eps"], "2"]]], "InlineFormula",
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       FractionBox["1", 
+        SuperscriptBox["\[Epsilon]", "2"]], "+", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", 
+           SubscriptBox[
+            ButtonBox["\[Gamma]",
+             BaseStyle->"Link",
+             ButtonData->"paclet:ref/EulerGamma"], 
+            StyleBox["E",
+             FontSlant->"Plain"]]}], "+", 
+          RowBox[{"ln", "(", 
+           RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "+", 
+       FractionBox[
+        SubsuperscriptBox[
+         ButtonBox["\[Gamma]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:ref/EulerGamma"], 
+         StyleBox["E",
+          FontSlant->"Plain"], "2"], "2"], "-", 
+       RowBox[{
+        SubscriptBox[
+         ButtonBox["\[Gamma]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:ref/EulerGamma"], 
+         StyleBox["E",
+          FontSlant->"Plain"]], 
+        RowBox[{"ln", "(", 
+         RowBox[{"4", "\[Pi]"}], ")"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "2"], 
+        RowBox[{
+         SuperscriptBox["ln", "2"], "(", 
+         RowBox[{"4", "\[Pi]"}], ")"}]}]}], TraditionalForm]], "InlineMath"]],
+      "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True}}}},
+ CellID->1378542191],
+
+Cell[TextData[{
+ "Besides reorganizing the result, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not perform any substantial tensor algebraic manipulations."
+}], "Notes",
+ CellID->140216912],
+
+Cell[TextData[{
+ "With the default setting ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Analytic",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#498986588"], "\[Rule]", 
+   ButtonBox["False",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/False"]}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " checks for possible power IR divergences."
+}], "Notes",
+ CellID->822505165],
+
+Cell[TextData[{
+ "The precise reduction method used by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " depends on the arguments of ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1403644502],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " automatically threads over lists."
+}], "Notes",
+ CellID->150515877],
+
+Cell["The following options can be given:", "Notes",
+ CellID->1067943069],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["Analytic",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LoopRefine#498986588"], 
+    ButtonBox["False",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/False"], Cell[TextData[{
+     "whether to continue ",
+     Cell[BoxData[
+      FormBox["\[Epsilon]", TraditionalForm]], "InlineMath"],
+     " to large negative values"
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["Dimensions",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LoopRefine#956537117"], "4", Cell[TextData[{
+     "value of ",
+     Cell[BoxData[
+      StyleBox["n", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " for which the limit ",
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["\[ScriptD]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Dim"], "\[Rule]", 
+       RowBox[{
+        StyleBox["n", "TI"], "-", 
+        RowBox[{"2", 
+         ButtonBox["\[Epsilon]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:X/ref/Eps"]}]}]}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " is taken."
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["ExplicitC0",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LoopRefine#59651079"], 
+    ButtonBox["Automatic",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/Automatic"], Cell[TextData[{
+     "threshold of complexity for inserting explicit analytic expressions of \
+the scalar ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["C", "0"], TraditionalForm]], "InlineMath"],
+     " function"
+    }], "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["Part",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LoopRefine#883568301"], 
+    ButtonBox["All",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/All"], Cell[
+    "part of the loop integral to compute", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["TargetScale",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LoopRefine#895406538"], 
+    ButtonBox["Automatic",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/Automatic"], Cell["\<\
+mass variable with which ratio of 't Hooft  parameter \[Mu] is formed inside \
+logarithm\
+\>", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["Organization",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LoopRefine#1386369098"], 
+    ButtonBox["LTensor",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LTensor"], Cell[
+    "how the result should be organized", "TableText"]}
+  }]], "3ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True, True, True}}}},
+ CellID->1019799162],
+
+Cell[TextData[{
+ "Possible values for ",
+ Cell[BoxData[
+  ButtonBox["ExplicitC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine#59651079"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are:"
+}], "Notes",
+ CellID->1659902239],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["All",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/All"], Cell[TextData[{
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["C", "0"], TraditionalForm]], "InlineMath"],
+     " functions are always given explicitly"
+    }], "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["Automatic",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/Automatic"], Cell[TextData[{
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["C", "0"], TraditionalForm]], "InlineMath"],
+     " functions with known simple forms are given explicitly"
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["None",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/None"], Cell[TextData[{
+     "IR-finite ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["C", "0"], TraditionalForm]], "InlineMath"],
+     " functions are always left symbolic"
+    }], "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True}}}},
+ CellID->1134134539],
+
+Cell[TextData[{
+ "Possible values for ",
+ Cell[BoxData[
+  ButtonBox["Organization",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine#1386369098"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are:"
+}], "Notes",
+ CellID->8256938],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["LTensor",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/LTensor"], Cell[
+    "Organizes result by tensor structures", "TableText"]},
+   {Cell["      ", "TableRowIcon"], "Function", Cell[TextData[{
+     "Organizes result by special functions such as ",
+     ButtonBox["Log",
+      BaseStyle->"Link",
+      ButtonData->"paclet:ref/Log"],
+     " and ",
+     ButtonBox["PolyLog",
+      BaseStyle->"Link",
+      ButtonData->"paclet:ref/PolyLog"]
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["None",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/None"], Cell[
+    "Leaves result unorganized", "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True}}}},
+ CellID->1335403558],
+
+Cell[TextData[{
+ "Possible values for ",
+ Cell[BoxData[
+  ButtonBox["Part",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine#883568301"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are:"
+}], "Notes",
+ CellID->1029325004],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    ButtonBox["All",
+     BaseStyle->"Link",
+     ButtonData->"paclet:ref/All"], Cell["\<\
+Full integral is calculated, including the finite parts and the logarithmic \
+UV and IR singularities.\
+\>", "TableText"]},
+   {Cell["      ", "TableRowIcon"], "UVDivergent", Cell[TextData[{
+     "Logarithmic UV divergent part is calculated, and only terms through \
+order ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"\[ScriptCapitalO]", "(", 
+        SuperscriptBox["\[Epsilon]", 
+         RowBox[{"-", "1"}]], ")"}], TraditionalForm]], "InlineMath"],
+     " are retained."
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], "IRDivergent", Cell[TextData[{
+     "Logarithmic IR divergent part is calculated, and only terms through \
+order ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"\[ScriptCapitalO]", "(", 
+        SuperscriptBox["\[Epsilon]", 
+         RowBox[{"-", "1"}]], ")"}], TraditionalForm]], "InlineMath"],
+     " are retained."
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["Discontinuity",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/Discontinuity"], "[", 
+     StyleBox["s", "TI"], "]"}], Cell[TextData[{
+     "Discontinuity across normal threshold cut in channel ",
+     Cell[BoxData[
+      FormBox["s", TraditionalForm]], "InlineMath"],
+     " is calculated."
+    }], "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["Discontinuity",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/Discontinuity"], "[", 
+     RowBox[{
+      StyleBox["s", "TI"], ",", 
+      StyleBox["t", "TI"]}], "]"}], Cell[TextData[{
+     "Mandelstam double spectral function in overlapping channels ",
+     Cell[BoxData[
+      FormBox["s", TraditionalForm]], "InlineMath"],
+     " and ",
+     Cell[BoxData[
+      FormBox["t", TraditionalForm]], "InlineMath"],
+     " is calculated."
+    }], "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True, True}}}},
+ CellID->1884565643]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(25)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1445782394],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(2)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->487230153],
+
+Cell[TextData[{
+ "Compute ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        SubscriptBox["k", "\[Mu]"], 
+        SubscriptBox["k", "\[Nu]"]}], 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " with ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["p", "2"], "=", "s"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1407651420],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+  RowBox[{
+   RowBox[{"p", ".", "p"}], "\[Rule]", "s"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->900026726],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", "s", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", "s", ",", "m", ",", "m"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{305, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1294561704]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1760873439],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "12"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"13", " ", "s"}]}], 
+      RowBox[{"18", " ", "s"}]], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+      RowBox[{"3", " ", "s"}]], "+", 
+     RowBox[{
+      FractionBox["1", "3"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "18"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"21", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"4", " ", "s"}]}], ")"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"6", " ", 
+         SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{521, 78},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->971245081]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        RowBox[{
+         SubscriptBox["k", "\[Mu]"], 
+         SubscriptBox["k", "\[Nu]"]}], 
+        RowBox[{
+         RowBox[{"[", 
+          RowBox[{
+           SuperscriptBox["k", "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}]]}]}]}], "=", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]], "[", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "12"}], 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"13", " ", "s"}]}], 
+        RowBox[{"18", "s"}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], 
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{
+           RowBox[{"s", ";", "m"}], ",", "m"}], ")"}]}], 
+        RowBox[{"3", "s"}]], "+", 
+       RowBox[{
+        FractionBox["1", "3"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           FractionBox["1", "\[Epsilon]"], 
+           StyleBox[
+            RowBox[{"-", 
+             RowBox[{
+              SubscriptBox["\[Gamma]", "E"], 
+              RowBox[{"+", 
+               RowBox[{"ln", "(", 
+                RowBox[{"4", "\[Pi]"}], ")"}]}]}]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], "+", 
+          RowBox[{"ln", "(", 
+           FractionBox[
+            SuperscriptBox["\[Mu]", "2"], 
+            SuperscriptBox["m", "2"]], ")"}]}], ")"}], 
+        SubscriptBox["p", "\[Mu]"], 
+        SubscriptBox["p", "\[Nu]"]}], "\[IndentingNewLine]", "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           FractionBox["1", "18"], 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"21", 
+              SuperscriptBox["m", "2"]}], "-", 
+             RowBox[{"4", "s"}]}], ")"}]}], "+", 
+          RowBox[{
+           FractionBox["1", "12"], 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"4", 
+              SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], 
+           RowBox[{"\[CapitalLambda]", "(", 
+            RowBox[{
+             RowBox[{"s", ";", "m"}], ",", "m"}], ")"}]}], "+", 
+          RowBox[{
+           FractionBox["1", "12"], 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"6", 
+              SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              FractionBox["1", "\[Epsilon]"], 
+              StyleBox[
+               RowBox[{"-", 
+                RowBox[{
+                 SubscriptBox["\[Gamma]", "E"], 
+                 RowBox[{"+", 
+                  RowBox[{"ln", "(", 
+                   RowBox[{"4", "\[Pi]"}], ")"}]}]}]}],
+               FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], "+", 
+             RowBox[{"ln", "(", 
+              FractionBox[
+               SuperscriptBox["\[Mu]", "2"], 
+               SuperscriptBox["m", "2"]], ")"}]}], ")"}]}]}], ")"}], 
+        SubscriptBox["g", "\[Mu]\[Nu]"]}]}]}], "]"}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->1578645914],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1559397302],
+
+Cell[TextData[{
+ "Compute ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{"k", "\[CenterDot]", 
+        SubscriptBox["p", "1"]}], 
+       RowBox[{
+        RowBox[{
+         RowBox[{"[", 
+          RowBox[{
+           SuperscriptBox["k", "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", 
+            SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " with ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "2"], "=", "s"}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "2", "2"], "=", 
+    SuperscriptBox["M", "2"]}], TraditionalForm]], "InlineMath"],
+ ", and ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["p", "1"], "\[CenterDot]", 
+     SubscriptBox["p", "2"]}], "=", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"s", "+", 
+       SuperscriptBox["M", "2"]}], ")"}], "/", "2"}]}], TraditionalForm]], 
+  "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1376432825],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{"k", ".", "p1"}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p2"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], 
+       RowBox[{"(", 
+        RowBox[{"s", "+", 
+         SuperscriptBox["M", "2"]}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", "s"}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["M", "2"]}]}], "}"}]}], ";"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1947036558],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"f", "[", 
+   RowBox[{"s_", ",", "m_", ",", "M_"}], "]"}], "=", 
+  RowBox[{"LoopRefine", "[", "%", "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->586700288],
+
+Cell[BoxData[
+ RowBox[{"1", "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", 
+      SuperscriptBox["M", "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       SuperscriptBox["M", "2"]}]], "]"}]}], 
+   RowBox[{"2", " ", 
+    SuperscriptBox["M", "2"]}]], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["M", "2"], ",", "s", ",", "m", ",", "m", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{413, 46},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1405589304]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        RowBox[{"k", "\[CenterDot]", 
+         SubscriptBox["p", "1"]}], 
+        RowBox[{
+         RowBox[{
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "+", 
+              SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}]]}]}]}], "=", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]], "[", 
+     RowBox[{"1", "+", 
+      RowBox[{
+       RowBox[{"(", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["m", "2"]}], "+", 
+          SuperscriptBox["M", "2"]}], 
+         RowBox[{"2", 
+          SuperscriptBox["M", "2"]}]], ")"}], 
+       RowBox[{"ln", "(", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"]}]], ")"}]}], "+", 
+      RowBox[{
+       FractionBox["1", "2"], 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}], ")"}], 
+       RowBox[{
+        SubscriptBox["C", "0"], "(", 
+        RowBox[{"0", ",", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["M", "2"], "s"}], ";", "m"}], ",", "m", ",", "0"}], 
+        ")"}]}]}], "]"}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ CellID->1899375576],
+
+Cell["Plot the result:", "ExampleText",
+ CellID->1323157118],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"Re", "[", 
+      RowBox[{"f", "[", 
+       RowBox[{"s", ",", "4.0", ",", "1.0"}], "]"}], "]"}], ",", 
+     RowBox[{"Im", "[", 
+      RowBox[{"f", "[", 
+       RowBox[{"s", ",", "4.0", ",", "1.0"}], "]"}], "]"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", 
+     RowBox[{"-", "100"}], ",", "100"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1902567789],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnetXE0kWwPvs7of9L/bst90v+bKfPZ7s7Ow4isAI6Oiwo8hMHHdVUMdx
+o6gripoVH5mBFXwQXhE0cTCEpxAeQTAKAQlKBII8NDwCJtAQOtAJs5UEmTw6
+Heh00p1Qv4OcmBRdt+nLvbeq7q364/6UHbzfIAhy/Pfg246kk9xjx5L4cb8D
+//kr//tv9/8WvDgE/lWAf/bXv0AgGxIMRVEMZ1oKCMvANDxgFjkc8I3Llxjd
+P9SK7B86EaqNxFeARCq4QaPV218YFEABqg1uH2qEXCRVZkCNBoMBhXZlw4Jr
+uAgi0mKu76mFXI5AzZREEJagkwD3wR92f1OTE+PwJ1yhQufRHsbnGwSdLBUo
+gELv7TZwDEN1KhHQBLHOzaSsxiEhExISevSKdAThaVCSJriIiyRK3EzHxtGK
+t03dTIvAEKgauI1UmQ7YB6PR6DANmFomkqkdUSnusCS4DpiVdJXbOGUjGA3T
+6GTZgZvi+HSmBWEGVJODuJBjNx+okINwhPYQFMSizvc5PJH7CCbC7QaOLapu
+yQui0rrEiuXlZabFYSU4BoavRhTz/iSCdWO49ZU47nzDRfGCaY5pWcKSiPQp
+81MztafySnZn6NX9TMsSxkSeYvTK2vK3nVbn11qX4DRfQESS3Zh5Zyg/nFXG
+u2EcGmdaFtZButaGGY0E8+URoxg9UiUwFz2S5mWbjWlZWAbpWhuuV8asDFT4
+7rPpkaAb6PgH+ZHsxweFwG4wLQsrIVtrw0RcJEakBa+U6RwkXen6Wbj7lP7a
+dmAuuksaoLnwj/daG6bmIly1czpMI0SQdFfFCV/FsKALdWfzHyRemdbpmZYl
+PCBYa3Pohso5l66vRlZfOwjT9ZSJniFxQnqr8GfcssS0LOEB8Vqbq27YPY6n
+boRSwsBZXl7uKq4v2H5mpO0107KEDT7X2iLIp2Cz85XHc0HYOTdpYlqW8IFs
+rQ0FsSjPsfyqEnARvsL158LIoRi0o8Vx55/nVtisMOxcB+RrbbhesTKGRcJ1
+DNsrayuIShtSapgWJBLBUYPB6L3Yxn67YcOtLZmSh/+4MjMKpy9CCssVA5uZ
+lx36qfqHO0sLFqZl2XCwWTeMQ+NgoAoCDDivxQis9SnvO/pBgKGr72RakI0L
+OxWjr+pFwfYzY12eWfEQagwrhFz7UluMymuKg6SujYW60SGqub/zgmlkkmlB
+Ige9WqlUijnu055OSOraWOVTQFzRcl36KPkazOKjH9xletwFkro29igGGKvW
+nyssP5QFhyRBASPWDfK6NjaYDtyy2CworeXfsy7CRL7g4EM3yOvaQiWcT3Bs
+UZ6S3XBRDCfDg4hP3XDCxrq2JbNF9s8fGy+VwPqR4GJUcRGO0ug0y2FQ1wb0
+oe5cQdNlqBjBRZOT6D5QZXtdG4g5Hx8U5m46ypQAEDukdW2MqAduWQJDksbL
+JThuDX3vkLUQAsWYmJhrbnqbL1JnXGhIOVyeuKc0Nkp0flPavzed27wpZ/Om
+XPD1t7/e2bpFtCtBnJwkTU2Rnz9X/6OwVVzcVfdkoPvl2Pg4arNBpxNqgqQb
+i4tWpXLoyqXG+B3F4Os0v/bunRe1tf1dXfrREVMVP+/J2XzXGAPHbXNzi0CL
+dLrpzk69ol4neai59b9nF9IVRw6Vgyt8wr2z58uSE8crb954KpX2vHj+DjSG
+UUpQod2njOlnwZ98dFTBsdSKsrLXev2sR4OWa1L5kez1zmMA5RkZMbW1jjyS
+9lzPbAG2JT6u+LNP7/G+eXQpo7Hk/kuVatRgmKfvPjYUQa9r+/DBLLjSBLTi
+zu0Xk5PEk94dohrp/szFeYLIhwLz84uvXk1UyLXZWc+AKsZGF0ZtzQd2Rniz
+tbLyTd+bKWC+aOko3CFZayOva6NFPcrLe4FW3M59bjYv+mqjlT8r+TIDmwni
+X/fMDNbe/q60pBsYk317JZ9+cnf/PglwbVJJz8uuseD1y3J8r7X5qWsLsF+g
+DGfSnvC+/Xl4mCz325mPEeK8PmA3+vumgGEBUco3yY9C2TXrIFxrC2YNAvAd
+SXsl4DcP4gGSZqbhCaAYMB+DSQjnzINW12ax4GD4CfwIebMF05w4Pr2/tp1C
+FxDa8Ksb9NW1TU3NgwDjO14ZeTMbbn18UKgW1VLrBUIbvnWDXp8CLEZyklSU
+1+G3pfLqw1r+PTgRwTzEa23017VlXGwoLury26y3vO3BV5eXzDBXh2FI1tro
+rWurqe77anep36mDcc1b+8AE7pfCfmiqa5ueMsdsL9DppsmbLRjR4rjz7168
+WaeUEBaxXrtxil9TkO/nSIVlm02ekt1+tyoAuSDMsy7dUKlGE/eUkk9lANrv
+VsuPZMNitHBn7T7FarUBxejoeE/eDPiRotizwKfQIR2EPjCUMIGHhLXbjUfS
+npM/VJO3MU/NFsacBVHoumSABBu9UvhxPU3m8UdLXte2FvUwm5dACDqo+0DS
+xhlmwGku1oFpYla2BzQIECRd6TZyJK9rW8vlQfyZcbGBvE1nYZ3s0E8wzGAb
+qH3CU+g0F3ZN4LsttgZY14ailuiogrExshBi8vVwQVTavAFuw8U6XHVDr+CD
+166eI8C6tiuXm7KznpE0WDRj93deGH76iqL0kGDiqhsGL90IpK6ts1MPIo25
+OZ8ZOwBFerEy8yElwSFBB1ULEY6rT1EQtSKuayNRD5MJi/uiiHzcOlCnLt1z
+CbeQKQ+ESRyxqEQHAk2DkANUw7D2ujZfl7TZlg8fkt27S5Z3gY5/yN92enrA
+z6QHhFn0CsHKGDbVOYYNtK7tv4JmUV4HyfK6zWp7fFDYXdpIzw1AggluH6US
+jSbWX9d25/aLfXslmM/TWOx0iGoqjt6iKiyE7RAqxoMH3Yl7So3GBZIfHO8e
+LIw+Y572LD+BRAzediPnlmr3rpKpKbJKAQtqFsenj6p6gywdhEk8FCPtdO3m
+TbkLC34Onqg6cVt1Sx5MuSDMs6obVqvt+rWW+LjimRk/q3UdeTXlh7PgHjsR
+j9OnmM1LJ76vOn6sknyOCzDwpAOEGRt2Hz9fwzpa3g/qxam9D0KLpL2SzKtK
+60dTQNIYKMaHt54nbIb1b2xdhPWdUnh/R2xRyf2X5I2XbbbGDDF4f27C4wzJ
+oAvJBt1AIBsGykoCmJs02b8mjCvf1/hizc3mDeu5LB3X93hH3z92OqXsSHIJ
++EX5v/6kCduoAcZGQ6UajY0uvJ37HMdtgf8dQSKDhYUl4c3W+B3F3S9XNqOA
+igEBdKr1uxLEly81ug5UoW5QgmATJNRoJF19ohMa+wLKcD2zBZgL4E08PmLS
+p6w/Kz6Qzqg9Te/dkIg2QdILP74l09FZfEGUBE5nX3VPBkB0AXRjfp5gXisU
+ioFpfr1D7kpCGklWfIDQ+zS9dkMi2ARJK4pBYsT2NG5lOoIIaCwA9k4Cp6uv
+4SHjsaMVyUlSba/Pc2pCYTfsmzwgMp3BfofOmibSrPgAof9puu6GRLBhhT1P
+RqBGP37KURLMAFHEKwk8gL4+WmngREDMGR1VIJX2WEkXPkJiNzx3BSHPiqcB
+ep8m5nk1902QnFdbMYd8ZPU1DXglgVPsa9VK/2HHT1EOJ7K6asbwmVyYeuUO
+eTlO+02eFU9Lj1SeJmbUu2Iw+rnayiZIaI7L1exmSEXtbjCDe/eOh+eRBE6p
+L4eVPlnQu3tX7mYESS3tc/2Q8TO5cBxYNJ1dQxMluP+s+ICh9DQxXXUqL5W/
+QmqqoBr1cTUCK6RZtUKIgpqHxHTC1NXeQfdCl51SVpPAqfTVUnoeQZK/TpJ2
+dLynvXaJLnBtDoLwdPgas+IDgN6n6bYbEsEmSHbLz7PrvEEl8NgyK1C8ksDX
+1Vfv68mUI/KdW/YiSNqsI++X9tqlgHHe4S86GTAcAsefqHdWPK3Q9zS9dkMi
+2gQJ1ws+JmtLtHSOugiSwP325fCMDYquA7yi7duyisTPTV03g1S7RAOoauVu
+EI5ItXKLXlnxtBGKp0mwCRJu9PLXNECcBE7W1zOZ+C+c2D//KTohgXfyZArw
+jGMB1C7RcAv+wOyhjueOUj6z4oNByJ4mQywvL7e1jhw8UPbV7tKqyjdu++cE
+ULsUypADQjtLS9bKCu3XiQ++TX7U2DhIeNAM7bVLEJYzO4sVFXZ+EVN44nil
+3/2UqNUu0SInJJQMD5uuCpq3bhEJrjQNDpJtmBMI0KeEEcBfKJvfpqbIv4gt
+yhepTSay4rLAgYoRFkxPmwvy1Qlx4n8dfFxfP+B3q0ZagHaDzYDRR3v7u3Nn
+67Z9Lsq8qhwY8LPlL1WCfiYXhEampuZBnLlr5/3kJKns8WuS06zWAuUzuQLp
+FEIvwFk0N7394UQVMBTXMpVaLT0zxpTP5ILqwQbevDHcvPE0ams+CDVravos
+Frpn5UJ+JhckQCYn5oqLuvZ9/RC4j3xRx/h40CaKQ3smF4QyKGopl/WmHJED
+QwGCzB6NZxkpddaShfJr46CcyQWhwMLCUl3dwGl+7Za/54HRx9OWoaUlmk+w
+XVMWyq+toU9hGBA8NDUO/udcHVAJEGfW1vabzX52OKGfUJ3JBVkLGLaiEp9/
+lnfsaEWFXAtcCSOShOxMLgg5c3OLdsdxCjiOe98frywv7/W73Q3D0HQmF8QX
+09NmoAZAGYDjOMWvqa7qY8pK0AVUjAAZGjKKi7u+45Vt3SK6mK5obBz0u1ta
+uAB1gwJWq03d8T7rx7bdu0oS4sTCG0/b29+FZv0rlECfsl5AbLntc9EB3s9F
+hZ1BW/xiBVAx1gsIJIKdOMESoG5AfAF9CgTil/8DWhgW8A==
+    "], {{0, 108}, {180, 
+    0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{180, 108},
+  PlotRange->{{0, 180}, {0, 108}}]], "Output",
+ ImageSize->{184, 108},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1590641857]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Scope",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(4)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1293636265],
+
+Cell[TextData[{
+ "Arbitrarily high-rank tensor integrals can be converted:\[LineSeparator]\t\
+",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"k", "\[CenterDot]", "k"}], ")"}], "5"], 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1409281850],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"k", ".", "k"}], ")"}], "5"], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->877752954],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SuperscriptBox["m", "10"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "6"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"42", " ", 
+      SuperscriptBox["m", "8"]}], "+", 
+     RowBox[{"150", " ", 
+      SuperscriptBox["m", "6"], " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{"217", " ", 
+      SuperscriptBox["m", "4"], " ", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}], "+", 
+     RowBox[{"84", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "3"]}], "+", 
+     RowBox[{"6", " ", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "4"]}]}], ")"}]}], "+", 
+  RowBox[{
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"6", " ", 
+      SuperscriptBox["m", "8"]}], "+", 
+     RowBox[{"20", " ", 
+      SuperscriptBox["m", "6"], " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{"27", " ", 
+      SuperscriptBox["m", "4"], " ", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}], "+", 
+     RowBox[{"11", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "3"]}], "+", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"p", ".", "p"}], ")"}], "4"]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{552, 69},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1524260839]
+}, Open  ]],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"k", "\[CenterDot]", "k"}], ")"}], "5"], 
+       RowBox[{
+        RowBox[{
+         RowBox[{"[", 
+          RowBox[{
+           SuperscriptBox["k", "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", 
+            SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1603553737],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"k", ".", "k"}], ")"}], "5"], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p2"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", "s"}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1598540349],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"40", " ", 
+      SuperscriptBox["m", "6"]}], "+", 
+     RowBox[{"35", " ", 
+      SuperscriptBox["m", "4"], " ", "s"}], "+", 
+     RowBox[{"19", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      SuperscriptBox["s", "2"]}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["s", "3"]}]}], ")"}]}], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "8"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"21", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"5", " ", "s"}]}], ")"}], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"4", " ", 
+     SuperscriptBox["m", "2"]}], "-", "s"}]], "+", 
+  RowBox[{
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"15", " ", 
+      SuperscriptBox["m", "6"]}], "+", 
+     RowBox[{"15", " ", 
+      SuperscriptBox["m", "4"], " ", "s"}], "+", 
+     RowBox[{"8", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      SuperscriptBox["s", "2"]}], "+", 
+     SuperscriptBox["s", "3"]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{501, 69},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->621879578]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->582135396],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can convert Passarino-Veltman coefficient functions with higher integer \
+weights:"
+}], "ExampleText",
+ CellID->14104840],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+  RowBox[{
+   RowBox[{"p", ".", "p"}], "\[Rule]", "s"}]}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1736114731],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", "s", ",", "0", ",", "m", ",", 
+     RowBox[{"Weights", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", "s", ",", "0", ",", "m", ",", 
+     RowBox[{"Weights", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}]}]}]], "Output",
+ ImageSize->{539, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1052694274],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox["s", "2"]}]], "-", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", "s"}]], "]"}]}], 
+      SuperscriptBox["s", "3"]]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["m", "2"], "+", 
+       RowBox[{"2", " ", "s"}]}], 
+      RowBox[{"4", " ", "s"}]], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", "s"}]], "]"}]}], 
+      RowBox[{"4", " ", 
+       SuperscriptBox["s", "2"]}]]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{362, 115},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1662379132]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->985952765],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can convert Passarino-Veltman coefficient functions defined in any even \
+number of spacetime dimensions:"
+}], "ExampleText",
+ CellID->924301103],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVB", "[", 
+   RowBox[{"0", ",", "0", ",", 
+    RowBox[{"p", ".", "p"}], ",", "m", ",", "m", ",", 
+    RowBox[{"Dimensions", "\[Rule]", "2"}]}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->553712485],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"4", " ", 
+     SuperscriptBox["m", "2"]}], "-", 
+    RowBox[{"p", ".", "p"}]}]]}]], "Output",
+ ImageSize->{134, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->168870790]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVC", "[", 
+   RowBox[{"0", ",", "1", ",", "0", ",", 
+    RowBox[{"p", ".", "p"}], ",", "0", ",", "0", ",", "m", ",", "m", ",", "m",
+     ",", 
+    RowBox[{"Dimensions", "\[Rule]", "2"}]}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1933190844],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox["1", 
+    RowBox[{
+     SuperscriptBox["m", "2"], " ", 
+     RowBox[{"p", ".", "p"}]}]]}], "-", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{
+      RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+    RowBox[{"p", ".", "p"}]}]]}]], "Output",
+ ImageSize->{188, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1475922121]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVD", "[", 
+   RowBox[{
+   "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
+    ",", "s", ",", "t", ",", "0", ",", "0", ",", "0", ",", "m", ",", 
+    RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->487744645],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["\[Pi]", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}]}], 
+   RowBox[{"12", " ", "t", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "+", "t"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}], " ", 
+    SuperscriptBox[
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["m", "2"], "s"]}], "]"}], "2"]}], 
+   RowBox[{"4", " ", "t", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "+", "t"}], ")"}]}]], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     RowBox[{"-", 
+      FractionBox[
+       SuperscriptBox["m", "2"], "s"]}], "]"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "t"}]], "]"}]}], 
+   RowBox[{"t", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "+", "t"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}], " ", 
+    SuperscriptBox[
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["m", "2"], 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", "t"}]], "]"}], "2"]}], 
+   RowBox[{"2", " ", "t", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "+", "t"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}], " ", 
+    RowBox[{"PolyLog", "[", 
+     RowBox[{"2", ",", 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["m", "2"], "+", "s"}], "s"]}], "]"}]}], 
+   RowBox[{"2", " ", "t", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "+", "t"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}], " ", 
+    RowBox[{"PolyLog", "[", 
+     RowBox[{"2", ",", 
+      RowBox[{"-", 
+       FractionBox["t", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}]]}]}], "]"}]}], 
+   RowBox[{"t", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "+", "t"}], ")"}]}]], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}], " ", 
+    RowBox[{"PolyLog", "[", 
+     RowBox[{"2", ",", 
+      FractionBox["t", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "2"]}], "+", "t"}]]}], "]"}]}], 
+   RowBox[{"t", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "+", "t"}], ")"}]}]], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", "s"}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", "t"}], "+", 
+      RowBox[{"s", " ", "t"}]}], ")"}], " ", 
+    RowBox[{"ScalarC0", "[", 
+     RowBox[{"0", ",", "0", ",", "s", ",", "0", ",", "m", ",", "0"}], "]"}]}], 
+   RowBox[{"2", " ", "t", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "+", "t"}], ")"}]}]]}]], "Output",
+ ImageSize->{514, 139},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1659965810]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1142280949],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can convert three- and four-point integrals at singular kinematic points \
+such as:"
+}], "ExampleText",
+ CellID->739496624],
+
+Cell[TextData[{
+ "1.  At vanishing Gram Determinant ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"\[Lambda]", "(", 
+     RowBox[{
+      SubscriptBox["s", "1"], ",", 
+      SubscriptBox["s", "2"], ",", 
+      SubscriptBox["s", "3"]}], ")"}], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->528087462],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"k", ".", "k"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "M"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p2"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     RowBox[{"p2", ".", "p2"}], "\[Rule]", "s1"}], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], "\[Rule]", "0"}]}], 
+   "}"}]}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->452265670],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVB", "[", 
+   RowBox[{"0", ",", "0", ",", "s1", ",", "0", ",", "m"}], "]"}], "+", 
+  RowBox[{
+   SuperscriptBox["M", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{
+    "0", ",", "0", ",", "0", ",", "0", ",", "s1", ",", "s1", ",", "M", ",", 
+     "0", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{356, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->87358233],
+
+Cell[BoxData[
+ RowBox[{"2", "+", 
+  FractionBox["1", "\[Epsilon]"], "+", 
+  RowBox[{"DiscB", "[", 
+   RowBox[{"s1", ",", "m", ",", "M"}], "]"}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", 
+      SuperscriptBox["M", "2"], "+", "s1"}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"2", " ", "s1"}]], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["m", "2"]], "]"}]}]], "Output",
+ ImageSize->{376, 46},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1498491130]
+}, Open  ]],
+
+Cell[TextData[{
+ "2.  At vanishing Gram ",
+ StyleBox["and",
+  FontSlant->"Italic"],
+ " modified Cayley determinants:"
+}], "ExampleText",
+ CellID->1082004796],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"k", ".", "k"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p2"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], "\[Rule]", "s1"}], ",", 
+    RowBox[{
+     RowBox[{"p2", ".", "p2"}], "\[Rule]", "s1"}], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], "\[Rule]", "s1"}]}], 
+   "}"}]}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1408180431],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVB", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "m", ",", "m"}], "]"}], "+", 
+  RowBox[{
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{
+    "0", ",", "0", ",", "0", ",", "s1", ",", "0", ",", "s1", ",", "m", ",", 
+     "m", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{349, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1324438487],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "\[Epsilon]"], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{"s1", ",", "m", ",", "m"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"4", " ", 
+     SuperscriptBox["m", "2"]}], "-", "s1"}]], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["m", "2"]], "]"}]}]], "Output",
+ ImageSize->{215, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1169649854]
+}, Open  ]],
+
+Cell["3.  When all external invariants are vanishing:", "ExampleText",
+ CellID->1938050488],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"k", ".", "k"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "M"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p2"}], ",", "mX"}], "}"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     RowBox[{"p2", ".", "p2"}], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], "\[Rule]", "0"}]}], 
+   "}"}]}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1168572378],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVB", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "m", ",", "mX"}], "]"}], "+", 
+  RowBox[{
+   SuperscriptBox["M", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{
+    "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "M", ",", "m",
+      ",", "mX"}], "]"}]}]}]], "Output",
+ ImageSize->{349, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1497091008],
+
+Cell[BoxData[
+ RowBox[{"1", "+", 
+  FractionBox["1", "\[Epsilon]"], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "4"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["mX", "2"]], "]"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["mX", "2"]}], ")"}]}]], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["M", "4"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["M", "2"], 
+      SuperscriptBox["mX", "2"]], "]"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", 
+      SuperscriptBox["M", "2"]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["M", "2"], "-", 
+      SuperscriptBox["mX", "2"]}], ")"}]}]], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["mX", "2"]], "]"}]}]], "Output",
+ ImageSize->{384, 51},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1690163204]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " makes the replacement ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"d", "\[Rule]", 
+    RowBox[{"4", "-", 
+     RowBox[{"2", "\[Epsilon]"}]}]}], TraditionalForm]], "InlineMath"],
+ " and retains terms through ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", 
+    SuperscriptBox["\[Epsilon]", "0"], ")"}], TraditionalForm]], "InlineMath"],
+ ", and can be used to safely clean up expressions generated by ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " involving ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1078666133],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]], "+", 
+     RowBox[{
+      SubscriptBox["p", "\[Mu]"], 
+      SubscriptBox["p", "\[Nu]"]}]}], ")"}], 
+   RowBox[{"(", 
+    RowBox[{
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]], "-", 
+     RowBox[{
+      SubscriptBox["k", "\[Mu]"], 
+      SubscriptBox["k", "\[Nu]"]}]}], ")"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1396163592],
+
+Cell[BoxData[
+ RowBox[{"\[ScriptD]", "-", 
+  RowBox[{"k", ".", "k"}], "-", 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{"k", ".", "p"}], ")"}], "2"], "+", 
+  RowBox[{"p", ".", "p"}]}]], "Output",
+ ImageSize->{132, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->977377933],
+
+Cell[BoxData[
+ RowBox[{"4", "-", 
+  RowBox[{"k", ".", "k"}], "-", 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{"k", ".", "p"}], ")"}], "2"], "+", 
+  RowBox[{"p", ".", "p"}]}]], "Output",
+ ImageSize->{133, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->688504028]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1962452221],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"k", ".", "\[Gamma]"}], "+", 
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"k", "+", "p"}], ")"}], ".", "\[Gamma]"}], "+", 
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}]}]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "%", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->6289064],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", "\[ScriptD]", " ", 
+   SuperscriptBox["m", "2"]}], "+", 
+  RowBox[{"8", " ", 
+   RowBox[{"k", ".", "k"}]}], "-", 
+  RowBox[{"4", " ", "\[ScriptD]", " ", 
+   RowBox[{"k", ".", "k"}]}], "+", 
+  RowBox[{"8", " ", 
+   RowBox[{"k", ".", "p"}]}], "-", 
+  RowBox[{"4", " ", "\[ScriptD]", " ", 
+   RowBox[{"k", ".", "p"}]}]}]], "Output",
+ ImageSize->{230, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2028751004],
+
+Cell[BoxData[
+ RowBox[{"8", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"2", " ", 
+     SuperscriptBox["m", "2"]}], "-", 
+    RowBox[{"k", ".", "k"}], "-", 
+    RowBox[{"k", ".", "p"}]}], ")"}]}]], "Output",
+ ImageSize->{119, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1620260809]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1880627721],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be used to tidy up expressions:"
+}], "ExampleText",
+ CellID->1045790301],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m1", "2"], "-", 
+        SuperscriptBox["m2", "2"]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m1", "2"], "-", 
+        SuperscriptBox["m3", "2"]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["m2", "2"], "-", 
+        SuperscriptBox["m3", "2"]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", "\[Epsilon]"}], ")"}]}], "-", 
+     RowBox[{"\[Epsilon]", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["m1", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m1", "2"], "-", 
+           SuperscriptBox["m3", "2"]}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m2", "2"], "-", 
+           SuperscriptBox["m3", "2"]}], ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           SuperscriptBox["m1", "2"], 
+           SuperscriptBox["m2", "2"]], "]"}]}], "+", 
+        RowBox[{
+         SuperscriptBox["m1", "2"], " ", 
+         SuperscriptBox["m3", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m2", "2"], "-", 
+           SuperscriptBox["m3", "2"]}], ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           SuperscriptBox["m1", "2"], 
+           SuperscriptBox["m3", "2"]], "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m1", "2"], "-", 
+           SuperscriptBox["m3", "2"]}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["m2", "2"]}], " ", 
+            SuperscriptBox["m3", "2"], " ", 
+            RowBox[{"Log", "[", 
+             FractionBox[
+              SuperscriptBox["m2", "2"], 
+              SuperscriptBox["m3", "2"]], "]"}]}], "-", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["m1", "2"], "-", 
+              SuperscriptBox["m2", "2"]}], ")"}], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["m2", "2"], "-", 
+              SuperscriptBox["m3", "2"]}], ")"}], " ", 
+            RowBox[{"Log", "[", 
+             FractionBox[
+              SuperscriptBox["\[Micro]", "2"], 
+              SuperscriptBox["m2", "2"]], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
+    ")"}], "/", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"m1", "-", "m3"}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{"m2", "-", "m3"}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{"m1", "+", "m3"}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{"m2", "+", "m3"}], ")"}], " ", "\[Epsilon]"}], ")"}]}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1139809177],
+
+Cell[BoxData[
+ RowBox[{
+  SuperscriptBox["m1", "2"], "-", 
+  SuperscriptBox["m2", "2"], "-", 
+  RowBox[{
+   SuperscriptBox["m1", "2"], " ", 
+   RowBox[{"Log", "[", 
+    FractionBox[
+     SuperscriptBox["m1", "2"], 
+     SuperscriptBox["m2", "2"]], "]"}]}], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m1", "2"], " ", 
+    SuperscriptBox["m3", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m1", "2"], 
+      SuperscriptBox["m3", "2"]], "]"}]}], 
+   RowBox[{
+    SuperscriptBox["m1", "2"], "-", 
+    SuperscriptBox["m3", "2"]}]], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m2", "2"], " ", 
+    SuperscriptBox["m3", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m2", "2"], 
+      SuperscriptBox["m3", "2"]], "]"}]}], 
+   RowBox[{
+    SuperscriptBox["m2", "2"], "-", 
+    SuperscriptBox["m3", "2"]}]], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m1", "2"], "-", 
+     SuperscriptBox["m2", "2"]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m2", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{577, 48},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->66394060]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Options",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(8)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1416701668],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Analytic",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1353739787],
+
+Cell[TextData[{
+ "This mass-singular integral evaluated at physical threshold is power \
+infrared divergent, and dimensional regularization for infinitesimal ",
+ Cell[BoxData[
+  FormBox["\[Epsilon]", TraditionalForm]], "InlineMath"],
+ " fails to regulate it:"
+}], "ExampleText",
+ CellID->498986588],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"int", "=", 
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1", "-", "p2"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+   
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}]}], "}"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "int", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->211796388],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    SubscriptBox["p2", "\[Mu]"]}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "1", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "0", ",", "m", ",", "0"}], 
+    "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "1", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       SuperscriptBox["m", "2"], ",", "0", ",", "0", ",", "m", ",", "0"}], 
+      "]"}], "+", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "0", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       SuperscriptBox["m", "2"], ",", "0", ",", "0", ",", "m", ",", "0"}], 
+      "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{460, 38},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1714217371],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopRefine", "::", "irdiv"}], "MessageName"], ":", 
+  " ", "\<\"Non-logarithmic (power) infrared singularity encountered.  Try \
+moving away from threshold and inspect behavior as kinematic point is \
+reached, or set option Analytic -> True. \\!\\(\\*ButtonBox[\\\"\
+\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/LoopRefine\\\", ButtonNote -> \
+\\\"X`LoopRefine::irdiv\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->210746245],
+
+Cell[BoxData["ComplexInfinity"], "Output",
+ ImageSize->{112, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->811605812]
+}, Open  ]],
+
+Cell[TextData[{
+ "Set option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Analytic",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#498986588"], "\[Rule]", 
+   ButtonBox["True",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to analytically continue ",
+ Cell[BoxData[
+  FormBox["\[Epsilon]", TraditionalForm]], "InlineMath"],
+ " to large and negative values, thereby rendering the integral convergent:"
+}], "ExampleText",
+ CellID->466118958],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"Analytic", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1675030722],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    SubscriptBox["p1", "\[Mu]"], 
+    SuperscriptBox["m", "2"]]}], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox["1", "\[Epsilon]"], "+", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}]}], ")"}], " ", 
+    SubscriptBox["p2", "\[Mu]"]}], 
+   RowBox[{"2", " ", 
+    SuperscriptBox["m", "2"]}]]}]], "Output",
+ ImageSize->{166, 47},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->460998308]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Dimensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1717275433],
+
+Cell[TextData[{
+ "By default, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " takes the limit ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["\[ScriptD]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dim"], "\[Rule]", 
+   RowBox[{"4", "-", 
+    RowBox[{"2", 
+     ButtonBox["\[Epsilon]",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/Eps"]}]}]}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->956537117],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "\[ScriptD]", "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->592165001],
+
+Cell[BoxData["4"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1488742102]
+}, Open  ]],
+
+Cell[TextData[{
+ "Take the limit ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["\[ScriptD]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dim"], "\[Rule]", 
+   RowBox[{"6", "-", 
+    RowBox[{"2", 
+     ButtonBox["\[Epsilon]",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/Eps"]}]}]}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->815728647],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"\[ScriptD]", ",", 
+   RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1100476302],
+
+Cell[BoxData["6"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->742161848]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1012904141],
+
+Cell[TextData[{
+ "To a loop integral in ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"6", "-", 
+    RowBox[{"2", "\[Epsilon]"}]}], TraditionalForm]], "InlineMath"],
+ " dimensions, set ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Dimensions",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#810408792"], "\[Rule]", "6"}]], 
+  "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to both ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (and ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "):\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox[
+         StyleBox["k", "TI"], "2"], "+", 
+        RowBox[{"k", ".", "p"}], "+", 
+        RowBox[{"\[ScriptD]", " ", 
+         SuperscriptBox["p", "2"]}]}], 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->810408792],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"k", ".", "k"}], "+", 
+    RowBox[{"2", 
+     RowBox[{"k", ".", "p"}]}], "+", 
+    RowBox[{"\[ScriptD]", " ", 
+     RowBox[{"p", ".", "p"}]}]}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p"}], ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "0"}], "}"}], ",", 
+   RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"%", ",", 
+   RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->619276869],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVA", "[", 
+   RowBox[{"0", ",", "0", ",", 
+    RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{"\[ScriptD]", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "0", ",", 
+     RowBox[{"Dimensions", "\[Rule]", "6"}]}], "]"}]}]}]], "Output",
+ ImageSize->{510, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1587422758],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["17", "9"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"]}], "+", 
+  RowBox[{
+   FractionBox["5", "6"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        RowBox[{"p", ".", "p"}]]}], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{246, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1624947025]
+}, Open  ]],
+
+Cell[TextData[{
+ "To interpret the result, (1) restore an overall factor of ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{
+     FractionBox["i", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"4", "\[Pi]"}], ")"}], 
+       RowBox[{"6", "/", "2"}]]], "=", 
+     FractionBox["i", 
+      RowBox[{"64", 
+       SuperscriptBox["\[Pi]", "3"]}]]}],
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ ", and (2) read ",
+ Cell[BoxData[
+  FractionBox["1", 
+   ButtonBox["\[Epsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "-", 
+     SubscriptBox["\[Gamma]", "E"], "+", 
+     RowBox[{"ln", "(", 
+      RowBox[{"4", "\[Pi]"}], ")"}]}],
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ ":\[LineSeparator]Therefore,   ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox[
+          StyleBox["k", "TI"], "2"], "+", 
+         RowBox[{"2", 
+          RowBox[{"k", ".", "p"}]}], "+", 
+         RowBox[{"\[ScriptD]", " ", 
+          SuperscriptBox["p", "2"]}]}], 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], 
+         SuperscriptBox["k", "2"]}]]}]}]}], " ", "=", "  ", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"64", 
+        SuperscriptBox["\[Pi]", "3"]}]],
+      FontColor->RGBColor[
+       0.6667429617761501, 0.011367971313038834`, 0.011367971313038834`]], 
+     "[", 
+     RowBox[{
+      RowBox[{
+       FractionBox["17", "9"], 
+       SuperscriptBox["p", "2"]}], "+", 
+      RowBox[{
+       FractionBox["5", "6"], 
+       RowBox[{
+        SuperscriptBox["p", "2"], "(", 
+        RowBox[{
+         RowBox[{
+          FractionBox["1", "\[Epsilon]"], 
+          StyleBox[
+           RowBox[{"-", 
+            SubscriptBox["\[Gamma]", "E"]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+         StyleBox["+",
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+         StyleBox[
+          RowBox[{"ln", "(", 
+           RowBox[{"4", "\[Pi]"}], ")"}],
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], "-", 
+         RowBox[{"ln", "(", 
+          FractionBox[
+           SuperscriptBox["\[Mu]", "2"], 
+           RowBox[{"-", 
+            SuperscriptBox["p", "2"]}]], ")"}]}], " ", ")"}]}]}], "]"}]}], 
+   TraditionalForm]], "InlineMath"],
+ "."
+}], "ExampleText",
+ Deletable->True,
+ CellID->989783212]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "ExplicitC0",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1875237305],
+
+Cell[TextData[{
+ "Consider the triangle integral ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      FractionBox["\[ImaginaryI]", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]], ")"}], 
+     RowBox[{"-", "1"}]], 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", " ", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{"k", "\[CenterDot]", "p"}], 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}], ")"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "2"], 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "q"}], ")"}], "2"], "-", 
+          SuperscriptBox["M", "2"]}], ")"}]}]]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", subject to the on-shell conditions: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"p", "\[CenterDot]", "p"}], "=", "s"}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"q", "\[CenterDot]", "q"}], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"p", "\[CenterDot]", "q"}], "=", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"s", "-", 
+       SuperscriptBox["M", "2"]}], ")"}], "/", "2"}]}], TraditionalForm]], 
+  "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->59651079],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int", "=", 
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "k"}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "q"}], ",", "M"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "\[Rule]", "s"}], ",", 
+     RowBox[{
+      RowBox[{"q", ".", "q"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "q"}], "\[Rule]", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"s", "-", 
+         SuperscriptBox["M", "2"]}], ")"}], "/", "2"}]}]}], 
+    "}"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->356595612],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "m", ",", "M"}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     SuperscriptBox["M", "2"], ",", "0", ",", "M"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       SuperscriptBox["m", "2"], "2"]}], "-", 
+     FractionBox["s", "2"]}], ")"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "s", ",", 
+     SuperscriptBox["M", "2"], ",", "0", ",", "m", ",", "0", ",", "M"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{555, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1657990733]
+}, Open  ]],
+
+Cell[TextData[{
+ "To maintain compact expressions, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " gives an expression involving the scalar C-function ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->128691768],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "int", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->392081278],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox["1", "2"]}], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"]}], ")"}]}]], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["M", "2"], ",", "s", ",", "m", ",", "M", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{370, 51},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->10403075]
+}, Open  ]],
+
+Cell[TextData[{
+ "Set option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ExplicitC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#59651079"], "\[Rule]", 
+   ButtonBox["All",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/All"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to substitute the explicit analytic expression for ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ". The result is in terms of ",
+ Cell[BoxData[
+  ButtonBox["DiLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiLog"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1888528461],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"ExplicitC0", "\[Rule]", "All"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1786464515],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox["1", "2"]}], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"]}], ")"}]}]], "+", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["M", "2"]}], "+", "s"}], ")"}]}]], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Pi]", "2"], "6"]}], "-", 
+      RowBox[{"DiLog", "[", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", 
+           SuperscriptBox["M", "2"]}], "-", 
+          SuperscriptBox["s", "2"]}], 
+         RowBox[{
+          SuperscriptBox["M", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", "s"}], ")"}]}]], ",", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", "s"}]}], "]"}], "-", 
+      RowBox[{"DiLog", "[", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["m", "2"], " ", 
+            SuperscriptBox["M", "2"]}], "-", 
+           SuperscriptBox["s", "2"]}], 
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], ",", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}]}], "]"}], "-", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"-", 
+          FractionBox["s", 
+           RowBox[{
+            SuperscriptBox["M", "2"], "-", "s"}]]}], "]"}], "2"]}], "-", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], 
+          RowBox[{
+           SuperscriptBox["M", "2"], "-", "s"}]], "]"}], "2"]}], "-", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              SuperscriptBox["m", "2"]}], "+", 
+             SuperscriptBox["M", "2"]}], ")"}], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "+", 
+             SuperscriptBox["M", "2"], "-", 
+             RowBox[{"2", " ", "s"}]}], ")"}]}], 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", "s"}], ")"}], "2"]]}]}], "]"}], 
+      "+", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["m", "2"], "+", 
+          SuperscriptBox["M", "2"], "-", 
+          RowBox[{"2", " ", "s"}]}], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", "s"}]]}], "]"}], "-", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         SuperscriptBox["M", "2"], 
+         RowBox[{
+          SuperscriptBox["M", "2"], "-", "s"}]]}], "]"}], "-", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["m", "2"], "+", 
+          SuperscriptBox["M", "2"], "-", 
+          RowBox[{"2", " ", "s"}]}], 
+         RowBox[{
+          SuperscriptBox["M", "2"], "-", "s"}]]}], "]"}], "+", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", 
+            SuperscriptBox["M", "2"]}], ")"}], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["m", "2"], " ", 
+             SuperscriptBox["M", "2"]}], "-", 
+            SuperscriptBox["s", "2"]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["M", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", "s"}], ")"}], "2"]}]]}], "]"}]}], 
+     ")"}]}]}]}]], "Output",
+ ImageSize->{577, 180},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1020886816]
+}, Open  ]],
+
+Cell[TextData[{
+ "Wrap ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ Cell[BoxData[
+  ButtonBox["Assuming",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Assuming"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to provide additional assumptions on kinematic variables.  The result is \
+an expression in terms of ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ "'s built-in functions ",
+ Cell[BoxData[
+  ButtonBox["Log",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Log"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["PolyLog",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/PolyLog"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "ExampleText",
+ CellID->44831058],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Assuming", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"s", "<", "0"}], ",", 
+     RowBox[{"s", "<", 
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}]}], ",", 
+     RowBox[{"m", "<", "M"}]}], "}"}], ",", 
+   RowBox[{"LoopRefine", "[", 
+    RowBox[{"int", ",", 
+     RowBox[{"ExplicitC0", "\[Rule]", "All"}]}], "]"}]}], "]"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1078549244],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox["1", "2"]}], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"]}], ")"}]}]], "+", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["M", "2"]}], "+", "s"}], ")"}]}]], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Pi]", "2"], "6"]}], "-", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], 
+          RowBox[{
+           SuperscriptBox["M", "2"], "-", "s"}]], "]"}], "2"]}], "-", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              SuperscriptBox["m", "2"]}], "+", 
+             SuperscriptBox["M", "2"]}], ")"}], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "+", 
+             SuperscriptBox["M", "2"], "-", 
+             RowBox[{"2", " ", "s"}]}], ")"}]}], 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", "s"}], ")"}], "2"]]}]}], "]"}], 
+      "+", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["m", "2"], "+", 
+          SuperscriptBox["M", "2"], "-", 
+          RowBox[{"2", " ", "s"}]}], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", "s"}]]}], "]"}], "-", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["m", "2"], "+", 
+          SuperscriptBox["M", "2"], "-", 
+          RowBox[{"2", " ", "s"}]}], 
+         RowBox[{
+          SuperscriptBox["M", "2"], "-", "s"}]]}], "]"}], "+", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["M", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", "s"}], ")"}]}], 
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}], 
+      "+", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", 
+            SuperscriptBox["M", "2"]}], ")"}], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["m", "2"], " ", 
+             SuperscriptBox["M", "2"]}], "-", 
+            SuperscriptBox["s", "2"]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["M", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", "s"}], ")"}], "2"]}]]}], "]"}], 
+      "-", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m", "2"], " ", 
+           SuperscriptBox["M", "2"]}], "-", 
+          SuperscriptBox["s", "2"]}], 
+         RowBox[{
+          SuperscriptBox["M", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", "s"}], ")"}]}]]}], "]"}], "-", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        RowBox[{"-", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["m", "2"], " ", 
+            SuperscriptBox["M", "2"]}], "-", 
+           SuperscriptBox["s", "2"]}], 
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], "]"}]}], 
+     ")"}]}]}]}]], "Output",
+ ImageSize->{553, 215},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1134604951]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Organization",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->743977876],
+
+Cell[TextData[{
+ "Consider the rank-2 tensor integral ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      FractionBox["\[ImaginaryI]", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]], ")"}], 
+     RowBox[{"-", "1"}]], 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", " ", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["k", "\[Mu]"], 
+        SuperscriptBox["k", "\[Nu]"]}], 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["M", "2"]}], ")"}], 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " with ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["p", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "ExampleText",
+ CellID->1386369098],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2026813734],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{333, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1440586824]
+}, Open  ]],
+
+Cell["Organize result by Lorentz tensor structures:", "ExampleText",
+ CellID->788648783],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"Organization", "\[Rule]", "LTensor"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1918183842],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"p", ".", "p"}]}], ")"}]}], 
+      RowBox[{"3", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "12"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"13", " ", 
+        RowBox[{"p", ".", "p"}]}]}], 
+      RowBox[{"18", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     RowBox[{
+      FractionBox["1", "3"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "18"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"21", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"4", " ", 
+         RowBox[{"p", ".", "p"}]}]}], ")"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"6", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{577, 78},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1019734406]
+}, Open  ]],
+
+Cell["Organize by special functions:", "ExampleText",
+ CellID->1719520766],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"Organization", "\[Rule]", "Function"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1989799500],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "12"}], " ", 
+       SuperscriptBox["m", "2"]}], "+", 
+      RowBox[{"13", " ", 
+       RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+    SubscriptBox["p", "\[Mu]"], " ", 
+    SubscriptBox["p", "\[Nu]"]}], 
+   RowBox[{"18", " ", 
+    RowBox[{"p", ".", "p"}]}]], "+", 
+  RowBox[{
+   FractionBox["1", "18"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"21", " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"4", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+  RowBox[{
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+       SubscriptBox["p", "\[Mu]"], " ", 
+       SubscriptBox["p", "\[Nu]"]}], 
+      RowBox[{"3", " ", 
+       RowBox[{"p", ".", "p"}]}]], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}], ")"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SubscriptBox["p", "\[Mu]"], " ", 
+       SubscriptBox["p", "\[Nu]"]}], "3"], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"6", " ", 
+         SuperscriptBox["m", "2"]}], "-", 
+        RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}], ")"}]}]}]], "Output",
+ ImageSize->{383, 117},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->555608718]
+}, Open  ]],
+
+Cell["Leave result unorganized (fastest):", "ExampleText",
+ CellID->1398192900],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"Organization", "\[Rule]", "None"}]}], "]"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1662004826],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SubscriptBox["p", "\[Mu]"], " ", 
+    SubscriptBox["p", "\[Nu]"]}], 
+   RowBox[{"3", " ", "\[Epsilon]"}]], "+", 
+  RowBox[{
+   FractionBox["1", "3"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["7", "6"], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "4"], "+", 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", 
+          RowBox[{"p", ".", "p"}]}], 
+         RowBox[{"4", " ", 
+          RowBox[{"p", ".", "p"}]}]]}], ")"}]}], "+", 
+     RowBox[{
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["3", "4"], "+", 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", 
+          RowBox[{"p", ".", "p"}]}], 
+         RowBox[{"4", " ", 
+          RowBox[{"p", ".", "p"}]}]]}], ")"}]}], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       SuperscriptBox["m", "2"], "2"], "-", 
+      FractionBox[
+       RowBox[{"p", ".", "p"}], "12"]}], ")"}], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "\[Epsilon]"], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"7", " ", 
+       SuperscriptBox["m", "2"]}], "6"], "+", 
+     RowBox[{
+      FractionBox["1", "3"], " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "-", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"p", ".", "p"}]}], "9"], "-", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}]}], "-", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"p", ".", "p"}], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{560, 124},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1655660453]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Part",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1862843791],
+
+Cell[TextData[{
+ "Compute just the logarithmic UV divergent or mass singular parts associated \
+with the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"1", "/", "\[Epsilon]"}], TraditionalForm]], "InlineMath"],
+ " pole:"
+}], "ExampleText",
+ CellID->883568301],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["k", "\[Mu]"], 
+     SubscriptBox["k", "\[Nu]"]}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1", "+", "p2"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     RowBox[{"p2", ".", "p2"}], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+     RowBox[{"s", "/", "2"}]}]}], "}"}]}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"%", ",", 
+   RowBox[{"Part", "\[Rule]", "UVDivergent"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"%%", ",", 
+   RowBox[{"Part", "\[Rule]", "IRDivergent"}]}], "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1317870492],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p2", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Nu]"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{
+    "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", "s", ",", "0", ",", "0",
+      ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Mu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVC", "[", 
+      RowBox[{
+      "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", "s", ",", "0", ",", 
+       "0", ",", "m"}], "]"}], "+", 
+     RowBox[{"PVC", "[", 
+      RowBox[{
+      "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "s", ",", "0", ",", 
+       "0", ",", "m"}], "]"}]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Nu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVC", "[", 
+      RowBox[{
+      "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", "s", ",", "0", ",", 
+       "0", ",", "m"}], "]"}], "+", 
+     RowBox[{"PVC", "[", 
+      RowBox[{
+      "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "s", ",", "0", ",", 
+       "0", ",", "m"}], "]"}]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"PVC", "[", 
+      RowBox[{
+      "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", "s", ",", "0", ",", 
+       "0", ",", "m"}], "]"}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{
+       "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "s", ",", "0", ",", 
+        "0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"PVC", "[", 
+      RowBox[{
+      "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", "s", ",", "0", ",", 
+       "0", ",", "m"}], "]"}]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{
+    "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "s", ",", "0", ",", "0",
+      ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{472, 84},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1940751086],
+
+Cell[BoxData[
+ FractionBox[
+  SubscriptBox["\[DoubleStruckG]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]"}]], 
+  RowBox[{"4", " ", "\[Epsilon]"}]]], "Output",
+ ImageSize->{32, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->74388119],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"3", " ", "s"}]}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox["s", "2"]}]], "+", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], "2"], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", "s"}]], "]"}]}], 
+      SuperscriptBox["s", "3"]]}], ")"}], " ", 
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p1", "\[Nu]"]}], "\[Epsilon]"]], "Output",
+ ImageSize->{228, 70},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->405633479]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->508053581],
+
+Cell[TextData[{
+ "All explicit dependence on ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in the input expression is retained with ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Part",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#883568301"], "\[Rule]", 
+   "UVDivergent"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and can be used to determine counterterms:\[LineSeparator]",
+ "\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"   ", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3b2O5MiRwPG4D+PM0RuU9AQD3AvwBD3AQML6lIBb9wa6AxbyypTZ7nm0
+12pfDh9ARj/ALUDzrL1+g7niFGuHXV3MCH5Gfvwb+EmrVXV18COYmZFJ8td/
++o/ff/+PIvKf/3L5j9//8Yd/+/Of//iXP/zz5X/89i//9e9/+qfLP/zfP4j8
+z+W/+3/55csXAAAAAAAAAAAAAAAAAAAAICuXn+8ufhj0/+Kv3jEBKbv8fD/K
+qd5PQ2498p13vECKAjkV8ivvuIEcDH3HnwO59jfvGIGc9OOzQL794B0fkJNR
+XeSRf/WOD8hJoH372Ts2IDeXn79P5BvzAMCG+toj8wDAMYb6JPMAwAEuPz8y
+DwAcIzD3xjwAsKG+1s88AHCMwLwb8wDAxgJjt//2jg3ICfMAwHGYBwCOE1jD
+9Xfv2IDcBNZwMQ8AbEgZuzEPAGyIeQDgOHPnAS4/vwm0hxbfe28z4CWwhss0
+DyD684W+DPUY5hVQNGUNl3keINAn/ZH5BOAqkCez5gEm5hNoz4CRLeYBHozn
+fqKuCby1xTzA8B3jnO3/+Tfe2wbERqbXcJnnAe5y7UfvbQJiNTHmmpwHuPvd
++3aNZwkBAYGxW7DOMYzXxr/LfBoQsHQeYPi98Vzb77y3BYjdknmAu/EeNUjA
+SKbXcD2cB7jLT2qQwAwyvYbrXZt1l5t/C/U3AbwVGLv9fPe5+7oIzzEBZrLM
+A/R1kLs28CfvuIEUafMAMj0PTi0SmEHCa7h+FWj7WD8CzBRou34aaiFTuXZD
+XRIw6sdohpwKfYbnBwFGgXmAL8P/97vhc1PzczzTBDAIzAO8m1cb6pNTn2W9
+JKCQwDMPJj4/9UwS3gUHKAJ9RMsaLnUdCoCrodZvXsM1+p3Jmor3NgGxCswD
+BOsfgVrlz8I6SuAhmZ7HDs5hKzUW5gaAB2TFc7hkeh6cNZXAHWUcptY9lLkB
+9RmTQ92FdSkoQj9ftmTsdvcdi+YGRuNG+p4oQmAewLz+OJCzvcn7BoY8pd+J
+YgTmAWa1OXPbuFGNhueaowhKfXHWnLXSxn1399lbP5J7eFAM2fhdioE653it
+8y3X+vaQOToUQ6Zr+YvaHaVWaR7XAbmR8DzA4nqhhO8BX/39QIpkeg3X7LHb
+g+8O3QtOrgEbezA2/OvaPAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEjR5ae+
++OgdB1CCy8/T8LyTs3csQO76tm30jKGXi8o7JiBnQ56Nn+3Vt3kfvOMCcnT5
++fzguZUdbR2wvcvPKfC82GfaOmBbQ15N5dzrxSfvGIFcDPMC2nsI2r4t9I4V
+yMHQjmk513/ms3esQOouP40h38ZzB8yTw80wl1UNPvVzyHeehz7ZFK19Cf1u
+++Dv1aN4KmP81ny7OXvvd+RllEf1cB4/jc7xbsE5GoNb/M2wTZ+HbfzfBd/V
+WfIZuJG3bVIjtvYG73O49j6WiMPl58OQV/21/NZGkVPb64Z9zLxdIeQ6h3tr
+r1rx6fe9yNvxVSPvx1hjtYzGW3cejQfHxn3cG++8ex22+eR9PmDT3Lq1W2fZ
+v826nctP8nbc04u2XifX688tznqUp7ft2bud7/8Gc+YJGs6derh23q+13apN
+GudStHm04T79tHO+3XTDsaOvGam7/Oo2vN7e2qg+p07e2+m4f/v669Hj2Ndh
+/xe732Mj137i2vzqf/+ZvJrcxx65dq8/PpX3vsDX82FOvt3nFn2W8L79EEGu
+3R+/2nu/lEzCa4z6sVbfJ/lEuzV7v36Q7ce+N63RrT9/j/WZfudFPZFftF3L
+9+maXGuHa+DXWpL3tmDzc+NEfm2+T0P3ut28yrc6bX/Ny75GC2xton/eCTUl
+YFNDLtEfBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABggrx917DVyTtuICby
+/t1srez3vrnbu3tuz667Pb+OZ0MiK0P71D/3NOb3onajXOQZ70iCXJ/3/WmU
+W955tMb4OcmV974FeqP82usdFjHp869/3iv9UBxiaMNqsT1LP2edXJ+3zLt+
+sSlyTHV7vz25h8Xk2ldsIjiX25k84+2E9/3CSK5t2WfZpy7/KI/6fD4Pf7OS
+jd+vKtf3ct2+9yxv5x72zr3+b9TexxTxGc7LZsfz7mmUU9G8k26Uj30ePu90
+nemG749mu+F2vlUbX+tfh/M22fc2ybd5jfMO+6b/zpP3NuLwc2rLPHsZzqMs
+6+Tydl5xq/avIe/yJ9f1HlvkWd+G1VJgH2nYh59l/Zzjrb0rbh/mTrYZn72U
+mmPKfl3b7vV599l7W7DZOXGW5esWX4X6tnU/VyuvaX3OVt7bgVXHf+l192tb
+5r0NKZLreG/NNe6Z61s6huO99Drbco3d9FjUC6959DETINc62pLrasM1ddfj
+sjTvWo5LfIY27Wnh8cyyjh+jhXnXXz9r79jxyzH8uOAYvtBvdD1mnxf0Q/px
+HbVh/+PGtTJBC/skHf0Rt2PVzDxWT1wf4zP0T+bOndfecZdCrnOsc45PR98x
+fgv6mI13zLkbroVzjgltWkKGa2k74/i+cHx3OxY1bVoZ5Dpfzpgujf1PHSsD
+Mq/u/ErObbbfmxm5xpqEjMi1LmZ9bgy15/X725prr/Qf8zWzf1N7x5uiGbnW
+j5lP3vFi9/Nhzlq92jvelMzINcZqBZk5pqu9403BjFxrvGOFy/nxQezzr7V3
+vDGbkWvURQpGzm2yD625xv7DVzPOmco71piIfd1x7R0r4mLMOebnvu2vmlzD
+GjNy7uQdq/N++kiuYQvGnCt2vaVc16Za5lNq71iRBrGtRWm943TYL9b60tk7
+VqRjxnn15B3rwfvF0vY33nEiPTNyrvaO9aD9YalFPnvHiXQZxyrZ1yyN9ZFi
+x7TYjtjuTc72XBva+c5wzTl5x4o8iG2uqfGOc6dtt9SOKu84kRexPQMsq3eP
+y/VeCm2bWROJXYj+TJRs+lXGsSv1EexmGMto52DrHedG26pdW7pcx6yIh1zf
+l5R1H0tstf+sa7KIh+jPZUi2X2lsw8/ecaIsos+Ft94xLtwurR754h0jyiO2
+ebmk6pXGvjL9SLgwjHNeU6opiD6vffaOEWUz1PGSWNNsGJPSj4Q7sa0tPHnH
+qWyDpUZCPxJRMLQNrXeMSvxNDm00yiC2Nb2Vd5wTsZ9yGoOiDKKvNey8Y5yI
+Wxt/Jj13j3wZzt3aO8a7eKsUrxFAz9A367xjvItXuz5U3jECIYbaQ+0d4xCn
+1ra13jECGtFr6513jEOctG3IgujzA7VzfFrbxn1tSEbsbZzoa5JP3vsQmCPW
+Ns5Q02m89x0wV6xtnKGeU3nvO2AJQxtXHRzPB2qSyJWhjWsPjieq/Ae2Zui/
+nQ6MpQvEwf02SF4s9QnR13fW3vsK2IKE6++HrL/XYvDeR8BWRJ9frnf++1ob
+e/beR8CWPMdOhjrJyXv/AFsS/dlCpx3/dijXWbuF7Ig+97XLMwtEf75KUs/s
+A6wkPDfQOfxN6iTIlqFusnlbI+H5dp4DhKwpY6lm47+lzbnxjDtkTcLvbdy0
+f+fRfwViIvpc2GZ9SqUvefbeF8ARJPxunWajv6H1JU/e+wE4goTn4jbpUyr9
+VtYmoxhH9CmVugx1SRRF6VOuygfR57ipS6IoSn+vW/ndof7qqu8GUmRog04r
+vrvdux4DpEYZYy16T4bo6zRZL4kiSXg+etG6fdHnAXi3FIqk5MaieQFlXNh6
+bzPgxdD3qxZ8Z6juefbeZsDTlvlhyF/mAVC0Lft/e/RPgZxo9Y2Z33Vm7AZM
+27IPKOF5t7P3tgIxUMZw5nm4rWsvQI6UMZxpHk6U9Sre2wjEQhnDdcbvqAPf
+wf03wED0+3PUNSFKG8n9N8CIhJ99UBl+P1Qrqb23D4jJ2triVjVOoAQSnjsL
+1kyolQDzKDWTYL1jze8CJdJqJsrvhtrGxnvbgBgtHYNJ+F2KZ+/tAmKk1Ewm
+78uW8PqUynu7gBhJ+H7vc+D3Qu3iyXu7gBgtqVGuGfcBJZPw+6raBb9DbRKY
+IAvm0ST8rMnWe5uAmCljsXfrKJU+6Nl7e4CYSfiZlNWDz4fmAhY9wxIohcyc
+E1A+X3lvDxAzmTknICvvKwBKNnc8Nre+AuAbCd+n3d59NvisIe9tAWInM+bg
+lM8y9wYolBx6nfHZ1ntbgBRY+4jCXDew2ox8m1VbAfCeUuP/OPoc+QasJMY5
+bFl4/w6Ab2bkm+lzAKYpefTJ+LnKezuAFFjHZeQbsB75BhxnRr5NzhuI4Z0D
+ALbJN+9tAFIh4XUjzehz5BuwkhjXRZJvwHrkG3Ac8g04DvkGHId8A45DvgHH
+Id+A45BvwHHIN+A45BtwHPINOA75BhyHfAOOQ74BxyHfgOOQb8BxJPyOnOfR
+58g3YCWxP0+hC3yu8t4OIAUz8q0l34B1yDfgOOQbcBwJv4fj8+hzoXyrvbcD
+SIG13bK2gwCmkW/Accg34DiBHOqdRp/7FPhc670dQApC+Xb3uYp8A9bZKN9e
+vLcDiJ2SQ93dZz9YcxPAe3P7iOQbsNzcGsjl5zXw+Y/e2wPETKnxPz34fBv4
+fOW9PUDMlHw7P/h8KN9q7+0BYjY3f/o2b05+Avhmbv9wbv8TwDdz6x9z6ysA
+vplb3xfmvIFF+vYrkDuvE7/DnDewgNJWtYHfm8w3Ga1vBvCNUvt4Dvzey5wa
+C4DltX2lpvn5qPiBlCh5Uwd+L9Qunr23C4iRLHx+a9+GLRn3ASVT6h4fAr8X
+qrN03tsFxEbJmYdzAaPfZU4AmEFWrhOR8LqUynv7gJgoNY/G8PuLai1AiS4/
+z2tqjMJ9AoDZ0trk6PepUQJGSm3yZPj9xfUWoCRb5IpWo5TAfAJQkq36gmv7
+pEAJlFqH+R5tpUZ59t5OIAZb1fJl4f0FQEmUcZf5GZISnjPvvLcT8Cbhe7q/
+zPyuEzUTYFrfX9yiVjL6PtZ1ARMk/K7u2c+zo2YCTJPwsxDqBd8Xqpm03tsL
+eNqqVjL6virwfawzQbGU3Piy8Du1dSa8MwdF2qvvt3UfFciBrLwHJ/C9oRpM
+473dgAeldv9pxffWge/tvLcbOJoo89yyYm5a9Hnvk/f2A0eS8D0Bq9+zobSd
+tff2A0dSxm6r39u29/cDKdm7/VHaz857+4GjGMZupxT+BpCCo9oexnCAOrZq
+Uvs7QMyOaneEeTgUzjCu2uyeUNHn4VhLiaxJeM3k5u+3l/Azu3gXI7Im4ftB
+N58Xk/BaSp4hhGyJfq/M4jWTgb8ZeobQF+99AuzF49z3yHEgBl59u6P7sEAM
+vGoXwtouFEYc11cZ/jbzAsiKhOcBugP+vkvbCniQ8DNFdh9DKWPHzef9AC+i
+r/PYvUao1Ub37M8CR1LqFYc9E1LC6zbpUyILEl6nf9gaj1jiAPYi+nxzfWAs
+tRIL789B0mI6x2PKfWAPsfXhYosH2EqM7UlM7S2wpRjP7RivAcAWlL5bG2lc
+9CmRnJjbkRjbXWCNmM9pw7WAuW8kJfY+mxIf6ymRDNHXS9YRxKi1vyfvGAEL
+Ca+XjGJ8ZOhTnr1jBCwkfO+Ne19yFGcTiLPzjg/QiH4vde0d4yhW7R4d7vtG
+1C4/T4Hz97B7b2bEG7pHp/GODwiR8HMLGu/4HsSb1PUBuDH0zyrvGB/EnEz/
+FxiT8JxW5x1fIO5Qm9x6xwfcS7m+Lvr8xck7RmAs5XPWcK3gGcyISup9slT7
+wihPXwdJveZgqPXwXg9EQcLrNJKpqafeRiN/hrFP4x3jjG05pzoGRRkMdZJk
+1kSJfl8DdRO4Uvpgyd1HptRNkukbIz851EkebJNWN0lum5CHXNuC3NpspC/n
+sY5hTFp5x4iySHhdfdK1PMmo5or0Dedj6L6x1jvGDbaxyfV6grSI/qyd5Ndi
+iH6fztk7RpRBqSd03vFtuJ1tqB4kETz3CHkTvV6ezbNSDdtae8eIvJV2zS+l
+LUd8DGOaZOcAAtuszQ3U3jEiTyXW7KSAWiziI/r8duMd447bfla2vfKOEXkx
+tG2Vd4w7brt2rWm9Y0Q+6FOZrjfJ3HeEuBn6U8nPbxv2QbH9aRzH0LZ13jEe
+uC9C90NkWS/CsQxtW+0d44H7oqKNw15o2x7uk5Y2DnsQ5nof7RPaOOxCwmuZ
+slu7NWO/0MZhU6Lfc3P2jtFx39DGYVO0ber+oY3DJmjbNtlHjXeMiJ/oNcni
+27bRvgr1AWjjoBJ9vu3sHWMsRL8ftfGOEfGibVu0zxjHYRHatkX7rFL2Wesd
+I+JD27Zq32ltXOUdI+JC27Zq39HGwUyu95rQtq3bh7RxMBH9XsraO8bYGdq4
+zjtG+BP9PsrOO8ZUiH5/XO0dI9zPEa0fxDli35fqtYt+ebnoA+2yT7W++dk7
+RridG4zxt9+n1J7w6LyolVxrvWNMlehzK413jDj0fPgg+lrbyjvOVIm+dqDH
+8/MKwfX3kH1M/wGW8UXv5B1nDgx9iOyf21k66meH7utK2dedd4xwPf7Uzrbf
+5y3XtzIZjn3tHWNuRJ8Df6X/nh/D+P3FO8ZcXX6eqE+VQ2z16co7zlyx/8ti
+uL4+e8eYO/oXZRD9nduMH447Fi/UTvJGfSweYqsPn7zjxOLjq/VhOqH+f/Qx
+aejb58c4Rmd9Q5zHpfKOE7OPq3Ydbb1jLJXo7/mi35EQxgnxo3aSD9HXyXIs
+/Y+RVjfucc9O5ES/16bzjhG/HCttXpQ5uYiJvlaPsXhExHbf72fvODF5/Frl
+2DXeMeLdMdPescNYO0KGmhf32kRK9OdWtt4x4s3xOok+p1N7x4lVx49+ZSQM
+/cjWO0aox9DSPzl5x1k6jlM+uG7GjX5IXjiecTNcD5m/SYzo86f0V3yOi9aP
+7LE+IUGir/VqvWMsibHfcfaOE4uPr2WtF/3K444H/cjM0a+MA/3Ichj6lVxX
+993/H+lHloNxg/v+53pXGPozbvud/nyhDOP1Tlgbu+X+rqhXlcvYr2y848yB
+2O6Rar3jxO7ngXbfTo/nP63fz9q9GvQjC8G5sPv+rbmmYXQ+0NfZb9/SZ8ej
+88Iylj97x5ka0Wv//XWOmlSBRK9V9yrvOFMh+nObmHMpnOF6zPMzbPvRUoc6
+e8cJ9/PEMt5oveOMGfsQc4itnnb2jjNWxj7CyTtOxEP090Qwlnu83yxjNmr/
+eEOucwSM5ebtM8uY7ck7TsRJbPeNtN5xxsA4ZmPdP4IYy5n2kbUvcPKOFfEz
+juWKHZOwf7Alrt/BfWNp/xmzYRbjWO6lpPqJ2J6/xJgNixiv5Y13nAftC8sa
+7yLbfGxHbPNL2d+jLPq98b3KO06kzzCWy/pcM15zzt5xIg9DX0oby2XZlzL2
+qZ+940RexHa/XFb1E2t9JKdtRjzE9ky9LK71M9p07mfDbsQ213v2jnPlNlrm
+H3vMaWNXM87F2jvWFduY/TUF6RDbWt0k+1pie8ZEFn1mpMNYS0jq/h2x1SKp
+j8BFTuen2NavJdlmIx/GsU7U/S+x1SJ7lXesgNjWOjXecU7Enn39B3lJ+ZxN
++VqBchnHP71o5qyMfeHWO07gEbHXLN1rDmJbK5NErQflElvN0nVtcwoxAlZi
+mzN2aTtSaoMBK+PY6NCcmzHGrL33HzCX2GqWzUGxnIy5lv296siT2OcJmhLi
+APY2o1057/T3rbkW9RoYwMpz3CT6u8qp+yM7Ynsew6Y5JxHWbICjiG3eq7d6
+DYox15hjQ9aMObdq/ktsz69jjg1FmNH2zM6HGW0ouYZi7JFzM3Kt9t5+4Ghb
+5hy5BoSJfW4sWEMk1wCbtTkntndo9xrvbQVisDTnxD6P3nhvIxCTuTlHrgHr
+zMihF3INWG9Gzmla723B5DHux9zdBscYwHv9mvGPo1zzjgfI3de1qkK7Bhzl
+HEEMQCn6fmUXQRxACc7C+A04wi/3Gsr1WbtdBDEBOWplqE/+P8YmTa0=
+        "], {{0, 
+        495}, {220, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{27.578124999999737`, Automatic},
+      ImageSizeRaw->{220, 495},
+      PlotRange->{{0, 220}, {0, 495}}], "  ", "=", " ", 
+     RowBox[{
+      FractionBox["\[Lambda]", "2"], " ", 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         StyleBox["1", "TI"], 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}]]}]}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->461555395],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"selfEnergy", "=", 
+  RowBox[{
+   FractionBox["\[Lambda]", "2"], 
+   FractionBox["\[ImaginaryI]", 
+    RowBox[{"16", 
+     SuperscriptBox["\[Pi]", "2"]}]], 
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{"1", ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"counterterm", "=", 
+  RowBox[{
+   RowBox[{"-", "\[ImaginaryI]"}], " ", 
+   RowBox[{"\[Delta]mSq", "/", "\[Epsilon]"}]}]}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1771315600],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"\[ImaginaryI]", " ", "\[Lambda]", " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}]}], 
+  RowBox[{"32", " ", 
+   SuperscriptBox["\[Pi]", "2"]}]]], "Output",
+ ImageSize->{90, 33},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1341055161],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"\[ImaginaryI]", " ", "\[Delta]mSq"}], "\[Epsilon]"]}]], "Output",
+ ImageSize->{56, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1273215662]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"selfEnergy", "+", "counterterm"}], ",", 
+   RowBox[{"Part", "\[Rule]", "UVDivergent"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1011681011],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{
+    RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Delta]mSq"}], "+", 
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", 
+     SuperscriptBox["m", "2"], " ", "\[Lambda]"}], 
+    RowBox[{"32", " ", 
+     SuperscriptBox["\[Pi]", "2"]}]]}], "\[Epsilon]"]], "Output",
+ ImageSize->{99, 45},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1876140930]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   OverscriptBox["MS", "_"], TraditionalForm]], "InlineMath"],
+ "-renormalization condition:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->527116188],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[", 
+  RowBox[{
+   RowBox[{"%", "\[Equal]", "0"}], ",", "\[Delta]mSq"}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->314513424],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"{", 
+   RowBox[{"\[Delta]mSq", "\[Rule]", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["m", "2"], " ", "\[Lambda]"}], 
+     RowBox[{"32", " ", 
+      SuperscriptBox["\[Pi]", "2"]}]]}], "}"}], "}"}]], "Output",
+ ImageSize->{113, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->380239654]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "TargetScale",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->643381763],
+
+Cell[TextData[{
+ "Consider the bubble integral ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      FractionBox["\[ImaginaryI]", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]], ")"}], 
+     RowBox[{"-", "1"}]], 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", " ", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{"k", "\[CenterDot]", "p"}], 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["M", "2"]}], ")"}], 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " involving two masses:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->895406538],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"k", ".", "p"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "M"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1302583964],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox["1", "2"]}], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"PVA", "[", 
+    RowBox[{"0", ",", "M"}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["m", "2"], "2"], "-", 
+     FractionBox[
+      SuperscriptBox["M", "2"], "2"], "-", 
+     FractionBox[
+      RowBox[{"p", ".", "p"}], "2"]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "M", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{421, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->584111160]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " gives an expression whose scale-dependent logarithm involves a ratio with ",
+ StyleBox["m", "InlineCode"],
+ "."
+}], "ExampleText",
+ CellID->1997094330],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "int", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->627427262],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     SuperscriptBox["M", "2"], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "M"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     SuperscriptBox["M", "2"], "-", 
+     RowBox[{"p", ".", "p"}]}], ")"}]}], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "+", 
+      SuperscriptBox["M", "4"], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"4", " ", 
+    RowBox[{"p", ".", "p"}]}]], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{434, 78},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->535828533]
+}, Open  ]],
+
+Cell[TextData[{
+ "Set ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["TargetScale",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#895406538"], "\[Rule]", "M"}]], 
+  "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to generate an expression with scale-dependent logarithm of the ratio with \
+",
+ StyleBox["M", "InlineCode"],
+ ":"
+}], "ExampleText",
+ CellID->249838352],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"TargetScale", "\[Rule]", "M"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1387548646],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     SuperscriptBox["M", "2"], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "M"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     SuperscriptBox["M", "2"], "-", 
+     RowBox[{"p", ".", "p"}]}], ")"}]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "4"]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "-", 
+      SuperscriptBox["M", "4"], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"p", ".", "p"}]}], "+", 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"4", " ", 
+    RowBox[{"p", ".", "p"}]}]], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["M", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{442, 78},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->117719817]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " always assumes ",
+ Cell[BoxData[
+  ButtonBox["TargetScale",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine#895406538"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is real and positive (like internal masses).  External invariants may also \
+be specified, but correct results are guarenteed only when specified ",
+ Cell[BoxData[
+  ButtonBox["TargetScale",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine#895406538"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is real and positive in the Euclidean region (",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["p", "2"], "<", "0"}], TraditionalForm]], "InlineMath"],
+ "):"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1855569579],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"TargetScale", "\[Rule]", 
+    SqrtBox[
+     RowBox[{"-", 
+      RowBox[{"p", ".", "p"}]}]]}]}], "]"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1984441537],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     SuperscriptBox["M", "2"], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "M"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     SuperscriptBox["M", "2"], "-", 
+     RowBox[{"p", ".", "p"}]}], ")"}]}], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "+", 
+       SuperscriptBox["M", "2"], "+", 
+       RowBox[{"p", ".", "p"}]}], ")"}], "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"4", " ", 
+    RowBox[{"p", ".", "p"}]}]], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["M", "2"], "+", 
+     RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+   RowBox[{"Log", "[", 
+    RowBox[{"-", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{"p", ".", "p"}]]}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["M", "2"], " ", 
+   RowBox[{"Log", "[", 
+    RowBox[{"-", 
+     FractionBox[
+      SuperscriptBox["M", "2"], 
+      RowBox[{"p", ".", "p"}]]}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"p", ".", "p"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        RowBox[{"p", ".", "p"}]]}], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{524, 85},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1313410747]
+}, Open  ]]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "QED polarization function",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->15944378],
+
+Cell[TextData[{
+ "Explicit expressions can be found for any kinematic configuration.  \
+Consider the ",
+ Cell[BoxData[
+  ButtonBox["Transverse",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Transverse"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " part of the QED vacuum polarization function:"
+}], "ExampleText",
+ CellID->1959589310],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   GraphicsBox[
+    TagBox[RasterBox[CompressedData["
+1:eJzt3b1u80p6AODJT5HSd3AU+AZ8CUrqFMamSKtdJGljbAIEp1O5pa8g0CUY
+ewNRuUUKlwukURMg6VSkSeWIx6PP1HgoURKpocjnAE/2i0VJryiKL2femeFf
+/uaffvWPfxpC+Oe/2P2fX/36X//qt7/99c9/++e7/+evf/6Xf/jNn+3+8fgn
+IfznTvXHj48PYKAef5o977ztrHfedz5qFqXjA4B7t8unLzvbJMfuzUrHBwBj
+ssutr7U8uykdDwCMTZJr30rHAwBjk9RrX0rHAwBjssutD0mt9ql0TAAwJnE8
+8j7PbkvHAwBjo1YLAP1SqwWA/qjVAkC/1GoBoF/n1GqrNu/OMpqXjh0A7kGb
+Wm2VV6u1pOJ6juv472r7Ven4AWDI2tRqq3sQxMeWcfuHmG/VdwHghFO12ti/
+vK33F1dt2SQ/z28VLwDcm2O12to9gJ6Sv6+TXDsr/TkAYKiaarWx3/hbno2P
+PcfHtu5xCwDH5Wq1x/IsANBeHFt8UKuN45/kWQDoQMyrP+4NH+uw8iwAdCQz
+xukjjjF+Md4JAK6X5NhqPPJbbNfu/7Y2nwcALpOr1dYee0ny8KJ0vABwb5Ja
+7bc1kJN8W7V1H0rHDAD3JKnVNq2BXO9Pnmcen5X+HAAwVKfWQI7bvJ/ItRv9
+ywDwXVKr3RzZrnHN48fPe+tZnxEAMpJa7erIdvVc+5A8Vo1bfi/9WQBgiJJa
+7eLIdsfu/7NpqvMCwNS1vUdPrV67Tv6+v/+PsckAkGhbq43b7u8R/yOvxjrt
+VpsWAPKqdmxtLs+yxfb7+9vu10v+ZY2p0p8DAIYstk0XZ2w/i21c6yQDAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAMHq7/55KxwAAY7b7b71T/WMb/73cWcjB
+ANCNmGeb1PPvvHSsAHCPTuTaXO59i+3eh9KxA8A9ODPXpuRdADjhylyb5t3n
+0p8HAIakGv/UYa6t9zO/7sxKfz4AKKnKhTsvPeTatK07L/1ZAaBPse36HMcS
+V2OK33vOrzl/3Pn70vsCALpQtSNreXVbIK+e8h77mKv8b0wVAIMX26373HpO
+vlvHPt4h5N4qfmtnADAYMb9WbcPNiTy2nw+7jO3IWfI6yx5zaPXef4i5tPLH
+cLqdXT2+CsYzA1BAy/y6iblqkebVhtfsIteu43tWrzU/1T4Nn2Oynlt8ln3e
+1d4FoDe7/x5i3jw2nqnKdS9tcmvm9c/NtVVufIvv10kOjLl3EY73Z2/ie6rv
+AtCJmH9eQ3OfayfrNcX3aNMH3VluPRHP/triWN5dXXJdAQCVmGNXJ9p2sw7f
+b93wPr+MEy68L0616avY56W/MwDuQ/isxeby3r4dN+/pfffvOejaaNw/q4Z2
+vpwLQKMj7dgqpyz77iuN7ddF6f1wRrwPcb/IuQAcFXNGrla6z7HGAJ3eh4uQ
+H8esngswcbHmmrbL5NjL92cu59qfABMUa465cT6vcsLV+7apb3mjXxlgGkJ+
+HutaX2fn+/mhof795noGYJwa2rJVW8sahP3u93lmv2/td4BxaWjL6i++/XeQ
+9iv7DgDuXOzHXKsbDkP4nFeVfh9Vm3eQc4kBOC72XWpHDVCmn6H6nhal4wKm
+6fGn2XxnubOOXnYekm2eq21Kxzok4XMuj/rggMX6+Sb5nlal4wKmI+bY952P
+nU3Mt8v47/d9vt397yJu81Y65qHIjH19N8Z4mGIff3pvg7W+B6BvMad+RMvk
+sYeYa6s27tPONm73Ujru0uJ5Ox3vuiodF62+u7QfQg0X6M0uZ65qeXbRsM0s
+Pr6tbTvp81Icc5Pm2ez+Y5jC5z3r6/X1rXwLdC3WYj/a9AnX+pd/ybmlYy8p
+1v3Sc/S8dFxc/F1ugjo70IPYH/xRa68erVftHn9tm5fHrCHPagvdsYZawKJ0
+XMD9S9qpyxbbr2vbT7JWm8mz78bUjIN8C3StNpZ4b3Zi+4dk+8m14+TZaciM
+KV+Ujgm4T0mb9r3F9s9TrtXKs9Mi3wLXqo0pbt0fPOVarTw7TZl8Oy8dE3A/
+krHHrfqDk3bwZGq1sYa3kWenKRyueWEMHNBa1S49pz94qrXazFgZeXZiMsdA
+lW9npeMChi8ZT7xusf0ka7XaNMTjwDUXcLYk1y5bbD+5Wm34vDePPMv+eHhI
+avaT+B0Al0ty7aLF9psp1WqrMafGoJLKjJFblo4JGK4k185PbFtfW2r0tVrn
+U47JXIdZyxHISvqE5ye2rd+XYNS12kxdTj8h32TqC7PSMQHD8/h5n9qT9drM
+2lKjzj3JfMqN8S80CZ/3u/0xVqp0PMAw1fqRNw2P7+fg1u+hN9pabfi8t1q9
+b3DUfeVcJzNWalk6JmB4Hr/u//4R+4kf4t/nMQ9vM+3aUeafzHlztNcUdKda
+R8r1GXBKzLerJJ/uc+8s6Wseba02mUe7Lh0P9yOp3ao7AEfFvDpP/rYce602
+6Ts2zoWzhO9reC5LxwTcl7GvgazvmC7oSwYuNYU1kJNxx+vS8XC/kr7kdel4
+gPsw9jWQM22RWemYuF+ZvuRF6ZiA4Rv7GsjJ/Mhl6Xi4f5nav3FSwFFjrtWG
+w3X2jB2lM67hgLaS/uPKqNZ81ddHX8LnetrGtQNZsc94+/h9ru2Pmm1c42Je
+OtZrJG3adel4GJ9kzN2qdDzAcMQ1GZct3HV/a9KmnZeOh/Gp2rLG3QFTpU3L
+rSRzgFal4wG4FW1abiXOAdK2BSZFm5ZbS+q2r6XjAeibNi23ltRtzbcFehfX
+aZoXfO8f82lL7wumI2nbjmqeOjA8tfrVssB71++Ztyi9L5iOZL7tpnQ8wPjV
+rvHXtxoroh+P0nb/vatfALcSDteL/aWN23fuq/rtjE+hpGRc3qp0PMD4hcP7
+xe7XI170+H71MVGz0p+f6Qnf75OsbwXoVTJWpNecm9TK3kt/dqYrOe4XpeOB
+qYo1zCn4j5DPtfWcW/X7Xn3tHw7X7jEGlGLC4Vj40d2jEu7FifwzVatwRb9v
+OOw/1m9HUY5HKG8AeW1ItjHPPl2xP+v9x9oRFBcO+1kWpeOBKQqfY3KnoD7X
+NbUJ+o8ZqeD6D7iR8FmzzeXYRcfvU5/TOCv9uaESauORS8cCjFP4fl/Pbehh
+jm3yPsYfMxjhcDzyc+l4gPEJh+tKvPXV3gyHawdYv4LBcGwCfYt9xdu+r+eT
+tsO89OeGvXB4X1t9LkCn4riQ9677ixvea6MmxlAlYwnM/QE6c6vxSUmtdl36
+c0MqGSOvZgvcnXB4f4Nl6XggldRsl6XjAThXHNeszcBg6XsB7l0yf3dWOh7I
+qc2z3ZaOBeBczmHcg+Sa0Pgoburxp9nrznan1Tq4u+0edl7abs+4JfMp1qXj
+gSZJrWNeOh6mY5cvn3c+olbzznbbreP2VX6elf4MlBUO71tmnQAGKxkfZb1u
+bia2afe5ttW63LXtP7RtSdalcv5isFwXUkrVlq3lzZPnyaQdrDaHfjnuhnoH
+JcS661lt1EvawYxbOLxfn34OBs1ajTSJOXEezc587lPTcy5po57bDmb86mM7
+S8cCp9TXaiwdC+Xt8tgqaXPubc54jeWxPHpuGzXTDp6X3k+UF6yDzB1xbche
+zGmvcbzvJslvqzNe58dzGx6/plabfU2mR/2Le6LmQZMk1y5aPufpWF7soFa7
+Lr1fKnHdtXmiyBz18HlPnYNYCsXxkNknsx7fT67lbpwayzeU33GMJf0dF7k2
+GNJ5ti+ZnDhr+byj/cMd1GqXpfZJzCXLet9lRlWTeen7eIjH3Cp8rZuU83aL
+32v4nDv4fiSOan+9dpl3g3Gd3Jlcro25pM3veHGD+BbhsO2d2sZYZz3HMRvK
+efYWkpy4OeN529rzvq0Ff6+12vi9Hvs95I7LztfCjznm2O8hZ93H7yPm+2O/
+h9w+WXb43uYrcjeSXPs34fBee21U+aXz9mX4utf0ObG89pHn4j465zy76eM8
+e0tJTly1fM7iVH5+/Fr76W7m1cZrudxxv6x5bTheW+27lnE8ZY7Dbcy99VhW
+Ddt19jsNh+vgpO3XeizrzHbra3+nSa5dljgu4BzJb+a/Mr+L3O94k9lu0XFM
+6bliE9+7Hkvu+v792t9xLY6mNkTb8+yy9Pd7qaTfttV3m4ynyj7n3Dbque3g
+roXvebY6HmZHtn/K5Jer213he56t/n20DyXzO+ok34bvebY69hu/y/DVT3aQ
+b6+MQa7lriTH7EGeOPE7fs7k3EUH8Twnr7k59rrhq4bWeb7NnDNXJ86z88xz
+7m4u6CW12qRNm52r/fg5T/es8cTHxizHNm9v/QeZ46rxOMw89yV57lVxhsNr
+ufdjx2HyvIfkuZtrfhuZ88XqjOemuX/ZURwXvw7cSua30/raN/6OV8lzZ1fE
+Mkt+i29tzwvh+3X/VW2JK8+zq+S58w6+p4v367nOrdXG3Fxv02aPn8evebet
+7jdwasxyfM/ermXC4bVk6++/4Ri6OMdd+zqZfLvsaJ+sLnj+IvltXNTO3v33
+c+01/q2vYwC6svvv72rH7P9dcuyHw37W9RWxXPU6Md9eneMyr7O44DXq+XZz
+xT7Zj8m5eL+e69xabbL98sh29Vrtyc+T5OZt8tjTsbzehdrxePF1Wzjs5zi5
+L1sci/ML47j6dTo8putjQs7ug4rXDv9Te43f93UMQFfC53io/TH77xe+xkM4
+bFOe3dZIrncvbh/30Aa45jx7bRtgXj8/3uqYOKdWm/QLr09s+3HGtmlbeZ08
+/nLO+OgLv7+LjsHkNdIc1/o4CN/7as4+hpLXq+e4s8ZJhw77auJvrP7baJ1v
+w2ffVzo2YtnncQBdCB3VPcL3OuvijOcukude1S8YxlHbmocO+8TbOqdWWz1W
+m+NT5efGfZXWak/lycfva0Uuk8erPHwXcz0yx/epsUR9jkFI89TRea+hpzEI
+meuI7alzRmied7W8Nh7oW1e5Nr5Weu17aszmLHwf57vq4DNlx2yeeM4iHF5r
+dzVmMx0js25xnk3nXd3svhBta7UxJ+/bv9tTfblJf3DjnJ/4um/xNeuxvNa2
+eWk7ZmsoMvl2fy23nyOzCLcbW58bM/+WxNH72PrM73S/T1ZJLKvMdv8r13JP
+Qsf3W87k2/25Yhnf6yX+u9RcxNzveJPZrsu5iMuGfXLT82wbbWq15+bZ+Jx6
+rbbeN/z6+HUvodf4epv9a9Zy9D73vsR/30WbNjkO5plj7ZQ+54yfE0cVdx9r
+c8xCfg7uMdX29drXsvR3C6ckv7l5R6/Z1NfT5GS788I4Hi78HfexNkdujtTJ
+8+ytj4dTtdo4Jmm/zXvbtmXSnq1eY1Frv37UXu8l7YuO225qOXd56/3S8bGw
+CMfXadlfE7bat1fEMYu5/Nhv9T3cbs3J3LVm3Vv4Wtvuof6bLf2dwil95Nr4
+uvua07H8sgkn5vF2FEvb3/Gi5zgehnKezTlVq43tyn1uXB2rzybPq9dqi6z9
+NETha63+Rcxn8z6u81rG8hTf/yXGMy9xDMZYqvd+jueGedN5Sa7lnvSVa5P3
+mA3sdzyPn/s5FLpvwJDOs3tNtdo4Buqt3pd75uvWa7U3X/uJcZJruSfBPfWI
+0lptzLHLmF+38d9nX5c8nrkGMrRR6zPTV8LgBfeKJ0pqtQf10UtybO11G9d+
+gks5d3FP6rXD0rFQVq0Wu419xosOXlOtll4kfXKz0vHAMbVj9WZzOBmm2Gfc
+abtTrZa+3GKsCXQhGDdPz9Rq6UvoeG0A6Es4XDPq7tYGYPjUaulL6HDNO+hT
+cl24LB0P41Nf96J0LIyLfjnuRThcd3deOh7GJ66PMb9mHDM0CV9rXhl3x2CF
+w/ULZ6XjAThHcg5zPccguSYE7lnSN9f5vRHgWuFz3US1DuBuhcP7Zi9LxwOp
+cHg/zWXpeADOpc3A0Ol7Acagti7yR+lYIBUO7+tmTAFwl8LnPSjNp2Bwknlp
+5j0Cd0s9jKFKjk3rRQF3K6nZajswGEmfi1otcNfqNVs1MYaiNq/WcQncvWSs
+56J0PBAO1+t2jzPg7jmvMTTJ9Z/7UAGjoL+OIUnqGrPS8QB0IRmHsigdD9OV
+9LMYrweMRnJ+W5eOh+lKrvv0HwOjot+O0uL6FeoZwGhVa1lY14KSkvUrjNMD
+RidZ18K9Qrm5cLj+sfUrgFGq2hLGSFHC7r+n2rG3KR0PQF/C4T1t16XjYTqS
+MVHL0vEA9CkZIzUvHQ/jl9QvjIkCRi8Zn7IuHQ/jl7RpV6XjAehbZt7FU+mY
+GK/M8TYrHRPALSTzf9al42G8kmNtVToegFvJtDXmpWNifDJ12lnpmABuSduW
+vqnTAlOnbUuftGkBPiVjkjel42E8qr6S2rH1WjoegJKS+bbuu8LVkjVTtubT
+AlMXDu+3t9XXxzVibcL1G0AiHK6T7P4rXKzqL64dS+4FDxDFcSz1cVLuwcLZ
+wuH9BYy3A0hUfX1qbFwjHN4zz3gogIxk7Ki+ZFpL+o43rtUA8jJ9yYvSMTF8
+yfg6fccAJ2T6kmelY2K4Mmui6DsGaCEZl/yuP5AmSd3BsQLQUqatsiodE8MT
+DtfUro4X92cEOENm/saidEwMR7I2lOMD4EJJ7daYF34Rr8P0ewB0JBzeF00/
+4cSF72swWhsK4Erx3Fpfo8D4l4nKHAvWPAHoSK4t4xw7PcmYY30cAB3L1Ojk
+2wlJaglq9wA9yeRb6zhOQCbPLkrHBDBm4ft6fKvSMdHr9y3PAhRQnW+T8+9a
+f/L4yLMAZWXyrfrtSMSxcPIswADIt+OTmdcjzwIUlhkvZS7InQqf91SUZwEG
+qCHfPpeOi6u/w0XpuAD4Es/VaZvopXRctPru0lqAvgmAgYq1vnVy3n5Twx2m
+hjFQ7/IswPBlzt8b5+9haeiHcF0EcEdiv+Q26FMenPB5r8T0u1mWjguA8zW0
+nao+5lnp2KYo9hm/ZWqz89KxAXC5hprgVhv35t9Drp9hrc8YYDyqOUAN53p1
+3H73+ywzXs21DsBINfRhVl61r3rZ18vMvtaHDzABsY270dbqbf/m+ovtX4CJ
+ie2u10y7q8rBi9Lx3aOYY9NrmI9YL9dvADBRDfVEOfe8fdiUY9fGGAOwFz7v
+QT+KnBs+5zr13l97JMfe3T4D4HaO5I9tHOszKx1jQ9xV+/ylFvu6x/dZZuqx
+ciwAZ4k5N9fO3a8lWPw+QrX8mq7X0XmuDZ/jyXJjuOVYAK4S+5abckzVtlvd
+Mu/GeF4b8munuTb2Ra8a2rD7emzxaw4AxiG2IV+P5J3O8274HCs9j322TW3s
+Jm8Xvudz/Bybhtfdf85Z6e8EgPE60Z9ab/NVOXLe8jXn8XX3ebUp17W1PON9
+2+Ty6vMugrk7ANxQbHcuWuTdfU3zD3Hb38fcdm5b9apcGz77hKt4X1u+d7XN
+izYsAEMQ8+6p/tdbWtfaq6dqu2n/sPYrAIMX25AvMXf99wByb1NufYtxugcD
+AHcttnt/VzDvvse8WrV1q/b3rPQ+AYC+hOY1qrr0u/g+s9KfFwBKCZ/ziFah
+eR7RNealPx8ADEX4Gs/cZVt3XvpzAcAQhePrLrZW+nMAwD2o5d0283flWgC4
+Ujhc4+lojbd0rAAwBuH7OlBbuRYA+hXHWc1LxwEAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAMBpjz/N5tEyet1Z7zyXjg0A7t0un77sfDRYlo4PAMZgl1MX
+sT37luRa7VoA6FDsR67n2ofSMQHAmMS27T7PvpeOBwDGJo6H2ufa19LxAMDY
+qNUCQH/UagGgX2q1ANAvtVoA6JdaLQD0R60WAPrVtlZbtXeTvuatdRy/7aPq
+umUV982PfVr9vbbNQ9yPb6XjBeA2TtVqY27Y548qLz9Fm/icRenPUFrcR2/1
+a5CdWbSKf5/Hbd+tNw0wLcdqtTGHvEez+Lcn9yg42Ef1644f+ynZ5i1us6rt
+t3np2AHo37FabZJn639fyrU/9sWs1l+8zeXZ2nYH91EqHTsAt9FUq23Ks/Gx
++n34tlMdS1XbR63Gbyd99evS8QNwG0212vj3b3m29ng1Tmox1Twb98HrObkz
+2dfL0vEDcBtprbY2Dqoxz5LtE563eM72nO0BuH+ZWu28qd/4BrHM4vv3rZPP
+lYxx2rTY/mA8WenvHoDbyIxx2o+jvXWefcnE0ZdqLPDTlfE+JK95ck3L5DOu
+S3/3ANxGUj/M5dyb1GMfv+agrm9g2UG8i2RfnVzT8vFr7q1aLcCE5PLF4/e1
+oa5uB45N0n/cak3LR7VagMl5PLEGctJ2m+y8noZ9V5/nc/L+g49qtQCT9Nhi
+DeQkp7yUjnkokmuUVYvt1WoBJijpJ86O7Uny8TLzeNX2XZT+LAX23VlrZqnV
+AkxTm7E9SV1ymXl8M8X2brLv5i22V6sFmJhTtdradvW270vy2H4th8mNm0r2
+y/zEtgdjlkvHDsBtJH3D6yPbNeaUWIPclP4shfZffW3GxZHtHpI2beO+BmBc
+khy6bLldOk55M8Vabfzss9p+aap1p/clUKsFmJC29cak/3NW+/tyqm3a2j7Y
+t22/3Ufv8XOOz3sm1zbuawDGpdavuW2x7T5frGOddxWfP7k6bWbf7MeObfZj
+smt/q3Lxs1otwDTFdte6bR9wrM3u1zhcybMH+6a6/nhL9s88PtaqLg4AXKZt
+XRwAuIxaLQD0J53DXDoeABgbtVoA6Fcy32dZOh4AGJO4joVaLQB0KK4lNY9z
+bNdJrl3Fubbz0nECwD3KrHt8TPaeSjBm/w+Vje4E
+      "], {{0, 291}, {475, 0}}, {0, 
+      255},
+      ColorFunction->RGBColor],
+     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+     Selectable->False],
+    BaseStyle->"ImageGraphics",
+    ImageSize->{99.44531249999977, Automatic},
+    ImageSizeRaw->{475, 291},
+    PlotRange->{{0, 475}, {0, 291}}], "  ", "=", "  ", 
+   RowBox[{
+    RowBox[{"i", " ", 
+     RowBox[{
+      SuperscriptBox["\[CapitalPi]", "\[Mu]\[Nu]"], "(", "q", ")"}]}], "=", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["e", "2"]}], 
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["d", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        RowBox[{"Tr", "[", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+           RowBox[{
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+           RowBox[{
+            RowBox[{"k", ".", "\[Gamma]"}], "-", 
+            RowBox[{"q", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["k", "2"], "-", 
+           SuperscriptBox["m", "2"]}], ")"}], 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "-", "q"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "ExampleText",
+ CellID->1848156280],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"Perform", " ", "the", " ", 
+     RowBox[{"integral", " ", "[", 
+      RowBox[{"prefactors", " ", "ignored"}], "]"}]}], ",", " ", 
+    RowBox[{
+    "and", " ", "project", " ", "onto", " ", "transverse", " ", "part"}]}], 
+   "*)"}], "\[IndentingNewLine]", 
+  RowBox[{"vacPolT", "=", 
+   RowBox[{"Transverse", "[", 
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{
+        SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+        RowBox[{
+         RowBox[{"\[Gamma]", ".", "k"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{
+         RowBox[{"\[Gamma]", ".", "k"}], "-", 
+         RowBox[{"\[Gamma]", ".", "q"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "q"}], ",", "m"}], "}"}]}], "]"}], 
+    "]"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->759127752],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"q", ".", "q"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], 
+    RowBox[{
+     RowBox[{"-", "1"}], "+", "\[ScriptD]"}]]}], "+", 
+  FractionBox[
+   RowBox[{"\[ScriptD]", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "4"}], " ", 
+       RowBox[{"PVA", "[", 
+        RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"q", ".", "q"}], " ", 
+       RowBox[{"PVB", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"8", " ", 
+       RowBox[{"PVB", "[", 
+        RowBox[{"1", ",", "0", ",", 
+         RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], ")"}]}], 
+   RowBox[{
+    RowBox[{"-", "1"}], "+", "\[ScriptD]"}]]}]], "Output",
+ ImageSize->{447, 62},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1027148262]
+}, Open  ]],
+
+Cell["General formula:", "ExampleText",
+ CellID->1074120981],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "vacPolT", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1926276426],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["4", "3"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"]}], "+", 
+     RowBox[{"q", ".", "q"}]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["4", "9"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"12", " ", 
+      SuperscriptBox["m", "2"]}], "+", 
+     RowBox[{"5", " ", 
+      RowBox[{"q", ".", "q"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["4", "3"], " ", 
+   RowBox[{"q", ".", "q"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{458, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2058257833]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     RowBox[{
+      SubscriptBox["\[CapitalPi]", "T"], "(", 
+      SuperscriptBox["q", "2"], ")"}]}], " ", "=", " ", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["e", "2"]}], 
+     RowBox[{
+      StyleBox[
+       FractionBox["i", 
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}]],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]], "[", 
+      RowBox[{
+       RowBox[{
+        FractionBox["4", "3"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"2", 
+           SuperscriptBox["m", "2"]}], "+", 
+          SuperscriptBox["q", "2"]}], ")"}], 
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["q", "2"], ";", "m"}], ",", "m"}], ")"}]}], "+", 
+       RowBox[{
+        FractionBox["4", "9"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"12", 
+           SuperscriptBox["m", "2"]}], "+", 
+          RowBox[{"5", " ", 
+           SuperscriptBox["q", "2"]}]}], ")"}]}], "+", 
+       RowBox[{
+        FractionBox["4", "3"], 
+        RowBox[{
+         SuperscriptBox["q", "2"], "(", 
+         RowBox[{
+          RowBox[{
+           FractionBox["1", "\[Epsilon]"], 
+           StyleBox[
+            RowBox[{"-", 
+             SubscriptBox["\[Gamma]", "E"]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+          StyleBox["+",
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox[
+           RowBox[{"ln", 
+            RowBox[{"(", 
+             RowBox[{"4", "\[Pi]"}], ")"}]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+          RowBox[{"ln", "(", 
+           FractionBox[
+            SuperscriptBox["\[Mu]", "2"], 
+            SuperscriptBox["m", "2"]], ")"}]}], " ", ")"}]}]}], " ", 
+      "]"}]}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1792550293],
+
+Cell[TextData[{
+ "At zero momentum transfter, ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1003790985],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"vacPolT", "/.", 
+   RowBox[{
+    RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->590552239],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1677542163]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     RowBox[{
+      SubscriptBox["\[CapitalPi]", "T"], "(", "0", ")"}]}], "=", "0"}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->650907809],
+
+Cell[TextData[{
+ "At threshold, ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", 
+    RowBox[{"4", 
+     SuperscriptBox["m", "2"]}]}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1020591097],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"vacPolT", "/.", 
+   RowBox[{
+    RowBox[{"q", ".", "q"}], "\[Rule]", 
+    RowBox[{"4", 
+     SuperscriptBox["m", "2"]}]}]}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->314106077],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"128", " ", 
+    SuperscriptBox["m", "2"]}], "9"], "+", 
+  RowBox[{
+   FractionBox["16", "3"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{189, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->519592103]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     RowBox[{
+      SubscriptBox["\[CapitalPi]", "T"], "(", 
+      RowBox[{"4", 
+       SuperscriptBox["m", "2"]}], ")"}]}], "=", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["e", "2"]}], 
+     RowBox[{
+      StyleBox[
+       FractionBox["i", 
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}]],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]], "[", 
+      RowBox[{
+       FractionBox[
+        RowBox[{"128", 
+         SuperscriptBox["m", "2"]}], "9"], "+", 
+       RowBox[{
+        FractionBox["16", "3"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "(", 
+         RowBox[{
+          RowBox[{
+           FractionBox["1", "\[Epsilon]"], 
+           StyleBox[
+            RowBox[{"-", 
+             SubscriptBox["\[Gamma]", "E"]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+          StyleBox["+",
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox[
+           RowBox[{"ln", 
+            RowBox[{"(", 
+             RowBox[{"4", "\[Pi]"}], ")"}]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+          RowBox[{"ln", "(", 
+           FractionBox[
+            SuperscriptBox["\[Mu]", "2"], 
+            SuperscriptBox["m", "2"]], ")"}]}], " "}]}]}], "]"}]}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1525119053]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(6)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "If the ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Rule]", "4"}], TraditionalForm]], "InlineMath"],
+ " limit is manually applied before ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", finite parts of the result may differ.  Consider an ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", 
+    SuperscriptBox["e", "4"], ")"}], TraditionalForm]], "InlineMath"],
+ " contribution to ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Phi]\[Phi]", "\[Rule]", "\[Phi]\[Phi]"}], TraditionalForm]], 
+  "InlineMath"],
+ " elastic scattering in scalar QED:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"=", 
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], "2", "i", " ", 
+       SuperscriptBox["e", "2"], 
+       SuperscriptBox["g", "\[Mu]\[Nu]"], 
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", "i"}], " ", 
+         SubscriptBox["g", "\[Mu]\[Rho]"]}], 
+        SuperscriptBox["k", "2"]], "2", "i", " ", 
+       SuperscriptBox["e", "2"], 
+       SuperscriptBox["g", 
+        RowBox[{"\[Rho]", " ", "\[Sigma]"}]], 
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", "i"}], " ", 
+         SubscriptBox["g", 
+          RowBox[{"\[Nu]", " ", "\[Sigma]"}]]}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", 
+           SubscriptBox["p", "1"], "-", 
+           SubscriptBox["p", "2"]}], ")"}], "2"]]}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1860987065],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int", "=", 
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"2", "\[ImaginaryI]", " ", 
+       SuperscriptBox["e", "2"], 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Mu]", ",", "\[Nu]"}]], "*", 
+       RowBox[{"-", "\[ImaginaryI]"}], " ", 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Mu]", ",", "\[Rho]"}]], "*", "2", "\[ImaginaryI]", " ", 
+       SuperscriptBox["e", "2"], 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Rho]", ",", "\[Sigma]"}]], "*", 
+       RowBox[{"-", "\[ImaginaryI]"}], " ", 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Nu]", ",", "\[Sigma]"}]]}], "//", "Contract"}], ",", "k", 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1", "-", "p2"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+   
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", 
+          SuperscriptBox["m", "2"]}], "-", "t"}], ")"}]}]}]}], 
+    "}"}]}]}]], "Input",
+ CellLabel->"In[170]:=",
+ CellID->208381950],
+
+Cell[BoxData[
+ RowBox[{"4", " ", "\[ScriptD]", " ", 
+  SuperscriptBox["e", "4"], " ", 
+  RowBox[{"PVB", "[", 
+   RowBox[{"0", ",", "0", ",", "t", ",", "0", ",", "0"}], "]"}]}]], "Output",
+ ImageSize->{154, 15},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[170]=",
+ CellID->2072914882]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"int", "/.", 
+   RowBox[{"\[ScriptD]", "\[Rule]", "4"}]}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[171]:=",
+ CellID->2054975722],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"32", " ", 
+   SuperscriptBox["e", "4"]}], "+", 
+  RowBox[{"16", " ", 
+   SuperscriptBox["e", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], "t"]}], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{180, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[171]=",
+ CellID->636705887]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "int", "]"}]], "Input",
+ CellLabel->"In[172]:=",
+ CellID->905408724],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"24", " ", 
+   SuperscriptBox["e", "4"]}], "+", 
+  RowBox[{"16", " ", 
+   SuperscriptBox["e", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], "t"]}], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{180, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[172]=",
+ CellID->1911495419]
+}, Open  ]],
+
+Cell["The difference is in the first term.", "ExampleText",
+ CellID->276779896]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2146153921],
+
+Cell[TextData[{
+ "Since ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not perform tensor algebra, input expressions with pairs of metric \
+tensors (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"], 
+   RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") or Levi-Civita symbols (",
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"], 
+   RowBox[{
+   "\[Placeholder]", ",", "\[Placeholder]", ",", "\[Placeholder]", ",", 
+    "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") with repeated indices left uncontracted contain implicit ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptD]", "=", 
+    RowBox[{"4", "-", 
+     RowBox[{"2", " ", "\[Epsilon]"}]}]}], TraditionalForm]], "InlineMath"],
+ " dependence, and will go unaccounted for:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->454473377],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], 
+   RowBox[{"PVA", "[", 
+    RowBox[{"1", ",", "m"}], "]"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1071800364],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["3", "8"], " ", 
+   SuperscriptBox["m", "4"], " ", 
+   SubsuperscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}], "2"]}], "+", 
+  RowBox[{
+   FractionBox["1", "4"], " ", 
+   SuperscriptBox["m", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}], " ", 
+   SubsuperscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}], "2"]}]}]], "Output",
+ ImageSize->{219, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->990107618]
+}, Open  ]],
+
+Cell[TextData[{
+ "Be sure to fully ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " the input expression:"
+}], "ExampleText",
+ CellID->735101547],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"Contract", "[", 
+   RowBox[{
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]], 
+    RowBox[{"PVA", "[", 
+     RowBox[{"1", ",", "m"}], "]"}]}], "]"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1021338849],
+
+Cell[BoxData[
+ RowBox[{
+  SuperscriptBox["m", "4"], "+", 
+  RowBox[{
+   SuperscriptBox["m", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{138, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->821634440]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->361023181],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can convert Passarino-Veltman functions only with ",
+ ButtonBox["exact arguments",
+  BaseStyle->"Link",
+  ButtonData->"paclet:tutorial/ExactAndApproximateResults"],
+ ":"
+}], "ExampleText",
+ CellID->1273615235],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVC", "[", 
+   RowBox[{
+   "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "3.0", ",", "0", ",", 
+    "1.0", ",", "1.0"}], "]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->797551902],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopRefine", "::", "inexact"}], "MessageName"], ":", 
+  " ", "\<\"Unable to convert Passarino\[Hyphen]Veltman function \
+\[NoBreak]\\!\\(PVC[\\(\\(0, 0, 0, 0, 0, 3.`, 0, 1.`, 1.`\\)\\)]\\)\[NoBreak] \
+with inexact or complex arguments. \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/LoopRefine\\\", ButtonNote -> \
+\\\"X`LoopRefine::inexact\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1932411088],
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVC", "[", 
+   RowBox[{
+   "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "3.`", ",", "0", ",", 
+    "1.`", ",", "1.`"}], "]"}], "]"}]], "Output",
+ ImageSize->{298, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1637962435]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVC", "[", 
+   RowBox[{
+   "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "s", ",", "0", ",", "m", 
+    ",", "m"}], "]"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"%", "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"s", "\[Rule]", "3.0"}], ",", 
+    RowBox[{"m", "\[Rule]", "1.0"}]}], "}"}]}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->169216591],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   SuperscriptBox[
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}]], "]"}], "2"], 
+   RowBox[{"2", " ", "s"}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     RowBox[{"-", 
+      FractionBox["s", 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", "s"}]]}]}], "]"}], "s"]}]], "Output",
+ ImageSize->{210, 45},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->948191704],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.7733934744376992`"}], "-", 
+  RowBox[{"1.1504640984077341`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{143, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1929308388]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1270858977],
+
+Cell[TextData[{
+ "Contrary to expectation of dimensionally regulated integrals, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " yields ",
+ Cell[BoxData[
+  ButtonBox["ComplexInfinity",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/ComplexInfinity"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " for this scaleless integral:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      FractionBox["\[ImaginaryI]", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]], ")"}], 
+     RowBox[{"-", "1"}]], 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", " ", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox["1", 
+       RowBox[{
+        RowBox[{"(", 
+         SuperscriptBox["k", "2"], ")"}], 
+        RowBox[{"(", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], ")"}], 
+        RowBox[{"(", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p", "+", "q"}], ")"}], "2"], ")"}]}]]}]}]}], 
+   TraditionalForm]], "InlineMath"],
+ " with ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["p", "2"], "=", 
+    RowBox[{
+     SuperscriptBox["q", "2"], "=", 
+     RowBox[{
+      RowBox[{"p", "\[CenterDot]", "q"}], "=", "0"}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->1687245833],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"scalelessInt", "=", 
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{"1", ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p", "+", "q"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "q"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}], "}"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->571643452],
+
+Cell[BoxData[
+ RowBox[{"PVC", "[", 
+  RowBox[{
+  "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
+   ",", "0"}], "]"}]], "Output",
+ ImageSize->{191, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->7682786]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "scalelessInt", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1140748759],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopRefine", "::", "irdiv"}], "MessageName"], ":", 
+  " ", "\<\"Non-logarithmic (power) infrared singularity encountered.  Try \
+moving away from threshold and inspect behavior as kinematic point is \
+reached, or set option Analytic -> True. \\!\\(\\*ButtonBox[\\\"\
+\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/LoopRefine\\\", ButtonNote -> \
+\\\"X`LoopRefine::irdiv\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[2]:=",
+ CellID->2127910387],
+
+Cell[BoxData["ComplexInfinity"], "Output",
+ ImageSize->{112, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1744700818]
+}, Open  ]],
+
+Cell[TextData[{
+ "The reason is that by default, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " assumes that ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is only infinitessimal, which is not sufficient to render all integrals \
+convergent.  ",
+ "Set ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Analytic",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#498986588"], "\[Rule]", 
+   ButtonBox["True",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to continue ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to sufficiently large values for a convergent result:"
+}], "ExampleText",
+ CellID->1808396],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"scalelessInt", ",", 
+   RowBox[{"Analytic", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->680535122],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1226842040]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1002746782],
+
+Cell[TextData[{
+ "For integrals with massless propagators, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " may generate a finite expression independent of ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", but still includes ",
+ Cell[BoxData[
+  ButtonBox["\[Micro]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Mu"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1852713391],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"int", "=", 
+   RowBox[{
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"k", ".", "p1"}], ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "+", "p1"}], ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "+", "p2"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"p1", ".", "p1"}], "\[Rule]", "s1"}], ",", 
+      RowBox[{
+       RowBox[{"p2", ".", "p2"}], "\[Rule]", "s2"}], ",", 
+      RowBox[{
+       RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+       RowBox[{
+        FractionBox["1", "2"], 
+        RowBox[{"(", 
+         RowBox[{"s1", "+", "s2", "-", "s3"}], ")"}]}]}]}], "}"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "int", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->459948688],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"Log", "[", 
+    RowBox[{"-", 
+     FractionBox[
+      SuperscriptBox["\[Micro]", "2"], "s2"]}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"Log", "[", 
+    RowBox[{"-", 
+     FractionBox[
+      SuperscriptBox["\[Micro]", "2"], "s3"]}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "s1", " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"s1", ",", "s2", ",", "s3", ",", "0", ",", "0", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{405, 34},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->748484481]
+}, Open  ]],
+
+Cell[TextData[{
+ "The reason is that ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is unable to simplify the logarithms while still observing the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"+", "i"}], " ", "\[CurlyEpsilon]"}], TraditionalForm]], 
+  "InlineMath"],
+ " prescription.  If an external invariant is known to be negative, setting \
+the option ",
+ Cell[BoxData[
+  ButtonBox["TargetScale",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine#895406538"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " for ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can help:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->211647317],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"TargetScale", "\[Rule]", 
+    SqrtBox[
+     RowBox[{"-", "s2"}]]}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2035040567],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox["1", "2"]}], " ", 
+   RowBox[{"Log", "[", 
+    FractionBox["s2", "s3"], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "s1", " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"s1", ",", "s2", ",", "s3", ",", "0", ",", "0", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{315, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->910505634]
+}, Open  ]],
+
+Cell[TextData[{
+ "This expression is valid for ",
+ Cell[BoxData[
+  RowBox[{"s2", "<", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "ExampleText",
+ CellID->883935968]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1679028202],
+
+Cell[TextData[{
+ "In some cases corresponding to the leading Landau singularities of ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is unable to convert the Passarino-Veltman functions:"
+}], "ExampleText",
+ CellID->1491869434],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVD", "[", 
+   RowBox[{
+   "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
+    ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", "0", ",", "0", ",", "0", ",", "m"}], "]"}],
+   "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1782361836],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopRefine", "::", "leadinglandau"}], "MessageName"], ":", 
+  " ", "\<\"Calculation of \[NoBreak]\\!\\(PVD[\\(\\(0, 0, 0, 0, 0, 0, 0, 0, \
+m\\^2, m\\^2, 0, 0, 0, m\\)\\)]\\)\[NoBreak] at leading Landau singularity is \
+attempted where no reduction methods are known.  Result is likely (power) \
+infrared divergent and/or outside the physical region.  Try moving away from \
+threshold and inspect behavior as kinematic point is reached. \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/LoopRefine\\\", ButtonNote -> \
+\\\"X`LoopRefine::leadinglandau\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->404266507],
+
+Cell[BoxData[
+ RowBox[{"PVD", "[", 
+  RowBox[{
+  "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
+   ",", 
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["m", "2"], ",", "0", ",", "0", ",", "0", ",", "m"}], 
+  "]"}]], "Output",
+ ImageSize->{293, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2016407688]
+}, Open  ]],
+
+Cell["\<\
+It is usually possible to manually inspect the behavior in the vicinity of \
+this kinematic point:\
+\>", "ExampleText",
+ CellID->1287312130],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopRefine", "[", 
+    RowBox[{"PVD", "[", 
+     RowBox[{
+     "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+      "0", ",", 
+      SuperscriptBox["m", "2"], ",", 
+      SuperscriptBox["m", "2"], ",", "0", ",", "0", ",", "\[Lambda]", ",", 
+      "m"}], "]"}], "]"}], "//", "D0Expand"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Assuming", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", "<", "\[Lambda]", "<", "m"}], "}"}], ",", 
+   RowBox[{"LoopRefineSeries", "[", 
+    RowBox[{"%", ",", 
+     RowBox[{"{", 
+      RowBox[{"\[Lambda]", ",", "0", ",", "0"}], "}"}]}], "]"}]}], 
+  "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->306111950],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox["\[Lambda]", "2"]], 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"3", " ", 
+        SuperscriptBox["\[Pi]", "2"]}], 
+       RowBox[{"8", " ", 
+        SuperscriptBox["m", "2"]}]], "+", 
+      FractionBox[
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"-", 
+          FractionBox["1", 
+           SuperscriptBox["m", "2"]]}], "]"}], "2"], 
+       SuperscriptBox["m", "2"]], "+", 
+      FractionBox[
+       RowBox[{
+        FractionBox["1", 
+         SuperscriptBox["\[Epsilon]", "2"]], "+", 
+        FractionBox[
+         RowBox[{"Log", "[", 
+          FractionBox[
+           SuperscriptBox["\[Micro]", "2"], 
+           SuperscriptBox["m", "2"]], "]"}], "\[Epsilon]"], "+", 
+        RowBox[{
+         FractionBox["1", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"Log", "[", 
+           FractionBox[
+            SuperscriptBox["\[Micro]", "2"], 
+            SuperscriptBox["m", "2"]], "]"}], "2"]}]}], 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"]}]], "+", 
+      FractionBox[
+       RowBox[{"4", " ", 
+        RowBox[{"Log", "[", 
+         RowBox[{"-", 
+          FractionBox["1", 
+           SuperscriptBox["m", "2"]]}], "]"}], " ", 
+        RowBox[{"Log", "[", "\[Lambda]", "]"}]}], 
+       SuperscriptBox["m", "2"]], "+", 
+      FractionBox[
+       RowBox[{"4", " ", 
+        SuperscriptBox[
+         RowBox[{"Log", "[", "\[Lambda]", "]"}], "2"]}], 
+       SuperscriptBox["m", "2"]], "+", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox["1", "\[Epsilon]"], "+", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           SuperscriptBox["\[Micro]", "2"], 
+           SuperscriptBox["m", "2"]], "]"}]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          FractionBox[
+           RowBox[{"Log", "[", 
+            RowBox[{"-", 
+             FractionBox["1", 
+              SuperscriptBox["m", "2"]]}], "]"}], 
+           SuperscriptBox["m", "2"]]}], "-", 
+         FractionBox[
+          RowBox[{"2", " ", 
+           RowBox[{"Log", "[", "\[Lambda]", "]"}]}], 
+          SuperscriptBox["m", "2"]]}], ")"}]}], "+", 
+      FractionBox[
+       RowBox[{"PolyLog", "[", 
+        RowBox[{"2", ",", "2"}], "]"}], 
+       SuperscriptBox["m", "2"]]}], ")"}]}], "+", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["3", 
+      SuperscriptBox["m", "4"]], "-", 
+     FractionBox[
+      RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "4"]}]], "-", 
+     FractionBox[
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox["1", 
+         SuperscriptBox["m", "2"]]}], "]"}], 
+      SuperscriptBox["m", "4"]], "-", 
+     FractionBox[
+      RowBox[{
+       FractionBox["1", "\[Epsilon]"], "+", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], 
+         SuperscriptBox["m", "2"]], "]"}]}], 
+      SuperscriptBox["m", "4"]], "-", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"Log", "[", "\[Lambda]", "]"}]}], 
+      SuperscriptBox["m", "4"]]}], ")"}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Lambda]", "]"}], "1"],
+    SeriesData[$CellContext`\[Lambda], 0, {}, -2, 1, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Lambda], 0, {
+   Rational[3, 8] $CellContext`m^(-2) Pi^2 + $CellContext`m^(-2) 
+     Log[(-1) $CellContext`m^(-2)]^2 + 
+    Rational[1, 2] $CellContext`m^(-2) (X`Eps^(-2) + 
+      X`Eps^(-1) Log[$CellContext`m^(-2) X`Mu^2] + 
+      Rational[1, 2] Log[$CellContext`m^(-2) X`Mu^2]^2) + 
+    4 $CellContext`m^(-2) Log[(-1) $CellContext`m^(-2)] 
+     Log[$CellContext`\[Lambda]] + 
+    4 $CellContext`m^(-2) 
+     Log[$CellContext`\[Lambda]]^2 + (X`Eps^(-1) + 
+      Log[$CellContext`m^(-2) X`Mu^2]) (-$CellContext`m^(-2) 
+       Log[(-1) $CellContext`m^(-2)] - 2 $CellContext`m^(-2) 
+      Log[$CellContext`\[Lambda]]) + $CellContext`m^(-2) PolyLog[2, 2], 0, 
+    3 $CellContext`m^(-4) + Complex[0, 
+       Rational[-1, 2]] $CellContext`m^(-4) Pi - $CellContext`m^(-4) 
+    Log[(-1) $CellContext`m^(-2)] - $CellContext`m^(-4) (X`Eps^(-1) + 
+     Log[$CellContext`m^(-2) X`Mu^2]) - 2 $CellContext`m^(-4) 
+    Log[$CellContext`\[Lambda]]}, -2, 1, 1],
+  Editable->False]], "Output",
+ ImageSize->{487, 235},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->589260183]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Neat Examples",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->589267740],
+
+Cell["Build your own table of one-loop integrals:", "ExampleText",
+ CellID->1266462905],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"idx", "=", 
+   RowBox[{"{", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"{", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"With", "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"loopMomenta", "=", 
+          RowBox[{"Product", "[", 
+           RowBox[{
+            SubscriptBox["k", 
+             RowBox[{
+             "idx", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "}"}], ",", 
+        "\[IndentingNewLine]", 
+        RowBox[{"HoldForm", "[", 
+         RowBox[{"LoopIntegrate", "[", 
+          RowBox[{"loopMomenta", ",", "k", ",", 
+           RowBox[{"{", 
+            RowBox[{"k", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"k", "+", "p"}], ",", "0"}], "}"}]}], "]"}], "]"}]}], 
+       "]"}], ",", "\[IndentingNewLine]", 
+      RowBox[{"LoopRefine", "[", 
+       RowBox[{
+        RowBox[{"LoopIntegrate", "[", 
+         RowBox[{
+          RowBox[{"Product", "[", 
+           RowBox[{
+            SubscriptBox["k", 
+             RowBox[{
+             "idx", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "k", ",", 
+          RowBox[{"{", 
+           RowBox[{"k", ",", "0"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"k", "+", "p"}], ",", "0"}], "}"}]}], "]"}], ",", 
+        RowBox[{"Organization", "\[Rule]", "Function"}]}], "]"}]}], "}"}], 
+    ",", 
+    RowBox[{"{", 
+     RowBox[{"n", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
+  "TableForm"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->282055915],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     TagBox[
+      TemplateBox[{"1","k",RowBox[{
+          
+          TemplateBox[{"k", "0", "1"}, "LoopIntegrateDenomSpec", 
+           DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+           InterpretationFunction -> (
+            RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+          TemplateBox[{
+            RowBox[{"(", 
+              RowBox[{"k", "+", "p"}], ")"}], "0", "1"}, 
+           "LoopIntegrateDenomSpec", 
+           DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+           InterpretationFunction -> (
+            RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+       "LoopIntegrate",
+       DisplayFunction->(RowBox[{"\[Integral]", 
+          FractionBox[
+           RowBox[{
+             SuperscriptBox["\[DifferentialD]", "\[ScriptD]"], #2}], 
+           SuperscriptBox[
+            RowBox[{"(", "2", "\[Pi]", ")"}], "\[ScriptD]"]], 
+          FractionBox[#, #3]}]& ),
+       Editable->True,
+       InterpretationFunction->(RowBox[{"LoopIntegrate", "[", 
+          RowBox[
+           Riffle[
+            Join[{#, #2}, 
+             Part[
+              Map[ToBoxes[
+                ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& )],
+      HoldForm], 
+     RowBox[{"2", "+", 
+      FractionBox["1", "\[Epsilon]"], "+", 
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], 
+         RowBox[{"p", ".", "p"}]]}], "]"}]}]},
+    {
+     TagBox[
+      TemplateBox[{SubscriptBox["k", "\[Mu]"],"k",RowBox[{
+          
+          TemplateBox[{"k", "0", "1"}, "LoopIntegrateDenomSpec", 
+           DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+           InterpretationFunction -> (
+            RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+          TemplateBox[{
+            RowBox[{"(", 
+              RowBox[{"k", "+", "p"}], ")"}], "0", "1"}, 
+           "LoopIntegrateDenomSpec", 
+           DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+           InterpretationFunction -> (
+            RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+       "LoopIntegrate",
+       DisplayFunction->(RowBox[{"\[Integral]", 
+          FractionBox[
+           RowBox[{
+             SuperscriptBox["\[DifferentialD]", "\[ScriptD]"], #2}], 
+           SuperscriptBox[
+            RowBox[{"(", "2", "\[Pi]", ")"}], "\[ScriptD]"]], 
+          FractionBox[#, #3]}]& ),
+       Editable->True,
+       InterpretationFunction->(RowBox[{"LoopIntegrate", "[", 
+          RowBox[
+           Riffle[
+            Join[{#, #2}, 
+             Part[
+              Map[ToBoxes[
+                ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& )],
+      HoldForm], 
+     RowBox[{
+      RowBox[{"-", 
+       SubscriptBox["p", "\[Mu]"]}], "-", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox["1", "\[Epsilon]"], "+", 
+         RowBox[{"Log", "[", 
+          RowBox[{"-", 
+           FractionBox[
+            SuperscriptBox["\[Micro]", "2"], 
+            RowBox[{"p", ".", "p"}]]}], "]"}]}], ")"}], " ", 
+       SubscriptBox["p", "\[Mu]"]}]}]},
+    {
+     TagBox[
+      TemplateBox[{RowBox[{
+          SubscriptBox["k", "\[Mu]"], " ", 
+          SubscriptBox["k", "\[Nu]"]}],"k",RowBox[{
+          
+          TemplateBox[{"k", "0", "1"}, "LoopIntegrateDenomSpec", 
+           DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+           InterpretationFunction -> (
+            RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+          TemplateBox[{
+            RowBox[{"(", 
+              RowBox[{"k", "+", "p"}], ")"}], "0", "1"}, 
+           "LoopIntegrateDenomSpec", 
+           DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+           InterpretationFunction -> (
+            RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+       "LoopIntegrate",
+       DisplayFunction->(RowBox[{"\[Integral]", 
+          FractionBox[
+           RowBox[{
+             SuperscriptBox["\[DifferentialD]", "\[ScriptD]"], #2}], 
+           SuperscriptBox[
+            RowBox[{"(", "2", "\[Pi]", ")"}], "\[ScriptD]"]], 
+          FractionBox[#, #3]}]& ),
+       Editable->True,
+       InterpretationFunction->(RowBox[{"LoopIntegrate", "[", 
+          RowBox[
+           Riffle[
+            Join[{#, #2}, 
+             Part[
+              Map[ToBoxes[
+                ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& )],
+      HoldForm], 
+     RowBox[{
+      FractionBox[
+       RowBox[{"13", " ", 
+        SubscriptBox["p", "\[Mu]"], " ", 
+        SubscriptBox["p", "\[Nu]"]}], "18"], "-", 
+      RowBox[{
+       FractionBox["2", "9"], " ", 
+       RowBox[{"p", ".", "p"}], " ", 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox["1", "\[Epsilon]"], "+", 
+         RowBox[{"Log", "[", 
+          RowBox[{"-", 
+           FractionBox[
+            SuperscriptBox["\[Micro]", "2"], 
+            RowBox[{"p", ".", "p"}]]}], "]"}]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           SubscriptBox["p", "\[Mu]"], " ", 
+           SubscriptBox["p", "\[Nu]"]}], "3"], "-", 
+         RowBox[{
+          FractionBox["1", "12"], " ", 
+          RowBox[{"p", ".", "p"}], " ", 
+          SubscriptBox["\[DoubleStruckG]", 
+           RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}], ")"}]}]}]},
+    {
+     TagBox[
+      TemplateBox[{RowBox[{
+          SubscriptBox["k", "\[Mu]"], " ", 
+          SubscriptBox["k", "\[Nu]"], " ", 
+          SubscriptBox["k", "\[Rho]"]}],"k",RowBox[{
+          
+          TemplateBox[{"k", "0", "1"}, "LoopIntegrateDenomSpec", 
+           DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+           InterpretationFunction -> (
+            RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+          TemplateBox[{
+            RowBox[{"(", 
+              RowBox[{"k", "+", "p"}], ")"}], "0", "1"}, 
+           "LoopIntegrateDenomSpec", 
+           DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+           InterpretationFunction -> (
+            RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+       "LoopIntegrate",
+       DisplayFunction->(RowBox[{"\[Integral]", 
+          FractionBox[
+           RowBox[{
+             SuperscriptBox["\[DifferentialD]", "\[ScriptD]"], #2}], 
+           SuperscriptBox[
+            RowBox[{"(", "2", "\[Pi]", ")"}], "\[ScriptD]"]], 
+          FractionBox[#, #3]}]& ),
+       Editable->True,
+       InterpretationFunction->(RowBox[{"LoopIntegrate", "[", 
+          RowBox[
+           Riffle[
+            Join[{#, #2}, 
+             Part[
+              Map[ToBoxes[
+                ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& )],
+      HoldForm], 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["7", "12"]}], " ", 
+       SubscriptBox["p", "\[Mu]"], " ", 
+       SubscriptBox["p", "\[Nu]"], " ", 
+       SubscriptBox["p", "\[Rho]"]}], "+", 
+      RowBox[{
+       FractionBox["1", "9"], " ", 
+       RowBox[{"p", ".", "p"}], " ", 
+       SubscriptBox["p", "\[Rho]"], " ", 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+      RowBox[{
+       FractionBox["1", "9"], " ", 
+       RowBox[{"p", ".", "p"}], " ", 
+       SubscriptBox["p", "\[Nu]"], " ", 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "+", 
+      RowBox[{
+       FractionBox["1", "9"], " ", 
+       RowBox[{"p", ".", "p"}], " ", 
+       SubscriptBox["p", "\[Mu]"], " ", 
+       SubscriptBox["\[DoubleStruckG]", 
+        RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "+", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox["1", "\[Epsilon]"], "+", 
+         RowBox[{"Log", "[", 
+          RowBox[{"-", 
+           FractionBox[
+            SuperscriptBox["\[Micro]", "2"], 
+            RowBox[{"p", ".", "p"}]]}], "]"}]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           FractionBox["1", "4"]}], " ", 
+          SubscriptBox["p", "\[Mu]"], " ", 
+          SubscriptBox["p", "\[Nu]"], " ", 
+          SubscriptBox["p", "\[Rho]"]}], "+", 
+         RowBox[{
+          FractionBox["1", "24"], " ", 
+          RowBox[{"p", ".", "p"}], " ", 
+          SubscriptBox["p", "\[Rho]"], " ", 
+          SubscriptBox["\[DoubleStruckG]", 
+           RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+         RowBox[{
+          FractionBox["1", "24"], " ", 
+          RowBox[{"p", ".", "p"}], " ", 
+          SubscriptBox["p", "\[Nu]"], " ", 
+          SubscriptBox["\[DoubleStruckG]", 
+           RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "+", 
+         RowBox[{
+          FractionBox["1", "24"], " ", 
+          RowBox[{"p", ".", "p"}], " ", 
+          SubscriptBox["p", "\[Mu]"], " ", 
+          SubscriptBox["\[DoubleStruckG]", 
+           RowBox[{"\[Nu]", ",", "\[Rho]"}]]}]}], ")"}]}]}]}
+   },
+   GridBoxAlignment->{
+    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+     "RowsIndexed" -> {}},
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[2.0999999999999996`]}, 
+       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}, "RowsIndexed" -> {}}],
+  Function[BoxForm`e$, 
+   TableForm[BoxForm`e$]]]], "Output",
+ ImageSize->{938, 130},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//TableForm=",
+ CellID->162020643]
+}, Open  ]],
+
+Cell[TextData[{
+ "But who needs a table when you have ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X?"
+}], "ExampleText",
+ CellID->176011123]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopIntegrate",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefineSeries",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefineSeries"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Discontinuity",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Discontinuity"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->522035460],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->1379278225],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "LoopRefine - Wolfram Mathematica", "LoopRefine"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 42.685940}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LoopRefine[expr] converts the Passarino-Veltman coefficient functions in \
+expr to analytic expressions that can be numerically evaluated.", 
+    "synonyms" -> {}, "title" -> "LoopRefine", "titlemodifier" -> "", 
+    "windowtitle" -> "LoopRefine", "type" -> "Symbol", "uri" -> 
+    "X/ref/LoopRefine"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/LoopRefineSeries.nb b/packages/X/Documentation/English/ReferencePages/Symbols/LoopRefineSeries.nb
new file mode 100644
index 0000000000000000000000000000000000000000..1bde07427e9cfced47e37f1538a71a4b454fcc87
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/LoopRefineSeries.nb
@@ -0,0 +1,3844 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopIntegrate\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopIntegrate"], "\<\"LoopRefine\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/LoopRefine"], "\<\"PVA\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVA"], "\<\"PVB\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVB"], "\<\"PVC\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVC"], "\<\"PVD\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVD"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/LoopRefineSeries\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/LoopRefineSeries"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/\
+LoopRefineSeries.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/ref/LoopRefineSeries", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["LoopRefineSeries", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LoopRefineSeries",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LoopRefineSeries"], "[", 
+       RowBox[{
+        StyleBox["f", "TI"], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          StyleBox["s", "TI"], ",", 
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["0", "TR"]], ",", 
+          StyleBox["n", "TI"]}], "}"}]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]generates a Taylor series expansion of ",
+     Cell[BoxData[
+      StyleBox["f", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " containing Passarino-Veltman functions about the point ",
+     Cell[BoxData[
+      RowBox[{
+       StyleBox["s", "TI"], "=", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["0", "TR"]]}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " to order ",
+     Cell[BoxData[
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         StyleBox["s", "TI"], "-", 
+         SubscriptBox[
+          StyleBox["s", "TI"], 
+          StyleBox["0", "TR"]]}], ")"}], 
+       StyleBox["n", "TI"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LoopRefineSeries",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LoopRefineSeries"], "[", 
+       RowBox[{
+        StyleBox["f", "TI"], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          StyleBox["s", "TI"], ",", 
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["0", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["n", "TI"], 
+           StyleBox["s", "TI"]]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          StyleBox["t", "TI"], ",", 
+          SubscriptBox[
+           StyleBox["t", "TI"], 
+           StyleBox["0", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["n", "TI"], 
+           StyleBox["t", "TI"]]}], "}"}], ",", "..."}], "]"}]], 
+      "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]successively finds Taylor series expansions with \
+respect to ",
+     Cell[BoxData[
+      StyleBox["s", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", then ",
+     Cell[BoxData[
+      StyleBox["t", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", etc."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details and Options"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->2041252743],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " generates an expansion effectively by computing the necessary derivatives \
+of the Passarino-Veltman functions ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and converting them using an internal version of ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1973072990],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is unable to construct a series expansion near (Landau) singular points, \
+",
+ StyleBox["e.g.",
+  FontSlant->"Italic"],
+ " near normal thresholds or near zero internal mass."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ "Set option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Analytic",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefineSeries#759595167"], "\[Rule]", 
+   ButtonBox["True",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to continue ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to large (and negative) values, rendering all Landau singularities \
+sufficiently differentiable to permit a series expansion. ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LoopRefineSeries#759595167"]
+}], "Notes",
+ CellID->946012669],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " replaces spacetime dimension ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ StyleBox["4-2", "InlineCode"],
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and retains terms through order ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", 
+    SuperscriptBox["\[Epsilon]", "0"], ")"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ CellID->1254008839],
+
+Cell[TextData[{
+ "All logarithmic ultraviolet divergences and mass singularities are \
+explicitly displayed as ",
+ Cell[BoxData[
+  FractionBox["1", 
+   ButtonBox["\[Epsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  FractionBox["1", 
+   SuperscriptBox[
+    ButtonBox["\[Epsilon]",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/Eps"], "2"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " poles.    To interpret the output of ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in terms of the ",
+ "canonical ",
+ "integration measure ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"2", "\[Pi]"}], ")"}], "d"]]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", (1) multiply the result by ",
+ Cell[BoxData[
+  FormBox[
+   FractionBox["i", 
+    RowBox[{"16", 
+     SuperscriptBox["\[Pi]", "2"]}]], TraditionalForm]], "InlineMath"],
+ ", and (2) interpret poles near ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Epsilon]", " ", "~", " ", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " as follows:"
+}], "Notes",
+ Deletable->True,
+ CellID->699149630],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell[TextData[StyleBox["output:",
+     FontWeight->"Bold"]], "TableText"], Cell[TextData[StyleBox[
+    "implied expression:",
+     FontWeight->"Bold"]], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FractionBox["1", 
+      ButtonBox["\[Epsilon]",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       FractionBox["1", "\[Epsilon]"], "-", 
+       SubscriptBox[
+        ButtonBox["\[Gamma]",
+         BaseStyle->"Link",
+         ButtonData->"paclet:ref/EulerGamma"], 
+        StyleBox["E",
+         FontSlant->"Plain"]], "+", 
+       RowBox[{"ln", "(", 
+        RowBox[{"4", "\[Pi]"}], ")"}]}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[Cell[BoxData[
+     FractionBox["1", 
+      SuperscriptBox[
+       ButtonBox["\[Epsilon]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Eps"], "2"]]], "InlineFormula",
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       FractionBox["1", 
+        SuperscriptBox["\[Epsilon]", "2"]], "+", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"-", 
+           SubscriptBox[
+            ButtonBox["\[Gamma]",
+             BaseStyle->"Link",
+             ButtonData->"paclet:ref/EulerGamma"], 
+            StyleBox["E",
+             FontSlant->"Plain"]]}], "+", 
+          RowBox[{"ln", "(", 
+           RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "+", 
+       FractionBox[
+        SubsuperscriptBox[
+         ButtonBox["\[Gamma]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:ref/EulerGamma"], 
+         StyleBox["E",
+          FontSlant->"Plain"], "2"], "2"], "-", 
+       RowBox[{
+        SubscriptBox[
+         ButtonBox["\[Gamma]",
+          BaseStyle->"Link",
+          ButtonData->"paclet:ref/EulerGamma"], 
+         StyleBox["E",
+          FontSlant->"Plain"]], 
+        RowBox[{"ln", "(", 
+         RowBox[{"4", "\[Pi]"}], ")"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "2"], 
+        RowBox[{
+         SuperscriptBox["ln", "2"], "(", 
+         RowBox[{"4", "\[Pi]"}], ")"}]}]}], TraditionalForm]], "InlineMath"]],
+      "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True}}}},
+ CellID->1378542191],
+
+Cell[TextData[{
+ "Besides reorganizing the result, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not perform any substantial tensor algebraic manipulations."
+}], "Notes",
+ CellID->1244430986],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " yields expressions valid for real (positive or negative) external \
+invariants and positive semi-definite internal masses."
+}], "Notes",
+ CellID->26502654],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has the same options as ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->42998731],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " generates a ",
+ Cell[BoxData[
+  ButtonBox["SeriesData",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/SeriesData"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " object."
+}], "Notes",
+ CellID->1536328098]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(11)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1283590776],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(1)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1836938117],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in place of ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to make a Taylor series expansion of a loop integral:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox["1", 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", "p"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->86384238],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{"1", ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p"}], ",", "m"}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1245243491],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}], "+", 
+   FractionBox[
+    RowBox[{"p", ".", "p"}], 
+    RowBox[{"6", " ", 
+     SuperscriptBox["m", "2"]}]], "+", 
+   FractionBox[
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"p", ".", "p"}], ")"}], "2"], 
+    RowBox[{"60", " ", 
+     SuperscriptBox["m", "4"]}]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"p", ".", "p"}], "]"}], "3"],
+    SeriesData[
+     X`LDot[$CellContext`p, $CellContext`p], 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[
+   X`LDot[$CellContext`p, $CellContext`p], 0, {
+   X`Eps^(-1) + Log[$CellContext`m^(-2) X`Mu^2], 
+    Rational[1, 6] $CellContext`m^(-2), Rational[1, 60] $CellContext`m^(-4)}, 
+   0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{256, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->335568919]
+}, Open  ]],
+
+Cell["Convert to a normal expression:", "ExampleText",
+ CellID->1656330457],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Normal", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->682498889],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "\[Epsilon]"], "+", 
+  FractionBox[
+   RowBox[{"p", ".", "p"}], 
+   RowBox[{"6", " ", 
+    SuperscriptBox["m", "2"]}]], "+", 
+  FractionBox[
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"], 
+   RowBox[{"60", " ", 
+    SuperscriptBox["m", "4"]}]], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["m", "2"]], "]"}]}]], "Output",
+ ImageSize->{181, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2012230795]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[TildeTilde]", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       StyleBox["i",
+        FontColor->RGBColor[0.6666666666666666, 0., 0.]], " "}], 
+      StyleBox[
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]]], " ", "[", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         FractionBox["1", "\[Epsilon]"], 
+         StyleBox[
+          RowBox[{"-", 
+           SubscriptBox["\[Gamma]", "E"]}],
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+        StyleBox["+",
+         FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+        StyleBox[
+         RowBox[{"ln", 
+          RowBox[{"(", 
+           RowBox[{"4", "\[Pi]"}], ")"}]}],
+         FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+        RowBox[{"ln", "(", 
+         FractionBox[
+          SuperscriptBox["\[Mu]", "2"], 
+          SuperscriptBox["m", "2"]], ")"}]}], " ", ")"}], "+", 
+      FractionBox[
+       SuperscriptBox["p", "2"], 
+       RowBox[{"6", 
+        SuperscriptBox["m", "2"]}]], "+", 
+      FractionBox[
+       SuperscriptBox[
+        RowBox[{"(", 
+         SuperscriptBox["p", "2"], ")"}], "2"], 
+       RowBox[{"60", 
+        SuperscriptBox["m", "4"]}]], "+", 
+      SuperscriptBox[
+       RowBox[{"\[ScriptCapitalO]", "(", 
+        SuperscriptBox["p", "2"], ")"}], "3"]}], "]"}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->2112411133]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell["Series in two variables:", "ExampleText",
+ CellID->61112234],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", "s", ",", "M", ",", "M", ",", "M"}], 
+    "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "0", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->961869987],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    InterpretationBox[
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox["1", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["M", "2"]}]]}], "-", 
+      FractionBox["s", 
+       RowBox[{"24", " ", 
+        SuperscriptBox["M", "4"]}]], "-", 
+      FractionBox[
+       SuperscriptBox["s", "2"], 
+       RowBox[{"180", " ", 
+        SuperscriptBox["M", "6"]}]], "+", 
+      InterpretationBox[
+       SuperscriptBox[
+        RowBox[{"O", "[", "s", "]"}], "3"],
+       SeriesData[$CellContext`s, 0, {}, 0, 3, 1],
+       Editable->False]}],
+     SeriesData[$CellContext`s, 0, {
+      Rational[-1, 2] $CellContext`M^(-2), 
+       Rational[-1, 24] $CellContext`M^(-4), 
+       Rational[-1, 180] $CellContext`M^(-6)}, 0, 3, 1],
+     Editable->False], ")"}], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     InterpretationBox[
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", 
+         RowBox[{"24", " ", 
+          SuperscriptBox["M", "4"]}]]}], "-", 
+       FractionBox["s", 
+        RowBox[{"180", " ", 
+         SuperscriptBox["M", "6"]}]], "-", 
+       FractionBox[
+        SuperscriptBox["s", "2"], 
+        RowBox[{"1120", " ", 
+         SuperscriptBox["M", "8"]}]], "+", 
+       InterpretationBox[
+        SuperscriptBox[
+         RowBox[{"O", "[", "s", "]"}], "3"],
+        SeriesData[$CellContext`s, 0, {}, 0, 3, 1],
+        Editable->False]}],
+      SeriesData[$CellContext`s, 0, {
+       Rational[-1, 24] $CellContext`M^(-4), 
+        Rational[-1, 180] $CellContext`M^(-6), 
+        Rational[-1, 1120] $CellContext`M^(-8)}, 0, 3, 1],
+      Editable->False], ")"}], " ", 
+    SuperscriptBox["m", "2"]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "m", "]"}], "3"],
+    SeriesData[$CellContext`m, 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`m, 0, {
+    SeriesData[$CellContext`s, 0, {
+     Rational[-1, 2] $CellContext`M^(-2), 
+      Rational[-1, 24] $CellContext`M^(-4), 
+      Rational[-1, 180] $CellContext`M^(-6)}, 0, 3, 1], 0, 
+    SeriesData[$CellContext`s, 0, {
+     Rational[-1, 24] $CellContext`M^(-4), 
+      Rational[-1, 180] $CellContext`M^(-6), 
+      Rational[-1, 1120] $CellContext`M^(-8)}, 0, 3, 1]}, 0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{500, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->401027229]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1200397635],
+
+Cell["Expand at infinity:", "ExampleText",
+ CellID->1621671527],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "M", ",", "M", ",", "M"}], 
+    "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"M", ",", "\[Infinity]", ",", "6"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1624208228],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox["1", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["M", "2"]}]]}], "-", 
+   FractionBox[
+    SuperscriptBox["m", "2"], 
+    RowBox[{"12", " ", 
+     SuperscriptBox["M", "4"]}]], "-", 
+   FractionBox[
+    SuperscriptBox["m", "4"], 
+    RowBox[{"60", " ", 
+     SuperscriptBox["M", "6"]}]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      FractionBox["1", "M"], "]"}], "7"],
+    SeriesData[$CellContext`M, 
+     DirectedInfinity[1], {}, 2, 7, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`M, 
+   DirectedInfinity[1], {
+    Rational[-1, 2], 0, Rational[-1, 12] $CellContext`m^2, 0, 
+    Rational[-1, 60] $CellContext`m^4}, 2, 7, 1],
+  Editable->False]], "Output",
+ ImageSize->{185, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->171506292]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->561842419],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " generates a ",
+ Cell[BoxData[
+  ButtonBox["SeriesData",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/SeriesData"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " object:"
+}], "ExampleText",
+ CellID->399940274],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopRefineSeries", "[", 
+   RowBox[{
+    RowBox[{"PVC", "[", 
+     RowBox[{
+     "1", ",", "0", ",", "0", ",", "s", ",", "0", ",", "0", ",", "m", ",", 
+      "m", ",", "m"}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"s", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", "InputForm"}]],
+  "Input",
+ CellLabel->"In[1]:=",
+ CellID->67284653],
+
+Cell["\<\
+SeriesData[s, 0, {(Eps^(-1) + Log[Mu^2/m^2])/4, 1/(48*m^2), 1/(720*m^4)}, 0, \
+3, 1]\
+\>", "Output",
+ ImageSize->{591, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//InputForm=",
+ CellID->649218682]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Options",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2061341341],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Analytic",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1757724783],
+
+Cell[TextData[{
+ "By default, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not construct series expansions near Landau singularities"
+}], "ExampleText",
+ CellID->759595167],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "M"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1287930076],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopRefineSeries", "::", "notaylor"}], "MessageName"], ":", 
+  " ", "\<\"Taylor series of \[NoBreak]\\!\\(PVB\\)\[NoBreak] does not exist \
+near \\!\\(\[NoBreak]\\!\\(m\\)\[NoBreak] = \
+\[NoBreak]\\!\\(0\\)\[NoBreak]\\). \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:X/ref/LoopRefineSeries\\\", \
+ButtonNote -> \\\"X`LoopRefineSeries::notaylor\\\"]\\)\"\>"}]], "Message", \
+"MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->969592335],
+
+Cell[BoxData["$Failed"], "Output",
+ ImageSize->{54, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->832460909]
+}, Open  ]],
+
+Cell[TextData[{
+ "Setting option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Analytic",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefineSeries#759595167"], "\[Rule]", 
+   ButtonBox["True",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " generates a result by analytically continuing ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to large (and negative) values to render all singularities sufficiently \
+differentiable.  This enables ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to make a series expansion at any kinematic point.  See examples below:"
+}], "ExampleText",
+ CellID->1550760222],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->454617936],
+
+Cell[TextData[{
+ StyleBox["Logarithmic singularities",
+  FontSlant->"Italic"],
+ " (those associated with internal masses near zero) appear as ",
+ Cell[BoxData[
+  FormBox[
+   FractionBox["1", "\[Epsilon]"], TraditionalForm]], "InlineMath"],
+ " poles:"
+}], "ExampleText",
+ CellID->255335494],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", "\[Lambda]", ",", "M", ",", "M"}], "]"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"\[Lambda]", ",", "0", ",", "2"}], "}"}], ",", 
+   RowBox[{"Analytic", "\[Rule]", "True"}], ",", 
+   RowBox[{"TargetScale", "\[Rule]", "M"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->717917941],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["M", "2"], 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "2"]}], "+", 
+        SuperscriptBox["M", "2"]}]], "]"}], 
+     SuperscriptBox["m", "2"]]}], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox["2", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           SuperscriptBox["M", "2"]}], ")"}], "2"]]}], "-", 
+      FractionBox[
+       RowBox[{"2", " ", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["M", "2"], 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "+", 
+           SuperscriptBox["M", "2"]}]], "]"}]}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"]}], ")"}], "2"]], "-", 
+      FractionBox[
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["M", "2"]], "]"}]}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"]}], ")"}], "2"]]}], ")"}], " ", 
+    SuperscriptBox["\[Lambda]", "2"]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Lambda]", "]"}], "3"],
+    SeriesData[$CellContext`\[Lambda], 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Lambda], 
+   0, {-$CellContext`m^(-2) 
+    Log[$CellContext`M^2/(-$CellContext`m^2 + $CellContext`M^2)], 
+    0, (-2) ($CellContext`m^2 - $CellContext`M^2)^(-2) - 
+    2 ($CellContext`m^2 - $CellContext`M^2)^(-2) 
+    Log[$CellContext`M^2/(-$CellContext`m^2 + $CellContext`M^2)] - \
+($CellContext`m^2 - $CellContext`M^2)^(-2) (X`Eps^(-1) + 
+     Log[$CellContext`M^(-2) X`Mu^2])}, 0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{443, 58},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1472120639]
+}, Open  ]],
+
+Cell[TextData[{
+ "Compare with the correct asymptotic expansion generated by ",
+ Cell[BoxData[
+  ButtonBox["Series",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Series"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->608600836],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", "\[Lambda]", ",", "M", ",", "M"}], "]"}], 
+   "]"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Series", "[", 
+  RowBox[{"%", ",", 
+   RowBox[{"{", 
+    RowBox[{"\[Lambda]", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->89797490],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   FractionBox[
+    RowBox[{
+     RowBox[{"-", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["M", "2"], 
+        SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        RowBox[{"M", " ", "\[Lambda]"}], 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"]}]], "]"}]}]}], 
+    RowBox[{"2", " ", 
+     SuperscriptBox["m", "2"]}]], "+", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", "1"}], "-", 
+       RowBox[{"2", " ", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{"M", " ", "\[Lambda]"}], 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "+", 
+           SuperscriptBox["M", "2"]}]], "]"}]}]}], ")"}], " ", 
+     SuperscriptBox["\[Lambda]", "2"]}], 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       SuperscriptBox["M", "2"]}], ")"}], "2"]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "\[Lambda]", "]"}], "3"],
+    SeriesData[$CellContext`\[Lambda], 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`\[Lambda], 
+   0, {(Rational[1, 2] $CellContext`m^(-2)) (-
+      Log[$CellContext`M^2 $CellContext`\[Lambda]^(-2)] - 2 
+     Log[($CellContext`M/(-$CellContext`m^2 + $CellContext`M^2)) \
+$CellContext`\[Lambda]]), 
+    0, ($CellContext`m^2 - $CellContext`M^2)^(-2) (-1 - 2 
+     Log[($CellContext`M/(-$CellContext`m^2 + $CellContext`M^2)) \
+$CellContext`\[Lambda]])}, 0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{370, 52},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->799292179]
+}, Open  ]],
+
+Cell[TextData[{
+ "Coefficients of Taylor series expansion generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " that are free of ",
+ Cell[BoxData[
+  FormBox[
+   FractionBox["1", "\[Epsilon]"], TraditionalForm]], "InlineMath"],
+ " poles will coincide with the corresponding terms in the asymptotic \
+expansion."
+}], "ExampleText",
+ CellID->485726902]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2001017682],
+
+Cell[TextData[{
+ StyleBox["Algebraic singularities",
+  FontSlant->"Italic"],
+ " (normal thresholds) are absent in expressions generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->95917720],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", 
+     RowBox[{"4", 
+      SuperscriptBox["m", "2"]}], ",", "2"}], "}"}], ",", 
+   RowBox[{"Analytic", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->274416687],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"2", "+", 
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}], "-", 
+   FractionBox[
+    RowBox[{"s", "-", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}]}], 
+    RowBox[{"2", " ", 
+     SuperscriptBox["m", "2"]}]], "+", 
+   FractionBox[
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"s", "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}]}], ")"}], "2"], 
+    RowBox[{"12", " ", 
+     SuperscriptBox["m", "4"]}]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"s", "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}]}], "]"}], "3"],
+    SeriesData[$CellContext`s, 4 $CellContext`m^2, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`s, 4 $CellContext`m^2, {
+   2 + X`Eps^(-1) + Log[$CellContext`m^(-2) X`Mu^2], 
+    Rational[-1, 2] $CellContext`m^(-2), Rational[1, 12] $CellContext`m^(-4)},
+    0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{340, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1037619166]
+}, Open  ]],
+
+Cell[TextData[{
+ "Compare with the correct asymptotic expansion generated by ",
+ Cell[BoxData[
+  ButtonBox["Series",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Series"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and observe the absence of half-odd integer powers of ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"(", 
+    RowBox[{"s", "-", 
+     RowBox[{"4", 
+      SuperscriptBox["m", "2"]}]}], ")"}], TraditionalForm]], "InlineMath"],
+ " in the output of ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1510269354],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m"}], "]"}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Series", "[", 
+  RowBox[{"%", ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", 
+     RowBox[{"4", 
+      SuperscriptBox["m", "2"]}], ",", "2"}], "}"}]}], "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->510792202],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"2", "+", 
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}], "+", 
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", 
+     SqrtBox[
+      RowBox[{"s", "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}]}]]}], 
+    RowBox[{"2", " ", "m"}]], "-", 
+   FractionBox[
+    RowBox[{"s", "-", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}]}], 
+    RowBox[{"2", " ", 
+     SuperscriptBox["m", "2"]}]], "-", 
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"s", "-", 
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}]}], ")"}], 
+      RowBox[{"3", "/", "2"}]]}], 
+    RowBox[{"16", " ", 
+     SuperscriptBox["m", "3"]}]], "+", 
+   FractionBox[
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"s", "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}]}], ")"}], "2"], 
+    RowBox[{"12", " ", 
+     SuperscriptBox["m", "4"]}]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"s", "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}]}], "]"}], 
+     RowBox[{"5", "/", "2"}]],
+    SeriesData[$CellContext`s, 4 $CellContext`m^2, {}, 0, 5, 2],
+    Editable->False]}],
+  SeriesData[$CellContext`s, 4 $CellContext`m^2, {
+   2 + X`Eps^(-1) + Log[$CellContext`m^(-2) X`Mu^2], Complex[0, 
+      Rational[1, 2]] $CellContext`m^(-1) Pi, 
+    Rational[-1, 2] $CellContext`m^(-2), Complex[0, 
+      Rational[-1, 16]] $CellContext`m^(-3) Pi, 
+    Rational[1, 12] $CellContext`m^(-4)}, 0, 5, 2],
+  Editable->False]], "Output",
+ ImageSize->{556, 44},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->65706224]
+}, Open  ]]
+}, Open  ]]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[TextData[{
+ "Transverse part of top/bottom quark pair contribution to the W-boson vacuum \
+polarization function ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["\[CapitalPi]", 
+     StyleBox["WW",
+      FontSlant->"Italic"]], "(", "p", ")"}], TraditionalForm]], "InlineMath"],
+ " through ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"O", "(", 
+    SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->494840323],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{"\[DoubleStruckOne]", "-", "\[Gamma]5"}], ",", 
+        RowBox[{
+         RowBox[{"k", ".", "\[Gamma]"}], "+", 
+         RowBox[{"mb", " ", "\[DoubleStruckOne]"}]}], ",", 
+        SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+        RowBox[{"\[DoubleStruckOne]", "-", "\[Gamma]5"}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"mt", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+      
+      RowBox[{"{", 
+       RowBox[{"k", ",", "mb"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "+", "p"}], ",", "mt"}], "}"}]}], "]"}], "//", 
+    "Transverse"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->93276420],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "2"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["mb", "2"], "+", 
+        SuperscriptBox["mt", "2"]}], ")"}]}], "-", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       SuperscriptBox["mt", "4"], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["mb", "2"], 
+         SuperscriptBox["mt", "2"]], "]"}]}], 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["mb", "2"]}], "+", 
+       SuperscriptBox["mt", "2"]}]], "-", 
+     RowBox[{"4", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["mb", "2"], "+", 
+        SuperscriptBox["mt", "2"]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          SuperscriptBox["mb", "2"]], "]"}]}], ")"}]}]}], ")"}], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"8", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mb", "4"], "-", 
+          RowBox[{"8", " ", 
+           SuperscriptBox["mb", "2"], " ", 
+           SuperscriptBox["mt", "2"]}], "+", 
+          SuperscriptBox["mt", "4"]}], ")"}]}], 
+       RowBox[{"9", " ", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["mb", "2"], "-", 
+           SuperscriptBox["mt", "2"]}], ")"}], "2"]}]], "-", 
+      FractionBox[
+       RowBox[{"8", " ", 
+        SuperscriptBox["mb", "4"], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mb", "2"], "-", 
+          RowBox[{"3", " ", 
+           SuperscriptBox["mt", "2"]}]}], ")"}], " ", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["mb", "2"], 
+          SuperscriptBox["mt", "2"]], "]"}]}], 
+       RowBox[{"3", " ", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["mb", "2"], "-", 
+           SuperscriptBox["mt", "2"]}], ")"}], "3"]}]], "+", 
+      RowBox[{
+       FractionBox["8", "3"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox["1", "\[Epsilon]"], "+", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           SuperscriptBox["\[Micro]", "2"], 
+           SuperscriptBox["mt", "2"]], "]"}]}], ")"}]}]}], ")"}], " ", 
+    RowBox[{"p", ".", "p"}]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"p", ".", "p"}], "]"}], "2"],
+    SeriesData[
+     X`LDot[$CellContext`p, $CellContext`p], 0, {}, 0, 2, 1],
+    Editable->False]}],
+  SeriesData[
+   X`LDot[$CellContext`p, $CellContext`p], 
+   0, {(-2) ($CellContext`mb^2 + $CellContext`mt^2) - 
+    4 $CellContext`mt^4 (-$CellContext`mb^2 + $CellContext`mt^2)^(-1) 
+    Log[$CellContext`mb^2 $CellContext`mt^(-2)] - 
+    4 ($CellContext`mb^2 + $CellContext`mt^2) (X`Eps^(-1) + 
+     Log[$CellContext`mb^(-2) X`Mu^2]), 
+    Rational[8, 
+       9] ($CellContext`mb^2 - $CellContext`mt^2)^(-2) ($CellContext`mb^4 - 
+      8 $CellContext`mb^2 $CellContext`mt^2 + $CellContext`mt^4) + 
+    Rational[-8, 3] $CellContext`mb^4 ($CellContext`mb^2 - 
+      3 $CellContext`mt^2) ($CellContext`mb^2 - $CellContext`mt^2)^(-3) 
+     Log[$CellContext`mb^2 $CellContext`mt^(-2)] + 
+    Rational[8, 3] (X`Eps^(-1) + Log[$CellContext`mt^(-2) X`Mu^2])}, 0, 2, 1],
+  
+  Editable->False]], "Output",
+ ImageSize->{572, 115},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->656682696]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->757770737],
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to take the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "\[Rule]", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " limit of a form factor:\[LineSeparator]\t",
+ Cell[BoxData[{
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "e", " ", 
+     RowBox[{
+      SuperscriptBox["\[CapitalGamma]", "\[Mu]"], "(", "q", ")"}]}], "=", 
+    "  ", 
+    GraphicsBox[
+     TagBox[RasterBox[CompressedData["
+1:eJzs3b+rJNnbGPYH24FxtPsXqL1/gBnY1IK2mUjRRfbmLSFP6kEWDEpMhxve
+0Jt15GDs4OLIsMkN3sDBBhcMwgIPNAaDQPZ4wJLhtYXGXVvVOz19u36d6u5T
+Pz4FH+n7zt7b99Sp01XnPHXOc/7Df/hf/v13/05E/Ff//uH/+fv/4MN/8o//
+8T/4p//Zv3f4P/7Tf/pP/ot/+O8e/se/PPz3/+DwL8U/fv36FQAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAICZORxvDz4c/H7w9cxv
+B7/kLiMAAABwW1Vs4NOF2MAlv5383s81P/M59zkBAAAA/RTzA2riAx8P3p39
+bBFL+Fz99w/Vv/3aFksAAAAAxq+KBZyP7/8o5gg0/M6P1c98Pvnfl+IE1icA
+AADABFRrBS7NIfi14+//dJKvoG5two+5zxMAAABoVuUp/HxhXP+h5+fUzSP4
+c05C7vMEAAAAmhX5BmrG9b1iBNVn1eUl6DwvAQAAAMijIUaQNKavchrWxQnk
+JgAAAICRqtYaXHV9QEOcwH6IAAAAMFJVzsKL4/kiH+GAz61bd/Ax9zkDAAAA
+r1X7ElzKWVh4N/CzL+2pmJTrAAAAALi9hj0Jfr/hZ/+c+7wBAACA77XsR5C8
+3qD67B/lJgAAAIBpKPYbaIgRDF4X0PD5v+U+dwAAAOCb6l3/p4bchT9e4W/U
+zVWwHyIAAACMSPFO/5ZzCaq/UZcbcXAMAgAAALiOan+DuhjBteYSvK35/D9y
+nz8AAADwzZ3mEtTth/hr7vMHAAAASi1zCQbvcdDhb8hNAAAAACPRMpfg9xv/
+DfshAgAAwIg05BYsvLvC5zfNJfiY+/wBAACAUjHnv2XNwTXyF9489wEAAAAw
+XJFDsGEMP3gfgsPxc0sc4ufcdQAAAACUilhAwxj+txt/vtwEAAAAMCIt7/oH
+rQkofr/l8wfHIQAAAIDraMkvOGi/wuqzj/kR6+YU2A8RAAAARuJwvG2JE7wd
+8Nm/H+ckNOynMDhHIgAAAHAdt4oTnKw3+NjwNwbnSAQAAACu5xZxgpPPLNYa
+/Bj1+yn8mvv8AQAAgG865Cd41/Pzfq7WGBR+qv6tLjdB8poGAAAA4Pqq9/1N
+cYLO7/yrmMOn0xhAQxzCfogAAAAs2uF4c/ByMlZ+PPhhBOWqe9//tZoX0Jpr
+sFprcMxV+O7k3+v2RfyY+7wBAAAglyIecPDlwni5+LeHzGWrG8sf/d7j9z+c
+/bePNZ/54VbnAwAAAGN3ONYtY/HHjGX7Mer3Lfxrb4KDX85+53y/w/MYQdPn
+/pz7mgAAAEAuHeIEX6s1CVnWIXSYU9Dmlwuf+UvdWobc1wMAAAByalh3cG5/
+8CZTGVNiBcU8g59qPs9+iAAAAFDjcGw6xgq+ZIwVFPkIP3UoY/EzjXsmNnzO
+q7kHAAAAsETVvIKnjvMKsu2FUM0t+P18vUD17287/P7PDefWun8CAAAALMnh
+eOgwt+AldzkHnF/dGoY/cpcNAAAAxqhYW1DNG2iKFexylzPx3P6QmwAAAAD6
+qdYhvLTECh5yl7PnOf3YcC6taxYAAABgyapYQdO8gi85cxUknI/9EAEAAGCA
+ag1CU76Cx9xl7HEuH2vO4WPusgEAAMBUVLkNm9YfrHKXseN5fK4p/4fcZQMA
+AIApieY9E3e5y9eh/E37If6cu3wAAAAwJVWugqb1B6POU1DsZyA3AQAAAFzP
+4dg2xAm2ucvXUnb7IQIAAMAVtcwp2OcuX0O5m/ZD/CV3+QAAAGCqiv0NGsbc
+b3KXr6bMHxrK/GPu8gEAAMBUFXsbNIy53+cuX02Zf68p7x+5ywYAAABTdzhe
+asbdz7nLdqGsbxviGr/lLh8AAABMXVM+w9xlOytnsRfip4Y4wafcZQQAAICp
+OxzrhrH3KmO5fqpyEXxoiQ+c+ljMOchdpwAAADBV1b4HdePudYbyNK0tSPF7
+7joGAACAKYn6/RFHmcsQAAAAuJ0iZ2FNnGCbu2wAAADAfYkTAAAAAEfiBAAA
+AMCROAEAAABwJE4AAAAAHB2OF3ECAAAAoFATIyg85C4bAAAAcD+H401DnGCd
+u3wAAADA/RyOTV2cIHfZAAAAgPs6HLuaOME+d9kAAACA+zocX2riBLvcZQMA
+AADup8hT2JCbYJO7fAAAAMD9HI7nhjjBD7nLBwAAANxHsZdBQ4zgKXf5AAAA
+gPtpmUvwkLt8AAAAwH205CXY5y4fAAAAcB9F3oEiFiB/IQAAAFDkHjCXAAAA
+ADgc24YYQWGdu4wAAADA7RXrCVpiBPY4AAAAgAXoECP4UuQtyF1OAAAA4LYO
+x64lRmC9AQAAAMzc4VgdvHSIEWxylxUAAAC4nSpf4ZcOMYJd7rICAAAAt1Gs
+Hyj2NuwQHxAjAAAAgBk7HI8d4wOFbe7yAgAAANdX7FPQMQ/BcV+DTe4yAwAA
+ANd3ON50zEPwtYolvMldZgAAAOD6esYItrnLCwAAANxGjxjBc7E/Yu7yAgAA
+ALdR5SNo29NAHgIAAABYgA45C+UhAAAAgAUo8gx0iBH8kLucAAAAwG1VOQnE
+CAAAAIC29QZ7MQIAAABYhiInYUvOQvkIAAAAYCFa9jd4n7t8AAAAwH20zCV4
+zl0+AAAA4H5a8hJYbwAAAAAL0bLHwS53+QAAAID7ORyPDXGCde7yAQAAAPfT
+kL/wJXfZAAAAgPs5HCt7HAAAAACFw/HQECdY5S4fAAAAcD+HY1sTI9jnLhsA
+AABwX4fjuSZO8JS7bAAAAMB9FbkKa+IE29xlAwAAAO6rITfBJnfZAAAAgPtq
+iBOsc5cNAAAAuC9xAgAAAOBInAAAAAA4EicAAAAAjhriBA+5ywYAAADc1+HY
+2xcRAAAAKByO55o4wS532QAAAID7OhyPNXGCl9xlAwAAAO7rcLxvyFHwQ+7y
+AQAAAPdzON40xAk2ucsHAAAA3Nfh+FITJ3jKXTYAAADgvoqchQ1zCla5ywcA
+AADcz+F4aIgTbHOXDwAAALivw7GviRN8kc8QAAAAlqWYN9Awp2CXu3wAAADA
+/RRzBhryGRbWucsIAAAA3E/LnIK99QcAAACwHB3mFNgnEQAAABbkcGwa4gRy
+FQAAAMDCHI5nsQIAAACg0GH9wZ+xAvkKAAAAYBkOx5uWOEHh5WCVu6wAAADA
+7XXIVfC1mnfwPndZAQAAgNvrGCs4zi1Y5y4vAAAAcFs9YgWFx9zlBQAAAG7r
+cDx0yG0obwEAAAAsRJXb8KVjrKCIKbzJXWYAAADgtg7Htsc6hE3u8gIAAAC3
+Vc0teBYrAAAAAI6KPRE75C2wBgEAAAAWomPegiJW8EPusgIAAAC3V8QADp5a
+YgXPucsJAAAA3M/h2LXECra5ywgAAADcT4f8hqvcZQQAAMjpcPxy8KFS/MOv
+ucsEt1KtQWjKV/Ccu4wAY6OvAADzczjenTzfC58axkm/5C4v3FKV27BpTsE6
+dxkB7k1fAQCWoeP+8ed+zF1uuLUiF4E5BQD6CgCwdNW8wc8Nz/3fc5cR7uVw
+7OUpAPievgIALE+xprDh2f8hd/ngXg7HpuG78Ji7fAC56CsAwLLEtxxEl/yc
+u3xwTw1zCr7kLhtALvoKALAsDe8IPucuG9zb4Xjf0Bde5y4fQA76CgCwLIfj
+j5pnvz2OWJwo90m09gDghL4CACzH4fixYUxkjyMW6XA81XwnXnKXDeDe9BUA
+YFmizGFsjyM40bT2IHfZAO5NXwEAluVwfKx57tvjiMUq8hA09Inf5C4fwD3p
+KwDAskT9fsj2OGLR5DIEKOkrAMByHI6fG8ZC9jhi0aJ+f8Rt7rIB3Iu+AgAs
+S9TvhWyPIxbvcDyLEwBLp68AAMvSsN7wt9xlg9zECQD0FQBgScIeR9BInABY
+On0FAFiWsMcRNBInAJZOXwEAluVw/Frz3P8jd9lgDMQJgKXTVwCAZSme8TXP
+fnscwVf7HQDoKwDAcrSsN7THEXz983tS9x15yF02gFvTVwBYhsPxLsq9bQrH
+3LW1OWhOfv782fCp+nfPiImqua72OILK4Vg39I/XucsHt6KvwMm11VcAmInD
+8fbk+V63pqwxB031zP/c4Xe/Vn2In3KfN73bSa89jopr3LE91HmX+5yhj8Px
+vq495y4bDKWvQMd2oq8AMHGJ9+Y/LnzG7wmf88nzf1oa+nad9jiq+pafWtrF
+r10/D8bmcDzVtOuX3GWDVPoK9Gwv+goAMxPlmrK6OPDRh5Off9vwPOj6/Lc/
+zgQcjp8brmPnaxj18xE/agtM2eH4oeE78pi7fHAt+go0tA19BYAZi/o8tYWf
+q595eyG2+/PJZ/zYcJ+/2JdgvBquZa89juLyXFXvBJi8w7FpuM/JYcjs6Ctw
+oU3oKwDM2OH4reY+/7n676fP/cbYbkts+c/PFBsev4b+YOe+W7yeu/op5Kpi
+JqJ+P8QvucsGt6CvwIXrqK8AMGMNz/5fq/v3cf5gn7VmTc9/MeIRiyvscVR9
+xmn/ofjf1pwyC4fjoeE7sstdPrgFfQXOrp++AsDMNcSD31Vx3c99YrsXYsOv
++hS5z5nG6/dLzXXrvMfRWZv6mPuc4Jqifi5B4U3u8sEt6Ctwdv30FQBmrCUe
+fMxV/Dbhc5ty13oWjFjU7391cY+jC+3p9Lmvn8esHI5tw73tOXf54Bb0Fbhw
+7fQVAGasIR58lJRLKJr3Q/o993nTeO3q3hk1zgGt3g2d/q49jpmVw/Hm4EvD
+vW2du4xwC/oKXLh2+goAM9YQDy58GvC5Tc/+5M+9UR28a+n/TMXgPlUk7nFU
+/d7pe6He75VgzKLcB/Gl4fvxnLuMcCv6CvoKZ3WhrwAwc9E85y/5/u3ZP9ln
+f+89juL790zyFDNLh+Op5fu3yl1GuBV9BX2Fs7rQVwCYsWiOBw96jrQ8+0c1
+l9Cz/7u6+Fjz2RfnlJ71FeQpZpYOx67lu7fNXUa4FX2Fv8qqr/CtLvQVAGYs
+mvckGrQfUdSvWyuMKjeRZ/93dfG55rNfxf3P+glFX89e18xKlGsNdi3fu5fc
+5YRb0lf4q6z6Ct/qQl8BYMaiPh7ceU+bhs+ue4YURpXX1rP/r3qoe2f0+ezn
+znMQteY2hqk5HKtozkdQKHIarnKXFW5JX+GvsuorfNVXAFiChufzoGdzNO+f
+VEjKi8zN20PrHkeH4+1ZuxnV+lG4hsPxEM37Ghy9yV1WuDV9Bc6um74CwIxF
+8x5Hg3LLVM+Hpme/3DUjFC17HDW0GfmKmYUo5xA8d4gPFDa5ywu3pq/Aheum
+rwAwYw3x4NpctT0+u2kt4+B5itykPTS91/mxob0URrWGFFIcjm3H+IAYAYuh
+r8DZNdNXAJi5hnjw4Hl+0Zy/eFTrDfnrmtXF/z+1XM8juYuZpOiWh+CoWIuw
+zl1muBd9Bc6umb4CwIy1xIOHziNsW29o3tkIHY7fOjzfm37GOlImpxjzR7c8
+BF+rWIJ8BCyGvgIXrpu+AsCMRf1cv8F5ZqI5H/DgeYrcrE005Zz+fOyzxQ3z
+XsM9HY5Nx/hA4fHgh9xlhnvSV+DCddNXAJixhvv34Hl+0Tzv7F3uc+fiNavb
+4+hrnO11HM15p1xfJqFHjGAf1hmwUPoKnF0zfQWAmWuIBw+a59fyDPF+YKSi
+/p3RxZxDUa5DvNhPyH0u0KZjjKBYi7DNXVbISV+Bs+umrwAwYw3P58FzwaJ5
+TZq1hiMV9e+MLq4jbOgrFOxjxWgdjjfRno9AHgIWT1+BC9dNXwFgxqJ+z5pB
++9Ucjp8ange/5T5vaq9bkUuq7p3Rxed4NOefcq0ZpcPxQ4cYwS7kIQB9Bc6v
+m74CwMzFjfY4ang/UMw7+/EaZecm7aFuj6PGd0YN1/uz680YHY6nthhB7jLC
+WOgrcHbd9BUAZqwltpt8v47mfDXmlo1YJL4ziub1pfY9YlQOx4MYAXSjr8CF
+a6evADBjDfHgQXmDoj5XjWfAyMWAd0ZRn6968J5ZcC3Rvt7gOXcZYUz0Fbhw
+7fQVAGYs6ud/Je9xFPV5agbvm8TN20PTO6PWdzst74Z+6dh2fspdD8zb4dg2
+tNN9yEcA39FX4Oza6SsAzFzU56BpvU/XfF7dfDL5aSbgcLyruX6d81lH4r5H
+8e19lfdI3Ey0zyVY5y4jjI2+AmfXT18BYMYantOF3usNo8xZfOm+77k/EVG/
+x1HnfNYN/YdC7f5WVdsx55Cbiua5BLvc5YOx0VfgwjXUVwCYsaif89d7vWGU
+c9AurVXz3J+QqH9n1Ctu3/c9QXzLh5T0bgq6inJdwaW2WcwxsN4AzugrcOE6
+6isAzFjU55Hp9bxueO5bYzgh0fzOqFfe6Zb3BL+c/exxDuGgPbihTTTvcfCY
+u3wwRvoKnF1HfQWAGYvmHDSdn/3V8+I8Hvz53rHeKOcxfjhzLNegfMxLEfXv
+jDqvNzz7vLpcyEX7eFv9zPG5b59sbu5w7Brue6vc5YOxmUtfoRqPXsrF+Gs0
+zHHnYl3qKwDMWNTvcdT5PhyX984t3jvcLQdt1L/n8K7ienWZFLuP5nzG5/TT
+uLmoz1/4lLtsMEZT7ytUz6G6ue3fPeeMPzvXqb4CwIzVPLfPn/+v1plFGZO/
+9LvFz2dfL1ZTtuzlGrtofmeUnFO4Qzsb9PnQ1eF409AGN7nLB2M05b5C1L/3
+rmPuYXud6isAzFzUx9eLeXl1+WkuPleL/kDu8zk5r0txae8I2uut6Z1Rr/WG
+Fz67ac7HbJ/7xbg0dxn47npsGtqh/IVwwVT7CgkxgiPzD5vrVV8BYMaiwx5H
+Ub+W72t8W/9/t/UFPc7tPCeOfDcjcKHP9uvQPsUYRfnO+jHKnPqb3OXhu2vz
+WHM/e8ldNhijqfYVzsayv5/HJ6LMZ9T0/np0fZulWEpfAWCsGuLsk59zd+HZ
+LwbNTR2O1cH7+H6/vU3ucvHqOj3X3Pd2ucsGYzTFvkKU8+KPcyAa1zfE5dyK
+5hQAsFhR5uuZ5Xy7eD0PUhyaqzscP0Q5j/3S2HOTu3xcvGb7mvveNnfZYIym
+2Fc4iW10yoEQl+dMjDYOAgC3dGEs/bXPc3WsLjzvk/bogTqH4+Hgqeb7U+TS
+f8hdRmqvXd0cY9cMLphiX6GaH9ArjhGv103oOwCwONGcg2bS+f7i9RzJzns7
+Q53DsT7YRf2eescYgbyFI9Zw7da5ywZjM8W+QpRrDnqvNbxwruIEACxO1Ofu
+mfw8u3idK3e07zwYt/g+H2FdX1mMYELECabL9ytLnc+2r3DhXM/3SZrdOQJA
+myj3JprUesOO53VpT99RvvNgnOJbPsKXDrEBMYKJESeYpup7+TXsIXLvep9l
+X6HmXM/nE8zuHAGgSc1Y+uhu+xrf6NzOn/PeB9AqvuUjrMs5IEYwE+IE0xTl
+mp/T61XEC+SUuG2dz7avUHO+53Mn7IsIwKJE/R5HhUnvC3DhOe99ALWizEd4
+Pv4QI5ixhmu5yV02aq/ZquG6PYvx3KzeZ9tXuHCuRUzkNF+jvgMAixP1exxN
+PmdP2A+RFlHmHNhFcz5CMYKZivr1JNvcZaP2mnWZ5yNecP16n21f4cK5nsZE
+zEMEYJEujKWPPuYu28Dzsh8iF1XvI7fRLR+hGMGMVePJS9f0KXfZuHi91j2/
+m0UMcJW73HMw177ChfP86eRci//fegMAFufCWPpU732ExiRez5GcVV+G3u2h
+GF/0zUcoRjBzVbzo0nXd5y4bF69XSs4Q8YLh9T7bvsKFcz3N1WgOIgCLdGEs
+fWrS+wfG6zmSs+rLUHvdV1HmGdhWY4r9leMCYgQzEmW+yrrru8pdPl5drx+q
+73bqOqHid3/IfR5TM+e+wtl5nuY0epu7PACQy+H41PDsn+wzMuyHuAhRzhEo
+xnmPUc4fH5pjQIxgYaI5J9773OWj9roV8YLdgO+ueEG/+p5lX+HsHN/N7ZwA
+IEW83gvg3GTfv4f9EGelGhOs49scgWuvHRAjWLCon3PykrtstF671dB4Qe5z
+GLs59xVOzvGtGAEAS1eNoevyFr96/scE90W+0K+xp9FERLn/wKaKCTzHfecI
+iBEsUJTzUequt2s9AVW84DnxO70P+2BeqtPZ9xWq8xQjAGDRDsfvVxgjTeK9
+QbyeIzmb9ZNzEd/mCBS5BXcD+vhiBAxti28arvkud/nodS3X4gWD63BJfQUx
+AgBYiLiwH2LITZD7mqziW27B57htbkExAlLaaNNaFtd9Yqp4Qer6pOIetc59
+Dty8jfwc3/Y/FCMAgJkL+yGOSqSvHR6TvbHivEXzvgfPucvHoOu6Fy/grF2I
+EQDAwoT9EEclhuUZG4PinaS86AvQMp6098GEDYwXFLlTV7nPgau1hZ+iXJtY
+xAl+zl0eAOD24vJ+iPoBIzDReIEYwYJE85wC604mLsqcKNtIz426Ey+YtpQY
+QfE7ucsNAAwTr/dD/Jy7TLy6RlOJF4gRLFA0r2nXJmbgCvGCR+1geqJ8j/BH
+zxjBjyHHEQBMXtgPcTJGHi8wHlyoKPPfaRsLUMULUu9BX6pYg7YwASkxgur3
+ij6FHEcAMHFVP+C0L2c/xJEbYbzAOHDhonxfrI0sxMB70J/xgtznQOs1/r1P
+jCDKPIfHXEf6EQAwYfF6P8SCuYITMZJ4gfEfx/bYtqde8d/lK5iR6h70nHjv
+2B9scp8DF6/r7wOeCdYcAMDExes1B59yl4mk65grXiBPHX+Jck562/r14r8/
+5C4rV7/2a/GCeTgcvw18LvyW+xwAgDSH41283gvxyJ6IE5UhXmDfO75TxI06
+xAoK/8fBf567vFz9+g+JFxS/t859Dkt2hRhBwZoDAJiQSJxHmLvcJF3rIl7w
+P9w4RvCU+zwZpx6xgsJ/F9atzE6U+2XuxQumI8r3B0OfC/ZLAgAYoSjnfrfl
+lBtqb2xHk56xguLnNrnLzE3awdB4wSr3OQAAwJQdjocBffI+5CSg0Um86t/0
+aFcv3iPPU5T7IXaNG53biRcAAEA/Ua4zeLpDfKCwzX2+jFv1Djl1TPi1asur
+3OfB1dvFD1eIF5jHBAAALQ7H+4Fjsj6ec58v4xVlDru2vRH7eDQunJ8Ytjbq
+SxVr0C4AAOBMlOu/n+8UHzj2z/XNeSVuO5+laHf21ZihGLY/i3gBAABU4tvc
+3b796v9l4HhtnfvcGZdIey+8P/gnCePDvTY4TwPjTEW72OQ+BwAAyCXKed37
+hH70Q2Js4egx97kzLtF/vcur979Ve37u2RaLn5dHc4YS24N4AQAAixTle9uU
+921/re8eECd4yX3+jEdirGoXDXkJI22fjl2Ycz5LA+MF9swAAGD2Ii1P4cv5
+O9fEOMGXpvEdyxFp+TCe+4zZon8u/D/nKOSuG27W5jYJ8aOktgcAAFOQOC6r
+zfmWGCd4yF0P5BXlXJZdz3azT207A/7eJnddcRtXiBescp8DAAAMlTimb9xz
+PuEzd7nrgbwi4/v9KHPbPSeMCde5643biGF7wO7ECwAAmKJIW/td9Jtb3932
+jBMU6xas/V6oSHt/u7tFm0n8ThgTzlR82+9FvAAAgFmLtLnWhb/yFHb4G33i
+BPLJL1Ck7z+wukPZBu+vwHxE+v6w2gYAAKMX5bvblDyF655/p2uf+mJ+A+Yr
+yjn+feNU+75t8ArlTBkbFt+tTe465mZtIqXtihcAADBKkbb+Onn9d5TvY9s+
+/yl3vXA/kTaHuzZX5h3LXXx3+u4Tar+8GbtCvGCT+xwAAFi2hHeiX2Pg/O4o
+55S3vR/2Xm0hIm0ey3ZMbaRq0y89z6Ex3yfTFmlrZ07vgZvc5wAAwLIkjms6
+5Sns+Leb/s46d/1we3McW0da3sXOuT2YnivEC9a5zwEAgHmLcn73Y0J/9Wpj
+mZY4wTZ3HXFbMfO5+jHRNRTcvF08JMSQjp6n0v4BAJiWqp/ad3731d9nNcQJ
+nnPXEbeTGKMq2t8md9kTz7eIh+xyf98Yl0ibc3IaL7AHDAAAg0VansKbvduv
+iRMU8Qtzr2cqFryXYKTv8Wg8OGMJ34lTRfxplfscqvNYV+ehvQIATET0n/98
+HKOsblimS3GCwXkPGJ/qWu+nOga6cl2kzDvfzSFWQm2bSFmjMqrvysn9/Evu
+sgAA0CzS8xRu7lS207/7mLu+uPo1fhNp79DXuct+h7rpOy5M3oOUaRgYL8g6
+9+bsfv4irgUAMD6Rnqdwd6/+3Xm/MnedcdVr+0Okrclf1HySAfW0yV12btou
+VgntImu8IF7HfZ9z1yMAAN9E2rzm4ufXdy7nsV9pnuqMhPfkKXVWjAufe35n
+n+/9nSVLuxgSL7jr3hkXyrDLXYcAAEsXafvMfc3x7qkq7zFOsMldd1zlem4S
+4lO7HG1vrEIeBy63i5T1O3eff1Lz9+3zCQCQSaTlzC76ndlyU0c553qdu+4Y
+fB3XCWOYZ2Pbxjpd7L4QNLaLlO/aabzgput6Gv72JnfdAQAsSfWeKSVPoXc8
+DBJpc6L3YkOd6/eY067vd3uTu+zcvG2so/+8k9MY3fpG5Wpql/ZLBAC4sUjP
+U/jknSNDRFpOdrGp9PpeRf/1RC/iMfMXaWt9bhYviOa5Dl88ewAAbicmkqeQ
++anGJX3Xt2yND65S9+voP3eoiC+scpedm7eNlO/l0e5abaQlTnCMX7kXAABc
+UZTvcSeTp5D5MEYdj0h7h/zoHjBvkTbP56rxgg5xgj/vC7nrCgBgLiItT2Ex
+rrMmlGRhzvsoJY4Jrf1YgCvEC7apMaWOcYI/YxK56wkAYMoibT8s4wEGibT8
+F/sYQQ69w/Ghpny/JX7e7zWf924E51rEcXYJ12mdu+yMsm2cPkN6xwt63jM2
+uesIAGBqIi3XecFcbwaJie/Jt6Q4wUkZ15G2N6X5RjN3hXhB55hzwjPrpvs0
+AgDMSaTtebXX52KIxHa3G1tcaolxgpOypuQ4La7hKGI83LRtpMxNO32+bDr8
+jb5xAvslAgC0iPQ8hXKUkSxx/FD8/Dp32WvOZ7FxgpMybyNhTkjucnOXtrEe
+GC+ojUcnxAmObc/zCwDggkjb10qeQpJVcandNccJYyBOMPj6bnKXnbu0j3X0
+38OkMU4Y5XyWlM+zXyIAwIko144+J7x/kaeQZDHj983iBK/Kn3KPuTgOZH4i
+bZ/Ni+2kij2kfE5hl7suAADGINLmaBb9slXusjNNiWOCXUzoXZ84Qe15rBOv
+/Sp32blL+xgSL/gzf+7AOEHhMXc9AADkkthfL97njnq+N+MV6fnwV7nLnnCu
+4gTN5zPp/Sy4ads47rPTdw3c0f84ME5Q2OSuBwCAe4q09cJ/vmPRRydFpO2J
+to8JzzkXJ+h0Tin7rn4xhluGK8QLhlrnrgMAgHuI9DyF69xlZ3oS+/mzyHsh
+TtDr3FbRf48V96WFiPTY9lD2SwQAZi3S8xRuc5edaUqMSRUxhVnMWREnSDrH
+dfTPff/nmvTcZecu7WOVIV6wn8s9CQDgVKTN23zW9yaFsd5f9SBOkF53m+if
+O8W6qIWItLj3EPZLBABmI3G8Zu0vScLc8fP6ECcYVn+LXbNC5zayvmO8YJf7
+fAEAhqj6148p/SDvTOgrsb3t5x6PEie4Wj2uYmE5MOndRop4wf96h1jBNve5
+AgCkOBwP0X+NgT41ScLedk11I05w3fosxoLPPe9txc/LQzdjcf8ch5vc5wwA
+0FWkr9fc5i4701ON2fY921rRl1/lLvsd60ic4Db1+pDY9mYfm1qa6B+nFCsA
+ABYj5CnkTg7Hm4R4VPHz69xlz1BX4gS3rd++9z37t8xEpOXeubZd7noAALik
+GrPJU8jNRdrc3v3BQ+6yZ6wzcYLb13Fqu9zkLjt3u9639BzmqQAAIxHpeQqf
+9GnoK7y3Ta03cYL71fUqzHOZtci3xqBNEatf5a4fAGDZIm1t7l5/mL4ibQ/7
+XYhFHetPnOD+db5ObLOr3GWn8ZrmXmPQpohfyJcJANxdpO1NX9gat9FHpOeV
+X+Uu+5iIE2Ste/twTFyMb41Blza0yV1vAMByJPR5j+M27zfoLOxTf+36FCfI
+W/8/VGN/Y72JSXzmjcU2d/0BAPMW6XkK3+cuO9NxMp7q+/5VO2uu1+xxgsPx
+S1WOH3PXR8brsIr+c7GK++46d9mXJqaxxqCLXe66BADmJ+Qp5E6izEHQ973d
+VjvrVLdjiBP8Vv3MT7nrI7fEMWhxT13lLvvcxfTWGHTx4j4JAFxLpOXhKn5+
+nbvsTIcx013quC5O8Hvi56XECT6GOMF5nWwS7rGPxnw3vSZFnOA54bqMXXE+
+1v8BAMmqflJKnkL9VzoLc7DvWdd1cYLPiZ/3R83nNcUJjr+z2HUHNfVirc3I
+RRnLLLyvrtUuyljC1NYlfHH/BABSRFrOpqKv5D0FnUTaWpZ9yOk2pM7r4gSF
+t1f8rKY4wedIjEssQcjdOWnxLZawiTKWUNzjnqP/fi33sMldXwDANESZp7Bv
+f8Y7LXoJe8TlqvemsX3ntQdFHKD6nbr5BB9qfu/n4+/lrouxi/S9QMVqR656
+zp7GErYnsYR776mwy10fAMB4Rdp+XQXrw+ks0nJd7LSxq9X/MU7wqaauf+3w
+Gcc8hL9Ffdzh4uec/PzFOAIX6+wh8TsjpjZhUc4rWVfXv3g2Pya0gz7Pce0F
+APhO4tit+PmH3GVnGiJtnkrx8+vcZZ+Tk3F6kX/wY029F//t3dnv/Vz97ueT
+OMOPBz/VfMbF+QLxLT4hh2H/a1eMFXvPwcldbq7eDor4waYa219z7kGxbnCV
++/wAgPwifd8neQrpJLGNiUHd7noc5wJ8rsb5dfMKmhS/+/OFzzz34exv/1r9
+e9IejAz6Pm1yl52btYl1lDGka+RSLOIO1q0AwIJF2h718hTSWXj/OTrx/RyC
+nyufe1yjT6cxguozf2qINxRzE4p5CH+c/L65BMOv4yomPj/n5BzEnK9Xpz9U
+z/ZdpK9RKO7Dm9znAgDcV2L/0viNziJtL/id8cJdrs1p3sFfqn/7qRrPt12j
+IsZwcS/DKOMNbXMT/hAjuPr1XCd+11YjKPsuvsWfffdvU8fFeq8iZ2zK/sbb
+3OUHAO4j0vIUPo+hT8n4RXp+9lXusi9FfD934Nez/3bMQXA63v9c/dvPHT//
+w4WYw59zCnKf+5zFxPYPqcavp+UpYh3mqt2+3ouciI/RfY3CLneZAYDbibR3
+TkU/0hpxWoX93ichynwEp9fgU+4ycdXrm7JnTZY55nE5nmht/H2vQXHf3kR7
+PkTzPQBgZkKeQm7oZFzS9z3m+9xlX6LD8cuF69FpngDTUY3/+s4zf7lX3C7K
+d9pN9wexgjzt5k11P78Uw5GbCABmouqLpeQpXOcuO+MXaXkwt+JPWa/ZhwvX
+xHqAmYpyHlnfHPhFfGF143LtO8QSjUnztp0fqj7E7uR6fdE/AHI4HO+qPkzh
+mI/5lw4/f/58+RQ91lLC3ERansI/x3C5y874HY5/dPC/j23sQadr9/HCtfmY
+u1zc/LpvOozNz91kTll0XxchVjAiVb/imA/RekTg6g7H25NYwK8dnhOv8ipX
+8YGuezgVfSK5lVmU6L/O4NkYjjrxbQ3rf3/wr3u2LfNTRiS+3+vg6I/c5eIu
+1z77GqGqDH3/vlgBwIxFuedS33ebf1z4jC77Np2zVzOL0qMvZo9kXjmJCxTx
+pn3CPfdr9Xub3OfCq2t7Mcaeu1zctQ2sIlPO0SjnKPS9l4gVACxIlDmXL81/
+PPXh5Off1vVvesQKLu75DHNUjfOavhNFP9E6cY5xpb57ZTX16bfa1vjE670O
+TomlL0yk72GaNGaPMj4x5L4iVgCwIHF5DuTRz9XPvD3791/jJPdA1fe5lKeg
+Nu4AS1DTB9yHeeCLd8W4wHnsaZX73Ki95k3z+t7mLh/Z2sVD9J83VHzXe8UC
+E2ISYgUAC3Y4fqt5Hnyu/vtpjKCYf1A7J6CIHbQ8Yz43/T7MTbx+f7PNXSay
+tYV11O93NVTxmevc50hrG2h6RooTLFyk5S7Ydvzs9ZXuNWIFAAvRECco5gz8
+FN/WGtTue3D2eW3zCjp9DszFydhwlbss3PW6N+2DfS37kPd6MuL13DxxAs7b
+SLEGaZdwH9i0fO7+ivcdsQKABYj6dQfFngafqjhB5/0Noz1f4q+5zxng2qq4
+wHHPqj7vBFP76dvc50zvNmLdAZ1E2t66xc+vL3zW5kb3ILECgJmK5pxKx30N
+evddqvhC3efaJxqYvPh+L+tbxwVO7UKOwklqeebKY8grUa4X2CfcI1bV7/fd
+B1GsAJilKN+Bf6gcc/nXznM/+fnze9+n6t87v0efoqJuWp4BSXkHo3nvxN9z
+nzdAX3GdvQqHeA5rVyYvLs/h+5y7XIxblDHJ3rkLolxDesv7klgBMBpRru87
+xgK63P9e5c2LMj7QdY+/It4wyzh/S/19GvC5TXGC5M8FuJco38NtIl9c4Kj4
+2+vc9cHV2tW7C9fYXkC0qu5J24z3oiab3PUDLFe0r3u/5I8Ln9E0hq0d28YM
+YwXRvD4gea1kSx2LEwCjU/XBb7FXYar/++B97nrhJm3tdB7jb7nLw7REObfp
+aQT3KLECYJSiXOf3seWe9eHk54t5CF3nENTFCmazp1807880aG1AWHcATECM
+Ky5w6r8JOQiABlHmLhjbvWuTu14AjqI+X3/h5+pnzvci+jVOcg9EGXNo28/v
+u7jD1LWc76C9C1uuiTyGQBZVv3obt92rcIj/9+Dv5a4nYDqiXB+1H8H9S6wA
+GJXD8VvNfepz9d9PYwTF/IPaOQHR/I79z89s+v0pifq5GIPzKUXzvA37IgJ3
+EeVehWOOC5z6VyEfGJAgvuUuuOfeK2IFwKhFfZygmDPw08mYtdM78mifVzDo
+XftYNIzlB43jo3nfp8Js5mQA41LFBXLsVTiUnOHAYIfjP4oyt0nue5pYAZBd
+1M9xL3IKf6rGw533N4z2fImTfx8ezfshDtoLMl6v8bjq5wMcRZnPa4pxATEC
+4OpifPshbHLXCbBM0fzu+phLr3fe/mjeB2Dy6+ujfj/EP67w2U3zMewRDSSL
+Mi6wifx7FYoRAKNS3R/HGC/d5K4bYHmi+b14IWmOe8w8X3/Uz8EYvCagpe4m
+PxcDuL8o9yXYj6C/K0YAjFKU8dPc9zWxAmAUov69eOHTgM9tGusmf+4YRPMc
+jKFrDtpyE/Se2wEQZY6u/Qj6umIEwOhEmZsl931NrAAYjWheH5A8Jo15xwnq
+1gUMPq8oc0LU1dvgNQ3AckW53iB3P1eMABidmMaeLmIFwF1E8x6Gg9YGxIzX
+HUT9foiD1wS01Nu73OcOTNuE+sJ19iFGAFxRlOuyct/bxAqA0YjmfHmD9i6M
++vX7hUnnMYz6/RAHrQmI5riNuQTAYIdjPYI+bqqXgx9y1yEwLzHNNVmb3PUG
+zFfUvxcfnFO/YSxdmGwuvoax/DXq7LeGOpOXALiKGHeuLjEC4G5ifPsg9rHN
+XX/APDWM5QeN46M9F9/gPQEy1lld3sdBcyQOx08N9fVb7vMG5iPKvb9y92/F
+CICsoszvOsZ9EPvY5a5HYF6ieT/EoTn737bc0wZ9fuZ6u8l+iFE/l6DIM/lj
+7vMG5iWm8w5NjAC4icPxOIJ7nFgBMCpR/1588Dr4aM57MHh+fsY6a5onkTyW
+j+a4ymRjKsB4xTTeo4kRADcR05tXJVYA3EXc6L149dlNOfunnJugbg7GoNhK
+1O9NOdn1GcD4xbj3SRQjAG4mppmnRawAuKlofi8+dM1BW26Cyebji/q1Acmx
+j6ifezHZeAowHdV4PHffVowAuLso5xRsoowZ7Edw7xMrALJqGJt+usJnv2u4
+d016b7+oz/uYtIdk1O+dIG8hcBcxvn0SxQiALKKMG7w/eIrxr8sSKwCuLur3
+Qxz8Djua1xy8y33uA86rbkxf6J2bIMr9DS6tNxAjAO7qcDyPoF8rRgCMyuF4
+M+G4wS53/QHTE/XvxQetCWgZS099LkHdHIze5xXl2oxL+SHECIC7i3Hk8xIj
+AEatihtsYzyxVbEC4GoaxvKD9yGI+vX7g2MQuUX9PIleY/uGGIF8BEA2kXd/
+MDECYHKiXLc19rjBLnc9AdMQ9fshfhz4uT813KMm/Z48mnMzdj63KGM052sN
+irkdSfkNBl6rD2eO5Zr0vA8gTeTbJ1GMAJiFw/EQZcx1bPlhd7nrBhi/uNF+
+iFE/l6AYf/Zevz8mUb8fYufzi8vxmWKOwk93PI+m3BFH5jXAAkWZ87tuTZoY
+AUAPUcZexxQ32OWuE2C8ovm9ePJY/nC8bfjcQfssjkHNGP88VvAqzhLl3g+X
+frf4+bvOIehxXtnLBdxPlPNmnzP0WZ/ECIClqOIGm8i7B+Mudz0A4xT178UH
+zTWPy3n7v14aO09Rw/kVcyj6vH8r5nKMZs+HuBzfmfTcD6CbKHMX7vRVAe6v
+ugfniBvscp87MD5RvzYgea551O8DMIv569FhP8Qo5w3U1e1x/f/d1hf0OLd3
+Z2UdlKMCGL8o32ltI98eX7vcdQAwNlXc4F57MFrzBXwn6t99J801bxhDTzpv
+4dk5Xm0/xLGJ1+sOZjH/A7gsyndXOfcA3+WuA4ApiHIPxlvGDcQKgD81jOkL
+veeaR5kz/9J8/NnECKrz/FhTZ5OfL3EhbjT5XBLAa1HmIOibR+t/EyMAGIcq
+brCN6+aTESsAivvL1d6LR5kP8dK+CbOKEVTnetU5GGNxIW70OXeZgOuKch7r
+U0K/sYgrXHOfxF3uugCYk+o+XcQN/kasABgi6vfE6zW2b4gRTP79+oVzbdoP
+cdL5/i7EjWYX44Glqsb4jz37ivuDzdnnbMUIAMYvypxT/0ysAOgjmvdD7Dw+
+jPId9Plag+J9+13erUd9vsBinf3bG/y9uv0Q55Cb4DxuNOn5EUApyvWsfeYB
+fKniAa/6iFW8YS9GADANUc4zSJlj8M/FCmB5ovm9eDHub303XjNmLsaaN8/j
+H+X+fXV7E5762OVcevzdS/Mm/oxL5L6mA8/rUtxo0vMjYOmqvmHfMf3uYNXy
+uRsxAoBpORwPCc+E//Pg7+QuO3A/NWP881jBq1z3Ub6/v/S7xc/faw5BXV6F
+Old5118zlj56l/uaDjy387jR5OdHwFJFmdvqued9svj5dY+/0ffzd7nrBYA/
+79/b6DfH7N/ExN+HAd1F/bv4Yg5/XZ6+i2Pwe46RE2IER4Pvby1/e9L7AsTr
+2I/nAUxMlGsCdj3vjfuDh4S/tRYjAJimxOdFsefNJnfZgduJDvshRv26/6/V
+eLlw8/UFZ+U+fef9+3l8Isp9GZvmSQwqb9Tvhzj5fQHCfojUqO4F57krivjg
+q/lGCZ9dfKdPY5a/hfUuqXW5jYQcBAP/Zpc+5i533QBwWZR74Dz3jBcUP7/O
+XXbg+uKK+yHescw/nownGtc3xOXcioPfkV8YSx99zF0/A8/Lfohcahc/XogP
+nPt9wOe/vfZnLlGUuQL2Pft4xfh+cG6qqn8pRgAwcXGjfDaMU9UHK8aDl/Ku
+fa7+26TXVJPcNurei492rvlJbKNTDoQLY99BcZCazzsa/F51JHU7i7gHV2sX
+dfOJrtL+G+5DhbvOVZqiqk/33LNP93ztPl3U75O4y11HAPQTV9wfh/Gp+vxd
+8sDPZpxD7zZS9158tPvgVW26Vxzjwjgn+T35hbH0JOqt47mdj9fcDxYuyjU8
+XZ8fxf2k91qBhvtQwbqX+npbRVoOgvWNyvPDhT7l+9z1BECa6r5eFwNuihds
+cped2mvadZ+4Op/0zeYvmvdDHOW64CjnP/ceu1441yFxgqbv1tvcdTSwbifR
+DrhruzjGxYp2/9PZv10l1twUd8h9/mN00m/r+57n5mP2+H6fxE3uugJguCjj
+0k89x5MvIXfBqJz13347H+9X46W2ffCO74XECmasoR2MNjfBgHM9X/+cdI4d
+vjuTff9+IZYyu3ZAUrs4zjE5zxVatxahd06Bhu+TdS+v62rTMz7wNe48D7Tq
+G25y1xUA1xXlOreXns+gIr6wyl32pTvrtzWOV6KcS9q0JvQYK7A2dKbicr6K
+wmhzEww41/MxcN91C790+L789d07H1NNwYUYyOzaAUnt4nif+PHs3+tyD37t
++9yICa5/ynAdJtM3u2dMAoD7i7S8uY+eD9mu1+k8gs7vAaN9D3rvFGcoLs8x
+P5rcGLfD+Z6PgTuNY6I9x3unuEHu8+94rufrKYzROLaLi/P/G8b3vdp8zffM
+moOyblZhricAIxMjXgPHd9fp/L1O3z7auzmMc+h1zZviQ7Nab1LFRE7HM96T
+v66jV/shhtwEfP0rTvCp5r9dZe1STZxg0c+dqv/12DM+sA/z/QG4oxhZTl1e
+XZ/z94C9c6m1jBuNGWYm6ufQz+4dXiTOtVmSC99/68L5U9U2Lo7ZL8SXkuKN
+cXkN1GLXvIW9qACYmEjfo/dN7rLPVVzOWZ80po/mOdaLfrczN1E/X3hW48Mo
+83Acz1W+jfp6sh8iSS7EqXu3oQuf8Vvu88pUl0Ufa9+zj7UL+aEAGInD8ZD4
+LBPrvv61ePVeeMBnNe2T3TuHNeMUze8AZzU+jO/fU85qPcUV6+hSrgp1RSdR
+Pxft4lqFms9YdPs7HG8i7R3MOnfZAeCSSMtdsM1d7jmJC++FB35e3V5XyfMU
+GJeGfn1hNrnr4vu1073X4ixFvJ6TNLu1J9xOS3y5dbx/IW65mJh0lDkIdj3j
+A/uDh9xlB4A2A55zm9xln7oL/atrxAma3jUba81A1M8Tns01ju9zc87inG5Y
+V/ZDZJAYsMfqhTjVIr6v4T0LAAsRZa7D557xguLn17nLPlVR8174Cp9bN46c
+3X55S3NhTHhu8usO4vv9PxYx5hhYX+djvNnMKeE+6p5F0WFuytk9afZzCSJt
+z+ldWLcJwMSFPDz3rOuLY75bfe4cxpBLFeU7u7o9Dl5d56nGhMQIetfXpflD
+1hfRS1zOcdHpe3gWp5rtdzbS80CvcpcdAK4p7Otzjzq+mEvgCp/7ruYamY88
+MdG8h0VXk4gPiREk1dl5TLBz7jk41RCHrN27IL7PbTDLuQRhX2kAeCXK3AXb
+ns/HIl6wyV32KbhhnKAuR8Ei96pi/Ko2e8zpKUbQXl/vGsZ1k4gLMS4N8eXa
+tQfx/XqFWX1vT/o/fd+XvM9ddgC4lyqe/tQzXvAint5arxf7+Vf43Lr81eYT
+MDpiBJ3rKWluSe5yMw1Rrj14tf9O5WLOi/iWC2dWcwmizEHQJz7wNcynBGDB
+olyf99Lz2VnEF1a5yz5Gdf3+K32294yMXhXT+lSNTxa15zqMTV3suvj3Cz87
+u3VC+jgAMEyk5ft9FGt/VY/3jhNMMrcd85QSIyh+J3e5Ya7i9R6HR8V39Mez
+nz3GFCY/lyDMmQSAqwlr965Rh/eOE3hfyyhEOcf5j54xguO8aPn84Uaifu3B
+u5OfOV3bNtm5BFU/5rFnfGAfcjABQKuQC3hI3d01TpD7fKGQEiOofq/I7f9q
+/jNwPVG/r+7HCz/zR+7yDjhPezoBwB1E+t7Cb3KXPWOd3SROEJfzGBpfMQpV
+u+8zj6DIc3ic43wxnxpwHfF93oFzP8b3+Q4nt5at6qvse/ZVdiEHAQAMcjge
+Ep/Bi4vR3zBOcKmfJ4ch2dW1+Y6sOYA7iG/7GLx6jsS3vRA/5S5nz3N6E2nv
+Mta5yw4AcxJpuQu2uct95zq6VZzgw9lnGl+R3eH4bUCMoPBb7nOAJbjwDDk6
+rheazFyCKHMQ7Hrea/YHD7nLDgBzNeD5vMld9jvVz63iBOd7W81qfBVlTgxr
+RSfkCjGCgjUHcAdRrvVp+i5OYi5BeF8BAKNWjeuee44Jip9f5y77jeulbg52
+8t5vUa4dnfVcgrPYk37dyB2Od1eIEXzOfR6wJFHOHaj7Po56HVuk7d1cPFfE
+nQEgg5A/6Lw+6uIEye9N4/V80VH35xLOb1VTZ0W72uQuH3A/1f3gve/+Teq2
+bu3BaGPPkZ5PeZW77ADAn8/yvvsRFbZzi/U3xAmS9iaI7/NQJ3/OmB2Op5Z2
+Il4AMxblerbNwcsxlpy7THMUl/fNGWXsOezPDACzUfX1tj2f61/mNAZsiBMU
+Ou8rf/J5p3kJPo31nc+A+lr3fEe0zl1m4Dqq2MB5nHCXu1xzVvOMSl4Xd4Py
+HfsRfXMQvM9ddgCgWfUeoO0d8bmXOYwBW+IEf/QZ5x+OX09+t/Pe9FMS5Z6b
+fdqJeAFMWBUb3NWMA3e5yzd38Tq3yGhy4lZxo8XPSwSAuav6gy89n/nFGHCV
+u+wDzrltL/kiVtD67iZezyOYXYzg5FxX0X9+aeFpym0FliLKfe4fozmXzS53
+OZcgXufFzf5sSewruP8DwMRFWp7ixym+I2iIE5znmS7mCrw9+91i7WiRZ+o0
+H0HxebNaa9BQd6nxgp3+IoxLfMtH2GX8t8td3iWJb3Ho30fQRhY59xAAKMVC
+1hzWxQmq/3YeA2hSzCF4l/t8MtXhOvrnt55sbAnmIr7lI+zz/d3lLjdZ2slj
+z/v7PmaUywgA+F6k5zB+yF32judXGyc4+Zl3Ub8/VfHvyXsozklivKCILW3F
+C+B+oswz0ve+LkawQNF/byT3dABYkMQxYPHzb3KXveW8WuME9K7Th+i/buXP
+vmXussNcRZlzYNdzzCdGsFDVM7/vfbxoX6vcZQcA7i9xDLgb67sFcYKb1u0m
+oa0UP7/JXXaYgyjng7XlIxQj4LTNFPGk557to/j5de6yAwD5RVrugu3Y4gU1
+cYJPucs1J9F/3qp4ASSqxnld8xGKEXBsN0UOgl3CfXoSawwBgPsZ0K/Y5C77
+yTmIE9yvrfSNLX0NubKhVpRzw99X9+HnK8UFxAgWJuHebJ0YANAqyrmtffuo
+z2MY/4kT3L2+U+MFo2gvkEN1j32ovjtPMXwdQRePuc+bm7erTUJb2sXI5gUC
+AOMWE8x7JE6Qrd5XkZZv/Tlne4Fbq+6jxfjtMW4zR6CLTe564OZtrG/bcu8F
+AAaJtPXo2xzvKA7HHxfK8kfuOlyKAfGCrPElGCrKuTXr+DZH4Fr5BMQIqGtz
+KffbfZjLBQBcSXybX96nP/Ll3n3Uw/HpQjl+z11/SxNpObaP8QJzYBm1qn1v
+qnvic6TvTShGQEr7S1nvVfzs+9xlBwDmqXp/8dSzr3q33HWH4/OFv/8xd70t
+VaTNhx3lXhosV3x7bzuWOQJiBAsVZXxqEvP7AIDlqcZ/ffvMxXhxdcMy/Vjz
+d3/NXV9LF2m5LsQLGIXE9itGwLXbYN9n7tMtn7kAAHUiLb/y4y3Gfofj55q/
+9yF3PTGoveyNexiDxPYrRsCQNreKEc/hAwCoEyNZK3k4fqn5W7/kriNeXatN
+z/YiXsBojDhesMldN1ytjf2dg//JPRIAmLpIz738cKW//2vN3/g5d91w8Xql
+xJe8K2M0RhYv2OSuD67Wroo9hv62x7W3RgsAGL1I38v5zcC/e2lPxM+564PW
+65YaL3gWL2AMRhAv2OSuA67SjtYJ7WgXchAAABNyOB4S+zzeiSxQpM1HuUqM
+Ca4hU7xgk/u8GdxuUvaR/ZsQJwUAJizSchdsxQuWaUC8wHs1RuGO8YJd7nNl
+UDv5IfFe92d8NHf5AQCGSuwP7b0rW64qXtD3HZt4AaNx43hBkadDLHWiIm2t
+lTgRADBLiWO/4ufXuctOtjazTmgz5qQwClU7/H9uECew1maCbhA7uuq+QQAA
+OYV8TaS1mZepxQuqv3+VPT2YjsT2amw4U5Ge3/fvRfu8g3Xu8wMAuKbq3Urf
+uZdZx32Mos30jTEVbWyTqbzP1d/3/ncBolxj9Xij+EDhKfc50qs9rCJtzd36
+5DPetDwnv3gmAgBzE9/2xZvEuI9xSIwX7O/dbuLbO0R9+ZmLco+XoWvO2+57
+2tAERNp+r8XPXpwrUrUt8SMAYHGq9y5PPfvNL2HO5WIl9sVfva+7cRmfz9qr
+cd7MRHrOzb7Wuc+VTu1hk3BP2rbdG4oYQstnWN8EAMxWpK/jXOUuO9naTGq8
+4PnWY694PQd9l7u+uOr1fd+z3aXGE7a5z5XWtlA8u/rmpHjq8+yK5lj6vi3W
+AAAwdZE2r/xRP2m5In0/8mLsdpP8AXF5Tc1j7rpi8HV903NMWLSxVU17aP3d
+3OdLY1tYtYzfL0maC1fd45riUtvc9QEAcGtx5TWeLEOk5Q77GjfYU6NhXLjJ
+XU8kXc++eQq/y6WSECf4cu02Sba2UNgP/e5Hc64COSwAgMVIHPcV/THrNRcs
+0teNXy1e0DIuXOeuI3pdy4foN8fp6XzMlhAncA8boei/3uSqe7RG8/yFbe76
+AQC4pyjn+vYd9xU/b0+6BYu0nBdfr9Gvj3L9TNPYQdscueg/r3xfFwPqGSew
+PmVkqnvJvud9ZBfXn6e0armvmFMAACxO9H+vd+yr6TstWGK8YNB7wOpvto0p
+tcuRiv7vjRvbSo84wUvuc+e765Yao17fsExNbcnaOwBgsaJ/7oJ/W/XdjMsW
+LNJyZCblvegQJ/hzTKhNjkuk5SlsnRvSMU5gnslIRFpu1OLecvP1ItGc03Cf
+u+4AAHKKtFxSn0MeucVLjBfs+7SdjnGCwi53ffDX/aTLWD4pfhTN61COOrcv
+btoWtg3j8Lq2sL1zGZtiGOvcdQgAkFuk5ax71pciYTzQ+Z1hNK8jPrfNXRdL
+Fv3Xnr/KU9jxb4gXjVikxQ93fdvClcradH/RlgAAKgl9/WMfb5W77GRtNyl7
+cHaKNfX8vE3uulia6tr3zVOYNK+8JU6wzzHW5Ltr85zw/V9lLnddmb/krlMA
+gLGJ8p3Q3/bs823105ct0taxNMYLEj7L2vT7Xe++eQofh9wjWuIErnueNrCK
+tBwE69xlr8q/aSjnKMoIADAmh+N/ThijFWOGTe6yk73tpIwdvsaFuSmJbdCY
+8bbXt2/++pdrXJOGOIH89PdvAylziJLymd7hPOrKu81dPgCAsUkYn52PC9a5
+z4HsbaiIF/SZk/4qXtBzHHLa/sxtuc013eYaF9bECZ5z18nSRPkOvu/3cjvW
+72TUx7y0LQCAE4fjYWCc4K9+VshdsHiRtnb5OLb4m8S295L7vOck0vIUrm5Q
+hvM4xCjHnnNU1X+f/S5v0g5ucF7buvLnLhsAwJhE8xrzTc/xwtcYuC6ZeUiM
+F/x/iXGCwi73OU9dlPOydz3qvLg3JOUp7Nh+Tv/WOnf9LEGkzQuazJyyC+3q
+lDVMAACVhjjAU/XfZ7E2lWztKyXWlGqb+3ynKvrPL79pPPBsPOe63v76p+Ql
+Lb7Xm9xlTzjXuvOZ3LkAANxCy7uV92c/u4q0XNc3ed/ItNwxXrDJfa5TUn2v
+n3vU713eHZ/cm6wpuX1d/7cH/7ZHGyjiSduY6LyxqF9Psc1dNgCAMWgZ969q
+fqdv/vPC/3Xwd3OfL/lF//31+rIHQvdrse07Nrxj2dbV31zlrqe5qur4X/T8
+fu2mfk0anl9PucsGAJBbNO8R1foOL8r8h/uEPuYk30FxPZG2lqVvrGCV+zzH
+KvrnKXxWn/MRabHe4ufXuct+pfPf1p1j7rIBAOTW0FcqbHp+Tt/cBVvxAg7H
+302INXVlv8TX9d13DXrxXbVuaCaif57KrzHDtWPiBAAAl1X9xbqxfe/9xxLG
+H8f+5yZ3XXB/ie1FrGBYnT80fOcvsW/JjET/eO6/jpmu149y7dPFZ1LusgEA
+5NQyRtsO+NxVLHg+K53ayKbneOUasYJV7vPOWN99v5OT2eOOTte/+L7te35n
+/tmcY0TRkL83d9kAAHKJcm1qUx9xdYW/8Y8O/rZn33S35PHc3EXamuhrWWRu
+w+j/Dnmbu8xc7dqvE75vRYzoP85d9jvVjTgBAMCJqN8T6urjhMPxXx/8q559
+1WJsM9t3WUsT91tj0MUmd33cqc7XLd/zc8V4cpW73Fzl2q8iLQfBOnfZ71hH
+4gQAACeiOXdh77wEHf/mDy1/t64sm9z1xeBrv4n7rjHoFIfKXS83rO+UPIWb
+3OXmatd+2/P7Vvzs+9xlz1BXdc+jfe6yAQDcW9M7lMpN+4tRvud66jmms1Z6
+giLvGoMudjGzOSvRP0/h7OpgqSItHrdd6vVviBM85y4bAMA9VeO2pn7kyx3L
+sk4YQxbxhVXueqT12o5pjUGbWeyFEP3jb/sQe5uF6L++xL30qzgBAEChGrvt
+G/qNWXK8RVoebnu1jVSMc41BlzHzZPMbRrm/mzyFCxPmZg2tv+eaOtrlLhsA
+wD1UMYK2903Z1qeGNbWzENOZQ1DXnh5y12HP+n7T4Xt9qhgXTTYewl/XPWW+
+zj7koDivx31NXW1zlw0A4NaifOfUNpbY5S7nSVl3Cf3fde6y89f4ZR3lnIJt
+5bkylTkGm9z12LGe++YpFFObgeg/d+RLLDgHQUtd1tXZpOKFAAB9RXs+gsLo
+1mdHWu6C4ue9Kx25KGNBxfV9uBBL2I8gTlDY5a6nhvp76FlPT2P7fpN03dcJ
+349dLDwHQUt91tWb5wgAMFtRvndq60fuxzyGSBgTHfvGoz0nOl3347yE9Uks
+4enOsYTnMbWjqk7kKVyYSNsz5Nm1b63XbV395S4bAMAtRPfcVlnyFiae0zYS
+5trmLjc3bxfHWML7k1jCNdc3FHNtViM4z955CscU4yDpmhdxoV3P9lrEhsyZ
+71a/dWvxnnOXDQDg2nqMJyYTIzg5t9R+8yZ32bl7WyliB48NY4E+sn1Xov+7
+5Oepfa+5eN23PeNC4qL96nfVFGPLXT4AgGuJfnsLjuId6YBzXfUcOx3HT+vc
+ZSdLe/mh+n7senxHLo3DNncu87Zn+eQpnLie9/Gjol2bO9KvnpvW5ImzAQCT
+Vo2Xtz37lc9z6VOGvF6ktZs31Tihb6zpLu8aE9r1kzY9bZGet9V1T6vvunlG
++9xlAwBIMfYxTqY6sU8YQ9pPkSvzscfYfHejcqTkKbQWfcLCPrA56vxNQ90+
+5i4fALAs8W0vuL6O+dmee46FF9WvjP7ztI/xgk3usjMe1fd0E+35EK+6l2j0
+j3U9XvPvc/d2drxf9Y1vWlsyvO53DXVszQEAcBNV/++4L/xz5N8PflHjiei+
+18P5mG+du+yMT5TvHrdxeZ7yfui4Ivrn2ngxlpm2KONQfWO+2yXdx29Y96um
+71bu8gEA81KNJa6VW/1airHHKnfdZLwm64TrYZ03teJbDHAX3+J/X1JjTCFP
+4aK4J+UXzXMJNrnLBwBMX6TlELyHp9RxyxxFWv7wRc3BIE11D3hffec2PX5v
+3bNNGitOWJjjNApRxvnq5nF8yV0+AGDaqj5+0zuJHPbV2HaVu37GKKwFZgSq
+dtjn3lG0QXkKJ6q63o8J9/JN7rLPUZQx47p63+YuHwAwTVGuLXgeQUzg9H1T
+0Qe1Vrn7NVz1HKcd++3r3GVn2qL/mnRzWiYs7MEyOlG/5uOLegcA+or+7wCv
+rejDPEc5b7XoR671aQZf03Wk7VUuJkMvkZancJ273CRf73X0X+dUPF9Wucs+
+Z9Gcv3CXu3wAwLREmbMsdS/CLydj+wd9//GprktKn16chlbRP0/hNneZSb7W
+KfPNnj0X7nZ93jdcB/FfAKCTKOcQ9M07dXwX+F6/Y1oiLXfBNne5Gafon9e+
+GC+ucpebpGudMt+siE3KO3Hf61QXw9nnLhsAMA3Ve6F9zzGjHIITN6C/v8ld
+dsYh+uetk6dwwsQXp6PhmjzmLhsAMH7RnA/ZGHEBov968uP74HXuspO97fQZ
+MxYxKetXJijS9lp1vfNdr3XDdVnnLh8AMG7RfS2x/fIWIOQjo3+b6XIP2Rub
+TFOk5z9d5S77kkVDboLcZQMAxi26zzd/8k5oWcL+ZvRrL02xpW3u8pF0TVc9
+nhHiQSMT9WuBXnKXDQAYr479P+uIFyzKdedd3hWft5lN7rJz97ay9k55Hk6+
+933jhOabjUjUzwHZ5S4bADBODe8Zvnvn4N0wheq9Yt99MF68V1yWk9ijWNFE
+RZmDoO+euFvPivGJ+r1HtrnLBgCMT3TLWbjLXU7GJ/rve/e1ii+scpedu7SP
+494ZxowT47s9Pw3XzRxBAOA70Zz/2LsGOom0vOePxo8wLmGu0Gw1XD/XDgD4
+S/Wur20+6SZ3OZmGsIYZJqv6/nZZf3Zq7xkxHeIEAEAX0b6vlfEbvYWc6DAp
+YS+TRRAnAADaRMM+ypVd7jIybZG+x/qb3GWHJai+o/ue39EiBrjKXXaSrrc4
+AQBQq3rf2/Tu6Dl3GZmPw/GQOBbxrhJuoIjFJcbw1rnLzqDrLk4AANRq6R/u
+jc+4hUjLXbDNXW6Yi/i2/0TfNUHy4c9AwzXe5C4bAJBXtO9vsM5dRuZrwDhl
+k7vsMGXidDS8I3CdAWDhonk/7Mfc5WMZolz70jSvxbxnuIJI27O0iOWZVzYz
+Dffcp9xlAwDyqfqL1hswGiGPGtxEpOcRXeUuOzdrE9u653/usgEA+bTMJdjk
+Lh/LFfZlg6sI+5JS3zaa3hW4lwLAAkVzXoLn3OWDKHMX1L3vaooXbHKXHXI7
++f70jbe9z1127tZG3jS0BbkqAWCBWt4vrXOXD46q96FPPeMFL9oxS1W9J+4T
+H/hqPs4yNbSTXe6yAQD3Vb1nqh1f5S4fXFLNgWlaK3NJEV9Y5S473IPvCAlt
+pi4G+yV32QCA+4rmNYmb3OWDJpGWr/3Ru1LmypwbBrSdpv6AtQcAsCDeHzB1
+Ye01HL8Hjz3jA3vxYI6ieX6h/REBYCFa+gS73OWDPkIudxYq7AnClbTMRVnl
+Lh8AcHvFPEJzDJmbsDc8C1G19X3Ptr7T1qkTzWsPdrnLBwDcXtTPUbXmgMmr
+4mApYyjvWBm1KPewS4mFrXOXnfFruW+ucpcPALithn6mdYjMRqTlLtjmLjec
+i3Kt2K5nfKAY85kfRmfVPbM23pS7fADAbTX0A7a5ywbXZHzF1Il3cS/V/bKp
+rbkvAsBMRZnzra4PsM5dPriFMF+biana7L5nmy1iYtbPkKxlTsEX7QsA5inK
+/Fd1fQDPf2Yt0vK/PeYuN8vTs50WMa1V7jIzDy1t7zl3+QCA64tyH62Lz//c
+ZYN7if77yb3PXWaWoyWee75GZp27vMxLNO+JVNjmLiMAcF0Ncwqfc5cN7inK
+tbh1e3/4fpBNlGsOmtrjF7ErbulwPLW0wU3uMgIA1yNOAN+LMmdHW5/4OXc5
+WZbD8VL3LjesEePGoj2n4VdzWQBgPqI+9/tz7rJBTtVc77qx2SZ3+ViWeJ17
+s7h3r3KXi+WI9vUvX8QKAGAeoj7n+zZ32WAMiphAfMvjZY85YLEa5iCKowLA
+jIgTAABdNcxD1IcAgJloiBPscpcNABifhjVZp57kzgCAaWqYQ/icu2wAwPhE
+mdewS6ygWKv1kLu8AEA/4gQAQF89YgVfq7mLq9xlBgC6aYgT7HOXDQAYt475
+CuzTAQATUswHrHue5y4bADB+De8cmuYXbG5UljdV32Zb5Uh4bpn38FL9zFP1
+O8XvvsldpwCQUzTvh+w5CQC0qvoTX3rGC75U4/NN6jyDKi7wvvqcvn+/S9ne
+mwMBwBI1PCM3ucsGAExDlDkLngaOzYt3+7vq3f62iiGsT/7v03kC14oJdPEi
+ZgDAkhyOfc0z8TF32QCAaYly7n5d32IOijjGOnc9A8AtRX0OopfcZQMApql6
+93/NtQBj8yxeAMBcRTmPru4Z+EPu8gEA0xTlWoSin7Efwbj+lvECOZ0AmJUo
+cwDVPfsecpcPAJi+KNcjDMlf0Me+Gr9v49s+BuszDyf//fkKsYzH8H4FgBmJ
++nmB29xlAwDmI8o5BsUYfXeFsfnRSzVOfxgyVj8p22Ni2YrfWeeuYwC4hob4
+/nPusgEA81WNzdfVe/3H6t3+0ZeT8ffx356qn31/6zF5lHMuHxvep9TZ5q5X
+ABiqet5ejIvnLhsAQG5R7tHYZ47B05C5DQCQWzXH7uJzLnfZAADGome8oFgP
+scpdZgBIUc33EycAAOgguu/7WPyM/RAAmJwi1t3wfFvnLh8AwNhU/adnsQIA
+5kqcAACgv4Y8T2IFAEyaOAEAQJpqDWfbOoQvchsCMCXiBAAA6aLcR/GlQ25D
+sQIAJkGcAABgmCIG0CFWsMtdTgBoU8W/655l1tIBAHTUMVawyV1OAGgS9kUE
+ALiaKlbQlK+g+G+r3OUEgDpFTFucAADgeqr5mk2xgufcZQSAOofjsS7XTu6y
+AQBM1eF4aFl/8D53GQHgkiKeXfPsespdNgCAKWt4H2OvRABGq+HZtc1dNgCA
+KatyFez1twCYipb5cOvc5QMAmLqmnNFyGgIwNk1z4XKXDQBgLg7HzpwCAKag
+IQ+v3AQAAFdSzBlo6HfJUwDAKLSsOZB/FwDgiop5A/peAIxZwz4HX62TAwC4
+riqnYV3fy37UAGTVkk/HmgMAgBtoyVPwJnf5AFiulrkED7nLBwAwR0UsoKEP
+9pi7fAAsU8tcgn3u8gEAzFnR37L2AIAxaXg2FTa5ywcAMGdFzkI5ogAYi5Y8
+u/vc5QMAmLuWtQeb3OUDYDla1ht4LgEA3EnD/E45CgC4i2ofni8NMYLn3GUE
+AFiKYn8pfTIAcqliBC8tcwnswwMAcCdNOQpylw2A+WuIVx9tc5cRAGBJWtaD
+rnKXD4D5Ohy7lhjBc+4yAgAsTTXfs65/ts5dPgDmp3r2tM0jKPIV/JC7rAAA
+S9TQR3vIXTaAuSvmblVzu4p1YNsij2zxHr3GtrKZaiy3Ot+2fARf5CQAAMin
+ob+2zV02gLmpYgLbatzflOO/q301f38z9vVi1bl3OedN7rICACxZ1VcVJwC4
+kWJ+VjWWv0ZcoM1LFYdY5T7vk/Mv1hk8diz/Jnd5AQCWTpwA4PqinF//eKfY
+QJ3n3OPuKkayFyMAAJgOcQKA66niA7uMsYFL9tUcg7vlBYxyjUHd8+VcEUuR
+EwcAYCTECQCGG2l84NJ4vJjjsLpRHRTrCzbRnqfwPIYhZyEAwIiIEwCkq8bG
+2yuN4Z8rj/Ftb4OjXfXf+ozBmxSf837oGL06/9T8C8XeiPY+BAAYGXECgDRR
+zq3fJ47Tn6vx/zplrFyM76N8d78bUIbTGMVTVZ6HqkyrmvNdV/GFxwExi+Lv
+vc99/QAAuKyhn7fNXTaAsYq0OQRP1dj+6u/Qo1z38P4KMYNbe74UgwAAYDwa
++nLr3GUDGJso59n3eY/+Je68T2H1zn83gpjAqb3nCgDANIgTAHQT5Vz/rmvw
+i3HxJnN5VyOIF2SvBwAA+mno29mjCqBSvaPvEiM4zh8YTX6+KOdA3HtNwk68
+GQBgmkIeQ4BGUeYU6DI2Lu6nq9zlbTmXYk7EkByETfGRm+VfAADgfsQJAOp1
+jBFMMn9/fNvTcFs9C/rMN3iu5gwM3lsRAIBxaYgT7HKXDSCn6JaPYD/HcXJ8
+2wPx1Cp3uQAAuL2o39vrOXfZAHLpGCN4McceAIC5qeaMXuwD5y4bQA7Rbe/D
+nRgBAABzVM0lresHz24uLUCb/7+9+8dtI2kWAN5H8N6A2BMY2Asw8AGUbM5o
+Y2VfynBDhW8zxRsp34QHcKALGGD4IkM32Md+bH2iabJnhhyy5s+PwA8wYIms
+aVKCqqa7Ku378VVrBNExAgDALVX+Fh5dXy6Aa9T2WBUv0TECAMCtVfbXbqJj
+A7iX3KevoSeBfgQAAMxC2s/SPvd3sb+JgVlI5+e/vM8+9PsQAIBZaOhR4OwB
+MHm7x0PDeYNldIwAAHBPlb222+jYAG4t/66r1AieouMDAIB7KzO+3EcDZmf3
+WFV+/22j4wMAgAh5BmLl7+RNdHwAt9Kwl2AZHR8AAERp6OG1jI4PoG8NewnM
+QAQAYNbsvQXmpmEvwSI6PgAAiNbwN/M6Or7gtflUZkM8pv0syU1Rm7f+/jW5
+/8O6fP8i+lqAxlkvz9HxAQDAEKTm2WCfo2MMWI9cE3htWJeutqV2sFI3gBip
+3r91Vr/rAACgJtX7FOR8+VN0jDe+/oeSP9T2CfTttexTmPTawpBUfsZfo2MD
+AIAhSfXZB5Ps7ZX2ZwrWqX7u4l5yjWIZvSYwZam+d2oVHR8AAAxNyZmruWx0
+jD1d5yLV9x5H2qgXwG2k/Xmicz979vUAAMAJqflM/mN0jFdc2/v+gehagHoB
+BKj8fpvcfikAAOhLudfedEb/KTrOC67rocV1tcndn0utIfcVWJ6wKv//Phvh
+2tfMr+c+J1wp7euEk6t/AgDAPaT63LD/5q/Rcba8lpwbvFyYo7+UesBVPdBL
+7WVVcv7tBXHkWsND9FrCmDX8XjPnAAAAGpS8til/HfQchHTZHoKXW+fkad8z
+8umC2OwtgAul82eO3qJjAwCAsSj30kd5rzvV+5WduoacQywC4lyl5p4Qx7UZ
+9z6ho3R+X9EmOjYAABiTyj24U/fhw+91p/3e4m3H+sBQ4m5bL8hxL6NjhjFJ
++34hp36e1tGxAQDA2KR2ZxBC8+7Ufdbh8xDqA2fWuu15hFV0vDAWlZ8rPQwB
+AOACHfPXu9ULLqgPbId+Lz7tey+2PTexio4Xhi7VZx0so+MDAICxSvv+e9sO
+Ofn7ffte+xeUv/lz3WJzQSyD20NQuc62fRhX0bHS6v3MNa1lg0V0nFOU6rMO
+rDkAAFwhXT5n8C1dMWew/J3/eMVrr6LX7sL1zrllm74Fo7y+KUofczDXpZa1
+vfAzm7/3qTzXIvq6xixV+qxExwYAAFOR9ve6L8l/Dr0e5ELrI0/l/7rMAjhl
+M/YcK+1rM88t8kpzEOLeo4fyHl37M1GzLa+RX2s0+2KGIJ3fe7SJjg0AAKak
+5K9n79MFyznVKnqNel7vNrUC+eP93o9leU/a9u3o01u6wZmeqaqs4zo6NgAA
+mKLUvZfgrfOn9VTz5RbrvImOccrSR2+M7QA+64c1scepfuZ7eM8eKmu3jI4P
+AACmrNQLnlLM/dXZ5EotagXr6BinJn3snYn4bKuRXffenetp8hYdGwAAzEna
+33O9pOdg17wo58yz23udmmc96FXQ31qvBl4fOPVzsYpetyFI9XmIL9HxAQDA
+HJW/0/O+37zP4NqehP+W53iaY23gxLpua+sUHePYpf0c0Gs+s/n9ybWydfkZ
+WLZ4zWWxLt9be4/b/KzMul6U6v1TZv07BAAAhqTkQav041yDU97nIKza5Fhz
+U/LYWp64io5xrBryy5qX1PMcw/QxZ/E5XbavYR29nkHv4afKejlzAAAATFJD
+Pmv+Qff1XKTuewg2JY+/y1qX19p0jPG1z9rFGDT8bDxFxwcAAHArDXntOjq+
+sUj7fS5d7tc/R+beqfuckXxty+h1vtPa1PYS/Du3mgkAADAvqX7+wJ6Cdmu4
+Gkt94ETsXesFq+iY77AmT7X3Lzo+AACAW2vIE9fR8Q1ZQ055vHd/sH0BU7e+
+i5P9TKT9vpDatS+iYwQAALi1ck/5XF60jY5vqFreh897Mh6jY+1wTY9t90VE
+x3qDa2+aA6IvAQAAMBsNOa8ZcN3WaxR7CCrX1nZvwXN0rD1f96ah3uMMDgAA
+MBsNewpeouMbkpb33J/HnFeWe+svLa5zNHslGq63qe6jVgYAAMxOQ1442py3
+5zVatcidJ7M/veW+iVV0nDd+T9XJAACAWcr3TKeaC/a0Pp9T8+zDya1Ty9rI
+KK+7xbVt1cgAAIA5q+TBm+jYgtelqcfdaHPlltc/uVpBajerYnT9JQAAAPrU
+sM98ER1f4Lo0ndWfxDn9hjVo05dh8GcuSs2n9jkfZd0DAADgFsre+nN503N0
+fEFrUjuPMat1aZlfb4a6Vz+1n+Uw+boPAABAWw376xfR8d15LfK951pPgk10
+jAFr0qZWkNdsUDMCdo91i7hnVfcBAABoI9XPoj9Hx3fntajlxG9DvW8evC6H
+XqJrS7vHsqH2dWgdvbYAAABD0+Ie+ix6u5X8spZTLqNjDF6fNn0A/1tfune9
+oLx/mw4xrqLXFAAAYKga9mhvouO70xrUzrEPvl/fndaotvfkXL3gZnWmUuNa
+Nbx3p/aFLKPXEgAAYMha7CmYdJ+3hjrJbM8bnFmr3Btw27FesC37Ea6uGeR9
+CqU20DST4mTNK82s5wYAAMClUn0O3tst7wsHX3dt5oP96afX7NOFefr7Z2lT
+ajM531+e+myVekD+v4fytS8X1CcOraPXDQAAYGxSff/269Tuq5d8t5Z7bqJj
+HLKSw1+Tu99DrkksotcKAABgjFLzvfVNdIw9X2/TufZJ7qHoeQ0/lfv9tXMr
+EXL9Yhm9PgAAAGOXmufOP0fH2NN1Pjdc5zo6xjEZUL0g7x9YRa8HAADAlLS4
+z/4cHeOV19dUI9hExzhW6bIZBNd6SzeerQAAADBnad9Drum+8HN0nBdeW1ON
+wHyDfj9HjzeqGWzLe/kQfZ0AAABzkJp7FfybRtTbsNznbspXJzvXIVpZ/2X6
+mF3QpXaQawKbtJ+tuEr6EgIAAIQoOVmbHG4ZHWvDdXxO7fryuzcd9/4sTxhF
+DQoAAGBOWtYK/i33iQeX16XmvozvVtGxAgAAwBh0qBUMZm9BuR/dZg+BGgEA
+AAB0lPfkp/Yz7zZR9YJSH9i0jPPNWQMAAAC4TIdz/od9Dld3iu2hQ33gfe+D
+noUAAABwhbTvW//SIR9/v2//XHL53noYlL0DTx32ORzudxhcLwUAAAAYq93j
+8YL8/DBPX5e6wbLl630uX78u33/Ja+fveYxeOwAAAJii3WPRca9/m3MKmyN9
+PXd+rkX0mgEAAMDUlf3/rz3m9H3aJr0KAQAA4O7Sfn7iUOoFuT6wil4TAAAA
+mLuyv+A5qD7wYv8AAAAADE/az0ZYldz90p6HbWsDua+iGQYAAAAwEmWfwbrk
+9dsLawK53rBJH/MS1AYAAABgItJ+3uEyfcw8PLYq/7+MjhUAAAAAAAAAgOnY
+PX7b+c/OX+X8yq/RMQEAAAD3UWoC2T8nelx8j44PAAAA6NfBHoF3bXth/hkd
+OwAAANCP3ePLlXM0f4++BgAAAOB2cr+Bg94DTX6JjhcAAAC4vd3ja0ON4O/o
+GAEAAID7yL0HGuoE/4mOEQAAALiPFnWC36JjBAAAAO4jnyuo1Ai+RscHAAAA
+3M/u8d08RAAAACCfKTAPEQAAAMhyj8JKjeB7dHwAAADA/TTMRDQPEQAAAGZi
+9/jFPEQAAAAgy70HGuoEv0THCAAAANxHnmVgHiIAAACQmYcIAAAAZC3mIf4W
+HSMAAABwH+YhAgAAAO/yzEPzEAEAABiC3WO987azKf9+2FlExzUXLeYh/h4d
+IwAAAPOxe3zaeT2To+bawdPOaudzdKxTZB4iAAAwdLvH484yOg7u+p5/KnsK
+avmq2sFt1t48RAAAYLBKvvieo+S88aXUDeSDE5ff4w61ArWD/tb9a2Vd/xMd
+HwAAMG/lbPq5nGW781xywUV0rNzk/f98YZ2gVjuwP+X8epuHCAAADFqpA7TN
+A7f2G0xPqQP1VSs49lo+Y2oH+7W+eB7i7vFXX+9L9DoAAADDVXL/S/ONw575
+y51P0dfDxZ+DW9YKzn1uzllXrMpn7aTodWyxzrV5iH92eJ5f077m8E/LNf+n
+fL0eiQAAwFmp3z3nx/ePcz5nz8GIpG57S8Zok4LPz+we3yvxdZ6HmJpnLOb6
+gLMMAABAKzlnKrnTPfIzPe9GYKK1gnxW5mEAa9v7PMSGOoGeiAAAwEXSfubB
+Q8nlX++Uu23Swbn15MzCYNzxM3BLb+XzvIhez4N1rc1D/PvC5/zjxHPlPQtf
+oq8XAACYjlI3WJU8fnvH3G6bPs6n59dfRq/FHJX3f6y1gm357Ayu7pR6noeY
+9j0Kjs8x5Nf4NfpaAQCAaUsx+w2O7w1vyuvnGsIyOb9wj/f8bQB5f1vPacB1
+pdTcR6BzD4ETdYfci0CfQgAA4O5KDrksOfsmOD/cpo8zDDmehxLbInqdxi7t
++1wOuVbwVt7zwb/XqT4P8esFz3c856D1rAQAAIB7KDnlquTrQ9qz/l5HeEkf
+s/Xeawn2JPz8Pi6LVVmr/xnAe3gsv5+r6LXquK69zEMsz3VcI9CvEAAAGIWS
+bz4OsHZQqyds0sfehHfLQ9Hr2nLtPx3F/XB0TS8H1zvkPQOH8vsyytpO6mEe
+YtqfXTg8a6BfIQAAMHrpx9rBZgC5Z182Ffla11c6zOuPDb0Gc41tuf7B9SXs
+8Jn/rXJ93zs8x7eD78v/7tzTAAAAYAx2j0X6uN/9MvG8l3Y2Ow/Rn82ePt9X
+zUPcPb6kH/cj5D0F+hUCAACzk/Y9D5ZpXz94TuPaI093b+V9XkR/9nr+HNfm
+If7R8L3H/Q8b6woAAABzlH48c5/nJW6SfQhjtU37syijPVtQ+Zw2zUM8uy8g
+/bwPwUwDAACAC6Qfe/it04/n+9US2ntNH/0V/vcGz5+fexn9ebnxZ/H3yvWf
+nIeY9rWF45kG1X0HAAAAXC99nGvI1gc2B7YDyNf7zvuzwzmRjwfrsDizTn3G
+kc8XTKL3QIvP2F+VdfhpnmH6uV+hmQYAAAADlvY9F5epPnPwWG1WQVvPDa/x
+cCKuXvbxl9fuq0bw1FdcY5Dq8xB/O/ra470H34+/BgAAAKKlfnpHbtPEzxic
+WLfW8xDT+ZkI6gQAAAAMxu6x6qFGsI6+jqC1O55VcOiv8jWnehH89HUAAAAw
+BGl/ZuLS+sAmTWzGYce1q+X/+YzBl4ZzCe9nD87ORAAAAIB7SfteDJfUB/I5
+hVV0/MFr1zQPsbbX4Kevjb4eAAAASPs5CF1rBHn/wWz6FFbWrjYP8djfDfsK
+vkVfDwAAAKRuMyHz1y6jYx6KdL4v4bE/Wn692YgAAACESfu5im1rBGt7CH5a
+v28Na/Y1HcwySPXZCP+/5yD6mgAAAJiv3eO5RX1gs/M5OtahaZHzn5xhkOp9
+D7Nfo68NAACA+cl7A9K+F+G5fDX/32N0nEOV6j0Kz+4LyGcQGuoE+hkCAABw
+d7vHqpKr6lPYvH5/X5Lrp/2MhFo/w+/R1wYAAMD8lPMEp/oUPkTHNnQtcv3f
+Gr6/qZ/hH9HXCAAAwHzsHosTuemTPQSt1682D7FxP0CL3gb/RF8jAAAA81Fq
+Au856WvSp7Dr+tX2A7SaWZCa+xlW9yQAAABAX8r5An0KL1+/r9f2IWzYk3B2
+XgIAAAD0Le17GC6i4xij3ePXvvYB7B7fGp7rl+jrBQAAAM5L9XmInWYVpB5n
+JOb9B7mGEb0+AAAAMCepPg+xVW+Cg+fqZUbiQe2i0+sDAAAA12nI61vf/z94
+vtr+hMYZieUcxHtM9hMAAADAneweX/qeUdBiT8G3hu9/39/QuUYBAAAAXC7V
+5yF26k1w9LwX7SlIHzMTvul5CAAAAPeV6vMQL+4N0KZPwfGZgrx34eD/f49e
+GwAAAJiTksv3MpvgzPM37Sn4+n6uIe3nJLzXFf6KXhsAAACYm9Q8w/Cqff+l
+DvGt4TV+6l3gvAEAAADcX6rPQ/za02v83qFG8D1d0DcRAAAAuF5D/4A/e3yd
+Wj3i0JfoNQEAAIA5OuoZeEqvfQR3j38a9hGoEQAAAMCMlH4Ih/0Kvl7bKxEA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA47/8AGRJhZQ==
+       "], {{0, 747}, {
+       1034, 0}}, {0, 255},
+       ColorFunction->RGBColor],
+      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+      Selectable->False],
+     BaseStyle->"ImageGraphics",
+     ImageSize->{120.37812500000047`, Automatic},
+     ImageSizeRaw->{1034, 747},
+     PlotRange->{{0, 1034}, {0, 747}}]}], 
+   TraditionalForm], "\[IndentingNewLine]", 
+  FormBox[
+   RowBox[{"\t", 
+    RowBox[{"=", 
+     RowBox[{
+      SuperscriptBox["e", "3"], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+           RowBox[{
+            RowBox[{
+             SubscriptBox["p", "2"], ".", "\[Gamma]"}], "-", 
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+           RowBox[{
+            RowBox[{
+             SubscriptBox["p", "1"], ".", "\[Gamma]"}], "-", 
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+          SubscriptBox["\[Gamma]", "\[Nu]"], 
+          SubscriptBox["g", "\[Rho]\[Nu]"]}], 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["k", "2"], "[", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{
+               SubscriptBox["p", "2"], "-", "k"}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              SubscriptBox["p", "1"], "-", "k"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}]]}]}]}]}]}], TraditionalForm]}], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1274750049],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"numerator", "=", 
+   RowBox[{"Contract", "[", 
+    RowBox[{
+     RowBox[{"Spur", "[", 
+      RowBox[{
+       SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"p2", ".", "\[Gamma]"}], "-", 
+         RowBox[{"k", ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"p1", ".", "\[Gamma]"}], "-", 
+         RowBox[{"k", ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{
+        RowBox[{"Projector", "[", 
+         RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"p1", ",", "m"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Rho]", ",", "\[Nu]"}]]}], "]"}]}], ";"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->249121296],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"formfactorF2", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{"numerator", ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "0"}], "}"}], ",", 
+       RowBox[{"Cancel", "\[Rule]", "True"}]}], "]"}], "/.", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+        SuperscriptBox["m", "2"]}], ",", 
+       RowBox[{
+        RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+        SuperscriptBox["m", "2"]}], ",", 
+       RowBox[{
+        RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           RowBox[{"q", ".", "q"}]}], "/", "2"}], "+", 
+         SuperscriptBox["m", "2"]}]}]}], "}"}]}], "//", "Simplify"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{"formfactorF2", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "0"}], "}"}]}], "]"}]}], "Input",
+ 
+ CellLabel->"In[2]:=",
+ CellID->74710904],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{
+    RowBox[{"q", ".", "q"}], " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"q", ".", "q"}]}], ")"}], "2"]}]], 
+  RowBox[{"4", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"PVA", "[", 
+          RowBox[{"0", ",", "0"}], "]"}]}], "+", 
+        RowBox[{"PVA", "[", 
+         RowBox[{"0", ",", "m"}], "]"}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "1", ",", 
+           SuperscriptBox["m", "2"], ",", "0", ",", "m"}], "]"}]}]}], ")"}]}],
+      "+", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"q", ".", "q"}], ")"}], "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "0", ",", 
+           SuperscriptBox["m", "2"], ",", "0", ",", "m"}], "]"}]}], "+", 
+        RowBox[{"4", " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "0", ",", 
+           RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+        RowBox[{"2", " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "1", ",", 
+           SuperscriptBox["m", "2"], ",", "0", ",", "m"}], "]"}]}], "-", 
+        RowBox[{"\[ScriptD]", " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "1", ",", 
+           SuperscriptBox["m", "2"], ",", "0", ",", "m"}], "]"}]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "1", ",", 
+           RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+        RowBox[{"2", " ", "\[ScriptD]", " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "1", ",", 
+           RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "2", ",", 
+           RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+        RowBox[{"2", " ", "\[ScriptD]", " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "2", ",", 
+           RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], ")"}]}], 
+     "+", 
+     RowBox[{
+      RowBox[{"q", ".", "q"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"\[ScriptD]", " ", 
+         RowBox[{"PVA", "[", 
+          RowBox[{"0", ",", "0"}], "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"2", "-", 
+           RowBox[{"3", " ", "\[ScriptD]"}]}], ")"}], " ", 
+         RowBox[{"PVA", "[", 
+          RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+        RowBox[{"8", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "0", ",", 
+           SuperscriptBox["m", "2"], ",", "0", ",", "m"}], "]"}]}], "-", 
+        RowBox[{"18", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "0", ",", 
+           RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+        RowBox[{"2", " ", "\[ScriptD]", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "0", ",", 
+           RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "-", 
+        RowBox[{"8", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "1", ",", 
+           SuperscriptBox["m", "2"], ",", "0", ",", "m"}], "]"}]}], "+", 
+        RowBox[{"2", " ", "\[ScriptD]", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"0", ",", "1", ",", 
+           SuperscriptBox["m", "2"], ",", "0", ",", "m"}], "]"}]}], "-", 
+        RowBox[{"2", " ", "\[ScriptD]", " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"1", ",", "0", ",", 
+           RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["\[ScriptD]", "2"], " ", 
+         RowBox[{"PVB", "[", 
+          RowBox[{"1", ",", "0", ",", 
+           RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], 
+       ")"}]}]}], ")"}]}]}]], "Output",
+ ImageSize->{567, 143},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->326946533],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"2", "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"q", ".", "q"}], "]"}], "1"],
+    SeriesData[
+     X`LDot[$CellContext`q, $CellContext`q], 0, {}, 0, 1, 1],
+    Editable->False]}],
+  SeriesData[
+   X`LDot[$CellContext`q, $CellContext`q], 0, {2}, 0, 1, 1],
+  Editable->False]], "Output",
+ ImageSize->{72, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1727211105]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "e", " ", 
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "2"], ")"}], 
+     RowBox[{
+      SuperscriptBox["\[CapitalGamma]", "\[Mu]"], "(", "q", ")"}], 
+     RowBox[{"u", "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "1"], ")"}]}], "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         StyleBox["i",
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], " ", 
+         SuperscriptBox["e", "3"]}], 
+        StyleBox[
+         RowBox[{"16", 
+          SuperscriptBox["\[Pi]", "2"]}],
+         FontColor->RGBColor[0.6666666666666666, 0., 0.]]], " ", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"2", "+", 
+          RowBox[{"\[ScriptCapitalO]", "(", 
+           SuperscriptBox["q", "2"], ")"}]}], ")"}], "[", 
+        RowBox[{
+         FractionBox["1", 
+          RowBox[{"2", "m"}]], 
+         RowBox[{
+          OverscriptBox["u", "_"], "(", 
+          SubscriptBox[
+           StyleBox["p",
+            FontWeight->"Bold"], "2"], ")"}], 
+         SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+         SubscriptBox["q", "\[Nu]"], 
+         RowBox[{"u", "(", 
+          SubscriptBox[
+           StyleBox["p",
+            FontWeight->"Bold"], "1"], ")"}]}], "]"}]}], "+"}], "..."}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1482713304]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->550115903],
+
+Cell["\<\
+Obtain an asymptotic approximation of loop function whose numerical \
+evaluation can be unstable:\
+\>", "ExampleText",
+ CellID->880881386],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"me", "=", "0.0005"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"m\[Mu]", "=", "0.135"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mq", "=", "1.2"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["me", "2"], ",", 
+     SuperscriptBox["m\[Mu]", "2"], ",", "mq", ",", "mq", ",", "mLQ"}], "]"}],
+    ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "0", ",", "30"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", ".15"}], ",", ".15"}], "}"}]}]}], "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1295589896],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnX14E0Uex+e5uz/uefxDnnt8vIdHEU88lTsvgmcVmhYoekpFKG8nIkV5
+OcuJ0JaXqrEoUF8gylFXe7bQQoBSoLSAKS2lRyNeaiG0BqWAAS7lPdgGCBJb
+AsQ299tMsmyyu+lumjTJdj7PJs9kdmZ3svPd+c3svOwfZmZMSPsVQmjhb+Fr
+woy3khYsmKGa+Bv4MVK16LWZvwbHP+FTCR/a7SIQpOKw2+yOSCeCEHVY9BRy
+o1Bp7b67HGd0aUkK2EUZbV6vpjTkJYmycY5GkA+OphSENCYoNKxqhHL0Vp+d
+FqNOr1chpL6tDWMSQlqz1Wa1Wm12ngMS5IK9CQoNCudxE5WEVHpOEEeBwk8b
+SQYiil4AWxsWHZQQXDNhp3y1kYLtSVqBmShE1rC1YRWjDZfL6YSaq1kD1Y7U
+MicrHFMNCXuiCT2C3UghBdum6LhBCny1gXGaChBKM7PEQVQhN9x10TI6j61Q
+Pqh0VtpsaDVaI1MptYE/q47qxHIwa6HgULMVQ7QhPyw6tacNm4nbsLQRUVBG
+2tVUwFiKFLePy25I8ngoNAafRg0xKLLEaYcmqdiapYMObOM+KSPCIAhBtEEQ
+gtgUghBEGAQhiDYIQhCbQhCCCEOeSBy/4Q7u9PMk2pAf0sZvuJx6Cve2IZXW
+zA5MbIrckDh+w2HSIJRqoh+x6xRIoWc9NCfCkBlSx29AGIXayPirWFoi2pAZ
+UsdvGG9rwwnBFWoDE4700csMqeM3WNpwcbUR/vQSeg6p4zeMlAJ30WJ/d5++
+B6INuSFx/IaD7rXPpIPb9ElIwZIGaafIEGnjN6ANq/a0YTPLTOzjEGHIEknj
+NwAIbrOTZ18EsRCbQhCCCIMgBNEGQQhiUwhCEGHIk0B99A4bt03CB9GG/AjQ
+R++06FO8+0xYO8JrLBCbEuVYrW0jhq2WECFQH71Dk4RSNPQDLn0O/WzU7Se4
+xgIRRpRz8aJ9eKIEbQTqo3cvp2B0FxcOOliO1RVojQWijSjnouVa0Nrw76Nn
+y8BSjbBbeI0F0kcf5WBtNDach01M+EB99GxtWHXI6w6wxkKo/gUhHGBtrFvb
+CJuY8IH66HltiheyxkLMYZGojYB99Haoi6aV0QOGDWpGNoHWWCDyiGYkayNg
+H73TovO0YZG3DRtwjYWQ/hVCiLlwgdbG2qJGzbpvxccK1EfvtPutqEDWWIhR
+ampOBqGNkEBsSpRTX38mgtro4TMShNiy+XvY/Dzrv/FoY72GaKP3krO0dvlH
++/w8v6k7HUFtEHlIZc3qg1WVpq7DieD8uZ+Yx56Ls2tWfLSvvf2W3X6DCRBZ
+bfTwGWXAwgVV+V8cCMmhWlt+ZrSR/U4NlBu5q+pAJPDzxg0n7AIrA99FhQ3r
+NcaQnFE8RBsiMZsv41t45IjCBfMr/513ANywbS8/IhRlT/WJkycvQSEA30Jh
+WtjaUNHlxqp/1b3w/HqXuwcWdv19Ygk+UUS0QeQhhuKNh2an7cDZBNrI+2w/
+dq9aWScU5ZXU0vLyI1/vax6drOHuNZmshw5ZGG3A96KFVbjcAHdHR2drK70r
+I30XPhH4h+/f8RISYYRKXdGcGNDGlMlbcDaxt6VL9rKDgWygNgKZfulS27Sp
+pXCQmpqTUNQwASDKyRN0MfIZVa96e09BvoHRxszpZcvd5Qa4t5U2HTScA0dm
+Bq0NOM4n6v+G5H+Jh30F/K5GgJ/iQ8rgFJuKv4N8hJ+MHthuqCSwI6bPrcB7
+878wTJ2yFdzUp/U496e/so2JqFn3LT7m9FfLGG3Az48+9GgD3HCoiGgDEWKW
+nlGIi9RFXS5drRluTGhLNpuvcE2GmC1nmacf/Pr1W9jKuMuNA2CDCtc0MMGg
+oGDHGvXsWsa9v/4sdkC5AYaGHSxjXgV2fPJxJG1Kb+CHY63v5+gqd5mgMMeF
+dvc3Jtdw7kPhLybWuLEbef2zFu3m10Yk6huyl8fGDUZcjdxc8l1IxMDdJk3Y
+BN+474O9/e3pIqmHmvuGlv1z3lxtBLXRw2fsGU6dunL27FVoNTDXNqwbrlKG
+dfuYaENgrUvx/GPW9mCvf35CPJU8SsP4vDipZOa0YmV8nqTjDFNSCRKjCCUm
+QZnP+Kygu1rETjsKCd20Ke4VCD0kURIf3DnPUGkpvhEF17r0o7OzE3c6tLff
+LC/S9L3zHojy4OBcfBkT//oqk6o+A7K5Vx5al/C976tm+H5mZCHIyRPlz/TX
+fQPfw8GYSUB39JuTwIo+a0Y5dqSM2eB7ZGrg3d4T35n8RLyoxPBsyuy76LPS
+f6pP//RErI3sz/2nHYWZbpYb7lHNKpMNT3yRqGinRa8zlKkUzFpkAda6dDo7
+sKOx4TzczuwrmfhU9mOKrPsQesCrjYTHJyOUPGrMmgkTVivj89Urvob2wjd1
+pwOkxWE1myz0Fbfqc+Af1RgtzcfqmElAyxG6X7GSOWN52ZHh3ocSvlvek48v
+c2el+n7Q2F/UTGLihubGD1kJiRFXaOTFD6Fox5B0hO4ZRGss78UBnGlHYSYU
+2qC68+pI1vqWPGtd3rjhxAMYuFvJpu+gzXj5Uru7APFZM7M7qXLQw61TQRH+
+k4D6ZcFJr11zGL+9sLvq+MTxxeD/7DNrhTL34TvRXQ8t82pjcoIoSXC2p+Yg
+lPhkAl2SDECDhYaIh4lu2hRm/ag0ShdcXrDXMMTujo7OZnPrgmT0u7jlTD0f
+HCaTtbn5CuzlTQjlo42gU+UoS0Mos9rJMwlIfdl76qpK05jRdHfYgf1nefM0
+MW4WnP3Rp/Ld2piKE9N3wHzxCkmMS7/37kEQ63534YO14T/tKMx0uy7qdDqg
+PNZnws1WEqiGIASjDag5bH4zvu/oorEvbHj5pS1vPIP+mLEL7tO2tpu//NLR
+1WH83nkaXKrsWoigUFvwj64X6nQdP27ly9bZcFUfUKi9PvnDlHnxcVn3IvT7
+Rz4QqY1h8eonBmc93A/kkcyUG9xpR4JE0zx6kyYFpZYFUUU6tGrEg/N2L3l3
+b/Jz68bE9e83bfOlS23ctS67gv+dp5JSpQM7nlrCXHIRC3XS+OXphGTVHQg9
+/DjFze64hwahu2cnSjMralDUA4NyJdmUaJlH75n44qAnvuQYugjsy4UL14o3
+Hkr800D02DLtl8ccDmeAtS67wvedp9JThc2Q1myDG86Gp5PzTALi4aUXN7Oy
+MnfcI1B5nKNUUsqhuQlKt2cCrn/mPdoXof5vi6yLehrOQ+aD0gbGgZuCuihn
+2hEfUTOPnr65PDrMNFjFtlOg2rB0yd7Rzy19jFFsSgGemim01mWgNHDWzAwi
+VU0Fqeg2KfgO5UwC4gEqpbfzVJn9JOsodz1It4UTBk/2/L7j6cFDxLVTlNl9
+6PDuZm9/T/N5RXau/7Qj/qsRPfPo3bNkbGIrRqdOXVkwvxJqFKVbD0MbhDcM
+71qXYU1VVwcKdBxmkA80bOmfn+/n5HV+wtCV8UN5rEyg+kZCntK3zUs/F+VM
+O+ISi/Pobbbrq1bWQXOjvPwI87BCHuC8azhIz3PHo7Z4tw/f/0qSPPy2t96s
+5jm3w2ZhA/dDrM2j31N9AsoKuKfYI6hlw3uL/zPcO+azcE1D+tyKw99f9MvZ
+aVNLq6qOd0cb1Kf13FM7zNWZaZkqD5mZ6uqLsTOP/upVx+LsmpnTy06f5jYB
+ZUJT04+MNooKGzLSdx0+TPssWlg1ckQhOHKW1oI2XDzPUSVsn1E82uAhRubR
+NzaeHz+uOP+LAzIzIn4cYWkD/ilsra0/QwEycsQa8N+x/Sge0cGEx8M8Xp22
+LSzaiPp59J2dndA+BWHAHRSO40cVbW03DYZzvLuguNi546ifJ9bG1i2H/XKf
+d6xyYJsiRNTOo+/o6Fxb1Jj22g73U6xeDcjm1q1f/DxBLWNGrwfrgzM9a2EV
+djC1FN9nJsFoIySEw6bAv85atPvmTf9rQvBj+iu0WYEqGc59s/kydmwu+Z6R
+BASblloaKW2E8GhgSj75mLat3JuFwAWPFsNzlPBFO3fuKjhKSz3mpnIX/QCw
+tvZ/MtDGBzk69YqvSYkhkhlubbS334SmPbuyWlVpwtrAM7J37jwW6zYF1D5r
+RrmjG8P5ehvZ79S4tXELSgz25OsK7Q9sbeD51LFbbuDmKhSPITlaLwFq7JDp
+16/f4u4aTk9gWVdTcxLc2OiUbWuScOioeR89tEfGp2zsDc3V0ALayJhXwbsL
+xNDS4rnRcLkh1P3EJareRz/n9S97fjUqGeB0dghV2uk6qlcbeLEFsdqIpvfR
+g018bdZ2EUOzCBLA7RfslqSN6Hkf/eXL7WNGr282X+nOQQhcQAxnvD1QWBsi
+W3/R8z7693N0YDSDi0sQCX7owa8NSX30HnriffRHj7ZMmrhJfB2JEDRC2pDW
+R++hJ95H/8brX+7ZcyLo6ATxSHjUHAXvo29sPD91ylaB2SKEECOpGyLi76Of
+O0f7lS6YCSmEIBBfF8VE8H30R5p+fHnKliAiEoIjIt2XwdmUxdk13CErhPAR
+KW1IjdLS8vPYFzaQ5klPEivaWLP6YN7n+8ORGIIQMaENaJiMH1d8/txPYUoP
+gZeYqG8c2H/29dk7w5ceQvQgtdxYtqS2ouKHMCWGEDIkjt/gRZI2HA7niGGr
+ZTk3TU5IG78RojUWdLXmt3lnZRKiB4njN0K1xsKSd/fikc+EqEXq+I2QrLEA
+9eTnR2muXeuR5QsJwSJ1/EZI1lg4derK1i2Hu594Qijp9vgNl/AaC4SYpvvj
+Nxi4aywQ5IbE8RsB1lggyA9p4zeE11ggyBJJ4zeE1lggEAiy5P//n4mX
+    "], {{0, 104}, {
+    180, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{180, 104},
+  PlotRange->{{0, 180}, {0, 104}}]], "Output",
+ ImageSize->{184, 104},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1859834061]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Clear", "[", 
+   RowBox[{"me", ",", "m\[Mu]", ",", "mq"}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"approx", "[", 
+   RowBox[{"me_", ",", "m\[Mu]_", ",", "mq_", ",", "mLQ_"}], "]"}], "=", 
+  RowBox[{
+   RowBox[{"LoopRefineSeries", "[", 
+    RowBox[{
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", 
+       SuperscriptBox["me", "2"], ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", "mq", ",", "mq", ",", "mLQ"}], 
+      "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"me", ",", "0", ",", "2"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m\[Mu]", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", 
+   "Normal"}]}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->641028199],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{
+    SuperscriptBox["mLQ", "2"], "-", 
+    SuperscriptBox["mq", "2"]}]], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["mLQ", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["mLQ", "2"], 
+      SuperscriptBox["mq", "2"]], "]"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["mLQ", "2"], "-", 
+      SuperscriptBox["mq", "2"]}], ")"}], "2"]], "+", 
+  RowBox[{
+   SuperscriptBox["me", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"5", " ", 
+        SuperscriptBox["mLQ", "2"]}], "+", 
+       SuperscriptBox["mq", "2"]}], 
+      RowBox[{"4", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], "-", 
+          SuperscriptBox["mq", "2"]}], ")"}], "3"]}]], "-", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["mLQ", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["mLQ", "2"], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["mq", "2"]}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["mLQ", "2"], 
+         SuperscriptBox["mq", "2"]], "]"}]}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], "-", 
+          SuperscriptBox["mq", "2"]}], ")"}], "4"]}]]}], ")"}]}], "+", 
+  RowBox[{
+   SuperscriptBox["m\[Mu]", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"5", " ", 
+        SuperscriptBox["mLQ", "2"]}], "+", 
+       SuperscriptBox["mq", "2"]}], 
+      RowBox[{"4", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], "-", 
+          SuperscriptBox["mq", "2"]}], ")"}], "3"]}]], "-", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["mLQ", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["mLQ", "2"], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["mq", "2"]}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["mLQ", "2"], 
+         SuperscriptBox["mq", "2"]], "]"}]}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], "-", 
+          SuperscriptBox["mq", "2"]}], ")"}], "4"]}]], "+", 
+     RowBox[{
+      SuperscriptBox["me", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          RowBox[{"10", " ", 
+           SuperscriptBox["mLQ", "4"]}], "+", 
+          RowBox[{"19", " ", 
+           SuperscriptBox["mLQ", "2"], " ", 
+           SuperscriptBox["mq", "2"]}], "+", 
+          SuperscriptBox["mq", "4"]}], 
+         RowBox[{"9", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["mLQ", "2"], "-", 
+             SuperscriptBox["mq", "2"]}], ")"}], "5"]}]], "-", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["mLQ", "4"], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["mLQ", "2"], " ", 
+             SuperscriptBox["mq", "2"]}], "+", 
+            RowBox[{"3", " ", 
+             SuperscriptBox["mq", "4"]}]}], ")"}], " ", 
+          RowBox[{"Log", "[", 
+           FractionBox[
+            SuperscriptBox["mLQ", "2"], 
+            SuperscriptBox["mq", "2"]], "]"}]}], 
+         RowBox[{"3", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["mLQ", "2"], "-", 
+             SuperscriptBox["mq", "2"]}], ")"}], "6"]}]]}], ")"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{534, 187},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1800600914]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"me", "=", "0.0005"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"m\[Mu]", "=", "0.135"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mq", "=", "1.2"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"approx", "[", 
+    RowBox[{"me", ",", "m\[Mu]", ",", "mq", ",", "mLQ"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "0", ",", "30"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", "0.15"}], ",", "0.15"}], "}"}]}]}], "]"}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1445038776],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {}, 
+   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
+1:eJwdxQk41AkfwHFRzlyDMYbJIipHcuT+b78UMdLmChUpaat1JcWInLmyIpKj
+g0I1GsbZGPFDlthIiUSspbfXRrnv6z2+z/N5vkpn/Oy9eHl4eML+63+f5ra2
++E4Jgt7/e4Vn/4wINYwRgpyHvV6D3EY08KohfioXBicDMWK6swG7xN62ijUL
+w4q7bsn3xgb05ww7rfUKwwnT/N+XKxqQKSLs27cuDEqlH+WsshpQsczlQTpd
+BPQufLQoOdOAghtz64LDIsDzddTzzmI9fsrcUz8lIQqJMnMignvqMburSPyq
+qigEuC10LyvX43GxHaeWjUXBn8/cfF2mHj9H09Z5PUWhyKxNwWcRcchX2Ey6
+UhTcndaqum4jjh788sLAVQxcJdnxse11uDh5t+RanjhsdQh7Iudai9UaUhsb
+leLg8rnjVb15LYacSz4S0yYOgV1PW6M0a3G1P+Z70ow4fG279PcxnlqMGOHI
+vFWWgHpuWqTJs5cY01HgMBQoAcOT+YVtGzV4Mz/8La+cJMzvt8herOMiXf8C
+SUZFElzCW9IFnnNRsMneaYeWJNAnHF5rZHExZkS132a/JDTrjriUX+ZiqPKb
+r+kXJEH66EBezS4u+uZS1tW4ksCnmf3sTlY12t0r1bQ5QYJDjsureXEclNDM
+8XPzIsEZscg8WhAHO2piyvz8SGDkYPQX8xwH6f3ORunRJEg+/BWXLDhoTl0/
+MFBEAodYM8dzWzion0k/4bdKAiFZ4SNecS9QNn0kIe2+FPDwmyc6361CikZl
+zGKhFKwOvNjyLqEKqY2x4W5sKfBkzdo5h1bhtsldV3a8koI7g5eoiaerUPWw
+v0fNqBQId6rnxWpWod7mNYMRPWlwIucmtDdV4i+B5C+6bdJg1x0jvnO9AuMc
+rX9+Py8DTWMFjC2p5Uit6KDybiKDccb9J843yrFYynFBR4QMlP6jAxWMcux5
+785OVSRDkvGaWsqZctxuF6hsZ0WGoSg+5mv9cmy0fcjfmUWGbwMPfPb2l+Ga
+5VxHu5kshE9n2j7SLsPLxnmnWqMosDS4vllrlo30XLFZmyQKPK1wMQ4dY6Oy
+QGh8xx0KnNg/wng/zMbOD8dKu55SoLbVmif9HRt3+2/lG+ygQMbFVeuLJWwc
+LQwqnKbKQXk5TcfNm40npY98ly+XA+cagY/2PSV4cGI5xHeECjt8Ww61zLGQ
+YZWu3jBOBe+Lnop//JuFxXlafVLzVIj90WPf/omFFEcP42pBefht0u3xai0L
+xzl/LPDtlgfxzJuvu2NZmBaVEpgVLA9Hf75ueoHKwmEZNd8mUQX4SYKf1mn1
+HCPN7E5TjWgwmuCk97CeiVbuD6YNzWlw2NSw+Vs5E8UixqKdDtOgwrV2eN8T
+Jt57daMwxYMGJmlJqfzJTOTQuWP8CTQ40NZTtfkkEyddVK7OfKJBq896e83S
+M3S/Mpf45to2+GfpvVS36TM0Kc6quI6KsEarfvGx9wl6L05FvBZVgltNSas1
+twpwSUNiUMtJGVzIevs6Lz9Gs6LnuRkZKtABJg+ZxXk4RaJ7HGvcDg1hqb1C
+kItfkjyOBQiogQ93dDah9T5aTwRZ/8tgB7gsrUTbpeTguKfg5YrwnZDsJjDw
+0i8LLbfL8sY17gL/rbLRvRl3kdSulsyeUAeykoU9a2sGKsSXHDUw0ISEW7FZ
+Vr+nY6aGsYTUr1rQZjl+XdwmDduo+/fOpO6GhmNyrvaat9FEoTFFu0cbCron
+FLskU1GM71Hg6ag9QA5QF21TSsFtkYpmrmo6UGfyMCjufDIKqZ6ssm/RgdDj
++jqP65JwNyFXEuSmC8UtS/ZhdjcxYJD0is6jB3I70zwqviTgxEySk3WmHlRE
+UJ/7M+PxkHZztrWWPngEHD9wPSkO62ZMVxY69EGaQS667R2Lvpq6fe+89oLm
+xRXlHwE3kPhx9oOrkAHMDovuEQqKQYvtFFvRRwawMtp06m1ONO6MSAxuNDQE
+Lp2PG/8+CtW9jFG1zxA6+qnyGvxR6FV3PqbikhEsbrra4OMQiZj74eyUjDEI
+GRnWlN2PwNmnGwvaL4yh02jvQON4OHqqFgll25qAycXjIl3N13FKPc2gbNIE
+Zoxv21zIDkNO/srfc/GmIOBy8nVXaigeP6gCptvMYJ/l9xGje9dQ3ieuene9
+GbiTRSzEc0NQRti71NaZgGRHiUumDQzMPxAWMulKAJ+ue1hALQN1w5IPpJ0k
+oMwy8jyzmoFHJtndvacJuJ2n3adQxsDYnrklT28Cftl0S2XrYwYuPgo3D4kk
+wIi3UVL6BgP7TNO6CosIeFPyObTFmoHnr+Tfsy4mIOBbyKCcJQPniyu9xtkE
+VFWeI/uYM5Ck3LugU0WAiCBNkGzKQBtBmkJtPQHzmU1jlzQZ+PJD4dmubgIa
+EhxD7MQZSBfjaF3tJaDgXY9SqQgDew+1zlP6CdiVlpgjKcjAWe5YvPsQAVo8
+0Zu7eRiolbeH9c83Au6G5Bd4TQfjy779V5O+E2DY/eDjnz+CkS7tsE97kgDc
+2/xJdywYz8VdeRc4R4AMK8eW70swztbHZssuElD6obXOeygYo5bvenKXCXip
+orrR8zkYJfSfabqtEbAw5CNm/ikYH/hw5zY2CJj67ew4qzsY/wPNPs+M
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 0},
+  Method->{},
+  PlotRange->{{0, 30}, {-0.15, 0.15}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{
+    Scaled[0.02], Automatic}]], "Output",
+ ImageSize->{184, 104},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1194266119]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is unable to make expansions of ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["FermionLine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects."
+}], "ExampleText",
+ CellID->89195581],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", ".", "\[Gamma]"}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", 
+       RowBox[{"(", 
+        RowBox[{"p", "+", "k"}], ")"}]}], "+", 
+      RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+     SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1651263185],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+    RowBox[{"\[Gamma]", ".", "k"}], "+", 
+    RowBox[{"\[Gamma]", ".", "p"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Output",
+ ImageSize->{286, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1986651122]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"\[LeftAngleBracket]", 
+    RowBox[{
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1423207202],
+
+Cell[BoxData[
+ RowBox[{"\[LeftAngleBracket]", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p2", ",", "m"}], "]"}], ",", 
+  SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+  RowBox[{"\[ScriptU]", "[", 
+   RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]], "Output",
+ ImageSize->{155, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->274736739]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopIntegrate",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1194023147],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "LoopRefineSeries - Wolfram Mathematica", "LoopRefineSeries"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 46.505709}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LoopRefineSeries[f, {s, s_0, n}] generates a Taylor series expansion of \
+f containing Passarino-Veltman functions about the point s = s_0 to order (s \
+- s_0) n.LoopRefineSeries[f, {s, s_0, n_s}, {t, t_0, n_t}, ...] successively \
+finds Taylor series expansions with respect to s, then t, etc.", 
+    "synonyms" -> {}, "title" -> "LoopRefineSeries", "titlemodifier" -> "", 
+    "windowtitle" -> "LoopRefineSeries", "type" -> "Symbol", "uri" -> 
+    "X/ref/LoopRefineSeries"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/MandelstamRelations.nb b/packages/X/Documentation/English/ReferencePages/Symbols/MandelstamRelations.nb
new file mode 100644
index 0000000000000000000000000000000000000000..1bed683d5e1ad94cd4a2b37b6d27df28bdb6e846
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/MandelstamRelations.nb
@@ -0,0 +1,2586 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LDot\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LDot"], "\<\"LScalarQ\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LScalarQ"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/MandelstamRelations\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/MandelstamRelations"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/\
+MandelstamRelations.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/ref/MandelstamRelations", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["MandelstamRelations", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["MandelstamRelations",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/MandelstamRelations"], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["2", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["3", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["4", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["2", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["3", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["4", "TR"]]}], "}"}], "\[Rule]", 
+        RowBox[{"{", 
+         RowBox[{
+          StyleBox["s", "TI"], ",", 
+          StyleBox["t", "TI"], ",", 
+          StyleBox["u", "TI"]}], "}"}]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives a list of replacement rules expressing dot \
+products of incoming 4\[Hyphen]vectors ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["p", "TI"], 
+       StyleBox["1", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["p", "TI"], 
+       StyleBox["2", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " and outgoing 4\[Hyphen]vectors ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["p", "TI"], 
+       StyleBox["3", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["p", "TI"], 
+       StyleBox["4", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " as Mandelstam invariants ",
+     Cell[BoxData[
+      StyleBox["s", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      StyleBox["t", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      StyleBox["u", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", and masses ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["m", "TI"], 
+       StyleBox["1", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["m", "TI"], 
+       StyleBox["2", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["m", "TI"], 
+       StyleBox["3", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     ", ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["m", "TI"], "4"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]]
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details and Options"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->192866632],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["MandelstamRelations",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/MandelstamRelations"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be used to rapidly generate a set of rules for the kinematics of ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"2", "\[Rule]", "2"}], TraditionalForm]], "InlineMath"],
+ " scattering or 3-body decay processes."
+}], "Notes",
+ Deletable->True,
+ CellID->870299763],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["MandelstamRelations",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/MandelstamRelations"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " effectively inverts the relations ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", "=", 
+    RowBox[{
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["p", "1"], "+", 
+        SubscriptBox["p", "2"]}], ")"}], "2"], "=", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["p", "3"], "+", 
+        SubscriptBox["p", "4"]}], ")"}], "2"]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"t", "=", 
+    RowBox[{
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["p", "1"], "-", 
+        SubscriptBox["p", "3"]}], ")"}], "2"], "=", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["p", "2"], "-", 
+        SubscriptBox["p", "4"]}], ")"}], "2"]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"u", "=", 
+    RowBox[{
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["p", "1"], "-", 
+        SubscriptBox["p", "4"]}], ")"}], "2"], "=", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["p", "2"], "-", 
+        SubscriptBox["p", "3"]}], ")"}], "2"]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", and uses ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "2"], "=", 
+    SubsuperscriptBox["m", "1", "2"]}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "2", "2"], "=", 
+    SubsuperscriptBox["m", "2", "2"]}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "3", "2"], "=", 
+    SubsuperscriptBox["m", "3", "2"]}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "4", "2"], "=", 
+    SubsuperscriptBox["m", "4", "2"]}], TraditionalForm]], "InlineMath"],
+ " to generate the set of rules."
+}], "Notes",
+ Deletable->True,
+ CellID->1067943069],
+
+Cell[TextData[{
+ "The option ",
+ Cell[BoxData["Eliminate"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be set to eliminate one of the invariants ",
+ Cell[BoxData[
+  StyleBox["s", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  StyleBox["t", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", or ",
+ Cell[BoxData[
+  StyleBox["u", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using the relationship ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"s", "+", "t", "+", "u"}], "=", 
+    RowBox[{
+     SubsuperscriptBox["m", "1", "2"], "+", 
+     SubsuperscriptBox["m", "2", "2"], "+", 
+     SubsuperscriptBox["m", "3", "2"], "+", 
+     SubsuperscriptBox["m", "4", "2"]}]}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ CellID->211027823]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(6)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->956660701],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(3)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->386336618],
+
+Cell[TextData[{
+ "General kinematic relations for a ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"2", "\[Rule]", "2"}], TraditionalForm]], "InlineMath"],
+ " scattering process:\[LineSeparator]\t",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJzt3buPHMeDH/DyIzCgREwUjxgThgAFTMeWwoNAnKFA2dyBVurF2YBwULKR
+oJAMFdDYyBYEBwR+oZL9AxQwvMAEFk6cGAQNA4ZfAL3F6dUOh9Pd1d3VU/34
+LPA53PFWvVM1Nd3fqefnf/tv/vr7fxxC+Lf/7PZ//PXf/PAv/u7v/ubv/9U/
+vf0//uXf/7t//bf/5PZ/+Y//KIQnt78T//Hdu3cAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAEG5/vr/1Q+W3W/Efv034/XdHXlf//mXpMgEA/ckGf5br
+64N6+PlE+Y49qKmbNwn/7buqrh+WLjcAcJps0Fg3DxPLdOiPE9f4vcd1Xs+l
+ngBgLWSDXnX2INz3w9X54eD3v+6QK+vq6aO8CgBMg2zQqa7+aCjXlwf1c/jv
+P4eD8cuqvk+NddbWOQAwTbJBUh39UlOeNyfq57emnBjrraWO3sw1ZwLAWsgG
+g+oo5siH4b5frnau/dH12rJm0nUAgDJkg6Qy1fXRxXn0r6s6Sl5rGNrnov1c
+uswAQD3ZoLU8DxrKcjeX/use133dcN3fSpcbADhNNkgqy7ctebDXnK7QvI7x
+99LlBgBOkw2SytK0R9brAddtqqPe1wUAxiUbJJWlqS+tc9/cEusIANZENmgt
+R9N6wkH9aEvqowOAtZANksrRtJZw0DrC0Lzv1qzmiAHAWsgGSeWo25/9TYZr
+N+3lPqs1igCwFrLBoHIMKkNoXvcYzXKfdgBYOtmgtRxNaxOT98OqufbxeThZ
+rw8A5CcbJJWjbm3iHxmu3TR2Orj/DwDITzZIKkfdHK7B/WeheX79bMY3AWBN
+ZIPWMjSNQQ7tn2sb3+y9bwQAMA7ZIKkcdX1og/euCvtzBevqZ3D/HwCQn2yQ
+VI66tYmD+89a+ue+L112AOBjskFSOerWJg7qPwvNe5bOJl8CwNrIBr3LkWNf
+rF/mPrYJAGsjGySVo25t4qB9029/HjbUzy+lyw0AnCYbJJVllLWJDfkynuH8
+oHS5AYDTZIPWcjStH+xdjtC8p+gs9hMFgDWSDZLKUrcv+6D5W1WOzJ5bAYBx
+yQZJZanrR+u9NjHU7xcxi71EAWDNZIOk8tStTfy25/Xq5uvPak4YAKyVbNC7
+PL3GN8N+Tv2pvrlZ1g8ArI1skFSmur60zuObYT/X7NRc/dnWDwCsjWyQVK66
+vdM7lauhfmY5pgkAayUbJJWrrn8uuY6qfr7jfrk3fcdIe5YlroeMZ/TMbv4+
+AEzFXLNB9bp/qMlr8d+z7Wke6tcmvguJe1iF03uTxtz68Ezv8/dHdSU/AUBP
+c8wGoX688digfdNbyndcTx/lkSqznPpvX5+rz6mqq1Nz0eQnAOhpbtkg1I81
+jpahavLH+/65UL9u8ZTY//P9md7XtowpPwFAT3PKBmE/b+dkpgv7NX91maH3
+6woJaxOrLFm3f9YPlbOM01Wv55fqb35Z/d8PTryX8hMA9DCnbHCQjRr7k6oc
+dTwn6nWGv/tRXiz9/nUsx3G/nfwEAD3MJRsc9J8kreOrMtRxmXqdtXfQ53Vs
+VmsK5ScAyGMu2aDKeZ0y3Ymy9VqPd2Lc687Z9hzIVIfyEwBkMJds0GeM8ETf
+Wuf+p9C8NrHzvuyF61B+AoCBlpQNasp3mJ/e9ClTqF+bOKnxzcSyyE8AMNCS
+skFN+Q7H73qdHRNO7805ufHNxLLITwAw0JKywYmyHa7Xf9N17O/gGnX9c2fZ
+wylznchPADDA0rLBifL9dpCd+q67a9p/stc1C9eJ/AQAAywtGxyV7XCPzd5l
+CfVrE9+ULmPP8shPADDA0rJBVaZvw4d7qQ86PzjUr03McqZegfqRnwBggCVl
+g7DfH71uLlevM4xD877ss8wd8hMA9LeUbBCa91841mk/q5bxzUntjdWhTPIT
+APS0xGxQlevbqmyD9wQN9WcqDx4XLFg/8hMA9LTEbHCijKcyYtIemqF+X6xZ
+5w75CQD6WWo2qCnr913KV/Vf1c2r/+g6YWb7PMhPANDN0rNBQ7l/OSrbR3ur
+n8gVfUw+i8hPAJBmLdmgofwPj8tT+jVNqC3M9n0FAMYVjvY2KP16CtaD/AQA
+JDkaw5vt/qAZ6kF+AgCSHOWnj+Y/rYX8BACkOpo3v9rMID8BAKnCh/tpdj7L
+ZSnkJwAgRfhwD6hV5wX5CQBoc/vzINzvtf576ddTmvwEAOsSPjyPJc4Hbz3L
+7iAvrD47VfVxfC7gz6VfEwAwnnD6zL7XVa56ePB7D6p/u/v9X0q/9tKq+ji1
+j+qb6v/XeiYgADA/of3cvmNxzd2XpV93wfr6umN9rX5+PQAsUWg+w++uL8qc
+nvHfhye3tqVfBwDAHNz+fHrrbZVZr+UoAOYiPrNufVH6dbA+tz+XJ/r+Yo7a
+lX5tAHBKfEZVz6r3z6zSr4d1Oep7OuVGjgJgKqrcdHPiebUt/dpYj5q+JzkK
+gElpyE1/jpuUfo2sQ0LfkxwFQFEJuenQpvTrZflufy46ZqfjHBX7rj4tXQ4A
+lqX6fn/ZITfduSr92lm+Hu3ylLdyFAA5HOSmrmMj+qA4m9jGbj0b2E7lKAAG
+yZSb9EFxVpnb7V2O2pQuFwDTVn2Pz/388T2es8qco95/B5CjADhW5aarTM8a
+uYlJkKMAGIPcxFqEbutG5SgAPpI5N8Vn0q50mSBF5hz1MtgnFmDxwv5supdy
+E2uXOUddy1EAy1Plpmu5aT3C/Z7csZ9xU/r1TFX48NxGOQqA3LnpWm6aj/Dx
+eXDx/XtS+nVN1QiflW3pMgHQjWfBqHW7Kf0aEl/nTUP/YcxW5vmfrrecn50b
+3zkApi+Y05G7PuOzNJ6t9uzgmXpR+nUlvO4nie/x1a0vSr/eKZKjAJZPbhpc
+f59Wz8vLsJ9f/+pEvbyaU9YI3dYKXHu+19bjF8FaVYBFyZybruaUDwbUWXwe
+PqmyUswNKXsrxv6nWY53hW5nwzmzpLkec+aoi7m2KYA5Cvu+kovMuWlTulw9
+6mCb6KIq43WPuol5Ylu6vBnrbRdO963VtYvFlD1jHebMUfacBRhZWPhZFOF+
+vX2OsuXwcqnPtSpXpmaAmLd2pV/z1BzkKGdFAkxQ5tw06f2Awn5s7aZwbop1
+NPk54pnqe1O1rZQ6j/XybKptp2Ad5v58ylEAA6z1vlyV+6pQdprVHPHM9b4L
+6WOczi053W5zfl6vZFWAdMG4wF097DLVQapnpcs8BaHberOb6n2aXfsasf4W
+Pc4OMDXBvNS6Okmd79xXzADb0mWdmoMccJPY3oztfVx/u8T6k6MAOsqcm27C
+AvsDqmfzGNlpsXPEM9d/3O/hOrFO4+85J+bD+sudo1Y5xgwQBfvyda2vbcg3
+JvJ26fU10nuwCeljy7FN2uPow/rLmaNiTt2WLhPAuQTnQgypu7+69V8H1lkc
+D9yULsuchW57kN3NhR61z6T6W7vSdZP4WuUogERyU+96yzmP5Kp0eZYmTOSc
+mHDfJzbK9Uesu1z3BDkKWBT3yN71tgnp547ITvN6v2IWvgwZx/aOPmO70vXR
+8bXnvEfY7xSYtdDtrAy56b7e4lzl1P4M2WliQvf+wquQYWwvfDyXcFe6LnqU
+IWeOupljHQDr1fHZITe9+/OZ22U+zX+SnaYvnPGcmLDvzzq+Zu/rzaje5Chg
+1jLnpquV5KZN6LGeq3q+yE4zEe7PiUl5n+/2Ltt0/BtPaq63K13+gfUmRzG6
+sF8Pvq0+R5cdXIT7s9o3pcvBvAR75PWts+vEOoljeU+O/vuLlLosXU5q3/vU
+ce34edgmXveLhuvsSpd7YJ1tgr11Gd6O7r57Xlbt6TqMc8bDTXXtZ9W9elu6
+7ExHcEbDkDq7SbzH1+5nHdr307wqXV5a20P2c2JarrErXeYMdbbpUGdy1MpV
+7WVXtZmU++7YXlX37ifa3foEualPnY3xnLxuqtPSZaZT+8iZq9uusStd3kx1
+tsl4H5KjFqTKJs8SP0+lvaranv30FyzkP1v9su4ZsBSh+xjdtsO16+4NV6XL
+Tbk2k/jf7kqXM2N95b4vOcNwhsI+M11lagel3FTtT5ZaiJB3D6LFf88LZ5gn
+XP0d2WnBwn2fZdd1BannJO5KlzFzfekXX5nMz6ap+fMzXbqe6d02rzK1hTXk
+pm2H+hq6Tv3UPOGr0nVAfqH7vhZd9lvblS7fSPV1mVhfctQMhW59tEsQ2+C2
+dL2T1DY3Ie964XgvW2RuCvf7JGZfS9Xyd7dH170sXReML+zHKHI/N3alyzVi
+fe2CHLUIIe8ZVnN1neP5wSjtcxPss9Klrkqe03F5cP3F1jO173+X9pdi0W0o
+2M93tkL+cdkkn3322btHjx4l+eSTT86do+L39Sel3xvet89tyHdWyM2S78Ud
+6+p6rLoI93NcFlvXJLWDnN/JL0qX5wz1lauu5Kj5vV8f+fzzz9999dVX7777
+7rt3P/7447uffvrp3V/+8pfefv311/fXuLi4eH/Nx48fv89hY71+bbBo29wG
+50yl1FORs8xaXtP1Uuubfm5/fr71fwZ+juN3g0WOtR/VVc5xUM+w/O/PtsP9
+NknsI4p55unTp4NzUt9cFTNV7K/KWa6Dz+2m9Pu2BiFvblrsczz0PFel9Otm
+XcI+319lvBe/XUseGOFeaExl2PuxCRnPTY/9S998882758+fnzUvpeSp2N8V
++74y909dln4Plyr4zjVGPblnUkzYr8O8yXj/PRTHiFfxfSDoiy8u7L9/Dp7j
+FPNI7Od58eJF8ZyUKua7mKUyzaO6WeqzuVC73GW8x14v8b0J3deIXwX9pRQU
+0s4/HCrOU13NXn5BjipR55scdR7zx7nH5cYQ505lGuNbzfefkdrlLjEPrDk3
+ZT9XBcYU9lk/1zM+1eLnlh/V8abDfUGO6l/P8X7au88p9tfEvqY4HlY69+QW
++89iJhzY9lb1/Sdjm7zJ9NmP95BN6TKNVEepz6BO56rAWMJ+bLnUXsvx87Kq
+7w7BXnhj1eugOXtxjC7205TOOOcQs2HMiAPH9lb1/adne7wMclOuOnIOFpMS
+0s9lGVP8XKxuvl9wFkPOuox9/l32yP9TzBBryU2nclScCz+g3a1ibW3HtujM
+p/Y62na4970/V0U7Y0rC/ZqGYzeZPvddrXJuRXAWaI523LnuljxO11Uc14v7
+MPRsc6+W9nzv2Q6dOd5eR7tw5nNVYKqqZ//2yJPqPnLd416y2rkVI9x/F5+j
+Qs/1DjErzGkt3bnEufI99z5463Prc1tTP5sO9XNX/k3p1w1TUN1fttXn4iqk
+ff+4LP26C9dXrvvx3fe4TelyjVBPV13rIvY5xT2SSueUqYv9cj3b2q50uzhj
++9v0aYMryk3xnl/8XBVYourztQv7furrms/UpvTrLFg/clR93XR+bsU+J2N1
+6eL+UXGvUBnqo7YnN6XVU8p9K9bjKvstIbfq3nQ4/rf6M01D3vMIZ52jQo99
+NtY8PzyHnvPLF7c2L3NuugkLnxNd3cPryr7IzAhM1wg5alu6TB3K/mnouMYu
+9p+Y5zRcHPPssdfBVek2k6ndbXPnptJlOlO9bY7Kfr2WsgPTlTlHXU89R/XJ
+TnGfSON1+cQc2mM877J02xnQ5rbBuQFD6/BZmHF/N7Bcodt64NnmqNDx+//T
+p0+L540linm0xz4Hu9Ltp2Nby5mbXs2t/ABrkvmeP6kc1SU7met0Hj3OgNmV
+bkdr/gwB0CzzM+Cm9HMvdNgfP2anuGasdLZYi5hTO7anbenPR00b24UV9OEC
+0G4JOap6rslOE9YxQ01qj82wsjmEAKQL+3PhruaWo6rXLTvNQMcMFdtQ0XXr
+mXPTldwEsFxhRnvXhP1au6Q9Q2WnaeiYoa4LtH97qAHQW+YcNcreySFx3FF2
+mpaOGeryTO3dHv4AZDPVHBXq9yz+SDzrtnRm4EMd9yrfjti+5SYARpP5OTMo
+R4X9nPekv2WPgunqsLfB2xyZe6rtGYDlG+G50+n7evX3b1KuH/s4SmcEmnXY
+p/xlpva7Cfu9LuQmAM4uc45KHvcIifs8PXr0qHg2oF3cp7zDeXm9zwcPEx2H
+BmCdqhx1kdonNCRHhcRxu88++8x5djMS56d1yC2dMkvm3HRTtXW5CYBswsjr
+vlOvba3d/Hz33XfJ7SKxLebOTbvSny8Ali1zjroO+36ny5Tfj8/h0lmAfuKY
+a2Kb2Da0vW2Y+X76AKxb5hz1f9t+J85FLp0B6O/Fixepc6GuT7Q1uQmARcn8
+bKtl3G7+nj59mvp+70ZoW/E6veeoA8AYxsxRxu2WI3Ec779lzk3b0p8PAGiS
+O0fF9Xaln/nkE/sRx8jYchMAS1DlqJdDn4POZ1mejue7dPVSbgJg7sKAteb2
+yVymjvtqpoptbFO6vQNATn1yVFyzVfpZzzg67AklNwGwelWO+s9tz8V4/mzp
+ZzzjinPb5CYAaFflJ31PvLu4uOiameIZL8/kJgDWJiTsNa7vaT0S+6D+R3Cm
+LwArFhL2LLdX5nokzoP6D6XbLQCUcvvzpO1Zac3duiSuxXur7wmAtQoJ6+9+
+/PHH4s90ziuO1yb0Qe1Kt18AOLfYf1D1I9Q+I+01vk6Je5K/LN2GAeDcYv9B
+2zMy7ktd+llOGZ9//nlKhjKGB8CqpIzd2bNgvZ4+fWoMDwCOtI3dxf6H0s9w
+yonzyI3hAcC9sD9LuPHZGPsfSj/DKevx48et6/BKt2UAOJew3zPa2B2NEsfw
+tqXbMwCcw+3PK+vuaBMzdEJ+uizdngFgbGG/b4F1dyRJWId3XbpNA8DYUuY+
+2TOTOzFLt7WX0m0aAMYWEs4LjmuvSj+3mYaYpc2BAmDt4nhL07PQvgUcStzH
+4KJ0uwaAMd3+3Jj7RBdxPUFLfroq3a4BYCwpc8cvLi6KP6+ZloR9oK5Lt20A
+GEvK3PF4dmzp5zXT8t1335lDDsBqhYQzg0s/q5men376KWUOlLOEAViktrV3
+9s3klMR9NLel2zcAjCHO8216Bj569Kj4s5ppSshPT0q3bwAYQ2jZu8DaO+ok
+rMG7LN2+AWAMbfkpzhMu/ZxmmmLfpPwEwBq1jcHYu4A6CfnpZen2DQBjaMtP
+cZ1V6ec005Swh8F16fYNAGOQn+hLfgJgreQn+pKfAFijkHB2i/xEHfkJgDUK
+CWe3/Prrr8Wf00yT/ATAGqXkp9LPaKZLfgJgjVLyUzyno/RzmmmSnwBYK/Of
+6Et+AmCt5Cf6kp8AWCv5ib7kJwDWSn6ir3i2tPwEwBq15aenT58Wf04zTQnn
+312Vbt8AMIbYR9D0DIxjNKWf00xTQn66LN2+AWAMbfnpq6++Kv6cZpo++eQT
++QmAVYpjLE3PwNjHUPo5zTS1jf3eelK6fQPAGGIfQdMz8LPPPiv+nGZ6nj9/
+npKftqXbNwCMIfYRtD0HSz+rmZ4ff/wxJT99Wrp9A8AYQsIZLvYw4FjC3k9v
+S7dtABhTW36yhwHHHj9+bO8nAFbt9ufGGjy6SFh796x0uwaAMd3+vDSHnFQv
+XrxImfu0K92uAWBMtz8Xbc/DX3/9tfhzm2m4uLhIyU9flG7XADCmlDnkcb1V
+6ec20xDHc80dB4D2OeTmQHEnjueaOw4A7/PTtTlQtEncN/OidHsGgHMILfuQ
+R/HZWfr5TVlxLwtznwBgLz7z2p6L33zzTfHnN2V9/vnn5j4BwIHQsg+UMbx1
+S9y34Kp0OwaAc4rPPmN41Ek4syV6UrodA8A5hYSzhK3DW6+EdXfG7gBYpfgM
+bHpGxnM77KW5PvEMaWN3AHDa7c+ztudk3H+69POc80rYM9PYHQCrlbIOzzzy
+dUmcN/7fS7ddACjp9udV2/MyjueUfq5zHnHfioT89L/Cfg+xT0u3XwAo4fZn
+1/a8fPToUfHnOuOLc93inLeE/PTnHPKwX8e5Kd2OAeCcbn/++a3/rQ+KxD0L
+aueTy1EALF181oWEPaD0Qa1Dj74nOQqA1eiam/RBrcPAvqe6HOVsPABm7fZn
+e+t6yDMxnodW+jlPfolr7vqKbW5buv0DQBc5ctMh+0Etz+PHj8fMT3IUALOR
+OzfdsSf5siTuNR79gxwFwFKF/bl22XPTIefiLUPMwQnn3L3PPFXbypnJ43V2
+pT8vAKxb2O/jdDNmbjpkLvn8dZgzvj1qazlz1I0cBcC5Zc5NL2/9VWg5VziK
+/RbG8ebr+fPnyW2ioe1tqzYjRwEwC5lz01U42LMnJOxJHhnHm6cO43ZvQ8Je
+TmHAnhhyFABju/35NOzPHRslNx39reuUa1iPNz8x9ya2j8uO7TNnjnobnLEH
+wAAHual1XG1objr4m1+kXCuux4tjQaUzAWli3k1sI68GtFc5CoBiMuemeI1n
+bbnp6O9fplw77qtpLtT0xZzb4YyWwXuHVzkqZ/uVowCoNaXnTuyHSPk7cQ/G
+0vmAeh3mPEWXmdtz0e8BACxbmOC4R/Wakp5733zzTfGcwOnsFPsIE9tN73G7
+hLZ09nFoAJZrirnp6PXtUv+++eTT02G+eGw7o5/5G864DgKA5cmcm+KzaDfi
+a01+nTLUdHTITu/GbD8N7WonRwGQIuz3HZxFbjp4zbHPIGkulAw1DR2z07PC
+n4mcOSru6bkt/TkHII8w83MvQoe5UDLUrLLTdenPxkEby5mjruUogPnKnJte
+nTs3HZUlaV8oGWo22Sm2p8ntCVDlqFyfGTkKYEYy56bJPANCh/nkMtSks9NZ
+5otP7DP0pHSZSgvmiAETFVYwBtE1Q3333XfFs8WSxT0KHj16tKjsdNTecuao
++NnclS5Twbq8rurgMkyw7xGWLOzHcGZz7z1jvSw+Nx2V96pLmWLfiH3K83vx
+4kWX/Z3uzLIfRo4aXH+nxt+v3M8hr7BfcxXvVxfVZ+xu/VW8f21Kv76pyJyb
+ZnUv65qh4nM+Pu9LZ46l+Omnn7qcyXJnV7rdZGh3m65tT45q/bxer6UeIKfq
+fvQk7Pt0XzbkgYvSr3UKqmyZOzdtSperZ110eo7F5/2PP/5YPHvMXRwT7dHO
+dqXbS+a2lztHxe+Kix3TCmnrZ2+q58Cm9OuFqQn7PqX47H8W0vvCY9/TbPpF
+Rqw7Z1CcrpfOzzDnvfQT++86znVaZHY6an85c9Sizyqu7v2pe7nFOt2Wfs3Q
+R3Vf2CbaVZ/7U646fGaOPVvqvaTD+5D7DNT4fmxKlytzHV12rYs4nvf8+fPi
+mWQuYr9dj/G6Wc0VH9gGN9X9qvjZ21MXuu3jW3TfFEgR9mNoOb5D5foeNst5
+phnfj9y5abH346q+dn3qxvq8ZrHP6fHjx33b3Cqyk89t77rahPTzCGNdxHy6
+Kf264ZSwz1C5xof6ul7q/SLxPYj3lCv33151t+1Tb5999tn7+dCls8rUxGzZ
+o88perX251ww3t61vnYhfU6Hc3KYpOpzn9qOc1vtHPFgHkWuevwi9BwvjnN7
+rNHbr62LmbJn23u5xnbX0B7lqO6f39T74E3Y5y7tjUkJPeaUDLDaOeLBOp4x
+6vTT6jneqx7jflFrzFExN/WcH37nsvR7P1XButk+9XWZWF/G9picsP8ukOvz
+Xqfo+euF6zZnbtqVLtPUhH2W7F2va8lRGXJTfH5tS7/fczFCjlp03Yf9vJLr
+xPqIv7fqubNMR9h/D8j1nF/9PTfYx/jc9d17PO8wRy1xflQ8H7DH/uHHjNf1
+b5s5c9T10u+nodvc0Fivq++LZxpC3rnlq7vnyk1F6z5+B3g2tN7jnKCnT5/O
++iyY2J8W97/qOS/80FttMFv7jDlqUMZfWY76tMpGN4nt9CqsdH4I0xD22f/f
+3/p/A++5q5ojnjk3Lf7eeIb3IuWe2yqu6Y/9N3PIUjEzxdyXoa/pTvz+syn9
+fi6Ne0XvOkud6xjrZHem1xX7vVfVR8DJdvCkQ/tsy06r+Q4Quq3HdS8873tz
+GTLu0xGzVMwnU5orFfcGjfsPZMxM0U0wt+Qc7XOb8d6xiv0nQ7f9S2/CyOuT
+w/6Z+WrMv8E0hW79o7LTh3W3y1hv8R66LV2mJQp51z3+KY7xxflSMU+da85U
+7AOLfyvmpZjlMozNnfr8jvq84WQb3QZj/l3rrOs6x6sxnk3hfv26DLUSIe/e
+javKTh0/s23sD3e+9y3nM+qk2AcUc03MN3HML2adrtnqLiPd5aQorpkbsE9T
+qiv3/0m00atM72e8R+1Kl2mC9Za1ny58eB6CDLVgofver78m/u7is1Owp8si
+hDPkqDYxZ8VMdKZcpC3OTMi/V1y8dy3+uR7uz4lJ6Re462vdDPyb26PrylAL
+EgbsT5b4GV5sdgr2FF6s0G0+6tLYh3AGgrMKhtTdLqSvdYx1vO35dz49cT0Z
+auZChv3xQ/v39EVmpyA3rUboNh917uLn3F45MxPkqCF1N/o5MTXXkqFmKGQ8
+nzE0P1MWl53COGeqb0qXi+T3v8tnZy7u9sXZlq5fBrfPMe5Pq3jGhxHPiWm4
+Z8hQMxBGGvdtucZislPH+nNfWriqPVyEfHsdlhC/G+20w+UJ+XPUVcrzYClC
+xj6G6npN8wBkqIkKI647CB/Pi1tcdgr6xUlrI7vqHjnlMb6bqi3bt2klgnkG
+Q+vvbmxv0Dkx4X4PAxlq4sL9vhejzo0L+/00F5mdgtxE/7bzRXUffRnGP3O7
+7Z58Vd0LNqXrhaJtMvc+fldralMd6++j/rrw4R4GMtQEhTPvuxo+ztSzz05h
+hHXBpctE8TYV773b6v4bP5/XIe+4X7zey+rzGO/T29JlZrqCfVaG1t+TkD62
+d139/jbx92Wo87+f21Dg3J+jnBE/j7PNTh3rUG4im7Dvr9oeeFJloUPbI5vS
+r5t5y5yj4nNlW7pMZ66/TUjvr/gvHepShhr/vSu+N324z+Czfb+DcxGAFZOj
+Btdf12exDFXuvdqEDPPZMr2Wt3N9nzPnpmu5CZiz0G1cSo46XYfxuZJrHGOW
+z9Yp6ti24++Nvsamaiezen/dIwDq+W6ZpQ43Ic+euzFDbUqXZ47CwDn/fFCX
+u8R6lJuA1cuco25WmqPi9/X/ObDu3q6x7gbU+ej7ya+F3ATQX7C2pm+9PctU
+Z3dmN95z5vrehYx7nq5Z5twUs+ymdJkASgn2dkmtp9j/Mda5BG899z+o69HO
+3FmbYI84gFGNkKPi828R/SrV8+ccZxA8K13WwvW87dAG35+rspQ2NkJdOqMA
+4Iwy56hZn9FQPYNyjXGmirlgtnsu9qznXRj5XJW1yJybzL8H6CjkW2s2yxwV
+9n0hpc69jH/3onQdnKF9pT7n79rPpvTrnqoRctOsPq8AUzPSfXlTulwtZb4s
+lJuOLW5ueei2buH9GF3p1zxlQX8xwKRlzlHvwkTHBQ7KGV13MFaGivU9+r6P
+Z6jTXSh4rsrSyE0A87KWHDVCvcXn3d0ZmC87ZIk7z+b2fAvdxoBvPMOT6zRX
+bop1vlPnAOcV7CeTow63Yb++L5b/uqWOZjW3POz3fGh732OZd6Vf69SFbvuH
+JuWm0mUCWLvMOWr1eyBWz8pYp5dVvjjuv5nN3PKaTGhdV3r9bRNytdwEMGOZ
+c9T12nPUUd1uqmfpZZUxZ7FXVNUmDp/fsa/NeFF7vclNACsTup25IUctXNXX
+NOs58Gesq5y5yWcHYIY8CyBN6LaHqM8KwAoYi4DTgjFvAFrIUbCXOTddyU0A
+yxesxWalRshNm9JlAuC8Qv69AK3tYnKCPWcBGEHmHOUsCiZBbgLgHA5ylDPk
+ma3MuUk7BiCJ5w9zFLqd96fdAjCKzDnqqnR5WKZg/BmACcqUozaly8GyZM5N
+N3ITAGOoctQudF//fVX6tbMsmXPTrnR5AFiHjjlqU/r1sixh+D6wchMAxSTk
+qKvSr5HlCfu99OUmAGatIUdtS782lqljH1T83SelXzMAnBI+PGPvuvTrYbkS
++6CuZXgA5qJ6tn1R+nWwbA19UHITAMAJJ/qg5CYAgBa3P6+Cs+kAAAAAAAAA
+AAAAAAAAyOD25/tbP1R+q9b+f5vw+8f7LL2u/v3L0mUCAPqTDf4s19cH9fBz
+wl7dD2rq5k3iGSmxrh+WLjcAcJps0Fg3DxPLdOiPE9f4vcd1Xs+lngBgLWSD
+XnX2INz3w9X54eD3v+6QK+vq6aO8CgBMg2zQqa7+aCjXlwf1c/jvP4eD8cuq
+vk+NddbWOQAwTbJBUh39UlOeNyfq57emnBjrraWO3sw1ZwLAWsgGg+oo5siH
+4b5frnau/dH12rJm0nUAgDJkg6Qy1fXRxXn0r6s6Sl5rGNrnov1cuswAQD3Z
+oLU8DxrKcjeX/use133dcN3fSpcbADhNNkgqy7ctebDXnK7QvI7x99LlBgBO
+kw2SytK0R9brAddtqqPe1wUAxiUbJJWlqS+tc9/cEusIANZENmgtR9N6wkH9
+aEvqowOAtZANksrRtJZw0DrC0Lzv1qzmiAHAWsgGSeWo25/9TYZrN+3lPqs1
+igCwFrLBoHIMKkNoXvcYzXKfdgBYOtmgtRxNaxOT98OqufbxeThZrw8A5Ccb
+JJWjbm3iHxmu3TR2Orj/DwDITzZIKkfdHK7B/WeheX79bMY3AWBNZIPWMjSN
+QQ7tn2sb3+y9bwQAMA7ZIKkcdX1og/euCvtzBevqZ3D/HwCQn2yQVI66tYmD
++89a+ue+L112AOBjskFSOerWJg7qPwvNe5bOJl8CwNrIBr3LkWNfrF/mPrYJ
+AGsjGySVo25t4qB9029/HjbUzy+lyw0AnCYbJJVllLWJDfkynuH8oHS5AYDT
+ZIPWcjStH+xdjtC8p+gs9hMFgDWSDZLKUrcv+6D5W1WOzJ5bAYBxyQZJZanr
+R+u9NjHU7xcxi71EAWDNZIOk8tStTfy25/Xq5uvPak4YAKyVbNC7PL3GN8N+
+Tv2pvrlZ1g8ArI1skFSmur60zuObYT/X7NRc/dnWDwCsjWyQVK66vdM7lauh
+fmY5pgkAayUbJJWrrn8uuY6qfr7jfrk3fcdIE1/3DzXvSfz32exbCgBTMtds
+kPB6/pwPn+FadWsT34XEPazC6b1JY259OFL56/ZCPdtrAIClmmM26FqmDNdr
+yyKxnj7aj+H25/ua//b1iH1OD2v6m5rEnDurvbgAoKQ5ZYPE8jwMR2sJM1yz
+bg+rX47/VouYa74fufxds1OnrAwAzCsbJJbno/ww8HqtaxOrLFm3f9YPldH7
+4o7y7O/HubfKlnVrBd6/56XfPwCYujllg8TynOxLG3jNbGsTRy774RnNjXu7
+h/oxvjf6oACg2VyyQWJZ7s7Z++O4T23gdX+rqaNJrSk8yI5J5+KE/bqBU32P
+xcZeAWAO5pINEspxlwXehBN7dw68dtZ92Uesg/g6f+v433x/qk+xdFkAYMrm
+kg0SyvHb4evOlZ9C89rEyYxzhftx2E7jqOH03hXyEwDUmEs2SCjH3Rjkzwf/
+lis/1a1NnNT4ZlUHv/f8b4/nQclPAFBjLtmgpQxfnnrNGfNT3V4AsxrfbCnj
+8d7zs+p7BIBzWkI2OCjDl0f/Pjg/1Yxt3Sm+T0PGOjzOT7PpewSAc1pCNggN
+680y5aemfZIWs1d3+HAOXKf55wCwJnPPBuF+7tbJ532m/FS3NvFN6fJnrMfj
+/b+cJwwANeacDcL9+Sy1541kyk91axMX00dzlKPtPQ4ADeacDermPB39zqD8
+dKJfZpHr0w7qydl3ANBgztngoL+k7XySofmpaXxzEevTjso4+TFbAChprtkg
+1OxVUPO7Q/NT3ZnKi5gjdDAGOpv1AgBQ0hyzQTg6n6VrGTv+rbp9sWbRR5dY
+xj+WUhYAGNtcs0E4Op8l4fc756ewX9NXN6/+o3qaa7/N7c8vwXxxAGg152wQ
+TpzPkvDfJOen8PH+kX1MMnc21OXk1wkAQClzzwbhYK+Cjv9dlvNbliTc75nV
+65w8AGAeQvNc9yE65bG5Cx3m3gMA8yY/ZanDL6s+vDhn3B5PALBw8tPg+ntY
+jWXKTgBAo+N5X6VfT6E6eFDlppifWvd8OPHfy1wAsCJrz08ZslPc5yJ5vSMA
+MH/y0/vyd85O1Xjf3f5QnXMXADBfa85Px2XvyR4HALAya81PB31HQ01m/1QA
+4DzWmJ8yZqc3pcsCAJzf2vJTyLvPwyzOogEA8lpbfgIAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAPL6/2ZWl1Q=
+     "], {{0, 423}, {592, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{88.07447916666644, Automatic},
+   ImageSizeRaw->{592, 423},
+   PlotRange->{{0, 592}, {0, 423}}]], "Input"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1497201812],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MandelstamRelations", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+    "p1", ",", "p2", ",", "p3", ",", "p4", ",", "m1", ",", "m2", ",", "m3", 
+     ",", "m4"}], "}"}], "\[Rule]", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->812370425],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+    SuperscriptBox["m1", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+    SuperscriptBox["m2", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p3"}], "\[Rule]", 
+    SuperscriptBox["m3", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p4", ".", "p4"}], "\[Rule]", 
+    SuperscriptBox["m4", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m1", "2"]}], "-", 
+       SuperscriptBox["m2", "2"], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m3", "2"]}], "-", 
+       SuperscriptBox["m4", "2"], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m1", "2"], "+", 
+       SuperscriptBox["m3", "2"], "-", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m2", "2"], "+", 
+       SuperscriptBox["m4", "2"], "-", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m1", "2"], "+", 
+       SuperscriptBox["m4", "2"], "-", "u"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m2", "2"], "+", 
+       SuperscriptBox["m3", "2"], "-", "u"}], ")"}]}]}], ",", 
+   RowBox[{
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}], ",", 
+      RowBox[{"{", "p3", "}"}], ",", 
+      RowBox[{"{", "p4", "}"}]}]], "\[Rule]", "0"}]}], "}"}]], "Output",
+ ImageSize->{512, 90},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2082471497]
+}, Open  ]],
+
+Cell[TextData[{
+ "Eliminate Mandelstam ",
+ Cell[BoxData[
+  FormBox["u", TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1345962866],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MandelstamRelations", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "p1", ",", "p2", ",", "p3", ",", "p4", ",", "m1", ",", "m2", ",", "m3", 
+      ",", "m4"}], "}"}], "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], ",", 
+   RowBox[{"Eliminate", "\[Rule]", "u"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2081364300],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+    SuperscriptBox["m1", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+    SuperscriptBox["m2", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p3"}], "\[Rule]", 
+    SuperscriptBox["m3", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p4", ".", "p4"}], "\[Rule]", 
+    SuperscriptBox["m4", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m1", "2"]}], "-", 
+       SuperscriptBox["m2", "2"], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m3", "2"]}], "-", 
+       SuperscriptBox["m4", "2"], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m1", "2"], "+", 
+       SuperscriptBox["m3", "2"], "-", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m2", "2"], "+", 
+       SuperscriptBox["m4", "2"], "-", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m2", "2"]}], "-", 
+       SuperscriptBox["m3", "2"], "+", "s", "+", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m1", "2"]}], "-", 
+       SuperscriptBox["m4", "2"], "+", "s", "+", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}], ",", 
+      RowBox[{"{", "p3", "}"}], ",", 
+      RowBox[{"{", "p4", "}"}]}]], "\[Rule]", "0"}]}], "}"}]], "Output",
+ ImageSize->{535, 90},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->958367068]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->469652345],
+
+Cell[TextData[{
+ "Kinematic relations for a three-body decay process (note the minus sign):\
+\[LineSeparator]\t",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJzt3b+PHEebH/DHPwIDbyIlileM30CAAkUG1hYjBwRxBgNleweagRMTZwPE
+QclGAgEnZGYGBDYUGBE+wAmTCR0oYOjABOYvIATDDi6ipzS94uxwuru650dV
+93wG+NzplXaG1dO9M19WdT3Pt3/3n/7myT+PiP/8r1b/52/+9tm/+fu//9t/
++Pf/cvU//u0//Jf/8Hf/YvUP/+OfRfzH1c+kf/np0ycAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAABgYlaPRyvPGulfPC89JgCAc7F6PNnIYsmHJpPt
+8qj0eAEA5q4ji3X5uvS4AQDOTbPG+bEjo70rPUYAgHOV7j/ryGnPSo8PACBZ
+Pa5X3pYex4mP+VlHTvu+9PgAgPO2elysvN/IJ09Lj+mEx942n/ax9NgAgPOW
+MtnK71sZJf3vi9JjO9Hx/9aS09TjAACKWD2+SmucHWt+L0qP8QTvwdfqcQAA
+NVk9Hu6YQ9ucSzuLdc9mv6d6HABAcc0c2k1HNnl/LuudzfvxRj0OAKC01eNy
+ZdmR0a5Lj7HAe9JWO009DgDgJNK9Zh35LGW370qPscB78n3He6IeBwBwVCl/
+bdXb+GKvQFoLLT3OQu9NW9009TgAgKOKdc3atnyW9gpclh5j4fen7d60V6XH
+BgDMU6xr1i46Mtrbc51D23iP1OMAAE5q9biK7nobD0uPsQahHgcAcCLRX7M2
+za9dlB5nLaK9V9RvpccGAMxHqFk75j1r6xWlHgcAsLdmDq2r3kba53l29TYy
+3reue9PU4wAA9hJq1u7z3qnHAQAcRXTX20jZ7bL0GGsWA+txrB73Ot7vHE9K
+HzMAcFyhZu2h3se2XlFZ9Tia+bgPPdnsee7rAQDTlvYCdGQC9Tby38euXlHZ
+9Tg61k7fDHkdAGC6Qs3aQ7+fbflqUD2O2F3Xw/wZAJyJ6K+3cVV6jFMTB6jH
+seN+tbQGap8oAJyBULP2WO/r3vU4mtfYzHrpn++VPjYA4PhiXW+jbQ4tUbN2
+/Hvb1isqux7HVkZ7U/qYAIDjCzVrT/Eet/WK2lmPY+u52/Noz0sfDwBwfLGu
+t7HsyGgvSo9xDjruTeu8/7+5H23zueqhAUDFDjW3FWrWnup8jarH0Txvs1ba
+/dLHAgC0i3Uts8Wer3ER3TVrb0K9jUOes8H1OLbuZ7OnEwAq1+SrdJ//+z1e
+42l019tQs/bw562tV9TOehxbuc6eTgCYgNioOTviuV+FmrWlzltbr6gv5si2
+Mt27rnVRAKAOsdW7aeBz+2rWqrdxvPPWdm/ax62f294v0LsPFAAob2O9c1BO
+i/6ateketYsKju9dxxirMfLYeutxrB73t+bcPpQ+JwBAnti9Xtm5RhnrmrXL
+jtxxXfq4NsY655zWWY8j2uvf2tsJAJWLrfXODZctPz+5mrVzzWnR3Ssq/be2
+ubZEvwEAqFjsWO/symmxrlnbVW8j5bfq9grMOKe1zZV9yDxm+zwBoFLRvT/z
+cutnrzt+drkr13H08/cqI4t1/czOuh0AQFnRvt5562Hzcxc9eU69jXLnsK0e
+x6fmv91vfq6tvlp2j3YA4DSie73z1nWoWVut6O4VdacuWqz3e7b9rH6eAFCR
+nvmxW/+r478tzKEVP4dtvaJ27g+Iu30872S60scCAKxlrHd2UbO2Eh1rmTm9
+orbp7QkAhWWud7aprt7GuYp1zY3sXlEbz2k7t3oTAEBhmeudO+9VKz127pzH
+tnocnfsCon3vZ8p8+nwCQCF7rncuY72vwD1pFYj2+rWdtWuje++BGh0AUMCe
+653b96fdRAU9O89ZtPeK6s1a0V7/Vs9PAChgj/XOLqlu2mXpYzs30X2fWe9+
+gOiu0fEo4/lpP4I+BgBwAM3816Ez2qa0v+Cq9HGei9XjSct5yK5ZGyNrdMTn
+++KskQLAnk6Q0TYtQ93bU5zTtnoc2X3VO7Jecr/jeSnfWR8FgD2dMKMtmz8r
+7VOwz+D457WtHsegOa6hc2rxee9C79ooANAurUMeMZeldc4Xae4s7Cc49Xnt
+2q85qFZtz5zao62fvV3vzJ6zAwC+dISMtoh1TY7Lwsf18Nzn66K9p8CofurR
+vm90s4f7bUZL82971ViL9R6GN0Pn/gBgDg6Q0Zax3seZ1jCr6D2Qsll8XsO9
+KT2ewu9FW02NUfNc0b33c1vrfWsZf86TrUwopwFwVlKuGpHL3jcZKOW7i9LH
+0HJMy60xX5UeV6H3oqsex+jcE+01c/d+/VjP/+26D05OA+BsNHkmt45t+rnr
+GnPZ1jFdd4y/6rEf6f1o6xWV7NVHvWOeblSmiu6e73IaAGdjQEZbTGEuKtbr
+nIu+ecDS45ybHdnq+Zj8F+seos9unxu7e8bLaQDMXvT3g5pUn6dY7xXInRe8
+Lj1ess/r9nydnAbArDXzTu/b5ptifc/ZJPZHNsfyIjOfbbosPXayzq+cBsDZ
+6MhoN1PLLs26bVve7LvPblLHeq7kNADOxY6MtoyJ9gJoxp27zrl9r91F6fGT
+fZ7lNADOQqzrm31q/v8k+2k2WfPtiHzmvrQJktMAOAfN/NP1lOeS0lplfFkT
+LcfSOuc0yWkAUL9or4nW5+0U13X587zLaQBQqVjXDxm7V+Cq9PjZ+/zLaQBQ
+oRhWE21TynVV9Bhl72tATgOAisTd/ulDvSg9fg56LchpAFCJUBONu9eDnAYA
+FYj1ntQxc2gLewXmSU4DgLIir396m6elx89Rrw05DQAKiXVNtDF7BZb2Csyf
+nAYAZcS4/unJjXXO8yCnAcBp7blXYJL9rhh9rchpAHAiq8fVyHXOlOsuSo+f
+k18vchoAHFnon86460ZOA4AjatY5lyP3ClyWHj9Frx05DQCOJPRPZ7/rR04D
+gAOLdf/0xci9Amqi8Qc5DQAOK/RP50DkNAA4jGavwNiaaC+sc7JNTgOA/YWa
+aByBnAYA+wn90zmS1ePj1jXzvPSYAGAKQk00jiTNm+2YS/vU5Lb0374uPUYA
+qFXon86BrR73R2b+e6XHDgC1iPE10W6scwIAHF6sa6KN3StwVXr8AABzFPqn
+AwBUpdkrcDNynfNF6fEDAMxRjO+fnubdLkuPHwBgjmJ8TTT90wEAjqBZ51yM
+zGj6pwMAHEHonw4AUJ0Y3z/9xjonAMDhhf7pAADVafYKjFnnTPevXZQeP5Q0
+cv55qFex7mea6I8FcAZC/3Q4mI0cdYrc9qn5s74vfdwAHF6s+6cvR3w3pOdc
+lh4/1Gr1+HrltxPmtTfm2ADmI8b3T1cTDTKsHo8yf6ferdxveY0nzZzZh8zX
+elT6uAEYL9b90xcj8pn+6TBAmt/K+L36mObeMl/vfuYc3bPSxw7AcKEmGpxM
+Zk57M+J1X5lXA5iP0D8dTq6Z/+r7/Xoy8rXf9Lzuh9LHD0C/UBMNioi8fZ9Z
+a547Xjtnrm5UBgTgNGJ8//RF2CsAe8mY8/qt5tcH4DhC/3QoLtZ7BLp+157v
++fpHm68D4DhiXRNtzF6BZdgrAAexenyf8Tu3173+kXf/mxq4AJUI/dOhChlz
+XR8P8Gfk3KNm3ydAYbGuiWavAFQi+u8dG1yPY8efYS8BQOVWj6uR65wp112U
+Hj/MUfTfm7Z3LVo5DaBeoX86VCny7k3b+76xyLs/bWc/KgCOJ9Y10ZYj1zkv
+S48f5mz1eN7ze3iQehmR1z9Ub3aAEwr906Fq0d+Dc696HBt/Tl8e3HuvAgB5
+Yr/+6WqiwQmsHl9n/E4eZA9mRh58Vfr9ADgHoX86TELmWuTetWcjbw+Be9MA
+jijWewXG1kR7YZ0TTitjLfLdgf6cV6f4cwDYLfRPh8lZPT70/H4eoh7HSfaT
+ArBbrPunj1nnXISaaFDEKfJTrO9/O3oWBOBLoSYaTFYcuVdUk9H69g7s3ecA
+gC+F/ukwadHfK2r0/stY17Ttm0eT0QCOINREg8mL/l5Rg+txxHr/6LuMzwJr
+nQAHFvv1T78qPX5gLfLuTeutbxvrtdOkb9/orbQOas8AwIHFfjXRLkqPH/hs
+QK46lN/GzM8B0C3WewVuRn42vyg9fuBL0X9//6GyWZpr07MT4AhC/3SYncjr
+FfWqyVh9ew1uvYnPa6DmzQCOLNY10cb8HXoR9gpAteJEvaKA89HM61zGep9h
+8rbJA4vIv2fq/cZzXjSv89C8zxfv9Vcxrn96on86VC5O1CsKmKcmj6W5nJsY
+t7dwrGWT/66bMZzdnFDonw6zF/oDAAPEeq7seo85nGNK+SPNvc2+/2SM759+
+c46ZFqYo9NoEMjTzNjcj525KSvNtV3PKJaF/OpyNOHKvKGC6Yr2WOMVsNtvM
+1oxf/3Q4E9G/f1MvJzgjsb4n/TrG1XaYipRzbmJC92eF/ulwlqK/V9ST0mME
+ji/Wa2k3FWSoU1tE5f2RYj2vuRxxbOk5l6XHD4wTefemqccBM9ZkgEUFeam0
+ZY15LfRPh7MV/fU4fis9RuA4TpnP/vrXv/7hp59++sPjx48//fLLL52ePn36
+58//8MMPfzz/L3/5y9nktVj3Tx9zftKarppoMAPR3yuqt+86MC3N9//Y+5w6
+ffPNN59+/PHHP3PYr7/++ukf//EfD+42xz148ODTt99+e8y8dlnoHKmJBmcu
+8npF6fcEMxGf9wccPJf9/PPPR8tkQ7Jbmns7Qm5bxIn2SYb+6UAj+ntFpf0F
+7k2DGWjmZ5aHyC0pB6X5spcvXxbNZV1SZkzzbWm99IB57frI50hNNOBP0X9v
+mnocMHGxXy2HO/NmaY3x9evXxTPYmMyWcuWB5tmOsq4Y+qcDW6K/HodeUTBh
+Mf4epz+le/fTmmbprHUoaQ4wrdPWMre2Z462VwBmKvSKgtlqvvvH9n38Q8oy
+U5w7GzLHlu5l23P/aJpbu9jjPF2OzNHLsFcAZi30ioJZivH3OJ1FPjtCXht1
+b9geOfomrHPC7EV/ryj1OGBiYo91znS//TnlsyPktay9lrGuiTJ2r8BV6WsM
+OI3QKwpmJUbW20j31qd6FqVzUi1SVt1jj2hn/f8Y3z99r/VVOCexrmXxLD6v
+G05u3mn1uJ/xueDeNJiIGFFvK80bpT2QpXNRrVJ2TXtcD5GpYr+aaNelry+o
+TZpL2shiyYeO36HJ1YGN/nocn0qPEejXfP8PXkNLezjPeY0zV1oLTbVIRmSr
+NGf2XXOO0v2Cy5GvcVn6GoOajPy7zuTqwPbkzuRD6TEC3cZkNHNo44ycW0s5
+67+N/F7RPx0yxHqNs+s+rnelxzjimHLWPOU0qNiYjJbuQ6u5f0Dt0tzagXsb
+tFETDQaI7jXCydWBzZhLm+w8IZyDMRkt1doo3XtzLtJ85JHymf7pMEJ01xmb
+1L32q8erAZ8Zk9sfAXM3JqNZ5zy8NC+5Z33cbamWmnVOGKFjPm0SdWBXj3tN
+1vxtxGfHu+a590ofB5y7oRkt5Qj1No4n7cM4QL9Q/dNhTx35pvr5pgP+Xe/W
+5NZ5YS5i3W87O6O5F+340lryHlktnc+L0tcVTNnq8XXH79jk6nEA0xQDam+l
+3KDmxmmN6Ote/d/zYQpivd+z7ffMffbA0a0eT4dkNPsFJpHVFqWvK5iDaO+B
+Obl6HMD0xLpfp4w2EQOzWlY/UKBdtNdOc58WcFSx7ted1QtSRqvHwKx2Vfo6
+g6laPb7v+N2aVD0OYHoic2+nPQP1SX25MnPan/2lgGGivW7aJOpxcOdcpvt7
+Un2ii9JjgRzN9SqjTdTAfaDvS19vMEUd96a9Kj02Bp/Ly43zt7DWQM22rtdO
+P//8c/FMQntWG1AL171qMECoxzE7O+YnfjfHRm1iXct2mfPdrs9A/dJcZ27m
+Tvm89PUHUxHqccxO8/3Xdk+2OTaqkLvemfqBl84g5Hn69GluTkv5XO8oyBDt
+vaJ+Kz029jqvVz2fk+bYKCZ3vfObb76xt3NiBuwBvS59HcIURHuvKPU4Ji7y
+e+8smlzn77ecRGSud9o3MD0pV6d8nfnZY/8ndIjue9PU45i49BmY+Vm5Ocd2
+47OTY0rzKDnX408//VQ8czDOgHvVFqWvR6hZqMcxe5F5D9AO782xcWjRfe/k
+n1JNrtJZg/2knJ35WfOw9HUJtYqB9ThWj3sjv/NvPSl9zOcm93ux7++8zRzI
+Q7mNfURmj3XrnfOQWVdtWfq6hFpFe6+orHoczXzch57fwee5r8fRznN238RM
+y+b7NtXUvSx9fExDrHtD9V5f1jvn45dffsn9TLkqfX1CbaK7V1R2PY5oXzt9
+M+R1Cr8XV8180ZwtW87ToSxivcaaMuFF6XNKfSJjLi3df146W3BYmfs/05y/
+uXrYEO35alA9jthd12NS82eRvy+SfMuVt2HOjfXv2EXOdaPnwPwM6FXwtPR1
+CjWJA9TjiC/vV0troJPbJyqnnUx6n69Ln2+K/I7d9F0f9g7MV+aegmXp6xRq
+EQeox9G8xmbWS/98r/SxjXw/FhVkmLlK+0bTeuhVWA89S5E5l5buZSqdJziO
+ATXVrkpfr1CDaO8VlV2PI+5mtDelj2nP9yPliMXMLVvO+SGle0zSWud1WOuk
+ERm1YcylzV9mT6ll6esVahDtvaJ21uPYeu72PNrz0sdD7zm7OFIuW4S5MjpE
+Zl0Yc2nnIXNO7bL0dQulRfu9aZ33/8f6frTN56qHNgFxmHXdZdgXwEDR32fW
+XNoZefz4cc5nzU3p6xZKipH1OJrnbdZKu1/6WMg63/vUTluYK2Mfsb4/0Vwa
+fxiw91ONDs5WjKjHEXfvZ5vkns5zFOs1p+XAbJbWqF7IZuwrMtbb1Us7Pw8e
+PMj5HFKjg7MV7b2idtbj2Mp1k93TeY4is9/15txZ6TEzH5GxfyDdW146N3Ba
+r1+/zvk8el/6+oVSor1X1BdzZFuZ7l1MpL8AeXMZ5s44pr653LT+ldbBSucG
+Ti/dk5jx+XRR+hqGU4v2e9M+bv3c9n6B3n2g1CW69w6k/QAPS4+R+Vo9vuv7
+Hk79hErnBcrIrNFh7ZOzExn1OFaP+1tzbh9Kj5vB53nX3oE0t3Ht76icQmSs
+eeoRdb4y9xNY++TsRE89jmivf2tv50TEl/WqzJ1xctGzzzN9R5fOCpSV2Z/9
+ovS1DKcS3b2ivu6Ya0sm3W/gnDTzGObOKCYy7o205kmaT83IaVelr2c4lY65
+slRn413G74t9nkCvyKhta82TJON756b09Qynsnq8yvid6PqZnXU7ADal79a+
+z5rS+YA6/PDDD33fSb+Xvp7hVKK9Hsen5r/db36urb5ado924HxFTz2O9N1c
+Oh9Qh8w+Uhelr2k4tujuFXWnLlqs93u2/ax+nkCrWO9j6fzeTd/NpfMBdXj5
+8qV71ODTH5+dbb2idu4PiLt9PO9kutLHAtQrMvrJ6ufJpoz6HC9KX9dwbB1r
+mTm9orbp7QnsFBm9ykrnAuqScY/aovR1DccU65ob2b2iNp7T9jujNwGwU6zr
+9bV+56Z+QaVzAXX56aefetc+S1/XcEzRXo+jc19AtO/9TJlPn0/gC9Gzh+DB
+gwfFcwF1SevgfTkt7CVgxqK9fm1n7dro3nugRgfwhb7v29TXsXQuoC6vX7/O
+yWmXpa9tOJZo7xXVm7Wivf6tnp/AHZHRe90eAnbJyGnXpa9vOIbovs+sdz9A
+dNfoeJTx/LQfQR8DOANpzqPv+zb13y6dCahPum9RTuMcrR5PWq757Jq1MbJG
+R3y+L84aKZyB1eNpX04rnQeokz2fnKtor8eR3Ve9I+sl9zue98H6KJyP6KnJ
+Ya8nbTL2fC5KX99wDNFej2PQHNfQObX4vHehd20UmIfV44WcxhgZOW1Z+vqG
+Q4vu/ZqDatX2zKk92vrZ2/XOIXN26T66dC/brj0Pz7rm7eh8X9N93ZdwIu+j
+47v2xx9/LJ4HqNPPP//cl9M+lf48hUOL9p4Co/qpR/u+0c0e7rcZLc2/ZdVY
+i/a6IV/M3YU9CUPP2SLzvYWjS3MmpfMAdcqpoVb68xQOLdpramTPc229Xtfe
+z22981+rx71oz35tUibUtyr/nC1KfzfDLTmNNnIa5ya663GM3n8ZeXNfWa8f
+wzParey5unMXchoVkdNoI6dxbqK9V1Sy13xUtM/TJbkZbTPvvdt+Xqzn2rp6
+wesxmvc+L0p/N8MtOY02L1++zLmGviv9mQpTEV9mqJS7svJfrDPY7fM6c120
+r43qMZr3Xi9KfzfDLTmNLhnX0GXpz1Q4B/F5Li137i2t4e6qC6LmR/97tyj9
+3Qy35DS6ZFxDl6U/U+EcxHoubNBehthdF0Sfg/73bVH6uxluyWm0se4JdYjP
+Nd0G1deI3fsi5LT+921R+rsZbslptLGPAOoQ6/vaOvuCdjx3+z41OQ0qEj1/
+L5DTaCOnwfTFl/tM3Z8GFZHTGEtOg+nbkdPs94SK9OU0faNoo28UTF/c7Sk/
+qqcCcDyrx3XX96w+7LTRhx2mLb7sKa8vO1RGTmOsjJy2KH19n7PV43Ll/cqL
+lYcrX5UeE3WJu3V19SKACq0eT/vWrkrnAer0ww8/9OW0/1n6+j5nLX8HWzT/
+/rL0+CgvPte51dsTKtX8nbvz+/bXX38tngmoT5pr7bt20trnys3K1cpF6ev9
+nERejae3zd/V1Lk7M1tzaXv1JgWOJ30+932Wp319pTMB9cnIAHJbud/rr0ac
+m9+b3ObczFys+3ve7h94Uno8QLe+z+/Hjx8XzwTU5fXr12Nz2q7c5v6pw/9O
+f9XkrZvmPZap2bw+bmvbqmkLExDre41bP68fPHhQPBdQl5yaHCO57/04v+MX
+sV7ffNvMm83y3DTjuyg9jpqtHq+a82nfAExE89nd+vlszyfbMvZ6Hjq3XZb+
+PZmTWN/vkHLbYs9zc13TuWmOJ+XQh6XHUqP4fE+aOmkwIdFTmyMpnQuoS+Ye
+gmNY1JYN5iDW+4muo2duPePcFN2TEHf3r78o/b7WZPV41Lwvo/qAAuVExp5P
+ewnY9Je//KVUTpPbjv95kO5tS2ubL/bIbbd7ElJuujjh2Lf3Rb0vmRtrEZ/r
+2f5WeizAcJGxN0yfT269fPmydDbLyQZn/918wM+Hi5jQnoQdY0zXxVXp97Hg
++UsZLe3tTHsH1EiDier7/HWPGrfS/t+M7+V/F/vfty63VSgq35PQvO6uP/Pm
+0H9W7WJdf+ODjAbT13yGdX62ls4H1CGjD8Fyx/V1e9966dyWrvOrsCfwkJ8d
+m+d27Lk52J6EJvt1/TlnkdlTLmvyWcpp90Y8X7aDijTfXZ2fpakWQ+mMQFmp
+N0XGd+5NxvX2XfO9vCiU2f7Ik3LbUT5LLg9wbhfNa4zKVNH/d4Gnpd+nI5+D
+fTPa86T0cQCfRcY9aj/++GPxnEBZT58+zfmOvRpx/R3iu/2Que2s1seO/Lly
+yD0JWbkt8ub23s71PK8e78ZktFivk97WVxuc74Dj6vscTXv8SucEykpZPeP7
+b+/vvjhMnYh9VV/XdWriRH0SImN9YOO1ZrUO2mS0fa99tTugQpFRR83a5/nK
+XPN8f4Tr8hBzMnJbheLzXtJ97ltcbp+X5nWHvMZ16ffiQO/nq4HH3UbPT6hQ
+ZPRkt/Z5vjLXPI9+309FuW0Rarcd4zPoEHsS0rXxv0ecz8nm7wNmtI+ljwVo
+FxlrEWlepXRm4PQyexBcFLhmL2L/tTS5rUJx+vsWf5/i+YvP/aAOQW92qFhk
+rH2m+lmlMwOn9fr165zP94OveY68hmvKbWq3He68nnIedTHFvAbMX2Tc1/HN
+N98Uzw2cVub+gavS12/HNZ1yW+nabWruHva83ua2mzheHk/n7KL0sQJsiow1
+BvsJzkda587s5zmJe3uinpq7J+9/OWdxdx71nw58vm6cJ6AWkbGnXR+p85F6
+u+Z8j5W+bve43g9x7/q+lqHm7qHO580Rz5O8BlQhMuYZfvnll+IZguMaMJd2
+WfqaPeC1fxl11dy9KP2eTMWRM5q8BlQjMvYTmFObv8y5tCr2Dxzxd6GW3KZ2
+W/d5OlVGk9eA4iKzTqQ5tfkaMJd2Vfp6PfHvRg2129TcvXtOSmS0TS+cB+DU
+cj77zKnNV+Zc2rL0dVr4d6SWmru3ue2y9HtS4P0vndFupXtFruU14FQic04t
+1akvnSk4rFQvzVzaqN+ZU9SKyLGImdfcbd7rQ2bjRRxm/6+8BpxMZPxdNdVT
+06NgXjLrpS1LX5+1i7pq7s4mt43IaL8378Hb5n1I+3svc9+P5jxe7vCweb1d
+1F4Dji4y59TSGlnpbMFhpHsOM7/7rkpfn1NTSW6bfM3dHRlt2eSwm60cNsnj
+Axgi1ve99H7+v3z5snjGYD9pXjTNj2ac72Xp63IOor6au5PINfF5Puui9FgA
+Sov1GkPvd8i3335bPGewnwcPHuR+t1+Wvi7nqKLclualruQggGlovjt6P+Ot
+f07XgPXORenr8Vw0ue06ytduk9sAKheZ9+2qqTY9A9Y7P/muLvo7eFlZbrOn
+EaASzXdE7+e4/Z/T88MPP+R+R1+Xvg754nfyOvfvUEei5i5AJSJzT0H63i+d
+Pcjz+PHj7O/j0tcfnb+btdXcldsATqz5LljmfF67V61+A+5JSyaxF5A7v6s1
+5LZFzKh2G0DtInP9M9GroF4Deg4k16WvO/b+vb2I8rXb5DaAE2g+Z3s/k1MO
+UFetPun+wVRHJfN71XrnDFWW2yZTuw1gKiJzz5msVpeBGS3V0roofa1xkt/n
+29xWunbbpGruAtQqMuvf3ma1tM5WOqMwaG9n8rD0dUax3+9aau7e5raL0u8J
+wNTEgHvV0hyOeh1lZfZXv3Vd+vqiHlu5rURmS5ah5i7AIM1nZnZWM682iYz2
+tvR1Rd2inpq71kcBejR/x836bHW/2mmlOcy//vWvQ777Ug0Hda8YpGBuc60C
+ZJDV6jNwz8Dt/ITvPfYWp6ndZi8yQKZY7yvI/kxOWU19teNJOXhgRkv3bFtD
+4uDieDV3X5Q+NoApGZrVEn0LDi/1GRhQw1ZG46Q2cttN7Fe7zX5kgIHGZLVU
+K8Je0MNIuXfgd52MRlExvuauNXqAEcZktW+++cY9a3tIOXdgbTQZjSpl5rZF
+6XECTNmYrBbWQUcZsc4pozEZsbvm7nXpcQFMXZPVboZmtVRHQp21fmkO7cGD
+B2Pu61nKaExVk9useQIcyJisZm6t288///zHWvGI91V9NADgjhjQt2BTyiJp
+Xa90LqpFmmccWLd2042MBgDsEuua5aN6Oqdscs55La1xDuz9tO269PkHAOoW
+671co2tdpqxyTveupXyW1n9H7BO49U8pH5c+7wDAdMS6Nvno+aFUg2LO82sp
+i6Y9AnvkszvrnaXPNwAwLc066HKfDJJ6I82p/1TKnnuub8pqAMBBxLp2x15z
+a0mad0r5Zoq1ctPc2ePHj8fu35TVAICjOsTc2q2Ud9KaYc2Z7TabDeyVLqsB
+AMWsHtcxck9o1zxbWhstuf8g7QdINc9SfjzCvNl/X/k/shoAcGyx3hN6c4z5
+pJTb0h6EtIcy5aZjZLeUydJ9Zmm+LGXEI65nLqLZyxnrGu1D8u1N6fMMAEzX
+MfPatrT+mGq0pVyVMlySclbKW7uk+bnbn0tzZOm5e9SfHWq58nDH+yWrAQAn
+dcq8VrlUd+6q572S1QCAk9vIawe7f20i3saAWrWyGgBQSqxreTyNA+0PrVTK
+WaleycXI90hWAwCKavLIi4GZpGZp7uyLe8/2eG9kNQCguJRvmsy2rCBvDZk3
+u1m5WvnqCO+JrAYAVKXJJ0+b+ana5toWsa4Td3nC90JWAwCq1GSVq2a+bXHC
+TPa+mS97eqpc1nH8shoAMAmx3o9w2eS3640Md6sv12z+7E3zGk+b1/yu9PHt
+OF5ZDQCgUrIaAEC9ZDUAgHrJagAA9ZLVAADqJasBANRLVgMAqJesBgBQL1kN
+AKBeshoAQL1kNQCAeslqAAD1ktUAAOolqwEA1EtWAwCol6wGAFAvWQ0AoF6y
+GgBAvWQ1AIB6yWoAAPWS1QAA6iWrAQDUS1YDAKiXrAYAUC9ZDQCgXrIaAEC9
+ZDUAgHrJagAA9ZLVAADqJasBANRLVgMAqJesRimrx6OVZ430L56XHhMA1EZW
+41hWjycbWSz50HFdPSo9XgCo0Zyy2urx1cr7lavSYzlXA66jTV+XHjcA1GoO
+WW0jo1U7xnPUrHF+7LiW3pUeIwDUbupZLY2n9jGeq3T/Wcd19Kz0+ABgCqac
+1VaPty1jTHNsX5Ue3zmLz/sFdvm+9PgAYComntV2zanJauXPS9t82sfSYwOA
+qZl4VrtuGWM6nu9Kj+8crR6/tZwT9TgAYISJZ7Wrjqx2WXp852T1+LrjmlGP
+AwBGmnhWu+wY+1Xp8Z2LWO/3bLte1OMAgD1MPKt1jf1p6fGdg9XjTcv7rx4H
+ABzAxLPaRdytq1blOOcq2munqccBAAcy8ay2XQN3U6rnYS/ocd737zuuD/U4
+AOCAppzVmvHftIxT3Y7jvN9tddPU4wCAI5h5VlO347Dvddu9aa9Kjw0A5moG
+We2qZZxqrB3uPVaPAwAKmUlW2zX+9O+uSo9v6kI9DgAoagZZrWv8V6XHN2XR
+3ivqt9JjA4BzMZOstmwZ64vS45uqaO8VpR4HAJzQDLJaV92OqsY6BT33pqnH
+AQAnNpOstmgZq7odw95L9TgAoDJTz2rNMdzIanu/h4Pqcawe9wZcM7s8KX3M
+ADAFM8lq1y1jVbcj7/1r6xWVVY+jmY/70HPdPM99PQDgs5lktauOrHZZeny1
+iu5eUdn1OKJ97fTNkNcBAL40k6z2sOMYrkqPr0Yd+WpQPY7YXdfD/BkAHMhM
+slrXMTwtPb7axAHqccSX96ulNVD7RAHgwGaS1S5C3Y6c92nvehzNa2xmvfTP
+90ofGwDM1UyyWleNtbdhL2h6j9p6RWXX49jKaG9KHxMAnIMZZbWblvGefd2O
+aO8VtbMex9Zzt+fRnpc+HgA4J3PIas1xdGW1s63bEe33pnXe/x/r+9E2n6se
+GgAUMKOsdtUy3rOssRYj63E0z9uslXa/9LEAwDk7k6x2VXp8J34vBtfjiLv3
+s9nTCQCVmFFW6zqOq9LjO+H70NYramc9jq1cZ08nAFRmZllt2TLmF3u8btq3
+MIm9CdHeK+qLObKtTPeua10UAChnRlmtq27HqDGvHpcp/5U+toxxtt2b9nHr
+57b3C/TuAwUAyppZVlu0jHlw3Y743A/+qvSx9Yyztx7H6nF/a87tQ+lxAwB5
+5pLVmmO5OURWi3X93E+1z6lFTz2OaK9/a28nAEzEzLLadcuYs+t2xN111KvS
+x9Qyxq5eUV93zLUl+g0AwITMLKtddWS1y4znbz5nWfp4WsbYNleW6my8yzh/
+9nkCwITMLKs97DiWq47nXQ75+YLH9yrj/HT9zM66HQBAvWaW1bqO5WnLc3bN
+xS1LH8uOcbbV4/jU/Lf7zc+11VfL7tEOANRjZlntIgbU7Yj2+9uuSh/Lxhi7
+ekXdqYsW6/2ebT+rnycATNDMslpnjbXY2Asa7fU9lqWPY2OMbb2idu4PiLt9
+PO9kutLHAgCMM8OsdtMy7j/rdvQc71Xp42jGuE+vqG16ewLARM0pqzXH05XV
+/nXPsS0rGH+quZHdK2rjOW3HpDcBAEzYDLPaVcu4/2/GsV0VHntbPY7OfQHR
+vvczZT59PgFgws4oq/VZRsEe7dFev7azdm107z1QowMAJm6GWW3o8dy6Ljjm
+tl5RvVkr2uvf6vkJADMwp6wW65od/3Xl/w3Mab+XmFOL7vvMevcDRHeNjkcZ
+z0/7EfQxAICKTTmrNdnsabTX6ah2Tm31eNIyluyatTGyRkd8vi/OGikAVG5K
+Wa0Z64tY31u2TzYrOqcW7fU4svuqd2S95H7H81K+sz4KABNRc1aLdX/PmwNn
+s6JzatFej2PQHNfQObX4vHehd20UAKhHrVkt2vsKHNLJ5tSie7/moFq1PXNq
+j7Z+9na9M3vODgCoR8VZ7SIOcy9al7cnOpa2ngKj+qlH+77RzR7utxktzb9l
+11iL9X6HZy1/xrPoWF8FAA6v1qy2Nb5D36N26+oE42+rqTFqniu6935uy85V
+HXnyIOMGAMapPattjPP23rUxtdN2Sa/z3RHH21WPY/T+y2ivmTvq9TuypKwG
+ABWYSlbbGO/VytsDZLU/e7kfYYxtvaKSvfqo92SrIRntdi/qh+3nrR73on2e
+7UnpaxYAzsnUsloz5q9i/3vZXpQ+jpHHvp2hng/JfxvP7+tdlfLa9j1ran0A
+wIlNMattjP1i5TrG3cv2sPT4T/xepTXZtPfgeebP3zv0nCAAMNyUs9rWMbwY
+cBzp5y5Kj/uE788f+zoHPme7Xq/9nwBQwMCsVm3GaebYbjKPY1F6vCd8Xwb3
+/Iwv11nNpwFAIZlZ7ah7Jg98LIuMrHZdeqy12sppac00uzYbAHB4PVltEhlt
+63guo//+tcvS46zR1rrnq9LjAQBas9rkMtrWMV115LWT92qvXXzed3A7lzZo
+zRQAOJ6trDbpjLZxTKmmx3XLfOFJ+kpNxcZc2kf3pQFAfZqstpxDRts6rpTX
+bnZktaelx1aDuFsLV0YDAE4u1ntDt/cazCqTDnw/HjXZTB0OAKAKzV6D2/4G
+R+srVavV40l82X/g1jv3pgEApW3sNbgpPZYTHW9XP9Jtj0qPFwA4bxt7DS5L
+j6XAsafc9mxjn6esBgBQmfiyF4FatwAAlWjuW9vOas9KjwsAgD+y2qutnDao
+lzsAAMeR9npuz6mVHhMAAGvbNTtKjwcAgLWttc+PpccDAMDaVk5zfxoAQCU2
++n3a7wkAUJGturd6SAEAVGCrhpq5NACACqTeAysfbvuxlx4PAMAcbfWBepXT
+qzNlMxkNAOC4NubFNn1o8tu9jZ/7uvl3tz//qvTYAQDmbPV4viOndUl7PL8v
+PW4AgHOQ1jq3amzsmluzVwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAIDi/j8BXvDE
+     "], {{0, 438}, {618, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{95.4729166666659, Automatic},
+   ImageSizeRaw->{618, 438},
+   PlotRange->{{0, 618}, {0, 438}}]], "Input"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1444559690],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MandelstamRelations", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"P", ",", 
+     RowBox[{"-", "k1"}], ",", "k2", ",", "k3", ",", "M", ",", "m1", ",", 
+     "m2", ",", "m3"}], "}"}], "\[Rule]", 
+   RowBox[{"{", 
+    RowBox[{
+     SuperscriptBox["M23", "2"], ",", 
+     SuperscriptBox["M13", "2"], ",", 
+     SuperscriptBox["M12", "2"]}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1279125529],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"P", ".", "P"}], "\[Rule]", 
+    SuperscriptBox["M", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "k1"}], "\[Rule]", 
+    SuperscriptBox["m1", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k2", ".", "k2"}], "\[Rule]", 
+    SuperscriptBox["m2", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k3", ".", "k3"}], "\[Rule]", 
+    SuperscriptBox["m3", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "P"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["M", "2"], "+", 
+       SuperscriptBox["m1", "2"], "-", 
+       SuperscriptBox["M23", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k2", ".", "k3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m2", "2"]}], "+", 
+       SuperscriptBox["M23", "2"], "-", 
+       SuperscriptBox["m3", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k2", ".", "P"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["M", "2"], "-", 
+       SuperscriptBox["M13", "2"], "+", 
+       SuperscriptBox["m2", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "k3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m1", "2"]}], "+", 
+       SuperscriptBox["M13", "2"], "-", 
+       SuperscriptBox["m3", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k3", ".", "P"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["M", "2"], "-", 
+       SuperscriptBox["M12", "2"], "+", 
+       SuperscriptBox["m3", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "k2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m1", "2"]}], "+", 
+       SuperscriptBox["M12", "2"], "-", 
+       SuperscriptBox["m2", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+      RowBox[{"{", "k1", "}"}], ",", 
+      RowBox[{"{", "k2", "}"}], ",", 
+      RowBox[{"{", "k3", "}"}], ",", 
+      RowBox[{"{", "P", "}"}]}]], "\[Rule]", "0"}]}], "}"}]], "Output",
+ ImageSize->{566, 90},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->760147784]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MandelstamRelations", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"P", ",", 
+      RowBox[{"-", "k1"}], ",", "k2", ",", "k3", ",", "M", ",", "m1", ",", 
+      "m2", ",", "m3"}], "}"}], "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      SuperscriptBox["M23", "2"], ",", 
+      SuperscriptBox["M13", "2"], ",", 
+      SuperscriptBox["M12", "2"]}], "}"}]}], ",", 
+   RowBox[{"Eliminate", "\[Rule]", 
+    SuperscriptBox["M13", "2"]}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->655745095],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"P", ".", "P"}], "\[Rule]", 
+    SuperscriptBox["M", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "k1"}], "\[Rule]", 
+    SuperscriptBox["m1", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k2", ".", "k2"}], "\[Rule]", 
+    SuperscriptBox["m2", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k3", ".", "k3"}], "\[Rule]", 
+    SuperscriptBox["m3", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "P"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["M", "2"], "+", 
+       SuperscriptBox["m1", "2"], "-", 
+       SuperscriptBox["M23", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k2", ".", "k3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m2", "2"]}], "+", 
+       SuperscriptBox["M23", "2"], "-", 
+       SuperscriptBox["m3", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k2", ".", "P"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m1", "2"]}], "+", 
+       SuperscriptBox["M12", "2"], "+", 
+       SuperscriptBox["M23", "2"], "-", 
+       SuperscriptBox["m3", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "k3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["M", "2"], "-", 
+       SuperscriptBox["M12", "2"], "+", 
+       SuperscriptBox["m2", "2"], "-", 
+       SuperscriptBox["M23", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k3", ".", "P"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["M", "2"], "-", 
+       SuperscriptBox["M12", "2"], "+", 
+       SuperscriptBox["m3", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "k2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m1", "2"]}], "+", 
+       SuperscriptBox["M12", "2"], "-", 
+       SuperscriptBox["m2", "2"]}], ")"}]}]}], ",", 
+   RowBox[{
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+      RowBox[{"{", "k1", "}"}], ",", 
+      RowBox[{"{", "k2", "}"}], ",", 
+      RowBox[{"{", "k3", "}"}], ",", 
+      RowBox[{"{", "P", "}"}]}]], "\[Rule]", "0"}]}], "}"}]], "Output",
+ ImageSize->{509, 113},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->363545990]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->65893036],
+
+Cell[TextData[{
+ "Heavy particle kinematics.  Two heavy particles of mass ",
+ Cell[BoxData["M"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " at rest (velocity four-vectors ",
+ Cell[BoxData["v1"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["v2"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " ) annihilating into two massless particles (momentum four-vecetors ",
+ Cell[BoxData["p3"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["p4"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "):"
+}], "ExampleText",
+ CellID->1281758232],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LScalarQ", "[", "M", "]"}], "=", "True"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1010628932],
+
+Cell[BoxData["True"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->886733865]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"MandelstamRelations", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"M", " ", "v1"}], ",", 
+       RowBox[{"M", " ", "v2"}], ",", "p3", ",", "p4", ",", "M", ",", "M", 
+       ",", "0", ",", "0"}], "}"}], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], ",", 
+    RowBox[{"Eliminate", "\[Rule]", "u"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"s", "\[Rule]", 
+     RowBox[{"4", 
+      SuperscriptBox["M", "2"]}]}], ",", 
+    RowBox[{"t", "\[Rule]", 
+     RowBox[{"-", 
+      SuperscriptBox["M", "2"]}]}]}], "}"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->142735999],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"v1", ".", "v1"}], "\[Rule]", "1"}], ",", 
+   RowBox[{
+    RowBox[{"v2", ".", "v2"}], "\[Rule]", "1"}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p3"}], "\[Rule]", "0"}], ",", 
+   RowBox[{
+    RowBox[{"p4", ".", "p4"}], "\[Rule]", "0"}], ",", 
+   RowBox[{
+    RowBox[{"v1", ".", "v2"}], "\[Rule]", "1"}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p4"}], "\[Rule]", 
+    RowBox[{"2", " ", 
+     SuperscriptBox["M", "2"]}]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "v1"}], "\[Rule]", "M"}], ",", 
+   RowBox[{
+    RowBox[{"p4", ".", "v2"}], "\[Rule]", "M"}], ",", 
+   RowBox[{
+    RowBox[{"p4", ".", "v1"}], "\[Rule]", "M"}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "v2"}], "\[Rule]", "M"}], ",", 
+   RowBox[{
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+      RowBox[{"{", "p3", "}"}], ",", 
+      RowBox[{"{", "p4", "}"}], ",", 
+      RowBox[{"{", "v1", "}"}], ",", 
+      RowBox[{"{", "v2", "}"}]}]], "\[Rule]", "0"}]}], "}"}]], "Output",
+ ImageSize->{443, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1641906076]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Apply",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Apply"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " ",
+ Cell[BoxData[
+  ButtonBox["Set",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Set"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " at level one to define the scalar products."
+}], "ExampleText",
+ CellID->1401954032],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Set", "@@@", 
+  RowBox[{"MandelstamRelations", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "p1", ",", "p2", ",", "p3", ",", "p4", ",", "0", ",", "0", ",", "0", 
+       ",", "0"}], "}"}], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], ",", 
+    RowBox[{"Eliminate", "\[Rule]", "u"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1918554219],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+   FractionBox["s", "2"], ",", 
+   FractionBox["s", "2"], ",", 
+   RowBox[{"-", 
+    FractionBox["t", "2"]}], ",", 
+   RowBox[{"-", 
+    FractionBox["t", "2"]}], ",", 
+   FractionBox[
+    RowBox[{"s", "+", "t"}], "2"], ",", 
+   FractionBox[
+    RowBox[{"s", "+", "t"}], "2"], ",", "0"}], "}"}]], "Output",
+ ImageSize->{287, 29},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1236661553]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"p1", ".", "p1"}], "\[IndentingNewLine]", 
+ RowBox[{"p1", ".", "p2"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1491593885],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->780208622],
+
+Cell[BoxData[
+ FractionBox["s", "2"]], "Output",
+ ImageSize->{16, 28},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->431161372]
+}, Open  ]],
+
+Cell[TextData[{
+ "All ",
+ Cell[BoxData[
+  ButtonBox["LDot",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LDot"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " products will be replaced in the course of evalution. This may improve \
+evaluation times for algebra intensive computations:"
+}], "ExampleText",
+ CellID->840858319],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"result1", "=", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Spur", "[", 
+        RowBox[{
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ")"}], ".", 
+           "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p1", "-", "p3"}], ")"}], ".", "\[Gamma]"}], 
+          "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+       
+       RowBox[{"{", 
+        RowBox[{"k", ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ",", "m"}], "}"}]}], 
+      "]"}]}], ")"}], ";"}], "//", "AbsoluteTiming"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1361600262],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+  "0.50266599999999994619059862088761292398`5.721879424105959", ",", "Null"}],
+   "}"}]], "Output",
+ ImageSize->{116, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->441636217]
+}, Open  ]],
+
+Cell["\<\
+Compare timing with doing the replacements after the computation. \
+\>", "ExampleText",
+ CellID->971381659],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Clear", "[", 
+   RowBox[{"LDot", ",", "LTensor"}], "]"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"result2", "=", 
+     RowBox[{
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Spur", "[", 
+         RowBox[{
+          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+          RowBox[{
+           RowBox[{"k", ".", "\[Gamma]"}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ")"}], ".", 
+            "\[Gamma]"}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p1", "-", "p3"}], ")"}], ".", "\[Gamma]"}], 
+           "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ",", "m"}], "}"}]}],
+        "]"}], "/.", 
+      RowBox[{"MandelstamRelations", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+          "p1", ",", "p2", ",", "p3", ",", "p4", ",", "0", ",", "0", ",", "0",
+            ",", "0"}], "}"}], "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], ",", 
+        RowBox[{"Eliminate", "\[Rule]", "u"}]}], "]"}]}]}], ")"}], ";"}], "//",
+   "AbsoluteTiming"}]}], "Input",
+ CellLabel->"In[4]:=",
+ CellID->795228723],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+  "0.6037590000000000456381599178712349385`5.8014635309459495", ",", "Null"}],
+   "}"}]], "Output",
+ ImageSize->{116, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->318032436]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"result1", "-", "result2"}], "//", "Simplify"}]], "Input",
+ CellLabel->"In[5]:=",
+ CellID->77730821],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[5]=",
+ CellID->584655181]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[TextData[{
+ "Compute the one-loop contribution to ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Phi]\[Phi]", "\[Rule]", "\[Phi]\[Phi]"}], TraditionalForm]], 
+  "InlineMath"],
+ " elastic scattering in ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    FractionBox["\[Lambda]", 
+     RowBox[{"4", "!"}]], " ", 
+    SuperscriptBox["\[Phi]", "4"]}], TraditionalForm]], "InlineMath"],
+ " theory:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1968954378],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"onShell", "=", 
+  RowBox[{"MandelstamRelations", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "p1", ",", "p2", ",", "p3", ",", "p4", ",", "m", ",", "m", ",", "m", ",",
+       "m"}], "}"}], "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->748143163],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+    SuperscriptBox["m", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+    SuperscriptBox["m", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p3"}], "\[Rule]", 
+    SuperscriptBox["m", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p4", ".", "p4"}], "\[Rule]", 
+    SuperscriptBox["m", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"]}], "-", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"]}], "-", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p4"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"]}], "-", "u"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p3"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"]}], "-", "u"}], ")"}]}]}], ",", 
+   RowBox[{
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}], ",", 
+      RowBox[{"{", "p3", "}"}], ",", 
+      RowBox[{"{", "p4", "}"}]}]], "\[Rule]", "0"}]}], "}"}]], "Output",
+ ImageSize->{454, 90},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->885838011]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"sChannel", "=", 
+   RowBox[{
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["\[Lambda]", "2"], "2"], 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{"1", ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p1", "+", "p2", "+", "k"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "m"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"tChannel", "=", 
+   RowBox[{
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["\[Lambda]", "2"], "2"], 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{"1", ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p1", "-", "p3", "+", "k"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "m"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"uChannel", "=", 
+   RowBox[{
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["\[Lambda]", "2"], "2"], 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{"1", ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p1", "-", "p4", "+", "k"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "m"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  ";"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1880019475],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"sChannel", "+", "tChannel", "+", "uChannel"}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1560418014],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"3", " ", 
+   SuperscriptBox["\[Lambda]", "2"]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["\[Lambda]", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["\[Lambda]", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{"t", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["\[Lambda]", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{"u", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["3", "2"], " ", 
+   SuperscriptBox["\[Lambda]", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{571, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1965292787]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "Momentum variables should be distinct from one another.  Otherwise, ",
+ Cell[BoxData[
+  ButtonBox["MandelstamRelations",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/MandelstamRelations"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will return an empty list:"
+}], "ExampleText",
+ CellID->1494718552],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MandelstamRelations", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+    "p1", ",", "p1", ",", "p3", ",", "p4", ",", "m", ",", "m", ",", "m", ",", 
+     "m"}], "}"}], "\[Rule]", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1462133664],
+
+Cell[BoxData[
+ RowBox[{"{", "}"}]], "Output",
+ ImageSize->{18, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->549108861]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LDot",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LDot"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LScalarQ",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LScalarQ"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1316473845],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "MandelstamRelations - Wolfram Mathematica", "MandelstamRelations"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 52.035659}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "MandelstamRelations[{p_1, p_2, p_3, p_4, m_1, m_2, m_3, m_4} -> {s, t, \
+u}] gives a list of replacement rules expressing dot products of incoming \
+4-vectors p_1, p_2 and outgoing 4-vectors p_3, p_4 as Mandelstam invariants \
+s, t, u, and masses m_1, m_2, m_3, m_4", "synonyms" -> {}, "title" -> 
+    "MandelstamRelations", "titlemodifier" -> "", "windowtitle" -> 
+    "MandelstamRelations", "type" -> "Symbol", "uri" -> 
+    "X/ref/MandelstamRelations"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/MetricG.nb b/packages/X/Documentation/English/ReferencePages/Symbols/MetricG.nb
new file mode 100644
index 0000000000000000000000000000000000000000..5918f8b2a5a16f642e738fbd7e5cd3f67aaf526c
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/MetricG.nb
@@ -0,0 +1,855 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LTensor\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LTensor"], "\<\"LDot\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LDot"], "\<\"\[CurlyEpsilon]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/LeviCivitaE"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/MetricG\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/MetricG"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/MetricG.html"]\
+, StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/MetricG", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "MetricG ",
+ StyleBox["(\[DoubleStruckG])", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["LTensor",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/LTensor"], "[", 
+       RowBox[{
+        ButtonBox["MetricG",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/MetricG"], ",", 
+        StyleBox["\[Mu]", "TR"], ",", 
+        StyleBox["\[Nu]", "TR"]}], "]"}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      SubscriptBox[
+       ButtonBox["\[DoubleStruckG]",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/MetricG"], 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]represents the ",
+     Cell[BoxData[
+      FormBox["d", TraditionalForm]], "InlineMath"],
+     "-dimensional flat-space Minkowski metric ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["g", "TI"], 
+       StyleBox["\[Mu]\[Nu]", "TI"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->451897874],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  SubscriptBox[
+   ButtonBox["\[DoubleStruckG]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/MetricG"], 
+   RowBox[{"\[Placeholder]", ",", "\[Placeholder]"}]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]gg\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   SubscriptBox["g", "\[Mu]\[Nu]"], "=", 
+   RowBox[{"diag", "(", 
+    RowBox[{"+", 
+     RowBox[{",", 
+      RowBox[{"-", 
+       RowBox[{",", 
+        RowBox[{"-", 
+         RowBox[{",", "-"}]}]}]}]}]}], ")"}]}], 
+  TraditionalForm]], "InlineMath"]], "Notes",
+ CellID->2082845467],
+
+Cell[TextData[{
+ "The indices of ",
+ Cell[BoxData[
+  ButtonBox["MetricG",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/MetricG"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are ordered automatically."
+}], "Notes",
+ CellID->1982834683]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(3)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1545392526],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(3)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1744957664],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LTensor", "[", 
+  RowBox[{"MetricG", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1135193794],
+
+Cell[BoxData[
+ SubscriptBox["\[DoubleStruckG]", 
+  RowBox[{"\[Mu]", ",", "\[Nu]"}]]], "Output",
+ ImageSize->{27, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1955302324]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->966172696],
+
+Cell["\<\
+Repeated indices attached to the metric tensor are assumed to be contracted:\
+\>", "ExampleText",
+ CellID->1340646705],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ SubscriptBox["\[DoubleStruckG]", 
+  RowBox[{"\[Mu]", ",", "\[Mu]"}]]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->446987157],
+
+Cell[BoxData["\[ScriptD]"], "Output",
+ ImageSize->{10, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1482484978]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1028873003],
+
+Cell["Contract two vectors with the metric tensor:", "ExampleText",
+ CellID->730235777],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["v", "\[Mu]"], 
+   SubscriptBox["w", "\[Nu]"], 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1227971651],
+
+Cell[BoxData[
+ RowBox[{"v", ".", "w"}]], "Output",
+ ImageSize->{25, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1790466440]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LTensor",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LTensor"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LDot",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LDot"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[CurlyEpsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LeviCivitaE"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1466775416],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "MetricG (\[DoubleStruckG]) - Wolfram Mathematica", 
+  "MetricG (\[DoubleStruckG])"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 53.965373}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "LTensor[MetricG, \\[Mu], \\[Nu]] or \\[DoubleStruckG] \\[Mu], \\[Nu] \
+represents the d-dimensional flat-space Minkowski metric g_\\[Mu]\\[Nu].", 
+    "synonyms" -> {}, "title" -> "MetricG", "titlemodifier" -> "", 
+    "windowtitle" -> "MetricG (\[DoubleStruckG])", "type" -> "Symbol", "uri" -> 
+    "X/ref/MetricG"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Mu.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Mu.nb
new file mode 100644
index 0000000000000000000000000000000000000000..28db1df3cb45b7ebbe69db51e225bf31b80f0c70
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Mu.nb
@@ -0,0 +1,1325 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopRefine\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"\[Epsilon]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Eps"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Mu\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Mu"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Mu.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Mu", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[TextData[{
+ "Mu ",
+ StyleBox["(\[Micro])", "OperatorCharacter"]
+}], "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      ButtonBox["Mu",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Mu"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " or ",
+     Cell[BoxData[
+      ButtonBox["\[Micro]",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Mu"]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]is the 't Hooft mass parameter in dimensionally \
+regulated integrals."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1129632799],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Mu",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Mu"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", always appears inside ",
+ Cell[BoxData[
+  ButtonBox["Log",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Log"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and almost always accompanies poles in ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Mu",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Mu"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be entered in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  ButtonBox["\[Micro]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Mu"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " using ",
+ Cell["Esc", "KeyEvent"],
+ StyleBox["\[ThinSpace]mm\[ThinSpace]", "InlineCode"],
+ Cell["Esc", "KeyEvent"],
+ "."
+}], "Notes",
+ CellID->710680161]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(3)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1983013313],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(2)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1706033798],
+
+Cell[TextData[{
+ "An integral that is UV divergent:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       SuperscriptBox[
+        StyleBox["k", "TI"], "2"], 
+       RowBox[{
+        SuperscriptBox["k", "2"], "-", 
+        SuperscriptBox["m", "2"]}]], 
+      FractionBox["1", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+        SuperscriptBox["m", "2"]}]]}]}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1949207611],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"k", ".", "k"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->118635992],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"3", " ", 
+   SuperscriptBox["m", "2"]}], "+", 
+  RowBox[{
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{294, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1825688802]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        SuperscriptBox[
+         StyleBox["k", "TI"], "2"], 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SuperscriptBox["m", "2"]}]], 
+       FractionBox["1", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}]]}]}]}], "=", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"3", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "2"], 
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["p", "2"], ";", "m"}], ",", "m"}], ")"}]}], "+", 
+       RowBox[{"2", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "(", 
+         RowBox[{
+          RowBox[{
+           FractionBox["1", "\[Epsilon]"], 
+           StyleBox[
+            RowBox[{"-", 
+             SubscriptBox["\[Gamma]", "E"]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+          StyleBox["+",
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox[
+           RowBox[{"ln", 
+            RowBox[{"(", 
+             RowBox[{"4", "\[Pi]"}], ")"}]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+          RowBox[{"ln", "(", 
+           FractionBox[
+            SuperscriptBox["\[Mu]", "2"], 
+            SuperscriptBox["m", "2"]], ")"}]}], ")"}]}]}], "}"}]}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ CellID->333964039],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1575942466],
+
+Cell[TextData[{
+ "An integral that is IR divergent:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       StyleBox["1", "TI",
+        FontSlant->"Plain"], 
+       SuperscriptBox["k", "2"]], 
+      FractionBox["1", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"k", "+", 
+          SubscriptBox["p", "1"]}], ")"}], "2"]], 
+      FractionBox["1", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"k", "+", 
+          SubscriptBox["p", "2"]}], ")"}], "2"]]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " where ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "2"], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "2", "2"], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->162854273],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{"1", ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p2"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", "2"]}], 
+       RowBox[{"q", ".", "q"}]}]}]}], "}"}]}], "//", "LoopRefine"}]], "Input",
+ 
+ CellLabel->"In[1]:=",
+ CellID->1541431976],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    SuperscriptBox["\[Pi]", "2"], 
+    RowBox[{"12", " ", 
+     RowBox[{"q", ".", "q"}]}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox["\[Epsilon]", "2"]], "+", 
+    FractionBox[
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        RowBox[{"q", ".", "q"}]]}], "]"}], "\[Epsilon]"], "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], 
+         RowBox[{"q", ".", "q"}]]}], "]"}], "2"]}]}], 
+   RowBox[{"q", ".", "q"}]]}]], "Output",
+ ImageSize->{248, 59},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->919381227]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        StyleBox["1", "TI",
+         FontSlant->"Plain"], 
+        SuperscriptBox["k", "2"]], 
+       FractionBox["1", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", 
+           SubscriptBox["p", "1"]}], ")"}], "2"]], 
+       FractionBox["1", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", 
+           SubscriptBox["p", "2"]}], ")"}], "2"]]}]}]}], "=", 
+    RowBox[{
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+     FractionBox["1", 
+      SuperscriptBox["q", "2"]], 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{
+           FractionBox["1", 
+            SuperscriptBox["\[Epsilon]", "2"]], 
+           StyleBox[
+            RowBox[{
+             RowBox[{"+", 
+              FractionBox["1", "\[Epsilon]"]}], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                SubscriptBox["\[Gamma]", "E"]}], "+", 
+               RowBox[{"ln", "(", 
+                RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+          StyleBox[
+           RowBox[{"+", 
+            FractionBox[
+             SubsuperscriptBox["\[Gamma]", "E", "2"], "2"]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+         StyleBox["-",
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+         StyleBox[
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[CapitalEpsilon]"], 
+           RowBox[{"ln", "(", 
+            RowBox[{"4", "\[Pi]"}], ")"}]}],
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+         StyleBox["+",
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+         StyleBox[
+          RowBox[{
+           FractionBox["1", "2"], 
+           RowBox[{
+            SuperscriptBox["ln", "2"], "(", 
+            RowBox[{"4", "\[Pi]"}], ")"}]}],
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], "]"}], "+", 
+       RowBox[{
+        RowBox[{"[", 
+         RowBox[{
+          FractionBox["1", "\[Epsilon]"], 
+          StyleBox[
+           RowBox[{"-", 
+            SubscriptBox["\[Gamma]", "E"]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox[
+           RowBox[{"+", 
+            RowBox[{"ln", "(", 
+             RowBox[{"4", "\[Pi]"}], ")"}]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], "]"}], 
+        RowBox[{"ln", "(", 
+         FractionBox[
+          SuperscriptBox["\[Mu]", "2"], 
+          RowBox[{"-", 
+           SuperscriptBox["q", "2"]}]], ")"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "2"], 
+        RowBox[{
+         SuperscriptBox["ln", "2"], "(", 
+         FractionBox[
+          SuperscriptBox["\[Mu]", "2"], 
+          RowBox[{"-", 
+           SuperscriptBox["q", "2"]}]], ")"}]}], "-", 
+       FractionBox[
+        SuperscriptBox["\[Pi]", "2"], "12"]}], "}"}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ CellID->2064696387]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "For integrals with massless propagators, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " may generate a finite expression independent of ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", but still includes ",
+ Cell[BoxData[
+  ButtonBox["\[Micro]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Mu"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1336180338],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"int", "=", 
+   RowBox[{
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"k", ".", "p1"}], ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "+", "p1"}], ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "+", "p2"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"p1", ".", "p1"}], "\[Rule]", "s1"}], ",", 
+      RowBox[{
+       RowBox[{"p2", ".", "p2"}], "\[Rule]", "s2"}], ",", 
+      RowBox[{
+       RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+       RowBox[{
+        FractionBox["1", "2"], 
+        RowBox[{"(", 
+         RowBox[{"s1", "+", "s2", "-", "s3"}], ")"}]}]}]}], "}"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", "int", "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->946444087],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"Log", "[", 
+    RowBox[{"-", 
+     FractionBox[
+      SuperscriptBox["\[Micro]", "2"], "s2"]}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"Log", "[", 
+    RowBox[{"-", 
+     FractionBox[
+      SuperscriptBox["\[Micro]", "2"], "s3"]}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "s1", " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"s1", ",", "s2", ",", "s3", ",", "0", ",", "0", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{405, 34},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->128699192]
+}, Open  ]],
+
+Cell[TextData[{
+ "The reason is that ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is unable to simplify the logarithms while still observing the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"+", "i"}], " ", "\[CurlyEpsilon]"}], TraditionalForm]], 
+  "InlineMath"],
+ " prescription.  If an external invariant is known to be negative, setting \
+the option ",
+ StyleBox[ButtonBox["TargetScale",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/LoopRefine#895406538"], "InlineCode"],
+ " for ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can help:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->474396880],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"int", ",", 
+   RowBox[{"TargetScale", "\[Rule]", 
+    SqrtBox[
+     RowBox[{"-", "s2"}]]}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1729064496],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox["1", "2"]}], " ", 
+   RowBox[{"Log", "[", 
+    FractionBox["s2", "s3"], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", "s1", " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"s1", ",", "s2", ",", "s3", ",", "0", ",", "0", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{315, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->110579679]
+}, Open  ]],
+
+Cell[TextData[{
+ "This expression is valid for ",
+ Cell[BoxData[
+  RowBox[{"s2", "<", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "ExampleText",
+ CellID->883935968]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Epsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Eps"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->108388242],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Mu (\[Micro]) - Wolfram Mathematica", "Mu (\[Micro])"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 55.299457}", 
+    "history" -> {"1.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Mu or \\[Micro] is the 't Hooft mass parameter in dimensionally \
+regulated integrals.", "synonyms" -> {}, "title" -> "Mu", "titlemodifier" -> 
+    "", "windowtitle" -> "Mu (\[Micro])", "type" -> "Symbol", "uri" -> 
+    "X/ref/Mu"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/PVA.nb b/packages/X/Documentation/English/ReferencePages/Symbols/PVA.nb
new file mode 100644
index 0000000000000000000000000000000000000000..d104b29d09803e9c7a797e40d235eeee1161d18e
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/PVA.nb
@@ -0,0 +1,1304 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopIntegrate\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopIntegrate"], "\<\"LoopRefine\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/LoopRefine"], "\<\"PVB\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVB"], "\<\"PVC\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVC"], "\<\"PVD\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVD"], "\<\"PVX\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/PVA\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/PVA"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/PVA.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/PVA", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["PVA", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["PVA",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/PVA"], "[", 
+       RowBox[{
+        StyleBox["r", "TI"], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]",
+     "is the Passarino-Veltman coefficient function ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox[
+         StyleBox["A",
+          FontWeight->"Bold",
+          FontSlant->"Plain"], 
+         UnderscriptBox[
+          UnderscriptBox[
+           RowBox[{
+            RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+          RowBox[{"2", "r"}]]], "(", 
+        SubscriptBox["m", "0"], ")"}], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->554698572],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is the symbolic form of the coefficient function ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox[
+    StyleBox["A",
+     FontWeight->"Bold",
+     FontSlant->"Plain"], 
+    UnderscriptBox[
+     UnderscriptBox[
+      RowBox[{
+       RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+     RowBox[{"2", "r"}]]], TraditionalForm]], "InlineMath"],
+ " multiplying the symmetrized tensor ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox[
+    RowBox[{"{", 
+     SuperscriptBox[
+      RowBox[{"[", "g", "]"}], "r"], "}"}], 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["\[Mu]", "1"], "..."}], 
+     SubscriptBox["\[Mu]", 
+      RowBox[{"2", "r"}]]}]], TraditionalForm]], "InlineMath"],
+ " generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " implicitly depends on the number of spacetime dimensions ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1714587355],
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox[
+      StyleBox["A",
+       FontWeight->"Bold",
+       FontSlant->"Plain"], 
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+       RowBox[{"2", "r"}]]], "(", 
+     SubscriptBox["m", "0"], ")"}], "=", 
+    RowBox[{
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], " ", 
+     RowBox[{
+      SuperscriptBox["e", 
+       RowBox[{
+        SubscriptBox["\[Gamma]", 
+         StyleBox["E",
+          FontSlant->"Plain"]], "\[Epsilon]"}]], "[", 
+      RowBox[{
+       FractionBox[
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"-", "1"}], ")"}], 
+         RowBox[{"r", "+", "1"}]], "2"], 
+       RowBox[{"\[CapitalGamma]", "(", 
+        RowBox[{
+         RowBox[{"-", "1"}], "-", "r", "+", "\[Epsilon]"}], ")"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         SubsuperscriptBox["m", "0", "2"], ")"}], "r"]}], "]"}], 
+     SuperscriptBox[
+      RowBox[{"(", 
+       FractionBox["1", 
+        SubsuperscriptBox["m", "0", "2"]], ")"}], 
+      RowBox[{
+       RowBox[{"-", "1"}], "+", "\[Epsilon]"}]]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " "
+}], "Notes",
+ CellID->1676756720],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"], "[", 
+   RowBox[{"0", ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the scalar ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["A",
+      FontWeight->"Bold",
+      FontSlant->"Plain"], "0"], "(", 
+    SubscriptBox["m", "0"], ")"}], TraditionalForm]], "InlineMath"],
+ " function with full dependence on ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->387300490],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not directly evaluate.  ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " substitutes ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit expression."
+}], "Notes",
+ CellID->404532959],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    RowBox[{
+     ButtonBox["Weights",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopIntegrate#1445834945"], "\[Rule]", 
+     RowBox[{"{", 
+      SubscriptBox[
+       StyleBox["w", "TI"], 
+       StyleBox["0", "TR"]], "}"}]}]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the weighted coefficient function ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox[
+    StyleBox["A",
+     FontWeight->"Bold",
+     FontSlant->"Plain"], 
+    UnderscriptBox[
+     UnderscriptBox[
+      RowBox[{
+       RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+     RowBox[{"2", "r"}]], 
+    RowBox[{"{", 
+     SubscriptBox["w", "0"], "}"}]], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ CellID->2073788484],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    RowBox[{"Dimensions", "\[Rule]", 
+     StyleBox["n", "TI"]}]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the coefficient function in ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    StyleBox["n",
+     FontSlant->"Italic"], "-", 
+    RowBox[{"2", "\[Epsilon]"}]}], TraditionalForm]], "InlineMath"],
+ " spacetime dimensions."
+}], "Notes",
+ Deletable->True,
+ CellID->1157159422],
+
+Cell[TextData[{
+ "The following are equal to ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in other packages:"
+}], "Notes",
+ CellID->55998301],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell["FeynCalc", "TableText"], Cell[
+    TextData[{
+     Cell[BoxData[
+      FormBox[
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"\[Pi]", " ", 
+          SuperscriptBox["e", "\[Gamma]"]}], ")"}], "\[Epsilon]"], 
+       TraditionalForm]], "InlineMath"],
+     Cell[BoxData[
+      RowBox[{"PaVe", "[", 
+       RowBox[{
+        TagBox[
+         TooltipBox["\<\"\[Ellipsis]\"\>",
+          
+          "\"Sequence of \
+\\!\\(\\*StyleBox[\\\"2\\\",\\\"TR\\\"]\\*StyleBox[\\\"r\\\",\\\"TI\\\"]\\) \
+'0's\"",
+          TooltipStyle->"TextStyling"],
+         Annotation[#, 
+          "Sequence of \!\(\*StyleBox[\"2\",\"TR\"]\*StyleBox[\"r\",\"TI\"]\) \
+'0's", "Tooltip"]& ], ",", 
+        RowBox[{"{", "}"}], ",", 
+        RowBox[{"{", 
+         SubsuperscriptBox[
+          StyleBox["m", "TI"], 
+          StyleBox["0", "TR"], "2"], "}"}]}], "]"}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]]
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell["LoopTools", "TableText"], Cell[
+    TextData[Cell[BoxData[
+     RowBox[{"A0i", "[", 
+      RowBox[{
+       RowBox[{"aa", 
+        TagBox[
+         TooltipBox["\<\"\[Ellipsis]\"\>",
+          
+          "\"Sequence of \
+\\!\\(\\*StyleBox[\\\"2\\\",\\\"TR\\\"]\\*StyleBox[\\\"r\\\",\\\"TI\\\"]\\) \
+'0's\"",
+          TooltipStyle->"TextStyling"],
+         Annotation[#, 
+          "Sequence of \!\(\*StyleBox[\"2\",\"TR\"]\*StyleBox[\"r\",\"TI\"]\) \
+'0's", "Tooltip"]& ]}], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["0", "TR"], "2"]}], "]"}]], "InlineFormula",
+     ShowStringCharacters->False,
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->573166446]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(3)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->592387977],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(3)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->530541947],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to substitute the analytic form of ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1677375418],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVA", "[", 
+   RowBox[{"1", ",", "m"}], "]"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->793364038],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"3", " ", 
+    SuperscriptBox["m", "4"]}], "8"], "+", 
+  RowBox[{
+   FractionBox["1", "4"], " ", 
+   SuperscriptBox["m", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{167, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1556855666]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1612216378],
+
+Cell[TextData[{
+ "Weighted ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " function:"
+}], "ExampleText",
+ CellID->1719490847],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVA", "[", 
+   RowBox[{"0", ",", "m", ",", 
+    RowBox[{"Weights", "\[Rule]", 
+     RowBox[{"{", "2", "}"}]}]}], "]"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->267824565],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "\[Epsilon]"], "+", 
+  RowBox[{"Log", "[", 
+   FractionBox[
+    SuperscriptBox["\[Micro]", "2"], 
+    SuperscriptBox["m", "2"]], "]"}]}]], "Output",
+ ImageSize->{82, 35},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->662108285]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2003325585],
+
+Cell[TextData[{
+ "View ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in ",
+ Cell[BoxData[
+  ButtonBox["TraditionalForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/TraditionalForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1012717907],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVA", "[", 
+   RowBox[{"1", ",", "m"}], "]"}], "//", "TraditionalForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1925448168],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["A",
+      FontWeight->Bold,
+      FontSlant->Plain], 
+     RowBox[{"0", "\[InvisibleComma]", "0"}]], "(", "m", ")"}],
+   "PVA"], TraditionalForm]], "Output",
+ ImageSize->{45, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//TraditionalForm=",
+ CellID->1184733979]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{"T", 
+     AdjustmentBox["E",
+      BoxBaselineShift->0.5,
+      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], "TR",
+    SingleLetterItalics->False], TraditionalForm]]],
+ " code:"
+}], "ExampleText",
+ CellID->1710552427],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "TeXForm"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2107693480],
+
+Cell["\\mathbf{A}_{00}(m)", "Output",
+ ImageSize->{130, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]//TeXForm=",
+ CellID->129185967]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopIntegrate",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVX",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVX"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->466400885],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "PVA - Wolfram Mathematica", "PVA"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 1.371747}", 
+    "history" -> {"1.0", "2.0", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "PVA[r, m_0] is the Passarino-Veltman coefficient function A \
+UnderscriptBox[UnderscriptBox[0 ... 0, \[UnderBrace]], 2 r] (m_0).", 
+    "synonyms" -> {}, "title" -> "PVA", "titlemodifier" -> "", "windowtitle" -> 
+    "PVA", "type" -> "Symbol", "uri" -> "X/ref/PVA"}, "SearchTextTranslated" -> 
+  ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/PVB.nb b/packages/X/Documentation/English/ReferencePages/Symbols/PVB.nb
new file mode 100644
index 0000000000000000000000000000000000000000..d3c9b224f62342005c046ce48064633a086b0a58
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/PVB.nb
@@ -0,0 +1,1694 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopIntegrate\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopIntegrate"], "\<\"LoopRefine\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"LoopRefineSeries\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefineSeries"], "\<\"PVA\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVA"], "\<\"PVC\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVC"], "\<\"PVD\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVD"], "\<\"PVX\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/PVB\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/PVB"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/PVB.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/PVB", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["PVB", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["PVB",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/PVB"], "[", 
+       RowBox[{
+        StyleBox["r", "TI"], ",", 
+        SubscriptBox[
+         StyleBox["n", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        StyleBox["s", "TI"], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]",
+     "is the Passarino-Veltman coefficient function ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox[
+         StyleBox["B",
+          FontWeight->"Bold",
+          FontSlant->"Plain"], 
+         RowBox[{
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+           RowBox[{"2", "r"}]], " ", 
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+           SubscriptBox["n", "1"]]}]], "(", 
+        RowBox[{
+         RowBox[{"s", ";", 
+          SubscriptBox["m", "0"]}], ",", 
+         SubscriptBox["m", "1"]}], ")"}], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->484362645],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    StyleBox["s", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is the symbolic form of the coefficient function ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox[
+    StyleBox["B",
+     FontWeight->"Bold",
+     FontSlant->"Plain"], 
+    RowBox[{
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+      RowBox[{"2", "r"}]], " ", 
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+      SubscriptBox["n", "1"]]}]], TraditionalForm]], "InlineMath"],
+ " multiplying the symmetrized tensor ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox[
+    RowBox[{"{", 
+     SuperscriptBox[
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"[", 
+         SubscriptBox["p", "1"], "]"}], 
+        SubscriptBox["n", "1"]], "[", "g", "]"}], "r"], "}"}], 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["\[Mu]", "1"], "..."}], 
+     SubscriptBox["\[Mu]", 
+      RowBox[{
+       RowBox[{"2", "r"}], "+", 
+       SubscriptBox["n", "1"]}]]}]], TraditionalForm]], "InlineMath"],
+ " generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    StyleBox["s", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " implicitly depends on the number of spacetime dimensions ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->912611364],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubscriptBox[
+     StyleBox["B",
+      FontWeight->"Bold",
+      FontSlant->"Plain"], 
+     RowBox[{
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+       RowBox[{"2", "r"}]], " ", 
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+       SubscriptBox["n", "1"]]}]], "(", 
+    RowBox[{
+     RowBox[{"s", ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"]}], ")"}], "=", 
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    SuperscriptBox["e", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", 
+       StyleBox["E",
+        FontSlant->"Plain"]], "\[Epsilon]"}]], 
+    FractionBox[
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"-", "1"}], ")"}], 
+      RowBox[{"2", "+", 
+       SubscriptBox["n", "1"], "+", "r"}]], 
+     SuperscriptBox["2", "r"]], 
+    RowBox[{"\[CapitalGamma]", "(", 
+     RowBox[{"\[Epsilon]", "-", "r"}], ")"}], "\[Times]", 
+    RowBox[{
+     UnderscriptBox["lim", 
+      RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
+       SuperscriptBox["0", "+"]}],
+      LimitsPositioning->False], 
+     RowBox[{
+      StyleBox[
+       SubsuperscriptBox["\[Integral]", "0", "1"],
+       StripOnInput->False,
+       ScriptLevel->0], 
+      RowBox[{
+       RowBox[{"\[DifferentialD]", "x"}], " ", 
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox["x", 
+          SubscriptBox["n", "1"]], "(", 
+         RowBox[{
+          RowBox[{"s", " ", 
+           SuperscriptBox["x", "2"]}], "+", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "s"}], "+", 
+             SubsuperscriptBox["m", "1", "2"], "-", 
+             SubsuperscriptBox["m", "0", "2"]}], ")"}], "x"}], "+", 
+          SubsuperscriptBox["m", "0", "2"], "-", 
+          RowBox[{"\[ImaginaryI]", " ", "\[CurlyEpsilon]"}]}], ")"}], 
+        RowBox[{
+         RowBox[{"-", "\[Epsilon]"}], "+", "r"}]]}]}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "Notes",
+ CellID->1233434273],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{
+    ButtonBox["PVB",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/PVB"], "[", 
+    RowBox[{"0", ",", "0", ",", 
+     StyleBox["s", "TI"], ",", 
+     SubscriptBox[
+      StyleBox["m", "TI"], 
+      StyleBox["0", "TR"]], ",", 
+     SubscriptBox[
+      StyleBox["m", "TI"], 
+      StyleBox["1", "TR"]]}], "]"}], " "}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the scalar ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["B",
+      FontWeight->"Bold",
+      FontSlant->"Plain"], "0"], "(", 
+    RowBox[{
+     RowBox[{"s", ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"]}], ")"}], TraditionalForm]], "InlineMath"],
+ " ",
+ "function with full dependence on ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->867037502],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not directly evaluate.  ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " substitutes ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit expression."
+}], "Notes",
+ CellID->1133249904],
+
+Cell[TextData[{
+ "The first derivative with respect to the third argument (external \
+invariant) formats in ",
+ Cell[BoxData[
+  ButtonBox["StandardForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/StandardForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{
+    SuperscriptBox[
+     ButtonBox["PVB",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/PVB"], "\[Prime]"], "[", 
+    RowBox[{"0", ",", "0", ",", 
+     StyleBox["s", "TI"], ",", 
+     SubscriptBox[
+      StyleBox["m", "TI"], 
+      StyleBox["0", "TR"]], ",", 
+     SubscriptBox[
+      StyleBox["m", "TI"], 
+      StyleBox["1", "TR"]]}], "]"}], " "}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->955668616],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    StyleBox["s", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    RowBox[{
+     ButtonBox["Weights",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopIntegrate#1445834945"], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       SubscriptBox[
+        StyleBox["w", "TI"], 
+        StyleBox["0", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["w", "TI"], 
+        StyleBox["1", "TR"]]}], "}"}]}]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the weighted coefficient function ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox[
+    StyleBox["B",
+     FontWeight->"Bold",
+     FontSlant->"Plain"], 
+    RowBox[{
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+      RowBox[{"2", "r"}]], " ", 
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+      SubscriptBox["n", "1"]]}], 
+    RowBox[{"{", 
+     RowBox[{
+      SubscriptBox["w", "0"], ",", 
+      SubscriptBox["w", "1"]}], "}"}]], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ CellID->1015442192],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    StyleBox["s", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    RowBox[{"Dimensions", "\[Rule]", 
+     StyleBox["n", "TI"]}]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the coefficient function in ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    StyleBox["n",
+     FontSlant->"Italic"], "-", 
+    RowBox[{"2", "\[Epsilon]"}]}], TraditionalForm]], "InlineMath"],
+ " spacetime dimensions."
+}], "Notes",
+ Deletable->True,
+ CellID->1157159422],
+
+Cell[TextData[{
+ "The following are equal to ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    StyleBox["s", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in other packages:"
+}], "Notes",
+ CellID->55998301],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell["FeynCalc", "TableText"], Cell[
+    TextData[{
+     Cell[BoxData[
+      FormBox[
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"\[Pi]", " ", 
+          SuperscriptBox["e", "\[Gamma]"]}], ")"}], "\[Epsilon]"], 
+       TraditionalForm]], "InlineMath"],
+     Cell[BoxData[
+      RowBox[{"PaVe", "[", 
+       RowBox[{
+        TagBox[
+         TooltipBox["\<\"\[Ellipsis]\"\>",
+          
+          "\"Sequence of \
+\\!\\(\\*StyleBox[\\\"2\\\",\\\"TR\\\"]\\*StyleBox[\\\"r\\\",\\\"TI\\\"]\\) \
+'0's, and \
+\\!\\(\\*SubscriptBox[\\(\\*StyleBox[\\\"n\\\",\\\"TI\\\"]\\),\\(\\*StyleBox[\
+\\\"1\\\",\\\"TR\\\"]\\)]\\) '1's\"",
+          TooltipStyle->"TextStyling"],
+         Annotation[#, 
+          "Sequence of \!\(\*StyleBox[\"2\",\"TR\"]\*StyleBox[\"r\",\"TI\"]\) \
+'0's, and \!\(\*SubscriptBox[\(\*StyleBox[\"n\",\"TI\"]\),\(\*StyleBox[\"1\",\
+\"TR\"]\)]\) '1's", "Tooltip"]& ], ",", 
+        RowBox[{"{", 
+         StyleBox["s", "TI"], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubsuperscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["0", "TR"], "2"], ",", 
+          SubsuperscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"], "2"]}], "}"}]}], "]"}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]]
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell["LoopTools", "TableText"], Cell[
+    TextData[Cell[BoxData[
+     RowBox[{"B0i", "[", 
+      RowBox[{
+       RowBox[{"bb", 
+        TagBox[
+         TooltipBox["\<\"\[Ellipsis]\"\>",
+          
+          "\"Sequence of \
+\\!\\(\\*StyleBox[\\\"2\\\",\\\"TR\\\"]\\*StyleBox[\\\"r\\\",\\\"TI\\\"]\\) \
+'0's\"",
+          TooltipStyle->"TextStyling"],
+         Annotation[#, 
+          "Sequence of \!\(\*StyleBox[\"2\",\"TR\"]\*StyleBox[\"r\",\"TI\"]\) \
+'0's", "Tooltip"]& ]}], ",", 
+       StyleBox["s", "TI"], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["0", "TR"], "2"], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["1", "TR"], "2"]}], "]"}]], "InlineFormula",
+     ShowStringCharacters->False,
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->573166446]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(5)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1719952385],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(5)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2109846075],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to substitute the analytic form of ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1644489429],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVB", "[", 
+   RowBox[{"1", ",", "1", ",", 
+    RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->89862740],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "6"}], " ", 
+     SuperscriptBox["m", "6"]}], "+", 
+    RowBox[{"21", " ", 
+     SuperscriptBox["m", "4"], " ", 
+     RowBox[{"p", ".", "p"}]}], "-", 
+    RowBox[{"58", " ", 
+     SuperscriptBox["m", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"p", ".", "p"}], ")"}], "2"]}], "+", 
+    RowBox[{"16", " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"p", ".", "p"}], ")"}], "3"]}]}], 
+   RowBox[{"144", " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"p", ".", "p"}], ")"}], "2"]}]], "+", 
+  RowBox[{
+   FractionBox["1", "24"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      SuperscriptBox["m", "2"]}], "+", 
+     RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"p", ".", "p"}]}], ")"}], "4"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+   RowBox[{"24", " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"p", ".", "p"}], ")"}], "3"]}]]}]], "Output",
+ ImageSize->{375, 89},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1739822410]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->986683455],
+
+Cell[TextData[{
+ "Weighted ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->320106051],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVB", "[", 
+   RowBox[{"0", ",", "1", ",", 
+    RowBox[{"p", ".", "p"}], ",", "M", ",", "0", ",", 
+    RowBox[{"Weights", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "1"}], "}"}]}]}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->681245642],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox["1", 
+    RowBox[{"p", ".", "p"}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["M", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["M", "2"], 
+      RowBox[{
+       SuperscriptBox["M", "2"], "-", 
+       RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"p", ".", "p"}], ")"}], "2"]]}]], "Output",
+ ImageSize->{142, 51},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1202187821]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1552049524],
+
+Cell[TextData[{
+ "Taylor series expansion around ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["p", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1393198711],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     RowBox[{"p", ".", "p"}], ",", "m", ",", "m"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p", ".", "p"}], ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1959973406],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}], "+", 
+   FractionBox[
+    RowBox[{"p", ".", "p"}], 
+    RowBox[{"6", " ", 
+     SuperscriptBox["m", "2"]}]], "+", 
+   FractionBox[
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"p", ".", "p"}], ")"}], "2"], 
+    RowBox[{"60", " ", 
+     SuperscriptBox["m", "4"]}]], "+", 
+   FractionBox[
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"p", ".", "p"}], ")"}], "3"], 
+    RowBox[{"420", " ", 
+     SuperscriptBox["m", "6"]}]], "+", 
+   FractionBox[
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"p", ".", "p"}], ")"}], "4"], 
+    RowBox[{"2520", " ", 
+     SuperscriptBox["m", "8"]}]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"p", ".", "p"}], "]"}], "5"],
+    SeriesData[
+     X`LDot[$CellContext`p, $CellContext`p], 0, {}, 0, 5, 1],
+    Editable->False]}],
+  SeriesData[
+   X`LDot[$CellContext`p, $CellContext`p], 0, {
+   X`Eps^(-1) + Log[$CellContext`m^(-2) X`Mu^2], 
+    Rational[1, 6] $CellContext`m^(-2), Rational[1, 60] $CellContext`m^(-4), 
+    Rational[1, 420] $CellContext`m^(-6), 
+    Rational[1, 2520] $CellContext`m^(-8)}, 0, 5, 1],
+  Editable->False]], "Output",
+ ImageSize->{376, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1947751907]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1942102275],
+
+Cell[TextData[{
+ "The first derivative with respect to the external invariant may be input \
+using ",
+ Cell[BoxData["'"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " :"
+}], "ExampleText",
+ CellID->1308985172],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"PVB", "'"}], "[", 
+  RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"%", "//", "FullForm"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1373344356],
+
+Cell[BoxData[
+ RowBox[{
+  InterpretationBox[
+   SuperscriptBox["PVB", "\[Prime]",
+    MultilineFunction->None],
+   Derivative[0, 0, 1, 0, 0][X`PVB]], "[", 
+  RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m"}], "]"}]], "Output",
+ ImageSize->{123, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1175692169],
+
+Cell[BoxData[
+ TagBox[
+  StyleBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"Derivative", "[", 
+      RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "]"}], "[", 
+     "PVB", "]"}], "[", 
+    RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m"}], "]"}],
+   ShowSpecialCharacters->False,
+   ShowStringCharacters->True,
+   NumberMarks->True],
+  FullForm]], "Output",
+ ImageSize->{298, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//FullForm=",
+ CellID->861248336]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1614107650],
+
+Cell[TextData[{
+ "View ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in ",
+ Cell[BoxData[
+  ButtonBox["TraditionalForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/TraditionalForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1293844646],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVB", "[", 
+   RowBox[{"1", ",", "2", ",", 
+    RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1744267096],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["B",
+      FontWeight->Bold,
+      FontSlant->Plain], 
+     RowBox[{
+     "0", "\[InvisibleComma]", "0", "\[InvisibleComma]", "1", 
+      "\[InvisibleComma]", "1"}]], "(", 
+    SuperscriptBox["p", "2"], ";", 
+    RowBox[{"0", ",", "m"}], ")"}],
+   "PVB"], TraditionalForm]], "Output",
+ ImageSize->{93, 23},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//TraditionalForm=",
+ CellID->2031194128]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{"T", 
+     AdjustmentBox["E",
+      BoxBaselineShift->0.5,
+      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], "TR",
+    SingleLetterItalics->False], TraditionalForm]]],
+ " code:"
+}], "ExampleText",
+ CellID->1856230510],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "TeXForm"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->626703484],
+
+Cell["\\mathbf{B}_{0011}\\left(p^2;0,m\\right)", "Output",
+ ImageSize->{267, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]//TeXForm=",
+ CellID->477557492]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopIntegrate",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefineSeries",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefineSeries"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVX",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVX"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->933003261],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "PVB - Wolfram Mathematica", "PVB"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 2.930347}", 
+    "history" -> {"1.0", "2.0", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "PVB[r, n_1, s, m_0, m_1] is the Passarino-Veltman coefficient function B \
+UnderscriptBox[UnderscriptBox[0 ... 0, \[UnderBrace]], 2 r] \
+UnderscriptBox[UnderscriptBox[1 ... 1, \[UnderBrace]], SubscriptBox[n, 1]] \
+(s; m_0, m_1).", "synonyms" -> {}, "title" -> "PVB", "titlemodifier" -> "", 
+    "windowtitle" -> "PVB", "type" -> "Symbol", "uri" -> "X/ref/PVB"}, 
+  "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/PVC.nb b/packages/X/Documentation/English/ReferencePages/Symbols/PVC.nb
new file mode 100644
index 0000000000000000000000000000000000000000..b59f33958320eccb7d73017ebd888d96cdd915f7
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/PVC.nb
@@ -0,0 +1,2244 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopIntegrate\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopIntegrate"], "\<\"LoopRefine\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"LoopRefineSeries\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefineSeries"], "\<\"PVA\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVA"], "\<\"PVB\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVB"], "\<\"PVD\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVD"], "\<\"PVX\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/PVC\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/PVC"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/PVC.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/PVC", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["PVC", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["PVC",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/PVC"], "[", 
+       RowBox[{
+        StyleBox["r", "TI"], ",", 
+        SubscriptBox[
+         StyleBox["n", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["n", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["12", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]is the Passarino-Veltman coefficient function ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox[
+         StyleBox["C",
+          FontWeight->"Bold",
+          FontSlant->"Plain"], 
+         RowBox[{
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+           RowBox[{"2", "r"}]], " ", 
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+           SubscriptBox["n", "1"]], " ", 
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"2", "..."}], "2"}], "\[UnderBrace]"], 
+           SubscriptBox["n", "2"]]}]], "(", 
+        RowBox[{
+         SubscriptBox["s", "1"], ",", 
+         SubscriptBox["s", "12"], ",", 
+         RowBox[{
+          SubscriptBox["s", "2"], ";", 
+          SubscriptBox["m", "0"]}], ",", 
+         SubscriptBox["m", "1"], ",", 
+         SubscriptBox["m", "2"]}], ")"}], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->60217233],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is the symbolic form of the coefficient function ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox[
+    StyleBox["C",
+     FontWeight->"Bold",
+     FontSlant->"Plain"], 
+    RowBox[{
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+      RowBox[{"2", "r"}]], " ", 
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+      SubscriptBox["n", "1"]], " ", 
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"2", "..."}], "2"}], "\[UnderBrace]"], 
+      SubscriptBox["n", "2"]]}]], TraditionalForm]], "InlineMath"],
+ " multiplying the symmetrized tensor ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox[
+    RowBox[{"{", 
+     SuperscriptBox[
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"[", 
+           SubscriptBox["p", "1"], "]"}], 
+          SubscriptBox["n", "1"]], "[", 
+         SubscriptBox["p", "2"], "]"}], 
+        SubscriptBox["n", "2"]], "[", "g", "]"}], "r"], "}"}], 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["\[Mu]", "1"], "..."}], 
+     SubscriptBox["\[Mu]", 
+      RowBox[{
+       RowBox[{"2", "r"}], "+", 
+       SubscriptBox["n", "1"], "+", 
+       SubscriptBox["n", "2"]}]]}]], TraditionalForm]], "InlineMath"],
+ " generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " implicitly depends on the number of spacetime dimensions ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1576400631],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubscriptBox[
+     StyleBox["C",
+      FontWeight->"Bold",
+      FontSlant->"Plain"], 
+     RowBox[{
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+       RowBox[{"2", "r"}]], " ", 
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+       SubscriptBox["n", "1"]], " ", 
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"2", "..."}], "2"}], "\[UnderBrace]"], 
+       SubscriptBox["n", "2"]]}]], "(", 
+    RowBox[{
+     SubscriptBox["s", "1"], ",", 
+     SubscriptBox["s", "12"], ",", 
+     RowBox[{
+      SubscriptBox["s", "2"], ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"], ",", 
+     SubscriptBox["m", "2"]}], ")"}], "=", 
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    SuperscriptBox["e", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", 
+       StyleBox["E",
+        FontSlant->"Plain"]], "\[Epsilon]"}]], 
+    FractionBox[
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"-", "1"}], ")"}], 
+      RowBox[{"3", "+", 
+       SubscriptBox["n", "1"], "+", 
+       SubscriptBox["n", "2"], "+", "r"}]], 
+     SuperscriptBox["2", "r"]], 
+    RowBox[{"\[CapitalGamma]", "(", 
+     RowBox[{"1", "+", "\[Epsilon]", "-", "r"}], ")"}], "\[Times]", 
+    RowBox[{
+     UnderscriptBox["lim", 
+      RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
+       SuperscriptBox["0", "+"]}],
+      LimitsPositioning->False], 
+     RowBox[{
+      StyleBox[
+       SubsuperscriptBox["\[Integral]", "0", "1"],
+       ScriptLevel->0], 
+      RowBox[{
+       RowBox[{"\[DifferentialD]", "y"}], 
+       RowBox[{
+        StyleBox[
+         SubsuperscriptBox["\[Integral]", "0", 
+          RowBox[{"1", "-", "y"}]],
+         ScriptLevel->0], 
+        RowBox[{
+         RowBox[{"\[DifferentialD]", "z"}], " ", 
+         SuperscriptBox["y", 
+          SubscriptBox["n", "1"]], 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["z", 
+            SubscriptBox["n", "2"]], "(", 
+           RowBox[{
+            RowBox[{
+             SubscriptBox["s", "1"], 
+             SuperscriptBox["y", "2"]}], "+", 
+            RowBox[{
+             SubscriptBox["s", "2"], 
+             SuperscriptBox["z", "2"]}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               SubscriptBox["s", "1"], "+", 
+               SubscriptBox["s", "2"], "-", 
+               SubscriptBox["s", "12"]}], ")"}], "y", " ", "z"}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                SubscriptBox["s", "1"]}], "+", 
+               SubsuperscriptBox["m", "1", "2"], "-", 
+               SubsuperscriptBox["m", "0", "2"]}], ")"}], "y"}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                SubscriptBox["s", "2"]}], "+", 
+               SubsuperscriptBox["m", "2", "2"], "-", 
+               SubsuperscriptBox["m", "0", "2"]}], ")"}], "z"}], "+", 
+            SubsuperscriptBox["m", "0", "2"], "-", 
+            RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], ")"}], 
+          RowBox[{
+           RowBox[{"-", "1"}], "-", "\[Epsilon]", "+", "r"}]]}]}]}]}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "Notes",
+ CellID->218938704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"], "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the scalar ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["C",
+      FontWeight->"Bold",
+      FontSlant->"Plain"], "0"], "(", 
+    RowBox[{
+     SubscriptBox["s", "1"], ",", 
+     SubscriptBox["s", "12"], ",", 
+     RowBox[{
+      SubscriptBox["s", "2"], ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"], ",", 
+     SubscriptBox["m", "2"]}], ")"}], TraditionalForm]], "InlineMath"],
+ " function ",
+ "with full dependence on ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->975248138],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is symmetric with respect to the simultaneous interchange ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["n", "1"], "\[LongLeftRightArrow]", 
+    SubscriptBox["n", "2"]}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["s", "1"], "\[LongLeftRightArrow]", 
+    SubscriptBox["s", "2"]}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["m", "1"], "\[LongLeftRightArrow]", 
+     SubscriptBox["m", "2"]}], "."}], TraditionalForm]], "InlineMath"]
+}], "Notes",
+ Deletable->True,
+ CellID->704486141],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not automatically reorganize its arguments."
+}], "Notes",
+ CellID->660102591],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not directly evaluate.  ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " substitutes ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit expression."
+}], "Notes",
+ CellID->552036330],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    RowBox[{
+     ButtonBox["Weights",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopIntegrate#1445834945"], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       SubscriptBox[
+        StyleBox["w", "TI"], 
+        StyleBox["0", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["w", "TI"], 
+        StyleBox["1", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["w", "TI"], 
+        StyleBox["2", "TR"]]}], "}"}]}]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the weighted coefficient function ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox[
+    StyleBox["C",
+     FontWeight->"Bold",
+     FontSlant->"Plain"], 
+    RowBox[{
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+      RowBox[{"2", "r"}]], " ", 
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+      SubscriptBox["n", "1"]], " ", 
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"2", "..."}], "2"}], "\[UnderBrace]"], 
+      SubscriptBox["n", "2"]]}], 
+    RowBox[{"{", 
+     RowBox[{
+      SubscriptBox["w", "0"], ",", 
+      SubscriptBox["w", "1"], ",", 
+      SubscriptBox["w", "2"]}], "}"}]], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ CellID->174941031],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    RowBox[{"Dimensions", "\[Rule]", 
+     StyleBox["n", "TI"]}]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the coefficient function in ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    StyleBox["n",
+     FontSlant->"Italic"], "-", 
+    RowBox[{"2", "\[Epsilon]"}]}], TraditionalForm]], "InlineMath"],
+ " spacetime dimensions."
+}], "Notes",
+ Deletable->True,
+ CellID->1157159422],
+
+Cell[TextData[{
+ "The following are equal to ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in other packages:"
+}], "Notes",
+ CellID->55998301],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell["FeynCalc", "TableText"], Cell[
+    TextData[{
+     Cell[BoxData[
+      FormBox[
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"\[Pi]", " ", 
+          SuperscriptBox["e", "\[Gamma]"]}], ")"}], "\[Epsilon]"], 
+       TraditionalForm]], "InlineMath"],
+     Cell[BoxData[
+      RowBox[{"PaVe", "[", 
+       RowBox[{
+        TagBox[
+         TooltipBox["\<\"\[Ellipsis]\"\>",
+          
+          "\"Sequence of \
+\\!\\(\\*StyleBox[\\\"2\\\",\\\"TR\\\"]\\*StyleBox[\\\"r\\\",\\\"TI\\\"]\\) \
+'0's, \\!\\(\\*SubscriptBox[\\(\\*StyleBox[\\\"n\\\",\\\"TI\\\"]\\),\\(\\*\
+StyleBox[\\\"1\\\",\\\"TR\\\"]\\)]\\) '1's, and \
+\\!\\(\\*SubscriptBox[\\(\\*StyleBox[\\\"n\\\",\\\"TI\\\"]\\),\\(\\*StyleBox[\
+\\\"2\\\",\\\"TR\\\"]\\)]\\) '2's\"",
+          TooltipStyle->"TextStyling"],
+         Annotation[#, 
+          "Sequence of \!\(\*StyleBox[\"2\",\"TR\"]\*StyleBox[\"r\",\"TI\"]\) \
+'0's, \!\(\*SubscriptBox[\(\*StyleBox[\"n\",\"TI\"]\),\(\*StyleBox[\"1\",\"TR\
+\"]\)]\) '1's, and \
+\!\(\*SubscriptBox[\(\*StyleBox[\"n\",\"TI\"]\),\(\*StyleBox[\"2\",\"TR\"]\)]\
+\) '2's", "Tooltip"]& ], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["12", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["2", "TR"]]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubsuperscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["0", "TR"], "2"], ",", 
+          SubsuperscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"], "2"], ",", 
+          SubsuperscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"], "2"]}], "}"}]}], "]"}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]]
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     "LoopTools (IR finite and ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "\[Rule]", "0"}], TraditionalForm]], 
+      "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"\[Mu]", "\[Rule]", "1.0"}], TraditionalForm]], "InlineMath"],
+     ")"
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     RowBox[{"C0i", "[", 
+      RowBox[{
+       RowBox[{"cc", 
+        TagBox[
+         TooltipBox["\<\"\[Ellipsis]\"\>",
+          
+          "\"Sequence of \
+\\!\\(\\*StyleBox[\\\"2\\\",\\\"TR\\\"]\\*StyleBox[\\\"r\\\",\\\"TI\\\"]\\) \
+'0's\"",
+          TooltipStyle->"TextStyling"],
+         Annotation[#, 
+          "Sequence of \!\(\*StyleBox[\"2\",\"TR\"]\*StyleBox[\"r\",\"TI\"]\) \
+'0's", "Tooltip"]& ]}], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["1", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["12", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["2", "TR"]], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["0", "TR"], "2"], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["1", "TR"], "2"], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["1", "TR"], "2"]}], "]"}]], "InlineFormula",
+     ShowStringCharacters->False,
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->573166446]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(5)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->606237294],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(5)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1367778890],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to substitute the analytic form of ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1761500390],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVC", "[", 
+   RowBox[{"0", ",", "2", ",", "0", ",", "0", ",", "s", ",", 
+    SuperscriptBox["m", "2"], ",", "0", ",", "0", ",", "m"}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1032421388],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     RowBox[{"2", " ", "s"}]}], 
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", "s"}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "4"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}]], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", 
+    SuperscriptBox["s", "2"]}]], "+", 
+  FractionBox[
+   RowBox[{
+    FractionBox["1", "\[Epsilon]"], "+", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["\[Micro]", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}]], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "s"}], ")"}]}]]}]], "Output",
+ ImageSize->{282, 51},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->448561676]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1679757523],
+
+Cell[TextData[{
+ "Weighted ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1463869365],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVC", "[", 
+   RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", 
+    SuperscriptBox["M", "2"], ",", 
+    SuperscriptBox["M", "2"], ",", "m", ",", "0", ",", "0", ",", 
+    RowBox[{"Weights", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "1", ",", "1"}], "}"}]}]}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2062795799],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "4"]}], "-", 
+     RowBox[{
+      SuperscriptBox["m", "2"], " ", 
+      SuperscriptBox["M", "2"]}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["M", "4"]}]}], 
+    RowBox[{"12", " ", 
+     SuperscriptBox["m", "4"], " ", 
+     SuperscriptBox["M", "4"]}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     RowBox[{"-", 
+      FractionBox[
+       SuperscriptBox["m", "2"], 
+       SuperscriptBox["M", "2"]]}], "]"}]}], 
+   RowBox[{"6", " ", 
+    SuperscriptBox["m", "6"]}]], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       SuperscriptBox["M", "2"]}], ")"}], "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "+", 
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "+", 
+      SuperscriptBox["M", "4"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       SuperscriptBox["M", "2"]}]], "]"}]}], 
+   RowBox[{"6", " ", 
+    SuperscriptBox["m", "6"], " ", 
+    SuperscriptBox["M", "6"]}]]}]], "Output",
+ ImageSize->{497, 47},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1517909254]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->892406690],
+
+Cell[TextData[{
+ "Taylor series expansion",
+ " around ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", "=", "0"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->653448182],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"PVC", "[", 
+    RowBox[{
+    "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "s", ",", "m", ",", "m",
+      ",", "m"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->61934482],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox["1", 
+     RowBox[{"24", " ", 
+      SuperscriptBox["m", "2"]}]]}], "-", 
+   FractionBox["s", 
+    RowBox[{"360", " ", 
+     SuperscriptBox["m", "4"]}]], "-", 
+   FractionBox[
+    SuperscriptBox["s", "2"], 
+    RowBox[{"3360", " ", 
+     SuperscriptBox["m", "6"]}]], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "s", "]"}], "3"],
+    SeriesData[$CellContext`s, 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`s, 0, {
+   Rational[-1, 24] $CellContext`m^(-2), 
+    Rational[-1, 360] $CellContext`m^(-4), 
+    Rational[-1, 3360] $CellContext`m^(-6)}, 0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{211, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->650358850]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2072906320],
+
+Cell[TextData[{
+ "View ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in ",
+ Cell[BoxData[
+  ButtonBox["TraditionalForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/TraditionalForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->709314959],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVC", "[", 
+   RowBox[{"0", ",", "2", ",", "0", ",", "0", ",", "s", ",", 
+    SuperscriptBox["m", "2"], ",", "0", ",", "0", ",", "m"}], "]"}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1725976951],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["C",
+      FontWeight->Bold,
+      FontSlant->Plain], 
+     RowBox[{"1", "\[InvisibleComma]", "1"}]], "(", 
+    RowBox[{"0", ",", "s", ",", 
+     SuperscriptBox["m", "2"]}], ";", 
+    RowBox[{"0", ",", "0", ",", "m"}], ")"}],
+   "PVC"], TraditionalForm]], "Output",
+ ImageSize->{128, 23},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//TraditionalForm=",
+ CellID->1349335342]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{"T", 
+     AdjustmentBox["E",
+      BoxBaselineShift->0.5,
+      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], "TR",
+    SingleLetterItalics->False], TraditionalForm]]],
+ " code:"
+}], "ExampleText",
+ CellID->1819480419],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "TeXForm"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->613454189],
+
+Cell["\\mathbf{C}_{11}\\left(0,s,m^2;0,0,m\\right)", "Output",
+ ImageSize->{296, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]//TeXForm=",
+ CellID->1073622746]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->876109626],
+
+Cell[TextData[{
+ "More general cases are given in terms of ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->498001586],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVC", "[", 
+   RowBox[{
+   "1", ",", "0", ",", "0", ",", "p1", ",", "0", ",", "0", ",", "M", ",", "m",
+     ",", "m"}], "]"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->557608080],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", 
+    SuperscriptBox["M", "2"], "+", 
+    RowBox[{"3", " ", "p1"}]}], 
+   RowBox[{"4", " ", "p1"}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", "p1"}], ")"}], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{"p1", ",", "m", ",", "M"}], "]"}]}], 
+   RowBox[{"4", " ", "p1"}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "4"]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "-", 
+      SuperscriptBox["M", "4"], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["M", "2"], " ", "p1"}], "+", 
+      SuperscriptBox["p1", "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"8", " ", 
+    SuperscriptBox["p1", "2"]}]], "+", 
+  RowBox[{
+   FractionBox["1", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", "0", ",", "p1", ",", "M", ",", "m", ",", "m"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{567, 87},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->96019834]
+}, Open  ]],
+
+Cell[TextData[{
+ "Set option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ExplicitC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#59651079"], "\[Rule]", 
+   ButtonBox["All",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/All"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", or apply ",
+ Cell[BoxData[
+  ButtonBox["C0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/C0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain an expression in terms of more elementary functions:"
+}], "ExampleText",
+ CellID->829838518],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"PVC", "[", 
+    RowBox[{
+    "1", ",", "0", ",", "0", ",", "p1", ",", "0", ",", "0", ",", "M", ",", 
+     "m", ",", "m"}], "]"}], ",", 
+   RowBox[{"ExplicitC0", "\[Rule]", "All"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1405066106],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", 
+    SuperscriptBox["M", "2"], "+", 
+    RowBox[{"3", " ", "p1"}]}], 
+   RowBox[{"4", " ", "p1"}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", "p1"}], ")"}], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{"p1", ",", "m", ",", "M"}], "]"}]}], 
+   RowBox[{"4", " ", "p1"}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "4"]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "-", 
+      SuperscriptBox["M", "4"], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["M", "2"], " ", "p1"}], "+", 
+      SuperscriptBox["p1", "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"8", " ", 
+    SuperscriptBox["p1", "2"]}]], "+", 
+  RowBox[{
+   FractionBox["1", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"2", " ", "p1"}]], 
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "+", 
+           SuperscriptBox["M", "2"], "-", "p1", "+", 
+           SqrtBox[
+            RowBox[{"Kallen\[Lambda]", "[", 
+             RowBox[{
+              SuperscriptBox["m", "2"], ",", 
+              SuperscriptBox["M", "2"], ",", "p1"}], "]"}]]}], 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "+", 
+           SuperscriptBox["M", "2"], "+", "p1", "+", 
+           SqrtBox[
+            RowBox[{"Kallen\[Lambda]", "[", 
+             RowBox[{
+              SuperscriptBox["m", "2"], ",", 
+              SuperscriptBox["M", "2"], ",", "p1"}], "]"}]]}]], "]"}], "2"]}],
+       "+", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        RowBox[{"1", "-", 
+         FractionBox[
+          SuperscriptBox["M", "2"], 
+          SuperscriptBox["m", "2"]]}]}], "]"}], "-", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{"2", " ", "p1"}], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "+", "p1", "+", 
+          SqrtBox[
+           RowBox[{"Kallen\[Lambda]", "[", 
+            RowBox[{
+             SuperscriptBox["m", "2"], ",", 
+             SuperscriptBox["M", "2"], ",", "p1"}], "]"}]]}]]}], "]"}], "+", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{"2", " ", "p1"}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["m", "2"]}], "+", 
+          SuperscriptBox["M", "2"], "+", "p1", "+", 
+          SqrtBox[
+           RowBox[{"Kallen\[Lambda]", "[", 
+            RowBox[{
+             SuperscriptBox["m", "2"], ",", 
+             SuperscriptBox["M", "2"], ",", "p1"}], "]"}]]}]]}], "]"}]}], 
+     ")"}]}]}]}]], "Output",
+ ImageSize->{498, 234},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1302843123]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"PVC", "[", 
+    RowBox[{
+    "1", ",", "0", ",", "0", ",", "p1", ",", "0", ",", "0", ",", "M", ",", 
+     "m", ",", "m"}], "]"}], "//", "LoopRefine"}], "//", 
+  "C0Expand"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1422363943],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", 
+    SuperscriptBox["M", "2"], "+", 
+    RowBox[{"3", " ", "p1"}]}], 
+   RowBox[{"4", " ", "p1"}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"], "+", "p1"}], ")"}], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{"p1", ",", "m", ",", "M"}], "]"}]}], 
+   RowBox[{"4", " ", "p1"}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "4"]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "-", 
+      SuperscriptBox["M", "4"], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["M", "2"], " ", "p1"}], "+", 
+      SuperscriptBox["p1", "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   RowBox[{"8", " ", 
+    SuperscriptBox["p1", "2"]}]], "+", 
+  RowBox[{
+   FractionBox["1", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "+", "p1", "-", 
+          SqrtBox[
+           RowBox[{"Kallen\[Lambda]", "[", 
+            RowBox[{
+             SuperscriptBox["m", "2"], ",", 
+             SuperscriptBox["M", "2"], ",", "p1"}], "]"}]]}], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "-", "p1", "-", 
+          SqrtBox[
+           RowBox[{"Kallen\[Lambda]", "[", 
+            RowBox[{
+             SuperscriptBox["m", "2"], ",", 
+             SuperscriptBox["M", "2"], ",", "p1"}], "]"}]]}]], "]"}], "2"], 
+      RowBox[{"2", " ", "p1"}]], "+", 
+     FractionBox[
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        RowBox[{"1", "-", 
+         FractionBox[
+          SuperscriptBox["M", "2"], 
+          SuperscriptBox["m", "2"]]}]}], "]"}], "p1"], "-", 
+     FractionBox[
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{"2", " ", "p1"}], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"], "+", "p1", "+", 
+          SqrtBox[
+           RowBox[{"Kallen\[Lambda]", "[", 
+            RowBox[{
+             SuperscriptBox["m", "2"], ",", 
+             SuperscriptBox["M", "2"], ",", "p1"}], "]"}]]}]]}], "]"}], "p1"],
+      "+", 
+     FractionBox[
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        FractionBox[
+         RowBox[{"2", " ", "p1"}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["m", "2"]}], "+", 
+          SuperscriptBox["M", "2"], "+", "p1", "+", 
+          SqrtBox[
+           RowBox[{"Kallen\[Lambda]", "[", 
+            RowBox[{
+             SuperscriptBox["m", "2"], ",", 
+             SuperscriptBox["M", "2"], ",", "p1"}], "]"}]]}]]}], "]"}], 
+      "p1"]}], ")"}]}]}]], "Output",
+ ImageSize->{567, 306},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1496699633]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopIntegrate",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefineSeries",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefineSeries"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVX",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVX"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1594846742],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "PVC - Wolfram Mathematica", "PVC"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 4.581909}", 
+    "history" -> {"1.0", "2.0", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "PVC[r, n_1, n_2, s_1, s_12, s_2, m_0, m_1, m_2] is the Passarino-Veltman \
+coefficient function C UnderscriptBox[UnderscriptBox[0 ... 0, \[UnderBrace]], \
+2 r] UnderscriptBox[UnderscriptBox[1 ... 1, \[UnderBrace]], SubscriptBox[n, \
+1]] UnderscriptBox[UnderscriptBox[2 ... 2, \[UnderBrace]], SubscriptBox[n, \
+2]] (s_1, s_12, s_2; m_0, m_1, m_2).", "synonyms" -> {}, "title" -> "PVC", 
+    "titlemodifier" -> "", "windowtitle" -> "PVC", "type" -> "Symbol", "uri" -> 
+    "X/ref/PVC"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/PVD.nb b/packages/X/Documentation/English/ReferencePages/Symbols/PVD.nb
new file mode 100644
index 0000000000000000000000000000000000000000..1c4d3971c1b668fb880446c7ada421ed44c63f98
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/PVD.nb
@@ -0,0 +1,2648 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Tutorials \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Bringing the Arguments of D functions to Canonical \
+Form\"\>":>Documentation`HelpLookup["paclet:X/tutorial/ArgumentsOfScalarD"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopIntegrate\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopIntegrate"], "\<\"LoopRefine\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"LoopRefineSeries\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefineSeries"], "\<\"PVA\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVA"], "\<\"PVB\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVB"], "\<\"PVC\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVC"], "\<\"PVX\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/PVX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/PVD\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/PVD"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/PVD.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/PVD", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["PVD", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["PVD",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/PVD"], "[", 
+       RowBox[{
+        StyleBox["r", "TI"], ",", 
+        SubscriptBox[
+         StyleBox["n", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["n", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["n", "TI"], 
+         StyleBox["3", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["3", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["4", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["12", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["23", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]is the Passarino-Veltman coefficient function ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox[
+         StyleBox["D",
+          FontWeight->"Bold",
+          FontSlant->"Plain"], 
+         RowBox[{
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+           RowBox[{"2", "r"}]], " ", 
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+           SubscriptBox["n", "1"]], " ", 
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"2", "..."}], "2"}], "\[UnderBrace]"], 
+           SubscriptBox["n", "2"]], 
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"3", "..."}], "3"}], "\[UnderBrace]"], 
+           SubscriptBox["n", "3"]]}]], "(", 
+        RowBox[{
+         SubscriptBox["s", "1"], ",", 
+         SubscriptBox["s", "2"], ",", 
+         SubscriptBox["s", "3"], ",", " ", 
+         RowBox[{
+          SubscriptBox["s", "4"], ";", 
+          SubscriptBox["s", "12"]}], ",", 
+         RowBox[{
+          SubscriptBox["s", "23"], ";", 
+          SubscriptBox["m", "0"]}], ",", 
+         SubscriptBox["m", "1"], ",", 
+         SubscriptBox["m", "2"], ",", 
+         SubscriptBox["m", "3"]}], ")"}], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1845794587],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is the symbolic form of the coefficient function ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->"Bold",
+      FontSlant->"Plain"], 
+     RowBox[{
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+       RowBox[{"2", "r"}]], " ", 
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+       SubscriptBox["n", "1"]], " ", 
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"2", "..."}], "2"}], "\[UnderBrace]"], 
+       SubscriptBox["n", "2"]], 
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"3", "..."}], "3"}], "\[UnderBrace]"], 
+       SubscriptBox["n", "3"]]}]], "(", 
+    RowBox[{
+     SubscriptBox["s", "1"], ",", 
+     SubscriptBox["s", "2"], ",", 
+     SubscriptBox["s", "3"], ",", " ", 
+     RowBox[{
+      SubscriptBox["s", "4"], ";", 
+      SubscriptBox["s", "12"]}], ",", 
+     RowBox[{
+      SubscriptBox["s", "23"], ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"], ",", 
+     SubscriptBox["m", "2"], ",", 
+     SubscriptBox["m", "3"]}], ")"}], TraditionalForm]], "InlineMath"],
+ " multiplying the symmetrized tensor ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox[
+    RowBox[{"{", 
+     SuperscriptBox[
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"[", 
+             SubscriptBox["p", "1"], "]"}], 
+            SubscriptBox["n", "1"]], "[", 
+           SubscriptBox["p", "2"], "]"}], 
+          SubscriptBox["n", "2"]], "[", 
+         SubscriptBox["p", "3"], "]"}], 
+        SubscriptBox["n", "3"]], "[", "g", "]"}], "r"], "}"}], 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["\[Mu]", "1"], "..."}], 
+     SubscriptBox["\[Mu]", 
+      RowBox[{
+       RowBox[{"2", "r"}], "+", 
+       SubscriptBox["n", "1"], "+", 
+       SubscriptBox["n", "2"], "+", 
+       SubscriptBox["n", "3"]}]]}]], TraditionalForm]], "InlineMath"],
+ " generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " implicitly depends on the number of spacetime dimensions ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1714587355],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->"Bold",
+      FontSlant->"Plain"], "0"], "(", 
+    RowBox[{
+     SubscriptBox["s", "1"], ",", 
+     SubscriptBox["s", "2"], ",", 
+     SubscriptBox["s", "3"], ",", " ", 
+     RowBox[{
+      SubscriptBox["s", "4"], ";", 
+      SubscriptBox["s", "12"]}], ",", 
+     RowBox[{
+      SubscriptBox["s", "23"], ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"], ",", 
+     SubscriptBox["m", "2"], ",", 
+     SubscriptBox["m", "3"]}], ")"}], "=", 
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    SuperscriptBox["e", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", 
+       StyleBox["E",
+        FontSlant->"Plain"]], "\[Epsilon]"}]], 
+    FractionBox[
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"-", "1"}], ")"}], 
+      RowBox[{"4", "+", 
+       SubscriptBox["n", "1"], "+", 
+       SubscriptBox["n", "2"], "+", 
+       SubscriptBox["n", "3"], "+", "r"}]], 
+     SuperscriptBox["2", "r"]], 
+    RowBox[{"\[CapitalGamma]", "(", 
+     RowBox[{"2", "+", "\[Epsilon]", "-", "r"}], ")"}], "\[Times]", 
+    RowBox[{
+     UnderscriptBox["lim", 
+      RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
+       SuperscriptBox["0", "+"]}],
+      LimitsPositioning->False], 
+     RowBox[{
+      StyleBox[
+       SubsuperscriptBox["\[Integral]", "0", "1"],
+       ScriptLevel->0], 
+      RowBox[{
+       RowBox[{"\[DifferentialD]", "x"}], 
+       RowBox[{
+        StyleBox[
+         SubsuperscriptBox["\[Integral]", "0", 
+          RowBox[{"1", "-", "x"}]],
+         ScriptLevel->0], 
+        RowBox[{
+         RowBox[{"\[DifferentialD]", "y"}], 
+         RowBox[{
+          StyleBox[
+           SubsuperscriptBox["\[Integral]", "0", 
+            RowBox[{"1", "-", "x", "-", "y"}]],
+           ScriptLevel->0], 
+          RowBox[{
+           RowBox[{"\[DifferentialD]", "z"}], " ", 
+           SuperscriptBox["x", 
+            SubscriptBox["n", "1"]], 
+           SuperscriptBox["y", 
+            SubscriptBox["n", "2"]], 
+           SuperscriptBox[
+            RowBox[{
+             SuperscriptBox["z", 
+              SubscriptBox["n", "3"]], "(", 
+             RowBox[{
+              RowBox[{
+               SubscriptBox["s", "1"], 
+               SuperscriptBox["x", "2"]}], "+", 
+              RowBox[{
+               SubscriptBox["s", "12"], 
+               SuperscriptBox["y", "2"]}], "+", 
+              RowBox[{
+               SubscriptBox["s", "4"], 
+               SuperscriptBox["z", "2"]}], "+", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 SubscriptBox["s", "1"], "+", 
+                 SubscriptBox["s", "12"], "-", 
+                 SubscriptBox["s", "2"]}], ")"}], "x", " ", "y"}], "+", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 SubscriptBox["s", "1"], "-", 
+                 SubscriptBox["s", "23"], "+", 
+                 SubscriptBox["s", "4"]}], ")"}], "x", " ", "z"}], "+", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 SubscriptBox["s", "12"], "-", 
+                 SubscriptBox["s", "3"], "+", 
+                 SubscriptBox["s", "4"]}], ")"}], "y", " ", "z"}], "+", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  SubscriptBox["s", "1"]}], "+", 
+                 SubsuperscriptBox["m", "1", "2"], "-", 
+                 SubsuperscriptBox["m", "0", "2"]}], ")"}], "x"}], "+", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  SubscriptBox["s", "12"]}], "+", 
+                 SubsuperscriptBox["m", "2", "2"], "-", 
+                 SubsuperscriptBox["m", "0", "2"]}], ")"}], "y"}], "+", 
+              RowBox[{
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  SubscriptBox["s", "4"]}], "+", 
+                 SubsuperscriptBox["m", "3", "2"], "-", 
+                 SubsuperscriptBox["m", "0", "2"]}], ")"}], "z"}], "+", 
+              SubsuperscriptBox["m", "0", "2"], "-", 
+              RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], ")"}], 
+            RowBox[{
+             RowBox[{"-", "2"}], "-", "\[Epsilon]", "+", 
+             "r"}]]}]}]}]}]}]}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "Notes",
+ CellID->955702670],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"], "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the scalar ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->"Bold",
+      FontSlant->"Plain"], "0"], "(", 
+    RowBox[{
+     SubscriptBox["s", "1"], ",", 
+     SubscriptBox["s", "2"], ",", 
+     SubscriptBox["s", "3"], ",", " ", 
+     RowBox[{
+      SubscriptBox["s", "4"], ";", 
+      SubscriptBox["s", "12"]}], ",", 
+     RowBox[{
+      SubscriptBox["s", "23"], ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"], ",", 
+     SubscriptBox["m", "2"], ",", 
+     SubscriptBox["m", "3"]}], ")"}], TraditionalForm]], "InlineMath"],
+ " ",
+ "function with full dependence on ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1759770468],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not automatically reorganize its arguments."
+}], "Notes",
+ CellID->660102591],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not directly evaluate.  ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " substitutes ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit expression."
+}], "Notes",
+ CellID->1903015948],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    RowBox[{
+     ButtonBox["Weights",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopIntegrate#1445834945"], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       SubscriptBox[
+        StyleBox["w", "TI"], 
+        StyleBox["0", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["w", "TI"], 
+        StyleBox["1", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["w", "TI"], 
+        StyleBox["2", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["w", "TI"], 
+        StyleBox["3", "TR"]]}], "}"}]}]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the weighted coefficient function ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox[
+    StyleBox["D",
+     FontWeight->"Bold",
+     FontSlant->"Plain"], 
+    RowBox[{
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+      RowBox[{"2", "r"}]], " ", 
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+      SubscriptBox["n", "1"]], " ", 
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"2", "..."}], "2"}], "\[UnderBrace]"], 
+      SubscriptBox["n", "2"]], 
+     UnderscriptBox[
+      UnderscriptBox[
+       RowBox[{
+        RowBox[{"3", "..."}], "3"}], "\[UnderBrace]"], 
+      SubscriptBox["n", "3"]]}], 
+    RowBox[{"{", 
+     RowBox[{
+      SubscriptBox["w", "0"], ",", 
+      SubscriptBox["w", "1"], ",", 
+      SubscriptBox["w", "2"], ",", 
+      SubscriptBox["w", "3"]}], "}"}]], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ CellID->348676292],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    RowBox[{"Dimensions", "\[Rule]", 
+     StyleBox["n", "TI"]}]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " represents the coefficient function in ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    StyleBox["n",
+     FontSlant->"Italic"], "-", 
+    RowBox[{"2", "\[Epsilon]"}]}], TraditionalForm]], "InlineMath"],
+ " spacetime dimensions."
+}], "Notes",
+ CellID->239368884],
+
+Cell[TextData[{
+ "The following are equal to ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in other packages:"
+}], "Notes",
+ CellID->55998301],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell["FeynCalc", "TableText"], Cell[
+    TextData[{
+     Cell[BoxData[
+      FormBox[
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"\[Pi]", " ", 
+          SuperscriptBox["e", "\[Gamma]"]}], ")"}], "\[Epsilon]"], 
+       TraditionalForm]], "InlineMath"],
+     Cell[BoxData[
+      RowBox[{"PaVe", "[", 
+       RowBox[{
+        TagBox[
+         TooltipBox["\<\"\[Ellipsis]\"\>",
+          
+          "\"Sequence of \
+\\!\\(\\*StyleBox[\\\"2\\\",\\\"TR\\\"]\\*StyleBox[\\\"r\\\",\\\"TI\\\"]\\) \
+'0's, \\!\\(\\*SubscriptBox[\\(\\*StyleBox[\\\"n\\\",\\\"TI\\\"]\\),\\(\\*\
+StyleBox[\\\"1\\\",\\\"TR\\\"]\\)]\\) '1's, \
+\\!\\(\\*SubscriptBox[\\(\\*StyleBox[\\\"n\\\",\\\"TI\\\"]\\),\\(\\*StyleBox[\
+\\\"2\\\",\\\"TR\\\"]\\)]\\) '2's, and \
+\\!\\(\\*SubscriptBox[\\(\\*StyleBox[\\\"n\\\",\\\"TI\\\"]\\),\\(\\*StyleBox[\
+\\\"3\\\",\\\"TR\\\"]\\)]\\) '3's,\"",
+          TooltipStyle->"TextStyling"],
+         Annotation[#, 
+          "Sequence of \!\(\*StyleBox[\"2\",\"TR\"]\*StyleBox[\"r\",\"TI\"]\) \
+'0's, \!\(\*SubscriptBox[\(\*StyleBox[\"n\",\"TI\"]\),\(\*StyleBox[\"1\",\"TR\
+\"]\)]\) '1's, \
+\!\(\*SubscriptBox[\(\*StyleBox[\"n\",\"TI\"]\),\(\*StyleBox[\"2\",\"TR\"]\)]\
+\) '2's, and \!\(\*SubscriptBox[\(\*StyleBox[\"n\",\"TI\"]\),\(\*StyleBox[\"3\
+\",\"TR\"]\)]\) '3's,", "Tooltip"]& ], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["2", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["3", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["4", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["12", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["s", "TI"], 
+           StyleBox["23", "TR"]]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubsuperscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["0", "TR"], "2"], ",", 
+          SubsuperscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"], "2"], ",", 
+          SubsuperscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["2", "TR"], "2"], ",", 
+          SubsuperscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["3", "TR"], "2"]}], "}"}]}], "]"}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]]
+    }], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     "LoopTools (IR finite and ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "\[Rule]", "0"}], TraditionalForm]], 
+      "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"\[Mu]", "\[Rule]", "1.0"}], TraditionalForm]], "InlineMath"],
+     ")"
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     RowBox[{"D0i", "[", 
+      RowBox[{
+       RowBox[{"dd", 
+        TagBox[
+         TooltipBox["\<\"\[Ellipsis]\"\>",
+          
+          "\"Sequence of \
+\\!\\(\\*StyleBox[\\\"2\\\",\\\"TR\\\"]\\*StyleBox[\\\"r\\\",\\\"TI\\\"]\\) \
+'0's\"",
+          TooltipStyle->"TextStyling"],
+         Annotation[#, 
+          "Sequence of \!\(\*StyleBox[\"2\",\"TR\"]\*StyleBox[\"r\",\"TI\"]\) \
+'0's", "Tooltip"]& ]}], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["1", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["2", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["3", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["4", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["12", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["23", "TR"]], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["0", "TR"], "2"], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["1", "TR"], "2"], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["2", "TR"], "2"], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["3", "TR"], "2"]}], "]"}]], "InlineFormula",
+     ShowStringCharacters->False,
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->573166446]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(5)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1868342794],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(5)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->731452324],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to substitute the analytic form of ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1761500390],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVD", "[", 
+   RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", "s", ",", "0", ",", "M", ",", "M", ",", 
+    "M", ",", "M"}], "]"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1032421388],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"DiscB", "[", 
+    RowBox[{
+     SuperscriptBox["m", "2"], ",", "M", ",", "M"}], "]"}], 
+   RowBox[{
+    RowBox[{"4", " ", 
+     SuperscriptBox["m", "2"]}], "-", "s"}]], "-", 
+  FractionBox[
+   RowBox[{"DiscB", "[", 
+    RowBox[{"s", ",", "M", ",", "M"}], "]"}], 
+   RowBox[{
+    RowBox[{"4", " ", 
+     SuperscriptBox["m", "2"]}], "-", "s"}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+    RowBox[{"ScalarC0", "[", 
+     RowBox[{
+      SuperscriptBox["m", "2"], ",", 
+      SuperscriptBox["m", "2"], ",", "s", ",", "M", ",", "M", ",", "M"}], 
+     "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}]]}]], "Output",
+ ImageSize->{476, 42},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->514340944]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1957921843],
+
+Cell[TextData[{
+ "Weighted ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->900492320],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVD", "[", 
+   RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", "s", ",", "0", ",", "M", ",", "M", ",", 
+    "M", ",", "M", ",", 
+    RowBox[{"Weights", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "}"}]}]}], "]"}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->986709548],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", 
+        SuperscriptBox["m", "4"]}], "-", 
+       RowBox[{"8", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "2"]}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "s"}], "+", 
+       RowBox[{"3", " ", 
+        SuperscriptBox["M", "2"], " ", "s"}]}], ")"}], " ", 
+     RowBox[{"DiscB", "[", 
+      RowBox[{
+       SuperscriptBox["m", "2"], ",", "M", ",", "M"}], "]"}]}], 
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "6"], "-", 
+       RowBox[{"8", " ", 
+        SuperscriptBox["m", "4"], " ", 
+        SuperscriptBox["M", "2"]}], "+", 
+       RowBox[{"16", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "4"]}], "+", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "2"], " ", "s"}], "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["M", "4"], " ", "s"}]}], ")"}]}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{"s", ",", "M", ",", "M"}], "]"}]}], 
+   RowBox[{"4", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "-", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["M", "2"]}], "+", 
+      RowBox[{
+       SuperscriptBox["M", "2"], " ", "s"}]}], ")"}]}]], "-", 
+  FractionBox[
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"], ",", "s", ",", "M", ",", "M", ",", "M"}], 
+    "]"}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}]]}]], "Output",
+ ImageSize->{400, 84},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->674044652]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1766452943],
+
+Cell[TextData[{
+ "Taylor series expansion around ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["m", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->1960676873],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"PVD", "[", 
+    RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"], ",", "s", ",", "0", ",", "M", ",", "M", ",", 
+     "M", ",", "M"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"m", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2107124943],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["2", "s"], "+", 
+     FractionBox[
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "M", ",", "M"}], "]"}], "s"], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", "0", ",", "s", ",", "M", ",", "M", ",", "M"}], 
+       "]"}]}]}], ")"}], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        RowBox[{"24", " ", 
+         SuperscriptBox["M", "2"]}], "+", "s"}], 
+       RowBox[{"3", " ", 
+        SuperscriptBox["M", "2"], " ", 
+        SuperscriptBox["s", "2"]}]], "+", 
+      FractionBox[
+       RowBox[{"4", " ", 
+        RowBox[{"DiscB", "[", 
+         RowBox[{"s", ",", "M", ",", "M"}], "]"}]}], 
+       SuperscriptBox["s", "2"]], "+", 
+      FractionBox[
+       RowBox[{"2", " ", 
+        RowBox[{"ScalarC0", "[", 
+         RowBox[{"0", ",", "0", ",", "s", ",", "M", ",", "M", ",", "M"}], 
+         "]"}]}], "s"]}], ")"}], " ", 
+    SuperscriptBox["m", "2"]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "m", "]"}], "3"],
+    SeriesData[$CellContext`m, 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`m, 0, {
+   2/$CellContext`s + $CellContext`s^(-1) 
+     X`DiscB[$CellContext`s, $CellContext`M, $CellContext`M] + 
+    Rational[1, 2] 
+     X`ScalarC0[
+      0, 0, $CellContext`s, $CellContext`M, $CellContext`M, $CellContext`M], 
+    0, Rational[1, 3] $CellContext`M^(-2) $CellContext`s^(-2) (
+      24 $CellContext`M^2 + $CellContext`s) + 
+    4 $CellContext`s^(-2) 
+     X`DiscB[$CellContext`s, $CellContext`M, $CellContext`M] + 
+    2 $CellContext`s^(-1) 
+     X`ScalarC0[
+      0, 0, $CellContext`s, $CellContext`M, $CellContext`M, $CellContext`M]}, 
+   0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{460, 68},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->962714874]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2072906320],
+
+Cell[TextData[{
+ "View ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in ",
+ Cell[BoxData[
+  ButtonBox["TraditionalForm",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/TraditionalForm"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->709314959],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVD", "[", 
+   RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", "s", ",", "0", ",", "M", ",", "M", ",", 
+    "M", ",", "M"}], "]"}], "//", "TraditionalForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1725976951],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->Bold,
+      FontSlant->Plain], 
+     RowBox[{"0", "\[InvisibleComma]", "0"}]], "(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"], ",", 
+     SuperscriptBox["m", "2"]}], ";", 
+    RowBox[{"s", ",", "0"}], ";", 
+    RowBox[{"M", ",", "M", ",", "M", ",", "M"}], ")"}],
+   "PVD"], TraditionalForm]], "Output",
+ ImageSize->{228, 23},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//TraditionalForm=",
+ CellID->1656369959]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{"T", 
+     AdjustmentBox["E",
+      BoxBaselineShift->0.5,
+      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], "TR",
+    SingleLetterItalics->False], TraditionalForm]]],
+ " code:"
+}], "ExampleText",
+ CellID->952284017],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "TeXForm"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->55066256],
+
+Cell["\\mathbf{D}_{00}\\left(m^2,m^2,m^2,m^2;s,0;M,M,M,M\\right)", "Output",
+ ImageSize->{397, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]//TeXForm=",
+ CellID->405741261]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1335078299],
+
+Cell[TextData[{
+ "More general cases are given in terms of ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->962933289],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVD", "[", 
+   RowBox[{
+   "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
+    ",", "s", ",", "t", ",", "m", ",", "m", ",", "m", ",", "m"}], "]"}], "//",
+   "LoopRefine"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->597274813],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{"ScalarC0", "[", 
+     RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], "]"}], 
+    RowBox[{"s", "+", "t"}]]}], "+", 
+  FractionBox[
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", "0", ",", "t", ",", "m", ",", "m", ",", "m"}], "]"}], 
+   RowBox[{"s", "+", "t"}]], "-", 
+  FractionBox[
+   RowBox[{"s", " ", 
+    RowBox[{"ScalarD0", "[", 
+     RowBox[{
+     "0", ",", "0", ",", "0", ",", "0", ",", "s", ",", "t", ",", "m", ",", 
+      "m", ",", "m", ",", "m"}], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{"s", "+", "t"}], ")"}]}]]}]], "Output",
+ ImageSize->{454, 63},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->527688421]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["D0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/D0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain an expression in terms of more elementary functions:"
+}], "ExampleText",
+ CellID->1529131642],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"PVD", "[", 
+    RowBox[{
+    "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
+      ",", "s", ",", "t", ",", "m", ",", "m", ",", "m", ",", "m"}], "]"}], "//",
+    "LoopRefine"}], "//", "D0Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->68784337],
+
+Cell[BoxData[
+ RowBox[{"ConditionalExpression", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"-", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox[
+          SuperscriptBox["\[Pi]", "2"], "2"]}], "-", 
+        SuperscriptBox[
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"1", "+", 
+              SqrtBox[
+               RowBox[{"1", "-", 
+                FractionBox[
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "2"]}], "s"]}]]}], ")"}], " ", "t", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SqrtBox[
+               RowBox[{"1", "-", 
+                FractionBox[
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "2"]}], "s"]}]], "-", 
+              SqrtBox[
+               RowBox[{"1", "-", 
+                FractionBox[
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "2"], " ", 
+                  RowBox[{"(", 
+                   RowBox[{"s", "+", "t"}], ")"}]}], 
+                 RowBox[{"s", " ", "t"}]]}]]}], ")"}]}], 
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}]], "]"}], "2"], "-", 
+        SuperscriptBox[
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{"1", "+", 
+              SqrtBox[
+               RowBox[{"1", "-", 
+                FractionBox[
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "2"]}], "t"]}]]}], ")"}], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SqrtBox[
+               RowBox[{"1", "-", 
+                FractionBox[
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "2"]}], "t"]}]], "-", 
+              SqrtBox[
+               RowBox[{"1", "-", 
+                FractionBox[
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "2"], " ", 
+                  RowBox[{"(", 
+                   RowBox[{"s", "+", "t"}], ")"}]}], 
+                 RowBox[{"s", " ", "t"}]]}]]}], ")"}]}], 
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}]], "]"}], "2"], "+", 
+        RowBox[{
+         RowBox[{"Log", "[", 
+          RowBox[{"-", 
+           FractionBox[
+            RowBox[{"t", " ", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"]}], "s"]}]], "-", 
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"s", "+", "t"}], ")"}]}], 
+                   RowBox[{"s", " ", "t"}]]}]]}], ")"}], "2"]}], 
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}]]}], "]"}], " ", 
+         RowBox[{"Log", "[", 
+          RowBox[{"-", 
+           FractionBox[
+            RowBox[{"s", " ", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"]}], "t"]}]], "-", 
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"s", "+", "t"}], ")"}]}], 
+                   RowBox[{"s", " ", "t"}]]}]]}], ")"}], "2"]}], 
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}]]}], "]"}]}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox[
+          RowBox[{"Log", "[", 
+           RowBox[{"-", 
+            FractionBox[
+             RowBox[{"s", " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"]}], "s"]}]], "+", 
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"s", "+", "t"}], ")"}]}], 
+                   RowBox[{"s", " ", "t"}]]}]]}], ")"}], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", 
+                 SqrtBox[
+                  RowBox[{"1", "-", 
+                   FractionBox[
+                    RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"]}], "t"]}]]}], "+", 
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"s", "+", "t"}], ")"}]}], 
+                   RowBox[{"s", " ", "t"}]]}]]}], ")"}]}], 
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"]}]]}], "]"}], "2"]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"PolyLog", "[", 
+          RowBox[{"2", ",", 
+           RowBox[{"-", 
+            FractionBox[
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", "1"}], "+", 
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"]}], "s"]}]]}], ")"}], " ", "s", 
+              " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"]}], "s"]}]], "-", 
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"s", "+", "t"}], ")"}]}], 
+                   RowBox[{"s", " ", "t"}]]}]]}], ")"}]}], 
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"]}]]}]}], "]"}]}], "+", 
+        RowBox[{"2", " ", 
+         RowBox[{"PolyLog", "[", 
+          RowBox[{"2", ",", 
+           FractionBox[
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", "1"}], "+", 
+               SqrtBox[
+                RowBox[{"1", "-", 
+                 FractionBox[
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["m", "2"]}], "s"]}]]}], ")"}], " ", "t", 
+             " ", 
+             RowBox[{"(", 
+              RowBox[{
+               SqrtBox[
+                RowBox[{"1", "-", 
+                 FractionBox[
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["m", "2"]}], "s"]}]], "-", 
+               SqrtBox[
+                RowBox[{"1", "-", 
+                 FractionBox[
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["m", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{"s", "+", "t"}], ")"}]}], 
+                  RowBox[{"s", " ", "t"}]]}]]}], ")"}]}], 
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}]]}], "]"}]}], "+", 
+        RowBox[{"2", " ", 
+         RowBox[{"PolyLog", "[", 
+          RowBox[{"2", ",", 
+           FractionBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", "1"}], "+", 
+               SqrtBox[
+                RowBox[{"1", "-", 
+                 FractionBox[
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["m", "2"]}], "t"]}]]}], ")"}], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               SqrtBox[
+                RowBox[{"1", "-", 
+                 FractionBox[
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["m", "2"]}], "t"]}]], "-", 
+               SqrtBox[
+                RowBox[{"1", "-", 
+                 FractionBox[
+                  RowBox[{"4", " ", 
+                   SuperscriptBox["m", "2"], " ", 
+                   RowBox[{"(", 
+                    RowBox[{"s", "+", "t"}], ")"}]}], 
+                  RowBox[{"s", " ", "t"}]]}]]}], ")"}]}], 
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}]]}], "]"}]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"PolyLog", "[", 
+          RowBox[{"2", ",", 
+           RowBox[{"-", 
+            FractionBox[
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", "1"}], "+", 
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"]}], "t"]}]]}], ")"}], " ", "t", 
+              " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"]}], "t"]}]], "-", 
+                SqrtBox[
+                 RowBox[{"1", "-", 
+                  FractionBox[
+                   RowBox[{"4", " ", 
+                    SuperscriptBox["m", "2"], " ", 
+                    RowBox[{"(", 
+                    RowBox[{"s", "+", "t"}], ")"}]}], 
+                   RowBox[{"s", " ", "t"}]]}]]}], ")"}]}], 
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"]}]]}]}], "]"}]}]}], ")"}], "/", 
+      RowBox[{"(", 
+       RowBox[{
+        SqrtBox[
+         RowBox[{"1", "-", 
+          FractionBox[
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "s"], "-", 
+          FractionBox[
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "t"]}]], " ", "t", " ", 
+        RowBox[{"(", 
+         RowBox[{"s", "+", "t"}], ")"}]}], ")"}]}]}], "-", 
+    FractionBox[
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], "]"}], 
+     
+     RowBox[{"s", "+", "t"}]], "+", 
+    FractionBox[
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", "0", ",", "t", ",", "m", ",", "m", ",", "m"}], "]"}], 
+     
+     RowBox[{"s", "+", "t"}]]}], ",", 
+   RowBox[{
+    RowBox[{"s", " ", "t", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"s", " ", "t"}], "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        RowBox[{"(", 
+         RowBox[{"s", "+", "t"}], ")"}]}]}], ")"}]}], ">", "0"}]}], 
+  "]"}]], "Output",
+ ImageSize->{556, 688},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1561435180]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopIntegrate",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefine",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["LoopRefineSeries",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefineSeries"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVX",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVX"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Tutorials", "TutorialsSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "TUTORIALS", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "TutorialsSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Tutorials"}], "TutorialsSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->250839057],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Bringing the Arguments of D functions to Canonical \
+Form",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/ArgumentsOfScalarD"]], "Tutorials",
+ CellID->341631938],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1322814040],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "PVD - Wolfram Mathematica", "PVD"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 6.271234}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "PVD[r, n_1, n_2, n_3, s_1, s_2, s_3, s_4, s_12, s_23, m_0, m_1, m_2, \
+m_3] is the Passarino-Veltman coefficient function D \
+UnderscriptBox[UnderscriptBox[0 ... 0, \[UnderBrace]], 2 r] \
+UnderscriptBox[UnderscriptBox[1 ... 1, \[UnderBrace]], SubscriptBox[n, 1]] \
+UnderscriptBox[UnderscriptBox[2 ... 2, \[UnderBrace]], SubscriptBox[n, 2]] \
+UnderscriptBox[UnderscriptBox[3 ... 3, \[UnderBrace]], SubscriptBox[n, 3]] \
+(s_1, s_2, s_3, s_4; s_12, s_23; m_0, m_1, m_2, m_3).", "synonyms" -> {}, 
+    "title" -> "PVD", "titlemodifier" -> "", "windowtitle" -> "PVD", "type" -> 
+    "Symbol", "uri" -> "X/ref/PVD"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/PVX.nb b/packages/X/Documentation/English/ReferencePages/Symbols/PVX.nb
new file mode 100644
index 0000000000000000000000000000000000000000..ca6b283db319d03460c54cce67af8cec24d58f58
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/PVX.nb
@@ -0,0 +1,1262 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"PVA\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVA"], "\<\"PVB\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVB"], "\<\"PVC\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVC"], "\<\"PVD\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/PVD"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/PVX\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/PVX"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/PVX.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/PVX", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["PVX", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["PVX",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/PVX"], "[", 
+       RowBox[{
+        StyleBox["r", "TI"], ",", 
+        SubscriptBox[
+         StyleBox["n", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["n", "TI"], 
+         StyleBox["2", "TR"]], ",", "\[Ellipsis]", ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["01", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["12", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["23", "TR"]], ",", "\[Ellipsis]", ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]",
+     "is the general Passarino-Veltman coefficient function ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox[
+         StyleBox["X",
+          FontWeight->"Bold",
+          FontSlant->"Plain"], 
+         RowBox[{
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+           RowBox[{"2", "r"}]], " ", 
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+           SubscriptBox["n", "1"]], " ", 
+          UnderscriptBox[
+           UnderscriptBox[
+            RowBox[{
+             RowBox[{"2", "..."}], "2"}], "\[UnderBrace]"], 
+           SubscriptBox["n", "2"]], "\[Ellipsis]"}]], "(", 
+        RowBox[{
+         SubscriptBox["s", "01"], ",", 
+         SubscriptBox["s", "12"], ",", 
+         SubscriptBox["s", "23"], ",", 
+         RowBox[{"\[Ellipsis]", ";", 
+          SubscriptBox["m", "0"]}], ",", 
+         SubscriptBox["m", "1"], ",", 
+         SubscriptBox["m", "2"], ",", "\[Ellipsis]"}], ")"}], 
+       TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1784856536],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVX",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVX"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", "\[Ellipsis]", ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["01", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", "\[Ellipsis]", ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is the symbolic form of the coefficient function ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["X",
+      FontWeight->"Bold",
+      FontSlant->"Plain"], 
+     RowBox[{
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"0", "..."}], "0"}], "\[UnderBrace]"], 
+       RowBox[{"2", "r"}]], " ", 
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"1", "..."}], "1"}], "\[UnderBrace]"], 
+       SubscriptBox["n", "1"]], " ", 
+      UnderscriptBox[
+       UnderscriptBox[
+        RowBox[{
+         RowBox[{"2", "..."}], "2"}], "\[UnderBrace]"], 
+       SubscriptBox["n", "2"]], "\[Ellipsis]"}]], "(", 
+    RowBox[{
+     SubscriptBox["s", "01"], ",", 
+     SubscriptBox["s", "12"], ",", 
+     SubscriptBox["s", "23"], ",", 
+     RowBox[{"\[Ellipsis]", ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"], ",", 
+     SubscriptBox["m", "2"], ",", "\[Ellipsis]"}], ")"}], TraditionalForm]], 
+  "InlineMath"],
+ " multiplying the symmetrized tensor ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox[
+    RowBox[{"{", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"[", 
+          SubscriptBox["p", "1"], "]"}], 
+         SubscriptBox["n", "1"]], "[", 
+        SubscriptBox["p", "2"], "]"}], 
+       SubscriptBox["n", "2"]], 
+      SuperscriptBox[
+       RowBox[{"\[Ellipsis]", "[", "g", "]"}], "r"]}], "}"}], 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["\[Mu]", "1"], "..."}], 
+     SubscriptBox["\[Mu]", 
+      RowBox[{
+       RowBox[{"2", "r"}], "+", 
+       SubscriptBox["n", "1"], "+", 
+       SubscriptBox["n", "2"], "+", "\[Ellipsis]"}]]}]], TraditionalForm]], 
+  "InlineMath"],
+ " generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["PVX",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVX"], "[", 
+   RowBox[{
+    StyleBox["r", "TI"], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["n", "TI"], 
+     StyleBox["2", "TR"]], ",", "\[Ellipsis]", ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["01", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", "\[Ellipsis]", ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " implicitly depends on the number of spacetime dimensions ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1714587355],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["PVX",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVX"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not directly evaluate, nor does ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " substitute it with its explicit expression."
+}], "Notes",
+ CellID->1903015948],
+
+Cell[TextData[{
+ "The arguments of ",
+ Cell[BoxData[
+  ButtonBox["PVX",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVX"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " representing an ",
+ Cell[BoxData[
+  FormBox["N", TraditionalForm]], "InlineMath"],
+ "-point coefficient coefficient function are as follows: the first ",
+ Cell[BoxData[
+  FormBox["N", TraditionalForm]], "InlineMath"],
+ " arguments are integers, and specify the indices; the next ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{" ", 
+    RowBox[{"N", " ", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"N", "-", "1"}], ")"}], "/", "2"}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " arguments are external momentum invariants; the last ",
+ Cell[BoxData[
+  FormBox["N", TraditionalForm]], "InlineMath"],
+ " arguments are internal masses."
+}], "Notes",
+ Deletable->True,
+ CellID->1318271487],
+
+Cell[TextData[{
+ "For ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"N", "\[LessEqual]", "4"}], TraditionalForm]], "InlineMath"],
+ " point coefficient functions, ",
+ Cell[BoxData[
+  ButtonBox["PVX",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVX"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is automatically replaced with ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->2088431980]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(3)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->2032219256],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(3)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1929113704],
+
+Cell["A 5-point integral:", "ExampleText",
+ CellID->841256671],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{
+   RowBox[{"k", ".", "p1"}], ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p2"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p3"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"k", "+", "p4"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1836228015],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"PVD", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"p2", ".", "p2"}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p2", ".", "p3"}]}], "+", 
+      RowBox[{"p3", ".", "p3"}]}], ",", 
+     RowBox[{
+      RowBox[{"p3", ".", "p3"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p3", ".", "p4"}]}], "+", 
+      RowBox[{"p4", ".", "p4"}]}], ",", 
+     RowBox[{"p4", ".", "p4"}], ",", 
+     RowBox[{"p3", ".", "p3"}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p2", ".", "p4"}]}], "+", 
+      RowBox[{"p4", ".", "p4"}]}], ",", "m", ",", "m", ",", "m", ",", "m"}], 
+    "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"PVD", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}], "+", 
+      RowBox[{"p2", ".", "p2"}]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p2", ".", "p3"}]}], "+", 
+      RowBox[{"p3", ".", "p3"}]}], ",", 
+     RowBox[{
+      RowBox[{"p3", ".", "p3"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p3", ".", "p4"}]}], "+", 
+      RowBox[{"p4", ".", "p4"}]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p4"}]}], "+", 
+      RowBox[{"p4", ".", "p4"}]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p3"}]}], "+", 
+      RowBox[{"p3", ".", "p3"}]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p2", ".", "p4"}]}], "+", 
+      RowBox[{"p4", ".", "p4"}]}], ",", "m", ",", "m", ",", "m", ",", "m"}], 
+    "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"p1", ".", "p1"}], " ", 
+   RowBox[{"PVX", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"p1", ".", "p1"}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}], "+", 
+      RowBox[{"p2", ".", "p2"}]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p2", ".", "p3"}]}], "+", 
+      RowBox[{"p3", ".", "p3"}]}], ",", 
+     RowBox[{
+      RowBox[{"p3", ".", "p3"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p3", ".", "p4"}]}], "+", 
+      RowBox[{"p4", ".", "p4"}]}], ",", 
+     RowBox[{"p4", ".", "p4"}], ",", 
+     RowBox[{"p2", ".", "p2"}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p3"}]}], "+", 
+      RowBox[{"p3", ".", "p3"}]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p2", ".", "p4"}]}], "+", 
+      RowBox[{"p4", ".", "p4"}]}], ",", 
+     RowBox[{"p3", ".", "p3"}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p4"}]}], "+", 
+      RowBox[{"p4", ".", "p4"}]}], ",", "m", ",", "m", ",", "m", ",", "m", 
+     ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{580, 144},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->989781019]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2017938984],
+
+Cell["A 6-point coefficient function:", "ExampleText",
+ CellID->291267017],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVX", "[", 
+   RowBox[{
+   "0", ",", "1", ",", "0", ",", "2", ",", "0", ",", "0", ",", "s1", ",", 
+    "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", ",", "s8", 
+    ",", "s9", ",", "s10", ",", "s11", ",", "s12", ",", "s13", ",", "s14", 
+    ",", "s15", ",", "m0", ",", "m1", ",", "m2", ",", "m3", ",", "m4", ",", 
+    "m5"}], "]"}], "//", "TraditionalForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->65934633],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["F",
+      FontWeight->Bold,
+      FontSlant->Plain], 
+     RowBox[{"1", "\[InvisibleComma]", "3", "\[InvisibleComma]", "3"}]], "(", 
+    
+    RowBox[{
+    "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s5", ",", "s6", ",", "s7", 
+     ",", "s8", ",", "s9", ",", "s10", ",", "s11", ",", "s12", ",", "s13", 
+     ",", "s14", ",", "s15"}], ";", 
+    RowBox[{"m0", ",", "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5"}], 
+    ")"}],
+   "PVX"], TraditionalForm]], "Output",
+ ImageSize->{544, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//TraditionalForm=",
+ CellID->308430430]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1198823438],
+
+Cell["A 3-point coefficient function:", "ExampleText",
+ CellID->933946312],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVX", "[", 
+   RowBox[{
+   "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "s", ",", "m", ",", "m", 
+    ",", "m"}], "]"}], "//", "TraditionalForm"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->862101564],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["C",
+      FontWeight->Bold,
+      FontSlant->Plain], "2"], "(", 
+    RowBox[{"0", ",", "0", ",", "s"}], ";", 
+    RowBox[{"m", ",", "m", ",", "m"}], ")"}],
+   "PVC"], TraditionalForm]], "Output",
+ ImageSize->{118, 17},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//TraditionalForm=",
+ CellID->800138310]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVA",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVA"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVB",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVB"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVC",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVC"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["PVD",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/PVD"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->2053404369],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "PVX - Wolfram Mathematica", "PVX"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 7.902541}", 
+    "history" -> {"2.0", "2.1", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "PVX[r, n_1, n_2, ..., s_01, s_12, s_23, ..., m_0, m_1, m_2, ...] is the \
+general Passarino-Veltman coefficient function X \
+UnderscriptBox[UnderscriptBox[0 ... 0, \[UnderBrace]], 2 r] \
+UnderscriptBox[UnderscriptBox[1 ... 1, \[UnderBrace]], SubscriptBox[n, 1]] \
+UnderscriptBox[UnderscriptBox[2 ... 2, \[UnderBrace]], SubscriptBox[n, 2]] \
+... (s_01, s_12, s_23, ...; m_0, m_1, m_2, ...).", "synonyms" -> {}, "title" -> 
+    "PVX", "titlemodifier" -> "", "windowtitle" -> "PVX", "type" -> "Symbol", 
+    "uri" -> "X/ref/PVX"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Projector.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Projector.nb
new file mode 100644
index 0000000000000000000000000000000000000000..7d7aacceba02ac46099acdd4714b391aae11684a
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Projector.nb
@@ -0,0 +1,8122 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Tutorials \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Extracting Form Factors from the \[Mu]\[Rule]e \
+\[Gamma] Amplitude\"\>":>Documentation`HelpLookup[
+       "paclet:X/tutorial/MuToEGamma"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Spur\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Spur"], "\<\"DiracMatrix\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiracMatrix"], "\<\"Transverse\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/Transverse"], "\<\"Longitudinal\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Longitudinal"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Projector\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Projector"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Projector.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Projector", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["Projector", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       RowBox[{
+        ButtonBox["Projector",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/Projector"], "[", "\"\<\!\(\*
+StyleBox[\"name\", \"TI\"]\)\>\"", "]"}], "[", 
+       RowBox[{"{", 
+        RowBox[{
+         StyleBox["p", "TI"], ",", 
+         StyleBox["m", "TI"]}], "}"}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the projector for the off shell self-energy form \
+factor associated with \"",
+     Cell[BoxData[
+      FormBox["name", TraditionalForm]], "TI"],
+     "\"."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       RowBox[{
+        ButtonBox["Projector",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/Projector"], "[", "\"\<\!\(\*
+StyleBox[\"name\", \"TI\"]\)\>\"", "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"]]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["2", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["2", "TR"]]}], "}"}]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]gives the projector for the on shell \
+scalar/pseudoscalar density form factor associated with \"",
+     Cell[BoxData[
+      FormBox["name", TraditionalForm]], "TI"],
+     "\"."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       RowBox[{
+        ButtonBox["Projector",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/Projector"], "[", 
+        RowBox[{"\"\<\!\(\*
+StyleBox[\"name\", \"TI\"]\)\>\"", ",", 
+         StyleBox["\[Mu]", "TR"]}], "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["1", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["1", "TR"]]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox[
+           StyleBox["p", "TI"], 
+           StyleBox["2", "TR"]], ",", 
+          SubscriptBox[
+           StyleBox["m", "TI"], 
+           StyleBox["2", "TR"]]}], "}"}]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]gives the projector for the on shell \
+vector/axial-vector form factor associated with \"",
+     Cell[BoxData[
+      FormBox["name", TraditionalForm]], "TI"],
+     "\" and index ",
+     Cell[BoxData[
+      StyleBox["\[Mu]", "TR"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->615050638],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is recognized as an object in spinor space by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " must occupy a slot of ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " without any accompanying multiplicative or additive symbols."
+}], "Notes",
+ CellID->503410320],
+
+Cell[TextData[{
+ "A product of Dirac matrices ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox["M",
+    FontColor->RGBColor[0., 0., 0.]], TraditionalForm]], "InlineMath"],
+ " can generically be written as a sum of form factors.  Multiply ",
+ Cell[BoxData[
+  FormBox["M", TraditionalForm]], "InlineMath"],
+ " by the appropriate ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and apply ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to extract the appropriate form factor."
+}], "Notes",
+ Deletable->True,
+ CellID->478187848],
+
+Cell[TextData[{
+ "A ",
+ Cell[BoxData[
+  ButtonBox["List",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/List"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " of ",
+ Cell[BoxData["\"\<\!\(\*
+StyleBox[\"name\", \"TI\"]\)\>\""], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "s can be supplied to generate a list of projections."
+}], "Notes",
+ CellID->1851508468],
+
+Cell[TextData[{
+ "Vertex form factor projections generate spurious kinematic singularities \
+proportional to ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox[
+    RowBox[{"\[Lambda]", "(", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         SubscriptBox["p", "1"], "-", 
+         SubscriptBox["p", "2"]}], ")"}], "2"], ",", " ", 
+      SubsuperscriptBox["p", "1", "2"], ",", " ", 
+      SubsuperscriptBox["p", "2", "2"]}], ")"}], 
+    RowBox[{"-", "1"}]], TraditionalForm]], "InlineMath"],
+ ".  If ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " contains a vertex ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in the numerator, ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (with the setting ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Cancel",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#377984336"], "\[Rule]", 
+   ButtonBox["Automatic",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/Automatic"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " or ",
+ Cell[BoxData[
+  ButtonBox["False",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/False"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") attempts to remove the singularity. ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Projector#1710301550"]
+}], "Notes",
+ CellID->420650328],
+
+Cell[TextData[{
+ "The off shell self-energy matrix is parametrized as\[LineSeparator]  ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"M", " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p"}], "  ", 
+      RowBox[{"A", "(", 
+       SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{"m", " ", 
+      RowBox[{"B", "(", 
+       SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p"}], " ", 
+      SubscriptBox["\[Gamma]", "5"], " ", 
+      RowBox[{"C", "(", 
+       SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{"\[ImaginaryI]", " ", "m", " ", 
+      SubscriptBox["\[Gamma]", "5"], 
+      RowBox[{"E", "(", 
+       SuperscriptBox["p", "2"], ")"}]}]}]}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]and the corresponding projectors are available:"
+}], "Notes",
+ Deletable->True,
+ CellID->1523332434],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"Kinetic\"", "InlineCode"],
+     " or ",
+     StyleBox["\"A\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{"A", "(", 
+       SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"Mass\"", "InlineCode"],
+     " or ",
+     StyleBox["\"B\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{"B", "(", 
+       SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"AxialKinetic\"", "InlineCode"],
+     " or ",
+     StyleBox["\"C\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{"C", "(", 
+       SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"ImaginaryMass\"", "InlineCode"],
+     " or ",
+     StyleBox["\"E\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{"E", "(", 
+       SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True}}}},
+ CellID->577603777],
+
+Cell[TextData[{
+ "In the chiral parametrization, the self-energy matrix is\[LineSeparator]  \
+",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"M", " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"\[Gamma]", ".", "p"}], "  ", 
+         RowBox[{
+          SubscriptBox["A", "L"], "(", 
+          SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+        RowBox[{"m", " ", 
+         RowBox[{
+          SubscriptBox["B", "L"], "(", 
+          SuperscriptBox["p", "2"], ")"}]}]}], "]"}], 
+      SubscriptBox[
+       OverscriptBox["P", "^"], "L"]}], " ", "+", 
+     RowBox[{
+      RowBox[{"[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"\[Gamma]", ".", "p"}], "  ", 
+         RowBox[{
+          SubscriptBox["A", "R"], "(", 
+          SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+        RowBox[{"m", " ", 
+         RowBox[{
+          SubscriptBox["B", "R"], "(", 
+          SuperscriptBox["p", "2"], ")"}]}]}], "]"}], 
+      SubscriptBox[
+       OverscriptBox["P", "^"], "R"]}]}]}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]and the corresponding projectors are available:"
+}], "Notes",
+ CellID->92185876],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell[TextData[StyleBox[
+    "\"AL\"", "InlineCode"]], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["A", "L"], "(", 
+       SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[StyleBox[
+    "\"BL\"", "InlineCode"]], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["B", "L"], "(", 
+       SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[StyleBox[
+    "\"AR\"", "InlineCode"]], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["A", "R"], "(", 
+       SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[StyleBox[
+    "\"BR\"", "InlineCode"]], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["B", "R"], "(", 
+       SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True}}}},
+ CellID->536833741],
+
+Cell[TextData[{
+ "The parameter ",
+ Cell[BoxData[
+  StyleBox["m", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{
+    ButtonBox["Projector",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/Projector"], "[", "\"\<\!\(\*
+StyleBox[\"name\", \"TI\"]\)\>\"", "]"}], "[", 
+   RowBox[{"{", 
+    RowBox[{
+     StyleBox["p", "TI"], ",", 
+     StyleBox["m", "TI"]}], "}"}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " only serves to set the normalization of ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"B", "(", 
+    SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"E", "(", 
+    SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["B", "L"], "(", 
+    SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["B", "R"], "(", 
+    SuperscriptBox["p", "2"], ")"}], TraditionalForm]], "InlineMath"],
+ ".  Other non-zero choices (e.g. ",
+ Cell[BoxData[
+  FormBox["1", TraditionalForm]], "InlineMath"],
+ " or ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"2", "m"}], TraditionalForm]], "InlineMath"],
+ ") can be made to obtain the desired normalization."
+}], "Notes",
+ Deletable->True,
+ CellID->725001486],
+
+Cell[TextData[{
+ "The on shell vertex form factor projectors are given for space-like \
+momentum transfer (",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "<", "0"}], TraditionalForm]], "InlineMath"],
+ "):\[LineSeparator]  ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      StyleBox[
+       SubscriptBox["p", 
+        StyleBox["2",
+         FontWeight->"Plain"]],
+       FontWeight->"Bold"], ")"}], "[", " ", 
+     RowBox[{"M", "(", "q", ")"}], " ", "]"}], 
+    RowBox[{"u", "(", 
+     StyleBox[
+      SubscriptBox["p", 
+       StyleBox["1",
+        FontWeight->"Plain"]],
+      FontWeight->"Bold"], ")"}]}], TraditionalForm]], "InlineMath"],
+ ", with ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "\[Mu]"], "=", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "2"], "-", 
+       SubscriptBox["p", "1"]}], ")"}], "\[Mu]"]}], TraditionalForm]], 
+  "InlineMath"],
+ ".\[LineSeparator]For time-like vertex form factors (",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], ">", "0"}], TraditionalForm]], "InlineMath"],
+ "), a negative momentum should be supplied to ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ". ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Projector#1689153645"]
+}], "Notes",
+ Deletable->True,
+ CellID->1015502453],
+
+Cell[TextData[{
+ "The on shell scalar/pseudoscalar vertex matrix is parametrized as\
+\[LineSeparator]  ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"M", " ", "=", " ", 
+    RowBox[{
+     RowBox[{"\[DoubleStruckOne]", " ", 
+      RowBox[{
+       SubscriptBox["G", "S"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{"\[ImaginaryI]", " ", 
+      SubscriptBox["\[Gamma]", "5"], 
+      RowBox[{
+       SubscriptBox["G", "P"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}]}]}], TraditionalForm]], "InlineMath"],
+ ",\[LineSeparator]and the corresponding projectors are available:"
+}], "Notes",
+ CellID->1539285149],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"Scalar\"", "InlineCode"],
+     " or ",
+     StyleBox["\"S\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["G", "S"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"Pseudoscalar\"", "InlineCode"],
+     " or ",
+     StyleBox["\"P\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["G", "P"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->2058656422],
+
+Cell[TextData[{
+ "The on-shell vector/axial-vector vertex matrix is parametrized as\
+\[LineSeparator]  ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["M", "\[Mu]"], " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["\[Gamma]", "\[Mu]"], "-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"q", ".", "\[Gamma]"}], " ", 
+          SuperscriptBox["q", "\[Mu]"]}], 
+         SuperscriptBox["q", "2"]]}], ")"}], " ", 
+      RowBox[{
+       SubscriptBox["F", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"\[ImaginaryI]", " ", 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        SubscriptBox["q", "\[Nu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], 
+      RowBox[{
+       SubscriptBox["F", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"2", 
+        SuperscriptBox["q", "\[Mu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], " ", 
+      RowBox[{
+       SubscriptBox["F", "3"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+"}]}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["\[Gamma]", "\[Mu]"], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"q", ".", "\[Gamma]"}], " ", 
+         SuperscriptBox["q", "\[Mu]"]}], 
+        SuperscriptBox["q", "2"]]}], ")"}], 
+     SubscriptBox["\[Gamma]", "5"], " ", 
+     RowBox[{
+      SubscriptBox["G", "1"], "(", 
+      SuperscriptBox["q", "2"], ")"}]}], "+", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"\[ImaginaryI]", " ", 
+       SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+       SubscriptBox["\[Gamma]", "5"], 
+       SubscriptBox["q", "\[Nu]"]}], 
+      RowBox[{
+       SubscriptBox["m", "1"], "+", 
+       SubscriptBox["m", "2"]}]], 
+     RowBox[{
+      SubscriptBox["G", "2"], "(", 
+      SuperscriptBox["q", "2"], ")"}]}], "+", " ", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"2", 
+       SuperscriptBox["q", "\[Mu]"]}], 
+      RowBox[{
+       SubscriptBox["m", "1"], "+", 
+       SubscriptBox["m", "2"]}]], 
+     SubscriptBox["\[Gamma]", "5"], " ", 
+     RowBox[{
+      SubscriptBox["G", "3"], "(", 
+      SuperscriptBox["q", "2"], ")"}]}]}], TraditionalForm]], "InlineMath"],
+ ",\[LineSeparator]and the corresponding projectors are available:"
+}], "Notes",
+ Deletable->True,
+ CellID->1272128734],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"Dirac\"", "InlineCode"],
+     " or ",
+     StyleBox["\"F1\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["F", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"Pauli\"", "InlineCode"],
+     " or ",
+     StyleBox["\"F2\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["F", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[StyleBox[
+    "\"F3\"", "InlineCode"]], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["F", "3"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"Anapole\"", "InlineCode"],
+     " or ",
+     StyleBox["\"G1\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["G", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["\"EDM\"", "InlineCode"],
+     " or ",
+     StyleBox["\"G2\"", "InlineCode"]
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["G", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[StyleBox[
+    "\"G3\"", "InlineCode"]], "TableText"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["G", "3"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText",
+     Deletable->True]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, None, None, {None}}, "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True, True, True, True, True}}}},
+ CellID->449861772],
+
+Cell[TextData[{
+ "If (",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["m", "1"], "=", 
+    RowBox[{
+     SubscriptBox["m", "2"], "=", "m"}]}], TraditionalForm]], "InlineMath"],
+ ") the parametrization becomes:\[LineSeparator]  ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["M", "\[Mu]"], " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[Gamma]", "\[Mu]"], 
+      RowBox[{
+       SubscriptBox["F", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"\[ImaginaryI]", " ", 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        SubscriptBox["q", "\[Nu]"]}], 
+       RowBox[{"2", "m"}]], 
+      RowBox[{
+       SubscriptBox["F", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", 
+     RowBox[{
+      FractionBox[
+       SuperscriptBox["q", "\[Mu]"], "m"], 
+      RowBox[{
+       SubscriptBox["F", "3"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", "  "}]}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["\[Gamma]", "\[Mu]"], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"q", ".", "\[Gamma]"}], " ", 
+         SuperscriptBox["q", "\[Mu]"]}], 
+        SuperscriptBox["q", "2"]]}], ")"}], 
+     SubscriptBox["\[Gamma]", "5"], " ", 
+     RowBox[{
+      SubscriptBox["G", "1"], "(", 
+      SuperscriptBox["q", "2"], ")"}]}], "+", " ", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"\[ImaginaryI]", " ", 
+       SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+       SubscriptBox["\[Gamma]", "5"], 
+       SubscriptBox["q", "\[Nu]"]}], 
+      RowBox[{"2", "m"}]], 
+     RowBox[{
+      SubscriptBox["G", "2"], "(", 
+      SuperscriptBox["q", "2"], ")"}]}], "+", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["q", "\[Mu]"], "m"], 
+     SubscriptBox["\[Gamma]", "5"], " ", 
+     RowBox[{
+      SubscriptBox["G", "3"], "(", 
+      SuperscriptBox["q", "2"], ")"}]}]}], TraditionalForm]], "InlineMath"],
+ ",\[LineSeparator]and additional projectors are available:"
+}], "Notes",
+ Deletable->True,
+ CellID->1234529317],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    StyleBox["\"\<SachsElectric\>\"", "InlineCode"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       RowBox[{
+        SubscriptBox["F", "1"], "(", 
+        SuperscriptBox["q", "2"], ")"}], "+", 
+       RowBox[{
+        FractionBox[
+         SuperscriptBox["q", "2"], 
+         RowBox[{"4", 
+          SuperscriptBox["m", "2"]}]], 
+        RowBox[{
+         SubscriptBox["F", "2"], "(", 
+         SuperscriptBox["q", "2"], ")"}]}]}], TraditionalForm]], 
+     "InlineMath"]], "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    StyleBox["\"\<SachsMagnetic\>\"", "InlineCode"], Cell[TextData[Cell[
+    BoxData[
+     FormBox[
+      RowBox[{
+       RowBox[{
+        SubscriptBox["F", "1"], "(", 
+        SuperscriptBox["q", "2"], ")"}], "+", 
+       RowBox[{
+        SubscriptBox["F", "2"], "(", 
+        SuperscriptBox["q", "2"], ")"}]}], TraditionalForm]], "InlineMath"]], 
+     "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->783505640],
+
+Cell[TextData[{
+ "In the left/right-chiral parametrization, the vector vertex matrix is:\
+\[LineSeparator]  ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["M", "\[Mu]"], " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["\[Gamma]", "\[Mu]"], "-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"q", ".", "\[Gamma]"}], " ", 
+          SuperscriptBox["q", "\[Mu]"]}], 
+         SuperscriptBox["q", "2"]]}], ")"}], " ", 
+      SubscriptBox[
+       OverscriptBox["P", "^"], "L"], 
+      RowBox[{
+       SubscriptBox["A", "L"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"\[ImaginaryI]", " ", 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        SubscriptBox["q", "\[Nu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], 
+      SubscriptBox[
+       OverscriptBox["P", "^"], "L"], 
+      RowBox[{
+       SubscriptBox["B", "L"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"2", 
+        SuperscriptBox["q", "\[Mu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], " ", 
+      SubscriptBox[
+       OverscriptBox["P", "^"], "L"], " ", 
+      RowBox[{
+       SubscriptBox["C", "L"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+"}]}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{" ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["\[Gamma]", "\[Mu]"], "-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"q", ".", "\[Gamma]"}], " ", 
+          SuperscriptBox["q", "\[Mu]"]}], 
+         SuperscriptBox["q", "2"]]}], ")"}], " ", 
+      SubscriptBox[
+       OverscriptBox["P", "^"], "R"], 
+      RowBox[{
+       SubscriptBox["A", "R"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"\[ImaginaryI]", " ", 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        SubscriptBox["q", "\[Nu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], 
+      SubscriptBox[
+       OverscriptBox["P", "^"], "R"], 
+      RowBox[{
+       SubscriptBox["B", "R"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"2", 
+        SuperscriptBox["q", "\[Mu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], " ", 
+      SubscriptBox[
+       OverscriptBox["P", "^"], "R"], " ", 
+      RowBox[{
+       SubscriptBox["C", "R"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}]}]}], TraditionalForm]], "InlineMath"],
+ ",\[LineSeparator]and the corresponding projectors ",
+ StyleBox["\"AL\"", "InlineCode"],
+ ", ",
+ StyleBox["\"BL\"", "InlineCode"],
+ ", ",
+ StyleBox["\"CL\"", "InlineCode"],
+ ", ",
+ StyleBox["\"AR\"", "InlineCode"],
+ ", ",
+ StyleBox["\"BR\"", "InlineCode"],
+ ",",
+ StyleBox["\"CR\"", "InlineCode"],
+ " are available."
+}], "Notes",
+ Deletable->True,
+ CellID->121859982]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(8)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1317279855],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(2)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1113606062],
+
+Cell[TextData[{
+ "Let ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"M", " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p"}], "  ", 
+      RowBox[{"A", "(", 
+       SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{"m", " ", 
+      RowBox[{"B", "(", 
+       SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{"\[ImaginaryI]", " ", 
+      RowBox[{"\[Gamma]", ".", "p"}], " ", 
+      SubscriptBox["\[Gamma]", "5"], " ", 
+      RowBox[{"C", "(", 
+       SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{"\[ImaginaryI]", " ", "m", " ", 
+      SubscriptBox["\[Gamma]", "5"], 
+      RowBox[{"E", "(", 
+       SuperscriptBox["p", "2"], ")"}]}]}]}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->21613089],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mtx", "=", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"\[Gamma]", ".", "p"}], " ", "\[DoubleStruckCapitalA]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]", " ", "\[DoubleStruckCapitalB]"}], 
+    "+", 
+    RowBox[{
+     RowBox[{"DiracMatrix", "[", 
+      RowBox[{
+       RowBox[{"\[Gamma]", ".", "p"}], ",", "\[Gamma]5"}], "]"}], " ", 
+     "\[DoubleStruckCapitalC]"}], "+", 
+    RowBox[{
+    "\[ImaginaryI]", " ", "m", " ", "\[Gamma]5", " ", 
+     "\[DoubleStruckCapitalE]"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1621390528],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   RowBox[{"\[DoubleStruckOne]", " ", "m", " ", "\[DoubleStruckCapitalB]"}], 
+   "+", 
+   RowBox[{
+   "\[ImaginaryI]", " ", "\[Gamma]5", " ", "m", " ", 
+    "\[DoubleStruckCapitalE]"}], "+", 
+   RowBox[{"\[DoubleStruckCapitalC]", " ", 
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p"}], ",", "\[Gamma]5"}], "]"}]}], "+", 
+   RowBox[{"\[DoubleStruckCapitalA]", " ", 
+    RowBox[{"\[Gamma]", ".", "p"}]}]}], "]"}]], "Output",
+ ImageSize->{388, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->637619643]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and insert ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to extract the form factors:"
+}], "ExampleText",
+ CellID->524518586],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Spur", "[", 
+  RowBox[{"mtx", ",", 
+   RowBox[{
+    RowBox[{"Projector", "[", "\"\<A\>\"", "]"}], "[", 
+    RowBox[{"{", 
+     RowBox[{"p", ",", "m"}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Spur", "[", 
+  RowBox[{"mtx", ",", 
+   RowBox[{
+    RowBox[{"Projector", "[", "\"\<B\>\"", "]"}], "[", 
+    RowBox[{"{", 
+     RowBox[{"p", ",", "m"}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Spur", "[", 
+  RowBox[{"mtx", ",", 
+   RowBox[{
+    RowBox[{"Projector", "[", "\"\<C\>\"", "]"}], "[", 
+    RowBox[{"{", 
+     RowBox[{"p", ",", "m"}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Spur", "[", 
+  RowBox[{"mtx", ",", 
+   RowBox[{
+    RowBox[{"Projector", "[", "\"\<E\>\"", "]"}], "[", 
+    RowBox[{"{", 
+     RowBox[{"p", ",", "m"}], "}"}], "]"}]}], "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->166300205],
+
+Cell[BoxData["\[DoubleStruckCapitalA]"], "Output",
+ ImageSize->{13, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1547999805],
+
+Cell[BoxData["\[DoubleStruckCapitalB]"], "Output",
+ ImageSize->{12, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->468339230],
+
+Cell[BoxData["\[DoubleStruckCapitalC]"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->849872355],
+
+Cell[BoxData["\[DoubleStruckCapitalE]"], "Output",
+ ImageSize->{12, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->890934288]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1571063344],
+
+Cell[TextData[{
+ "Let ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"M", " ", "=", " ", 
+    RowBox[{
+     RowBox[{"\[DoubleStruckOne]", " ", 
+      RowBox[{
+       SubscriptBox["G", "S"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], " ", "+", 
+     RowBox[{"\[ImaginaryI]", " ", 
+      SubscriptBox["\[Gamma]", "5"], 
+      RowBox[{
+       SubscriptBox["G", "P"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}]}]}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->498057984],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mtx", "=", 
+  RowBox[{"DiracMatrix", "[", 
+   RowBox[{
+    RowBox[{"\[DoubleStruckOne]", " ", "GS"}], "+", 
+    RowBox[{"\[ImaginaryI]", " ", "\[Gamma]5", " ", "GP"}]}], 
+   "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1064088067],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   RowBox[{"\[ImaginaryI]", " ", "\[Gamma]5", " ", "GP"}], "+", 
+   RowBox[{"\[DoubleStruckOne]", " ", "GS"}]}], "]"}]], "Output",
+ ImageSize->{172, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1340946037]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and insert ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to extract the elastic form factors (be sure to include the on-shell \
+conditions for ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["p", "1", "\[Mu]"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["p", "2", "\[Mu]"], TraditionalForm]], "InlineMath"],
+ "):"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1218126118],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"Contract", "[", 
+    RowBox[{"Spur", "[", 
+     RowBox[{"mtx", ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", "\"\<S\>\"", "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p1", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}]}], "}"}]}], "//", 
+  "Simplify"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Contract", "[", 
+    RowBox[{"Spur", "[", 
+     RowBox[{"mtx", ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", "\"\<P\>\"", "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p1", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}]}], "}"}]}], "//", "Simplify"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1084058375],
+
+Cell[BoxData["GS"], "Output",
+ ImageSize->{18, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1559769688],
+
+Cell[BoxData["GP"], "Output",
+ ImageSize->{18, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->716267287]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Contract", "[", 
+    RowBox[{"Spur", "[", 
+     RowBox[{"mtx", ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", 
+        RowBox[{"{", 
+         RowBox[{"\"\<S\>\"", ",", "\"\<P\>\""}], "}"}], "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p1", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}]}], "}"}]}], "//", "Simplify"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1224480450],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"GS", ",", "GP"}], "}"}]], "Output",
+ ImageSize->{57, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->368072973]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell["Supply a list of projectors to obtain a list of projections:", \
+"ExampleText",
+ CellID->2139572201],
+
+Cell[TextData[{
+ "Let ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"M", " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p"}], "  ", 
+      RowBox[{"A", "(", 
+       SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{"m", " ", 
+      RowBox[{"B", "(", 
+       SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{"\[ImaginaryI]", " ", 
+      RowBox[{"\[Gamma]", ".", "p"}], " ", 
+      SubscriptBox["\[Gamma]", "5"], " ", 
+      RowBox[{"C", "(", 
+       SuperscriptBox["p", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{"\[ImaginaryI]", " ", "m", " ", 
+      SubscriptBox["\[Gamma]", "5"], 
+      RowBox[{"E", "(", 
+       SuperscriptBox["p", "2"], ")"}]}]}]}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->1676670574],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"mtxScalar", "=", 
+   RowBox[{"DiracMatrix", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"\[Gamma]", ".", "p"}], " ", "\[DoubleStruckCapitalA]"}], "+", 
+     RowBox[{"m", " ", "\[DoubleStruckOne]", " ", "\[DoubleStruckCapitalB]"}],
+      "+", 
+     RowBox[{
+      RowBox[{"DiracMatrix", "[", 
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", "p"}], ",", "\[Gamma]5"}], "]"}], " ", 
+      "\[DoubleStruckCapitalC]"}], "+", 
+     RowBox[{
+     "\[ImaginaryI]", " ", "m", " ", "\[Gamma]5", " ", 
+      "\[DoubleStruckCapitalE]"}]}], "]"}]}], ";"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->521921284],
+
+Cell[BoxData[
+ RowBox[{"DiracMatrix", "[", 
+  RowBox[{
+   RowBox[{
+   "\[ImaginaryI]", " ", "m", " ", "\[DoubleStruckCapitalE]", " ", 
+    "\[Gamma]5"}], "+", 
+   RowBox[{"m", " ", "\[DoubleStruckCapitalB]", " ", "\[DoubleStruckOne]"}], 
+   "+", 
+   RowBox[{"\[ImaginaryI]", " ", "\[DoubleStruckCapitalC]", " ", 
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      RowBox[{"p", ".", "\[Gamma]"}], ",", "\[Gamma]5"}], "]"}]}], "+", 
+   RowBox[{"\[DoubleStruckCapitalA]", " ", 
+    RowBox[{"p", ".", "\[Gamma]"}]}]}], "]"}]], "Output",
+ GeneratedCell->False,
+ CellAutoOverwrite->False,
+ ImageSize->{398, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1607805840]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{"mtxScalar", ",", 
+   RowBox[{
+    RowBox[{"Projector", "[", 
+     RowBox[{"{", 
+      RowBox[{
+      "\"\<A\>\"", ",", "\"\<B\>\"", ",", "\"\<C\>\"", ",", "\"\<E\>\""}], 
+      "}"}], "]"}], "[", 
+    RowBox[{"{", 
+     RowBox[{"p", ",", "m"}], "}"}], "]"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->727467628],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+  "\[DoubleStruckCapitalA]", ",", "\[DoubleStruckCapitalB]", ",", 
+   "\[DoubleStruckCapitalC]", ",", "\[DoubleStruckCapitalE]"}], 
+  "}"}]], "Output",
+ ImageSize->{83, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1454793830]
+}, Open  ]],
+
+Cell[TextData[{
+ "Let ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"M", " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["\[Gamma]", "\[Mu]"], " ", 
+      RowBox[{
+       SubscriptBox["F", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"\[ImaginaryI]", " ", 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        SubscriptBox["q", "\[Nu]"]}], 
+       RowBox[{"2", "m"}]], 
+      RowBox[{
+       SubscriptBox["F", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["\[Gamma]", "\[Mu]"], "-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"q", ".", "\[Gamma]"}], " ", 
+          SuperscriptBox["q", "\[Mu]"]}], 
+         SuperscriptBox["q", "2"]]}], ")"}], 
+      SubscriptBox["\[Gamma]", "5"], " ", 
+      RowBox[{
+       SubscriptBox["G", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"\[ImaginaryI]", " ", 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        SubscriptBox["\[Gamma]", "5"], 
+        SubscriptBox["q", "\[Nu]"]}], 
+       RowBox[{"2", "m"}]], 
+      RowBox[{
+       SubscriptBox["G", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}]}]}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ CellID->1288940742],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"mtxVector", "=", 
+   RowBox[{
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      RowBox[{"F1", " ", 
+       RowBox[{"(", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ")"}]}], "+", 
+      RowBox[{"F2", " ", 
+       FractionBox[
+        RowBox[{"\[ImaginaryI]", " ", 
+         SubscriptBox["\[Sigma]", 
+          RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], 
+        RowBox[{"2", "m"}]], 
+       SubscriptBox["q", "\[Nu]"]}], "+", 
+      RowBox[{"G1", " ", 
+       RowBox[{"DiracMatrix", "[", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Mu]"], "-", 
+           FractionBox[
+            RowBox[{
+             RowBox[{"q", ".", "\[Gamma]"}], " ", 
+             SubscriptBox["q", "\[Mu]"]}], 
+            RowBox[{"q", ".", "q"}]]}], ")"}], ",", "\[Gamma]5"}], "]"}]}], 
+      "+", 
+      RowBox[{"G2", " ", 
+       FractionBox["\[ImaginaryI]", 
+        RowBox[{"2", "m"}]], 
+       RowBox[{"DiracMatrix", "[", 
+        RowBox[{
+         SubscriptBox["\[Sigma]", 
+          RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", "\[Gamma]5"}], "]"}], 
+       SubscriptBox["q", "\[Nu]"]}]}], "]"}], "/.", 
+    RowBox[{"q", "\[Rule]", 
+     RowBox[{"p2", "-", "p1"}]}]}]}], ";"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->772683109],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Contract", "[", 
+    RowBox[{"Spur", "[", 
+     RowBox[{"mtxVector", ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+          "\"\<Dirac\>\"", ",", "\"\<Pauli\>\"", ",", "\"\<EDM\>\"", ",", 
+           "\"\<Anapole\>\"", ",", "\"\<SachsElectric\>\"", ",", 
+           "\"\<SachsMagnetic\>\""}], "}"}], ",", "\[Mu]"}], "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p1", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"q", ".", "q"}]}], "/", "2"}], "+", 
+       SuperscriptBox["m", "2"]}]}]}], "}"}]}], "//", "Simplify"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1032627484],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"F1", ",", "F2", ",", "G2", ",", "G1", ",", 
+   RowBox[{"F1", "+", 
+    FractionBox[
+     RowBox[{"F2", " ", 
+      RowBox[{"q", ".", "q"}]}], 
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}]]}], ",", 
+   RowBox[{"F1", "+", "F2"}]}], "}"}]], "Output",
+ ImageSize->{240, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->109349986]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->2055711879],
+
+Cell[TextData[{
+ "Time-like vertex form factors can be extracted by supplying a negative \
+momentum to ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".\[LineSeparator]Compute ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["F", "1"], "(", 
+    SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"],
+ " with ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], ">", "0"}], TraditionalForm]], "InlineMath"],
+ " for the QCD correction to ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["e", "+"], 
+     SuperscriptBox["e", "-"]}], "\[Rule]", 
+    RowBox[{
+     OverscriptBox["q", "_"], " ", "q"}]}], TraditionalForm]], "InlineMath"],
+ " with massless quarks:\[LineSeparator]   ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", "e", " ", 
+     SubscriptBox["Q", "q"], 
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      StyleBox[
+       SubscriptBox["p", "1"],
+       FontWeight->"Bold"], ")"}], 
+     SuperscriptBox["\[CapitalGamma]", "\[Mu]"], 
+     RowBox[{"v", "(", 
+      StyleBox[
+       SubscriptBox["p", "2"],
+       FontWeight->"Bold"], ")"}]}], "=", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzs3b+LNNu6H/aFbYzC9/4Fat9cMP+AoW2c2cEgo7wl5BM48Vg2HJR1eMNJ
+b9aRgouDweBIIDpQqGDA4EgXGoPSy8iBMEawXbW7eu9+Z89011pVXU9VrU/D
+R+iec96ep1ZV/3q+tdb6L/7J//QP//SfpJT+l7/X/D//8B//+b/6Z//sH//z
+//4/a/6P//qf/6//wz/5T5v/zz/9z1P6bxvtf/jLL78AAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAz1jx+NF6j6wAAAAAAAJha83hufDReomsBAAAAAACY
+SjeX5K3R/h/H6HoAAAAAAACmcjWX5JfOU3RNAAAAAAAAj/ZpLsnFProuAAAA
+AACAR2v3I/k0l6R1avOT6NoAAAAAAAAepXls2v1IPmUkF9vo+gAAAAAAptD1
+SrfdfeWvXd/01PVKd4XP+dSu3dM91+d71a+9Nw7t33H/Okzrm7kkF2/R9QEA
+AAAAjK3LL567DONw417ya7uM5//RPfepx/N+58297PBYd+aS/NLlJ5voOgEA
+AAAASnR5xWWOyGVex5Ds4u5cj6uM5Nb8kZLMxDwTGNmduSQXL9F1AgAAAADc
+UzhHJNd7jzqeB2Yxt7T93G30WMMadO8Z72O87gEAAAAA5uBB2Ujve8vTeS7J
+YYIaWrvo8YYl6zLVvq+3p+h6AQAAAAD6mCgr+bJnms57HfS5P31Mz9FjDkuT
++s8luXiNrhkAAAAAoK8JspLTN3+37b2OuS9JX/aahgwpby7Jr6/5ZI8gAAAA
+AGAF0nlf99cR8ow/3F8emJNcHKPHF+auew8omfdl7hYAAAAAsCrpvJ/I24Bc
+4vnT893LSdr/7tDYdb3aa/s03v7v2+ixhTnqXvOvha+rt+j6AQAAAAAeoeud
+lmQUH5+e51ZO0j7/rmc9z3fyFnNLoECXSZbmkda3AwAAAABWLeXvWdA6XP37
+73KS9j97KahnM0JesokeV5iDNGwuyUX26xgAAAAAYEm6+81ze6e77t+2fdiv
+9j04DskruvxFbxcGGDiX5OI9+jgAAAAAAB4tnfcPye2f/uj+7fGL/24/Ul37
+Af3dY/S4QpSR5pJcPEUfDwAAAADAoxVkEsfu333uxbbrZu1GrOvHkB5v9LhC
+hDTOnj8Xr9HHAwAAAAAwheZxyOyfvnT92M85yej3nzePN/fDw31dtjjk9fLZ
+KXXzxwAAAAAA1i7l72ew/XTf+kNykq62lwG93ufosYUpjDyXxOsHAAAAAKhK
+yl/nqs1Vjp/+s90D69sO6PXuo8cXHukBc0ku3qKPDQAAAABgKqlsX/drD9/P
+QFYCf9S9dseeS/JL95yb6OMDAAAAAJhKyt+r5Nr7RDWW1neIHl8YW5tjpD/O
+7RrTS/QxAgAAAABMacB96ZPde95mMoU1HqPHF8aSzutt7R80l2TS/BMAAAAA
+YC6ax9OAnup+wjpL76E/Ro8xDNXNI3l9cEZysY0+XgAAAACAKXX3qJf0U08T
+1ykroTptbpGGrZGX6+F7DwEAAAAAzE0qX9tqO3GdshKqkc57tpde86XaOSs/
+oo8dAAAAAGBK6bz3wSLyhwF9Y/fJswjd6/GlcZo4I7l4jh4DAAAAAICpdfeu
+z35OSVdr6T4N++hxhlvStHuRzCb/BAAAAACYg1S2D8IxqNbSHvA+epzhK2n6
+vUi+02Y0m+jxAAAAAACIUHgf+y6o1tI+sHWFmJUUsxeJPBEAAAAA4JPm8VTQ
+Uz0F1bod0AfeRo81pPi9SL7zHj02AAAAAABR2nvJl3L/+ZCsJHqcqVuax14k
+skQAAAAAgC+095MX9FU3QbWW5DrumSdMms9eJLe8Ro8TAAAAAECUdF4PKLev
++hZYb2nP+RA91tQlzW8vku+081x+RI8XAAAAAECUrp+b21vdBdZbMgcmtGbq
+kea7F8ktz9HjBgAAAAAQKZXN0wi7B31AP3gTPdasV5r/XiTfOUaPHQAAAABA
+tILebuT6W9vCfvApepxZp7SMvUi+0772N9FjCAAAAAAQqXk8FfRXd4H17gt7
+wvatZlRpOXuReF0AAAAAANxQmD1Err9VulfJU/RYs3xpmXuR3LKJHlMAAAAA
+gGgF2UPk+ls/CvvB79HjzLKl5e5FcssxelwBAAAAAKIVZg+7wHp3hT3hl+ix
+ZpnSeY26wwxyjUd4jh5fAAAAAIBohdlD5PpbbwX1fkTWzDK1OUJa/l4kt5yi
+xxgAAAAAYA5S/v3yS1x/y97VZEnn/Uiis4xH20ePMwAAAADAHKT8vRd2gbWW
+9q830ePMsjSPbTrPYTrNINN4FHOtAAAAAIDqpfM+DIvprxb2rQ/R48yypfOe
+7rt03tf9fQYZxxgO0eMKAAAAADAHXe83p7/6HljrtqAf3M6Z2USPM+uSzmvB
+tdfjPi13P5Nt9DgCAAAAAMxByr9H/iWw1kNBP3gfPcbUIZ3naLVrxC1h3a6w
+zBMAAAAAYE7SeV2h3B7r04JqbfvV9mMgRJr3ul276PEBAAAAAJiDro+blT0E
+1noo6Ac/R48xXKTzul3PKX7dro/osQAAAAAAmIt0Xisop8f6GlTnpqAf/BY9
+vnBP8/jvGv9u4qwk5HUMAAAAADBH6bzv+eznaaT8OSXtcVl7i9kryCvHsIk+
+bgAAAACAOWge29wea1CdJXNKrL3F7BVkgGMw3woAAAAAoJPO+03Pvsda0E8+
+RI8t3BOUk8gRAQAAAACuNI/3zB7rS0CN28wa22Oy9hazFpiTnKKPHQAAAABg
+LlLZulabgDpz8pyPiBohR2BOEpJ3AgAAAADMVfPYzf1+9Lavm1njNnpc4ZbC
+nOQ/jpiVmHMFAAAAANBpHm+ZPdbXiev70c0T6VvfLnpM4ZbCnKSdV/V/jJST
+HKLHAAAAAABgTjJziNak+0FnZjmT5jiQa0BO0maGufOrvvMUPQ4AAAAAAHOR
+8vdLn3TtnpS3PtghejzhliE5Sffvn0bISd6jxwEAAAAAYE7aeRiZfdbjhLVt
+Uv85L4fosYRbhuYkV8+TOw/ss130WAAAAAAAzEnXi83ps+4nqutHRm2H6HGE
+W8bKSbrnyt1f6NpH9FgAAAAAAMxJN28jt9e6nai2vr3lQ/Q4wi2pbI+RL3OS
+7vl2A7IS+/kAAAAAAFwp6blOVNdeTsIaFOYa3+Yk3XOWZJwXm+gxAQAAAACY
+k5S/ls/D94TO6C0foscPbnlETnL13KeC536LHhMAAAAAgLlJ+XtEHx5cT9/e
+8kv02I183H9q/G3jz9G1MNo5LclJPvrkJN3zHwqefxs9LgAAAAAAc9L2TQt6
+rfsH1tOnt9z2kp+jx27EY/5z4++ujk9WsgIDcpKnB/6NU/S4AAAAAADMTfN4
+nUtW0rOW95xe8px9kZHISlZiipyk+zubzL+xqrlYAAAAAABj6LKH3J7uceQa
+frTP2ePvHlLPtYnmrMtIbh2nrGTBpspJrv7eKeNvLP71AwAAAAAwpoJ70q+N
+Mrej6yvf2y9lFWtu9chIZCULN3VO0v3NQ8+/c4geHwAAAACAuSns6168D7lH
+PZ33STn2+DuvS74Xvnn8ReOvMsdWVrJAETlJ93efe/6tVaxdBwAAAAAwpubx
+NiAraZ1SxnyPdF5ra5f6rft1XHJvtzAjkZUsVFRO0v3tH31eT9FjBAAAAAAw
+R+n+2lc5mUk7/2P7hbaHvO+Zj1wykm302AwY079s/HV3LH/zOfdI/dbhkpUs
+SGROclXDvdfXLnqcAAAAAADmpssxSjKRMbKVr/rGhzF7x4Hj+tf3so7m8S9l
+JevQXrPROUlXx+utvxc9TgAAAAAAc3Snt/qV9+7ftXsjDF2769Ivbp9nlxa8
+H0nh2N+bWyIrWYAuJ8mdmzV6TtLVcmvPkn30WAEAAAAAzFHqvybWl/3W9Pve
+I4fUb4/2Y/e/fUkLXmNrpLH/k6xk2eaUk3T13NqzZBM9XgAAAAAAc9P2Tgvm
+gWyj614LWcmyFeYkD38NfZN/vkWPFwAAAADAHHVzO7L6vNE1r4msZLkG5CS7
+CWrbyzgBAAAAAPpJ+fuNHKNrXhNZyTLNOSfp6tt++run6DEDAAAAAJirgl7v
+S3TNayIrWZ655yRXdYb9bQAAAACApWgezwX93ofsR10rWcmyLCUn6Wo9dn+7
+rfdH9NgBAAAAAMxR83jN7Pd+RNe8NrKS5VhSTtLVu+/+/iF67AAAAAAA5qp5
+nDJ7vm/RNa+NrGQZlpaTdDVvu9f4Jnr8AAAAAADmqO2fFvR97VUy/nmQlczc
+EnMSAAAAAADua3OPgt6vvUrGPw+ykhlrHj8K5l/JSQAAAAAAFqBdTyuz93uK
+rnmNZCXz1eUk73ISAAAAAIB1Kuj/HqJrXiNZyTzJSQAAAAAA1q15PBf0gO1V
+8phzISuZmQE5yT66dgAAAAAA+mkerwV9YHuVPOZcyEpmZEBOcoiuHQAAAACA
+/lL+XtUf0TWvlaxkPuQkAAAAAAB1aB6bgl7wW3TdayUrmQc5CQAAAABAPZrH
+S0E/eB9d91rJSuLJSQAAAAAA6tLOESnoCW+j614rWUn4+MtJAAAAAAAqU9AT
+/iW65jWTlYSOvZwEAAAAAKAyzeO5oC/8Hl33mslKwsZdTgIAAAAAUKHm8VrQ
+G36NrnvNZCVh436UkwAAAAAA1Kd5nAr6w7voutdMVhIy5gc5CQAAAABAfZrH
+pqA/3HqKrn3NZCWTj7ecBAAAAACgUoXrb/0SXffayUomHeuSnOQYXTcAAAAA
+AMOl8z7WH7KS+ZGVTDbOJTlJu/f7j+jaAQAAAAAYrnm8Fa6/1dpE179mspJJ
+xlhOAgAAAABQsebxMiAnae2jj2HNZCUPH185CQAAAABApdJ5L/ch80l+ykv0
+jh92nmQljxtbOQkAAAAAQCWax/ZKm2scR8pIvuojH7q/sbv+u9FjsFSykoeN
+q5wEAAAAAKASXVbxiFwkS/Q4LJWs5CFjKicBAAAAAKiIrGTZZCWjj6ecBAAA
+AACgMrKSZZOVjDqWezkJAAAAAAAsi6xktHHcyUkAAAAAAGB5ZCWjjKGcBAAA
+AAAAFkpWMnj8SnKSDzkJAAAAAADMg6xk0NiV5iRP0bUDAAAAAABnspLicZOT
+AAAAAADACshKisZMTgIAAAAAACshK8keLzkJAAAAAACsiKwka6zkJAAAAAAA
+sDKykt7jJCcBAAAAAIAVkpX0GiM5CQAAAAAArJSs5O74bOUkAAAAAACwXrKS
+m2Pz1OUechIAAAAAAFgpWcm34yInAQAAAACACshKvhyTkpzkFzkJAAAAAAAs
+T/P4K1nJT+NRmpPsomsHAAAAAADyNY9/cycD+JvoGiccCzkJAAAAAABUpHn8
+Nz1ygL9r/EV0rROMhZwEAAAAAAAq0uUkf9szD1j13BI5CQAAAAAArF/z+Mt2
+75FO34zks7/q/v0/ij6eEcdFTgIAAAAAACvV5SMlmUiuP0Ufa+H4yEkAAAAA
+AIAqyUkAAAAAAIBaNY8fchIAAAAAAKBGXU7yLicBAAAAAABqIycBAAAAAABq
+NSAneYmuHQAAAAAAYIgBOckhunYAAAAAAIAh5CQAAAAAAECt5CR8c11sGtvo
+OgAAAAAA4JHkJHxxTTx9cU0c2mslujYAAAAAABiTnIQvrondjfP+Hl0fAAAA
+AACMRU7CF9fErZzkYhddJwAAAAAADCUn4Ytrok9O4hoAAAAAAGAVmsdRTsLV
+9dA3J2kdo+sFAAAAAIAhuj265SRcroecnKS1j64ZAAAAAACGKMhKDtE187Br
+ITcn+WhsousGAAAAAIChMvKSt+haedg1kJuT2NcdAAAAAIBV6ZGXtHu//4iu
+k4ec+5L5JM/RdQMAAAAAwNhu5CVykpUqzEmeousGAAAAAIBH+SIvkZOslJwE
+AAAAAAC+dpWXyElWSk4CAAAAAAC3NY8XOck6yUkAAAAAAIBayUkAAAAAAIBa
+yUkAAAAAAIBaNY9XOQkAAAAAAFCj5nGQkwAAAAAAADWSkwAAAAAAALWSkwAA
+AAAAALWSkwAAAAAAALWSkwAAAAAAALWSkwAAAAAAALUqyElOchIAAAAAAGAN
+CnKS98aP6LoBAAAAAACGkpMAAAAAAAC1kpMAAAAAAAC1kpMAAAAAAAC1kpMA
+AAAAAAC1kpMAAAAAAAA1avMOOQkAAAAAAFCjLid5l5MAAAAAAAC1kZMAAAAA
+AAC1kpMAAAAAAAC1kpMAAAAAAAC1kpMAAAAAAAC1kpMAAAAAAAC1kpMAAAAA
+AAC1KsxJDnISAAAAAABg6Upzkui6AQAAAAAAhpKTAAAAAAAAtZKTAAAAAAAA
+tZKTAAAAAAAAtZKTAAAAAAAAtZKTAAAAAAAAtWoeT40POQkAAAAAAFAbOQkA
+AAAAAFArOQkAAAAAAFArOQkAAAAAAFArOQkAAAAAAFArOQkAAAAAAFArOQkA
+AAAAAFCrwpxkH103AAAAAADAUIU5yS66bgAAAAAAgKHkJAAAAAAAQK3kJAAA
+AAAAQK3kJAAAAAAAQK3kJAAAAAAAQK3kJAAAAAAAQK2ax7OcBAAAAAAAqFGb
+eWRmJHISAAAAAABgFeQkAAAAAABAreQkAAAAAABAreQkAAAAAABAreQkAAAA
+AABAreQkAAAAAABAreQkAAAAAABArQpyko/GU3TdAAAAAAAAQ8lJAAAAAACA
+WslJAAAAAACAWslJAAAAAACAWslJAAAAAACAWslJAAAAAACAWjWPFzkJAAAA
+AABQo+ZxkJMAAAAAAAA1kpMAAAAAAAC1kpMAAAAAAAC1kpMAAAAAAAC1kpMA
+AAAAAAC1kpMAAAAAAAC1kpMAAAAAAAC1KshJ3hub6LoBAAAAAACGKsxJfkTX
+DQAAAAAAMJScBAAAAAAAqJWcBAAAAAAAqJWcBAAAAAAAqJWcBAAAAAAAqJWc
+BAAAAAAAqFGbdzSOchIAAAAAAKA2XU7yLicBAAAAAABqIycBAAAAAABqJScB
+AAAAAABqJScBAAAAAABqJScBAAAAAABqJScBAAAAAABqVZiTHOUkAAAAAADA
+0hXmJIfougEAAAAAAIaSkwAAAAAAALWSkwAAAAAAALWSkwAAAAAAALWSkwAA
+AAAAALWSkwAAAAAAALVqHk9yEgAAAAAAoEZdTvIhJwEAAAAAAGojJwEAAAAA
+AGolJwEAAAAAAGolJwEAAAAAAGolJwEAAAAAAGolJwEAAAAAAGolJwEAAAAA
+AGpVmJPsousGAAAAAAAYSk4CAAAAAADUSk4CAAAAAADUSk4CAAAAAADUSk4C
+AAAAAADUSk4CAAAAAADUSk4CAAAAAADUqs08MjMSOQkAAAAAALAKchIAAAAA
+AKBWchIAAAAAAKBWchIAAAAAAKBWchIAAAAAAKBWchIAAAAAAKBWY+YkzWPT
+2DZeGvvGoXG88tVzfXz637x2/3bXPdeP6DECAAAAAADWqSAnaXON5+7ftrnI
+c5dtfJeDjOWSp+y7vyk/AQAAAAAABinISf5943/u5oqcHpyN9HHqchrZCQAA
+AAAAkKUgJ/n/ZpCN3PPWHZfcBAAAAAAA+FZBTrJEbW7yHD3WAAAAAADAvFSS
+k1xr9znZNzbRYw8AAAAAAMSqMCf57NB4ij4PAAAAAADA9OQkPzk2ttHnBAAA
+AAAAmEbzeJ1BPnFx6rKKa6fAzGQTfX4AAAAAAIDHSed1p6bMH967v7lvPLfz
+Nxo/Mmvedvbdcx0fXPMht0YAAAAAAGD+JspJ3hovaYI1rbr85KX7mx8jH8ev
+e8BHnzMAAAAAAGAcD8xJPrrnfp7BMbbZSbu+2GnE43ufIvcBAAAAAAAe50E5
+ySzykRvH/NTlJmPNN2mfy7pcAAAAAACwMCPnJO18jZelZQbNY5fG2eOkPf6n
+6OMBAAAAAAD6GTEnOc55DknGeGxHGpN99LEAAAAAAAC3jZQJtBnJNvpYHjA2
+mxHG57i0+TUAAAAAAFCL5vEvRlhraht9HBOM0yYNW5urHSdrcgEAAAAAwIw0
+j/99QO+/3Qf9JfoYAsZs2+UepWO2iz4GAAAAAADg157/vxqQk7zVvqZU89h3
+2Yc9TAAAAAAAYGGax7+23tYo4zhkXa5DdP0AAAAAAFCj5vFvS3v7tc8luTGm
+L4VzTKqfnwMAAAAAAFNqHv93QT//3zeeo2ufu+bx1HgvGN93eQkAAAAAADxW
+24tv/D8Fffz/s11nKrr+pejG+SAvAQAAAACA+ej69/+hoH//L6JrX6rmsZOX
+AAAAAABAvC4n+b8K+vb/Y3TtS9etyZW7h4m8BAAAAAAARtLlJLn7Z/zHxn8Z
+XftatOuXFZyDY3TdAAAAAACwdIU5yX+Qk8zmXByi6wYAAAAAgKUq7M3/v42/
+H137WnXn5C3znLxG1w0AAAAAAEszYN2tvx9dew3a+SKZ52YXXTMAAAAAACzF
+gHW3/kF07TUpyEueomsGAAAAAIC5K8xJ/rfoumuVuR7XR3t+o2sGAAAAAIC5
+KsxJDtF116zgnB2jawYAAAAAgDmSkyxXwbnbR9cMAAAAAABzIidZvuax6dbY
+6nv+ttE1AwAAAADAHMhJ1qN5PGXkJfYuAQAAAACgenKS9Wkeu4xz+RZdLwAA
+AAAARJGTrFfzeM04p8/R9QIAAAAAwNQy12qSkyxQRg5mLS4AAAAAAKoiJ6lD
+ytvr/TW6XgAAAAAAmIKcpC7t+loZ5/kpul4AAAAAAHgkOUmdmsdbz3N9jK4V
+AAAAAAAeRU5Sr3Yvkoxzv4uuFwAAAAAAxiYnIWMtrlN0rQAAAAAAMCY5CVfX
+wrHn+d9H1woAAAAAAGMozEn20XXzsOth0/MaaK+ZH9H1AgAAAADAEIU5yS66
+bh5+XexlZgAAAAAArJ2chBvXRt993s0tAQAAAABgkeQk9LhGXlwXAAAAAACs
+kZyEjGvl1OPaOEXXCQAAAAAAfclJyLxedq4RAAAAAADWQk5C4XXTZ27JMbpO
+AAAAAAC4pZsfICchW8a+JZvoWgEAAAAA4CsZ6yjJSfiD5vGjZ872Gl0rAAAA
+AAB8JidhDG0O0uO6+YiuEwAAAAAArslJ+OKa2DS2d2y++Xd9rp/n6GMEAAAA
+AICWnKQ+3VpZbdbR7i+ybxw7ufvU/DRXJPN5DtHjAAAAAAAAcpL163KR56tM
+ZEgeMibrcAEAAAAAEEpOsk5X2cihcZpBJnLLW3cd/ogeNwAAAAAA6lKQk3zI
+SeYrnfcIeenmjUTnH6Xeu2PYRI8nAAAAAADrVpiTPEXXzR/O4yUfeZ9BziE3
+AQAAAABgEeQky5bO62u15/A4gzxjKr+u0xU99gAAAAAALJ+cZLnSeQ7Ja5rP
+vuwR2mPfJ3NNAAAAAAAoICdZpuaxTXXNIenrIDMBAAAAptb1atp1w1+vezbR
+dQFwn5xkebpzFrUPyfHK/o7D1f/2JDMBAAAA1uIqFznc6dO8R9cKwG1ykmXp
+ztcUmUP7+f7W5R3P7Wf/iMewST/fYzHFumEyEwAAACBb18N47nokl7kiub2Z
+ffRxAPC9rlctJ1mA7jP5kRnJsfvM3wYc22GCrOSi/U7zI/p8AgAAAPHaHsGn
+LGSffl8fY8x+hH4awEwV9KflJDHnafuAz+fWe5cbbGdwjLmZ3VDttfwSfdwA
+AABArK7v8ug+xCn6OAH4mpxk/tJ5narc89QnH2lziU308X061j7fSy61j7lH
+S/tc2+jjBwAAAGJMlJUcoo8TgD+Sk8xfOs/3HGsPj/Z5Xud+DvvkGlf/200a
+d58T63IBAABAhSbKSp6jjxOAn8lJ5q37fD6N9Dl8XNJncZ/j/ubf7dI4a5S1
+f38bPQ4AAABArK4/c7Efoe/g/kyAGZGTzFc67yP2OlJG0p7nTfQxFYxBn+8d
+316Pabx9XcwxAQAAAH5S0Fe7eIuuHYDfyUnmK40zl6Q9X/sl9/i7+u8d57bH
+8zyNkJm8u/4BAACAi3S+z7Wkx/ASXTsAZ3KSeUrjzCVZfEZyNR59spJdxvNt
+B2YmHzl/DwAAAFi3wj7DJrpuAIpyknfv4ZOcl3buw2lgTrKqtaJSv73U9oXP
+O2SsD2saZwAAAKBMQVbyHl0zAMU5iZ7w48/LfmBG8rbGPOtRWcmncf8oHHMZ
+IgAAAFSu4F7M1+iaAWonJ5mfdF5zK/f+g8/naBt9HA8cnz5ZyaDvGG3eMeAc
+WJsOAAAAKpXK9ivRRwAIJCeZnzRsza22R1/FPmA9xuI40t95TmVzTOxhAgAA
+ABXqeglZPYTomgFqJieZn7a3XpiRtFa53taNsZokK+n+1pB5PrvosQIAAACm
+U9BzO0TXDFArOcn8pPP+66VzSZ6j6w8Yr8mykqu/+VJ4jg7R4wUAAABMI+Wv
+F1JdXwdgDuQk81NwTq7nklR5biKyku7vlq6RdogeMwAAAOCxur5Bbs+gyt4O
+QJRUto6QnOTx56UkJ6lmX5Ib4xaSlXR/+0eXU8lLAAAAgN+k/DUp3qJrBqhJ
+19t9l5PMS2FO0p6Xp+jao0VmJVc1lKybdogeOwAAAOAxUv59ylXfCwswJTnJ
+PBX22V+j656LOWQlXR07eQkAAADQ9eByewSb6LoBaiAnmaeC/nq75tYuuu65
+SP3W/jxOXM+HvAQAAADq1TyeM3sDp+iaAWogJ5mngr56+7+tfs2tT2O47TFu
++4DzepKXAAAAQJ1S/lrr1g8BeDA5yTx15yWnn+6cfD2Os8tKrs5v7uvOuqQA
+AACwAgX3UG6jawZYMznJfKW8PUqck+/HcT/HrKSrreT1t4seUwAAAKBc6rde
++LWP6JoB1qywT/umJz/JudnKSUYbyz5ZyTawvpLXoXXWAAAAYKGax0tmH+AQ
+XTPAWhX2Zw/Rddci49x8yEnujuVxzllJV2Pu67E975vosQUAAADy9exVWGMC
+4MHkJPPWfv5l9MvNL7g/nqd7YxldY1dn7uvSfCIAAABYmO73f05P7he//wHG
+JyeZvz69/Y59vvuN593MKbrGq1p/ZJz/1lt0zQAAAEB/zeM5sy93jK4ZYG3k
+JPOX+s8p0SPvN57bpX3nSOf93T4yXqMyMwAAAFiItteW2Zvzux9gRHKSZeg5
+p8BeFf3Hs89eaa/RdX5Rd25eso2uGQAAALivZ+/n2ia6ZoC1kJMsQ885EK19
+dK1L0TzeeoznLrrOb2rfZbxe21zF2qUAAAAwY929kTn9uVN0zQBr0b0Hy0kW
+IPWbg6knnjemfeZmbKLrvFH/PuN1a102AAAAmLHUb/2La7NbCwNgiVL+Oj5y
+ktjz1edc7aPrXIqe92qcouvscRx9MrQLa5gCAADATDWPY2afbhtdM8DSyUmW
+pXk89zg/5pTkjWmfORmH6Dp7HEfOGnr2sgEAAIAZ6n7f5/TpPqJrBlg6Ocny
+9Jw74BzljWmffGEXXWfPY8l5TR+j6wUAAAB+1vM+2WvW2gYYQE6yTD37+s/R
+dS5FO7ei57W/ia4145h2Ga9pa3EBAADAjPS8T3Zx93cCzJGcZJlSzzmY0XUu
+Seq3/tZ7dJ0Fx9X3e5W1uAAAAGBGmscps2dnHXaAAnKS5Woe2x7n6hhd55L0
+/P6xuLkXXa7W97uVawYAAPhNOs+/b39/vjRe03mP6cvvi13hcz5196od7/Qk
+3rt7v3b6v9Soe63k9OwWd38nwBzISZat+55673zto+tcitR//c9NdK2Fx9cn
+W7uwbhsAAFSm6xE8dxnGocsx7v122GU8/4/uuU89nvc7b+1vm+ixgqn07P0s
++v5OgGiFOckuum5+Ood7Pe9Rx/Otx3gu+v6MdL4HrM9rvf3t4p4tAABYmS6v
+2Hb91336eY5Iibu/G64yktwexL3MxG8WVi/1yyyvPWU8d5++0uiixxTgWpKT
+rELq19vfRte5BKn/nu676FoHHmfOWlz76HoBAIAyqWyOSK6795J1NfT9DZLr
+w29e1iz13Kf2yinz+fcPem3KSoBFSHKS1ejzXTe6xqVI/fY+b183i79vKfVf
+i8s+7wAAsFB9fi+O4Nu1froeb5/fWWPYRY83PELqv1b4xWvm8+8neo3qVQGz
+k+Qkq9Lnu290jUuQ+s8pOUTXOuIx9/3NsppjBgCAmvT5vTiCL9f66X5jvU/c
+f7X+NKuT8du96HXQvVa3V3bpnJ+8jvgecuqO4+Xyd6LHlXVL7vulhyQnWZ0+
+n1vRNS5BxnePTXStIx7zj4z3g9UcNwAA1GLEPue3/c9v/m5J72EM5sWzOilv
+/bqPB/z9pwGvx1evSaaWzpncIboO5q3wu8ouum7unte7332ja5y71H9OyTG6
+1gcc+0utxw4AALVK5/u6X0fIM/6w1k9h72FMx+jxhbEU5BRvD6rjbu/pyod+
+IhG6/t4xrWT9fB6n8LvKLrpuep3bu59X0TXOXcZn/ja61gcd/6nm4wcAgFql
+81zztwG5xPOn57vXe2j/u0M6r/Gz/WSf8dvEbxeqkPrf3/jQXl5G36TNYPWo
+mVz3Wrl8/ny7jxZ030Fyv1fsouum9/m9+3kVXeOcpf57pB2ja33gGGxrHwMA
+AKhVOuclJRnFx6fnuZWTnPr2GbrfaEPnpRyjxxXGkJFRXIyeU6R+a3G0r9lt
+9HhRn+6z53pvrGN0TcxXkpOsXuq3z8Y2us45yvxNsOoxzPj+9eW+jQAAwHKl
+85yO3N7B4erff5eTtP9Z9v29XW92aF6yiR5XGKLrWeRc8+8PquPe3LO2n2Au
+CZP75rNL34ovJTlJFXp+p32OrnOO0nluaJ/XxTG61gnGYpv7ewgAAFiHjN8D
+f+gfdP3c9y/+++OQvCKV7yd9YQ0WFi31XwfjYv+AGu71Fkf/m3BP+uNcEtcj
+N/V4L5OTrETPc72PrnNuMn8LbKLrnWhMDsYDAADqU9hD+NH92+OjfoOmsvku
+v2U10eMKQ2T8Rr8Y9X76dDuvbOd9uS+Xyd34XDgl85v4QuF3nF103RSf7z49
+/2N0nXOS8tbeeo2ud8Jx2fQck0N0rQAAwHgKMolj9+8+z9X/GLO/kPLXIPpJ
+9LjCEBl9i1/7xCP/7Vv7D7X381vniEl1/c+v5pJcbKNrZH6SnKRKviNmj9e9
+tTavv+dXlUn3HJvqxgUAANYs5d+//pL+uD7QxyP6pxm/376in8sipfw16A4j
+/+3vcpKjfgBTSufM/N4a+m/RdTI/cpJ6pdu56oW5keexesl4fVQ3Zqn/2mTW
+/gUAgJVIefev/9L9brjupT4kJ+lqy/kNV/1vOtah4Lof5Vrveovf5STVrLvB
+PHSfNfc+n9rrdRNdK/OS8nMS6wquSOq3R3n1n2kZOUCr2kw6fb3e8Gen6DoB
+AIDhUv46V6cvfjPsHlhfzu+4z/bR4wslev4u/81If/NWb3EXPSbUI/WbS3Lh
+Xl5+cue97LucxDzUFUl/nPv85XmPrjN4jG7NIf3qNVLtnNKe11NrG10rAAAw
+TEFP4bOH35cnK6EmKT+/HHyvZ/p+HT49RCaV+s0luXiPrpd5kZPQXQd9P0d3
+0bUGjk+fdcouqp9z1fNz6RBdJwAAMMyNHuls+lQD6jtEjy/kSv3vXxzc6+n6
+JcfvXt/J2kZMJOXNJbnQ4+Y3chI+XQ999rs7RtcZMC65OckhuuY5SP3XRq12
+/g0AAKxB6j///qsew2aiGnN+01X9G5jlS/n55abw7zzdeG0d/d5nKumcD+Z+
+FlW/1wC/k5Mw4JrYRtc68bgcM14n774L/DZu5ioBAMDKdb3SkgyitZ+wzpzf
+dbISFi31X3/o1z5G4d+41Zs+RI8Bdeh6T33u/f7spH/HRUZPXE5SmRufc1V+
+V0x592J4nZSNn7UhAQBgodq8ozCDOE1c57GwzmP0GEOOlJ9f7gv+xq11JHbR
+Y0AdUtlckovq187nTE7Cneuj77p+2+haJxiLPn1+77O3x3Dbc+w20bUCAAD5
+UvnaVtuJ6zwW1nmMHmPIcSfH+Ervnl8638P/Xa/kQ1+EKaTyuSQXb9HHwDxk
+9MHlJJVqe9Y9r41TdK0PHIPc/UlaL9F1z1XqN/fX+AEAwMKk/uvuhucPqTwr
+sZ49i5J5rX9kPO/mRq9E/5BJpPMcgNK5JJdrdRN9HMRL+ffIe5+rVMa1so+u
+9QHHXpKTHKLrnrPUL6O1DhcAACxMyl+34mIbUGtpb20fPc7QV8rPLw89n3d7
+4zVk31YeLp2zumPh+/g19+qS0/uWk3B5/+l7razmOknnNT3lJI8Z1z5j6bsV
+AAAsSEGvoXUMqrW0r7aPHmfoK533b8i5vu+umZVur+n15rc8j9Zdg0PmkvyW
+60UfC/EKvrvISci5bk5r+FxMt++R8B47fHxPPcZzF10nAADQX2HvahdUa2lv
+rfr9F5rHfoQeZc22E56rQ2Zt3/Zz0u29SVqH6GuTdUvjzSW50O+uXMF7pJyE
+y7XzI/X/3nuMrnfgse4K3l/NMc0b4z7rcB2i6wQAAPpJ/eePXzsF1bod0Fvb
+Ro91tCQrGWqyayj1u0/x4tv9rdPtvUlau+jrknVL480lubD3VOWSnISB0u15
+lp8doustOL5790h8R06SP9Z9fkf13lMOAACIlcr65/ugWrel/bXocZ6DwnPN
+77YTnafc/PLLfRvS/XU3vs1YYKg0/lyS1inp41UtyUkYScrbv+MQXW/GcZXs
+TfJLkpMMGfM+9wN4HwIAgAUo/D21Cap1X9hfs+7ysPHjbDvRecq53/XL12PP
+c93+ttcXYXQPfK+pfi3FmqX8nOSU9Cf5RjrnuTlz3g7RNfc4ptJ5fAffBwaN
+e5/3pi/vawEAAOYjnefo5/6eCrsXvaBPspjftxON36P6l7XYTnSejhk1vX/6
+t+1r+i3j3++ir0vWI5Xfz9yHeVAVS/mf/+6R566Uv5/H2xyvq+6zP+e7w7VD
+dP1L1/M68hkGAAAzV/AbMbS3OqAHF1bznCRZyVDbCc5Rbn75evVvS/rU5lwx
+ige/v7T3SW+ij5Gwa+uQ+76WZtjPZp4Kr6/ZzFdKw/aEMtdhnHOw6fM5Fl0n
+AABwW8Hvw18i+w8D+myb6LGegwf3MmuwneAcPWfW9HT170p7JbPp+bAs6Zzt
+7dJ5raNHvvb08yqV5CRMIOXfZ/AR/b6Uhu0J1da/ix73Nen5Oej7FgAAzFhB
+bzVy/a1t4e/BU/Q4z0WSlQy1neAcHTLq+ej+zevA4zpEX5ssSzr36Nr3k9J8
+Loe5T5XKfD/89VpJchIKpHPuWzJ3+Zgmvh+nq3U/4D31lPTsH3Fe+rxf7aLr
+BAAAvpbO6/Xk/r7aBdZb+rvwNarmuRn425ppspJTRj3tuunHEY7LHu/0ks6f
+G4e1ve6Yn4LrTE7CIKk8L/mlu143E9S3T8My6lnut7IGqd+6xn6TAADATKWy
+vnnk+lulv1/dO8cipLL8ciy76ONnvtJ5jbdjwHWpr1ShJCchSBqWl/zSXbuj
+fu9Mv2fUQ+fxWcvwsddOn+9wx+g6AQCArxX8Foxcfyt3v+vf+ifR4wx9pfP+
+rEN7y20vZZvy94/wWuEnabq9SG5dy/rfFemuuUPue5frhDGl4XnJL937Zrs+
+5rawhm3378d4/22fw31D01w7d89HdI0AAMAfpbLsYRdY767w96F76FiMNPy+
+/eOlZ5jK5o1to8eAeGnavUhueY4eCya97kr603ISHiKV5Xb3Pp8P3Xtre1/E
+9sq+cyh4Ddzz6jUy6XVz7HFONtF1AgAAP0tl2UPk+ltvBfW6J5nFSOVzpy72
+n55vU/Ach+hxIPQajNiL5Nu+YvR4MOm1JydhltI48z0jnJL7HyKul9ce58Z5
+AQCAmSnohy1x/S3r3LMY6bwfRGk/5Mu1NVLZPBW9x8qkuL1IvtPm3JvocWGy
+609Owqylc458msF7Y+/vv14fYddKn2xtH10nAADws5S/tsousNbSe/o20eMM
+faWy+/nfbvVDUtn8MevWVSDF70Wij8TlOpSTMHvdtdpnzkCkY7IvSfR1su1x
+ntzLBQAAM5LO98fl/v6KXH+rpJd3iB5nyJF5nbdZ591Mo+vt5Oaip+ix4KHX
+2SbNYy+S77xHjxGTXYtyEhan+w59nMF75U+f2ynwniZ+uj42Pc7XMbpOAADg
+dyn/vriw3lXqd3/WZ9ZvYVFSfn7Ze+5HKpuvso0eE0a/xjaF18LUXHsVSHIS
+Fq77fnoMfr88JRnJ7PQ4b8foGgEAgN8V9CfC1uQp7O3to8cYcqT8deZ6r7GR
+yuaRHaLHhNGurTn08/qyLkkFkpyEFeneY0u+qw7Rrr/5HH3sfHtNnO6dw+ga
+AQCAs9RvbnhxX3YGtZ70U1ialNfL/ih4/ty+ZGsTPS4MuqZ2ffo1M/LhvXv9
+UllOcnBtMHfp9z2gcj7Pc7SvmxefzfPX5xqIrhEAADhL+Xs9nwJrPRT8lnSf
+HYvS9VdyrvG3gr+R+7pv7aPHhqJraZ/muxeJ9+6KpcKcJLpuyNVd68/pvObt
+sfA9+dj9+/Z5ZIULkvrlZZvoOgEAgF+/v79l/lYLWRMllc0pye4hQ7SuD5Jz
+nWeviZfs8b5qaTl7kXzbE4weQx5+jcpJqFr3Gth2dumca1+8XP13cpGF687p
+vfe3bXSdAADAr9/fc/ulIff6FvT9rN/CIhVc60Vr4hX8ndYueny4eU7bvtpx
+QEYxF9voseSh16mcBKhGkpUAAMAidH21rB5WUJ2bgl6b9VtYpJS3p0T2XiVX
+f6dkj/dj9Pjw5bncZV43c3aKHk8eeq3KSYCqJFkJAAAsQjqve5zTrwhZ0yrl
+3/9+iB5bKFGQXwx6TaayOQib6HHit55z239Z4l4kt+yix5aHXrNyEmBU6ef1
+zO6ZfM55kpUAAMAiFPQssvdFGKHGbWaN7xG/g2AM6bxG+WSvyVS2x/shepxq
+lpa/F8kt1k5cqSQnAQqln/d0aT//jgXvJ9/9Zjh2z9k+d7tfXNG6pnfq77MP
+3eS/sQAAgN+lsnWtNgF15vwW+oioEcaS8ud5DP5Nn/LXbtLPjrk2ngquj6U5
+RI8zD7t2c+c/uRagMun3+SH7xlvB95Mxtb8/Dumc0Qz6rpX63fe1jx5/AACo
+Wcq/n/wUUGPuPfbb6HGFUl2PYPLXZOq3NsRnu+jxqk3XN4rqGU1lEz3OjH7d
+ykmAL3Xfe9o5F+2awGPME3mkj+5zeJf7WZVkJQAAMHspv+/2OnF9PzL7K7vo
+MYUhUr81GkbvJxa81lqnEf7useuPmKPSb7w2XY/msICeUolj9Bgz+jUrJwF+
+0r0v7FfwOdbW336HuTvnJMlKAABg9gr6F88T15eT5Uya48AjpPw9KHaBf7u1
+HfD3rnOhUzKfoGQML/fj7tM61uYa7XomXpKTAJ3u/eA1xa6p9UjtcbVz4Tff
+HP+2x3Pso88TAADUqud39s8mu/c75a0PdogeTxhDQQ9hM+Lf3hS8JxxHOtZT
+9NivRffe3vZr2qw5t08d2meKHjtGvQ7lJFC57nvFmvORb78bpU/Zf+q31uk+
++pwBAECtut8uWd/7J6xtk9FjOUSPJYyh6y2G9pZT2dySTcHf+dwzmHTOWk3S
+ctbt2kePFaNdc3ISqFQ6z3fczfzzZiqndP6+8yP1y0q20ecPAABqVfAbZj9R
+XT8yajtEjyOMJZ3nAoT2FlN+XpNdR/pjFnqMHvuapPmu27WJHhtGub7kJFCh
+9PsckiXNZ5xKOyZ9fttso88jAADUKJWttbOdqLaD3go1Svl9691M6mhtMp7/
+8z5Ed/dE5eHX3jbFrtt1iB4DRrmOSnKSfXTdQLnu8yNnf8GxvXffW1ptVrO/
+4/Xqf38KrPsr2+jzCQAANUp5e4H8aqK69j3rOUSPIYwpne/1z/1NvXlQLduC
+Wg49n/vze89r9Nhz9xzpD9HnuinJSXbRdQNl0rTrbJ3SOdvYd3+3/Z4y2h6K
+3Xew9jnbewYuWcrUn4M+CwEAIEjKv//rfYKadj1rOUSPH4wtnddEyuobPLie
+kj7Bzfkh6Y9rb32M2etglPNe0u8e6uGfL8zyutlF1w3k676vnx78udB+B9mn
+kTORgmN9Sr/v9/XoY25tos8vAADUqKCncXhwPbuedbxEj93Ix/2nxt82/hxd
+C+HXwiHzNfnQ+RipbG7Jtz3v9PU+RPZzn5EUk5O0dtHHzuTXjXMOC5Mem5G0
+3w/a+Rzb6OO8Mwbt+93LF99nRhF9fAAAUKPCHuj+gfXsevz9tg+zmr5q8/hz
+4++ujk9WUrmC/sPDXw+pbG7J4Yvn+SonOUaPOT+do6icxNyiBSu8bnbRdQP9
+db8bHpENtHPcd2mhcynSea7s2LnJq89EAACYVvc9PPe7+z6wlvY3yCr2fk5/
+zEguZCUV6/qNua/Jh/+WTmW5auuYzmuKbbs+wude6sdSeyNrlOJykl/7QtHH
+z6TXzS66bqCf7jV+HPk9v/1Ov5viO0zAWL2O9Fl6SjOfXwMAAGuSyu5/Oo5c
+w4+ev78Oa/g9lc4Zya3jlJVULJ3zhKxew4S15e5t1Mdq5ogtXYrNSVqb6DFg
+sutmF103cF/3Hb3kvqpbvf/XGt7vu7HbpXHWKjPHBAAAHiyd54uXfmcfZW5H
+9xviXo9lFWtupfsZyYWspGIp/77Nye7FH/ie8ZVD9Hjz27mNzkmO0WNA0XXz
+XHDd7KLrBu5L5/mgp7He42t+7Xfvlbnf7z5rz8Uq5tYDAMAcpf57qH+lnY9S
+fH9T9/urz2+GRd9H1Tz+ovFXmWMrK6lUOt+DmPtanDRHbB77kfomg95DGPWc
+luYkuxF6PyHXMaNcNyXfIXbRdQP3pfHmkhyS/v71uG7T8D1NXqKPAwAA1igN
+X0/nlNPfSr/PRe/zG+G45N9WqSwjuZCVVCqd7zvMvV4mzxtG+J1vD++ZSANy
+ku7f7wdeC79+lkSPA9nXza70mgHmq/uuPsZnfPvZsIk+njlK49xjcPA9CgAA
+xlXYH/uyz5XO959tv7Drfi/1/d3V/n7YRo/NgDH9y8Zfd8fyN+lT7pH6rcMl
+K6lU99s357U32V4ln+ocsl5T++8Wm4OuyYDzuLt6ju0InyH76LEg67rZDblm
+gHka+Nl++XzfJz38e+M81u+v9rfVJvp4AABgDQr7W6eRvtt/9dvqkFbQP03n
+nORm1tE8/uWd8ZCVVKrgNTbZXiVf1FqyT4Hf9TMxoCe2++K5hn4G6KstRJKT
+wCoN+Ey4fI/fey/vPc5j/4Za/O+n/5+9u9dxpEnTxhyH0HMEIsYX0MCeAI09
+gHLGpyGsXYaAcWmuWe56tBcyyv8cGjIXH8qUMwBtGYOS9UkQhBbzZdbb7Gqy
+GBH58+TPVcBlzLxdxScjkvkTd2YEAABES+XzEL+1v9eMj3adu+vj2v61HXdZ
+1b1VevxuiayEWWjv+U+Z33njKBPRYUxsd+fvHTucCw7R7UH2frPra58BpqPD
+OeGPY3jyDERJW9ccRx1rAQBgYKl8LuL9p9//WHvkkDlOdmz/7XOa8RxbPbX9
+vz1oK1kJs9EeC57vHFPe2v+2ia6TX/qrZi763Rd/c99hfGcb3SZk7Tc143t3
+9xlgGlJ9TnJ0bq9q70NG254qz6e76O0DAIA5au5tjGeFtr+sBBjdEDlJ+3e3
+leM6IevtULzfyElggSpzkubfP0fXPleZOUhzTn2u6JvGIXobAQBgbtrr76Jr
+7+ial0RWAoxtqJzk6u/3NqcX01GRk5g7H2ag8pxwTN4l6dLmm5J7rnTJsmrO
+24fobQUAgDlJ5euNHKNrXhJZCTCmDjnJS8FnlJ5X3qPbhYd9KieBhao4Zmef
+D7jb5jnPqr1++p1vFX0lLwEAgAIV19vete+3/WUlwCg65CSHws8pfV/RuNuE
+yUlguSqO17vompcg5a3vePOeK9WtC3aI3mYAAJi6889TxbW28Y9++0BWAgxu
+rJyk/azvhZ+xiW4f7valnAQWKl3mgSqZM3EXXfMStOfjTvdc7bG5dL7LQ/S2
+AwDAlJ1/XkrHQKJrXhpZCTC0MXOSq8/MHcN57Ws76X2/kZPAgqW8dxvkJP23
+e86x9ZTxd75X5CXe4wQAgDua6/DC62tjWv33gawEGExETtJ+bu6c6k/RbcTN
+/pOTwIKlsnfLd9H1LklmRpWVabR5Sen9nP4EAIBP0uW9+9KxM2uV9N8PshJg
+EFE5SfvZOXPgn6LbiOq+k5PAjBWMrx+ia12Sgvuv7GNq5bl+F90WAAAwJRVj
+IUXX7WT3g6wE6F1kTtJ+fs54kPx9Ypr+l5PAsqX898beomtdmpS3Lvup4u+W
+nvMduwEA4ErKnx+l+rqdrH6QlQC9is5Jruo4Pfi8b9FtxS/9JSeBFcg4Nn/w
+/Y5p+6o1RSrzkk10mwAAwBREj6HxZz/ISoBeVYx5D3KMf1BH75/HqPuMnARm
+6PyzzfyOWwO8/7bfZbb9psNnlOYlzb/13AIAAKuWytZz/GCulGH6QlYC9GYq
+OUlby1fjQsbZJ0JOAuuR+X1/N34+SNsfc7KLHj6nyUtO0dcAAAAwF+efl4qx
+NOMiw/SFrAToxZRykraezVBjQYTtM3ISmKl2DD3ne76PrnVpUv77PLuePu97
+e7zOPbZ7Jg4AgNUqfNboj7GR6JqXSlYC9KEyJxk8s7hzvtlFtxdyEliblD8H
+lHdK+m/749j3WxV5ieM7AACrk+4/5/uV1+i6l0pWAnRVm5OMMR52ozbZ+wTI
+SWB9Mr/3h+g6lyblv1OyH+CzdwXH+dMY1wUAADAl55/nijG1fXTdSyUrAbqY
+ck7S1vd5nMZ6wfPbZ5r9ZRNdN9BNynuv/Cm6zqVJee+U/BjqONvcxxUc7z0f
+BwDAqjTXwBXjatvoupdKVgLUmnpO0tb4eX78TXS7rVllTuI5Y5i5lPdeuff+
++m/3beax9jBwHSX3f/IyAABWo2Jc7Ud0zUsmKwFqzCEnuar1LXleNZycBNar
+Gf/O+M47Rvff7m+Zx9vNwHV8K6jl3bEfAIA1yLxP+m2sJLruJZOVAKXmlJO0
+9b60NWyj226t5CSwbilvHqZ9dJ1LkvLnPT6MVE/JWu9yMwAAFu9qvKqEueWH
+7RNZCZBtbjlJW/O2GTOKbru1kpMAKW8Opm10nUuRLu9x5OYSmxHr2hWcC8zF
+BQDAoqW8NR0/20XXvWSyEiDXHHMSZrfP2F9ggVLe+uK++/21d+76IKM/k1ZQ
+m7m4AABYrJS3puMt36NrXzJZCZAjlT0LatwbOQnwp5SxVkV0jUuR8uc8Dski
+0uWdl9NUsxwAABhDqpt/60d03UsnKwEekZNQuL8042BH+wvwIeMYcIqucQlS
+2dxb+8A6twXnh210uwIAQJ8Kr9tlJeP2jawEuEtOQuH+8i1lPD9uf4F1yTgO
+HKNrXIKUP7/VaQK15j5HZ98AAGBRCq7bb9lE179kshLgnsqc5N1xe53kJMA9
+xsNHaeOSc/Z2AvWWzMW1i64XAAD6cP557pCTNPbR27BkshLglg45iTWmVkhO
+AnxFVjJ4+35P+e/wT2YNkJS/tsrJ+QIAgDlLl7Xcu7xP8kte4vp4sH6SlQC/
+kJNQuL/ISYAv5RwTomucq8JjcMh67g/qz71f3EfXCgAAOdJlfb4PTa5x7Ckj
+uTW2cmg/Y3f9udFtMFeyEuCanITC/UVOAjyUc5yIrnGuCrKGxlN0vTfq3xRc
+azh3AAAwaW1WMUQuUiS6HeZKVgJ8kJNQuL/ISYAsKeM5quga5yhdniHLPf5O
+Zu6tG9uxz9yGfXStAADwFVnJvMlKgIachML9pSYnOcpJYJ1S3rsP2+g656Tw
+vD3pnLo9p+Sst+LdEgAAJk1WMm+yEkBOQuH+UpOTHKLrBuKkvPcGdtF1zkXh
+eXsW5+uCbdpH1woAACyTrATWTU5C4f4iJwGKZZ5rJjtH1JSk8ufUdtE1F2zb
+KfMaxLslAABA72QlsF5N3pHy5ryQkyAnAaq155tHx4u36DqnruK8fYiuuXD7
+cjI175YAAACDkJXAOslJKNxf5CRAJ5nHjU10nVNVcd4+RtdcuZ2nnOuR6DoB
+AIDlkZXA+shJKNxf5CRAZ83Yfcax4zm6zilKl3m3Ss7bk17L/cG27jK3cRdd
+KwAAsCyyEliXypyk8RRdOyH7i5wE6EWTg+SM8UfXOTUF2cFinm1Iee+W2FcA
+AIBeyUpgPTrkJLvo2gnbX+QkQC9S3poljU10rVOxxpykcLu30bUCAADLISuB
+dZCTMML+coiuG5i2lPe+wCG6zik4/7xUnLO30XX3uP055yD7CgAA0BtZCSyf
+nIQR9pdDdN3A9GWO/zfHn1mutdFTGzVzH76u/Zx9/tlnbvdq9xUAAKBfshJY
+NjkJI+wvh+i6gXk4/2wyjyv76FqD2qdm7sNFnrML9pXFbTsAABBDVgLLJSdh
+hP3lEF03MC/nn2PGsaU5Fm2iax25XZ6cs39rk0PG9lvjHQAA6IWsBJZJTsII
++8shum5gftpMIOcY8xpd64htUrM2SXPMfoqufSL7yia6VgAAYP5kJbA8chJG
+2F8O0XUD85Xy1nhvbKNrHbgdaufcao7Z36Prn9C+so+uEwAAmD9ZCSxLuqwJ
+mzsGJSdZOTkJEKE55xRkAotcu/v881xxrv7RnuNXkZO07bTPaZPoOgEAgPmT
+lcBytDmJNWHJ3V9qchL7CtCLgvPVoubiao+9x8qc5G2p2dEX7bXJbJtNdK0A
+AMC8nX/+XVYC8ycnoXB/kZMAoc4/24Ljzz663p62eV+ZkTQOa8tJrtot5/rm
+ObpOAABg3s4///XgvuM/o2sEvtYhJ3mJrp2Q/UVOAkzC+ed1DcehNhc6dchJ
+Vp0DpLz5yt6i6wQAAObr/POvGfcd/zz7S3StwG0dcpJDdO2E7C9yEmAy2nNY
+yTFpF11z4fZtCvOgz5q22UZvR7SUPw/XKt+7AQAAumlzkn9k3nd4twQmSE5C
+4f7S5CT/l5wEmJLzz9PSjkvt+fmlQ0bSOBr7/6VNc653Jr9vAAAA8c4/fz37
+eys3I/ns39vf/1v09sDayUko3F+anOR/LG08EliGdFmLo+T4NMk5qdpz8z6V
+v7/32T56W6YmM3s6RNcJAABMU5uPdLlPy/Vv0dsKayInoXB/+V/O/j85CTBV
+lee1Jl+ZxHsXPWYkp7Pv0dszRemS+T9qv/foOgEAAIBxyEko2Fc2Z/9Hxb6y
+i64dWJ/2mFWaNTTZwjaw5r4yksbLVLKfqcpsZ1kTAAAALJychIL9pHae/F10
+/cB6pcu7AzW5w2HMnKHNdfrKSN4i8545Of+8ZrTnJOdnAwAAAPohJyFzP+ky
+dreLrh+gQ17y3h4DB8tMmkwjla+t8mW90e09J00O4roHAAAA1i3zWUrjBSt1
+/nlKl7loasfsdtHbAPChQ17y5/mvOS72WMtzx2PsZ805fRPdznOT8tYsOUXX
+CQAAAAyj8hnWQ3TdjLJvNONGx45jdrvo7QD4rIe85OPdjdc269hmfu62OS62
+594+85GG+ba67xc5+4R1XwAAAGBh5CTc2S82lfvGZ/9r9LYA3NPmJTXzTz7K
+T4439PkZnzWZyy66PZcg5b1nu42uEwAAAOhP5Vj4W3TdDLpPNOvW7FM/6wm/
+Rm8PwCPtca9mHsopaI7V1hrvd3/YZ7T7PrpOAAAAoB+1OUky78RipcucMKee
+xu/+z+jtASjRHgP7yInHykj2zsmD7AfbjPb3LAAAAAAsgJyET/tDMy507Hkc
+r5c1jwHGlC7zD075HZNTumQ6zsfD7QPfcq6JousEAAAAupGTcLUvDDUmeIze
+NoAu2gz5NIFs5Po8vItul7VIGe8XRdcIAAAA1JOT0O4HH2uSDDWmt4neRoA+
+pMs7HH2v/V6iOW9vo9thbVLeu5bfo+sEAAAAyslJaPeDXc7zsh3so7cRoG/p
+8p7JYeDj5/W599n5N7S/XzL6aRtdJwAAAFBGTkI7zjf0s9Hv9hlgydLlvbyn
+9rx66vHY+drmI5vobeSPft5n9NtzdJ0AAABAPjnJuqXLmiTHgTOSD7vo7QUY
+U3uMfWrH1l/b4+29d0/e2/9+bP/9LpnHaZLS5fmCR+e8fXSdAAAAQJ72GVU5
+yQqly7PPOXOI9OUYvc0A0IfMrOQ1uk4AAADgsfZ5VTnJCrUZ2Rhz6l/zbDQA
+i+EZAQAAAJg/Ock6pcs8MKeRM5LGS/S2A0Cfcq6bomsEAAAA7qvMSazJPWPN
+Ox1pvDVJ7DsALF77DMmX58DoGgEAAIDbOuQk5k+aoXRZk+QQlJF8eI5uBwDo
+W84zCNE1AgAAAL+Tk6zL+Wefxl+T5DPzjwCwSLISAAAAmB85yXq0fX0Kzkg+
+bKPbAwCGkJOVnG2i6wQAAAAu5CTr0OQSmeM2YzlEtwkADCVd3t/0zAAAAADM
+gJxk+ZpnVlP8miS39qFNdNsAwFBkJQAAADAPcpJlS5d12/cpfk2SW/bR7QMA
+Q5KVAAAAwPTJSZat7d8pZiSNU3T7AMDQZCUAAAAwbU3eISdZpnRZk+RtAnmI
+cSEAVk1WAgAAANOVLmtXlL5vICeZuLZfXyeQgzxyjG4rABiDrAQAAACmLZWt
+8y0nmbD0c02S6Awk1ya6zQBgDLISAAAAmL6CvGQbXSt3+/A5TXdNklv20W0G
+wDSky/uQ29auzRVKPF/9/iZ6e+5so6wEAAAAZuD88/Lg/n0XXSM3+60ZFzpN
+IPso0dT7LbrtABhPuqyP9tRmBoezYxo24z+1n/HSfuY28tzT1iIrAQAAgBlI
+l2c55SQzkC7P4OaMu0yR/QlgwdpcZNfmFFM7VzUZSrOmV/Muymjzima2g+cI
+AAAAYCJu5CW76Jr4pX+aNUkOExhrqnWMbkMA+tVmI89tBjGn+SB/tPW+ttc/
+mwHb6GFWEt2PAAAAwK+u8pJddC380i/7GY5BfTbaM7wADCNdcvvmWuGwgPPS
+Z2/pkvtsem6z06PPju5XAAAA4Hd9jxHQqS+ecsZYZuAlui0BqJMucz8+t1lC
+9PlkLMd0yYQ6z42V8Vnv0X0MAAAAMEXpsg7tcQJjRX1472OsCYDxpHXmI/fO
+YYfU4d3IjM84Rvc3AAAAwJS0Y1OHCYwN9ek5ul0BeCz9nF/rOIFzxxQ17fJU
+2KbbnL8b3fcAAAAAU9COT+3TAud+j25bAL6Wfub0SzsHDeWUMtd1S3lZiXkq
+AQAAgNVLl2d4TxMY+xnCNrp9Abgtxb/LeGy9pMvzAvs2Wyjx8Xsv7d8ac86w
+U3qQmbS1Pfo7++h9AQAAACBKWtaaJLccotsYgN+ly7uMhxHPB825rskynttz
+3+BrWKVLDvTUZhWvadh3Zprt296pI6edi+b1AgAAAFiCdvzmdQJZxpCs5w4w
+QW1eMWRucGrzgeZzqtdDH2jbm/PvLg0331hzbt98+sxjxu9to9sGAAAAYCzp
+55ok0TnGGPbR7Q3AT21OkDNuX+q9zR52n3OCqTv/fE+X911OPbfH/uozHv5O
+dDsAAAAAjKUdQ1rLmrmn6PYG4Kd0mYuqz3PQqc0YJvXeSMc26js3eWvP/c6Z
+AAAAwOqly7zsfY27zMU2ut0BuGjH//vKR5p5tTbR2zRCmzXZ0lhzZb5Gby8A
+AADAUNJwc51MnTEfgIlI3ddvb95FWdT7I4Xtt0nDrW3yYR+9nQAAAABDSXnz
+bizRJrrtAdYuXdbH6vJexLE5j0Vvx1Skn+uNDZGZbKO3DwAAAGBIK8xL9tFt
+DsAf55/anORo7P7Ldh0iM/kWvV0AAAAAQ1tRXnIy3gMQL9XNu9Ucw5+ia5+L
+9HNurq7nzrfobQEAAAAYy0ryEmNsAMHS5Z2H0uP3i6y7ur23Td7R4dz5Er0N
+AAAAAGNaeF5yjG5fgLVrMuvCY3czj9Q2uu4lSPXzcjW/s4uuHwAAAGBMC85L
+vke3LcCapcs6GiVj9c27EN4l6bcPNumy3kvNeXQXXT8AAADAmBaYl5g/BCBY
+4Ri9nGTYvthXnk/30bUDAAAAjGlBecm78TaAWKls7i05yTh9cqo8rx6iawcA
+AAAY00Lykl10OwKsWbrMvZU7Li8nGadPvnc8tx6itwEAAABgTDPPS96i2w9g
+7VL+fE/eAxyvT156OMceorcDAAAAYEwF41xTs41uO4A1S2XruW+j612Lgj55
+xHpgAAAAwKo0z49OIPvwvCvAjKT8rN2Y+3h9suv5fLuL3iYAAACAMc0oLzGP
+C8AEpLx1Sk6O2aP2yXGA8+4uersAAAAAxjSTvGQf3U4Aa3f+eTLOPi3nn21m
+nzTrmbwVnnu/R28fAAAAwJgmnpecotsHgD/OFa+O2dOSef5+b//tt8K8pHmn
+cxO9jQAAAABjmnBeso1uGwD+OE/kHLN30XWuRZNjZPbJy9XvlOYlzb81nxpA
+B+3xetfebx0zjrvNu4BP0XUDAMCanX/+9wlkI9deo9sEgD/ODznzb1lbatw+
+OWSeSzeffm/T9pVzMcBA2mPtPuWt83XPSWYCAADja591is5GPo+5baLbBYA/
+zhEvGcftQ3Sda5Hy3ym52Sfnn++Feclz9DYDzEG6rCN17Pm+6HDns3LOzY7l
+AABQYII5SWMf3S4AXKS8eZs8+zpef+SsHdO4uz57RV5irXeAOwozkj/n2Wp/
+70Pzvw93js2HG595Kry/chwHAIAvTDQnaa77zeMCMBE5x+7oGteiHU/LOZce
+M/5WyTWAczPAJ+nynl9uRnLIySvSZW2pw43ff7r6N7nngj+P4dFtBQAAUzbR
+nOSX+wAAYmWOxxyj61yLlL82+zbz7z0XnJ+tXcIfXKvBH9+DfUFGsqn4+829
+2vU7JqfUZtZ3spQva4huLwAAmKoJ5yTH6LYB4KfM88VLdJ1rUJBrHAv/bsmY
+2y66HYiXLs/Rm8+HVUqXOQxzcusm59h2/Kztp7+5b///kjkUG/JNAAC4oSIn
++X9GzEo20e0DwE8p77nZXXSdS5cuc7Lkjo0VjWG3fzv3fZV352rarOQQXQeM
+Lf3+rsfdzDr1NG9h+jXPfq+4l/vRVy0AALAkFdfWzfX491T+nncNzyUDTEzm
+8X8bXefSpfz13A+Vf79krfdjdHsQK/1cn8H4K6tRcD906PlzN5/+/qnwHusY
+3XYAADA1tTnJ1e8PmZe8u98GmJ6Ut2atuXiG7YOngnPpZoTPaZjPZcWujgv7
+6FpgaKns3bvngWrIORffs49uQwAAmJKuOcnV38m9Tyi1i24jAH6XMz4TXeOS
+pbK5t/Y9fN6h4DrBMw4rdXVcOEXXAkNK+WuTDHo/k/LXkb/F8wwAANDqKydp
+/1bJc1W5jtFtBMBtspLpt3/rrafPa87zp8zPPES3DzE+7Ze76HpgCKlsbsJB
+5xJOZe/9/XJfF92OAAAwFX3mJFd/s++8ZBvdTgDcJisJbft9xLm0+VvO4TzY
+R66PC8foeqBvhTnJYYR6So7LMm0AAPgkla8v8jAnufrbfeUlh+h2AuA+WUlY
+u5eMi/X+PHPzNzM/+xjdVozvxnHBHD8sRmFOchypptqsZBfdngAAEG3InOTq
+M7rmJeY6B5g4WUlIm5eM052GOJemsrm4dtFtxrhuXP8domuCPkzh+Hunrtqs
+xL0WAACrNkZOcvVZXfKS5+i2AuBr55/XjOO5Z8r7a+/S8+p2wFpy58c/Rbcb
+4zImyxIV5iSjnvsqs5Je1rECAIC5GjMnufrMmrzkFN1WADyW8tbM2EbXuRSF
+59P9CPUcM2vx/MOKRO2PMJSKnGTUY15lVrKPblcAAIgSkZNcffZknoMFoD+Z
+WYlx8n7auuQ8fhyppk3BNYX3Clbizj5wiq4LalTcx7wG1FiTlWyj2xYAACJE
+5iRXNeTeZ4x+fwFAnczxmd7XFl+bwvP4qLlEysvLGvvodmS0feLePrCLrg1K
+VOQkIblw890qvdeLblsAAIgwhZzkqpZH9xvNZ2+i2wyAPOkyL8mj84o50bu1
+cel5fNT1Ydpze87cNN4tWYkv9oFjdG1QouL4+xRU576wTs+mAQCwOhXX929D
+j7E8yEv20W0GQJnM84sx8rq2LT2P74LqzB2nMx/bCkwpy4Nac8ofms+ew7kC
+AACiVOYko4xl3clLTsbSAOYn5a3vHfKs7ZxVnMdD5zprz+OPajxFtyuj7Atf
+7QOH6PrgkeacVXj8DX03PvP4ey2sVgAAGNuUc5KrGj/nJcbRAGYo5T17e4iu
+cy7a82PpM8Lh7Zvy58vfRdfK4PvCo33AszFMVpMjpLx5Ba+FvTPXnjOK7vui
+2xgAAMYyh5zkqtaPvOQY3W4A1El567tbRzavLUvXEZ7UuFfKe7Z5MvUyyD6Q
+M267j64T7qk4Bp+C6y19Byb0HUQAABjLnHKSq5qbe+pNdNsBUC/lPYO7i65z
+ys4/3zOzhkmdxz9tw3Nm3dvoWhlsH9hOfWwZ7mlyhMJjcPjxrKLm0HoBAGAM
+c8xJAFiGzHPQMbrOqUqX+atK53yZ3Hk8XZ5/yNmOQ3StDLYP5GQlslMmp2Df
+ndR5LRW+BxNdLwAADE1OAkCklD8HyDa61qlJdc8xT/Y8nvLWr/kx1frp3P+5
+483H6FrhQ5vzniqOxZvgujeF9b5GtzUAAAylva4/LmV8BYD5SnnvExyj65yK
+doyrdF78yZ/HC8buwtZCZtD+z81KGt+j64VGqsusDxOoO3feQ8ddAAAWLVWu
+/zrl8RUA5qtgrGkbXWu0dnyrdM6tP7KmOZzHU977rqfoOhmk70uykkN0vVC4
+z17bTKD20nvB8JoBAKBvchIApiblv0/wFl1rcBsdK8flDtH1F2xn7tij9woW
+pmLc2bUpoSruqSZxPC4458qnAQBYLDkJAFOV8tfP2kfXGtA2te+SNF6i66/Y
+3tMSt4uH/V6aleyja2a9zj+7ymPyZgK175d+HgEAgK/ISQCYslT2nOsq3ilo
+x45rnlv+sIvehsrtzplH/z26Tnrv99Ks5BRdM+vU3lfV5NeH6Nrb+k+FdT9F
+1wwAAH2RkwAwByn/3ZJFn6Pa3Ci3LW6OIc85T0r5uZnxuwVp+rNiX99F1836
+pPL3Mj6EH5drvmfRNQMAQF/kJADMRTtGnvus7iG63gG2/1s7Blc731bjuIRz
++PnndY37wJpVjj8fo+tmXVL9OyXH6Nrb+o+Fdb9G1wwAAH2ozEkWMcYCwDwV
+jpceouvtaZv7yEga++ht6bFNdhnbe4quk177vCYraYQ/q896dNhPdxOo/XtF
+3c/RdQMAQFeVOckhum4AKDx/HaLr7bCdfWUkp6WNF7dtY5x8RTqMQR+ia2c9
+Ko/Xk1hfKdXN7egYCwDArMlJAJizVP7s6yG65sLt25y99JCR/Gj/ziLfB015
+83Dto+ukt/6uzUp+LPU7wLSkvPfdJnmOSvnrQF07RdcNAABdyEkAWILzz3Pp
+uWzq46Xnn23m+H/WGFbz96K3aeD2yhmXfIuuk976u0tWso+un+VL5Wt9fHia
+QO2HiroP0XUDAEAtOQkAS1IxttOcAyc1X0i6PMv73GYbfWQkP9ox5UnnQj22
+XU57LL4t1qBjVnKKrp9lKzgefRY+/1aH2sMzHgAAqCEnAWBpKs9tf2QJE6h7
+l/p7h+TDsRnziu6Xkdsyp/+N5y1Ax6yksYveBpYrlb/rOJn7rVT/PowcGgCA
+2ZGTALBUHfKS05hjp22dT+nyLkwf65B83pZV5gGZ4+cv0XUyWl9/mSVGbwPL
+VXkeCs9y02XuR98nAABWIV3eqZaTALBY6bLWe23+8EdmkgZ4PrY9Bzd/u+/3
+Rz4027yLbv/gvs8Z57NmyQKcf156+M5Mag4+liHVz2H1Y4hzT2HttRnPc3S7
+AwBAicqxo0N03QBQqj3n1Y75fOQOh9QhN0k/3x156VhLTq376DG2qZjDeCS9
+9POxh+/OIXo7WJ72vFGzP4bmuB3qbsgdAQCYjSQnAWBlUv18XLec0uV9kCaT
+aOah396wbx1Tv2uzf1VT83nG/X/t92NG222j62SUfpabMbp0ydlnld2158va
+9zHD16MHAIBcSU4CwEq14z+141ZTdUorn2vrQZ/vM9pwH10nnfv52NP3yb5A
+r1J9Vh42j1XqNqfdIbrNAQAgR5KTAEBzPnyeQMbRVfNeyza6Lacu5a1Zcoyu
+k879fOzpe3WK3haWpcO+uA2qN+eY+ZVddJsDAMAjSU4CAH9K3dcwiXBKl/ck
+NtHtNxfp8i6R8fGFS/1lJcZ66U3H3CFkPrgezovmsQMAYNKSnAQAbkqXd0xq
+52Ufw8e68k/RbTVXKW8OHON7M5b6zUqO0dvDMqQO66MH1bvv+N0JXY8eAAAe
+SXISAPhSurx7sK84Xw7ptR1nM4bfvX9fM9p7G10nnfq4z6yk8T16m5i/DtnD
+KaDW73fOQyV176PbHAAA7qnMScLWEQSASFeZySkgG/H+yHD9mjNe6fpnxgbI
+Sg7R28T8dchKjgG1fp576+XG//eIjBEAgEmqzEl20XUDwBQ0mUWbXQz5rsmx
+HUszvjR8Xz7qi5foOunUx0OsPeSdLjppzyGTz0raXOT685vvU85aT9feo9sb
+AABukZMAQH/SZX3efZtt1GYnp6tsZBu9TWuSbs8tEzo2Se99PESWuY/eLuYt
+1b/vdByxxs9ZcnOO26TytVZeo9sbAAA+k5MAwLDS5Xnb7VWGcsvu499E10vW
+WLo1iWdsoKzkFL1dzNvUs5I2E/l83/jU/rfStUp20e0NAADX5CQAAL9LGWvQ
+RNdIp/4dIitxnUwnU85K0iXz/22Nkqv/XnpPuYlubwAA+CAnAQC4LXPM0voU
+MzVgVuJ9I6ql+rXdf4xQ2+f3Rt6u/lvOGk++JwAATJKcBADgvpS3xvI2uk6q
++3eorKTxHL19zFOXrCQNmN3eOB7+sUbJ1X//vNb7Iy9D1QoAACVS+bp7chIA
+YFUyxyy30XVS3b9DZiW/jCNDro5ZyXagmj7nJL99VsqYs9CxEwCAqZGTAAA8
+ljlm6f2BmRo4K2kco7eR+WkyhA77XO/vaqTb74vsPv2b74V1vke3MwAAyEkA
+APJkjlnuo+ukqm+/jZCVNJ6it5V5Of9sOuxvp55rOdz4jMONf/dcWOdrdDsD
+ALBuchIAgHyykuXK7Ns+NHNxDbaGBMuUyuezutb5Xbd0yRI/r+N+N+M4/7y5
+xwQAYC7kJAAAZWQly5W6rQlRyjP0FEm33+coyee+d/js73eymrdbuV+qe0dr
+E93GAACsk5wEAKBcypsL5xhdJ1V922UsusY2epuZj/PPU8f9rTgvaTOPW2uT
+3M1J2t8rvdc8RbcvAADrJCcBAKgnK1mmVD5nUFene2PNcEvqNg/XR17ycD6u
+NiPZt/++KCdpf//WXF1f6X39eQAAeKQiJ2muj60/CQDQkpUs08g5iTFiiqX+
+5ok7tX9rmy7za21b+4yc48ucpK3zXsZyj/tNAABGVZmTVM9rCwCwRLKS5Unj
+ret+i+ttsqXu75Z0cczISYrnCotuUwAA1kVOAgDQD1nJ8px/ngPHn9+it5/5
+SJf3QCL200NmfffWN7nnNbpNAQBYDzkJAEB/ZCXLUzG+27d9dBswHxX3d100
+94a7gtpOhX//4fopAADQBzkJAEC/ZCXLky5zC0VmJc01+Ca6HZiP9j6vdF2Q
+Um8l94ap7p2XTXRbAgCwfHISAID+yUqWJzgnsd9Qpc0mTgPsi819YfH7Hql8
+LrtTdBsCALB8chIAgGEY816WFLf+wy276PZgXs4/31J/c8g194T79GD99i9q
+eSv8vEN0+wEAsGzt9a2cBABgALKSZal4xmhI77Xj1Kzb+WfTZA+V+12TcTx3
+2ffazKb0c5+i2w0AgOWquD6WkwAAZEp57yC8RtdJUZ9Gr+tu/6E3bWbS5B7H
+dH89kyYbeW3/3aanz91V7OtyQQAABiEnAQAY1vlnm3GNtY+uk6I+PU4gH/ls
+G90uUKLNXkr28WN0zQAALJOcBABgeLKS5Un3n72PdEqeuWdGKr5HxWvHAwDA
+I3ISAIBxnH+eZCXLkS7zFUXnIve8RLcP5Mg8Ln7mfhQAgF7JSQCAWu048TZd
+5pnfp8u6DccrtWO8b1d/46X927v2s2b9rHy7LY+233rFM1E5xjsm1+1MXipf
+8+cUXTMAAMsiJwEAcnzKQ5r84hQ8/vuefuYouzldn6S8rGQbXSe99mekt+g2
+gkcqzimH6JoBAFiOJCcBAG5ozvdnz+21wtsExnpLHNux6210O37RvseM7XDN
+NROZ/RltH91OcE97zindp3fRdQMAsAypPCdpxklmPd8FAHBfuswj1FwfTHGN
+6i5e0yX32US38VVbHx/VHV0jRf15msB+/sj7lL4DcK09Rpfu0+5NAQDoLMlJ
+AIAff1wTbNMy85GvrmnCc5Occe3ofYPsvvw2gf061zG6veCWVP7+onnlAADo
+LMlJAGD10mV9j7nNrdX7uHEKmMMl5Y2tH6P3EbL7czuBfbnELrrN4FrmMfGz
+fXTdAADMW5KTAMCqpUtGcprAeO2UNO/UNOvDb0bqg21GTYfofYXs/txPYB8u
+3d9d3zMZ6XJeKt2PrecEAEC1JCcBgNVKl3VzjxMYp526Zm2T7cB9kTMv/z56
+nyG7P18nsN8W7+fR7QYfKr5D5igEAKBakpMAwGql+OfeT+mS05Q4Bdfc1LAd
+qD9yrsueovcbsvszel+tNcj+DaVS+XpZh+iaAQCYn3SZ+zXnfvyanAQAFuD8
+s0nDr0lyanOFZg6rfTPGny5zTG163I7v7d/ctZ/xOsJ2fTj2PaacWXtv7cew
+RtoPh/ruuuYnVHvOKN13d9F1AwAwL+mSk5SOI8hJAGAB2vGn0md1v/KefmYi
+u77zgw7b+b2t51Bx3VOamWx6qvlhW0e3K9l9uR1wnxvDS3Qbsm7tOaV0v91E
+1w0AwHwkOQkArFaqWyf3lub9jWZtjdmsodteAzU50SENMzfSS5frpZQ3tn6M
+bkey+zNn7Zmpm833m+WpOE6/RdcMAMB8JDkJAKxWD2O3TT6yi96OHtujee9k
+X3Ft9JX32jZKeWvH7KPbjez+PEwg6+jK2DMh2uNz6f7qXSgAALIkOQkArFaq
+z0masf/mfYlN9DYM3D7f2+089TTGfCxts/Z3Hv1d67rPRMV191Tto9uS9ak8
+Z22j6wYAYPqSnAQAVivVz7vVaU6puUqXebpycotHit4xyfybq+uPuZpAxtGX
+Zj/eRLcn61Jx72otJwAAHkpyEgBYrXbcv3Rs9Ghs9I+226R+5lF6fXRdldlP
+5kOaiVQ3f1BX/yMNsw7PH8eE6DZlPdr71+LjbHTdAABMW5KTAMBqtWP974XX
+Afvouqcm9ZOZNGPYd9fJTpd3eB79DXPxz0Sqf5erk/azv7f7a+l3/5FddLuy
+DpXfn1103QAATFeqy0ma+yo5CQAsQOF1QDOuuo2uecpSP5nJ852/fcr4XWuV
+zETKy75y/b8F/3bzqY5mzPm1pzre3Scwhsp9dhNdNwAA05Qqc5LougGAfpx/
+9gXXAM01w913HvitbTep23omh09/L2u+pujtpmgf6bJ/fP5u/m8F/377xT7b
+rJV96liPeY4YVLuvFn9PousGAGCakpwEAFYtd+z9aizWs+J17fzUYez5z3ZP
+ee8gGKOekR5zkua6fl/wOw/fPUrd5+jaRrcvy1W4v7uXBQDgLjkJAJDyn2lv
+xkq9T9Ktrb9lZh33xsKbcetTxr/dRW8r2ftEH+u6N3MQfWRpzwW/ty+sdZfK
+5zs6JfkqA+jw3dlH1w4AwLTISQCAdHnXIfc6QE7SX7tvMzOPW3lVzr/bRG8j
+2ftCyXfw4fV5u28NOmacyufoeoluZ5al8l72wzG6fgAApkNOAgA0CsY6b64x
+Tqe2b67HDh3HyW8xF/+MpLo5hO5mEIVZSee52lL+HF2yVnqRLu835Z677tlE
+bwcAAPHkJABAI+U/z36MrnXJ2nG/2rUgbtlFbxNF/X/su58L/sax521p9uV7
+c3TJ8KiSLu8xNeerlx4ykj/3xyS/AwBYtZQ/x7WcBAAWrmCMdhNd69K112i1
+88l8Zm2IGUl1Odnuwd/MHi8eaJuaZ7Oeb+zT3k/jpjYP2baZyL7NRY6V348S
+r+3n7drP/0102wAA0L/2Hrz0WvMQXTcA0L+UvybuPrrWtWjHl48dx/0O0dtB
+UZ9vCvu3uZZ/+Cx8Kng2aoRt/N6Oeze176LbnGlK3dftGUx02wAA0C85CQBw
+rR27zBmX9Y7C+H1z6DCu9xRdP0V9ve07J2n/7tE4MHNS+F2QlQAAUEVOAgB8
+lvKeO/9t3WhG65/nijG9U3TdFPfzPrNvm7msNgV/Nzsryc1fYEiyEgAAhiYn
+AQA+S/nzb22ia12zdJk/v+QarhlP9x7QjKT766B36teCDKaxjW4HAACAIclJ
+AIBbMsdRB1nzmeK+Ks1LjtE1U9S/pwf9+VqTf8lKAAAALuQkAMA9KW9+nufo
+Ovmjr7aF13Ou6WaiyUCG6sdUNofbProtAAAAhlCZk5iPHABWIvPaYBNdJ9m5
+1i276Np52Ldf5WCdrs0LM7Z9dFsAAAD0rTIn2UXXDQCMI3MM9RRdJ3/01a4y
+J/nRXg9as3vCvnj3Y9fD3y7JSjwzBQAALIqcBAB4JHP8/RBd59qly/xMpw5Z
+yY/29631PlHN92yoa/Pzz6ZgPzlGtwUAADxy/vnXB9e1f+349//bF3/7P6K3
+n6K+lJMAAA+lvDWfrVUyj37KcYjeFu728dtVP/X+HpCsBACAJZGVkNmPchIA
+IMv55zXjOmEbXeeapbJ3AnI8RW8TN/t5sJzk099/5C26LQAA4BFZCRl9KCcB
+ALKlvLXCN9F1rllmH5V416fT0l7D/5FTDNU36df3Vr4U3R4AAPCIrIQH/Scn
+AQCK5IzDR9e4Zun+et+38o9twbXgMXrb+K2vd2nA9WRKMrfotgAAgEdkJXzR
+d09yEgCgVM71Q3SNa1X4HMyu/Z2da0Hu7E/ZWcmQmQ0AAPRBVsKdfiu5J3Zv
+DAD8KeOa4RRd41ql/DmTjp9+L2cNmh9tDmNMfCXOP4eCe4VtdL0AAPAVWQk3
++kxOAgBUKx2HZ7R+eSm4tvv+6Xe/NRlX5u8eoreV0fapvawEAIClkJXwqb/k
+JABAJxnXDu/RNa5N4TXe/s7f2BoX59M+ISsBAGAxZCVc9ZWcBADoLFnbfVJS
+2Rolbw/+Vu67KV/+HZbh/PNccN/wHF0vAAB8RVZC209yEgCgF7KS6Uhlc2c1
+vvf493bR28/g+9e2YN/aR9cLAABfkZUgJwEA+pSTlTwak6eXfmhyjdy13LPH
+sgvGx5tMxTrvCyYrAQBgSWQl6yYnAQD6lvLmadpG17l055/Xguu740B/ex/d
+Dgy6j5VkJS/R9QIAwFdkJetVkZM081x7BhQA+FLKW+95H13nkp1/DoXXeEXv
+f5x/NilvDZTiv818tPvBIHkcAACMTVayTnISAGAo55+njGuL1+g6l6owJ/lR
+e42XmYnJxRZOVgLMWXMObM9nxjsAkJWskJwEABhSynvW/BRd5xJV5CS7Dp/1
+LXm3ZPVkJcCcfTpvvrXjJc5ZACslK1kXOQkAMIbMMfRNdJ1LUpGTdF4/ouDa
+ch/dPgyjYH97i64V4LM7uf97e041FgKwMrKS9ZCTAABjSXlrfz9H17kE7ThP
+yTrujUOPn3/Kua6MbieGkS7PYWftd9G1AtzSXI98lfMm75oArIasZB3kJADA
+mB6MO3jOvL92/lYyVn017tPbmE/BdeYuur3o3/nnKCsB5i7jWOZdE4AVkJUs
+n5wEABhbuqyVmnPdsYmuda7aNj5F5iRXteTUIRtbIFkJsAQF1y0f59LdEOdT
+AGLJSpYtlc9bLScBAHqROX7eec2MNWrHaHLWhBk8J7mqJ6eGbXTb0Xvfy0qA
+RWiuSSrGTw7GUACWQ1ayXHISACBS5pjD+1Dj90tVMZYzaE5yVVdOdnOIbj96
+7/eStXLcawCTlW6v815ynt25pgGYN1nJMslJAIBoKX8+i310rXNw/tmk8rVJ
+RslJ2vr2mfUYR1qQgn5vbKPrBfhKKp/D/NbYysH4CsA8yUqWR04CAExF5ti+
+d0set+NzqnvWdZScpK3xW2ZNz9HtSa/9LisBFiUVzC2YcQ7eucYBmA9ZybLI
+SQCAKUn5z2dat+R2+206jNkcxh6fybwWtcb7gshKgKVJZeu85467HIy9AEyf
+rGQ55CQAwBSlvDXef7gu+a3d9ql+3vRDUM1bfb0ushJgiVLd2mA5vGsCMGGy
+kmWQkwAAU5Xy3y0Zbb6oKWvzhlOHcZhdcP05tXuPaCEKs5JddL0AOVK3dd5z
+x2SaPGYTva0A/DTlrOT885ezvzei22nKKnKSNzkJADCmgrH/Q3StgW20Sd3m
+SJ/EszDpsrbKo1pP0XXSW39vC/bRfXS9ALlS93XeczXn/l309gIw+azkrx//
+NrqdpirV5SSrf14TABjX+eep4HplF13vyG2zqbimuzXOMolrvHZ7cmoOz3Xo
+pb+3BfvpPrpegBKpv3Xec3jXBCBYepyV/EvHv98lK/mXj38b3U5TVHFPLScB
+AMIUjjfsousdoT02Fddzsxh/bq87H9VtHq4FSLKS2Wv78Lkdo/3zOB1dF0xB
+6n+d91zHNVwLAUxNepyV/K3j3++SlXzU9o/odpqaivtqOQkAECpdsoGSub93
+0TUP1A7b1M9zqqc00XczUt48XG/RddJLX28L9tl9dL1rl37mIof0dabp+wmt
+VLYuU9+8awIwovQ4K6lefz1dvRdS87fTZa0SWcnv7XIoPLfKSQCAScgcQ19c
+XpIua8Q2237qaezkZcrXdyl/Hq5NdK107uttwX67j653Ddo+aeY93Kef74qU
+Hnv0FbTac3hf5+8ujku5LgKYqvQ4K/nn2V8q/m6z1sg/HvztL9dsP//8e/vv
+/jO6naYiyUkAgJk7/7wWXs/Mdq6mdryy9Prt0bXdNnq7Mrc9Zx6uXXSddO7n
+7Rq+y1ORLmO22/QzC9m346fHHo8zjUm+swZRUtm6a0N7b68tdr6rAP1Kj7OS
+4qyi/Zv/bH/3v774u4/eK/n43S8zlbVIchIAYAHasb6ccfRrzTjgJrr2zO3b
+psuz3CXzjeWMizxHb1thO+S8Q/QaXSed+/lbyfc4ut65S2XZVK1T9HbCFKVx
+13kvvUZoatu3xwjjQACVUl5W0siaiyv9fBek8Z9nf/vib97NYM4/f7n6d53W
+l5+79v6j9JwsJwEAJitd1kotzRLe23GASV3jtNdqH++P9JmPfDhMbZsL+vhh
+n0bXSS99nbsvH6Nrnbs0TlZyiN5OmKKUP7/kFLwl754AFEu/ZiV/f3Cs/Uf7
+b/7y6W/87cbvNv/2L+nXzOOzu/N7Xf29/4puo+D+qXnuUk4CAExeqstLGqcU
+PHdTuoxX7iuu00oc00zepfminU4Z22kMZ+ZK9unoWucujZOVPEVvJ0xVil3n
+vQvvngBkOP/829Wx8+/pcV6So8lA/uXqM/7ji3/72/xa6dc14f8tuo0C+0ZO
+AgAsWqrPSz7u+5u5rgYda29r3LWfNWQ28qEZy9hG901PbXfI2N5ZzS3GzX7O
+3reja12idBn3/LBP3ecJcj8Jd6TprPPeB++eAHySfs1K/rP9/77KNh75JSdp
+/95f08/1S25p5u36S/tv/3b1b1f7TkmSkwAAK5G65SUfTumSZTRzYW0q69im
+n+slv1Zci3V1TAvJSK7adJex3dYsmbmSfTy61rVI5Wtd+j7WtfOuPWdEaT5/
+S38y+31K67z36Zd3T6K/XwAR0q/vkfzz6v+vyUuatdhvri2Svl635JZmDq+/
+RrdPUJ/ISQCAVUn95CW37vc/7vk/O1z99+ixiaaWTXQfDNSvm4ztP0XXSed+
+zt3Xj9G1rkV7T1lzPPKeV1k7T+EcAkNqxpqaZ1F2aaHXKgDX0u+ZyPXcWU2+
+8Y/M4+e/Z3xWszbKV++XfPhvSU5Seu6SkwAAs9ZeBx0nMC4whtPZ8xqu4VLe
+XCWb6Drp1Me5+/0xutY1qTyebqLrnpMVnbPgQ/MsSvPu7T559wRYoHTJJa6P
+e7fWD2kyjub9k8+5yX/e+vcZn/n39nc/H3Ob//9v0W0S2BdyEgBg9dJ8103N
+cVjb2EI7pvKoXawlPWMF+/8xutY1SeXj+G/RNc9NRRvDEnn3BFiM9Pt7Hv8Z
+XdMapbqc5JjkJADAAqXLnFxjrxcylNd2/GCV120pL/vaR9dJpz7Ovn+JrnVN
+Uvn60y/RNc9NkpXALd49AWbp/POXG8e0f0bXtTapLic5RNcNADC0dMkY+lzH
+ZMwxgqb2VeYjn/pwm9Fm1pOesZQ/Jv8eXetapLr1Sr5H1z03SVYCuf589yT6
+ewtwT7q/3vrN9dkZpA/kJAAAX2ivl/ap/BnpiDGAbXR7TU3KG7M9RddJpz4+
+5n5Xomtdi/PPU+ExTI5V187Z+z6s2DFdrpGa49Im+nsLcE+6rA9y6zhWvAYJ
+Ve0vJwEAKJAu72ocJ3bfv/p3RzL67fSoTaNrpFP/Zn8no2tdi3RZG8l95vDt
+PIXzEUzJKV2OP8/J8yPAzKTb66s3rFkyfNvLSQAAKp1/Nu19+HHge/739DMX
+2SVz1NT2V04/baPrZND+/UN0rWuRyt/De4queY5GOAfBlH1cI+2TZ0eABTj/
+/Ned490/omtbsiQnAQDoVbqsidHcq7+m8rGrj3v9j3VId+3fc8/fX//sM/rB
+WO1MlXznomtdg/PP94oxT8e7urYuPd/AnDXjWIfk2RFgoc4///ziGPiX6PqW
+KMlJAABGky5jhttbomtbk3R5B+jRNe8+uk6q+/eYe28TXesaZH7frr1G10x1
+X989x1GleTdin6F51zQ6txha8xzJxzMk2+h9HWBo55+/PDguWt+9/zbfJDkJ
+AAAr045BPbrufYmuk+r+Pebe30TXugYl/dF6jq4Z5qTiOzYHzTZZfx1YrfPP
+Xx8cJ/81usYlSZfnPd7lJAAArE26PDP0cJwmuk6q+1dWMhHpMo9B6RjpJrpu
+mIt0mX8qOtfo6pR+rr9uLi2AH38c3//1wbHz36JrXAo5CQAAaycrWS5ZyXSk
+yzPhRWOm0TXDXKRLFlk6thPtev31bbI2EcBNspLR2llOAgDA6uVcE0fXSHXf
+ykomIl2eFS+59zT3HWRK81in5K2tc5e8MwKQTVYyShvLSQAA4EfeeHp0jQzX
+t/p4tL44Fd5/bqNrhjlox3eic5DPmu+79dcBeiArGbx95SQAANCSlSyXrGQa
+KsZy36NrhrkoOc6NkI8064xsotsEYEnS47Xd/xZd41zJSQAA4Ffp8uzro2ti
+84XMkKxkGtrxU/eg0LOK71bfmvGlQ/LuCMCgzj///OJY/Nfo+uZITgIAAL9L
+lzlCHl0Xb6PrpKpvZSUTUNIPrV10zTB1KXY992btkV2yHjvAKM4//3HnePxf
+0bXNUWVO8hxdNwAADE1WslyyknjteG7pOKzxV3ggXd7nGDMf+XiHxHuWACM7
+//zLnWOztUrK27ImJ9lF1w0AAGOQlSyXrCTe+eep8F70GF0zTF1zThoxI/EO
+CcAEpMsa7/9oj83/lJNUtaGcBAAAviArWS5ZSbxU/uy7+Q3ggTa/GDIfacaR
+XpJ12gFYCDkJAAA8JitZLllJvPPPqfCedBNdM0xZGnY996NxIQCWRk4CAAB5
+0mVuEc+6L5CsJLz9vxfek56ia4Ypa7LEirGeh9+75B0SABZKTgIAAPlS3rzv
+++g6qepbWUls+5c+//4SXTNM2fnntceMpPlbT9HbBABDkZMAAEAZWclyyUrm
+0/6tbXTNMFWZ56qcd0j2yTskACxcuswdICcBAIACKW+9Es/ezpCsJLTtvxXe
+m75H1wxTlsrX/vEOCQCrlPLmWJaTAADAJ5lZyTa6Tqr6VlYS1/ZPpWO50TXD
+VGWep269Q9LMg/ctun4AGIucBAAA6slKlktWEtr2B/eo0F0qX8/94JwFwBrJ
+SQAAoBtZyXLJSkLb/lR4n+rZd7gh8zjWfN+8QwLAaslJAACgO1nJchXcJ71F
+17ok55/vhfep2h9uSF/PZde8a3Jovm/RdQJAJDkJAAD04/zzIitZpoJ7pWN0
+rUvSPt9ecq/6HF0zTE3zjki6/X7WWzsm5B0SAFZPTgIAAP1JefObGJOaIVlJ
+WLvnfKeuZT8Xn+rWuO4suk1Zn0/7undIAOCTipykOZ8+RdcNAABTlTOuG10j
+1X0rKxm/zb8V3rOeCv++rIRVaLOR1+QdEgD4TWVO4pkDAAD4QrrMZ2KcdIFk
+JSFt/tX6Cre8FP59WQkAwIrJSQAAYBgZ19bWnZ4pWUlImx8K712L5kE4/2zO
+tld2bX7SrDt07CkbObXb8fzxOdHtCgCAnAQAAIaS8uYLOkbXSXX/ykrGb/NT
+yb3rAJ//vTIfeW/zlk10GwIA8Ds5CQDAerTPLz+1z0jv22ek73lvr//evvg3
+L1d/66n9+5vo7ZyStk0eXWMfouukun9lJeO2d2lO8TpQHcfCe+hddNsBAHCf
+nAQAYLnSZR6Z5nrvkMqew+7L6SpP+ZhnZnVrx6a8tRX20XVS3b+yknHb+7nw
+OLQbqI7crORljcc9AIA5kZMAACxPm480Y4kP1xIP1GQor+nyLso2us1G6JN9
+1Hgug/dtyTsOg7zfsDYFGcWH3nOK9jibc/+8jW4vAAC+lnm/JicBAJiJdHkO
+pnQMcUqOS81O0iUXerT9i9vuNUh586t92EfXO3cpb+2fa28D1fHoO90cz7xL
+AgAwcekyB4OcBABgAdqM5DSBrKNP7+1Y5G4J440p7x2f2W/nGslKRm/vnPns
+Bm3z9Hh+Bv0MADADchIAgGVox2iXlpHcM+vcJOeaO7pGqvt2GzluvzYV97O9
+3sumr+dca+6dn6LbCACAxyquK+UkAAATky5z0OTM6bRE7+017Ta6Hwr6K2c9
+i2N0nVT377Zg/91H1zt3qSwfPvX82d/bY9Ctz3pz7wwAMA9JTgIAMHvtuOy9
+sbq1acZMd2ni75qkx/P1NF6i66S6f7cF++w+ut45S3m547VDz59979h7nPpx
+CACAiyQnAQCYvXRZ9zwijzgFfG7ptevL2Sa6j+70W861+C66Tqr7d1ewr+6j
+652z889z4bGhl/mw2j6+l5PIOQEAZiLz3kxOAgAwUan/ObeObbbQjDtuu1z7
+NflE+ze27Xjivv3bzWfkrGfet+badxPdZ5/aKKcdXH/PVCrLMLfR9c5Ze1zJ
+Ph709Jm7Lz5jF90mAADkSXISAIBZS5ecpGvm8NaO54Zc56XL3DVPbQ1N5nNa
+S2bS9t/Da/DoOunUx7KScdo557t07bWHz7x3P+2+GQBgRipykuYe2hyrAAAT
+0TEn+VgDfZLjee22NfnJS4dtzLGPvMZtt/FRjcfo/qBTH8tKxmnnnO/StV2H
+z2qOT8cv7ps30e0BAEAeOQkAwLx1yEneo/OBDtu7a69j+167/r3LuGnH7XrJ
+yXOi259OfSwrGaedS+9xN5Wf8/2LY+9xbsdWAIA1k5MAAMxfqluf5LCU67p0
+Wf/kpefcpBnnHPU9m5Q339g2ur3p1Mc5eZi+7t7OOd+lP+9xKz/j6YtjziG6
+DQAAyCcnAQCYv8Kx1x/t2N42uu4B2+Op4jr3K/uR6t7k1BPdvnTu52PBvufe
+q66Nvw/9HT//PH/x93bRbQAAQD45CQDA/KXyOfmPa7mmS5d5uprxzFMPeUlz
+LTzoOyYPxl4/dF5/mlglWUl0rXOV+V26lv3dbo8r9+6lmxz6KXr7AQDIJycB
+AJi/dsyuZM6pQ3TNgW21Kxmj/sJ+wBpz1pt5jm5LOvezrGRCbdwcQwv+7uaL
+7+l7SeYCAEA8OQkAwDKksjVKDtH1TkG6rGvSNTM59n19nDLn30qV608zHbKS
+wdv3W+H3+ZD5d7fpfjbtnplq7b7VvAv10h4fcnLzt/bfvrS/K6ebuLaf9+ky
+Jtf03SnzeuPY/t5OP09be/753M85zzQ1/+61/b0n13rT1l6zP7X99ZrZz++f
++nnruiFe+53NOee65gMAmLhUNvfWIbreqUndM5NenyFPeXMGnaLbjV76Ovdd
+sOz3HfilfUvnJXw4Z9aD7+ere2ZKtONszx3PQV/tj83f3kRv59qly7pJ+4px
+uJzrj6afd4498drryZcB+vmULnmLeR0nIP1cC/HUcz+/tfuPfh6/T+UkAAAL
+UnCtfoyudcrasYYu9z27nurIuVZ/iW4veunr3H3rGF3rHKXyeRTu3vOmr9cm
+aRyit5d5SD/Xz+p7PPXRmM7OuM6o/bxJl3yky3VFqde+rkUo6udmfLtkHtwu
+3ttz0TZ629ckXXKwQ0A/e39s+L6VkwAALEg79pFzTXdyTZfVns318r7Dvc2h
+4+dvMj/HvdMCFOxXx+ha5yiVjVG+fvF3Ng/uo3fR28r0tfvRIY031nZv/K0Z
+191Et8dSpZ9jqlF9/HHNt0+u+4bu5+ME+nkX3RZLli73WWPm2rc0+5l3TYbp
+XzkJAMDCpPyxwG10rXOSLmNatffAh9pr6HQZw3p4bxzdPvS2n2XfJ0fXOjfp
+MudNyff2+c7f2aavx7bvZizQSD8zksixtl7PVdzt59rrhqE0x669fu61n7cT
+7OdTkpn03c+7NO47Ybn9vI1um6VIchIAgMVJ+e+UmK+pvo2fU90zwFXX0pn3
+ZfpzAdJlvCV3fzIeX96+Oev+XNvc+Bv7jN97d9/MPe0+FPkeSc7+ezMnJLuP
+m/G2nOccIp2S59K79vMmTS8j+ay59txGt9Wcpcu1WfR7JI80++Emuq3mLMlJ
+AAAWKeWNqxvH697O3yvvm4quqVP+OtSb6Dahl/1qW7Av7aPrnZtUNqb19ul3
+m3vo14Lf30VvL9PSnjdyztFT0ZyvzO1Y3s9PadpZ2GfNcdE1YXk/1z43E+VF
+Pxf38Rwyz8/20e02R0lOAgCwSCl/nHUfXetSVN5DZV9bp7yx3bcht5FR96fc
+77DvcXnbfiv8nr5c/W5NNup7yZ9StzWvonnHJK+Pm2PMYQL9VaMZ8/eOSX4/
+HyfQZzVOSf6Z28+1z0RNQVP3JroN5yLV5STNszNyEgCAiUt59+jeKem/3Xep
+/NnCh3lJyl9bYRfdBvS2L+W+R9TYR9c7J4Vt2/h+9Xu1zw4bk1q5NNy46qn9
+u7ecBvg840Jf9/NQ46pvX/TzEO80mM/zcT8P0e73+nioft5Ft+WUpbrr+q79
+3PdnNfVvo9ty6lJdTnKIrhsAgDyZ1/X76DqXKNXNrfJlXpJkX6uTyp499wxw
+WdvmfJ/+/F61v9N17o1D9HYTus/1NX5+avfFXSrI39rP37X7fun5qfictVap
+v/Hzt7afm3x2U/D523SZD+rQUx1ysdvtvOuhbRvHdDnXb3PbOV3Gcz/6+bWn
+fj5Et+kUpf7m3Hrt0M/71F9+sotu06lKchIAgEVL1rUIV3nNfXPsKV3WC3XN
+vjKpLCvZRtc7J6lsrPi1p3EKWeZKpe7j56f2eLDpuaaXwu/CrX3a+1I/23TX
+sZ+ba4DnAfr50ENdjl2/9nOXc8Gx/Ru9tWm6XPcfOtZ1iG7bKemjPVOPz7Gk
+y31Fs9+UrJV2yz66bacmyUkAABYv5T0H9Rpd59Kl8vWfb/ZLwf3aJnqb6XX/
+2RfsN9voeuci5c9nN4Rd9PYTsr/VjlMf0wjvjKXL+NuxskZ5yc82rD0uHIY+
+hqef46ynyhrlJf3082aEft53OOYcott4ClJ9TvLetv+g35V0eYbqRT/30pZy
+EgCAFci8F95F17kWFfdch6vf3WT+juxrYVLZ2OXqxyoL2vW5cmzh83jINvNY
+e80a7yuS6nOSZtxmG1BvzT798X1Y7Th62241x5HmGL8JqHfXYb9ccz/vKvv5
+MHY/p26ZySG6rYP7+VDZz/uxvx9tP9fW+xzd1tGSnAQAYBXa676ca73V3u8G
+9Uvpvcxz4e9to7eR3veZY+7+El3rnJS06x3Hj+NnKnv3x3d1Rdpz8alw33if
+wvhV5X69ynH0VJeHNf8+dI2pdv+sWYthlc9lpLqcJCTz/FT3JtXN2fQS3eZB
+7VVz7Dum4Pe6U/16WLvoNg9sMzkJAMBKpLznGz3bHNM3h9J7mNz7tOhtY5D9
+5Zi7r0TXOhcpP0u+Z//p720q/sYhuh0YZV+rWa9qE133Vf01Y2/H6LpHbqOa
+PGxSa6WnyzVjadazqnH0VJeHTaqNUt27RLvoukduo9y1Hq+FZ9uftmFfsQ2r
+ey+5/U6XHrsP0XUDAFAn8zp5Uvdwa5K6rxV5yzZ6uxhkX8kd13iPrnUuKsdC
+frT31DfHE1LdeyqTGStlkP2s9Hn9Q3TNd7ajZn6XfXTdI7ZP6Xd/UuOqn/q5
+NBcLfS9m5LY5FbRL+DtDX2xL6fjwatYiSuV52GTbJpXnn6uaQ7Giryd7jgYA
+IE/muMYuus41y+yjXMfo7WGw/cQ+0H+b1nz3vnwOPNXNzTLJMVN62cdK87hd
+dM0Z21Sa/Wyjax6hTfYF7fE+k34uOT4227SJrnmENimZv2qy4+dX21Oai61i
+br2ltUkqzwNWMbdeRbs0DtF1AwDQTcp7znHS93JrUHhftuoxqbUq2AeO0bXO
+RSp/pvZhptGOPZXee5+i24JB9q/SfWEXXXPBtu1K9u808bHEjm3xvfA4Mptr
+rlSWlxyj6x24LUpyz9n0cyrPSxb9Lnoqyz0nn5NcbdemsJ8X/QxHe9z+vwva
+o3GIrhsAgO5SxlhgdI1U3auubpxizVLeukMfVvE8YA9tWjK+WTRukOreV9lG
+twm972Ml+8Euut6K7dsXbN9ix1cLz93b6Hortm/R+3FmG5TknrPJST5t36L3
+48x2KLkumE1O8mn7SvbjWW1fQTv8veIa7RBdNwAA/ci5Fo6ukT/7quZd8Guz
+ujenaN/YFuwH++h65+D88zzU96twvMV9+AIVfmdnmyOksnH0TXS9A2z/rmD7
+d9H1dtjO3HH0RY6vprJ552Z5LZbK1mJ5i653oDY4Fuznm+h6K7ex5F7jEF3v
+ANv/P7s+AwBYt4zrv2N0jfzSX9uKa3jX8QtXuF/so+udg4IxkT/GRSr+fs17
+YpvodqG3/St3XYNjdK09bGvuvj77bf203SXvGsw2D1vbtt7Y9pLsexdd74jb
+uqg5mlLZHGuzzMOutnVXsK3b6Hp73vb/XnhddoiuGQCAfq1t7GIJUtm8Jj/S
+Qp/jpHqf2EXXO3XtuF/Jd6x4XrPCsYgP++i2obd97LiWY3e6zIOfO46+mPHV
+lJ+HLeIZ/FSW2W+j6+1xu3OzwEXMf5ny37mc7bsVN7a5JAvcR9fb0zbnvis1
+u7nGvtjm0nd+F5X7AgBwkXEdeIyukZv9ljPOtrixJ+7uD/s1jlEN2J4lz49W
+fccKx14+nKLbht72sZxj+FN0nT1u76rGVwuPIbN+Bv3TdueOr57SAsZXC869
+i8g9r7Y79xr0GF1rT9u7mvcAr7a5ZM612WcGqW5dyMXkRAAA/LSm6/6lKLx/
+WcQ9DA/3iUPB/rCNrnfqCtuzeqyz4nMau+j2YZR9bBHPoH/a5uMaxp9S2Xz/
+++h6e972kuuTWe/jqSwPW0zu2W77pmDb99H1dtzWkrXLFpN7ttu+Xcu1SeX1
+2OzPVwAA/C7jGvAYXSO/9Vnu822LvX/jt33iWLAvuKd73J65Y32N4rVKrj6n
+Zo33Y3T70Ms+1ow13htPX8S7FTe2uWR/P0TXW7mNJc8mn5Z4PE5lGcI+ut7K
+bSzJw47R9Q7UBvuCft5F11u5jSX78iKfS0r59xzN92GW9xqpLA+7RV4CALAg
+a73Hm6vCe1P9uBKpICuJrnXqUnl+0enZ6JK+u7KJbid629c+9/9xruNNmduc
+O0dT4xBdb+G2lc7hsqh3DT61RclxbRddb0U/l8yfuImuecB2OBW0w6yOa6ks
+D1vUHGuf2mFT2A5z6+ddxTXYLfISAICFyLn+i66RP/uqdA2F1YzLrF3BPlD9
+DsRapPLnCzutB1R5n36Ibid63eeaMbnt3MaYKre1dHz1EF1zwXaV5CSznn8q
+oz02qSxP2EXXXLBdJf28j6554PbYllx/zOUYl8pyksVfXxdeF82pn2uuv74i
+LwEAWICce77oGqm6b7vlFL0dDLZ/5O4Dx+hapy6Vv+fReUwglY0df4xFuB9n
+llL5u1uH6JofbE9pTrKK72/FOGSn3HmE7Sm9DnuLrnmkdil5V6yxi675wfY8
+FfbzIbrmkdql5Npo8nlJxfEp+3u/huM7AMCSZV77bqPrXLNUPt/DbO9Rqdo/
+NgX9f4yud8ra71rJ9+nU0+fufZdZk4p9fpLjT6nuOYZtdN0jts+hsG0OE+3n
+0vHzRa459EX7lGSFjX10zXe2o/S90kkelwZqm9J7kfepXqdUHJdKj/Gr2S8A
+AJYo5T0PNuln/ZYslT+v+sgpepvofR/ZFvT/Itce7bEtS+e5O/T0uTV56KmH
+zz225wD39IyucrxqG133Vf016wGv6nqq8hqm+feTeCa9rb/0vYkfU9pPR2qn
+TcU5rDn/bKJrv+rn3DXMr49Hk9hPR2yn0ncCf6QJ5Z9t/TXHo/+pYv+QlwAA
+zFTmvf4hus41qhhjyL1P3UVvG73uJyXj+/voeqcslY/d7gI/u9N43Kf95pQm
+MmbFelSc4yYx9pYu423Hmrqj2zywn2vejd0H9/M2lc+PuNprrFT3jlXz70Pz
+w3SZi6lm/9xGt3lge5W21Sm6vdrjSc3++f3qbxwKf19eAgAwQynvmfRTdJ1r
+k+pyktz7VP25IKlsLptVPdNc0ZanwvvgTY+fvakYfzj2tK2n6LZnnSrOddfn
+vP2Y41Dtd7R0rOzDIbqtg/u5ds215ji1G7nWpp+Plf286nc3U/0aEM0xYDty
+rdsO/TzqPjk1Hfr5GNDPu1SXed58byjJSwAAViHzWm8TXedapLqxo237u3v3
+eetS0Od/7ifcbMfSuSVOA9RQeg9edWy+sc88Rbc/61V5zrsez9oPeY3SHhtq
+vpsfDtFtPAWpPi/543ibLu9BDzbmmC5j56Xz7Ojn39tx16ENm+PAboT6jh1q
+HLS+uejYz037D3bdkS7nlF2qy0g+zit351dL8hIAgMXLvGfwPPo4fVEzZrT7
+9Ps5YxFv0dtKb/tMyT3/NrreqUrlaw8cBqihai7wws/YfDpGHKPbHirPfZ81
+49y7Psak2u/Jcw81HaLbdkpSt7zkzzZNlzkE++jnpp5mPZJTx5r20W07Jal+
+XqsP7x/93FM927afu+57u+i2nZLULS/50X7vmn7pZd2X9rhw6GHfe1hPkpcA
+ACxaynsu3dj68P3wPZXfr+8r+7Oxjd5metlvjrn7S3StU1bSjkOOmVTU0dgU
+/P3Pz02vam1apitd8pKa/f/euFQzBtfkHduvviPtuXfbnjsPFefhe1Y9H9MX
+7b1J3TOoD8e2n3dtH94di/zUz81xsOu4+aDngrlL/eRi1/3c9FszFr598Lnb
+9t/tU3/Hk/dHn7tWqXsudt3Gr1f9/NV7Hd/aft613/+++vntq8+9Uceh4u/L
+SwAAZiDlP8tsTG3YPii91zjc+Vu575a8Rm83vew72ftNdK1T1X5nSu+pNwPV
+sq2o5ZD5t3effs9YLpPTjn31Me4VpTkm76LbccraY26X+a6mIOv58zVL/eZi
+UYrGz9co1T3rNTXHVJFjJHkJAMBiZV7jHqLrXKJU9w77l32R8t8t2URvP533
+n+z7s+hapypdnmEs+f6dBq7nWHFM+HIsJ/0+99a7+3Wmqv1O9vVM+piMq5b1
+c+nch1NxdPws6ue55p8v+jm7j+ecf+47bvuh8PNOyXkCAGDyCu5jNtG1LknF
+9XXjkPF3N2PcHxC+/+T2c+MYXe9UVXwPB30fI9W9W3I3C0u314KwnjuTluY3
+9raPbrM5Spdn0o8T6L8cTX5n/b66fm7Oa6cJ9GGOps5tdJvNUZpXzt1btp3K
+ryO9lwYAMHEpf8z1EF3rEqT6eQmy2z/zuv0U3RZ02o+2BfuO+Zbut+Op8Hs4
+eM6Q6sYODzf+zq2c5Bjd5pArTX+MtfmubqLbae5Sf+seDOWQvGPQtY+b89F+
+4v2818+99PNhAn15zyCZZ8U2y0sAACYu5Y/NbaJrnbNUPx5wKPyc3HVottFt
+Qqd9Kfv+P7reKSr4nlwbfBwl1b1b8qM9jj+1v/9841jz7hjOHLXHu1Pl92II
+R+fP3vt4imPpTT8bz+y3nzdpemPpB+fGxffzexo4C6vYXnkJAMCEpfyxuWN0
+rXOUus0ncqj8zJx3V6r+NvFS/ro0jV10vVOUyufLH23dlw7Hi6+Ye4tZS5fM
+JHK96OZ7uY1uhyVrr5eaY/MpsJ8Pydj50P28SbHZWPO5L/p5lH4+BPbzKY34
+vlCSlwAALErKf7fEfM1l7Xrr+e5cu46f+/AaPbp9qO7fkvuxbXS9U1RwzPsw
+2lxmqWw9mhyH6PaGvqTLO2EvaZzx9FN7Pt1Eb/fapMt7cocO11Al3tp+NgfT
++P28S+OtT9R8zi56m9cmXTLQXRon635vjxshz4ckeQkAwGKksnlfXNM9bs8u
+a5a+d72Xa+9Lcj7Ls+YzVLhvbaLrnZqC70fYdyWVvTv0lWZswvgfi9Sea/cd
+zre3zr/NeKp8ZELSJTd5Sf2NtZ7SZUxzp5+noT0vf+RjQ/Sz8+AEpJ+5ySH1
+l3e/tceHSdzTJHkJAMBiFIw1nNxz3G3Drusanvq6Xk55z+kdotuMqr7Nvr+M
+rnWK0mU8pvS7OfoxL3UfL3p3rGZN0iU7ab7f+/ZcfHzgpf2322TMfDba/toV
+9PP+qp8dE2cgXa6nm/56bvvu9UEfv7b/7lk/z8eNfn70Xf7o5+b7v42u/4vt
+erlzXSYvAQCYkVQ274tnlX9tuz7WJT322aYpb/1v83DNUME+dYqudYpSeZ45
+2loln+r83uGY4r4bACBA5n2Y6zYAgIlLZfO+rD4v6SkjaewHqi3ns12Xz0gq
+yzSP0fVOUSqf92G0tUpu1PpUcXxpjs2b6HYGAFgreQkAwDKksnlfVjkm145X
+H3rISJox2+2AdebMw7WPbk+K+nQ7hzF+eu3z7wX5zj6tPMMGAJgCeQkAwPyl
+8nlf3occ75+SdHnGOyd/yBrHHnpMM/P6PGR+Iar79LlgH9tH10tv/f6t7ftb
+WfZbshY1AMDkyEsAAOYv1a19/P+zd/fWjTNtmKArhA6BIXQICEEh0NgAZGwA
+MMdUCLTGlr3OIgSFwBC0a4w157xDNKButVoSq4ogHvxcPOcyvu9tkQ8KIAHU
+japqo+u+U1v8HHON80QZyXmubCnlz8PlOfSVSGXz5D1E1wsAAHsmLwEAWL/C
+59dnzwHuvO0/xz7pkvnIsvKkuXOJzG3Qp74Sl1dXcLw10fUCAMDeyUsAANYv
+DWty1GQC3Zr6adMw/uJh3N7zxPnIW3scgratzajPuhYrUZLfRdcKAAAMKvOS
+JrpuAAD+uCEv+W/MHfrxKYua4ykNa7P316pPJX3PFV6ir29T3lrgXfQ+IXt/
+Zt9bRdcKAAD8UZGX9I7RdQMA8MeNecn73KCdMztIw3iRZsxr+lykS2Xr1t+S
+ER2j99u7drhac3SNZO3HQ8Ex2EXXCwAA/E1eAgCwfqlu/ZJr2cnzmJ88jplG
+jeP4Hr1TGvKQe44VWU1G8m7fdRm1N9F1cnU/NgXH4im6XgAA4F9JXgIAsHpj
+X+0c4zLWps8iFrs+ehrG1FzbhsfoOrm6H0vyyja6XgAA4HPyEgCA9UvDvFbd
+AvKJaH1mdEpBa7YX7rOHjO05RdfJ1f3YFhyfi83uAAAAeQkAwFak4Rn3PY4x
+6cZr2kWtV39lXx1ytiu6Tq7ux67gOG2i6wUAAL4nLwEA2IY0jDHJmd9p7fr1
+T/ps6BDd5jfsq6vbGV0jV/dh9jo80bUCAAB55CUAANuRhnELpwVkGlN6Hq9Z
+D9HtO9E+6jK2eRPbulUFx+5rdK0AAEC+VLc26DG6bgAAPpeGcSbtxXkBWUep
+bqy9iW7HO+2bU0YbbHLbt+Dy+llyLEfXCwAAlBmv+eUlAAAbM17nPS00N3kZ
+s4PHveQDKW9d8MfoOvly/z0UHN9P0fUCAADl5CUAANuWhjm6jmN20s2Uh5zH
+zzqNOUHf1/wzui0C90GT0WZtdJ18uf9ysi77EQAAVk5eAgCwL2mYr6sZtTdq
+3vkRvW1LlJmVPEfXyZf771Rwn9RE1wsAANSTlwAAwP1kXFt30TXy5b7rCu6R
+DtH1AgAAt5GXAADAfWRcV5+ja6R63/0WXSsAADANeQkAAEwvZ2xCdI18ut8O
+BfdFXXS9AADAdCrzklN03QAAsFSyknVKeWvNuCcCAICNkpcAAMB0crKSZK2L
+xbm82oL7oTa6XgAAYHryEgAAmEZmn3sTXSf/7LdTwb2Q/QcAABslLwEAgNvJ
+StYpczyQcUEAALAD8hIAALiNrGSdSu6BomsFAADuT14CAAD1ZCXrM94D5d77
+dNH1AgAA85CXAABAHVnJ+lxeD+57AACAz4x5yYu8BAAA8l1ejxnXzcfoOvlr
+n+XkW2/a6HoBAIB5XV4/5CUAAJCvHzOiv31dUtm67k10vQAAwPzkJQAAkE9W
+sj6X17ngXudHdL0AAEAMeQkAAOQxB9e6jPc6ufc4r9H1AgAAseQlAABwXbK2
++6pkjgN600XXCwAAxJOXAADA92Ql65I5DsjcaQAAwF/kJQAA8DVZybr09yoF
+9zXH6HoBAIDlqMxLnpN1EAEA2DhZyboU3tf8jK4XAABYlsq85EVeAgDAlslK
+1qXkfia6VgAAYJnkJQAA8LfLq8u4Jj5E18mvfdUU3Md00fUCAADLJS8BAIA/
+crKS6Br5va9K1nV/iq4XAABYNnkJAAAMZCXr0ecfBfcvj9H1AgAAyycvAQCA
+rPUvXqNr5Pe+upprvdNE1wsAAKyDvAQAgL3LuP7tomske18ZCwQAAFSRlwAA
+sFeX109ZyTqksnXdX6LrBQAA1unyOslLAADYk8z+9za6Tn7tq5J13U/R9QIA
+AOslLwEAuK+xb74Z+33bL7z9m5/R9W7d2N6ykhUovFexrjsAAHATeQkAwDTG
+vKPvi+8uXguvsd57Hd/jeXy/BznKZPvoKaP9m+g6+bWvSuYNts8AAICbyUsA
+AMqlYR2445hp1OYipV7Ga7dH/cNV+6zLaGO51AKUfC+iawUAALZDXgIAkOfy
+OozXTreMHZk6P+nHSzy4Pru6767us+ga+bWfmoLjv4uuFwAA2BZ5CQDA18b+
+25xxCdH6a7Q2GR/xcf8dctouuk5+7au24Hh/iq4XAADYnsq85BBdNwDAvaQ/
+40iiM5Aar2PtD9HtGC0N426utdcpuk5+7auSee2O0fUCAADbVNEX0N+De24R
+ANicNKwLspS5tuQmt+3LNqON2ug6+bWvzgXHtfsQAADgbuQlAMCepWHd9m4B
++ca99H3R/Ronh+i2nnGf5uzPJrrOvUt5c6X9vgeJrhcAANg+eQkAsEdpWJdk
+K2NJcvQZwubHmmTuU2vxxe+nnLnSfh+70fUCAAD7IC8BAPbk8jpOmEH067r1
+6y60o+YTx3f/vUuxY1nOYz2bywv669Oc/RVdJ7/21VPBMdtG1wsAAOyHvAQA
+2IMJcpLf64HcmjekYQ6wPkt5HPuOuzTfWJf+c9otZSZjO17b7lN0nfzaV13B
+sdpE1wsAAOyLvAQA2LLMvvSv9GNHZpnDKg1rOTy8y09kJnnt9pyxvcfoOvm1
+r0qO0dUfmwAAwPrISwCALUr140n6a6PDAupvxuzk5Y6ZyWP0dt7YRjljcsL3
+5d6Nx3LucWnONAAAIEwqf+ZSXgIALFZlTtJnEk107V9sz49xm3LGUZQ6L3W7
+r7RJTv/7ObpOiu81TtH1AgAA+1bRpyAvAQAWJw3rfZeuAdJG1124jQ93yE26
+tKIxGClvrfBTdJ382lclx+oxul4AAAB5CQCwZmkYf1EyZ1V/LTPLmiR33N5j
+4TZfa482ersyt/2csT2r3bdbksqyS/cWAADAIshLAIC1yhxrsMlrmDSsD38q
+7Jf+ysuS2yYNY4dytsMa4evZV7++k9H1AgAAvCcvAQDWJpWtH73Za5c0jDXp
+14c4T5CZLHLt98xMrIuuk+L7iufoegEAAD6SlwAAazHmA7nZwG6uWcbruVsz
+ky4tbHxG5jYtMufZmzSMdco91troegEAAD4jLwEA1qDvYy24XtndtcoEmUl/
+jddEb8e4LblzOh2iayU713rTRNcLAADwlcq85BhdNwCwD2kYU5K7Rscxut7g
+tmoL2mqRYzVS3vxbL9F18mtfHUqOr+h6AQAArqnIS3bfFwEAzCPljymxFsJ/
+v7Ol0w15Sf+3YXNyZWY94ZkOxfcQXXS9AAAAOeQlAMDSpPwxJa+R/ftLdHk1
+/fiLyrzkJaI9C65HD9Hty6/9VZLJtdH1AgAA5JKXAABLkvLHlBhncHsbfpaX
+zLr2SxrWmb9Wl/FDC5GsVQIAAGyYvAQAWIrMvthzdJ1Ll4b10mvGmLzOlZek
+/DXdj9Htya/9dSg5lqLrBQAAqCEvAQCiXV4PrkEmb9OcddND8pKUN5/Ta3Qb
+8nt/ldwvvETXCwAAUEteAgBEyuw7P0fXuTZjBpWzBsxseUka1qXJqeMpuv34
+vc9yvp/2GwAAsAljXlJ6L32MrhsAWL/MaxDrlNS1bc2cXHfLS1L+miqH6Lbj
+9z47Fxw7D9H1AgAA3Gq8l5aXAACzubyazGuOH9G1rtU4luM5Oi8Z68i51rSm
++0KkwrVKfE8BAICtkJcAAHPKHGeg73yatj5V5CWHmfd1r4luK37vs2PB8WKt
+EgAAYFPkJQDAXC6vznXGrO39WHiN9zLFWIGUP6ZEf/uCFOZr1ioBAAA2R14C
+AMwh8xrDvD7TtnnJWIFeN8Fntq4n1yeVrVXSRNcLAABwD/ISAOCexmsN4wxi
+2r40Lznd8FmHzM84R7cLVfvtl+h6AQAA7kleAgDcS2Z//Sm6zq2qyEuOlZ9z
+cg25PqlsvrYuul4AAIB7q8xL2ui6AYBlS3nzMj1G17llFXnJz8L3bzLf9xzd
+Fvyz755d+wMAAPytMi85RdcNACxX5niDJrrOrcvMrH5nGqlg/Zg0rA1vTMkK
+jd/P3Ov/JrpeAACAuchLAIApXV5dxrXEIbrOPcjMrd48Z75n7hxOXfT28+1+
+/DnmaV99X1+jawQAAJibvAQAmEpOVhJd455kZldvHq6818GYhO25vH70+/7i
+Kf0ZM5SVnQEAAGyNvAQAmELKmJ8pusY9GfvBz5nXdv214JdzcRXkLvrZV2zM
+xA7RdQAAAESRlwAAt8q4djhH17g3hdd4n+YcKX/urVf97AAAAKydvAQAuEXG
+dUMXXeMeXV7Hgmu7hw9/W3J92EZvKwAAAExBXgIA1MoZdxBd4171Y0Yyr+vO
+6d1cXCljXrXRS/Q2AgAAwJTSMLd17n2xvAQA+CVlrI0RXeNepbK1S9rxb04F
+14JN9DYCAADA1OQlAECplLH+d3SNe9bnGQXXdW3Bv32K3jYAAAC4F3kJAFAi
+Jyu5+Bld5571uUbhtd3VubfSuzm7AAAAYIvkJQBArpQ3Z1MTXeeejdd2pWvT
+yb4AAADYPXkJAJAjc96mNrrOvbu8jhPlJI/R2wIAAABzkpcAANdcXg8Z1wfP
+0XXya191N+YkXfQ2AAAAQAR5CQDwnX4+poxrg9foOvm1r5obcpJzskYJAAAA
+O1aZl1jzEwB2IuWthWGNiwVIeevL2H8AAADwCXkJAPCVfo6tjOuCp+g6+bWv
+DhU5yTG6bgAAAFgKeQkA8JnL6zFnDqfoOqkaVyLjAgAAgA/kJQDARwVjFZro
+WvesIifpomsGAACApZKXAAAfZV4bnKLr3KPx2i1nnrSPXl2/AQAAwNfkJQDA
+eylvHq7eIbrWPam8ZnvvGL0NAAAAsGTyEgDgTcqfh+s5uta9uLx+jmNDanOS
+X9du0dsBAAAAS1c5p4O8BAA2KOWvh9FE17p1/XiQCXISY4EAAACgQEHfiLwE
+ADaqz0AyrwPOrgPutg9+VFyXXdNGbxcAAACshbwEALi8uszrgFN0rVuThjm3
+blmb5MtsK3rbAAAAYE3kJQCwb2N/fe51wDG63q3ox35U5iC52crP6G0EAACA
+NZGXAMC+FV4LPETXu2Y3jiXp99OPzL9/jN5WAAAAWBt5CQDs19j/nruu+Ksx
+C9Vt/FSZkfSe3r3XY861WvQ2AwAAwBrJSwBgv/rxIoXXAcfomteib6uCLOqz
+bOr44f0OmX/rOg0AAAAqVOQlZ8+WAsA2VFwHtNE1L9mYkZxvGEvy5XVWypuH
+6xjdBgAAALBWFf0k5uIAgA1I+WthvNcZv/BPO96akfSev2vXlLc2/Cm6LQAA
+AGDN5CUAsE9pWHu8dL6o/t/vei3xMWeaIiPJastxP10dlxLdLgAAALB28hIA
+2KfKvKTXj0lpousPaKtTZXt91n7Z11KZn3mIbiMAAABYO3kJAOzTDXnJW5//
+MXob7tg2h37sRyqfr+y766e2oo7njPfe7H4AAACAOclLAGCfbsxL3q4J+uuI
+h+htmaAtps5H3nSpcuzHWM+193+KbjsAAADYCnkJAOzTBHnJ+2uD57F/v4ne
+rozt7tcfeeizhnT7GiSfOd+aIaW8NUu66LYEAACALRn7CuQlALAzaRhTMfV4
+iv/G9+yfx2j7/CQFra0x5iLNmOOc7pSNvL8+aies/epnRh8/AAAAsDWX11Fe
+AgD7VPHcxC0ZSjd+XjtefzS1eUoasp63v38c3/M0fsYUY2ayM5KLHxPvky7j
+s12LAQAAwMTkJQCwX2PecJ4pX9iCu2Qk7/ZHTn51jD5uAAAAYIvkJQCwX2mY
+s6pdQA6xZOc0jGG5S0bybl/kXJO10ccMAAAAbJW8BAD2LQ1zW50WkEssSb9+
+/U1rthfugyanpuhjBQAAALZMXgIAjJnJU5pv7Y+lOadhnM0hqP2v1ddFHyMA
+AACwdfISAKCXhrm5+uuC5wXkF3PkI09LuKZJGRlVdI0AAACwB5V5SRNdNwBw
+Hx9yk62MN+nSsAbJIbp9P7R1JysBAACAZajIS3rH6LoBgPvrx1+M1wpPOX37
+C/A61tmmhT/fkfLG8Sx6GwAAAGBL5CUAQK40rHPSjHnEW4ZyDshFXsa8oa/j
+IS1s3EhGO7ayEgAAAFgWeQkAcKt3OcrDmAW86So9vXuPh/G9f0Rv50RtlZOV
+HKPrBAAAgL2RlwAAzGPMfa5dZ7XRdQIAAMAeyUsAAO5PVgIAAADLJi8BALgv
+WQkAAAAsn7wEAOB+0rC2y7Vrqy66TgAAANi78XnHV3kJAMD0ZCUAAACwDpfX
+T3kJAMD0ZCUAAACwHvISAIDpyUoAAABgXeQlAADTkpUAAADA+shLAACmIysB
+AACAdZKXAABMQ1YCAAAA6yUvAQC4nawEAAAA1q0yL3mKrhsAYClkJQAAALB+
+lXnJKbpuAIAlkJUAAADANshLAADKjddQ166ZnqPrBAAAAPLISwAAylxeTcb1
+UhtdJwAAAJBPXgIAkE9WAgAAANskLwEAyHN5PchKAAAAYJvkJQAA1/U5SMY1
+0jG6TgAAAKDOmJe8yEsAAD6XmZU00XUCAAAA9S6vH/ISAIDPXV7PshIAAADY
+PnkJAMDnLq/u2nVRdI0AAADANOQlAAD/ylnfLbpGAAAAYDryEgC4n3GdsIdx
+/Yt2HK/wmed3/6a5OETXvmcZ10JddI0AAADAtOQlADCNMRt5y0RKzqtf9sm/
+5SfR27YXY1YlKwEAAIAdkpcAQJ1+DMjF08V5onzkWnby2Gcy0du9VZfXMWM/
+tNF1AgAAAPdRmZf0c4b8iK4dAOY2jj+YavxIjfOY0TxEt8WWpGEcz7W2P0bX
+CQAAANxPZV7yIi8BYC8WkJF8pl+L/JTM1TXF/s3Zt9oZAAAANk5eAgD/SsNc
+W88LyEVyx5scottsjcbc6ds2jq4RAAAAmIe8BAD+SMMaIVf70BeoS+aLKtnP
+h5zrneg6AQAAgPnISwDYu/FcuIaxJNf0OU+bjDW5tr8fMtryFF0nAAAAMC95
+CQB7dXn9rDgHrsFJZvLlPn/KaL/H6DoBAACA+clLANibMSeZYs6tlzGb6Ofw
+avr3/eLzmlE7/vs5MpouWaP8437IaXdtBgAAADslLwFgLy6v4wQZRP8ehxvr
+6M+9/ZxQ/ViHs8zk7vv9R057RdcJAAAAxBufdZWXALBJKW+9iq+cbs1HrtR2
+SMP4lO5Omcld61+6zH3fRdcJAAAALIO8BIAtSvXzbs2eMYxjII7pPuvOP+3x
+vJ3y1ippo+sEAAAAlkNeAsCWpGHMRmlOck4LmLsq/RlvMuUaJ31bHKO3beZ2
+PGe0S/j+BgAAAJZFXgLAFqS6NblOSzynpWFszKki9/lKl75Yj35Lxna72h7R
+dQIAAADLJC8BYO0qzmXH6JoztqnPfx4zx0rkaKO36c7t9ZjRBs/RdQIAAADL
+JS8BYK1S+Vrux+iaK7exmyAvednqGJOUN67oMbpOAAAAYNnkJQCszTj2omSu
+qmN0zTdubzNRZrKpzCAN673kbPchulYAAABg+SryktetPp8KwPIVnreO0fVO
+uN1TZCbdVp55SHnzb71E1wkAAACsh7wEgDUY84JdjqP40Aala9p/PIc30dsx
+QTvktMFTdJ0AAADAushLAFi6gnEVm1/Pux8zk8rmIttMltRff2Ruo+sUAAAA
+oJi8BIClKhhTck4bmWcqo036tVuebshLTtHbULndOdt8jq4TAAAAWC95CQBL
+VDCmpImuNaBt+nEWtfNyvawtW0p542lWO24GAAAAWAZ5CQBLUjCmZPNzb11p
+p3breUka5h7L2aZDdK0AAADA+slLAFiKgnPSIbrWaDeMMVnFeTzljS/qousE
+AAAAtqPi+dRV9LMAsB5pWJMj5xx0iq51SVLdOiaLPo+n/DXdj9G1AgAAANtS
+MNfFm/9vyf0sAKxLwXnoEF3r0lxeDylvbY9V5CUpb3zRa3SdAAAAwDZV5CX/
+a6n9LACsy+X1bEzJTe1XMyfX4vKSPgvLrP0pulYAAABguyrykv998X9F1w3A
+eqX8+bea6FqXbGzHnMxpsXlJyp9T7BBdKwAAALBtFXlJ7//VbwFAjTTMIXXt
+PHOOrnMtUt4cVh/zkh8LqPtHyptL7Dm6VgAAAGAfKvOS/8bnQcP7WwBYj8yx
+BOZcKmvTx8Lz90v0+fvyajNrbaLbFwAAANiPG/KS/pnQx+j6AViHlLfORhNd
+59pUnMe7wFpzx5SE1QgAAADs1w15ya/5UvRtAXBNzjklusa1qjiPn4LqPGXW
+d4xuUwAAAGCfbsxLfj0Dmha0biwAy9Fn6sYS3L2NS8/jx5nrO+Q+gxHdlgAA
+AMC+XV7/9415yX/jM6PWMgHgt5S3rru1Sm5v59K8ZLZnHC6v5yVmOAAAAACf
+ubz+nwnykn4u8jZ6WwBYhpS3nvcxus4tKMxLznM835DyxhUZUwIAAAAsRhrW
+Xf1fE+Qlb30wD9HbBECszKykia5zK1L+uiC95xnqOWfW4hgAAAAAFqPwmdQc
+nf4PgP0azwPXzhWH6Dq3JOXPedV7vGMdOTnZr2uF6DYDAAAA+CizX6vUSV8Y
+wP7knFOia9yaNIwTfck8P7/e4/ychvXcX40pAQAAANYq5c8tXup1fMbU+u8A
+OyErCWv3kqyii9jvb89SRLcVAAAAwFdS2Xznpc7JOr4AuyArCW37h4Jz82Rz
+cfXvVfAMxSG6nQAAAAC+kob5O3KfR63Vzw/SRG8rAPcjKwlv/6eC3OLmcZ+p
+bDzL3dZKAQAAAJhKwXOht3r2XCnANslK4qX8tUtOM37WS3S7AAAAAOQq6POY
+QjvFM60ALEdOVpKMMbz3PvhZcC6u3hcpfwxL72d0uwAAAADkSvdb5/0r/bwd
+x+jtBmAamf3nTXSdWzc+j5BzHu4q379kbZSn6PYAAAAAKJWGObLmzEt6Z31n
+AOuX2Udv3Yp59sU58xz8UPi+h5S/RklfgzGkAAAAwOoU9oFMrUvWMgFYrczx
+BqfoOvcg5Y8VPRe8549UNl+nubcAAACA1cp8LvienjyHCrA+KW+tDOt8z7c/
+cseKHjPf71RwLm+jtx8AAADgVil/7o57edXPArA+mb/xh+g69yANY0UnGVuS
+ytZy76K3HQAAAGAKqWzd1nvqM5uiudQBiJOG+RQnGcfAJPujzTzffrlP+v9W
++KyDsaEAAADAZmT2d82lr8W85wALl9k3/xxd516kYY2RnHXIui/+viQn6TXR
+2wwAAAAwpZQ/d8ecTp5XBViulLdmSe8QXeteZOZX/+QcqXyMaRu9rQAAAAD3
+UNC/MqfXsS6ZCcACpbxxDG10nXuR8seWnN79zc/Mv/nnbwEAAAC2pqB/JcI5
+mfMeYHHSMAYwJ/eWec+3T3LXZv9RkZO82JcAAADA1qXyucrn1iXzowMsRsqf
+h6uNrnUvUv68ml3hOVjmBQAAAOxGRd9JhFMy/z3AIqRhrEFOP/shuta9SHnj
+fUpzkp/R2wUAAAAwl4JnhJegTZ5xBQiV8sckdtG17sXl1chJAAAAAG5zh+dR
+76nvwzlGtxnAnqVhXamc3+zH6Fr3omCfXPMQvS0AAAAAEdKy13n/Sj8HTBPd
+dgB7lMrWuzJGYZ598jjBufUYvR0AAAAAkSbqY4nQJXPiA8wu5a93ZU6nefbH
+QU4CAAAAcLuUt17vUj0la5kAzCaVrXclL5lnn5zlJAAAAAC3SdOuDRuh74sz
+Nz7ATC6vVl4SLw1zaXaV5037BAAAAOCDtK513r9yTtYyAZhFKhuT+Or3efL2
+f0h1a47JSQAAAAC+kIb5zte2zvtXOv1AAPeVhrm4Ss8bbXTdazeer7vK8+OL
+8yMAAADA91LZnCprcErWMgG4mzSMbdBfP197txX51F/nxehtAAAAAFiDVL8+
+7FL1fUptdLsCbNXldaz8fX6SZxe18RTn53P0tgAAAACsQVr/Ou9f9g/1fU3R
+7QuwRTfkJb/ybJnJl+3an5O7ic+Hh+jtAgAAgCm51+Ve7tAvsyT9tjXRbQyw
+NTfkJW+ZySmZm+utLe+Rkbx5iN4+AAAAmEr6sw53P+e3ZzGZ1Hh8RWca99b3
+yR2i2xpgS27MS9701zaPe/yNTtPNtfWdNno7AQAAYAp9NjL2I7zvUzhE18W2
+pO2t8/4Zc78ATCwNYyJuWX98V7lJGp5PeJqozXLeo4veZgAAAJjCh5zk/b2x
+eSuYTBoyufMC8ow59Nt5jG5zgK0Y+/8/u165NTdpt3C9M7bP48Rt1OctPzP+
+3Wv09gMAAMCt0jBv0HfPEpqDmsmkaeZSWZO+z6qJbneArUj3G6P4tr5Jf546
+RG9nZlv0OcbU+cg/566UN7bEeEoAAABWKw3PC+bcMx+ja2U70rbXef/K81r6
+3gCWbswI7n0uOY+/3Y9pIZn3uN3HNGQ65ztsc5+JPH7yuTltvYg2AgAAgFKp
+/Pn+NrpmtiHlzeexNea0A5hYmmfd8vf68RZ9ftJePKRhHZXJx1OkYc7K/r37
+nKZ/rqWbYdvar7Yl5T1bc4w+HgAAAKDUeH9fcx99iq6dbcjsd9kKOQnAHaX5
+M5PP9DlKN2oLvf3d1HNpZV3bpSvjHtOQ2Vx7nzb6OAAAAIBSaXhe8bnynrq/
+lzcnNTcZj8Gc+c+3oIlub4A9SMOzIN0CfvfX4JQy54ZMwxiXq+8Xvf8BAACg
+Vvp+Xffv9M89yku4Scp7TnXtjtHtDLA3fQaQhvEa5wWcB5bkNX0z19Y37Zkz
+d2YXvd8BAADgFqm+v9q8Qtwsxcw3MpdjdPsC7N3Yz9/P+3hewHkhSnfrOSnn
+M6L3NQAAANwqla/z/qbPS5ro+lmvlDevxxodo9sWgL+lP7nJlnP6N+c0jCE5
+TNR2Vz8zev8CAADAFNLQZ127fsQxun7WK9XPBbdUx+g2BeB7aZin65iG9du2
+sn5WnwH1WdDk435TRr4UvU8BAABgKml43rK2v+Axun7Waeyv2ko/1TG6PQEo
+N14D9fOSrik7eR3r7es+3Ll9umv1RO9DAAAAmNLl9SPVz01xiq6fdUrDPCHR
+fU5yEgB+SUOO/zCen7q0jPykvz47jdnIrGvG5WQl6c55DQAAAMxtzEty7ok/
+0z/f+CN6G1iftO51d4/R7QfAfY3XR00a5u5qx2uebuLz13l8z9P4GQ9z5yJf
+bPtzRu1NdJ0AAABwD6l+HYkXeQml0nrXeT9Gtx0Ay5CG8ShNofAsJGO7WlkJ
+AAAAe5aGNUJrn4tc/L0/y5LynltdkmN0mwHAvclKAAAA4Nf98bGyH/lVXkKJ
+NDyPG51/yEkA4B1ZCQAAAAzSMF92zbqmr/qUKZHZHxPtGN1OADAXWQkAAAD8
+cXn9rMxL9C2TLQ1r554XkIc4lgHgP1kJAAAAfJSGOZJeKvuYT9H1sw5pGMcU
+nYnISQDgP1kJAAAAfGZ87r86L+n/PnobWL7Lq1tANvLe/4huEwCIICsBAACA
+z415yamyz/lFXsI1aZjzLTofMa4EgN27vJ5kJQAAAPC1G/OSQ3T9LFtm34y8
+BADuKGWM9YyuEQAAAKL1fceVfc79OvE/o+tnudIwful1AfmIvASA3ZKVAAAA
+QJ4xL6np0+7/5iG6fpbrhixOXgIAE5CVAAAAQL40rC9ROwbgGF0/y5WGOdui
+sxHHLQC7dHmdZSUAAACQb8xLavu1n6LrZ5kur2YBuYi8BIBdyjgXdtE1AgAA
+wNKkYY2J2rzkFF0/y9QfGzPkHv1nHOUlADAYr+tkJQAAAFBhvK9+ruyv7vq/
+j94GliXdf53307vPaio+6xjdRgBLk4bxps1nomsjex82JedQAAAA4F+pfizA
+i7yEjy6v9t45ybvPqll/5xjdRgARLq9DGsblPaWMdcA/6Mbrhcf+tzd6W/hn
+3z5k7MM2uk4AAABYurHvo6b/+lWfCR+ljPVlb81J3n2WvATgC2kYb3C6w+9y
+/7v7PGYvnpuI38+tcx8AAABMI9WtAfHWX9JE189ypGnXeT9lfJ68BGCUhvkQ
+2zvkI9959rsaus9PGfuoia4TAAAA1qKyz1nfM/9I9WvhFOUk7z5PXgLsWhrm
+2MrpM7+n/ne4TcaazL3vu4x9c4iuEwAAANbkxrzkMbp+lmHss5slJ3n3mfIS
+YHfSn3EkkRnJp7/j+udnOwau7o/oGgEAAGCNxn6Xl7n6uNmmG/ruTjd8prwE
+2I00rOld+3zDXPpxhk10W21Vyns2oYuuEwAAANZqzEu6G/pFzL+xc+MxdC49
+dib43Jq85Cm6vQByjb+vU8x1OKdOZnKXY+Eho+1P0XUCAADA2qX6uc9f5CVk
+9uFMfsxU5iWn6PYCuGb8fTsvIPu4JTP5Gd2OW5HyxnCaIxUAAAAmkHkf/pmz
+/hBS3vikybM1eQmwNZfXseJ37Vpu8Tye5z96Hv/7veb4OiXrmUxxTOScY5vo
+OgEAAGArxv6Zmr6QV3nJvqXrc6nfbQySvATYihvOw+89j+9zKPzsw/h3fb5x
+njAv6X+f23udA/Ygp52jawQAAICtSfVryPZ/c4yun9Bj52nunOTdZ8tLgFW7
+MSd5Gf9+st/a8Xf1VHlN8Jk+f3mIbue1ubyanP0fXScAAABsUWW/85tjdP2E
+HTc/PjluZlvTRl4CrNUNOUmXZph7aazvPFFm0td8iG7ztUh5c6Q+RdcJAAAA
+W5WGuTheKvtBTtH1E3bcvO/vmy0neff58hJgVSpzkpCxnGkY49BNlJm00W2/
+BpntPfuxAAAAAHuShnEC1XnJ3P3kLMPYrzN7TvLu8/u85CwvAZYu5c2v9NFz
+9Pl1wsykP1dY7+z7ts5px0N0nQAAALAHY+5R2wciL9mZMauI7seryflO0W0H
+7Ecaxm+WjoM7Rtf9YRumykweo7dlidKwhty1tjtH1wkAAAB7cmNecoiun/2R
+lwBLVvj71Gcqix1/MVFm0v+95yv+btecay9rlQAAAMDMUv3as4vu42G75CXA
+EqW89bpXdw4dM5PzDXlJv60P0duxFJltqb0AAAAgwJiXlM4Zov+DMPISYEnS
+ME/h5nKSD9v4WHmt8KaN3oZoucdJdJ0AAACwZ+P9e20fyDG6fvZHXgIsRcFv
+0Spzknfb2f/unm7IS7q04zm5Lq+njDZ6jq4TAAAA9m7MS0r7nt+YW5vZyUuA
+aKlsLstNjMVMt83L9bLmvOjGdstps2N0nQAAAEB137M+aMJUHrPPe362GZjG
++PuTOyazja73DtvfVl4v9G3WRNc/c1s1mW3j3AQAAAALMfb9PFf2f3Tu85lb
+ZV7y4lgFblGQFbxE13rHNrhlTOoxuv4Z2+m05+MEAAAA1izzvl4fNIsgLwHm
+lMrGlByi652hLXLW4thlXlJwrGy+LQAAAGCtLq/Hyr6PVa9fyzrJS4C5pPx1
+StroWmdsk4eC/Oi9U3TtCzlWnIsAAABgwQru8T/LS5ro+tkXeQkwh5S3Tvd5
+b78tl9eh4jd403lJZns8R9cJAAAAXJeG+chrnhXtHaPrZ1/kJcA9pfx1uo/R
+tQa1T/8bfJKX/L5+ytn2h+haAQAAgDw35iWP0fWzL/IS4F4yc4BzdJ3RUt08
+nqfougOOldfoOgEAAIAylf3Pi+r/uLzai06f+PbJS4B7yHxuoI2ucwlS3Rom
+m3i+YjwH5WzvU3StAAAAQLnx3r+rzEueo/uh39XeRrcls+3znOd65SXAVSl/
+/i2/IX/arGZc6jG67gm2u83c1kN0rQAAAEC9iv7nRfRDpz/r8b7qy9oPeQkw
+hX4MQM5zAdF1Ls2Yl5wLf4dXu4ZHGp4rycmHHCsAAACwAQXPTH7U95f8DKj3
+43wYbXQbMuv+l5cAN0l58/odo+tcolQ+L+JrxLXCRNuae33URNcKAAAATKPv
+E6rMS2bvA0n/zp3S13CIbkNmPQbkJUC1zN8Nvxlft19NXrKq9kz5Y0rO0bUC
+AAAA00p1a7e+9YEcZ6zz8ZMaTtHtx7zkJUCNT/L2z3TRdS5dRV7yEl1z4fa1
+mdt1jK4VAAAAmF6qW7t11v6C9PU884fo9mNe8hKg1Bd5+0dtdJ1rkPLHXrx5
+iq554u06R9cKAAAA3E+fORQ+Kzrr+I7+ed+oz2Z55CVAiZQ3XmC165EHtGfp
+MxaLb9vMY8SYEgAAANiBVD63xl+ZxT37oq989iG67ZhfRV6y2rWGgdt8k7e/
+5/ehrE1L8pJFrzGWhudFcrbjHF0rAAAAMJ+KPui7Pruf0Ydxim4zYshLgBw5
+WUl0jWt0eR0Lfn+76Hq/2Y7nzG04RtcKAAAAzOvGvOQwcS1NxudO+pmsh7wE
+uObyOstK7ta2bcHvbxtd7yf151xjGFMCAAAAO1b4vOjd+qIz+2FO0e1FHHkJ
+8J2M34QuusY1S/njMv5b2m9vTo6WjCkBAACA3RvzkpL1W9/3RU+ylmtBH8wh
+ur2IIy8BviIruXv7/ijIHBbT1il/TMxiagYAAADipLL1Wyd/DjPlrzd/im4r
+YslLgM/oC5+ljX8W/PY+LqDeQ8G1TRNdLwAAALAMYx9Ibmbx0dONn13yWYfo
+tiKWvAT4SFYyWzu3Bb+7P4Jr7TJrPUW3KwAAALAsaZhjozYvOVV+Zslzqvo0
++KWgv05eAjuQ8xsQXeNWrCGDuLweC84Nh+g2BQAAAJZnzEtK1nD967nd0udI
+U9368ofodiJexbEjL4GNyum/j65xK9Iwt1Xu7+7sv7mpbF7R8LnCAAAAgGVL
+5fMcvXkpyUtS+fiA3nN0+7AM8hKgl5OVyNknbe/cc3cXUFvu+NiX6HYEAAAA
+1iHlz2FR3R+d2b/1mSa6fVgGeQmQ8vL9h+g6t+TyOi/tfH15PRWcC5wHAAAA
+gGwV/dDv+6ObjPfP7WsJf1aV5ZKXwL6lvHEObXSdW9Kf45d0vu6zsIJzgGMB
+AAAAKJbK5v7+6PjN+/6ofM/Zn1Vl+eQlsF+Z/fZddJ1bk/LXN2vuXEfJdYq5
+twAAAIBqN+Yln66dmtm3pd+LbPIS2KeC7D17PS2y2v0Qfb4e933uGiX/+c0H
+AAAAblXRH/He6ZP3q10PZbZnVVmfyrzkGF03cJvM89Mxus6tSXlrxdwto0j5
+Y1t6nz67AQAAAFBqzEu6ylyj78/48e69StZgnf1ZVdarIi/Rhworl3lO6aLr
+3JqUP7bkFLTP7XsAAADgbgqeI/3o5S0vuSFz+aiJbg+WR14C+5Ly1/Y+RNe6
+NQXXBJO1feFv/Gsy/xoAAABwJ5dXW5ltnNOw/skUOYlnRfmSvAT2JeWtq3WK
+rnNrUv7Yknaizyv9bW+i2wgAAADYtsq+6N7/P2FWoh+EL8lLYD9S/pxMh+ha
+tybljS05T/A5pc9aWKMEAAAAmEUa5j3JeZb3nrrodmC55CWwDyl/fEMXXevW
+9M8sZLb9ww2f8bPweuMU3S4AAADAvlT0X9xDE90OLJe8BPYh5a+FVd1nz5dt
+/3Kv/KLiOuP3+mgAAAAAc0rD87w5/ST30kW3Acs25iWlmd4xum4gX8of32C9
+7+nbPieTfq1439Kc5GzfAgAAAJH6vongvKSJbgOWraLPTV4CK5Pyx5a8RNe6
+JeM1QE67Z4/pqfjN7v/tz+i2AAAAAOilvDVe70G/F1fJS2DbUtn636foerck
+8/yf1eapfO5EOQkAAACwOIF5yTF621k+eQls2+X1JC8JafeHnEwj431KcxK/
+0QAAAMAijX3R/zMgKzlHbzvrIC+B7UrDfFBneUlI2+f8rjbf/P1JTgIAAACs
+2dj3/FTYP3UPx+i2YB3kJbBdKX+dd3nJtO3+nNHWT5/8XZ9vdc75AAAAwBql
+Yb6NU0V/8z2do9uF9ZCXwHZdXm3hd/ul77OPrnvNUt78WS8f/qb/HT7LSQAA
+AIC1GJ/7PC4wH9F/QrXKvOQxum7gupQ3zuG9/rfgIbrutRqvE3La+cf474+V
+1xPH6G0FAAAA9uVdPlLa3xTpHN1urEtlXnKKrhv43ngOe6k4jzwnY0xq2zyn
+vR8qryte5SQAAADAXC6vw8VjZf/SUhyj25F1kZfANt2Ql/S/B8aQlbf3053O
+6/3++Bm9fQAAAMC2jf3E7crzkffO0W3K+shLYJtuyEt+nU+SeblK2vrhHud0
+OQkAAABwL2O/8FOqW1N1DY7Rbcz6yEtgm27MS3rdRRO9HUuXhrGpU57L+31m
+PjQAAABgcmM+suS12adyjm5r1kleAts05iXdjecWmcn1dj5PdB4/RW8LAAAA
+sF1pmGsrOseYyzG6vVkneQlsV5pmTY3OOebL9q1Zt935GwAAAJhd2sb67Tn6
+vm5zd1BFXgLblYZ1NaYYY3kez6e7P9ekYdxOe2O79u1pbRIAAABgdmNusuV1
+S7roNma9xu9HaaZ4iq4buG7s259iDMRbNn/qfzOityugHd+uI27Nnvp9sfvM
+CQAAAIiXhufoTxP0dyzNY3Tbsl6pbk3oU3TdQJ40jDE5T3jO6X8vjlvv97+8
+mvGaYYqc6SF6ewAAAAA+M/YdTdEHshTm9KCavAS2LU0zf9SnvwNbygHGdppy
+Dk9jSQAAAIBVGPtFjmm6eUqinPXHcAt5CWzf+D2fYu33j17H8+hxbeeiO14H
+bCZDAgAAAPYlrX9N+OfoNmTd5CWwD+P57nTH81H/O9JeNNHb+s32P94hH/kt
+ehsBAAAAppDWuyb8MbrtWDd5CezHDJnJm27MTvr5Lw8B29mM2chpxvO6uTEB
+AACATUnrWhP+Vf8Mt0ryEtiV9Of5gDnPc914bm3TkKE06Yb5u8ZtaMb36t/z
+ueJ3bEpN9H4FAAAAuJe0jjXhX27pb4JeqstLOscerFf6s7b5eSHnsu6KJc+Z
+2UTvTwAAAIB7S3/Wgu0W0B/zmafoNmL9Ul1eIquDDUjDswFLPcdF6tskZ52T
+JnofAgAAAMwpLXdN+IfotmH9krwEdi2td/2uqZ3SmH+kYY4v52AAAACAL6Rh
+bZOl9Cn1884fotuE9UvyEuC/X78Fb/NQrmH9rin05/LHj+fS8f+79rdt9P4C
+AAAAWII0rDEb3af0Et0ObEOSlwDvpO3mJq/jdv38ZtsbWQkAAABAubFPKWd+
+83too7efbZCXAJ8Zs4Onit+HpTiP9WfNmyUrAQAAALhNilsTvonedrZBXgJ8
+Z/yNeFh4dtKPHemfX/hnfq3MbZSVAAAAAEwkzbsm/Ku+aqYy9oWWjpOSl8BO
+jdlCf747pfmfFXgdP7PPbo412cgX2yMrAQAAAJjY2O9yvnN/URe9nWzL2O8p
+LwGKpeF5gWbML9oxy+hGJc8QvLz7u6fxvY7je9/l92Z8/2t1HaPbGAAAAGCt
+xv6Xe66T+xi9jWyLvATYmzGPufZb10TXCQAAALBmaZjfqL1jZvIzehvZFnkJ
+sCeyEgAAAID5jJlJaR90jrN+aqYmLwH2QlYCAAAAML80zOneTZyXPEdvF9sj
+L2Gv0rA2xsPYh957Tn/W0OjG//3234760dctDeuiyEoAAAAAAox9cSXr3V5z
+jN4mtkdewh6MucjTBL/JL+P7PPgerEfKeH4hukYAAACArRufST5PkJX066FY
+u4TJVeYljkUWbcwznifMqz/zLMdePlkJAAAAwDKk6dZ/90w/d1GRl8juWJx3
+v7VT5NOl34d+vMkhug349Li4du59ja4RAAAAYE/SNOu/P0VvB9skL2GtJsyj
+p3CSmSxLxj7romsEAAAA/paGNS4ex+dTu7f7+Oi6mHw/H9Jtc8M8RG8D2yQv
+YW3Gc+YSMhKZyQL1v0+yEgAAAFi2d7lI35/y3XqzL9G1ctdjoMvox/msf/oQ
+XT/bJC9hDcY+8FvXar+3/rvRRrfVno3n2Wv7yT4CAACAOxvv0fv1Zdv0Z6zI
+ubCvpY3eDu5+nBwrjgsZGncjL2HJxnNqdA5S9Hvt+7HoY+Uxuk4AAABYszTM
+j/4+C2nHLKSbuI9F/8pOpPL59tvomtkueQlLM553pz7HzqmNbsO9yfwda6Lr
+BAAAgDVLefM63OocvZ3Mflz1fYFPBcdIE10z2yUvYSnStHNudWnIpo/jufzw
+yWc1439v07T5jDEm8x43OcfMj+g6AQAAYM1mykpO0dtJ2PF1yOynftXPwz2N
+/cXyEsKM2cUt67e/jr+nDzfW8TC+zxRryZv3aZ5j5+qxEV0jAAAArN1MWclN
+/TqsX8pb/72LrpNtk5cQ5cac5Nwfu3eq65jx23xN//ey7vsdOznXaV10nQAA
+ALBF4335m3aCfhR9KPyShueZz98cK55R5q7kJczthpzkbhnJJzU2N57rfU/u
+t28eM9q/ja4TAAAA9iKVz/f/5jm6dpZn7Pv5qu9Qfxt3JS9hLjfkJG1QvU36
+Ps++5hjd5lvTX0dltLvxuwAAADCTNKzVXdNvYpwAnxqPqfaTY6bvpzMWibuS
+l3Bv429caU6yiDXTx9/m2jnDTtH1b0nmfjhE1wkAAAB7kurm5zhE182ypc/X
+fz9F18X2yUu4pzH3KMoYlpQTj7/NNef9/5I1TKbaBz8z2vocXScAAADsTUWf
+yUt0zazH2Cf0/hg7RtfE9slLuIfL66nwuFrsGMyUt17Gp9cA8pJZ2v4UXScA
+AADsTSqfw/wpumbWJ/2ZL1+fNLOoyEtkeXxp/A3b1LE0Ztml42Te8hK/4/Xt
+nrNWyeKPHwAAANiSVLdeif4Rqo391110HeyDvIQppPI1So7RNRdu26nieyL3
+rm/znPY9RNcJAAAAe3J5PZT2jUTXzPqNfXPmcGEW8hJulcrm3jpG11u5jcfC
+PEheUtfOOddd5+g6AQAAYG8qniU9RdcMUEpeQq2Utw73m1XPUTlu61lectc2
+zrnuWvVxBAAAAGtU0SfyEF0zQA15CZXHTZd5rHTRtU60vf24v9I1TPq85BBd
++xqkvLE7rrUAAABgRoXPyr4xbxKwWvISCo+XpiAr2Mz5MdWtYfKypTa4U7vm
+zL9lrlMAAACY2eX1WNgP8hxdM8Ct5CUUHCtd5vGxyXEA8pKQ9nStBQAAADMr
+6AN68xhdM8AUxue7S9exPkbXzazHSJN5XHTRtd65HdrC78kpuualyvzNOUbX
+CQAAAHuShvk1Sp+rPkTXDTCVNMxDKC/hq+Mjd0zFIbrWGdriWPg9aaNrXpqC
+NjQuBwAAAGaU8ubMfu8cXTPA1OQlfHFc5D5PcIqudcY2Kc1LNjkv2Q3t1zme
+AAAAYHkKnpd98xRdM8A9yEv45JjIXc/rEF3rzO3SFnxHXvfWPt+020G+BAAA
+AMvUjxMp7BdsomsGuBd5CR+OhxdjAL5sm5JnLV6i612C/nmTnGwpuk4AAADY
+m7FPsKQ/0P07sHnyEsbjIHcMQBNda2AbleQlbXS9wW31I/N3xfhdAAAAmFnK
+n1tk18/OAvsjLyHlrctxjq4zuI36/v+csTdypfx1Xg7RtQIAAMDepLz1RfUD
+ArtUmZd4JnwjMsdMtNF1RisYL7HrbCnlzXnaRdcJAAAAezP2bZT0//V+RNcN
+MKfKvOQUXTeT7Pucvu2f0XUuQT9epOD70UbXG9A+R8+kAAAAwDJdXg+FfX9d
+dM0AEeQl+5P5PIE1vP5us7bg+3GIrnfmtsnJ3c7RdQIAAMAepbL1WHuP0TUD
+RJGX7EvmOInn6DqXJuXP7dlF17qwY2mX420AAABgCTKfcdztM6AAH8lL9qN/
+PkDfdlW7HQq+I010vTO1yUtGW/RtZp5TAAAAiqT8OR6a6FqXauzvK+nrO0fX
+DLAE8pJ9yLzWaKLrXKLMnGkX1xYpf52SNrpWAAAA1kdWMkkb5vZjvHmKrhlg
+KeQl23d5PWfsU+u6f91+Xeb34hhd653b4ZzZDofoWgEAAFgfWckkbZjbh6Et
+AT4x5iW5/aDykpXJOU9G17hkKX/86jm61ju2Qe5zKafoWgEAAFgnWcnN7fej
+sG/vNbpmgCUaf09z1iLQL7oyspJJ2vAp8ztxjK71Dtve/zbkjj07RNcLAADA
+OslKbm6/h8J+vefomgGWSl6yTbKSSdowNy84R9d6h23PzYna6FoBAABYL1nJ
+ze13KuzTO0bXDLBk8pLtkZVM1o67u2ZL+fOP9TnSj+h6AQAAWK893ndP3H7n
+wv489/EAV8hLtkVWMlk75o4t2cwY1pxjJxlTAgAA/Pfr/uHQ92GnYb3Dp/F+
+4q3v9lj5nj/H/vPuyv1Y34dx6j9H/+96yUpuarvcZx1/f2eiawZYC3nJdmT2
+d7uWzGvL3Ou2Q3StE2xr7nruZ8cPAADsx9gn+zDeH50y7zmPBe//Y3zvc8b7
+fvkMm/709ZGV3NR2uffwbx6jawZYE3nJNqS8+Sqb6DrXIOWPLWmja71xOw+Z
+21l0zwMAAKzDeO/TjP2vbfp7jEiNq89XvctIcu9FcjMTz3atRJKV3NJ2XeF3
+4+cd9sukotsU4KNUmZe4FlmOzHPaMbrOtUh52dM5us4btzH3GquLrhUAAKiX
+6saIlLo6189Yw/lOfa599tJEtzVZx2NO/8V/9uc/7faj8DtxvtN+mVR0uwJ8
+JtXlJf2/l5csQBrma722v56i61yLlD8HaPYzGkuSysbtrnIbAQCAQbpPNvLR
+l3P9jP0Np5n6Xo/R7c3V47HN3JdNdK1LkoasseS7UNQHVLBfJhXdrgBfSfKS
+1UrDuOmr+yq6zjXJ/C6sLn9KZXNvtdH1AgAAt0nzZCWfPmM13n+U9jPc6iG6
+zfn2eGwz92MTXeuSpPK8seh7MH5Xm3eO4756mvA35Dxux+Pb50S3K8B3krxk
+tTL3lf2U357HnPN8dJ0V25X7/T47XgAAYP0m7Ocsui9Kw3j9KdclydV/5iG6
+3fnyeGwz92MTXeuSpLL5617v8Pm582989n188p0E1irJS1Yp8/r3GF3nWqT8
+uUBXM0fVeH2S+51uousFAADuJw3PdT+l2/OMf8bbp7ic5E0X3b58edy17kmL
+26w0p3i+Ux05/U7vM5JjdNsBTCHJS1Ynsx/8LufLrerbK6NNv5yXd0lS2dym
+q5tbDAAAqDPe/+fc+3zl4cP7XctJ+v92SsNY/uaDNk23/nsT3bZ8ery19l9x
+m5WsOdo73qmOLrdPIekfBDYmyUtWJeU/Z3CIrnUtMq9HFp8/ZdyrvHf2HQYA
+gH0Z7/9rMorXD+/z3b3HObcPNw3Pet06LqWLblc+3bdt5v5romtdioKM4s3k
+9/RpWM/k6u+B/QZsWZKXrErmte0pus61yL0WiK7zyjaUfoeb6JoBAID5FfRh
+f3p/mb7OSfr/r3g8/ng/dmtecohuV6qPsya61iVI+fOD/+6Tu1Md18aedfoC
+gT0Yf5dPpb/NfiND9lXuehSH6FrXIuXlT4tdsyTjeua9NrpeAAAgRhrmwCrN
+Io7j3371jFZ3y/1nql9P+s0q5kzekyQrKW2vkvm073Jfn4b58vQlALyT5CWL
+l/LGQfRO0bWuReZxv8jr71S2lvtdnj0BAADWIaM/9DM/xr/t7tV/WtC3/pku
+ul2p3p9NdK1LUNEXN+mznOn7vLIf9/Uw5ecBrEnFb7S8ZP599Nk1quuO+vbM
+uV84RddZWff765tDdM0AAECcikyiG//u4zNa/f3FccK6Sucg+kt0u1J9nDXR
+tS5BKltH6DzxZ3+3/lDf37fYOTYA5pLkJYuW8sdN2y957Zkz5ruLrvNDzcfC
+72gTXTMAABCr4l7/Mf07P9DrPfpPU9ncwh/pz12QJCspaavSOehOE3/2VzlJ
+pz8J4I+Kayj98vPun27u8+iW5bRldI3vav3ueuYzbXTNAABAvFT2/PqvvuwP
+9x53yUnG2h4rc5KeOYIWJMlKStqq9Lif5FhPw/OXX/UrPEW3C8ASyUuWK5Wt
+yXeMrnfpUl72FH5sp/Kc5BRdMwAAEC+Vz3N1/uQ+6XjH+krucT9qo9uXv/Zl
+m7nfmuhao2X2Rfw20Wce9R8B1EnyksVKZWOUjUm+vS2b4BpLcxLfRQAA4Jcr
+/aM57v6suaxkG2Ql2e1Uml8+T/CZX/Xx3W3MGMDWVOQlfmPn2S+Hgr5z++T7
+tsy5lgsb153Kc5L+38pJAACAXyru6/96DmumGmvrO0W3L3/tx5z7a1nJv2sB
+XXO84bP6XKb76vvd9y9FtwfAmlRcV+mbn2e/lMxtaZ/c1o5tUG01OYn9DAAA
+/FZ4T/Hx/uIwU40vlTV20e3LX/tRVpLXTqX9bIfKz/n5zXerS56zBKgiL1mm
+VDYX1+ver0e+aMMmo+3aoLpK72nsXwAA4Lexr7Qmg5j1PigVrt3wvr83uo35
+az+27l2z2ulccIxXje1Kw9iVr/oUTtFtALB28pLlScNYypJzbO8YXfeSpLys
+5O7z836o6Vhxj2C/AgAAfynou/7oPHOdXWWdXXQbU3W8NdG1BrZRaX7ZVnzG
+d/NnHKPbAGArkrxkcVL5PE2eIfi7/Q5Luv6+ck3jWgcAAMiW6ue2amauU1ay
+AbKSrDYqvefP7lNLw/O0X/Xb9f1GYWuxAmzVN7+78pK4fXKsuKa0htef9lvE
+9XfFd0tOAgAAfGrsN11F/pDqs5JZ5wDg6n5sM/dbE11rYBuVHOuvBe97SF9n
+o/rlAO6ook/X7/L998mx4rryVV97fFYy3sPUPO+1+30HAAB8rvIeMaQfO9Wv
+P99GtzN/7cd2qcfYEqTy/PKU+b7NN9+hvq/BGu4Ad1ZwDpSXzLdPaq+Fn/d8
+7sxon+6On10zh5qcBAAA+FaqG7feBdVacx8rK1mYgn6iJrrWoPZ5KDy+r86Z
+lb6f02vXfT0Ac6vom5eXLG+fvDnv+Hol5H7hyjWNnAQAAKiWVvRMVuV9UVZf
+MrPuxzZzvzXRtQa1z6nw+P4y50jfr03SO0VvL8AeVfTNy0vuv08eKq+Le0/f
+nY+3KKNNuok/r7+mea7YN+ZMAwAArkrD+PXS+41zUK1N5b3rbvvcP7Rfe0P7
+MeMxlIZnVHPrev7mfQ7p+3m8j9HHJcCeJXnJ4qTh2rjkPPxe/3e7eT4noz26
+CT+rNsfynQEAALKkuv7zNqjWprafO7qdl6ByX/NHM9N+Ks0vH7/5vnzXp/Bl
+xgLAfJK8ZHFS/fiF3+fYi0P0dszQRtfaoZvoc54q98OL7woAAJArff/M+VcO
+QbW2tfdJ0e28BDe0H4Nmpv1UOgf3P9/HzH3d97Xtaq4QgKVK8pJFuvHa6XX8
++02ea1PeM0ztjZ9xy5xo3VbbHgAAmF7Kex7so7Bn0VPdGvS9U3RbL8GN9/vM
+l5V0BTW9fPjb0udgj9HHJQCDJC9ZpHTbnFz/jX97jN6OO7RLk7HtbeV7Hwqv
+hz46RbcPAACwLhX35KF9q6luDIz+4D/t195wz8kMWUkqzy+f3v3tz4rviDFX
+AAuS6vKS3ayPEbhfbp2T67/xHN1Eb8uEbfKQsc1tRTvXzrf19n04RrcNAACw
+PqlunEbYWPYb7psO0W29BElWcqtmhn2U0+/w3s93f1c7R4VnkgEWJK3sWZY9
+ufF8+6ab45pihrZoM7Y1K8dLQ0bS3ti21iYBAACqVdyPRM6/1VTeN52j23kp
+Mu9p+Vozwz46FdTzOv7NLc9f9k7RxyYAf0vyksVK04wx6XVpxWOCMq8/moy2
+bNPt+VN//WRtEgAAoEoa5utZzT14qu/nf4qqeWluaEMy7vcn2kfngnr6fppu
+gu2yxjvAAiV5yaKlacaY/Dee+49rOxdnXoN8uk1puozEHHQAAMDNUl2/eeT8
+W7VrlRiLf9s+54/mzvunJr+cyjH6+ATgX0lesmhp6PM/TXQufh3faxXXrikj
+5/jkb35O2F79MyOrypcAAIBlSuXZQ+T8W6XrXb+xbvVCpfzcpomudcY2eZyo
+n6VJZeNTfFcAFizJSxZvPPfWPtfz6Xl5vC5YZBaQeW3evfu3xwnbx1gSAABg
+Mpn3N4u5567sI+g9Rrc1X+7TNnMfNtG1ztgm3Y19B91bn0pB++6yrQHWpvJa
+6Bhd996M+2mKebneex7f9xC9fe+2s8mo+5ymWdflvae00PwIAABYp8r77cj5
+t2rus6zBsGAFfflNdK0ztUft2Kk37Yf3O1S8xym6HQD4WuX12zG67r1J063F
+8ZmX8b2b4G3MvY6bSpdWMjcZAACwLql8nuA1zr9lTfcFK7jHbqJrnak9HiqP
+8/NXfQepbpyKfBFgwdKw3kNpH/wxuu49SsNzC6XX3DUZQn9N1cx5Dk/Tjxf5
+7jrHfFsAAMDdrOkeO9Wv4XCIbme+3a9t5n5somudqT1q+lK+XdM01T1/bN46
+gIVL8pJVSfNkJm/646JLw1xV/bVWc8u11Fh7M15TtOO1x5TrsnyXkThmAQCA
+uxrvr0vvVyLn3zpX1HuKbmeu7tc2c1820bXO1B4lx3nfD3I100jDmKzSvrRz
+dFsAcF2Sl6zOmDs8Vey3qfVZR/eNyPrOjlMAAGAu4z1a0f1UYK1NxT1Wf393
+iG5nru7bNnN/NtG1ztAWpfll9tiPVPcc6+bbHGALkrxkldKf9UzOgZnE0rw4
+NgEAgLml8nHzYXPyVPbzttFtTNa+bTP3ZxNd6wxtUTrPXPbapqluHNkpuk0A
+yJPkJauWhvXK5lr7Y4me93CtBwAALE8axv6X3sNk98suoNZzsjb1KiRZyfu2
+6AqO8deK96+ZV/wQ3S4A5EnyktUbr3vbtI+xJv02PrrWAAAAIqXytZ7PgbWe
+Ku69HqLbmOz922bu0ya61ju3w4/CY/y54jNKv/e9NrptAMiX6vKSsLHDXN2X
+T/+nvTvWbWNp0wRclyDfAeErEOAbYOALUGJsysjBRAoWcDZgaGASpQI2YHwi
+Y9OTcHIHAibZDbxguokhYPM523XYOkPTpMQqdvPrZj8NPMB/flvsr6tasrre
+rqp0XbnJpr2mkHewAAAA9qXyOf4PQXXOKp7BiseQiZNkJS/tcNf3uFayxzvA
+JKS6vGQVXTdv9mn+nalmjmi0XLN8BAAAGKSK5+eQeRqpfE5Jvi5rb41IkpW8
+tEPpvV413lBxnmwR3T4AlEnykquVtu8+3LX5w5CzE+trAQAAg5bHnEufdYLq
+nFU8k1l7a2SSrOSlHTYF93nxXiU756nZ430d3T4AlEvykklI2+xk3v5OleeO
+DyE/2US3CwAAwFvS9h20kmedkDWtUvn776votqWqnyeflVTkF2d9T6ayPeRf
+zKLbCYBy8pLpavv+JUPJvrW/A2SbU/KOnb//bedzTrmfQtbvBQAAKJHK3zW7
++H6fqXzuS74ma2+NUJKV5Da4v+T3ZKrb430V3U4A1EnyEjpS8Du6vUkAAIBB
+S3XrWs0C6izJc54jaqSzvpaVlM/zOHv8IZWt+fXyfSaPBBgpeQldSKfN+95E
+1wkAAPCWVP4++SagxtJ37OfR7cpZ/T3prCRt1xi/+PdkQbvvWkS3FwD15CWc
+I53+ztXF56QDAACUStu1hkuejy+61nA7blzyDL+IblPO7vOpZyV3EWNWFd9r
+neQ0aTuHJu+ZZI4KQIB2vLt0PdZVdN3ES6fveejfeAAAYPAqxkbvLlxfSZZj
+z8grICs5aS2LXvLBinOf1Q/p11xok6ydBxCizcvlJZTeM6c8R7hPAACAwUvl
++6Vf9L2wVLY+2Cq6Pems36eelWwKvydnHZ57VvEzYd3RtW6i2x5gyuQlFN4v
+p/6+Zk93AABg8NLp8+bPHhOtqC2P2Z4652UV3ZZ02veTzUrSdt34ku/JTQ81
+rCryklkH/XzROWsA/E5eQsF9csrv6evoWgEAAE5R8Sy8vFBdJc/pq+h2pPP+
+n3JWch89PlWR1xTXkX7PQtfRbQ/AlryEE+6RU9+38h4EAAAweKlurZ35hWpb
+eS6frolnJevC78nFQOrIZgWfv78PkfU5AAZEXsIr98apzxCb6FoBAABOkcr2
+Avnbheo6dZx8Fd2GhN8D8+haO77umz7zicJa5hW1rE787P2fPQ/RbQ/A7+Ql
+HLkv9t93uOj7HAAAAF0reM558XSBmk7Nb1bR7Uev98FUs5K7wu/JTc/1rCvy
+klfnh6Tf197K//smuu0BOKwyL1n72X6d0unvUmyiawUAADhVOn3f9IvkEwU5
+yX102xVc07vGl9ax63ls//xTdL1DMeGsZFX4PdnrfIyC8ZBdRzPVI+Nt1jEH
+GLjKvORJXnJ9cgZyYv/79x0AABiFyjHQZY/1nJKTPI/luas5Pjf+rGjjv9rc
+5F30NQS331SzklPHHy42DpHq5pasDnzOoXG2dXSbA3AaeQkFv5+to2sFAAA4
+VXM8DCUrObGW/Kw9+L2fm+Nj43tlRvJbZhJ9PYHtOLmsJN/fFfdI7+NPqS5X
+/XucJG3XFMtff59+n8eW/3sW3e4AnC7JSyar8PeUeXS9AAAAp6p4zu38HbH2
+eXt9wnlXY3jGTtu1tLrISHbl3OV99LUFtOVyas/ibZ5QNPZ0wdpK9zY6xSjm
+iAHwqyQvmaSCPl9F1woAAHCqtN1buXZ8s5O5HWm75tZb+6WMYs2tnGWk7uaS
+HPKz8SH6Oi/cpssT22YeXWuH17wuvC963atkr7ZzfmYYRwG4MkleMinp9Pno
+z/oYAAAYk3T6HuqdP+em7Xo8p4wJP4zhWSttc5KfHY8jH8tLJjO/JE0sK2nH
+nErviYvmiAV9YqwMYAKSvGQSUtlanPfR9QIAAJRI56+nsykZp22fpRcnPk+v
+0wj2JWmv613jR0fjx6fI55rEnu8F4/Lz6Fo7ut67ivvh4mNNFWNi+7xvCnBF
+0unrqcpLRqjt37fmgf/Tr9H1AgAAlCp45jklM8nzP+YHLNrx7lPHVtdjG/du
+jj86ascSX6Ov+0JtuzyxPUZ1z7xyvavScaagOm/P+PmRv24UOSgAZWr+HUvy
+ksFLZTmYf+MBAIBRSWXz6HczkT7G/Z/bZ+vRPVs1x+c3ru1LduRrP7V/Xrt2
+19WvxZWml5WUfo9dbK+SA7XepfK8JI+JzaLbGYD+JHnJVSnsz2V0vQAAAKXS
+6Xsz/vMc235dHh89d+2ul3wkf85irM/H6fjaWzn7+Fz4WZ+OfNZrHqPbgGlL
+2/klp+Y7y7F+rwNQRl5yHVLZ3obr6HoBAABqpPL9BpZ7X/+y90h+Fl6f8vzU
+/t37dD1zAL4cuM4/zvzMx8J+mcS+JQxX+7Pg/sjPlKf2z2bRdQJwWfKScUtl
+c9Cf/VsPAACMUX6WKXx2/eta8o2O23F/HsjBtbYqPvdQBnNMJ+cEAOiavGSc
+Uvm+ZHfRNQMAANRo3/Muykqiax6atF0za7eNOt1rvSAvOWseCwBAn+Ql41KR
+k4TtnQYAAHCuVL7fyDq65qHJGcVO+3zv6RzfT+ibXs4NANCVirzk/+Yx++i6
+pyZt19UsWaf3KbpmAACAc5TOKWncR9c8JGm7p/tu+7zv6TwfT+ibn9HtAQDw
+loq85D+TtUYv2T+lOUmee2L+DwAAMFrNcVeRlXiv79c23F1/q9dn+PT7nii/
+iW4PAIBTVOQl2X+LrvvaVeYkng8AAIBRa46HwufT5+iah6Y5Hl/mdOQ5Jj2f
+66usBAC4FpXzS+Ql/fVH6f4kmb3cAQCA0WuOTeGz0LfomoemzUh6n1PSnmt/
+D3lZCQAwapV5yb9G131tKnOSRXTdAAAA52qOWeGzUGavkl/bcHevkl72Kdk7
+3/s3+udHdJsAAJSqyEuyf4uu+1qk7bq8pTnJMrpuAACALuTco+KZ1FrEv7dj
+nuvx+YLne61//oxuDwCAGpV5yf9M9hQ/t91rnglW0XUDAAB0pTm+FT4TbaJr
+5s2s5Gt0fQAAtZrj/1SM2//vxiy69rFJ2z3ca/KpVXTtAAAAXfJcNE5v9NGn
+6PoAAM7RHP9e8Xvq/0v2GC9p47w3yZPnAQAAYOrSdk3i0mcje5XE99u7N/ro
+XXSNAADnao7/UfG7avaQrMn1VtsuUvneJHISAADgKrXPkaXPR/Yqie+3D6/0
+zx/R9QEAdOWMvOTJ760H2zOvuVW6Bq93pgAAgKvWHJvC56Pn6Jr5u98+vdJH
+1t8CAK5Kc/xr5dh+tjTH5J92vKucS5ItousHAADoQ3PMKp6RvkXXzd999/VI
+//yIrg0AoA/N8d/PyEvy+0Hz6GsIbLv8e/+6su2ep9x2AADA9ctz6Gvey4uu
+m7/77vuR/vkcXRsAQF+a41/OyEv+fu8n5wbR13HB9rpp59XUtpd1zAAAgKuX
+6tYpnkfXPXXp+F4l36NrAwDoW9ruSX5OXpJd/d7v7XtRtettveRKV91GAAAA
+Wc0zU3TN/N1vx9bf+hBdGwDAJXSUlzynK9zLpG2bzZltYw93AABgEtJ2X8fi
+OfjRdU9dc7xr/DzQN1+jawMAuKSO8pKXzCTPM5lFX9MZbfGy1ta5GUn+emtu
+AQAAk9E+D5Y+Oz1E1z11zfHlQL9YewsAmKQO85IXed2pu+jrKrj+28YqnbfW
+1ov8OVc1xwYAAOAtle+cLaLrnrJ0eE5J/u/30bUBAETpIS95mV/xMMQ5Fs0x
+S9u9SGp+nz92raPJhwAAALrSPl/VPEcN7llxSprj8UCffIquCwAgWk95yX5u
+Mg+8vjx/ZNl46vjarn6PewAAgGNS3fpbf0XXPWXN8fFAn3yJrgsAYCh6zkt2
+rdvcYt5HzpC2e4/M23PkNcG6WF/r0DV4DwoAAJis9tmr6nkruvapStu1t37s
+9cdjdF0AAENzwbxk16bNHh7afOOuzTrmh/KItJ3j/fLnd+3XPLSfsblArYvo
+fgIAAIiWtu+m1T5bzaLrn6Lm+GOvH+zlDgBwRJs/9DEXY8xyeyyj+wYAAGAI
+0nYPyHOesZbR1zA1zfFlrw/y/JJ30XUBAAxZ2u7vIS/ZziNZJnuSAAAA5GfF
+WTpvPskveYlnrYv12/4eJT8b76PrAgAYg4nnJTkjWUT3AQAAQJT0X2sfz9tc
+Y93T89dTY9WeY7F73ug2uAY5E2mzkd02/xBdFwDAmEwwL1n5fRwAAJi6NquI
+fj77K7odxi5t93L/vteuH6PrAgAYownkJfkdprzWrrnfAAAAf8lKrkVz/LnX
+pp+jawIAGLPKvOR/Rf9e/Yp1m4/MotsWAABgaGQl49ccX/fa80t0TQAA16Ay
+L/mXxl3arm21CfwdO88deWhrMX8EAACAq5Vzkb1n4q/RNQEAXJPKvORh5+tv
+2rxi2fjWU37y1H52PsdcNgIAAMBUNMenvWfkx+iaAACuUWVesjrhM3OusWgz
+jhfrA1Z7f+eu/dpZdNsAAABAlOb4sPcs/md0TQAA16yPvAQAAACo0+YkP+Uk
+AACXJS8BAACAeM3xvvFj59n7e+NddF0AAFMhLwEAAIA4ORNpsxE5CQBAIHkJ
+AAAAxMhrbe08a+e5Je97Pt+Xxqfo6wYAGCJ5CQAAAFxWc/xx4ZzkY3uuz9HX
+DgAwVG1espGXAAAAQL+a43Hn2Trv6f6h5/O9a/OYn9b4AgB4XXPcNJ7kJQAA
+ANCPdh2si+Uk7Tlf5rA8Rl8/AMAYyEsAAACgH3s5yV8Xykl257B8jG4DAICx
+kJcAAABAt/I+IXvP0b3lFnn/9jaX+bG7J0p0GwAAjI28BAAAALqxs696pC/R
+7QAAMEbyEgAAADhPXmdrADlJ9j66LQAAxkpeAgAAAHXanOTnAHKSP6PbAgBg
+7Grzkvx10bUDAABAhDyPYyA5SfY5uj0AAK5BZV7yJC8BAABgatqc5EdFptGH
+nNe8i24TAIBrIS8BAACA1+VcYkA5SfYY3SYAANdGXgIAAACHtTnJ9wHkI7s+
+RrcLAMA1kpcAAADA75rj8wCykV0/otsEAOCayUsAAAAAAICpk5cAAAAAAABT
+Jy8BAAAAAACmrs1LVvISAAAAAABgyuQlAAAAAADA1MlLAAAAAACAqZOXAAAA
+AAAAUycvAQAAAAAApk5eAgAAAAAATJ28BAAAAAAAmLqKvOS5cRtdNwAAAAAA
+QFfkJQAAAAAAwNTJSwAAAAAAgKmTlwAAAAAAAFMnLwEAAAAAAKZOXgIAAAAA
+AEydvAQAAAAAAJi65ljKSwAAAAAAgClrjoW8BAAAAAAAmDJ5CQAAAAAAMHXy
+EgAAAAAAYOrkJQAAAAAAwNTJSwAAAAAAgKmTlwAAAAAAAFNXmZfcRdcNAAAA
+AADQlYq8JFtE1w0AAAAAANAVeQkAAAAAADB18hIAAAAAAGDq5CUAAAAAAMDU
+yUsAAAAAAICpk5cAAAAAAABTJy8BAAAAAACmrjluG8/yEgAAAAAAYKrkJQAA
+AAAAwNTJSwAAAAAAgKmTlwAAAAAAAFMnLwEAAAAAAKZOXgIAAAAAAExdZV5y
+H103AAAAAABAVyrzklV03QAAAAAAAF2RlwAAAAAAAFMnLwEAAAAAAKZOXgIA
+AAAAAEydvAQAAAAAAJg6eQkAAAAAADB18hIAAAAAAGDqmmPWeJKXAAAAAAAA
+U9UcN/ISAAAAAABgyuQlAAAAAADA1MlLAAAAAACAqZOXAAAAAAAAUycvAQAA
+AAAApk5eAgAAAAAATF1lXrLOXxddOwAAAAAAQBcq85IneQkAAAAAAHAt5CUA
+AAAAAMDUyUsAAAAAAICpk5cAAAAAAABTJy8BAAAAAACmTl4CAAAAAABMXZuX
+rOUlAAAAAADAlDXHSl4CAAAAAABMmbwEAAAAAACYOnkJAAAAAAAwdfISAAAA
+AABg6uQlAAAAAADA1MlLAAAAAACAqavMS26j6wYAAAAAAOhKRV7yLC8BAAAA
+AACuibwEAAAAAACYOnkJAAAAAAAwdfISAAAAAABg6uQlAAAAAADA1MlLAAAA
+AAAYu+Z4aCyi62C85CUAAAAAAIxVcyx3xq/vo+thvHLeJi8BAAAAAGBMjoxt
+r6LrYrzkJQAAAAAAjEVzzF8Zv87rKd1E18g4yUsAAAAAABi6PC7djk+/Nn79
+JC+hlrwEAAAAAIChyvnHCTnJbl5i/Joq8hIAAAAAAIamzUmejF9zKfISAAAA
+AACGpN2j5NQ5Jfvj14vo+hkneQkAAAAAAENy4l4lxyyi62ecKvIS9xsAAAAA
+AL1p85LStbhePETXzzjJSwAAAAAAGJJUt3fJi1V0/YyTvAQAAAAAgCFp85JV
+ZV6Sc5ab6GtgfOQlAAAAAAAMzZl5ySy6fsZHXgIAAAAAwNBUjl1neZ/42+j6
+GR95CQAAAAAAQ3NmXnIXXT/jIy8BAAAAAGBo8hyRNvuoyUwW0fUzPjlnq7jn
+FtF1AwAAAABwvdq8ZFOZlyyj62d8KjO6RXTdAAAAAABcr+a4Sdu922vyklV0
+/YyPvAQAAAAAgKFp85JvlXnJOn999DUwLvISAAAAAACGKM8TqcxLnuQllJKX
+AAAAAAAwRHkfksq8JI9530bXz7jISwAAAAAAGKI8Fi0v4VLkJQAAAAAADFFz
+zCvGr41jU6UyL3mIrhsAAAAAgOtWOX794j66fsZFXgIAAAAAwBA1x03a7t1e
+k5esoutnXCrzknl03QAAAAAAXLcz85Jv+eujr4HxqMhLzC0BAAAAAOAi8jyR
+yrzkSV5CicK8ZB1dLwAAAAAA05Hf4T8jL7mNrp/xKMhLzCsBAAAAAOCimmNR
+mZc8y0socWJeMo+uEwAAAACA6WmOu8I9JXbzkkV0/YxHm5dsjtxPq+j6AAAA
+AACYrsI9JfYtoutnPPJ+N+36by+Zydo9BAAAAADAELR5yVNlXrKKrh8AAAAA
+AOBc7Tv/8hIAAAAAAK5ec8zyPsqN+3Y9nPXOmjiLys/M8xKW7We9tp5THotf
+pe2+4jfRbcFv/XjT9k9NXvKkTwEAAAAAGJI2v7hrM4xVm2N0tv9EO66+TMf3
+az7Ft5zbRLcVv/XtOXnJLLp+AAAAAACmo80rXuaIvMzrOCe7eHNewE5GUrsf
++LHMxJyEAUnbuT81fZnvi9vo+gEAAAAAuC6Vc0SK5wScUMfdmVnMW2Ps8+i2
+5pf+XlRmYvlr7qLrBwAAAADgevSUjey7f+X85+xjUWoR3d780ve3lXmJvgQA
+AAAAoDMXykoOrpuUtnvBP10oJ3lhTsKAtHnJprIvl9H1AwAAAAAwfhfISjZH
+znvOnIJz5HPOotudX+6FmzMys1V0/QAAAAAAXKe03df9oYM84+HAZ0flJC/W
+0e3Lb/dEzku+1fZn/vroawAAAAAA4DqdOYad3e193ls5Sf6zVdru/T3fs0zd
+7f8+j25bDt5vq8r+fJKXAAAAAADQlzYvqckonvc+57WcJH/+4sR67t7IW8wt
+GbHmuK/s03xPHNwbBwAAAAAAztXO6Sgdu17tfP2xnCT/f/cV9cw6yEtm0e3K
+0f5dyEsAAAAAABiStF0Dq3TcetF+7bG9u9fn5BVt/nJOVlKc0XDxe642D1tE
+1w8AAAAAwHWpfM//pv3a9YE/W3ZU1/KMrGQd3a682b9v7W8jCwMAAAAA4CIq
+Mol1+3UPe///c5fv/LdzVqrnlkS3Kyf38aF5SadYRdcPAAAAAMB1yGPOpe/0
+p+0e7Ps5Sed7STTHtzPyEntbjECbl6wr+zjfHzfR1wAAAAAAwLg1x6ZwfHqe
+fl07qbc9t9tcpjYruYtuW4r6ujSze/EkLwEAAAAAoFYqX+dqc2AOwKLH+uZn
+ZCXL6PaluL/313UryUvMIwIAAAAAoFiq29d918MFapSVTMgZ92Rv85sAAAAA
+ALheZ6x79Pe7/Beqsba+VXT7Ut3nd+nXdd5K8pJFdP0AAAAAAIxH5Xj0y5j0
+7EI1PlXWuI5uX87q99sz7s9FdP0AAAAAAAxfOxY9+PWt0u/7o8hKJiLncWdk
+Zavo+gEAAAAAGLacd1SOQW8uXKesZMKa40ZeAgAAAABAH84Yf55fuE5ZycS1
+ecmq8j7I9/lN9DUAAAAAADAs7djzKPKHM7KSh+h2pvN74Zy8ZBZdPwAAAAAA
+w9EcizHMKWlrrd3fexndzvRyP9Teu/k+uo2uv72GeeMuug4AAAAAgCmrfD9/
+HVRrzbi4rOSKtXlJTYb2PISMYuf7bx5dCwAAAADAVFWOMy+Caq3NSsLHxOn1
+vrg9Y87RIrj2dVvHJrodAQAAAACmqB1jLh1b3gTVOj8jK5lHtzW93x/5Xt6M
+bd7RkHIbAAAAAIApymPEYxlXPicriW5nLnaP3KTt3u0198kqoN7ZEHJIAAAA
+AIApqxxXngXVWpPrZE/R7cxF75Ocl3yrvFfW+esvWOvdgRoW0W0IAAAAADAV
+7Zhy6Vjyt8B6V2OZL0C8M+6Xp0vlJUfyv0102wEAAAAATEV+f71iHHkRWG/t
+2kphNROrOe4r75m8T/ztBeo7Nv9lEd12AAAAAABTUPne/cXWJzpQb82YdzaL
+bmviVGaCF8lLXsn/NtHtBgAAAAAwBe1YcMnYceT6W/PK8e5NdDsTr71/Su/3
+3ud4RJ0XAAAAAIC/x2hvhzRmfEK9y8px7ofotmYY2nu+Ni+576Get/K/TXSb
+AQAAAABcs8rsIXL9rdq9Snrfc4LxyPfwGffSquNaFkPOJwEAAAAArl3FeHHk
++ls3lWPbT9HtzPC099O68p761lVm2BwPJ5xvE91eAAAAAADXqDJ7WATWe8r7
+94d0vm4S1yPPE6nN4LrISwrymkV0WwEAAAAAXJvK7CFy/a1vFfU+R9bMOJw4
+t+NYXnLW+m7p9L1TNtHtBAAAAABwbSrepx/j+lv2dOckldnhSx5XlZdU3NfL
+6HYCAAAAALgmBe+zh68B1Bz3lePYs+h2Zjya467i++IlL1lUnG9ecR7zpAAA
+AAAAOpDfg68YD45cf2tTUe8qup0Zn/Z7oyYvKc4T8zyRinMso9sIAAAAAOAa
+pPL9GZ4Cay199/7l/ftZdDszTvneSdu9SGryklXBeVaV97a5JQAAAAAAZ6oY
+B74PrLVmPHkZ3caMW9ruJdJrXtIc68rPX0a3DwAAAADAmLXvzJeOzVbtXR1U
+68Z793ShzUtqsrq/2pzl1fuw8nPNLQEAAAAAOFNzLEqzh8Baa8ap76LbmOty
+Zl4yO/KZNXsGmVsCAAAAANCB5vhWOCb7EFTnrGL8+Ft0+3KdKjLG3Tkgv83L
+ypnemVmJuSUAAAAAAJXaMdbBz9OoeJff2DG9avOS0u+fl3vzbu+zlmdmJeaW
+AAAAAABUaI556XhsUJ2zinFja2/Ru7RdO6smL8kWO59TOr9LPggAAAAA0IHm
+eCgciw1Z0yqVzylZRbct09HmJZtz5oKc8fXmlgAAAAAAnCFt95ouGYe9D6hx
+Xljjk3frubR8z1V8P/2T7XWUk5hbAgAAAABQINWtazULqLNk/Pk5okbI2ryk
+i7W0zC0BAAAAALiAtN2XumT8dRNQ431hjfPodoWO54nUzi2ZRbcDAAAAAMDQ
+Vbz//nDh+m5S2Z7Zi+g2hRcVOV/XVtFtAAAAAAAwdIU5RHZ34fpKspyL5jhw
+ilQ+d6trs+g2AAAAAAAYqlS+X3p2sf2iC8eYV9HtCce032uluaS5JQAAAAAA
+PcvzMArHXNcXrG1WMLa8im5LeEtz3AbmJbPo6wcAAAAAGKLmeCocb11eqK6b
+gtpW0e0Ip2rv7f8wtwQAAAAAIF47b6N0vHV+odpWxn+5Jm1Gskhl+++YWwIA
+AAAA0KNUsd/0hepaykm4Bm0eeZ/K52+ZWwIAAAAAcAEV77c/XaCmU/ObVXT7
+wSFpuyfJckD5iLklAAAAAABHpPI9plc913NqTnIf3XaF1/Wu8aV17Joe2z//
+FF0vVX08bzw0NgPIQuSMAAAAAAAnaMd2S8dYlz3Wc0pOkrOdu+i2K7imz40/
+K8ezc27yLvoaeLV/79J2X53SzHEIZtHtBwAAAAAQLW3fgR9EVnJiLXk9o9vo
+djvxej42vnc0pv0l+nr4p19392YfYz6yaxXdngAAAAAA0VLdXgrrjmvIY8/r
+U8Z189+NbrMTr+mxh3HtnLu8j762KUrbvdlf8pHofKNrs+j2BQAAAACI0o7/
+1o6vdjK3ox1/fuvd/NGsuZWzjNTdXJJDfjY+RF/nFLTfH/dpuHuzd+VbdFsD
+AAAAAERJp++hfkgeP66e45G2+6SsTzjPwznnuXB7vm+zjL7HtvM5zC/pvz9P
+uT+vxTy6vQEAAAAAIqTz1xPapIL5Hum/9nk45T39PE49in1J2mt71/hxwbHt
+fC57vvfbp7O0zeo2A8gy+raObm8AAAAAgAipu32pN+2Y8vyARWOZTl/HaJ1G
++I57c/wRML79Nfq6p6K9l1cdfs8M0SK6nQEAAAAALqkd+63JRPoYo31ux6FH
+M49kry0/v3F9X7IjX/up/fPatbusxXX5/r5L17nH+/NYvwcBAAAAAGqk7TyQ
+knHUp/bruhonfm4/Z5FGsh/JkXY8tvZWzj4+F37WpyOf9ZrH6DaYqlS2ptxY
+nLUPEQAAAADAmFSM7y73vv5lnHiVTtsDe93+3fs0wjW2XmnHLweu9Y8zP/Ox
+sG/sWxJ/H8zae3szgLzjXA/R7QkAAAAA0Ld2XLd0/HQeXfcQpd/ngRxca6vi
+cw9lMMd0ck46uydu0/j3hL+LbkcAAAAAgD6l7fvvRWOn0TUPUdqumbXbTp3u
+tV6Ql5w1j4Ve75G8Zt0qjW9P+FzvLLr9AAAAAAD6ksr3G1lH1zxEOaPYaaPv
+PZ3j+wn908u56bwvFxXfe5GeotsMAAAAAKAvFWOm99E1D03a7um+20bvezrP
+xxP652d0e1DUp2PaE34Z3V4AAAAAAF1L2zWBSsdLb6PrHpr06/pbve4Xkn7f
+E+U30e1Bdd/O0vD3hJ9HtxMAAAAAQJfSds/pknHS5+iah6g5Htv2+dl41/O5
+vspKrl8a7p7wee+Sm+j2AQAAAADoSsU47LfomoeozUh6n1PSnmt/D3lZyZVL
+w9sTfh3dJgAAAAAAXUjb9X5Kx0jtVfJ7O+7uVdLLPiV753v/Rh/9iG4Teuv7
+l71NhrAnvJ8FAAAAAMDope2+CKXjo/YqOdyWea7H5wue77U++jO6PbjIPXDT
+fg9H7gnv5wEAAAAAMGoV76Zvomvmn757rZ++RtfHxe+HWWOZLr+3ST6fvUsA
+AAAAgNGqGBddRdfMSX33Kbo+Qu+Nlz3hL7W3iT2MAAAAAIBRStu9okvHRO1P
+MADp1/1RDnkXXSPD0H6fry+QlyyirxUAAAAAoFT73nnpeKi9CQagOT680kd/
+RNfH8DTHPPW7Pteznw8AAAAAwNhUjJs+R9fMP3336ZV+sv4WR+X5H6m/tbny
+HvP2LgEAAAAARiFt94EuHQe1J8FANMfXI330I7o2hi/nGWm7D3wfmclD9PUB
+AAAAAJyiOe4rxkCX0XXzT/99P9JHn6NrYzzazHTVQ15yF31tAAAAAABvyXNE
+KsY/59F183ffHdur5Ht0bYxTc9ymbvd/z/NVZtHXBQAAAADwmprxz+ia+afv
+jq2/9SG6NsYtbfd/f+ooL3mKvh4AAAAAgGPy+jjGPcepOd41fh7on6/RtXE9
+0nb/900Hecky+loAAAAAAA5pjoeKMU/7NQ9Ac3w50DfW3qJzqbv93+fR1wIA
+AAAAsK/yffFFdN1Td2ROSf7v99G1cb3azGR1RlaSs5ab6OsAAAAAAHjRHLPK
+8c7b6NqnrjkeD/TLp+i6mIb2Z8e68ufHOrp+AAAAAIAXqW79rb+i65665vh4
+oF++RNfF9KTt/u81mcl9dO0AAAAAAO1aOlV7D0TXPmXt2ls/9vrkMboupi3V
+7f9ufhoAAAAAEKo5vlWun5PNouufqub4Y68v7OXOYKSy/d9ztmLvEgAAAAAg
+RF7/5oycJFtGX8MU5XW29vohzy95F10X7GrnrJ26vt+36HoBAAAAgGlJ2/2Y
+z5lP8kte4p3wi/bd/h4lPxvvo+uCYwp+3iyiawUAAAAArlPa7rn8Iuca644y
+kn1PjVV7jsXueaPb4FrkTKTNRnbb/UN0XXCK9Pb+73nNLnuXAAAAAACdascm
++8hFikS3wzVI273cv++17cfouqBUen3/95y5mqcGAAAAAHRGVnI9muPPvXb9
+HF0TnCNt90s6tP/7Q3RtAAAAAMD1kJVch+b4utemX6Jrgi6k7f7vywM/N+6i
+awMAAAAAYBhyLrI3hvw1uiboWtru/77auc/zfJNZdF0AAAAAAMRqjk97Oclj
+dE3Qp/Tr/u9P0fUAAAAAABCnOT7s5SR/RtcEl5LX4Erb/d+X0bUAAAAAAHB5
+bU7yU07C1DXHwlpcAAAAAADT0hzvGz92cpLvjXfRdQEAAAAAAPQtZyJtNiIn
+AQAAAAAAJievtbWTk+S5Je97Pt+XvH989HUDAAAAAAA0xx8Xzkk+tuf6HH3t
+AAAAAADAtDXH405Okvd0/9Dz+d61ecxPa3wBAAAAAACR2nWwLpaTtOd8mcPy
+GH39AAAAAADAdO3lJH9dKCfZncPyMboNAAAAAACAacr7hOzlJL3lFnn/9jaX
++bG7J0p0GwAAAAAAANO0s696pC/R7QAAAAAAAExPXmdrADlJ9j66LQAAAAAA
+gGlpc5KfA8hJ/oxuCwAAAAAAYFryPI6B5CTZ5+j2AAAAAAAApqPNSX4EZCKH
+5LzmXXSbAAAAAAAA05BziQHlJNljdJsAAAAAAADT0OYk3weQj+z6GN0uAAAA
+AADANOR9QQaQjez6Ed0mAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAXfj/r5Y85g==
+        "], {{0, 1636}, {1611, 0}}, {0, 
+        255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{106.76822916666623`, Automatic},
+      ImageSizeRaw->{1611, 1636},
+      PlotRange->{{0, 1611}, {0, 1636}}], " ", "=", " ", 
+     RowBox[{"e", " ", 
+      SubscriptBox["Q", "q"], 
+      SuperscriptBox["g", "2"], 
+      SubscriptBox["C", "F"], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        RowBox[{
+         OverscriptBox["u", "_"], "(", 
+         StyleBox[
+          SubscriptBox["p", "1"],
+          FontWeight->"Bold"], ")"}], 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Nu]"], " ", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             SubscriptBox["p", "1"], "-", "k"}], ")"}], ".", "\[Gamma]"}], 
+          " ", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+            RowBox[{
+             SubscriptBox["p", "2"], "+", "k"}], ")"}], ".", "\[Gamma]"}], 
+          " ", 
+          SubscriptBox["\[Gamma]", "\[Nu]"]}], 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SubscriptBox["p", "1"], "-", "k"}], ")"}], "2"], 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SubscriptBox["p", "2"], "+", "k"}], ")"}], "2"], 
+          SuperscriptBox["k", "2"]}]], 
+        RowBox[{"v", "(", 
+         StyleBox[
+          SubscriptBox["p", "2"],
+          FontWeight->"Bold"], ")"}]}]}]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]Comparing the definition of the projector ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      StyleBox[
+       SubscriptBox["p", "2"],
+       FontWeight->"Bold"], ")"}], "[", " ", 
+     RowBox[{"M", "(", "q", ")"}], " ", "]"}], 
+    RowBox[{"u", "(", 
+     StyleBox[
+      SubscriptBox["p", "1"],
+      FontWeight->"Bold"], ")"}]}], TraditionalForm]], "InlineMath"],
+ ", the momenta ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "2"], TraditionalForm]], "InlineMath"],
+ " are exchanged, and since the outgoing anti-fermion carrying momentum ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "2"], TraditionalForm]], "InlineMath"],
+ " is described by spinor ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    OverscriptBox["v", "_"], "(", 
+    StyleBox[
+     SubscriptBox["p", "2"],
+     FontWeight->"Bold"], ")"}], TraditionalForm]], "InlineMath"],
+ ", include a minus sign in front of ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "2"], TraditionalForm]], "InlineMath"],
+ ".  ",
+ "Perform integral to obtain ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["F", "1"], "(", 
+    SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1689153645],
+
+Cell[BoxData[
+ RowBox[{"num", ":=", 
+  RowBox[{"Spur", "[", 
+   RowBox[{
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"p1", "-", "k"}], ")"}], ".", "\[Gamma]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"p2", "+", "k"}], ")"}], ".", "\[Gamma]"}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+    RowBox[{
+     RowBox[{"Projector", "[", 
+      RowBox[{"\"\<F1\>\"", ",", "\[Mu]"}], "]"}], "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "p2"}], ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"p1", ",", "0"}], "}"}]}], "]"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->497772027],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{"num", ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"p1", "-", "k"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"p2", "+", "k"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     RowBox[{"p2", ".", "p2"}], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+     RowBox[{
+      FractionBox["1", "2"], 
+      RowBox[{"q", ".", "q"}]}]}]}], "}"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1202905078],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", 
+   RowBox[{"q", ".", "q"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
+    "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"q", ".", "q"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", 
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
+    "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"q", ".", "q"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", 
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
+    "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   RowBox[{"q", ".", "q"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", 
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
+    "]"}]}], "-", 
+  RowBox[{
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", 
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{559, 44},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1083893693]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->162442486],
+
+Cell[BoxData[
+ RowBox[{"8", "-", 
+  FractionBox[
+   SuperscriptBox["\[Pi]", "2"], "6"], "+", 
+  RowBox[{"3", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        RowBox[{"q", ".", "q"}]]}], "]"}]}], ")"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", 
+      SuperscriptBox["\[Epsilon]", "2"]], "+", 
+     FractionBox[
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], 
+         RowBox[{"q", ".", "q"}]]}], "]"}], "\[Epsilon]"], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        RowBox[{"-", 
+         FractionBox[
+          SuperscriptBox["\[Micro]", "2"], 
+          RowBox[{"q", ".", "q"}]]}], "]"}], "2"]}]}], ")"}]}]}]], "Output",
+ ImageSize->{410, 60},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->267210168]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", "e", " ", 
+     SubscriptBox["Q", "q"], 
+     RowBox[{
+      SubscriptBox["F", "1"], "(", 
+      SuperscriptBox["q", "2"], ")"}]}], "=", 
+    RowBox[{"e", " ", 
+     SubscriptBox["Q", "q"], 
+     SuperscriptBox["g", "2"], 
+     SubscriptBox["C", "F"], 
+     RowBox[{
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]], "[", 
+      RowBox[{
+       RowBox[{"2", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           FractionBox["1", 
+            SuperscriptBox["\[Epsilon]", "2"]], 
+           StyleBox[
+            RowBox[{"+", 
+             FractionBox["1", "\[Epsilon]"]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+           RowBox[{
+            StyleBox["(",
+             FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+            RowBox[{
+             StyleBox[
+              RowBox[{
+               RowBox[{"-", 
+                SubscriptBox["\[Gamma]", "E"]}], "+", 
+               RowBox[{"ln", 
+                RowBox[{"(", 
+                 RowBox[{"4", "\[Pi]"}], ")"}]}]}],
+              FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+             RowBox[{"ln", "(", 
+              FractionBox[
+               SuperscriptBox["\[Mu]", "2"], 
+               RowBox[{"-", 
+                SuperscriptBox["q", "2"]}]], ")"}]}], ")"}], 
+           StyleBox[
+            RowBox[{"+", 
+             FractionBox[
+              SubsuperscriptBox["\[Gamma]", "E", "2"], "2"]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+          StyleBox["-",
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox[
+           RowBox[{
+            SubscriptBox["\[Gamma]", "\[CapitalEpsilon]"], 
+            RowBox[{"ln", "(", 
+             RowBox[{"4", "\[Pi]"}], ")"}]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox["+",
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox[
+           RowBox[{
+            FractionBox["1", "2"], 
+            RowBox[{
+             SuperscriptBox["ln", "2"], "(", 
+             RowBox[{"4", "\[Pi]"}], ")"}]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], ")"}]}], "+", 
+       RowBox[{"3", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           FractionBox["1", "\[Epsilon]"], 
+           StyleBox[
+            RowBox[{"-", 
+             SubscriptBox["\[Gamma]", "E"]}],
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+          StyleBox["+",
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          StyleBox[
+           RowBox[{"ln", 
+            RowBox[{"(", 
+             RowBox[{"4", "\[Pi]"}], ")"}]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+          RowBox[{"ln", "(", 
+           FractionBox[
+            SuperscriptBox["\[Mu]", "2"], 
+            RowBox[{"-", 
+             SuperscriptBox["q", "2"]}]], ")"}]}], ")"}]}], "+", 
+       RowBox[{
+        SuperscriptBox["ln", "2"], "(", 
+        FractionBox[
+         SuperscriptBox["\[Mu]", "2"], 
+         RowBox[{"-", 
+          SuperscriptBox["q", "2"]}]], ")"}], "+", "8", "-", 
+       FractionBox[
+        SuperscriptBox["\[Pi]", "2"], "6"]}], "]"}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1592908291]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Electron self energy",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->993628516],
+
+Cell[TextData[{
+ "In the covariant Fermi gauge, the electron self-energy function at one-loop \
+order is:\[LineSeparator]\t",
+ Cell[BoxData[{
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     RowBox[{"\[CapitalSigma]", "(", "p", ")"}]}], "=", "  ", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3T+PY8m7EOASEBDOhmTNfoKR9gsYtB+gddHmvldiU1qAtLqZw81uh0zm
+EG3UIdImDglWogUJyUpOkJCQho5IkBjOGZd3PB67qo597Dp/HksP98dOT/fr
+c3pc560/7/vP/+7f/M3P/yiE8O/+afP//M3f/vIv/u2//du//1f/pPn//Mu/
+//f/+u/+cfM//lnz5//Q/I/2P3769AkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOhZ8/qh8UvjQ6P9D9/X
+jgkAAIC6Yp7Y+j3mioc+1o4PAACA+zhYS9w7zhHP+bV27HBO83rXWDQeG6vG
+uvHSeKgdGwAAjEnz+rFDnnjKT7XfA/PW5oExP1zG/LDNDTdnfl/b3PFd7ZgB
+AGAK2vOLB2cZc76rHS/T17zex/xwFbW54WuHOY5t+/drvw8AAJii5vVH5nn8
+t9oxctX93e/jfIx5Wcr7O8RzvLd0E3O+a9bFP8XvZ60RAABupHn9mnkm/6V2
+jFx1f7us23VZ39sUaPO51N7SPrzeI+cFAIC5K8gdf6gdI1fd33dxfe9WuVst
+b21uWvv6AgDAXDSv3xLP53/Ujo/e7vPTAPK9vmyCGqoAAHBXzetj4hldb44J
+Cbuzhm8DyP2uWWtc1r6OAAAwN2HX7zH1rK43x8SEXa+LW5yBvLX23KRaOAAA
+UEHz+iXxrP6xdnzc7L6P6QzkNui7AQAAVYV0fw69OSau3f85gNww5dlaIwAA
+1NW8vss8t+vNMQPN630Y3hnIV2uNAAAwDM3rp8zz+3e1Y+RuvwvvwnDOQK5q
+Xw8AAOCLkO7rqDfHDIW6ZyA3Qd8NAAAYnKA3B6d/L5Z3zhnb/bJPtd83AADw
+rZDvzfFD7Rip9rvx0PgPjf93h7zxxVojAAAMV9Cbg29/J9qccX3HtcbH2u8Z
+AABIa16/JZ7r9eaYkea1uGPOuF9r1HcDAAAGLuR7c/xUO0bu8nvQ5oybO+aM
+rXXt9w0AAJQJenPMWqWcsbWq/d4BAIByQW+OWaqYM7aWtd8/AADQTZsfJp7x
+f6kdH73f70tzxraezX+8Mmd8kzcCAMD4BL05ZuOKnHHbeGq8a/eZXpk3vq99
+HQAAgO7CFb05mteHvvYw1r4OU3Zlzrg8+l6XfJ/995I3AgDASIV0b45fO3yf
+72Me+nthLvF7/Hp1eG53b3vLGQ++59sF3+816MEBAACj1q4tJp75O/fmCPl+
+H23OaB/sbe/pQ7isP2ObZy4y31feCAAAMxNu0Jsjkzuqu3Pb+3mTnPHg+z92
+/L7r2tcEAAC4Xkj35vjtwu/584nv1a5t/lj7/U5V+FLDput+0qKc8eDnrOSN
+AAAwP6Hn3hxhd+bxeA9s+zO+r/1epyrs6p92zRlfu+SMBz9rU/j9l7WvCwAA
+0I+QP5fY+UziiVy0PduoFs5t7t8i7GradMkZt9fkdYU/7+LvDwAADE9I9+b4
+44Lvd1xftbhGK52u8/sO63+95Izx577L/Iy3S9YyAQCAYQs99eaI3+s4b1QT
+p//71eZu6445Y5vPPfX08xeZn6N3IwAATFDooTdH2O17PdynqibObe5V1zON
+7deuQo+9McL5Ojnt2cmH2tcIAADoX/P6IZF3fOzwPf48+Hvt/9a3sd/7tAjd
+zzSub5HLNa+XM3mj3o0AADBR4creHO3a4tG6Zbv2qCZOf/fn4UyulrK55frf
+iRz2Rd4IAADTFtK9OX7O/N3jGjsX9YHk7PVdddyf2uZ0ixvHdFwnZ137OgEA
+ALcV8r05zq4fnlivVEu1v/vSdX9qb3VwCmPb/9zn2tcKAAC4veb1UyIfOdmb
+I+abx7VUk+uTFN+PS+qnPt9zv2jY1epp/8ey9vUCAADuo3l9SOQk3/TWCN/W
+xFFLtb970bV+6iZUqGkadj0lH2tfLwAA4H5CujfHD0dfe7xG+fH4a7joHryP
+eWCXM41yNwAA4C5Ch94c4XwtVrnjdfdg1XF/6uqe+1MBAADCtzVSD32IX3Pq
+bOM3X0fna78Iu36Ig96fCgAAkMkJ2/2px30bT65PBr0cu1zzthbOc4ec8c3+
+VAAAoJaQ782RWpP85mtrv58xCN37bty1fioAAMCxkO7Ncey3zPrjn7Xfz5Bd
+sNbY7mVd1I4bAAAgnK99c+znwq/Xp+P0de6y1tjuT13VjhkAAGAvfN2j8ZQ/
+wkEN1ZCuyfp5bbL2exqSC9YaN0EtHGYszrOc81A7PgCAOSrIA0/WTg3p2jqt
+72u/tyEIu36NXdYan2rHDPcS/308NdahW1/T/b+XTZyXeZRTAgDcVkjXwTm7
+fti8fs48182+Zk7o1q/xxbMvcxDzvHXM/brkiiVeYy75vvb7BACYmrCrfdM5
+/wu72qypmjkfa7+3itf0fSjv16jvBpPXzovcMF88Zxvnb9QnBgC4UkH+90Pm
+7+dq5vxc+z1WuKZPHZ6PXzzXMmVhdz5xc8d88Zw2b32ofT0AAMYqpHtzZNcN
+Q/6s5O+13+Mdr+W7mAuWrjU618hkhd064xByxlM5pPkaAICOQnrdsKhWasjX
+zEmuXU5B2K2tlK41bqx/MFVxDmU1gBzR3A0AQI/CrvfGueerolo3Ib122TpZ
+p3UqQnnvDc+rTFroVlP42L7GzVOcizlb6yb++WPMUV+u+JnmcQAACjSv7zPP
+VcXrhSHfH/K72u/3BtfvIZTXw3lNPQvD2MWcr2vutm4sQw97SMOXXh+l/yYP
+53TUqgIASAjp3hydaqSGHvt1NK8PYeC9IeOaR+ke1VXteOGWYg5Ymqtt+8oX
+E/G08zrPHf6Ntp5rX0cAgKEK6d4cRWcdD75XL/06DvLZTj//ztetdI9q+4y8
+qB0v3ErYnW0sXef7nDNWiG/VIYdc176mAABDlMn1itcJD75fah2zlezXEXZ7
+aPcxDW7dMXTbo6r3BpPWIW+sfs43xlo65/Pq3y4AwBfN68fM81Pn2qghv/b4
+Z+bv79dBO+etd7hepXtUqz8nw611yBs3YUC1aMLuTGRR3LVjBQAYipDuzdHp
+rOPR971o7TF8qdXa1twZVF2djusV6uEweaGsj+mqdpyJ+NcF8a9rxwkAMAQh
+3Zvj4rOGBWuP7Z99f/R3fjj4859qX5uDuN6F8t7m7bOofW5MXkHeNYq6pWFX
+r2e0+S8AwD3E/C71vHTVntGCtcc2b/0hfu3PB7nmYPpAht3ettI9qsva8cI9
+FORb7b+H0ay9h12fyNy/88HnwQAAtxLy/TSu2jMac9Ncv8djg9mrWrge0bJH
+ldkIu1pRqTxrVHnjwfvKzRO1f/ZQO04AgBpCujfHHz39jJ8SP+PYx3BBbZ4b
+XZt1Yczt19mjev/78y6uFa3C7hzqJtoe3Z/twZ89x69fuGdXXftN5t/E6PLG
+g/f2mHlvm9oxAgDUENLnEX/t8eekctRDPw7gmnTpU7esHe+cxOf65w73p2S9
+uP1+i9rvbSya19PU/02E/H6D0b9HAIAuwtd1aU7ptVZN8/o98bM+DiRvLD3b
+uB3z2sqYxHuyLrwv13iLeeRD7fc8VHFeJXUfnmvH2ON7XWd+V6xbAwDcUNid
+rzw8/9jWyhlED8eCtYa9jefGu92PvtYXu2rv8aL2NRiaTD71Wju+nt/ru/Dt
+/udDq9oxAgBwf6G8b+Nk1lWGKuaMqWf2e+eQ1pd392WRuVaTu06Z92ztEQBg
+RuLaQklv81H0qRuzsNubuhlAvnhyzmDOeULIr8FNdk4lpNdaV7XjAwDg9sKu
+z0DJnsjtFNdUhiTsap9euz64jt9nFdeL9vb/bV+L9dJzk+3fW9S+VpXuTyp/
+mvT6W0if8Zz0ewcA4K81rpIcYuPZ8Ob34ZIzje1a8dOlOX38uU+hbM15Nmts
+Z67VMnM9Jr8eH9JzG8va8QEAcBvxWbgkb1zXjnXKOtyHvdf4d3rN5eO6UptH
+bjvEMos5hZA/4/hSO8Y7XYd3qd+F2vEBANC/kO9NZy1hWPdhn6ct7hTXskMO
+2eayD7Wv5Q2vRW5tflb7NUN63+5kfw8AAOYo8+x3+DzsbGP9+3DXnPFEjMtM
+3jTp35eCvLE1+b2qR9dkkbgWT7XjAwDgeqG8lurrFPOAIemQv1d/Fu/wezOp
+/LEwb1zVjrPStdmeuR6z2LsLADBl8fm/pBZLu8Y1m/13le5FSQ/Nwe0DLVyD
+nEQN1ri2lnuvs82TUr/DtWMDAOByobyG57p2rFMX8rU6B30fCtfiWsvasd74
+Hr3OeY4lpPetzmoPLwDAVHR41q++N3Lq4r0Yfc4VyvuBrseUX4Xd2vxa3lh8
+vUY39wEAwGmhbN/dKPKVsYt5yXYq9yGU74Fu3/OidrwF72dRcH/kjV9fs3Nn
+YN9qxwYAQLlQtu9uUrVNhizxnD26vPHgPZXmj4Ndgwy7NdSStUZ547fXLvUZ
+Y98qAMAIyBuHpX2OztyL59oxXvHeSmuw7n/nVkPIv2Lcq1C2Lv8pvsfqcQ9J
+vIbnrtemdnwAAKSFsl7z1k/ue0+2U3/GjnlYSQ52mEM+VIjzIexqhJbmjK1V
+7es7VJl5g7vfXwAAygR1PgYnk1O9TelehN36apecbL+et7zldYjrY8tMnnPu
+/th7mb/n567funZ8AAB8qzBvXE8pVxm6mLOkcqnJ5SWh2x7WU3lku25+9V7q
+sKtp+3RlLP6tlF3rbeI62hcPADAgpXlj7TjnJqTXHCfdVz5ctgZ5bBN/t9vr
+uAy7WqinPMWvWce/c83PtNbY/V4vU/ewdnwAAOzIG4crsx7zUDu+O7z/rvVo
+ahpMHZ8xyvyuL2vHBwAwZ/G5vGSNZVk71jkKzoEdXouHwjmOWjnjs5zx6nu8
+zFxj1xcAoIJQ3ldvWTvWuQrqT566Jvt1yNQa1b1sg3XGvu9v6jNp0nu0AQCG
+SN44fCHd984z9Ke/1mXX4b77Wd/iz3Se8Tb3dJG5/k+1YwQAmAt54ziE9P49
+ecu316vNI58Lf7e7eo3fe1H7fc5BvNap++H3HwDgxgrzRjUiByCcP9v3Vju2
+MQhfaqe2ecgmlJ3r3X/dKv7dRe33MUfxc2qb+YzStwMA4EY65I2eyQYg8ey8
+rh0b3FrI7131WQUAcAPyxnEJ6bOOy9rxwT3EtV+fWV9fk0U0q/cNANyHvHF8
+MmsuD7Xjg3sJ+b4sb1PaWxw/rx/jvumXgs/u/TXYxGtlrzUAcBF54zil1ltq
+xwb3Vpg/jbb+atj1Ll0Vvs9SbzH3XAY9ZACAAvF5RN44Mon7tqkdG9xb4RzY
+p5grjSJPiu9p2XO+mLK2HgkApGSeueSNAxXO1wTV15FZ6pA/boecI8X3sQr3
+7Ul6fH2Wta8DADBMZ5655I0DlsgdV7Vjg1o65I/7NciH2jEfxV4zZxxVjg0A
+1HP0zCVvHDi5I5wWP8vWHXKk59o5ZNjtTd0OIF8cfI4NAAzDQf4obxw4uSOk
+hfxZ7mPre372xc/bpytyxn3t1FXMPRfRu/j93x/8t1XMkS89O9n+rGXtewoA
+QHdyR8iLeVPXPaCvMad7uFFMj6HbuuhxbKtrctzwpcfH+oJrsw4jqTUEAMCO
+3BHKxFzp5Ypc7TnmWg8X/vxFzEUvjeGma6Khey3XV/kjAMB4hPP73Ebbww5u
+KeZ/5/7ddN0n+hLX/05Zx6+59md9Cnc8ixlz3E2H6+BsAwDACCSe6Ra1Y4Oh
+CsOrZZpaZ3yodI2WhddH/ggAMAJyR7jcgHPIajnjieuzlj8CAIxb2NVPPPcs
+5zkOCsUcqV1n21bMF9v8q3qfkDPXp2QN8m2IsQMA8Pl57vHcc1zt2GCs4pzM
+8x3zyPbM5LL2+y68Lrlron4OAMAAhfN9695qxwZTEPOlfW3Uvva1bmJu+lj7
+/V1wPfa9f5O5cO04AQD4Wjhf639TOzaYonZPZvjSa2MV/w1uEp7j17V7BCax
+j7wwf1TnGQBgQBLrIKvasQHTFfPH1P5VZx8BAAYipOvkjG4vHDAu8TMotY93
+UztGAAA+P7c9J57Z1KoAbi4k6nWZxwIAGIbEfrHX2rEB85GZx9rWjg8AYM4y
++1XVqADupuDs47J2jAAAc9W81onntIfa8QHzktm7uq0dHwDAHMU5/nPPaPar
+AlWEXU8S5x4BAAYi7HrF2RsGDErY9b0899n0Ujs+AIA5iWuO52riv6mvCtSU
+WXv0+QQAcCeZc46r2vEB89bufbAvAgCgrkxtVTVygEFI7I2wbxUA4A7aOjjW
+HIGhS+yPeKsdGwDA1IV0723nHIHBCOl+He9rxwcAMFWZ57DWU+0YAfZCuo+Q
+zysAgBuIZxzPnR1qbWrHCHAsscf+uXZsAABTE+fuU2cc3+z/AoYoceZxUzs2
+AIApKcgb7f0CBqut33Xmc2tbOzYAgKkozBvXteMEOCd1Trt2bAAAU9C8Hgry
+xld1VYEha14LuSMAwG0U1MXRjwMYBbkjAMBttGcXMzmj2jjAaMgdAQD6Ffeo
+buSNwJTIHQEA+hPrEOb2qMobgdGROwIAXK95LRvbgpxxXxfnoXbMAF3Ezzm5
+IwBAR2HXd6NLzth6URcHGKNwvr/ja+3YAIB5i+cGl/F55SWeITyXp73GP1/H
+r1/cKkcLux5n68K9qYdWta8pwKXi596pz7ZN7dgAgHk5WMe7JC87Zxu/3/LS
+faJh12fjmrjaGJxtBEYtnO9T+1w7NgBgHuIa4bn57FvYRKuETeI5qdNaY7BH
+FRi5sJvbO/c5t6wdHwAwbXEtr4/8bIjaPbYPta8xQB/Cbq/+uc87+yoAgJsI
+u3XG7QDyu1vYtO+v9jUG6FPzej7zmfdWOzYAYHrCrvbNywDyu761ZyDXwToj
+MFFxXuzkHovasQEA0xJ2+1MvrX+zjTnnKnypoXroMf735/h801ednZyX+L6c
+ZwQmLfE5+FQ7NgBgGsKuvsL6wnW85aVreeFLf4916G9/7GvMTx/li8BchF2t
+6XOfi4va8QEA4xfzxi61cF5vtY4XY2nXKJ/C1/0iz1nHr1t6NgLmLCTq5NSO
+DQAYvzhPXbp3dCM/AximOI928jxB7dgAgHHrkDe2X7OsHS8A5yVyx03t2ACA
+8eqQN66dGQQYvnC+PrYaqwDAReKZwlzeaK0RYETC+f4cq9qxAQDjE8rq4rR5
+4/vasQJQTu4IAPQp5PtwvNqjCjA+ckcAoC9h18dC3ggwQXJHAKAPzeshc8bx
+Td4IMF5yRwCgD4n6e843AkxA4kyCOqsAQJHmtcjsVV3WjhGA6wT9HQGAKzWv
+bSJvXNeOD4DrJXLHbe3YAIDhy9TH2TrjCDANqT0mtWMDAIYvs+b4WDs+APrR
+nltPfN4vascHAAxXmxsmniM2teMDoF+Jz/yn2rEBAMOVqa26qB0fAP0K5/t0
+qLUKAJzUnmO05ggwL4l6OZ9qxwYADFO7PymROy5rxwdA/1L1cpxxBwBOSexX
+fasdGwC3037On/n8X9eODQAYnsS887p2bADcTuasu75MAMBf7FkCmK9MjW31
+VgGAv6iVADBviX2r29qxAQDDkdivtKkdGwC317ye1UsDAHKa1+uZ54Xn2rEB
+cHvN6yGRO26dewQAWuaaAWhroyXGg1Xt+ACA+hLPCovasQFwH5m1x9ZD7RgB
+gHqa1/vEc8L72vEBcD+ZtcdN7fgAgHpCoj9H7dgAuK+49niu5qq9qwAwY3JH
+AA6FRN8m5xkAYL7kjgAcS9Tf/hTXJZ1pAICZSeWOarIDzFPmLPynmFsaIwBg
+Rtqx374kAI41ryf5IwBwSO4IwCnN60X+CADsJWrqrWrHBkA9cW9K6uzjPn90
+/hEAZqB5bc48D6xrxwZAXTF/TPXt2NfPeawdKwBwW83r+cyzwLZ2bADUF2vn
+5PLH1nPtWAGA22ley8RzwEPt+ACor0P+aA8rAExUmx8mngGeascHwDB0yB8/
+n3tQRwcApqfdn3pu/rh2bAAMR2H9nMNzkCs5JABMR+LMo32rAHwl5o/rwvxx
+n0Ou7WUFgPGL+5DUPgCgWHuuocMe1sPzkE/ySAAYr8S+1Tf7jQA4Jc49bjrm
+j4fjy0vc17qwzwUAxiGO3efG91Xt+AAYrgvXIFM2Z6zjeLVs883a7xsA5iie
+X0nNDVt7BOCsOI6kzs/fymv8uY/GKgC4j5CufbCuHR8Awxd2vZ+ee16H7KId
+yx5rXwcAmLKQ7vXYeqgdIwDjENchn0J5T4++bePPtxYJADcQ0vuN1rXjA2B8
+wq6mznOlPPJzn8na1wAApibOE6f2GZm/BeBicZx5jLnkJjPm9L0Ouaj9/gFg
+SoKaqwDcUcwnF9EyjkOnbHpYu3wxDwoA/cisPW5rxwcAYbcP9inmgl3XLts1
+yPe13wMATEFm7VH9OgAGJa5XvnTMIZe14waAsQvpmqvr2vEBwClx/Fp3yB+f
+a8cMAGOXmL99qx0bAKTEHHJTmD+ua8cLAGMW9/+cG2edEwFg8MKupmvJech1
+7VgBYKxizRz1VgEYtTielaxBrmrHCgBjFc7XQt/Ujg0Augi7npLq5wDADYTz
+9VadeQRgdDLnMT7F/a3OZQBAR2HXp/nc+PpQOz4A6Kogf2z33LyrHScAjEnm
+zOOidnwAcImC/FHvDgDoKFGf7ql2bABwqZDvA7moHSMAjEmiNt2qdmwAcI1M
+/dXX2vEBwJgkxtV17dgA4Brt2f3E/hp1VwGgg0St1U3t2ADgWpmzj9va8QHA
+WMgdAZi6zN7VZe34AGAM5I4ATF3zem/tEQCuI3cEYA4ydVcXteMDgKGTOwIw
+B7FuzrnccV07PgAYuub1LHcEYA4S5x7fascGAEOXGEefa8cGAH3K1Fx9rB0f
+AAxZIndc1Y4NAPoWzvd7XNeODQCGTM1yAOYkUTNnWzs2ABiqTN2ARe34AKBv
+mX2rD7XjA4Ahyoyf72rHBwB9y8ybOvMIACckaqxua8cGALfSjnPO+gNAucTY
++VI7NgC4lUSdOOMfABzJ7Nl5qh0fANxKu754Zvzb1I4NAIamzQ/VCgBgjhK5
+47Z2bAAwNM3r1bgJwBy1tcTPzZ/Wjg0AhqR5vU+sOT7Xjg8AbknuCABlwvm+
+yK33teMDgFuSOwJAXqZGzmvt+ADg1uSOAJCXWXNc1o4PAG5N7ggAaZk1x7fG
+u9oxAsCtqbMKAGnN6yWRO65qxwcA95DIHTe1YwOA2prXozVHAEjOpb7Ujg0A
+amrzwnYfjjVHAPg8Lp4bE1e1YwOAmjJ7VbfWHAGYizifem5MfKwdHwDU0rye
+EmOkcRKAWWlriifGxIfa8QFADaka5M51ADBH4XyvqrfasQFADc3rfayBoz4O
+AESJsXFdOzYAuLeCvLG1qB0nANxTZr/qsnZ8AHBPhXnjqnacAHBvzWuTGBvt
+xQFgNuL5xlzeuK4dJwDcW6YGwLp2fABwLwX1VFuv5lUBmKPMmuOidnwAcGth
+16cq1b9R3gjArGXWHLe14wOAW2tejwV7VOWNAMxWnGPdqpEDwBw1r4fM3ht5
+IwB8+jxmPltzBGBuYs64LswZP8WvlTcCMEuZvarOOQIwOXHsKznTqA8HAHz6
+a741da5jUztGAOhD2PVpfM6c0TjlzTwqAHMWzzi+ZsbKh9pxAsAl4ji3jOuL
+JfVvTnmxRxWAOSvIG9XHAWCUDvLFS3LFv876W2sEYO4K88aX2nECQKk4tq0u
+2I96as/NU+33AwBDEPL15NQeB2AUDnLGS/ekHq4zrox/ALBTkDc64wjAKDSv
+xx7WGTfOaADA1+L5j1ze+L52nACQEtcarznP2O6veTJXCgDfCru65PJGAEYt
+rjV23Z/6FvfdPNqTCgDnxfnZ3J6eRe04ASAlnkfskjO2a5OPteMGgLEIuz7I
+qbF1WTtGAEgJ+fP6h9b2owJAN+16YmZ8fa4dIwCc0/Fs44ucEQAuE9J9HDe1
+4wOAlMK8cevsBQBcLuxqyKXqBjzUjhEAzincp7pW/wYALhf3+KTq0C1rxwgA
+5xSc1W891Y4TAMYupGvRbWrHBwDnhF0vjVzPjWXtOAFgCjJrjvo4AjBI7XmK
+zBimHzEA9KSdi02dC6kdHwCc0+6Nyaw56tcIAD0J6dqqD7XjA4BTMjXenNUH
+gB61+3isOQIwNgU13ta1YwSAKcnUpXM+BIBBCul+HK+14wOAqQm7/sjGXQBG
+I9bHSe1VNfcJAD3K7FfVAwuAQcqsOa5qxwcAU5OpMfBQOz4AOJZZc2zPP76r
+HSMATE2irrn9qgAMUruuaM0RAO4rUZ9uVTs2ADglcU7fmiMA3EDmrOOidnwA
+cCwzdq1qxwcAU9S8HhPjr3lbAAYnpPtKPdSODwCmKHFeZFs7NgA4JbFf1Tl9
+ALiRRH3zTe3YAOBYpr6qvlIAcCOJGqur2rEBwLHmtbRfFQDuT+4IwJgkzjpu
+a8cGAFOW6M9h3w8Ag5OY81zXjg0Apkx/DgDGRG8OAKhD7gjAmBi3AKAOYzAA
+Y9GOTYlx633t+ABgyuSOAIxFKnesHRsATJ1aOQCMhdwRAOrRowOAsZA7AkA9
+idzxuXZsAHBI7ggA9bT9sM6Mw5vasQHAIbkjANTT7k09Mw5va8cGAIfkjgBQ
+T/N6TNRafVc7PgDYkzsCQD1tPyx9OgAYg+b1YMwCgHoSfTpWtWMDgEOJ3PGx
+dmwAMHWJWquvtWMDgEPteXzznQBQR/N6SszjPtSODwD2EvOdm9qxAcDUZc48
+PtWODwD2EvXBP9WODQDmILEHyL5VAAYjVWvVmUcYD/X8Ybya13NiLH5fOz4A
+2EuMV+vasQFl4h6Ctl7jS2PpnBSMR2bf6rp2fACwF581T41Xb7VjA8qc2X/e
+7oNbh13/ceuSMGDt/lQ1cwAYurhGcW68WtaOD8hLnV0+PDsV98YtascLfC0z
+Fq9rxwcArXY9IjFebWrHB+QV5o7H2j0HT85TQX1xLH6z9gjA0CX2rX6yRgHD
+d2Hu+NUe9bi/dekZFerI/Dt+qR0fALRCut7qpnZ8QFoPueOps5Lt/lZnJeFO
+CtYe1T8HYBDC+f5SxisYuBvkjt/MIcWfsaj9XmHKMv+W38zlADAEIX1O33gF
+A3aH3PH488BZSbiRzFyuvasADEJI1whf144POO3OueOp/a3r4Kwk9CKkz5G0
+nmrHCAAF49WydozAtyrnjsf2vUDsdYcLhXQNu0/+fQEwBJnxqt2rZo8aDMzA
+csdjmxifzw4oFPJ1c4zHAFRnvILxGXjuePz5sT8r+VD7usGQhfxeIOMxANWF
+XV1+4xWMxIhyx2Pb8OWspHpccKTg37bxGIDqwu68kvEKRmDEueOx/VnJRe1r
+CkMR51dy4/GidpwAzFvYnVMyXsHATSh3PNZ+BukFwqyF3VmSVB30PfVXAajG
+eAXjMOHc8dD+rOQyOCvJzHQYj9fB/m8AKukwXm08z0EdM8kdj21D7AXiWZk5
+6DAet/82FrXjBU6Lc6ArmLBfG/8z5Mer/9v4bwOIF+ZmE+rncrX9z3gd1hWu
+P9xL6Xjc+h+NfxhAzFDTsnaueJQ3bkL98RIAAIBvvdbOGQ/WG2tfCwAAAM6o
+nTfG3HFV+zoAAABwXu280bojAADA8NXOGw/yx5J6VwAAANzfIM47xtyxrZe8
+CruaOTBX/6Xxf8Kuzur/avznAcQEc7IN9cfm2trPn7b+5H8PPoOYr/Z3/2PY
+/Xtox+X/OoCYoKanoI8TAPwlzPf8/Ut8Lnhf+x4AAAAM3Yxyx/acyHPQ9xwA
+AKCzCeeO28a68RjsOQIAALjKhHLHt7Dbh7psPNS+rgAAAFMy8txxE5xZBAAA
+uLmR5Y77M4uPta8bAADAnAw8d9yG3ZnFZXBmEQAAoJqB5Y77M4vtPtSH2tcG
+AACAnQHkjpsYw6L2tQAAAOC0CrnjX2cW7UMFAAAYhzvkjtvw5cziQ+33CwAA
+QHc3yh33Zxb1zgAAAJiAnnLHV2cWAQAApuvC3HHrzCIAAMB8FOaOb84sAgAA
+zFcid9w4swgAAEDrIHfc985Y1I4JAACAYWn3oDqzCAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADA9zWvRqh0H
+AAAAw9W81o32f2wbT413tWMCYBia10Nj1f7f2rEAAHW1uWLjLeaPe2trkQDE
+vSn7sWHTWNaOCQCoJ643fjpha74ZYN6a18vR2NDONz4bGwBgnprX65n8ca99
+dnisHScA9xX3rR7vT/lqLdJ5BwCYj6N9SSnWIgFmJn7up8aGt3je4X3tWAGA
+2zuom1PKWiTATMS5w5Kx4dVaJABM25m6OdYiAeiyP8VaJADMQJwr7po7WosE
+mIEL9qdYiwSACQu72gfX5I/WIgEm6Ir9KdYiAWCC2jG9h9zxeC1yWft9AXC9
+cL6vk7VIAJihsOvd1Wf+uJ9v1hMMYORCvq+TtUgAmIke9iWVzDevGo/mnAHG
+JXSvm1NqG9c1jQsAMCIxr7tV7njqeWEdnxkWtd87AGnhNvtTDq2NBwAwHqGf
+ujmX2sRnkzaHfah9LQD4Itx+f4q1SAAYkTZnq5g7nnp+eAnWJgEGIVzf1+mS
+OcVV2O2ZlUsCwMDEcbp23phbm2yfXx5qXyuAuQl196e0Z+fXcQxQawdgxgaQ
+lzA+7f6pdm1yFaxNAtxc6L+v07U2QS02gNkZwPjDNLTz0tYmAW4k3L5uzjW2
+4UstNmuTABM1gPGG6fgrf6z9ew0wNWFXN2c7gM/6UpvwZW3yofb1A+B6Axhb
+GCf7VgHuLNy3r1PftkEtNoBRG8BYwjjYkwoXCLtzahvo0f8O9ceEvrTvR58o
+gJEYwLjB8GyDuWHoRdj1Oaj9bxrGYhvsaQEYrAGME9S3CeZ94SaC3BEutd/v
+8lD73zEAOwMYG7ivbbCmCHcT5I5QYhusNwIMXtg911BPO696y/F4E/TggmqC
+3BFO2QT7XQCgWNit/d1qTF7Wfn/A53/niwE8p0NN22C/CwBcLOz6dL31ODa3
+38u5EBiYIHdkfjZBX0cA6E3zWvc4Ri9rvx/gtCB3ZNq2YTeetWuK72v/ewOA
+qQnXP0taY4SRaP+dht0aDFzjP4X6eWJrE+Nxhh4A7iBcXh+nHbOXteMH4H5C
+/2ccSrVj1bodd4I1RQC4u9C9Ps42WGMEmK3Q3xmHkj0t7c9aWFMEgLo6zh23
+Nekea8cMQD3hPudlX+PaonwRAAaiYO64XWNcWWMEoBVu1wN4v8ZoLyoADExm
+7tgaIwBfCbfpAWyNEQAG7sTcsTVGAE4K/dbHscYIACMRc0RrjAAUKTjjUGJj
+jREAxiXuO7LGCEBW5oxDyRqj2twAAAATF880XLTGWDt2AAAAbu/ojIM1RgAA
+AL7S5oCF9XGsMQIAAMxUrKVmjREAAICTEvVxrDECAADw2VF9nK3a3AAAAByK
+PRj1/wUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAkWpePzR+aXxo
+tP/h+9oxAQAAUFfME1u/x1zx0Mfa8QEAAHAfB2uJe8c54jm/1o4dAACA22pe
+P3bIE0/5qfZ7AAAA4P7a84sHZxlzvqsdLwAAAPU0rz8yeeNvtWMEAACgrvYs
+YyZ3/KV2jAAAANRVkDv+UDtGAAAA6mr3pCbyxj9qxwcAAEB9be9GvTkAAAA4
+J/Z71JsDAACAs9o6OIm88WPt+AAAAKgv059Dbw4AAICZa17f6c0BAABASnuW
+MZM7flc7RgAAAOrK9HXUmwOASYtn/lsf4tj3febrv49f//upGgHxz9SYA2By
+9OYAYA6a148HeeKfXevDxZrkp/LFs7Xm5JAATEVBb44fascIAF2dWEss9eHM
+9+v6fdScA2BSgt4cAExI8/r5ihzvm37GcY713Bql/BGA2WjHMuMcAFOWmSc9
+9t3B3/sxpM91dKVuOQCjFPK9OZzRAGASQr6m+FdzpjFvPP7ztrbcjye+b+kZ
+yI9B7XIARqhgHDW+ATAZBWuIv8Sv++Hoaz/kxsQOa5vWHgEYnaA3BwAzUrA+
+2OaM3x/kjX8erzNmvn/qHIjxFYDRascv86IAzEVI17z5I37Nfmz8o+v+m5Cv
+XW5fDzBLQR/dUSsY3/TmAGBSMuPerwf7cTrnjQc/o6S2TvFaJsCYBH10Jylc
+0ZsjXNfj6iu1rwMA81AwZ7rPG/+8Zl0wlO1b/bn29QC4VtBHdzYyY9uvHb5P
+aj35lN/j19uvA8DdZOZM93PX7f+9at9NSNcS2HMuBBitoI/u7IT0nprO674h
+3+/j92vHYwC4VGbOtLecriBHlTsCk1P42benj+6IhBv05sjkju4hAFUVPJv8
+2dPPkTsCs1SQY3y1Nhj00R2FkN5Pc9Fabzi9dv3x+N4DwL2FsvqnvZxBlDsC
+c1YwT6eP7siEnntzhK97Ye21PyNZexcA7qHgeaOXNcfCn9VbngowNAXrg/ro
+jkjIn0vsfCbxRC76e27eAADuJTNn2msuF8rqBNqTA0xS0Ed3UjLzoZ1z9BNz
+C8U1WgHg1grmTJN9qS74eSVncuzLASYp89mnj+7IhJ56c8TvdTw+2lsMwKCE
+fO2GXuc8M3PuveeqAENRsCaoj+7IZPL0ot4ccQ73cP+PmjgADFLI7yHtrX9U
+yK9xtvQfAyYp6KM7KZm5gKJ50PBt784/+xx3AaBPmTnT3mrkxJ9VUp/e8www
+SYXrgfrojkQmR8/Og4Zve3devE8ZAG4tM2f6ef9Uzz+vZC7cWUdgkjJzdb3N
+18kd73Y/U3XmknuCT9wje24AGLSC54te981kxtnPc661rwnALRTM1WXzjQ4/
+S+54+/uZO4Nxdv3wxDyqWqoADF5I1zzte7/q9/d6bgIYmoJ8Th/dEQnpMxgn
+50Fjvnk87roPAAxewZxp3/tVS2pEOOcBTFLBvgt9dEckc42/WdMN39bEUUsV
+gNHIzJn2/lxR8Nxk/xQwSQVzdYPvo9vmtgXfcwx+7+kap86u/nD0tcfj7cfj
+rwGAIQvpujV9P8f8mHtuCtYcgYk6kTscG3wfXbnjV9eiuDdHYqyVOwIwGpln
+i17rvYV8XXrnPYDJChPooyt3/OpapM5gfDi4D6n13w+1fy8BoERmzrT1U48/
+K1cjR21VYNLCBProyh2/uhapnLC9/sd9G0+x3waAUQj5ujW9jWchP9+unyMw
+WWEifXTljn9dh9y6bkmN27++tvbvJwDkhPQe0t7WAQuemYybwKQV5BL66I5I
+KFvX3WvH2rutOQNA3+KcaWos6y2fC+l9Pb2eqQQYosznoD66IxPK1nX/us4F
+X69PBwCDVTBn2ssceEjvb2rnxZ3zACYt6KM7OSFfw/aPw3E05PffmEcFYLAy
+c6C99OYI6bXNdtx1xhGYvIK5On10R6QgDzxZOzXk+20aEwEYpMyzRS/zn+H8
+eUr9kIHZuMdc3cHP0kf39vczta57dvwM+TpDcnoABifkz8JcPX5lxlZ5IzAb
+QR/dSclc47PjZ8jXGeh1HgEA+pDJ667O7UJ6P496AMBsZD4PW/rojkhB/pcc
+P0O+Zo7cHoBBycyZXjXvGZ9dTo2r9qkCs1MwV6eP7oiE9NnV7PhZMJdwVd9J
+AOhbZs704nEr5o2n9mapiwPMUmauTh/dkcmsGxbtPw75mjnmWQEYhJCvo3Cy
+Plzh9z2Vk/7W57w6wFgEfXQnJ6TrzBXdz8za5cXjMAD0LTNnetE8eDi/J8u5
+DWC2CnIEfXRHJOTPkxbfz5DvD+meAVBdZs70krnTU9+vXWu0RxWYtcxcnT66
+I5OYJ+18PzP5fqc16bA75+o+A9Cr+IyRyxsP879v1g1jvvjLmWeVds+UOqoA
+n7JzdfrojkziWne+n5mcvzgXPchn7UsGoFcF85y/Zsay1N+TMwJEQR/dycmM
+j53vZ+b+fTo1f3vid2wfk3VHAHqVmTP9ePB1P8Yx7dx5jA/xz3vrSwYwJQV5
+gT66IxLydeY638+QX3v8M/P392O6GroA9C4zRtnvAtCT0rm6C7+3Prr3v583
+Obt66dpj+FKHqZ3jVVcHgF5l5qjNWwL0KDNXp4/uyIQbnV0tWHv8eHxfj8Zz
++38A6F3B3Ka5aoAeBH10JyXk68xdNfdaMD7/sR+jw65uwf53QB9IAG4iM2fa
+S614ALL7Gz/nAhd8T310693PXJ25q/L2mJvm+j2eWmc2XwBA7wrmTJ11BOhJ
+Zq6u01pV0Ee3upA+u9p5HiBxn0vzRudaAbiZgjHJWUeAHhTM1R3nf/roDtyZ
++7D3a48/J5WjHnL/AbiZsOupkRqHzF8C9CDoozspIV9nrtdaNXFuILXe6HcA
+gJvKPKc46wjQk8zakT66lPwO/Xz0e9HuWbY/CICbK5gzddYRoCeZuTqftwDA
+YIV87W9zmQA9KJir83kLAAxW5uxE72c1AOaqYK7O2XIAYJBCWb0//aEAehD0
+0QUARirke3P8WTtGgCkomKtz1hEAGKywq+nuWQbgxgrm6px1BAAGK7N/yrMM
+QE+CProAwEiFXe+w3FnHn2vHCTAFQR9dAGCkCuqrWncE6EHQRxcAGKmQrxOv
+Vg5ATwo+c83TAQCDEp9fStYbv8of49/zbANwgYLPXX10AYDqmtf3HXPFEh9q
+vy+AMQj66AIAAJAR9NEFAAAgI+ijCwAAQEbQRxcAAICEoI8uAAAAGYV1ra07
+AgAAzFRBT0e1cgAAAGZKH10AAABO0UcXAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAACAqfr/XPSdFg==
+        "], {{0, 537}, {911, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSizeRaw->{911, 537},
+      PlotRange->{{0, 911}, {0, 537}}], "=", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["e", "2"]}], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+           RowBox[{
+            RowBox[{"p", ".", "\[Gamma]"}], "-", 
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], " ", 
+          SuperscriptBox["\[Gamma]", "\[Mu]"], 
+          SubscriptBox["g", "\[Mu]\[Nu]"]}], 
+         RowBox[{
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"p", "-", "k"}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], 
+          SuperscriptBox["k", "2"]}]]}]}]}]}]}], 
+   TraditionalForm], "\[IndentingNewLine]", 
+  FormBox[
+   RowBox[{"\t\t\t\t", 
+    RowBox[{"=", 
+     RowBox[{"-", 
+      RowBox[{
+       SuperscriptBox["e", "2"], "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", ".", "\[Gamma]"}], " ", 
+         RowBox[{"A", "(", 
+          SuperscriptBox["p", "2"], ")"}]}], "+", 
+        RowBox[{"m", " ", 
+         RowBox[{"B", "(", 
+          SuperscriptBox["p", "2"], ")"}]}]}], "]"}]}]}]}], 
+   TraditionalForm]}], "InlineMath"],
+ "\[LineSeparator]Apply the projectors to numerators to obtain the A and B \
+functions of the self-energy function, and initiate the integral with ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->418736520],
+
+Cell[BoxData[
+ RowBox[{"numeratorAandB", ":=", 
+  RowBox[{"Contract", "[", 
+   RowBox[{
+    RowBox[{"Spur", "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "\[Gamma]"}], "-", 
+       RowBox[{"k", ".", "\[Gamma]"}], "+", 
+       RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", 
+        RowBox[{"{", 
+         RowBox[{"\"\<A\>\"", ",", "\"\<B\>\""}], "}"}], "]"}], "[", 
+       RowBox[{"{", 
+        RowBox[{"p", ",", "m"}], "}"}], "]"}]}], "]"}], 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1993621613],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"integralAandB", "=", 
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{"numeratorAandB", ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "p"}], ",", "m"}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1275059164],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"2", "-", "\[ScriptD]"}], ")"}], " ", 
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "0", ",", 
+       RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}], "+", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox["2", 
+        RowBox[{"p", ".", "p"}]], "-", 
+       FractionBox["\[ScriptD]", 
+        RowBox[{"p", ".", "p"}]]}], ")"}], " ", 
+     RowBox[{"p", ".", "p"}], " ", 
+     RowBox[{"PVB", "[", 
+      RowBox[{"0", ",", "1", ",", 
+       RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}]}], ",", 
+   RowBox[{"\[ScriptD]", " ", 
+    RowBox[{"PVB", "[", 
+     RowBox[{"0", ",", "0", ",", 
+      RowBox[{"p", ".", "p"}], ",", "0", ",", "m"}], "]"}]}]}], 
+  "}"}]], "Output",
+ ImageSize->{437, 57},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1727622778]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->605536234],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"integralAandB", "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->474398418],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox["1", "\[Epsilon]"]}], "-", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["m", "2"], "+", 
+      RowBox[{"p", ".", "p"}]}], 
+     RowBox[{"p", ".", "p"}]], "-", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["\[Micro]", "2"], 
+      SuperscriptBox["m", "2"]], "]"}], "-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "4"]}], "+", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"p", ".", "p"}], ")"}], "2"]}], ")"}], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"p", ".", "p"}], ")"}], "2"]]}], ",", 
+   RowBox[{"6", "+", 
+    RowBox[{"4", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox["1", "\[Epsilon]"], "+", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], 
+         SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+    FractionBox[
+     RowBox[{"4", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "2"]}], "+", 
+        RowBox[{"p", ".", "p"}]}], ")"}], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         RowBox[{"p", ".", "p"}]}]], "]"}]}], 
+     RowBox[{"p", ".", "p"}]]}]}], "}"}]], "Output",
+ ImageSize->{350, 102},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->2069900056]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     RowBox[{"\[CapitalSigma]", "(", 
+      SuperscriptBox["p", "2"], ")"}]}], "=", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        StyleBox["i",
+         FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], " ", 
+       SuperscriptBox["e", "2"]}], 
+      StyleBox[
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]]], "[", 
+     RowBox[{
+      RowBox[{"p", ".", 
+       RowBox[{"\[Gamma]", "(", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["m", "2"]}], "-", 
+           SuperscriptBox["p", "2"]}], 
+          SuperscriptBox["p", "2"]], "-", 
+         RowBox[{
+          FractionBox["1", "\[Epsilon]"], 
+          StyleBox[
+           RowBox[{"+", 
+            SubscriptBox["\[Gamma]", "E"]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+          RowBox[{
+           StyleBox["-",
+            FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+           RowBox[{
+            StyleBox[
+             RowBox[{"ln", 
+              RowBox[{"(", 
+               RowBox[{"4", "\[Pi]"}], ")"}]}],
+             FontColor->RGBColor[0.6666666666666666, 0., 0.]], "-", 
+            RowBox[{"ln", "(", 
+             FractionBox[
+              SuperscriptBox["\[Mu]", "2"], 
+              SuperscriptBox["m", "2"]], ")"}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              FractionBox[
+               RowBox[{
+                SuperscriptBox["m", "4"], "-", 
+                SuperscriptBox[
+                 RowBox[{"(", 
+                  SuperscriptBox["p", "2"], ")"}], "2"]}], 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 SuperscriptBox["p", "2"], ")"}], "2"]], ")"}], 
+             RowBox[{"ln", "(", 
+              FractionBox[
+               SuperscriptBox["m", "2"], 
+               RowBox[{
+                SuperscriptBox["m", "2"], "-", 
+                SuperscriptBox["p", "2"]}]], ")"}]}]}]}]}]}], " ", ")"}]}], 
+      "+", "\[IndentingNewLine]", 
+      RowBox[{"4", 
+       RowBox[{"m", "(", 
+        RowBox[{
+         RowBox[{
+          FractionBox["1", "\[Epsilon]"], 
+          StyleBox[
+           RowBox[{"-", 
+            SubscriptBox["\[Gamma]", "E"]}],
+           FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+         StyleBox["+",
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+         StyleBox[
+          RowBox[{"ln", 
+           RowBox[{"(", 
+            RowBox[{"4", "\[Pi]"}], ")"}]}],
+          FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+         RowBox[{"ln", "(", 
+          FractionBox[
+           SuperscriptBox["\[Mu]", "2"], 
+           SuperscriptBox["m", "2"]], ")"}], " ", "+", 
+         FractionBox["6", "4"], "+", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"1", "-", 
+            FractionBox[
+             SuperscriptBox["m", "2"], 
+             SuperscriptBox["p", "2"]]}], ")"}], 
+          RowBox[{"ln", "(", 
+           FractionBox[
+            SuperscriptBox["m", "2"], 
+            RowBox[{
+             SuperscriptBox["m", "2"], "-", 
+             SuperscriptBox["p", "2"]}]], ")"}]}]}], " ", ")"}]}]}], " ", 
+     "]"}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1109708662],
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->235305846]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Elastic form factor (QED vertex function)",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->1365422010],
+
+Cell[TextData[{
+ "In the covariant Fermi gauge, the QED vertex function at one-loop is:\
+\[LineSeparator]\t",
+ Cell[BoxData[{
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "e", " ", 
+     RowBox[{
+      SuperscriptBox["\[CapitalGamma]", "\[Mu]"], "(", "q", ")"}]}], "=", 
+    "  ", 
+    GraphicsBox[
+     TagBox[RasterBox[CompressedData["
+1:eJzs3b+rJNnbGPYH24FxtPsXqL1/gBnY1IK2mUjRRfbmLSFP6kEWDEpMhxve
+0Jt15GDs4OLIsMkN3sDBBhcMwgIPNAaDQPZ4wJLhtYXGXVvVOz19u36d6u5T
+Pz4FH+n7zt7b99Sp01XnPHXOc/7Df/hf/v13/05E/Ff//uH/+fv/4MN/8o//
+8T/4p//Zv3f4P/7Tf/pP/ot/+O8e/se/PPz3/+DwL8U/fv36FQAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAICZORxvDz4c/H7w9cxv
+B7/kLiMAAABwW1Vs4NOF2MAlv5383s81P/M59zkBAAAA/RTzA2riAx8P3p39
+bBFL+Fz99w/Vv/3aFksAAAAAxq+KBZyP7/8o5gg0/M6P1c98Pvnfl+IE1icA
+AADABFRrBS7NIfi14+//dJKvoG5two+5zxMAAABoVuUp/HxhXP+h5+fUzSP4
+c05C7vMEAAAAmhX5BmrG9b1iBNVn1eUl6DwvAQAAAMijIUaQNKavchrWxQnk
+JgAAAICRqtYaXHV9QEOcwH6IAAAAMFJVzsKL4/kiH+GAz61bd/Ax9zkDAAAA
+r1X7ElzKWVh4N/CzL+2pmJTrAAAAALi9hj0Jfr/hZ/+c+7wBAACA77XsR5C8
+3qD67B/lJgAAAIBpKPYbaIgRDF4X0PD5v+U+dwAAAOCb6l3/p4bchT9e4W/U
+zVWwHyIAAACMSPFO/5ZzCaq/UZcbcXAMAgAAALiOan+DuhjBteYSvK35/D9y
+nz8AAADwzZ3mEtTth/hr7vMHAAAASi1zCQbvcdDhb8hNAAAAACPRMpfg9xv/
+DfshAgAAwIg05BYsvLvC5zfNJfiY+/wBAACAUjHnv2XNwTXyF9489wEAAAAw
+XJFDsGEMP3gfgsPxc0sc4ufcdQAAAACUilhAwxj+txt/vtwEAAAAMCIt7/oH
+rQkofr/l8wfHIQAAAIDraMkvOGi/wuqzj/kR6+YU2A8RAAAARuJwvG2JE7wd
+8Nm/H+ckNOynMDhHIgAAAHAdt4oTnKw3+NjwNwbnSAQAAACu5xZxgpPPLNYa
+/Bj1+yn8mvv8AQAAgG865Cd41/Pzfq7WGBR+qv6tLjdB8poGAAAA4Pqq9/1N
+cYLO7/yrmMOn0xhAQxzCfogAAAAs2uF4c/ByMlZ+PPhhBOWqe9//tZoX0Jpr
+sFprcMxV+O7k3+v2RfyY+7wBAAAglyIecPDlwni5+LeHzGWrG8sf/d7j9z+c
+/bePNZ/54VbnAwAAAGN3ONYtY/HHjGX7Mer3Lfxrb4KDX85+53y/w/MYQdPn
+/pz7mgAAAEAuHeIEX6s1CVnWIXSYU9Dmlwuf+UvdWobc1wMAAAByalh3cG5/
+8CZTGVNiBcU8g59qPs9+iAAAAFDjcGw6xgq+ZIwVFPkIP3UoY/EzjXsmNnzO
+q7kHAAAAsETVvIKnjvMKsu2FUM0t+P18vUD17287/P7PDefWun8CAAAALMnh
+eOgwt+AldzkHnF/dGoY/cpcNAAAAxqhYW1DNG2iKFexylzPx3P6QmwAAAAD6
+qdYhvLTECh5yl7PnOf3YcC6taxYAAABgyapYQdO8gi85cxUknI/9EAEAAGCA
+ag1CU76Cx9xl7HEuH2vO4WPusgEAAMBUVLkNm9YfrHKXseN5fK4p/4fcZQMA
+AIApieY9E3e5y9eh/E37If6cu3wAAAAwJVWugqb1B6POU1DsZyA3AQAAAFzP
+4dg2xAm2ucvXUnb7IQIAAMAVtcwp2OcuX0O5m/ZD/CV3+QAAAGCqiv0NGsbc
+b3KXr6bMHxrK/GPu8gEAAMBUFXsbNIy53+cuX02Zf68p7x+5ywYAAABTdzhe
+asbdz7nLdqGsbxviGr/lLh8AAABMXVM+w9xlOytnsRfip4Y4wafcZQQAAICp
+OxzrhrH3KmO5fqpyEXxoiQ+c+ljMOchdpwAAADBV1b4HdePudYbyNK0tSPF7
+7joGAACAKYn6/RFHmcsQAAAAuJ0iZ2FNnGCbu2wAAADAfYkTAAAAAEfiBAAA
+AMCROAEAAABwJE4AAAAAHB2OF3ECAAAAoFATIyg85C4bAAAAcD+H401DnGCd
+u3wAAADA/RyOTV2cIHfZAAAAgPs6HLuaOME+d9kAAACA+zocX2riBLvcZQMA
+AADup8hT2JCbYJO7fAAAAMD9HI7nhjjBD7nLBwAAANxHsZdBQ4zgKXf5AAAA
+gPtpmUvwkLt8AAAAwH205CXY5y4fAAAAcB9F3oEiFiB/IQAAAFDkHjCXAAAA
+ADgc24YYQWGdu4wAAADA7RXrCVpiBPY4AAAAgAXoECP4UuQtyF1OAAAA4LYO
+x64lRmC9AQAAAMzc4VgdvHSIEWxylxUAAAC4nSpf4ZcOMYJd7rICAAAAt1Gs
+Hyj2NuwQHxAjAAAAgBk7HI8d4wOFbe7yAgAAANdX7FPQMQ/BcV+DTe4yAwAA
+ANd3ON50zEPwtYolvMldZgAAAOD6esYItrnLCwAAANxGjxjBc7E/Yu7yAgAA
+ALdR5SNo29NAHgIAAABYgA45C+UhAAAAgAUo8gx0iBH8kLucAAAAwG1VOQnE
+CAAAAIC29QZ7MQIAAABYhiInYUvOQvkIAAAAYCFa9jd4n7t8AAAAwH20zCV4
+zl0+AAAA4H5a8hJYbwAAAAAL0bLHwS53+QAAAID7ORyPDXGCde7yAQAAAPfT
+kL/wJXfZAAAAgPs5HCt7HAAAAACFw/HQECdY5S4fAAAAcD+HY1sTI9jnLhsA
+AABwX4fjuSZO8JS7bAAAAMB9FbkKa+IE29xlAwAAAO6rITfBJnfZAAAAgPtq
+iBOsc5cNAAAAuC9xAgAAAOBInAAAAAA4EicAAAAAjhriBA+5ywYAAADc1+HY
+2xcRAAAAKByO55o4wS532QAAAID7OhyPNXGCl9xlAwAAAO7rcLxvyFHwQ+7y
+AQAAAPdzON40xAk2ucsHAAAA3Nfh+FITJ3jKXTYAAADgvoqchQ1zCla5ywcA
+AADcz+F4aIgTbHOXDwAAALivw7GviRN8kc8QAAAAlqWYN9Awp2CXu3wAAADA
+/RRzBhryGRbWucsIAAAA3E/LnIK99QcAAACwHB3mFNgnEQAAABbkcGwa4gRy
+FQAAAMDCHI5nsQIAAACg0GH9wZ+xAvkKAAAAYBkOx5uWOEHh5WCVu6wAAADA
+7XXIVfC1mnfwPndZAQAAgNvrGCs4zi1Y5y4vAAAAcFs9YgWFx9zlBQAAAG7r
+cDx0yG0obwEAAAAsRJXb8KVjrKCIKbzJXWYAAADgtg7Htsc6hE3u8gIAAAC3
+Vc0teBYrAAAAAI6KPRE75C2wBgEAAAAWomPegiJW8EPusgIAAAC3V8QADp5a
+YgXPucsJAAAA3M/h2LXECra5ywgAAADcT4f8hqvcZQQAAMjpcPxy8KFS/MOv
+ucsEt1KtQWjKV/Ccu4wAY6OvAADzczjenTzfC58axkm/5C4v3FKV27BpTsE6
+dxkB7k1fAQCWoeP+8ed+zF1uuLUiF4E5BQD6CgCwdNW8wc8Nz/3fc5cR7uVw
+7OUpAPievgIALE+xprDh2f8hd/ngXg7HpuG78Ji7fAC56CsAwLLEtxxEl/yc
+u3xwTw1zCr7kLhtALvoKALAsDe8IPucuG9zb4Xjf0Bde5y4fQA76CgCwLIfj
+j5pnvz2OWJwo90m09gDghL4CACzH4fixYUxkjyMW6XA81XwnXnKXDeDe9BUA
+YFmizGFsjyM40bT2IHfZAO5NXwEAluVwfKx57tvjiMUq8hA09Inf5C4fwD3p
+KwDAskT9fsj2OGLR5DIEKOkrAMByHI6fG8ZC9jhi0aJ+f8Rt7rIB3Iu+AgAs
+S9TvhWyPIxbvcDyLEwBLp68AAMvSsN7wt9xlg9zECQD0FQBgScIeR9BInABY
+On0FAFiWsMcRNBInAJZOXwEAluVw/Frz3P8jd9lgDMQJgKXTVwCAZSme8TXP
+fnscwVf7HQDoKwDAcrSsN7THEXz983tS9x15yF02gFvTVwBYhsPxLsq9bQrH
+3LW1OWhOfv782fCp+nfPiImqua72OILK4Vg39I/XucsHt6KvwMm11VcAmInD
+8fbk+V63pqwxB031zP/c4Xe/Vn2In3KfN73bSa89jopr3LE91HmX+5yhj8Px
+vq495y4bDKWvQMd2oq8AMHGJ9+Y/LnzG7wmf88nzf1oa+nad9jiq+pafWtrF
+r10/D8bmcDzVtOuX3GWDVPoK9Gwv+goAMxPlmrK6OPDRh5Off9vwPOj6/Lc/
+zgQcjp8brmPnaxj18xE/agtM2eH4oeE78pi7fHAt+go0tA19BYAZi/o8tYWf
+q595eyG2+/PJZ/zYcJ+/2JdgvBquZa89juLyXFXvBJi8w7FpuM/JYcjs6Ctw
+oU3oKwDM2OH4reY+/7n676fP/cbYbkts+c/PFBsev4b+YOe+W7yeu/op5Kpi
+JqJ+P8QvucsGt6CvwIXrqK8AMGMNz/5fq/v3cf5gn7VmTc9/MeIRiyvscVR9
+xmn/ofjf1pwyC4fjoeE7sstdPrgFfQXOrp++AsDMNcSD31Vx3c99YrsXYsOv
++hS5z5nG6/dLzXXrvMfRWZv6mPuc4Jqifi5B4U3u8sEt6Ctwdv30FQBmrCUe
+fMxV/Dbhc5ty13oWjFjU7391cY+jC+3p9Lmvn8esHI5tw73tOXf54Bb0Fbhw
+7fQVAGasIR58lJRLKJr3Q/o993nTeO3q3hk1zgGt3g2d/q49jpmVw/Hm4EvD
+vW2du4xwC/oKXLh2+goAM9YQDy58GvC5Tc/+5M+9UR28a+n/TMXgPlUk7nFU
+/d7pe6He75VgzKLcB/Gl4fvxnLuMcCv6CvoKZ3WhrwAwc9E85y/5/u3ZP9ln
+f+89juL790zyFDNLh+Op5fu3yl1GuBV9BX2Fs7rQVwCYsWiOBw96jrQ8+0c1
+l9Cz/7u6+Fjz2RfnlJ71FeQpZpYOx67lu7fNXUa4FX2Fv8qqr/CtLvQVAGYs
+mvckGrQfUdSvWyuMKjeRZ/93dfG55rNfxf3P+glFX89e18xKlGsNdi3fu5fc
+5YRb0lf4q6z6Ct/qQl8BYMaiPh7ceU+bhs+ue4YURpXX1rP/r3qoe2f0+ezn
+znMQteY2hqk5HKtozkdQKHIarnKXFW5JX+GvsuorfNVXAFiChufzoGdzNO+f
+VEjKi8zN20PrHkeH4+1ZuxnV+lG4hsPxEM37Ghy9yV1WuDV9Bc6um74CwIxF
+8x5Hg3LLVM+Hpme/3DUjFC17HDW0GfmKmYUo5xA8d4gPFDa5ywu3pq/Aheum
+rwAwYw3x4NpctT0+u2kt4+B5itykPTS91/mxob0URrWGFFIcjm3H+IAYAYuh
+r8DZNdNXAJi5hnjw4Hl+0Zy/eFTrDfnrmtXF/z+1XM8juYuZpOiWh+CoWIuw
+zl1muBd9Bc6umb4CwIy1xIOHziNsW29o3tkIHY7fOjzfm37GOlImpxjzR7c8
+BF+rWIJ8BCyGvgIXrpu+AsCMRf1cv8F5ZqI5H/DgeYrcrE005Zz+fOyzxQ3z
+XsM9HY5Nx/hA4fHgh9xlhnvSV+DCddNXAJixhvv34Hl+0Tzv7F3uc+fiNavb
+4+hrnO11HM15p1xfJqFHjGAf1hmwUPoKnF0zfQWAmWuIBw+a59fyDPF+YKSi
+/p3RxZxDUa5DvNhPyH0u0KZjjKBYi7DNXVbISV+Bs+umrwAwYw3P58FzwaJ5
+TZq1hiMV9e+MLq4jbOgrFOxjxWgdjjfRno9AHgIWT1+BC9dNXwFgxqJ+z5pB
++9Ucjp8ange/5T5vaq9bkUuq7p3Rxed4NOefcq0ZpcPxQ4cYwS7kIQB9Bc6v
+m74CwMzFjfY4ang/UMw7+/EaZecm7aFuj6PGd0YN1/uz680YHY6nthhB7jLC
+WOgrcHbd9BUAZqwltpt8v47mfDXmlo1YJL4ziub1pfY9YlQOx4MYAXSjr8CF
+a6evADBjDfHgQXmDoj5XjWfAyMWAd0ZRn6968J5ZcC3Rvt7gOXcZYUz0Fbhw
+7fQVAGYs6ud/Je9xFPV5agbvm8TN20PTO6PWdzst74Z+6dh2fspdD8zb4dg2
+tNN9yEcA39FX4Oza6SsAzFzU56BpvU/XfF7dfDL5aSbgcLyruX6d81lH4r5H
+8e19lfdI3Ey0zyVY5y4jjI2+AmfXT18BYMYantOF3usNo8xZfOm+77k/EVG/
+x1HnfNYN/YdC7f5WVdsx55Cbiua5BLvc5YOx0VfgwjXUVwCYsaif89d7vWGU
+c9AurVXz3J+QqH9n1Ctu3/c9QXzLh5T0bgq6inJdwaW2WcwxsN4AzugrcOE6
+6isAzFjU55Hp9bxueO5bYzgh0fzOqFfe6Zb3BL+c/exxDuGgPbihTTTvcfCY
+u3wwRvoKnF1HfQWAGYvmHDSdn/3V8+I8Hvz53rHeKOcxfjhzLNegfMxLEfXv
+jDqvNzz7vLpcyEX7eFv9zPG5b59sbu5w7Brue6vc5YOxmUtfoRqPXsrF+Gs0
+zHHnYl3qKwDMWNTvcdT5PhyX984t3jvcLQdt1L/n8K7ienWZFLuP5nzG5/TT
+uLmoz1/4lLtsMEZT7ytUz6G6ue3fPeeMPzvXqb4CwIzVPLfPn/+v1plFGZO/
+9LvFz2dfL1ZTtuzlGrtofmeUnFO4Qzsb9PnQ1eF409AGN7nLB2M05b5C1L/3
+rmPuYXud6isAzFzUx9eLeXl1+WkuPleL/kDu8zk5r0txae8I2uut6Z1Rr/WG
+Fz67ac7HbJ/7xbg0dxn47npsGtqh/IVwwVT7CgkxgiPzD5vrVV8BYMaiwx5H
+Ub+W72t8W/9/t/UFPc7tPCeOfDcjcKHP9uvQPsUYRfnO+jHKnPqb3OXhu2vz
+WHM/e8ldNhijqfYVzsayv5/HJ6LMZ9T0/np0fZulWEpfAWCsGuLsk59zd+HZ
+LwbNTR2O1cH7+H6/vU3ucvHqOj3X3Pd2ucsGYzTFvkKU8+KPcyAa1zfE5dyK
+5hQAsFhR5uuZ5Xy7eD0PUhyaqzscP0Q5j/3S2HOTu3xcvGb7mvveNnfZYIym
+2Fc4iW10yoEQl+dMjDYOAgC3dGEs/bXPc3WsLjzvk/bogTqH4+Hgqeb7U+TS
+f8hdRmqvXd0cY9cMLphiX6GaH9ArjhGv103oOwCwONGcg2bS+f7i9RzJzns7
+Q53DsT7YRf2eescYgbyFI9Zw7da5ywZjM8W+QpRrDnqvNbxwruIEACxO1Ofu
+mfw8u3idK3e07zwYt/g+H2FdX1mMYELECabL9ytLnc+2r3DhXM/3SZrdOQJA
+myj3JprUesOO53VpT99RvvNgnOJbPsKXDrEBMYKJESeYpup7+TXsIXLvep9l
+X6HmXM/nE8zuHAGgSc1Y+uhu+xrf6NzOn/PeB9AqvuUjrMs5IEYwE+IE0xTl
+mp/T61XEC+SUuG2dz7avUHO+53Mn7IsIwKJE/R5HhUnvC3DhOe99ALWizEd4
+Pv4QI5ixhmu5yV02aq/ZquG6PYvx3KzeZ9tXuHCuRUzkNF+jvgMAixP1exxN
+PmdP2A+RFlHmHNhFcz5CMYKZivr1JNvcZaP2mnWZ5yNecP16n21f4cK5nsZE
+zEMEYJEujKWPPuYu28Dzsh8iF1XvI7fRLR+hGMGMVePJS9f0KXfZuHi91j2/
+m0UMcJW73HMw177ChfP86eRci//fegMAFufCWPpU732ExiRez5GcVV+G3u2h
+GF/0zUcoRjBzVbzo0nXd5y4bF69XSs4Q8YLh9T7bvsKFcz3N1WgOIgCLdGEs
+fWrS+wfG6zmSs+rLUHvdV1HmGdhWY4r9leMCYgQzEmW+yrrru8pdPl5drx+q
+73bqOqHid3/IfR5TM+e+wtl5nuY0epu7PACQy+H41PDsn+wzMuyHuAhRzhEo
+xnmPUc4fH5pjQIxgYaI5J9773OWj9roV8YLdgO+ueEG/+p5lX+HsHN/N7ZwA
+IEW83gvg3GTfv4f9EGelGhOs49scgWuvHRAjWLCon3PykrtstF671dB4Qe5z
+GLs59xVOzvGtGAEAS1eNoevyFr96/scE90W+0K+xp9FERLn/wKaKCTzHfecI
+iBEsUJTzUequt2s9AVW84DnxO70P+2BeqtPZ9xWq8xQjAGDRDsfvVxgjTeK9
+QbyeIzmb9ZNzEd/mCBS5BXcD+vhiBAxti28arvkud/nodS3X4gWD63BJfQUx
+AgBYiLiwH2LITZD7mqziW27B57htbkExAlLaaNNaFtd9Yqp4Qer6pOIetc59
+Dty8jfwc3/Y/FCMAgJkL+yGOSqSvHR6TvbHivEXzvgfPucvHoOu6Fy/grF2I
+EQDAwoT9EEclhuUZG4PinaS86AvQMp6098GEDYwXFLlTV7nPgau1hZ+iXJtY
+xAl+zl0eAOD24vJ+iPoBIzDReIEYwYJE85wC604mLsqcKNtIz426Ey+YtpQY
+QfE7ucsNAAwTr/dD/Jy7TLy6RlOJF4gRLFA0r2nXJmbgCvGCR+1geqJ8j/BH
+zxjBjyHHEQBMXtgPcTJGHi8wHlyoKPPfaRsLUMULUu9BX6pYg7YwASkxgur3
+ij6FHEcAMHFVP+C0L2c/xJEbYbzAOHDhonxfrI0sxMB70J/xgtznQOs1/r1P
+jCDKPIfHXEf6EQAwYfF6P8SCuYITMZJ4gfEfx/bYtqde8d/lK5iR6h70nHjv
+2B9scp8DF6/r7wOeCdYcAMDExes1B59yl4mk65grXiBPHX+Jck562/r14r8/
+5C4rV7/2a/GCeTgcvw18LvyW+xwAgDSH41283gvxyJ6IE5UhXmDfO75TxI06
+xAoK/8fBf567vFz9+g+JFxS/t859Dkt2hRhBwZoDAJiQSJxHmLvcJF3rIl7w
+P9w4RvCU+zwZpx6xgsJ/F9atzE6U+2XuxQumI8r3B0OfC/ZLAgAYoSjnfrfl
+lBtqb2xHk56xguLnNrnLzE3awdB4wSr3OQAAwJQdjocBffI+5CSg0Um86t/0
+aFcv3iPPU5T7IXaNG53biRcAAEA/Ua4zeLpDfKCwzX2+jFv1Djl1TPi1asur
+3OfB1dvFD1eIF5jHBAAALQ7H+4Fjsj6ec58v4xVlDru2vRH7eDQunJ8Ytjbq
+SxVr0C4AAOBMlOu/n+8UHzj2z/XNeSVuO5+laHf21ZihGLY/i3gBAABU4tvc
+3b796v9l4HhtnfvcGZdIey+8P/gnCePDvTY4TwPjTEW72OQ+BwAAyCXKed37
+hH70Q2Js4egx97kzLtF/vcur979Ve37u2RaLn5dHc4YS24N4AQAAixTle9uU
+921/re8eECd4yX3+jEdirGoXDXkJI22fjl2Ycz5LA+MF9swAAGD2Ii1P4cv5
+O9fEOMGXpvEdyxFp+TCe+4zZon8u/D/nKOSuG27W5jYJ8aOktgcAAFOQOC6r
+zfmWGCd4yF0P5BXlXJZdz3azT207A/7eJnddcRtXiBescp8DAAAMlTimb9xz
+PuEzd7nrgbwi4/v9KHPbPSeMCde5643biGF7wO7ECwAAmKJIW/td9Jtb3932
+jBMU6xas/V6oSHt/u7tFm0n8ThgTzlR82+9FvAAAgFmLtLnWhb/yFHb4G33i
+BPLJL1Ck7z+wukPZBu+vwHxE+v6w2gYAAKMX5bvblDyF655/p2uf+mJ+A+Yr
+yjn+feNU+75t8ArlTBkbFt+tTe465mZtIqXtihcAADBKkbb+Onn9d5TvY9s+
+/yl3vXA/kTaHuzZX5h3LXXx3+u4Tar+8GbtCvGCT+xwAAFi2hHeiX2Pg/O4o
+55S3vR/2Xm0hIm0ey3ZMbaRq0y89z6Ex3yfTFmlrZ07vgZvc5wAAwLIkjms6
+5Sns+Leb/s46d/1we3McW0da3sXOuT2YnivEC9a5zwEAgHmLcn73Y0J/9Wpj
+mZY4wTZ3HXFbMfO5+jHRNRTcvF08JMSQjp6n0v4BAJiWqp/ad3731d9nNcQJ
+nnPXEbeTGKMq2t8md9kTz7eIh+xyf98Yl0ibc3IaL7AHDAAAg0VansKbvduv
+iRMU8Qtzr2cqFryXYKTv8Wg8OGMJ34lTRfxplfscqvNYV+ehvQIATET0n/98
+HKOsblimS3GCwXkPGJ/qWu+nOga6cl2kzDvfzSFWQm2bSFmjMqrvysn9/Evu
+sgAA0CzS8xRu7lS207/7mLu+uPo1fhNp79DXuct+h7rpOy5M3oOUaRgYL8g6
+9+bsfv4irgUAMD6Rnqdwd6/+3Xm/MnedcdVr+0Okrclf1HySAfW0yV12btou
+VgntImu8IF7HfZ9z1yMAAN9E2rzm4ufXdy7nsV9pnuqMhPfkKXVWjAufe35n
+n+/9nSVLuxgSL7jr3hkXyrDLXYcAAEsXafvMfc3x7qkq7zFOsMldd1zlem4S
+4lO7HG1vrEIeBy63i5T1O3eff1Lz9+3zCQCQSaTlzC76ndlyU0c553qdu+4Y
+fB3XCWOYZ2Pbxjpd7L4QNLaLlO/aabzgput6Gv72JnfdAQAsSfWeKSVPoXc8
+DBJpc6L3YkOd6/eY067vd3uTu+zcvG2so/+8k9MY3fpG5Wpql/ZLBAC4sUjP
+U/jknSNDRFpOdrGp9PpeRf/1RC/iMfMXaWt9bhYviOa5Dl88ewAAbicmkqeQ
++anGJX3Xt2yND65S9+voP3eoiC+scpedm7eNlO/l0e5abaQlTnCMX7kXAABc
+UZTvcSeTp5D5MEYdj0h7h/zoHjBvkTbP56rxgg5xgj/vC7nrCgBgLiItT2Ex
+rrMmlGRhzvsoJY4Jrf1YgCvEC7apMaWOcYI/YxK56wkAYMoibT8s4wEGibT8
+F/sYQQ69w/Ghpny/JX7e7zWf924E51rEcXYJ12mdu+yMsm2cPkN6xwt63jM2
+uesIAGBqIi3XecFcbwaJie/Jt6Q4wUkZ15G2N6X5RjN3hXhB55hzwjPrpvs0
+AgDMSaTtebXX52KIxHa3G1tcaolxgpOypuQ4La7hKGI83LRtpMxNO32+bDr8
+jb5xAvslAgC0iPQ8hXKUkSxx/FD8/Dp32WvOZ7FxgpMybyNhTkjucnOXtrEe
+GC+ojUcnxAmObc/zCwDggkjb10qeQpJVcandNccJYyBOMPj6bnKXnbu0j3X0
+38OkMU4Y5XyWlM+zXyIAwIko144+J7x/kaeQZDHj983iBK/Kn3KPuTgOZH4i
+bZ/Ni+2kij2kfE5hl7suAADGINLmaBb9slXusjNNiWOCXUzoXZ84Qe15rBOv
+/Sp32blL+xgSL/gzf+7AOEHhMXc9AADkkthfL97njnq+N+MV6fnwV7nLnnCu
+4gTN5zPp/Sy4ads47rPTdw3c0f84ME5Q2OSuBwCAe4q09cJ/vmPRRydFpO2J
+to8JzzkXJ+h0Tin7rn4xhluGK8QLhlrnrgMAgHuI9DyF69xlZ3oS+/mzyHsh
+TtDr3FbRf48V96WFiPTY9lD2SwQAZi3S8xRuc5edaUqMSRUxhVnMWREnSDrH
+dfTPff/nmvTcZecu7WOVIV6wn8s9CQDgVKTN23zW9yaFsd5f9SBOkF53m+if
+O8W6qIWItLj3EPZLBABmI3G8Zu0vScLc8fP6ECcYVn+LXbNC5zayvmO8YJf7
+fAEAhqj6148p/SDvTOgrsb3t5x6PEie4Wj2uYmE5MOndRop4wf96h1jBNve5
+AgCkOBwP0X+NgT41ScLedk11I05w3fosxoLPPe9txc/LQzdjcf8ch5vc5wwA
+0FWkr9fc5i4701ON2fY921rRl1/lLvsd60ic4Db1+pDY9mYfm1qa6B+nFCsA
+ABYj5CnkTg7Hm4R4VPHz69xlz1BX4gS3rd++9z37t8xEpOXeubZd7noAALik
+GrPJU8jNRdrc3v3BQ+6yZ6wzcYLb13Fqu9zkLjt3u9639BzmqQAAIxHpeQqf
+9GnoK7y3Ta03cYL71fUqzHOZtci3xqBNEatf5a4fAGDZIm1t7l5/mL4ibQ/7
+XYhFHetPnOD+db5ObLOr3GWn8ZrmXmPQpohfyJcJANxdpO1NX9gat9FHpOeV
+X+Uu+5iIE2Ste/twTFyMb41Blza0yV1vAMByJPR5j+M27zfoLOxTf+36FCfI
+W/8/VGN/Y72JSXzmjcU2d/0BAPMW6XkK3+cuO9NxMp7q+/5VO2uu1+xxgsPx
+S1WOH3PXR8brsIr+c7GK++46d9mXJqaxxqCLXe66BADmJ+Qp5E6izEHQ973d
+VjvrVLdjiBP8Vv3MT7nrI7fEMWhxT13lLvvcxfTWGHTx4j4JAFxLpOXhKn5+
+nbvsTIcx013quC5O8Hvi56XECT6GOMF5nWwS7rGPxnw3vSZFnOA54bqMXXE+
+1v8BAMmqflJKnkL9VzoLc7DvWdd1cYLPiZ/3R83nNcUJjr+z2HUHNfVirc3I
+RRnLLLyvrtUuyljC1NYlfHH/BABSRFrOpqKv5D0FnUTaWpZ9yOk2pM7r4gSF
+t1f8rKY4wedIjEssQcjdOWnxLZawiTKWUNzjnqP/fi33sMldXwDANESZp7Bv
+f8Y7LXoJe8TlqvemsX3ntQdFHKD6nbr5BB9qfu/n4+/lrouxi/S9QMVqR656
+zp7GErYnsYR776mwy10fAMB4Rdp+XQXrw+ks0nJd7LSxq9X/MU7wqaauf+3w
+Gcc8hL9Ffdzh4uec/PzFOAIX6+wh8TsjpjZhUc4rWVfXv3g2Pya0gz7Pce0F
+APhO4tit+PmH3GVnGiJtnkrx8+vcZZ+Tk3F6kX/wY029F//t3dnv/Vz97ueT
+OMOPBz/VfMbF+QLxLT4hh2H/a1eMFXvPwcldbq7eDor4waYa219z7kGxbnCV
++/wAgPwifd8neQrpJLGNiUHd7noc5wJ8rsb5dfMKmhS/+/OFzzz34exv/1r9
+e9IejAz6Pm1yl52btYl1lDGka+RSLOIO1q0AwIJF2h718hTSWXj/OTrx/RyC
+nyufe1yjT6cxguozf2qINxRzE4p5CH+c/L65BMOv4yomPj/n5BzEnK9Xpz9U
+z/ZdpK9RKO7Dm9znAgDcV2L/0viNziJtL/id8cJdrs1p3sFfqn/7qRrPt12j
+IsZwcS/DKOMNbXMT/hAjuPr1XCd+11YjKPsuvsWfffdvU8fFeq8iZ2zK/sbb
+3OUHAO4j0vIUPo+hT8n4RXp+9lXusi9FfD934Nez/3bMQXA63v9c/dvPHT//
+w4WYw59zCnKf+5zFxPYPqcavp+UpYh3mqt2+3ouciI/RfY3CLneZAYDbibR3
+TkU/0hpxWoX93ichynwEp9fgU+4ycdXrm7JnTZY55nE5nmht/H2vQXHf3kR7
+PkTzPQBgZkKeQm7oZFzS9z3m+9xlX6LD8cuF69FpngDTUY3/+s4zf7lX3C7K
+d9pN9wexgjzt5k11P78Uw5GbCABmouqLpeQpXOcuO+MXaXkwt+JPWa/ZhwvX
+xHqAmYpyHlnfHPhFfGF143LtO8QSjUnztp0fqj7E7uR6fdE/AHI4HO+qPkzh
+mI/5lw4/f/58+RQ91lLC3ERansI/x3C5y874HY5/dPC/j23sQadr9/HCtfmY
+u1zc/LpvOozNz91kTll0XxchVjAiVb/imA/RekTg6g7H25NYwK8dnhOv8ipX
+8YGuezgVfSK5lVmU6L/O4NkYjjrxbQ3rf3/wr3u2LfNTRiS+3+vg6I/c5eIu
+1z77GqGqDH3/vlgBwIxFuedS33ebf1z4jC77Np2zVzOL0qMvZo9kXjmJCxTx
+pn3CPfdr9Xub3OfCq2t7Mcaeu1zctQ2sIlPO0SjnKPS9l4gVACxIlDmXL81/
+PPXh5Off1vVvesQKLu75DHNUjfOavhNFP9E6cY5xpb57ZTX16bfa1vjE670O
+TomlL0yk72GaNGaPMj4x5L4iVgCwIHF5DuTRz9XPvD3791/jJPdA1fe5lKeg
+Nu4AS1DTB9yHeeCLd8W4wHnsaZX73Ki95k3z+t7mLh/Z2sVD9J83VHzXe8UC
+E2ISYgUAC3Y4fqt5Hnyu/vtpjKCYf1A7J6CIHbQ8Yz43/T7MTbx+f7PNXSay
+tYV11O93NVTxmevc50hrG2h6RooTLFyk5S7Ydvzs9ZXuNWIFAAvRECco5gz8
+FN/WGtTue3D2eW3zCjp9DszFydhwlbss3PW6N+2DfS37kPd6MuL13DxxAs7b
+SLEGaZdwH9i0fO7+ivcdsQKABYj6dQfFngafqjhB5/0Noz1f4q+5zxng2qq4
+wHHPqj7vBFP76dvc50zvNmLdAZ1E2t66xc+vL3zW5kb3ILECgJmK5pxKx30N
+evddqvhC3efaJxqYvPh+L+tbxwVO7UKOwklqeebKY8grUa4X2CfcI1bV7/fd
+B1GsAJilKN+Bf6gcc/nXznM/+fnze9+n6t87v0efoqJuWp4BSXkHo3nvxN9z
+nzdAX3GdvQqHeA5rVyYvLs/h+5y7XIxblDHJ3rkLolxDesv7klgBMBpRru87
+xgK63P9e5c2LMj7QdY+/It4wyzh/S/19GvC5TXGC5M8FuJco38NtIl9c4Kj4
+2+vc9cHV2tW7C9fYXkC0qu5J24z3oiab3PUDLFe0r3u/5I8Ln9E0hq0d28YM
+YwXRvD4gea1kSx2LEwCjU/XBb7FXYar/++B97nrhJm3tdB7jb7nLw7REObfp
+aQT3KLECYJSiXOf3seWe9eHk54t5CF3nENTFCmazp1807880aG1AWHcATECM
+Ky5w6r8JOQiABlHmLhjbvWuTu14AjqI+X3/h5+pnzvci+jVOcg9EGXNo28/v
+u7jD1LWc76C9C1uuiTyGQBZVv3obt92rcIj/9+Dv5a4nYDqiXB+1H8H9S6wA
+GJXD8VvNfepz9d9PYwTF/IPaOQHR/I79z89s+v0pifq5GIPzKUXzvA37IgJ3
+EeVehWOOC5z6VyEfGJAgvuUuuOfeK2IFwKhFfZygmDPw08mYtdM78mifVzDo
+XftYNIzlB43jo3nfp8Js5mQA41LFBXLsVTiUnOHAYIfjP4oyt0nue5pYAZBd
+1M9xL3IKf6rGw533N4z2fImTfx8ezfshDtoLMl6v8bjq5wMcRZnPa4pxATEC
+4OpifPshbHLXCbBM0fzu+phLr3fe/mjeB2Dy6+ujfj/EP67w2U3zMewRDSSL
+Mi6wifx7FYoRAKNS3R/HGC/d5K4bYHmi+b14IWmOe8w8X3/Uz8EYvCagpe4m
+PxcDuL8o9yXYj6C/K0YAjFKU8dPc9zWxAmAUov69eOHTgM9tGusmf+4YRPMc
+jKFrDtpyE/Se2wEQZY6u/Qj6umIEwOhEmZsl931NrAAYjWheH5A8Jo15xwnq
+1gUMPq8oc0LU1dvgNQ3AckW53iB3P1eMABidmMaeLmIFwF1E8x6Gg9YGxIzX
+HUT9foiD1wS01Nu73OcOTNuE+sJ19iFGAFxRlOuyct/bxAqA0YjmfHmD9i6M
++vX7hUnnMYz6/RAHrQmI5riNuQTAYIdjPYI+bqqXgx9y1yEwLzHNNVmb3PUG
+zFfUvxcfnFO/YSxdmGwuvoax/DXq7LeGOpOXALiKGHeuLjEC4G5ifPsg9rHN
+XX/APDWM5QeN46M9F9/gPQEy1lld3sdBcyQOx08N9fVb7vMG5iPKvb9y92/F
+CICsoszvOsZ9EPvY5a5HYF6ieT/EoTn737bc0wZ9fuZ6u8l+iFE/l6DIM/lj
+7vMG5iWm8w5NjAC4icPxOIJ7nFgBMCpR/1588Dr4aM57MHh+fsY6a5onkTyW
+j+a4ymRjKsB4xTTeo4kRADcR05tXJVYA3EXc6L149dlNOfunnJugbg7GoNhK
+1O9NOdn1GcD4xbj3SRQjAG4mppmnRawAuKlofi8+dM1BW26Cyebji/q1Acmx
+j6ifezHZeAowHdV4PHffVowAuLso5xRsoowZ7Edw7xMrALJqGJt+usJnv2u4
+d016b7+oz/uYtIdk1O+dIG8hcBcxvn0SxQiALKKMG7w/eIrxr8sSKwCuLur3
+Qxz8Djua1xy8y33uA86rbkxf6J2bIMr9DS6tNxAjAO7qcDyPoF8rRgCMyuF4
+M+G4wS53/QHTE/XvxQetCWgZS099LkHdHIze5xXl2oxL+SHECIC7i3Hk8xIj
+AEatihtsYzyxVbEC4GoaxvKD9yGI+vX7g2MQuUX9PIleY/uGGIF8BEA2kXd/
+MDECYHKiXLc19rjBLnc9AdMQ9fshfhz4uT813KMm/Z48mnMzdj63KGM052sN
+irkdSfkNBl6rD2eO5Zr0vA8gTeTbJ1GMAJiFw/EQZcx1bPlhd7nrBhi/uNF+
+iFE/l6AYf/Zevz8mUb8fYufzi8vxmWKOwk93PI+m3BFH5jXAAkWZ87tuTZoY
+AUAPUcZexxQ32OWuE2C8ovm9ePJY/nC8bfjcQfssjkHNGP88VvAqzhLl3g+X
+frf4+bvOIehxXtnLBdxPlPNmnzP0WZ/ECIClqOIGm8i7B+Mudz0A4xT178UH
+zTWPy3n7v14aO09Rw/kVcyj6vH8r5nKMZs+HuBzfmfTcD6CbKHMX7vRVAe6v
+ugfniBvscp87MD5RvzYgea551O8DMIv569FhP8Qo5w3U1e1x/f/d1hf0OLd3
+Z2UdlKMCGL8o32ltI98eX7vcdQAwNlXc4F57MFrzBXwn6t99J801bxhDTzpv
+4dk5Xm0/xLGJ1+sOZjH/A7gsyndXOfcA3+WuA4ApiHIPxlvGDcQKgD81jOkL
+veeaR5kz/9J8/NnECKrz/FhTZ5OfL3EhbjT5XBLAa1HmIOibR+t/EyMAGIcq
+brCN6+aTESsAivvL1d6LR5kP8dK+CbOKEVTnetU5GGNxIW70OXeZgOuKch7r
+U0K/sYgrXHOfxF3uugCYk+o+XcQN/kasABgi6vfE6zW2b4gRTP79+oVzbdoP
+cdL5/i7EjWYX44Glqsb4jz37ivuDzdnnbMUIAMYvypxT/0ysAOgjmvdD7Dw+
+jPId9Plag+J9+13erUd9vsBinf3bG/y9uv0Q55Cb4DxuNOn5EUApyvWsfeYB
+fKniAa/6iFW8YS9GADANUc4zSJlj8M/FCmB5ovm9eDHub303XjNmLsaaN8/j
+H+X+fXV7E5762OVcevzdS/Mm/oxL5L6mA8/rUtxo0vMjYOmqvmHfMf3uYNXy
+uRsxAoBpORwPCc+E//Pg7+QuO3A/NWP881jBq1z3Ub6/v/S7xc/faw5BXV6F
+Old5118zlj56l/uaDjy387jR5OdHwFJFmdvqued9svj5dY+/0ffzd7nrBYA/
+79/b6DfH7N/ExN+HAd1F/bv4Yg5/XZ6+i2Pwe46RE2IER4Pvby1/e9L7AsTr
+2I/nAUxMlGsCdj3vjfuDh4S/tRYjAJimxOdFsefNJnfZgduJDvshRv26/6/V
+eLlw8/UFZ+U+fef9+3l8Isp9GZvmSQwqb9Tvhzj5fQHCfojUqO4F57krivjg
+q/lGCZ9dfKdPY5a/hfUuqXW5jYQcBAP/Zpc+5i533QBwWZR74Dz3jBcUP7/O
+XXbg+uKK+yHescw/nownGtc3xOXcioPfkV8YSx99zF0/A8/Lfohcahc/XogP
+nPt9wOe/vfZnLlGUuQL2Pft4xfh+cG6qqn8pRgAwcXGjfDaMU9UHK8aDl/Ku
+fa7+26TXVJPcNurei492rvlJbKNTDoQLY99BcZCazzsa/F51JHU7i7gHV2sX
+dfOJrtL+G+5DhbvOVZqiqk/33LNP93ztPl3U75O4y11HAPQTV9wfh/Gp+vxd
+8sDPZpxD7zZS9158tPvgVW26Vxzjwjgn+T35hbH0JOqt47mdj9fcDxYuyjU8
+XZ8fxf2k91qBhvtQwbqX+npbRVoOgvWNyvPDhT7l+9z1BECa6r5eFwNuihds
+cped2mvadZ+4Op/0zeYvmvdDHOW64CjnP/ceu1441yFxgqbv1tvcdTSwbifR
+DrhruzjGxYp2/9PZv10l1twUd8h9/mN00m/r+57n5mP2+H6fxE3uugJguCjj
+0k89x5MvIXfBqJz13347H+9X46W2ffCO74XECmasoR2MNjfBgHM9X/+cdI4d
+vjuTff9+IZYyu3ZAUrs4zjE5zxVatxahd06Bhu+TdS+v62rTMz7wNe48D7Tq
+G25y1xUA1xXlOreXns+gIr6wyl32pTvrtzWOV6KcS9q0JvQYK7A2dKbicr6K
+wmhzEww41/MxcN91C790+L789d07H1NNwYUYyOzaAUnt4nif+PHs3+tyD37t
++9yICa5/ynAdJtM3u2dMAoD7i7S8uY+eD9mu1+k8gs7vAaN9D3rvFGcoLs8x
+P5rcGLfD+Z6PgTuNY6I9x3unuEHu8+94rufrKYzROLaLi/P/G8b3vdp8zffM
+moOyblZhricAIxMjXgPHd9fp/L1O3z7auzmMc+h1zZviQ7Nab1LFRE7HM96T
+v66jV/shhtwEfP0rTvCp5r9dZe1STZxg0c+dqv/12DM+sA/z/QG4oxhZTl1e
+XZ/z94C9c6m1jBuNGWYm6ufQz+4dXiTOtVmSC99/68L5U9U2Lo7ZL8SXkuKN
+cXkN1GLXvIW9qACYmEjfo/dN7rLPVVzOWZ80po/mOdaLfrczN1E/X3hW48Mo
+83Acz1W+jfp6sh8iSS7EqXu3oQuf8Vvu88pUl0Ufa9+zj7UL+aEAGInD8ZD4
+LBPrvv61ePVeeMBnNe2T3TuHNeMUze8AZzU+jO/fU85qPcUV6+hSrgp1RSdR
+Pxft4lqFms9YdPs7HG8i7R3MOnfZAeCSSMtdsM1d7jmJC++FB35e3V5XyfMU
+GJeGfn1hNrnr4vu1073X4ixFvJ6TNLu1J9xOS3y5dbx/IW65mJh0lDkIdj3j
+A/uDh9xlB4A2A55zm9xln7oL/atrxAma3jUba81A1M8Tns01ju9zc87inG5Y
+V/ZDZJAYsMfqhTjVIr6v4T0LAAsRZa7D557xguLn17nLPlVR8174Cp9bN46c
+3X55S3NhTHhu8usO4vv9PxYx5hhYX+djvNnMKeE+6p5F0WFuytk9afZzCSJt
+z+ldWLcJwMSFPDz3rOuLY75bfe4cxpBLFeU7u7o9Dl5d56nGhMQIetfXpflD
+1hfRS1zOcdHpe3gWp5rtdzbS80CvcpcdAK4p7Otzjzq+mEvgCp/7ruYamY88
+MdG8h0VXk4gPiREk1dl5TLBz7jk41RCHrN27IL7PbTDLuQRhX2kAeCXK3AXb
+ns/HIl6wyV32KbhhnKAuR8Ei96pi/Ko2e8zpKUbQXl/vGsZ1k4gLMS4N8eXa
+tQfx/XqFWX1vT/o/fd+XvM9ddgC4lyqe/tQzXvAint5arxf7+Vf43Lr81eYT
+MDpiBJ3rKWluSe5yMw1Rrj14tf9O5WLOi/iWC2dWcwmizEHQJz7wNcynBGDB
+olyf99Lz2VnEF1a5yz5Gdf3+K32294yMXhXT+lSNTxa15zqMTV3suvj3Cz87
+u3VC+jgAMEyk5ft9FGt/VY/3jhNMMrcd85QSIyh+J3e5Ya7i9R6HR8V39Mez
+nz3GFCY/lyDMmQSAqwlr965Rh/eOE3hfyyhEOcf5j54xguO8aPn84Uaifu3B
+u5OfOV3bNtm5BFU/5rFnfGAfcjABQKuQC3hI3d01TpD7fKGQEiOofq/I7f9q
+/jNwPVG/r+7HCz/zR+7yDjhPezoBwB1E+t7Cb3KXPWOd3SROEJfzGBpfMQpV
+u+8zj6DIc3ic43wxnxpwHfF93oFzP8b3+Q4nt5at6qvse/ZVdiEHAQAMcjge
+Ep/Bi4vR3zBOcKmfJ4ch2dW1+Y6sOYA7iG/7GLx6jsS3vRA/5S5nz3N6E2nv
+Mta5yw4AcxJpuQu2uct95zq6VZzgw9lnGl+R3eH4bUCMoPBb7nOAJbjwDDk6
+rheazFyCKHMQ7Hrea/YHD7nLDgBzNeD5vMld9jvVz63iBOd7W81qfBVlTgxr
+RSfkCjGCgjUHcAdRrvVp+i5OYi5BeF8BAKNWjeuee44Jip9f5y77jeulbg52
+8t5vUa4dnfVcgrPYk37dyB2Od1eIEXzOfR6wJFHOHaj7Po56HVuk7d1cPFfE
+nQEgg5A/6Lw+6uIEye9N4/V80VH35xLOb1VTZ0W72uQuH3A/1f3gve/+Teq2
+bu3BaGPPkZ5PeZW77ADAn8/yvvsRFbZzi/U3xAmS9iaI7/NQJ3/OmB2Op5Z2
+Il4AMxblerbNwcsxlpy7THMUl/fNGWXsOezPDACzUfX1tj2f61/mNAZsiBMU
+Ou8rf/J5p3kJPo31nc+A+lr3fEe0zl1m4Dqq2MB5nHCXu1xzVvOMSl4Xd4Py
+HfsRfXMQvM9ddgCgWfUeoO0d8bmXOYwBW+IEf/QZ5x+OX09+t/Pe9FMS5Z6b
+fdqJeAFMWBUb3NWMA3e5yzd38Tq3yGhy4lZxo8XPSwSAuav6gy89n/nFGHCV
+u+wDzrltL/kiVtD67iZezyOYXYzg5FxX0X9+aeFpym0FliLKfe4fozmXzS53
+OZcgXufFzf5sSewruP8DwMRFWp7ixym+I2iIE5znmS7mCrw9+91i7WiRZ+o0
+H0HxebNaa9BQd6nxgp3+IoxLfMtH2GX8t8td3iWJb3Ho30fQRhY59xAAKMVC
+1hzWxQmq/3YeA2hSzCF4l/t8MtXhOvrnt55sbAnmIr7lI+zz/d3lLjdZ2slj
+z/v7PmaUywgA+F6k5zB+yF32judXGyc4+Zl3Ub8/VfHvyXsozklivKCILW3F
+C+B+oswz0ve+LkawQNF/byT3dABYkMQxYPHzb3KXveW8WuME9K7Th+i/buXP
+vmXussNcRZlzYNdzzCdGsFDVM7/vfbxoX6vcZQcA7i9xDLgb67sFcYKb1u0m
+oa0UP7/JXXaYgyjng7XlIxQj4LTNFPGk557to/j5de6yAwD5RVrugu3Y4gU1
+cYJPucs1J9F/3qp4ASSqxnld8xGKEXBsN0UOgl3CfXoSawwBgPsZ0K/Y5C77
+yTmIE9yvrfSNLX0NubKhVpRzw99X9+HnK8UFxAgWJuHebJ0YANAqyrmtffuo
+z2MY/4kT3L2+U+MFo2gvkEN1j32ovjtPMXwdQRePuc+bm7erTUJb2sXI5gUC
+AOMWE8x7JE6Qrd5XkZZv/Tlne4Fbq+6jxfjtMW4zR6CLTe564OZtrG/bcu8F
+AAaJtPXo2xzvKA7HHxfK8kfuOlyKAfGCrPElGCrKuTXr+DZH4Fr5BMQIqGtz
+KffbfZjLBQBcSXybX96nP/Ll3n3Uw/HpQjl+z11/SxNpObaP8QJzYBm1qn1v
+qnvic6TvTShGQEr7S1nvVfzs+9xlBwDmqXp/8dSzr3q33HWH4/OFv/8xd70t
+VaTNhx3lXhosV3x7bzuWOQJiBAsVZXxqEvP7AIDlqcZ/ffvMxXhxdcMy/Vjz
+d3/NXV9LF2m5LsQLGIXE9itGwLXbYN9n7tMtn7kAAHUiLb/y4y3Gfofj55q/
+9yF3PTGoveyNexiDxPYrRsCQNreKEc/hAwCoEyNZK3k4fqn5W7/kriNeXatN
+z/YiXsBojDhesMldN1ytjf2dg//JPRIAmLpIz738cKW//2vN3/g5d91w8Xql
+xJe8K2M0RhYv2OSuD67Wroo9hv62x7W3RgsAGL1I38v5zcC/e2lPxM+564PW
+65YaL3gWL2AMRhAv2OSuA67SjtYJ7WgXchAAABNyOB4S+zzeiSxQpM1HuUqM
+Ca4hU7xgk/u8GdxuUvaR/ZsQJwUAJizSchdsxQuWaUC8wHs1RuGO8YJd7nNl
+UDv5IfFe92d8NHf5AQCGSuwP7b0rW64qXtD3HZt4AaNx43hBkadDLHWiIm2t
+lTgRADBLiWO/4ufXuctOtjazTmgz5qQwClU7/H9uECew1maCbhA7uuq+QQAA
+OYV8TaS1mZepxQuqv3+VPT2YjsT2amw4U5Ge3/fvRfu8g3Xu8wMAuKbq3Urf
+uZdZx32Mos30jTEVbWyTqbzP1d/3/ncBolxj9Xij+EDhKfc50qs9rCJtzd36
+5DPetDwnv3gmAgBzE9/2xZvEuI9xSIwX7O/dbuLbO0R9+ZmLco+XoWvO2+57
+2tAERNp+r8XPXpwrUrUt8SMAYHGq9y5PPfvNL2HO5WIl9sVfva+7cRmfz9qr
+cd7MRHrOzb7Wuc+VTu1hk3BP2rbdG4oYQstnWN8EAMxWpK/jXOUuO9naTGq8
+4PnWY694PQd9l7u+uOr1fd+z3aXGE7a5z5XWtlA8u/rmpHjq8+yK5lj6vi3W
+AAAwdZE2r/xRP2m5In0/8mLsdpP8AXF5Tc1j7rpi8HV903NMWLSxVU17aP3d
+3OdLY1tYtYzfL0maC1fd45riUtvc9QEAcGtx5TWeLEOk5Q77GjfYU6NhXLjJ
+XU8kXc++eQq/y6WSECf4cu02Sba2UNgP/e5Hc64COSwAgMVIHPcV/THrNRcs
+0teNXy1e0DIuXOeuI3pdy4foN8fp6XzMlhAncA8boei/3uSqe7RG8/yFbe76
+AQC4pyjn+vYd9xU/b0+6BYu0nBdfr9Gvj3L9TNPYQdscueg/r3xfFwPqGSew
+PmVkqnvJvud9ZBfXn6e0armvmFMAACxO9H+vd+yr6TstWGK8YNB7wOpvto0p
+tcuRiv7vjRvbSo84wUvuc+e765Yao17fsExNbcnaOwBgsaJ/7oJ/W/XdjMsW
+LNJyZCblvegQJ/hzTKhNjkuk5SlsnRvSMU5gnslIRFpu1OLecvP1ItGc03Cf
+u+4AAHKKtFxSn0MeucVLjBfs+7SdjnGCwi53ffDX/aTLWD4pfhTN61COOrcv
+btoWtg3j8Lq2sL1zGZtiGOvcdQgAkFuk5ax71pciYTzQ+Z1hNK8jPrfNXRdL
+Fv3Xnr/KU9jxb4gXjVikxQ93fdvClcradH/RlgAAKgl9/WMfb5W77GRtNyl7
+cHaKNfX8vE3uulia6tr3zVOYNK+8JU6wzzHW5Ltr85zw/V9lLnddmb/krlMA
+gLGJ8p3Q3/bs823105ct0taxNMYLEj7L2vT7Xe++eQofh9wjWuIErnueNrCK
+tBwE69xlr8q/aSjnKMoIADAmh+N/ThijFWOGTe6yk73tpIwdvsaFuSmJbdCY
+8bbXt2/++pdrXJOGOIH89PdvAylziJLymd7hPOrKu81dPgCAsUkYn52PC9a5
+z4HsbaiIF/SZk/4qXtBzHHLa/sxtuc013eYaF9bECZ5z18nSRPkOvu/3cjvW
+72TUx7y0LQCAE4fjYWCc4K9+VshdsHiRtnb5OLb4m8S295L7vOck0vIUrm5Q
+hvM4xCjHnnNU1X+f/S5v0g5ucF7buvLnLhsAwJhE8xrzTc/xwtcYuC6ZeUiM
+F/x/iXGCwi73OU9dlPOydz3qvLg3JOUp7Nh+Tv/WOnf9LEGkzQuazJyyC+3q
+lDVMAACVhjjAU/XfZ7E2lWztKyXWlGqb+3ynKvrPL79pPPBsPOe63v76p+Ql
+Lb7Xm9xlTzjXuvOZ3LkAANxCy7uV92c/u4q0XNc3ed/ItNwxXrDJfa5TUn2v
+n3vU713eHZ/cm6wpuX1d/7cH/7ZHGyjiSduY6LyxqF9Psc1dNgCAMWgZ969q
+fqdv/vPC/3Xwd3OfL/lF//31+rIHQvdrse07Nrxj2dbV31zlrqe5qur4X/T8
+fu2mfk0anl9PucsGAJBbNO8R1foOL8r8h/uEPuYk30FxPZG2lqVvrGCV+zzH
+KvrnKXxWn/MRabHe4ufXuct+pfPf1p1j7rIBAOTW0FcqbHp+Tt/cBVvxAg7H
+302INXVlv8TX9d13DXrxXbVuaCaif57KrzHDtWPiBAAAl1X9xbqxfe/9xxLG
+H8f+5yZ3XXB/ie1FrGBYnT80fOcvsW/JjET/eO6/jpmu149y7dPFZ1LusgEA
+5NQyRtsO+NxVLHg+K53ayKbneOUasYJV7vPOWN99v5OT2eOOTte/+L7te35n
+/tmcY0TRkL83d9kAAHKJcm1qUx9xdYW/8Y8O/rZn33S35PHc3EXamuhrWWRu
+w+j/Dnmbu8xc7dqvE75vRYzoP85d9jvVjTgBAMCJqN8T6urjhMPxXx/8q559
+1WJsM9t3WUsT91tj0MUmd33cqc7XLd/zc8V4cpW73Fzl2q8iLQfBOnfZ71hH
+4gQAACeiOXdh77wEHf/mDy1/t64sm9z1xeBrv4n7rjHoFIfKXS83rO+UPIWb
+3OXmatd+2/P7Vvzs+9xlz1BXdc+jfe6yAQDcW9M7lMpN+4tRvud66jmms1Z6
+giLvGoMudjGzOSvRP0/h7OpgqSItHrdd6vVviBM85y4bAMA9VeO2pn7kyx3L
+sk4YQxbxhVXueqT12o5pjUGbWeyFEP3jb/sQe5uF6L++xL30qzgBAEChGrvt
+G/qNWXK8RVoebnu1jVSMc41BlzHzZPMbRrm/mzyFCxPmZg2tv+eaOtrlLhsA
+wD1UMYK2903Z1qeGNbWzENOZQ1DXnh5y12HP+n7T4Xt9qhgXTTYewl/XPWW+
+zj7koDivx31NXW1zlw0A4NaifOfUNpbY5S7nSVl3Cf3fde6y89f4ZR3lnIJt
+5bkylTkGm9z12LGe++YpFFObgeg/d+RLLDgHQUtd1tXZpOKFAAB9RXs+gsLo
+1mdHWu6C4ue9Kx25KGNBxfV9uBBL2I8gTlDY5a6nhvp76FlPT2P7fpN03dcJ
+349dLDwHQUt91tWb5wgAMFtRvndq60fuxzyGSBgTHfvGoz0nOl3347yE9Uks
+4enOsYTnMbWjqk7kKVyYSNsz5Nm1b63XbV395S4bAMAtRPfcVlnyFiae0zYS
+5trmLjc3bxfHWML7k1jCNdc3FHNtViM4z955CscU4yDpmhdxoV3P9lrEhsyZ
+71a/dWvxnnOXDQDg2nqMJyYTIzg5t9R+8yZ32bl7WyliB48NY4E+sn1Xov+7
+5Oepfa+5eN23PeNC4qL96nfVFGPLXT4AgGuJfnsLjuId6YBzXfUcOx3HT+vc
+ZSdLe/mh+n7senxHLo3DNncu87Zn+eQpnLie9/Gjol2bO9KvnpvW5ImzAQCT
+Vo2Xtz37lc9z6VOGvF6ktZs31Tihb6zpLu8aE9r1kzY9bZGet9V1T6vvunlG
++9xlAwBIMfYxTqY6sU8YQ9pPkSvzscfYfHejcqTkKbQWfcLCPrA56vxNQ90+
+5i4fALAs8W0vuL6O+dmee46FF9WvjP7ztI/xgk3usjMe1fd0E+35EK+6l2j0
+j3U9XvPvc/d2drxf9Y1vWlsyvO53DXVszQEAcBNV/++4L/xz5N8PflHjiei+
+18P5mG+du+yMT5TvHrdxeZ7yfui4Ivrn2ngxlpm2KONQfWO+2yXdx29Y96um
+71bu8gEA81KNJa6VW/1airHHKnfdZLwm64TrYZ03teJbDHAX3+J/X1JjTCFP
+4aK4J+UXzXMJNrnLBwBMX6TlELyHp9RxyxxFWv7wRc3BIE11D3hffec2PX5v
+3bNNGitOWJjjNApRxvnq5nF8yV0+AGDaqj5+0zuJHPbV2HaVu37GKKwFZgSq
+dtjn3lG0QXkKJ6q63o8J9/JN7rLPUZQx47p63+YuHwAwTVGuLXgeQUzg9H1T
+0Qe1Vrn7NVz1HKcd++3r3GVn2qL/mnRzWiYs7MEyOlG/5uOLegcA+or+7wCv
+rejDPEc5b7XoR671aQZf03Wk7VUuJkMvkZancJ273CRf73X0X+dUPF9Wucs+
+Z9Gcv3CXu3wAwLREmbMsdS/CLydj+wd9//GprktKn16chlbRP0/hNneZSb7W
+KfPNnj0X7nZ93jdcB/FfAKCTKOcQ9M07dXwX+F6/Y1oiLXfBNne5Gafon9e+
+GC+ucpebpGudMt+siE3KO3Hf61QXw9nnLhsAMA3Ve6F9zzGjHIITN6C/v8ld
+dsYh+uetk6dwwsQXp6PhmjzmLhsAMH7RnA/ZGHEBov968uP74HXuspO97fQZ
+MxYxKetXJijS9lp1vfNdr3XDdVnnLh8AMG7RfS2x/fIWIOQjo3+b6XIP2Rub
+TFOk5z9d5S77kkVDboLcZQMAxi26zzd/8k5oWcL+ZvRrL02xpW3u8pF0TVc9
+nhHiQSMT9WuBXnKXDQAYr479P+uIFyzKdedd3hWft5lN7rJz97ay9k55Hk6+
+933jhOabjUjUzwHZ5S4bADBODe8Zvnvn4N0wheq9Yt99MF68V1yWk9ijWNFE
+RZmDoO+euFvPivGJ+r1HtrnLBgCMT3TLWbjLXU7GJ/rve/e1ii+scpedu7SP
+494ZxowT47s9Pw3XzRxBAOA70Zz/2LsGOom0vOePxo8wLmGu0Gw1XD/XDgD4
+S/Wur20+6SZ3OZmGsIYZJqv6/nZZf3Zq7xkxHeIEAEAX0b6vlfEbvYWc6DAp
+YS+TRRAnAADaRMM+ypVd7jIybZG+x/qb3GWHJai+o/ue39EiBrjKXXaSrrc4
+AQBQq3rf2/Tu6Dl3GZmPw/GQOBbxrhJuoIjFJcbw1rnLzqDrLk4AANRq6R/u
+jc+4hUjLXbDNXW6Yi/i2/0TfNUHy4c9AwzXe5C4bAJBXtO9vsM5dRuZrwDhl
+k7vsMGXidDS8I3CdAWDhonk/7Mfc5WMZolz70jSvxbxnuIJI27O0iOWZVzYz
+Dffcp9xlAwDyqfqL1hswGiGPGtxEpOcRXeUuOzdrE9u653/usgEA+bTMJdjk
+Lh/LFfZlg6sI+5JS3zaa3hW4lwLAAkVzXoLn3OWDKHMX1L3vaooXbHKXHXI7
++f70jbe9z1127tZG3jS0BbkqAWCBWt4vrXOXD46q96FPPeMFL9oxS1W9J+4T
+H/hqPs4yNbSTXe6yAQD3Vb1nqh1f5S4fXFLNgWlaK3NJEV9Y5S473IPvCAlt
+pi4G+yV32QCA+4rmNYmb3OWDJpGWr/3Ru1LmypwbBrSdpv6AtQcAsCDeHzB1
+Ye01HL8Hjz3jA3vxYI6ieX6h/REBYCFa+gS73OWDPkIudxYq7AnClbTMRVnl
+Lh8AcHvFPEJzDJmbsDc8C1G19X3Ptr7T1qkTzWsPdrnLBwDcXtTPUbXmgMmr
+4mApYyjvWBm1KPewS4mFrXOXnfFruW+ucpcPALithn6mdYjMRqTlLtjmLjec
+i3Kt2K5nfKAY85kfRmfVPbM23pS7fADAbTX0A7a5ywbXZHzF1Il3cS/V/bKp
+rbkvAsBMRZnzra4PsM5dPriFMF+biana7L5nmy1iYtbPkKxlTsEX7QsA5inK
+/Fd1fQDPf2Yt0vK/PeYuN8vTs50WMa1V7jIzDy1t7zl3+QCA64tyH62Lz//c
+ZYN7if77yb3PXWaWoyWee75GZp27vMxLNO+JVNjmLiMAcF0Ncwqfc5cN7inK
+tbh1e3/4fpBNlGsOmtrjF7ErbulwPLW0wU3uMgIA1yNOAN+LMmdHW5/4OXc5
+WZbD8VL3LjesEePGoj2n4VdzWQBgPqI+9/tz7rJBTtVc77qx2SZ3+ViWeJ17
+s7h3r3KXi+WI9vUvX8QKAGAeoj7n+zZ32WAMiphAfMvjZY85YLEa5iCKowLA
+jIgTAABdNcxD1IcAgJloiBPscpcNABifhjVZp57kzgCAaWqYQ/icu2wAwPhE
+mdewS6ygWKv1kLu8AEA/4gQAQF89YgVfq7mLq9xlBgC6aYgT7HOXDQAYt475
+CuzTAQATUswHrHue5y4bADB+De8cmuYXbG5UljdV32Zb5Uh4bpn38FL9zFP1
+O8XvvsldpwCQUzTvh+w5CQC0qvoTX3rGC75U4/NN6jyDKi7wvvqcvn+/S9ne
+mwMBwBI1PCM3ucsGAExDlDkLngaOzYt3+7vq3f62iiGsT/7v03kC14oJdPEi
+ZgDAkhyOfc0z8TF32QCAaYly7n5d32IOijjGOnc9A8AtRX0OopfcZQMApql6
+93/NtQBj8yxeAMBcRTmPru4Z+EPu8gEA0xTlWoSin7Efwbj+lvECOZ0AmJUo
+cwDVPfsecpcPAJi+KNcjDMlf0Me+Gr9v49s+BuszDyf//fkKsYzH8H4FgBmJ
++nmB29xlAwDmI8o5BsUYfXeFsfnRSzVOfxgyVj8p22Ni2YrfWeeuYwC4hob4
+/nPusgEA81WNzdfVe/3H6t3+0ZeT8ffx356qn31/6zF5lHMuHxvep9TZ5q5X
+ABiqet5ejIvnLhsAQG5R7tHYZ47B05C5DQCQWzXH7uJzLnfZAADGome8oFgP
+scpdZgBIUc33EycAAOgguu/7WPyM/RAAmJwi1t3wfFvnLh8AwNhU/adnsQIA
+5kqcAACgv4Y8T2IFAEyaOAEAQJpqDWfbOoQvchsCMCXiBAAA6aLcR/GlQ25D
+sQIAJkGcAABgmCIG0CFWsMtdTgBoU8W/655l1tIBAHTUMVawyV1OAGgS9kUE
+ALiaKlbQlK+g+G+r3OUEgDpFTFucAADgeqr5mk2xgufcZQSAOofjsS7XTu6y
+AQBM1eF4aFl/8D53GQHgkiKeXfPsespdNgCAKWt4H2OvRABGq+HZtc1dNgCA
+KatyFez1twCYipb5cOvc5QMAmLqmnNFyGgIwNk1z4XKXDQBgLg7HzpwCAKag
+IQ+v3AQAAFdSzBlo6HfJUwDAKLSsOZB/FwDgiop5A/peAIxZwz4HX62TAwC4
+riqnYV3fy37UAGTVkk/HmgMAgBtoyVPwJnf5AFiulrkED7nLBwAwR0UsoKEP
+9pi7fAAsU8tcgn3u8gEAzFnR37L2AIAxaXg2FTa5ywcAMGdFzkI5ogAYi5Y8
+u/vc5QMAmLuWtQeb3OUDYDla1ht4LgEA3EnD/E45CgC4i2ofni8NMYLn3GUE
+AFiKYn8pfTIAcqliBC8tcwnswwMAcCdNOQpylw2A+WuIVx9tc5cRAGBJWtaD
+rnKXD4D5Ohy7lhjBc+4yAgAsTTXfs65/ts5dPgDmp3r2tM0jKPIV/JC7rAAA
+S9TQR3vIXTaAuSvmblVzu4p1YNsij2zxHr3GtrKZaiy3Ot+2fARf5CQAAMin
+ob+2zV02gLmpYgLbatzflOO/q301f38z9vVi1bl3OedN7rICACxZ1VcVJwC4
+kWJ+VjWWv0ZcoM1LFYdY5T7vk/Mv1hk8diz/Jnd5AQCWTpwA4PqinF//eKfY
+QJ3n3OPuKkayFyMAAJgOcQKA66niA7uMsYFL9tUcg7vlBYxyjUHd8+VcEUuR
+EwcAYCTECQCGG2l84NJ4vJjjsLpRHRTrCzbRnqfwPIYhZyEAwIiIEwCkq8bG
+2yuN4Z8rj/Ftb4OjXfXf+ozBmxSf837oGL06/9T8C8XeiPY+BAAYGXECgDRR
+zq3fJ47Tn6vx/zplrFyM76N8d78bUIbTGMVTVZ6HqkyrmvNdV/GFxwExi+Lv
+vc99/QAAuKyhn7fNXTaAsYq0OQRP1dj+6u/Qo1z38P4KMYNbe74UgwAAYDwa
++nLr3GUDGJso59n3eY/+Je68T2H1zn83gpjAqb3nCgDANIgTAHQT5Vz/rmvw
+i3HxJnN5VyOIF2SvBwAA+mno29mjCqBSvaPvEiM4zh8YTX6+KOdA3HtNwk68
+GQBgmkIeQ4BGUeYU6DI2Lu6nq9zlbTmXYk7EkByETfGRm+VfAADgfsQJAOp1
+jBFMMn9/fNvTcFs9C/rMN3iu5gwM3lsRAIBxaYgT7HKXDSCn6JaPYD/HcXJ8
+2wPx1Cp3uQAAuL2o39vrOXfZAHLpGCN4McceAIC5qeaMXuwD5y4bQA7Rbe/D
+nRgBAABzVM0lresHz24uLUCb/7+9+8dtI2kWAN5H8N6A2BMY2Asw8AGUbM5o
+Y2VfynBDhW8zxRsp34QHcKALGGD4IkM32Md+bH2iabJnhhyy5s+PwA8wYIms
+aVKCqqa7Ku378VVrBNExAgDALVX+Fh5dXy6Aa9T2WBUv0TECAMCtVfbXbqJj
+A7iX3KevoSeBfgQAAMxC2s/SPvd3sb+JgVlI5+e/vM8+9PsQAIBZaOhR4OwB
+MHm7x0PDeYNldIwAAHBPlb222+jYAG4t/66r1AieouMDAIB7KzO+3EcDZmf3
+WFV+/22j4wMAgAh5BmLl7+RNdHwAt9Kwl2AZHR8AAERp6OG1jI4PoG8NewnM
+QAQAYNbsvQXmpmEvwSI6PgAAiNbwN/M6Or7gtflUZkM8pv0syU1Rm7f+/jW5
+/8O6fP8i+lqAxlkvz9HxAQDAEKTm2WCfo2MMWI9cE3htWJeutqV2sFI3gBip
+3r91Vr/rAACgJtX7FOR8+VN0jDe+/oeSP9T2CfTttexTmPTawpBUfsZfo2MD
+AIAhSfXZB5Ps7ZX2ZwrWqX7u4l5yjWIZvSYwZam+d2oVHR8AAAxNyZmruWx0
+jD1d5yLV9x5H2qgXwG2k/Xmicz979vUAAMAJqflM/mN0jFdc2/v+gehagHoB
+BKj8fpvcfikAAOhLudfedEb/KTrOC67rocV1tcndn0utIfcVWJ6wKv//Phvh
+2tfMr+c+J1wp7euEk6t/AgDAPaT63LD/5q/Rcba8lpwbvFyYo7+UesBVPdBL
+7WVVcv7tBXHkWsND9FrCmDX8XjPnAAAAGpS8til/HfQchHTZHoKXW+fkad8z
+8umC2OwtgAul82eO3qJjAwCAsSj30kd5rzvV+5WduoacQywC4lyl5p4Qx7UZ
+9z6ho3R+X9EmOjYAABiTyj24U/fhw+91p/3e4m3H+sBQ4m5bL8hxL6NjhjFJ
++34hp36e1tGxAQDA2KR2ZxBC8+7Ufdbh8xDqA2fWuu15hFV0vDAWlZ8rPQwB
+AOACHfPXu9ULLqgPbId+Lz7tey+2PTexio4Xhi7VZx0so+MDAICxSvv+e9sO
+Ofn7ffte+xeUv/lz3WJzQSyD20NQuc62fRhX0bHS6v3MNa1lg0V0nFOU6rMO
+rDkAAFwhXT5n8C1dMWew/J3/eMVrr6LX7sL1zrllm74Fo7y+KUofczDXpZa1
+vfAzm7/3qTzXIvq6xixV+qxExwYAAFOR9ve6L8l/Dr0e5ELrI0/l/7rMAjhl
+M/YcK+1rM88t8kpzEOLeo4fyHl37M1GzLa+RX2s0+2KGIJ3fe7SJjg0AAKak
+5K9n79MFyznVKnqNel7vNrUC+eP93o9leU/a9u3o01u6wZmeqaqs4zo6NgAA
+mKLUvZfgrfOn9VTz5RbrvImOccrSR2+M7QA+64c1scepfuZ7eM8eKmu3jI4P
+AACmrNQLnlLM/dXZ5EotagXr6BinJn3snYn4bKuRXffenetp8hYdGwAAzEna
+33O9pOdg17wo58yz23udmmc96FXQ31qvBl4fOPVzsYpetyFI9XmIL9HxAQDA
+HJW/0/O+37zP4NqehP+W53iaY23gxLpua+sUHePYpf0c0Gs+s/n9ybWydfkZ
+WLZ4zWWxLt9be4/b/KzMul6U6v1TZv07BAAAhqTkQav041yDU97nIKza5Fhz
+U/LYWp64io5xrBryy5qX1PMcw/QxZ/E5XbavYR29nkHv4afKejlzAAAATFJD
+Pmv+Qff1XKTuewg2JY+/y1qX19p0jPG1z9rFGDT8bDxFxwcAAHArDXntOjq+
+sUj7fS5d7tc/R+beqfuckXxty+h1vtPa1PYS/Du3mgkAADAvqX7+wJ6Cdmu4
+Gkt94ETsXesFq+iY77AmT7X3Lzo+AACAW2vIE9fR8Q1ZQ055vHd/sH0BU7e+
+i5P9TKT9vpDatS+iYwQAALi1ck/5XF60jY5vqFreh897Mh6jY+1wTY9t90VE
+x3qDa2+aA6IvAQAAMBsNOa8ZcN3WaxR7CCrX1nZvwXN0rD1f96ah3uMMDgAA
+MBsNewpeouMbkpb33J/HnFeWe+svLa5zNHslGq63qe6jVgYAAMxOQ1442py3
+5zVatcidJ7M/veW+iVV0nDd+T9XJAACAWcr3TKeaC/a0Pp9T8+zDya1Ty9rI
+KK+7xbVt1cgAAIA5q+TBm+jYgtelqcfdaHPlltc/uVpBajerYnT9JQAAAPrU
+sM98ER1f4Lo0ndWfxDn9hjVo05dh8GcuSs2n9jkfZd0DAADgFsre+nN503N0
+fEFrUjuPMat1aZlfb4a6Vz+1n+Uw+boPAABAWw376xfR8d15LfK951pPgk10
+jAFr0qZWkNdsUDMCdo91i7hnVfcBAABoI9XPoj9Hx3fntajlxG9DvW8evC6H
+XqJrS7vHsqH2dWgdvbYAAABD0+Ie+ix6u5X8spZTLqNjDF6fNn0A/1tfune9
+oLx/mw4xrqLXFAAAYKga9mhvouO70xrUzrEPvl/fndaotvfkXL3gZnWmUuNa
+Nbx3p/aFLKPXEgAAYMha7CmYdJ+3hjrJbM8bnFmr3Btw27FesC37Ea6uGeR9
+CqU20DST4mTNK82s5wYAAMClUn0O3tst7wsHX3dt5oP96afX7NOFefr7Z2lT
+ajM531+e+myVekD+v4fytS8X1CcOraPXDQAAYGxSff/269Tuq5d8t5Z7bqJj
+HLKSw1+Tu99DrkksotcKAABgjFLzvfVNdIw9X2/TufZJ7qHoeQ0/lfv9tXMr
+EXL9Yhm9PgAAAGOXmufOP0fH2NN1Pjdc5zo6xjEZUL0g7x9YRa8HAADAlLS4
+z/4cHeOV19dUI9hExzhW6bIZBNd6SzeerQAAADBnad9Drum+8HN0nBdeW1ON
+wHyDfj9HjzeqGWzLe/kQfZ0AAABzkJp7FfybRtTbsNznbspXJzvXIVpZ/2X6
+mF3QpXaQawKbtJ+tuEr6EgIAAIQoOVmbHG4ZHWvDdXxO7fryuzcd9/4sTxhF
+DQoAAGBOWtYK/i33iQeX16XmvozvVtGxAgAAwBh0qBUMZm9BuR/dZg+BGgEA
+AAB0lPfkp/Yz7zZR9YJSH9i0jPPNWQMAAAC4TIdz/od9Dld3iu2hQ33gfe+D
+noUAAABwhbTvW//SIR9/v2//XHL53noYlL0DTx32ORzudxhcLwUAAAAYq93j
+8YL8/DBPX5e6wbLl630uX78u33/Ja+fveYxeOwAAAJii3WPRca9/m3MKmyN9
+PXd+rkX0mgEAAMDUlf3/rz3m9H3aJr0KAQAA4O7Sfn7iUOoFuT6wil4TAAAA
+mLuyv+A5qD7wYv8AAAAADE/az0ZYldz90p6HbWsDua+iGQYAAAAwEmWfwbrk
+9dsLawK53rBJH/MS1AYAAABgItJ+3uEyfcw8PLYq/7+MjhUAAAAAAAAAgOnY
+PX7b+c/OX+X8yq/RMQEAAAD3UWoC2T8nelx8j44PAAAA6NfBHoF3bXth/hkd
+OwAAANCP3ePLlXM0f4++BgAAAOB2cr+Bg94DTX6JjhcAAAC4vd3ja0ON4O/o
+GAEAAID7yL0HGuoE/4mOEQAAALiPFnWC36JjBAAAAO4jnyuo1Ai+RscHAAAA
+3M/u8d08RAAAACCfKTAPEQAAAMhyj8JKjeB7dHwAAADA/TTMRDQPEQAAAGZi
+9/jFPEQAAAAgy70HGuoEv0THCAAAANxHnmVgHiIAAACQmYcIAAAAZC3mIf4W
+HSMAAABwH+YhAgAAAO/yzEPzEAEAABiC3WO987azKf9+2FlExzUXLeYh/h4d
+IwAAAPOxe3zaeT2To+bawdPOaudzdKxTZB4iAAAwdLvH484yOg7u+p5/KnsK
+avmq2sFt1t48RAAAYLBKvvieo+S88aXUDeSDE5ff4w61ArWD/tb9a2Vd/xMd
+HwAAMG/lbPq5nGW781xywUV0rNzk/f98YZ2gVjuwP+X8epuHCAAADFqpA7TN
+A7f2G0xPqQP1VSs49lo+Y2oH+7W+eB7i7vFXX+9L9DoAAADDVXL/S/ONw575
+y51P0dfDxZ+DW9YKzn1uzllXrMpn7aTodWyxzrV5iH92eJ5f077m8E/LNf+n
+fL0eiQAAwFmp3z3nx/ePcz5nz8GIpG57S8Zok4LPz+we3yvxdZ6HmJpnLOb6
+gLMMAABAKzlnKrnTPfIzPe9GYKK1gnxW5mEAa9v7PMSGOoGeiAAAwEXSfubB
+Q8nlX++Uu23Swbn15MzCYNzxM3BLb+XzvIhez4N1rc1D/PvC5/zjxHPlPQtf
+oq8XAACYjlI3WJU8fnvH3G6bPs6n59dfRq/FHJX3f6y1gm357Ayu7pR6noeY
+9j0Kjs8x5Nf4NfpaAQCAaUsx+w2O7w1vyuvnGsIyOb9wj/f8bQB5f1vPacB1
+pdTcR6BzD4ETdYfci0CfQgAA4O5KDrksOfsmOD/cpo8zDDmehxLbInqdxi7t
++1wOuVbwVt7zwb/XqT4P8esFz3c856D1rAQAAIB7KDnlquTrQ9qz/l5HeEkf
+s/Xeawn2JPz8Pi6LVVmr/xnAe3gsv5+r6LXquK69zEMsz3VcI9CvEAAAGIWS
+bz4OsHZQqyds0sfehHfLQ9Hr2nLtPx3F/XB0TS8H1zvkPQOH8vsyytpO6mEe
+YtqfXTg8a6BfIQAAMHrpx9rBZgC5Z182Ffla11c6zOuPDb0Gc41tuf7B9SXs
+8Jn/rXJ93zs8x7eD78v/7tzTAAAAYAx2j0X6uN/9MvG8l3Y2Ow/Rn82ePt9X
+zUPcPb6kH/cj5D0F+hUCAACzk/Y9D5ZpXz94TuPaI093b+V9XkR/9nr+HNfm
+If7R8L3H/Q8b6woAAABzlH48c5/nJW6SfQhjtU37syijPVtQ+Zw2zUM8uy8g
+/bwPwUwDAACAC6Qfe/it04/n+9US2ntNH/0V/vcGz5+fexn9ebnxZ/H3yvWf
+nIeY9rWF45kG1X0HAAAAXC99nGvI1gc2B7YDyNf7zvuzwzmRjwfrsDizTn3G
+kc8XTKL3QIvP2F+VdfhpnmH6uV+hmQYAAAADlvY9F5epPnPwWG1WQVvPDa/x
+cCKuXvbxl9fuq0bw1FdcY5Dq8xB/O/ra470H34+/BgAAAKKlfnpHbtPEzxic
+WLfW8xDT+ZkI6gQAAAAMxu6x6qFGsI6+jqC1O55VcOiv8jWnehH89HUAAAAw
+BGl/ZuLS+sAmTWzGYce1q+X/+YzBl4ZzCe9nD87ORAAAAIB7SfteDJfUB/I5
+hVV0/MFr1zQPsbbX4Kevjb4eAAAASPs5CF1rBHn/wWz6FFbWrjYP8djfDfsK
+vkVfDwAAAKRuMyHz1y6jYx6KdL4v4bE/Wn692YgAAACESfu5im1rBGt7CH5a
+v28Na/Y1HcwySPXZCP+/5yD6mgAAAJiv3eO5RX1gs/M5OtahaZHzn5xhkOp9
+D7Nfo68NAACA+cl7A9K+F+G5fDX/32N0nEOV6j0Kz+4LyGcQGuoE+hkCAABw
+d7vHqpKr6lPYvH5/X5Lrp/2MhFo/w+/R1wYAAMD8lPMEp/oUPkTHNnQtcv3f
+Gr6/qZ/hH9HXCAAAwHzsHosTuemTPQSt1682D7FxP0CL3gb/RF8jAAAA81Fq
+Au856WvSp7Dr+tX2A7SaWZCa+xlW9yQAAABAX8r5An0KL1+/r9f2IWzYk3B2
+XgIAAAD0Le17GC6i4xij3ePXvvYB7B7fGp7rl+jrBQAAAM5L9XmInWYVpB5n
+JOb9B7mGEb0+AAAAMCepPg+xVW+Cg+fqZUbiQe2i0+sDAAAA12nI61vf/z94
+vtr+hMYZieUcxHtM9hMAAADAneweX/qeUdBiT8G3hu9/39/QuUYBAAAAXC7V
+5yF26k1w9LwX7SlIHzMTvul5CAAAAPeV6vMQL+4N0KZPwfGZgrx34eD/f49e
+GwAAAJiTksv3MpvgzPM37Sn4+n6uIe3nJLzXFf6KXhsAAACYm9Q8w/Cqff+l
+DvGt4TV+6l3gvAEAAADcX6rPQ/za02v83qFG8D1d0DcRAAAAuF5D/4A/e3yd
+Wj3i0JfoNQEAAIA5OuoZeEqvfQR3j38a9hGoEQAAAMCMlH4Ih/0Kvl7bKxEA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA47/8AGRJhZQ==
+       "], {{0, 747}, {
+       1034, 0}}, {0, 255},
+       ColorFunction->RGBColor],
+      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+      Selectable->False],
+     BaseStyle->"ImageGraphics",
+     ImageSize->{120.37812500000047`, Automatic},
+     ImageSizeRaw->{1034, 747},
+     PlotRange->{{0, 1034}, {0, 747}}]}], 
+   TraditionalForm], "\[IndentingNewLine]", 
+  FormBox[
+   RowBox[{"\t", 
+    RowBox[{"=", 
+     RowBox[{
+      SuperscriptBox["e", "3"], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+           RowBox[{
+            RowBox[{
+             SubscriptBox["p", "2"], ".", "\[Gamma]"}], "-", 
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+           RowBox[{
+            RowBox[{
+             SubscriptBox["p", "1"], ".", "\[Gamma]"}], "-", 
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+          SubscriptBox["\[Gamma]", "\[Nu]"], 
+          SubscriptBox["g", "\[Rho]\[Nu]"]}], 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["k", "2"], "[", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{
+               SubscriptBox["p", "2"], "-", "k"}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{
+              SubscriptBox["p", "1"], "-", "k"}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}]]}]}]}]}]}], 
+   TraditionalForm], "\[LineSeparator]", 
+  FormBox[
+   RowBox[{"\t", 
+    RowBox[{"=", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["\[Gamma]", "\[Mu]"], 
+       RowBox[{
+        SubscriptBox["f", "1"], "(", 
+        SuperscriptBox["q", "2"], ")"}]}], "+", 
+      RowBox[{
+       FractionBox["i", 
+        RowBox[{"2", "m"}]], 
+       SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+       SubscriptBox["q", "\[Nu]"], 
+       RowBox[{
+        SubscriptBox["f", "2"], "(", 
+        SuperscriptBox["q", "2"], ")"}]}]}]}]}], TraditionalForm]}], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->37970285],
+
+Cell[TextData[{
+ "Project ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ " out of the numerator, and compute the loop integral.  By default, ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " automatically applies the on shell conditions associated with the external \
+spinors ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "2"], "=", 
+    RowBox[{
+     SubsuperscriptBox["p", "2", "2"], "=", 
+     SuperscriptBox["m", "2"]}]}], TraditionalForm]], "InlineMath"],
+ " and removes any spurious singularities:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->2046251385],
+
+Cell[BoxData[
+ RowBox[{"numeratorF1", ":=", 
+  RowBox[{"Contract", "[", 
+   RowBox[{
+    RowBox[{"Spur", "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+      RowBox[{
+       RowBox[{"p2", ".", "\[Gamma]"}], "-", 
+       RowBox[{"k", ".", "\[Gamma]"}], "+", 
+       RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"p1", ".", "\[Gamma]"}], "-", 
+       RowBox[{"k", ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", 
+        RowBox[{"\"\<F1\>\"", ",", "\[Mu]"}], "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p1", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Rho]", ",", "\[Nu]"}]]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->674706310],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{"numeratorF1", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p2", "-", "k"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p1", "-", "k"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->735088876],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   RowBox[{"p1", ".", "p2"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"p1", ".", "p2"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "1", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "-", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "2", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"p1", ".", "p2"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "-", 
+  RowBox[{"2", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"p1", ".", "p2"}]}], ")"}], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "1", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "-", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "2", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"1", ",", "0", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{444, 121},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->90685328]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"%", "/.", 
+   RowBox[{
+    RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     RowBox[{
+      RowBox[{"q", ".", "q"}], "/", "2"}]}]}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->358173046],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"DiscB", "[", 
+      RowBox[{
+       RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"8", " ", 
+        SuperscriptBox["m", "2"]}], "-", 
+       RowBox[{"3", " ", 
+        RowBox[{"q", ".", "q"}]}]}], ")"}]}], 
+    RowBox[{
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"q", ".", "q"}]}]]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"1", "-", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "-", 
+         RowBox[{"q", ".", "q"}]}], ")"}]}], 
+      RowBox[{
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}], "-", 
+       RowBox[{"q", ".", "q"}]}]]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"]}], "-", 
+     RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+   RowBox[{"ScalarC0IR6", "[", 
+    RowBox[{
+     RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}]], "Output",
+ ImageSize->{555, 59},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->992475763]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"numeratorF2", ":=", 
+  RowBox[{"Contract", "[", 
+   RowBox[{
+    RowBox[{"Spur", "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+      RowBox[{
+       RowBox[{"p2", ".", "\[Gamma]"}], "-", 
+       RowBox[{"k", ".", "\[Gamma]"}], "+", 
+       RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"p1", ".", "\[Gamma]"}], "-", 
+       RowBox[{"k", ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", 
+        RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p1", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Rho]", ",", "\[Nu]"}]]}], "]"}]}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1828483816],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopIntegrate", "[", 
+  RowBox[{"numeratorF2", ",", "k", ",", 
+   RowBox[{"{", 
+    RowBox[{"k", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p2", "-", "k"}], ",", "m"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p1", "-", "k"}], ",", "m"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[5]:=",
+ CellID->504350158],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "1", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "2", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "1", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "2", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{372, 86},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[5]=",
+ CellID->970758800]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"%", "/.", 
+   RowBox[{
+    RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "-", 
+     RowBox[{
+      RowBox[{"q", ".", "q"}], "/", "2"}]}]}]}], "]"}]], "Input",
+ CellLabel->"In[6]:=",
+ CellID->1255046304],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{
+      RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], 
+   RowBox[{
+    RowBox[{"4", " ", 
+     SuperscriptBox["m", "2"]}], "-", 
+    RowBox[{"q", ".", "q"}]}]]}]], "Output",
+ ImageSize->{150, 38},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[6]=",
+ CellID->799968345]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation:\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "e", " ", 
+     RowBox[{
+      SuperscriptBox["\[CapitalGamma]", "\[Mu]"], "(", "q", ")"}]}], "=", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       StyleBox["i",
+        FontColor->RGBColor[0.6666666666666666, 0., 0.]], " ", 
+       SuperscriptBox["e", "3"]}], 
+      StyleBox[
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]]], 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["\[Gamma]", "\[Mu]"], "[", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           RowBox[{"\[CapitalLambda]", "(", 
+            RowBox[{
+             RowBox[{
+              SuperscriptBox["q", "2"], ";", "m"}], ",", "m"}], ")"}], 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "8"}], 
+              SuperscriptBox["m", "2"]}], "+", 
+             RowBox[{"3", 
+              SuperscriptBox["q", "2"]}]}], ")"}]}], 
+          RowBox[{
+           RowBox[{"4", 
+            SuperscriptBox["m", "2"]}], "-", 
+           SuperscriptBox["q", "2"]}]], "+", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"1", "+", 
+            FractionBox[
+             RowBox[{"2", 
+              RowBox[{"\[CapitalLambda]", "(", 
+               RowBox[{
+                RowBox[{
+                 SuperscriptBox["q", "2"], ";", "m"}], ",", "m"}], ")"}], 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"-", "2"}], 
+                 SuperscriptBox["m", "2"]}], "+", 
+                SuperscriptBox["q", "2"]}], ")"}]}], 
+             RowBox[{
+              RowBox[{"4", 
+               SuperscriptBox["m", "2"]}], "-", 
+              SuperscriptBox["q", "2"]}]]}], ")"}], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             FractionBox["1", "\[Epsilon]"], 
+             StyleBox[
+              RowBox[{"-", 
+               SubscriptBox["\[Gamma]", "E"]}],
+              FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+            RowBox[{
+             StyleBox["+",
+              FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+             RowBox[{
+              StyleBox[
+               RowBox[{"ln", 
+                RowBox[{"(", 
+                 RowBox[{"4", "\[Pi]"}], ")"}]}],
+               FontColor->RGBColor[0.6666666666666666, 0., 0.]], "+", 
+              RowBox[{"ln", "(", 
+               FractionBox[
+                SuperscriptBox["\[Mu]", "2"], 
+                SuperscriptBox["m", "2"]], ")"}]}]}]}], " ", ")"}]}], " ", 
+         "+", 
+         RowBox[{"2", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", 
+             SuperscriptBox["m", "2"]}], "-", 
+            SuperscriptBox["q", "2"]}], ")"}], 
+          RowBox[{
+           SubsuperscriptBox["I", "C6", "fin"], "(", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["q", "2"], ";", "m"}], ",", "m"}], ")"}]}]}], 
+        "]"}], "+", 
+       RowBox[{
+        FractionBox["i", 
+         RowBox[{"2", "m"}]], 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        RowBox[{
+         SubscriptBox["q", "\[Nu]"], "(", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"-", "4"}], 
+           SuperscriptBox["m", "2"], 
+           RowBox[{"\[CapitalLambda]", "(", 
+            RowBox[{
+             RowBox[{
+              SuperscriptBox["q", "2"], ";", "m"}], ",", "m"}], ")"}]}], 
+          RowBox[{
+           RowBox[{"4", 
+            SuperscriptBox["m", "2"]}], "-", 
+           SuperscriptBox["q", "2"]}]], ")"}]}]}], "}"}]}]}], 
+   TraditionalForm]], "InlineMath"],
+ "\[LineSeparator](",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ " is UV and IR divergent, and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ " is finite)"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1482713304],
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1897431408]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Inelastic form factor (",
+   Cell[BoxData[
+    FormBox[
+     RowBox[{
+      SuperscriptBox["\[Mu]", "-"], "\[Rule]", " ", 
+      RowBox[{
+       SuperscriptBox["e", "-"], "\[Gamma]"}]}], TraditionalForm]], 
+    "InlineMath"],
+   ")",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection",
+   Deletable->True],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->2144999953],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can also extract inelastic (transition) form factors.  Consider a diagram \
+contributing to  ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[Mu]", "-"], "\[Rule]", " ", 
+    RowBox[{
+     SuperscriptBox["e", "-"], " ", "\[Gamma]"}]}], TraditionalForm]], 
+  "InlineMath"],
+ " decay, mediated by a scalar leptoquark (assuming massless electron and \
+quarks):\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "\[ScriptCapitalM]"}], "=", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzs3c+LJOmZJ3hnd5yqY9Z/EFsH9TUg/4HYpS6F+hDMUlDoFD30pNBh2WBW
+IhmYg0kgyItQoGVhq2nouIkudIhLoxV1cVAL7bJ5CAkdp1DoPp2Kw95t7c2w
+qPKMdDd7zd3cHjPzzwuf/lEZ4f64uUWm2zee97H/4T/8r//+xX+3WCz+tw+r
+//Hv/+7l//if/tPf/ef/+d9V/8//9J9/+B//w39f/R9/V/2Pn1f/Jf3HsiwB
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAOlh98+LzysvJFpax8HF0TAAAAADHq
+nCj5qs6K1r2Jrg8AAACAw1rrJXr0NCPa5lV07bBNdX4+q5xVLipF5aZynf57
+dG0AAAAwBdU19CcdcqJNPot+DRy36hw8qfOhyzofWtU2na9FdL0AAAAwdWl+
+0dosozYfRdfL/NXZ0FmdDV3V2dBdh4zztnIa/ToAAABgTqpr7dct1+NfRtfI
+Xu/vY5/OWYaTA9fydG/ZdZ0P3e/ZF5e+/zL6WAMAAMAcpVlGLdflL6NrZOf3
+9qSHXGZbf8+qxU3G3rI+rA6deQEAAMAxy8iOnkfXyF7v77M66zlUdhMlZWLn
+0ccXAAAA5q66/v6y4fr8dXR99PY+X48g7+mLe6gBAADAQKpr8DcN1+ivouuj
+1/f6YnmYPWxDSXOzz6KPIwAAAByL6jr8ecu1+mfRNdL7e3667HbvsrG40msE
+AAAAw6quxV82XKu/ia6Pg73vaQbSIedX9ynNajqNPmYAAABwjKpr8tcN1+xf
+RtfHwd//qxFkQ9ukvXVF9DECAACAY1Vdl3/Ucu3+MrpGBjkPxjgDKfVEnUQf
+GwAAADhm1bX5Zy3X7x9F18hg58JYZiClDOsi+ngAAAAAb/OCVw3X8K+j62Pw
+8yF6BtLN0ixsAAAAGI3qOv1Nw3X8q+j6CDsvhp6BlPqdzqNfNwAAAPCt6lr9
+ecv1/PPoGgk7N04q/zpQbnSl1wgAAADGp7pef9lwPf8muj5Czomzet/YEJnR
+bXq+6NcMAAAAbFZdt3/ZcF3/ZXR9DHoupMxoyDlH19GvGQAAANiuunb/qOXa
+/rPoGhnkPLio+3+GyoySi+jXDQAAADRL2VDL9f1H0TVy0Pc/ZUZ3A2dGciMA
+AACYiOoa/lXD9f3r6Po42PselRndL802AgAAgMlI+VDDdf7L6Pro/f3eNTNK
+3/N/9ZAbnUYfAwAAACBPdR3/vOVa/3l0jfT2Xu+TGV3Uj7HPDO1buREAAABM
+S+orarjWf9PyvV/0tY8p+jjM2R6Z0erp3rIdH+cxN3oWfSwAAACAbqrr+S8b
+rvdfdXicj+sc6qvMLOGr+uvN4T7ce3u23O2+ae9lRvXjPdsxN7qRGwEAAMA0
+pd6ihmv+z3Z4vI8yMiP74A77np4td9tbtjEzevK4XR/zOvp4AAAAALtJ2VDL
+dX/nnqCW7Mjc7cO+nyeHyIzWHr/o+LhX0ccEAAAA2F11bf+q4br/yx0f88WG
+x0q9TZ9Ev965qjOj60NlRmvPc9PhsS+ijwsAAACwn+r6/nWfPULLh5lHT/fA
+pef4OPq1ztHyYf5Q6gW6P2RmtPZ8OXOy7+VGAAAAMH0te8uSzjOJNmRRabaR
+WdiHef8uhsqM6ufLmZOd6jmNPjYAAADA/pYP9zjblgG83uHxnt5fLfsebXQ6
+zrvcO+1218zoyfPKjQAAAOBIVNf5XzbkAJ1ynw25kZnY/b9faaZRl3lDZb3H
+7KKn579syaaeRR8jAAAAoD/L9+cSrfss8zE+erJPzUzs/t+nx5lGXTKj1AN0
+2XMd22Zxy40AAABgZqpr/ecNucObDo/x9dr3pf+784wkGo9x15lG93XO1HuW
+s2Wf3HX0MQIAAAD6l/akNeQPX2Z8/ydP+pZS75GZ2P29P6fLh7nWXXqNUl/Q
+yQFrkhsBAADAkVi+fz+0dS9avvfpjO3WrIns9yXtT7vqmBmljOmgM6qX78/J
+7nU/HAAAADAey4cZRU1ZxNb+oQ39Su6l1t/70nV/WpqDfT5Qbetzsi+ijxUA
+AABwONW1/2cNecTrLd+T8qan91Jr7E8i+/046bg/7e1Mo4FrvK6f9yz6eAEA
+AACHVV3/f9GQS7zc8PVPZ2K7l1p/70XX+6cddKZRQ53nh94XBwAAAIzD8t0Z
+1089f/K1T3uU3jz9GnZ6D87qPWe5mdGtnh8AAADg0Ooeom35xJsnX7vtXmyy
+o92Pf9dZ2GmfmLnUAAAAwCCW798jbd0X9ddsmm303tfR+difL7vNwk77055F
+1w3HpFrPKheVov7fZ7WT6NoAAACG0JIJpf1pn7TsaXvct7b1Xmy8d8xTr9FN
+h8zozv40GF6dEd1XyhZ3lVXtps6Zksu1rOks+vUAAAB0VfcTNWUWTT1JrTO1
+2XjMu/QaDX7/NOBB3W+UkxvtarXmai1vOtfbBAAAjMXy/bnXTb5s6T/6Ovr1
+jNkOvUarZcD904AH9f60Q+VGu9DbBAAADG65ffb1Uy8yv/6T6Nc0Rjv0Gp1H
+1wy7Sv060TX09DqKEeRFffY2FYvNvU2zeL8AAIDDSL1CLTnG6+XaPdSWzfdk
+e9ubFP2axmSHXqP0ta7jmJQ6fyjqfGI9t7iKrq2H1xWd/Qwl7c27iD7mAADA
+uGTkQBvvnbZsnq2dfBz92sagY6+RWdhMwuJhBtD5lqxok6nnRzmvcU70PAIA
+AN9YNs/B3to/lPavteQgRz0zu+41uu7Qa3Sl14ixWsuK0izn2x3ziJPo17Hn
+678eQaYzlLvoYw4AAIzH8mH2def8Z/lwb7ammdlvol9b4DE9q3uI9BoxST1l
+RU+dRb+uHo/N2ZpizWrNIe/NdnDRxxkAABiHjPznecv3t83MfhH9GgOOaaHX
+iKmp1sni4X5ifWZFT51Gv87A43u6ljVdrGVN12tZ06GO+y7uo48ZAAAwDssP
+Pvxsn76hZfuspK+iX+OAx/KkcqvXiClYy4pSdnE3QBZxG/2ap2SR39t0qPer
+iD4GAADAOLT0DWXdK23ZPjO7sXdpDqrXeLHMn4d9rdeIoQVkRe/kRosj7jka
+8D1e7226XGzubcp572+iXwsAADAeyw8+fL3LrKMnj9HUu5RsvE/bHCwf5mHf
+ZGZGKVty7yIGUecIUVlRWecUKbdwzo/U4t3epvM6b5LxAQAA31h+8OHHffUL
+VV/7dctjfRT9eg9w/E6X+fOwV3qNOKQ6K0rX/jeLmBnNj1nRWfSxAAAAoB+p
+r2ifWUdPHutFS3aS1cNUP9YXKdeKPj4tNV526DW6jK6X+ZEVAQAAcGhpntG+
+s47WHqvtfm1ZWdRantXp+Qc8Zl32qKW52UPt/7iorJivxbczbCKyovv6eWVF
+AAAAR6Ql68nuE1p7vKY+puRFy/d/vFbT6PqOOu5Ruxq4vqK0Zr2CsiLzbwAA
+AI7U8oMPP+lr1tHaY7b1Hn3d8v2PfVCdc6sBjleXPWoRs4GL0pr1khVBu8XD
+/QSL2kXFnDkAANjR8oMPX+27v2zL4+7Ue7T89l5taeb2aOZqd9yjFjkPuyit
+Wa+es6I7WRFzU2dFm3LR65QpRdcHAABTs/zgw9cNGcjOs4Yyeo/ePN2Plnqc
+1v78s+hjs1bXaT2zKCc3KoLrTc9vzXj1kBVd19fWJ+UIfr6gT3W/UdvPwaoS
+0RcKAACTU+c7TTnIXnvGMnqPXj/uiVs+3J/tMWv6IvrYrL2G83r/Wc4etbPo
+ekvZ0eyXrAi2q3vouvx8XNrPBgAA29V5TVMesteesTqb+jqzX+ebWUhj2atW
+1XE1gT1qTxWlNevVci18KyvimNXzjXbpybu2bxMAAN63/HYm9caeoJ6e47PM
+/OVxH1vn2dwHOC7P6jxoCnvUnkr1WDNeG7Kiq7T/Ru8EvM2Ozvbc15n2s11E
+vw4AABiLZfM8olc9Pk9TRrXukxEckzTb6G5Ce9SeKkpr1ktWBM3q/KeP2WCF
+nzMAAI7Z8t251Jv0Oqu6eryvWvqNxpAbXSzzZhuludkn0fVuUZTW3Ff0OQaj
+V+c+9z1kSI/72c6iXxMAAByD5cN8pfX5R2lW9l7zuHusrcjsjbqOrrVFUVpz
+X9HnGExGPfvrtqcM6dZ+NgAAOD71bKPrzNzoIrreDEVpzX1Fn2MwOfUcpOue
+MqT7uq/pJPp1AQAAh1XnRreZs42mcv+dorTmvqLPMZislPfUuc9dTznSjf1s
+AAAwT/VM7NzZRlOalVqU1txX9DkGs1DvZ+tjrvbjbO0Ls7UBAGAeOszEvo6u
+dQdFac19RZ9jMCvVOu15P9uV/WwAADBdyw8+vJzRbKNNitKa+4o+x2CWUs9Q
+5bLH/Wypp+k8+nUBAAD5Mmdip36ks+ha91CU1txX9DkGs5cyn573s13azwYA
+AONVz8ReZc42mspM7G2K0pr7ij7H4GjUs7Wv671ofexnS4819X9nAABgVjrc
+S201sZnY2xRlD+sf/vGfyk8//e431zwvvv+D8re/+30fDx2y/vDHP719Tcnn
+n3+v8fruhz96+c3X/vnuL7GFb17R5xgcnXo/20XP+9kuol8XAAAcuw73UruO
+rrVHRbnn+vFPfrr1eiflKVNZKev62c9/0cc13tvXnfKnkazocwyOWrXOKjc9
+7mcr7GcDAIDhdciNLqNr7VlR7rF++c+/ar3WGWkvzjfrX379m9beol2lx02P
+H7yizzGg/GY/29Win/1syXXKpaJfFwAAHIN0j7SM3Oh+wvdSa1KUe6y0Xyun
+B2eMK/UFpb11h8iMnkrPE5ihRZ9jwJrFt/vZbnv6OyY9zkX06wIAgLmqc6Oc
+e6nNdVZpUe6x1mccbZPypbGt1As0RGb0VFAPUvQ5BmyxeNjPdt3T3zGpn6mo
+nES/LgAAmIvlBx8WR3IvtSZFucfK7bkZ0+prptGu0vMPvKLPMaDF4mE/W7Ho
+bz/bRfRrAgCAqUvzrjNzo7nPIy3KPdbUsqOmud5DSnUMuKLPMaCDxcN+tlUP
+f9ecRb8WAACYqszc6OYIcqOkKPdYU8qO0tyl6Mxo3YD9R9HnGLCDap0u9tvP
+dhP9GgAAYGpSFpSZG11H1zqgotxjTSU72nW+UZrnlDKnbXOK0p/tk0kNNP8o
++hwD9rB4mK1dVO46/h2ziq4dAACmpM6NbuVG7ynKPdYUsqO/3t9nzfR+mhl1
+zXV++c+/6vw83/nO37yt78Ar+hwDelKt80X+frar6HoBAGAqOuRGF9G1BijK
+PdYUsqOus7H33UuW7ivX5fkGmH0UfY4BPVs8zNa+XmyfrZ3++0l0nQAAMAVy
+o1ZFuccae3b057u/dMpx0v6zPlbXfWypzgOu6HMMOJDFw362y8W7+9nS/z3n
++4MCAEBv5EZZinKPNfbsqEvPUd+zq7s894F7j6LPMQAAABidzNzovnIWXWuw
+otxjjTk7SnOE0jyhnBo///x7B6khPW5ufnTAuUfR5xgAAACMSofcSE//jLOj
+NLs6N7f57e9+f5Aa0uMOvV9uw4o+xwAAAGA05EadFeUea8zZUe7M6kPXlx4/
+p45U74FW9DkGAAAAoyA32klR7rHGkM1sW7n71f7l1785aB3p8YP3rUWfYwAA
+ABBObrSzotxjjTU7+sMf/5RVW8qXhli5OdaB9s5Fn2MAAAAQSm60l6LcY401
+O0qzg4L3ib2zcvfPHWjmUfQ5BgAAAGHkRnsryj3WWLOjn/38F9Hzqd9ZuVnW
+j3/y00M8ffQ5BgAAACEyc6P05yfRtY5YUe6xxpod5c6nTnvbhli5e+gOdKyi
+zzEAAAAIsfzgw1VLbnSX8qXoOkeuKPdYY82OPv30u5Gzqd9b6Xly6kl1H2BF
+n2MAAAAQIu1Dq/ej2ae2u6LcY401O8qdTT3kkh0BAADA8LbkR3KjfEW5xxpr
+dhSY02xdub1QB1jR5xgAAACEqvOjW7nRTopyjyU7yl+yIwAAAIhTz81eyY06
+K8o9luwof8mOAAAAgAkqyj2W7Ch/Bc5gij7HAAAAgOkqyj3WWLOjwB6frSsw
+z4o+xwAAAIDpKso91lizo88//15WbX+9vx+knj/f/SWrnlT3AVb0OQYAAABM
+V1HuscaaHf3wRy+zavvDH/80SD2//d3vs+pJdR9gRZ9jAAAAwHQV5R5rrNnR
+z37+i6za/uEf/2mQetLz5NST6j7Aij7HAAAAgOkqyj3WWLOjX/7zryL7fN5b
+uX1Qqe4DrOhzDOAd1TqvFOl/R9cCAAC0Kso91lizo7QXLae2dO+zLivNLdol
+38m9x9qB9tBFn2MAb1XrtHL35O++2/Tfo2sDAAC2Kso91lizo7Ry85p/+fVv
+sh7vxz/56Tvfl+Za5+RI6fEPkWN1WNHnGMBbdU606e/Ae/kRAACMVlHuscac
+HT3Nevapryn/+fTT7zbmT+nxc+pI9R5oRZ9jAI89R21/F15E1wkAALynKPdY
+Y86Ocvt9knQftKaVMz8pvc6ne8661JDb/7TDij7HAFJ2dJb592ERXSsAAPCO
+otxjjTk7Sit331rqHfrr/f3Wx0l/lr4m57Ee793W5XvS1x1wRZ9jACk7OsnN
+0ivX0fUCAADfKMo91tizo5Tj5F6rtN1zLWVBufvg0iyk3L1q63nTgVb0OQbw
+VrWuOuRHaTbSs+iaAQCAeWdHKe/J7T1KcmYOpXutpZypw/VPo1RfU89TDyv6
+HAP4Ruop6pgfmaENAACxinKPNfbsKK0uvUeP9eZkOWm2UZfeom1y7tW254o+
+xwDeUa2iw9+T7sEGAACxinKPNYXsKK3cuUPrvUC5mU6acd2ltyng2ESfYwDv
+qdZFx78zL6JrBgCAI1WUe6x9e272kfaNtd0f7XGlHqFdnyf1LW3KkVJvUvqz
+3BlIm/KptP9tgBV9jgFslPqJ6r6i3L87i+iaAQDgCBXlHisyO3qU2x/Ude/a
+oeXmXj2s6HMMYKs6P7rt8PfndXTNAABwZIpyjxWdvywW3WZNjyk/OvC91dZX
+9DkG0KhazzrmR+7BBgAAwynKPVbXOUKH0qWHZ0z5UTp+A/QfRZ9jAFkW3e7B
+drcwQxsAAIZQlHusPu9Vv480r7rLSl8fXfO6dBwPOPso+hwDyLbofg+2s+ia
+AQBg5opyj5VmDUXnLknunrX1lbKasWRfj37281/s83ZsW9HnGEAnC/dgAwCA
+MSnKPdeu9xnry75zg9KesRff/8FBavv88+91fuwD7GOLPscAOlt0vwfbVXTN
+AAAwU0XZw0p7wIbu4UmZTNe9ak3rD3/8U2+zkFL/0Hr+s8vj9riHLfocA9jJ
+Yod7sC3M0AYAgL4VpfXeSrlNynuStr6h1Fv0+LUpf9q20p+lr+2SP/W0os8x
+gJ0t3IMNAACiFaU16MrtQUp7AXta0ecYwN4W7sEGAABRitIafKUepLZ+pjSH
+vKcVfY4B9GLhHmwAABChKK2wleY1bdrH1mPPUVrR5xhAbxbuwQYAAEMrSit8
+pbnajzOTeuw3elzR5xhArxbuwQYAAEMqSmvuK/ocA+ide7ABAMBgitKa+4o+
+xwAOwj3YAABgEEVpzX1Fn2MAB+UebAAAcFBFac19RZ9jAAfnHmwAAHAwRWnN
+fUWfYwCDcA82AAA4iKK05r6izzGAwbgHGwAA9K4orbmv6HMMYFDuwQYAAL0q
+SmvuK/ocAxice7ABAEBvitKa+4o+xwDCuAcbAADsrSitua/ocwwglHuwAQBw
+zKp1kj7j7vF70qK05r7Cz1OAaO7BBgDAsannONw8+Zy72mFWw0Vlxaw1vf8A
+R8M92AAAOCZ1TrTpc+4qujYAGKsd7sF2EV0zAAB0lTH305xPANii4z3YbqPr
+BQCALqp1mfE59yy6TgAYu4zfxbwVXScAAOTqMOdT3xEAZFi034NN3xEAAJPQ
+Yb7nKrpWAJiSlt/NXETXBwAAbap1kpkbpa/pep81ADh69e9o7p78u1pE1wUA
+AG06zPO8t1cNAPaTZgbW/C4GAIBJSHvQMmccnUXXCgAAAMBwcu//YhYDAAAA
+wHGp1mVmbnQVXSsAAAAAw2m538u66+haAQAAABhOfZ+XnHuq3ZrjCQAAAHA8
+OuRGd3IjAAAAgOORsqC6l6gtN0rZ0ml0vQAAAAAMJzM3Ss6iawUAAABgOGnm
+dWZudBFdKwAAAADDqVaRmRtdRdcKAAAAwHBSH1FmbnQdXSsAAAAAw6nvqZaT
+G926pxoAAADA8ahzo/uM3OhObgQAAABwPFIWlHlPtZQtnUbXCwAAAMBwMnOj
+5Cy6VgAAAACGk2ZeZ+ZGF9G1AgAAADCcahWZuVERXSsAAAAAw0l9RJm50XV0
+rQAAAAAMp76nWk5udBtdKwAAAADDqXOj+5zcKN1/LbpeAAAAAIaRsqDKXUZu
+lLKl0+h6AQAAABhGnRvdZu5VkxsBAAAAHJE08zozN7qIrhUAAACA4VTrKjM3
+KqJrBQAAAGA4qY8oMze6jq4VAAAAgOFU6ywzN7qNrhUAAACA4aR51/X90lpz
+ozRHO7peAAAAAIZR31PtLiM3undPNQAAAIDjUedGt5l71eRGAAAAAEckzbzO
+zI0uomsFAAAAYDjVusrMjS6jawUApqFaJ+mzQ6Wo799qTiIAwATVn+VycqPr
+6FoBgGmo1vmGe2+kmYon0bUBAJCv/n1gTm60iq4VAJiGeobitnu2rqLrAwAg
+X91H3pYb3eoxBwByVevM7EQAgHmo5w80fba711sOAHSRsR/+3u+lAACmoZ5F
+0PS57jS6RgBgWtLnB3MUAQDmI80d0E8OAPSpWjcZ+dFZdJ0AALSr51lerc20
+TPONzqPrAgCmq74fx7Z52d/cdy26TgAAAABiZN6To4iuEwAAAIAYdT9zW350
+El0nAAAAAMNLM40ysqNVdJ0AAAAAxKjnKrblR2YtAgAAAByh+r4cbXOz058/
+i64VAAAAgOGlvqKM3qOr6DoBAAAAiJHmGmXkR2fRdQIAAAAwvHQ/tYzs6Da6
+TgAAAABiVKvIyI8uo+sEAAAAIEa17jLmZp9E1wkAAADA8NJMo4zeo5voOgEA
+AACIUa3rjPzoPLpOAAAAAIZXrWf13rSm7CjtbXsWXSsAAAAAw6vWRUbvURFd
+JwAAAAAxqrXKyI9Oo+sEAAAAYHgpF8rIjlbRdQIAAAAQI+1Ly8iPLqPrBAAA
+AGB49dzsu5bs6N7cbAAAAIDjVK2zjN6jm+g6AQAAAIiRsqGM/Ogsuk4AAAAA
+hletk3pvWlN2dBddJwAAAAAx0kzsjN6jIrpOAAAAAGJU6zYjPzqJrhMAAACA
+4VXrNCM7WkXXCQAAAECMal1l5EcX0XUCAAAAMLxqPUtzsVuyozRX+1l0rQAA
+AAAMr1rnGb1HV9F1AgAAABAjzTXKyI/OousEAAAAYHjpfmr13rSm7Og2uk4A
+AAAAYlSryOg9KqLrBAAAACBG6i3KmJt9El0nAAAAAMNLM40yeo9W0XUCAAAA
+EKNa1xn50Xl0nQAAAAAMr1rPMuZm36Wvi64VAAAAgOFV6yKj9+gquk4AAAAA
+YqS5Rhn50Wl0nQAAh1T3ZK/v6b+zfx8A4O3npJOM7Og2uk4AgENq+H3aRXRt
+AADRqlVk5EeX0XUCABxC6i9qmv8YXR8AwBjUfdmNc7OjawQAOIRq3TR9Doqu
+DwBgDKp11tZ7FF0jAEDfcvbvR9cIADAWfucGABybdE/ZluzoOrpGAICxqO8v
+cu9zEwBwDFo++zw6i64TAGBM6r1rTz9D3abPVtG1AQD0Kd1DzbxHAIDu6t/B
+XdT3XzuPrgcA4BDq3481ZUcX0TUCAAAAMLyM+4Tc67sGAAAAOE5plmNLdnQV
+XSMAAAAAw6vWSUtulJxE1wkAAADA8OqZjk250Sq6RgAAAABipPuntWRH7hUC
+AAAAcITqe8k25UZ30TUCAAAAECPtR2vJji6jawQAAABgeNU6zZiR/Sy6TgAA
+AACGV63rltzoOrpGAAAAAIaX+okq9y3Z0Wl0nQAAAAAML80xasmNVtE1AgAA
+ABAj3T+tJTu6iK4RAAAAgOFV67wlN7qPrhEAAACAGNW6acmOiugaAQAAABhe
+tU5acqPkJLpOAAAAAIZXrauW3Og6ukYAAAAAhletZ2mWUUt2dBZdJwAAAADD
+S/dOa8mN7qJrBAAAACBGtW5bsqOL6BoBAAAAGF7ai9aSG6W9bM+i6wQAAABg
+eGkGdkt2dBVdIwAAAADDq9ZJS26UnETXCQAAAMDwqlW05Ear6BoBAAAAiJHu
+n9aSHZ1H1wgAAADA8NK901pyo7voGgEAAACIkfajtWRHl9E1AgAAADC8ap1m
+zMh+Fl0nAMCxq3vFV7Wb9DkuuiYAYP6qdd2SG11H1wgAcOyqdWUmJQAwtNRP
+VLlvyY78PgsAIFC1TsylBAAipDlGLbnRKrpGAIBjl/GZ7SS6RgBgntLvqVo+
+h1xE1wgAcOwy7ol7EV0jADA/aW98y2eQ++gaAQBo3bNmPiUAcBD1vTmaPoMU
+0TUCAPCgpV/8Lro+AGBeMn53Zd88AMCIZPze7yS6RgBgPhbb7/Gq7xkAYIQy
+5mVfRNcIAMxDtZ6lWUYtnz3OousEAOBb1Tr1uz8AYAgZ9+m4i64RAID3tfz+
+7y66PgBgHqp1q98ZAGB6zDwCAA4t7UVr+byRfpf1LLpOAADeZ+YRAHBoaR98
+y+eNq+gaAQDYzMwjAOCQUg9zy2cNfc4AACPXMvPoNro+AGC6MnqcV9E1AgDQ
+LGPmkfkDAMBOqlW0fM44j64RAIBmGb8P9JkOANhJmp3Y8BnjLro+AADaZcw8
+Mr8SANhJ6l9OGZF7cgAATJuZRwDAodS/p1qtfbZInzsuo+sCACCfmUcAwKHV
+91w7i64DAIDuzDwCAAAAYJv0O0AzjwAAAADYpiU7MvMIAAAA4Ig9mWFp5hEA
+AAAA36hWYeYRAAAAAJuYeQQAAABAEzOPAAAAANjGzCMAAAAAtsmYeXQWXSMA
+AAAAMTJmHhXRNQIAAAAQpyU7WkXXBwAAAECctplH0fUBAAAAEMfMIwAAAAC2
+MfMIAAAAgCZmHgEAAACwjZlHAAAAAGxj5hEAAAAA21Tr3MwjAAAAADap1jMz
+jwAAAADYplq3Zh4BAAAAsEm1rsw8AgAAAGATM48AAAAA2MbMIwAAAACatMw8
+uo+uDwAAAIA4GTOPTqNrBAAAACBGxsyjy+gaAQAAAIiRMfPoJrpGAAAAAOKY
+eQQAAADANmYeAQAAALCNmUcAAAAAbGPmEQAAAABNqnVn5hEAAAAAm1Tr2swj
+AAAAADap1oWZRwAAAABsUq2TluzoOrpGpqtaH1de1radY18/fk10vbCv+pxv
++jv10cc7PPZXGY/7RfQxAAAA5qdl5tF1dH1MT50FfZ15Df1Uuj7+LPo1wC5k
+RwAAwBxV66rhOuQiuj6mo1ovdsyLNnldeR79mqAL2REAADBH1XpWudVzxK6q
+9VHmde0u7GVjMmRHAADAXNX50WVlVbnRb0Su+lp51/1puV5Fv07IITsCAACA
+b9X9RofOjfQfMRmyIwAAAPhWtb7MvE7+elP2U63P0rVuh/zIDG1GTXYEAAAA
+Dxb5c7Fb95tV63lm/9LX0a8bmsiOAAAAoNNetex9Zov8uUkvol8/bCM7Yg6q
+dVo5S/87uhYAAGCaMnuOvtrhcT/Re8SUyY6YssXDfTNWT86pdB/WZ9G1AQAA
+01Kt1xnXsM93fOyc6+OdHhsOTXbElC0e7rO66by6ja4NAACYjsXDbKK269fX
+ezx+Tk9T6wwliCA7YqrqnqOmc8v+NQAAIEu1XmZcv2bPOdrw+B9lPP6X0ccB
+NpEdMVWLh/lGTefWWXSNAADANKTcJuP69bM9n+NNy+ObecQoyY6YKtkRAADQ
+l0XerKPO18Udn0N2xCjJjpiqap3LjgAAgD5k9AQNQXbEKMmOmKpqFS3nlnut
+AQAAWUaQGyXmHTFKsiOmqi07iq4PAACYjhHkRsmL6OMAm8iOmKpqXcmOAACA
+fS3y7oGm54ij1SE7+mSHx5YdcTDVWjWcV7fR9QEAANMRlBel2dkvd7nehiF1
+yI4634tQdsQhtWRHq+j6AACA6Vjkzcre6z5rMFUdsqPO+y6r9bXsiEORHQEA
+AH2pe4BkR7BBh+zoZcfHzd0vKjtiJy3n1XV0fQAAwHRU68tD7MeBOeiQHXXK
+eNLPlOyIQ2o5r4ro+gAAgOlYPMwdart+fdXzc37StU8DInTIjl53fNxXsiMO
+SXYEAAD0pVrPM65fv+7pudI+nad75GRIjFaH7CjJmv1e/xzkzBmTHbGTap21
+nFcX0TWSLb1XxRE6G8GxBwBgzYY8Z5POs4CfPEe6Bt82G/h59DGATTpmR+n8
+/ijjMXN7jmRH7CQjOzqLrpFsq/I4V1HGH3sAANYs8vatvcm5Lt7y+M9b+iz2
+yqXgUDpmR8lXLY+X87MmO2IvsqNZWZXHuYoy/tgDALBmkb+HptNMl/qxc2YC
+6ztilHbIjh77j14+eZz0c/DVDo8lO6Kzal22nFen0TWSbVUe5yrK+GMPAMAT
+qfcn81r2dU7WU+dROfdw62WWEhzCjtlRn2RHdFatoum8iq6PTlblca6ijD/2
+AABskJn1fHNNu9iw16zOoLrMc7FfjdGSHTFFsqNZWZXHuYoy/tgDwFFbPMxB
+uK0/Q95XrirPousi3mLzfdAO6cvo1wxNOmRHufdN6/o9siM6q9ZNwzl1H10f
+nazK41xFGX/sAeBoVet8y2fJ2+jaGIcB86PGmcIwBh2yo64zsHO/R3ZEZ9Va
+NZxTq+j66CS9X8e4ijL+2APA0Vp822+0yXl0fYzDIn9W0a5eRb9GyNEhO/q4
+Y+b6un582RG9kx3NSnq/jnEVZfyxB4Cj1XKNUkTXx7gsHmYX7bIXZ5t0/6lP
+ol8X5OqYHX2c+fOSvubj+vFlR/SuWneyo9lI79cxrqKMP/YAcLRarlFuoutj
+nBYPe2v22ceW7k1uJjaT0yU7qr/+k5b86PXj19ZfLzuidy3nVBFdH52syuNc
+zlMACLTQx84eFg972V5mZEmvH78uumbYR9fsaO17ns4yeu3ngaHIjmZlVR7n
+cp4CQKCW7Mi9VwDW7JIdQaRqnciOZmVVHudyngJAoPSZsekzZXR9AGMiO2Jq
+qnXWcq6eRddIJ6vyOFdRxh97ADhabdlR5TS6RoCxkB0xNbKj2VmVx7mKMv7Y
+A8DR8pkSIJ/siKmp1rl/52dlVR7nKsr4Yw8ARysjO7qMrhFgLGRHTE1Gf/Gz
+6BrpZFUe5yrK+GMPAEet5TNlEV0fwFjIjpiatuwouj46W5XHuYoy/tgDwFGr
+1n3D58qb6PoAxkJ2xNRU60p2NCur8jhXUcYfewA4atVaNXyuXEXXBzAWsiOm
+puXf+Nvo+uhsVR7nKsr4Yw8ARy31FvmdJEA72RFT4/dDs5Pes2NcRRl/7AHg
+qJmFAJBHdsTUyI5mJ71nx7iKMv7YA8BRq9ZlyzXQWXSNAGMgO2JqWs7T6+j6
+6GxVHnD9wz/+U/mzn/9i4/ny4vs/ePvnf/jjnxof46/39+UPf/Tyne9N37fn
+Ksr4Yw8ARy1lQ7IjgHayI6am5Twtouujs1XZ80pZ0NOsp03KkX77u9+/91gp
+N/r00+9u/J6USe2xnKsAEKxapz5bAsD8+Pd9dlZlj+vHP/lpp8yoLQ9K/UVN
+X//nu7/sWqpzFQBGwGdLAJiXjL7ii+ga6WxV9rBSf9Dnn39vr9xovQfpcbU9
+5h5714oy/tgDwNGr1n3Dv/Wr6PoAgG4ysqOz6BrpbFXuufrMjR6lPW9pbduv
+JjsCgHlYNN+H5Ta6PgCgG9nRLK3KPVfqE+ozN1rPhXK+ZsdVZBwbAODAqnXd
+9G99dH0AQDfVKlqu5U+ja6SzVbnHysl3Dkl2BADTlvH58ll0jQBAvrZ/26Pr
+YyercseV9qp95zt/k53zpH1tm7Ke9N927V2SHQHAtFXrouXf+7PoGgGAfLKj
+WVqVO64uPUc5Gc+//Po3siMAODKL9pkI59E1AgD5qnXT8O/6fXR97GRV7rC6
+9BylTCh3/eGPf+rUyyQ7AoBpq9ZJy7/3RXSNAEC+RfN9MFbR9bGT9L51Xrk9
+Qj/7+S8O9tiyIwCYh5Z/76+i6wMA8smOZim9b53XD3/0sjXX+fTT777tT9pl
+5c4/kh0BwPRV685nTACYh7Qvzb/rs5Pet84r5UIHzHWye49kRwAwfS2/n7yN
+rg8AyGcv+iytyo4r9RLl5DppdtE+K2fukewIAKYv7Utr+vc+uj4AIJ/saJZW
+ZceVMqG2TCflPvuunH1xsiMAmL5Fy718KyfRNQIA7RbugTFXq7LjytlPluYV
+7btSLiQ7AoD5q9Z5y7/5Z9E1AoxVtZ6lvydhJC4Xzf+mX46gRjr6b//2b2mG
+QKf1y3/+VWum8+Of/LTrw+70PLtmR3/445+uo489R+Oy9vctX/f39dddN/gv
+9df87QheF0Cf2j5nvhpBjRy5cgQZATxVrYtF81xigL393//P/1t2XXPIjv73
+/+P/DD/2AABMym3lWTmCvACSRfveIIBeyI4AACDbqhxBZgDJon1WHEAvZEcA
+ANDJSTmC3AAWsiNgILtkR3OYlS07AgBgR2flCHIDWLTPigPoxS7Z0R/++KfW
+x/3Od/6m8+M+XT/80cvW55EdAQAwMDOPGIXFw/3VzMkGDm6X7Oiv9/dZj50y
+pn1Wyp/ankN2BADAgK7KEWQG8Khap5XVCH42gBnbJTtK6/PPv9f62LvmOmn9
+9ne/z6pfdgQAwEDkRozW4qEH6QxG6H8ZQQ3s6b/927/dljusn/38F63/vqa+
+odSjtMtK85LaHj/ZNTv6wx//dB197Jm1/7LI/xz6/1X+tXK9eNiz/vdbHvNv
+6z9/VflV5b92eI5N/rV+zOhjBbDu8/p//+3a/w3RTssRZAMAEGhV7rBy5mUn
+KWPqunLur/Zoj96moow/9sxYte4azt30Z1f7fhZdPPx+6aJyk/sz88Ttwr1i
+AAAAaLYqd1w584iSlDPlrpw53LIjpmDxsPf8aX60Sr+/PNDzpRypWHSfl3jv
+96kAAAA0WJU7rpTb9Jnx5PYyyY6YkrV+95OBnm+XDEl+BAAAwDarcseVZhnl
+9h4lab72pqwn/bec2duyI8hXZ0hd9rLJjwAAANhkVe6xuswmOgTZETSr1nmH
+HqQ0/+hZdM0AAACMyqrcc/3wRy9lRzBi1Tqpc6Gcn6tVdL0AAACMyqrcc6W9
+a7vuOdsm7YXLmZstO4I8i2572K6i6wUAAGA0VmUPK+VHL77/g15yo5RD/fnu
+L28fV3YE/arWdebP4ll0rQAAAIzCquxx/eznv9grN/rxT376zuPJjqB/mfnR
+3cLsIwAAAHrOjtJKe826zkBKX5++7+mSHcFhLPLmHxXRdQIAABBuVR5opX1s
+KdtJvUTbeozSn6ev27ZkR3AYi4f5Rzn3XzuJrhUAAIBQq3LES3YEh5NmGmVk
+R9fRdQIAABBqVY54yY7gsKp1pfcIAACABqtyxEt2BIdV712703sEAADAFqty
+xEt2BIdXrYuM3iP3XAMAADhOq3LES3YEw8joPbqIrhEAAIAQq3LES3YEw8jo
+PbqNrhEAAIAQq3LES3YEw6nWvZnZAAAAPLEqR7w+/fS7siMYSMY91y6iawQA
+AGBwq3LES3YEw6nWqfutAQAA8MSqHPF68f0fNGZH//Lr3+z60EUZf+xhdFr2
+rd1F1wcAAMDgVuWIV+or2nYd+53v/E351/v7XR+6KOOPPYxO6i1q6T16Fl0j
+AAAAg1qVI15/vvvL24yo5/1qaRVl/LGH0anWZUt2dBZdIwAAAINalSNfv/3d
+79/Zu5aypF/+86/2fdiijD/2MDopGzIvGwDGb/nBh1eVonISXQsAs7cqj3MV
+Zfyxh9FJe9JasqMiukYA4G12dFMpa6vKRXRNAMzWqjzOVZTxxx5GSXYEAOOX
++o0q92v5UVn//1d6kRhCdZ6dJdF1AINYlce5ijL+2MMopfupNWRHq+j6AIAH
+9Z61cgu9SBxUdX5d1+faXeWy4p4qMF+r8jhXUcYfexillA/JjgBgGurr9m35
+kV4kDiZlRRt63671IsEsrcrjXEUZf+xhlGRHADAd9b6hpuxILxIHU/cbbTrX
+HnuRTqJrBHqxKo9zFWX8sYdRkh0BwLQ8mZudQy8SvanOo9uW8y2dn+fRdQJ7
+WZXHuYoy/tjDKLXMyr6Krg8AeNeWvUN6kRhEh963u3pG10l0zUBnq/I4V1HG
+H3sYJfdZA4Dpadg71KUXKc2qOY1+LUzP2tzsXHqRYFpW5XGuoow/9jBKsiMA
+mKaMvUO50uNcLN03i0x79L7pRYJpWJXHuYoy/tjDKMmOAGCaOuwd0otE7+q8
+cZ/zTS8SjNeqPM5VlPHHHkZJdgQA07XD3iG9SPRm+TA/a99zTS8SjM+qPM5V
+lPHHHkZJdgQA07XH3iG9SOwtnRc9n296kWAc0j2TVkfoYgTHHkapWvcN2dFN
+dH0AQLMe9g7pRWJn1flwdaDM8kovEgCMQ7VWDdnRKro+AKBdT3uHuljV1/bn
+ru+P2/LwvW8psyzqc01uCQABWrKjMro+AKDdsv+9Q12lmTVpv9Fl5Sz6eDD4
++Xc+8Ll27VwDgOGkmUYtM49OomsEANotD7N3aN9+kVRT2ud2En18OPj5N3Tv
+2zp9cABwQNW6aMmOLqJrBADaLQ+/d2hfqbbUm1T03S8ygtfGuOiDA4AeVeu0
+JTu6jq4RYO6Wsb+vh0jrvUk738ttBK+D8XvsTdIHBwA7aLnX2n10fQBzt5Qd
+waPUm5R+Ht72Ji0zZyOPoG6m52B9cAAwR9W6aek9Oo+uEWDOlrIjaJJ6k9Js
+5K29SSOokXkwowsAtsiYeXQTXSPAnC1lR9DFem/S2/u2j6Am5uOb/Cj63wYA
+GJNqPWvJjtxvDeCAlrIj2MX63rboWpgm+9YAoIOMfWvX0TUCzNVSdgRtHvet
+pftmvbdvbQT1MQ32pAHAHtJMI71HADGWsiNY13le9ghqZnzulg89RSlvPIv+
+ex4A5qJad+YeAQxvKTviuLXOws74GToj3K8GPGc2SX+Ppp6iNAPrJPrvdQCY
+q4yZ2e65BnAA1XXO6Qiu+5iH/7qMz4KavDNfZpnRU8T4LR/+DhvyPLpb6ikC
+gDAZvUf3abZ2dJ0AwLvq6+jobOgp82WOwPLwvZOr5dp99aJfLwAcu8zeo9vo
+OgGAby0f7lN/H5wTuWfVETpgZpnyoovo1wcAbFatVUZ+dB1dJwDwYPkwL2jo
+rGi1NF/mqB0gs7yvzynnEwCMXLVOM7Kj5Cq6VgA4dsuHuUFD5UUpozL7kLd6
+zCz1GAHABFWrkB8BwPgtH2YKHTIvSnOJ074kc2b4Rg+ZpR4jAJiBzL1r9q8B
+QJDl4WbN3Nc9JWfRr5Fx2iOz1GMEADOS7qeWcd+1R6sx33+tWieVs7qf6qqu
+d5ub+uvS3PCz6NoBYJPlYeZjpzzgQo8RTXbILO/0GAHAfNWzj+4z86P7sWQt
+de51UedAufW3ZWMpTzqNfm0AkCz7mzXz2GPk3zhadcws0333zMcCgCPQYXb2
+N3vYInqQnuRF+2ZFTe7q3qWT6PcGgOO07Gc+th4jOsvILFOPUaHHCACOT53J
+dMlX7us+nYN/Hl087Ecreuov2qUf6Sz6/QHguOwxa0aPETtrySz1GAEAKaM5
+2yGfecyQTg5Qz2nd4zR0XiRDAiBM3dOhx4jBbcgs9RgBAO9ZdJt/9NRt5XKf
+HKl+/sv6saLzok1uDpGTAUCSrtE7zJrRY0RvnmSWeowAgEaLh7lC+2Y3d4tv
+72d2vnjoadrkov6a1R6Z1dBSnZfR7xMA81Nfs+sxYnDLh3ur6TECADqpM53o
+nGaf7Gq1RV/PkR7L53YAetEyayb1GLkHOgAAo7N42EM21v1j6znR9eKhhymr
+b3/x0Ft1tvi252mfHiR7BQDYWz1b5mlmtEo9RtG1AQBAm8XDDKIx7Sm7r/Oi
+XnKbOku62DEnS7VcRL9HAEzXk1kzeowAAJikOl8pgjOkuzrjOdhesbof6XqH
+2i6i3yMApqmeYaTHCACAWVjr0bkbMDNaDZ3N1BnSSn4EAAAAsJvFwzykqwPl
+SGn/WNordxL8GlNO1qXX6iL6fQEAAAAYm5Tx1DnL9Q79Oo+9RVf1Y5xEv54N
+ry33NZmfDQAAAJBh8e39zJpM5j73i/w5SPdTel0AAAAA9KPui8rqo4quFQAA
+AIDhdciPLqNrBQAAAGB4mfnR/dhmNwEAAAAwjMz5RzfRdQIAAAAQI/P+a2fR
+dQIAAAAwvLQnrd6bZm42AAAAAO9JM7H1HgEAAACwTcbetVV0jQAAAADESH1F
+Gb1HJ9F1AgAAABAjo/eoiK4RAAAAgBgZvUd30TUCAAAAECflQy350Wl0jQAA
+AADEyLjn2mV0jQAAAADESPOwW7Kjm+gaAQAAAIjTsm/tPro+AAAAAOJU66ql
+9+gkukYAAAAAYlTroiU7OouuEQAAAIAYKRsyLxsAAACAbVqyoyK6PgAAAADi
+yI4AAAAA2KblXmur6PoAAAAAiJPyIdkRAAAAAJvIjgAAAADYplr3DdnRdXR9
+AECc5Qcfvqx9USkrH7d8/cf1139Vf/26N/WffRb9ugAAyGdWNgCw/ODDT9Zy
+oq835D5vs5+G73++JS/a5o0MCQBgGmRHAHBcNvQS5fpiy+N1fZx1X0YfDwAA
+msmOAOA4LD/48MUeGU/5tE+o7jXa1qMkPwIAmAnZEQAcr7r/KDfj+Wjt+z6p
+953tmxs9ehl9LAAA2Ex2BIzJhr005vLO3PLbOTtN7+En0XXOWfoZ6dIbVL9n
+T//81dP3qX7c3BlIb9azKQAAxkN2BERYmst71NYyv533NWXkHY25I++9J209
+RC/rr3v+5Gu/aMt8OrzXeo8AAEaoWncN2dEquj5g+jb0EuUyl3dmUsbQ8P59
++TQ7qHOKV5vev5bz4HX0a52ajCz2eZ35PeZGKfPN7ger39+2n0/vGwDACKV8
+SHYEHMLSXF7yzoeUWTxv+d719/6z+r819cm8in69U9Pys/W6/prXj///suP+
+svo9zPn5tG8NAGBkqnXTtG8tuj5gXpbm8h6duldlW0/Liw6P85g9fL3cPG9n
+a+5I1vFtOp6vlt/2f3XOjdaeI+dn2GwrAICRSTONWmYenUbXCMzL0lzeo9GQ
++aX/1thrtOXxHvc9tfWfeW+7Hde2nqBXa8d952O7zNu3lp0nAgAwjGqdt2RH
+l9E1AvOT0X9gLu/ELbfvUUv5w05zrDPfW3sS+z+ujz+DnfO+J8/zKuP983MJ
+ADAy1TppyY5uomsE5iejP8hc3glryCJ26jdae9ycmTmyh+7HNefnZe/jmpn9
+ef8AAEao5V5rybPoGoF5WZrLO1st+cC+fSsfZ7ynez3HMVq29wF+PcC5ITsC
+ABixal23ZEcX0TUC89Jy7Wgu70S1ZAN99K20ZUdvoo/B1GTmrL3MIJIdAQBM
+V8bMo9voGoH5yLhWNZd3glpygV5mEGWcO19EH4epychzeuk5ynwuP5MAACNW
+rfuW/OgsukZgHjKuH83lnZjl9rnYe2eAT55n0z331n0WfSymZvnt3tCDZznL
+h1n3egEBACYqY9/aKrpGYB4y+4HM5Z2IjF6g3vKcloyq7CujOhbpeLXluD0/
+X9uM/GSne/ABAHB41TptyY70HgG9WJrLOxvLd++Fd/A9ZMvmXjL3zet+PD9r
++fl41fPzNc3I7z2rAgCgf6m3qCU7uouuEZi2jB6V3vbIyI4GeT+b9ju96bsP
+qOX5es05jsGyfQ9Zb/esy+hxSnqZiwUAwOGkvqKM3qMiuk5gujLyHHN5J6Kl
+B6j3XC4je+gt5zgWLT1jvf0s1s/V1uMkywUAmIiM3iN714CdtfSN9JrlZPRU
+JOby7nZs2/rHes0d6udsyh7sder/Pex7v1rO7HqzjgAAJiCz9yjdk+1ZdK3A
+tGT0jYx+Lu+/++CDF5VyBr7a89i2za3pvZ+rJQu016n78Wzry+u1jysjNzav
+CgBgQjLuuZbcyo+ALjL2rIx+Lq/saNh9h2vPmXLHpv1V9jp1P6ZN2Wrf+9U+
+zshx7R8FAJiQlAnVvUXyI6A3LX0jvfY5ZPQ47dSrcuzZUVQGkB6zz/6xY5fx
+89F3jtuWN/Y+Vx0AgMOr1nlGdiQ/ArK19I1MYi6v7Kg1/+u956h+3qYeGXud
++v/56HUO2LJ9v5q+MQCAiarWlfwI6MNyJnN5jzk7yuw56j0DSDnGkOfOMWj5
++eh77ljb+6fnCABg4jLvu/Y4P/ssut4tr+G0clEp6tdz2/Ja7uqvS9nZ5Vhf
+F0xJxp4Vc3lHLqPnqDxEBtDSc5R8Fn1spmbZPAus17nj6fFa3j9zjgAAJq6e
+fdSWtay7iu5Bqmu+qGd+58xtyrWqs6ST6PcFpqbl+t9c3pFbts+q7j1zqJ9X
+z0r/x7StB7C3LC7jZ1GGCwAwE3UWc9chY7mL6NVJz7nIu0dcXznSRfR7A1Ow
+NJd38pbts6oPksdl9Bz1nlfNXcbPR28/G8v2XjUzzgEAZqTe99Wl/+gxXzkb
+oLaLjtlWn1JfU7Ew7wm2WprLO3nL9n1Hve9Xy+g58l72/1721geU0d/kvQMA
+mKFF9/1rj27rfKe3fCXtG6szm6jMaGOGFP0ewRgtzeWdvGX7frXe9x4tm2fy
+POp1TtbcLdv3HvaW57T0jOkXAwCYsTo/utkjY0nfm2YGne7w3Gd1XrRLfjWU
+lGWdRb9PMCYtGYC5vCOX0T+SfNHzc7btq+o9dzwGy/YewF6yuGXzHsfX8lsA
+gONQZzh9ZC2rxcOMomKLm5FnRU0ZmX1sHL2M3MFc3pHLzHH67Ff5OKPPKel1
+TtYxWA7QA9jS25RyZDOOAACOyOKhD+huBDlNF/ctedVV/ed9vK70GJ37q2BO
+MnIHc3lHLuO49p0BPvaOteVHvT3nsVg2zwLrpQdwub33701ffU0AAEzL4mEP
+29UIMqGmrCjlRBeVkx1e23n9+vbJki6i3yeI0nAd2WsfUEZ/k7m8ux/btnud
+Jb3MO19+u9fpTUuPTK+54zFYtvfl7f0z0pIVy40AAI7c4mF29WoEWdGjtGfs
+vOfXeFrnUPc71HMV/R7B0Fr2rvS9z8lc3sO9jznZ0d49Xct396p9NlTueCxa
+cp29s52W/LbXeykCADBti4d9bPvM0t7Xddf+oh1eY+pHKnbIkK6j3x8Y0tJc
+3llY5t3vrI/s6HE/1as6d9RH1u/72JTF7TXraLl9RpV9agAAbFX3IV3t2KPT
+1d3i4d5tg86mXsuQ5EewwdJc3llYNs/I6aWvZPntTKXX9f8/SO54TBp+TpKv
+9njcj7fki37+AADItuhnZtBTt/Vjhs+iXjzsZetyL7giumYYQkvmYC7vRCzz
+9qztPLd6+e1eqjePWcMQueMxSdley/v3xR6PuymTSj+X+v0AANhJ3Y90Xvfr
+pL1tq5ac5fG+aDf195wN3V/U4bV1mRl+EV0vHNLSXN7ZWObdZ+1VD+/hJ2v/
+valHxvyq7se5be545/lRDT9/L6JfLwAAjNni4X5uOdnR/Rh6puBQWnKdvbOd
+pbm8Y3ov+8geXq79d/fM6/89zNl3mHVclw/7CTc9Xuo1skcNAAAy1HvYcuY8
+3Y61hwr2tTSXdzaW7fudOu9be3J+vHzyZ21Zlb1Q3d6/trnjT/Of9/qG6rzo
+5Zafu6/ktQAA0F2H/OgqulY4hC3XmN9ca+7xuObyju/9zO75qjOI9ffvvTk7
+LT0ynfubjt2y+T6EyasO7+/T75MZAQDAHurZTDn7186ia4U+ZfSpmMs7MRm9
+QO+8v8u1/q+67+XlhkxoU27U1iOz01ylY7bM7AGsf75ebslmH9/X9Oc7z0UH
+AADelzn/6Da6TujT0lze2akznW2Zwi42ztZZPvQlNX2f3KL7e2fuOAAAjFy1
+rt13jWOyob8kOzvY8Fjm8o7E8mGG9S57m97pc1k27HNq65FZ6i/b5T3b++cQ
+AAA4rDQPu3LXkh3dRdcJfViayztry4d5UznZ4Lb3uzH70SPT+/t10PsdAgAA
+/cmcfXQRXSfsa2ku71HIyCSeZkatGYUemYO8T0053173OwQAAPqXsXfN3CMm
+r23P0drXmcs7A/V79NWWrK9T1rNsn5OlR6bb8WzrAdTHBQAAI1Otk4zeo9Po
+OmEf9hyxKz0yvR/Ptrnj+rgAAGCEMnqPrqNrhF3Zc8SuMnpkXkXXODV1754+
+LgAAmJiM3qP76BphVxkzcFyrslHGuWPvYvdj2tQDqI8LAABGrFor+9aYI3uO
+2NWyeU5W0nh/Nt47nm09gPaPAgDAiKX7qbVkR0V0jdCVubzso6VH5nV0fVOT
+0cdl/ygAAIxYtZ61ZEer6BqhK3N52ZVz5yDHdNO97+wBBACACanWbVN+FF0f
+dGUuL7tKc7CdO70ez7YeQHsAAQBgAqp1ZeYRc2IuL7syJ6v349nWx/V1dI0A
+AEC7ap23ZEdn0TVCLnN52ZVz5yDHtK2PyzEFAIAJSH1F5mUzF+bysivnzkGO
+aVMfl2MKAAATIjtiLszlZVepB8Zcnl6P5ycZs45eRNcJAADkkR0xB+bysquM
+c+d1dI1Tk5Hj6jsCAIAJqdZdQ3a0iq4PcpjLy64yzp1X0TVOScb+Pz+TAAAw
+MSkfkh0xdebysquMc8dex7zj+DKz3+id/Kj+Pj1IAAAwYtW6lR0xdUtzedlR
+dW68aThv3kTXN2bV8fm4Y1aU44vo1wUAALzLvCOmbmkuLztK50XLeWPWEQAA
+cPRkR0xd5j4ZfUe8Y/kwI/trM3kAAACayY6YMnN52cXyYT52W2706JPoegEA
+ACLJjpgic3nZ4XxJvthxBk/63ufRrwMAACCC7IipMJeXHc6Z3N6iXZmjBQAA
+zJ7sCAAAAIBtWrKjq+j6AAAAAIhTrbuG7GgVXR8AAAAAcVI+1JAd3UbXBwAA
+AECcal037VuLrg8AAACAOGkedsvMo7PoGgEAAACIkbIh91oDAAAAYJNqPWvJ
+jsw8AgAAADhiKR9qyY9OomsEAAAAIEa1rlqyo8voGgEAAACIUa3TluzoLrpG
+AAAAAOKkfKglP7qIrhEAAACAGOl+anqPAAAAANgkzcNuyY70HgEAAAAcsWpd
+t2RH95Vn0XUCAAAAMLzM3qOb6DoBAAAAiJHRe2TvGgAAAMCRqnuP7jP2rp1G
+1woAAADA8DLuuSY/AgAA/v/27hinkS1YA7ATyw6HHaBZwBMSG3AwCyAhdzQx
+GalDQtLJHBORT+IFTOAFPCRWgAhfNq/P9eFOj6/dfdq4XQZ/LX3BBeOu7rnR
+r6o6AJyw6loW5EdLu7MBAAAATk/qKSqYXUue9R8BAAAAnJ60E7sgO/qQ82vV
+NWmglwoAAACgQOG5a29uouvdUP95zsDuK4sOz/I2k/eY9z9Nop8FAAAA4Bh1
+zI9SPnMeXO9FzoqeO2ZFJR5zFqU3CQAAAOD3P1nMl0HZ7uz6DNvskPlKrvGm
+p7xo2zOmTO1DzeoBAAAA9GGH/OggGdJgNZM2G5Tt9e7LYmCmDQAAAGAw6Da/
+1luPTnVd7VhL3xmSPiQAAADgpOU+n13zleec+UwHHfYiDVY7jKb5byN7jEqk
+XUv2IQEAAAAnK/f97CvDWdTMBn/OREu6zskdi+eBHiQAAADghA1Wu4YWR5DT
+lHqt5VNpr/Zkg6v8+/mecqub6H8nAAAAgEiD1SzZsc6RLXNOtFMP0GC1I/xt
+t9KuzziP/jcCAAAAiJQzltmRZEhv57ud9/CcKUda7Jhh2YEEAAAAnLTgDOk5
+9xj1ntEMVvNtXTMk+REAAABANljNsj0eIDNK97gKesZJzqzkRwAAAAA7yL1I
+bznSPvqRUlYzz98ZnsPk57vvknVF1wwAAABwrAar89nq55ktsvq5Zsvaz+f5
+s6nH5zy6/obnuuqQjd1H1wsAAADAYVXXRYcZtml0vQAAAAAcVp5hWxZkR6/H
+3EcFAAAAQD865EeL6FoBAAAAOLycH5XsP5pG1woAAADA4eX9RyWza+HnxQEA
+AABweNV1U5AfzaLrBAAAACBG2muk9wgAAACATdJ5agW7j2bRdQIAAAAQI2VD
+LdnRc3SNAAAAAMQoPHftKrpOAAAAAGIU9B49RtcIAAAAQIzce9R45lp0jQAA
+AADEqa65uTUAAAAANknZUEt2dB9dIwAAAABxWrKjZXR9AAAAAMSproWdRwAA
+AABsUnDe2kV0jQAAAADEqK6JfdkAAAAAbFJd5y3Z0Sy6RgAAAADiyI4AAAAA
+2EZ2BAAAAMA21fXckB0tousDAAAAIE7Kh2RHAAAAAGzSMrN2H10fAAAAAHHs
+OwIAAABgG9kRAAAAANvIjgAAAADYRnYEAAAAwDayIwAAAAC2kR0BAAAAsE1L
+dnQfXR8AAAAAcapr2ZAdLaLrAwAAACBOyocasqPn6PoAAAAAiJPm0lrm1r5E
+1wgAAABAjOq6acmOrqJrBAAAACBGdU3sywYAAABgm5bs6Dm6PgAAAADitOzL
+Ti6iawQAAAAgRsHOI3NrAAAAACequs5bsqNX560BAAAAnK7qWrbkR7PoGgEA
+AACIUV1TvUcAAAAAbJJyoZwP6T0CAAAA4D9SNtSSHTlzDQAAAOBEFfYeLaPr
+BAAAACBGYe/RPLpOAAAAAA4v9x49F+RH0+haAQAAADi86roqyI7kRwAAAAAn
+qroeC/Ojq+haAQAAADisDrNr+o8AAAAATlB1XRScu/ZmFl1vwfOkPGySZ/Jm
+DW7y586jawYAAAA4ZqmnqDA7ShYpn4muuVb7ec6BHjv0UG17rpQpTaKfCQAA
+AODYdMyPXiNn2HJeNHtnVtT2fPOBPU8AAAAA/8p5SddenckB65vke/aRF23z
+nHOqo+m1AgAAAIiS5792mfea9FjTtMceoy69SDIkAAAA4OQNus2vrffo3Fcu
+9lDDJH9X6R7vQ2ZIN9H/RgAAAACRcnbzntwm5UjzwZ/zzLb26wxW+4smua/n
+8Qjzok2W+8jIAAAAAD6qweq8+8UR5DTHbBb97wQAAAAQabDqHfoIvUDPg797
+nc4bnin9/mqw6nVavPO+qVfKHiQAAADgZA1Wc2WPR5APbcqLbppyosLn+5Kz
+pPmOdSzfWwMAAADAR5f7dd7bp7MPKeOZ9PSMX3I/Utdeq/R5O5AAAACAk5cz
+pF17dHb1mu95fqBn3CVDkh8BAAAAZIPVLNtNntnqKzNKs3LTQdBOoZwhdZnX
+kx8BAAAArMk50jT3Bj2/Iyta5u+4isqLtjzfVYcepOdjqh0AAADgGA3+Ps+s
+SfrcJLreguc579BjtYiuFwAAAIDDyjNs88L86D66XgAAAAAOr0N+NImuFQAA
+AIDDK8yP7D4CAAAAOFGF+49m0XUCAAAAcHh5/1HJ+Wvn0bUCAAAAcHj5nLi2
+7GgeXScAAAAAMdKZanqPAAAAANgkz6496z0CAAAAYJPqmrZkR6/OXAMAAAA4
+XQW9R9PoGgEAAACIUdB7tIyuEQAAAIA4eTatKT8ytwYAAABwogrOXJtG1wgA
+AABAjOq6cN4aAAAAANu0zK09R9cHAAAAQJzqemzqPYquDwAAAIA41XXTMrc2
+ia4RAAAAgBgpG7IvGwAAAIBNqutLS3Y0i64RAAAAgDiyIwAAAAC2acmO5tH1
+AQAAABCnuhYN2dEiuj4AAAAA4siOAAAAANimul7NrAEAAACwiV3ZAAAAAGwj
+OwIAAABgG9kRAAAAANvIjgAAAADYRnYEAAAAwDayIwAAAAC2acmO5tH1AQAA
+ABCnuhYN2dEiuj4AAAAA4rRkR6/R9QEAAAAQJ+00aplbO4+uEQAAAIAY1TVt
+yY6m0TUCAADAZzIcjW8qz5Wr6FqgTXVd2JcNAAAAhzEcjb9UXiu/s0XlPLou
+aJL2Gtl5BAAAAP0bjsb3tdyobpZypej6YJPqemzpPdJDBwAAAO80HI0vtuRG
+b8yxcZQKdh7No2sEAACAjy7PpzVlR+bYOErV9aUlO3LeGgAAALzTcDR+LMyO
+3tybY+NYFMytzaNrPFbV9b3ya+193VbOomsDAADguAxH40meTSvNj9Je7Wl0
+3ZB2Guk92um9/Wx4Xy+Vy47ft55BNbmNfn4AAAB2k3djv3bIkNIc20V03Zy2
+6npuySoeo2s8JtX1UJDvPJX2H6XPdciNXvQ1AQAAfGxpp5E5Nj6Sgp3Zzlz7
+866+dch5fvTwnXqOAAAAPglzbHwkBb1Hr5WTzzcLe47qWnuEBqsdSSXf9RT9
+/AAAAOzfcDS+2WGObRJdN6elsPdoGV1n8DvqMltW3CfUIY/6Hv0OAAAA6Eea
+R6vMO86xzc2xcUjVtSjIL+bRdQa+n+sdsqNfBd/7oucIAACAJM+xLTvOsd1E
+181pqK6LwjxkHl1r0PtZny27q8+k5d9vyoG+NnxnaS+TniMAAIATssMc29Ic
+G4dQXTP50dZ386P2/NdbPnPZZW6tsJdJzxEAAMAJMsfGsSqcXTu5/Ki6fubn
+bjw/bUN/0kPDZ+/0HAEAANAkz7EtzLFxLKrry6D93LU3KWc6iTyzun7lZ75s
++dzZ2uzaS8F36jkCAACg0XA0nnacY3s2x0ZfBqvdR6+F+VH63CS65gO8k6dB
+we7r/Nn1fqKNedOgfU+2niMAAAD+lefY7jvOsT1WzqNr5/MZlO/O/neG7TP3
+IOXsqHFerfbZ9b1H/9l5tOEzeo4AAAAoMhyNL3aYY5tF183nU13TjvlR6kGa
+HSJDqq7zyk2+3/QA93valAG1fH7rzqPBf/ci6TkCAACgE3NsHIOO82v1DOk+
+5Ts91DPJPU7r91weU9/T2tzaf2bdUp6k5wgAAID3MsfGMdgxP6pnOqk/6OId
+95/kLOq55V7z6HdVq/nbWm1na79v2pNd3N8EAAAAScqCdpljS9lTdO18DoPV
++WuLHfOjej9S+o7ZYDUPN9niJmdFne8X/Z7W3ll9F/Z17ednDc/wsp4zAQAA
+QKnhaHyVZ9O6zLFdRdfN55Fzn/fkR72Kfj9r76o+l3Zb+/m1niMAAAD6kufY
+Zh3n2Bbm2NiXwWqGbRmdE23wHP1u1t5TfR/2Q+3nd1vq13MEAADA3uwwx/bb
+HBv7NFjNlu26B6kPR9VjV12X9Vyo9vNte7L1HAEAALB35tiINFjtQZoFZ0jP
+x5Yb1d5PfefR5Yaf6TkCAACgd7U5tldzbETIGdJ0cNhZtsdjzYxq7+WvnUdr
+vUh6jgAAADioPMf22HGO7d4cG/s0WO1Duu8pR0rfmWblzqOfs/Bd/LXzqPJd
+zxEAAADRhqPxpOMcW+pXmkbXzeeTMp7cj5SypEXHnOg1/80s9Rel3qbo59nh
++S/XMqJNe7L1HAEAABBixzm2i+i6+fyqa9LgU/0/OPh7v9H6riM9RwAAAIQy
+xwaxBtvPVdNzBAAAwNEwxwYxtuw4evM1uj4AAACoG47GNzvMsU0C6jyPuC/s
+W5pJ25Ib/YiuDQAAADZJ82iVecc5tvkh59hqu5rOo98XvFd1/dJzBAAAwEeT
+59iWHefYbg5U2yzfcxn9nuC9Uo+RniMAAAA+qh3m2JZ9z5PVsqN/ep6i3xHs
+Ks+srZ+vpucIAACAD+XY5tjWsqPf9nbzUaWz1NZyo4fomgAAAGBXeY5tET3H
+tiE7Sve5iH4/0FV1Pa1lRz+jawIAAID3Sn0+HefYnvc5x7YhO3qblTvYvm54
+r+q63rAj+ym6LgAAANiHPMd233GO7XEfZ6NtyY7++f7o9wKlUo/Rhuzod3Rd
+AAAAsE9pVmyHObbZO++5LTv6faiz3uA9qutyU25kVzYAAACf1SHn2Fqyo992
+H3HsqutHQ3b0Lbo+AAAA6MOh5tgKsqNXu484VtV1VnlpyI6uo2sEAACAPqUs
+aJc5ttK8pyA7ShbR7wE2qa7bhtwo+R5dIwAAABzCcDS+yrNpXebYrgq+tyQ7
++v3evUrQh+r61ZId3UbXCAAAAIeS59hKs55/e4aa5tg6fl9rFgWHkvZgt+RG
+siMAAABO0g5zbL+3zbF1zI5eu+5Tgr4UzKvJjgAAADhp+5hj26GPaRn93JBU
+14PsCAAAAJrV5thed5lj2yE7SubRzw0t56vJjgAAAKAmz7E9dsyA7it3O2RH
+yTT6mTld1XVWkBvJjgAAAGDNcDSedJxj+78ds6PU53QR/bycpsI92cl1dK0A
+AABwjHaYY9vFcrhh/zYcQmF2dBZdJwAAAByrHefYunqMfk5OU3X9bMmNfkbX
+CAAAAB/BDnNsXd1EPyOnJ82jtWRH36JrBAAAgI8kZTw9zrFNop+P01NdP+zI
+BgAAgP0Zjsb/U/nfHrKjV7uPiJByolpm9GQ/NgAAAHSXcp28P7vP3UeL6OcE
+AAAAoFwtM+r7zLU38+hnBgAAAKDdcDSeHjAzkh8BAAAAfAA5M+rzXDX5EQAA
+AMAHMxyNJ5VlcGYkPwIAAAA4IjkzWhxBVrTJ49D5awAAAAAHNxyNz1NvzxHk
+Q22W8iMAAACAw/kgmZH8CAAAACDAcDSeDVdzatE7seVHAAAAAEduuNp5NK1l
+Sse0M7suZV0X0e8LAAAAgH8ypYvKVc6U5sPj2Kn9Kj8CAAAAOF7D1Z7tSc6U
+7nOm9Co/AgAAAGCbtI8oZ0o3w/53KsmPAAAAAD6J4Z+dSvd7zpOm0c8GAAAA
+wH7lXUr7ypGm0c8DAAAAQD/2lCNNo58DAAAAgH7VcqTlDvnRTXT9AAAAABzG
+cHWe203HHGkeXTcAAAAAh9UxR5pH1wsAAABAjMIcaR5dJwAAAACxWnKkx8qX
+6BoBAAAAiLclR1rKjwAAAACoW8uR5EcAAAAAbJRzpIvoOgAAAAAAAAAAoG44
+Gn+r3FZ+btjX/JJ/9y26TgAAAAAOYzgaf82Z0LYz4jd5WPuO65bPf41+TgAA
+AADKDUfjs8qPbdlQypPWPn9ZuduUHzV8T/Ir+lkBAAAAKDccjb9vyXnSrNpl
+y9+mDOkpf/46/+ylITu6i35eAAAAANrl+bRNu4yS7x2+5zL/zVPekdQ0r3Yd
+/dwAAAAANMsZz6b+oJe2XqMt3/dQy4+asqOz6GcHAAAAYLuGGbWnXfdYF+7X
+ftjncwAAAACwXw0Zz079RrXvvSzIjm739RwAAAAA7FdLb9DOuVH+7q8F2dG7
+7gEAAABAP1pyo3f3AxVkRy/R7wAAAACA/2rJjfayg6hgZu1H9HsAAAAA4G8N
+e7HfdmPv5dyzfG5bU3Z0Hf0uAAAAAPijoBdob3lOS0b1e18ZFQAAAADvl/cP
+vRxqhqz6vruGe/2Kfh8AAAAA/JHymqa91fvuA2q53130+wAAAABgpaUHaC/n
+qq3d76zlfpfR7wQAAACAoh1HTz3c87qpxyn6nQAAAACwks9Oa8qOvvdwzx8N
+93uIficAAAAA/JPh3Ab0HJ217OTe63wcAAAAAN3lc9WacqO+eo6+t9zza/S7
+AQAAADh1LXNjvfQc5fv+bLjnr+j3AgAAAHDqCnuO9j47Vn3nt5Z73kW/GwAA
+AIBTV9BzlJz1cN+mnqPkOvrdAAAAAJyygl3VvZx1VtBz9NJHXgUAAABAuYJd
+1X3tyG7rOdp7XgUAAABANymjOfS8WkHPUS/7lQAAAADopmBebe9nnaUz2wqy
+o8vodwMAAABwylI+U5Dh/NjzPW8L7vkS/W4AAAAATl1hjrO32bHqu74W9Dkl
+d9HvBgAAAODUpZ6ighzneo/3e9ut1JYf7e2eAAAAAOym4Kyz5Nue7vW9lhvd
+HXI3NwAAAADdFWZHX/dwn/qs2vWw+Wy3ve/mBgAAAKC7wvPO9pEd/XrbY5R6
+ig61XwkAAACA3dUynd5m1mo7lX7l/75uud9l9HsBAAAAoHhmbee91cM/57i9
+vPUvtew6eol+JwAAAACsDMvOWbvb8btva9/xrfbzpjPWHqLfCQAAAAAra/nO
+3nZXr33vbe3nl3YdAQAAAHwMqR+oIDvqNLc2/PsMtdu137VlVWfR7wQAAACA
+P1pmyIp3Zucd2PVz235s+EzTbu7O/U0AAAAA9Ktwbu3fPKh+DlrqE8p/v54J
+bcqNzvrYqwQAAABAf3Km89QhP2qzcWdR7kvq5Tw3AAAAAPqTd1iXzq5t89I0
+17a2B2nT39p1BAAAAHCkhqPx15Z9RE0e2rKflmzqIfr5AQAAAGjXcf/RQ33/
+UcN3Xu4y5wYAAADAccoZ0s9NO627Zj35b5qyo9b8CQAAAIDPqWUW7iW6PgAA
+AABiDFfnuDX1HN1F1wgAAABAjIL9SdfRNQIAAAAQI+/TbsqOGs9nAwAAAODz
+SvuMGnKjX9H1AQAAABAjzaO19Bx1Oq8NAAAAgM8j7cFuyY4uo2sEAAAAIEaa
+SWvIjV6i6wMAAAAgRuopauk5eoiuEQAAAIAYaZeRXUcAAAAAbJL6ilqyo7Po
+GgEAAAA4vJQLteRGv6JrBAAAACDGcDS+bsmO7qJrBAAAACBGyoZasqPr6BoB
+AAAAiDEcjV8acqOX6PoAAAAAiDEcjb/bdQQAAADAurwj+6klO3qKrhMAAACA
+w8r7sdtyozffousFAAAAoD/D0fg2+1GYF61Lf3sZ/RwAAAAA7E+H3qJdfY9+
+RgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AADYt/8HEO4UOA==
+        "], {{0, 865}, {1167, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{114.9062500000002, Automatic},
+      ImageSizeRaw->{1167, 865},
+      PlotRange->{{0, 1167}, {0, 865}}], "=", 
+     RowBox[{"e", " ", 
+      SubscriptBox["Q", "q"], 
+      SubscriptBox["N", "C"], " ", 
+      SuperscriptBox["\[Lambda]", "2"], " ", 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{
+          RowBox[{
+           SubscriptBox[
+            OverscriptBox["u", "_"], "e"], "(", 
+           RowBox[{
+            StyleBox["p",
+             FontWeight->"Bold"], "-", 
+            StyleBox["q",
+             FontWeight->"Bold"]}], ")"}], " ", 
+          SubscriptBox[
+           OverscriptBox[
+            RowBox[{" ", "P"}], "^"], "L"], " ", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "  ", 
+          SuperscriptBox["\[Gamma]", "\[Mu]"], " ", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "  ", 
+          SubscriptBox[
+           OverscriptBox["P", "^"], "R"], "  ", 
+          RowBox[{
+           SubscriptBox["u", "\[Mu]"], "(", 
+           StyleBox["p",
+            FontWeight->"Bold"], ")"}]}], 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k", "-", "q"}], ")"}], "2"], 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], "2"], 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SubsuperscriptBox["M", "LQ", "2"]}], ")"}]}]], "\[Times]", 
+        RowBox[{
+         SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+         StyleBox["q",
+          FontWeight->"Bold"], ")"}]}]}]}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1895897149],
+
+Cell[TextData[{
+ "Project ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ " out of the numerator, and compute the loop integral.  By default, ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " automatically applies the on shell conditions associated with the external \
+spinors ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["p", "2"], "=", 
+    SubsuperscriptBox["m", "\[Mu]", "2"]}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"p", "-", "q"}], ")"}], "2"], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ "  and removes any spurious singularities:"
+}], "ExampleText",
+ CellID->1673333858],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"Spur", "[", 
+     RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], ",", 
+      "\[DoubleStruckCapitalP]R", ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", 
+        RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p", ",", "M\[Mu]"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "q"}], ",", "0"}], "}"}]}], "]"}]}], "]"}], ",", 
+    "k", ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"p", "-", "k", "-", "q"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"p", "-", "k"}], ",", "0"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "MLQ"}], "}"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p", ".", "p"}], "\[Rule]", 
+     SuperscriptBox["M\[Mu]", "2"]}], ",", 
+    RowBox[{
+     RowBox[{"p", ".", "q"}], "\[Rule]", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["M\[Mu]", "2"], "+", 
+        RowBox[{"q", ".", "q"}]}], ")"}], "/", "2"}]}]}], "}"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1676827923],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox["1", "2"]}], " ", 
+   SuperscriptBox["M\[Mu]", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "0", ",", 
+     SuperscriptBox["M\[Mu]", "2"], ",", 
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "MLQ", ",", "0", ",", "0"}], 
+    "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["M\[Mu]", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "1", ",", 
+     SuperscriptBox["M\[Mu]", "2"], ",", 
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "MLQ", ",", "0", ",", "0"}], 
+    "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["M\[Mu]", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "2", ",", "0", ",", 
+     SuperscriptBox["M\[Mu]", "2"], ",", 
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "MLQ", ",", "0", ",", "0"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{558, 60},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1472850203]
+}, Open  ]],
+
+Cell[TextData[{
+ "Non-zero momentum transfers ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["q", "2"], TraditionalForm]], "InlineMath"],
+ " are relevant for nuclear ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Mu]", "-", "e"}], TraditionalForm]], "InlineMath"],
+ " conversions.  For the on-shell decay process, take ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ " and apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1915142227],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", 
+  RowBox[{
+   RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->330855414],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox["1", "2"]}], " ", 
+   SuperscriptBox["M\[Mu]", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "0", ",", 
+     SuperscriptBox["M\[Mu]", "2"], ",", "0", ",", "0", ",", "MLQ", ",", "0", 
+     ",", "0"}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["M\[Mu]", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "1", ",", 
+     SuperscriptBox["M\[Mu]", "2"], ",", "0", ",", "0", ",", "MLQ", ",", "0", 
+     ",", "0"}], "]"}]}], "-", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["M\[Mu]", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "2", ",", "0", ",", 
+     SuperscriptBox["M\[Mu]", "2"], ",", "0", ",", "0", ",", "MLQ", ",", "0", 
+     ",", "0"}], "]"}]}]}]], "Output",
+ ImageSize->{530, 60},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2080553868]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->70201596],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "2"}], " ", 
+     SuperscriptBox["MLQ", "2"]}], "+", 
+    SuperscriptBox["M\[Mu]", "2"]}], 
+   RowBox[{"4", " ", 
+    SuperscriptBox["M\[Mu]", "2"]}]], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["MLQ", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["MLQ", "2"]}], "+", 
+      SuperscriptBox["M\[Mu]", "2"]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["MLQ", "2"], 
+      RowBox[{
+       SuperscriptBox["MLQ", "2"], "-", 
+       SuperscriptBox["M\[Mu]", "2"]}]], "]"}]}], 
+   RowBox[{"2", " ", 
+    SuperscriptBox["M\[Mu]", "4"]}]]}]], "Output",
+ ImageSize->{306, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1662716339]
+}, Open  ]],
+
+Cell[TextData[{
+ "Interpretation: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "\[ScriptCapitalM]"}], "=", 
+    RowBox[{"e", " ", 
+     SubscriptBox["Q", "q"], 
+     SubscriptBox["N", "C"], " ", 
+     SuperscriptBox["\[Lambda]", "2"], 
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+     RowBox[{
+      RowBox[{
+       SubscriptBox[
+        OverscriptBox["u", "_"], "e"], "(", 
+       RowBox[{
+        StyleBox["p",
+         FontWeight->"Bold"], "-", 
+        StyleBox["q",
+         FontWeight->"Bold"]}], ")"}], "[", 
+      RowBox[{
+       RowBox[{
+        FractionBox[
+         RowBox[{"\[ImaginaryI]", " ", 
+          SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+          SubscriptBox["q", "\[Nu]"]}], 
+         SubscriptBox["m", "\[Mu]"]], 
+        FractionBox["1", "2"], 
+        RowBox[{"(", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "2"}], 
+             SubsuperscriptBox["M", "LQ", "2"]}], "+", 
+            SubsuperscriptBox["m", "\[Mu]", "2"]}], 
+           RowBox[{"2", 
+            SubsuperscriptBox["m", "\[Mu]", "2"]}]], "+", 
+          RowBox[{
+           FractionBox[
+            RowBox[{
+             SubsuperscriptBox["M", "LQ", "2"], "(", 
+             RowBox[{
+              SubsuperscriptBox["M", "LQ", "2"], "-", 
+              SubsuperscriptBox["m", "\[Mu]", "2"]}], ")"}], 
+            SubsuperscriptBox["m", "\[Mu]", "4"]], 
+           RowBox[{"ln", "(", 
+            FractionBox[
+             SubsuperscriptBox["M", "LQ", "2"], 
+             RowBox[{
+              SubsuperscriptBox["M", "LQ", "2"], "-", 
+              SubsuperscriptBox["m", "\[Mu]", "2"]}]], ")"}]}]}], ")"}]}], 
+       "+", "\[Ellipsis]"}], "]"}], 
+     RowBox[{
+      SubscriptBox["u", "\[Mu]"], "(", 
+      StyleBox["p",
+       FontWeight->"Bold"], ")"}], 
+     RowBox[{
+      SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+      StyleBox["q",
+       FontWeight->"Bold"], ")"}], " "}]}], TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1322079784]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "A vertex projection generally leads to spurious kinematic singularities.  \
+Consider the evaluation of form factor ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ " of the QED vertex function at ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1710301550],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"numerator", "=", 
+    RowBox[{"Contract", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{
+        SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p2", ".", "\[Gamma]"}], "-", 
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p1", ".", "\[Gamma]"}], "-", 
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+        SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+        RowBox[{
+         RowBox[{"Projector", "[", 
+          RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"p1", ",", "m"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Rho]", ",", "\[Nu]"}]]}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{"numerator", ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"q", ".", "q"}]}], "/", "2"}], "+", 
+       SuperscriptBox["m", "2"]}]}]}], "}"}]}], "/.", 
+  RowBox[{
+   RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->848881740],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"Power", "::", "infy"}], "MessageName"], ":", 
+  " ", "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0\\)\[NoBreak] \
+encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
+\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1162997648],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"Power", "::", "infy"}], "MessageName"], ":", 
+  " ", "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0\\)\[NoBreak] \
+encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
+\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->105314942],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"Power", "::", "infy"}], "MessageName"], ":", 
+  " ", "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0\\)\[NoBreak] \
+encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
+\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->501705066],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
+  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Power :: \
+infy\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
+calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
+\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1136246140],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"Infinity", "::", "indet"}], "MessageName"], ":", 
+  " ", "\<\"Indeterminate expression \[NoBreak]\\!\\(ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity + ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity + ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity + ComplexInfinity + \
+ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
+\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \
+\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1464285856],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"Infinity", "::", "indet"}], "MessageName"], ":", 
+  " ", "\<\"Indeterminate expression \[NoBreak]\\!\\(ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity + ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity + ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity + ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity\\)\[NoBreak] encountered. \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/indet\\\", \
+ButtonNote -> \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->89787172],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"Infinity", "::", "indet"}], "MessageName"], ":", 
+  " ", "\<\"Indeterminate expression \[NoBreak]\\!\\(ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity + ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity + ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity + ComplexInfinity + \
+ComplexInfinity + ComplexInfinity + ComplexInfinity\\)\[NoBreak] encountered. \
+\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
+ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/indet\\\", \
+ButtonNote -> \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1519479610],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
+  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Infinity :: \
+indet\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
+calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
+\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->18275146],
+
+Cell[BoxData["Indeterminate"], "Output",
+ ImageSize->{98, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->60217301]
+}, Open  ]],
+
+Cell[TextData[{
+ "The prefactor makes taking the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "\[Rule]", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " limit problematic.  There are three alternatives to extract the limit:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->824096181],
+
+Cell[TextData[{
+ "1.  [",
+ StyleBox["Automatic solution",
+  FontSlant->"Italic"],
+ "]  Directly insert numerator inside ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will detect the presence of the ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and remove the spurious singularity automatically:"
+}], "ExampleText",
+ CellID->1408113906],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{
+    RowBox[{"Contract", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{
+        SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p2", ".", "\[Gamma]"}], "-", 
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p1", ".", "\[Gamma]"}], "-", 
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+        SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+        RowBox[{
+         RowBox[{"Projector", "[", 
+          RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"p1", ",", "m"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Rho]", ",", "\[Nu]"}]]}], "]"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0"}], "}"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+     SuperscriptBox["m", "2"]}], ",", 
+    RowBox[{
+     RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+     SuperscriptBox["m", "2"]}], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"q", ".", "q"}]}], "/", "2"}], "+", 
+      SuperscriptBox["m", "2"]}]}]}], "}"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"%", "/.", 
+   RowBox[{
+    RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}], "//", 
+  "LoopRefine"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->107047502],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "1", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "2", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "1", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "2", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{403, 140},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1248742999],
+
+Cell[BoxData["2"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->265902062]
+}, Open  ]],
+
+Cell[TextData[{
+ "Or, use ",
+ Cell[BoxData[
+  ButtonBox["SetDelayed",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/SetDelayed"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (",
+ Cell[BoxData[
+  ButtonBox[":=",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/SetDelayed"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") to define the numerator without evaluating the trace.  ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can detect ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " when the definition is called within ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "ExampleText",
+ CellID->765476253],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"delayedNumerator", ":=", 
+   RowBox[{"Contract", "[", 
+    RowBox[{
+     RowBox[{"Spur", "[", 
+      RowBox[{
+       SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"p2", ".", "\[Gamma]"}], "-", 
+         RowBox[{"k", ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"p1", ".", "\[Gamma]"}], "-", 
+         RowBox[{"k", ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{
+        RowBox[{"Projector", "[", 
+         RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"p1", ",", "m"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Rho]", ",", "\[Nu]"}]]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"LoopIntegrate", "[", 
+   RowBox[{"delayedNumerator", ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "0"}], "}"}]}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+     SuperscriptBox["m", "2"]}], ",", 
+    RowBox[{
+     RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+     SuperscriptBox["m", "2"]}], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"q", ".", "q"}]}], "/", "2"}], "+", 
+      SuperscriptBox["m", "2"]}]}]}], "}"}]}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1313317208],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "1", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "0", ",", "2", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"4", " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "1", ",", "1", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"2", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+   SuperscriptBox["m", "2"], " ", 
+   RowBox[{"PVC", "[", 
+    RowBox[{"0", ",", "2", ",", "0", ",", 
+     SuperscriptBox["m", "2"], ",", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         FractionBox[
+          RowBox[{"q", ".", "q"}], "2"]}], ")"}]}]}], ",", 
+     SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{403, 140},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->210855095]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"%", "/.", 
+   RowBox[{
+    RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->583666301],
+
+Cell[BoxData["2"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->2134468478]
+}, Open  ]],
+
+Cell[TextData[{
+ "2.  [",
+ StyleBox["Manual solution",
+  FontSlant->"Italic"],
+ "] Set option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Cancel",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#377984336"], "\[Rule]", 
+   ButtonBox["False",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/False"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["Simplify",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Simplify"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " the output to manually remove the singularity before making the \
+replacement ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->588554313],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{"numerator", ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}], ",", 
+     RowBox[{"Cancel", "\[Rule]", "False"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"q", ".", "q"}]}], "/", "2"}], "+", 
+       SuperscriptBox["m", "2"]}]}]}], "}"}]}], "//", 
+  "Simplify"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"%", "/.", 
+   RowBox[{
+    RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}], "//", 
+  "LoopRefine"}]}], "Input",
+ CellLabel->"In[5]:=",
+ CellID->1146263390],
+
+Cell[BoxData[
+ RowBox[{"2", " ", 
+  SuperscriptBox["m", "2"], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"2", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "1", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "2", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+    RowBox[{"2", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "0", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "-", 
+    RowBox[{"4", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "1", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+    RowBox[{"2", " ", "\[ScriptD]", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "1", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "-", 
+    RowBox[{"2", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "2", ",", "0", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}], "+", 
+    RowBox[{"\[ScriptD]", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "2", ",", "0", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["m", "2"], ",", "0", ",", "m", ",", "m"}], "]"}]}]}], 
+   ")"}]}]], "Output",
+ ImageSize->{538, 70},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[5]=",
+ CellID->982324508],
+
+Cell[BoxData["2"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[5]=",
+ CellID->73727820]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Cancel",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Cancel"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["Factor",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Factor"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["FactorSquareFree",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/FactorSquareFree"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be used in place of ",
+ Cell[BoxData[
+  ButtonBox["Simplify",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Simplify"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to manually remove the singularity."
+}], "ExampleText",
+ CellID->1189711606],
+
+Cell[TextData[{
+ "3.  Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain the leading behavior near ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{"q", ".", "q"}], "=", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->902191584],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{"numerator", ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "0"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"q", ".", "q"}]}], "/", "2"}], "+", 
+       SuperscriptBox["m", "2"]}]}]}], "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{"%", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"q", ".", "q"}], ",", "0", ",", "0"}], "}"}]}], "]"}]}], "Input",
+ 
+ CellLabel->"In[6]:=",
+ CellID->1012584247],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{"2", "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      RowBox[{"q", ".", "q"}], "]"}], "1"],
+    SeriesData[
+     X`LDot[$CellContext`q, $CellContext`q], 0, {}, 0, 1, 1],
+    Editable->False]}],
+  SeriesData[
+   X`LDot[$CellContext`q, $CellContext`q], 0, {2}, 0, 1, 1],
+  Editable->False]], "Output",
+ ImageSize->{72, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[6]=",
+ CellID->1395044855]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Spur",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Spur"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Transverse",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Transverse"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Longitudinal",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Longitudinal"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Tutorials", "TutorialsSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "TUTORIALS", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "TutorialsSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Tutorials"}], "TutorialsSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->250839057],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[{
+ ButtonBox["Extracting Form Factors from the \[Mu]\[Rule]e \[Gamma] Amplitude",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/MuToEGamma"],
+ " "
+}], "Tutorials",
+ CellID->341631938],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1057100429],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Projector - Wolfram Mathematica", "Projector"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 52, 57.061582}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Projector[\"name\"][{p, m}] gives the projector for the off shell \
+self-energy form factor associated with \"name\".Projector[\"name\"][{p_1, \
+m_1}, {p_2, m_2}] gives the projector for the on shell scalar/pseudoscalar \
+density form factor associated with \"name\".Projector[\"name\", \
+\\[Mu]][{p_1, m_1}, {p_2, m_2}] gives the projector for the on shell \
+vector/axial-vector form factor associated with \"name\" and index \\[Mu].", 
+    "synonyms" -> {}, "title" -> "Projector", "titlemodifier" -> "", 
+    "windowtitle" -> "Projector", "type" -> "Symbol", "uri" -> 
+    "X/ref/Projector"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/ScalarC0.nb b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarC0.nb
new file mode 100644
index 0000000000000000000000000000000000000000..bfc8f1c660b09ba5be6aa6746f97002dd91c9de7
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarC0.nb
@@ -0,0 +1,2801 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"C0Expand\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/C0Expand"], "\<\"ScalarD0\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/ScalarD0"], "\<\"DiLog\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"], "\<\"Special Functions and Abbreviations \
+in Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/ScalarC0\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/ScalarC0"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/ScalarC0.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/ScalarC0", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["ScalarC0", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["ScalarC0",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/ScalarC0"], "[", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["12", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the scalar Passarino-Veltman three-point \
+function",
+     " ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox["C", "0"], "(", 
+        RowBox[{
+         SubscriptBox["s", "1"], ",", 
+         SubscriptBox["s", "12"], ",", 
+         RowBox[{
+          SubscriptBox["s", "2"], ";", 
+          SubscriptBox["m", "0"]}], ",", 
+         SubscriptBox["m", "1"], ",", 
+         SubscriptBox["m", "2"]}], ")"}], TraditionalForm]], "InlineMath"],
+     " for real external invariants ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "1"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "12"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "2"], TraditionalForm]], "InlineMath"],
+     ", and real positive masses ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "0"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "1"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "2"], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details and Options"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1015231596],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Mathematical function, suitable for numerical evaluation.  For rapid \
+machine precision evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses code that is compiled to the ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " (triggered after first numerical evaluation).  For arbitrary precision \
+evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses Wolfram Language code."
+}], "Notes",
+ CellID->706937948],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to maintain compact expressions.  Applying ",
+ Cell[BoxData[
+  ButtonBox["C0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/C0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", or setting option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ExplicitC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#1875237305"], "\[Rule]", 
+   ButtonBox["All",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/All"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will replace ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit form."
+}], "Notes",
+ CellID->887870138],
+
+Cell[TextData[{
+ "The arguments of ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " correspond to ",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJztnb+O48gRxgu2A4enN5DnCQ6YF5CNDR0szphcd4AVOPHibEC4TKHCTTdT
+PNHC6SR6gAkmdSBAgWNh32CsPhZPrWIV2fzbTfIb4He3Q/VQzSpWd/XH7uaf
+fvrnD5vfEdG//nj9zw8/bv/8888//vK3P1x/+csv//77T7+//uPtyn+vuIPv
+7+8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgA65/jxe2Xq4g3ul
+3ObKK39+uvLBON+GPy8tB8DUcfc+x4HGk1duceVFKXMR5wsqB8Acuf58EXGx
+4OML7rue+d8PotyDKLfn3x+1ciBNuL2V7ePey21e4cPWNt56tn3lY3ncbL1y
+C98Popzs+woxCwbx5fdXzu7/geU3np+24vjF9zVo5ZdnaWc+thflnpRYdOU2
+VeXAIH78jrItMtwv366sK8ovvDgq+Mnz4yn2tY0dv73iPM/lCc9Kub0fi4ym
+j/gxW/gc9ObHo8gfHB9Lyvv5y4tR5tX6DAT7xe9zLvz7Scvv6KYrvnM5tY8S
+MfvUZ/3BbzY/KPH1rSxnFDGmalPcrn6JfX1jRvRNLxwfj0o5X8c4kTEOFuWg
+KQ7jw7USX45Vxd9tRfmtUmajHQe1/PNaZWfFHy4ONwHlCvkm6Nx/H434Wgf8
+rT8egwbcj3+k/qfmiFzWH2OZY2ARs2ocgs789z3ngzK+DjXOIfsyaFTd+kja
+1+qbZCyGloNm35/vnIZ4VuLr2OBcQbkMaOQnv2+6lPRhvi5S1odBsx/Od29K
+fLlj3zU4l5wzgJyxOz/5ubipsZPQ7EvKFZ6zgV78dlBiwuWMyxbnlDkN9Pr2
+fpJtV0FL9MqeAstdQsqBVn77pMSXI2heR8W5Zc6I+dzt7On3TWZeR4FavFWO
+sjmOmCfQjc8aa4iB55fzUTF/oJ09/TarLP/bhthcK5fHF9rDTvxlaYifa57n
+uSIX8fN95IvN/SX1P3N8S/fzsc05G3Q/d/+J+zUXX2Ua5N7rTzEfxLbtd0Z8
+fW1wrrt53srneL7Zjc+C9D8lFk0tnorrY95L4uuJY9fPVxFjuq38eb5daIiX
+Cp8H6Vug0s5B+l9oLHLZR7ppHqX5iOJzxJhtn4MSX98axteiyu9007eq/F0r
+D6Fs3CCfFSGGh7mHEGO2bXZGfDXSEKmoJe+9zx7oNi54qchZauUhov2VYMzX
+/32EGNPtsjbuyXWLc+axka9LkmufC2sBu/Af943PdFtf/yC+G/1Zv/cSYqxo
+E0tD3MWuW13/UTZvX9VOvLwUfVlEH80NsjXEQ+y6NfEfZVqYqlvTTcPEvLuI
+PpoT1LGGmLr/vBhDP5aoj6bG9eerEl+NNMQx+M+LMYzHEvXRlLj+fDbiq/U8
+xFT9x7qHuWYRxPfRVCBbQzT3u0mFpv6j23MErONN1EdTgTVELb4+xa5bn/7j
+PgxzjhP20RS4/izHpCF25T8eh0HnSNhHU6BMQ4xdtz79R7zvd+x6z4kZx9hR
+ia9zyhpiW/9RNr/jFRrHoP558Hw0G/2WGuw3miqhMUa39yKYe8bEvpYpQffz
++SWTXrNEI9YQjesJma+YvzfLmu/hNEbsRQxac/1ZGfG1jl23htdTmYd4/ZfV
+puagH0sA1gncfer2jdnxmOZI+j6DcpyTl93x368Grnvr/UZToU4eQvdrxiyw
+30s8Xy45tzoExFFT3vj8bj+aXvQGsjXEY2wbg/nBcfXJuCeH4I2/f9nhNR2N
+7xmVhgjGC7fz64hxZeHm6K5bXttBOe8oNUQwPrjP+kz6OKWMb9w3uPt3x6xK
+yMt8NfqUKs7897X6HbL3G13Ftj2YNhxbWvtelr+5WHRjpmVHdXAaxJrqjfW+
+hcYa9bzfKAAalOWEu8B+6yvHwHKgui0pfBzo6m/O2aWO9hsFoA7crlf1F3lO
+toxc1yWF5bBvMu8j+51FtfcbBSAEvue09b0+x1RzKO5Lq9qGz3n+aPSD0BBB
+L3DfVdYXFPqBVAmINXct/zHyymXs+oPpQfraef++W8euY8Pr2gXkkD7Q6Nvb
+/Nf1MMKubv/UfJ9IN1drNu8k5NzwGJJXjRXKxmtV+S80xG5svfHsuRXHf9t7
+OHY9B7TH0hiP5HrGKnYdO77eslz4f2NvS2JD2XziPI4KezDSbd7kLOY7kq1X
+v3ObP8n7raJdgdbRzrb+e5rUtdOcJ05+XXVFfI1i75cObHBAnHVuUz/G1He4
+8rhs0mvPSuLLHRvlusMWtlgjzjq1p3wPfGGNGo/LJruGviK+ZqmnIc46taU/
+HsuZm36ojUNmG1+ebVZG23OMXbexofRls3n/BOn6/Ozjy7PPyujPDrHrNjao
+uFfBZHND75pHuTd7BDtZeeM6dt3GBBXf/znpnJHsNRur2HVLESPO0B7Vt6PM
+GSep15O9d/Qs9PkWdjtAA+nEjjJn/BC7Tj1cozYGO8Su1xgw9CGsJ6tnwwdh
+v0m9k8LIec5oi4PtZ+UAyBnv7eT2inus+Hxy+SLZ7yjG/VHPjlo7Nap3SAxg
+I5cPmrqhGJdNZk9p0nXEXex6jRHS5+uvY9crFSh75mw+A6Ns7tSkNHzOcZAj
+dmtPmRMk/c7nAW2zqIofyt5t+14Wh9659l5MJrvXN+ma2KzmIfZg0x3yAtUu
+8jnY3vvM6R35Ok33f/P9SpSteXkRfV6SMWb0YcfY9Ro7pO+rM/u+zIuNfH2z
+XPvs9I5a74+mxN9vZ/Rhq9j1mgKk6x94zti9nZONMW5r0Yf1a2PZl51j12lq
+JB5j2phhFbteU8LoyzDW7dbGKceYbGPxHKd7G2vPHbHXabc2TjLGKFt7iWc4
+w9hae/Y4a+2jY/umGmOa1gG/92NrtGf92jfVGJN54iF2naYMFecLI1/szrbJ
+xZjRrmIc3q/NtfeUIW/oxrYpxpimJ8Lf/doc7Vp/tk0xxo7C18fYdZoDSn6O
+tWXd2DXFGJPt6S52neaAojMdY9dpCqQWY0bOsopdrzmgjcli12kKJBhja/g5
+mu219q32GljK5q5vPdzBwpp8yvbXzffHcOtF1L0xuNypqlyKUDZXP4+xJNaa
+KXoH5nYMa//Gz8koe0eX/PucJ6+cW1cl57M7LuJ8QeVShG7vc9GIunaaimt0
+8ZxmWPvL52S7huf5Is6z4OML7rue+d9yD5oHUW7Pv8t1XZPd23AAHx+78DHo
+zP6Hhufx97x45WN53PjvyfPXHb+LcrLvK8QsaOQbOT8V65mGtf9O2P/Y8Dz+
+3k1b79helPNzqlev3KaqHGjsY2iKce3fVYz57zpxeZ5bc18Yh5DYf4bR9BE/
+Zie1p2EEHyPG4tpf6vffGpzD73Mu/PtJy+/oft/dJ6uPEjGbhAY+VhBj0e2/
+kj5ocA6/b3rh+CjsCUr3OsaJ462gZYhyyWuKKaP5lzBPMboPGpwj6D1CJN4D
+K8dgRrnYure8P0dP7HtubrSNMSrqf2qOyGX9Mdap5Jx+zNbaE6oH+0SPiR5A
+PzbsPdQ2xuT7g6y+ScZiaLmomn0C8dAHq9j33ZzoIMb8vulixQTd6yJlfVhS
+mn0C8YAYGznUcr4o3et/psZOgXvGk/KcLbJ9VhMAMRb3HtoJ+x9r/K2c71T2
+fqFTYLlLSDlQy8cyxtax6zQnWsaY3zeVvfckSIu3ylE2x9HML0Gln47Cx7vY
+dZoTiv2D52TTvf4X+v6usnyyUC6PLxrR+pbUaONj0In9G827p6L+Z86Lp/v1
+KuacDbqfu//E/ZqLr7LnaH4O+oL8UrWTzFWwfmxY+zfK1SlQ/1Nisez9QnJ9
+zHtJfD0rZXPQ593bai1tFLtOc4Fa7PNAgfpfaCxyWddv5ZqH+Y5mr//aiGP5
+92Ds1pGfQWvbj7J94/jS5kP6cYa+7N42MsawhmwYux/GlqdTpoF8Kfk8qf1q
+UoGge8Sy+1nYffT7K3oxhn7s3i67MeYsY4b0dwKPfp9gjjGMx4p2wb7Qw9t8
+cvvd022frOhzsFKEivt6HGLXacpQ8bnYMXadOrim5yrtcs4o4+/aa95BsK21
+PHHUOhP3YU5vxB5xto0+Kn5fx67XFCH9PZrL2PVqcT353nHQOaptJXWuY+w6
+TRElLx+1jkvZHCpo9WG2KuiLhOfRXdt4PaV8gbL5V9A4wu2ljRMOses1JZRc
+4Ry7Ti2uZVsWX+jbTLtI7WPUY4WUMPqwXex6NbwWde9T73NzvuPcIf1Z2TF2
+vaaA0oe5cdnonolRcZ8eDWj45TY8YlzWuU21Z8672PVqcB1yfwMLjNHK7aiN
+y86x6zVWXF9FRS1xlH0Y6PS+0MZlu9j1GiNUfMcbbAmsttdR+12qc4b0Z/vn
+2PUCaWCMIZJf45QKJe3UKnbdQDoY+sfo1znBdiAVWP/Q2uJ17LqlDOlzEs/Q
+OYAG6c9OMTaDvUCHGDrjN9w3BTutjPga9doV0D88fpfrCvGc595G3xt59SF2
+3cA4KNHJ3uYeZyXxNXvbgHqU3EuzzRsRX6BrEGd3trD0DWeLZez6gfFSEmez
+0fVJX9M6y7YG9ENFnB2mmifxuPRoXPcb4gt0SUWcTe5+o0ybt67X8Y/YdQTT
+g2xdP2cXu44dXaM2dwN5IhgEvgcPJffemUY6F5Z1jbK+C88MwWAE3I/HscQa
+54Vl/bO7zr8aZaDbg96gbB6xpQkkH2uUrfmqqv/XPIbIfjZ/iH0tYNpQtv6s
+Ksd6474vapvPcfKJivvaaDlv4X0bZGs/WMsCeoWqx2lS7/84VLxx3dak7wWg
+5YW7srqR/Tx6HdsPYPpw/hgaa3kuuesyn+SYWvF5y8ZZWuwvA79DWzvugNYI
+BqFBrPk5ZR53O46VMj56Zd3fnWt+n+u3PofGlrhG7fowtwoMCsfarsG93zed
+jA8JWiNICMr0gs8R4+3M399ZPkdZXqpdz6jf0QLGD8ebG9Mcqd5z37p54Ff+
+nmXP1wKtESQN36f52Oor1Rtb5WO4A//9xz5jyqi/tr+iYx3btgBMBbK1xlXs
+ugEwFQh7DgHQO6TPz4LWCEBHkL0G6Bi7bgBMhRKt8RC7bgBMBbL3OV0PXI8P
+V15EHfbE73m+8nrlIba9AGgC2fOHC3P6e/r+jfedW3H8kn8W204AtCGW1nj9
+WXhxVHhv8/XniT87xbbRnKHsvcBbj1/zDKXchnOOX33m8hPjfBv+vLTc1DC0
+xnOfWiPdvzP9xSjzan0Ger8nPhg5juPJK7dQcn3HRZwvqNxUIVtr7O1diiLG
+VDvzuOxLbPvMHecDcV8s+PiC28Fn/veDKPcgyu3590et3NQh+x1vh56+byu+
+Z6uU2WjHweD3hu+rVz6Wx40/jl74PhXlZN9XiNk5QJmmr+UGnb9Tie7HY7Nq
+z8YG91N3bSEf24tyT1SMRVduU1VuTtCAWqPSl83O3mNAtIWPnMM/K+X2fiwy
+mj7ix2zh8zlA+j6pvWiNdNOizJwRRL0X/D7nwr+ftPxO+PLJajNFzD71Wf+U
+IX0Pn873RaXi+Bc5Y0KIvumF4+Oxwo8nMuYOiHKz0BRLbGtqjT3EmcwZodcn
+QmieIXzo4nATUK6Qb84NGnBfVMWXs3g2mTJU1P/UHJHL+mMsc96A8LMah3OD
+7PnDu46/Rz5bmeVYOCWU/MLqm2QshpabjWYfYOu1EmOOdc3zPGu5vPgc+WIi
+CH9cSvowXxcp68NmrdkH2HunxFgtrZHEM0vlc+TqCUH3+p+ZV5DQ7EvKFZ6z
+gYKNDkacBWkg7DOz/Qr1FRjE11LvLcs/ToHlLiHl5gy10BpFLm5pU7mvSvMI
+ysZuMo9BTHbra7+9K2sXg7R4qxz7Emsr7m1laY2l+6Iq7eLe+8zZOZ+T7f5v
+joX5PHIOFsZw3fvZ1/9C8/uyfLJQLo8vgoas2av2vqiUjXdf6DbHRq5zKMxr
+M85z4rL53O8HcS70Z+39K/U/c06AsL05Z4Pu5+4/cVt5snyu5Cpm2alCEfZF
+pWwevqqF0C3PRF/W3s5B+p8Si2X5h1wf814SX3mu8ltOQyXrQ6cMDfwOJvaT
+2qZ6PoAm3N7OQfpfaCxyWT/Hr3qG80rKswK6jRFnlVtSIu9g8mIM/diIodse
+L4W1uXSbpzA7H5OuNa4HrkMeYxiPjRi6je+sPDIfE8xq3jgV38G0juQbcz4d
+GAdePqnmklUxOGUo0xrPfY3FKr77ca52nxJ0P2fVmreVayez0j5iw20bbD5y
+vLay7Fl2rntgrt1wftnOcQw8RRBj6UG8j3fseoDO/FknxrAnYP/+eODnKNA4
+JkLgeCyPMejH/fpiURZfNON9WMaOpytacw3y5+PQt/rzQb6ns+WDR+QR48XT
+5q398l/LYhC0tv+Civt+aKAfGyl0m+dhrX+6YAzeq/2fA+ILa5FGDrejBT/S
+bS4P2lAAWsDah5x3/8TH8BwUgA4gff0YtEQAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAADAb/g+BY2DD
+     "], {{0, 208}, {217, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{65.08750000000009, Automatic},
+   ImageSizeRaw->{217, 208},
+   PlotRange->{{0, 217}, {0, 208}}]], "Input"],
+ "."
+}], "Notes",
+ CellID->2036764321],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubscriptBox["C", "0"], "(", 
+    RowBox[{
+     SubscriptBox["s", "1"], ",", 
+     SubscriptBox["s", "2"], ",", 
+     RowBox[{
+      SubscriptBox["s", "3"], ";", 
+      SubscriptBox["m", "2"]}], ",", 
+     SubscriptBox["m", "1"], ",", 
+     SubscriptBox["m", "0"]}], ")"}], "=", 
+   RowBox[{"-", 
+    RowBox[{
+     UnderscriptBox["lim", 
+      RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
+       SuperscriptBox["0", "+"]}],
+      LimitsPositioning->False], 
+     RowBox[{
+      StyleBox[
+       SubsuperscriptBox["\[Integral]", "0", "1"],
+       ScriptLevel->0], 
+      RowBox[{
+       RowBox[{"\[DifferentialD]", "y"}], 
+       RowBox[{
+        StyleBox[
+         SubsuperscriptBox["\[Integral]", "0", 
+          RowBox[{"1", "-", "y"}]],
+         ScriptLevel->0], 
+        RowBox[{
+         RowBox[{"\[DifferentialD]", "z"}], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             SubscriptBox["s", "1"], 
+             SuperscriptBox["y", "2"]}], "+", 
+            RowBox[{
+             SubscriptBox["s", "2"], 
+             SuperscriptBox["z", "2"]}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               SubscriptBox["s", "1"], "+", 
+               SubscriptBox["s", "2"], "-", 
+               SubscriptBox["s", "3"]}], ")"}], "y", " ", "z"}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                SubscriptBox["s", "1"]}], "+", 
+               SubsuperscriptBox["m", "1", "2"], "-", 
+               SubsuperscriptBox["m", "0", "2"]}], ")"}], "y"}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", 
+                SubscriptBox["s", "2"]}], "+", 
+               SubsuperscriptBox["m", "2", "2"], "-", 
+               SubsuperscriptBox["m", "0", "2"]}], ")"}], "z"}], "+", 
+            SubsuperscriptBox["m", "0", "2"], "-", 
+            RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], ")"}], 
+          RowBox[{"-", "1"}]]}]}]}]}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "Notes",
+ Deletable->True,
+ CellID->1774187941],
+
+Cell[TextData[{
+ "For vanishing external invariants, ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is automatically replaced with its explicit form. "
+}], "Notes",
+ CellID->962326817],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is symmetric with under any of the pair-wise interchanges ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "12"], "\[LongLeftRightArrow]", 
+      SubscriptBox["s", "2"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "0"], "\[LongLeftRightArrow]", 
+      SubscriptBox["m", "1"]}]}], "}"}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "12"], "\[LongLeftRightArrow]", 
+      SubscriptBox["s", "1"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "0"], "\[LongLeftRightArrow]", 
+      SubscriptBox["m", "2"]}]}], "}"}], TraditionalForm]], "InlineMath"],
+ ", or ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "1"], "\[LongLeftRightArrow]", 
+      SubscriptBox["s", "2"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "2"], "\[LongLeftRightArrow]", 
+      SubscriptBox["m", "1"]}]}], "}"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->452835757],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " automatically reorganizes its arguments canonically."
+}], "Notes",
+ CellID->169213588],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates only for real external invariants and masses."
+}], "Notes",
+ CellID->2082825702],
+
+Cell[TextData[{
+ "The following are equal to ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in other packages:"
+}], "Notes",
+ CellID->55998301],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell["FeynCalc/LoopTools", "TableText"], 
+    Cell[TextData[Cell[BoxData[
+     RowBox[{"C0", "[", 
+      RowBox[{
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["1", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["12", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["2", "TR"]], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["0", "TR"], 
+        StyleBox["2", "TR"]], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["1", "TR"], 
+        StyleBox["2", "TR"]], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["2", "TR"], 
+        StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+     ShowStringCharacters->False,
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"]},
+   {Cell["      ", "TableRowIcon"], Cell[TextData[{
+     StyleBox["Package",
+      FontSlant->"Italic"],
+     "-X 1.0"
+    }], "TableText"], Cell[TextData[Cell[BoxData[
+     RowBox[{"pvC0", "[", 
+      RowBox[{
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["1", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["2", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["12", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["2", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["1", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["0", "TR"]]}], "]"}]], "InlineFormula",
+     ShowStringCharacters->False,
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True, True}}}},
+ CellID->573166446]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(11)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1239858557],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(5)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1268940658],
+
+Cell["Evaluate numerically:", "ExampleText",
+ CellID->1604791234],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0", "[", 
+  RowBox[{"20.5", ",", "0", ",", "0", ",", "2.0", ",", "1.0", ",", "1.0"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->491538223],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.17004080001165162`"}], "-", 
+  RowBox[{"0.39143027558888704`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{143, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1261011137]
+}, Open  ]],
+
+Cell["\<\
+The precision of the output tracks the precision of the input:\
+\>", "ExampleText",
+ CellID->1015353154],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0", "[", 
+  RowBox[{
+  "20.5`20", ",", "0", ",", "0", ",", "2`20", ",", "1`20", ",", "1`20"}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->87221091],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+  "-", "0.1700408000116518274206629014193681528601913102111737998`20.\
+616477759678713"}], "-", 
+  RowBox[{
+  "0.391430275588887070970975384116572453087397816241525006294`21.\
+544241125924948", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{367, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1685515208]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->64086117],
+
+Cell["Evaluate symbolically:", "ExampleText",
+ CellID->1206061272],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0", "[", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "M", ",", "m", ",", "m"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->173654471],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{
+    RowBox[{"-", 
+     SuperscriptBox["m", "2"]}], "+", 
+    SuperscriptBox["M", "2"]}]], "+", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["M", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      SuperscriptBox["M", "2"]], "]"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", 
+      SuperscriptBox["M", "2"]}], ")"}], "2"]]}]], "Output",
+ ImageSize->{141, 52},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1560051801]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1836925550],
+
+Cell["Make a plot:", "ExampleText",
+ CellID->394481955],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"Re", "[", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"s", ",", "0", ",", "0", ",", "2", ",", "1", ",", "1"}], "]"}],
+       "]"}], ",", 
+     RowBox[{"Im", "[", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"s", ",", "0", ",", "0", ",", "2", ",", "1", ",", "1"}], "]"}],
+       "]"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", 
+     RowBox[{"-", "30"}], ",", "30"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1043362701],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnXtUE3cWx+fs7h/7//63e85uu/tPux6zZ/vP7umua1OrtrUWKr5Li0ob
+2yoVxUejVm0qanzH+kAFImBECULDU4QRGUQiEsGABiUICAMYMWh8jBCQvZMJ
+EJJMyGM0CPdzkDPM484v8/vO/d07Zu7vzSUrZkl+QxBEzO/h16zF68SrVi2W
+hv0O/nhfuvrrJb+FhbXwLwf+scv9CII4w5jNFmuwG4EEhSZSIRaBawzRWpw3
+WWkqhLAhkhqYYDQOCSq0jqIolYgQu2iDUYqJEKUBliiZiJBRwWgdEmysOrGr
+Nhh2pc7mLhi9giBkpmA0DQkyDK827CvpfMKNY0HGASNqw0Q6aYMY4BW2EgkG
+/NrgG1NQFeMFs1ZMiCgzl6oyOo1SowMhWCAWlaiNsEorFxNS0vEI1MZ4QB8X
+PjhAKHRmkIRCRIgUun42hyXtOSzhnMOiNpB+q8VkMrs+20BtIHxgIIrwgcJA
++EBtIHygNhA+UBsIHxiLInygMBA+UBsIH6gNhA/UBsIHxqIIHygMhA/UBsIH
+agPhA7WB8IGxKMIHCmO8wFjMFt/eW0NtjAdoSjHwXqPG6ZvmBqVk+FdJh0Bt
+jH0YfQhBKNkvCpvkBCGjhr27pleIiWiNyWI2mUxO70ujNsY8FvbFEwXnLlgl
+SIe99KpTiEVyndsDURtjHkdt0KQUlh1HDn0c9wqCWEEanQ7E99rGPI7aMLlo
+o7/fyjAWo1YJGlAZhwWrqIoxj0WnIESOYwrpbi+rUkyEq4e5DtTG2McWi6qN
+EGiaFCKQhsnhnUcQhS0AtRqjIUzVYp4y7qBJuT2HjeZy2KF3HiEWtW+SKJ2K
+b6A2xglWNkt1V1zDysAGt4/FMBBF+EBhIHygNhA+UBsIH6gNhA+MRRE+UBgI
+H6gNhA/UBsIHagPhA2NRhA8UBsIHagPhA7WB8IHaQPhAbSB8YJ6C8IHCQPhA
+bXiD4Fdp9Bt8GTbHpEGnQ1wtvOwdXv0ZR2GTgnIR+CCQcYyXIgGqVWQV/Jws
+qrb9Zn8GFobWOKz0cmuVw1ZfLVe52+pqZMRWuTnEtgDXx8NWPoOwwF0r+xVT
+kflrj9/IvOT9pUZGPz7dOx6oOJZ7LblQEFPIKEEobehOFFyNzxfE1MvGau0L
+dhNeD4TSRk06VabIEMSUgPT1vWi5+7CsrOl06vVdO0tWrsieO1s1edJRX2xY
+LQAzvGpJP2M2OxUy8QFGaINusZjNzifxEV9DMj5unbtauDlp8E9bcSm/W2Z1
+d/G8KldlsTyvrGxNPVUd+/OFyCXpU6fEL5iXuiYma9fOwtNpetjU3m558eIF
+Z3Hk7mB0bHEKkQh+iWX53OmtNGWfNFPkPGnmyDB6yaBBqdocuEEw2URKxKxB
+h4pMtGLAosbo/yTigQrD2qSQsO14d3Vm9orD3CpqoGVSjXO5jxFhDErbZ7Id
+rtZzKz2Uq4IBokbffubM9c2bCufNUX04LTFquebgL5dzc+sMN+8xoLCA+pex
+v0NqyoddKXaRUYqJEKUBliiZiJBRHg52g9WkN9A2gyScPN8UsEE4ntaRFCUl
+CPmANgzKECJExZZwomSw2uT5eH4C1gZNkVq1VDRhfVHq/Nh+e+eGG9gX+kkR
+O5Gxb/YYk9FAs71l+1xS9jq6lKvq7WX1kHRCB2PE9KkJkq8z9u4pPXfuVkvL
+wwGfMNxk4P1LawhizrFMw7msjH8S/0662FxVRVdrYqGFNW2Wri7m2bMed6fm
+x6oXcx/K46zfXsPEiQa1wb4jL9fZPjJr3OcuGESQAUWvEE/cXnHsvZgXfX36
+ofpRbIOllJ+yZQxxrMaYobIzMF4cWfov4r97Z3yk/Cry7OFD5ZfLmp886fbW
+Itu/ErYKhS/dwRjzo8NZHzNjuQYilq2b4t4g/hEelQveSfL5jwQxYUqoKmRm
+0rQPEiCMgd+wDO5r0Zdp336TCdJdLz23VUbu3kVBa5WJleDfsrMMZJExfdtC
+gogqqe9su0NNIiaXddnCYxrU6zJlvFdwejC7LNOO/sRXBNEGV0/szOfbH9xp
+d6gtZiWlhEiu9csko4aBOToferKtfA9BrP8+Jvej6YmrvlhAEBuMnU99szXQ
+vzLS5s9t2rB3gWN3MGbaERN7Sa0WWq+jlFI4XDqoK+1AgSTHrgS/Ad6jq+tZ
+G/2owfjgxo17Vy/VZmRoT6eWJSYUHzpYuGcfeehguXzHxaj5s8CDhUZkLI5Q
+zw+L/QPx1jv/YXUV9jH05IRZSzLXrM6TbSnau7v02NErEDvl5hiokjvVVW0N
+DXRdjbG5uWWwiQPj4TBtOPgQmh1UtP5rI3B5cHogZSkQkTrWnfNXGxZNNFw8
+eV5Fy0+bi6a+C7fYsrwLDXDl3ZWrGhkv+5eVkCRaaic6Wp7vcAfT0dxF9tXn
+uBikSeguiX7Q9IBB+HStJbughVRNh1Z7t/B8fWZG7cmUKpDTjm3FG6QFK6Ky
+IhYeEP1t+ht/+fivb854+61PJ06MjFyZt31b8ZHD5Fd/JiIPXq240tJgbN4x
+gZBffzRgnCD9DTiEGlNAD5DGUrvSdAoRVxCGE7DU95bl/TiR+J88bO4pGDgy
+zta2UXu8KFflDX70L2NPjtjYiSuVZoFYRWKri6WV+94YCxsYR2uMDKRdZm4K
+eH8MPn3aDd7JYDDBqApR9ylVyZw/EVMiz66KzlmySD154jvEH5fODlNFhH5J
+EBGx+8sghb9AGmtrOzrvP/U+LhJqTIGIztzYrpojY/QQJ0Szt6eZgkDIJ2lA
+ULd/4zpo0vxlGdWVtyHHZNe6KVflEwH0r+2+45ImscyeIllp0p7jED6nnBb2
+4gwRZ3MfgRh0shnC3ZVWevt73Iq/bzmhTzujh2hn08bzSyUZs0JTPnj/ePjC
+02vX5O3fdyldXaMtb6bpR319bgQTqDYYXfhQy+ISZsse3Gmh5PbPGq02eGkG
+boT44xUQZP4wd7rDxQvh7m6XclW+tTCQ/rXaSx4NfxBitcA637vRw2mENthv
+NbvUGeZ4/tza2Gguv9ysTtPv21sasyp33txTU6fEg8OR/UTCKAZq6bRFdEI9
+F+W4/Muv2iPZ/exDOZfryQO4OIi1PgtJ3ikvudfxmG833nJVXvCK+vd1hmGs
+dXUmCHIgvIGBCbIt6BHQRnKSTlfZygT4gNVG1917CdPW9fZ4a6qp0fzdt79+
+I8mEwD7wsyMC0tHxmHOskK1/OC3h26WZ4NghV+rt9f9/o85vVOrPXBxxN3AX
+kOx/+kkS5Pu+PTVCXhWDY0pPT+81HZ0QfxUilk8+PrFVRpZSjd3dvb4aNDd2
+KD+SPn3gyf93dT1bE5MLHsPDICI43Y+fdda3Nl2q1aeVvLKTvta4jTcgFMnS
+3IRxZ+aME3v3lNbXd/pkszLxXObS/S/63Duf27fuQ8x5/FhFIN7JA73d1q7m
+e81lNyCnvnwgs2B9onrRLuWHUviBhfx1x6ndaS/jvGMPz7Ho/ftPUpKvzQlT
+rYjKqrjS4qVNUEX294cSp/3Q59L7YATinOLiBj+bO5yep8/v325tKK6+llx4
+ccfprKiDJ2dtOS5efXrhttyYo6W71dWnLty5eP1+XQvz6IkgZxxXeJOnQPJ7
+gTRGfJG2fJkGolkvLRduTjoTvh2GmKE15+shwLh5454f7ex5NiSD4m2pWcsP
+Jodsip+yVh2xEyIc7eGsm5rL9LV6S/sDPn+F+IpPz8zzcus+C02BNAdyZG/2
+h6A0aeaPRVuSWytv6SpbJk86Cpn1iEdBrNJR21hfqNMpC4pjVZrvDqR8toWT
+QcGGRJCBIaucrqp/YurystkIy8ufr+3x424IUyMXp7e0PPRm/+6nTI265MT8
+HUcnrTwZsRs8/5WjOXDv27+HnFJUcSy3dE863PuaZQdUc2TxU9akhG6CcAUU
+BXsacrScDDCXCYRXOV8bpDPgBCyW597sfP16OwwlVVea2qqMhuxyXdL5sv0Z
+oAf44XRyI7MMBot2/Z1HdKf3z0YQb3nl87XF/nzhg/ePj+g9YIfQT5Orqmj/
+zoIETlDma8s4Wzt/7ikPD1QhLFm4IPXXzBt+nwIJnGDN1xa79cIBRRnf1h3b
+L6pOVvlnGfETl28oBWu+NghNQ2Ym3b3rJmUoLm74fMFpLzMaRChcv1DUFrz5
+2k6mVO3YVuy0sqvr2cwZJwwGv7/jjAhH8OZrg2xl+tQEp5zlZxl55HB5gJYR
+oQjifG0bNxQUFNwe/POajp43R4WjyagiWPO15eYYtsrso1hf34tFX6ZdKm0M
+0CYSdATxGy13Hy6Yl8ot52QbopZrAreJBB2hvhM4dUo8DCI9Pb2zQlNu1d0X
+xCYSXITSxpJFaqOxMz29BmIPQQwiQUcobaxdk1d+uXl22EnMW8cMQmljW2zx
+yhXZq2NyBbGGjAYEyVOA/fsuTZ50tLKyNXBTyChBKL8RuSTdx3o4yGhHKG0U
+nq9HpzHGEPa9NmQsgdpA+BAqFkXGHigMhA/UBsIHagPhA7WB8IGxKMJXohmF
+MR5oIhW2stYhrsVLPZRoRm2MB2gdRVEqkZvCtp5KNKM2xgtWh6qqg3gsp4na
+GC8wvNpwU6LZRoDvtSGjDneVt23rR9LG8BLcyNiDt/I2vzYCnoUBec0xa23z
+ZXCp6uB7bYGV4EZef/RxQ9WjbQVYht5rC7BiNjLGwRLNCIIgQvN/8hXqoA==
+
+    "], {{0, 118}, {180, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{180, 118},
+  PlotRange->{{0, 180}, {0, 118}}]], "Output",
+ ImageSize->{184, 118},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1577256876]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1720110177],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["C0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/C0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain the explicit analytic expression:"
+}], "ExampleText",
+ CellID->1761500390],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarC0", "[", 
+   RowBox[{"s", ",", "0", ",", "0", ",", "M", ",", "m", ",", "m"}], "]"}], "//",
+   "C0Expand"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->575609447],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   SuperscriptBox[
+    RowBox[{"Log", "[", 
+     RowBox[{"1", "-", 
+      FractionBox[
+       RowBox[{"2", " ", "s"}], 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "2"]}], "+", 
+        SuperscriptBox["M", "2"], "+", "s", "+", 
+        SqrtBox[
+         RowBox[{"Kallen\[Lambda]", "[", 
+          RowBox[{
+           SuperscriptBox["m", "2"], ",", 
+           SuperscriptBox["M", "2"], ",", "s"}], "]"}]]}]]}], "]"}], "2"], 
+   RowBox[{"2", " ", "s"}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     RowBox[{"1", "-", 
+      FractionBox[
+       SuperscriptBox["M", "2"], 
+       SuperscriptBox["m", "2"]]}]}], "]"}], "s"], "-", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{"2", " ", "s"}], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", 
+       SuperscriptBox["M", "2"], "+", "s", "+", 
+       SqrtBox[
+        RowBox[{"Kallen\[Lambda]", "[", 
+         RowBox[{
+          SuperscriptBox["m", "2"], ",", 
+          SuperscriptBox["M", "2"], ",", "s"}], "]"}]]}]]}], "]"}], "s"], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox[
+      RowBox[{"2", " ", "s"}], 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "+", 
+       SuperscriptBox["M", "2"], "+", "s", "+", 
+       SqrtBox[
+        RowBox[{"Kallen\[Lambda]", "[", 
+         RowBox[{
+          SuperscriptBox["m", "2"], ",", 
+          SuperscriptBox["M", "2"], ",", "s"}], "]"}]]}]]}], "]"}], 
+   "s"]}]], "Output",
+ ImageSize->{497, 120},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->512495194]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->466888925],
+
+Cell["Taylor series:", "ExampleText",
+ CellID->96916337],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"s", ",", "0", ",", "0", ",", "M", ",", "m", ",", "m"}], "]"}], 
+   ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1899604866],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", 
+        SuperscriptBox["M", "2"]}]]}], "+", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["M", "2"], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         SuperscriptBox["M", "2"]], "]"}]}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", 
+         SuperscriptBox["M", "2"]}], ")"}], "2"]]}], ")"}], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["m", "2"], "+", 
+         RowBox[{"5", " ", 
+          SuperscriptBox["M", "2"]}]}], 
+        RowBox[{"4", " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", 
+            SuperscriptBox["M", "2"]}], ")"}], "3"]}]]}], "+", 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"2", " ", 
+           SuperscriptBox["m", "2"]}], "+", 
+          SuperscriptBox["M", "2"]}], ")"}], " ", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["m", "2"], 
+          SuperscriptBox["M", "2"]], "]"}]}], 
+       RowBox[{"2", " ", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           SuperscriptBox["M", "2"]}], ")"}], "4"]}]]}], ")"}], " ", "s"}], 
+   "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["m", "4"], "+", 
+         RowBox[{"19", " ", 
+          SuperscriptBox["m", "2"], " ", 
+          SuperscriptBox["M", "2"]}], "+", 
+         RowBox[{"10", " ", 
+          SuperscriptBox["M", "4"]}]}], 
+        RowBox[{"9", " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", 
+            SuperscriptBox["M", "2"]}], ")"}], "5"]}]]}], "+", 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["M", "2"], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"3", " ", 
+           SuperscriptBox["m", "4"]}], "+", 
+          RowBox[{"6", " ", 
+           SuperscriptBox["m", "2"], " ", 
+           SuperscriptBox["M", "2"]}], "+", 
+          SuperscriptBox["M", "4"]}], ")"}], " ", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["m", "2"], 
+          SuperscriptBox["M", "2"]], "]"}]}], 
+       RowBox[{"3", " ", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           SuperscriptBox["M", "2"]}], ")"}], "6"]}]]}], ")"}], " ", 
+    SuperscriptBox["s", "2"]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "s", "]"}], "3"],
+    SeriesData[$CellContext`s, 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`s, 
+   0, {(-1)/($CellContext`m^2 - $CellContext`M^2) + $CellContext`M^2 \
+(-$CellContext`m^2 + $CellContext`M^2)^(-2) 
+     Log[$CellContext`m^2 $CellContext`M^(-2)], 
+    Rational[-1, 
+       4] ($CellContext`m^2 - $CellContext`M^2)^(-3) ($CellContext`m^2 + 
+      5 $CellContext`M^2) + 
+    Rational[1, 
+       2] $CellContext`M^2 ($CellContext`m^2 - $CellContext`M^2)^(-4) (
+      2 $CellContext`m^2 + $CellContext`M^2) 
+     Log[$CellContext`m^2 $CellContext`M^(-2)], 
+    Rational[-1, 
+       9] ($CellContext`m^2 - $CellContext`M^2)^(-5) ($CellContext`m^4 + 
+      19 $CellContext`m^2 $CellContext`M^2 + 10 $CellContext`M^4) + 
+    Rational[1, 
+       3] $CellContext`M^2 ($CellContext`m^2 - $CellContext`M^2)^(-6) (
+      3 $CellContext`m^4 + 
+      6 $CellContext`m^2 $CellContext`M^2 + $CellContext`M^4) 
+     Log[$CellContext`m^2 $CellContext`M^(-2)]}, 0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{435, 115},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->542804158]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Scope",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1293636265],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates for any kinematic point away from infrared singularities:"
+}], "ExampleText",
+ CellID->1025201063],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"Elastic", " ", "form"}], "-", "factor"}], "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"ScalarC0", "[", 
+   RowBox[{
+   "17.0", ",", "17.0", ",", "0", ",", "1.0", ",", "1.0", ",", "1.0"}], 
+   "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1721711681],
+
+Cell[BoxData[
+ RowBox[{"0.18186219079735283`", "\[VeryThinSpace]", "-", 
+  RowBox[{"0.21132639078885354`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{144, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2003398009]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Massless", " ", "external", " ", "invariants"}], "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"ScalarC0", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "2.0", ",", "1.0", ",", "0"}], 
+   "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1853507244],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.46209812037329684`"}], "+", 
+  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{107, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->264195555]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[TextData[{
+ "By default, the code for ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is compiled to ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " at initialization.  If approprate libraries are available, numerical \
+evaluation can be made to go faster by compiling to C."
+}], "ExampleText",
+ CellID->308658232],
+
+Cell[TextData[{
+ "Quit the kernel to clear ",
+ StyleBox["X`", "InlineCode"],
+ " definitions:"
+}], "ExampleText",
+ CellID->1348549334],
+
+Cell[BoxData["Quit"], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1492990344],
+
+Cell[TextData[{
+ "Set the compilation target to C before reinitializing ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "ExampleText",
+ CellID->1459337677],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"$CompilationTarget", "=", "\"\<C\>\""}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"<<", "X`"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->129719287],
+
+Cell[BoxData["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"Package-X v2.1.0, by \
+Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
+TagBox[ButtonBox[PaneSelectorBox[List[Rule[False, \\\"\\\\\\\"guide\\\\\\\"\\\
+\"], Rule[True, StyleBox[\\\"\\\\\\\"guide\\\\\\\"\\\", \
+List[\\\"HyperlinkActive\\\"]]]], Dynamic[CurrentValue[\\\"MouseOver\\\"]], \
+Rule[BaseStyle, List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], \
+Rule[ImageSize, Automatic]], Rule[BaseStyle, \\\"Link\\\"], Rule[ButtonData, \
+\\\"paclet:X/guide/PackageX\\\"], Rule[ButtonNote, \
+\\\"paclet:X/guide/PackageX\\\"]], Function[Annotation[Slot[1], \
+\\\"paclet:X/guide/PackageX\\\", \\\"Hyperlink\\\"]]]], \
+\\\"RowDefault\\\"]\\)\"\>"], "Print",
+ CellLabel->"During evaluation of In[8]:=",
+ CellID->1495453599]
+}, Open  ]],
+
+Cell[TextData[{
+ "If no errors were reported, ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is now evaluated using compiled C code.  (The first evaluation triggers \
+the compilation):"
+}], "ExampleText",
+ CellID->124776273],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0", "[", 
+  RowBox[{"0", ",", "1.5", ",", "2.0", ",", "2", ",", "1", ",", "0"}], 
+  "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->161752355],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.8488895315798888`"}], "-", 
+  RowBox[{"0.40550748775868706`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{143, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->692599802]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates to ",
+ Cell[BoxData[
+  ButtonBox["ComplexInfinity",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/ComplexInfinity"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " at infrared divergent points: "
+}], "ExampleText",
+ CellID->1163251125],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0", "[", 
+  RowBox[{"s", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1505866169],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"ScalarC0", "::", "irdiv"}], "MessageName"], ":", 
+  " ", "\<\"\[NoBreak]\\!\\(\\\"Soft and collinear\\\"\\)\[NoBreak] \
+singularity encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/ScalarC0\\\", ButtonNote -> \
+\\\"X`ScalarC0::irdiv\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->50411936],
+
+Cell[BoxData["ComplexInfinity"], "Output",
+ ImageSize->{112, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1164851434]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " on ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain the corresponding dimensionally regulated expression:"
+}], "ExampleText",
+ CellID->1747137700],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVC", "[", 
+   RowBox[{
+   "0", ",", "0", ",", "0", ",", "s", ",", "0", ",", "0", ",", "0", ",", "0", 
+    ",", "0"}], "]"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1562486132],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    SuperscriptBox["\[Pi]", "2"], 
+    RowBox[{"12", " ", "s"}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox["\[Epsilon]", "2"]], "+", 
+    FractionBox[
+     RowBox[{"Log", "[", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], "s"]}], "]"}], "\[Epsilon]"], "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], "s"]}], "]"}], "2"]}]}], 
+   "s"]}]], "Output",
+ ImageSize->{226, 54},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1047507660]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->296879209],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not evaluate for complex arguments: "
+}], "ExampleText",
+ CellID->793391287],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0", "[", 
+  RowBox[{"0", ",", "0", ",", "81.3", ",", 
+   RowBox[{"3.3", "-", 
+    RowBox[{"1.1", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"3.3", "-", 
+    RowBox[{"1.1", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"3.3", "-", 
+    RowBox[{"1.1", "\[ImaginaryI]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->245529215],
+
+Cell[BoxData[
+ RowBox[{"ScalarC0", "[", 
+  RowBox[{"0", ",", "0", ",", "81.3`", ",", 
+   RowBox[{"3.3`", "\[VeryThinSpace]", "-", 
+    RowBox[{"1.1`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"3.3`", "\[VeryThinSpace]", "-", 
+    RowBox[{"1.1`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"3.3`", "\[VeryThinSpace]", "-", 
+    RowBox[{"1.1`", " ", "\[ImaginaryI]"}]}]}], "]"}]], "Output",
+ ImageSize->{378, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2010184966]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->60784298],
+
+Cell[TextData[{
+ "If the arguments of ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are widely separated numerically, machine-precision evaluation can lead to \
+numerical instabilities:"
+}], "ExampleText",
+ CellID->1546964161],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"me", "=", "0.0005"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"m\[Mu]", "=", "0.135"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mq", "=", "1.2"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["me", "2"], ",", 
+     SuperscriptBox["m\[Mu]", "2"], ",", "mq", ",", "mq", ",", "mLQ"}], "]"}],
+    ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "0", ",", "30"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", ".15"}], ",", ".15"}], "}"}]}]}], "]"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1295589896],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnX14E0Uex+e5uz/uefxDnnt8vIdHEU88lTsvgmcVmhYoekpFKG8nIkV5
+OcuJ0JaXqrEoUF8gylFXe7bQQoBSoLSAKS2lRyNeaiG0BqWAAS7lPdgGCBJb
+AsQ299tMsmyyu+lumjTJdj7PJs9kdmZ3svPd+c3svOwfZmZMSPsVQmjhb+Fr
+woy3khYsmKGa+Bv4MVK16LWZvwbHP+FTCR/a7SIQpOKw2+yOSCeCEHVY9BRy
+o1Bp7b67HGd0aUkK2EUZbV6vpjTkJYmycY5GkA+OphSENCYoNKxqhHL0Vp+d
+FqNOr1chpL6tDWMSQlqz1Wa1Wm12ngMS5IK9CQoNCudxE5WEVHpOEEeBwk8b
+SQYiil4AWxsWHZQQXDNhp3y1kYLtSVqBmShE1rC1YRWjDZfL6YSaq1kD1Y7U
+MicrHFMNCXuiCT2C3UghBdum6LhBCny1gXGaChBKM7PEQVQhN9x10TI6j61Q
+Pqh0VtpsaDVaI1MptYE/q47qxHIwa6HgULMVQ7QhPyw6tacNm4nbsLQRUVBG
+2tVUwFiKFLePy25I8ngoNAafRg0xKLLEaYcmqdiapYMObOM+KSPCIAhBtEEQ
+gtgUghBEGAQhiDYIQhCbQhCCCEOeSBy/4Q7u9PMk2pAf0sZvuJx6Cve2IZXW
+zA5MbIrckDh+w2HSIJRqoh+x6xRIoWc9NCfCkBlSx29AGIXayPirWFoi2pAZ
+UsdvGG9rwwnBFWoDE4700csMqeM3WNpwcbUR/vQSeg6p4zeMlAJ30WJ/d5++
+B6INuSFx/IaD7rXPpIPb9ElIwZIGaafIEGnjN6ANq/a0YTPLTOzjEGHIEknj
+NwAIbrOTZ18EsRCbQhCCCIMgBNEGQQhiUwhCEGHIk0B99A4bt03CB9GG/AjQ
+R++06FO8+0xYO8JrLBCbEuVYrW0jhq2WECFQH71Dk4RSNPQDLn0O/WzU7Se4
+xgIRRpRz8aJ9eKIEbQTqo3cvp2B0FxcOOliO1RVojQWijSjnouVa0Nrw76Nn
+y8BSjbBbeI0F0kcf5WBtNDach01M+EB99GxtWHXI6w6wxkKo/gUhHGBtrFvb
+CJuY8IH66HltiheyxkLMYZGojYB99Haoi6aV0QOGDWpGNoHWWCDyiGYkayNg
+H73TovO0YZG3DRtwjYWQ/hVCiLlwgdbG2qJGzbpvxccK1EfvtPutqEDWWIhR
+ampOBqGNkEBsSpRTX38mgtro4TMShNiy+XvY/Dzrv/FoY72GaKP3krO0dvlH
++/w8v6k7HUFtEHlIZc3qg1WVpq7DieD8uZ+Yx56Ls2tWfLSvvf2W3X6DCRBZ
+bfTwGWXAwgVV+V8cCMmhWlt+ZrSR/U4NlBu5q+pAJPDzxg0n7AIrA99FhQ3r
+NcaQnFE8RBsiMZsv41t45IjCBfMr/513ANywbS8/IhRlT/WJkycvQSEA30Jh
+WtjaUNHlxqp/1b3w/HqXuwcWdv19Ygk+UUS0QeQhhuKNh2an7cDZBNrI+2w/
+dq9aWScU5ZXU0vLyI1/vax6drOHuNZmshw5ZGG3A96KFVbjcAHdHR2drK70r
+I30XPhH4h+/f8RISYYRKXdGcGNDGlMlbcDaxt6VL9rKDgWygNgKZfulS27Sp
+pXCQmpqTUNQwASDKyRN0MfIZVa96e09BvoHRxszpZcvd5Qa4t5U2HTScA0dm
+Bq0NOM4n6v+G5H+Jh30F/K5GgJ/iQ8rgFJuKv4N8hJ+MHthuqCSwI6bPrcB7
+878wTJ2yFdzUp/U496e/so2JqFn3LT7m9FfLGG3Az48+9GgD3HCoiGgDEWKW
+nlGIi9RFXS5drRluTGhLNpuvcE2GmC1nmacf/Pr1W9jKuMuNA2CDCtc0MMGg
+oGDHGvXsWsa9v/4sdkC5AYaGHSxjXgV2fPJxJG1Kb+CHY63v5+gqd5mgMMeF
+dvc3Jtdw7kPhLybWuLEbef2zFu3m10Yk6huyl8fGDUZcjdxc8l1IxMDdJk3Y
+BN+474O9/e3pIqmHmvuGlv1z3lxtBLXRw2fsGU6dunL27FVoNTDXNqwbrlKG
+dfuYaENgrUvx/GPW9mCvf35CPJU8SsP4vDipZOa0YmV8nqTjDFNSCRKjCCUm
+QZnP+Kygu1rETjsKCd20Ke4VCD0kURIf3DnPUGkpvhEF17r0o7OzE3c6tLff
+LC/S9L3zHojy4OBcfBkT//oqk6o+A7K5Vx5al/C976tm+H5mZCHIyRPlz/TX
+fQPfw8GYSUB39JuTwIo+a0Y5dqSM2eB7ZGrg3d4T35n8RLyoxPBsyuy76LPS
+f6pP//RErI3sz/2nHYWZbpYb7lHNKpMNT3yRqGinRa8zlKkUzFpkAda6dDo7
+sKOx4TzczuwrmfhU9mOKrPsQesCrjYTHJyOUPGrMmgkTVivj89Urvob2wjd1
+pwOkxWE1myz0Fbfqc+Af1RgtzcfqmElAyxG6X7GSOWN52ZHh3ocSvlvek48v
+c2el+n7Q2F/UTGLihubGD1kJiRFXaOTFD6Fox5B0hO4ZRGss78UBnGlHYSYU
+2qC68+pI1vqWPGtd3rjhxAMYuFvJpu+gzXj5Uru7APFZM7M7qXLQw61TQRH+
+k4D6ZcFJr11zGL+9sLvq+MTxxeD/7DNrhTL34TvRXQ8t82pjcoIoSXC2p+Yg
+lPhkAl2SDECDhYaIh4lu2hRm/ag0ShdcXrDXMMTujo7OZnPrgmT0u7jlTD0f
+HCaTtbn5CuzlTQjlo42gU+UoS0Mos9rJMwlIfdl76qpK05jRdHfYgf1nefM0
+MW4WnP3Rp/Ld2piKE9N3wHzxCkmMS7/37kEQ63534YO14T/tKMx0uy7qdDqg
+PNZnws1WEqiGIASjDag5bH4zvu/oorEvbHj5pS1vPIP+mLEL7tO2tpu//NLR
+1WH83nkaXKrsWoigUFvwj64X6nQdP27ly9bZcFUfUKi9PvnDlHnxcVn3IvT7
+Rz4QqY1h8eonBmc93A/kkcyUG9xpR4JE0zx6kyYFpZYFUUU6tGrEg/N2L3l3
+b/Jz68bE9e83bfOlS23ctS67gv+dp5JSpQM7nlrCXHIRC3XS+OXphGTVHQg9
+/DjFze64hwahu2cnSjMralDUA4NyJdmUaJlH75n44qAnvuQYugjsy4UL14o3
+Hkr800D02DLtl8ccDmeAtS67wvedp9JThc2Q1myDG86Gp5PzTALi4aUXN7Oy
+MnfcI1B5nKNUUsqhuQlKt2cCrn/mPdoXof5vi6yLehrOQ+aD0gbGgZuCuihn
+2hEfUTOPnr65PDrMNFjFtlOg2rB0yd7Rzy19jFFsSgGemim01mWgNHDWzAwi
+VU0Fqeg2KfgO5UwC4gEqpbfzVJn9JOsodz1It4UTBk/2/L7j6cFDxLVTlNl9
+6PDuZm9/T/N5RXau/7Qj/qsRPfPo3bNkbGIrRqdOXVkwvxJqFKVbD0MbhDcM
+71qXYU1VVwcKdBxmkA80bOmfn+/n5HV+wtCV8UN5rEyg+kZCntK3zUs/F+VM
+O+ISi/Pobbbrq1bWQXOjvPwI87BCHuC8azhIz3PHo7Z4tw/f/0qSPPy2t96s
+5jm3w2ZhA/dDrM2j31N9AsoKuKfYI6hlw3uL/zPcO+azcE1D+tyKw99f9MvZ
+aVNLq6qOd0cb1Kf13FM7zNWZaZkqD5mZ6uqLsTOP/upVx+LsmpnTy06f5jYB
+ZUJT04+MNooKGzLSdx0+TPssWlg1ckQhOHKW1oI2XDzPUSVsn1E82uAhRubR
+NzaeHz+uOP+LAzIzIn4cYWkD/ilsra0/QwEycsQa8N+x/Sge0cGEx8M8Xp22
+LSzaiPp59J2dndA+BWHAHRSO40cVbW03DYZzvLuguNi546ifJ9bG1i2H/XKf
+d6xyYJsiRNTOo+/o6Fxb1Jj22g73U6xeDcjm1q1f/DxBLWNGrwfrgzM9a2EV
+djC1FN9nJsFoIySEw6bAv85atPvmTf9rQvBj+iu0WYEqGc59s/kydmwu+Z6R
+BASblloaKW2E8GhgSj75mLat3JuFwAWPFsNzlPBFO3fuKjhKSz3mpnIX/QCw
+tvZ/MtDGBzk69YqvSYkhkhlubbS334SmPbuyWlVpwtrAM7J37jwW6zYF1D5r
+RrmjG8P5ehvZ79S4tXELSgz25OsK7Q9sbeD51LFbbuDmKhSPITlaLwFq7JDp
+16/f4u4aTk9gWVdTcxLc2OiUbWuScOioeR89tEfGp2zsDc3V0ALayJhXwbsL
+xNDS4rnRcLkh1P3EJareRz/n9S97fjUqGeB0dghV2uk6qlcbeLEFsdqIpvfR
+g018bdZ2EUOzCBLA7RfslqSN6Hkf/eXL7WNGr282X+nOQQhcQAxnvD1QWBsi
+W3/R8z7693N0YDSDi0sQCX7owa8NSX30HnriffRHj7ZMmrhJfB2JEDRC2pDW
+R++hJ95H/8brX+7ZcyLo6ATxSHjUHAXvo29sPD91ylaB2SKEECOpGyLi76Of
+O0f7lS6YCSmEIBBfF8VE8H30R5p+fHnKliAiEoIjIt2XwdmUxdk13CErhPAR
+KW1IjdLS8vPYFzaQ5klPEivaWLP6YN7n+8ORGIIQMaENaJiMH1d8/txPYUoP
+gZeYqG8c2H/29dk7w5ceQvQgtdxYtqS2ouKHMCWGEDIkjt/gRZI2HA7niGGr
+ZTk3TU5IG78RojUWdLXmt3lnZRKiB4njN0K1xsKSd/fikc+EqEXq+I2QrLEA
+9eTnR2muXeuR5QsJwSJ1/EZI1lg4derK1i2Hu594Qijp9vgNl/AaC4SYpvvj
+Nxi4aywQ5IbE8RsB1lggyA9p4zeE11ggyBJJ4zeE1lggEAiy5P//n4mX
+    "], {{0, 104}, {
+    180, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{180, 104},
+  PlotRange->{{0, 180}, {0, 104}}]], "Output",
+ ImageSize->{184, 104},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->418176364]
+}, Open  ]],
+
+Cell["Use arbitrary precision arithmetic to improve stability:", "ExampleText",
+ CellID->541676103],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"me", "=", 
+   RowBox[{"SetPrecision", "[", 
+    RowBox[{"0.0005", ",", "20"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"m\[Mu]", "=", 
+   RowBox[{"SetPrecision", "[", 
+    RowBox[{"0.13", ",", "20"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mq", "=", 
+   RowBox[{"SetPrecision", "[", 
+    RowBox[{"1.2", ",", "20"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["me", "2"], ",", 
+     SuperscriptBox["m\[Mu]", "2"], ",", "mq", ",", "mq", ",", "mLQ"}], "]"}],
+    ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "0", ",", "30"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", "0.15"}], ",", "0.15"}], "}"}]}], ",", 
+   RowBox[{"WorkingPrecision", "\[Rule]", "20"}]}], "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1923034106],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {}, 
+   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
+1:eJwdiXk81AkfgKVLhDEM07gyjsqZO8dv+5JaRlkqpZQIHZuQe0TE5IhKjdSU
+ig7F7DDuIXzH6FW0KUdyVG9hOxa5jxR23/f5fJ7P88ejcThop7+4mJhY7L/+
+rxVkVZbjmASY/p8G9HseH2PJWgWib5EorBahhf9jYm2pJCRSDj1586oe22Ve
+Nsk0SkJDNse/XVSPwYI+9/kuSTh6pTLkQ1k9FkhJBvYsSAJ7RMLTkFOP6iUe
+tzMZUqCmGW2ddbgeJRanFiT6pGCibyMvdlaI3dc3CsdI0nCV4VQzbiTEG+1c
+2QhtaTicvYL3F12I+2XWHZqzkoag6ZLNXylCfJuouiDuKw2JZfSiLbOIHwIl
+bRXKpeHIjEUw9wriF4eBSot9MtASRTrl/aIOZ0evFZ3OlQU2bo6b8ajFKj35
+xcVyWZCukui8bV+L0UcuurCaZWElqZfio1+LP3tZw+kTsvDouUqOuVgtxvcL
+KC/pJFAaDlWn5dcgq+XBrg9hJBj/XWaYu/gY0+7HvRRfIwfRJiv73tZVI8Ps
+OJmiKQeTWy5JDHGrUeLJTvd1BnJwsObZURKnGln92r3OdnLwiyzX5XpoNcbQ
+//yUeVwOuo9tg9wN1RiYQ13QqZYDJVF/agynCt2yi/WdPclw+xZnfVqyAEn6
+N4MO+pNBXTZpZEWkAFses0qCgsjgau7zW+YRATJ6927KTCRD5Ct2aP9WAdrT
+Fra84/77qTNprssFaHad4Rn0kwyXXE8kuCZXolJmfyr7ljxosEUXHK5VIFWv
+nDWbJw/Lam7S61IrkCZKijvIl4drVaQUh5gKVBvdEL6uQR5S7c4kRPpUoPb2
+YO/HX+RBfYfGiTD9CjRdNm/Rb6oAA2PdsjVPyvG3MMUBk2YF4B3XGVdaKMPk
+3U6/tE1TIGLwSulMRinSylpo4ksU4bj9mwmnc6VYKL97xlhKEUZdBDYPmaXY
+2ebFv6yuCPHn/fITDpeillsY3c1RETrPi4c+NitF0Y47K15xFCEzy6dufW8J
+zm+banlhqwT3uNWcLKMSDLXKPdSUQIUlzV+WaE7ykZEjM+mcTgVFrzy7kEE+
+0lfGpLRcpQLHmHXhWR8fX3XsKW5/RAX6bm/d8618NAxevfR9CxU8wokc7yI+
+fsmLzBunrQGPpU1vdwXw8YCCy7By6Rr4eUcl0K6zCB1G5qID+2lgtfkZSTDF
+Q6Zjpm79EA32vNGcLf/Mw8Jcgx75aRqEb7a3qevmIXW3t1WVhDKM+n8sGK7l
+4ZDgPzNLDZUhdu926adJPGQnZIRxopThocOqmf00HvZRdAKfSKvAZ0cLgcjx
+Dzxr6+ZD26QKo69mPdnCAnT0uj1uaa8KNTrbfrwvLUCZ+MFE9+2qQPZcp2X2
+sACzG87lZXirwn/jTg/OXShAAaN6cEWqKrgESNt99yzAUQ/NiIluVdD2aivn
+f89Hr/Cp83+eVoPGpyJus00+Whdyys6gOqiZbkhp6XqIAbNj8c+kNcC53C23
+7NID/K5Hem/gTof2O3k+zaH30Jb7R05WliZUDFx696AwF8fIDO89Ii14rdEy
+sBxycCDde0/ISh2gxsueTGy6hU4jkU5/WayDQpLcku0ZN3HIVyK0LG49nLyi
+TwiCOLhNS0k8WbQBhA5tWR1Z15D8Qucif0QXbCnHR/JXZ6FKSpGrhYU+PG1r
+LN56IROv61mR5I8awFSwYHq1MxubaXbmE5cNYcFkSN1V/wpaq4gyjDqNIJWn
+a9Qqdxlllt4N80nYCG0pAvdnGhmodlbddp+OMVj6FoWwjl3EVdoHKnY+NYZl
+9fOsnLp0NCTWFEUeNIFWc71v0W5pGPKe3MAQMwW6VM8vJQOpODKR7u503RTq
+FF4IAwtS8FejxhtOBmZg8/FjUkx6MtZN2PyYaTGDmr/NlS8HJGGgvklPq785
+fLpUXjkUcg6Jb34d+1ZZwHPK888rI1m4VYu6Q/quBSh1njBruZmI6+PPR4ks
+LeF13djD5LYE1PW3Qu0eSyi2ZmrorkhA/7pjrLJTmyCiwvhtwK6ziDkdfmMU
+K5iLLPlafCseJx8tzhhVWoHf9jcH6ofi0Febu+rGDmvwN1J51Np4Bsd02RYl
+o9YwyWhdduxGLAru//g4lWID2eb3OG2XY3C/gybYqNlCYUhOs2X2aVQ+mVxl
+KLSF7M5ekMmJRopkQPGOvQQEq704Y13PxPtbYqNH9xHwye9o2qlaJprEXtzC
+PkCA1JPOiPwqJrqM8l93+RDwu4fqV+USJiZ1Tn33DSBgDXJNpe4xcfZunH30
+WQIidS215M8xsceG3Z7HJYCfOMRudGLisfD72U6FBLw81T5F3cbE6cJy/yE+
+AU3tKw0D7JlIpnfNGFcQcGbeZS3FhonOEqoqtUICPD8pLj+lz8Sajjy/9tcE
+dFn2XXWVZSJDRmAQ0UVA4EkuwZdiYtevTdPUXgIqxfIqSRJMnKweTPH6QICw
+Vk+jQ4yJBrkbeV//JuBs2pEGv/EorOmxi0gfJmB6Km+q+VsUMhR2bTYaJaCV
+oTBrPBiFR5LDW8OmCIjzCA8QH4jCSWHSDaVZAmzpX9+d+BCFCXPXfKvnCFCd
+TVXrfBuFJLN8/YPzBAyupRradUfh7ZPVU4uLBDj93LWa9zoK/wEtGdGs
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 0},
+  Method->{},
+  PlotRange->{{0, 30}, {-0.15, 0.15}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{
+    Scaled[0.02], Automatic}]], "Output",
+ ImageSize->{184, 104},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->958017147]
+}, Open  ]],
+
+Cell[TextData[{
+ "Alternatively, obtain an asymptotic approximation with ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1349021908],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Clear", "[", 
+   RowBox[{"me", ",", "m\[Mu]", ",", "mq"}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"approx", "[", 
+   RowBox[{"me_", ",", "m\[Mu]_", ",", "mq_", ",", "mLQ_"}], "]"}], "=", 
+  RowBox[{
+   RowBox[{"LoopRefineSeries", "[", 
+    RowBox[{
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", 
+       SuperscriptBox["me", "2"], ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", "mq", ",", "mq", ",", "mLQ"}], 
+      "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"me", ",", "0", ",", "2"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"m\[Mu]", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", 
+   "Normal"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"me", "=", "0.0005"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"m\[Mu]", "=", "0.135"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"mq", "=", "1.2"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"approx", "[", 
+    RowBox[{"me", ",", "m\[Mu]", ",", "mq", ",", "mLQ"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "0", ",", "30"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", "0.15"}], ",", "0.15"}], "}"}]}]}], "]"}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1339126599],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{
+    SuperscriptBox["mLQ", "2"], "-", 
+    SuperscriptBox["mq", "2"]}]], "-", 
+  FractionBox[
+   RowBox[{
+    SuperscriptBox["mLQ", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["mLQ", "2"], 
+      SuperscriptBox["mq", "2"]], "]"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["mLQ", "2"], "-", 
+      SuperscriptBox["mq", "2"]}], ")"}], "2"]], "+", 
+  RowBox[{
+   SuperscriptBox["me", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"5", " ", 
+        SuperscriptBox["mLQ", "2"]}], "+", 
+       SuperscriptBox["mq", "2"]}], 
+      RowBox[{"4", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], "-", 
+          SuperscriptBox["mq", "2"]}], ")"}], "3"]}]], "-", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["mLQ", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["mLQ", "2"], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["mq", "2"]}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["mLQ", "2"], 
+         SuperscriptBox["mq", "2"]], "]"}]}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], "-", 
+          SuperscriptBox["mq", "2"]}], ")"}], "4"]}]]}], ")"}]}], "+", 
+  RowBox[{
+   SuperscriptBox["m\[Mu]", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       RowBox[{"5", " ", 
+        SuperscriptBox["mLQ", "2"]}], "+", 
+       SuperscriptBox["mq", "2"]}], 
+      RowBox[{"4", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], "-", 
+          SuperscriptBox["mq", "2"]}], ")"}], "3"]}]], "-", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["mLQ", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["mLQ", "2"], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["mq", "2"]}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["mLQ", "2"], 
+         SuperscriptBox["mq", "2"]], "]"}]}], 
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], "-", 
+          SuperscriptBox["mq", "2"]}], ")"}], "4"]}]], "+", 
+     RowBox[{
+      SuperscriptBox["me", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          RowBox[{"10", " ", 
+           SuperscriptBox["mLQ", "4"]}], "+", 
+          RowBox[{"19", " ", 
+           SuperscriptBox["mLQ", "2"], " ", 
+           SuperscriptBox["mq", "2"]}], "+", 
+          SuperscriptBox["mq", "4"]}], 
+         RowBox[{"9", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["mLQ", "2"], "-", 
+             SuperscriptBox["mq", "2"]}], ")"}], "5"]}]], "-", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["mLQ", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["mLQ", "4"], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["mLQ", "2"], " ", 
+             SuperscriptBox["mq", "2"]}], "+", 
+            RowBox[{"3", " ", 
+             SuperscriptBox["mq", "4"]}]}], ")"}], " ", 
+          RowBox[{"Log", "[", 
+           FractionBox[
+            SuperscriptBox["mLQ", "2"], 
+            SuperscriptBox["mq", "2"]], "]"}]}], 
+         RowBox[{"3", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["mLQ", "2"], "-", 
+             SuperscriptBox["mq", "2"]}], ")"}], "6"]}]]}], ")"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{534, 187},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1115846571],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {}, 
+   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
+1:eJwdxQk41AkfwHFRzlyDMYbJIipHcuT+b78UMdLmChUpaat1JcWInLmyIpKj
+g0I1GsbZGPFDlthIiUSspbfXRrnv6z2+z/N5vkpn/Oy9eHl4eML+63+f5ra2
++E4Jgt7/e4Vn/4wINYwRgpyHvV6D3EY08KohfioXBicDMWK6swG7xN62ijUL
+w4q7bsn3xgb05ww7rfUKwwnT/N+XKxqQKSLs27cuDEqlH+WsshpQsczlQTpd
+BPQufLQoOdOAghtz64LDIsDzddTzzmI9fsrcUz8lIQqJMnMignvqMburSPyq
+qigEuC10LyvX43GxHaeWjUXBn8/cfF2mHj9H09Z5PUWhyKxNwWcRcchX2Ey6
+UhTcndaqum4jjh788sLAVQxcJdnxse11uDh5t+RanjhsdQh7Iudai9UaUhsb
+leLg8rnjVb15LYacSz4S0yYOgV1PW6M0a3G1P+Z70ow4fG279PcxnlqMGOHI
+vFWWgHpuWqTJs5cY01HgMBQoAcOT+YVtGzV4Mz/8La+cJMzvt8herOMiXf8C
+SUZFElzCW9IFnnNRsMneaYeWJNAnHF5rZHExZkS132a/JDTrjriUX+ZiqPKb
+r+kXJEH66EBezS4u+uZS1tW4ksCnmf3sTlY12t0r1bQ5QYJDjsureXEclNDM
+8XPzIsEZscg8WhAHO2piyvz8SGDkYPQX8xwH6f3ORunRJEg+/BWXLDhoTl0/
+MFBEAodYM8dzWzion0k/4bdKAiFZ4SNecS9QNn0kIe2+FPDwmyc6361CikZl
+zGKhFKwOvNjyLqEKqY2x4W5sKfBkzdo5h1bhtsldV3a8koI7g5eoiaerUPWw
+v0fNqBQId6rnxWpWod7mNYMRPWlwIucmtDdV4i+B5C+6bdJg1x0jvnO9AuMc
+rX9+Py8DTWMFjC2p5Uit6KDybiKDccb9J843yrFYynFBR4QMlP6jAxWMcux5
+785OVSRDkvGaWsqZctxuF6hsZ0WGoSg+5mv9cmy0fcjfmUWGbwMPfPb2l+Ga
+5VxHu5kshE9n2j7SLsPLxnmnWqMosDS4vllrlo30XLFZmyQKPK1wMQ4dY6Oy
+QGh8xx0KnNg/wng/zMbOD8dKu55SoLbVmif9HRt3+2/lG+ygQMbFVeuLJWwc
+LQwqnKbKQXk5TcfNm40npY98ly+XA+cagY/2PSV4cGI5xHeECjt8Ww61zLGQ
+YZWu3jBOBe+Lnop//JuFxXlafVLzVIj90WPf/omFFEcP42pBefht0u3xai0L
+xzl/LPDtlgfxzJuvu2NZmBaVEpgVLA9Hf75ueoHKwmEZNd8mUQX4SYKf1mn1
+HCPN7E5TjWgwmuCk97CeiVbuD6YNzWlw2NSw+Vs5E8UixqKdDtOgwrV2eN8T
+Jt57daMwxYMGJmlJqfzJTOTQuWP8CTQ40NZTtfkkEyddVK7OfKJBq896e83S
+M3S/Mpf45to2+GfpvVS36TM0Kc6quI6KsEarfvGx9wl6L05FvBZVgltNSas1
+twpwSUNiUMtJGVzIevs6Lz9Gs6LnuRkZKtABJg+ZxXk4RaJ7HGvcDg1hqb1C
+kItfkjyOBQiogQ93dDah9T5aTwRZ/8tgB7gsrUTbpeTguKfg5YrwnZDsJjDw
+0i8LLbfL8sY17gL/rbLRvRl3kdSulsyeUAeykoU9a2sGKsSXHDUw0ISEW7FZ
+Vr+nY6aGsYTUr1rQZjl+XdwmDduo+/fOpO6GhmNyrvaat9FEoTFFu0cbCron
+FLskU1GM71Hg6ag9QA5QF21TSsFtkYpmrmo6UGfyMCjufDIKqZ6ssm/RgdDj
++jqP65JwNyFXEuSmC8UtS/ZhdjcxYJD0is6jB3I70zwqviTgxEySk3WmHlRE
+UJ/7M+PxkHZztrWWPngEHD9wPSkO62ZMVxY69EGaQS667R2Lvpq6fe+89oLm
+xRXlHwE3kPhx9oOrkAHMDovuEQqKQYvtFFvRRwawMtp06m1ONO6MSAxuNDQE
+Lp2PG/8+CtW9jFG1zxA6+qnyGvxR6FV3PqbikhEsbrra4OMQiZj74eyUjDEI
+GRnWlN2PwNmnGwvaL4yh02jvQON4OHqqFgll25qAycXjIl3N13FKPc2gbNIE
+Zoxv21zIDkNO/srfc/GmIOBy8nVXaigeP6gCptvMYJ/l9xGje9dQ3ieuene9
+GbiTRSzEc0NQRti71NaZgGRHiUumDQzMPxAWMulKAJ+ue1hALQN1w5IPpJ0k
+oMwy8jyzmoFHJtndvacJuJ2n3adQxsDYnrklT28Cftl0S2XrYwYuPgo3D4kk
+wIi3UVL6BgP7TNO6CosIeFPyObTFmoHnr+Tfsy4mIOBbyKCcJQPniyu9xtkE
+VFWeI/uYM5Ck3LugU0WAiCBNkGzKQBtBmkJtPQHzmU1jlzQZ+PJD4dmubgIa
+EhxD7MQZSBfjaF3tJaDgXY9SqQgDew+1zlP6CdiVlpgjKcjAWe5YvPsQAVo8
+0Zu7eRiolbeH9c83Au6G5Bd4TQfjy779V5O+E2DY/eDjnz+CkS7tsE97kgDc
+2/xJdywYz8VdeRc4R4AMK8eW70swztbHZssuElD6obXOeygYo5bvenKXCXip
+orrR8zkYJfSfabqtEbAw5CNm/ikYH/hw5zY2CJj67ew4qzsY/wPNPs+M
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 0},
+  Method->{},
+  PlotRange->{{0, 30}, {-0.15, 0.15}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{
+    Scaled[0.02], Automatic}]], "Output",
+ ImageSize->{184, 104},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->58629546]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Neat Examples",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->589267740],
+
+Cell["\<\
+Explore the anomalous threshold in the three point scalar function.\
+\>", "ExampleText",
+ CellID->1787478942],
+
+Cell[BoxData[
+ RowBox[{"Manipulate", "[", 
+  RowBox[{
+   RowBox[{"Plot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Re", "[", 
+        RowBox[{"ScalarC0", "[", 
+         RowBox[{"qSq", ",", 
+          SuperscriptBox["mD", "2"], ",", 
+          SuperscriptBox["mD", "2"], ",", "mN", ",", "mN", ",", "mN"}], "]"}],
+         "]"}], ",", 
+       RowBox[{"Im", "[", 
+        RowBox[{"ScalarC0", "[", 
+         RowBox[{"qSq", ",", 
+          SuperscriptBox["mD", "2"], ",", 
+          SuperscriptBox["mD", "2"], ",", "mN", ",", "mN", ",", "mN"}], "]"}],
+         "]"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"qSq", ",", 
+       RowBox[{"-", ".05"}], ",", "5"}], "}"}], ",", 
+     RowBox[{"PlotRange", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "20"}], ",", "12"}], "}"}]}], ",", "\[IndentingNewLine]", 
+     RowBox[{"Epilog", "\[Rule]", 
+      RowBox[{"{", "\[IndentingNewLine]", 
+       RowBox[{
+        RowBox[{"Text", "[", 
+         RowBox[{"\"\<anomalous\\nthreshold\>\"", ",", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["mD", "2"], 
+             RowBox[{"(", 
+              RowBox[{"4", "-", 
+               RowBox[{
+                SuperscriptBox["mD", "2"], "/", 
+                SuperscriptBox["mN", "2"]}]}], ")"}]}], ",", "6"}], "}"}]}], 
+         "]"}], ",", 
+        RowBox[{"Arrow", "[", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{
+              SuperscriptBox["mD", "2"], 
+              RowBox[{"(", 
+               RowBox[{"4", "-", 
+                RowBox[{
+                 SuperscriptBox["mD", "2"], "/", 
+                 SuperscriptBox["mN", "2"]}]}], ")"}]}], ",", "4"}], "}"}], 
+           ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{
+              SuperscriptBox["mD", "2"], 
+              RowBox[{"(", 
+               RowBox[{"4", "-", 
+                RowBox[{
+                 SuperscriptBox["mD", "2"], "/", 
+                 SuperscriptBox["mN", "2"]}]}], ")"}]}], ",", ".2"}], "}"}]}],
+           "}"}], "]"}], ",", "\[IndentingNewLine]", 
+        RowBox[{"Text", "[", 
+         RowBox[{"\"\<normal\\nthreshold\>\"", ",", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["mN", "2"]}], ",", 
+            RowBox[{"-", "12"}]}], "}"}]}], "]"}], ",", 
+        RowBox[{"Arrow", "[", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["mN", "2"]}], ",", 
+             RowBox[{"-", "10"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["mN", "2"]}], ",", 
+             RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}]}], 
+       "\[IndentingNewLine]", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"mD", ",", "1.83"}], "}"}], ",", ".1", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"mN", ",", ".95"}], "}"}], ",", ".8", ",", "1.0"}], "}"}]}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->943955551]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["C0Expand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/C0Expand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ScalarD0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->425540649],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->941143233],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "ScalarC0 - Wolfram Mathematica", "ScalarC0"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 11.232086}", 
+    "history" -> {"1.0", "2.0", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "ScalarC0[s_1, s_12, s_2, m_0, m_1, m_2] gives the scalar \
+Passarino-Veltman three-point function C_0 (s_1, s_12, s_2; m_0, m_1, m_2) \
+for real external invariants s_1, s_12, s_2, and real positive masses m_0, \
+m_1, m_2.", "synonyms" -> {}, "title" -> "ScalarC0", "titlemodifier" -> "", 
+    "windowtitle" -> "ScalarC0", "type" -> "Symbol", "uri" -> 
+    "X/ref/ScalarC0"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/ScalarC0IR6.nb b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarC0IR6.nb
new file mode 100644
index 0000000000000000000000000000000000000000..9acb831ae064da83e60262752d87eefc3ecb7acc
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarC0IR6.nb
@@ -0,0 +1,1949 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"C0Expand\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/C0Expand"], "\<\"ScalarC0\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/ScalarC0"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/ScalarC0IR6\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/ScalarC0IR6"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/ScalarC0IR6.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/ScalarC0IR6", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["ScalarC0IR6", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["ScalarC0IR6",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/ScalarC0IR6"], "[", 
+       RowBox[{
+        StyleBox["s", "TI"], ",", " ", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]], ",", " ", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the finite part of Ellis-Zanderighi IR-divergent \
+triangle 6, ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubsuperscriptBox["I", "C6", "fin"], "(", 
+        RowBox[{
+         RowBox[{"s", ";", 
+          SubscriptBox["m", "0"]}], ",", 
+         SubscriptBox["m", "1"]}], ")"}], TraditionalForm]], "InlineMath"],
+     " for real ",
+     Cell[BoxData[
+      StyleBox["s", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " and positive ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["m", "TI"], 
+       StyleBox["0", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " and ",
+     Cell[BoxData[
+      SubscriptBox[
+       StyleBox["m", "TI"], 
+       StyleBox["1", "TR"]]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details and Options"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1505022493],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Mathematical function, suitable for numerical evaluation.  For rapid \
+machine precision evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0IR6",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses code that is compiled to the ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " (triggered after first numerical evaluation).  For arbitrary precision \
+evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0IR6",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses Wolfram Language code."
+}], "Notes",
+ CellID->1067943069],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarC0IR6",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0IR6"], "[", 
+   RowBox[{
+    StyleBox["s", "TI"], ",", " ", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", " ", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to maintain compact expressions.  Applying ",
+ Cell[BoxData[
+  ButtonBox["C0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/C0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", or setting option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ExplicitC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefine#1875237305"], "\[Rule]", 
+   ButtonBox["All",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/All"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will replace ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0IR6",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit form."
+}], "Notes",
+ CellID->887870138],
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubsuperscriptBox["I", "C6", "fin"], "(", 
+     RowBox[{
+      RowBox[{"s", ";", 
+       SubscriptBox["m", "0"]}], ",", 
+      SubscriptBox["m", "1"]}], ")"}], "=", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", "2"]}], 
+     RowBox[{
+      UnderscriptBox["lim", 
+       RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
+        SuperscriptBox["0", "+"]}],
+       LimitsPositioning->False], 
+      RowBox[{
+       StyleBox[
+        SubsuperscriptBox["\[Integral]", "0", "1"],
+        ScriptLevel->0], 
+       RowBox[{
+        RowBox[{"\[DifferentialD]", "z"}], 
+        FractionBox[
+         RowBox[{
+          RowBox[{"ln", "(", 
+           RowBox[{
+            RowBox[{"s", " ", 
+             SuperscriptBox["z", "2"]}], "+", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"-", "s"}], "+", 
+               SubsuperscriptBox["m", "1", "2"], "-", 
+               SubsuperscriptBox["m", "0", "2"]}], ")"}], "z"}], "+", 
+            SubsuperscriptBox["m", "0", "2"], "-", 
+            RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], ")"}], "-", 
+          RowBox[{"ln", "(", 
+           RowBox[{
+            SubscriptBox["m", "0"], 
+            SubscriptBox["m", "2"]}], ")"}]}], 
+         RowBox[{
+          RowBox[{"s", " ", 
+           SuperscriptBox["z", "2"]}], "+", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "s"}], "+", 
+             SubsuperscriptBox["m", "1", "2"], "-", 
+             SubsuperscriptBox["m", "0", "2"]}], ")"}], "z"}], "+", 
+          SubsuperscriptBox["m", "0", "2"], "-", 
+          RowBox[{"i", " ", "\[CurlyEpsilon]"}]}]]}]}]}]}]}], 
+   TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->92607186],
+
+Cell[TextData[{
+ "In terms of ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["I", "6", "fin"], "(", 
+    RowBox[{"s", ",", 
+     SubscriptBox["m", "0"], ",", 
+     SubscriptBox["m", "1"]}], ")"}], TraditionalForm]], "InlineMath"],
+ ", the full Ellis-Zanderighi IR-divergent triangle 6 is ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SubscriptBox["C", "0"], "(", 
+     RowBox[{"s", ",", 
+      SubsuperscriptBox["m", "1", "2"], ",", 
+      RowBox[{
+       SubsuperscriptBox["m", "0", "2"], ";", 
+       SubscriptBox["m", "0"]}], ",", 
+      SubscriptBox["m", "1"], ",", "0"}], ")"}], "=", 
+    RowBox[{
+     RowBox[{
+      FractionBox[
+       RowBox[{"s", " ", 
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{"s", ",", " ", 
+          SubscriptBox["m", "0"], ",", " ", 
+          SubscriptBox["m", "1"]}], ")"}]}], 
+       RowBox[{"\[Lambda]", "(", 
+        RowBox[{"s", ",", " ", 
+         SubsuperscriptBox["m", "0", "2"], ",", " ", 
+         SubsuperscriptBox["m", "1", "2"]}], ")"}]], 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox["1", "\[Epsilon]"], "+", 
+        RowBox[{"ln", "(", 
+         FractionBox[
+          SuperscriptBox["\[Mu]", "2"], 
+          RowBox[{
+           SubscriptBox["m", "0"], 
+           SubscriptBox["m", "1"]}]], ")"}]}], ")"}]}], "+", 
+     RowBox[{
+      SubsuperscriptBox["I", "C6", "fin"], "(", 
+      RowBox[{
+       RowBox[{"s", ";", 
+        SubscriptBox["m", "0"]}], ",", 
+       SubscriptBox["m", "1"]}], ")"}]}]}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->976976076],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarC0IR6",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0IR6"], "[", 
+   RowBox[{
+    StyleBox["s", "TI"], ",", " ", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", " ", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has a branch cut discontinuity in the complex ",
+ Cell[BoxData[
+  FormBox["s", TraditionalForm]], "InlineMath"],
+ " plane running from ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", "=", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["m", "0"], "+", 
+       SubscriptBox["m", "1"]}], ")"}], "2"]}], TraditionalForm]], 
+  "InlineMath"],
+ " to ",
+ Cell[BoxData[
+  FormBox["\[Infinity]", TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1296296236],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarC0IR6",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0IR6"], "[", 
+   RowBox[{
+    StyleBox["s", "TI"], ",", " ", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", " ", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is symmetric with respect to the interchange ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["m", "0"], "\[LongLeftRightArrow]", 
+    SubscriptBox["m", "1"]}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->705718079]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(8)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1850645485],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1793006894],
+
+Cell[TextData[{
+ "Generate ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0IR6",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " by reduction of a Passarino-Veltman C function:"
+}], "ExampleText",
+ CellID->1611918755],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVC", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "s", ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", "m", ",", "m", ",", "0"}], "]"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1658129313],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     RowBox[{"DiscB", "[", 
+      RowBox[{"s", ",", "m", ",", "m"}], "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox["1", "\[Epsilon]"], "+", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], 
+         SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], 
+    RowBox[{
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}], "-", "s"}]]}], "+", 
+  RowBox[{"ScalarC0IR6", "[", 
+   RowBox[{"s", ",", "m", ",", "m"}], "]"}]}]], "Output",
+ ImageSize->{351, 47},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1475203893]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["C0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/C0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain an analytic expression in terms of logarithms:"
+}], "ExampleText",
+ CellID->1697358398],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarC0IR6", "[", 
+   RowBox[{"s", ",", "m", ",", "m"}], "]"}], "//", "C0Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->578545870],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    SuperscriptBox["\[Pi]", "2"], 
+    RowBox[{"6", " ", 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]]}], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"DiscB", "[", 
+     RowBox[{"s", ",", "m", ",", "m"}], "]"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "4"]}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", 
+        RowBox[{"(", 
+         RowBox[{"s", "+", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], ")"}]}]}], 
+      
+      RowBox[{"2", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], "2"]}]], "]"}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "4"}], " ", 
+       SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], "-", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"PolyLog", "[", 
+     RowBox[{"2", ",", 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         SuperscriptBox["m", "2"]}], "+", "s", "-", 
+        SqrtBox[
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"]}]]}], "]"}]}], 
+   SqrtBox[
+    RowBox[{"s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]]}]], "Output",
+ ImageSize->{404, 153},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1488823096]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1868951738],
+
+Cell["Evaluate numerically:", "ExampleText",
+ CellID->116021054],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0IR6", "[", 
+  RowBox[{"5.0", ",", "1.7", ",", "2.5"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1763511102],
+
+Cell[BoxData[
+ RowBox[{"0.032223405321024516`", "\[VeryThinSpace]", "+", 
+  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{107, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->310283223]
+}, Open  ]],
+
+Cell["\<\
+The precision of the output tracks the precision of the input:\
+\>", "ExampleText",
+ CellID->1015353154],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0IR6", "[", 
+  RowBox[{"5`20", ",", "1.7`20", ",", "2.5`20"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->87221091],
+
+Cell[BoxData["0.032223405321024630574129811576767150421128810888059774917`20.\
+992526870856917"], "Output",
+ ImageSize->{177, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1144724845]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->345651682],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   RowBox[{"ScalarC0IR6", "[", 
+    RowBox[{"s", ",", "m", ",", "m"}], "]"}], ",", "s"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->993837828],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{"s", " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "4"}], " ", 
+       SuperscriptBox["m", "2"]}], "+", "s"}]]}], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+    RowBox[{"ScalarC0IR6", "[", 
+     RowBox[{"s", ",", "m", ",", "m"}], "]"}]}]}], 
+  RowBox[{"s", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], "Output",
+ ImageSize->{301, 47},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->308870027]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1238342802],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"Re", "[", 
+    RowBox[{"ScalarC0IR6", "[", 
+     RowBox[{"s", ",", "1.5", ",", "2.5"}], "]"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", 
+     RowBox[{"-", "10"}], ",", "50"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", "4"}], ",", "4"}], "}"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1563450137],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztne1XE1cawOfs7of9F/bDnj37Yb/07Mk/sMfaqLW+tKaW4kvFl4Km1WKJ
+2HZNa9Wmr7FqG7WnQcUoGBADYgQbFAISq8aXaInigEbBl6wy6KhDYZQo2Wcy
+yeQFkCS83LvL8zvKSQa480zub+69zzBz79+z897S/oFhmNV/hi9vvftvdX7+
+u/qMP8GbSfqPlmX/EV58Av+r4b/0OoggCEIPvFvDMGavQDoOhDYEC5gBbnjQ
+DSQOn1XLaAw6FWP08KRjQWiCczCM2iuKVjW4ge0GosCZVIzK6OJ5r55hdDav
+GPkGE4FUZMeOXrXsPv/gQTepAMY7olerUqnVKlXEBCsbbjqIp8z5q6rnzinx
++e6TDQMBS8yquD6FuBsrc+3z0A0qEMANE01urFh+aP5cdINGiLuxLKdi/rxS
+dINCiLuxZLHtnfnoBo2QTVKAhQvKFryzH92gEOLtxtxMaxa6QSXE3ciYXQxN
+B7pBIcTdmDndsigL3aAR4m5Mm1q4eOEBdINCiLsxcULBkkXoBo2QdaO399mk
+V3ZCGotuUAjZHLa7++mMaRZ0g07Iths83zNbU4Ru0AlZN/7jfzw304pu0AlZ
+N27ceABioBt0QtYN9krH+9pKdINOyLpxweNflVeFbtAJ2Tzl5Ml2/ZoadINO
+yLYbtbXXvjQ40Q06IetGZWXz5k0udIM8AVEQhED8NrJulFgvFpjPoBtkYa1a
+0CB0n7na5o0+u0TWjR0FZ/YVX0Q3yMKxXn/ooRSXgWH0TmU7WTe2bDphP9SM
+blACa1YzGmvss0sEg9mwvrah/jq6QQUBFroWnaNd2UD2ubZVeVUXPH50gzwi
+q4PRhtEVOxwl225kL5GsQDdI44eBRpbFm7CVrBuz3yy+f78b3SCL16yBMahP
+EAWe5wVluEHSjb6+vokTCuArukGU8KwsYdRm5aFHgm50dv6eMbs4GHp8Cd2g
+EIJuNDdLf4QNohu0QjBJqau7tv7z2iC6QSsE2419xdIF8yC6QSsE3fj2m4Yj
+1WwQ3aAVgm68pz14+fK9ILpBK6TcgNR12tTCnp7eILpBK6TcuO57sHBBmfwa
+3aATUm7YDzV/b2yUX6MbdEIqh1239tixo1fl1+gGnRARIxB4PnO65dGj8KV7
+dINOiLhxvOH6yly78hbdoBMibuSusDt+aVXeoht0MvZuXGnumPO2FboVZQu6
+QSdj7EZfX592aUVNTWvsRnSDTsY4T9m29eSqvCowJHYjukEnYylGxuxi+Kek
+JwroBp2MjRvd3b1rPzs6cUJBb++z/t9FN+hktN0AGQ5VNkNz8f3Gxu7upwP+
+DLpBJ6PkxrNnzy9c8P/4w6+zXt/7qb6mpYV7wQ+jGyPCiFflSBUIMty69dDV
+eAMK/Gj1kemv7X5fW7mv+GJHR9eQvzukG9QeNVUFJvxK/xJG6Qcgs+jqenr3
+rgBvPefv1Dt95bZLO3ec/fabBtjyzvzSVyfvgq+f6Y/CW/fpm4LwJKU9xrqR
+asxj9iEQ3OMLYJBxTJKSBEOLSizKkv5BU/zuYltOdrl2aYV22cHl71XmrrDn
+fmDPW3l4VV7Vx6uPfPLxL/o1NevWHlu/rtbwhRPO8Y3Gxs2bXDAM+Gn76R0F
+Zwp3nYNdl5b8Bo3A4cNXahytDfXXfz3Rdu7c7Uveu1dbO2/ffnT/frd8B87o
+geONWGD0DmldbMNLipS0HCX+F90IBJ5D9XXc62pv41mWu3jR73bfgjPL8Usr
+5GVl+5uK9np27Ty7fdupLZtOfPdNA5yb0OHCCavLq1qx/NCynAppUaF5pZkZ
+1jdnFb0+Y8/UKYWTXtnxyssF0DvDaO21VwtJHyK6EQXqGtrJy5fvnTp5E5rQ
+A2VeaFdNP/z69Zf10PyuzLUvzamYN6cEMi+oPvXEHTOnW+a8bYVmHCoavgut
+NDTRX39Vv2Xzie1bT0GzXFx0YX9pU+XBy0eq2bq6azBQh5EYpG9e713Q6caN
+B7dvPYIhHLTMsGtonGP/xkQD48oN+PyhRqCCDtuvQL0bvzsOFQqd8ttv7YNz
+dsY0y4L5+yG9go3Q/241nbTsPl9Rfgk8OeFqg5bh6tXOO3ceP3zYM+AVPPoQ
+eT5xmqaUGD03BJ4Xk4tsADcGmn5KFHghyRKDwefP+9raeGjk91g8Xxqc2pyS
+GdMKpkzetXjhAUixYdwF28vL3LUNvpYWrrPz95E5Z0MhjkA5MSUmU7/tTpNa
+mpJJ4448yxrwu8IPuar0bLoRDd8Nsd2pDUVmii5z7zdFIrP7hl7fPMGNgaaf
+CrgiJertvsHKaW9/WF3Ffm9shEYemn1o7aGRh07/55WT4Rdfekkq0NEuJl/g
+UHBmDaMxh6cm8LtMkdqwp76mu2DNUvKScBUnX79+j8vlsqoYdcQN0aJmNBbp
+2R+XQcUYXCmHEyLVLKk/ot/jdLn0DGOMuMFaNPLUQJw0gZTxRZdEQyS40X/6
+KZG1MEwWC+cP51QxKld0ujJptnzozTesr9W8sRd6hK8MzsrK5ivNHU+eRM82
+kefkc88JURrcLy4webyh58/VZk9oH154Y5GqkDPCTlxDHnQC0rq9Ojsr8BzH
+8aGjT7F+Ax614oYovfbIpXjBWEOq0ciMUJ8iL1ctf8SCSVm6Wgpy6E9+sPGG
+Mv2UF5pMo0fZkd7FdXU9tR9qhhEgjPANG+pgSAD9wpBR2rVMlk1qJfoXmPyh
+ygR8VrDLqFOpQ+UIUhWY5JqBwqHEFMsTYj5AOa4U61dMdCP82u9gou1JaoyQ
+G7IPfL/X/tj2ZDAGdiNm+ilPtCoDpR8wf5nxM+QIoMTpUzeTGyeIDpNOI/VS
+Bn/ofWyB0JiojO4kjzOCdFwmVvBZNKp+bvil5smUYlMkmOX+Q61z+JTTaqD6
+FXl/LFxkP4O5wTmpciPmFJAmCzK6U3cjfvopuSo7OrogQ/zXP5i/zt3z+HFK
+A6yAn/W6HFIfII8uYtwIpuGG2wgdkamd5+wQpc7GiYFYN7h03JCumIgC57LA
+CaH1BQatX9Hn0Gl1+jA6ndERGWJQ26cIiX2KV5GfcQ4VWT83EqefOv+j6m/Z
+ZZPVOy27Xdv+CWOQ9I41yDmgLo285IZKZfIokadYoGCFwbdapVKFx45aKyt4
+TGBLTJ/iHKKMwQiwILDNJ6Zcv7w71H3LJ5MAYxVtqPd0G9MPZoTc4E2q6ABM
+mj9Ka5MGem5jMtImuJEw/RQ0Ee/PW84wb5y6+TjIu+ATSFUNKCj0GQekQV2W
+FJjoNcMJL52eaRUYDVVpf0JjUZtUImdKWbZQcKFaFX02JjxCS6F+veZokiNn
+iwG/MzJR07By2GHqIUifcyT7kk/GgB+ORs6+bGyqOWz89FMvb39DU7Rl8/GG
+b8NbdTY21QihB4kkxRp7OJ6Ay5h+gQrghjrc/sAwwxg+Zl06OawUYyhEncUt
+n/zDrd+AEEl50mTUrn0FIBtL8qrcYHlKT0/vxAkFH+Yelt9CfpfudT7oyvn+
+H9QwChxkN9Je0hr2hUKE9DXxytmw63c4UHvNHBKQnOzy7CU2IiEhQYrdKDCf
+yddVE4kHkaHTjbY2ftbrex8+7CEVEhKk1Y2PVx85WHGZVDyIDIVutLRwmRnW
+Z8/ouplhHDL8HHb4JLjx2adHy/Y3EYwHkSEuRjDeDUF4MnVK4WBPOSGjBX3r
+tcnEulFdxa5fV0s2nvEGneu1ycS6oV9T46xL+2YbJB3oXK9NRnEjEHg+/bXd
+XV3YoZCBqvXaZBQ3mpruyisjIASgbL02GcUN676LP20/TTCS8QDPxd0cFP5r
+DX3rtckobny+9lhD/XXS4fx/IzqM+ui9QVpd6GZvGtdrk1HcyMyw3rnzmHQ4
+4w4K12tTkN3o6emdNrUwYSowZPShcb02BdkNluWW5VSQjgWJQo8btbXXDBvq
+SMeCRKHHjb17pAfPSceCRCGewAYjbmw0NlYdTv/WTWTEIS5GMOJG/qrqc2dv
+k44FiUKPG4sXHmhrS+vBVGR0oMeNmdMtNExkhChQ4kYLy02ZtJN0IEgclLgB
+I43MDCvpQJA4KMlT6p2+pXjhizKIixEMuWG3N6/OP0I6ECQOStwoLfltw3q8
+FZAuKHGjcNfZzZvSnJYKGSUocWPb1lPmn1OdPAcZXShxY6OxsbjoAulAkDgo
+ceOLDXXl5ZdIB4LEQUkO++mamhpH69A/iowhxMUIhtzI11U3Hr9BOhAkDkrc
++GB55dkz+EdYovBuDcOYvdF5hyhxY2lOeVPTXdKBjGfCd42aPdS5sSir7Gpr
+J+lAxi8+q5bRGHTxcyNT4sbczJJ2vHmDFJw077FXFK3qyGTjISh5rm22puje
+vaFXhESGT7/n2qQJUVVGF8979dKMml5S0xIipOn3XFvzaa1KpVYrsywz1iSm
+hEXGGfJiFigG0h9pancTuoEgCIIg457/AoVQqj4=
+    "], {{0, 118}, {180, 0}}, {0, 
+    255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{180, 118},
+  PlotRange->{{0, 180}, {0, 118}}]], "Output",
+ ImageSize->{184, 118},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2066327086]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[TextData[{
+ "By default, the code for ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0IR6",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is compiled to ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " at initialization.  If approprate libraries are available, numerical \
+evaluation can be made to go faster by compiling to C."
+}], "ExampleText",
+ CellID->308658232],
+
+Cell[TextData[{
+ "Quit the kernel to clear ",
+ StyleBox["X`", "InlineCode"],
+ " definitions:"
+}], "ExampleText",
+ CellID->1348549334],
+
+Cell[BoxData["Quit"], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1492990344],
+
+Cell[TextData[{
+ "Set the compilation target to C before reinitializing ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "ExampleText",
+ CellID->1459337677],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"$CompilationTarget", "=", "\"\<C\>\""}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"<<", "X`"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->129719287],
+
+Cell[BoxData["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"Package-X v2.1.0, by \
+Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
+TagBox[ButtonBox[PaneSelectorBox[List[Rule[False, \\\"\\\\\\\"guide\\\\\\\"\\\
+\"], Rule[True, StyleBox[\\\"\\\\\\\"guide\\\\\\\"\\\", \
+List[\\\"HyperlinkActive\\\"]]]], Dynamic[CurrentValue[\\\"MouseOver\\\"]], \
+Rule[BaseStyle, List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], \
+Rule[ImageSize, Automatic]], Rule[BaseStyle, \\\"Link\\\"], Rule[ButtonData, \
+\\\"paclet:X/guide/PackageX\\\"], Rule[ButtonNote, \
+\\\"paclet:X/guide/PackageX\\\"]], Function[Annotation[Slot[1], \
+\\\"paclet:X/guide/PackageX\\\", \\\"Hyperlink\\\"]]]], \
+\\\"RowDefault\\\"]\\)\"\>"], "Print",
+ CellLabel->"During evaluation of In[8]:=",
+ CellID->1495453599]
+}, Open  ]],
+
+Cell[TextData[{
+ "If no errors were reported, ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0IR6",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is now evaluated using compiled C code.  (The first evaluation triggers \
+the compilation):"
+}], "ExampleText",
+ CellID->124776273],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0IR6", "[", 
+  RowBox[{
+   RowBox[{"-", "5.0"}], ",", "1.0", ",", "1.5"}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->161752355],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.08377410756473239`"}], "+", 
+  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{114, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1354523900]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarC0IR6",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ StyleBox[ButtonBox[" ",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/PvC0IR6"], "InlineCode"],
+ "develops a collinear singularity if either of the last two arguments are \
+zero:"
+}], "ExampleText",
+ CellID->1049570386],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0IR6", "[", 
+  RowBox[{"2.4", ",", "0", ",", "1.4"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1694210813],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"ScalarC0IR6", "::", "irdiv"}], "MessageName"], ":", 
+  " ", "\<\"\[NoBreak]\\!\\(\\\"Collinear\\\"\\)\[NoBreak] singularity \
+encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/ScalarC0IR6\\\", ButtonNote -> \
+\\\"X`ScalarC0IR6::irdiv\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1703073281],
+
+Cell[BoxData["ComplexInfinity"], "Output",
+ ImageSize->{112, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1890586551]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " on ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", with one of the masses explicitly set to zero:"
+}], "ExampleText",
+ CellID->621139624],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVC", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "s", ",", "0", ",", 
+    SuperscriptBox["m", "2"], ",", "m", ",", "0", ",", "0"}], "]"}], 
+  "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->98211730],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    SuperscriptBox["\[Pi]", "2"], 
+    RowBox[{"24", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}], ")"}]}]]}], "-", 
+  FractionBox[
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox["\[Epsilon]", "2"]], "+", 
+    FractionBox[
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}], "\[Epsilon]"], "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}], "2"]}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "s"}], ")"}]}]], "-", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox["1", "\[Epsilon]"], "+", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}]], "]"}]}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", "s"}]], "-", 
+  FractionBox[
+   SuperscriptBox[
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}]], "]"}], "2"], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "s"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{"PolyLog", "[", 
+    RowBox[{"2", ",", 
+     FractionBox["s", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "+", "s"}]]}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", "s"}]]}]], "Output",
+ ImageSize->{386, 119},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1857296699]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1717476928],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarC0IR6",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not evaluate for complex arguments: "
+}], "ExampleText",
+ CellID->793391287],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarC0IR6", "[", 
+  RowBox[{"5.5", ",", 
+   RowBox[{"4.3", "-", 
+    RowBox[{"0.23", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"4.3", "-", 
+    RowBox[{"0.23", "\[ImaginaryI]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->245529215],
+
+Cell[BoxData[
+ RowBox[{"ScalarC0IR6", "[", 
+  RowBox[{"5.5`", ",", 
+   RowBox[{"4.3`", "\[VeryThinSpace]", "-", 
+    RowBox[{"0.23`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"4.3`", "\[VeryThinSpace]", "-", 
+    RowBox[{"0.23`", " ", "\[ImaginaryI]"}]}]}], "]"}]], "Output",
+ ImageSize->{291, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1529145798]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->75775972],
+
+Cell[TextData[{
+ "If the arguments of ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0IR6",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0IR6"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are widely separated numerically, machine-precision evaluation can lead to \
+numerical instabilities:"
+}], "ExampleText",
+ CellID->108958733],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"ScalarC0IR6", "[", 
+    RowBox[{
+     SuperscriptBox[".0005", "2"], ",", "M", ",", "M"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"M", ",", "1", ",", "100"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->568357075],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztXX+QE9Udf9P2j874Rzuj/7T+6NRarXW6I1qm6nFmtlSroyUIiIJnERyj
++IsIIkRUMINo1BbXnpJDIPIj4BFAc3DmENPT1INYCcgC5qCBu/OMdyyakwVd
+dUvT79uXLJvNr91NQpJjP/Oys/vy3tu3+z77/b733e97+8tpM8bZfoAQmvVj
+2IybOoeeOXOqY/yP4OCPjkfvmfZD2LkZflvgh/eTJkzUKMRo0Ou0We0elhzH
+fA6EKIDDy1a3ZiaqDSHs8/ncNtoVJsd8vJcTkiIXAIaE+YykppQ7AyFEGNoZ
+VsaIcT+FHL2ZyXRxY2CA57gT5aidiQpBSCR4sVgiPuI6xQ0h6rRSQIMmX1SV
+DEnQeGJLYwsJX3/9va4amygI3tuE0rCqBHs+9AYZmspIL8ZDVlIG5YgKOIaL
++BnGTQA74biQOp+SGyRvIgJV8Pdm0EqX3JC5AUF7LhPFwLspZPdH+QTHcQlB
+W554JBQKeSlEp7kheGhk9eBnP+SkkDOE40SBV0BueAFzI5JZHudEiGEzeGlM
+blw3epnGLCY0AHPDFUnk/i8WDvfKfOHDQfYUecQILXNDwPsR6T+BZRBycrnP
+JfgdVhiVQKPTNi9kZd1NiG6iQdjYvKoaGJYba727tWc0URC8mygD2h6IqTWK
+EA9AowdxS4t+O2VlFLpAUHMjtR+HQQetUTdBsXwCkENcyXpOSylKbvjf2q/x
+3CaKQwTpz4U8NoRsseyuZDxopZocdrrJnakI8nGDC+rhRl4Y0ykQfOtNU0m5
+IUZBfvhiOR7hgAM3U0gl9LO4oUGn6IBhndLauqfkk5tIQZRkhRDzgdqXCCBE
+/B5/hDSvGHRStCvMxwMUjEqU9EiEaZyeCBoe+qI2Xwz2wi4aOYL5TqXdLmpY
+bqxvNeVGucAzuC+IG8LuCYskhkIUgzVIPOCg0w0txny01UPkBO5DpsFI/VgR
+VE8qIjWGzYVK2UVNblQIuLfBcbzG4Wuhgngto2DtdlFTbgwjlNkuqv3ESm54
+Vuz89NMhQShaERNaEWasKK0yiuL02EW10+P6Py1Tyo3R9GvhHX0a85ooDJ71
+SCYOt0ZunB67qPb6q7gB21UrI8WzmSgKMWqDYSdjhw6oihvVtYtqFx1KbpCw
+aeO+6fe9qSWviQIIOkBgsEIMRIeaG9W1i2q/hHvu3iiz4ol5W2Hb3t5tvncr
+EYmwC5oy2JuI+h0wimW5rGaqB7vo314MqeTGww+2mdwoEawHVAlN5DyGJOpV
+qH276IsvqLlx63ivyY1yQWpThjRv3dlFFz3TqeLGhPFrTG6UCzxwgyLjlPqz
+iz4x7x0VN0w/n9pC9eyir3t2mtyoDERsgCiDIbFqdlHfejYnN06c+E57ISbU
+ECJYFxCbgzOg8aVKrdlF2/yf5OTGN9+YrsWlQOA4qYElpR/SNvasNbtoW1tu
+bphu5+VB3J/t91UvdtH83DB1SkkQYgF7E1YIzmBc/Ved2EU3t0Xz9TcGBniz
+U2oYIh9nIyGPA+jhqFN/0XzcOH78u8HB4yY3SkbcjpArnGMyQu3bRbdszs0N
+czBbGoQEcfnigtAP8GJf4vqzi+bjxoyH2mRu9Pd/deTIcY0FmsDAj3zKX5R2
++uvULtre3j2afq2w3Hhs9tuvNO/QXqaJpDQ9JcFxGqxWRQuqml0U4FmR2zQq
+c2P2o283/2O79gJNEAh1bhdNauHGrHZTbuiDwNpku6jDl3tabBZqzS6azP9K
+RebGo7PaTbmhDyLHRiWzBh57ooC2AUat2UWTmBuRwkMVCM0vm9wwBJGFTqkn
+sx9ZL3ZRwMrXI7dYV5ncqARiPtAt6g5hvdhFkxI3brh+eT5W3DJ2tWnoMIaY
+3469RuO5OpL1YBcFrFoZuc/2ZlG1IoonS63ZmYR4ELS9jc3fmrVvF01q5sYG
+396Sq3bGgMf+G3Z/TBD4tHCvP7soYPWqXffaNhXlBgknT/6v64NeomL+/WF/
+T4/G8dmZBZ51IwXcWHzUn100KXED5MZdU3xauNHXNwSUgJ2PPuqHXJBXLudx
+R4fp9VF+VNUuqosbygDSRskNiOnq6i1wIhOGUE27qF5uTJVS/uWm1yGXcvIs
+RN4x6Q1dpx7GyDZyGshSdbsoeeWqnRtjx2QYQ0gh33//X3I497FAd3fpHeq6
+R5aR00CW6ttFCQzoFBK2vfOfY8eEePyYHLNju7lKgwSlkVOBOrKLEhjmRnbY
+3tUHw5mOwAFdFRiGEHJzo47sogRl5AaEL774GraDg8dnPLwZBi+ieDKy87Mj
+g8f7+7+66UYPOSOMa5iXusg+jHqm3eWDxAZqXrvIww2MOrGLEkwtKzcSiW9g
+u3//EXIIvVbou25uix4+/CUcPni/37Ni59w5AZkbEDnPsfW5RZ3ZFdPu0gyE
+PHjwqN4LryAKcKNO7KIE5eXGmJtXZke2tu5RxTCLP4BTHzqECeOY2wHbT/Yf
+IfWJRrnOzkPJ9IpkWi5h44a9d97RauDaK4UMI2fl7KI6YExufP45X0ZuaAxk
+9Q/iQDLptnUkEvROUkEJJTfat0Q/3v05HDoXvEtblkLM2+3df3/xX8CKV5p3
+OJ8Owl+7dsWhb4yJ91IXKLXS76cxZBk5K2cX1QFjciOZuWbg6Q9k3Q+LZEA7
+ceK7ybevI4JFmeaB6W/l9ESa/+S2fMXCdR3oPgq9HeWVdnQcgL++/fbU2P/o
+0RM5/aWHhgSNUqtS0GYX1QhjciNZbW40TX6jaJp7bZum31f8teBDD/rlfaU1
+Zt3aj+EyJ07w3mJddd3oUwudedfshu3kSevkmPffO6wi2PBAncqNMoZSxlzu
+JeHsyGHzLsCw3IDRJbkVkL30Biq9kNqpRuj9w2VvpqpARYxsnuRLUIAbqpii
+CQxkqUSZ5arG0pYPK9pkpwHIRCVR7eYtAwxfBXTVSpfhwzLMf2pbeduoWjBM
+cpMb+YJsv613lCI3/nxdXofzMzkMm6+HGJYbW7cevHvaBovkNvy86/2qt0iB
+0Ns7lO+vWTPbYbtv3+D2rj7VXzkt+SRAeuXhiuUfWaQP2JHDYTPl0xgxyMRe
+suQCcOMlbJBsbriaGVtsWlPh0HjN4lENS/RkgZMubhyVyiItro6rca10uHHD
+XhLf15fixpzHAnLe227FltUJ49fASeFaBgZ42S1N4BPytOWhIWHHdkybTRv3
+WST/k56ehCiehPjVq3bt2TPw2WfHkpK1Jxrlcrrk8YlEnX5kRrfcUEzspSYy
+DY0tC53BxQteOYcUdNaNIxvwchyQUH7lkR3u+ut6vKDx1XMh18VXMFLkkst/
+dTkp44LfLsyXcfky/IQ+uwgvjzxq5P0/xWc8FzYXjVgMMW2rvakXCj+/E6qR
+xGsXnMSP+d7BcdKkKmALMHnKneuXvEoebe6ZsZeRHFZXSGpAMcSkynD4YwVu
+gxaXvGQyni6M8md9+LX2oVtu5JjYK0y+CJ1z8dNw8+8ZfSH6xey5cwIQq7RX
+K23OEJa2fGhpZC45G9+1i0dgbjReOQWhP4wc1WK56pGz0LkjLRnpb5+4FhiY
+TM/if25R58GDu89D6N5Xd3YEDqxe/kFDA5Yhsy/PcopLw7tmN2gN1aXgNaKR
+I5G6liZWSApRD+xERbKEDqV+J66AFpe8qMeKrF6gCRdyIuSqO99H44NxeWKv
+EPk1uuLKhhbomrYtmYfQmGZJOD8w/S1oxxkPb85+/EEgr58/GZ095ryz0IUj
+Fr/MdF1zyW/Ov31t0+Q34CZPOR+NfyYkawSLYo1K54J3sTqYuFZqxHHv7T/C
+c6lX1AYcGISYF0lvvXFp0kLiLAgDF9EsgptCjlDBMoq45OF3qa4In/63ENNq
+E4bHKacm9gqR89DvRlzTcsP1yzu8yxC6ZH4Lvr20ZSl+xp99z5L5ZgpnxjNl
+LL9vaL70J8ANBqjS+ey16UYRgw5EucIyN5TTJw/FviQlkPk+6e9K2EKcaMgp
+jnfTKVOVT3KxjpziRqoahXIXcckj3CCEiDtQ3i/O1yyM2fEyJvZKtyXFjdaV
+CF26cCX+rDD5tMoL0hBGfm0q5ebgpl22YFvD1U9NBZ1y1XNCRqMkSaOQzr9F
+mhyXXQGJG5RUARHqgvPqd4oTYj4K9IBPIkiTJ5GrGgXzF3bJ490KbjjzLABY
+yzAgN9QTe6XbcmWDNDR4+XGEZrFx3HWf+cgWzI3nM4a3UnrWRlE0LX9LBnmj
+fIShiCsLfpZBmAeLKAQ+4pI/XyUpgrABnRJyQHdA6nByuBvpZnVWo4hLniQ3
+WFmnoGLXVHPQLTRyTOzF3mg/u3QhDOiU3mj9n35lkbw9LVkeWWkI7rRGFrAc
+sONlVxMhUM3FbyOP7zb5dHvAjj92ZsApDvcQSTKBbZIWb9RXjWIueazbClG4
+Y4u/ulUGB87TDL1yI9fEXuyNlhrDKrzRensSQIatWw/C+DGZmxv42WRIbw0G
+j67UeM+eNfkuJ3oDztQ5aWdUKkOvU5wQC6TTI2vqAwRaq6HJJU+Mu1L9GcoX
+rcsxrOHuqBKWUUxnZ3d2g/wzGJt02zrYmf/ktqKTUPiEvnUURR6vvChmRul0
+ihOzF2/UW42CZ8fll742ZFVQNm40toBOKb0cE7WDshAD0NOTUHrbmhgGKBc3
+TJgwUSL+D5k/05I=
+    "], {{0, 76}, {180, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{180, 76},
+  PlotRange->{{0, 180}, {0, 76}}]], "Output",
+ ImageSize->{184, 76},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1801278765]
+}, Open  ]],
+
+Cell["Use arbitrary precision arithmetic to improve stability:", "ExampleText",
+ CellID->541676103],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"ScalarC0IR6", "[", 
+    RowBox[{
+     RowBox[{"SetPrecision", "[", 
+      RowBox[{
+       SuperscriptBox[".0005", "2"], ",", "20"}], "]"}], ",", "M", ",", "M"}],
+     "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"M", ",", "1", ",", "100"}], "}"}], ",", 
+   RowBox[{"WorkingPrecision", "\[Rule]", "20"}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->592807280],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {}, 
+   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
+1:eJwVyXk81PkfwHG5yqaSRkm23CHGjGGMfD68Z1wNxs18c2RMQrSUVbFdinKk
+QsmxRSE5MkakqEVIURrStm1KZMXQ4cgVm9/+/ng9nn+81PmR7nskJSQkbv7X
+/y1MHtivqmwINdfrW6oDeNibHD5uudUQeloexAcjHr6yMkjZgGEIQrVJ8sh6
+Hh4Y8YONbEPQkHh3q3wwAO8rdE6bCjOE2zK6V/vcAnC8sjGlRGAI2j9cdIbN
+dmGh5HzkWjoZTB/d2E3V9cNlixfTK+3I8I28rC5j1BcXzZCrOVwypJtksa5U
++OKs0aCZ5BgyLNSH7M439cXHX3QdlbxPhmQZ+5ptHB/sVFCSPGVlBOkDUp5F
+2QS2u2Jdnu5qBLru2lrZQQSGy33PjAKN4MYWb64SlcC0FJLCvlNGoNH0Q/PG
+Uy5WiYq7/E+rESx/ssrnkywXf1O71T2qRYE/HvsefnDJC09cjf1gbkgBPfG/
+vYmhXviLiv1UkikFdisDvRV54RHSB9JWOwpIEzV7Uz564t4VysTuEArsLV/a
+qmvliZvH4/t6SykwUnn8RoaUB05v8h17RqaCs++WM/bdrviLgUiDY0mFxsif
+lqtlumKHHJZPJ4cKSz+GUqV9XLFklF57577//uLDqdpOFxytOVv8vIwKA++2
+iXcqO+OuC2F9zvVUaL6fGX29koMNF98pidqpQHrybkKwg4M/vmxNEI1QYWPT
+apPZE06YOJPB79IxBt8x6+Ydko64ZlIm15VuDGH8g5SOYge8NiC2u8vWGPx4
+ao86nRxwhxkPuoOM4fiytI34KhsjseHmFwXGcDRu3cKE8w6s5tT+d89mGuTL
+BJz956stfqkX9aLAiAYJ6vkJewttcdLyTU8PAA3mO1JKthO2+Gvzvgdr+DRo
+nxMVFj+ywQ3mCvmON2hgFCJ9ZFJgjaM21GWp1NKAtMmqSmufNdaeDkwTt9HA
+lQe8A/rWOFVYfTJxhAa+0dRZ6zIW9t3KDWrZZgK0Gn6FeS0Tr5aR8M9AJvBt
+aad/2REmbv5Q4hXIMQHfeX0HeRYT6+d9t1uKMIHqEDV+ejfgOVKensVtE3i8
++Pgte8YKX5Yc+nKbYQoeBmNabWKEWwqGVyoRplBbzpwlMxEeZ43qHj5sCvsD
+XfL8r1pgdvxXvkWtKewNRuOhu7fjRanvr1podGhqXjuupMHAekWLU9oedMBR
+L2NO/G6GvW2WFJKi6HD5eYLWeWUzXJkg7ehURQf2JasAzZ/pmC+zpvEl2Qx0
+TS9Ga3NM8GyflyibYwZxFJO55g80nHrvynu/fWYwnX2nXekIDdeG60sMlZpB
+3gudp4nVxnjlC1vmtBYD5tldMUeZVHytPNWtzpoBUa1VsnmjFEw/3RN4jM+A
+DXm1Z99nUjCPEXhK5hoDxM+PfpYdMsI1eUdblDaZw4VUqUN7ThviOR+y92Fk
+DsokoV7oqAG22NA/8trfHI7vUuza5WGAmy9Yr75yzRxSL+d2VFC24a64n3Zq
+6GyH/bIqH+8o6WESfjAWb78dpLkDkbQsXcyd/+X4UOh2uDpimNWxSRf3Hegu
+LCnfDlKRnCKx4Vb8iZ/9hUy1AJmUhYS0X7XxjyL/8N8iLWBKpb3EpVoLKwxr
+jDyqsICKS9Vv9ixoYpPwigE/fQTshXDLoQINbFcRtaskFIHTxjs+p5dpYOKr
+We9UMQJNQe9xcbA6PvJr88sUTQz9j2ZppTZqePQ3f++1IRg+J9xXjeBvwcSp
+ub+yyjBMJDD9YndsxvR0cm8R1RJul6ffu8NQxUXZ7X7bDlqCDTtbVM7chNdd
+C+qrumcJ9Tuvyap4qeBxQe5Ag5UVyD4+sNkhRxlT9BrYcqesYLoqJVX0bAOO
+LByo8mi1gqsZTvFpKzbgWUcSM1oL4JdVoqv0LCW8Xk7nYI4tgIR7nTFfTML0
+NrPShmCAhpuJCV4sEj4EvmvlSgGapt+A1/J1GBL6u3o/AliI7sn8ObMW//Rk
+T5pAiwlHS3mWW+YV8MuVYy4n+UwwntF1LJdXwPku+9d4XmPC99DRt/q81biN
+eNoTOMgE6Xl3Tn6BPP4cqJMdqcOC5Nlr00nSKzEp/KTfsb0s2HnIU94+Xg5b
+RL9VO3uLBVGDOb/Gqq7An+xykPoYC/Y8zK44OyiL8zZ6E3f1rCE4L+K9cYMM
+dv2kGM0JtYaDl47ZLpRJY8lG0YXBYmuIb8wbSCuRwmu5fGHNqDUEtKQVqRZI
+YrWv37pOk23Admz8ydlbyzA5MXHCO8oGeIKyukttEhhvUVHUrbUBpdmgYqW+
+JaSqb7rxjzkbCBwoffi36w+0aOKq5m5hC0sGlsK43kV03+EM+WiTLSR6f1ns
+oH5HaVMnxmqRHSxU91d4LMyioCuxJRP37MDg94nrEUvTaFK0ObLAyh7MfFYm
+VCt+Q3FSraYebfbw/qb4ULXPJNLqMCgn2eyAjvV6bvnicfQ4LVPt1cMdIG8w
+/4se4yuSx2t2b8FsOC3prBM8/Am5iZNuhN5jQ0ldpurlZ6PIVU0wsdXSAWxH
+55p86keQM7cHD7c4wKj/CvOANx8RX/0B4y44AnN4uP8FawgdGiuiJf7hCEnf
+/f22Ph9ENmDO6LRxgpGc8kvn/T8gxcxOtO6ZEyxWn5LpXTWATomiVg+4ckDL
+qvFs38P3aEJOuV/wJwf85PNLl3LfoYUicX94pzMoXvxtz8nVb1CMl+I06Y0L
+rLg4EzjY/goprA+sjgxzBfvEmBgNykskM8yu8xtyhd3yrZtp/3ajGlbfk8Yw
+N4iijifffytCMVR6Im3YDfbL1M+YpTxDM2XmLj9HuEP+8qQvNXvbUfJdibYN
+n9zBhTemN9jXhhpKX8vlhniAzkS+aLaiFd3S8eNmfPaA9d4sqZCsZiSkF3r8
+HuYJ9Cy3nFX9TSiiO3OnyqQncJJr2rwPN6BOtxwD9cNeIDenoqGcfx+x9vAE
+jCkviHCYPvyOVYf2S/WYt8V6Qyy3mv7X91pUYyIXHTTrDWMya/ym191BOY6u
+R1KiuDAlmV2bGVyNGJ9ZqTpzXDhvWZr/taUKfVKfd+yJJiA7XZ3nEyREz7k3
+fywdIoB3rFgncZcQCc95VRnEEhBwgIivJYQoer5q/ZljBHiGPpxX5QjRYlfY
+AOMMAcc2sWtW0IVoVdzbQ3lZBBxJl6T4rBAicl/j9b31BBRyG1/f9a9ECqQI
+z8sPCGiYaKqvcq9Ek2zV5S0NBFwI1o0W2lei2jsx+1RbCLhSPMN/QK1Elueo
+ZqKnBKgcSBKvkq1Ezqjwmck7Ak7IeYdkVgoQJcrtROB7App95dJ7iwRIsWSJ
+en6AAF+5VWE6uQL0ap1f1vAQARMRpmodCQK0a4zEz/1CgPRUBcH2ESBQbyE9
+HiegS+3YvRoXAdLgHng8NUmAOECzRstWgD42dxpwZgmQP+d5UJEiQE/mjryP
+nSfgzw+K9DRtASoj62cULxDgv2FNsuImAUoNem3T8y8B2gkfw3MUBCgy98zs
+0hIBTjNmb7VkBeh/r+uugw==
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 0},
+  Method->{},
+  PlotRange->{{1, 100}, {0., 4.653724300738272*^-13}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{
+    Scaled[0.02], 
+    Scaled[0.02]}]], "Output",
+ ImageSize->{184, 90},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1251006428]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["C0Expand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/C0Expand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ScalarC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->1576332754],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "ScalarC0IR6 - Wolfram Mathematica", "ScalarC0IR6"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 9.354284}", 
+    "history" -> {"1.0", "2.0", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "ScalarC0IR6[s, m_0, m_1] gives the finite part of Ellis-Zanderighi \
+IR-divergent triangle 6, I_C6^fin(s; m_0, m_1) for real s and positive m_0 \
+and m_1.", "synonyms" -> {}, "title" -> "ScalarC0IR6", "titlemodifier" -> "", 
+    "windowtitle" -> "ScalarC0IR6", "type" -> "Symbol", "uri" -> 
+    "X/ref/ScalarC0IR6"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0.nb b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0.nb
new file mode 100644
index 0000000000000000000000000000000000000000..311f5327e592902fd544e6577c145ea067ab8fea
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0.nb
@@ -0,0 +1,3410 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Tutorials \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Bringing the Arguments of D functions to Canonical \
+Form\"\>":>Documentation`HelpLookup["paclet:X/tutorial/ArgumentsOfScalarD"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"ScalarC0\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/ScalarC0"], "\<\"D0Expand\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/D0Expand"], "\<\"DiLog\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiLog"], "\<\"ContinuedDiLog\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ContinuedDiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"], "\<\"Special Functions and Abbreviations \
+in Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/ScalarD0\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/ScalarD0"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/ScalarD0.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/ScalarD0", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["ScalarD0", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["ScalarD0",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/ScalarD0"], "[", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["3", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["4", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["12", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["23", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the scalar Passarino-Veltman four-point function \
+",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubscriptBox["D", "0"], "(", 
+        RowBox[{
+         SubscriptBox["s", "1"], ",", 
+         SubscriptBox["s", "2"], ",", 
+         SubscriptBox["s", "3"], ",", 
+         RowBox[{
+          SubscriptBox["s", "4"], ";", 
+          SubscriptBox["s", "12"]}], ",", 
+         RowBox[{
+          SubscriptBox["s", "23"], ";", 
+          SubscriptBox["m", "0"]}], ",", 
+         SubscriptBox["m", "1"], ",", 
+         SubscriptBox["m", "2"], ",", 
+         SubscriptBox["m", "3"]}], ")"}], TraditionalForm]], "InlineMath"],
+     " for real external invariants ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "1"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "2"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "3"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "4"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "12"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "23"], TraditionalForm]], "InlineMath"],
+     ", and real positive masses ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "0"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "1"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "2"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "3"], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->101512739],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Mathematical function, suitable for numerical evaluation.  For rapid \
+machine precision evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses code that is compiled to the ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " (triggered after first numerical evaluation).  For arbitrary precision \
+evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses Wolfram Language code."
+}], "Notes",
+ CellID->706937948],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to maintain compact expressions.  Applying ",
+ Cell[BoxData[
+  ButtonBox["D0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/D0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will replace ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with an analytic expression if it is known."
+}], "Notes",
+ CellID->887870138],
+
+Cell[TextData[{
+ "The arguments of ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " correspond to ",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJztnb2OI7l2x499DcPZ3IYfYNv9ArtAP8DKxuQ7uIaiG6zuBax0G/caEG7i
+VahsJ51oFXeyA6cdrB5AwE7krLF6Au1EBhyVxRbZxWIdslhS8avqT+C3Oy1R
+EuuQdXg+SNa//Pm7Pyz/noj++k+n//zhT6t//ctf/vS3f/+H0x//9rf//I8/
+/+70j3/+O6J/PCFerKoKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAPTiVtyeexLZ9jc2JlWR/4i51OwEAcTiVpaYLVsbrR/Ve6nYC
+AOJwKjfavb9n3p/L955TtxUAEAfpIyhb4clSZ297DwAwPgy9cLTUEXGGD6nb
+CgCIg6EXGvEFrc6Sex0AME6M+IICeQcAJg5jM7TijwCA6SFji05/AgAwLU7l
+3tAL8CcAAJw/gdwkAIDzJ96mbhMAIC3CdzD3SKRuEwAgPKfyKOIJHe/DlwBg
+QkhfwZpvMOIMj6nbCwAIj1zHZF2jINc9I18JwESQ6xud97zYO+mzvknaFc+6
+z9Hhn3D156llAsDUYdYpbLT37qg+m0X8/8bxPY/UXu9gzWHI+kvL55HzACAh
+dD5P4Ynqc5jMM5oa96/lO9S8vzReU9/xzNRvfaeWE8VeTQAKR+qElr9g6Ia3
+2uts7FKLYyDnAUDBSF/DOr9TvTezM24gvgexTQDGj6YXnDEDqV+O8CEAGD/y
+XneeBUn1ebJYGwHAyKHzWfOu/Ocdtfdf4Px5AEaMzGV4nekiY5TK58BZ0wCM
+EGkrPPeZ+7UYA2KPAIwMOq+h3F+yPknLSSDWAMCIoCvWM1P9rCvoBQBGgpzv
+L/YBqH6eFfwIAEaAWkvteN9nbZOKP1r3YgAAykDez9aznKjj7Bet3jNsBQDK
+h9rnw3Lstfpqb/VG5Suo3rsJnQBA4RB/njzHSvsMp0c2PvYEAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAABACE7lqxMzhnUH77jPpb4eAIAd5v7+eGIn
+8dkrNQSftN809cnvU8sIgDEi7i3t3n8v77/PPe/dz9q9q/O+w17gPvPpAt0h
+PrfVdMZtarkCUArifpH3jbonu+7/g3HPPVBtQ0SZq7XfWxi6y0d/KN0kPvtV
+avkDkAN09vvFvfxR3uM+8+2spHtI6rqZvM4ue0fZNS/XmbrtAMRA3iMLqQds
+98Yk5tAettFO6pTRygJMD2kTvLfY1Z+ljnjA/Pgqq4W0jTj76SDfe5e6rQD0
+Rc6DW8sciPnPX45d9tVH+T7yHiBL5FzH6YLPao7D+L1axjNpe3G2xEfYESAH
+5Hy2ZsbpQY5f2ARhZf/A+GdKD0P2ICpy7v9oGY+z1O2bGlJHcHbEJ/gZIDRS
+H5hj78XHTd028NpHM8afUzr7NnX7wPiQekGNszXGWb7QeZ3owqLHZ6nbB8YF
+bIPykDaE6fe9T90uAEB6ZBxC+Riz1O0BAOQD4pAAAAAAAAAAAAAAAAAAQD9O
+5f7ESkO8uGHqLU/s5fvPJ95avm8p33fWAwDkh7hfqb2nUDHX6t2ceGLqHI3v
+86oHACiDU/lg3Ms38vUbaSM8yn/fGfXujHob+fc9Vw+A1Mj50Jy/Npq9vL92
+vI5lTbPmPwj28jV1r6+0eje6PI16po3R0jMgzrgEVtkvNZmvjNeP+ri+8PvF
+npotjWSdvLQHGvKSr22MenNGf4h6y656Y4c8ztMMPS6BU/Y3moxbY1Ibs88X
+fr/QCeZZHovU132lzI7atdzL+euRqbfRx7WEi1Hqeqb1/tiQOkHtk2XPfAo9
+LkFnH+k28ZOlzt72Xo8xYFLk+T7G3H6Uf4s8Qsv2pzofUcl6rC1g6Jl5yPan
+hs7n75ln7z0w9YKOS9DZT7r82Vi4nPc+XPEbW0YviLFxm/r6L7gW3QZ4kvf0
+PVNPjyU+k8UPNuqNOhchbUfuPNktUzf4uATOvloZfbRi6iy513v+Dnduu3it
+qL12hg3AyouRq9AdS496LV9kLBDvT1rHQKxxCaz9pftxisHju3JcHJhxsUst
+g56y0tvO+g+yrh4zsPrAhp5hdccYILvNyM4LscYlcPaZqZuDxMSJ9y1ZOzJH
+GDnZbABTf/jWG2V+ks5n8HE6oSsfEWVcAmcfeNnHA/zOjBkjgkVqGXi0XbcB
+jg5bQY9NumyF0ecnyR539urvWOMSWOVvrrkLZrc5xsostRw62q3btdZ8Ihn5
+SUe91jqIMSHtQ66f1z2+I9q4BNY+MO22YDkgsvubWeYvmfHZykFodZ896x19
+6pUInc92HMRnjDkugbUPTLst2P4+Oj870hw3WeYoDBvAavOTZ97RVo/OeyqK
+XqtDPXMPnt8ZbVwCVv7mXp9g6+9c4ye1HJi26uPS5RusfGTH1VM6ofQxT+0z
+4gWHa/R9zHE5Vejs17rsW93vDWqzUQE5CmrnDaz+LTX3+FjXLlJzT+Zc2g9C
+J7jWOej+yZOrDxPK6j3Tl17+YU7jcoqQse+PeT/qWhuy5yha62MTycsrb8Do
+D2vekdp7tSuHTni0yCcre5rs8WSv517nNi6nBp3jXa7x7RVPH7hNV42pwG3z
+yhv46g9Z957quKN1ntTshKXxmvqdLGIRZM89eOv2HMflVDDmNNsaXmWvdo3t
+QW1busIGHStSvtz+C103JLUZaABfcOBxeUdtGwvxCLfMzHzbRnvvjmr/WPzf
+ZQcHsW0pQMyqVGR/WPcFafZGsj2YNFDseMBxea/XoXq/68tnU/dprkg5PVF9
+HoB5Fk7r3BDmO4LZtkONsymg6YVk9gINlGseYlzK72nd+9T077AmKtxYCGrb
+0oBrYsaM1AvJ4guU2do0Ou+vbNlO1PRRsonTjgmKZNvSAGtoxwzV51Mnib9R
+QWvZqV77kEWMdooMads6xt4i9XWmRtrVSfZaUWF73+icE2ZtXBCtDwa1benC
+PbpjRtoKzyl8ZSpgHZrWVv0ZHdAJ6fohiG3r8GOnmKNQ58xH95PJHhPepZYL
+01Zzr1Uyn2vqhLJtHeMxyz1WgWUs5r8keckS+4DqvCV0Qxr5B7VtqceZoWNF
++smp4ow2m60If47qdeeIPcaTeRTb1uHbrlPLIIKMVy6dENKGOJUHRuZVKTpB
+XoO+HxOxhjgyj2bb0gRzFGR5Ho32vnMf4pW//W4s8qZ63SP0QnhZR7dtic9R
+FDV/9bhWLn5mEvuc3iKfJSht2lE/oyMHEtu2Nn/3NrVcBrxG7mxDjsH1MtnP
+9f+YWi5XXNPRZXeNFTqvHxZ2dvD4cErbVvuN4uLjJUAjzP9QvadnlGfxd1y7
+mkO3EWScxLY12jG6OS0HSrXFtHH5pNtQ8nX2OYBjR9oKqg+D9V9K29bSnqx8
+YKmrZnSO160l4lyJHcNHrc5Cfi5Y33m2f23pz+xjN3TOOZjnwzZ0xNSg+kyT
+Xeq2JLj2ZDFzeS+v5X3O2S6XspN9Kq4tiu1OE8z1jBlqrvmZpW5PIhnYcuyD
+yoPOdtkD8efHhOST1BNB5m2a8NqQsaLp+UPqtiSWw5YZ11evyZN6d0H8GSQp
+ONDZRrkdSG6TX0s6RqiOHS9StyU1NGAcXdoG7y33TCdffvll9fXXX7/w3Xff
+Vd9//32Db7755vX9K3SEsFtmV8hrdLkH8Gr/qXlx8v3oGOe7Ht8h9MHW9958
+8+bNyz0u7vWff/65+vXXX6tLym+//fby+R9++KH69ttvqy+++KKPftjRBWdn
+W64TY6lwKFJusiTowjMC+ugDYQsIPfDLL79UIYvQMT/++OOL3umhH2aecsL5
+2yOEmn4h+rIpm5nlvllY6q8tuuQVMX8LXXCpPXBtEfaE0BGefofwL24d8ln0
+kQ8oB0K80Vc+JjOtjrAtOL/jFXEf/vTTT1VORegm4Wt06Aah51rPdaEBngED
+8oXqXBn60y4jzi/4LO+NdZc+EP5+zkXoB2HDePgWL/ECwlnbo4YirW8cA8Tn
+F//Pdh+J2EHu+sAsHvaD0AV/tNhGeDbHSKB6Hc8udVtyh+w5igYiryByASUX
+oc+EXuu6Vo0DIfcwGghrFvrKS9hX/+vyGVLFE0MUD9/i1Z+qMugfMNgYV30L
+Xe8nM9s66eJtBFsROdSONRB/rDLoGzD4GN+lbksJkGVNgvAbQq8/SF1EbtOx
+9gFrGkcEIQ/RR1asThA+uLhnplLEOmzohvEiY2jIQ/jJas3dCyJuPyWdoIpY
+EwXdME6oPmsAuSW3nBY2nTDl4tANOOOqYDS7uMgzeSPJaAadYC8O3bCtMug/
+cNGYP8g+nKVuS46QZT0fdEKzOHTDosqgH0HvMf/Sf6nbkivErF8SMUaUdhH5
+WYtuwJqGgtB8ZviCvHxa+4ZF/n6KMUbfYlk7fUAcshwI+UmXbFoxhSmsTxii
+WNZNI35VCFpsAXZeUy7scySED43SXcT6b6FDGd0wqzLoX+Ac+4gt2GWzNse0
+WOOH4l/E+RKcP1Fl0L/AOfZVbGGXui05Qc29Iq/+A2IK/YtlvfS6yqCfgXX8
+v0c/sXLZmWM5t7OVSilClzL+BM6AzRht/Pc+83escLFGsV8a5fJiyV0iBpkp
+Wh9Bd9cyadkKyD9cXyx7s2+rDPocNMa/OqfzkLotucDZCljTOEwRZz7BZsgf
+wnomTiZbc+yO6byl1IU5ix5xhsxAzLElj1YOArbCsMWyfwLr6TICMceWPNaI
+K4QvTJzhUGXQ/+D1PsAzpZryOOjjFfuiwhRLbmL0Y/BU3p54Mq57c2Il2Z+4
+S9zG1/OZUssrB4h5VhLWO4cpYj3D1OKPp7LUrnVlvH7M5V7U4u44n6lqxFpe
+wdrGcIVZA3moMhgHITiVG+3e3zPvz+V7zxm0VeUidoG+/16zj1bKZmLqLaX9
+9CIXYWtZvm8p33fWu6K9DR8C+yDCFkv8cZS+hDb+BU+WOnvbe5HbuqYAuQjp
+Q3F9Lphr9W4YX0twNL7Pq96Vbb6FDxG3WHwJ77xESfOOoRfYcUvnOMOHoX7z
+irYGP3NBXKfR7zdVfa+LvnqU/74z6t0Z9TbaWGjVG6CdC3OMwocIX5i1DLuq
+u69KnHdWxnevmDpL7vXYUJ2jnAX8DV0ee60f9tSMvdzocjPqmX3d0jMDtHOr
+fy/yEHEK90y7ql+/lTLv6PGFQb97aCjCWSyyXxo6Ur62MerNqa0/RL1lV72B
+ZfGCeFYKSvhiWRftPR5LmXeYtg46fofkEv18wW/oOlLoYuFDPTL1Nrr+kHC+
+oq5nWu9fKwsF9lPHK4xeWFT+/VbEvKN9/9641uR+g9G+4GsXDBkf5d/PnA42
+5DW39YmhZ+YDtXNmjk3sh4hXmDMg15V/3xUx72jfb/opWfkT2r2wC/gbel88
+yT6875DVM1nWfBn1howJLcy+QolXmHOjvcZkKfMO8xumP5E8N6m1LYZe8LKZ
+DDmJfll61GvNCVe0c623E+evxC1M7NFrnV0p846l7ea9MehanCvapebIIPur
+qR2/YfW4rKvbbtb1XoYsWd1xYVu30AvpCncubHXZvZXlvGP5LTM/MrjPcmG7
+1By5DvT9pq1k6wtTf/jWGzJOvNO/W8xfKPEKl5Oouvss+3lH/m7LfrG0Kwtf
+IoJe0K/56OizuWefBYsTQy+kLZZc5W3l7rPs5x0ycqUd1xDUPunR5tB6QY/f
+WG0kMuLEjnqtfNSAbYVeSFwYvTCr3H2W/bwj22X9Lt+xHxMKeB4LtXMxLlvq
+2bPe0afehe1tPKMa+yLilwv0QtbzjmF/2OIeauw79ZD8ro12Lc48CZ1jF6be
+9LomCrgG2ugLl770iv/a6snrv3pfqjkmhV2LErf00QslzDtMGzfae2Lcqv0Y
+4v9Wn4XOdsyTcU9Z9YL8XXO9taIzhhFYL+jxG1//yqXzW/WUTqAB8jvQC+lL
+T72Q/byj3c9qDZW5L6u11tLjO9X97tILz/K7b7Rr0H/baTeE0gvUjt9Y13IZ
+7XVdq743Zi778dkmVzrvS9vI7+/0FcnYGyHOGEOJW3rqhaLmnaHo0gty3LPx
+S6rtJqfNEFAveMVvGP3hsqXMPXOVQycom+upqw2MLF5A3DFusZzDwI7LTOad
+FTX9kyfX9w+Fh174YJOHpvu6Yhmh9IJX/MZXf8i6us/kzAn3lYMhC+iFBMWS
+p2SfJ5HBvNOw/43xHtS26NILHZ9V90MSeyEXrtEL2GMdt/RZ15Ry3pFjqqUv
+qPZrgp61NJBeSBJfyIWeeqFx3ivWQcct3DmPVQZjyITsvruKgwZds3ilXhC+
+jnVNqFZP5exvU8s7kAz76IW1PiZxVlPcwuyb2lUZjCFfND8k6NqkS/UC1fmW
+zvwH9EKj7jtmvkKJVJjz4ot5Viqd8xbH0D6E/K1L9cJLLN6zLvyIum7reTJ4
+9ly8wjyTbl1lMIa6oPp5MFH2NlyiF+R94O3fQC+06jfGJtZCxymWHGXWz0qV
+NoK5xzv48+P66gWSz7zr+RvQC836n/R+xjOs4xTu7IWSfFs5ztT9GvRZUX30
+gqa7eu0LhV5o1W/kJIRtixK+iJywoRM+VxmMnz5oMYagsUdfvUD1OdfWPaaO
+z0IvNOu3Yo84+zV8Yc58LSbmqEN1TiJYrMFHL1D9jBzbukeRm7DGSKEXWvV/
+b4xP7JMIXITeZXyIRZXB+OkL1c+qDqIXfGwSzU7g5KoDe6HHGRtkxBiwjiFs
+EXqXGbO3VQbjpy9Ur68c+sygueP+fjTqPjrqKpwxEE0vLFLLNFA/XaIXHuBL
+xCuMD+F1DnSOUB1/HOzc0UTXsaaCcsUXXJ/y9zrXfmqfuTX1AvZQhSkWHyLY
+85NDI8dZFmexXXkdo9QLHf6Vzz7Mhi+BvESYwuQhsvchqN5bLfZDqOfeqnNP
+itcJ8npGqRcGkMvCHK9Y4zRsEWuZ3rx5U1wegqh1BrXSEYOeN5r4Ghel9Edk
+uYi8ROMcWOyvHLZwz7anzNc4TgWK8By6UiFjjZMAZz4OUyy2wqHKoN8B9EKH
+bFrxR9gMwxSLrbCoMuh38Govv/RL6rbkCBnPrBSItfwolxfYCmUAveCUTctm
+ELkJMbZRLiuWHMSiyqC/QWPsH2TffJW6LTlCxjlOhPUMFxdxngWjEw5VBv0M
+WuN+RyNeCz2AfFq5CQHObOlfmLWNyEFkiuZDF7vOLIKMFuZ4FmMc/oR/sfgP
+yI9nCmFtk6+cdua4xrktfsXybAhhg91WGfQtYMe7mgt3qduSMzIG2fInsA7S
+XcQeCCb/APs0c6hew1DsPraIsmr5E2LMI9bAF+FnWWIK8B8KALnKXrLacroB
+e7HbhTn7vZL5L/b5ciAvNPsYucpuWYn8xCdzvCMO2Swi9mKJKWCMFYIWU0PO
+yE9ebO4SuuFcLDoB65cKg+o9QuvUbSkFOj+HBrrBKA6dgDhjYSAncbHcWs+o
+IrlWemqxSKELHTphW2XQX+Di8X1I3ZbS4HIUKhY5lX3ZjrwDdELhaP2IWHF/
+2b3jfArB2M+ZF3aRZX2C4H+qDPoHXDW2EXu8Tn7/Zbk3Xs5tGGPMwXKOAmKN
+IwKxx6tkx8YgTb9iLGc3iLUaQtd56ATFrMqgn8BFYxuxx8vkxuYsXbZDqWug
+hM3TYSMIOfy35XWsWygQ0s4gSd2WUiDLGif52salH8T9VZJvIfaBiDyL45p2
+KjZFzB4zKRPErgqE6jNaZqnbUgLErImWc6O6P2aaTFnfInf94KEPBI21CQ59
+uasi9g8YfJyvU7cld4g5L5qzl+U9wtVt6AeR+89lzYPQUyKP4qEPdjb/gOwx
+ly1XH+QLIcbQV04mC8dnvrLY1w3EOgBxT6aIQYi4qGNtkqn/rNeqXfOsr5xA
+fhBiDD4yYtc4mra04/MLl29h6gjhZ4RaHyV0j/ATxL5HxxoEUx+sqUecwKFD
+ZzH6Cww27g/oN6tsboeyjfvoB4XIZYjz0IQ9IXSFr00h/AJRX+gAoWfE93jq
+gYv1gXGtW8t3IkdRCFofvk/dlpwgR+7hyu8VtvbHPvqBQ9zn4n5XeMQGfDhI
+/XV1HoF4H+owxHeD8NB5Te/V431sWO7dwca1tEUeLLonJp/l3DDoXB5Kr4I4
+kPYMKsK5nEomXrmHAX9P6Yir7QhPPslrnAWW4y0hR1Es2nic/J55ssfNou0j
+oXOs80HO47sBdIDo3zWdfZiodjxdGbcF6dDuhUnbeGTPs2UxhmX7FA/yXtfR
+38/Gj89B14KL+u1W66vb1O1JJAOsywkr36i+GRis31SMKIu5MfK1Yx1vHDlz
+8ZPXdeQgP6RdOklfwuLDY9/P8HJ27TuDrDOEJpqXIKzBiS3vW/hrZUETy0s4
+4mGz1G0bM45Yzjp12wDbX+o+OaRuS4RrfWfRCYvUbZsCDp0M+WeIpsdnqdsS
+8BqRe8gAqp+tDh8uczR/e3vh59+eeDL6WpxltJLsT9wlvD4RRzkw43GXgezv
+NTmtlOyYekspR/HHs5C55fuW8n1nvUzGG3IUGUPN9Wm9+kaOQ/XZlfH6Ub2X
++Pqyi4dLXcrZ1IK5Vu+G0bmCo/F9XvVygCLnKHKft3KGLljLIMeiuvf3zPtz
+NW8lvC7b3HSbWuZaGz8Y7bvR5CvG7KP8951R786ot5F/33P1coLsZ+l+HPh3
+sp+3coYuiD9SbfcKnix19rb3IlzTAzPuBFn5soYc9/I1da/rY/lGvw6jnmlj
+tPRMbpA95jPI/v8S5q3ckfpbzK2zHp/RxzNrr9LZXvuQ4HqKyT1Ie6Axp8nX
+Nka9ObX1h6i37KqXKyH7Kfd5a6wYcm/YaVqdJfd64HYFnYcCtPeotfFe6tJH
+pp5+Lr3yjbkYpa5nWu/nBgWy63Ket8aMYadl4ctSJL91wPbqc/tR/i3yCC3b
+n+p8RCXrsbaA0SfzkO0fUA5bps+uigPlOm9NAUb2yexWKnAtvmEDPMl7+p6p
+p8cSn8kSQzfqZZeL6JDFoH2X47w1JYx5jNXLkdphm3Oy1Al9ZGfoXzHWlx71
+Wr5IzpB9ncnFtl5O89bUoHZeLLpepgLX0VE7b8D6D7KuHjOwxs8NPcPqjpyh
+AOtSc5m3pgijl6PFeKnQdfeMzGw2gKk/fOtlmZ/0kMugOYoc5q0pw+jl4Gtw
+HfPLOrU8PNqu2wBHh62gxyZdtkIx+UkP2dh0/ezC70s2b00daq/HC5ojI3vu
+YZtaFp7tP/rIioz8pKNeax1EydDA52SkmLemghx7rXi58X5wnUwF5h6M9pu2
+rUumz571jj71SoIGPFcr9rw1JchYm8u8HyUeToWfG2jYAFabnzzzjrZ68l4o
+dp2vQ//vLPWzmLemhpyTXOPYy+a9sg3FnzNs2LS+etbla7TqKZ1AhdvL1CNH
+kcu8NSWoGe+25dmVzdsZ96LzWjOhR5586svPLJjxISjmuQTUzhtYY+PU3B9s
+XbtIzT2Zc2k/iL6w5S7ujLnTWjcHyPM5HznMW1OD2j7xRnvvThvD4v/OHJms
+s9E+46NHRvEcI/LMGzD6wypTau/Vrhw64V7eP6/9pM2j2frcXXPC0POW8bk7
+KbNs5ZOwX+ZyLKk9O+ZZF629fR7fufLpJxrRmcLkmTfw1R+yrrrXVT+4fOw9
+MXlRbS7N1u8gR46CBpy3LDLLWm+OCR+9QHhO8pDyVueUtPYQUh2vzzoeR3zM
++VOIeUv+nleMBwzaxz56YceMgwMVknvICe1esfkYys7Odj0gM0+IsRDqueMq
+dqvkBr0Qp4+desFlN6Zue4lovgbrZ3TpjVyg2q8Mul5F+g9zqn0/6IU4/WvV
+C2TfX1dM7iEnqLmux7bm+kMp458Cn9Epx+YH+W/ohbh922UvmDbjInWbS4Xq
+uJxrfZSKPU46t091nlfla6AX4srfN+4o/Ilt6vaWDPRCL1kJ/+Gt9jf0Qlz5
+e+UpwSCy7qMXJnvmoe4/aK9BL8TvA+iFOLL2iS8ovTDJtYB0fgZNaz8J9EL0
+foBeiCtvlY9g85Da+M86HxFQPg3/gZEL9EKcfoBeiCtvlYe0Pd9y79IbY4b4
+c51cjGIve45AL0SXt1rvaNs/8LJvInU7E8kGeiEToBeSyHxv8aFVXxTxzInI
+MlNxF/gRceSt1tFYz0IGg8tc7Q3U91POCfsFXTKDXogjZ/OsPdhnceXPnb8w
+yRyEp7ygFwAADaAXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAwI//B7Olecg=
+     "], {{0, 275}, {262, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{77.8374999999998, Automatic},
+   ImageSizeRaw->{262, 275},
+   PlotRange->{{0, 262}, {0, 275}}]], "Input"],
+ "."
+}], "Notes",
+ CellID->198254399],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubscriptBox["D", "0"], "(", 
+    RowBox[{
+     SubscriptBox["s", "1"], ",", 
+     SubscriptBox["s", "2"], ",", 
+     SubscriptBox["s", "3"], ",", " ", 
+     RowBox[{
+      SubscriptBox["s", "4"], ";", 
+      SubscriptBox["s", "12"]}], ",", 
+     RowBox[{
+      SubscriptBox["s", "23"], ";", 
+      SubscriptBox["m", "0"]}], ",", 
+     SubscriptBox["m", "1"], ",", 
+     SubscriptBox["m", "2"], ",", 
+     SubscriptBox["m", "3"]}], ")"}], "=", 
+   RowBox[{
+    UnderscriptBox["lim", 
+     RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
+      SuperscriptBox["0", "+"]}],
+     LimitsPositioning->False], 
+    RowBox[{
+     StyleBox[
+      SubsuperscriptBox["\[Integral]", "0", "1"],
+      ScriptLevel->0], 
+     RowBox[{
+      RowBox[{"\[DifferentialD]", "x"}], 
+      RowBox[{
+       StyleBox[
+        SubsuperscriptBox["\[Integral]", "0", 
+         RowBox[{"1", "-", "x"}]],
+        ScriptLevel->0], 
+       RowBox[{
+        RowBox[{"\[DifferentialD]", "y"}], 
+        RowBox[{
+         StyleBox[
+          SubsuperscriptBox["\[Integral]", "0", 
+           RowBox[{"1", "-", "x", "-", "y"}]],
+          ScriptLevel->0], 
+         RowBox[{
+          RowBox[{"\[DifferentialD]", "z"}], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              SubscriptBox["s", "1"], 
+              SuperscriptBox["x", "2"]}], "+", 
+             RowBox[{
+              SubscriptBox["s", "12"], 
+              SuperscriptBox["y", "2"]}], "+", 
+             RowBox[{
+              SubscriptBox["s", "4"], 
+              SuperscriptBox["z", "2"]}], "+", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SubscriptBox["s", "1"], "+", 
+                SubscriptBox["s", "12"], "-", 
+                SubscriptBox["s", "2"]}], ")"}], "x", " ", "y"}], "+", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SubscriptBox["s", "1"], "-", 
+                SubscriptBox["s", "23"], "+", 
+                SubscriptBox["s", "4"]}], ")"}], "x", " ", "z"}], "+", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SubscriptBox["s", "12"], "-", 
+                SubscriptBox["s", "3"], "+", 
+                SubscriptBox["s", "4"]}], ")"}], "y", " ", "z"}], "+", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", 
+                 SubscriptBox["s", "1"]}], "+", 
+                SubsuperscriptBox["m", "1", "2"], "-", 
+                SubsuperscriptBox["m", "0", "2"]}], ")"}], "x"}], "+", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", 
+                 SubscriptBox["s", "12"]}], "+", 
+                SubsuperscriptBox["m", "2", "2"], "-", 
+                SubsuperscriptBox["m", "0", "2"]}], ")"}], "y"}], "+", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", 
+                 SubscriptBox["s", "4"]}], "+", 
+                SubsuperscriptBox["m", "3", "2"], "-", 
+                SubsuperscriptBox["m", "0", "2"]}], ")"}], "z"}], "+", 
+             SubsuperscriptBox["m", "0", "2"], "-", 
+             RowBox[{"i", " ", "\[CurlyEpsilon]"}]}], ")"}], 
+           RowBox[{"-", "2"}]]}]}]}]}]}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "Notes",
+ CellID->955702670],
+
+Cell[TextData[{
+ "For vanishing external invariants, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is automatically replaced with its explicit form. "
+}], "Notes",
+ CellID->962326817],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is symmetric under combinations of the following transformations: ",
+ ButtonBox["\[RightGuillemet]",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ScalarD0#1944346293"],
+ "\[LineSeparator]  1. cyclic, ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "1"], "\[Rule]", 
+      RowBox[{
+       SubscriptBox["s", "2"], "\[Rule]", 
+       RowBox[{
+        SubscriptBox["s", "3"], "\[Rule]", 
+        RowBox[{
+         SubscriptBox["s", "4"], "\[Rule]", 
+         SubscriptBox["s", "1"]}]}]}]}], ",", " ", 
+     RowBox[{
+      SubscriptBox["s", "12"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "23"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "0"], "\[Rule]", 
+      RowBox[{
+       SubscriptBox["m", "1"], "\[Rule]", 
+       RowBox[{
+        SubscriptBox["m", "2"], "\[Rule]", 
+        RowBox[{
+         SubscriptBox["m", "3"], "\[Rule]", 
+         SubscriptBox["m", "0"]}]}]}]}]}], "}"}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]  2. order reversal, ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "1"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "4"]}], ",", 
+     RowBox[{
+      SubscriptBox["s", "2"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "3"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "1"], "\[LeftRightArrow]", 
+      SubscriptBox["m", "3"]}]}], "}"}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]  3. transposition, ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "1"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "12"]}], ",", " ", 
+     RowBox[{
+      SubscriptBox["s", "3"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "23"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "1"], "\[LeftRightArrow]", 
+      SubscriptBox["m", "2"]}]}], "}"}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]  4. transposition, ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "2"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "23"]}], ",", " ", 
+     RowBox[{
+      SubscriptBox["s", "4"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "12"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "2"], "\[LeftRightArrow]", 
+      SubscriptBox["m", "3"]}]}], "}"}], TraditionalForm]], "InlineMath"]
+}], "Notes",
+ Deletable->True,
+ CellID->456341629],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " automatically sorts its arguments based on the set of possible orderings \
+generated by the cyclic and order reversal transformations only."
+}], "Notes",
+ CellID->844476602],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates only for real external invariants and masses."
+}], "Notes",
+ CellID->2082825702],
+
+Cell[TextData[{
+ "The following are equal to ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["0", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in other packages:"
+}], "Notes",
+ CellID->55998301],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], Cell["FeynCalc/LoopTools", "TableText"], 
+    Cell[TextData[Cell[BoxData[
+     RowBox[{"D0", "[", 
+      RowBox[{
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["1", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["2", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["3", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["4", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["12", "TR"]], ",", 
+       SubscriptBox[
+        StyleBox["s", "TI"], 
+        StyleBox["23", "TR"]], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["0", "TR"], 
+        StyleBox["2", "TR"]], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["1", "TR"], 
+        StyleBox["2", "TR"]], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["2", "TR"], 
+        StyleBox["2", "TR"]], ",", 
+       SubsuperscriptBox[
+        StyleBox["m", "TI"], 
+        StyleBox["3", "TR"], 
+        StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
+     ShowStringCharacters->False,
+     FontFamily->FEPrivate`If[
+       FEPrivate`Or[
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+        FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+       "Source Sans Pro", Inherited]]], "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{"Rows" -> {{True, True}}}},
+ CellID->573166446]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(9)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1022588655],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(4)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->335897644],
+
+Cell["Evaluate numerically:", "ExampleText",
+ CellID->15890790],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0", "[", 
+  RowBox[{"1.2", ",", "1.2", ",", "1.2", ",", "1.2", ",", "5.5", ",", 
+   RowBox[{"-", "1.0"}], ",", "0.5", ",", "1.2", ",", "0.5", ",", "1.2"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->963169082],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.23098661118787653`"}], "+", 
+  RowBox[{"0.38119933874587475`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{151, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1056568726]
+}, Open  ]],
+
+Cell["\<\
+The precision of the output tracks the precision of the input:\
+\>", "ExampleText",
+ CellID->1015353154],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0", "[", 
+  RowBox[{
+  "1.2`20", ",", "1.2`20", ",", "1.2`20", ",", "1.2`20", ",", "5.5`20", ",", 
+   RowBox[{"-", "1.0`20"}], ",", "0.5`20", ",", "1.2`20", ",", "0.5`20", ",", 
+   "1.2`20"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1486684435],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+  "-", "0.230986611187877121918437472998520431753293818830864613144`23.\
+60723079000022"}], "+", 
+  RowBox[{
+  "0.381199338745874884703584324755184168264988070264129643245`25.\
+088133215629366", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{416, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1353829054]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1542095319],
+
+Cell["Evaluate symbolically:", "ExampleText",
+ CellID->2000025996],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0", "[", 
+  RowBox[{
+  "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "M", ",", "M", 
+   ",", "0", ",", "m"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->227681019],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["m", "2"], " ", 
+     SuperscriptBox["M", "2"]}], "-", 
+    SuperscriptBox["M", "4"]}]], "-", 
+  FractionBox[
+   RowBox[{"Log", "[", 
+    FractionBox[
+     SuperscriptBox["m", "2"], 
+     SuperscriptBox["M", "2"]], "]"}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      SuperscriptBox["M", "2"]}], ")"}], "2"]]}]], "Output",
+ ImageSize->{140, 52},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->616575133]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0", "[", 
+   RowBox[{
+    SuperscriptBox["M", "2"], ",", 
+    SuperscriptBox["M", "2"], ",", 
+    SuperscriptBox["M", "2"], ",", 
+    SuperscriptBox["M", "2"], ",", "s", ",", "0", ",", "M", ",", "m", ",", 
+    "M", ",", "m"}], "]"}], "//", "D0Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1434281156],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"2", " ", 
+    SuperscriptBox["M", "2"], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{
+      SuperscriptBox["M", "2"], ",", "m", ",", "M"}], "]"}]}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["M", "2"]}]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["M", "2"]}], "-", "s"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{"DiscB", "[", 
+    RowBox[{"s", ",", "M", ",", "M"}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", 
+      RowBox[{"4", " ", 
+       SuperscriptBox["M", "2"]}], "+", "s"}], ")"}]}]]}]], "Output",
+ ImageSize->{306, 42},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->59937265]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1397475366],
+
+Cell["Make a plot:", "ExampleText",
+ CellID->1274104827],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"Re", "[", 
+      RowBox[{"ScalarD0", "[", 
+       RowBox[{"1.2", ",", "1.2", ",", "1.2", ",", "1.2", ",", "s", ",", 
+        RowBox[{"-", "1.0"}], ",", "1.5", ",", "1.2", ",", "1.5", ",", 
+        "1.2"}], "]"}], "]"}], ",", 
+     RowBox[{"Im", "[", 
+      RowBox[{"ScalarD0", "[", 
+       RowBox[{"1.2", ",", "1.2", ",", "1.2", ",", "1.2", ",", "s", ",", 
+        RowBox[{"-", "1.0"}], ",", "1.5", ",", "1.2", ",", "1.5", ",", 
+        "1.2"}], "]"}], "]"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", "0", ",", "30"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", ".3"}], ",", ".3"}], "}"}]}], ",", 
+   RowBox[{"PlotPoints", "\[Rule]", "20"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->339829123],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnftbE2cWx/Ps7g/7b+w/kP/AtdSKWq1Y77VpFal07eoStWojWjRqa8RW
+Y1VACOFiQAgXA2JECJcoEIXhEpFwCUKAcAmSYBAHHNE9k4Q4kEzIfUJ4Pw/w
+DHPLyeSbc86bOe/Jv/bHbY39G4vFOvZP+LM1+mTE0aPRvG3/gH8+5/18YP/f
+YeEQ/N6HX3L5IwLhKbjZaMZptgDONyHCHr1SyLLA5snMC7aYxVHkajb8ieBr
+CYbsQzAFrobXX6wBz2AQsFh8pYG60WgwWhSh58EmlZEZCxEMYVaD0xBa3YVa
+GMHiKZ3t1c9lsST9yHGsLKja0CvAPQgXeAdcK+RyyJjCVzBiHoJBqNowOGqD
+MGvVmFwM69ky7YKMlDVPEI1FBBUzJmSxqTHFuX+QQ1ARqKhrkCrCH0suKiUH
+IQYhG6QBuSiOycQyjExKYWRr2UkPaSpHqqUeh7SxEtArBLYxLNc6hjWDSNhC
+DBaSyVSD/IUxrGbh+BYFlBUCYTYaDGZnG2ALDGSdbELCQNCBtIGgA8UUBB1I
+GAg6kDYQdKCYgqAjFITx2b9TkpNUS++H8AX6+g0Cd16/EQraWL0qBX6YtiKc
+cVG/IeHM3zWJ4KlD77OvmOgC0MarV9PMmhG2uKrfwLVqjcVl6PksFk+hpx7H
+uDCAPd/kHj4ky8trY9qQ8MS9+g1cHMGKEmuoq0JBG1s2Z9VU90bvlTJtSHiy
+RP2GBVwrASXI9Atqexi/R08Qc2siUmFh53aJRmNYcn+EpyxRv0EKQwoCECj1
+iw5k3G8MDb3evTMHFnIkLZcFtcwaE5YsUb9hULAhG1GH4r22+jrdieMPYMFk
+wjd9mWE2zzBrTxjiqn7DSNaZc2VGGOEaF49xGR+niNObUm8/sy6D38gQNzFo
+TLhCW7+BY/YhLBCVrKYexbjfOBJXqmrQWZcHBkyQl87OvmfWpLCEtn6DHma1
+MT09u2Fd+szMp/Q4nldeUPCcQZMQdpjVRomsI/5UOXVNT8+rrVuyqWpBMAWz
++cae3blPVQOLVp5LqMwQY4zYg6DCoDAUldr/xBY7rh8eNm/elGk0vg2+SQgq
+TGljevodxI62thGnW2+nPL14vsq6/O7tjLFvZKxDBz8TL0emJzxLqBBew1RM
+gZzzr+t1dFtxnNj7dXrRqaw7286lrDoi2c4vir1aHHv17p7fRJEn09Ycz96S
+ID9xu+FWSZf82Sutfo5AQxv/w4gw1q5JS7rV8O6d8xf0w9wcvOipnx/nrbs0
+2PbScYf37whT/2j/k/aWO5UK/p08zu+itSeLDvypvJKvKW2YAKm8nwvwM1iG
+0Ndv0BFkbbx/P7durejihSoXH2IoE/Oley/jpqlrV5/wz7k1gZeYeTeifvlc
+Wlt1HqRySfTFiXsHhXXCou7yJtPA2IcPH/z3DJYl9PUbH/F+RWwEOXdJiC2+
+BRfMmDI6OgXJJ0QTgqB9Xz+5WghBBFwHLMNIdv8+KYxzPX2g2Wlc39zTKlFU
+nMmQ7OCnr/ulNO7m05T72srmlSgVl/03cD2mUCp5LJbAmTaCYB2IIT9PvXGD
+ODen1cVu+pYeSDDglbWvGRp6vWVz1nO185TVTfDJNwOqDizzUXl8es7O8xCA
+wKuACDvLVK96hiBC+XLy0MeN+g08mc2ANiCIPJR37d6Zc/xY2eDgpOud87+7
+1FvVsmjlU9XAl+vFvdoJf5k0O/UWvErb3WrIVSB4pX7+c963vz86LW5Kf9hb
+3WrSjYVZuuJG/QZ5e8WpNgIUVgyGN1mZ2Patd+L+V0o3VqUCrxdow+mm8vLu
+1atS2ttH/W0jCYxxJnqHeyqxZ7fLHvLScnddSFtzoiA6seLXjGepD7rLG2Hs
+PPtmGbdKW7J+w4U2/GvJ5CReVtZ59Mh9iCCJl2vdf79DGtle9Jhua32dDuTR
+1xeMhlQEPjveNdhTgYEnqTybVRhzBcJQ1uYzskN/1QruNmdVgJDGXvRDthwE
+Y3zHjf4b5sDFFAgc7c9HMzOw/x68B/7/bEJFbc1Lj26nwptXvIHn+mpDUgpe
+qKfnlc/2esOb8Uk91t1RUq9KKoUUtzDmD/GGU6LIk9J9iRCP6q8Xq/NqXta0
+GTQDb53NSWcSl/03LBhh/aIc9aMP45SJiem6un5RWmPc4ZL1kekHYgqTbjU0
+Ng66GIO4AC475IdL7lZT3bt2TRr4EC8eIhBA6jLeOQhZSltuVd21onKeCJxM
+5qbTkMPkfnPx/pGk6osSGB89L1C+rG0DVzM1ZmLkYzr6/hsQcZI/1W8IF9zG
+clMYOE50dY5DVpmS/PSXE/Kvo7I2b8qE9DJd1Ai54vT0rI/GN6bJIbi7s6em
+Y2z7tjs3bzS8D+GMkZiZhZx2sLELhkIwPnr8RwFkMkUH/szeknD7s2PwF/KZ
+smPJoBzVrZK2vJqeR01DTd3GvtG3pinr+N3/JvmjfgMShs5OAwQFGG8mCmoh
+k9yxTRL5heiHmEL+OUV2VjO8bcdG/RxqS+Nu6upeuLkzWHiK9zD2h0KdzuRf
+M4IAvPTT46/B2+gaOkA5LdmVdcKiyoSsksM3IBUHn3N79VH4m8e5VHLoBkSr
+x1ekjSI5eB5IcgZUGkPngHl4Iji5sdWZCC7VQPb4PSdvfaQIHAIEiNPx5bdu
+NtwrfgFhwu9KcCRjY7ynN9Fk915AfMkQY2FW7AHigYxl4uUIDNxgRA/5OSYu
+B/0ozmWXHU0C55Oz8zzkZuB/Am0JCAMuL4wsIDT09xkhdgT6ER2BFBTeKV4c
+ODY2lXCmAhLUiooev1sV4gQo9FBhvF4UGG3vK/7xmteHq9Uj+77Pj4kugDg4
+N7fCPg8PJKGgDYikEHB9PElDvQ5G0Lt2SKT56unpd34xbIXD+BwEoO1udcMN
+mV9O1d4+Gs8r37hBfOm36mZs8UQthEcwLgxAlVTaKvFnM22T6W1+nhqizKYv
+M/66XtfaMuzdpy4rnFDQRq0gr0NWH4gz9/ebsjKxH2OLwJMk/Fpxv1QzrH8d
+iAcKS0IhplT8mqGtbA7oQ0xMTD+Ud13gK2BQs33bHf7ZygLpcwhAdLVniI/+
+8xu+nEf20/Xh1l6/nIoK3Xn0+tegkz//ePxDTGHkF6L9+6S/XazOkbTCKJ7u
+k5xQuEqBO5U7D7Ho4YL5L/Uum/vH+m4D5CFdneNlZZ3w77GjZeBS1q0VRe8l
+ew4kJ6lKZB0gGJ3O5K8nG7hr6C9YiPAiECKx6gTLfNScVdGSXQkLmLgcFlok
+Cusa+Gv9oS5Tf+zr4UCne9L923Kn0vov/Bj7AlK0419MJry7e7yhXldaooH8
+9trVJwlnKuIOl3z3bd7mTZmrV6V8tTHjm125kPcePiQ7m1CReLkWPE92VnNR
+Ybv8QZdS2dfUNNTxYqy3d2JkxDw5iYf+R/2BU91Kw2yeGRyc1GgMqgZddVWv
+7N4LyGFSbz8TXn1y8ULV6fjyo0fuH/yxeO93+bt2SEBOELxAUesjRVFfZcIa
+zp6733Pyfjp4jxtXevznBydPyPnnFJd+r7mSqLwurEu6pRKlNWaIsRxJizRf
+XVzUDhIN9DMKqFNCuObDhw84ToBHGh2dguF2d9c4DJ2am/Xgnaqreysrex6U
+dd4rflFQ8Dw3pxWcVVrqs5Tkpzeu14PXAr8UaPOQMBB0hKw2LNOwGIzIBNmr
+d9Hjez417CN911/vTHK0yWg0B+gy+R5TcI3YnjBHCD3vjUD0C2OjFh5LKIVR
+1hPyZFpXxy6yxGGKlne22Y6yfFEVT2prc+Riahg9Trr+enm5cIzy/c9yq9QI
+vTJq3iZNAIp9fPcblhJ3nsZoNBgM3kgYnqFCJeWx2QLbhbJcPY6GsLawYyvd
+Li13nKLlnW24QavRk9faoCSb9ZJ37FxODXNxJseuv95eLtxW0WeQgxSU5OKn
+brFKPlkK7Pap3MVP2hD6WFqtFkbYtUFZJudb8dx9IT7aD1moDe9twzXJpEpx
+N1v7ujqT/XX09XLpZSxWLFkzjmMRrAjMojycPCff771ZfY8p9kLlWKHC66eM
+UbRBWSYUPBZb4NFXJCyYhuObbbg0lsXiygn3Wvu6OhGl66/XJuFaOZdDxhC+
+teu4RRsqm03gTOaX/Yc/clGCwMENK7nwHpN4kB5QodHGRx+14YNtZhkcwxZY
+S0DcmBpGi0PXXy9NIsx6NaYU80AePLvfUM3bFKrasKERR7E4Uu9yIvUCbbDZ
+tiSNnG9lmWvjPs6naHlqmwIiOEdiv9hufjWzE+i7/np7ufSW7382ehxTGOm/
+QVgTKlwGHpjv5VfkgK+wZ1M46XW55FvDqIxgsT2TxqIpWl7ZZnX7Mq2tWa/V
+JoepYW4Z46Trr5eXC7cdbxGbhPzieDPkMLGWb4JWCZaQK1P9N8j3lO2BuSqD
+5+MUamvcqGSL5YRSYBuccaUefDLsOEXLO9vUyQua9Vrfmw5Twzx8avNdf728
+XKSXsH//s80AQq+wXSaWyzEsk/03LFOm/D0J1Gz0akS8GH/a5sXUMNrTeG4S
+pClGx2EvYYZ1rkNFyPbfQDBOCPbfQDADbtRTAU8TMv03EMxCfgwSy+XZ4HIF
+8mFG+28gQpqg999ALCMC2n8DsdxZdt+fgghlUExB0IGEgaADaQNBB4opCDqQ
+MBB0IG2sFOjrN+gq4VFMWQnQ1284qYS3g4QR/riq33BSCW8HaSPsca9I/lMl
+vB2kjbDHnSJ5aiW8HVS/EW54Xr/hUAlvA6kizPC4foO+Eh5pI/xxVb/hrBJ+
+HhRQVgK09RvOKuHtIGGsEFD9BsKPoJiCoAMJA0EH0gaCDhRTEHQgYawU6O/R
+42bae/QBtgnBPC7u0YspPea0C+dho5gS/rjssWA0GC2K0PPIdiAL7rQgYYQ9
+7t2j7+eyWJL+xfdhg2AegkGWuEePa4VcDhlT+IvnUKN79OGGp/foCbNWjcnF
+sJ4t0wbj66oRTOFVjwUSuaXHXDBNRTCPyx4LZlt3KT2kqRyply1AEcsX+h4L
+ZFcWe485jb87lCKWBbT36AnYYvR7Kz8EAoFAhAH/B6R4dVc=
+    "], {{0, 108}, {180, 
+    0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{180, 108},
+  PlotRange->{{0, 180}, {0, 108}}]], "Output",
+ ImageSize->{184, 108},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1114914603]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1644660208],
+
+Cell["Taylor series:", "ExampleText",
+ CellID->1942901191],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"ScalarD0", "[", 
+    RowBox[{"0", ",", "0", ",", 
+     SuperscriptBox["M", "2"], ",", 
+     SuperscriptBox["M", "2"], ",", "0", ",", "s", ",", "M", ",", "M", ",", 
+     "M", ",", "M"}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"s", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->301284976],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", 
+       SuperscriptBox["M", "4"]]}], "+", 
+     FractionBox[
+      RowBox[{"2", " ", "\[Pi]"}], 
+      RowBox[{"3", " ", 
+       SqrtBox["3"], " ", 
+       SuperscriptBox["M", "4"]}]]}], ")"}], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox["3", 
+        SuperscriptBox["M", "6"]]}], "+", 
+      FractionBox[
+       RowBox[{"5", " ", "\[Pi]"}], 
+       RowBox[{"3", " ", 
+        SqrtBox["3"], " ", 
+        SuperscriptBox["M", "6"]}]]}], ")"}], " ", "s"}], "+", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox["29", 
+        RowBox[{"6", " ", 
+         SuperscriptBox["M", "8"]}]]}], "+", 
+      FractionBox[
+       RowBox[{"8", " ", "\[Pi]"}], 
+       RowBox[{"3", " ", 
+        SqrtBox["3"], " ", 
+        SuperscriptBox["M", "8"]}]]}], ")"}], " ", 
+    SuperscriptBox["s", "2"]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", "s", "]"}], "3"],
+    SeriesData[$CellContext`s, 0, {}, 0, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`s, 
+   0, {(-1) $CellContext`M^(-4) + 
+    Rational[2, 3] 3^Rational[-1, 2] $CellContext`M^(-4) 
+     Pi, (-3) $CellContext`M^(-6) + 
+    Rational[5, 3] 3^Rational[-1, 2] $CellContext`M^(-6) Pi, 
+    Rational[-29, 6] $CellContext`M^(-8) + 
+    Rational[8, 3] 3^Rational[-1, 2] $CellContext`M^(-8) Pi}, 0, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{427, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1482142899]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[TextData[{
+ "By default, the code for ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is compiled to ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " at initialization.  If approprate libraries are available, numerical \
+evaluation can be made to go faster by compiling to C."
+}], "ExampleText",
+ CellID->308658232],
+
+Cell[TextData[{
+ "Quit the kernel to clear ",
+ StyleBox["X`", "InlineCode"],
+ " definitions:"
+}], "ExampleText",
+ CellID->1348549334],
+
+Cell[BoxData["Quit"], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1492990344],
+
+Cell[TextData[{
+ "Set the compilation target to C before reinitializing ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "ExampleText",
+ CellID->1459337677],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"$CompilationTarget", "=", "\"\<C\>\""}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"<<", "X`"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->129719287],
+
+Cell[BoxData["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"Package-X v2.1.0, by \
+Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
+TagBox[ButtonBox[PaneSelectorBox[List[Rule[False, \\\"\\\\\\\"guide\\\\\\\"\\\
+\"], Rule[True, StyleBox[\\\"\\\\\\\"guide\\\\\\\"\\\", \
+List[\\\"HyperlinkActive\\\"]]]], Dynamic[CurrentValue[\\\"MouseOver\\\"]], \
+Rule[BaseStyle, List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], \
+Rule[ImageSize, Automatic]], Rule[BaseStyle, \\\"Link\\\"], Rule[ButtonData, \
+\\\"paclet:X/guide/PackageX\\\"], Rule[ButtonNote, \
+\\\"paclet:X/guide/PackageX\\\"]], Function[Annotation[Slot[1], \
+\\\"paclet:X/guide/PackageX\\\", \\\"Hyperlink\\\"]]]], \
+\\\"RowDefault\\\"]\\)\"\>"], "Print",
+ CellLabel->"During evaluation of In[8]:=",
+ CellID->1495453599]
+}, Open  ]],
+
+Cell[TextData[{
+ "If no errors were reported, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is now evaluated using compiled C code.  (The first evaluation triggers \
+the compilation, and may take a few seconds to execute):"
+}], "ExampleText",
+ CellID->124776273],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0", "[", 
+  RowBox[{"1.2", ",", "1.2", ",", "1.2", ",", "1.2", ",", "5.5", ",", 
+   RowBox[{"-", "1.0"}], ",", "0.5", ",", "1.2", ",", "0.5", ",", "1.2"}], 
+  "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->161752355],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.23098661118787653`"}], "+", 
+  RowBox[{"0.38119933874587475`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{151, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1388477545]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is invariant under the permutation group ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["S", "4"], TraditionalForm]], "InlineMath"],
+ " generated by\[LineSeparator]  1. cyclic transformations, ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "1"], "\[Rule]", 
+      RowBox[{
+       SubscriptBox["s", "2"], "\[Rule]", 
+       RowBox[{
+        SubscriptBox["s", "3"], "\[Rule]", 
+        RowBox[{
+         SubscriptBox["s", "4"], "\[Rule]", 
+         SubscriptBox["s", "1"]}]}]}]}], ",", " ", 
+     RowBox[{
+      SubscriptBox["s", "12"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "23"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "0"], "\[Rule]", 
+      RowBox[{
+       SubscriptBox["m", "1"], "\[Rule]", 
+       RowBox[{
+        SubscriptBox["m", "2"], "\[Rule]", 
+        RowBox[{
+         SubscriptBox["m", "3"], "\[Rule]", 
+         SubscriptBox["m", "0"]}]}]}]}]}], "}"}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]  2. transpositions, ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "1"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "12"]}], ",", " ", 
+     RowBox[{
+      SubscriptBox["s", "3"], "\[LeftRightArrow]", 
+      SubscriptBox["s", "23"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "1"], "\[LeftRightArrow]", 
+      SubscriptBox["m", "2"]}]}], "}"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "ExampleText",
+ Deletable->True,
+ CellID->1944346293],
+
+Cell[TextData[{
+ "The set of all equivalent orderings of the arguments of ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->2089286136],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"invariantOrderings", "=", 
+  RowBox[{"Map", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Permute", "[", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+        "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s12", ",", "s23", ",", 
+         "m0", ",", "m1", ",", "m2", ",", "m3"}], "}"}], ",", "#"}], "]"}], 
+     "&"}], ",", "\[IndentingNewLine]", 
+    RowBox[{"GroupElements", "[", 
+     RowBox[{"PermutationGroup", "[", 
+      RowBox[{"{", "\[IndentingNewLine]", 
+       RowBox[{"(*", "Cyclic", "*)"}], "\[IndentingNewLine]", " ", 
+       RowBox[{
+        RowBox[{"PermutationCycles", "[", 
+         RowBox[{"{", 
+          RowBox[{
+          "2", ",", "3", ",", "4", ",", "1", ",", "6", ",", "5", ",", "8", 
+           ",", "9", ",", "10", ",", "7"}], "}"}], "]"}], ",", 
+        "\[IndentingNewLine]", 
+        RowBox[{"(*", "Transposition", "*)"}], "\[IndentingNewLine]", 
+        RowBox[{"PermutationCycles", "[", 
+         RowBox[{"{", 
+          RowBox[{
+          "5", ",", "2", ",", "6", ",", "4", ",", "1", ",", "3", ",", "7", 
+           ",", "9", ",", "8", ",", "10"}], "}"}], "]"}]}], "}"}], "]"}], 
+     "]"}]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2140424843],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+    "s1", ",", "s2", ",", "s3", ",", "s4", ",", "s12", ",", "s23", ",", "m0", 
+     ",", "m1", ",", "m2", ",", "m3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s1", ",", "s4", ",", "s3", ",", "s2", ",", "s23", ",", "s12", ",", "m1", 
+     ",", "m0", ",", "m3", ",", "m2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s1", ",", "s12", ",", "s3", ",", "s23", ",", "s2", ",", "s4", ",", "m1", 
+     ",", "m0", ",", "m2", ",", "m3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s1", ",", "s23", ",", "s3", ",", "s12", ",", "s4", ",", "s2", ",", "m0", 
+     ",", "m1", ",", "m3", ",", "m2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s2", ",", "s1", ",", "s4", ",", "s3", ",", "s12", ",", "s23", ",", "m2", 
+     ",", "m1", ",", "m0", ",", "m3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s4", ",", "s1", ",", "s2", ",", "s3", ",", "s23", ",", "s12", ",", "m3", 
+     ",", "m0", ",", "m1", ",", "m2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s12", ",", "s1", ",", "s23", ",", "s3", ",", "s2", ",", "s4", ",", "m2", 
+     ",", "m0", ",", "m1", ",", "m3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s23", ",", "s1", ",", "s12", ",", "s3", ",", "s4", ",", "s2", ",", "m3", 
+     ",", "m1", ",", "m0", ",", "m2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s3", ",", "s2", ",", "s1", ",", "s4", ",", "s23", ",", "s12", ",", "m3", 
+     ",", "m2", ",", "m1", ",", "m0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s3", ",", "s4", ",", "s1", ",", "s2", ",", "s12", ",", "s23", ",", "m2", 
+     ",", "m3", ",", "m0", ",", "m1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s3", ",", "s23", ",", "s1", ",", "s12", ",", "s2", ",", "s4", ",", "m2", 
+     ",", "m3", ",", "m1", ",", "m0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s3", ",", "s12", ",", "s1", ",", "s23", ",", "s4", ",", "s2", ",", "m3", 
+     ",", "m2", ",", "m0", ",", "m1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s2", ",", "s3", ",", "s4", ",", "s1", ",", "s23", ",", "s12", ",", "m1", 
+     ",", "m2", ",", "m3", ",", "m0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s4", ",", "s3", ",", "s2", ",", "s1", ",", "s12", ",", "s23", ",", "m0", 
+     ",", "m3", ",", "m2", ",", "m1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s23", ",", "s3", ",", "s12", ",", "s1", ",", "s2", ",", "s4", ",", "m1", 
+     ",", "m3", ",", "m2", ",", "m0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s12", ",", "s3", ",", "s23", ",", "s1", ",", "s4", ",", "s2", ",", "m0", 
+     ",", "m2", ",", "m3", ",", "m1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s2", ",", "s12", ",", "s4", ",", "s23", ",", "s1", ",", "s3", ",", "m1", 
+     ",", "m2", ",", "m0", ",", "m3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s12", ",", "s2", ",", "s23", ",", "s4", ",", "s1", ",", "s3", ",", "m0", 
+     ",", "m2", ",", "m1", ",", "m3"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s4", ",", "s23", ",", "s2", ",", "s12", ",", "s1", ",", "s3", ",", "m0", 
+     ",", "m3", ",", "m1", ",", "m2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s23", ",", "s4", ",", "s12", ",", "s2", ",", "s1", ",", "s3", ",", "m1", 
+     ",", "m3", ",", "m0", ",", "m2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s2", ",", "s23", ",", "s4", ",", "s12", ",", "s3", ",", "s1", ",", "m2", 
+     ",", "m1", ",", "m3", ",", "m0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s23", ",", "s2", ",", "s12", ",", "s4", ",", "s3", ",", "s1", ",", "m3", 
+     ",", "m1", ",", "m2", ",", "m0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s4", ",", "s12", ",", "s2", ",", "s23", ",", "s3", ",", "s1", ",", "m3", 
+     ",", "m0", ",", "m2", ",", "m1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "s12", ",", "s4", ",", "s23", ",", "s2", ",", "s3", ",", "s1", ",", "m2", 
+     ",", "m0", ",", "m3", ",", "m1"}], "}"}]}], "}"}]], "Output",
+ ImageSize->{568, 157},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->334478250]
+}, Open  ]],
+
+Cell["Check the invariance numerically:", "ExampleText",
+ CellID->2014340866],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"invariantOrderings", "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"s1", "\[Rule]", "1.2"}], ",", 
+      RowBox[{"s2", "\[Rule]", "2.1"}], ",", 
+      RowBox[{"s3", "\[Rule]", "1.5"}], ",", 
+      RowBox[{"s4", "\[Rule]", "0.7"}], ",", 
+      RowBox[{"s12", "\[Rule]", "14.2"}], ",", 
+      RowBox[{"s23", "\[Rule]", 
+       RowBox[{"-", "8.1"}]}], ",", 
+      RowBox[{"m0", "\[Rule]", "1.0"}], ",", 
+      RowBox[{"m1", "\[Rule]", "1.3"}], ",", 
+      RowBox[{"m2", "\[Rule]", "0.8"}], ",", 
+      RowBox[{"m3", "\[Rule]", "1.4"}]}], "}"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Map", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"ScalarD0", "@@", "#"}], "&"}], ",", "%"}], "]"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"Equal", "@@", "%"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1364041313],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"-", "0.04201201379414667`"}], "+", 
+    RowBox[{"0.07978641356566897`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414669`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.042012013794146576`"}], "+", 
+    RowBox[{"0.07978641356566897`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.042012013794146735`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.0420120137941467`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.042012013794146576`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.0420120137941467`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.042012013794146576`"}], "+", 
+    RowBox[{"0.07978641356566908`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414667`"}], "+", 
+    RowBox[{"0.07978641356566908`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414665`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.042012013794146576`"}], "+", 
+    RowBox[{"0.07978641356566897`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.0420120137941467`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.042012013794146735`"}], "+", 
+    RowBox[{"0.07978641356566897`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.042012013794146576`"}], "+", 
+    RowBox[{"0.07978641356566908`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.042012013794146735`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.042012013794146576`"}], "+", 
+    RowBox[{"0.07978641356566897`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414665`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414667`"}], "+", 
+    RowBox[{"0.07978641356566897`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414667`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414669`"}], "+", 
+    RowBox[{"0.07978641356566897`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414669`"}], "+", 
+    RowBox[{"0.07978641356566897`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414667`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414667`"}], "+", 
+    RowBox[{"0.07978641356566908`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{
+    RowBox[{"-", "0.04201201379414665`"}], "+", 
+    RowBox[{"0.07978641356566912`", " ", "\[ImaginaryI]"}]}]}], 
+  "}"}]], "Output",
+ ImageSize->{503, 105},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->487386209],
+
+Cell[BoxData["True"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->997385005]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates to ",
+ Cell[BoxData[
+  ButtonBox["ComplexInfinity",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/ComplexInfinity"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " at infrared divergent points:"
+}], "ExampleText",
+ CellID->377478780],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0", "[", 
+  RowBox[{
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["m", "2"], ",", 
+   SuperscriptBox["m", "2"], ",", "s", ",", "t", ",", "0", ",", "m", ",", "0",
+    ",", "m"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->394467115],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"ScalarD0", "::", "irdiv"}], "MessageName"], ":", 
+  " ", "\<\"\[NoBreak]\\!\\(\\\"Soft\\\"\\)\[NoBreak] singularity \
+encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/ScalarD0\\\", ButtonNote -> \
+\\\"X`ScalarD0::irdiv\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1041230646],
+
+Cell[BoxData["ComplexInfinity"], "Output",
+ ImageSize->{112, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->119227919]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " on ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain the corresponding dimensionally regulated expression:"
+}], "ExampleText",
+ CellID->1660890956],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVD", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", "s", ",", "t", ",", "0", ",", "m", ",", 
+    "0", ",", "m"}], "]"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1501582510],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{"t", ",", "m", ",", "m"}], "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox["1", "\[Epsilon]"], "+", 
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], "s"]}], "]"}]}], ")"}]}], 
+   RowBox[{"s", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"]}], "-", "t"}], ")"}]}]]}]], "Output",
+ ImageSize->{219, 52},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->60198007]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->296879209],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not evaluate for complex arguments: "
+}], "ExampleText",
+ CellID->793391287],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0", "[", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+   RowBox[{"-", "10.2"}], ",", "21.3", ",", "5.4", ",", 
+   RowBox[{"3.3", "-", 
+    RowBox[{"1.1", "\[ImaginaryI]"}]}], ",", "5.4", ",", 
+   RowBox[{"3.3", "-", 
+    RowBox[{"1.1", "\[ImaginaryI]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->245529215],
+
+Cell[BoxData[
+ RowBox[{"ScalarD0", "[", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+   RowBox[{"-", "10.2`"}], ",", "21.3`", ",", "5.4`", ",", 
+   RowBox[{"3.3`", "\[VeryThinSpace]", "-", 
+    RowBox[{"1.1`", " ", "\[ImaginaryI]"}]}], ",", "5.4`", ",", 
+   RowBox[{"3.3`", "\[VeryThinSpace]", "-", 
+    RowBox[{"1.1`", " ", "\[ImaginaryI]"}]}]}], "]"}]], "Output",
+ ImageSize->{449, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1019483213]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Neat Examples",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->589267740],
+
+Cell[TextData[{
+ "Real and imaginary parts of ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["D", "0"], TraditionalForm]], "InlineMath"],
+ ":"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1122490625],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Grid", "[", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"\"\<Re\>\"", ",", "\"\<Im\>\""}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"Plot3D", "[", 
+       RowBox[{
+        RowBox[{"Re", "[", 
+         RowBox[{"ScalarD0", "[", 
+          RowBox[{
+          "1.24", ",", "0.3", ",", "2.18", ",", "1.9", ",", "s", ",", "t", 
+           ",", "0.5", ",", "0.8", ",", "1.0", ",", "1.2"}], "]"}], "]"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"s", ",", 
+          RowBox[{"-", "15.01"}], ",", "15"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"t", ",", 
+          RowBox[{"-", "15"}], ",", "15.01"}], "}"}], ",", 
+        RowBox[{"PlotPoints", "\[Rule]", "30"}], ",", 
+        RowBox[{"ClippingStyle", "\[Rule]", "None"}], ",", 
+        RowBox[{"PlotStyle", "\[Rule]", 
+         RowBox[{"Directive", "[", 
+          RowBox[{"Green", ",", 
+           RowBox[{"Specularity", "[", 
+            RowBox[{"White", ",", "20"}], "]"}], ",", 
+           RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}]}], "]"}], ",", 
+      "\[IndentingNewLine]", "\[IndentingNewLine]", 
+      RowBox[{"Plot3D", "[", 
+       RowBox[{
+        RowBox[{"Im", "[", 
+         RowBox[{"ScalarD0", "[", 
+          RowBox[{
+          "1.24", ",", "0.3", ",", "2.18", ",", "1.9", ",", "s", ",", "t", 
+           ",", "0.5", ",", "0.8", ",", "1.0", ",", "1.2"}], "]"}], "]"}], 
+        ",", 
+        RowBox[{"{", 
+         RowBox[{"s", ",", 
+          RowBox[{"-", "15.01"}], ",", "15"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"t", ",", 
+          RowBox[{"-", "15"}], ",", "15.01"}], "}"}], ",", 
+        RowBox[{"PlotPoints", "\[Rule]", "30"}], ",", 
+        RowBox[{"ClippingStyle", "\[Rule]", "None"}], ",", 
+        RowBox[{"PlotStyle", "\[Rule]", 
+         RowBox[{"Directive", "[", 
+          RowBox[{"Red", ",", 
+           RowBox[{"Specularity", "[", 
+            RowBox[{"White", ",", "20"}], "]"}], ",", 
+           RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}]}], "]"}]}], 
+     "}"}]}], "}"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1061175774],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJzsnQd8FMXbx+f2koAbqgZF/nYRFRV9eXavpCcQIEBASoBAQicKgoKKio0i
+IEgTBCnSIUDoQYqI9JbABQg9FAkq0gTFjqj7zjOzu7dXCSE0uefzcOxO9vb2
+dma/93uemZ19uP0rjdMFQshrJelL43Zvxr36arteTYLoSnyv1zu1N9OFqfRf
+dxMhuKzcrvbziYIDR9AOHDhScOL8jT6cgN38dulMwRHeZrDZHCn440YfUMBu
+Gvsjq1ccxSmpFtcwji2kTgkwJWD+7NKRfrSlVCOapef+fKMPKWA3kf0xrhoZ
+uZv9yPy8gbaPcbuxfZw/sCJdbTPVBq84cIOPMWA3nf0xMq5hNpcmf+zuXq0a
+/z2qlto9vSE2mpEbTtzgAwzYjbGfKU96rTjy8/kzu1ePpC1hxRlFObOasqR7
+RvbPly6dyM6ghf1WB5pHwIx2nvJkg6pMLu3O6E6l7Yrc1fS/hiNXZGekk+4r
+buzxBewG2c9TGuraFcFCiwqyumNuafC4kYMHjxzZD3VKv+wbfZwBu6nMyBOq
+UEaSauPoAmpdKmaPjCNkcCBwvi0N9clgGu/8nEu5kp6Boc3uKalUuo7LypqX
+MW/evKwVK1ZkHwm0joAZ7WcjT36mPCHjLrHYmbalSwcoXkYG0iq3o/1R0EuT
+JWc29KNKZN6B85eOYIyTkUsjH+XS+YKskb36zQukUAKm2h/nz/98/ki/ag2z
+jpyhi5cU5cRq2nL6neGx84bzlw5QfdIrECHffvbHvHQ10hmJafpLWb1ocBOX
+/bOye14/PQiq1rDX6iOBX5uAMbt0pDsxWlz2mVweMaeOW415FNIvNzeDtaiA
+pg2YwS7hD9Efl270YQQsYAELWMACFrCABSxgAQtYwAIWsIAFLGABC1jAAhaw
+gAUsYAELWMCuwtLT02/0IQQsYAH7L1i6h93oIwpYwAJ2SxqnhxtDAmAJWMAC
+dkVmJIYvdARES8ACFrDLmqcgKcxbAmwJmB8LNIzb0zzr/UpbQoAtAXOzQBbu
+9jSvFX01tR9oQre56VUfyMLdVuancour0gNsud3MWNGBLNztY/6r8lpUdKAJ
+/ectkIW7Pe2ydXdNKzfQhP6TFsjC3Z5WyF+N63AkSqAJ/VcskIW7Da3wtXND
+KjHQhG5Fu55ZuGLZW8CKxa6oOm543QXYckvYdc7CBVrFTWJFiGSv0ZEUwQJN
+6Oa0QBbu9rQinPCbs44CTejmsUAW7ja0Ip/hm79eAk3oRlkgC3d72tWcz1ur
+LgJN6LpZIAt3e9pVnsBb9/wHmtC1s0AW7va0qz9p/43THmBLMVogC3d7WrGc
+pf/eqQ40oSLbfykLRwgxrgbY4seMp4W4WhF2VdxHd7NYoAldkf1nsnCXvRwC
+DcNobieB+LDC7+1qcHSrWKAJ+bf/TBbuSq+C27xheH5rPGtViGgTqReBLfSv
+cMyu+38eLMpt34Q8zVPrFnkPN9aMbf41gCv9Irdbq/D6TZ08sYsqVapgiW6Q
+Al7bifrXY/awdZXckAIFtwVYlNueLW5fnFZ3syIJ3Zvh7NFD3aodc2yReKLb
+f75V+PlqePqeYDyJ0HjyhFOxGEWLESxu5gYTo98mYFFug1bkZl61bgtC3hTF
+F0Sxh+hF7hZ+V9fZ6LFdBNBhcpU8Mdp/r1X4/yJ4Bp8kYrgoRjGAhIukKuOJ
+HZc5T1TRolsV4svcYMJ54gaW24otN/pArpX50rotGU86i+JrjCd1CfEKFuLR
+e3KjGgb/3N8AfmMA6S6KHCbdBKHYj+c/wJbLHjmezaoExUkMC3kiRPIU40kE
+Uyx2jSePEx4QkWourUJsEhqUFOwLLOrCce7h3G9PsNy6TcjT/Gjd1oS8JYov
+iWJPhpEkem2K4hui2EkUu/sAC7cskKlf57ZBP+VXhhH+GnuNeWK0W7FhFOZQ
+seaeJmI0PY+iGIkqhTzDFEsk40k440k4BkH4+ixBJwgcwSpQd2VLKS9g0TCi
+w8Rt9TYBi3IVwzNuHvP/FThP0kSxmyi+yejRkJCebJlGQK9qioVes6/7Zsti
+RpXF15gtfLc/A6xlr3T5JUJeEcWXqbhiPHnpOrbJm58thT82vMA7AKWEWINJ
+lBhW0U8xwkQxuUJQq1DCkOeIYBeo0xLBJmDUUw3dZDG5UQXB4hETGWAS4fRv
+IrCQvf7nwXIzN5jCWGG0bhvqokgvzLcYMbqKYistAuIMqc8UC11OZ6vNCWll
+aCTviaHGNrMI5EWuYLn6FqLv5yeAn7ScCWUdBcjLTJxcf54Y7SYEyxUdDF7O
+LwIBItYUKVIQCPEY1CBbotFVnlQlQrjgyROUKDwC8lAsXK54ihadJDpM4Fvq
+kejfRf5XwXKzNZIrtUJq3U8AarGcSS+GCypUeATUmUU9nCevs2goldVyD0Gg
+iuVlk+llQUg1NBK63MdDwywAiXrR8KJvfxrgC0LOAPwAcFbnCdMnbbU07A3k
+iW43CViu9ADwiu4hkwiTWC9UrMPoUVMk/0fEOBYBcbkCqFhIdRUpOk84QLg+
+QZJoisVLHFRF0y1ubPkmUiUJgwn6iSgsZ6//Gaqke3vKzC1khde6owFqMwXi
+xpMuWgSUREULu3g5PTrzCEgQiF/rJ4of+E2/eG0tbn89DnCCOV3WF7qxP7Vk
+h6SnTW4Gnig3wW9QUWDSW4b3bKSWICbT6700Xv4NSpFwk5goirVDxQSsRCEO
+RYgQJRAJqYL2HCGPI1Wom6wmlTCPY3YFgfOctk0VJ1t0nohNS1F3ocp3Uapr
+MEH/Ht1XU7m17JbmSeEP28+V3qUQNListSOkPSED2a4+EsWhojjC727HErIT
+YA/jxiGAowDHAI6z1eOaMuE8eUELc3Se3AxN7gbypGgfTU8aDLHDYDtpHCy2
+LS22KUtLxBalSU1BbBIqNi5FajJW1DUTCxESzEJNQYhnfLAwKSIhZEyRbJsI
+gTyNr0KkQGUMlkQyxfIcc0OvEMKkikoVN7AQDhMkSTScjIZTzE/H6H+9Fqfu
+WpteL7ccT660URWdFFdovHe5M5M6H4viJ4wqn7HX3oRkiOI8UVwkiktFcT7b
+cip7zWBObZa2nzZMlmAJgJEn17pzpzB2A3+Divyh9KTBuBgYE0ValxS7lhc7
+l6MlYocyYruypK5AnhdIA0aGJsEk2iQkmaljpxotqYVahRKG2AnhvTQWFhBF
+CUKMIESzd8WgYsEQKYIhyEgVV56oC64pXDgVQ0kCp/Hz4Gws/BAH5+L0vxbv
+Cbx2ZqyaW4snRft5Gu+R37imNkTTJ68R8gZbeI+QaaI4SxTniuICURzFClcY
+ZMxEw9tjNXQsucl4cgN/g64KJrPrwcxEmFaLdC4rvlVRfL0CLRRfKS++VI40
+CxY6hgjtQvC8NxFIHUFoFkTqM1A0ChIamGlMhISpw1gRY0KqWEzExoIjwoIj
+K45sQbkSxUrCBWeOhZmRJ4wwpdGTMeZyZ8s5hAn8GA8X4uGXGvBbDV5evGey
+2M2tam4hnhTtUGmNTLpePIn3KHmNvY5nDOlHwyIaE7GSEVTDEDKSuW5clugA
+WSkINw9PbkWYKJwnnyfDokaQmUReryh+8DAtEd/5n/j2vaRrGdJOFF7Bi13o
+XFLoFEIam0lzM2nKyJASJDQPIjUEobFZeN6MJQ3MGBPZTUJtgfAuGjvByOhZ
+4pQr4SwOepIt2LT8WxX1VYcJ54m6wO8kMt5M9GtN+L0mLlxKgL8TeGExns/i
+tVuUJ1fzCzXFo3u3aNaaXCZDW4u4jFJwu2/obfY6URQnieJk9kqYdOFmzJPw
+hc2uq7chT64yV+NZQeLwJ/H1w0fJOxWF3veQLncKve6iJUKPMtRJmih0EYUX
+7sBNU4JIMzPVKkLLINIQz7ypiSA0MlOVgoqlPiMM1S1RmGAhERQsrCTaTGTC
+cixmIZyVWM3qZzNocIboPMGSZqW5qwlezeDvWvAP839rSf/WuoFV78duRZhc
+fQLQDwEmXglq2l6OJ+0Es3G1tbba3FD4KiHdCXlZW9UPz5Mnu28antyQAPnq
+P4ieLtiYDBuawbrmsLoZoRhxs56V6IvQp6LwTgXy6p3khXLCq2URLLSwaymh
+s0iahZBWIaQ5DrYX0kJMFDK1BVPTIFKPqZHnzRgTRZhQt8SwnxIOFqpYosxC
+pAtPjGpEj3cYScqgNy8jti2jHxf8Uxv+RZe4K7VlJeFG1b4v86ygm58nxXKE
+fggwWePJJA+wjPcoefVyPEl11Scp2moCW4j3CIiMx0ZxoXODL+TdHDy5Ib9B
+xQOTnOdhayPY3Bg2NYENybCeCcaRjwrjHhPGPCaMfNhYF8KASkLfiuSlO3G5
+153Ca2UpW0hb0fQSC4hevIOkhpAWwaRhEEkOElIx5WJqFkRFC4kXVLDQzRLN
+JJoNZbEZ9kyRwsIZpzjRIyAdJs3LhLZHnpiGOjWrpNThTmEiKzWNzeZmsFuO
+J8V1eLwWMrxJkWla4RQPsLwbdo/bxmMvJ2YauAKnrsaTt1kCpxdIb4H0Jkhv
+APTUOn+/9ehc1nnicMXL7cOT4oFJbl1w1IdtSZDTALKfhy2NsHBjY1jfRJj0
+qDCxsjDhMfLhI3jGBz0ofPww8bTXypPOZSlY6KLwainh5VI0GiItQkgay9+2
+MAutg4XUYJIomJIZTBojVXgopBqt9v8jgs2Mo1aQJ2XQm5VR8cIXKFUoT1ow
+mPRhPOlJQEmUlES+DxnFCcLErkSHKxFRiu2GNAM381pHNzNPivHYeL3MAYtn
+k5mhIUIHy1TfiuWdCu6EcbMBrm/po62+x3jyLkjvgETZ0outxmo8OUrITEJ2
+Gt4Yy2TJVg0jsdflZkCvdv1/g4oHJnm1YFdt2FkHdiQiWLbXx8KcJNjaADY3
+hE3Pw4ZGFCx4rkc+JIx/WBj7sDDmYWEUw8sH/yN9K5H3L1PX/iyKRUCEqZTq
+jCpPEJ0hTp4058qkLF8VxpqRJ0NwwIGk1JUYUmSlDt+lXYmJQJjYYxTrZZtB
+IQ+zyGfYVx3dnDwp9hFT9NTNlyzzJMtcyQtSuM3U/jRdW5jqsfFE32/nNsiV
+Jx+A3JAplr6svDfIFCycLSnsrhyF8eRrUZyu8WSMa98x0Xiiq5RiPC2Xtev8
+G1Rc9W48e7CrFuysTalCuGLZXg9y6kN2EmxpiCUbKVUawtqGwmcPChMepFSh
+hcInD5JB95mG30c+qER6VcSS/vcI/cLI62WFd8qRF0oJb2D2Q3hFFLqVFLqU
+IM2CSEumT1oHCS2DsMc5nunSWGKqQStPTaTwHmQOE2QI8qQseouy6rEOIypP
+OlCe1KNIkZEntawKRskRShSFSaxiraHINRXJT0vA7/UBwFiAaRIswC3hKxnW
+y7DZAjlW2I44gp02yHOZraXwTctPHd2EPLkWh0TP1ULJuoB5BmPCXMn6EciZ
+kiVTQ8QsbWFghYp8YboHPSZfjidDJBeeDAS5MW2MIPdnPKFU6asBx5MnO1j5
+KKqUWCfyZFGcadgVhcl1Hh97/WFSLPvBi2VvHOyJh901YHdNY3XAjjqQm4ju
+qAvb6mHJ1iTYnASbkmB9EqxrgBsNvp+M+J9p9P+ET/4njKIqhTWGvneT3mHk
+3TuFfneRV1j483ZZ4c1Swuuh5MUSPPwRXgghLQXSXCBNTCSBDaalsU9tsylO
+MEVqo/GblTX2DlOScJhQZYKv45g++QhvtJCU+rJSj4oTK0vDRio4Jj9OscYr
+coIi1bgIsRe8Nwb8Um8BfAwwEWAOg8lKGVbLsNECW62UJ1iSa4dddsoT2G2H
+vXbYh+7WkotWUzcbT67R8dDzkyXZFkvWRZKVgoWuUrCMA3m+ZJ3HVjMlayZb
+GFSh4my2QC3Dgx7TXEvGe2ww3JUngyWZOqXKQIYRHg21ZHcr01cjT6YSsp29
+5WM2UHYEjbYYZAgbW/uyy4dcJ6RcT54UJ0z2xaJTpCBVECxYmFcT8hLcKgu2
+J8K2RMipC9n1YEs9ChZaGDb9WVhbH1bXE8bdK3x6L17mo+4lA+8Wht0tfBRG
+epejKgULe5cV3i1Nut8hvCGS9ownXUsIL4YIHYOFNkEkkfHkeRyvIsQzfaIl
+YIMa3UGd6xM9zKHKROVJb6ZPGuMqFSc2FSbRMUp4HEubJFCe/A1xP0PUaS88
+wS/VBWAAwGiAqeqYK/hShrUW2GxlPMGdwA53nmDhfjscsMNB5vk+J5rzX1M3
+FU+u3cHQc7JUsn0u2ZZINgoWurpYsmUwtixg9OBgGVqhog6WOZKVg2WWhhdq
+MwzLxFv48xrTNt1ZmuUtkIZJ8lCGlMEaZ1qJoa288WQKITlsg+GEzGOvE7UB
++Zwn1F8UxbqEvAHeZ04uXrueAXJxwmR/NOyjHsMcqYKFlCq7qcdDXg0Eyy4X
+0YIbIFUwIAqb8zRsrgsb68L6urC2Lqyui3+mMBl9jzCqgjAiTBiGg1XI+2UI
+hclbocL7pYR3sDaFniWFHiWFbiFC52BUKTgczoz3lMYRIc6so0MLcMoFNdaS
+8MPQnfqE8oSWJFKY1ON/j1KiY5WIeMVWQ7FQmNCS+F8h+geI+MY7T1y+V5YM
+y332IGg8YRO27AuH/eFwIBwOMs9Hx/JDdur6W24VmFzrW8zoqVgu2ZdJNupL
+GU84WJhowdWFkm1EhXt5QDSfQWMuAwv1OWyVsmUWxkrWmZJVp8oUyTpJsnzK
+VMenkmWMZBktWT6RLKMYZ16tULFHhYqULZQqwzSepGo8aWXgyVFRnKzNOz1d
+FBf6agGavQbucyYX7+m6boK2GOvd5UrRqEK4XNkby4QKo0oeI0xePOyqATtr
+Qm4CdfcLbXMibEqEjSzlsi4RVifCV3WEsRWE0WHCqDBaKAwrT/qUFj4sQ94W
+yZs4+E14mwqVksKrIaSjILwQhCVpZqEpG0+rdRyLzcuht2CegvcQkYHE9KmA
+Px5GfTIMEy82LQ0bq0TVUGwJiqW2ItdmaZPYHyDyO7AdceeJevBUnIwBmM4i
+HcqTFTTYscB6K2xmymSbHYMd1CcuM1Kyk8Z4ckDlCZZQqhzS/HB4uutDiDxb
+3U3Ck2t9GPSLr5DsulOw0JJlkl1XLHR1VIV7FzO2LJJsC1nJAsk2X7LNk2xz
+2arOFk4VwgbCTZOsUyUrH6YyngZQkmUsxQsDCy0ZzcAyUrJ0Z2DhVZDKMEJf
+U1154pUbZ4LMG02mXSbTRmJaSUM2H/MnuOHlKk/XdfsNKt7+OzgYBQdUd14j
++zS5sjeGUSUWCxlV0HfFw8542FEDctngdkcCbEuAHA+8rKsFa2rB6gT4kv3p
+g3JkUBlhRDlhaBlhMBuW9moJ0jOE9Agm3cxCDzbNbBOTkGroNdZmj8RMbAqF
+SXlcHch8OGKEOpYMJ8gTihcrCWeRTpyCw/opTGopch1FSrgIcT9iXduPgvUA
+yLtdkEKeYZmTYQCfYTkskOFzGVZaYK0VNthgMwtqKE8c4bAjnPIE8iJgN5vr
+aV8Edfdvna+qFDeewJFw5nY46j6r/83Ak2stS4grTLjzQqZY0Onq55Jdj4Z4
+QMTBsoA5wYBIZUumZJvDSqaAzLXKJKY9JknWzyTrBIoX5kRTLGM0uRLLDqZ5
+UHAaDoMK1nnCD/JsCPklhDhCTGdDTD8GY/R9VsDXHJNpv8m01WRaQ0xL2Wjb
+0TQEE8XpbLj+Bywa8mVFO2nXhyfFDZNI5i5Igf1RxrPBqYILe2Jhd6yGlDjY
+yRRLbjzk1gBHDdheA7bVhBxGmM0JsMkdL1i+LA6WxgrDSwtD2EQEr4cIfUqQ
+14LIKwJ50cl8oYlZqOekCpMl5Z05E8YTDhPOE2E8y8d+rG7/SMFDCUp4bdY7
+jOLkH4i/ANEnkRXWfLDsBXmXkyf4BhuBvgCjACYzcbJQhqUyrLLCGhusZzDJ
+CYdt4eCIgB0RsCuC8oSdjUjYF8mRAvsj4IAHWA5FUJ6oMDkcrvGE+VH0m4cn
+1wEm3IwkIa6EGVcBR1zrbFmKYMHN9GhokRYQcbboimW6JM/GJIyNJ2mpUJmM
+bEGfyHjCwTKOLb9ITLHso9PEUMoT+krBoh/enyWFsyXILyWIowTyhJacDBbO
+BGHL3C4IR0yCg0oUk+kLxpNPqVgSxQxRnCqKA9k9htTeJaQXISNEcdiVPBCk
+CDVSLFVWzDDJj0Q/qDmHCaXKfs33obtcI3tiYHcM5FGqYLVwqkAuc0ccbGcp
+3Jx4yI6HLfGwOR42xsN6Vrg6DlbFeZ5hF+toIslUohAa7xiLxRblVWVCWIBD
+YTKeRUbjvfCkhhKVoEQ8VVDxyWP3PFWAN0TX/BViz0DkccaT/WDZDXKuyhN8
+QxSBnj6fHORmsCMSdqLygbxI5MlejpRI2E/PHiunpzE/gjthaRP1jYcj3Hhi
+bF03kCfXIWHiJki4uQkVDhNj+XJNsXCwLJHsWSpe7Islu1GxDDGX4FplJiPG
+DAQLOgXLFFaig6WjydRZ40lrxhP+oflmotixDfxR0nRWNP0smhyi6YyIGDlZ
+UjgTIpwugcw5Lgi7TUKOid1xLIZOIKb5YuhsUZwhioMI6c929R4h7xAyUhTf
+pKpZFD9iVPnwCtlyHWBSvPXuco1oSMHlA5GqUDEgBcsRLNGwN9rljXkx6Lti
+YWcs7IilSMHC7XGwLQ5y4mBrHGyJg82scH0srI2B1TGwKhq+iIJl7LMW2WGe
+HeZYYYZFeIfxobuZNGPxjpoCIbxTmOdMeOoVcyYfsm48N570JSZ2w3mCEllX
+sdVX5MR/5MR/UW884gh7cGtYpa/CrPuwzVBxIjsMPOHfZTCLdKZLkCnDYgus
+sMIqO6xh4mRzBGRHQk4kOFzQin/aqyKXKzo8ewcjVUoz18SJi3ShPCFX0vVz
+7ew6J0yMMY5+NnSYeG7JNzMqFoL5W5UtlCqLWImeYJmjdgOhVpkp2ShYpjPg
+TGWvbYiJ8qSLxhNux4IE6vlByJOLDCBnyph+LmVylDGdKYOr35cynylpPl0S
+OyK/DQrKF4QdLHmyNrTUZGJaJIbOFUNniaHTGDFo1NOHIWWUKPZiUzkRNu/K
+IFEcLIoDqIzxNi9lEerlKiuu2Mco6r+h/GdUbeeqSolUqbJfu0z2RTmdXkF7
+oomHwU4WEOXGgCMWtsdCDvUY2MoKN8XAhmhYHw1ro+CrKFjJYLIsHLLssMAG
+mRaYiWEvjJeEl80oTlINyS5tLgIKE5UnI5AnwgR1mZKE/m8eZzb1I6ZR6sb1
+FUu9f+T6/0iJF6EGG20SfhSoMqm4FHPCd88Pczn0aALvY/IEj2G6jDzJssJy
+G6xkMNkQCZsjYUsU5ETB9ijIxe8Ou6IhLxp2uyq3/YzDNHLM567B5FAk+uFI
+JlHQPVvRDeHJdYCJTgw3mHjKEuKbPN7yty6KhYNlgWSfpyZsUavQCIiDRd8/
+VSOdTKa2LFtC7ZgZmxnCxEyOlRCUCLhYivGknOnn8mZHeeH0nYwnZYNOhwad
+LBnsCMGfvCOCeS/jyabQ0tOJ8LkYukAMzRRDZzJKDESkmHoTMloU32YqhTCe
+DGZC5UPmA1jhS4T0FUXjlNpXVC+F2ebXX38t8nsLb24w0ZFC27/L1XFAE/D7
+o1x4wuXKnij03VF4WVHf5apbHNGwPRpy0HF1cxRsioL1UbA2Elazz1oZDsvs
+kGWDhVYjT2C4BAOA1Fb3IzbXHo4wlPFEkyJkkMoTfGVCReXJaFxuoGAQXe8f
+qe7fkHABYtloE9tBsOwBeYd7XCMmiySOQD8Gk89kmCHDPAse2DIGkzWReNj0
+4LdEIx63aczcGaNqMxr97cXENfEwFSYULIeiNJ4wPxJ5m8DEM8bxgMn/jNBw
+24YUIn+rK5Ys5ppcoWCxz5XsmegqT9qx6Cad8YSuOrSbj48Fozg5VlJQIuFi
+aeHPctiuLlQwOyogNH6sGHLyzqDTZYJPhoY4SoZ8F4Iq5RDLt+SUKj3bJKwM
+LZ0lhtKoZw7b7WDW8diPkE9F8T2NJzTwGSqKQ5hEGcQkCi3sL4r9RJEjpTfd
+mBUWvl78b7Zo0SK73V6xYsUrfeOVmm+YsOWDEXouxQmH/Sw5YITJXq5SGE8Q
+KehYvjMKdtBfcI+ggP64U6RspNdmBKxh3akr7bDMBkussMhC9QCWTJHgUwl7
+WPp7SWUIY1nX8HCiMmQwET5TecL1Cfbv6Dz5R36ehTm1f4O4UxB1HOz5WpiT
+q+4cNrKFJ/HxDGEpYWEvhHGeuB/56ihYFw0bYmBzLGRjEIeFuXGwg6Wj8+Iw
+O817vvi4nf0xcCAaDkYbO4gZT6LgMHd3mFx9Ffv6Gfrrr79+/PFHr3+6UWGO
+kRhuMClMjsWzxFOxECZXFjK5skDbVXsxlHprPVticuVJCDlWSlCi4WJZ4c8w
+xpN7gxyVGE/uK3Hy7uDTd4acLBPiEEucEO84HlKClu8VgrNDSi4QzGtCSy8T
+Sy0WQ+cxngwlpsHENIDlZntrN7u/xeIgWtKXFb7PCt9lczr1Z0jpy5BCLjdI
+qfA1+P333589e7ZChQpubyl2mDgbuSdMnEiJMORSXEQL0WMfzhNVojCYUKrs
+ikKk5DJnqQaMEbLd9+Dc1VKrl1I+GK2Fts0XeOEL45Anwng22u0zHzyhQvNT
+XEy6JCf9he+KPwPR30D4YVDTJjtA3m6AFY2knnGZG4FaWP+KYUPuhYVMnHzh
+Dkb1kHJrYJfWzngcisPH5OyNg33M98eiH4jRxEk0dZf3HsZ9XlHb8GN+foZW
+rlxps9kaNmzYvXt3t8+6PmGOfxToJ8R/jON25v1vvNzQ45ylhULcOoihbUxq
+EF1gFjhPjgnEQSOdECG/JDlWRlDi4GKY+Y97Maj56YEgxwPYrs4/WOJkpZBT
+95Y8ebfoCAs9UabUcXbh7w8qsa90uc+FkNUhJZcFl1gUXHKRiP2VI4hpPDZD
+ihRTP60H+W0WBw0WBOoDBeFDFi5RqvQVBN4Z1Eub27a4eELtl19+MfLkWpDE
+OcIq3zU96KZYDjLIUKoc0HIpTKKErbjf5V17IzlPCIeJzhOUKAxH2yNhG0tj
+bo3AlOZGpkzW2mG1HVbaYIWV9DbDAiZOZkoY7IwEGITXu/imGlTChwArGQEG
+okThPMEbtD7SePKZ2TyB508EU3+VJ/UvSvX+gIRz+MbIr8G2HyMduqyLE9U0
+WsA7LNj5RMZ4ZyaNv+xhI+6jJWHjHoIv47Bban0N2Mg6wbd6GWOD5XtqwN54
+DSlxKkwOxkI+9Rj0Q9HMvcDkaura688QN8qZM2fO0IVatWodO3bsKj+o8Ea8
+BS/Ed5jjxgqv0PAVMXndmGj5W75xRyYbOrDXY6yE8oSLk2Nmko/wIPkiOVZe
+UGrCxXuFPyoHnX5U7Vs8+WTI+aqlTlYpdapymVOPlHXcX+5E2J3Hy6gzdx0t
+c9eX5hLZpcuvL11+VenyC4NxcOYnRJgmmMcTYRAx8cCHMJUyXBAoNIYIwiBG
+FWzRgtBPEPoLQh9BoGB5i8EkQ3L/CfN1nq+UJ3xvxfJrQowkUXkSblQmzutC
+VyxcpRzQnMLkC4SJ2jfK3OWCyotE34V9qbCDwSQ3ErZHwLYIyImAreGwORw2
+sR995IkNvrTCcgtkMZhkSjBVgnESjNCudzYXAl2FPipP6Ct8CfAV0yqfCTiP
+MOvKwWXWR2wey3gyFZfr/wm1foI4NtqERjqYNtnJeKKJE/30kucIvMr2P5jS
+TIYJFphmgwx2nFnRsDQ2bNyjYRMrh019HNZjTgc214bsOpBTGxy1Ibc27NAS
+Pfp52FeD1hfsZ/3jB+PQ8+MYVWLhUIyv5nE1VezWbLj99ttvkZGRfHn48OEZ
+GRmKpkyu6Y05vi5w4598hTlum12ltuEbdCWmjqFqCu4Yc0oS5An7XToWRPLZ
+wJP8UkRJAKWOdPFB4Y+nQk5XC/rx/zCoOSndcd5S7lT18qerh52qVsFRpcKJ
+++85fheGxidYGnl9cOjO0mHZpcPWl8ZhCfNNwWOJMJW6yTzRJEwwCQNZhNWH
+6hZBeIeQYYLwEWUIO55BDCYDGFWo898gypNZUtRsKSqTgSVT9omXIvDE+N4i
+twTiCRPmxFOWuHT0ROhICfviPupYuD/CyBOqTwgf07XblS07GZFyI3D017Zw
+HAm21a4OMV1vh7U2WG2FLy2wjMFkgQyzJJgkwWh2sXfW9pLOxEkvxAjhPFkF
+sJotrwZhokB4V85IGvJg40B9QiXmNCyrcwHiT0Hsd2y0yT6waL3DxhrBpcfx
+Oap85AkMkpEn4y0wyQYz2MlZEANZcbCsJqysBauw9zps+tNhGU+HzX4asuvi
+jZCOupDLbivYVQfy6sDu2rCnltu4ejgYryEFnVwvnqxdu7ZBgwZ8eebMmS+9
+9JKiXe/KtQGL16vbT/ByWRQQv4qF+NU2WgsinTSYFAgC8oTBRC0JFo4FE0cI
+KSjNZjKpA0oD+eJjwu/Vgs5YQ36MLEkLv48udS7+rlNRd5+KqnTKVslRrdJ3
+lREjJx989ESlR767Byfo2F/u3twy92wtg2P4lwbdMVEQZ5qCMoSgSbRhsulW
+PiTCBzhw20RVyiAW2hDe46PFPv0ZTPoy0ZIhRc+WoudI0ZkShsmZcvRcOXqe
+HD1fjl7AnBQ6Z+uHJ7pdaUsgbFgmmV3C2cKdMAn3k5h1uSjYsE+Eyf4IdSyo
+Nsgc9kbAHhx5juPPue/yGCOaY6c8wYVNdlhvwxHsqy04lH0p48k8CWcaGc+u
+9y5UnrK3ZABpTaA3QA+NJ0ycqDxZA9TJELZ3I08Gqvqk5g8QfRwijoBtnxrm
+yDlOZcJPC6lCoDVAZ7bD9yUYKMMIGcZY4TN2qLOjYW4cLKwJS2rD8kRYyeZn
+WNMA1jeAjQ3CZj8Xlvlc2DycAhtyk2BHEuyqD3l1YXeiGunsqw37asF+Z2QE
++fFeK1Sv1kJWqKd55cmaNWsaNmzIl2fMmMF5ong0quICi9er20+Yc9kt/esQ
+ryX6lnzhBWxNqA3yOT3MAoWJC09KCAV3CA6RFLBOYZwyJ1m++JT5dzn4TDR2
+4pyvjUH3uQYVTtWteCrxoVNxDzisDxRUe4gWnnzm2ROPPfP9/U9tL4ere8s/
+kFuWjewNLj89+M65gphhCskQgqcLqH4+wrRfUH8i9CWm91kaljCq9NcytH0M
+gx4zpJjZUswcCaVsphwzl/k8OWa+HLNAdurbIvDEs/avtCUQBhN0V1mitXB3
+nhCjYmHiJGzlfcYx5EaeEA4TnScaUrB8ZzjkMneEwzb3lJq6qxUMJotcH8Xy
+OvvTMpx+hCSzG2re0XjCxAliBCMmQF+jxT483hnv5Am1yKNgP4jjYOkyFSdS
+tuvdOuxuIGgP0IXt8D0J+l9mMlJY2Qi+agxrmsD6Jjih7uamtDBsnhQ2Xwpb
+CJD7POxsiJFOXhI7M3VhXyLsqwP7a8OBWnDQ32M7rvJy9sqTX3/9NSoqii8P
+HTqUxzuKQaJ4HkORD4MULnLxGuZ43ZJ5OHVWjgv9Tc4fRL3Q6Fgoh1PnG6Tj
+oHq0fKZMiMaTAo0njpKkoCTjSRlScI85vyKSR2lvvWgN/j0m5Gxt/LjzTcuc
+aI7zIZ9qdt+pZpVPNXjcUavqmUTsQTgZGXGiuv37JyyOu6se+9+z+oF9ERw2
+J6TSspCwRUFl5waJs8zIpeFEmCwEDyLCACL0YzeZETaAdqjJNITlUuiZH+g6
+Fb9uc+VY6vPk2PlyLLmSYGfKlCl2uz04OJiGvStXrvRf+54twXP/RIeJB088
+wOK9lwdhwhOzagrFVbTsi/DgCdv5rnCNJ3bYbuc8YfGODTZY8V5dFCfs4u0t
+kLdMMMMFKdAJYC7eR0PqE3gT4CONJwwmFCO4vA44Ung5IgUHpTCeTFP3Y2c3
+6VjYTTryNleYEAaTVKCf5fLRNOQZxu4jHh8Jk2JgWjxkJEBmIixI8lrX7Hul
+QE5z2N4sbIGFVkHYYnbvT97zsLsh7EmCffVhXz3YnwgH6vipx2Lkyb///rtk
+yZILFy4oLB979uxZulCzZs2vv/5a/+5+dlUEuUIKF7mMq3CfkQ/uKJCcrdGt
+3HNj71symHCepJtML5pUZcJ54uDKxEQcAsnXRkoWlBVopOO4kxTcZ86/n/Gk
+s+VizZDf62Okc75tufPt7z7x4n0/dHmIrp7s9Mx3ras7muO4plONEk8m1j4R
+k/C9HO94xPLNo1HHHlC/6aqQigvueOTLkhQpFRYF3zVLQIUzyhQ83VyCImWi
+OWQgEfoTRMf7xESFyjCTiZ7tISbTIMaTDClulhQ3W8a4OFOOy5Tdb04x1tSV
+tpPL1r6bGVuC2tp1nhx2h4ney+OZjOXuhImeld0foYc87pfV7nDq7FJi997u
+YDAx8mSLTeXJOgt8xZTJMpmKE5gtwVRD2qQ6gXSAKYBD32sQ6A80DkKeDGY8
+oQxZp/FknZMnPElLVYqZBj4aT/AmnTw1DetWF/iuFKDBjnrwLwP0lJhEscBg
+NgPbmEgYHwOT4mFaAmSwDMn8RrA4GZY0g2UpsDIVvkrDwvVtjScBxUluCl0I
+y7KEfS6HLZVgTyPY2xD2NfBfj1fDE7efob/++ot+Vl5eHv3T8uXLZVlOSkrq
+2rWr8bu7nQ0/bemyB+bz6naFAIWJ52a+Nva1pefGzi0NMGlPTC+Y1JEllCTU
+9aEmBQLhaVga6dDXYxVMBXcJjrtNBQ+Z86sISidslhcblvitJQtzuoadf6XS
+d29UPvtmlVNvPE1Lvu0W4UjHC/xUu+STzZucSGp0okYjR7Va31Z7/rvHMRze
+cSf+mnwe+uS6Ox5eKVZeFPI/upppvnOsEDrNFDLJFDLBFDKRChUTBkH9iJkK
+lY8FMz3JwwXzR+yYP6xQeZaMcfEcOT6T+Vzm82T3YPk68ET/IG6YNtGv98Pe
+YHLII2cyq6TzLQc9enk0nhCi3qTP9Ek47HH51YCdbIYQChMH8gRLsm3Ik01W
+2GCBNRZYxXjyuQzzJZiJVSAOYL3D8fiYY+gM0hiQegP0ZriYg2lYGoJKa0Fa
+B9J6Vrge0NdpPGFJFTWRwnhi8xi95nJWqyBP8L1p7LWbBK9L8I4MfdiBDbHD
+x5EwOgbGx8OkBJjGeDKnMcxLhoUpkJUKy9rAinbsozvB2k6wvhNs7IgnPLuD
+y3nIaxG21Bq2VA5b5m+6WuVa9uH+/vvvvMvY+d2vsEX5AYvPq9sDJkYUGDfz
+Cg1fisV9YwNDdOtkMrVn0cRxA0/03mGdJ/khxMHStAX3mh33m/IfNSkdZOVl
+i/K2OhTp3Ktlz71177l3HzzxwZNnB1Y7NUD6po/a43DmjbRT3Tqc7NDhREr7
+Ew3bO8JbfBve/rvqbeifdt9Xd9vdsXyzL8Qnl91RlS4sLfnQpKB75gbfPdtc
+arKpxGcmjIA+JUEDTcEfEIx03md52hGqPqk56O7H6MLgux/76O7HMuWac+Wa
+89BrFBdPrrQBEE2WeAeLESaHvIU5VJl8eZ97R4+BJ0SFSTj63nCdJ6hMUJy4
+Z0sgxwZbbThf4kYa7FhgNbtml6vihODTBhlM/o9AVyARRHoFpI/wSQYwlF3s
+yxEXpiGEw8SFJ+u13OxqLZEylXCeWPQ0rGuko2jixPnaAaCLBD0keEOCd9mx
+DbTBR3YYHgWjYuFT1u07qS5MawAZTSCzOcxvBYuw8cCydFjZGVZ1gdVd8CRv
+eAk2d2Hf90XYlg6OjsaTkG4wzyq7ep74GQfr2TyutEVxczt+ryighXqiwytM
+CsMfryUuW8ouMDFSpSODSYGRJ2YXnuBrKAtz2FQZ+Q+aHBQm7WSlh015z64M
+Uvdz7r0KP/R/4NyHlb8fXu3MSOnUyMgfxjQ89zE+V/BMn86n3uh28pXXT3Tq
+eaLV645aXb6tjVm/fc903F0lbfcjqasqNc6+B2cmXFcWr4UvQp+ZWrLKojue
+mBVcKTPortlmnPNnmjl0iCkE0yYk6APM07pPzTRHTsiUE4bc/fhQ9CqeVXZ9
+9IkOE6M7wWLMmTCe+IGJ3l/sfIsKk3CnM54QHu8gT9jEqpo+wfJtrmNPfRg+
+eNRG4HUwRRKpJ4oT6UOAcex6/wokypNhBGGyAR0LN7jyZK26oPNEZqPXJA+Y
+KDwTy+MdzpN2AC9K8IoEr0rwJuNJXyv0t8GgCBgaDR/HYsmntWBCXZjcAKY1
+gZnJMBuDGljUEbI6wbKX8MSuegXW9MDCjT1gcw/Y+jLkdINtXSD3RdiRTi7X
+pXKVPPE1DpZbs2bNwsLCKlasWKlSJb2RXM3H6cdfyGCEXC5yMW7mf2Pnlt5g
+0snkhAl1BxtUr/KEKZOCYJaYLS0UVDQ7ylFxwhKzVU1KN6vyrl0ZEqmMVQd7
+nP/w3h8GP/LD8Konx0gnxoX/PCXp7KRm58a25n891futU2++d6J7f0fau9+l
+DfimyQBamGd5dU/1l3c93W31Y122P5y+tmJTvvGqcjVm3PHc56XD55d8alHJ
+x+aXwEFco0yl6AmcYBInmUsOMpUcQNRkbIaMw5lmy+6DmtzazNU0mMLXPvEG
+Ey5OWLwTYQCLj5yJDhPnqHvnkDbjF9R5gst7wnEm1Ty7yhMdJtttKE6yrbDF
+CpsssJ5drV/KmDlZyJTJUKZMniOkNoHXAN4AUxzBpyv1A2kUwEzGhNVAIx3T
+cIIw2YiOhRuBI4XwXIq2YJ6uxjtynpcwx3mWGExUnrTGrCx0RaTg6hsyvGOB
+963Q1w4DImEwG/o7Ih4+qQVjE2F8fZjUAKYmY+HsNMhMgwUv4Plc2g2WYwII
+vnoF1vaADa/C5tch+3XI6eGn+vyLlsKb13GwulGe8HSK8QwU+bMIUyArWIeL
+ESyeHOA5E2O/jP9Eqy/Foq7K7rJEB4vbpcd5gmkTtkqRks9gcoxdso4SpKCM
+UHC/2VHJlP8Az8HKylt25cMIZWy0khFLS379COevPvtJlR/GPPftBNuJCbEX
+pjU9OzmNFXY/PYyPHyHfvTF0W8eBxzvjDWPHGo84UHfQ9vB3c63vfvlsr61V
+38p+HDdb/7/2fOMlZet+UTpmSemIRSKOMRgbdD89bxlBd84wl50aVG6i4Mwz
+zJITZ8uJc+TETOZz5UTimoa9ygZTmNrH45hTAtExR60+V5hEoB9yuhMshrgm
+bNV94H5joM4Ttp/9bNZlRhIXtugwyVPFCRY6bFSc4ANrtlrxyTUbLOxyk+EL
+GbIMHTqUxBY2XcDbIL2Oj2pDXAwDaRJAFlteC1yZ4PImoG4aiQuwUcMIXdgE
+5GMMgoRpAmFPNeBpWO8nqopBnNCFVoC9xlSidGE86SFDTxneolSxQm/2RQZE
+wKAoGBoHI2rAqAQYw9IpExvDlGSYnoLnMPMFmI/RDWR1hqVdYEU3+PJlWP0K
+rO8Bm/zxpPD168e8joM1WjHyxCsHiOHXUycJh0nhE62ukHH55VohR3i6Xs63
+6aCFOS484TGOWeA8cXCeiKSgnFDwgNnxmKngSTPPwSofhCufRCnTESYXh1X4
+9ZP7fhyPT6b7aYr03bToH+c0ujCz5dmpmBw788nrJ4e9/e2Avt++N4iubkn/
+6GiXsXThUNrEvcnjshOGbo8dstwyYNOzfdY/jaJldeX3v3zg1XkVO9HlZeWT
+l5XDtG1WKZzFIiPkycwSlecE3T0zKGx6kDpRWIZcf5Zcf7Zcf45cPxO9nq9m
+fEUVZwyHC9Mg1fm+VIYgPcickhpYIjx5QrR4R28JFCZ6MtaDJwwmB8KNPDGI
+E5eECeUJvmLPjg9xstQAk3giJAkIk16YfUVlwnKw0jiATLXXRg1zNrHlzUDd
+yRMe+2wHyAUynkA2kM8I54mvk0bcxElLQG8L0FHifcdcqHCqEA+Dj6JhGLv7
+b3QijK2PMJnUHKalwoxULMzsCAvSYXFn+LwLjYNg5cuFqfer5InXcbBG69y5
+c9WqVd9+++3jx4/rn1iED70sB3SwGAoj3JyVO3HhVu65sVequMGEhzkON56Y
+VZ5QmBQEqaPr+TjY/DsJVSaOZwTMwfawKH2wxSqTY5UFmCv7c3ilX0c+/Ov4
+qo7JOKrkx1n1z09vcmEy1m/OwPYnh7727Ye9jvXtc6zXwKM9R/AD2Js+aV+7
+aXlpMzfVG7OpxsjPI4dtsAyl5Rurj15fbeS6J4fPrzxw9UPv6d+FnqIpZerP
+CY2dJUbMKvHs9GBkV7vQsownDWbJDWbLDebIDTKZe9bUldadWzjs/+0MJuoU
+PU50sKnA3MHiARO9f4fCxEWxePby8JnbXXlCGEzQDcGO+wWYzcQJhwkVJ8sl
+WKzxhNZeHUKScNAaXZPeZWmTAWx5BsAyTJvg8gbgGMHlLUDdNIqBZRMu4253
+AuwC4LOaTNKekuKLJ1U8eEKX05x9xy4H34Md9hsW6GWBd21crhhbhcvGk1vC
+tLaQ0QHmdIJ5L8DClyDrMjzxc5yFN1/jYI124cKFfv36paSkFPlzjd/UCAri
+ygGWfY0wyBUvMPFKDHeYGKBhRIe6sQdMCjSe8Nd8HuaY1JyJmja5QygoKzju
+NxU8aM6vbFLay8rLMuZgh+KulEzWIbuh3p8jHvz14yq/jKrmGC/9xoYKnJ+A
+4e2pkZ229m7/3YDXCvr0OvJ278M9B+zv8dGq9gP4YexqPSm35eTtzactSRy/
+On7M5ljaEMk622frqn+yptrHc6t+vLrqmDVVRqx8qA9vNtPD0rPKJS++MyWr
+bIMFpfCjYz2aX6bcyK2aitZg3MJhf1cHb8kePCFGWaIXznYHC+eJW5ijU8Uj
+GesBE+zZYTDZbdczsViea2PBDnua3ifeR/2RZ4iJ1lUEG7HGNQmFSX+Q2P2A
+0gLgaRPCNQnFyFa2vBUXTJ+wwmyQGENgD6CzhImQIQgz/D1V1p0n2oL6Hdux
+2KeThOFPZ4lqFcIjoFepXLHAW1Zg/YnQJwL6ReFZGhQLQ2rC8Frev+M1jnS4
++RoH62Z//PFHuXLl+DQpV/q5xPV6N35BT5gYC41gId4UCPX+ppIuYJG9wMQr
+Vai10yYzKdCc84TnYHnmhBBDGvZOwfEgy5m0lZWXZKWXDdMmn0Yps2L5fi5+
+8uCfIyv/MvKpC6OqO8aE/zqp3k/jGvM/nfgwfdObbQve7X7kjZ4He/Ta3/X9
+PZ3x1uGd7YZsS1PnQN+aPHFhnTFra4+ny2tiJ60OH79aGrX8uZFzqn2yqtq4
+VU9PIOxnKOvBwXz7zyv2XBrWZfGdbYnGkww5eZacPFtOniMne21CV1p3nuGw
+rz0QjSTOy8E3THi8Q5HCX/W3uOdMNHfKlQPqY2XIDJcBz6xnx4s4UWGy3coy
+JxYqTrBwrczSsJoyqUZM1YmpLk4BDe8BDGSsoDAZAhK7i0daCTxtQjhDKDrY
+3Te4kA2m0YSuSrtA2gfSAYaF/YgUUhieEJfkifpdUjDqITw3S72dBO0lGgFh
+CcurYBD0sszBgoVvWfHMvGeH3uEULDCAzdg2JAGGJ8LI+jDmeRiXDBNbXbbq
+r7Rt+DK3cbDGIbK65efnP/HEE/rnFv6jvXKAYKLV2Yq8wsTovhQLh4muSYzE
+uGzOpKNrzkR3ogU7+VqHDmFpk/xKpoKKguMRk6O6gDnYNy1K/3BlZJQyJU5Z
+VEPlyfBH/xz2xI/Dn700Pm7bsKifRtY/NwxFwum+2LOztmvqkR6dD3R9ec8L
+r+3q8OaOdm/Twu0t+25pNmBr8qAtjYepRx6HC6tix6yKHLvKNvpz6ZNZ/zfq
+i+dGf/HMaDwDT09a8sSkGY+NW/HoGP3LJmC8U57xJGWWnDJbTpkjp1w9TBRv
+4bDXnRCjLDkS4RUsbuEPh4nuYV/dR935Fu/znxj6mjV94kKVPU5xgqs7bE5x
+kq3BZL3MIh01HSHUFYhETFacERhhMkCdtVUezIaxTWfcWMNysDxnksPinRxt
+OUddlg+CdBiko4wD+QD7VJ6QKf4uFuKqSXStovIklaVTUlkE1EYbndIRIF3S
+wUL4ONjXWNr2TZmFQmxIbd8IGBAFg+LgoxoMLEn+a7+4YKJ4jIM1DpGl1q5d
+u9TUVMqczMxM46cX5gB8waSwYYvH9kawOGHiGxrEQ7HwwnQW5hwzahIDT7Cb
+OEjgPHGw6U0cZUnBwzTMERxVESb43fvZlRGRysRYJROntVHWJylrUYr8OvCp
+iyOjLo2smdMv+tzA+qf7Ik++7Zl2uHtb/tG723XekdbV0fIVurywbpfsRm9t
+bPj2pqR3N9bvvT7xg8xoNU+yMnLwF+HDllqHrbB9PLP6sOX/N4J+6+XPjVv0
+9PjlT0+c/sT4FU9OW/r4lOWPYjqXP3FzppyaIadRnyWnzZbTjBVUyPryNK/h
+sNvevMKE88RJDwNY1AVXmLgNZnMDC1HHn4TrmRMnWDDesXNxQqaEuODFKE62
+aDBZI6t36xA2GVpdYrIRUxR26MAHOGhNYuPW5JHYpyPNZ9xYx7qGt2g5E4qX
+bRpPtoHMx6odBzgNwGZMoq/AHoRBZhBxrnjZC9kY7HiGP9jjw5CCJW0RLIgU
+1geEJV0kPAndZPTusnuO5X079A2H/hH+mVaMMOHGx8F6HdX2008/FRQUuP2p
+MMdAvOVOPaGhKxNdsfiHjztYvMHEa4yjL7+g5Uy88MSkTm9CSZJvJgUhmj65
+i+Q/YlI6yahMesoKS4Up42KUjHhlCYaryppGyupmjg+f5Nv/+WHCljdizryD
+PwpHXk4+2rnFgU6tljdrsjtVpUpOI0yDzI9vtyWx24bar6xL6LG+5mur43vO
+smLS7HMLn2uNfA69p1fvl1V9wKLnBtIvu6jaiIVPD1/29MdTnxixrOrYJU9O
+XPYkjm/oEHoX40nbDPR2s+R2nrVTtDbjNRy+Ipi4yxIdLG4w8TaYzWNYbLgx
+E0vYsBMnWDRxQggfY+8+dA02yrAOIx1nUSJO1mp6nphqsodnfYT3/ckfMT5M
+AGk2SMudOVg+wwDChOoTNg8SfZUPgHyMLZ8D6QJIvwHZTDhS8MHVo3GCicue
+ZPXwvMKEaRVECudJG61DuTXwCAi/eCcJXmAJFsyxMJ4wsEBPK4qWXnaeZvF/
+AEVoG/7Nz6g2zz9d9vBcIhHfIsRrmGNsAz5ipTtWyJHU+wt36M2JESPS0/Vy
+t9bllSf6rTpUnPCJ13C0yQO4VPCEWekiK69TmFiVwRHKKHbv/3y87/vfVQ3/
+Wd7076Up/2S1yXmvevabKDjXvxR9ont9unCwQ+P8Nk33tEzOqp+0s1HL7Q1S
+s+uheNhUq22mvdnGuA5rYzutjnlhbVTnVVE4QHpVRLcvw3ssfrbLwmov80Nd
+9tzb9Asuea730mf7z3uq38In+01+cuCCJz6a9zjOhlyDdU1QmyF3zJA7UZ8l
+u4+BNK66zRV82aHRnreFeu5cvSL8wsSll0czJ0xo+OMBE+PIWJKh5W8NMDGK
+EydYcAwbj3SsLA1r4eKEDBfIYG0g8TPs9XlCGhO5J0jvs6uVapLRII9Q+3Sk
+LJQihOVgKUz4DEgIEwc6Micf5G9BOimZVhP5d4B/AC5oyoTgNBP+TfxMNJ5A
+fzxpqZW0ZqutmWJpA/hl27IESzvWxUyjoXTGky4ysgVFiwQ9rFy0+Llai9w2
+/DcbX6PaPP/Ez4Cvw/MftvD3esAk0s2NZ95Y6AsaBsXiBSZGnhRor8eMORMm
+TnifDq6G4BTThPcOP8JSam1l5RVZed+iDA5XRkUpE+OUWeokEv8sa3wpq/nF
+eakX57S7mPHC71NeWpeuxvVfpyXtSWm4L/n5nY0aLYyvs71O0+yE5M01mukH
+sy4iZU14y1X21NXW1istbWnJSrnDCrnTl1L6/Kqtlz3dcXLVTpyWi5/qMf/J
+HoufevPzp96e9ESvJU/2WfzEB7ScyqO2TJ8YzWub8Zwr2P/QaG6et4X6qn39
+0906i70kZjVl4nyLL5g4R554ycSyYSd2vZsYS3YZwKKlYbF8g8xv1UF7Gm8c
+piY0F4R4Ir+r9gvDOJCpPhnDuDEfpC/VHKy8Ae/jkzeo9+BIzOmy5SRIpyX5
+N0n+y3WKg81s+P1awOcGDifiNDbsdiTB4ShUsYxhT4Ucy5zaeMM7JzAfp61q
+Cy6j3fhrK+CtAlMr3FtLyJk2LAhqz9hCdUs6Ey1d3G8A1Ff1haK1DV/mZ1Sb
+1z95bU7GFuUNJi64oBpD29KdJCo3vLHFvwLxo1j0PRT44olJTZs4zDh0jd9B
+XHCXkH8POVZFUF5ihH/XogyyK8OjlPFxyowEZaH6xLi/Fzf7a26rixltf5/a
+6dcJL14Y0+X88G76J2bVil0UH59bJ2leeM3suAabYxrSwnXhz6+zNZr5tDow
+fmX1Jqv+DwfYT62S9MVzKcuea/nFs6nLnk1bWLmpCpPH2zh3+HjXz6p0zXri
+VcJGTHQW72orIk+my51myC9kyF147RhbOK8dz7mC/Q+N1s3ttlB9/762V68C
+XzA57Brm8F4e/WL0DpMIPdIhTmUSTqa7JkzUAfaqOHGChUY6a50wMVVnc8hT
+gdmUyG/jcHqeg5U+Q5jIE9nyMjUHK4wm8lqQt4C8GYQJbEb6nSAfBgt7ho7l
+oiT9LcEvEhQwWTKGcWOE+qxANxMzRXGuKM4TKTTE+QgZcaEoLlKdTCaqaybM
+FeiqkCmQiYwzBvJQqqg88cy6aPkWxAuqF99Dc4ujbXg1P6Pa/E/86HaEXgjg
+AQfq4yrcr5d7gsVzex0a6pY+YOJVsfDlTqF4/95x137hY245WJY20WGSX4YU
+PByU/7BJSUNl4qhlVgbZlJHhytgYZVJNZQ7C5J+sRpfmIQf+mJb228R2v3ya
+/tPIF8991PnMgK608MRbr3zbszs/5rmW6Mzq0bOfwyhpvSVxjZS4tnri9Mdj
+v3qu3pfP1tdP1+RHaqx4quHSpxotr9ro86pNlldN5s1m0SONZj/UePGjLRY8
+2opvubgyjqmm4qSreKeBJy8S35GO4jrXzWWHRvsyr+3T62bO9u8XJvpINi+T
+n7jyhPB4xzkm1qlMXD4uV410cHmzrP++oFXHnAmJxl4x6T2Q+4A0GGCMmjNB
+z9DyJBtB3grCSCKvBnkTPnhLmIR34iBMToF8Dn/0pb9lOCfBEaYKcgC2AIqT
+zWxhKwCf1HEs0TGCEkUzxMhi5lnoZCoRlzAlMwddWMDG6k83fKvpWCjME8gs
+Nnptoro3LzzRkaINjStMPRZL2+DmZ1RbISd+9AIBA1h8wcS7CHEliSc0qAhx
+bnw5xWKUKwU+eMJzsF+znIkjGIeuIU/uJvmPCUpHloPtZVE+xKyIMiFKmRqn
+ZNRSFuBQ9r/nNr04s/nvk/AavzCq44/D0n8Y+OLpvngr1nc9ux7v3rWgW7ev
+O3c72kmVK/lpuDCjSvj0x8KnVQ6f+kj4yqcTvqiasOxJl0ceLHm8zvLHE7Me
+r8sPO+vxBnPur5Vxf61FD9ab/2DSuAcazH8IIVYf594v/7JYvq2Is8BNk9tR
+pBSeJ5cdGu3HCokUfWMjVThMcN0DJkZl4nyX2z07zhuKtW4drkzwbh0bFydk
+XBDxMGdLaMQeplOPUJjIH4I0EuAzjSfTQF4ApgF4ix9qkhwQhhN5I9MkeSBM
+JhQm8veS/KNs/UeSLslkpcud3YgR6tlIEtgGNGABB6hRzESnGiGTTWQK86km
+/b3i56HsVRSXopO5BDO6M4iwkH0EW9a/CBbO0/40jWCvtEHYqDzRkOK1sjwL
+i6ttKH5HtfmZ+NF4bP7DFl2E+IKJvplndOMHGjpY/CsWwvSJ3pwKNE1yzJA2
+ISxnQpWJg6dNKrBxa6hMLMobFmWAVRkWroxkkznTSCcTB77+PafxxWnNfv8s
+5ZcxaReGt+NHcvo9JMC3PTof79b5WOfOR9M7H+nQ+VCbzvlpnQ+2UqdK35vc
+eU/Tzrsbvzj5AXnyA5ZJ9+PP6BePxX7+WNyESpalj8XpzWbJoziyZVHlWksq
+11lYOXFOpdh599UYWyl+3n0YKDXAp4yV7S6Wayvi4JNpUirxCxO3NlOYodG+
+jB9h4bc3vktt867DYv3MGeuWifUJE9c0LLu6ZYx01sjwpaSPXjM3E/SWIA8A
+eTjg7TnTWPAyFeRMkJfh7cMcJlSfyOwOYpQle0A+wjZDmMhw0QKnZTioKZOt
+6BjvjCEuXzNXgp0S7JIgT0KMTNYwQn2aiTJE9aWhxneJy0LF5ehkJrZDYbGZ
+zDfRV2Exe4pBBkHXjBZSJzMZXuYyYaNNCoc8SS0KT66mbXDzM6rtshM/qhe1
+3xwIVyZOVviAiZsscYVDlO6s3LnaX3A+w9dYrm8cy/7E4x29OR1jMClgUzg6
+ghhPSrK0SZiQ/4jgqMLESU+L0t+mDLNjDnZsnPKZKiT+ndP4r2nJv41v8fOo
+Vj8NbXNuQPszfTqceludtaagc/rX6elHO6Qfbpuen9bpYEqnAy1QOexL7rSn
+SSe+TV7DjrsadNyZhE5XJ9z7f1mPREy45/8+fzhy8cNRuj4fe7e08OHorIdj
+Fzwct/jh+Jn32Mfcg7/UncXSjSknxTKvimU7iOVoyRSpKTHk2by2ImObKeTQ
+aK9WBJgohnkSXKjiFyZcnHCYuGRi9yJPcME5up6LEx0mFtjEOohXybBC0m8i
+NrcSSF0CH6AycSZY5oDwMrHMBjkLMLpht+fIDhbm8K6cvQgTywnJ8hPrQPnD
+Ct/LsI/BJBfwHsAcVZPAdgkcEplg4iQhkxhDjITZI8Fe5vTt002qM4aQGSYj
+RlS2rAilMCEL0IUsnI6PzMIFJMkSs7AEwx+nLSBCFrZh0S5Sx49r6WUGp2va
+Nrj5GdVWyIkfjawgHjEOVyY6NIxUIdgFLK6QotA9oKGzwhdMjOXOY3Atd8uf
+FLBt9OaUr+VMHCVx6Fp+JZOSKitdUDYofazKCA0mExMUNtset4vjW/w6suVP
+g9N+6Nfu9HvtTr7Z/sSreBPxsReQD0fadTyU1jG/ZYcDLTrsT26/rynOPLCn
+Ubu8hu3yGrTblaTqmdy6bfE1sa0jse34u58ZR73CM2MrPMN5svABZ2Zg/gPh
+Cx+IWPhg1JgK2IxpuPWaWPpFsfRrYpkXRHxA2GTJZQzkZduM4uOXojDmq036
+sXQfc/SpV5nPx4xqNwC6ihMyTc3EukU6sJ3BBIfWyzh6bbUMKyX4XIK5Wjdu
+C3zUOAwGyxCWJ5kIMMsJFnklwoQPNZG34XRqfCokhMlJhInlL5msD3YeNoUG
+Bcg25owktARhssMpS9B3SxQj+IZpTlDAPhl9PwPUAZnMFNAz0MUVpajjRrME
+dM2wVSw0UZ7gykIT44nqZLaJv9K/iDYR3S56rSZfFVdcbUO333///cSJE157
+nL1O/OjrwIys0BImUS7Q0JyWaBt7gYNbiSdY/GxPXM2TJw7+MJ0gTJsYcyyO
+SkJBZTPeO/y6VXmP5Uw+jVDGxirjEpRJdZTpmDu9NKnpn2Oxz/fC4NQf+rY5
+/Xa773u2+647IuJYp/ZH27U/3EbFxf5m7fY1bbuvMUJjd8M2eUmtdyW13lk/
+bWe9tB1103IT0/hmjjpp22unbaNeKy2nVho9kjF34mSP9JX6/PvlrPvV7okF
+9+MhDQAcftUMb4clyYav6b/NeE5Z7/WXwo/p4xOKBSZGM4LFAyYRHlMTOCMd
+Mtm1i2cby8FuMcBkmQQLgGgdbnjiBoE0HCwjtXuHF4AlE8y9iLwCjC3BQmGy
+Vx3+aj0j0TDH8pcFfrHDdxbYK3OYkPEu2kP9CBeSyOh72PYcIJqTGU5QUJ7A
+Qac7MTJLEL8oxZ0pE0O6ZpEgLAky8oQsMsDkCnly9W3D0/z0OBdhljb9e3OY
+uJGEO9FI4sYK4hcazj0XWrF48qSA50yCMGeSH6LmYPXmpHSVlXetGOZ8ysYq
+T41TJtVWJjGYTGzyx5jkX4a1+HFgS77zE6+1/fbldsc7I0OOtml3OK1tfkrb
+g83b7E9urR9AXlJaXv3UXfVSd9ZttSOxVW5iy9w6LR21cQ/ba6XwbXISUqjT
+T89OwJLsmilba6aMLl9ldPnHPyn/+Nz/VZ/3v+p8y0HsRpOP2AhxPpblM3A+
+iPayVWM0z18Kr+Y2PuGKPuKyMDGa8xJzPhrDVZz4inS0tIlP40/m+hCAwcTC
+5m+UMkFaDNb5YO5L5DUgZ2OAI+90gsXCcybnZctFC1yww7dWHSboDqcsoZoE
+P2CSQYEwkqjbG2Gyn/kBVZkgQDIMbMmXqTsXOFtmYeZEXMlEy2xBXeC2WBA+
+DyJzWJijw8QHT65F2/BlfnqcPWdVKsyx8YbkvPw9YeKbAJdVIP43Nm5PF1oS
+IV27AbCAp034XcMsZ5Jfgt3xF8ZOfhpOBqs3p3/HxPw7iT2WcTrLwU5o8ucn
+yb8ObfHTgJZn30s9+UbrEz1wZMjxF/D1SFqbQ61a56e0PtAsbV+TtL2N0vY0
+TN2dpPbw7kxM2ZGYklsnJbd2iqNWC+q0cFtC8xzqNdHHlH+UaBNZbK3RbEuN
+5lvi0TczH1W28qiyj/FdDUHBDkPwXlhc8Lx0itwGfJnn+IRCfsoVwcRoxq/j
+Jk4IMUzCtktLm+iRDk+b4NxratqEP+yP7xOGAYwG66cgT2a9q1lgyQLrEjAP
+ZjlYB1h2qk/dshwEy2EXxQLfaDDZocGEk0SDCeySIY851yRTDZRwJYkKE12T
+5DvdKEKw5BA6HsBsAZ3z5MvSunOSoFVx5YnNhSfXqGH4Mv89zkXgiWdDMlKl
+MBAghVMgvuIg466oPuESxaHNbYJDTQQ2q8kdQj7bQf5DgpLKRhK+ZVMG2pUx
+4f+OieZt6Z/Jatrkj0+SfxnS7Mf+KWffa3WyZ9qJ7q2/eSmtIF3VIfkpaQeb
+px1ITt3XOHXv8612N2iZl4RKY1ddSpIWfJvcWs0dCc22J6CsyKmZjF4DPTse
+nX7W1ng1gtkc13RzXLLR9YuC2zAGE86TQlbK1ZjXx6P72V5VesVhzuuLw2SP
+YXrYnWqfDpZnu6ZNlrBr/DP29BydJ5+APB6sk7RxJsvBRnmyEiysHwdhsges
+nCeHwXpGln+wWC5a4cdwnSrqkeQ6SQI7GRzyXGBCyWNUJm7RjRMm+RY3Zxhh
+y4csfHvMGB+iq+xdh2UEiOYqUvhuU4A/Z1AHi1sdXU+e+O9x9pylTfHbovw0
+JP2sFkaB+M+ZuL3FuLEbi5w80catfS0Q3jVcUIqNNrmPjVvrbFVeZ2nYUeH/
+jov6d1zcP+MS/hmXaPyR+vGDlLPvtjz5eup33dK+6ZxW0AlzIIdT0/JbqMmQ
+fY1a7mmYsjspJa8+wmRnYvMddZrn1m6WWyvZkZA87s5H9DOQU6NpTnyT7Pgm
+W+OoN6b73xLXmJGk8ea4xvpmm+Iab2Krvs4kKVKkc6VWmMcZ61ZcJHEz41d2
+h0mOBhPeQazDZAQYzw/VKraJYJkB8jyWaP0CbF+AdT3I7BY/K4XJfrAeZMun
+Zfm01XLRBufD4bgNmWAcxDLBRCYYEGEkCYfJPkOYo8oSC/pBC8lwTuvkHSaH
+nI4wOWwhcwxvOWxR/YiFZJrRNZ44B7ZxsFyvtvHXX3/9ZDDaVC7b4+w2S5uf
+IyxkW3IDiy9oEB+9PIVJm3jnCZtyDYeasDAHYVLJpKRIygsW5Q270teufIwd
+sv+Oj/vn04S/xyZeGov9Jr+PTP55cDO9OVGYHH8x7VjHtKNtcNRHfvNWB5Jb
+7W/Scl8jNRmSV6/FrkR8QEZu7WROku0JTbfXbLqtZpOcGk30I9wa14j6lrhG
+dJ+b4xptjsX5Degr9U2au0HD65n0XyNXZJ5tg5cXXp9cI5i4mQtb8KY/GW/S
+WUsjHXW0CUzG0MbtIOmqbTomYGU2v7RtJdjWgiUbwxxkyAGwHQTrUaAwITic
+3g7nInSYUB0CO2TIRXeJg/JkMtnAFidMLLCf+QGLDhPkiQEjZJZGg3xGxUNW
+Fz/M5ko6bDVixPlBRxhSXM1tuKz+ra9pXezYseMVg40YMaIwPc7GWdoUHy2q
+CG3J7fIvZM7EP38887GxWlZW5UkoPsrcUYZ9hRYyDjVhk8EqwyNwEOxEzJn8
+PS7xrzEIk98+pjBJPt+3+dm3U06+hklUY3PKb9byQFMkyd6GKXuSWuTVa55X
+V73jj5IkN6GpA0nShJGkcU48Ko3suEbZjCR8s82xzyNPYp/H5ZiGmzTfqPll
+24N/4FyRebYNXl5IfXJ9YOJmxLd5bmmjMFkMVJkIQ4h9DVi3gGUHWFm/sO0Q
+2BhM5BNW+V/1pk4XmHCe0Fe6ustFsThlyXSDltjvQhI4aOXo8HQy2zmml5PE
+FSas5IiLk8wgr1/Q+N2Nr9fZLjtRm3GWNsVbG77KtuRGCV/E8JOJ9QWlWOZO
+ntzBeMLiTiWZ5Uy625T3bMqQcGV81L8TYv+dVFOZgmNQ/xqL1/iFQQiTM71S
+Tr6a8u1LrY53Sv26nZpl1ZvT3oYtdic1z6vXbFdi8s46yQwm6jN0ttdsvK1G
+o5z4RjkMIwRlyfNbqMc23MxcD8w3xTSgvjGaexL1DcwLw5OrOfOFscLw5IbA
+5IqMHrZ1IcjLcS6C4OHE7gBrLsLExqZqtB8F22nZctoq/8mViZ0CwXiFqkjR
+YGLMljjBss+ik4TMNLDFF0yYFCG6ODls1ZsWxwj+6Yg7TJAnhb6R6lqfVa/m
+Z0ibr1najEdb7Mk3Xzwhl8+ZRBudaPFOS/YcvfxgzJkUlGH9O4+YlXbs3uF3
+wnEigrFR/0yI/Xtszb/G1Lk0tt5fY1EYXPgw+XyfZmd6taAw+e6llsc7taIw
+OZqGKiXjEYxR9z3fYm+D5npz2sFhktDEkdCYk4QfIYMJ0mlrbENGkgabY9BR
+mcQkbWLQ4KZjZEMUemHaw7VuM57jE4w/gtxufpgonCfLgN/iZ2dTONoYTOyH
+IWQesZ2SrT/Z5N/CjTDBXpudMtcnZKLrDTsqTCwY2mjuBMsBK2WI6vnOvmzI
+t6l+SHUGExscdjqDiY3MUcfOwRGbux+9zCxJxq98rc+qL/PV48xnafMs11vU
+tWhLBqq4wMENF3q558Z6OecJj3qofc167x0PmJQ0q9LVorzDUD8m6t+JMf+M
+r/HXmNoXR9X742MGk4Fqb8vJHhQmKQUdW33dtuWR1JaHUjBPsr9Ri30NW0yt
+VBnBy2TJjtpN9ea0vUYjTZY8T0kyuow63ccWlSRJ1OlmlCQcJihIECD1R4j3
+8i3XR9W/GWBSmM+9JWCisGO2rMLJTKzZYGfTNtopTI6AvQDsp/CXRb4QLp2L
+hG/slAYqTHapMOGyBLMlGknIVC37wWGyn72FYoS5Eyz5NiNGyCzDCFsOk8M2
+N8d3HbHpJCGZhrccvTVgUgS7djBx+xQOCj8wcQOIsdyTJ/ns+Vdqh84bdmWA
+XRmNo6cQJp/WvvhJ3T8+bsBhcq53c1QmPZAeBR1bHm1DYZKS3wJX9yFMmu9J
+apZXL5nCZGKFhwmTJQQDHCSJ3pyy4xpSTbI1FvdJGcKPcDPDCP3rRgYN+rpB
+9XrrNddx7f/MXNOT7//T+cKtAhOF82Q9JmDDt4GdPdVChcn3svU3u3xOy5nw
+2CRPdoqTXUaYWGCPBWWJqkysZLoh+6HKEhs6A4gRLEZZAoec91PAYbvuDCas
+Z/yI3elHVS98pd9aMFGub3vWz7wfmOjeXwg1UsjIE55FUVpJOH/jmzalX4Ty
+cZQyKeafz3DexIuj6v4+vMGvQzFreq53szNvNT/Zo8V3XagyUUfD6jChMQ6H
+CUuYNM2t1SQ3Qe3k3UY1SfzzTJY0pK5nblGTRCdt1gQJhwnnCcWIRpK6uhfm
+3N5YnvBvcaMOoAiGPNmKOZPwXWBnOZPw4wwmv9rl03bpfBR8G26MTQjPxOoD
+1fJYBLTHSRLVncrERjK0IEUXJOqyYe64Q3b0w3adJGROiH4+3WFy1MUL2Spu
+7G9N0eyGHLYRLF5hYiznYInVkBLLlvlOlDdlnKZ+eKQyIeafSfF/j6/116c4
+bu039pCLc+83pzD5XoVJytHWKYdbpuQ3V7uD9yY1210/Oa8uhUlTGuNwmDhq
+NuIw+bSMeic11STUt8So9OC2Kbr+pqj6DCb1RogV+ZZGjBQBJlcz1WeR7ZaD
+icLzJ7moTML3Q/hRKLGQhJ+UbL8wmPxIYRKhXv6cHkyTkEmuORMVJk6SaDCx
+oRtkiUtck29XGcLc2desyxKNHnpy3pMkheeJcguKE6PdQLC4kiSGOyt3LncK
+Ld2SCDpM+HtxqMn/t3duPVIUURzvFxNAfVQTv4UZ9jozy64JyQ5kcRVU9sHo
+i7745JNPPvoChEC8RGKiRqO4GD/CLgsBhGAkcnE36+4mEOSSaBQFCYE4VtWp
+qj59mZ6a6eru6p7zz8lmWLpnq7vP/OZ/qqurDjTaRzhMHn6y/cGHrfuHZwAm
+TLcVTK4ymLwmYbKyZy/ABLYRMOEk0TARtuSFc9yW7IICx1M1zmmGEUUS0ElR
+0Wh6iNctiKVGq9PJ9PAhCKWZ6jOlSvol2BAwqV+t1W/yu3vDd+pb/xIwWR3z
+YfKzX+MwW8JqHH6oX6D7NRImoxImKxomYzo0Sbyj6oHoVQkQ/BWDYSLNCePG
+vNplwGCCVRRVQgDRrzVPWEwGG8bb+fG2/z6fenSEw+TewZm7+4Qzee/V2+9y
+blx/W8FkjsNkWcHkougwYTCBv/vj9hfPI5icVTA5I3pcT6sbN6d4abMTQsBk
+h+fbEoGRRuvg5qdNyBzaJs1Un1bkIeX/13sVa2SdweRarXGzNvb76NBD7mZr
+1xv8kw7ljIYJkETBpHZ5hId0JqPeV8h+cJKM8YiDiR+orsG2BIMlBBAMFvPT
+6xVqXK2rkASLggXzZDKuJey/Hn26/cFHrX8PzdzdP3vnfY4IBpMb78wxZ/L9
+c/x2MIfJK3PLuwMwuaCcCdgSDpOpWW1LfpicwTABW3JIlTaMJCxzTkiecIxA
+LKkwOWl6m5RTfdpVKZDCWti4Vmveqo3fGh56tG3rH00GE/0xFzwZDkQYJqM8
+fhGxLFb5+RrtG+JJECbamfCf2n6sjUPICmh9PDa6ntjoh65A45qRCkmwEFU8
+2X/yZMLG/+xjMNmtYLKXO5M3RZ/JnOwwuTLLB8/DrZwL03t+Uh0m/Kbw87P6
+OnJbAjCZUDBpMphIW8JIArYEMidKEhbHDXiCN0g51WcWyv+rpCexhnGY3Bkb
+vj8xdKtR+63JTcKlYU0S7zNU1FwckTCJkKS2LMgQtCXeN4gtEZLUfh1ngRnC
+wpuX886l5Ik+Ov26cOOakUIJlk+mYVx3gklo4wBMXp9bVc4EYOLJQSYxMOHO
+ZBJ1mHCY8N4Sj98I9klyUlU3LHN0aYNJcrwxbXJy8Dbpp/rMTm5ShTWJwWTk
+7+bQnxMcJuzTennEi7MltUtoEFoAJmOxMMHOxO8wEQzREYIJD0WMt/Dzy33B
+pO2qcc1IhSSYOdhviEFrPkxe9mEC94Wh/R1g4tc4hx+XA9IwTGQ/iTAkvN5B
+1Q0TI4kJTKInMP1Un1nLQbvCGrP13pSEyZVYmIwATIQz4STxvnxMd5j4MImQ
+RJU54zwAIN9K+8GtSBgm9dq6DPAn/j+PqVm415NWH44el37toHHNSA4mGAha
+tf6G6ICNwCQ0yOScgIkYqxaAyWnRWwIwgS1DMIHMQZ6E25IDm54yPCfRbdJP
+9ZmP9AG6cOk9JG5FfJiMAEykaQFbwp3JGA/lTOSOAZJwhoRg4scaWgEEFmZd
+D8CE/cQ8CYHF8IjwP102rhnJTbBAk5Zf4jC5JG4NY5gwZwLD1WAzuI8TggmQ
+RAxR4yQ5uOUZT/WWeKLAAZ5wktSnIRbrPVc6Wumn+sxTrl30AFh8mIwimPgk
+4bGibtyg3hKAic8TiRG1hJle1hlezPveI5EnDRaGWRE9pe4bVxP1saSyawkG
+0q1iMNEj1s4DTPitHHiyb9cHTzzryQ6TmVNxMOHRCNwLBp4cr7c0SdLABJRy
+qs9C5PJFVzAZC8BkJQATzhAIhpGjaC0PvBjiWhgmGBfe/GYFFo4OwZMGDvPz
+E7tlWYxrrNIvqewgWKA9nWByBh7r4x0mnCoJMDmhukqWVL2DYZKeJ+WVgxcd
+5PMhDJPxQEB1s+qv0ezvGIBJI8QKTQz+89hmdXPHGkzaZTOuIVlcUtm1BIP2
+dIIJdyZNGGEiu2ElTBo78O1ggImwJdyf7FcdJiYwce2EJKgPgwpy9hgDpiUM
+E7nEYZwtQfYjESbYnDCwyF02LPCkXU7jqmVxSeW2e99c0JizU3wegyBMZuCx
+Pj1+HneY4FFqABPgSfWcSXqD2g5edNeOGlFFLBIUA5MGj7VA8B2CdY2IJgvx
+myaE4Il4vcHDPCtcO0sWZXFJZSynwAIt6QyTncqZ7MAdJhomizymNU8WKsQT
+iwa17dhFD8kHy6oscCRJ4mCi6cEBMr9FgSUAE58nxjDRLcn0SPORyZTF1m9X
+OZVg0JIEmJwIjncFniwinixUCyYguwYV5M5Fj8oHS5gkTRYhYuDwd8Q82RhQ
+nphMWZzd7Sp3/DC05CSqdAAmSzzU8JK6NCf7N0m7onnStf0uf5RilZFBbTv2
+bRKVzwdBkqj9iPJEvjgmVi3f8HkyaDBJkPUllRPkToLplnSCyaLvTFqAEUOe
+tF3NmUIMKsiRi95JUeORABO/wPluix5sb/6HMj2QwpXFksomCl2FAs8ztAR4
+0gEmLShzIHlM3jCHZvehYg1qu6AnwnpSJ7D4v9kIhGFKtAegGzZBud2uctCu
+YJgs+FF6mCQoT4MKcuSiJwiDJQKTCR3mPGmXMzdKKncSTCNlYTB4UpRBbXf4
+NnHtBPpgQRjBPDF/n0zbSYoKJ1ix5x+aEeKJyS75NC9r5TyeypGLnqwoWLxe
+ZuJ1+dAqoOQRmI7UQbgIMuFJPq2qqhy56F3VU1boXbJu1SDLfASmIwlGPMlT
+ZQFL22ANI/d9VwXU6whM/I2QeeM6KDlzKGGyUOEXvatM/InL7a+A0ozALDC7
+opmjW9K1SX0/bVd5lXdmDBC51sKVfgRmIQkWmzldW2Llabuqqr+ZMbJuVU8i
+nhQuiyMw80ywTpmT3AC7T9tVTP2dCqfsSpoqmFyrFVkfgZlPgnXyJ113zOJp
+uwrI1swYttvVgxIsazsxN8i12lVGIzBxglnPNCs8GZzZy7vK1qko0K4kmJPk
+JpFrtatMR2BmlGAJ/bGgAp+2K6Mymhkjdbt6UDJPkvcl12pXOYzAjIIlTb7h
+5IlN3cKftiuXMjoVedqV/rrUQORayysrORZKHvN3y/9pu7Iot5kxMsKLCU/I
+tVZVKakS8ieGexX4tJ37KmRmDIsy6VIj11p59Zdg/fEkVqWevdyuip0Zw7pl
+Jdc6sOrVrujkcWTkA6k/WSyCunbRdxK51rKo74UOu75zrzP7kVxWsV1qsSLX
+6pRSjhFKTjAyJ1VV/l1qpFLI1hih2ASDzKGcqar6uxlEPKm2LI4RCtmVnqYJ
+JbmjXuvfXrvUMr0fTSpWWYwR8pDstJKUi9LUv4ZXnFxrtUVjhEhaVurf5DqI
+eFJt0RghEpb1+jf0S6qCqy0aI0TCsl7/huoggkmFRWOESCFlV/9Sl9pgisYI
+DbKo/iWRSLZE9S+JRLIiqn9JJFKmovqXRCKRSCQSiUQikUgkEolEIqXX/1AF
+fjw=
+    "], {{0, 160}, {368, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{368, 160},
+  PlotRange->{{0, 368}, {0, 160}}]], "Output",
+ ImageSize->{372, 160},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1574912546]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ScalarC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarC0"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["D0Expand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/D0Expand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ContinuedDiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ContinuedDiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Tutorials", "TutorialsSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "TUTORIALS", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "TutorialsSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Tutorials"}], "TutorialsSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->250839057],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Bringing the Arguments of D functions to Canonical \
+Form",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/ArgumentsOfScalarD"]], "Tutorials",
+ CellID->341631938],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1844678392],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->288322605],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "ScalarD0 - Wolfram Mathematica", "ScalarD0"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 17.995090}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "ScalarD0[s_1, s_2, s_3, s_4, s_12, s_23, m_0, m_1, m_2, m_3] gives the \
+scalar Passarino-Veltman four-point function D_0 (s_1, s_2, s_3, s_4; s_12, \
+s_23; m_0, m_1, m_2, m_3) for real external invariants s_1, s_2, s_3, s_4, \
+s_12, s_23, and real positive masses m_0, m_1, m_2, m_3.", "synonyms" -> {}, 
+    "title" -> "ScalarD0", "titlemodifier" -> "", "windowtitle" -> "ScalarD0",
+     "type" -> "Symbol", "uri" -> "X/ref/ScalarD0"}, "SearchTextTranslated" -> 
+  ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR12.nb b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR12.nb
new file mode 100644
index 0000000000000000000000000000000000000000..1bba270e5c2dbf44f34b044fa2ab86b5683e1a93
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR12.nb
@@ -0,0 +1,1316 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"D0Expand\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/D0Expand"], "\<\"DiLog\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiLog"], "\<\"ContinuedDiLog\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ContinuedDiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/ScalarD0IR12\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/ScalarD0IR12"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/ScalarD0IR12.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/ScalarD0IR12",
+              ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["ScalarD0IR12", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["ScalarD0IR12",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/ScalarD0IR12"], "[", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["3", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["12", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["23", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the finite part of Ellis-Zanderighi soft and \
+collinear singular box 12, ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubsuperscriptBox["I", "D12", "fin"], "(", 
+        RowBox[{
+         SubscriptBox["s", "2"], ",", 
+         RowBox[{
+          SubscriptBox["s", "3"], ";", 
+          SubscriptBox["s", "12"]}], ",", 
+         RowBox[{
+          SubscriptBox["s", "23"], ";", 
+          SubscriptBox["m", "2"]}], ",", 
+         SubscriptBox["m", "3"]}], ")"}], TraditionalForm]], "InlineMath"],
+     " for real ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "2"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "3"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "12"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "23"], TraditionalForm]], "InlineMath"],
+     " and positive ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "2"], TraditionalForm]], "InlineMath"],
+     " and ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "3"], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1723656764],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Mathematical function, suitable for numerical evaluation.  For rapid \
+machine precision evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR12",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR12"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses code that is compiled to the ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " (triggered after first numerical evaluation).  For arbitrary precision \
+evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR12",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR12"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses Wolfram Language code."
+}], "Notes",
+ CellID->1072513709],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0IR12",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR12"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to maintain compact expressions.  Applying ",
+ Cell[BoxData[
+  ButtonBox["D0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/D0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will replace ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR12",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR12"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit form."
+}], "Notes",
+ CellID->1067943069]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(4)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->2092318165],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(3)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->546679530],
+
+Cell[TextData[{
+ "Generate ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR12",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR12"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " by reduction of a Passarino-Veltman D function:"
+}], "ExampleText",
+ CellID->1611918755],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVD", "[", 
+   RowBox[{
+   "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+    SuperscriptBox["m", "2"], ",", "s", ",", "t", ",", "0", ",", "0", ",", 
+    "m", ",", "m"}], "]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->295362332],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox["\[Epsilon]", "2"]], "+", 
+    FractionBox[
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}], "\[Epsilon]"], "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}], "2"]}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}]], "]"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]], "+", 
+     FractionBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}]], "]"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]]}], ")"}]}], "+", 
+  RowBox[{"ScalarD0IR12", "[", 
+   RowBox[{"0", ",", "0", ",", "s", ",", "t", ",", "m", ",", "m"}], 
+   "]"}]}]], "Output",
+ ImageSize->{546, 124},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1212568313]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["D0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/D0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain an analytic expression in terms of logarithms:"
+}], "ExampleText",
+ CellID->631407876],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "D0Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1614323782],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox["\[Epsilon]", "2"]], "+", 
+    FractionBox[
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}], "\[Epsilon]"], "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}], "2"]}]}], 
+   RowBox[{"2", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}]], "]"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]], "+", 
+     FractionBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}]], "]"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]]}], ")"}]}], "+", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]], 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       SuperscriptBox["\[Pi]", "2"], "8"]}], "-", 
+     SuperscriptBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}]], "]"}], "2"], "+", 
+     RowBox[{
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}]], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           SuperscriptBox["m", "2"], 
+           RowBox[{
+            SuperscriptBox["m", "2"], "-", "s"}]], "]"}]}], "+", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["m", "2"], 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", "t"}]], "]"}]}], ")"}]}], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        RowBox[{"-", 
+         FractionBox["s", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", "s"}]]}]}], "]"}]}], "-", 
+     RowBox[{"2", " ", 
+      RowBox[{"PolyLog", "[", 
+       RowBox[{"2", ",", 
+        RowBox[{"-", 
+         FractionBox["t", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", "t"}]]}]}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{540, 150},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->623939600]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1868951738],
+
+Cell["Evaluate numerically:", "ExampleText",
+ CellID->116021054],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0IR12", "[", 
+  RowBox[{"0", ",", "0", ",", "5.0", ",", 
+   RowBox[{"-", "1.7"}], ",", "2.5", ",", "2.5"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1763511102],
+
+Cell[BoxData[
+ RowBox[{"0.22930676062257999`", "\[VeryThinSpace]", "+", 
+  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{100, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1973391202]
+}, Open  ]],
+
+Cell["\<\
+The precision of the output tracks the precision of the input:\
+\>", "ExampleText",
+ CellID->1015353154],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0IR12", "[", 
+  RowBox[{"0", ",", "0", ",", "5.0`40", ",", 
+   RowBox[{"-", "1.7`40"}], ",", "2.5`40", ",", "2.5`40"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->87221091],
+
+Cell[BoxData["0.\
+2293067606225800401096923308752222427687474470811075992167092979228757361202`\
+41.34612957738211"], "Output",
+ ImageSize->{314, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->49435047]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1653793834],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[", 
+  RowBox[{
+   RowBox[{"ScalarD0IR12", "[", 
+    RowBox[{"0", ",", "0", ",", "s", ",", "t", ",", "m", ",", "m"}], "]"}], 
+   ",", "s"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1179421591],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"2", " ", 
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}]], "]"}]}], 
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}], ")"}], "2"], " ", "s", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["m", "2"], 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "t"}]], "]"}]}], 
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}], ")"}], "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{"ScalarD0IR12", "[", 
+    RowBox[{"0", ",", "0", ",", "s", ",", "t", ",", "m", ",", "m"}], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], "-", "s"}]]}]], "Output",
+ ImageSize->{456, 52},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1587277031]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[TextData[{
+ "By default, the code for ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR12",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR12"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is compiled to ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " at initialization.  If approprate libraries are available, numerical \
+evaluation can be made to go faster by compiling to C."
+}], "ExampleText",
+ CellID->308658232],
+
+Cell[TextData[{
+ "Quit the kernel to clear ",
+ StyleBox["X`", "InlineCode"],
+ " definitions:"
+}], "ExampleText",
+ CellID->1348549334],
+
+Cell[BoxData["Quit"], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1492990344],
+
+Cell[TextData[{
+ "Set the compilation target to C before reinitializing ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "ExampleText",
+ CellID->1459337677],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"$CompilationTarget", "=", "\"\<C\>\""}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"<<", "X`"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->129719287],
+
+Cell[BoxData["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"Package-X v2.1.0, by \
+Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
+TagBox[ButtonBox[PaneSelectorBox[List[Rule[False, \\\"\\\\\\\"guide\\\\\\\"\\\
+\"], Rule[True, StyleBox[\\\"\\\\\\\"guide\\\\\\\"\\\", \
+List[\\\"HyperlinkActive\\\"]]]], Dynamic[CurrentValue[\\\"MouseOver\\\"]], \
+Rule[BaseStyle, List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], \
+Rule[ImageSize, Automatic]], Rule[BaseStyle, \\\"Link\\\"], Rule[ButtonData, \
+\\\"paclet:X/guide/PackageX\\\"], Rule[ButtonNote, \
+\\\"paclet:X/guide/PackageX\\\"]], Function[Annotation[Slot[1], \
+\\\"paclet:X/guide/PackageX\\\", \\\"Hyperlink\\\"]]]], \
+\\\"RowDefault\\\"]\\)\"\>"], "Print",
+ CellLabel->"During evaluation of In[8]:=",
+ CellID->1495453599]
+}, Open  ]],
+
+Cell[TextData[{
+ "If no errors were reported, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR12",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR12"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is now evaluated using compiled C code.  (The first evaluation triggers \
+the compilation):"
+}], "ExampleText",
+ CellID->124776273],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0IR12", "[", 
+  RowBox[{"0", ",", "0", ",", "5.0", ",", 
+   RowBox[{"-", "1.7"}], ",", "2.5", ",", "2.5"}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->161752355],
+
+Cell[BoxData[
+ RowBox[{"0.22930676062257999`", "\[VeryThinSpace]", "+", 
+  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{100, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1778528596]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["D0Expand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/D0Expand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ContinuedDiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ContinuedDiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->1107818844],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "ScalarD0IR12 - Wolfram Mathematica", "ScalarD0IR12"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 13.147062}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "ScalarD0IR12[s_2, s_3, s_12, s_23, m_2, m_3] gives the finite part of \
+Ellis-Zanderighi soft and collinear singular box 12, I_D12^fin(s_2, s_3; \
+s_12, s_23; m_2, m_3) for real s_2, s_3, s_12, s_23 and positive m_2 and \
+m_3.", "synonyms" -> {}, "title" -> "ScalarD0IR12", "titlemodifier" -> "", 
+    "windowtitle" -> "ScalarD0IR12", "type" -> "Symbol", "uri" -> 
+    "X/ref/ScalarD0IR12"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR13.nb b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR13.nb
new file mode 100644
index 0000000000000000000000000000000000000000..0f26ecc380aa8979dfaede6c9825da28e3708f21
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR13.nb
@@ -0,0 +1,1774 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"D0Expand\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/D0Expand"], "\<\"DiLog\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiLog"], "\<\"ContinuedDiLog\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ContinuedDiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/ScalarD0IR13\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/ScalarD0IR13"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/ScalarD0IR13.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/ScalarD0IR13",
+              ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["ScalarD0IR13", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["ScalarD0IR13",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/ScalarD0IR13"], "[", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["3", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["4", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["12", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["23", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the finite part of Ellis-Zanderighi collinear \
+singular box 13, ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubsuperscriptBox["I", "D13", "fin"], "(", 
+        RowBox[{
+         SubscriptBox["s", "2"], ",", 
+         SubscriptBox["s", "3"], ",", 
+         RowBox[{
+          SubscriptBox["s", "4"], ";", 
+          SubscriptBox["s", "12"]}], ",", 
+         RowBox[{
+          SubscriptBox["s", "23"], ";", 
+          SubscriptBox["m", "2"]}], ",", 
+         SubscriptBox["m", "3"]}], ")"}], TraditionalForm]], "InlineMath"],
+     " for real ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "2"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "3"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "4"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "12"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "23"], TraditionalForm]], "InlineMath"],
+     " and positive ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "2"], TraditionalForm]], "InlineMath"],
+     " and ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "3"], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->428091618],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Mathematical function, suitable for numerical evaluation.  For rapid \
+machine precision evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR13",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses code that is compiled to the ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " (triggered after first numerical evaluation).  For arbitrary precision \
+evaluation, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR13",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " uses Wolfram Language code."
+}], "Notes",
+ CellID->169599067],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0IR13",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR13"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to maintain compact expressions.  Applying ",
+ Cell[BoxData[
+  ButtonBox["D0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/D0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will replace ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR13",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit form."
+}], "Notes",
+ CellID->887870138],
+
+Cell[TextData[{
+ "Below all thresholds, ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0IR13",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR13"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " satisfies the dispersion relation:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["I", "D12", "fin"], "=", 
+    RowBox[{
+     StyleBox[
+      SubsuperscriptBox["\[Integral]", 
+       SubsuperscriptBox["m", "3", "2"], "\[Infinity]"],
+      ScriptLevel->0], " ", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"\[DifferentialD]", "z"}], 
+       RowBox[{"z", "-", 
+        SubscriptBox["s", "23"]}]], 
+      RowBox[{
+       FractionBox["1", 
+        RowBox[{"g", "(", "z", ")"}]], "[", 
+       RowBox[{
+        RowBox[{
+         FractionBox["1", "2"], 
+         RowBox[{"ln", "(", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{
+              SubsuperscriptBox["m", "3", "2"], "-", 
+              SubscriptBox["s", "4"]}], ")"}], 
+            RowBox[{"(", 
+             RowBox[{
+              SubsuperscriptBox["m", "2", "2"], "-", 
+              SubscriptBox["s", "2"]}], ")"}]}], 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"z", "-", 
+              SubsuperscriptBox["m", "3", "2"]}], ")"}], "2"]], ")"}]}], "+", 
+        
+        RowBox[{"ln", "(", 
+         FractionBox[
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"z", "-", 
+              SubscriptBox["s", "4"]}], ")"}], "2"], 
+           RowBox[{"f", "(", "z", ")"}]}], 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"z", "-", 
+             SubsuperscriptBox["m", "3", "2"]}], ")"}], 
+           SuperscriptBox[
+            RowBox[{"g", "(", "z", ")"}], "2"]}]], ")"}]}], "]"}]}]}]}], 
+   TraditionalForm]], "InlineMath"],
+ ",\[LineSeparator]where\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"f", "(", "z", ")"}], "=", 
+    RowBox[{
+     RowBox[{
+      SubsuperscriptBox["m", "2", "2"], 
+      SuperscriptBox["z", "2"]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SubscriptBox["s", "2"], "(", 
+         RowBox[{
+          SubscriptBox["s", "3"], "-", 
+          SubsuperscriptBox["m", "3", "2"]}], ")"}], "-", 
+        RowBox[{
+         SubsuperscriptBox["m", "2", "2"], "(", 
+         RowBox[{
+          SubscriptBox["s", "2"], "+", 
+          SubscriptBox["s", "3"], "+", 
+          SubsuperscriptBox["m", "3", "2"]}], ")"}], "+", 
+        SubsuperscriptBox["m", "2", "4"]}], ")"}], "z"}], "+", 
+     RowBox[{
+      SubsuperscriptBox["m", "3", "2"], "(", 
+      RowBox[{
+       RowBox[{
+        SubscriptBox["s", "2"], "(", 
+        RowBox[{
+         SubscriptBox["s", "2"], "-", 
+         SubscriptBox["s", "3"], "+", 
+         SubsuperscriptBox["m", "3", "2"]}], ")"}], "+", 
+       RowBox[{
+        SubsuperscriptBox["m", "2", "2"], "(", 
+        RowBox[{
+         SubscriptBox["s", "3"], "-", 
+         SubscriptBox["s", "2"]}], ")"}]}], ")"}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ",\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"g", "(", "z", ")"}], "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["s", "12"], "-", 
+        SubsuperscriptBox["m", "2", "2"]}], ")"}], 
+      RowBox[{"(", 
+       RowBox[{"z", "-", 
+        SubsuperscriptBox["m", "3", "2"]}], ")"}]}], "-", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["s", "2"], "-", 
+        SubsuperscriptBox["m", "2", "2"]}], ")"}], 
+      RowBox[{"(", 
+       RowBox[{
+        SubscriptBox["s", "4"], "-", 
+        SubsuperscriptBox["m", "3", "2"]}], ")"}]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ "."
+}], "Notes",
+ CellID->1577986120],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0IR13",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR13"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["4", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is symmetric with respect to the pair-wise interchange ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "2"], "\[LongLeftRightArrow]", 
+      SubscriptBox["s", "4"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "2"], "\[LongLeftRightArrow]", 
+      SubscriptBox["m", "3"]}]}], "}"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ CellID->798482109]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(6)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->865606276],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(2)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1190455954],
+
+Cell[TextData[{
+ "Generate ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR13",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " by reduction of a Passarino-Veltman D function:"
+}], "ExampleText",
+ CellID->1611918755],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"PVD", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+    SuperscriptBox["M", "2"], ",", "0", ",", 
+    SuperscriptBox["M", "2"], ",", "s", ",", "t", ",", "0", ",", "0", ",", 
+    "m", ",", "m"}], "]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2048371989],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", 
+        SuperscriptBox["M", "2"]}]], "]"}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"2", " ", 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          SuperscriptBox["m", "2"], 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           SuperscriptBox["M", "2"]}]], "]"}]}], 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["m", "2"], " ", 
+         SuperscriptBox["M", "2"]}], "-", 
+        SuperscriptBox["M", "4"], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "s"}], "-", 
+        RowBox[{
+         SuperscriptBox["m", "2"], " ", "t"}], "+", 
+        RowBox[{"s", " ", "t"}]}]]}], "+", 
+     FractionBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "s"}]], "]"}], 
+      RowBox[{
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "2"]}], "-", 
+       SuperscriptBox["M", "4"], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "s"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}], "+", 
+       RowBox[{"s", " ", "t"}]}]], "+", 
+     FractionBox[
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["m", "2"], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}]], "]"}], 
+      RowBox[{
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        SuperscriptBox["M", "2"]}], "-", 
+       SuperscriptBox["M", "4"], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "s"}], "-", 
+       RowBox[{
+        SuperscriptBox["m", "2"], " ", "t"}], "+", 
+       RowBox[{"s", " ", "t"}]}]]}], ")"}]}], "+", 
+  RowBox[{"ScalarD0IR13", "[", 
+   RowBox[{
+    SuperscriptBox["M", "2"], ",", "0", ",", 
+    SuperscriptBox["M", "2"], ",", "s", ",", "t", ",", "m", ",", "m"}], 
+   "]"}]}]], "Output",
+ ImageSize->{506, 115},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1432824505]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["D0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/D0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain an analytic expression in terms of logarithms:"
+}], "ExampleText",
+ CellID->631407876],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0IR13", "[", 
+   RowBox[{
+    SuperscriptBox["M", "2"], ",", "0", ",", 
+    SuperscriptBox["M", "2"], ",", "s", ",", "t", ",", "m", ",", "m"}], "]"}],
+   "//", "D0Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->87782187],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "2"}], " ", 
+     RowBox[{"ContinuedDiLog", "[", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", "s"}], 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           SuperscriptBox["M", "2"]}]], ",", 
+         RowBox[{
+          SuperscriptBox["M", "2"], "-", "s"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", "t"}], 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           SuperscriptBox["M", "2"]}]], ",", 
+         RowBox[{
+          SuperscriptBox["M", "2"], "-", "t"}]}], "}"}]}], "]"}]}], "+", 
+    RowBox[{"2", " ", 
+     RowBox[{"DiLog", "[", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["M", "2"]}], "+", "s"}], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", 
+         SuperscriptBox["M", "2"]}]], ",", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["M", "2"]}], "+", "s"}]}], "]"}]}], "-", 
+    RowBox[{"2", " ", 
+     RowBox[{"DiLog", "[", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["M", "2"]}], "+", "s"}], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", "s"}]]}], ",", 
+       RowBox[{
+        SuperscriptBox["M", "2"], "-", "s"}]}], "]"}]}], "+", 
+    RowBox[{"2", " ", 
+     RowBox[{"DiLog", "[", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["M", "2"], "-", "t"}], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", 
+          SuperscriptBox["M", "2"]}]]}], ",", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["M", "2"]}], "+", "t"}]}], "]"}]}], "-", 
+    RowBox[{"2", " ", 
+     RowBox[{"DiLog", "[", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["M", "2"], "-", "t"}], 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "t"}]], ",", 
+       RowBox[{
+        SuperscriptBox["M", "2"], "-", "t"}]}], "]"}]}], "+", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"Ln", "[", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           SuperscriptBox["M", "2"]}], 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", "s"}]], ",", 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["M", "2"]}], "+", "s"}]}], "]"}], "-", 
+       RowBox[{"Ln", "[", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", "t"}], 
+          RowBox[{
+           SuperscriptBox["m", "2"], "-", 
+           SuperscriptBox["M", "2"]}]], ",", 
+         RowBox[{
+          SuperscriptBox["M", "2"], "-", "t"}]}], "]"}]}], ")"}], " ", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["m", "2"], 
+       RowBox[{
+        SuperscriptBox["m", "2"], "-", 
+        SuperscriptBox["M", "2"]}]], "]"}]}]}], ")"}], "/", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["m", "2"]}], "+", 
+        SuperscriptBox["M", "2"]}], ")"}], "2"]}], "+", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]}], ")"}]}]], "Output",
+ 
+ ImageSize->{551, 128},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->483847059]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1868951738],
+
+Cell["Evaluate numerically:", "ExampleText",
+ CellID->116021054],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0IR13", "[", 
+  RowBox[{"4.5", ",", "0", ",", "4.5", ",", "15.5", ",", 
+   RowBox[{"-", "10.2"}], ",", "1.0", ",", "1.0"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1763511102],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.04145988290503057`"}], "-", 
+  RowBox[{"0.010229847094355102`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{165, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2019571054]
+}, Open  ]],
+
+Cell["\<\
+The precision of the output tracks the precision of the input:\
+\>", "ExampleText",
+ CellID->1015353154],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0IR13", "[", 
+  RowBox[{"4.5`20", ",", "0", ",", "4.5`20", ",", "15.5`20", ",", 
+   RowBox[{"-", "10.2`20"}], ",", "1.0`20", ",", "1.0`20"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->87221091],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+  "-", "0.041459882905030562370677329673035227648228225861320590727`20.\
+991196257703404"}], "-", 
+  RowBox[{
+  "0.010229847094355088405756422452826190792334691979448534973`20.\
+729266078516535", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{381, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->947304323]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[TextData[{
+ "By default, the code for ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR13",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is compiled to ",
+ ButtonBox["Wolfram Virtual Machine",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://reference.wolfram.com/language/Compile/tutorial/Overview.\
+html"], None}],
+ " at initialization.  If approprate libraries are available, numerical \
+evaluation can be made to go faster by compiling to C."
+}], "ExampleText",
+ CellID->308658232],
+
+Cell[TextData[{
+ "Quit the kernel to clear ",
+ StyleBox["X`", "InlineCode"],
+ " definitions:"
+}], "ExampleText",
+ CellID->1348549334],
+
+Cell[BoxData["Quit"], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1492990344],
+
+Cell[TextData[{
+ "Set the compilation target to C before reinitializing ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "ExampleText",
+ CellID->1459337677],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"$CompilationTarget", "=", "\"\<C\>\""}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"<<", "X`"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->129719287],
+
+Cell[BoxData["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"Package-X v2.1.0, by \
+Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
+TagBox[ButtonBox[PaneSelectorBox[List[Rule[False, \\\"\\\\\\\"guide\\\\\\\"\\\
+\"], Rule[True, StyleBox[\\\"\\\\\\\"guide\\\\\\\"\\\", \
+List[\\\"HyperlinkActive\\\"]]]], Dynamic[CurrentValue[\\\"MouseOver\\\"]], \
+Rule[BaseStyle, List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], \
+Rule[ImageSize, Automatic]], Rule[BaseStyle, \\\"Link\\\"], Rule[ButtonData, \
+\\\"paclet:X/guide/PackageX\\\"], Rule[ButtonNote, \
+\\\"paclet:X/guide/PackageX\\\"]], Function[Annotation[Slot[1], \
+\\\"paclet:X/guide/PackageX\\\", \\\"Hyperlink\\\"]]]], \
+\\\"RowDefault\\\"]\\)\"\>"], "Print",
+ CellLabel->"During evaluation of In[8]:=",
+ CellID->1495453599]
+}, Open  ]],
+
+Cell[TextData[{
+ "If no errors were reported, ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR13",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is now evaluated using compiled C code.  (The first evaluation triggers \
+the compilation):"
+}], "ExampleText",
+ CellID->124776273],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0IR13", "[", 
+  RowBox[{"4.5", ",", "0", ",", "4.5", ",", "15.5", ",", 
+   RowBox[{"-", "10.2"}], ",", "1.0", ",", "1.0"}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->161752355],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "0.04145988290503057`"}], "-", 
+  RowBox[{"0.010229847094355102`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{165, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->742770622]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell[TextData[{
+ "Numerically confirm the defining dispersion relation for the real part of \
+",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR13",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1162317319],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"dispD013", "[", 
+   RowBox[{
+   "s2_", ",", "s3_", ",", "s4_", ",", "s12_", ",", "s23_", ",", "m2_", ",", 
+    "m3_"}], "]"}], ":=", "\[IndentingNewLine]", 
+  RowBox[{"With", "[", "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"f", "=", 
+       RowBox[{"Function", "[", 
+        RowBox[{"z", ",", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m2", "2"], 
+           SuperscriptBox["z", "2"]}], "+", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"s2", 
+              RowBox[{"(", 
+               RowBox[{"s3", "-", 
+                SuperscriptBox["m3", "2"]}], ")"}]}], "-", 
+             RowBox[{
+              SuperscriptBox["m2", "2"], 
+              RowBox[{"(", 
+               RowBox[{"s2", "+", "s3", "+", 
+                SuperscriptBox["m3", "2"]}], ")"}]}], "+", 
+             SuperscriptBox["m2", "4"]}], ")"}], "z"}], "+", 
+          RowBox[{
+           SuperscriptBox["m3", "2"], 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"s2", 
+              RowBox[{"(", 
+               RowBox[{"s2", "-", "s3", "+", 
+                SuperscriptBox["m3", "2"]}], ")"}]}], "+", 
+             RowBox[{
+              SuperscriptBox["m2", "2"], 
+              RowBox[{"(", 
+               RowBox[{"s3", "-", "s2"}], ")"}]}]}], ")"}]}]}]}], "]"}]}], 
+      ",", "\[IndentingNewLine]", 
+      RowBox[{"g", "=", 
+       RowBox[{"Function", "[", 
+        RowBox[{"z", ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"s12", "-", 
+             SuperscriptBox["m2", "2"]}], ")"}], 
+           RowBox[{"(", 
+            RowBox[{"z", "-", 
+             SuperscriptBox["m3", "2"]}], ")"}]}], "-", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"s2", "-", 
+             SuperscriptBox["m2", "2"]}], ")"}], 
+           RowBox[{"(", 
+            RowBox[{"s4", "-", 
+             SuperscriptBox["m3", "2"]}], ")"}]}]}]}], "]"}]}]}], "}"}], ",", 
+    "\[IndentingNewLine]", "\[IndentingNewLine]", 
+    RowBox[{"NIntegrate", "[", 
+     RowBox[{
+      RowBox[{
+       FractionBox["1", 
+        RowBox[{"z", "-", "s23"}]], 
+       FractionBox["1", 
+        RowBox[{"g", "[", "z", "]"}]], 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          FractionBox["1", "2"], 
+          RowBox[{"Log", "[", 
+           FractionBox[
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               SuperscriptBox["m3", "2"], "-", "s4"}], ")"}], 
+             RowBox[{"(", 
+              RowBox[{
+               SuperscriptBox["m2", "2"], "-", "s2"}], ")"}]}], 
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"z", "-", 
+               SuperscriptBox["m3", "2"]}], ")"}], "2"]], "]"}]}], "+", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"z", "-", "s4"}], ")"}], "2"], 
+            RowBox[{"f", "[", "z", "]"}]}], 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"z", "-", 
+              SuperscriptBox["m3", "2"]}], ")"}], 
+            SuperscriptBox[
+             RowBox[{"g", "[", "z", "]"}], "2"]}]], "]"}]}], ")"}]}], ",", 
+      RowBox[{"{", 
+       RowBox[{"z", ",", 
+        SuperscriptBox["m3", "2"], ",", "s23", ",", "Infinity"}], "}"}], ",", 
+      
+      RowBox[{"Method", "\[Rule]", "\"\<PrincipalValue\>\""}]}], "]"}]}], 
+   "\[IndentingNewLine]", "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2086986754],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"dispD013", "[", 
+  RowBox[{
+  ".1", ",", ".1", ",", "0", ",", "2.2", ",", "7.6", ",", "2.0", ",", "2.0"}],
+   "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->292983336],
+
+Cell[BoxData["0.06583325858314368`"], "Output",
+ ImageSize->{69, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2105062451]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0IR13", "[", 
+   RowBox[{
+   ".1", ",", ".1", ",", "0", ",", "2.2", ",", "7.6", ",", "2.0", ",", 
+    "2.0"}], "]"}], "//", "Re"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->2095351028],
+
+Cell[BoxData["0.06583325858537929`"], "Output",
+ ImageSize->{69, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->846657935]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR13",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can develop additional infrared divergences at certain kinematic points:"
+}], "ExampleText",
+ CellID->1298671197],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0IR13", "[", 
+  RowBox[{
+   SuperscriptBox["m", "2"], ",", "0", ",", 
+   SuperscriptBox["M", "2"], ",", "s", ",", "t", ",", "m", ",", "m"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1618753011],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"ScalarD0IR13", "::", "irdiv"}], "MessageName"], ":", 
+  " ", "\<\"\[NoBreak]\\!\\(\\\"Soft\\\"\\)\[NoBreak] singularity \
+encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/ScalarD0IR13\\\", ButtonNote -> \
+\\\"X`ScalarD0IR13::irdiv\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[1]:=",
+ CellID->1901864895],
+
+Cell[BoxData["ComplexInfinity"], "Output",
+ ImageSize->{112, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1496688317]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->296879209],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR13",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR13"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not evaluate for complex arguments: "
+}], "ExampleText",
+ CellID->793391287],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ScalarD0IR13", "[", 
+  RowBox[{"2.1", ",", "0", ",", "5.4", ",", 
+   RowBox[{"-", "1.2"}], ",", "5.4", ",", 
+   RowBox[{"0.9", "+", 
+    RowBox[{"0.1", "I"}]}], ",", 
+   RowBox[{"0.9", "+", 
+    RowBox[{"0.1", "I"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->245529215],
+
+Cell[BoxData[
+ RowBox[{"ScalarD0IR13", "[", 
+  RowBox[{"2.1`", ",", "0", ",", "5.4`", ",", 
+   RowBox[{"-", "1.2`"}], ",", "5.4`", ",", 
+   RowBox[{"0.9`", "\[VeryThinSpace]", "+", 
+    RowBox[{"0.1`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"0.9`", "\[VeryThinSpace]", "+", 
+    RowBox[{"0.1`", " ", "\[ImaginaryI]"}]}]}], "]"}]], "Output",
+ ImageSize->{409, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1000663279]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["D0Expand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/D0Expand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ContinuedDiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ContinuedDiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->2035563426],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "ScalarD0IR13 - Wolfram Mathematica", "ScalarD0IR13"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 14.684091}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "ScalarD0IR13[s_2, s_3, s_4, s_12, s_23, m_2, m_3] gives the finite part \
+of Ellis-Zanderighi collinear singular box 13, I_D13^fin(s_2, s_3, s_4; s_12, \
+s_23; m_2, m_3) for real s_2, s_3, s_4, s_12, s_23 and positive m_2 and m_3.",
+     "synonyms" -> {}, "title" -> "ScalarD0IR13", "titlemodifier" -> "", 
+    "windowtitle" -> "ScalarD0IR13", "type" -> "Symbol", "uri" -> 
+    "X/ref/ScalarD0IR13"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR16.nb b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR16.nb
new file mode 100644
index 0000000000000000000000000000000000000000..6a5279c6e6cf02bbea7042673093ff734dc90b13
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR16.nb
@@ -0,0 +1,1502 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"D0Expand\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/D0Expand"], "\<\"DiLog\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/DiLog"], "\<\"ContinuedDiLog\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/ContinuedDiLog"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Special Functions and Abbreviations in Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/SpecialFunctions"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/ScalarD0IR16\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/ScalarD0IR16"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/ScalarD0IR16.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/ScalarD0IR16",
+              ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["ScalarD0IR16", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["ScalarD0IR16",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/ScalarD0IR16"], "[", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["3", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["12", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["s", "TI"], 
+         StyleBox["23", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the finite part of Ellis-Zanderighi IR-divergent \
+box 16, ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        SubsuperscriptBox["I", "D16", "fin"], "(", 
+        RowBox[{
+         SubscriptBox["s", "2"], ",", 
+         RowBox[{
+          SubscriptBox["s", "3"], ";", 
+          SubscriptBox["s", "12"]}], ",", 
+         RowBox[{
+          SubscriptBox["s", "23"], ";", 
+          SubscriptBox["m", "1"]}], ",", 
+         SubscriptBox["m", "2"], ",", 
+         SubscriptBox["m", "3"]}], ")"}], TraditionalForm]], "InlineMath"],
+     " for real ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "2"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "3"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "12"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["s", "23"], TraditionalForm]], "InlineMath"],
+     " and positive ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "1"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "2"], TraditionalForm]], "InlineMath"],
+     " and ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "3"], TraditionalForm]], "InlineMath"],
+     "."
+    }]]}
+  }]], "Usage",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->152520425],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "As of this version ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR16",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR16"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " does not numerically evaluate."
+}], "Notes",
+ CellID->1072513709],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0IR16",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR16"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to maintain compact expressions.  Applying ",
+ Cell[BoxData[
+  ButtonBox["D0Expand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/D0Expand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will replace ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR16",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR16"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with its explicit form."
+}], "Notes",
+ CellID->887870138],
+
+Cell[TextData[{
+ "Below all thresholds, ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0IR16",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR16"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " satisfies the dispersion relation:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["I", "D16", "fin"], "=", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{
+       SubscriptBox["s", "12"], "-", 
+       SubsuperscriptBox["m", "2", "2"]}]], 
+     RowBox[{
+      StyleBox[
+       SubsuperscriptBox["\[Integral]", 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["m", "1"], "+", 
+           SubscriptBox["m", "3"]}], ")"}], "2"], "\[Infinity]"],
+       ScriptLevel->0], " ", 
+      RowBox[{
+       FractionBox[
+        RowBox[{"\[DifferentialD]", "z"}], 
+        RowBox[{"z", "-", 
+         SubscriptBox["s", "23"]}]], "[", 
+       RowBox[{
+        FractionBox["1", 
+         RowBox[{
+          SuperscriptBox["\[Lambda]", 
+           RowBox[{"1", "/", "2"}]], "(", 
+          RowBox[{"z", ",", "  ", 
+           SubsuperscriptBox["m", "1", "2"], ",", " ", 
+           SubsuperscriptBox["m", "3", "2"]}], ")"}]], 
+        RowBox[{"ln", "(", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"f", "(", "z", ")"}], 
+           SubscriptBox["m", "1"], 
+           SubscriptBox["m", "3"]}], 
+          RowBox[{"g", "(", "z", ")"}]], ")"}]}], "]"}]}]}]}], 
+   TraditionalForm]], "InlineMath"],
+ ",\[LineSeparator]where\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"f", "(", "z", ")"}], "=", 
+    RowBox[{
+     RowBox[{
+      SubsuperscriptBox["m", "1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          SubscriptBox["s", "3"]}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SubsuperscriptBox["m", "2", "2"], "+", 
+           SubsuperscriptBox["m", "3", "2"], "+", 
+           SubscriptBox["s", "2"], "+", "z"}], ")"}]}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           SubsuperscriptBox["m", "2", "2"], "-", 
+           SubsuperscriptBox["m", "3", "2"]}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["s", "2"], "-", "z"}], ")"}]}], "+", 
+        SubsuperscriptBox["s", "3", "2"]}], ")"}]}], "+", 
+     RowBox[{
+      SubscriptBox["s", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SubsuperscriptBox["m", "3", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["s", "2"], "-", 
+           SubscriptBox["s", "3"], "-", "z"}], ")"}]}], "+", 
+        SubsuperscriptBox["m", "3", "4"], "+", 
+        RowBox[{
+         SubscriptBox["s", "3"], " ", "z"}]}], ")"}]}], "-", 
+     RowBox[{
+      SubsuperscriptBox["m", "2", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SubsuperscriptBox["m", "3", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["s", "2"], "-", 
+           SubscriptBox["s", "3"], "+", "z"}], ")"}]}], "+", 
+        RowBox[{"z", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SubscriptBox["s", "2"], "+", 
+           SubscriptBox["s", "3"], "-", "z"}], ")"}]}]}], ")"}]}], "+", 
+     RowBox[{
+      SubsuperscriptBox["m", "1", "4"], " ", 
+      SubscriptBox["s", "3"]}], "+", 
+     RowBox[{
+      SubsuperscriptBox["m", "2", "4"], " ", "z"}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"g", "(", "z", ")"}], "=", 
+    RowBox[{
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SubsuperscriptBox["m", "2", "2"], "-", 
+        SubscriptBox["s", "12"]}], ")"}], "2"], 
+     RowBox[{"\[Lambda]", "(", 
+      RowBox[{"z", ",", 
+       SubsuperscriptBox["m", "1", "2"], ",", 
+       SubsuperscriptBox["m", "3", "2"]}], ")"}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ " and\[LineSeparator]",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Lambda]", "(", 
+    RowBox[{"s", ",", 
+     SubsuperscriptBox["m", "0", "2"], ",", 
+     SubsuperscriptBox["m", "1", "2"]}], ")"}], TraditionalForm]], 
+  "InlineMath"],
+ " is the K\[ADoubleDot]ll\[EAcute]n kinematic function ",
+ Cell[BoxData[
+  ButtonBox["Kallen\[Lambda]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/KallenLambda"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ CellID->336800125],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ScalarD0IR16",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ScalarD0IR16"], "[", 
+   RowBox[{
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["3", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["12", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["s", "TI"], 
+     StyleBox["23", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["1", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["2", "TR"]], ",", 
+    SubscriptBox[
+     StyleBox["m", "TI"], 
+     StyleBox["3", "TR"]]}], "]"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is symmetric with respect to the pair-wise interchange ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["s", "2"], "\[LongLeftRightArrow]", 
+      SubscriptBox["s", "3"]}], ",", 
+     RowBox[{
+      SubscriptBox["m", "1"], "\[LongLeftRightArrow]", 
+      SubscriptBox["m", "3"]}]}], "}"}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ CellID->273117020]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(2)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1462792104],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(1)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->754101072],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"PVD", "[", 
+   RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+    SuperscriptBox["m", "2"], ",", 
+    SuperscriptBox["m", "2"], ",", "0", ",", "0", ",", "s", ",", "t", ",", 
+    "m", ",", "0", ",", "m", ",", "m"}], "]"}], "//", 
+  "LoopRefine"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"%", "//", "D0Expand"}], "//", "Normal"}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1040464494],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    RowBox[{"DiscB", "[", 
+     RowBox[{"s", ",", "m", ",", "m"}], "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox["1", "\[Epsilon]"], "+", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]], "+", 
+  RowBox[{"ScalarD0IR16", "[", 
+   RowBox[{"0", ",", "0", ",", "t", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+   "]"}]}]], "Output",
+ ImageSize->{422, 52},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1003490127],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    RowBox[{"DiscB", "[", 
+     RowBox[{"s", ",", "m", ",", "m"}], "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox["1", "\[Epsilon]"], "+", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["\[Micro]", "2"], 
+        SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"4", " ", 
+       SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "t"}], ")"}]}]], "+", 
+  FractionBox[
+   RowBox[{
+    RowBox[{"DiscB", "[", 
+     RowBox[{"s", ",", "m", ",", "m"}], "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "2"}], " ", 
+       RowBox[{"Log", "[", 
+        RowBox[{"1", "-", 
+         FractionBox[
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "1"}], "+", 
+             SqrtBox[
+              RowBox[{"1", "-", 
+               FractionBox[
+                RowBox[{"4", " ", 
+                 SuperscriptBox["m", "2"]}], "s"]}]]}], ")"}], "2"], 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"1", "+", 
+             SqrtBox[
+              RowBox[{"1", "-", 
+               FractionBox[
+                RowBox[{"4", " ", 
+                 SuperscriptBox["m", "2"]}], "s"]}]]}], ")"}], "2"]]}], 
+        "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["m", "2"], 
+         RowBox[{
+          SuperscriptBox["m", "2"], "-", "t"}]], "]"}]}]}], ")"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "4"}], " ", 
+       SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]], "-", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       SuperscriptBox["\[Pi]", "2"], "6"]}], "+", 
+     RowBox[{"PolyLog", "[", 
+      RowBox[{"2", ",", 
+       FractionBox[
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "1"}], "+", 
+           SqrtBox[
+            RowBox[{"1", "-", 
+             FractionBox[
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "s"]}]]}], ")"}], "2"], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           SqrtBox[
+            RowBox[{"1", "-", 
+             FractionBox[
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "s"]}]]}], ")"}], "2"]]}], "]"}], 
+     "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox[
+          RowBox[{"Log", "[", 
+           FractionBox[
+            RowBox[{"1", "+", 
+             SqrtBox[
+              FractionBox[
+               RowBox[{
+                RowBox[{
+                 RowBox[{"-", "4"}], " ", 
+                 SuperscriptBox["m", "2"]}], "+", "s"}], "s"]]}], 
+            RowBox[{
+             RowBox[{"-", "1"}], "+", 
+             SqrtBox[
+              FractionBox[
+               RowBox[{
+                RowBox[{
+                 RowBox[{"-", "4"}], " ", 
+                 SuperscriptBox["m", "2"]}], "+", "s"}], "s"]]}]], "]"}], 
+          "2"]}], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"PolyLog", "[", 
+          RowBox[{"2", ",", 
+           RowBox[{"-", 
+            FractionBox["2", 
+             RowBox[{
+              RowBox[{"-", "1"}], "+", 
+              SqrtBox[
+               FractionBox[
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], "s"]]}]]}]}], 
+          "]"}]}]}], ")"}]}]}], ")"}], "/", 
+   RowBox[{"(", 
+    RowBox[{
+     SqrtBox[
+      RowBox[{"1", "-", 
+       FractionBox[
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "s"]}]], " ", "s", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}], ")"}]}]}]], "Output",
+ 
+ ImageSize->{573, 286},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1469484598]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ScalarD0IR16", "[", 
+   RowBox[{"0", ",", "0", ",", "s", ",", "0", ",", "m", ",", "m", ",", "m"}], 
+   "]"}], "//", "D0Expand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->925481131],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox["1", 
+    RowBox[{
+     SuperscriptBox["m", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "-", "s"}], ")"}]}]]}], "-", 
+  FractionBox[
+   RowBox[{"Log", "[", 
+    FractionBox[
+     SuperscriptBox["m", "2"], 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "s"}]], "]"}], 
+   RowBox[{
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "-", "s"}], ")"}]}]]}]], "Output",
+ ImageSize->{160, 51},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1573316800]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Properties & Relations",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->2123667759],
+
+Cell[TextData[{
+ "Numerically confirm the defining dispersion relation for the real part of \
+",
+ Cell[BoxData[
+  ButtonBox["ScalarD0IR16",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0IR16"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->1162317319],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"dispD016", "[", 
+   RowBox[{
+   "s2_", ",", "s3_", ",", "s12_", ",", "s23_", ",", "m1_", ",", "m2_", ",", 
+    "m3_"}], "]"}], ":=", 
+  RowBox[{"With", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"f", "=", 
+       RowBox[{"Function", "[", 
+        RowBox[{"z", ",", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["m1", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "s3"}], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["m2", "2"], "+", 
+                SuperscriptBox["m3", "2"], "+", "s2", "+", "z"}], ")"}]}], 
+             "+", 
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SuperscriptBox["m2", "2"], "-", 
+                SuperscriptBox["m3", "2"]}], ")"}], " ", 
+              RowBox[{"(", 
+               RowBox[{"s2", "-", "z"}], ")"}]}], "+", 
+             SuperscriptBox["s3", "2"]}], ")"}]}], "+", 
+          RowBox[{"s2", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              SuperscriptBox["m3", "2"], " ", 
+              RowBox[{"(", 
+               RowBox[{"s2", "-", "s3", "-", "z"}], ")"}]}], "+", 
+             SuperscriptBox["m3", "4"], "+", 
+             RowBox[{"s3", " ", "z"}]}], ")"}]}], "-", 
+          RowBox[{
+           SuperscriptBox["m2", "2"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              SuperscriptBox["m3", "2"], " ", 
+              RowBox[{"(", 
+               RowBox[{"s2", "-", "s3", "+", "z"}], ")"}]}], "+", 
+             RowBox[{"z", " ", 
+              RowBox[{"(", 
+               RowBox[{"s2", "+", "s3", "-", "z"}], ")"}]}]}], ")"}]}], "+", 
+          RowBox[{
+           SuperscriptBox["m1", "4"], " ", "s3"}], "+", 
+          RowBox[{
+           SuperscriptBox["m2", "4"], " ", "z"}]}]}], "]"}]}], ",", 
+      "\[IndentingNewLine]", 
+      RowBox[{"g", "=", 
+       RowBox[{"Function", "[", 
+        RowBox[{"z", ",", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["m2", "2"], "-", "s12"}], ")"}], "2"], 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["m1", "4"], "-", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["m1", "2"], " ", 
+             SuperscriptBox["m3", "2"]}], "+", 
+            SuperscriptBox["m3", "4"], "-", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["m1", "2"], " ", "z"}], "-", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["m3", "2"], " ", "z"}], "+", 
+            SuperscriptBox["z", "2"]}], ")"}]}]}], "]"}]}]}], "}"}], ",", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"s12", "-", 
+       SuperscriptBox["m2", "2"]}]], 
+     RowBox[{"NIntegrate", "[", 
+      RowBox[{
+       RowBox[{
+        FractionBox["1", 
+         RowBox[{"z", "-", "s23"}]], 
+        FractionBox["1", 
+         SuperscriptBox[
+          RowBox[{"Kallen\[Lambda]", "[", 
+           RowBox[{"z", ",", 
+            SuperscriptBox["m1", "2"], ",", 
+            SuperscriptBox["m3", "2"]}], "]"}], 
+          RowBox[{"1", "/", "2"}]]], 
+        RowBox[{"Log", "[", 
+         FractionBox[
+          RowBox[{
+           RowBox[{"f", "[", "z", "]"}], "m1", " ", "m3"}], 
+          RowBox[{" ", 
+           RowBox[{"g", "[", "z", "]"}]}]], "]"}]}], ",", 
+       RowBox[{"{", 
+        RowBox[{"z", ",", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"m1", "+", "m3"}], ")"}], "2"], ",", "s23", ",", 
+         "\[Infinity]"}], "}"}], ",", 
+       RowBox[{"Method", "\[Rule]", "\"\<PrincipalValue\>\""}]}], "]"}]}]}], 
+   "\[IndentingNewLine]", "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1750991626],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"dispD016", "[", 
+  RowBox[{
+  "2.5", ",", "0", ",", "2.5", ",", "41", ",", "1", ",", "3", ",", "2"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"dispD016", "[", 
+  RowBox[{"0", ",", "14.3", ",", "0", ",", 
+   RowBox[{"-", "3."}], ",", "1", ",", "3", ",", "2"}], "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1545176652],
+
+Cell[BoxData["0.017617256523117245`"], "Output",
+ ImageSize->{69, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1637830502],
+
+Cell[BoxData["0.0027281947475866837`"], "Output",
+ ImageSize->{76, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->571859868]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"analD016", "[", 
+    RowBox[{
+    "s2_", ",", "s3_", ",", "s12_", ",", "s23_", ",", "m1_", ",", "m2_", ",", 
+     "m3_"}], "]"}], "=", 
+   RowBox[{
+    RowBox[{"ScalarD0IR16", "[", 
+     RowBox[{
+     "s2", ",", "s3", ",", "s12", ",", "s23", ",", "m1", ",", "m2", ",", 
+      "m3"}], "]"}], "//", "D0Expand"}]}], ";"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->546641740],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"analD016", "[", 
+    RowBox[{
+    "2.5", ",", "0", ",", "2.5", ",", "41", ",", "1", ",", "3", ",", "2"}], 
+    "]"}], "//", "N"}], "//", "Re"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"analD016", "[", 
+    RowBox[{"0", ",", "14.3", ",", "0", ",", 
+     RowBox[{"-", "3."}], ",", "1", ",", "3", ",", "2"}], "]"}], "//", "N"}], 
+  "//", "Re"}]}], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1789674660],
+
+Cell[BoxData["0.017617256523126422`"], "Output",
+ ImageSize->{69, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->526762326],
+
+Cell[BoxData["0.002728194747579519`"], "Output",
+ ImageSize->{76, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1366820148]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["D0Expand",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/D0Expand"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["ContinuedDiLog",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ContinuedDiLog"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Special Functions and Abbreviations in Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/SpecialFunctions"]], "MoreAbout",
+ CellID->1875716157],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "ScalarD0IR16 - Wolfram Mathematica", "ScalarD0IR16"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 16.273979}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "ScalarD0IR16[s_2, s_3, s_12, s_23, m_1, m_2, m_3] gives the finite part \
+of Ellis-Zanderighi IR-divergent box 16, I_D16^fin(s_2, s_3; s_12, s_23; m_1, \
+m_2, m_3) for real s_2, s_3, s_12, s_23 and positive m_1, m_2 and m_3.", 
+    "synonyms" -> {}, "title" -> "ScalarD0IR16", "titlemodifier" -> "", 
+    "windowtitle" -> "ScalarD0IR16", "type" -> "Symbol", "uri" -> 
+    "X/ref/ScalarD0IR16"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Spur.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Spur.nb
new file mode 100644
index 0000000000000000000000000000000000000000..7c48151ed8bf9006b05484fb78ed8d61d014d261
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Spur.nb
@@ -0,0 +1,4425 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Contract\"\>":>Documentation`HelpLookup[
+       "paclet:X/ref/Contract"], "\<\"\[DoubleStruckOne]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Dirac1"], "\<\"\[Gamma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracG"], "\<\"\[Gamma]5\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracG5"], "\<\"\[DoubleStruckCapitalP]L\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracPL"], "\<\"\[DoubleStruckCapitalP]R\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracPR"], "\<\"\[Sigma]\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/DiracS"], "\<\"DiracMatrix\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/DiracMatrix"], "\<\"Projector\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Projector"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Spur\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Spur"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Spur.html"], 
+                StandardForm]], "Input", TextClipboardType -> "PlainText"]}, 
+            Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Spur", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["Spur", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Spur",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Spur"], "[", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["mtx", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        StyleBox["\[Ellipsis]", "TR"], ",", 
+        SubscriptBox[
+         StyleBox["mtx", "TI"], 
+         StyleBox["n", "TI"]]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]takes the trace of the product of Dirac matrices ",
+     Cell[BoxData[
+      RowBox[{
+       SubscriptBox[
+        StyleBox["mtx", "TI"], 
+        StyleBox["1", "TR"]], ",", 
+       StyleBox["\[Ellipsis]", "TR"], ",", 
+       SubscriptBox[
+        StyleBox["mtx", "TI"], 
+        StyleBox["n", "TI"]]}]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
+   "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1819211347],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " takes traces in ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"d", "\[TildeTilde]", "4"}], TraditionalForm]], "InlineMath"],
+ " dimensions."
+}], "Notes",
+ Deletable->True,
+ CellID->1067943069],
+
+Cell[TextData[{
+ "Each slot in ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " may be a linear combination of objects in spinor space (excluding ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{
+    ButtonBox["Projector",
+     BaseStyle->"Link",
+     ButtonData->"paclet:X/ref/Projector"], "[", "]"}], "[", "]"}]], 
+  "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", which must occupy its own slot)."
+}], "Notes",
+ CellID->582356397],
+
+Cell[TextData[{
+ "The following are recognized by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as objects in spinor space:"
+}], "Notes",
+ CellID->474992141],
+
+Cell[BoxData[GridBox[{
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["Dirac1",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/Dirac1"], " ", "or", 
+     ButtonBox["\[DoubleStruckOne]",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/Dirac1"]}], Cell[
+    "unit matrix in spinor space", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["DiracG",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracG"], " ", "or", " ", 
+     ButtonBox["\[Gamma]",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracG"]}], Cell[
+    "Dirac gamma matrix", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["DiracG5",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracG5"], " ", "or", " ", 
+     ButtonBox["\[Gamma]5",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracG5"]}], Cell[
+    "fifth gamma matrix", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     RowBox[{
+      ButtonBox["DiracPL",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPL"], "/", 
+      ButtonBox["DiracPR",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPR"]}], " ", "or", " ", 
+     RowBox[{
+      ButtonBox["\[DoubleStruckCapitalP]L",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPL"], "/", 
+      ButtonBox["\[DoubleStruckCapitalP]R",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/DiracPR"]}]}], Cell[
+    "left/right chiral projectors", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["DiracS",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracS"], " ", "or", " ", 
+     ButtonBox["\[Sigma]",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracS"]}], Cell[
+    "gamma matrix commutator", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     ButtonBox["DiracMatrix",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/DiracMatrix"], "[", "]"}], Cell[
+    "sequence of multiplied objects in spinor space", "TableText"]},
+   {Cell["      ", "TableRowIcon"], 
+    RowBox[{
+     RowBox[{
+      ButtonBox["Projector",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Projector"], "[", "]"}], "[", "]"}], Cell[
+    "form factor projection operator", "TableText"]}
+  }]], "2ColumnTableMod",
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, None, None, None, None, {None}}, 
+   "RowsIndexed" -> {}},
+ GridBoxDividers->{
+  "Rows" -> {{True, True, True, True, True, True, True, True}}}},
+ CellID->1590026210],
+
+Cell[TextData[{
+ "If ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " wraps ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", tensors outside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are contracted into tensors appearing inside before ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " evaluates."
+}], "Notes",
+ CellID->167176577],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["DiracG5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") anticommutes with all other gamma matrices."
+}], "Notes",
+ CellID->1990783748]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(12)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1760426690],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(5)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1609174111],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->65123157],
+
+Cell[BoxData[
+ RowBox[{"4", " ", 
+  SubscriptBox["\[DoubleStruckG]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]], "Output",
+ ImageSize->{37, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->793631912]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->919349535],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "-", 
+  RowBox[{"4", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"4", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]]}]}]], "Output",
+ ImageSize->{207, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1536758252]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1475454303],
+
+Cell["\<\
+The Feynman slash (contraction of a four-vector with the Dirac matrices) must \
+be typed out in full:\
+\>", "ExampleText",
+ CellID->778992699],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{"\[Gamma]", ".", "p"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1637513737],
+
+Cell[BoxData[
+ RowBox[{"4", " ", 
+  SubscriptBox["p", "\[Nu]"]}]], "Output",
+ ImageSize->{27, 14},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->813549441]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{"k", ".", "\[Gamma]"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{"\[Gamma]", ".", 
+    RowBox[{"(", 
+     RowBox[{"k", "-", "p"}], ")"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1945191619],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"8", " ", 
+   SubscriptBox["k", "\[Mu]"], " ", 
+   SubscriptBox["k", "\[Nu]"]}], "-", 
+  RowBox[{"4", " ", 
+   SubscriptBox["k", "\[Nu]"], " ", 
+   SubscriptBox["p", "\[Mu]"]}], "-", 
+  RowBox[{"4", " ", 
+   SubscriptBox["k", "\[Mu]"], " ", 
+   SubscriptBox["p", "\[Nu]"]}], "-", 
+  RowBox[{"4", " ", 
+   RowBox[{"k", ".", "k"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"k", ".", "p"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{287, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1048818504]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->374737344],
+
+Cell[TextData[{
+ "Constants or tensors not in spinor space appearing in ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " must be accompanied by a multiplying unit matrix (",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckOne]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dirac1"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ")."
+}], "ExampleText",
+ CellID->1788487604],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{"m", " ", "\[DoubleStruckOne]"}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1391341620],
+
+Cell[BoxData[
+ RowBox[{"4", " ", "m"}]], "Output",
+ ImageSize->{21, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->386084394]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", "p"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   RowBox[{
+    RowBox[{"\[Gamma]", ".", 
+     RowBox[{"(", 
+      RowBox[{"k", "-", "p"}], ")"}]}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->87622764],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   SuperscriptBox["m", "2"]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"k", ".", "p"}]}], "-", 
+  RowBox[{"4", " ", 
+   RowBox[{"p", ".", "p"}]}]}]], "Output",
+ ImageSize->{115, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1981792728]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{"\[DoubleStruckOne]", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]], "-", 
+      RowBox[{
+       SubscriptBox["k", "\[Mu]"], 
+       SubscriptBox["k", "\[Nu]"]}]}], ")"}]}], ",", 
+   RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->452601190],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "4"}], " ", "m", " ", 
+   SubscriptBox["k", "\[Mu]"], " ", 
+   SubscriptBox["k", "\[Nu]"]}], "+", 
+  RowBox[{"4", " ", "m", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{117, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1641136740]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->239821780],
+
+Cell[TextData[{
+ "The gamma-5 matrix (The '5' in ",
+ StyleBox[ButtonBox["\[Gamma]5",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracG5"], "InlineCode"],
+ " should not be set in subscript):"
+}], "ExampleText",
+ CellID->2005334688],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", "\[Gamma]5"}], 
+  "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->352626732],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+   "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}]], "Output",
+ 
+ ImageSize->{75, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->655883366]
+}, Open  ]],
+
+Cell[TextData[{
+ "With left-handed projectors ",
+ Cell[BoxData[
+  ButtonBox["\[DoubleStruckCapitalP]L",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracPL"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->305417748],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", "\[DoubleStruckCapitalP]L", ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   "\[DoubleStruckCapitalP]L"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   RowBox[{
+    FractionBox["1", "2"], 
+    RowBox[{"(", 
+     RowBox[{"\[DoubleStruckOne]", "-", "\[Gamma]5"}], ")"}]}], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   RowBox[{
+    FractionBox["1", "2"], 
+    RowBox[{"(", 
+     RowBox[{"\[DoubleStruckOne]", "-", "\[Gamma]5"}], ")"}]}]}], 
+  "]"}]}], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1588606692],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "-", 
+  RowBox[{"2", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"2", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     "\[FinalSigma]"}]]}]}]], "Output",
+ ImageSize->{283, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->970752489],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"2", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "-", 
+  RowBox[{"2", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"2", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     "\[FinalSigma]"}]]}]}]], "Output",
+ ImageSize->{283, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1003816364]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->100314035],
+
+Cell[TextData[{
+ "The gamma matrix commutator ",
+ Cell[BoxData[
+  ButtonBox["\[Sigma]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracS"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->203323350],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Sigma]", 
+    RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", 
+   SubscriptBox["\[Sigma]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1403959411],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "4"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Mu]"}]]}], "+", 
+  RowBox[{"4", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Beta]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{143, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->477762388]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Sigma]", 
+    RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", 
+   SubscriptBox["\[Sigma]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], ",", "\[Gamma]5"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1633510425],
+
+Cell[BoxData[
+ RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+   "\[Alpha]", ",", "\[Beta]", ",", "\[Mu]", ",", "\[Nu]"}]]}]], "Output",
+ ImageSize->{67, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->252132783]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Generalizations & Extensions",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(3)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1020263627],
+
+Cell[TextData[{
+ "For more complicated traces such as ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{"Tr", "[", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"\[Gamma]", ".", 
+           SubscriptBox["p", "2"]}], "+", "m"}], ")"}], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            SubscriptBox["\[Gamma]", "\[Mu]"], "(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SubscriptBox["p", "1"], "+", 
+                SubscriptBox["k", "1"]}], ")"}], ".", "\[Gamma]"}], "+", 
+             "m"}], ")"}], 
+           SubscriptBox["\[Gamma]", "\[Nu]"]}], "+", 
+          RowBox[{
+           RowBox[{
+            SubscriptBox["\[Gamma]", "\[Nu]"], "(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{
+                SubscriptBox["p", "1"], "-", 
+                SubscriptBox["k", "2"]}], ")"}], ".", "\[Gamma]"}], "+", 
+             "m"}], ")"}], 
+           SubscriptBox["\[Gamma]", "\[Mu]"]}]}], ")"}]}]}], ")"}], 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"\[Gamma]", ".", 
+        SubscriptBox["p", "1"]}], "+", "m"}], ")"}]}], "]"}], 
+   TraditionalForm]], "InlineMath"],
+ ", use ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to bracket products of multiplying matrices:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->363080126],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p2", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+   RowBox[{
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"p1", "+", "k1"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], "+", 
+    RowBox[{"DiracMatrix", "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"p1", "-", "k2"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "\[Gamma]"}], "+", 
+    RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2012644560],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", "m", " ", 
+   SubscriptBox["k1", "\[Nu]"], " ", 
+   SubscriptBox["p1", "\[Mu]"]}], "-", 
+  RowBox[{"4", " ", "m", " ", 
+   SubscriptBox["k2", "\[Nu]"], " ", 
+   SubscriptBox["p1", "\[Mu]"]}], "+", 
+  RowBox[{"4", " ", "m", " ", 
+   SubscriptBox["k1", "\[Mu]"], " ", 
+   SubscriptBox["p1", "\[Nu]"]}], "-", 
+  RowBox[{"4", " ", "m", " ", 
+   SubscriptBox["k2", "\[Mu]"], " ", 
+   SubscriptBox["p1", "\[Nu]"]}], "+", 
+  RowBox[{"16", " ", "m", " ", 
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p1", "\[Nu]"]}], "+", 
+  RowBox[{"4", " ", "m", " ", 
+   SubscriptBox["k1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "-", 
+  RowBox[{"4", " ", "m", " ", 
+   SubscriptBox["k2", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "+", 
+  RowBox[{"8", " ", "m", " ", 
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Mu]"]}], "+", 
+  RowBox[{"4", " ", "m", " ", 
+   SubscriptBox["k1", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Nu]"]}], "-", 
+  RowBox[{"4", " ", "m", " ", 
+   SubscriptBox["k2", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Nu]"]}], "+", 
+  RowBox[{"8", " ", "m", " ", 
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Nu]"]}], "+", 
+  RowBox[{"8", " ", 
+   SuperscriptBox["m", "3"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{"4", " ", "m", " ", 
+   RowBox[{"k1", ".", "p1"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{"4", " ", "m", " ", 
+   RowBox[{"k1", ".", "p2"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+  RowBox[{"4", " ", "m", " ", 
+   RowBox[{"k2", ".", "p1"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+  RowBox[{"4", " ", "m", " ", 
+   RowBox[{"k2", ".", "p2"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+  RowBox[{"8", " ", "m", " ", 
+   RowBox[{"p1", ".", "p1"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}]], "Output",
+ ImageSize->{469, 52},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->789204203]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->779885043],
+
+Cell[TextData[{
+ "To project a form factor, insert a ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->164008989],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Contract", "[", 
+    RowBox[{"Spur", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"F1", " ", 
+        SubscriptBox["\[Gamma]", "\[Mu]"]}], "+", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"\[ImaginaryI]", 
+          SubscriptBox[
+           RowBox[{"(", 
+            RowBox[{"p2", "-", "p1"}], ")"}], "\[Nu]"]}], 
+         RowBox[{"2", "m"}]], " ", "F2", " ", 
+        SubscriptBox["\[Sigma]", 
+         RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}], ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", 
+        RowBox[{"\"\<F1\>\"", ",", "\[Mu]"}], "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p1", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}]}], "}"}]}], "//", "FullSimplify"}]], "Input",
+ 
+ CellLabel->"In[1]:=",
+ CellID->1272394223],
+
+Cell[BoxData["F1"], "Output",
+ ImageSize->{18, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->549563322]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"Contract", "[", 
+    RowBox[{"Spur", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"F1", " ", 
+        SubscriptBox["\[Gamma]", "\[Mu]"]}], "+", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"\[ImaginaryI]", 
+          SubscriptBox[
+           RowBox[{"(", 
+            RowBox[{"p2", "-", "p1"}], ")"}], "\[Nu]"]}], 
+         RowBox[{"2", "m"}]], " ", "F2", " ", 
+        SubscriptBox["\[Sigma]", 
+         RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}], ",", 
+      RowBox[{
+       RowBox[{"Projector", "[", 
+        RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"p1", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p2", ",", "m"}], "}"}]}], "]"}]}], "]"}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}]}], "}"}]}], "//", "FullSimplify"}]], "Input",
+ 
+ CellLabel->"In[2]:=",
+ CellID->811092176],
+
+Cell[BoxData["F2"], "Output",
+ ImageSize->{18, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1761990257]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->676959910],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be inactivated ",
+ "(",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " 10 and above only): "
+}], "ExampleText",
+ CellID->340468647],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Inactive", "[", "Spur", "]"}], "[", 
+  RowBox[{
+   RowBox[{"\[Gamma]", ".", "p"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   RowBox[{"\[Gamma]", ".", "p"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1532749344],
+
+Cell[BoxData[
+ RowBox[{
+  TemplateBox[{"Spur"},
+   "InactiveHead",
+   BaseStyle->"Inactive",
+   SyntaxForm->"Symbol",
+   Tooltip->"Inactive[Spur]"], "[", 
+  RowBox[{
+   RowBox[{"\[Gamma]", ".", "p"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   RowBox[{"\[Gamma]", ".", "p"}], ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]], "Output",
+ ImageSize->{196, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->2118240916]
+}, Open  ]],
+
+Cell[TextData[{
+ "Inactivated ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be manipulated by ",
+ Cell[BoxData[
+  ButtonBox["FermionLineExpand",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineExpand"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "ExampleText",
+ CellID->301638165],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "FermionLineExpand"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2083332282],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "8"}], "+", 
+     RowBox[{"4", " ", "\[ScriptD]"}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   SubscriptBox["p", "\[Rho]"], " ", 
+   RowBox[{
+    TemplateBox[{"Spur"},
+     "InactiveHead",
+     BaseStyle->"Inactive",
+     SyntaxForm->"Symbol",
+     Tooltip->"Inactive[Spur]"], "[", "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"8", " ", 
+      RowBox[{"p", ".", "p"}]}], "-", 
+     RowBox[{"2", " ", "\[ScriptD]", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   RowBox[{
+    TemplateBox[{"Spur"},
+     "InactiveHead",
+     BaseStyle->"Inactive",
+     SyntaxForm->"Symbol",
+     Tooltip->"Inactive[Spur]"], "[", "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"4", "-", 
+     RowBox[{"2", " ", "\[ScriptD]"}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Rho]"], " ", 
+   RowBox[{
+    TemplateBox[{"Spur"},
+     "InactiveHead",
+     BaseStyle->"Inactive",
+     SyntaxForm->"Symbol",
+     Tooltip->"Inactive[Spur]"], "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     RowBox[{"\[Gamma]", ".", "p"}]}], "]"}]}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{"\[ScriptD]", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   RowBox[{
+    TemplateBox[{"Spur"},
+     "InactiveHead",
+     BaseStyle->"Inactive",
+     SyntaxForm->"Symbol",
+     Tooltip->"Inactive[Spur]"], "[", 
+    RowBox[{
+     SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+     SubscriptBox["\[Gamma]", "\[Rho]"]}], "]"}]}]}]], "Output",
+ ImageSize->{361, 33},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->2127603960]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Activate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Activate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to evaluate:"
+}], "ExampleText",
+ CellID->1867436637],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "//", "Activate"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1410021903],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", 
+   RowBox[{"(", 
+    RowBox[{"4", "-", 
+     RowBox[{"2", " ", "\[ScriptD]"}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   SubscriptBox["p", "\[Rho]"]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "8"}], "+", 
+     RowBox[{"4", " ", "\[ScriptD]"}]}], ")"}], " ", 
+   SubscriptBox["p", "\[Nu]"], " ", 
+   SubscriptBox["p", "\[Rho]"]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"8", " ", 
+      RowBox[{"p", ".", "p"}]}], "-", 
+     RowBox[{"2", " ", "\[ScriptD]", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "+", 
+  RowBox[{"4", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"p", ".", "p"}]}], "+", 
+     RowBox[{"\[ScriptD]", " ", 
+      RowBox[{"p", ".", "p"}]}]}], ")"}], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]]}]}]], "Output",
+ ImageSize->{501, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->889549523]
+}, Open  ]]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   Cell[BoxData[
+    FormBox[
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["e", "+"], 
+       SuperscriptBox["e", "-"]}], "\[Rule]", 
+      RowBox[{
+       SuperscriptBox["\[Mu]", "+"], 
+       SuperscriptBox["\[Mu]", "-"]}]}], TraditionalForm]], "InlineFormula",
+    FontFamily->FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro",
+       Inherited]],
+   " Matrix Element",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->112358117],
+
+Cell[TextData[{
+ "Compute the ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["e", "+"], 
+    SuperscriptBox["e", "-"]}], "\[Rule]", 
+   RowBox[{
+    SuperscriptBox["\[Mu]", "+"], 
+    SuperscriptBox["\[Mu]", "-"]}]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " matrix element squared:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "\[ScriptCapitalM]"}], "=", "  ", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3T+LJFnXIPaL/qA1n/kEKs0nGJgvUCvGkjWsGJBZu0Ljana10KxX5lii
+EQJpQIhyBGKscWQ1iDRkSDBGw9qN0hByFrVGuwKx7xqtiqmo6ezIeyMjIyPz
+3BvxK/i97zPdVdnnZmXePHHvuSf+g3/0n/+DH/+tlNJ/8fee/88/+Idv/v4/
++Sf/8J/9x//O83/8h//sn/5n/+jffv4f3d//p8+6P/z06RMAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAPzl+eu7Z296vzzr/vCHke/vvu9d/32Hup99Ez0e
+gBp182o/f/58ap4F1ukg3+p8yORSh77K/PzPJ37m1ccuv4seL8CtPX99O5hr
+fz9nngXWqZ8PpuRQr34f/Px3E3K3nB+jxw5wCwd7CrPmWWBbJuRmbw6+98cZ
+Odihb6PHC3BrE65hf46OEYh1Ih/7tv+ewzzsQ/8zXx08RrcW/+uJXOxd9FgB
+IpyYZ9VxwMallxrSbK1X5u9H6/HT6Toya2PA5ozsK3yMjg2INzJH/Nqvd72u
+hZ3Mo7q1svRSr39yzxNgK0bWxX6Njg2IN7KW9WOfg3W+XuDxzDvAJo3UcLg+
+Bbo5Itcf7FP/5x/PycP6xxur8XdeCNickf0CdRuwcf2e4lh919m9KNLLmaHS
+432IHjPALR3UepgPgSOpXLc/+9yjXAzgs5FaMb0sgFO1XWftTR48plwMoDdS
+K+a+R0A3R5TuyTG7xv5ELqZeDNiMNH623H2PYONO1IrN7j2Yxmv3naMENmOk
+DsR1KTBWw3DRPuKJfU/1EcBmjMyHelkAYzUMF80RI4+rPgLYlJE6EL0sgDRS
+w3DRHDHyuOojgM0YqQNx3yOgmyNK/W4uqmEYedyOe4MDmzFSK6ZuFhirFbuo
+nmvkcTtn940FaNXz1y/mQqDkWjUM6eXeldbkgc0bqddQqwEbd60ahjTeV8yZ
+IWAzzq0Def76emT+PMU6GzRmpIbhlwsft7Qe/8F1ILAll9SB9NfLY/Uen/r5
+Vg4GjUrlfjez+02cuKYzXwCbkha479Hz17vMz3d/Nuv+dEA9Rmq6Zq9djayJ
+OS8EbE7K14p9nDrPpvy9k9R6wAqcW8Nw4WN+dP0GbE0q185OvjbN7F/Mvi8d
+UJeRGoTZ11uFdXRzB7BJI3Ugk+bZ9OU9fbt9DD36YUVGahhmvdevkdsBtCxd
+0DNokIf9fkntCFCnUg3DzMf6uvB47v8NbFK6oGfQ4NpWrS2s0BI1DIPHy137
+XdQXA6BlqdwzaPQadbCv6XoWVurSGobBY+X2OuVhwKaNzLPFXhbpy5pbPYBg
+xUZqGM6qsS/kYa7jgM0bmWeP6r76Oo/X7/947lwMtGWkhmFy3X7/GLkzk7N7
+xM4YQ3fN+S76+QQYSmf0DOprRl7rbZ2VhA0YqWGYtEeZXs72DOv0f7/F/NFf
+Ox72kpWLAdVJE8+VD77PWUnYiFTui/9Xrdcwr+qv295kcrBZNWYzYv62ELdc
+DKhOoX7ji72HwffMOsMOtKmQT30q5DolH2+Yg5XmNLkYUKXCPPux/7vD2rDZ
+9bpAm9KJGob0UofVrX/l7lP5a/93N5svXv/Ng/8enkuSiwFVGZlnf01f1oYd
+XQ9Hxw5cXyrXMDRx9jEd90WTiwFVGZlnS+cqD6kXg5Ub2e+7yfnHBeKXiwFV
+m5BzdfNw6d697hkHK9bvP5bWxpu4FpOLATVL4z2DOj/23/dj4e8/RI8BuJ5U
+7mVx1O+mVnIxoGYj8+wXfcNOXBs3sU8BnC+V78fRRK1YPwa5GFCtkXn2KL8a
++V7zGqzUSA1DM9dgcjGgZiPzbOm+R6W9TL33YWVO1DA0USvWj0MuBlRpZJ4t
+1oGkcg2//hawMqlcJ9pMrVg/DrkYUKU0o2dQKteXfWzpOplt+Xf/vb/34dmn
+BWzq3HAq97JoplasH4dcDKjSyDw7WgeS8r21O5v6nKIdcrF5Uvm8zo/RsZ05
+DrkYUKWReXZ0fWtkPe1kfwt1ZVyq3zfLvQZ/by1HqFkq34+jufpQuRhQo5F5
+9mQdSBrvbzH6Wdh/XjZVa0IdDvKvL+4vnY7v0+Vzdpnnu3jP7+jYZoxFLgZU
+Z2Rta1IdyMjPj9X9v/5MM2fhiZdeahRfc63fc+u26bjfivWxy57zsTUx62IA
+C0gX3l/uxNrYd5nv/7r/fnMgkw1ep8XXTjo+7/drdOwt6t+npeusL+oR+u9r
+IieTiwG1OZFHTT4LOTJnH9WNpc99zL6OHj/161+jh73vsuthB98/fC1W8Vn7
+/PXNs6feN9HxjMRZ6l1xjmrf23IxoDZpofvLncjp3vV//1X63JNs9hm0/nF+
+vtUc2n+G/tZ/ht5F/862pF+bOTyr+/HU53w6Xuetot/d89cfBzHto+PZKrkY
+UJu04P3lRtbGhmbtGfWfy7/ccg59/vrb4DP0ffTvbCv6nHvYM+VUj5Vcz+Lw
+3hPPX/eZuL6PjmuL5GJAbdLC95cbeby/9izTmX1g00vtcO4c1y1ysZ+G/270
+72wL0vG+5KT1rczrpJq+w4OcvvNbdExbJBcDalJYQ3g16/MrHe8pfbHvmc6o
+I+lzsNK5glvlYu8H/+Ym1sWi+6EWfu+n9iZz++3ha2IH8b3NxPe36Li2Ri4G
+bEE63kv8MOczsf88PuwdNdxPveocml7qxIafnT9FP7+3EJmLpfxe9+jjpHzf
+hSrqxE68nh6i49oauRjAfLeeQ6PWMVL5HNtZec1Sj3Pj3/HXhZjHzk0O+7t2
+qrxH4lbXWWsiFwOYLyAXC6nv2XgultubLK5vZdbQupys2v7BKVN/mJzNvfXv
+QC4GMNMt59Dnr+8zn5k3Ofe21Vws8/t9lesX3H3vsLb/57H1sxqkl3O5w/G9
+jY5rS+RiAPPdOBd7Gvxbf9xwnFvNxXJrYh8G3/OmkINV21s0M87fBvHvo2Pa
+ksxaqnviAkx0q1wseu1ii7lYKp/p/b2Qf72rcRwTxxq25rpl6fM9nXI9qZvK
+5wGi3DAXe8jM1Te7Z81Gc7FTfYLf9FZxn+90XIv4FB3TWk14beXIywAybpiL
+hZ5122gudnJ/ck3S8R54R68xAKp2i1zs+esu8xl5055iG83Fcv2Bq+xLsdB4
+9RoDoDk3ysXCe6NvNBdrIs6Fx7yPXH8FgHPdKBcbfj7e/J6BC+ZipTqZ6nKc
+QpyrqA0bGbNeYwA05dq5WMqfb3sIGKdcbBu52F1mzHqNAVCtG+RiT4PHv1lP
+sUEcS+Viw/t31pyL5foMzL2v+Nc1jrEQq15jADTjmrlYyvcUewoa51K5WO5s
+Yq252LB/2Kzfb/p8b8omeqmnfP8UvcYAqNKVc7HcZ+LNeooNYlkqF8vlN7Xm
+YqU1vKP7H408xuuebBN52EHceo0B0IQr52LDnmL7wHEulYvl9v1qzcW+LsT6
+8VQ+9vz17UHe+Wv0WGaM/Skzbr3GAKjOtXKxVEFPsUE8F+difX6Se4wqc7E+
+5tLaWOeXbkyD7+/Wwd4dfE+Ttf5JrzEAGnHFXCzXU+wucJxL5GJj932pMhfr
+4343EnfJu2Ge1pq00V5jke8zAM53xVxs+Dl4855ig3iWyMW6uv1m9igHsY+t
+jx3q9iV/iI53oTFvptdYelmH7q5/ujq5p+h4AJjuGrlYqqSn2CCmi3Kx56+v
++u9vpqdFZgzfFtb23vV/3vQ6WGa8d5mxPkbHdYVxDusyu3xMbRxAI66Uiz0N
+PxsqHOe5udhrDlOqGTt6nP5nVnsv7hakDfQay+Ri4dc+AEy3dC6WKuopdmKc
+r36Z+PMfXp8buVg7Ur6vyn10XDcY4yZq4wDW4Aq5WO5zIaSnWGacH9NxvdfJ
+8R6sif3Q/3eux9jPmZ/7WS4WL62811h//TMcYxXvOwBOu0IutqtxT6gfZ7e2
+Neyb//HEz73uSX44+LNc7/2jHlz99zXVI3WNUmbPPK2sniozxo77cAI0IB3X
+cv9+wWPdZT4PwnqKDWJ7zcVyNfzZHlrppVfqh8M1sf7Pf8g8Rrfe9tXgZ7Pr
+Zdz8d7/6XmOFMYbXaQJQ1ucKb1K+R0O3t/b1jMd8zDzWXfRY+9i+e10DO8iv
+ivVegxz118HffVV43n45+PvXnl6T7zfEVX//+8Hvahcd0w3GuLqcE2ANMutg
+U0zKyzKfBaE9xQaxve7FdnnSWP/8od8P17vOfB7tT1YibaDXWGGM1bwHAbiu
+56/7mq/JD3Kxb/v/zu0zDo3ehzG93EOo9LMfpuaw3OT3f5f5HT1Gx7XwGHNn
+mFeXcwKQlyrsKTaI7zUXe3PwZ6/7tLk92kl7i+ml/mx4rvJNbi2N8NfAbvB7
+2kfHdIUxDt+Hq8s5ATiW8mfqn6LjGsT4mouNrnWxXmkbvcZy97zYR8cFwHW1
+8Bl3kIuN9rBgvVq4ZlhonPvM+/H76LgAuJ4W9n7Sl33UnG3cqNxeelpfr7HH
+TC72FB0XQG3SSy1x832xUyM10YNcTM+vjUqVnzFZaIy59+SnteWcAJfq15Lu
+o+NYYBy5a/C76LgycR7mYl/0ZWVbMnt4u+iYrjDG4T3RO1X0XQaoQer7AEXH
+sdBYmvhcS8f99rO99lm/Vq4fLhzjQ2aM++i4AGrQ7x/8sYZ5saX9nkwupg/r
+RrWyr77AON0vHCAjfa5z30XHssBYngbzfLV10Jlc7JN9yu1KDZw3WWCMbzOv
++afouAAipS/vUfI2Op4Lx9JUf4BCLvYmOi7CXg+5Pbz76LgWHmP2fuG1Xi8B
+XNvB3uQq6mhb+ywr5GL6vm5Ua9cSF4zzfSt1BADXltkTuY+OaeHx7KNjOhFv
+7v6TH6LjIvQ1cbTHHh3TFcaYu2Z6Hx0XwK0N9iabP7eVGqx9fv76Kr30sjiM
++ZfouAh9Tdyvfc2osP7X9PwDcK7M3uSfouO6cExN5paDtbF3Se3+5qXjniy/
+Rcd0hTEO1/+ar1cFOEdmL6+zi47rwjENP7+aHg/blbbRayy3/re6/ViAnML6
+UdPX3il/NushOi6Yo7Df3vS5msI4h9dP3rfA6pX2JlMDtVUnxjXc73BGnqZl
+1q730TFdYYy568JmrwkBpijsTb76Pjq+C8a1+j4AbEvKnzVcVX/69FLDn5uL
+7qJjA7iGkb3Jpuf5wmfWfXRccIlCnvIUHdcVxpm7X/hjdFwASzuxN9n0GcrM
+XL6PjgmWkNt7j47pCmP8PjMf7aPjAljaib3JZue+lK9xdi6eVSjkKQ/RcV1h
+nHtr28CaTdib7Oyi41xwbHfRccFSMnnK6mrbU76Hx1N0XABLmLI32XJ9RuZz
+yn1UWJVunXft1xuF9e2Os9BA8ybsTb5qrndR0lOMDSjkKc29XyeMMzdXrW6c
+wLak/D1GSu6j411ofK6jWZ1uvXfwOt9Hx3SFMT5k3s/WuYFmFea1Mc3lMJm9
+16fomOAaCu/nJnvQnBhnrp5ideME1m9GHvYpOuaFxthsr1oYk7bTayxXG7e6
+cQLrNicPSw2eoUx6irExmT35NfYay9WAup8Z0Iznr/sZeVhzuVjSU4wNStvp
+NTasjVvlOIH16a8np/SuWEMupqcYm5S20Wsst7a/i44LYMyFeVhz81zm88hZ
+KzYh5eupVrV/l9wvHGjMAnlYU7lY0lOMDSvsz6+uB1fK96tRhwBUp79+zNVW
+rDkXW/26AIzJvOdXty6c8rWvqzurALRtwTystVxMTzE2LW2n19g+M059a4Aq
+LJyHNZOLpfw5MnMzm5Ly9VSr279L+TM6qzurALQpTb/H5NpyMT3F4FO2nmp1
++3epfL/wu+jYgG3LzMGbyMW2shYAU2xljThz/dV5jI4L2K4r5WGt5GJ6isGB
+dFw7ubr9u0LOuY+OC9imK+ZhreRiqz87BudIGzlTnPI1/Pdn/Hy3pv4UPQ6g
+bWnePSZXk4ulfE+x1fVUgnNs5X1RyDmfzvj5P/c5o8cBtGtiHrbv55vHZ//V
+CnOxTVz/w7m2sF6cyjX8J+eAdFDbED0OoE3puFaiqw/Z9bnJQ26dPjM3ryEX
+W31dDMyR8nWUa+w1tjt3DXC4bhg9BqBN6aX39GP//6dcA+b2LLo85udWc7FM
+PtpZ3XkxmCNt5Hxxyu8PFNcA++fli2u46DEA25Dy9f1P/d/lritbyMWGZ9pX
+10cJLrGV90hmfby4Bpib76LjB7ZhbK7qrxP3LeViW7nmh0tsZe147Fpz8H2P
+uXkuOn5g/aas4af8HmbNudgmamHgUpnrsNXVVBbmrz8G35PLS+ViwE0U9iCP
+alsL+c0uOv7CmFZ/RgyWkDZy1jgzJ3Qe+r+7K+wNyMWAq0tnnvnOrPXvoseQ
+iXETvZNgCVt5vxTW/3f9342eIY+OHVi3lK+PeBr5/r8N5q1d9BgyMW7iOh+W
+0uI6cp9bPaWJ58VTvoa089+P5WFyMeDa0ox7hPTX0a/r+bvoMWTi+/8G41ld
+/QssKTV4z9bBPPRXDVga6aOYZt4PLnqswHqlC+6dmz6v9++ixzGI6x9nxrS6
+c2GwpMKaUfXnjgv5WM6+z9Hm5GL76HEC65WOewt1Hs/4+bc1XTP2nyf/12A8
+fxcdF7QgMx/so2OaGPfUfGyuXfQYgXUqXAefvS+RKqrxff76bzLj+V+j44IW
+FNbJm1hTLsQuFwOqlvL1Ic3WVY3Mxf9tdGzQisz60lN0TGfE/iAXA1qS8jX7
+TVwDZ8ZydP+4Aw/R8UErUuNnkK+Uj+2ixwWsT3o5/z2cb5q9D10av1/mfXR8
+0IqU7zX2cMbPht/borDmLxcDqpLyZ4mqPzNVGMupefc+OkZoSWbNvNhrrF+T
+7t6Dr/3JHqPj7+PKzXFyMaAKqbyfdxcd24yxlO6R+ZfoGKE1heubu8H3dPWZ
+F53DvsE4lsrHdtFjAdYlTbgPeAvScf9/uRgsIOXvi/a2v/Z5W7iWe1XV+Z+F
+8rFd9DiAdSnkLw/Rcc0YR67GeKjZGjiIlFnz+tet5i1TrtlaGxPQrpTf0+uu
+cZs5J9WPY2ovoV10rNCi56//bi15S5q4ht7SmIB2FdaSnqLjOnMMY/0rzKEw
+U3+t9nTG+ysrehyFsV2Sj+2i4wfWozDHhp9BP3MMuzPm0CbPhsKtpJfasK5W
+f39J/lV7LtaP9W8zx7mLjh1Yh5Sv2d9Hx3XmGM7tG/QYHTPUqJ8Pcucgl3AX
+Pb6Rcc+5d6W6U2ARhfWkau4lOSH+OXNoM+ODW7liDvbqPnqMJ8Z/9lwSHTPQ
+vpQ/o95ppmY/zav1uI+OG2qTzqu5XF0u1j8H5+Zj1Y8JqNvz12NmbnmKjuuM
++Kf0rzB/wkRp+lnkOZpYjz7zOXiIjhdoW2r4PuApf+/Mqe6i44daXXCNc8pj
+9Niu8Bw0MyagPoVrv310XBNjv2gvJTp+qFm6vO9WSTPnl9P0s5VV3U8AaEuq
+/J5xM2KXi8FC0oR7us6wix7Xmc/B/YQxNXefOKAO/TVfbl65i45tQuzn9q9o
++vMAoizwXmv+vZcm7FVGxwi0qTDHVr/Wnub1r2j+8wCipPN6KJ+yjx7PjPFP
+2au8i44TaE9hbnmIjmtC3EvUsFSfc0It0sJ9LqLHM/M5uD8xrvvoGIG2pMJ9
+wKPjmhD3Ume7HqPHAi1JC/a5iB7LBc/B2PzzGB0f0Jb0co/f4VxS9fmmCdel
+cjG4ogWvhe6jxzJz/GN7lVXPn0BdUnm/4S46thkxz9VE/zSoSVquz8V99Fgu
+eA5K14S76NiAdqT8fcCrPpOdlr9H3n30mKBFaZk+F01fC6X8+mD1NR5APQrX
+tQ/RcY3Eu/SZerkYXGCB9+Rj9BguHH9pr7KZe/gCcVL+PuB/1DqHpGX6VxyJ
+Hhe0Ll3W5+IxOv4Fxn/vGg+Yo7C2/hQd10i817gHy6focUHr0mU1nKvoKZOZ
+Tx+iYwLqV5g7v4mOqxDrte5NvI8eG6xBmt/nYhcd+0LjH+5VPkbHBNQt5Wv2
+99FxFWLNrf8vZRc9PliLmddMVZ8VOnP89+YWYKqUP4v4U3RcmTiX7l8hF4Mr
+yawNTRId98LPwWs+upocE1heytfsd6qr2e9jfbpiLvYYPUZYkzSjz0V0zAuP
+/698NDoWoF5d/pGZD6uun+3nt4e0fP3+Y/TYYG0Kc8yYu+iYFx7/fT+uKutv
+gXiFPYRm+i32a2WPhXGcq7p9WViDdF6fi/voeK8w/rdrHBdwuZQ/67SPjuuC
+8XTXn0/P/m5mLnYfPQZYo/6aaWqt5310vFcY/99ausYFbifla68eo+O6cEx3
+F6yL3UfHD2tVuPZTKwBsVn+dtrpajZS/B0u3P7Cf8BlQ3XkFWJPC9Z9cDNik
+Qs6yi45rgXENc67dwd+97mFm90qiY4e1S9P6XLyNjhPgFgrz4UN0XBeOKXd+
+/mhM6fM5zJ1cDG6r8D5d1TUhwCmFufCP6LgWGNdw/+Pkvc3TS33ZT67F4XbS
+eJ+LXXR8ANdWqNloPhfJ7D0+RccE5A3XpQ/8q+jYAK4ple8j1HQfwpS/p6Yz
+5FCpfk36/1G7CWxNIWdp/l5p6fiemvvomIBxqdDnIjougGsq7As8RMd14Zju
+1rjnClvw/PU/Z96/P0fHBXANhZzlZH177VK+P8dddFzAaX3dxL8ZvH//l+i4
+AK4hvfQ8HeYsT9FxLTCu/dr2XGFLnr/+B9dTwBYUavbvo+O6cEyTeooB9Sqs
+2f8UHRfAkvq57mmQj+2j41pgXE+ZObzpPVfYom492/kbYAvS557z79dw3ZlZ
+63uKjgk4X8qf8W661w7A2hXmbj3FoEH9deLq6lkB1izpKQarkqk5aP7ebABr
+Vaj11VMMGpbyvV8fouMC4FjSUwxWKR33qPktOiYAjmXOXOkpBiuQ8n0QnY0G
+qIieYrBeeo0B1M91M6ybdW+AuukpBuum1xhAvQrnrPQUgxUp9BpzThqgAnqK
+wTboNQZQH9fKsB3WwAHqU+gppoYEVipTG6rXGEAgZ6tgW5yZBqhHoaeYnkOw
+Yt73APVwfQzbZD0coA7qRmCb1IkCxHOeCrbL+WmAeJmeYvoMwYaYAwDiuCYG
+rI0DxFErAnTUjALEcIYK6DhLDXB7egsBr8wHALfnOhg4ZJ0c4Laev/bqQ4BX
+hfrRu+i4ANbIuSlgyLlqgNt5/nrSTwgYyvQa20fHBLA2rn2BEmvmANf3/PWg
+pxhQkuk19hQdE8CaOCsFjHHGGuB6ujNReggBYwq9xh6i4wJYg8L17l10XEBd
+Mj1vrJ8DLEBPMWAKvcYAllc4H/UQHRdQn0I9g/PWABfQUww4h15jAMsp9BR7
+io4LqFeh/41eYwAz6CkGzKHXGMAyMj3F9tExAfXL1DboNQZwJj3FgLn0GgO4
+nJ5iwCX0GgO4jJ5iwCX0GgOYT08x4FJ6jQHMp6cYsAS9xgDO1/cUcx4duFih
+L859dFwANdNTDFiSazuA8zx/7ewpAEvJ1TzoNQaQp6cYsDS9xgCme/56dAYd
+WFqmR84uOiaAGukpBlyDXmMAp3Vnm+wjANdQqH94jI4LoCbqa4Frci4IoExP
+MeDa9BoDKDNHAtfmmg+gzN4BcAtqIQCOqakFbsUZIYBjeooBt6TXGMCXzIvA
+Lbn+A/jMfgFwa+oiAD5TRwtEcF4IwPlyII4+OgDmQiCOa0GAP+fC3+wRAFFy
+NRLRMQHcitpZIJqzQ8CWPX/95Ew5EC3TU+e3BR/7b32+dyR63DV7/vqm8Lzd
+RcdWK6+12c/bpl9rmflvFx0TsD1pwV5j/bzePd4uU4uWs+9rNX7aytyfec66
+HOKh3y8efi6UdM/v22ffR8cf+LwdvtamPGdea15rudeQfQEgXMrXS/x05s8/
+njG3j3m/lbmw+2xLxzXDc/zRf7beRY/pRq/Vt15rZz9vDwu+1t6u5bWW9BQD
+KpJm9BrrPxeHc9lSujlxcj7Ykv5zcYlcImeVOdmVX2v7teZkXmsnnx/nyIFq
+pHx/nW9Gvv+nzDx2rc/J++jnZ6HnuMsndjd4zjrd2sUqru/Ty5rrLV5r71f0
+Wvvmhq+1x+jxznyOHjJjWd0+LNCONLHXWP99p+b47nFe63LuczlBn5fc95+z
+79c63x+M92FCPvG+z6G6vctsHtw/Z91jPU18vGI+Xbv+NXLqtTHltfZN/5xu
+5bWWOxd41mstfT4H8dNaX2tJTzGgQulEr7H+M21sTt6lmXs9aVrN2S73WVu7
+zPM6zCVm19+k0zVnf8z9nQQ/Z9Gvtd9W+lp7vPJrrYl1pZSvkX0bHRdAP9cO
+56eH/u/GPhsX3dtJ4/uf71v6jBz5bHz9XFxkLOn0/udD9HNxxljGXms7r7Xs
+OP42kid5reV/78O476LjAuikTK+xE5+NV6mvP/HZ0sRn5EgetrvWvJ9e8unS
+7+oh+jmZEH/ptXa1sxxea9t7rWXmuffRMQG8Si/7ZcN59V8WPhuvXh9SuH79
+M0eMfq5mPI+dq++DpPE6q2prekbysL3X2mjcpTws8rV2k/nhgtdZU7kjsC0p
+X0cRulaQ8uedOo/Rz1ch3txe703n+/Sy1lP6jKxunWckXq+1efHW8FrbV/pa
+y+Wu1cUJbFthXg2dX0c+c6q69u5z2dzazs17pY18Rla3zpPy64gh+4MreK09
+eK2NxqqnGFC9kc+i0H2HlN9DqqrOI+Xrjp4C4/lbyp8XrOa8W8rvGUW/1h4b
+eK3tKnyt5XLD++jn6iDG/7Lm9wLAq35ODd33GIktl+tU0Z8/vfRjqmJtZxBX
+LtfZR8d1EF8upwj/fCzEVctrLbcPHp4rFt4DNb3W/m4Q27+Mjgkgp5CL/d/R
+cR3ENrz27v77roK49pnnrYp9rcI6T3g/pZRf66xiXyvl9wBrea3l1p9qea3l
+9ptreK3l3gP/b3RcADkpv0f5Q3RcB/Fl9yojr71Tfr0u/PPnIL5SrvgQGFNp
+b/Iu+vk6iDH3+R26/tTIay2XK4atdab8el14XAAl6bgGdx8d04QYO09BsTwV
+cooq9mUO4szta4XUZaVy/4oq9gAbe63tvdZmvdZCf5cAJSnf06LGz8e7wvz6
+dOM4cp+Nnfvo5+iMeG/6GTny2biLfn7OjNdrrd3X2lBVuSywbSm/J3MXHVch
+1lIfr90t5taRz8bH6OdmJOaxvmMPN/j37wufjfuaPw9T+Wzx1e9b2f/OSq+1
+6q6TJr7Wrr4vOPJa+z8zf/YQ/XwBvEqZeyBFx3Qi3tJnZDeO+yv9m98UPmOa
+2O8Y+YzsvL1WblHI82++VnJB/KW+/F5r46+10rpU2GstM8+Fn0EF6KR8fetD
+dFwT4i7lY39+XqWF1vX6z5XSHN/EZ+PBWMY+4/dL/t7711Xp32oiDzsYS+ne
+Vtd4rY3+W9HPxZmvtVI+do3X2jDPOnqtJfcGByqVjvdB/oiO6YzYx/Kx18/J
+WZ/56aU27e3I58mf1/jRz8GMcY2tj/31OZlmrF30j9397O7E4zeTh93otfaN
+19rs19rY478//J2kfF3sY/TzBGxbyu8lPEXHdeYY7k98hr3O+U/93H1feJzu
+8/D7/jNxbH5/vdZ+iB77hb/3pxNj7HR1UY/9c3xXeJzu735K+Z4Lucertj5s
+wdfa2/61ls3NBq+1/YTXWrP9F2a+1o5eI0u91jI/u49+joBtS/lr/RbXLKbO
+90vY5fKSFvX5wKlcYAldPlFtvfmM19qUXMBr7fi1NuVs41Vfayk/591HPz/A
+dqXjvaR9dEwXjuc+M6al7FPD6xMjz9lrPdy1PievVqu98tfaffQYG3ut/dE/
+9snXWubff4p+boBtSiuuneg/J58WmvN/W2MOlnnOus/Jn9Iy62T7qZ+LrTt4
+rS2RT/y2xhysttda5vdVXY9mYBtSQz3FLhhjN+dPrQE7nNu7ufphq/Nzeqln
+6j4rd2laPvtH/73da6q5Pe6FX2tPZ7zW3nut3f61lvL34XqIfi6A7UnH16S7
+6JhuNO5uHr7P2GQOMfE5+1vhObvfag4x8XnzWjv/ObvJa22r8x9Qj9RoTzGA
+JaQN7AsAdUvqJYANSyuulwXql1bQUwzgUmll58iBdiT9dQDMhUAY14IA9giA
+GGokAD5TOwvcmrNDAJ85Uw7cmp46AF8yLwK3kvSaBjhivwC4FXURAMfU0QK3
+4rwQQJ7z5cC16aMDUFaYI903FFjM89dvrvkA8vQaA65JLQTAabma2uiYgHV4
+/vrJGSGAcXqNAdeidw7ANJn58rfomIC26SkGMJ1eY8DSMvUPn/QUA8gr1Nf+
+FB0X0C7nggDO8/z13rlzYAmFfjnfR8cFUDO9xoCl6CkGcL6+19gwF3uKjgto
+S6Hm4W10XAAt0GsMuJSeYgDzdfUczqADl8j0yHkfHRNAS/QaA+bSUwzgcl1d
+h/0FYA49xQAup9cYMJeeYgDL0GsMOJeeYgDL0WsMOJeeYgDL0WsMOEdhztBT
+DOACeo0BU+kpBrC8Qq8xtR/AkUyNqZ5iAAvQaww4RU8xgOsp9BrTKwj4i3kC
+4Hr0GgNO0VMM4LrUgQAl6koBrk+vMaAk01PMeWuAhekbBOSYGwBux7UvMFTo
+KWbNHOAK1IQAQ2pJAW4rc1ZKrzHYqEJPMWesAa5IDyHglfkA4PZcBwOvrJMD
+xFAfAqgfBYjj3BTgXDVAHP2EYNvMAQDxXBPDdlkbB4inVgS2S80oQB2coYLt
+ef66c5YaoA56C8H2eN8D1KPQa+whOi7gep6/9tbDAeqhbgS2Q50oQH0K56nu
+ouMClvf89eT8NEBd9BmCbfBeB6hXptfYPjomYFldLaieYgB1UkMC65epDd1H
+xwTAZ5leY0/RMQHL0FMMoH6Zml49h2AlCj3F7qLjAuAzvcZgvfQUA2hDZr7W
+awwaV6gHfYiOC4Bjeo3B+ugpBtCOQn2v/kPQqEJPsafouAAo02sM1kNPMYD2
+FOZuvcagQXqKAbRJrzFon55iAO3Sawzap6cYQLsKvcb+aXRcwHR6igG07fnr
+42Ae/1fRMQHTPH/d6ykG0Lbnr/9afwtok55iAO17/vpPMrmY8/BQub6nmPM3
+AI0rnMH61NegqOOHSukpBrAehVzMNTZU7Plrp6cYwDqM5GL6v8IN9fnVT6fW
+pPUUA1iXzPX1F7XAehXBbQx7U5SuhZ6/HjPv1bvo+AGY50Qu1tlFxwhrl/L9
+/l6vh94e1oKl455iu+j4AZgvHd8nPOcxOk5Ys5TvFTbU3Xcy14fmITp+AOYr
+7HfocwE3NDEXK62bOfMM0LAzcrG9OR+u44z34dC/Hu5hAtCW56/vz5j3n6Lj
+hTW6IBcb7mF25zDvoscDwHQz9kb0uYCFpeP7GV2qqwN9iB4XAKel8vmtsfqU
+u+i4YU3S6fPMc/3R53nqCwAqNmN+30XHDGtyxVzsz73L6PEBMG7m/P4YHTes
+RTq+z/eS1PUDVC4d9440x8MNXTEPc28kgAZcsD/S5XDqUOAC3XvoSnnYLnps
+AExzQS7WeYqOH1qW5vd5HaMHLEBD0uW9jfS5gJmulIt5TwI0ZIFczDU4zPT8
+9bBwHvY2ekwAnCe99OpWmwIBFrgWOvTedRFAexbcI3FmC860cC7WxNnm5J4A
+AF9YMBdr5rMAapGW6/PaxLXQ89dd0n8WuIL0ci+hJutl07Jn6u2RwBkWysV2
+0eM4c7zNxAvUrc9hulqrfT8f7qNjumAsS+ViHbXDMFF//XLJ+62ZszPpc22q
+OQJYRMr3q291bWzJXKzZ5wFubSvvtfSyN/l6r6cm9lOB+qV8ze1v0XHNHMtu
+4VysmWt1iLSVNejBHHMfHQ+wDv11Xm5+vIuObcZYls7FOrvocUHN0kud6dz3
+VzO1mem4b04TcQNt6NbBMnNkc+vvz19PV8jFmnwu4FbSZWeYmziznL7cm/xT
+dEzAujx/fZ+ZI/fRcc0Yx+OVcrFmPjPg1grzx6qucdLxmvsuOiZgfYbXfL37
+6LjOHMM1c7Fm9lLglma+73bRcZ8xvtw9PZ6i4wLW5/nrbevzTbrO/YkPNVNj
+DLcyIxdr5kxMyuxN9h6jYwPWJ5Vr+JuYM/sxXCsX6+rpmjhzD7eWzq/TbOa9
+lMrngZoZA9CWwrzzEB3XGfFfcp5rqNuT/KmlXBQijOQrTa8tp/ze5Cv1o8BV
+dHlXLieJjuvMMVySf3V7EW/NszDdGblYMzWXqbw3+afo+ID1Si/3Q8rNP83k
+JhfkYf84OnZo0RnvsZbmkbH8ch8dH7BuKV/78RQd1xnxz70vXjNjhJpMfH89
+Rsd5xnjG9iY7u+gYgXVL+ZqrP6LjOiP+0evZ9LIHeZfJOZsZI9SiX0s/lYft
+ouM8Yzzd3FDcm2wtrwTaVVhbeoiOa2LsuVysy7u+H3xfrj+ls1FwhnT67HKX
+19xFx3nGeHL3IBlqpkct0K7CGv0uOq6JsT/28Xb55EMaqRXu18kOx9jkPdEh
+yoRcrJnrm8L1Wc59dKzA+o3sO9xFxzYh9vupcaZ8f9smznlBDQrXbX+tR0fH
+d8Y4SueWcswRwE2kfA3/Y3RcC4/xzv4DzJfKPff3reQsfR429cyPulLgZgp7
+D/vouK4wzuEc3FQ/NYj0/PU/FnKWlvpX5K47S3bR8QLbko7rqZqq/5g4xoeW
+P0cg0vPXv2h5/fzMPKypfVdgHQr7D6uqb0/52rhm7tMCUQrvnf8jOq4z4j83
+D2sqzwTWIa3gfuETxzk8x64mBE5I+br9/yg6romx564zp7iPjh3Ynkye0llV
+fXvSawzOlo5rLf/36Jgmxp2rS5hqVXMf0IbCvLWPjusK4xyeZ1/VXiwsKeXv
+z1F9nnJhHmaPEgiTyVNWt1af9BqDyVp8vyyQh8nFgDCFefcpOq6Fx9jkdT5E
+aG0duX9/T+3lKhcDqpPyNfx/1H4dPGOceo3BCamx+soF8zC5GBAqk6d0HqLj
+WniMuXNheo3BgdTQueOF8zC5GBAq5WstVrVulPQag1EtvUfSefeYlIsB1RuZ
+11a1btTSNT/cWitrx+m8e0zKxYBmpHyf6iqviS8YY1O1MHBLmfymurXxK+Zh
+cjEgXMqfNVzdulFm/e8pOiaIVnj/V3XW+Mp5mFwMqELK3y/8ITquhcfYXO8k
+uLYW3heFtXu5GLAqKV8vsouOa+Ex5q7/H6LjgkiZ67CqeopNzMO6MezSy/0o
+/ze5GNCilD9H1bmLjm3hcVZfFwO3kiqvoyzkYbt+La+7frwffP+ddTGgZYV5
+7zE6roXHmFv/u4uOCyJk3vNV1Yn2OVe31nU/5X3af+/w/f0/Za7BVj3PAe0q
+XCPvo+NaeIzN9FGCa1rjeyHl6167ee1Ub9jH6NgBXpXmsui4Fh7jsNfYPjom
+uLWU7/NcXU+xM8ZzP3YtWRivXAyoTmGN/yk6roXHWHWNDNxCZt+u6drJNKHG
+ovA9cjGgKqlc+1rVGfcFxqnXGJtVeJ9X1VPszPFMPnuUyUHlYkB1Mnt4Tc/T
+hTHmro9XlW9CScr3FLuLjuuC8UzuydPnocNrscfoMQAcKtRV7KPjWniMeo2x
+WanynmIzxpNb63oY+f5hncJj9BgAhjLXjU3X9RbGOPw8arpeBqbI5CFNX4cU
+rqtO9uZIX9bGPkaPA2CosIfxFB3XwmPUa4zNyezPV9VTbIHxTJ6r0kvfWLkY
+UKWUr+3t1spWU1NVGGPT/ZVgTMrXuD9Fx3XheGav4fc/v5eLAbU6twajRUmv
+MTYkra+nWG48Z9Ua9HucetoAVVpinqtdYYzmZVYpc321j47pwvHsMu/fh+i4
+AJYysv5/Fx3bwuPUa4zVK+zJN9urpjCeT2uqowDopHxd7OSaqoN8rtp9kMIY
+zeesSlpfT7HVny8C6KT8Pd4mn7s62EO4ix7LSIx6jbF6aX09xXJr9vfRcQFc
+Q2YOn5SrHF63Ro9hxhh30THBUtL6eorlxrOPjgvgWlK+D9foNfVwrowew8wx
+3kXHBUvI7MO33lNs9fdpAziUzrjvbv/9d8P9g+gxTBjjXWZ8j9Fxrdnz14f+
+ef4xOpY1S/kzOE/RcV0wntx71bUTsHqF69DHwvce9SWLjn/mGPfRMa2ZXOxm
+z/ND5r1b7VmaCeN5PHedHmANptZnZPZCWsrFcp9Z99FxrZVc7GbP825N1xgp
+X7+qJyCwCafmwEIu00wu1o9hNXs5tZOL3eQ5zu3nNVtXlfLnuvfRcQHcSmFv
+4Kn/u28yeUyLudhwXW9V9+CsiVzsJs9x7j17Fx3XBePJrbu7hyywGYVr7M6/
+n/L3rmwxF8tddz9Ex7VGcrGbPMfDtexm66rSmWeIAFpwkHfs+uvNx/7P7kZ+
+ZpeZC//5WB7WUi7Wj3H4+bWLjmmN5GJXf35XdV2R8jUQu+i4AC5VWPN/3Zvr
+8q6uX2vXe+u+//7cfHhS9DjPfE4eXXvf5HmWi133+R2+t5veb0/5tfeH6LgA
+ljCSj+V0a0b/ZuW52F1mDI/RcbXm+evdnLw94030WM4YcxX5ZVpfT7Hcfcqa
+7lcLMHRmPrbqdbH++dgNc9DomFojFwuN4yHzPN5HPz8XjCc3Pz1FxwWwpP46
+erT+fmO52Ko+y2pUS96yxjGt7Voi5c9oN9uvFqDkmvlY9NhmPhfN7fF0OcAS
+a0tLPc6Jf6OKvGXh5z98TGlle+yF66L30XEBXMu18rHocc18Lp4G46i+9lku
+Fv78h48prezsScqf3X6IjgvgmgprQlvMxe5b+wyQi4U//+FjSivqyZLKPQ2r
+viYCWEI60Ud/C7lY/zw09bkmFwt//kPH1OL1w4nxvM2M5yk6LoBbWTIfix7L
+Bc/BY2Y8d9FxjcQrF4t9/qNzsafB76v6ffUT4xleC3Xuo+MCuKWl8rHocVww
+/rvMeKq9t7Jc7OrPb7V9OlKj501GxvN95nnbR8cFECHN7LW/hlysH/+ulc8D
+udjVn9+ac7Hc+/Q++jm7YDy/ZcbzGB0XQJRL87Ho+K8w9ip7G7WUiwU/R28y
+Y/v90rwwMr/M5C776Of6grHcFV5/d9GxAUS6JB+Ljv3CcTez9yMXGx3Ta/71
+8XAcz1/f9X/2OsZ3F/wbIblYIXd5jH7OLxjPT5nx/BYdF0ANUr6WfdW5WD/u
+p8GYqrwX3oK5WG7dqMlc7Pnrh4Ncq1v7+irzPT8PxjkrlwrMxXK5y130c3/B
+ePaZ8XwfHRdALTJ5yRR30XFfOOb7zJgeouPKxCkX+3Icvx7EXlzvyjxvv878
+96JysWHusot+7i8YS+69VuW1D0CkGfnYfXTMC4x5+HlX3Z7JgrnYcJ2oqVzs
++eur9LIG9hp3dj3s4PuHueesfcqIXCy9nHWu/jrhjPHk5pa30XEB1OjMfKza
+PhBnjDfXd/IuOq5BjEvlYr8u8ThBz8HXBzlRp9uf/PrM8f4y89+OyMWG78Nm
+e4qll9rM3OvuLjo2gBql8+5d2fx1bWqg19iCudjvSzxOwPi/GuRhnR8m/Mwi
+4wzKxZo4VzJxLA+Z38UuOi6AmqX8/kjOLjrWhcY7zD330TEN4lsqF/u4xOPc
+eOzDfclJ61vd9wx+pht7cT/zxGPdNBcr5C7N1rgXru0eouMCqF2adrZyHx3n
+QmPNffZV02tsiVzs+evbkd9jzblYbl/11N7kDy2NMRP/mnqK5a7rmt1vBbi1
+wvXsF6JjXGicuXqWp+i4DuJbIhcrnaGsNk8pxDwaayHnnFUnFjTmu0z8zdYC
+pHz96VN0XACtKFzTDt1Hx7nQWIefGdWct18oF+vWl5rZo0wvtfq5WMfOTQ77
+u3Z+jh7LmeNeW0+x3H1vq1lzBmhBOr1X+RAd40LjzN2zuIqxXZqLpc917M30
+tEj5vcni+lY6XkPrcrLR+v4apeMeK++jY7pgLA+Z32Gz4wGIlMb3Kh+j41tw
+nMPPwSp6jfXrPZfkYq95Sqlm7Ohx+p/5UNl4vyt877C2v8s5Z9XpB/+e19ZT
+bJcZT1VnlAFaUfiMqCpfWWicVfYaG8lNJtVBpZdzgO/6/91CLpZbE/uQiS+X
+g43W9dcs5WurmqxxT+X7gDc5HoAapPJe5Wr2HAqfH+HX8elzHdSwFupkH/n0
+eU3sh/6/cz3Gjmqq+rzm5rlYyvcF+9THncu/3uVyyRaldfUUy80XzY4HoBap
+sFcZHdeVx7ivIKbv+rWt4XrRxxM/97on+eHgz3JrTkf3aey/b9Y9gy4c69h5
+z0/933duem/IG4z7ITPWlnuK7TPjuY+OC6B1qbxXeRcd24JjzH0mhp77OsjF
+cjX82ZwkfXnPoB8O/jzXe+uLPqjp8xnGm59BLOSKIXulNx73mnqK5c7BNDse
+gNqk/N7DfXRcC44v12sstL9Tn4t97P/38F5Af64VDb7/cG3p18HffZXyvS1+
+Ofj7d/2fHdXK32CsufE11ZdixpjvanvNXTieYV7ZeYyOC2BN0vE+3mN0TAuP
+72kwvtBeY+lz7X6XJ431zx/6PWXOE6bT+4Cdm+9P9rFl9yWjXxNXHvNqeooV
+rmWaHQ9ArdLxXmWz1/CF8eX2WMJqdw5ysW/7/87tMw4d1YANHnN4v8Yv9gRT
+0HnEQjyrqg3LjHl4bdPseZhCXrmas9YANUlf7lXuouO5wvj2tXyeHORibw7+
+7OvC+lZ3/nHS3mJ6qT8bnkt8k1tLu+FYN5WLZa5rOg/RcV0wnuH7JvQ6BmDt
+Dq7nq7lf0IJjy/UaC+mNdJCLja51rUHK17LN2qN8zVejx3QixmpeZwuM5T4z
+ltXNDQA1Obymj47lCmO7y3yuhPQaO8jFRntYrEFmna5zdu1a+tyTLaTu7Yw4
+19RT7D6zLraq+gWAGqXPe5X30bFcYWxV1PGkL/vu3/xs443HWrpn5uRxp897
+t7XnYVXVJS44ru4a7anPM++i4wHYgj5neYiO4wrjytUh37zX2CAXW3t/h68z
+z/mnfo1rNB9LL2dMX9fVqt/PTSvqKQZArP46+DE6jiuMq4peY4Nc7Iu+rGs0
+sjbW6c5/fjv4/m4d7N3B91Rf61/LawuA9UiN1htPGNdw7eLmtcjpuN9+9bnG
+AmN+l8lVTnk3zNNqVcuaKwDUroaankwuVnUd1ILjHlsfO9TtS/4QHe+ZY6ui
+FhEAWpCOz7rdtNdYJhf7tPZ9yoOxf5vyfdTe9X/exDrYYEy5nmIhZ3QBoAUp
+uAdUIRerum8Wo7/P1fQUA4BbiF7HKORi1Z8TpPj7DF1nBYAWRdb3pPz9Jz9E
+PyfM+l3m8vrme4oBwLWlzLm3G/7bX6XjewP9Ev2cMPv3ebgu5h5BADBBeukH
+dfgZetNzb4O1sXdbqd1fo35trOuV8pT0sQCAyQafoXfR8QAAAADQtn7/resV
+9drbs6m+nQAAtTvo2fnq93R8nmxTfUwBAK4tvdzLecp9bP66n010zAAAa/X8
+9V3XG2skF/s5OkYAgDVL+fsLvvouOj4AgDUr3NOn8zE6NgCAtRtZF3OPRQCA
+K+tyrkIu9iY6NgCAtcvcW/HVt9GxAQCsWd9nLJeHfYiODQBg7UZqxfSygEr0
+vWde+zK/9ggs3g+j/753mff1L2oPAOoyUivmvkdwY4N7YYz1/cveDyN9vm/Z
+KR/1qwGI183lI7Vi7nsEN3Kix9/J+2Gk0z2bS36MHjvAlqWXe4C77xFUZkJu
+9ubge0v9AadyRgcgyMh+hnoSCHYiH/u2/57DPOxD/zNfHTxGdzanVIfw6l30
+WAG2qlv/cp0MdRpZt/6Y+fvR66eR6y7veYAg6aVWrDjPA7FG9h5/TZ970XyY
+kkel8dpQa+EAAUauud33CCowspb1Y5+Ddb5e4PG87wECpM89ipyrggqlfH+w
+T/2ffzwnD+sfb6zG33kdgBsb2a/QywKCjdQQzL5mSi99L0qP5z4bADeUyvc9
+yl4bd9ffJz4XFv3MgK0bqSH4c11s5mPKxQAqkS6471F/vX6q99EvcjCY70Rt
+11l7kwePKRcDqERa4L5HKV/L8m7u5wTwWSr3m5ldY38iF1MvBnBDKV8r1v3Z
+pFqxlD8f70w8LCCN14rNvodkGq/dd44S4EZGro0nz8WZ/RP3GIaFjNQAXLSP
+eGLf82R9AgDLGJmPJ61rpeN7rujXDQsaqSG4aO155HHPqk8A4DIjdShTencf
+5mG/T93TBKYr1BBMeo/OfNxP3ssAtzFSh3LyvkeDfRO1JXAF6cx+Mws87p9n
+bqLHDbAVqdyzaLRWZLCvqa4ErmSkVuyi993I43b0nwG4kZFasWKtSPqyd4U5
+G67okhqCE4/7Ye6aOADLGZnnj2pF0kuv/dfv7+pMnJWEK7qkhuDE4471FdOL
+BuBGzqlD6efu1zpfZyXhBkZqCH658HF/KTzuh9x1GADXMVIv8mbk+5yVhBuZ
+U0Mw4THH7iWr5gDghlK5t9C3he9RRwI3NFLTNft6aGRNzFlogBtLhfse9X93
+WBt2SI0Y3MA5NQQLPGY3F7hvLMANjczJvw5qwxatUwGmmVpDcOZjvis8pmss
+gBsbmedL5yoX2R8BpplSQ3Dm4y2e2wEw34Sc69eRa2hzN1zZWA3BjMf6uvB4
++jQDBEjlnkVfnKVKX95r8tCH6DHAmqVy/69Z9fWFay/1BgBBUrln0Rd9w/qc
+rVQ3NvtMPTAulXtZnL0mXdjrlIcBBBqZ54/yq5Hvde9guJKRGoKzauwLedii
++5L9tV1unvgl6VcGkDUyz5fue1Tay9R7HxZ2ooZg0nuuf4xcvedi69np5Sx2
+qaZ0uN7unCZAb2SeL/YsGplv7XPAwlK5hmDSHmV6qfMc1hb8vuS1Uxq/n2WJ
+fAzg059zaOlce3HfYuSz4WNuLQ2YL5X74h/u/X07+Jnv+vd2rr5z0XPPqdyb
+8BT9ZAE+FetHTu5dpPK9WPS3gAUV8qnXHOycvOcq7830ZY3Dz5m88MdUroOw
+lg5s3sg8P7q+NbKedrK/xXCuBvJG1px+7//+q/69mLs2+rX/u6vtBabPfW4+
+nHpfj8wZ1tKBzTo1z5/42bH+FqNnpfpr5Nn30IOtGMlfqujJml5qRyfvNab8
++Ur9cIDNunSeH/n5sbr/N+ZfmCbNrCG4UWyv534m732m/FkhdQ3AZl06z59Y
+GzvaF0mf77uiFxmccOL9Fb6vl17O8Jx9z43MvCMXAzZpqXl+ZG3saI5On+t3
+p+5n6BnJZqXyeeUq9vfTy1nNs9fnMu9p72Vgk5aa50/kdO/6vz/sMzmlH5Ke
+kWxe4TqkmlqxC8Y1vH5zlgfYpCXn+ZG1saGT9zFOekbCn1K5D0R4rdiF4zrs
+xfExOh6AKEvP8yOPd7iGdapPhp6R8Omv9ebS6z28VuzCsR3OFWrFgE26xjyf
+XuryS/1ff5+SKyU9I+FP6XPfrqP3UnRsF47rcO5xnw6AhfX52OH+w4ep171J
+z0j4SyqfcW69Vuwwx7QmBlCRpGck/CXN7KNcu4O185O1owDcTtIzEv6Sxusm
+mz1zeLCefbJ2FIDbSnpGwl/SyD2/o2O7YEyv+aVzNgAVSnpGwp9OrIk1uS7W
+r2F/aDV+AMoyNfzmeZqUXs69TOnT96H/vmZe6+lz32b1nAArk/SMpHGp3Lvi
+HNXu+R28R9UPAKxQ0jMSqnWwzue9CbBCSc9IqFb6fL9bPZgBVirpGQlVSp/v
+KSsPA1ixpGckVKc/B9qtU7878+e6de6m7ykAsCVJz0ioTvp8T9qz8rD+Z3+2
+vg3QhqRnJFTnoIfYWfcuT1/ew9Z1FUDl9IyE+vTvy8MzzXOoNQBogJ6RUJ8F
+8jDvaYAG6BkJ9Tm4PrrE2feiBeC2kp6RUJ007Z5NU3hfA1Qs6RkJABAi6RkJ
+ABAi6RkJABAi6RkJABBCz0gAgBh6RgIAxNEzEgAghp6RAAAx9IwEAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgaf8/K5lOew==
+        "], {{0, 614}, {611, 
+        0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSizeRaw->{611, 614},
+      PlotRange->{{0, 611}, {0, 614}}], "=", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"i", " ", 
+        SuperscriptBox["e", "2"]}], 
+       SuperscriptBox["q", "2"]], 
+      RowBox[{
+       OverscriptBox["v", "_"], "(", 
+       StyleBox[
+        SubscriptBox["p", "2"],
+        FontWeight->"Bold"], ")"}], 
+      SuperscriptBox["\[Gamma]", "\[Mu]"], 
+      RowBox[{"u", "(", 
+       StyleBox[
+        SubscriptBox["p", "1"],
+        FontWeight->"Bold"], ")"}], " ", 
+      RowBox[{
+       OverscriptBox["u", "_"], "(", 
+       StyleBox[
+        SubscriptBox["k", "1"],
+        FontWeight->"Bold"], ")"}], 
+      SubscriptBox["\[Gamma]", "\[Mu]"], 
+      RowBox[{"v", "(", 
+       StyleBox[
+        SubscriptBox["k", "2"],
+        FontWeight->"Bold"], ")"}]}]}]}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]Square the amplitude \[LongDash] average over initial \
+spins, sum over final spins\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"|", 
+     OverscriptBox["\[ScriptCapitalM]", "_"], 
+     SuperscriptBox["|", "2"]}], "=", 
+    RowBox[{
+     FractionBox["1", "4"], 
+     FractionBox[
+      SuperscriptBox["e", "4"], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        SuperscriptBox["q", "2"], ")"}], "2"]], 
+     RowBox[{"Tr", "[", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SubscriptBox["p", "2"], ".", "\[Gamma]"}], "-", "m"}], ")"}], 
+       RowBox[{
+        SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+        RowBox[{
+         RowBox[{"p", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+       SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], " ", 
+     RowBox[{"Tr", "[", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SubscriptBox["k", "1"], ".", "\[Gamma]"}], "+", "M"}], ")"}], 
+       RowBox[{
+        SubscriptBox["\[Gamma]", "\[Mu]"], "(", 
+        RowBox[{
+         RowBox[{
+          SubscriptBox["k", "2"], ".", "\[Gamma]"}], "-", "M"}], ")"}], 
+       SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}]}], TraditionalForm]], 
+  "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->1138057628],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "4"], 
+  FractionBox[
+   SuperscriptBox["e", "4"], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]], 
+  RowBox[{"Spur", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"p2", ".", "\[Gamma]"}], "-", 
+     RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{
+     RowBox[{"p1", ".", "\[Gamma]"}], "+", " ", 
+     RowBox[{"\[DoubleStruckOne]", " ", "m"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], 
+  RowBox[{"Spur", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"k1", ".", "\[Gamma]"}], "+", 
+     RowBox[{"M", " ", "\[DoubleStruckOne]"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+    RowBox[{
+     RowBox[{"k2", ".", "\[Gamma]"}], "-", 
+     RowBox[{"M", " ", "\[DoubleStruckOne]"}]}], ",", 
+    SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1617915850],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{"4", " ", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"q", ".", "q"}], ")"}], "2"]}]], 
+  RowBox[{
+   SuperscriptBox["e", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"4", " ", 
+      SubscriptBox["k1", "\[Nu]"], " ", 
+      SubscriptBox["k2", "\[Mu]"]}], "+", 
+     RowBox[{"4", " ", 
+      SubscriptBox["k1", "\[Mu]"], " ", 
+      SubscriptBox["k2", "\[Nu]"]}], "-", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["M", "2"], " ", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+     RowBox[{"4", " ", 
+      RowBox[{"k1", ".", "k2"}], " ", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"4", " ", 
+      SubscriptBox["p1", "\[Nu]"], " ", 
+      SubscriptBox["p2", "\[Mu]"]}], "+", 
+     RowBox[{"4", " ", 
+      SubscriptBox["p1", "\[Mu]"], " ", 
+      SubscriptBox["p2", "\[Nu]"]}], "-", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+     RowBox[{"4", " ", 
+      RowBox[{"p1", ".", "p2"}], " ", 
+      SubscriptBox["\[DoubleStruckG]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]"}]]}]}], ")"}]}]}]], "Output",
+ ImageSize->{361, 54},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1501581955]
+}, Open  ]],
+
+Cell["Contract the result:", "ExampleText",
+ CellID->1861348149],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"amplSq", "=", 
+  RowBox[{"Contract", "[", "%", "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->440201353],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"4", " ", "\[ScriptD]", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    SuperscriptBox["m", "2"], " ", 
+    SuperscriptBox["M", "2"]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]], "-", 
+  FractionBox[
+   RowBox[{"8", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"k1", ".", "k2"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]], "+", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ScriptD]", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"k1", ".", "k2"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]], "+", 
+  FractionBox[
+   RowBox[{"8", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    RowBox[{"k1", ".", "p2"}], " ", 
+    RowBox[{"k2", ".", "p1"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]], "+", 
+  FractionBox[
+   RowBox[{"8", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    RowBox[{"k1", ".", "p1"}], " ", 
+    RowBox[{"k2", ".", "p2"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]], "-", 
+  FractionBox[
+   RowBox[{"8", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    SuperscriptBox["M", "2"], " ", 
+    RowBox[{"p1", ".", "p2"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]], "+", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ScriptD]", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    SuperscriptBox["M", "2"], " ", 
+    RowBox[{"p1", ".", "p2"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]], "-", 
+  FractionBox[
+   RowBox[{"16", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    RowBox[{"k1", ".", "k2"}], " ", 
+    RowBox[{"p1", ".", "p2"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]], "+", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ScriptD]", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    RowBox[{"k1", ".", "k2"}], " ", 
+    RowBox[{"p1", ".", "p2"}]}], 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"q", ".", "q"}], ")"}], "2"]]}]], "Output",
+ ImageSize->{513, 77},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1961327307]
+}, Open  ]],
+
+Cell["Express dot products in terms of Mandelstam variables:", "ExampleText",
+ CellID->157634906],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"onShell", "=", 
+  RowBox[{"MandelstamRelations", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "p1", ",", "p2", ",", "k1", ",", "k2", ",", "m", ",", "m", ",", "M", 
+       ",", "M"}], "}"}], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], ",", 
+    RowBox[{"Eliminate", "\[Rule]", "u"}]}], "]"}]}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->2073242880],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+    SuperscriptBox["m", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+    SuperscriptBox["m", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "k1"}], "\[Rule]", 
+    SuperscriptBox["M", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"k2", ".", "k2"}], "\[Rule]", 
+    SuperscriptBox["M", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "k2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        SuperscriptBox["M", "2"]}], "+", "s"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "p1"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "+", 
+       SuperscriptBox["M", "2"], "-", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k2", ".", "p2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["m", "2"], "+", 
+       SuperscriptBox["M", "2"], "-", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k2", ".", "p1"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "-", 
+       SuperscriptBox["M", "2"], "+", "s", "+", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    RowBox[{"k1", ".", "p2"}], "\[Rule]", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["m", "2"]}], "-", 
+       SuperscriptBox["M", "2"], "+", "s", "+", "t"}], ")"}]}]}], ",", 
+   RowBox[{
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+      RowBox[{"{", "k1", "}"}], ",", 
+      RowBox[{"{", "k2", "}"}], ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], "\[Rule]", "0"}]}], "}"}]], "Output",
+ ImageSize->{507, 90},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->216065890]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to safely take the ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Rule]", "4"}], TraditionalForm]], "InlineMath"],
+ " limit:"
+}], "ExampleText",
+ CellID->378543428],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{
+    RowBox[{"amplSq", "/.", "onShell"}], "/.", 
+    RowBox[{
+     RowBox[{"q", ".", "q"}], "\[Rule]", "t"}]}], "]"}], "//", 
+  "FullSimplify"}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->498735544],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"2", " ", 
+   SuperscriptBox["e", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["s", "2"], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["m", "2"], "+", 
+           SuperscriptBox["M", "2"]}], ")"}], "2"], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "2"}], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["m", "2"], "+", 
+              SuperscriptBox["M", "2"]}], ")"}]}], "+", "s"}], ")"}], " ", 
+         "t"}], "+", 
+        SuperscriptBox["t", "2"]}], ")"}]}]}], ")"}]}], 
+  SuperscriptBox["t", "2"]]], "Output",
+ ImageSize->{312, 38},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->674957631]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   Cell[BoxData[
+    FormBox[
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["e", "-"], "\[Gamma]"}], "\[Rule]", 
+      RowBox[{
+       SuperscriptBox["e", "-"], "\[Gamma]"}]}], TraditionalForm]], 
+    "InlineFormula",
+    FontFamily->FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro",
+       Inherited]],
+   " Matrix Element",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSubsection"],
+  $Line = 0; Null]], "ExampleSubsection", "ExampleSubsection",
+ WholeCellGroupOpener->True,
+ CellID->536511945],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJzs3T+LbFnXGPYX2xvJ2cw3aD8fwFyYVEHZTKjgIjNY4KQk7Amc+CIbBmWV
+GCZsnNgDNnRkzIOCGwomqcCBgkFcsAJhNKYxMghZjBu/IEsW+LrP9O651af2
+rjpVdarW2ef8XvhJz9yu7l77VPX5s/Zea/97f/u/+Bvf/1t/8Rd/8V/+1ef/
+52/8rR/+g7/zd/7W3/2P/p3n//gP/+5/9Z/97X/7+X/8u89f/+n5X7p//Pz5
+MwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMVvor
+f/XbZz/0/Pbs87NvouMDAAAAYJrSX/mrP+Uc0iG/RccJAAAAQBu6tUo765Z2
+/RgdGwAAwNyoJQHm7Pk89udCjunb6LgAAADmQC0JsBSFHJNzGwAAwBWoJQHm
+rHB++yk6JgAAgLlSSwLMUa4F7p/bvouOCwAAYK7UkgBz1K3HdG4DAAC4HbUk
+wBw9n8t+6Z3b/hwdEwAAwFypJQHmKPeac24DAAC4EbUkwBw9n8t+6J/bnn0d
+HRcAAMBcqSUB5uj5XPazcxsAAMBtqCUB5qhbr1Q4t30fHRcAAMBcqSUB5qjL
+lRdyTF/vfL3Uh67m1+jxAABf5Ov4Dz2vexh9Ex0fwFKpJQHmqDuX9c5tPx94
+7beFvTU/5/vVP0WPhat/VjynADSg2/d6wLyQvrIAQdSSAHNVyBn9cMLr/2w9
+57x5TgFoW+73UZof+jE6NoClUksCzFHl3FXNGfVqhg/mopgfzykAbSqsWe58
+Gx0XwFKpJQHmqMsN9M5Tvxx47bfuS/GcAtCewrnb+lOAQGpJgDnqckpDzm07
++aVfk747i+Y5BaA9hWeZn6JjAlgqtSTAHOW6p/65bW+t5fO/ff+6xslaTDyn
+ALSl8izzXXRcAEullgSYo14+vHhu2zn/VeuDWQ7PKQDtKTzLWH8KEEgtCTBH
+Xd7o0LltpybKOhV+5zkFoD2FZ5k/R8cEsFRqSYA56up9C+e2b/LX/rRzP6re
+lz94TgFoS+VZxvpTgCBqSYA56u4vS+e2tL8vpppffuc5BaA9hWeZ7hpvLyKA
+IGpJgDlK+3uD/bizHlM/Z/Z4TgFoT+FZxvpTgCBqSYC5Svt7g/XvQeUR6H9m
+PKcANKTyLPN9dFwAS6WWBJijVN4b7Pc1S4XznvtRPKcANKhyTf965+u1+4GS
+X6PHA9A6tSTAHKX9vcH+6KuTcwl7a5yiYyb8M+M5BaAxhWeZ6vW8MIf+R5+Q
+ZD8jgFGoJQHmKO3vDdbvM/dT4Tzn/nLBPKcAtKdwLj7Y36P3+j97vgEYz4E5
+WbUkQLNSeW+wb3qvKZ3/9J1bMM8pAG2pXMur5+L0dl8H13yAkSW1JMAMpf29
+wX6pvO5X9U3kz4LnFIDGFJ5litf7/Nrd87w+swBXoJYEmKO0X/P7Y+V1/VzU
+H3l2lsVzCkB7jj3L7Lzu9bz9a39dMwDjUEsCzFEq7w1WzBtV1mvaq36BPKcA
+tKXyLLM3F56+7GX0i7lygOtRSwLMUTqyN1jh9aX1mnuvzz+3uraFdnlOAWjP
+kGeZnTWq+n0AXJlaEmCOCjmjg3mhLlcwZL1mzrfb92CGPKcAtKfwLNPv+fG6
+V+hP0bECzJ1aEmCuCuerYv689z39Pet/213LlHMQ1jDNlOcUgLZUnmW+yV/7
+U/pS/6zHB8ANqCUB5qhS83R03WUq9577OX/t9Xyp984MeU4BaE/hWeaX/O/f
+9uaa7MsAcANqSYA5Svt7gx3Mn/e+t7+W6aS1ULTJcwpAewrX7O76/33h+m39
+KcANqCUB5ijt7w02+JyUc+n9c+Pg2uB8DuzvkfCj9U/T5jkFoD2F63W/5rn4
+vALA+JJaEmCGhq63PPIzvtnJU/025PsL611K1FlNlOcUgLZUnkl+nwtI5X4g
+aiwArihNpJYkXwPs/ww0q5Kzr7Ef58R4TgFoT+VZ5rv8tdJeRfYDBbiiFFhL
+kn/Gd70Y5JiAJu2cy37cPZfl3EU/J/9rdLzsvX+eUwAaU3iW6e8FWtqryPMG
+wBWkoFqS/H393JJzPtCsnTUw1V7QhRyGeuIJ8ZwC0JbK+uFveq8prVFVsw4w
+Izm31fW4+CFzvw40LecfhvRr2l0Lo15uIjynALSn8BxRrMdI+3twWEsMMGO9
+874cE9CcfB472suuVzNXXfPEzd8/zykAjUn7+zIU+8EWzvHmeYBJez5HffVs
+lX14tsnWr/8eHeOUyTEBS9Grt7Iv2UR4TgFoS3rpkzfofJzKPfUG948FuLbn
+c9JdziV9fPZUOL/VPObv6b73LnocUyHHBCzFzjom/aInwnMKQHtSeb/P6txN
+KvfU23t9/rmD90ACOFdeq9Tlhj6dkFM65lP+mV9Fjy/42MoxAYuwk59QJzcR
+nlMA2lM4Fx8836aBex3l55Lvo8cHzFdes/Rw4nqlU3U/+36puSY5JmAJ0pee
+0cU6LMLeF88pAI0prCk9em1Nb3sifs4/4+udr/9gbgC4lrxuaXNGbql7/TY7
+53s3S8s1yTEBS5DPdYu7d00vvQlfr4cf839P5jrnOQWgLam8F+jR3nipvD/o
+z/lrr2tav7lm7GeMdZW+9Pp9Hx0PcL6cIzqWE9rmv/fVofvl9LIW6vX8MKTW
+ruvbtIo+Bjc81nJMwKx1eYsu55AW0Of7eYzv8nXs9TpZmm+ZxPrdJT2nAMxF
+vqYOrnHufW9/juCkOYaAsW56Ma6jYwJOl17WMNXOPZ8unYNNX3o7PR74PZ1N
+9LG40fGWYwJuKp+Hb5LfyGtafl3K+S29rFU6af1uYKyLeU4BmIs8Z7N7zh28
+bjS91Dv31692ju7fsHM9f3O+v+acQiHH1LGeCRqTXtYcldYsra70uw6tmfp4
+q+egwOMtxwRcVc4pvU8va2e6uYKHG/3e75aUX8pj7l/T7gfkmrr35F1ArCHP
+KZXPyS9L+pwAnCMN7Il35Gd8s3P+/+3Y96eXtaul8/3ZMZwQ64fK/Mxd9HsB
+DJdeats2+T65W2u0vsHv3O1XUbr3nm2eSY4JGFshp3TzdeY796SLOq/1r2H5
+396l4+t3u2vgzeZmI55TCt//XXqb51rUZwVg6lK5prrmaK31mTGU1gdvo48N
+MH35mahWYzDbPJMcE3CpIzml3RzGTdbK5HvS7ty2qJ48qVBrXnjNsfW76+hx
+3OA49XNLroEAE7Rzrv5x9xyd55H6NdO/XimGryr3Nuvo4wO0IZXXRP6eZ4qO
+7UrjlWMCTjIwpxSSpz8lv/T8mp/SjPqAp0Kt+YHXfkj19bvr6LFc8Rh166d+
+Ti99PX6QYwKYpvRlf4dvD7ym39fvKnNL6WU9cP9a+Rh9jIB2pJfaudJ990N0
+bFcYqxwTcNAZOaWQ8+YZ+aVZ9YZO+71Jn468/u7A+3nz/kxBx8w1EGCC8nX6
+aA10etur6Sr1cvn3lPp/r6OPE9COA3mmdXRsI4/T/TUsUJ6TW2Uf8r1Tp6sZ
+3qb6vvenWN9wPLUe0IfMqpYu7dfAfRzwPbUagO69n2WNeG/8roEAE5TPz0fX
+Gqe3NXPVNU8jxPNV4b5olnUuwPVU8kyz2ktgrPvr9LLGYRU9Hli6vDZlvZMz
+etjJGR3q+Tymm/VeymP+U9rfz/iYwXuYtSAVejE9+3DC95byTEdzVK2TYwJo
+W3pZ7/R6Hr9q/Xsqr2W6iz4GQFtSed/n2dx3j3F/3cvrb+WaIE46vE/mLXTn
+gJuufzkjv9S5yj7Hge97qZfg3Qnf353HSznIVfTYbvjZkWMCaEz6so7p5xv8
+rrPncwB2VeZ3V9FxjTCufr/T78/8OaWcvlwTBEkva5lq+2Re03302JeqkB86
+ef1+WmBPUzkmgLalL3XyV6uT6/2+/v3VNvoYAO2p3Hdvo+M6cyx/GvisOCjf
+lMq1yXJNMAHppdfSLerjunPAOnq8S5XKdd1nzaum8trd99FjvOKxk2MCaFT6
+svfczfbwSPvrhg/urwFQk156msxuLdMIx+WryrGRa4IJyH+jpbWGY+lyWIvY
+g2yqCnnEs/t1V+YNttFjvOKxk2MCaFQ+h9+0v2Kev+vfC81+jwxgfOml9qR/
+PnmIjmsq8vGRa4KJSi/rMfv7jl3q5r2X2HtfS32YNhf+zNJaprvosV7p+Mkx
+ATTo+Zz9Y5dfSlfu8134vaWeTKvo4wG0qZJD8Xz19hjJNcGE5ZzEGD3B9V6K
+fy/vCu/l2WuYej+3/37PsqepHBNAe9JLT9lfo87bckzAWFK5L9M6Oq4pkmuC
+6Xr+m/vrz/7PC/JLs8w3tCaV96MY5b0p/OzZ7KfaG6ccE0BDns/V30Xml3IM
+ckzAaJZy3z3i8ZJrgolILz0ELq2Xe4gex5nj7vpib7KP+Th07vO/fciva2Jt
+auW8evJecgd+fr+H1yx7msoxAbQjvfT4/i36fC3HBIwp7fepmOV99xWOm1wT
+BBkpt9RMfim9rDn9cMGYH/O5fpL7qVXOpV2N3Gi919NCeprKMQG04fkc/U0+
+Z38zgVjkmIDRVO6776LjaoVcE9zOiLml3/8mo8dzZKxdD85urVKpfuwSTznf
+dBc9xjzO2vlzfYXjOft7aDkmgOk7Jb/0/Jqf0hX7gKdy7xT76wIXKZxXJjnX
+PWVyTXA9J+SWhvwNfs55m0muYcm5kE0ap4/5kON1FzjOj5W4Nlf6nXJMAIQ6
+I7/045Xjed+/PkYfI6B9aX+efBMdU6vkmmA8J+aW7vL3tJxfWp+YW/qUj8/H
+nJe6T1/6Mp3ycza3PCbpZc70sfZeXvH3yjEBEKY7L6eX/kunzAddtZYu7fdN
+Ga0XIrBchWe4TXRMrZNrgvOdk1va+b5Drx+1x8+I4/1q4Hi7XNKHoWPI56H3
++Tgdyzk9XvtclL6s0aq+n1f+/XJMAITI+aVfj1yL+365QVz9OZ+H6GMFtK+Q
+v95GxzQX0bmm/Dz6EH0cYIhzc0u9728tv7Q6kv95zH/HF68zyvmmY8d39HNR
+Glb/9+EGx3rWOabn8fzQG9/30TEB8OKM/FLnhyvHVLpv0jMFuFjan1feRsc0
+N1G5pvSlxvoh+hhAzaW5pd7PqX3vFPNL6yO5pXXg8d7m+M7ObaWXmrj7I7ml
+p1vcz6aZ9vxOL/PiQ55T5JsAeKPwbPJ0yXUf4FUhx6QO93rH+qa5pt4z9zp6
+/LBrrNzSzs+r1WGto8daiPVQfmlzoxjeH8n/7J6PNvn9qr4P+evr/H7V+i3t
++nire9lUzj+6jwZgkfIzyd79VnRcwDwk+wlEHPOhe0ddlGsqPFeto8cOY+eW
+dn5uKce0jh5vIc5afqnLy9x0vVU+F/Xrpa+tG+dN1+IXPhtP0Z8DAIhSuQ+7
+i44LmIf0Us/QP8dMrq5kjq6da0rl+hDvLSGulVva+fn9PMJ99JgLMdbyS91x
+CVtXk4avsbw0t7QOGl9//9SP0Z8FAIiQXvo89q/RrovAqArnmav3X+XN8b9a
+rqnwMybZ+5j5unZuaef37P6Oh+hxF+J7V/kbn0ysOde0ScNq3YbqauLCeoim
+cj2AaxwAi3PgXuQuOjZgXgrPf3LZMe/D6Lmmyvc/uZZwbbfKLe38vtffNbnz
+V/7bLuVtHqJjOxBzdx/6IeeITsk5de9DV3/X1WGH9zxK5RrKiz9vANCSA/ml
+TXRswPxU7sHDnw2WasxcU9qvEXn1yXvMNdw6t7Tze7dT/Vyncs+j5vZXyO9t
+zWjv5YjxflU4j26j4wKAWzqQX2ruXgRoQyr3ZFpHx7V0Y+SajjzrT/J5nDZF
+5ZZ2fv9mip/nyvnV/sC3Ofal3F5Y3R4A3Fqq7yPrXgS4qrRfC/EYHRN/vDdn
+55oGPPM/RI+PtkXnlqaucmzkOa5/3Pv7ajY5X5tzlJvoOABoS35+qO3noT8r
+cHWpvMfAOjou3rxHJ+eaUrkOUp6Ji8ktDT5G/eMxuX5Rc5PKNXKf+zn4qcrx
+3/fmfjwLAHBU+rJ/R+15QX4JuInKPfljdFxU36uhuaah+5FvosdFG+SWTjpW
+peO06GNyg2PenR9Lfeiayu0Vzu/30TEBME05r7ROL/t0HLo3+yS/BNxSZc3L
+Jjouqu/X0FzTUOvoMTFdcksnH6+70rGJjmvODuSXuvVATfWcKMwPPEbHBMC0
+5LzSkHuz3+cqWrsWAu1L9foC+e4JGznXpE8Mb8gtnX3cSjl7x+e6x7yUX2qy
+JiC99Gh1LQZgT84t9XvpHlq7tIqOGViuVO7LZP+xBoyUa2ryeYyrfJ7kli47
+fv18R1O1Wq1J9brgZvPmhXO5ejmAM+X75HV0HBeO4V1lPqVk2/p4gfmoPFdu
+o+MaEPdrLfImj2HbOw8/7fz7fc6nraLjvsJx6K6hf//Z/yfPxBmfH7mly49h
+qU5uHR3XXKXymp/mj3khb/YYHRNAq/K9/yo6jgviXw+4N/uUn4PuouMF2JWf
+j0prYR6iYyvE+i7t779zjo/53N30eq18PIbWZR/LM62ix8NNPztyS+Mdy9J9
+YNPnlqlK9RrvdXRsI4xNvRzACPL98edW720Lcw79e3Z5JWDyUnnP7dfny9Bn
+pfxMcUod8qm5lSafoVO5/8ulPkSPi6t/buSWxj+m971j9yk6prkqHOvObGrK
+Cvmz2YwN4FZ27nOam+85kF96zS01NyZguSpz8b8/L0U9a+aYxtpHbRbP1DlH
+cI1822TyilztcyO3dJ1j2z+uD9ExzVEq1yQ2t4fckTGqlwO4wO7zTHQsZ8Re
+yy9t3ZsBrTqQZ+ryPDfrpZqfh4f2uOte9zHn9jf5ezsf8n/fD3y2fjXJOYL0
+sp7r0NrZMYXlFbna5+fYuje5pfOPbT/nu4mOaY4qn+FVdFwjj1G9HMCZ0tt6
+6qfoeE6MvfYM9hAdG8ClDpzjrp5HH5hHea1ve39qLigN7+f0OKX7+jzWW63n
+2j3OkzkGXPwZqvWxkVu6/NjOOu8xFYXP7zY6phuNU70cwADpbT31NjqeE+J+
+V7lH20THBjCWdLxG7WHM/EN6qYHYHPmdXd7nw6l5pQO/s1vr9PFInmUd/D58
+lcbp6X2J0GPAqJ+n3XUgckvjHVc5pusf49L6nputrb3xWNXLAZwofenz3WKO
+qXSv/xAdF8DY8rn6WL3ap5yPujvj53+VnxuO5Xm6vNPVelGn43uzPQS/D+v0
+pQ7wIce6TdftyTSpY8Bon6XXdYJ30bHMRSr3CFpFxzU3ab/Xd1M1ECeOVb0c
+wIkK9/Kb6JgGxl2qH9lGxwVwTWn4/mWf8vPrbk+kvnU6rT9Sl3+6SW+kdLge
+7SH6fTgS+13a70O1ycfvNSd1aa3dp1u9F9CKVNiTMzqmOSpcMx6iY7ryeNXL
+AQxUydNsouMaGHt/zvjJXCCwBDmHccuarS6fsQoY56HatIfo92HEca5yDurU
+91SPJtiRc7pyTNc/zv1z0To6piuPV70cwACp3m9y8vXULefGAMaScxPX3Nts
+O4VnhwNjDI/tiu/rKTmnWR4HOFXhXLGNjmlu0gLrEZN6OYBB0n4tdTPXicJ9
+d5crUzMALFK+5+/m74/1axriMV8fJnX/fCDPtIqO7QZjH5JzUrvB4qX9Ne7+
+LsY/xousR0zq5QAOSvt9vpvJy1fmTzbRcQFMQT5H7vZZOtb3Z5vzNx8aOP+X
+8kyPS5tjOJBz2i7tWMCryv3h5Nfmt2bBOSb1cgAHHJoLjY5tQOylOrm76LgA
+uL5U3vfuITqu4GOym3N6nHquEK4hlfdDkHMd/zgvNcekXg6gopKjaeY6UZhH
++BQdEwC3kV56CfbrYRZRM3fCMfLcw+IUzgsfo2Oao6XmmPLY1csB9By4N/9j
+nX10jAPG0O834vwOsCClZ5wWrl/AdVTmT9fRcc1R5fx7Fx3XjcauXg6gp7KO
+uKl79ELMau0BFqZwr28tEyxUYf7RXjDXO9ZfLfXcq14O4K1U7oXYVE+LJV/X
+APiick1TGwMLU1nDtImOa84KNWOLOd7q5QC+KMzxlGyi4zwyhtL6XPNUAAtU
+Wct0Fx0XcBt57rH/zG8N0/WPe3/voMXk99XLAbyo3IeXfIiO9cg4FttnEIC3
+KmuZJn0dA8aTyvtMbqLjmrvuPLvUOV/1cgCDejA1U3cmxwTArsJ8ur1G4Yju
+mTjfUzX7bFzJczxGx7UE+fOz2Py+ejlgyVK5Rr3lHFNpznrSMQNwPUueT4dD
+ch3Z+zzX2OViD+0r/Dl/fZtfv4qO/8jYave3k457TtJ+D47H6JhuOHb1csAi
+5TmGfp696RxTHldzMQNwHeYe4IucV+ryL6UasnN0P2cdPa7eGGv5pU10bEtS
+eR8WsZYpqZcDFijfc5+aX2rivrwwD7eJjgmAOK4LLF2+73s4895viO7nduub
+QtcIHsgvLabn9FSkhfdbL4xdvRwwW/mcP2QPuSbngApzc9vomACIU7gueN5k
+EfI939B9XUbLNQWNtTbOT0vJa0xNKtcqL+L8W/g8PkbHBHAthXvtueWY9N4A
+4A9pf2+LbXRMcG15Tc+QdUuP+Xn49z5L2V3+Ge92/m2T7yGH/szVjcb5LtXn
+TuWX4j+HpfdmEx3XDcatXg5YhOdz2/2F81Ob6DEMGKO9qgH4Q2Hu4TE6JriW
+9LJ26dh84mP+u7g783e8y/eUx/qEP5z7OwbE8Fr/V/vdW/mleKm8x1xnHR3b
+DcauXg6YtXT6HnJN5pjyWBe7lwUAb6WXNRhvrmfRMcE15Of5Q3mfLu+yGvl3
+rm+ZaxqQW/r990W/F7x5z0o1BrPPuRQ+p4/RMQGMpXR/faaH6LEMHG8pn7aO
+jguA25NjYgnS4f2Cr167lvMIx+roPuXXnVQzlMf2oTCH2Nf9/vfR7wXF97CW
+F9yOlX+cmqReDpipI/ccp9pGj2fgmBe9lwUAX6RyrYb7fGbjyL3e5oZxDKnT
+270v6/ILXc3dpuA+f33oPezHueYq5uJAnimsV/wNxqxeDpiVdNkecs3mmPLY
++z1ef7//iI4LgNsrXA+sdWAWDuSXun9bBcW0yvmhse4/D96bRo2Tsz4bh+oc
+n/L9+110nFcc72N0TACXuML1fRs9phPHX+oPsImOC4DbKsy3mEumeam8bvtz
+/rzfTSC+Ltd0yX7Gx9YtraLHyFmfi1p/pv5n+H4Kn+MLx6peDpiNI/MEr3MF
+XQ7qH884x1TrQ7WOjg2A2ylcEz9FxwSXKuROX5/NJ9UbIL306f4wwtznNl2w
+Hx7TkV7W3w2ttdi2fO9eyAOb4wCaU5kfeMz32H/0Wkwv81/91/2rQ+f56LGd
+cSxKNXPyTAALksp7QdxFxwXnqtzfNNF7Ms8BbvJ96faA+3zfuoqOmat9Fobs
+S7iba2rus1CY43iMjgngFHmu6PPOtfl97X6jcs/9Hxfy7c3mmPI4a2u69OMA
+WICda+OuD9FxwTkqn+enpAaHRuVnkqHr3O5byKXujK1UL+cZBJiltF8j/5j/
+vZR7ajbHlMdUyjM9mccGWIa0X5fxGB0TnKPyLC5nSvNy/nRdeEaZfE3okXH1
+5+8fomMCGFsq18nd73y92I8vOu4Lx1yq+95GxwXA9VXmT8wl05RU7jW5jY4L
+xpbzTZsD9RXNrN0rzHU/RccEMLbKvfa73mtKa3/uomO/YMxfVfJM6+jYALiu
+VN6D6zE6LjhFZQ3TXXRccC353F1b19REnimplwMWoHCufqy8rn8vs4qO/cJx
+vyuc44tjB2BeUrlPshojmlC5h3mIjgtuIc+Pl9Y0dT3DJ183V4j9ITomgLGk
+I3Vyhdfurv1ZRcc/wvhLzxjr6LgAuK7KWia9+WhCeul1bA0Ti5XzrKU80zY6
+tgGxn10vZ80TMHVpQJ1c7/W75/NVdPwjHYP+PqmP0TEBcH2VeYZtdFxwjHUQ
+cDDPNOk1qefWy+Xc8qfo+AEOGVon1/ue1/XZq+j4RzoGJ+XZAJiPVO7NV1zP
+O1XppR/uKvuQc2cfdv7tLjpGRn2/S3Vy1jawSJW/h8mvST01T7zzvLKNjh2g
+JpXr5DYDv3c9l/uZynFo6vkCgPNUnk8mXTed58C7+exSz+dDtvn7VtFj4KL3
+v7/+zr5ULFoq74H9EB3XkZgH18ult3tIbqNjB6iprN+5i44r6Fj013NZhwqw
+EJXnk0nlmfIzxkNh7vtcT/nnWbfbmEJu8WN0TBAtldek3kXHdSDeQfVyab8e
+cBsdO0CNvMqbY7GXb4uOCYDbKcwpT2Jda84tnbpe6VRba5vaUcgzbqJjgmi9
+tT6TOH8PiPlgvVza329JThmYrFSuD5t0f7wrH49SrcQqOi4AbudAnqnLwdx0
+P+x8XTont/SYv++c9U7d91nXNHHuV6CscM58jI7pSLwH6+UK+SU5ZWCykjq5
+0jFxzwawcAfyTF3OZn2D39/NAZX2pS/lkh7y9Xx15Ge+9gL/ODD3NOm5/yVL
+5bUad9FxwRSkcv3ZZPPmlXjf56/VrkWb6LgBSpI6udIx6d93L3ZdF8CSHbi3
+v2pdWc4XPR7J/zxc+vvzc82hMX7O8+eTfTZbqlKOKTommJLC/fwmIIb7nTmA
+g+fRQrwPqd4jUI4JmKSkTq52XPrrazfRMQEQ48g9/muuaT3C7/kq/65DuaXu
+GaTbS2zUer1u/Uva36Os/3tX0e8Fb94zOSY4oDCPvg2Iod+n+ylfMzb5b/ir
+ndf28/3/8si1ZxN9jAH6kjq52nGRYwLgD/k54di6oqf8THN0vrr3c19r147V
+rX289jU655oOxbKOfi/4473q5wQfo2OCKSnMDzwFxVF63uqvFe3WO/03A64D
+u/b2ngOIVriPXHydXD4u/bWq6+iYAIiXn+tP6aG9rSj1b615vPWzRHqpoauN
+cx39PvBHDU7oGg2YsjShtX6FfNcYVtHHGGBXUid36Ng4hwNQlF7W+hzrYTSG
+3+viAsf57kAubBX9Pixd2l9z/RAdE0xJPldP5tx1hetG2FgASpI6udpxeVc4
+LnqdAvBG+tLD6FgN3am6vM46enx5jF9V8kxPro3h7415QjhianmZA3l7OSag
+eUmdXO247K1ljY4JgGnL8xP3Fzw/bPP15y56LIWx1fJM3b+N2nucwe/JXg2Q
+nB/sm1pe5sD59Bz+5oHJSOrkDh2b8D0oAGhbzgF064U3Ox56//2+lWeEA89F
+99GxLVHa78UU0ssYpm5qOaYcU3+vubNEjwNgV1InVzsupdzbJjouAIiWXmoD
+S89FTeTJ5qTwPjxExwRTU1nvdxcd14HY5JiAZhXW6qiT+1zcB9i9MwBkee3V
+Xp1fdFxLUpkntIc59JTOV9Ex9eIr/S3LMQHNqazVWXydXD4u/XlBuTcA2FGY
+p5pE/clSpP395NTJQUHarymd3H19umCvuejYAV5VcuZ30XFFq6xhWkfHBQBT
+ksr7gW+j41qCyj3cJjoumKK030PuITqmSpylvP0xk8uXActVOI8t/hyVXnrv
+9c/dj9FxAcAUVebe76LjmrO83vqxv4Yp2dsP9lTu7dfRcVViPWevuW103ACd
+pE6udkxK5/V1dGwAMEWVtUz2mLvuMe/X/VjDBBWVPPhk87GpvqeCHBMwaZU1
+1nfRcQUfk9L61G10XAAwZYXr52N0THOVyr3WH6f8zAxRUrnH6sfouAbE/e6E
+PNM2Ol6ATuF+cLF1cvn6U5rjeFp63g0AjqnkPUL3Ys3X9m5P8A/ppc/iJt/7
+bPM6oNd/ex8d6wljqj132ksOCir396vouAbGPnSvucfoWAGSOrn+sajVPbtn
+A4ABpnBfkfNFD2m/V9EQTzkH9WGK80sH8ksP0bHBFOUcc9NrflJ5H6I90XEC
+VPLid9FxBR2H2jrUdXR8ANCKvD7o5vUoOffycOB6fq6PU5lrOpBf6ubI1MhB
+TyrXyDWzhqk3lv65tcR5AAiVFl4nl+c1Dp2v19ExAkBLCvPtV723GHAtH8tj
+5H1BHmfpWVk9PxSkeo3C5PswVcZT2hev+dwZMB9poXVy+fz8IR1eP/8kvwQA
+p0uFnkxX+j21HoqHru3brPu++53/PqWmrnv9Tfs2FfJ2u2NqoocU3NKB/FLT
+ffFTeS9JOSZgEtKC6uTSy96f9wPvIT+5XwOA86Ry75NRn+nS4Rr33WfJ+5zz
+GvT7c+ybyrNp3/21n1VzPLVY5JegItXXNjb9N5PqtX+LWS8ATFdaQJ1czi0N
+nePszteb6JgBoGWpvE56NeLPPnZdfxjj9+3MTx16nnvKOamxc2jvCvdp5sNg
+gFRf67OOjm2k8R3aZ24THR+wTJX7v9nkvfP4Bu2/kO8Pu/vRu+i4AWAOrpFj
+Sof3f/18rWv5zj3FsVzT/SV5n/x7umfHY72lPo6d04K5SIVa3Tnll3bGWTtP
+PETHBixTJf99Fx3XSGN7d+QedPcebe0+DQDGVbjmXrQv25H80qcxclgDYrhL
+h9cWvXqt0Vsfyjnln/damzekZ/nTnOYDYWypXke2jo7tCmOt9f/eRscGLFPh
+HmkWdXLpeH+GrbwSAFxXIR+0ueBnHcov3QeM7X06rUf4bo5oyBxYbY2Wexc4
+IJVr5B6i47rxeGfxTAe0Jc20Ti4drk3uckur6BgBYAkKc1ln7RV+IL8Uvv9r
+vu84J9d0am7pLvr9hKlLL+sCS2sKZ5ubTZV1W9FxActTycXcRcd1hTG93oNe
+tD4fADhN2u+J+HTmzyn1957UfmrpZV3TkBq6oR7z8buLHhu0orKmZxUd1w3G
+vfcMFB0TsDyF+6Cm11Sml3rkUn3cJ/dnAHB76aXPUP+6fFJe6Pn1H6aeX+rF
++1XONz2k02rinvK92Yepjg2mrvAssI2O6YZj759vnEeAm0kzq5NL9TX03b/N
+dm0sAExd4do8uHdSeql7ab53b54HW2XrvD5ptcO9ClwolfeSW0wdQyGnv4qO
+CViO0nrKltf6VNbFyi8BQLDCuunHC763s4keEzA9ab+m9jE6puBjsI6OB1iO
+wj1bs3Vyqdzb76nlnBkAzEVlXms94PtKdXbN3q8A15X2e+/ffL/JaOlt/+9N
+dDzAMsywTq7UB3Qx62IBYOoK9W6PA75nW7i+6y8C7Kk83yzyeSB96WG3iY4F
+WIY51clV1jBto+MCAL5I+/vLHVzLVFnD9BA9DmCaKueMu+i4Ao/HJ89EwK3M
+rE6u1IfpLjouAOCLXv3Gbl17sW9iZY3yXfQ4gGkq5ZiiY5rA8dhGxwHM3wzr
+5Pp11x+jYwIA9lXWMu1dtyv5qIfo+IHp2qkP+yOHHR1TtCX2owJur3D+bXZe
+ML3sA6zuGgAakHNH/bmhvZq5VN5/XB8moKqQw95GxwSwBLk2dy51cv1ryeLn
+KwBgyio9U97kkAp1co/Rce/E/iHX6W93fH7tfZI95HuU97VaQGBchXn0x+iY
+AOYulftjt1wn1+8rpU4OACYulXspPr3mmQprnULqPfK6q3XhfuNUn/KYrcWC
+Kynlr6NjApi7OdXJ5fH012RtomMCAI4rXMNf80x/vfDvN62Dz3NyD2m/J9QY
+unGvo48/zE1ljeRddFwAc5ZzTLtzg83WyeXx6MUEAA3Ka4RKeaaSm9Sb7eSW
+xs4rlTzKNcF4UnlfI88GADeQXnpl37d+b1O4jqyiYwIAhhmaZ7pRLKU972q2
++T5qk613/vcmf73U27y2rkkNHYyg8HdnXzUABpNjAoC2Dcgz/ZMr//7VgHzQ
+Yzqjn1JeFzW0n9Mm+r2A1hXWIT5GxwRAO+SYAKB9Oc+0PZB/Gb2uLOeWDv3O
+zzk3tBpxjN0ap0M9nrpcm33o4Ew5p+v5AICzuIYAwHwMqFd7Omc90c7P79YV
+9XtT1mrhVlca47Fc0+O544Oly39f/b+th+i4AGhD4b5sHR0TAHC+NLwP+FNe
+Z9Tla97ndUmr/DPevf53/vrDgLzS689c32icX6V6Dd2TPBOcJ5X79vt7AuCo
+whp3ff0AoGFHasmuqVsfdfM6tbyuSp4JRpLXK+6tTYyOC4DpK8xTfIqOCQA4
+T+XZcOgapHM85Z9/Fzzud5Xcmv5McIbKWqYP0XEBMG2p3NfvLjouAOB0lev6
+V/lr7/Nz4xjrnLb5d00mf3Mgz7SNjg1ak/PVpb+nVXRsAExXZb7THAUANGjo
++uT0pc/Sx3S8f9NTzind5zzVZPJKhXHV8kzubeBEqVyHqgYVgIMK95aP0TEB
+AKdJ5f2gTuqzmH/GquVnyBx/6bn4Ljo2aE3a7936+ve0io4NgGmqrKtfR8cF
+AAxXuZ43myu68FiU1l9so+OC1uS8c22to/WBABQV5j2fprwWHgB4K+339X6M
+jin4eJTWX6yi44LWHOjN9NqbbRUdIwDTUpnv+xgdFwBwXO6T1L+Ob6LjCj4m
+9l+HkeS/p0O92+SaAHijMP9pDSwANKBwDbce+XN1//VF1g/CpXLdXGl94Jv1
+k/nv7n10vADEqvTI1JsJACYsvewPZw1T+diU1jI9RMcFLcv1D7XauX6uuzs/
+3UXHDECMyn2qPBMATFC3JqfyXLf4NUw7x6i/lukpOiZoXc7fltYJ1tw7LwEs
+U9eHqXJtWEXHBgBjyfmZu+g4Loj/q0qd+zo6timprNNWxwMj2Mk1DV3X5G8P
+YGFSfY/Sp5bvxQFYnpxH+pCfgY71EXnKr+nm29dTvuYduFZvo2ObosLz7310
+TDA36WXvgSH5Jn9/AAvj3hWAVuW80n1ljc+pumvhpPqJHJkLUotSPmb9mp5P
+0THBnOV806G8/kfnK4BlsQYfgJbktUeH9ta+VPdMtAoeYy2/1LFf2uHPxpvj
+FR0TLEF6qVWt5fs/yTMBLEvSSxSAiTvyDHMN24h1TfmaXBvnOvp9mLLK/Yyc
+HNxAzo3X+oM/RMcHwG2l8l5zH6LjAmDZ8nNLbZ+KUl7otc/SKnuXvf73h/ya
+oWuhNreac6lci+WXTjuG/eO2io4JlqS0nvD1XBodGwC3VZg3fYyOCYDlSi+9
+Po71lf2YX3dyHijnr9bpeJ/wx2vmeHL8h9ZoXe13z03h82K+DG7sQJ7JukKA
+BalcD+w9CsDN5bVGtZzL09jri9KXvbkP5Zo+jZnvScd7Sz15Jjv5mPbzhZvo
+mGCJKusy9eEHWJjC/N9DdEwALMuRXM/9mLmlwu++G7Cu6SnHeNI8TF43NXTf
+7+01xzlXckwwHalc57yOjguA2ync1z9GxwTAchzIL3265ZqeNKxObze2hzxv
+v8nfu975749H1iv181fr6PehVYVn2o/RMcFS5bx6/zz6GB0XALeT74v797vm
+UQG4ugP5pYeIa1F+PtqckGu6xOj1f0uU9utz1OZAoMLfpLVMAAuS76f714FV
+dFwAzFvlOWQStU47uaZDfbnP9Si3NOp7Za4MJqSylsn6QoAFKVwH7MkCwNVU
+8gKTnOtOw/spHcsrndzPiUHvz13heDvOEKgyhyD3C7AQSb9MAG6kMsfdxLXn
+OcZ36Uvfpe2O1zHs/tsmv/YuOu65K6w3e4iOCZaskvtdR8cFwG3IMQFwK6nc
+g+khOi7aVfhMPUXHBEtXyP3eR8cEwG3IMQFwC8/Xl1WljkwNBWer1F6uo+OC
+JetySr2/yW10TADchhwTALdQuN7YZ4JRFNZM2F8OAj3/DX7on++jYwLgNgr3
+ZZvomACYl8oapofouJiHSo/hdXRcsFSlc350TADchjllAK7t+drysXC9uYuO
+i3lI5V7y6jAhiBwTwDJV5pXvouMCYD7y8781TFxVZS3TJjouWCI5JoBlKvTj
+sxcLAKMq9eUwn8HYKmuZrM+GAHJMAMtU6MX0MTomAOalUCenHzNXkcp7zD21
+ltPMz+c176Ljg2PkmACWp1Int46OC4B5KVxrPkTHxHxVen99mmpvpi7/1d1/
+dfWjhbm/Qz7l71m3lkNj/grrV9VKAMxc2t9D+mmq918AtKkyn2EdBleTa+ZK
+uZrJ5JlyjOsc09Cc0pCc03oqY2TZcv5z9/O5jY4JgOup3PM/RMcFwLwU5rI/
+R8fE/HV5zFTuzfQYmePMuaVNJbaxPOXfIddEmEKe9z46JgCu48D83l10bADM
+S9rf62sbHRPLcCDP1P3bOiCea+eWirmm6PeB5cl/e/3P4/vouAC4jsLaVXML
+AFxF2q/LfoiOieU4kGfqfLzFWp+8dnxITdynnId6f2itVR5T95r7E36u+lRu
+pvCsoRcTwEyllzr90jyX9dQAjK6QY9pEx8SyHMkzXa2uLL308i7N6/Vr97p6
+0rsLf8+HdLxfuF77XF3+PPY/ew/RcQEwvkp+ydpVAK6msM5iEx0Ty5Ofew+t
++XnK64LuRvhdq4G5pfUVxrk+kmt6MK/INVU++6vouAAYV75vKt1rqJED4GrM
+azAlB+6HSjVrq4E/s+tz+Vq7dmwt0dMt1hPldU21tVuT2V+PeUnlPYW20XEB
+MJ48b9evU7BuFYCry8/e5rOZlDS8P9LumqNttsm5pNf/PpZTCltDlP/+aveA
+8kyMKtX3FFpFxwbA5dKXvXFr9zlb9xYAXFNlTtu1h0lIx+vKxrKNfM4+cD+4
+jX4PmIf83FHK236Mjg2Ay6SXtdrdPNmhvXEfouMEYP4Kz7b2FmJy8r3Tx5Hz
+Sk/5fmwS+7mlek9OPRO4WCr3YLKnEECjBuaVXtlTBICbSPt1Oua0may8FmOd
+801D7qlKNXUP+WdM7tn6QJ5JjzTOVskvfZ5KfhWA4dJpa7y3zvUA3Eoq92Iy
+z0Ez0ktPy1Vej9fvw7TZ0b3mLjregWMq5ZmsN+Esqd5Dfx0dGwDD5XuZobml
+T+anALi19LKvVf+adBcdFyxdZd2JNYacJNdRyC8BNCzPCdfWo5Z6AKyiYwZg
+mQpzIZ+iYwIO9mdeRcdGG/JnqFRPaq0qQCMO3A/s5pXu3R8AEK0yv+3ZAyai
+659Q6qsQHRdtqMx5P0THBcAw+T6g1nvyKdcjqKMHYBIKa5j0e4GJqeQJVtFx
+MW3ppU9Zqd+9czxAA/J5vJZfunc+B2BKKn2YNtFxAW9VcgUP0XExbXKTAO06
+UB/X5Zz08QZgUirzItYwwURV8gX+Ximq9GHaRscFwDCV6353Xn8XHRsA9FXm
+RfRhgomq9GVaR8fFNHWfDWuYANpU6ZcqvwQwA/m5rjvPbw5Yt3TvXpkXsZcc
+TFyhf9rH6JiYpu6z0e/DFB0TAMfldaj96/1n9XEAbco1ZF2fom2lv94x3fqg
++6nOM1h3C+3K55Y3f7vRMTFNhTq5++iYADguz1/v9feOjguA0+S1SKX6sUs8
+5uvEJHqmVPJL6m2gEd16ycLf7110XExLKtdVrqLjAuC4whyB/UABGpHXom4K
+5/JreIh6FszjrOWXzItAQwp/w9bO80YpFxkdEwDHpXIvvXV0XAAcl156LJVq
+nQ+tSdpWDP0ZXS5rc+NxdvPZtfVZD9HvA3Cawt/zJjompiXt11k8RscEwHFJ
+Lz2A5uQ1Pf3zd0n3HPdhaH1BeunjtM7rhY6ti/o09OdeOM5SPbf8EjSskNe2
+FpE3Cuf+bXRMAByW79379+ub6LgAqMtreg7lf177J92N8LvWA9Y4XaV+Lv/u
+Q2u0NtHvBXCetN/3exsdE9MixwTQnvRSY9G/Z7+LjguAslSub97NLa2v9HtX
+A3JN20t/f86f3R/JoXVf07sFGiZ/wDE+IwDtKZy7H6NjgrE9/983z759FR0P
+nOtIfukm+76ll7q7YzV03dc/5teuDsWVc0rrnFca0ldqay4E2le4B/0UHRPT
+IscE0J7CnPTH6JhgbM//9/Ozz6+i44FzHMgvdXmZdzeO5dD+bsdyT911p9a7
++5BHa5dgPlJhLX10TExL6boXHRMAhxVyTJvomGBscky07kB+6dMt1i4diOvu
+zFzTqbmldfR7AIwrr2Hs/73fNF/OtOV1sP3PyF10XADUFc7b6+iYYGxyTLQs
+1ft7P0THthNjl2saWus21EfXJJi3wt/9h+iYmBbPKgBtKZy3V9ExwdjkmGhV
+eqlJK+VtHqJjOxBzlxPb5HWyx/o29ddkPeQ1W2Frs4DbKayn17OBN9J+bbXP
+CMCEyTGxBHJMtCrt7+0dXh93xhi+yvUOnQ85/7TZ+Te1MbBQab+n8+eWzm9c
+X+U66DMCMFHWn7IEcky0KJV7lTy5twbmonKeW0fHxXRUPiOb6LjgXDm3/sEc
+G3NVWKO8iY4JxibHRIsK5+eOfdW4uVy/eG+tM9dQqAd+jI6JaSnUy5lvoVm9
++7vHnT4Bd9GxwRjUwbMEcky0JpX30nF+JkShnmlrDpax5M+S3g1UpfLeqpvo
+uOAclTnE3X4I3ZzOe3lUWlW4b3yMjgnGJsdEayr3H3fRcbFMlZ45u+sJzMFy
+tvTSs62/P8BjdFxMS2G922d5blp0JMfUt83X4FV03DBUzpE6XzNrcky0pHtO
+L5yXH6LjYrmO5Jj6Hs3BcqrKZ+xDdFxMR+WZ5dF5htacmGPqz+l8zGs/76LH
+ATV57qj/+b2PjgvGJMdESyrPWnfRcbFcJ+aYSuv+zcFyUGUt05N5T3bl5+vS
+OUaeiWZckGMq5Vhf1xH7G2BSCufrp+iYYExyTLQk7fc21YeJUBfmmGpzsHIH
+vJHKfZnkD/hDJRfpc0JTRswxlf4Ofl9HHD1GSOU+etYnMxtyTLQilevk1tFx
+sWwj5pgOzcHeRY+TeJVnL3l2/tDlpw+cT+Sumbwr5pj67M9BqLTfR8+eoEzS
+8//9cIZfd3NMZ/6MP0WPnfmr5Pydiwl1xRxTdQ7W536Zcp69tE7lITo2pqNy
+rXy1cf5gym6YY+o/239M5nS4ocq52rwRk9PLFd3St9FjZ/7y8/WbZ+7omOCG
+OabSHGz3u83BLkgq93aWZ+KNI3mmJ7kmpioox9T3uo7YnA5Xlcp7gqqZY1Lk
+mJizwn2HPRgIF5hjKs3B2k9nAQ7kD/Td4Q/ppW6utO5t17949g/zeQym4DHF
+X1P7/tmzf5Be8k7Rx4d5eUjlz9x/HX0NgVdyTMzZ8/n2/+6df//+BK4NsE3x
+97+lnFOXb+jyTj9O4Bgxvn9Qee//1bP/6YZx/Lfp5W/gv4++RlC8bn6VpnmO
+AuCwvxZ9DYFz/YWe3zRiAud6AOr+UfR1gur1s6v5eZzAZwSAYf5B9LUDziXH
+RAtSeU85AKbj/42+VnD0WrpOck0ALfjfo68ZcC45JlqQDvcvBWAa7qKvFwy6
+pvbft/8tvdTUQbT/K8Wfx0r+8tk/ffaPnv3PEzhOzM//mvY/d3os0iQ5JlqQ
+9nvi/T8TuBZA5zHF3/uW/Jv00qf0H6eX3j3Rx4nr6p55/mka9tl4fVbqPhuf
+stef8w/yf3fPUd1nu3ve+zcDf25nHX294Oj1dFV43+xPySTk81D09fNz+rK3
+3DrJnXMDqVyz8T46LjiHHBMtSPvP8faUYxLSS9/j6HvhV929+QfPi8uVXvYS
+u+Uz2r/u/fdD9DHg6Gekf856io4JXgXmmHb3Z3UNJYTnHeZCjompy89M8vpM
+UnCOqVtvcv9sFX0cmJb0slblms9q3X3wOn/+5CsaUvhcfIyOCV7dOMf0KV/D
+V9Hjhk7ar9v4FB0TnEOOianLc0r9+wL1yUzCjXNMr2v33/sbYIj0svZ+k8ap
+6XzKn7/Vzs9/X3idNQATVni/PkTHBK+unGPqzoP3rqFMVSr3n/VZpTlyTExd
+elm7vHuu3UbHBK+unGN6XbuvHwQXy/mmdc4TDXmO+5Q/f5tDeSM5i3YkvZiY
+uJFzTK95cddQmpDKPZnW0XHBqeSYmLp8j7B7rt1ExwSvrpBj0lOJm8r3tKvs
+5M9d4ZlQ7dVEFc5XahuZlBFyTHoq0bQ8v7P7mX6IjglOJcfElKVyL6ZVdFzw
+aoQc02tPJT3GaJK8RTsKzy7ygUzKGTkmfQmZlbTf5/AxOiY4lRwTU5YKvZii
+Y4JdZ+SYdvdDVmNP85L6qyZ055vC+7SOjgt2Dcgx6UvIrKVyn8O76LjgFHJM
+TFnSi4mJG5Bj2t0P+S46XriGwudeT6aJ8dxCCwo5Jn0JWRTzAcyBHBNTlvRi
+YuIqOaZtOtInGeak8FyoBmti1F/Qgnwu0ZeQRUt6MtG45//7MeeZfhcdD7xS
+f0ELci7pj55K1u6zREld8+R5ZgFogzkBgOsorA/RRxZggpL9GSZN7QVAOyq1
+zebZAS6k9gKgHWqbp0svJoC26HMIMD7nVoB2JHs0TFZ62YdL3QVAI8y1A4xL
+LyaAtujJNF3pZb93vZgAGqFnCMC4nFdZIj3DaZmeTNPU1cQV3pf30XEBUGe+
+HWBc1oeyRDuf+4+eAWmRnkzT0/X2LjynyGUDTJy+IQDjqOx/45zK7OX1BrvP
+6I95Td9ddGwwRKEn06fomJau0IvJewLQAHPuAONI9r9hwQp1on/cV1jbxNRZ
+MzM9hV5M99ExAXCc3iEA4+juf3vn08fomOCWCs+Eb/4erG1iqvT+mRbvB0C7
+9DkEGEe3jr93Ln2IjgluqdLnsba2aR0dL+yybmY6rCsDaFvS5xDgIpVeTOvo
+uODWCn1tDnnK6//uouMG/X+mo3Ae8V4ANKRwHt9GxwTQkqQXE/wu7ff/Hmor
+L0ska2emw/w3QNuez9sf+tfU6JgAWpL0YoI/lO4rzljb1D3vv4seC8uR9ACa
+hKSPB0DznMsBLpP2+3g8RMcEkdJ+f7JLck7dGqeuX/jKuhKuybk8nrlvgHmw
+JhXgPJW573V0XBApDe//fY4uf/WQn0WtdWI0ab8n02N0TEuT9PAAmIXC+Vxv
+PYABkh4enCGvzblWDmaJXtc6vff3x7mS3nrhknlvgFlI5d4J7tEAjijMe8vR
+c5Qc09V1NU8fk7VOnCDZIzT6+OvfATATSZ9DgLOk/f4d99ExMX1yTFf3Wk+n
+dzgnSfu9xB6iY1qKpBcTwKx4TgI4jfw855JjGpW+4Iwm2Sc08tj3z4sfo2MC
+4HxJvQfASZJeTJwpvdSErGbsP71iTskaJa4m6ckUeez7x/1DdEwAnM+zEsBp
+5OahrLAe4ZI1Sl1fpd/XKEWPi/lLejJFHffSXpRyyMxazmk/+KwzV0nNB8BJ
+0v7+N2qMWbzKnNUpOaX7/DPuosfCMqX9nkxqtq5/zDf9c0F0THBtOaf9ei/5
+KV/7rPFgVpKeTACDJPvfwJ7e/fIpttaKMBXyHSHHXC8mFint97p/ymubVtGx
+wRjSft3HY3RMAFNUuCf4HB0TREv7/ZKHrFm6i44bdqnbCjnmejGxWIUc6x/P
+4vl+09ommpX0OQQYJL30iHmzDiM6JohUWdtnzRJNkvO46bEuPX/I6bEYA6+f
+1jbRpKTPIcAghXqgTXRMEOnAPKw1SzRH7dZNj3V//aPaRBbnhHXA1jbRnLTf
+5/AhOiaAKanMN62i44IoqVA7as0SLUt6Mt3yWHv2YPHSef0Mu7VN9uhi8go5
+1MfomACmpPQ8HR0TRCncF1uzRPOSnky3Os5qKCBL5brRoWubNq67TFXls30X
+HRfAVCS9mOAP6ct+IdYsMSuF+2E9mcY/xp47YEc6XHc+xKc8z7OWF2cqzCcA
+HOa5A77I97F30XHA2Mwn3OQYq5+AHd319MIcU99Tzltt8vpMfZwIkdRFAxSp
+nwBYhqQu+hbH2DMHJ8nrIVYn2jTm0rVMQ2rrHvI5zj0sN5Hs7wBQlPSBBViE
+ZH+Hax9ftROcrDLXx+Ve1zp19at30e8z81P525XjBBYv2c8aYDHS/j5Pm+iY
+5iK91Nn2nzfuouNi2uSYbuZ1rZPaOkZT+JzpNwIsnnMjwHIkPZmueWwfesf2
+U3RMTJ8c01V9yn+X+oVzFclcPcAblfsa12C4kee/t2+f/dDzW/5b/CY6PuYn
+6cl0zWP72Du299ExMX1n5pg+5WfbVvT7lF2DXuDcXNJzBOCNpFcd3Nzz39lP
+A+6Vf4uOk3lK5Z5M76Pjal0q753luMLnYv51rDVK3X2sNUqESebrAd4ozCtZ
+3wk39Pw39036sm5p14/RsTFfhec9620uP6alXkzWUbB4hXUe565R+vi6Ril6
+TLCr8HnVdwRYpGT/G5iE57+7Pxf+Fr+Njov5SvoGOaZwA3l9X3+fgaG6XHhX
+23sXPQ44JO33ZNpGxwQQIb3s5dq/nt9FxwVLU8gxqZPjqqy5ucoxtTYMetL+
+HgND1is9WKtES5I+hwC/S/u9mB6jY4IlSvu1cj9Fx8S8Jb2DHE+4snRaL/NP
+Ofct101zUrnP4So6LoBbS/u9mB6iY4KlSS/7yvXvS76Ljov5s+5m1GO5N4ft
+WZmlK5xjamuW9EemeWm/JnQTHRPALSW9mGASnv/uflQnR4Skf9CYx7JfD7SN
+jgkipcN9vq1ZYnZcB4ClS3oxwSQ8/9390vs7/HN0TCxD0pNpzGNp/hqySu2o
+NUvMWmk9a3RMALdUmL9+jI4Jlub57+4bdXJEqTwHrqPjak3ShwPeSG/32LJm
+iUVwLQCWrlAjrw8H3Njz390P/Tq5Z19Hx8VyJH35xjiG5q4hy+vkrVlikQpr
+Wj1fAYtQmbu2/w3c2PPf3c/q5IiU7C86xjHUgwMAfQ6BxdKDA+J165UKf4ff
+R8fFsiS9+cY4hnoxAeAZC1gsOXbG0OVDcq3XrmJPoe6/n/3U+9z9vOScSj4m
+/fuQr3e+/m3h6zW/Ro+HNiV7jF56/FaF47eKjguA21MrAixV0ouJM1XW3pR8
+nV//p0I9WN/PaYE9iLq6uP5xOPDaLt/0W+HYdXm9P0WPhbYlPZkuOXb9/dmf
+omMCII7nLGBp5NcZS843lfJHP+ev1/IiJYvrQ1Q4Nj+c8Po/LzEvx3UkPZku
+OXbb3rH7GB0TAHGSehFgYZI6YUaUyvVc3dqab/L//jXt1MPlf/+lkmf6Nno8
+wcetmjNKb+sQD+ai4FRJT6ZLjl3/uH2IjgmAOJ61gKVJ+/vfyK1ztlTuKfS6
+funHyvd8XVnfVHz9HHVj7Y39lwOv3c1HLSYPx+2kck8muZLjx63Ui8le7QAL
+ltSMAAuT7H/DiHrraz7nNUq/HFtrU8ixHMyzzE1hLVfxeO3kl7r1YN9Ex818
+JTVf5xwzvZgA2JP2ezI9RMcEcA3d/GrhuX4VHRftKuRKBvVWKuSmfs+jRI/n
+Rsfsm8LY9/p2p5d9+17zdvp6c1XyJWcdM3k5APYkfQ6BhehqH/rPttEx0a5U
+3mPutyH5kJ38yeI+j6W1X4XXvK7zqu41B2NS93Xy8VJfCEBR0ucQWIi034tp
+Gx0T7arkiQb1o65872/RY7rRcevvxfdD7+t/zv/+U3SsLIucyUnHyvMDAEWV
+eYh1dFwAY0t6MTGinVzIwZqvyveWckyzr5WrrP36Jn/tT+lL7aG947g5tV8n
+HSt1EABUPV8XPvWuEw/RMQGMKenFxMjS/t5wR/sw7XxvqR/T7OvC0v4+fL/k
+f/+2dzztH8fNJT2ZTjlWnh0AqDIXAcydZwfGlL7sd7br+xO+/6fC9/94w1hv
+YS9PVFj79WNlTZc6OW7OXMTg46QGAiYgX99/6Hmdr7EXK6GSmmpg5pIaCEaU
+vvSkftXd0319wveX9qP77kqxTinH1F/71e/NdNbxhLEkNdVDjpHnBgiSynNU
+e9fQ6DgZ9F52+fr1XOcyKvMR+hwCs+Ecx5gKOaJT6uSK+9FdMdZJ5JgOxNHd
+L/dr6DqD14XBWJK9IYYco9nWP8gp0pLnz+s3hbmbzlXWRTPa+/a+d62Z7bx3
+2q+rnu1YgWVJ9qRmRPme7uw1SKlcGzb7+8G0v/brj+OW8257a5yiY2Z5uvmH
+/uc0OqapKTwzPETHNNK43skp0ppU3n9ET8MJK11nnn0VHdeVxqpXCTBLzm+M
+Ke336z5pDVIq14cN2o+uZWl/7dcPva+X1v/P/rgwLUlPpmPH565wfNbRcY00
+tq0cE60p5JjUyU3cnM+jhbGa5wdmKenFxIgKOaLB/am7nMlC1zCV1n5903tN
+qZbuh4h4WbakJ9OhY7Oe4/z7zrjuo2OBU6T9NcD2zGhAWlANWeGaoV8J0Dzn
+NsaSyr2UTqmT66/V+TUtoLd1Ye3XL5XX/do/PtGxszxJT6ZDx+Z/7B2bT9Ex
+jTCmr3byipvoeGCoytzMVfYPYfT3bkn1cub6gVlJ5f1vrNHkLGm/N/Xg/c8q
+a5gWcS9YWPtVXLtVyEUt5hgxHUu69z/j2PTXeDW/7ie97WG+jo4HhkqFPW6j
+Y2Lwe7ekejk9S4BZeT6P/b3eee2fRcdEuwrrkE7ZT67fM2H2NXJ53IPXfqVy
+7+/BxxjGULn3fx8dV7TnY/DX5nZc0n7/rVV0TDBUumCPW+KlhdTLJT2ZgJl5
+Pof9Ze+c9vejY6JdhfzHoH5BhfVPi7kPLIy9U137VcjjFV+ff26x5g4u9fzZ
+epzbep0Rjsk/nNv6rrRfw+G5hyakC/e4JV5a0JrZpM8hMBPP56//vHDuXsTa
+EcZXuZ87uu9ZeqmR281N/Rw9lhsft37O6GBeKJVrCvdyeemld9P30eNjnp4/
+Ww+9z2DzfYcuPB6leejP0XFdOKa9/uXRMcFQqbDH7aH5G6YnLateTp9DoHnp
+pYfnPy+cu/9mdGy0Ke33PRi0hia9Xcu+qPxSHn9/7dfRPG8q7MW8e++c762t
+YeJqSvmHuc4vDzwe/ZqOpnMy6W2f7+bHwzQU8j5X2xs17fc5XMz66DkpnFvn
+Wi+3t2YrOiaAU6X9/nJ6LXCRtN/3YEiu5OdTXj836cy1/Km8V87P+WuvtXff
+RI+P+arMLzfde+iCY1HKtzX9jJDe9vm2Vo1R3CrHlMp9Dq3rbVAp9zLH+Yy0
+3/vOMxnQlNr8pPMZ50oD67d2Xv/NTk7qtyF5lTNi+i7/jqP1eoHHrb/2qzN0
+H77+WqZT83vdvf6v/e+Tm2KopCfTsevp5+j4zhxT6VlH7cbtjv/3+fy8qzgH
+ka9z/Xrrn6eaT7lhjulgn8NUnqep+TX6uC1ZWla9nJ5MQLPSfh8NOSYuUrhv
+fM0dfd97Xf9++MehOZUTYnnNLb3+jinnmPprvwbXt6X9PlavDtYD5Hvr0vdd
+/b6feSlcSx6jYwo4BrU1wS3nmPp9vl89RMc2V6m87qbk6/z6P6X9WrC+n8e+
+vo4wzlvlmPpzMNU6/APXxB+mfP+wJGk59XJ6MgFNSvX5STkmzla4n/tzvj8r
+3QP/dI37ykJuadI5pnTi2q/Kz+ivBzv4/alcm1dj/x0OSuUasbvouG44/m5+
+vbqGqcUcU+U9Nad+2/fg68q187Ueesg8waA5h4Cx3SrHdNIet73Xd/cvk8rN
+LV1aTr3cWT2Z0sueE6vo+IHlSvX5yVeL7KfB+fL98En3c1eI4XVOt19XMNkc
+U9B79ZqP+nH3uORnln6eUH0AB6WXOrH+NWQ94Pvuhrxu6tLhNcHN5Zjy+9mv
+f5RjinkvSrVc3bXtdZ7gzb6h6e18Q9+30ePZifPqOabKsavmjHoxWcM7QWkh
+9XKpvA5g77ksv67LR3Xrnl7nOTbR8QPL1J2njt0PO0dxqlTuexCa10lv+wzJ
+MX1+c99dfd5I+/2h9GbioLRfw/BQeM3vOaWck/kjhxEd+4XjXg24njY1xnSk
+7i+ZJ7/le1G6rr6uXyr220vl+Z7PtdcHjesWOabBe9z28lGTycVRfK+WUi+3
+1+ewklPy/AZMQuG85RzFxU65n7thTHJM+8dkUI1i7xlFvRwHpf39x7rrTLce
+5n3+WvW6Ex37heM+tia4qTGm8joBOaa496Ofi/klO1bzVdpHIvyafGBc18gx
+9ddzFX/HTn6pu18wnzJxaTn1cv31sf96yLXG8xsQoXJudo7iYml/3jR8zlSO
+qXpMjvaYSG9r5szrclAatj626fxLYcyHehY1OcaBObPZPc9NVSFP0jnaW6mQ
+w/k9hxI9ngPxjZpjSuWeg3v3AOll777X3J17hAakGdfLpZd5mde1vv/izGvq
+JnocwLKkI3srO0dxrsr9XPjaFzmmi47d7r5/+p5SlF5qxbraqv9lgTmmIWuC
+mxljGjgHFR3nUqTyHnO/DbmW7eROJvne3SDHtLf+q/Ca17Ve1b3mmKY0k3q5
+9Hatb39M59pEjwtYlrRfy+AcxSgK93OTyOnIMV107F7XMbn/5g87OaVBNWJz
+zVmk4z2LmhpjGr4O7TE61qWo5IkG5WIq3/tb9Jh24rt2jqm/H98Pva+/Xt9+
+ij4WnPX+Nlsvl17WYY2ZU/L8BoRJw3osOEdxlrS/nn8S97JyTBcdu9faR3Vy
+C5e+9Bi9xv3w5+jxnXE8TlkTPPkxppc+skPHs42OdynS/h6fg69jqZxjWkSt
+XCqv//omf+1PO/cr9o5rVOWZZh0d18DYT75+eH4DpiqdPue8iY6ZNlTu5yax
+9iXJMZ173F57oIb31CJeumJ+aer5l8rx6PdibXaM+XlncM1fkmO65XvT73F4
+tA/TzveW1hZP4rpciW/MHFN/L75f8r9/2zum5k8alhqul0vDe+PKMQGTlQbu
+rewcxTlSeb50ErmJJMd0yXGbzB5ExEqnr4M9xTZ6fCcei3fnjDM67spYvio8
+p83q/WpV+pLn3/X9Cd//U+H7r3JdrsR6C8UcUdpf//Vj5T5FnVzDUsP1cjn+
+U3L7nt+AyTnjHtI5isEK93OdSaxBT3JM5xyz7n68qyXQ55s/pBP7D51gGz22
+E4/DuX2o3kXHXhjLyeuxWnu/WpW+9KN+9dsp5+RU3o/uKvtwpOnlmPrrv/q9
+mc46pkxLarheLsd/zvy/5zdgEtIJeys7R3Gq9NLboPT5kWNqUHqpX/jVsaIv
+Xa+HxDZ6bCccg0ueCVbR8ffGcnbOMDr2JUj7OaJT6uSK+9FdMdbJ5JgOxNKt
+6+rX0HUGrw1jelLD9XI5/tH2ztixiR4XMG/psmeCTXT8TFu+X/u18vnp/j08
+z5TkmM55Px0nitL5cxaHbKPHdcL4L6ltWEXHP9b7GB3/3D0f428Kx33wGqQ0
+4fr1nRiv0o8p7a//+uPYpZfc294ap+hjwUXvd+v1cmfVXnt+AyKly2obNtHx
+M03pvDnLkLxFkmM65T39zTHimDT+fsvb6DENHPelPVpX0WPI47j4mSZ6DHOX
+9vMvJ61BSuXasEmd2wtjHCvH1F//9UPv66U+VZM6Npz0fjddL5fHcE7Nsuc3
+IETlvOscxaIkOaYhx+ibfJy+iY6F6Uvj95DYRo9pwJjHqBNcTWAcdyOM43P0
+OOYu7eeIBvemTuX69UmtYcpxjp5jSuX1X9/0XlOaIwtfc81F73vr9XJj16Fv
+oscEzFe6PC++iR4DXCrJMR07PoPzS+ll/ld/VMbuIbGNHs+A8d6PMM5V8BjO
+2UOu5i76PZmrVO6ldEqdXH+dzq9TPG+n6+SY+j+zuDdq2q/x/zX6eHDR+950
+vVwew5h7amyixwPMUxpnnnkTPQ64VJJjOnRsTs0vTW4unBjp8nWyzeSYRhzr
+KngcH0d8z0LHMmdpvy/14L3PUnkN01X2khthnNfIMfXXfxWvWYXfPdnjxKD3
+vfl6uTyOS/r9eX4Dri6NM8e8iR4HXCrJMdWOy5/Sfu/TY9TS8Yc0ztqeFnJM
+Y+VmVoFjGLvfR9hY5i7tr0M6ZT+5P/e+d7LzAmnkHFM6Yf1XKvf+HnycmZ7U
+eL1cHsNYe2psoscCzI9zFLwo3MPao/jzH/ml2n6ANcWaA5YrjddDYhs9lgNj
+HLP31CpoDNfYCzBkLEtQyH0Myr2k/fVPk86ZFK7Pl+aY+uPvVNd/pXLv773X
+55/r+jdxaQb1cnkc1ggAk5Pv+a21ZLFSuVagZLH5pnR6funi+3/mqXJff6pt
+9DgOjG/MPfRWAfEfy5F19wvdOq3/YepjWYJU7ll9dP1t2l+X+nP0WAbEPHaO
+qZ8zOpgXqtwr7MWQr5eLvV9oRZpPvZxeJ8DkJD3jALihdPm8xjZ6DJVxjb3+
+Z3Xj+N+l/XVmXc7sPo/tbue1/Vq6f+n+IOQz9+MpeZKd7/tl53smn1/KMY+d
+Y+qv/zpaJ5j2awvf9L7KMVrD1Ig0g3q5PA57NgGTkUbak9g5CoChnq8V7y+8
+1myjx1AY09h7SUfkmLo5p23+/w/+7sJYu2ecQ/22NtHv0Rz1ckVD8yQ/n/L6
+qRgzx5TK67+O9vB+fs23he/7OX/ttfZOH8JGpPnUy136PLeJHgMwH2n8np6b
+6DEBMH3psh4S2+j4C+MZc01wSI7phLGWcoTv89dq9xWb6LjnJg2s3dp5fZdX
+ec1J/TYkp3JGTN/l3zH6fhlp3BxTf/1XZ+hefP21TCfl+G5xrBj8HsyiXi6P
+5ZJr0CY6fmAe0sua+LHvhzfR4wJg+i68Bm2j4++NZew1wVPPMfXzSE87X+vW
+c5V6Um2i456bQs7lNXf0fe91XS5jt/fQj0PzKSfE8povef0dU88x9dd/Da5v
+S/U9Vgf1TL/FseKkz8Jc6uUuWUu7iY4fmIc0zj4EzlEAnKWQq2g1xzT2muCp
+55j26uR6Xy/tJdLkc9uUpf31NH/OeZifC5+lny7JyRyIoZ8vmXyOKZ24/qvy
+M/prwo5+/y2PFSe9l7Ool8tjObcn4CY6dqB96fJeGM5RAFwknT/vuo2OfWcM
+Y+zp00yOqXL/8L7wun7/8Mm8Z3PwfDy/TvtraW66l2fO1fyccz/9/I+8iWPV
+hDSjerk8nnP2Nt1Exw20L12+p49zFAAXS+f1kNhGx70T/zXWBE85x1Stkyu8
+djcfNZn3bA7Sl/7Sk8lVPP/+X6cSy9Q5VtNSyMt8io7pgrGcM+/xITpuoG1n
+3s/LMQEwulSuq2oix5TOr0toOcd0sE7uwDGaxHs2F2m/Z/XgfkJXjEnexLFq
+UirXy91Fx3XBeD62fq0B2pGus7eyHBMAZzsjV7ONjjnHfZefTU69n2/yvj8N
+rJMrfF+39qnZdQFTlPbr5AbvZ3bFmORNHKsmpXK9XLNreyrjaeZaA7Ql55jW
++X7vGvVym+gxAtCedFrN2TY63soYuhqFzYljaea+P51QJ1f43nV0/HORXvpN
+9z8r300gLnkTx6pZaUb1cnk8p9StrKLjBeYjvZ2DHWN90zZ6TAC0J53WQ2Ib
+He8JY7q/4Pq6ih5Dbzwn1clxtfeh3zN6EnkKeRPHqmVpfvVyp9SurKLjBeYr
+vewD051j/6EcEwC3lPbXycziWlO4z/9nrd33pzPr5LjKe/FL7334LTqmHJe8
+iWPVrHRBvVx+frqLHkMhrlLebNLXGmC+Cvf5fznH+34ApqNyj9/0tSY/e+zd
+z+c55vfpcO36Kjr+nXGcXSfHqO/D14XPyc/RceXY5E0cq6alM+rl8nXraao5
+9wPXl0lea4D5KpyP7vO/H+s1sY2OHYB2pWE9JLbRcV4ynsrruueUfr/EVXT8
+O/Gpk5uA5+P+feHvIbzfd45N3sSxalo6sV4uzxV8mtr5uhfjkDr0ScYOzEcq
+zyMXc/N5DvZ+5/y6jY4fgHalYT0kttFxnjCe/pzMx4Hf112Lv4qOP8eiTm4i
+no/7nwvvxQ/RceXY5E0cq6ZVnoGq9XK98/sqOv6BccoxATeXyntIH73Pzc8F
+76LjB6BtletQqzmmwc8rU5XUyU1Cl4uo/D3IMTXGsZquNLBernBeXEXHfmBM
+x+rQJxs7MA+Fc2bTe3cC0J7CfX5zOaZUrlFobi4mqZML93zMv+vlJXb9OoU8
+k7yJYzUHaUC9XGUeZNLn9sLznRwTcDOFe8n76JgAWJZKfubVJjq+gWPo92Jq
+bv1PUicXffy/PbL+oCQkZyFv4ljNQWXNz4edr5fOiZ+j4x4wrkN16Kvo+ID5
+SpX9b6LjAmB5Ur2HxCY6tjPjH9SLaUoKc9/N5cm4DXkTx2ouUqVeLj8nFfM0
+0TEPHFdtT41VdGzAfKXC+tDomABYpsp8cue/i45tYPzVufBWFJ6nHqJjYprk
+TRyrKcv5oW3Os3TrZKu9ZkvPQ8/+/bS/73Zzz0vPsf7zQvx/MzouYL66Odbe
+OWcbHRMAy5Ve9i7t3w///ei4BsRdqqeYdL+OgWNQJ0eRvIljNXWFdZmf8r+t
+d8/PlfmN/6OWX2osx/SfFOL/MTouYL4K85Wb6JgAWK700kPi3/SuTf84Oq4B
+cfdzY4/RMZ0xBnVyDCZv4lhNXb6eHNpP4inPt3drnf7JoZxSP1cVPbYTj8Nf
+tjZvA7Qp6cUEwAR197+9a9O/io5pQMz955iH6JjOGIM6OQZ5/mz80PusfB8d
+01Q5VuHHv8szVWvezrSNHteJx+Dv9eL/Z9ExAfOU9GICYIJSeY+5ydad5WeY
+frzr6LhOHIM6OQ7q1t8MfP5efA7FsZqWdKB390JyTKXz+110XMD8pP39b7bR
+MQFAp3A/vImO6UCszd+/J3VywIxVztNLyTE1Pw8CtKFwrmlu/xsA5ik1tCdF
+mkcvJnVywKyll17fY+SYPkaP5Yyx9+u5mxsDMG2psToEAJYlNVTPXbh3f4iO
+6cT41ckBi1BYs3mOTfQ4zhh3fy7EWlVgVOll/wTnGQAmKTWyL8UcahAKz1zu
+CYDZSvv9QpaQY7K+ALiqwrnVekkAJqVQv7WJjqkQY6n24i46rguP80N0TADX
+kucG+utPZ51jyuPWJwW4GucYAKYuNdCTqbAG6FN0TCfGr04OWJx02V5zm+j4
+zxyzNQbAVVgrCUALUgM9mZ5jeuzFeB8d04nxq5MDFimVa7KHaDIPn/RKAa4k
+6fkGQAMq9/+TubfvauKmHN/AMaiTAxYrnbfX3Co67jPHap0BcBWp8f1vAFiO
+Ka8TqjybfBUd1wnxq5MDFq8w/z7LHFMeq34pwKjSDPa/AWA5CrVck+l3NOXY
+zozfumZgkQrnw7nmmCbf5xBoS2XO8i46LgAomfJaoSmvsRoYvzo5gM8n7zW3
+jo73gnFOvs8h0JbCWtDH6JgAoCZNtOdRmnivqAHxq5MD2JHzTEP2mttEx3rB
+GEvXrlV0XEC7Cvn5h+iYAOCQKa4XKs0FT2V91cD41ckB9KRyX+y+8GvQhWPs
+59E20TEBbUp6MQHQoEI+JLzvUWq8p4U6OYCywvm9bxsd48jja3o8QJzKuvi7
+6LgA4JA0wZ5MLc8Dq5MDqEsvNdqHaua20TFeOD49mYBRFOaBH6NjAoBjUrkn
+0zownqb7WaiTAzismzc4kGNq+pzZ+jUMmI40wX4WADBEmlA/wdbngNXJARxX
+eHZq8pxfGVv/OuC5EDhJZQ7YungAmpAmtC9qy70s1MkBDJMO9/++i47vwrFN
+rs8h0JY0wV4WADBUJTdyFxRLy72Y1MkBDFSYU5hFbZlnQ+BSctUAtCxNZG/U
+yrz2u+jjc0L86iMABkr1/t9Nr/9U4wJcqlBP7J4SgKakCfRkSvt9YJtZB1RZ
+C9ZMfgwgQuG839T61QPj8nwInEWeGoA5SBPoyfT8O7e9GD5GH5cTYre/LMAZ
+CvmYTXRMI4xJnQtwllTY/0a9LQCtmcI6nMLv/xB9XE6IXZ0cwBkK159m5hcO
+jElPJuAsab9XnRw1AE2KzPGkhnsxTSE/B9Cy3jrWbXQ8I4ynVOuyjo4LmL7C
+vOUmOiYAOEdkrVrjvZjUyQFcoJeTeYyOZ6Qx9WsAH6JjAqatm6Ms5KdX0XEB
+wDki8zyN92JSJwdwod1rUHQsI40nvM8h0JZSL6bomADgXFH1al2PilZ7MamT
+AxhHvhY8zuWZqnJ9uIuOC5iuQi+mbXRMAHCJiFxPy/fh6uQAxrNzPVhFxzLC
+WErzJ+vouIDp0osJgLmJqFlruZ5AnRzAuPJ1aBUdx0hj+aQnEzCEXkwAzFFE
+T6ZW78HzHPV9etvXVZ0cwAXSS//vJuqlB4yl2TkU4LYi7sEB4NpuPYcyl1qC
+fNw20XEAMB0t14IDtxVRSwAAt3DLWnD33wDMVWUeZRZrtIBxOVcAMFfphnta
+qCMAYM6sTQCOSUF7OwPALXTzJv3r3BV/12Pvdz1Ejx8AxqLHCnCM8wQAc3ar
+nky5r2vzvZgAoMb6BOAY6x0BmLtb9GTq8kmF++6voscOAGPSZwU4xDkCgLm7
+RU+mri6u9zs+RY8bAMZmjQJQU9n/xlpHAGal1JNp7DVGhV5M99HjBoCx6bUC
+1Nj/BoAlqPRKet/KzweAqdCTCajp1vHb/waAJbjmOiO9mABYklv0OQTa0t37
+2v8GgKW4Zr8kvZgAWJJb9DkE2lLpxXQXHRcAXMM11xoV5nP1YgJgtkp9DqNj
+AmLpxQTAklyrZ1LXg6Lwc1fR4wWAa3HtA/r0YgJgaa7Rk8lcLgBLpCcT8Koy
+l7uOjgsArqnQN+lxhJ+pJwUAi+P6B7yy/w0AS3SNXoTmcQFYotI6Xs+UsEz2
+vwFgidLIe6rqRwHAUlWugRf3OQTac41+FADQgjH7EerFBMCSea4ErrWvDgC0
+II24r6peFAAsmfoYQC8mAJZszJ5MhZ/zIXp8AHArni0BuWYAlmysnkxd36XC
+z3kXPT4AuBU1MoCaWQCWboyeTN3+cb2f8RQ9LgC4Nc+XsFx6/wNAsSfTyfmh
+rvdS72d8jB5Xjuv7Zz/0vMb4Xe+13z37qTeOn7ufET0OgLmY+3lZnQwsV7L/
+DQCMUuc2pV5Mz7/760I8JV/n1/8pP7Mceu3Pr68H4DRLOi+nck+mu+i4gOtL
+9r8BgN9dkiMaI0d1xXF9XXlO+Tl//dtnvw189vlz9HgAWjf383Iaqc8h0J7n
+v/Wn3t/+JjomAIiQLqh1SyPU2l15bN8W7ve72oxv8v/+Ne3UXeR//6XyPPNt
+9HgAWjf383Iaoc8h0JZU7sW0io4LACKkC3p2T/1eOr3089h7Jsnz5D9Wvufr
+yjx68fUADDf383Jh7uUxOibgupJeTADwh3RmvVsLNQHpbT/Zz3kuvPPDke/7
+sTC2X6LHA9C6uZ+Xn2N6X4jzLjou4HqSXkwA8EbhfvhoT6YW7qMr9RVHe3gU
+noF+r9+IHg9A6+Z+Xm5h/gUYV+FvfhMdEwBESvs9mbYDvmfS9QCpvJdRV2vx
+pwHf+33hez9HjwmgZUs5L6eJ15ED40kT3v8GAKKkM+rIp34PXXkeOViLceR7
+f4seE0DLlnJenvocDDCedEFfUwCYq3Tifhgt1AJ0tReFGI/OlefvLT3LTK4m
+A6AlSzkvp3ItuXUNMEPpgv2ZAWDOunmX3jVyc+C1LfRi6u9BdLTfx873lvp+
+/Bw9JoCWLem8XIj1aJ9DoD3+1gGgLJ2wJ8bz1x6mXAeQXvbB7l/zvz/h+38q
+fP/k9sgGaMXSzsvWNsD8Jb2YAKAqndCTqcsp9V57Hx1/L77+Htfd3PnXJ3x/
+ad+j76LHBdCqpZ2Xkx4tMHv+zgGgLg3sydTVxBVe9z46/l6M/WeRU+oxivse
+RY8JoGVLOy9b3wDzl/b3v7FeEf7/9u4Yt40jCgBoNX1ygyAnCKALuNAV1LvS
+FdSmVJlWnWtX7tn4ACpyAQI5ga+QcKGhsZodkrtkxD/LecUDDImyPiXok/Nn
+5n+AkTTtyTQ5n7T72OfK++ZfomMfxXd3yV53qveVbfY+BkDres3LlZj1aYEb
+kVYw/wYAoqVpn6W/z3lM8HMo+8Iu2uvePX5Tec8wa+4RAFO95uWkJxPcrLSC
++TcAEG3OGaXUfi+mci3ysuBrf1/jXjlAy3rNy2naq+Xf6JiA/8fw/rf4+/4n
+OiYAaE060Wvp1OejpXrPjiX3Mcq5Rdu0oCctAO/1nJfTzD6HwPqkaS+mL9Ex
+AUCLjp1TSpXZc+U5p+DYH8r7GHPXIgf2ypudWQSwBr3n5TTtc/hndEzAZZJe
+TAAwWzrSb2n372+HPteCyn73krlFX9d4FwOgZb3n5crr5vfomIDLJL2YAGC2
+dKQnU+v7sXl/fBzf08yvK/fZZ6+BADis97xcO/8bHRNwmaQXEwDMlg70XEqN
+95VI9dnYJ+cO5bsY4zXQJvq5ANwCeVlPJrhFadpX4kt0TADQstprZ+t7scMd
+iiK+15lf93oL6xiA1sjLP59P02eAgfkO7cVGxwUALaudAU6N95Qo1iSz+nak
+9/O0V9fnA6Bl8vLP59R0L0NgvnSkpwQAUJfqvQyb3YdN9dlDB3t+5Psb+7XP
+cB9jVXOKAFonL797bpM1aXRMwHnSkdk4AEBdqs9kbbafxLBuqcQ3rFEei8cN
+PWTHM46GexyzZmgvjOchr5VO9h0BuEUt5OUcw7Y8SzXUs678s6jdrfkt+ncE
+LDec4y/+lv+KjgkA1mDYlyleQ8f7Nk3t2aTpfOuveW2xqbyvfzm2l35hHPva
+0uzetgC3KDIv7/6v+zSdZzf7TNUH/TzG69Lv0b8f4Dzp/Vn/4Yz/H9ExAcAa
+lK+h+WOfWjq/lGP6tbKWuPbaoawtqTEB3YrMy6k+y+6Qq97Ha/E1FFgun038
+5DwiACyT3mYuD6+hzfYyzPWdsNpOeus5ssn78+XdEDUmoDuReXlU738ef898
+tqk8W7WN/lkBAADtSGfOxv7AeLZqTEDPovJyriMN3+9+QWxX7c0EAAC0q3If
+I3TWtRoT0LuovJxm9nUq4ruZ+XUAAMD5DvTdCF0vqDEBPYvMyzn/npxJV9yZ
+O3jmCQAA6Eel/1F4XUeNCehZi3m5EuPLKLaTNSkAAOD2pekstx8NxKTGBHSr
+xbxciXF/jmkTHQsAABAvvc3GLvfKw9cLakxAr1rNy5U49/2Y3JMDAACGNcJj
+ZS0T2u87x6XGBHSp1bxcxHjfYlwAAECcomfr3sl5QleIS40J6FKrebmIccjR
+r9FxAAAAbRhqN5V1TBNrGTUmoEct5+VRjM+5X5Q+3wAAwLBGeCjqOGPb6PWM
+GhPQm9bzco7xKcciLwMAQOdGPTSWuPpaQo0J6MWK8vK+BiYnAwAAq6HGBNCO
+XAf7IR8DAABro8YE0IZdDr7LOfkuOhYAAICl1JgA4i2pL+0e86IPOAAA0Bo1
+JoBYZ9SXnqNjBgAAKKkxAcQZ8m7uv7SkD7m7dAAAQFPybOzxuuUxOiaAXuT6
+0nZhfek1Om4AAIBBXtPMWceoNwF8oDPqS4On6LgBAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAevAfDedBpQ==
+     "], {{0, 521}, {1177, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{200.0168749999998, Automatic},
+   ImageSizeRaw->{1177, 521},
+   PlotRange->{{0, 1177}, {0, 521}}]], "Input"],
+ "\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", "\[ScriptCapitalM]"}], "=", 
+    RowBox[{
+     RowBox[{"-", "i"}], " ", 
+     SuperscriptBox["e", "2"], 
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      StyleBox[
+       SubscriptBox["p", "2"],
+       FontWeight->"Bold"], ")"}], 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+          RowBox[{
+           RowBox[{
+            SubscriptBox["p", "1"], ".", "\[Gamma]"}], "+", 
+           RowBox[{
+            SubscriptBox["k", "1"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+         SuperscriptBox["\[Gamma]", "\[Nu]"]}], 
+        RowBox[{"s", "-", 
+         SuperscriptBox["m", "2"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+          RowBox[{
+           RowBox[{
+            SubscriptBox["p", "1"], ".", "\[Gamma]"}], "-", 
+           RowBox[{
+            SubscriptBox["k", "2"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+         SuperscriptBox["\[Gamma]", "\[Mu]"]}], 
+        RowBox[{"u", "-", 
+         SuperscriptBox["m", "2"]}]]}], ")"}], 
+     RowBox[{"u", "(", 
+      StyleBox[
+       SubscriptBox["p", "1"],
+       FontWeight->"Bold"], ")"}], " ", 
+     RowBox[{
+      SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+      StyleBox[
+       SubscriptBox["k", "2"],
+       FontWeight->"Bold"], ")"}], " ", 
+     RowBox[{
+      SubscriptBox["\[Epsilon]", "\[Nu]"], "(", 
+      StyleBox[
+       SubscriptBox["k", "1"],
+       FontWeight->"Bold"], ")"}]}]}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]Square the amplitude \[LongDash] average over inital \
+spins/helicities, sum over final spins/helicities:\[LineSeparator]\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"|", 
+     OverscriptBox["\[ScriptCapitalM]", "_"], 
+     SuperscriptBox["|", "2"]}], "=", 
+    RowBox[{
+     FractionBox["1", "4"], 
+     SuperscriptBox["e", "4"], 
+     SubscriptBox["g", "\[Mu]\[Mu]\[Prime]"], 
+     SubscriptBox["g", "\[Nu]\[Nu]\[Prime]"], 
+     RowBox[{"Tr", "[", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SubscriptBox["p", "2"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+            RowBox[{
+             RowBox[{
+              SubscriptBox["p", "1"], ".", "\[Gamma]"}], "+", 
+             RowBox[{
+              SubscriptBox["k", "1"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           SuperscriptBox["\[Gamma]", "\[Nu]"]}], 
+          RowBox[{"s", "-", 
+           SuperscriptBox["m", "2"]}]], "+", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+            RowBox[{
+             RowBox[{
+              SubscriptBox["p", "1"], ".", "\[Gamma]"}], "-", 
+             RowBox[{
+              SubscriptBox["k", "2"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           SuperscriptBox["\[Gamma]", "\[Mu]"]}], 
+          RowBox[{"u", "-", 
+           SuperscriptBox["m", "2"]}]]}], ")"}], 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SubscriptBox["p", "1"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Nu]\[Prime]"], "(", 
+            RowBox[{
+             RowBox[{
+              SubscriptBox["p", "1"], ".", "\[Gamma]"}], "+", 
+             RowBox[{
+              SubscriptBox["k", "1"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           SuperscriptBox["\[Gamma]", "\[Mu]\[Prime]"]}], 
+          RowBox[{"s", "-", 
+           SuperscriptBox["m", "2"]}]], "+", 
+         FractionBox[
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Mu]\[Prime]"], "(", 
+            RowBox[{
+             RowBox[{
+              SubscriptBox["p", "1"], ".", "\[Gamma]"}], "-", 
+             RowBox[{
+              SubscriptBox["k", "2"], ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           SuperscriptBox["\[Gamma]", "\[Nu]\[Prime]"]}], 
+          RowBox[{"u", "-", 
+           SuperscriptBox["m", "2"]}]]}], ")"}]}], "]"}]}]}], 
+   TraditionalForm]], "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->167925146],
+
+Cell[TextData[{
+ "Enter the trace:\t\[LineSeparator]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " let ",
+ StyleBox["\[CapitalDelta]s", "InlineCode"],
+ " and ",
+ StyleBox["\[CapitalDelta]u", "InlineCode"],
+ " symbolically denote the denominators\[LineSeparator]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " use ",
+ Cell[BoxData[
+  ButtonBox["DiracMatrix",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracMatrix"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to group products of Dirac matrices inside ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "\[LineSeparator]",
+ StyleBox["\[FilledVerySmallSquare]", "InlineSeparator"],
+ " apply ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to contract the metric tensors into the trace"
+}], "ExampleText",
+ CellID->893104289],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"comptonTrace", "=", 
+  RowBox[{
+   FractionBox["1", "4"], 
+   SuperscriptBox["e", "4"], 
+   RowBox[{"Contract", "[", 
+    RowBox[{
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Mu]p"}]], 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Nu]p"}]], 
+     RowBox[{"Spur", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", "p2"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+       RowBox[{
+        RowBox[{
+         FractionBox["1", "\[CapitalDelta]s"], 
+         RowBox[{"DiracMatrix", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+           RowBox[{
+            RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+            RowBox[{"\[Gamma]", ".", "k1"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}], "+", " ", 
+        RowBox[{
+         FractionBox["1", "\[CapitalDelta]u"], 
+         RowBox[{"DiracMatrix", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+           RowBox[{
+            RowBox[{"\[Gamma]", ".", "p1"}], "-", 
+            RowBox[{"\[Gamma]", ".", "k2"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]}]}], ",", 
+       RowBox[{
+        RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+       RowBox[{
+        RowBox[{
+         FractionBox["1", "\[CapitalDelta]s"], 
+         RowBox[{"DiracMatrix", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Nu]p"], ",", 
+           RowBox[{
+            RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+            RowBox[{"\[Gamma]", ".", "k1"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Mu]p"]}], "]"}]}], "+", 
+        RowBox[{
+         FractionBox["1", "\[CapitalDelta]u"], 
+         RowBox[{"DiracMatrix", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Mu]p"], ",", 
+           RowBox[{
+            RowBox[{"\[Gamma]", ".", "p1"}], "-", 
+            RowBox[{"\[Gamma]", ".", "k2"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Nu]p"]}], "]"}]}]}]}], "]"}]}], 
+    "]"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->973115055],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{
+   FractionBox["1", "4"], " ", 
+   SuperscriptBox["e", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"4", " ", 
+       SuperscriptBox["\[ScriptD]", "2"], " ", 
+       SuperscriptBox["m", "4"]}], 
+      SuperscriptBox["\[CapitalDelta]s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       SuperscriptBox["\[ScriptD]", "2"], " ", 
+       SuperscriptBox["m", "4"]}], 
+      SuperscriptBox["\[CapitalDelta]u", "2"]], "+", 
+     RowBox[{"\[LeftSkeleton]", "113", "\[RightSkeleton]"}], "+", 
+     FractionBox[
+      RowBox[{"16", " ", "\[ScriptD]", 
+       RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
+       RowBox[{"p1", 
+        RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], 
+        RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}]}], " ", 
+       RowBox[{"p1", ".", "p2"}]}], 
+      RowBox[{"\[CapitalDelta]s", " ", "\[CapitalDelta]u"}]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       SuperscriptBox["\[ScriptD]", "2"], " ", 
+       RowBox[{"p1", ".", "p1"}], " ", 
+       RowBox[{"p1", ".", "p2"}]}], 
+      RowBox[{"\[CapitalDelta]s", " ", "\[CapitalDelta]u"}]]}], ")"}]}],
+  Short]], "Output",
+ ImageSize->{534, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]//Short=",
+ CellID->977314005]
+}, Open  ]],
+
+Cell[TextData[{
+ "Apply on-shell conditions, and express result in terms of Mandelstam \
+variables.  Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to safely take the ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Rule]", "4"}], TraditionalForm]], "InlineMath"],
+ " limit:"
+}], "ExampleText",
+ CellID->90366590],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"comptonTrace", "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "k1"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"k2", ".", "k2"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "p1"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{"k2", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      FractionBox[
+       RowBox[{"s", "+", "u"}], "2"]}], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "k2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s", "+", "u"}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{"k2", ".", "p1"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "u"}], ")"}]}]}], ",", 
+     RowBox[{
+      RowBox[{"k1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m", "2"], "-", "u"}], ")"}]}]}]}], "}"}]}], "//", 
+  "LoopRefine"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->215737211],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{
+    SuperscriptBox["\[CapitalDelta]s", "2"], " ", 
+    SuperscriptBox["\[CapitalDelta]u", "2"]}]], 
+  RowBox[{"2", " ", 
+   SuperscriptBox["e", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["m", "4"], " ", 
+      SuperscriptBox["\[CapitalDelta]s", "2"]}], "+", 
+     RowBox[{
+      SuperscriptBox["m", "2"], " ", "s", " ", 
+      SuperscriptBox["\[CapitalDelta]s", "2"]}], "+", 
+     RowBox[{"3", " ", 
+      SuperscriptBox["m", "2"], " ", "u", " ", 
+      SuperscriptBox["\[CapitalDelta]s", "2"]}], "-", 
+     RowBox[{"s", " ", "u", " ", 
+      SuperscriptBox["\[CapitalDelta]s", "2"]}], "+", 
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "4"], " ", "\[CapitalDelta]s", " ", 
+      "\[CapitalDelta]u"}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", "s", " ", "\[CapitalDelta]s", " ", 
+      "\[CapitalDelta]u"}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", "u", " ", "\[CapitalDelta]s", " ", 
+      "\[CapitalDelta]u"}], "+", 
+     RowBox[{
+      SuperscriptBox["m", "4"], " ", 
+      SuperscriptBox["\[CapitalDelta]u", "2"]}], "+", 
+     RowBox[{"3", " ", 
+      SuperscriptBox["m", "2"], " ", "s", " ", 
+      SuperscriptBox["\[CapitalDelta]u", "2"]}], "+", 
+     RowBox[{
+      SuperscriptBox["m", "2"], " ", "u", " ", 
+      SuperscriptBox["\[CapitalDelta]u", "2"]}], "-", 
+     RowBox[{"s", " ", "u", " ", 
+      SuperscriptBox["\[CapitalDelta]u", "2"]}]}], ")"}]}]}]], "Output",
+ ImageSize->{489, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1075650516]
+}, Open  ]],
+
+Cell["Organize result by denominators:", "ExampleText",
+ CellID->808073959],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[", 
+  RowBox[{"%", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\[CapitalDelta]s", " ", "\[CapitalDelta]u"}], ",", 
+     "\[CapitalDelta]s", ",", "\[CapitalDelta]u"}], "}"}], ",", "Simplify"}], 
+  "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1016837609],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"2", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "-", 
+      RowBox[{"s", " ", "u"}], "+", 
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"3", " ", "s"}], "+", "u"}], ")"}]}]}], ")"}]}], 
+   SuperscriptBox["\[CapitalDelta]s", "2"]], "+", 
+  FractionBox[
+   RowBox[{"2", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["m", "4"], "-", 
+      RowBox[{"s", " ", "u"}], "+", 
+      RowBox[{
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{"s", "+", 
+         RowBox[{"3", " ", "u"}]}], ")"}]}]}], ")"}]}], 
+   SuperscriptBox["\[CapitalDelta]u", "2"]], "+", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    SuperscriptBox["m", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"]}], "+", "s", "+", "u"}], ")"}]}], 
+   RowBox[{"\[CapitalDelta]s", " ", "\[CapitalDelta]u"}]]}]], "Output",
+ ImageSize->{488, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1783043489]
+}, Open  ]]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Possible Issues",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(2)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->1305812373],
+
+Cell[TextData[{
+ "Cyclically permuted traces involving the product of ",
+ StyleBox[ButtonBox["\[Gamma]5",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/DiracG5"], "InlineCode"],
+ " with six or more gamma matrices yields ",
+ StyleBox["apparently",
+  FontSlant->"Italic"],
+ " different results:"
+}], "ExampleText",
+ CellID->1627032130],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Tau]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Lambda]"], ",", "\[Gamma]5"}], "]"}]], "Input",
+ 
+ CellLabel->"In[1]:=",
+ CellID->302014254],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[FinalSigma]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Tau]"}]]}], "+", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", 
+     "\[Tau]"}]]}]}]], "Output",
+ ImageSize->{511, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->595786903]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Tau]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Lambda]"], ",", "\[Gamma]5", ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->234972704],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[FinalSigma]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Tau]"}]]}], "+", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", 
+     "\[Tau]"}]]}]}]], "Output",
+ ImageSize->{511, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->1719911081]
+}, Open  ]],
+
+Cell["The difference is a totally antisymmetric rank-6 tensor:", "ExampleText",
+ CellID->625232501],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "-", "%%"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->630553774],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "+", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Mu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "+", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Lambda]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Lambda]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], 
+  "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Lambda]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", 
+     "\[Tau]"}]]}]}]], "Output",
+ ImageSize->{417, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1086224911]
+}, Open  ]],
+
+Cell["\<\
+By Schouten's identity, totally antisymmetric tensors of rank higher than the \
+number of space-time dimensions vanish.  In many cases, the ambiguity can be \
+resolved by imposing symmetrization properties on an amplitude.\
+\>", "ExampleText",
+ CellID->1309626884],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell["\t", "ExampleDelimiter"],
+  $Line = 0; Null]], "ExampleDelimiter",
+ CellID->1059591922],
+
+Cell[TextData[{
+ "Since ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is (naively) defined to anticommute with all gamma matrices in ",
+ Cell[BoxData[
+  FormBox["d", TraditionalForm]], "InlineMath"],
+ "-dimensions, a contradiction can be reached:"
+}], "ExampleText",
+ Deletable->True,
+ CellID->1357318193],
+
+Cell[TextData[{
+ "Compute the trace of a product of six gamma matrices with ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " first; then contract a pair of indices:"
+}], "ExampleText",
+ CellID->1953716435],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Tau]"], ",", "\[Gamma]5", ",", 
+   SubscriptBox["\[Gamma]", "\[Alpha]"]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->715865326],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[FinalSigma]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Rho]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]"}]]}],
+   "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Tau]"}]]}], "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Alpha]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "-", 
+  
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Alpha]", ",", "\[Mu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Tau]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]"}]]}], 
+  "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[FinalSigma]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Tau]"}]]}], "+", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}], 
+  "-", 
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Alpha]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{
+    "\[Mu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", 
+     "\[Tau]"}]]}]}]], "Output",
+ ImageSize->{519, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->470186405]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Contract", "[", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Alpha]"}]], "%"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->61119220],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+   "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}]], "Output",
+ ImageSize->{82, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->89656115]
+}, Open  ]],
+
+Cell["Contract pair of indices before computing the trace:", "ExampleText",
+ CellID->1893264935],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Spur", "[", 
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+   SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+   SubscriptBox["\[Gamma]", "\[Tau]"], ",", "\[Gamma]5", ",", 
+   SubscriptBox["\[Gamma]", "\[Mu]"]}], "]"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1980822971],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{
+   "\[Nu]", ",", "\[Rho]", ",", "\[FinalSigma]", ",", "\[Tau]"}]]}]], "Output",
+ ImageSize->{84, 16},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->1119820021]
+}, Open  ]],
+
+Cell[TextData[{
+ "The difference is ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", "\[Epsilon]", ")"}], TraditionalForm]], 
+  "InlineMath"],
+ "."
+}], "ExampleText",
+ Deletable->True,
+ CellID->986839992]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Contract",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Contract"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckOne]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Dirac1"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Gamma]5",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracG5"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]L",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPL"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[DoubleStruckCapitalP]R",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracPR"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["\[Sigma]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracS"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula"],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["DiracMatrix",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/DiracMatrix"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Projector",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Projector"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->2127716906],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Spur - Wolfram Mathematica", "Spur"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 20.519560}", 
+    "history" -> {"1.0", "2.0", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Spur[mtx_1, ..., mtx_n] takes the trace of the product of Dirac matrices \
+mtx_1, ..., mtx_n.", "synonyms" -> {}, "title" -> "Spur", "titlemodifier" -> 
+    "", "windowtitle" -> "Spur", "type" -> "Symbol", "uri" -> "X/ref/Spur"}, 
+  "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/ReferencePages/Symbols/Transverse.nb b/packages/X/Documentation/English/ReferencePages/Symbols/Transverse.nb
new file mode 100644
index 0000000000000000000000000000000000000000..c8f36680ea98cd3de480087bbda9165a0395de80
--- /dev/null
+++ b/packages/X/Documentation/English/ReferencePages/Symbols/Transverse.nb
@@ -0,0 +1,1386 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X SYMBOL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"See Also \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Longitudinal\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/Longitudinal"], "\<\"Contract\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Contract"], "\<\"Projector\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Projector"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/ref/Transverse\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/ref/Transverse"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/ref/Transverse.\
+html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
+            False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", "X/ref/Transverse", 
+             ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell["Transverse", "ObjectName",
+ CellID->1224892054],
+
+Cell[BoxData[GridBox[{
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Transverse",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Transverse"], "[", 
+       StyleBox["tensor", "TI"], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " \[LineSeparator]gives the transverse scalar projection of the rank-two \
+",
+     Cell[BoxData[
+      StyleBox["tensor", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " containing only one four-vector."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Transverse",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Transverse"], "[", 
+       RowBox[{
+        StyleBox["tensor", "TI"], ",", 
+        StyleBox["v", "TI"]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]gives the scalar projection of the given rank-two ",
+     Cell[BoxData[
+      StyleBox["tensor", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " transverse to vector ",
+     Cell[BoxData[
+      StyleBox["v", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]},
+   {"", Cell[TextData[{
+     Cell[BoxData[
+      RowBox[{
+       ButtonBox["Transverse",
+        BaseStyle->"Link",
+        ButtonData->"paclet:X/ref/Transverse"], "[", 
+       RowBox[{
+        StyleBox["tensor", "TI"], ",", 
+        StyleBox["v", "TI"], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          StyleBox["\[Mu]", "TR"], ",", 
+          StyleBox["\[Nu]", "TR"]}], "}"}]}], "]"}]], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "\[LineSeparator]gives the rank ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{"P", "-", "2"}], TraditionalForm]], "InlineMath"],
+     " tensor projection of the rank ",
+     Cell[BoxData[
+      FormBox["P", TraditionalForm]], "InlineMath"],
+     " ",
+     Cell[BoxData[
+      StyleBox["tensor", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " transverse to vector ",
+     Cell[BoxData[
+      StyleBox["v", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " along indices ",
+     Cell[BoxData[
+      StyleBox["\[Mu]", "TR"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " and ",
+     Cell[BoxData[
+      StyleBox["\[Nu]", "TR"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }]]}
+  }]], "Usage",
+ Deletable->True,
+ GridBoxOptions->{
+ GridBoxBackground->{
+  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
+   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}}},
+ CellID->982511436],
+
+Cell[CellGroupData[{
+
+Cell["Details", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellGroupingRules->{"SectionGrouping", 50},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       Cell[
+        BoxData[
+         ButtonBox[
+          FrameBox[
+           StyleBox[
+            RowBox[{"MORE", " ", "INFORMATION"}], "NotesFrameText"], 
+           StripOnInput -> False], Appearance -> {Automatic, None}, BaseStyle -> 
+          None, ButtonFunction :> (FrontEndExecute[{
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], All, ButtonCell], 
+             FrontEndToken["OpenCloseGroup"], 
+             FrontEnd`SelectionMove[
+              FrontEnd`SelectedNotebook[], After, CellContents]}]& ), 
+          Evaluator -> None, Method -> "Preemptive"]]]], "NotesSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Details"}], "NotesSection", 
+         CellSize -> {5000, Inherited}], Appearance -> {Automatic, None}, 
+        BaseStyle -> None, ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& ), Evaluator -> 
+        None, Method -> "Preemptive"]], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->640349298],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Given a four-vector ",
+ Cell[BoxData[
+  FormBox["v", TraditionalForm]], "InlineMath"],
+ " and two indices ",
+ Cell[BoxData[
+  FormBox["\[Mu]", TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox["\[Nu]", TraditionalForm]], "InlineMath"],
+ ", a rank ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"P", "\[GreaterEqual]", "2"}], TraditionalForm]], "InlineMath"],
+ " tensor ",
+ Cell[BoxData[
+  FormBox["T", TraditionalForm]], "InlineMath"],
+ " can be generically be written ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["T", 
+     RowBox[{
+      RowBox[{"\[Mu]", " ", "\[Nu]"}], "..."}]], "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["g", 
+         RowBox[{"\[Mu]", " ", "\[Nu]"}]], "-", 
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["v", "\[Mu]"], 
+          SuperscriptBox["v", "\[Nu]"]}], 
+         SuperscriptBox["v", "2"]]}], ")"}], 
+      SuperscriptBox["A", "..."]}], "+", 
+     RowBox[{
+      RowBox[{"(", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["v", "\[Mu]"], 
+         SuperscriptBox["v", "\[Nu]"]}], 
+        SuperscriptBox["v", "2"]], ")"}], 
+      SuperscriptBox["B", "..."]}]}]}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->1204740257],
+
+Cell[TextData[{
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Transverse",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Transverse"], "[", 
+   StyleBox["tensor", "TI"], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " extracts the rank ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"P", "-", "2"}], TraditionalForm]], "InlineMath"],
+ " tensor ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["A", "..."], TraditionalForm]], "InlineMath"],
+ " by multiplying ",
+ Cell[BoxData[
+  StyleBox["tensor", "TI"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with the projector ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"d", "-", "1"}]], 
+    RowBox[{"(", 
+     RowBox[{
+      SubscriptBox["g", "\[Mu]\[Nu]"], "-", 
+      FractionBox[
+       RowBox[{
+        SubscriptBox["v", "\[Mu]"], 
+        SubscriptBox["v", "\[Nu]"]}], 
+       SuperscriptBox["v", "2"]]}], ")"}]}], TraditionalForm]], 
+  "InlineMath"],
+ " and applying ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Notes",
+ Deletable->True,
+ CellID->620837642],
+
+Cell[TextData[{
+ "If the four-vector ",
+ Cell[BoxData[
+  StyleBox["v", "TI"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and indices ",
+ Cell[BoxData[
+  StyleBox["\[Mu]", "TR"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  StyleBox["\[Nu]", "TR"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are not explicitly specified, ",
+ Cell[BoxData[
+  ButtonBox["Transverse",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Transverse"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " attempts to determine them automatically."
+}], "Notes",
+ CellID->1067943069]
+}, Open  ]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Examples", "PrimaryExamplesSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "EXAMPLES", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "PrimaryExamplesSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Examples", "  ", 
+           Cell["(2)", "ExampleCount"]}], "PrimaryExamplesSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellTags->"PrimaryExamplesSection",
+ CellID->1310096369],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Basic Examples",
+ "\[NonBreakingSpace]\[NonBreakingSpace]",
+ Cell["(1)", "ExampleCount"]
+}], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->639841092],
+
+Cell["Project the transverse part out of a simple rank-2 tensor:", \
+"ExampleText",
+ CellID->744125836],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"a", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+   RowBox[{"b", " ", 
+    SubscriptBox["p", "\[Mu]"], 
+    SubscriptBox["p", "\[Nu]"]}]}], "//", "Transverse"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1876062987],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox["a", 
+    RowBox[{
+     RowBox[{"-", "1"}], "+", "\[ScriptD]"}]]}], "+", 
+  FractionBox[
+   RowBox[{"a", " ", "\[ScriptD]"}], 
+   RowBox[{
+    RowBox[{"-", "1"}], "+", "\[ScriptD]"}]]}]], "Output",
+ ImageSize->{102, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1461950973]
+}, Open  ]],
+
+Cell[TextData[{
+ "Call ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to safely take ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"d", "\[Rule]", 
+    RowBox[{"4", "-", 
+     RowBox[{"2", "\[Epsilon]"}]}]}], TraditionalForm]], "InlineMath"],
+ " and drop higher orders in \[Epsilon]:"
+}], "ExampleText",
+ CellID->2066906348],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", "%", "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->394309741],
+
+Cell[BoxData["a"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->251776983]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ InterpretationBox[Cell[TextData[{
+   "Applications",
+   "\[NonBreakingSpace]\[NonBreakingSpace]",
+   Cell["(1)", "ExampleCount"]
+  }], "ExampleSection"],
+  $Line = 0; Null]], "ExampleSection", "ExampleSection",
+ WholeCellGroupOpener->True,
+ CellID->258228157],
+
+Cell[TextData[{
+ "Check that the trasverse part of the QED vacuum polarization vanishes at ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ", a requirement of the Ward identity:\[LineSeparator]     ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    GraphicsBox[
+     TagBox[RasterBox[CompressedData["
+1:eJzt3b1u80p6AODJT5HSd3AU+AZ8CUrqFMamSKtdJGljbAIEp1O5pa8g0CUY
+ewNRuUUKlwukURMg6VSkSeWIx6PP1HgoURKpocjnAE/2i0VJryiKL2femeFf
+/uaffvWPfxpC+Oe/2P2fX/36X//qt7/99c9/++e7/+evf/6Xf/jNn+3+8fgn
+IfznTvXHj48PYKAef5o977ztrHfedz5qFqXjA4B7t8unLzvbJMfuzUrHBwBj
+ssutr7U8uykdDwCMTZJr30rHAwBjk9RrX0rHAwBjssutD0mt9ql0TAAwJnE8
+8j7PbkvHAwBjo1YLAP1SqwWA/qjVAkC/1GoBoF/n1GqrNu/OMpqXjh0A7kGb
+Wm2VV6u1pOJ6juv472r7Ven4AWDI2tRqq3sQxMeWcfuHmG/VdwHghFO12ti/
+vK33F1dt2SQ/z28VLwDcm2O12to9gJ6Sv6+TXDsr/TkAYKiaarWx3/hbno2P
+PcfHtu5xCwDH5Wq1x/IsANBeHFt8UKuN45/kWQDoQMyrP+4NH+uw8iwAdCQz
+xukjjjF+Md4JAK6X5NhqPPJbbNfu/7Y2nwcALpOr1dYee0ny8KJ0vABwb5Ja
+7bc1kJN8W7V1H0rHDAD3JKnVNq2BXO9Pnmcen5X+HAAwVKfWQI7bvJ/ItRv9
+ywDwXVKr3RzZrnHN48fPe+tZnxEAMpJa7erIdvVc+5A8Vo1bfi/9WQBgiJJa
+7eLIdsfu/7NpqvMCwNS1vUdPrV67Tv6+v/+PsckAkGhbq43b7u8R/yOvxjrt
+VpsWAPKqdmxtLs+yxfb7+9vu10v+ZY2p0p8DAIYstk0XZ2w/i21c6yQDAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAMHq7/55KxwAAY7b7b71T/WMb/73cWcjB
+ANCNmGeb1PPvvHSsAHCPTuTaXO59i+3eh9KxA8A9ODPXpuRdADjhylyb5t3n
+0p8HAIakGv/UYa6t9zO/7sxKfz4AKKnKhTsvPeTatK07L/1ZAaBPse36HMcS
+V2OK33vOrzl/3Pn70vsCALpQtSNreXVbIK+e8h77mKv8b0wVAIMX26373HpO
+vlvHPt4h5N4qfmtnADAYMb9WbcPNiTy2nw+7jO3IWfI6yx5zaPXef4i5tPLH
+cLqdXT2+CsYzA1BAy/y6iblqkebVhtfsIteu43tWrzU/1T4Nn2Oynlt8ln3e
+1d4FoDe7/x5i3jw2nqnKdS9tcmvm9c/NtVVufIvv10kOjLl3EY73Z2/ie6rv
+AtCJmH9eQ3OfayfrNcX3aNMH3VluPRHP/triWN5dXXJdAQCVmGNXJ9p2sw7f
+b93wPr+MEy68L0616avY56W/MwDuQ/isxeby3r4dN+/pfffvOejaaNw/q4Z2
+vpwLQKMj7dgqpyz77iuN7ddF6f1wRrwPcb/IuQAcFXNGrla6z7HGAJ3eh4uQ
+H8esngswcbHmmrbL5NjL92cu59qfABMUa465cT6vcsLV+7apb3mjXxlgGkJ+
+HutaX2fn+/mhof795noGYJwa2rJVW8sahP3u93lmv2/td4BxaWjL6i++/XeQ
+9iv7DgDuXOzHXKsbDkP4nFeVfh9Vm3eQc4kBOC72XWpHDVCmn6H6nhal4wKm
+6fGn2XxnubOOXnYekm2eq21Kxzok4XMuj/rggMX6+Sb5nlal4wKmI+bY952P
+nU3Mt8v47/d9vt397yJu81Y65qHIjH19N8Z4mGIff3pvg7W+B6BvMad+RMvk
+sYeYa6s27tPONm73Ujru0uJ5Ox3vuiodF62+u7QfQg0X6M0uZ65qeXbRsM0s
+Pr6tbTvp81Icc5Pm2ez+Y5jC5z3r6/X1rXwLdC3WYj/a9AnX+pd/ybmlYy8p
+1v3Sc/S8dFxc/F1ugjo70IPYH/xRa68erVftHn9tm5fHrCHPagvdsYZawKJ0
+XMD9S9qpyxbbr2vbT7JWm8mz78bUjIN8C3StNpZ4b3Zi+4dk+8m14+TZaciM
+KV+Ujgm4T0mb9r3F9s9TrtXKs9Mi3wLXqo0pbt0fPOVarTw7TZl8Oy8dE3A/
+krHHrfqDk3bwZGq1sYa3kWenKRyueWEMHNBa1S49pz94qrXazFgZeXZiMsdA
+lW9npeMChi8ZT7xusf0ka7XaNMTjwDUXcLYk1y5bbD+5Wm34vDePPMv+eHhI
+avaT+B0Al0ty7aLF9psp1WqrMafGoJLKjJFblo4JGK4k185PbFtfW2r0tVrn
+U47JXIdZyxHISvqE5ye2rd+XYNS12kxdTj8h32TqC7PSMQHD8/h5n9qT9drM
+2lKjzj3JfMqN8S80CZ/3u/0xVqp0PMAw1fqRNw2P7+fg1u+hN9pabfi8t1q9
+b3DUfeVcJzNWalk6JmB4Hr/u//4R+4kf4t/nMQ9vM+3aUeafzHlztNcUdKda
+R8r1GXBKzLerJJ/uc+8s6Wseba02mUe7Lh0P9yOp3ao7AEfFvDpP/rYce602
+6Ts2zoWzhO9reC5LxwTcl7GvgazvmC7oSwYuNYU1kJNxx+vS8XC/kr7kdel4
+gPsw9jWQM22RWemYuF+ZvuRF6ZiA4Rv7GsjJ/Mhl6Xi4f5nav3FSwFFjrtWG
+w3X2jB2lM67hgLaS/uPKqNZ81ddHX8LnetrGtQNZsc94+/h9ru2Pmm1c42Je
+OtZrJG3adel4GJ9kzN2qdDzAcMQ1GZct3HV/a9KmnZeOh/Gp2rLG3QFTpU3L
+rSRzgFal4wG4FW1abiXOAdK2BSZFm5ZbS+q2r6XjAeibNi23ltRtzbcFehfX
+aZoXfO8f82lL7wumI2nbjmqeOjA8tfrVssB71++Ztyi9L5iOZL7tpnQ8wPjV
+rvHXtxoroh+P0nb/vatfALcSDteL/aWN23fuq/rtjE+hpGRc3qp0PMD4hcP7
+xe7XI170+H71MVGz0p+f6Qnf75OsbwXoVTJWpNecm9TK3kt/dqYrOe4XpeOB
+qYo1zCn4j5DPtfWcW/X7Xn3tHw7X7jEGlGLC4Vj40d2jEu7FifwzVatwRb9v
+OOw/1m9HUY5HKG8AeW1ItjHPPl2xP+v9x9oRFBcO+1kWpeOBKQqfY3KnoD7X
+NbUJ+o8ZqeD6D7iR8FmzzeXYRcfvU5/TOCv9uaESauORS8cCjFP4fl/Pbehh
+jm3yPsYfMxjhcDzyc+l4gPEJh+tKvPXV3gyHawdYv4LBcGwCfYt9xdu+r+eT
+tsO89OeGvXB4X1t9LkCn4riQ9677ixvea6MmxlAlYwnM/QE6c6vxSUmtdl36
+c0MqGSOvZgvcnXB4f4Nl6XggldRsl6XjAThXHNeszcBg6XsB7l0yf3dWOh7I
+qc2z3ZaOBeBczmHcg+Sa0Pgoburxp9nrznan1Tq4u+0edl7abs+4JfMp1qXj
+gSZJrWNeOh6mY5cvn3c+olbzznbbreP2VX6elf4MlBUO71tmnQAGKxkfZb1u
+bia2afe5ttW63LXtP7RtSdalcv5isFwXUkrVlq3lzZPnyaQdrDaHfjnuhnoH
+JcS661lt1EvawYxbOLxfn34OBs1ajTSJOXEezc587lPTcy5po57bDmb86mM7
+S8cCp9TXaiwdC+Xt8tgqaXPubc54jeWxPHpuGzXTDp6X3k+UF6yDzB1xbche
+zGmvcbzvJslvqzNe58dzGx6/plabfU2mR/2Le6LmQZMk1y5aPufpWF7soFa7
+Lr1fKnHdtXmiyBz18HlPnYNYCsXxkNknsx7fT67lbpwayzeU33GMJf0dF7k2
+GNJ5ti+ZnDhr+byj/cMd1GqXpfZJzCXLet9lRlWTeen7eIjH3Cp8rZuU83aL
+32v4nDv4fiSOan+9dpl3g3Gd3Jlcro25pM3veHGD+BbhsO2d2sZYZz3HMRvK
+efYWkpy4OeN529rzvq0Ff6+12vi9Hvs95I7LztfCjznm2O8hZ93H7yPm+2O/
+h9w+WXb43uYrcjeSXPs34fBee21U+aXz9mX4utf0ObG89pHn4j465zy76eM8
+e0tJTly1fM7iVH5+/Fr76W7m1cZrudxxv6x5bTheW+27lnE8ZY7Dbcy99VhW
+Ddt19jsNh+vgpO3XeizrzHbra3+nSa5dljgu4BzJb+a/Mr+L3O94k9lu0XFM
+6bliE9+7Hkvu+v792t9xLY6mNkTb8+yy9Pd7qaTfttV3m4ynyj7n3Dbque3g
+roXvebY6HmZHtn/K5Jer213he56t/n20DyXzO+ok34bvebY69hu/y/DVT3aQ
+b6+MQa7lriTH7EGeOPE7fs7k3EUH8Twnr7k59rrhq4bWeb7NnDNXJ86z88xz
+7m4u6CW12qRNm52r/fg5T/es8cTHxizHNm9v/QeZ46rxOMw89yV57lVxhsNr
+ufdjx2HyvIfkuZtrfhuZ88XqjOemuX/ZURwXvw7cSua30/raN/6OV8lzZ1fE
+Mkt+i29tzwvh+3X/VW2JK8+zq+S58w6+p4v367nOrdXG3Fxv02aPn8evebet
+7jdwasxyfM/ermXC4bVk6++/4Ri6OMdd+zqZfLvsaJ+sLnj+IvltXNTO3v33
+c+01/q2vYwC6svvv72rH7P9dcuyHw37W9RWxXPU6Md9eneMyr7O44DXq+XZz
+xT7Zj8m5eL+e69xabbL98sh29Vrtyc+T5OZt8tjTsbzehdrxePF1Wzjs5zi5
+L1sci/ML47j6dTo8putjQs7ug4rXDv9Te43f93UMQFfC53io/TH77xe+xkM4
+bFOe3dZIrncvbh/30Aa45jx7bRtgXj8/3uqYOKdWm/QLr09s+3HGtmlbeZ08
+/nLO+OgLv7+LjsHkNdIc1/o4CN/7as4+hpLXq+e4s8ZJhw77auJvrP7baJ1v
+w2ffVzo2YtnncQBdCB3VPcL3OuvijOcukude1S8YxlHbmocO+8TbOqdWWz1W
+m+NT5efGfZXWak/lycfva0Uuk8erPHwXcz0yx/epsUR9jkFI89TRea+hpzEI
+meuI7alzRmied7W8Nh7oW1e5Nr5Weu17aszmLHwf57vq4DNlx2yeeM4iHF5r
+dzVmMx0js25xnk3nXd3svhBta7UxJ+/bv9tTfblJf3DjnJ/4um/xNeuxvNa2
+eWk7ZmsoMvl2fy23nyOzCLcbW58bM/+WxNH72PrM73S/T1ZJLKvMdv8r13JP
+Qsf3W87k2/25Yhnf6yX+u9RcxNzveJPZrsu5iMuGfXLT82wbbWq15+bZ+Jx6
+rbbeN/z6+HUvodf4epv9a9Zy9D73vsR/30WbNjkO5plj7ZQ+54yfE0cVdx9r
+c8xCfg7uMdX29drXsvR3C6ckv7l5R6/Z1NfT5GS788I4Hi78HfexNkdujtTJ
+8+ytj4dTtdo4Jmm/zXvbtmXSnq1eY1Frv37UXu8l7YuO225qOXd56/3S8bGw
+CMfXadlfE7bat1fEMYu5/Nhv9T3cbs3J3LVm3Vv4Wtvuof6bLf2dwil95Nr4
+uvua07H8sgkn5vF2FEvb3/Gi5zgehnKezTlVq43tyn1uXB2rzybPq9dqi6z9
+NETha63+Rcxn8z6u81rG8hTf/yXGMy9xDMZYqvd+jueGedN5Sa7lnvSVa5P3
+mA3sdzyPn/s5FLpvwJDOs3tNtdo4Buqt3pd75uvWa7U3X/uJcZJruSfBPfWI
+0lptzLHLmF+38d9nX5c8nrkGMrRR6zPTV8LgBfeKJ0pqtQf10UtybO11G9d+
+gks5d3FP6rXD0rFQVq0Wu419xosOXlOtll4kfXKz0vHAMbVj9WZzOBmm2Gfc
+abtTrZa+3GKsCXQhGDdPz9Rq6UvoeG0A6Es4XDPq7tYGYPjUaulL6HDNO+hT
+cl24LB0P41Nf96J0LIyLfjnuRThcd3deOh7GJ66PMb9mHDM0CV9rXhl3x2CF
+w/ULZ6XjAThHcg5zPccguSYE7lnSN9f5vRHgWuFz3US1DuBuhcP7Zi9LxwOp
+cHg/zWXpeADOpc3A0Ol7Acagti7yR+lYIBUO7+tmTAFwl8LnPSjNp2Bwknlp
+5j0Cd0s9jKFKjk3rRQF3K6nZajswGEmfi1otcNfqNVs1MYaiNq/WcQncvWSs
+56J0PBAO1+t2jzPg7jmvMTTJ9Z/7UAGjoL+OIUnqGrPS8QB0IRmHsigdD9OV
+9LMYrweMRnJ+W5eOh+lKrvv0HwOjot+O0uL6FeoZwGhVa1lY14KSkvUrjNMD
+RidZ18K9Qrm5cLj+sfUrgFGq2hLGSFHC7r+n2rG3KR0PQF/C4T1t16XjYTqS
+MVHL0vEA9CkZIzUvHQ/jl9QvjIkCRi8Zn7IuHQ/jl7RpV6XjAehbZt7FU+mY
+GK/M8TYrHRPALSTzf9al42G8kmNtVToegFvJtDXmpWNifDJ12lnpmABuSduW
+vqnTAlOnbUuftGkBPiVjkjel42E8qr6S2rH1WjoegJKS+bbuu8LVkjVTtubT
+AlMXDu+3t9XXxzVibcL1G0AiHK6T7P4rXKzqL64dS+4FDxDFcSz1cVLuwcLZ
+wuH9BYy3A0hUfX1qbFwjHN4zz3gogIxk7Ki+ZFpL+o43rtUA8jJ9yYvSMTF8
+yfg6fccAJ2T6kmelY2K4Mmui6DsGaCEZl/yuP5AmSd3BsQLQUqatsiodE8MT
+DtfUro4X92cEOENm/saidEwMR7I2lOMD4EJJ7daYF34Rr8P0ewB0JBzeF00/
+4cSF72swWhsK4Erx3Fpfo8D4l4nKHAvWPAHoSK4t4xw7PcmYY30cAB3L1Ojk
+2wlJaglq9wA9yeRb6zhOQCbPLkrHBDBm4ft6fKvSMdHr9y3PAhRQnW+T8+9a
+f/L4yLMAZWXyrfrtSMSxcPIswADIt+OTmdcjzwIUlhkvZS7InQqf91SUZwEG
+qCHfPpeOi6u/w0XpuAD4Es/VaZvopXRctPru0lqAvgmAgYq1vnVy3n5Twx2m
+hjFQ7/IswPBlzt8b5+9haeiHcF0EcEdiv+Q26FMenPB5r8T0u1mWjguA8zW0
+nao+5lnp2KYo9hm/ZWqz89KxAXC5hprgVhv35t9Drp9hrc8YYDyqOUAN53p1
+3H73+ywzXs21DsBINfRhVl61r3rZ18vMvtaHDzABsY270dbqbf/m+ovtX4CJ
+ie2u10y7q8rBi9Lx3aOYY9NrmI9YL9dvADBRDfVEOfe8fdiUY9fGGAOwFz7v
+QT+KnBs+5zr13l97JMfe3T4D4HaO5I9tHOszKx1jQ9xV+/ylFvu6x/dZZuqx
+ciwAZ4k5N9fO3a8lWPw+QrX8mq7X0XmuDZ/jyXJjuOVYAK4S+5abckzVtlvd
+Mu/GeF4b8munuTb2Ra8a2rD7emzxaw4AxiG2IV+P5J3O8274HCs9j322TW3s
+Jm8Xvudz/Bybhtfdf85Z6e8EgPE60Z9ab/NVOXLe8jXn8XX3ebUp17W1PON9
+2+Ty6vMugrk7ANxQbHcuWuTdfU3zD3Hb38fcdm5b9apcGz77hKt4X1u+d7XN
+izYsAEMQ8+6p/tdbWtfaq6dqu2n/sPYrAIMX25AvMXf99wByb1NufYtxugcD
+AHcttnt/VzDvvse8WrV1q/b3rPQ+AYC+hOY1qrr0u/g+s9KfFwBKCZ/ziFah
+eR7RNealPx8ADEX4Gs/cZVt3XvpzAcAQhePrLrZW+nMAwD2o5d0283flWgC4
+Ujhc4+lojbd0rAAwBuH7OlBbuRYA+hXHWc1LxwEAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAMBpjz/N5tEyet1Z7zyXjg0A7t0un77sfDRYlo4PAMZgl1MX
+sT37luRa7VoA6FDsR67n2ofSMQHAmMS27T7PvpeOBwDGJo6H2ufa19LxAMDY
+qNUCQH/UagGgX2q1ANAvtVoA6JdaLQD0R60WAPrVtlZbtXeTvuatdRy/7aPq
+umUV982PfVr9vbbNQ9yPb6XjBeA2TtVqY27Y548qLz9Fm/icRenPUFrcR2/1
+a5CdWbSKf5/Hbd+tNw0wLcdqtTGHvEez+Lcn9yg42Ef1644f+ynZ5i1us6rt
+t3np2AHo37FabZJn639fyrU/9sWs1l+8zeXZ2nYH91EqHTsAt9FUq23Ks/Gx
++n34tlMdS1XbR63Gbyd99evS8QNwG0212vj3b3m29ng1Tmox1Twb98HrObkz
+2dfL0vEDcBtprbY2Dqoxz5LtE563eM72nO0BuH+ZWu28qd/4BrHM4vv3rZPP
+lYxx2rTY/mA8WenvHoDbyIxx2o+jvXWefcnE0ZdqLPDTlfE+JK95ck3L5DOu
+S3/3ANxGUj/M5dyb1GMfv+agrm9g2UG8i2RfnVzT8vFr7q1aLcCE5PLF4/e1
+oa5uB45N0n/cak3LR7VagMl5PLEGctJ2m+y8noZ9V5/nc/L+g49qtQCT9Nhi
+DeQkp7yUjnkokmuUVYvt1WoBJijpJ86O7Uny8TLzeNX2XZT+LAX23VlrZqnV
+AkxTm7E9SV1ymXl8M8X2brLv5i22V6sFmJhTtdradvW270vy2H4th8mNm0r2
+y/zEtgdjlkvHDsBtJH3D6yPbNeaUWIPclP4shfZffW3GxZHtHpI2beO+BmBc
+khy6bLldOk55M8Vabfzss9p+aap1p/clUKsFmJC29cak/3NW+/tyqm3a2j7Y
+t22/3Ufv8XOOz3sm1zbuawDGpdavuW2x7T5frGOddxWfP7k6bWbf7MeObfZj
+smt/q3Lxs1otwDTFdte6bR9wrM3u1zhcybMH+6a6/nhL9s88PtaqLg4AXKZt
+XRwAuIxaLQD0J53DXDoeABgbtVoA6Fcy32dZOh4AGJO4joVaLQB0KK4lNY9z
+bNdJrl3Fubbz0nECwD3KrHt8TPaeSjBm/w+Vje4E
+       "], {{0, 291}, {475, 0}}, {0, 
+       255},
+       ColorFunction->RGBColor],
+      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+      Selectable->False],
+     BaseStyle->"ImageGraphics",
+     ImageSize->{113.06458333333308`, Automatic},
+     ImageSizeRaw->{475, 291},
+     PlotRange->{{0, 475}, {0, 291}}], "  ", "=", "  ", 
+    RowBox[{
+     RowBox[{"i", " ", 
+      RowBox[{
+       SuperscriptBox["\[CapitalPi]", "\[Mu]\[Nu]"], "(", "q", ")"}]}], "=", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["e", "2"]}], 
+      SuperscriptBox["\[Mu]", 
+       RowBox[{"2", "\[Epsilon]"}]], 
+      RowBox[{"\[Integral]", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          SuperscriptBox["d", "d"], "k"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+        FractionBox[
+         RowBox[{"Tr", "[", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+            RowBox[{
+             RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+           RowBox[{
+            SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+            RowBox[{
+             RowBox[{"k", ".", "\[Gamma]"}], "-", 
+             RowBox[{"q", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SuperscriptBox["m", "2"]}], ")"}], 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"k", "-", "q"}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}]}]}], TraditionalForm]],
+   "InlineMath"]
+}], "ExampleText",
+ Deletable->True,
+ CellID->651813231],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Perform", " ", "the", " ", 
+    RowBox[{"integral", " ", "[", 
+     RowBox[{"prefactors", " ", "ignored"}], "]"}]}], "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"vacPol", "=", 
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{"Spur", "[", 
+      RowBox[{
+       SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+       RowBox[{
+        RowBox[{"k", ".", "\[Gamma]"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+       SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+       RowBox[{
+        RowBox[{"k", ".", "\[Gamma]"}], "-", 
+        RowBox[{"q", ".", "\[Gamma]"}], "+", 
+        RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "q"}], ",", "m"}], "}"}]}], "]"}]}]}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->122730581],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["q", "\[Mu]"], " ", 
+   SubscriptBox["q", "\[Nu]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "2", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], ")"}]}], 
+  "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"2", " ", 
+      RowBox[{"q", ".", "q"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", 
+        RowBox[{"q", ".", "q"}], ",", "m", ",", "m"}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ ImageSize->{459, 32},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->964605778]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"Perform", " ", "the", " ", "transverse", " ", "projection"}], 
+    ",", " ", 
+    RowBox[{
+     RowBox[{"and", " ", "evaluate", " ", "at", " ", 
+      RowBox[{"q", ".", "q"}]}], "=", "0"}]}], "*)"}], "\[IndentingNewLine]", 
+  
+  RowBox[{
+   RowBox[{"Transverse", "[", "vacPol", "]"}], "/.", 
+   RowBox[{
+    RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1028895875],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "4"}], " ", 
+      RowBox[{"PVA", "[", 
+       RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"8", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"1", ",", "0", ",", "0", ",", "m", ",", "m"}], "]"}]}]}], 
+    RowBox[{
+     RowBox[{"-", "1"}], "+", "\[ScriptD]"}]]}], "+", 
+  FractionBox[
+   RowBox[{"\[ScriptD]", " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "4"}], " ", 
+       RowBox[{"PVA", "[", 
+        RowBox[{"0", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"8", " ", 
+       RowBox[{"PVB", "[", 
+        RowBox[{"1", ",", "0", ",", "0", ",", "m", ",", "m"}], "]"}]}]}], 
+     ")"}]}], 
+   RowBox[{
+    RowBox[{"-", "1"}], "+", "\[ScriptD]"}]]}]], "Output",
+ ImageSize->{491, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->716876075]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Convert", " ", "the", " ", "expression"}], "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{"LoopRefine", "[", "%", "]"}]}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1767459826],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->797821368]
+}, Open  ]]
+}, Closed]],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["See Also", "SeeAlsoSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "SEE ALSO", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "SeeAlsoSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "See Also"}], "SeeAlsoSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->1255426704],
+
+Cell[TextData[{
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Longitudinal",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Longitudinal"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Contract",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Contract"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False],
+ "\[NonBreakingSpace]",
+ StyleBox["\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
+  "InlineSeparator"],
+ " ",
+ Cell[BoxData[
+  StyleBox[
+   ButtonBox["Projector",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Projector"],
+   FontFamily->FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+     "Verdana"]]], "InlineFormula",
+  ShowStringCharacters->False]
+}], "SeeAlso",
+ CellID->929782353]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Guides", "MoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+      TextData[
+       ButtonBox[
+       "MORE ABOUT", BaseStyle -> None, Appearance -> {Automatic, None}, 
+        Evaluator -> None, Method -> "Preemptive", 
+        ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], 
+      "MoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      TextData[
+       ButtonBox[
+        Cell[
+         TextData[{
+           Cell[
+            BoxData[
+             InterpretationBox[
+              StyleBox[
+               
+               GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+                Baseline], "CacheGraphics" -> False], 
+              Spacer[24]]]], "Related Guides"}], "MoreAboutSection", 
+         CellSize -> {5000, Inherited}], BaseStyle -> None, 
+        Appearance -> {Automatic, None}, Evaluator -> None, Method -> 
+        "Preemptive", ButtonFunction :> (FrontEndExecute[{
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], All, ButtonCell], 
+           FrontEndToken["OpenCloseGroup"], 
+           FrontEnd`SelectionMove[
+            FrontEnd`SelectedNotebook[], After, CellContents]}]& )]], None]], 
+    None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->38303248],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "MoreAbout",
+ CellID->1358612715],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Transverse - Wolfram Mathematica", "Transverse"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
+  GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 23.018079}", 
+    "history" -> {"1.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Symbol", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "Transverse[tensor] gives the transverse scalar projection of the \
+rank-two tensor containing only one four-vector.Transverse[tensor, v] gives \
+the scalar projection of the given rank-two tensor transverse to vector \
+v.Transverse[tensor, v, {\\[Mu], \\[Nu]}] gives the rank P - 2 tensor \
+projection of the rank P tensor transverse to vector v along indices \\[Mu] \
+and \\[Nu].", "synonyms" -> {}, "title" -> "Transverse", "titlemodifier" -> 
+    "", "windowtitle" -> "Transverse", "type" -> "Symbol", "uri" -> 
+    "X/ref/Transverse"}, "SearchTextTranslated" -> ""},
+CellContext->"Global`",
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> "Global`"], 
+   Cell[
+    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/SpellIndex/_i.cfs b/packages/X/Documentation/English/SpellIndex/_i.cfs
new file mode 100644
index 0000000000000000000000000000000000000000..8936af66b8638d80a2fab15b836f9b0568c367e4
Binary files /dev/null and b/packages/X/Documentation/English/SpellIndex/_i.cfs differ
diff --git a/packages/X/Documentation/English/SpellIndex/segments.gen b/packages/X/Documentation/English/SpellIndex/segments.gen
new file mode 100644
index 0000000000000000000000000000000000000000..d1993934045433142d0058dbb22be1c49de913c8
Binary files /dev/null and b/packages/X/Documentation/English/SpellIndex/segments.gen differ
diff --git a/packages/X/Documentation/English/SpellIndex/segments_13 b/packages/X/Documentation/English/SpellIndex/segments_13
new file mode 100644
index 0000000000000000000000000000000000000000..7ab2cac76acefcea6b329b00124c9e6f77f9aa37
Binary files /dev/null and b/packages/X/Documentation/English/SpellIndex/segments_13 differ
diff --git a/packages/X/Documentation/English/TextSearchIndex/_0.cfe b/packages/X/Documentation/English/TextSearchIndex/_0.cfe
new file mode 100644
index 0000000000000000000000000000000000000000..808120513a2b1b3a2ca4930fd0674ab3ec9701f7
Binary files /dev/null and b/packages/X/Documentation/English/TextSearchIndex/_0.cfe differ
diff --git a/packages/X/Documentation/English/TextSearchIndex/_0.cfs b/packages/X/Documentation/English/TextSearchIndex/_0.cfs
new file mode 100644
index 0000000000000000000000000000000000000000..b5dfc3ee7573e03faa1013dc4993aa430916fe05
Binary files /dev/null and b/packages/X/Documentation/English/TextSearchIndex/_0.cfs differ
diff --git a/packages/X/Documentation/English/TextSearchIndex/_0.si b/packages/X/Documentation/English/TextSearchIndex/_0.si
new file mode 100644
index 0000000000000000000000000000000000000000..9d78fb239cac46ca488dabd4f222b91617b15114
Binary files /dev/null and b/packages/X/Documentation/English/TextSearchIndex/_0.si differ
diff --git a/packages/X/Documentation/English/TextSearchIndex/fields.wl b/packages/X/Documentation/English/TextSearchIndex/fields.wl
new file mode 100644
index 0000000000000000000000000000000000000000..dc94b3a7501c0ac4253532c4fdb840e6b8643902
--- /dev/null
+++ b/packages/X/Documentation/English/TextSearchIndex/fields.wl
@@ -0,0 +1,455 @@
+{
+	<|
+		"Name" -> "Usage",
+		"Type" -> "Text",
+		"Weight" -> 1.5,
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "ExampleText",
+		"Type" -> "Text",
+		"Weight" -> 0.05,
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "SeeAlso",
+		"Type" -> "Text",
+		"LengthWeighted" -> False,
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "ExactTitle",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Tokenized" -> False,
+		"LengthWeighted" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "Description",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"Weight" -> 1,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "DisplayedCategory",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"Weight" -> 1,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "URI",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Tokenized" -> False,
+		"LengthWeighted" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "NotebookType",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Tokenized" -> False,
+		"BulkRetrievalOptimized" -> True,
+		"LengthWeighted" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False
+	|>,
+	<|
+		"Name" -> "Context",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"Weight" -> 1,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "NotebookStatus",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"BulkRetrievalOptimized" -> True,
+		"Weight" -> 1,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False
+	|>,
+	<|
+		"Name" -> "PacletName",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"Weight" -> 1,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "Language",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"Weight" -> 1,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "SnippetPlaintext",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"Weight" -> 1,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "Dictionary",
+		"Type" -> "Text",
+		"OmitTermFreqAndPositions" -> True,
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "URL",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"Weight" -> 1,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "Location",
+		"Type" -> "FilePath",
+		"Tokenized" -> False,
+		"Stored" -> True,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "Frequency",
+		"Type" -> "Real",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"BulkRetrievalOptimized" -> True,
+		"Weight" -> 1
+	|>,
+	<|
+		"Name" -> "Title",
+		"Type" -> "Title",
+		"Stored" -> True,
+		"Weight" -> 2,
+		"Tokenized" -> True,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "NormalizedTitle",
+		"Type" -> "Text",
+		"Tokenized" -> False,
+		"LengthWeighted" -> False,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "NotebookPackage",
+		"Type" -> "Text",
+		"Stored" -> True,
+		"Searchable" -> False,
+		"Tokenized" -> False,
+		"BulkRetrievalOptimized" -> True,
+		"Weight" -> 1,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False
+	|>,
+	<|
+		"Name" -> "TokenizedNotebookType",
+		"Type" -> "Text",
+		"LengthWeighted" -> False,
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "ShortNotations",
+		"Type" -> "Text",
+		"Tokenized" -> False,
+		"LengthWeighted" -> False,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "ReferredBy",
+		"Type" -> "Text",
+		"Weight" -> 0.5,
+		"LengthWeighted" -> False,
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "Text",
+		"Type" -> "Text",
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "TableText",
+		"Type" -> "Text",
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "Abstract",
+		"Type" -> "Text",
+		"Weight" -> 1.5,
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "FunctionsSubsection",
+		"Type" -> "Text",
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "LinkedSymbols",
+		"Type" -> "Text",
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "MathCaption",
+		"Type" -> "Text",
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>,
+	<|
+		"Name" -> "Caption",
+		"Type" -> "Text",
+		"Tokenized" -> True,
+		"Stored" -> False,
+		"Weight" -> 1,
+		"Searchable" -> True,
+		"Language" -> "English",
+		"IgnoreCase" -> True,
+		"StemmingMethod" -> Automatic,
+		"CamelCaseMatching" -> True,
+		"DeleteStopWords" -> True,
+		"StoreTermVectors" -> False,
+		"BulkRetrievalOptimized" -> False
+	|>
+}
\ No newline at end of file
diff --git a/packages/X/Documentation/English/TextSearchIndex/indexMetadata.wl b/packages/X/Documentation/English/TextSearchIndex/indexMetadata.wl
new file mode 100644
index 0000000000000000000000000000000000000000..d26b5707ced075d8a21b4b9471d55b5ca6eb65f0
--- /dev/null
+++ b/packages/X/Documentation/English/TextSearchIndex/indexMetadata.wl
@@ -0,0 +1,62 @@
+<|"IndexedPaths" -> None, "Driver" -> "Lucene", 
+ "CreationDate" -> DateObject[{2017, 11, 25, 16, 59, 
+    10.603062`7.778006287326521}, "Instant", "Gregorian", -5.], 
+ "Version" -> 1, "Synonyms" -> None, "Method" -> "BM25", 
+ "Language" -> Automatic, "ContentFieldOptions" -> 
+  <|"Title" -> <|"Stored" -> True, "Weight" -> 2|>, 
+   "ExactTitle" -> <|"Stored" -> True, "Tokenized" -> False, 
+     "LengthWeighted" -> False|>, "NormalizedTitle" -> 
+    <|"Tokenized" -> False, "LengthWeighted" -> False|>, 
+   "PossibleAlternateNames" -> <|"Weight" -> 1.5, "LengthWeighted" -> 
+      False|>, "ShortNotations" -> <|"Tokenized" -> False, 
+     "LengthWeighted" -> False|>, "Synonyms" -> <|"Weight" -> 1.5, 
+     "Stored" -> True, "LengthWeighted" -> False|>, 
+   "Keywords" -> <|"Stored" -> True|>, 
+   "URI" -> <|"Stored" -> True, "Tokenized" -> False, 
+     "LengthWeighted" -> False|>, "SnippetPlaintext" -> 
+    <|"Stored" -> True, "Searchable" -> False, "Tokenized" -> False|>, 
+   "ReferredBy" -> <|"Weight" -> 0.5, "LengthWeighted" -> False|>, 
+   "Description" -> <|"Stored" -> True, "Searchable" -> False, 
+     "Tokenized" -> False|>, "PacletName" -> <|"Stored" -> True, 
+     "Searchable" -> False, "Tokenized" -> False|>, 
+   "Language" -> <|"Stored" -> True, "Searchable" -> False, 
+     "Tokenized" -> False|>, "Usage" -> <|"Weight" -> 1.5|>, 
+   "Abstract" -> <|"Weight" -> 1.5|>, "NotebookType" -> 
+    <|"Stored" -> True, "Tokenized" -> False, "BulkRetrievalOptimized" -> 
+      True, "LengthWeighted" -> False|>, "TokenizedNotebookType" -> 
+    <|"LengthWeighted" -> False|>, "DisplayedCategory" -> 
+    <|"Stored" -> True, "Searchable" -> False, "Tokenized" -> False|>, 
+   "URL" -> <|"Stored" -> True, "Searchable" -> False, 
+     "Tokenized" -> False|>, "Context" -> <|"Stored" -> True, 
+     "Searchable" -> False, "Tokenized" -> False|>, 
+   "SeeAlso" -> <|"LengthWeighted" -> False|>, 
+   "ExampleText" -> <|"Weight" -> 0.05|>, "Frequency" -> 
+    <|"Stored" -> True, "Searchable" -> False, "Tokenized" -> False, 
+     "BulkRetrievalOptimized" -> True|>, "NotebookStatus" -> 
+    <|"Stored" -> True, "Searchable" -> False, "Tokenized" -> False, 
+     "BulkRetrievalOptimized" -> True|>, "NotebookPackage" -> 
+    <|"Stored" -> True, "Searchable" -> False, "Tokenized" -> False, 
+     "BulkRetrievalOptimized" -> True|>, "Dictionary" -> 
+    <|"OmitTermFreqAndPositions" -> True|>|>, "ContentLocationFunction" -> 
+  <|"SnippetSource" -> ("field:SnippetPlaintext" & ), 
+   "ReferenceLocation" -> Function[DocumentationSearch`Private`c, 
+     URL[StringReplace[DocumentationSearch`Private`c["URL"], 
+       "http://reference.wolfram.com/language/" -> 
+        "http://reference.wolframcloud.com/cloudplatform/"]]]|>, 
+ "DocumentWeightingRules" -> 
+  <|"NotebookType" -> {"Symbol" -> 1., "Guide" -> 1., "Root Guide" -> 1., 
+     "Upgrade Information" -> 1., "Format" -> 0.9166666666666666, 
+     "Interpreter" -> 0.9166666666666666, "Method" -> 0.9166666666666666, 
+     "Tutorial" -> 0.8333333333333334, "Overview" -> 0.8333333333333334, 
+     "Device Connection" -> 0.8333333333333334, "Service Connection" -> 
+      0.8333333333333334, "Character Name" -> 0.75, 
+     "MathLink C Function" -> 0.75, "System Program" -> 0.6666666666666666, 
+     "Program" -> 0.6666666666666666, "File" -> 0.6666666666666666, 
+     "Embedding Format" -> 0.6666666666666666, "Indicator" -> 
+      0.6666666666666666, "Front End Object" -> 0.5833333333333334, 
+     "Example" -> 0.5, "Menu Item" -> 0.5, "Message" -> 0.5, 
+     "Widget" -> 0.5}, "NotebookStatus" -> {"ObsoleteFlag" -> 1.*^-6, 
+     "AwaitingFutureDesignReviewFlag" -> 0.25, "NewInOldVersion" -> 0.00001, 
+     "None" -> 1.}, "NotebookPackage" -> {"Compatibility" -> 1., 
+     "Package" -> 0.2, "Mathematica" -> 1.}|>, 
+ "DocumentWeightingFunction" -> {"min(max(1+(log10(Frequency)),0.1),1.5)"}|>
diff --git a/packages/X/Documentation/English/TextSearchIndex/segments_2 b/packages/X/Documentation/English/TextSearchIndex/segments_2
new file mode 100644
index 0000000000000000000000000000000000000000..080daf3f507ed8094b0c13dd0c78f68936599501
Binary files /dev/null and b/packages/X/Documentation/English/TextSearchIndex/segments_2 differ
diff --git a/packages/X/Documentation/English/TextSearchIndex/write.lock b/packages/X/Documentation/English/TextSearchIndex/write.lock
new file mode 100644
index 0000000000000000000000000000000000000000..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391
diff --git a/packages/X/Documentation/English/Tutorials/AdlersMethod.nb b/packages/X/Documentation/English/Tutorials/AdlersMethod.nb
new file mode 100644
index 0000000000000000000000000000000000000000..f2957a4c6604b9267a50482b84005f36567e826b
--- /dev/null
+++ b/packages/X/Documentation/English/Tutorials/AdlersMethod.nb
@@ -0,0 +1,7700 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X TUTORIAL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/tutorial/AdlersMethod\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/tutorial/AdlersMethod"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/tutorial/\
+AdlersMethod.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/tutorial/AdlersMethod", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
+     Scaled[0.65], {
+      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
+   "RowsIndexed" -> {}}},
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Ward Identities and ",
+ Cell[BoxData[
+  FormBox[
+   FormBox[
+    SubscriptBox["\[Gamma]", "5"],
+    TraditionalForm], TraditionalForm]], "InlineMath"],
+ " in Dimension Regularization"
+}], "Title",
+ Deletable->True,
+ CellID->509267359],
+
+Cell[TextData[{
+ "In ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X, the fifth Dirac gamma matrix ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is defined to anticommute with all other gamma matrices.  This \
+implementation is \"naive dimensional regularization\", and can lead to \
+apparent violations of Ward identities.  This tutorial explains how to deal \
+with ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", enforce Ward identities, and check for anomaly cancellation with ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X, using the on-shell ",
+ Cell[BoxData[
+  FormBox["Z\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function in the standard model as an example."
+}], "Text",
+ CellID->1408009221],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Section",
+ CellID->1193904931],
+
+Cell[TextData[{
+ "For a given fermion flavor in the standard model (quark or lepton), there \
+are two diagrams contributing to the ",
+ Cell[BoxData[
+  FormBox["Z\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function:"
+}], "Text",
+ Deletable->True,
+ CellID->301040662],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJzs3b+Oc8uaF+AyEBBBnzswkyO1NDdg0FxACzS5QYKUFiAhMpMdiQCnJ3M8
+JM5JfAETWMQgOQYJWYgACdDHqu3lvb39+U/V8lqu9edp6RntOV+3/VZVt9u9
+3vWr+nv/9F/8o3/+N0II/+pvV//nH/2Tf/MP/uW//Cf/9h//rer/+Yf/9l//
+s3/6N6v/+G/V//m7fyeE+D/++PEDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAgIEKs/BZWVRWlXVlVzlUfsT/P+Nx5pXv+uuP9ddfO9b/Hj9vXnrsAAAA
+AAAAAAAAAAAAADBUT/KBj3wnPPZX/XjPHuuW+HWfpecHAAAAAAAAAAAAAAAA
+AProhXzgI/MHz7d4ITN4Lfl8QwAAAAAAAAAAAAAAAACYihZzfGf7B8+1bvm5
+zmcQfpSeRwAAAAAAAAAAAAAAAADoq5jDq3y9kCn86SzAeA5hzBR2kBs825ae
+NwAAAAAAAAAAAAAAAAAYgjALqwY5vsXVY3xWjh3mBs9WpecLAAAAAAAAAAAA
+AAAAAIYg8/zB49XXLu7kBuP/tqks6885+6r/96b5wXnp+QIAAAAAAAAAAAAA
+AACAvguz8J2R3dtcfN3iTmYwnmX48eQ555V9g+zgpsu5AAAAAAAAAAAAAAAA
+AIAxuJMBvGdZf83njfMGt88yg1fP+9EgP3jMeQ4AAAAAAAAAAAAAAAAAmKLM
+7ODHjdxg/O+vhs/92eDswUbPBQAAAAAAAAAAAAAAAABTEWbhOzGzt79xVmD8
+788Xn3+TmR3clJ4zAAAAAAAAAAAAAAAAAOizMAurxMxezBhur7OELTz/V2Z2
+cFd6zgAAAAAAAAAAAAAAAACgz2IWLzGzd5kbPLSRG7yoISc7+KP0nAEAAAAA
+AAAAAAAAAABAn4VZOGZm9+Lnf7Zcwz6zhtZyiwAAAAAAAAAAAAAAAAAwJmEW
+5rln/lW+O6gj9ezDs0XpuQMAAAAAAAAAAAAAAACAPgqzsMzM7O06qkN2EAAA
+AAAAAAAAAAAAAABaEGZhm5nZm3dUh+wgAAAAAAAAAAAAAAAAALQgzMIxI6+3
+7rAO2UEAAAAAAAAAAAAAAAAAeFHM32Vk9WLG8KPDWmQHAQAAAAAAAAAAAAAA
+AOBFYRZWfThzsK5FdhAAAAAAAAAAAAAAAAAAXhRmYZ+R1Zt3XEtWdrD03AEA
+AAAAAAAAAAAAAABA34RZ+MjI6m3fUM9RdhAAAAAAAAAAAAAAAAAAmguzsMzI
+6n29oZ7k3GA8o7D0/AEAAAAAAAAAAAAAAABA34RZ2CTm9I5vqGWRmR3clJ4/
+AAAAAAAAAAAAAAAAAOibmAlMzOmt31BLzhmI0Xfp+QMAAAAAAAAAAAAAAACA
+Pgmz8JmR0/t8Qz2pZyC+rSYAAAAAAAAAAAAAAAAAGJJ4bl9iRu/wpnr2GbnB
+t9QEAAAAAADAeNR7ay4qq8q6sot9p7r/tM54nHnda4tff7zTzzrW/x4/b156
+7AAAAAAAAMB01L3KlJxecp/0hVrmmWcObkrPHwAAAAAAAP3zJB/4yHfCY39l
+9Niuxa/7LD0/AAAAAAAAwLiFWfjI6GN23sOsnmOZ2Vv9Kj2HAAAAAAAAlPFC
+PvCR+YPnW7yQGXz7vp0AAAAAAADAdNV7oqb0Lg9vqmeb0U99S00AAAAAAAD0
+U4s5vrP9g+dat/xc5zMIP0rPIwAAAAAAADA+YRY2iX3LzRtqyTkDMVqVnj8A
+AAAAAAD6o+43fb2QKfzpLMDqf5vHTGEHucGzbel5AwAAAAAAAMYnnt2X2LP8
+ekMty8w+qj1YAQAAAAAAuCnuQ9kgx7e4eozPyrHD3KA9MwEAAAAAACBB9TGv
+yJOlztdpj9SUXuXxTfXk7Ne6KT1/AAAAAAAA9FvIO3/wePW1izu5wfi/bep9
+MRcXvur/vWl+cF56vgAAAAAAAKCvYm6wcqh8lq5lCMIsfPclp1fv2ap3CgAA
+AAAAQGsy+mG/64nVWcBbmcF4luHDvUzr/Ttz9sy0dyYAAAAAAAAkqD62lWNl
+WbqWvguzaq7S+pSdz2XmHqyr0nMHAAAAAABA/93JAD7sidV7Xl6fN7h9lhm8
+et6PBvnBY85zAAAAAAAAwNTEzGDlR21dup4+y+hTdtqjrPde1TMFAAAAAACg
+VZnZwY8bucH4318Nn/uzwdmDjZ4LAAAAAAAApqI+d/CcH9xX5qVr6pvYd0zs
+T+7eUEvOmYPL0nMHAAAAAADAMIRZ+E7sQe1vnBUY//vzxefP6YNFm9JzBgAA
+AAAAAH1WfWwusoM/6iyhPTov52gW1on9ye+O68g5c3BXet4AAAAAAAAYjjAL
+q9SeWGV7nSVs4flT9/PUDwMAAAAAAIAEMSd4lR0821Ze7vGNwdWeqY+8tJdq
+Qh2pe60eY86w9LwBAAAAAAAwHDGLl9iLuswNHtrIDV7UkJMd/FF6zgAAAAAA
+AKDvqo/Dnfzg5M8gzDjr79BxHZ8ZfdJJrxkAAAAAAAD56v0pc7J7x7b31szY
+0/PMXqgAAAAAAADwQPWxvpMdnPwZhGEWlol9yU3HdaTu89ppHQAAAAAAAIxP
+xn6al747qCO1J3a2KD13AAAAAAAA0GfVx+eT7OD5DMLW+399F2Zhm9iXXHZY
+Q2p+cV96vgAAAAAAABiejH7U2a6jOmQHAQAAAAAAoGXVxz4hPxjtYtawdL1v
+m5dZOCb2JTs5lzE+bmINx65qAAAAAAAAYNwy9tM8m3dUh+wgAAAAAAAAtCye
+KZiYHTzbVEadVYu9xtLn/SX2aWNucDJ5TgAAAAAAANqVsZ9mtO6wDtlBAAAA
+AAAAaFn1Mc/MDkbHyqp07Z3NySysSvZHq8ddJj6/3CAAAAAAAACNZOyned7T
+srP9RWUHAQAAAAAAoBvVx7ZBfjA6VJal6299PmZhX6onGfOAifu7jm7eAQAA
+AAAAeJ+M/TQ7PXOwrkV2EAAAAAAAADoQ838Ns4Nnu8qi9DhamYtZ+EjtSXb0
+3Cm5xWXpeQIAAAAAAGDYMvbTjOYd15KVHSw9dwAAAAAAADAU1cdH5fhifnAU
+GcKYy0vsSe5afl65QQAAAAAAAN4iZz/NyvYN9RxlBwEAAAAAAKAb1cemhezg
+4DOEYVbNQ1pPcv3m54390kHOKQAAAAAAAP2SsZ9m9PWGepJzg23v8QkAAAAA
+AABjV318tZgdHGyGMGNP01Z6pPWerruE3OBn6blJHM9fVv668m9K1wIAAAAA
+AMBtGftpHt9QyyIzO7gpPX8AAAAAAABjEHNfTMr/Cu3nB88ZwmXp7+en3++z
+8JnRk3w5y1c9xryyf/I88d8/Ss9Nwlj+os4MnuuWHQQAAAAAAOipjP0012+o
+JecMxOi79PwBAAAAAACMQUc5MqbrUFlWepmFi33Gd2UH47mFCT3ZznuxLcxZ
+zAz+pxu1yw4CAAAAAAD00Lv300yoJ/UMxLfVBAAAAAAAMAU9yJoxTsfKqjIv
+/T3+u+/3Wdhl9CRXDZ8jnjW4ffLYh8qi9Hw8Gcef38kMyg4CAAAAAAD0WMZ+
+moc31bPP6NG9pSYAAAAAAIAp6EHGjPHbVBbFv9dn4SNzP9PoO+PxPxP3TF3H
+WkrPx4NxxMzgXyWMQ3YQAAAAAACghzL201y/oZZ5Zn9uU3r+AAAAAAAAxqIH
+uTKm41D5rhTJzYVZ+GqQHTyfEbiuv35xZVn/2yHhcWKPdl76Z/7B/PxZ5U8Z
+8yI7CAAAAAAA0DOZ+2l+vqGeZWZv7qv0HAIAAAAAAIxFD/JkTNMmvPkswsQz
+AaNjw4zh3b1RY86w9M/6g3n5w0Vm8K9jJvDCf5UdBAAAAAAAGI6M/TQPb6pn
+m7OnZ+n5AwAAAAAAGJMeZMiYnkNlXZm/9Xs97WzAX/ZXrfc/Tf38W/aV79Dj
+cwYv5uWPdU7wDzf+7S9lBwEAAAAAAIYjYz/NzRtqyTkDMVqVnj8AAAAAAIAx
+6UGOjOnYVr6KfJ/PwjyxH3m8+rqYI1zXWcBHX7er+7DLIeQFM+btD7KDAAAA
+AAAAw5GxP2bnfbu6d5aTHfwoPX8AAAAAAABj0oM8GeN2DAXOGPzp+/x0BmBK
+P3Jb+meyb2QHAQAAAAAAhqHpfpod1vNsf863noMIAAAAAAAwNT3IljFOh8qy
+9Pf3r9/ns7BN7El+l661b2QHAQAAAAAAhiFjP83NG2r5zDxzcF56/gAAAAAA
+AMamBxkzxmVXWZT+vv7p+zy9J/lZuta+kR0EAAAAAAAYhoz9NJdvqGWT0aNb
+lZ47AAAAAACAMYo5Lyblf4VuMoObSi9zd2EWvhJ7kofStfaR7CAAAAAAAMAw
+ZGT1PjquY55Ry7HregAAAAAAAGDsqo9lR5nBeemxPRz3LKwT+5Lb0rX2kewg
+AAAAAABA/2Xsp7l7Qy05Zw4uS88dw1Z9fFVWpesAAAAAAAAoqfrYTikz+Ou4
+Z2Gf2Jf8Ll1rH8kOAgAAAAAA9F/Gfpqd9sQyzxzclZ43hqn6+Kh8Vw51/3pZ
+uiYAAAAAAIBS6t7JpDKDv4w7rzf5WbrePpIdBAAAAAAA6L+M/TQ77YllnDl4
+jL280vPGsFQfn3XP+njRwz6UrgsAAAAAAKCkuM/ilDKDv457Vo07sTdZuta+
+kh0EAAAAAADot4z9NA8d1/GZsa/nV+l5YxjqfXJjv3t/p5e9Kl0jAAAAAABA
+SQ/6KM/sKovS9Tce9yxsE3uT29K19pXsIAAAAAAAQL9l7Ke56biOXR/qYBxi
+n/rGGYO3fJSuFQAAAAAAoJR4XmCDzOChMvi9PuN5gon9ye/StfaV7CAAAAAA
+AEC/ZeynueywhtT84r70fNFfdW97XferU/ram9I1AwAAAAAAlFR9rDIyg3HP
+xlXpmlsZ9ywsEvuT0aJ0vX0lOwgAAAAAANBvGftpdnI+W3zcxBqOXdXAcNV5
+we/KvsGeuJ+l6wcAAAAAACgpY0/GbWU0vbowC6vU7GDpWvtMdhAAAAAAAKC/
+MvbT7Oy8v8RzD2NuUM6LX8TM3wt5wTNnWAIAAAAAAJNW91ye9VRitnBRutbW
+xz4L+9J90jGQHQQAAAAAAOivjP001x09/zLx+eUGJ676+KqsM/a+fWZZekwA
+AAAAAAAlVR+bJ/2UVekaOxn3LHyknjlY2ZSut89kBwEAAAAAAPorYz/NRQfP
+/VmfJ/jsuZel54n3uzhbcNtSVvDSsfJReowAAAAAAAAl1T2TW72UfezVlK6v
+s3Gn728afZeut89kBwEAAAAAAPopZz/Njp47Jbe4LD1PvMdVVvBen7otm9Lj
+BQAAAAAAKKn6+JrSWYO/G/ssbDKyg4vS9faZ7CAAAAAAAEA/ZeynuWv5eeUG
+J676mNf96FVl94as4LXR7pMLAAAAAACQot7P8bJ/cphKDyXMwrHUHqtjIzsI
+AAAAAADQTxn7aa7f/LxH+3cOX/XxUVlcZAQ3dU7wnRnBWw6l5wYAAAAAAKCk
+uo9z2T+JOcKP0nW9Zeyz8Jlx5uC+dL19JzsIAAAAAADQTxn7aX619HzxvMFd
+Qm5wEPuZVnX+ZeWv9b0u5uR0nuChB/nAR75LzxMAAAAAAEBJ1cdyqr2TMAvf
+GdnBbel6+052EAAAAAAAoH8y99N8OctXPcY87sv5bN/OmC8sPTcJY/mLOjOo
+73Vvjk795r5mCOel5wcAAAAAAKCk6mNXOVYGsadnq2N/vtfppVXpevtOdhAA
+AAAAAKB/MvfTfKlnGM8tTDjjcF16ThLGETOD/0nfK2POQljUvefSecGzfek5
+AQAAAAAAKCnusxh7JpXe7+nZ+thP+52m9khlB9PmVHYQAAAAAACgZ96xn2bd
+e9s+eexDZVF6Pp6M48/vZAb1vVLnsD8Zwu/ScwEAAAAAAFBSzAxOMTf4y9hn
+YSM72Pqc6qECAAAAAAD0SJiFj8yeWJScuYrnFCb23daxltLz8WAcMTP4Vwnj
+0PdKndNQfW+E6nujXHawt99vAAAAAAAAdCfMwrJBj3Rfuu6+00MFAAAAAADo
+lzALXw36YuczAtf11y+uLOt/OyQ8TjzzcF56Hh7Mz59V/pQxL/peuXMcwrxA
+hnBbetwAAAAAAAC8X9wntWF/9Jf9UEvX32d6qAAAAAAAAP2SeCZgdHyhh3ZL
+fN5F6fE/mJc/XGQG/zr2sy78V32vDub8lCFcV45vyA4uS48XAAAAAACAboVZ
++LzY/3SVuPdpSt90Vz/e8uLx56XHW5oeKgAAAAAAQL9k9Mc+697XK/20fTjt
+4zkvPe6EefljnRP8w41/+0t9rw7nPoSPyqrjDGHvvwcBAAAAAAB4TZ3xa3N/
+1EdWpcdbmh4qAAAAAABAf8QMX+remVdfF3OE6zoL+OjrYi9uU2cO56XH2+K8
+/UHf6w3zfMoQ/vvK/2s5N7gvPTYAAAAAAAAYGz1UAAAAAACA/qjPAEzJDm5L
+19o3+l5vmOMQPjs6e/C79NgAAAAAAABgbPRQAQAAAAAA+iNmAhOzg7JWP8+d
+vleX89tdbjD6LD0+AAAAAAAAGBs9VAAAAAAAgP5IzA1Gslbpc6fv9ercdpsb
+PJQeHwAAAAAAAIyRHioAAMD4VH/TLeIZJJV1ZXfxt968dG0AAMB91Xv2r8Tc
+4KF0rX2k79XRvHabG4zWpccIAAAAAAAAY6SHCgAAMEzV320fdUZwWVlVtpX9
+g7/zjqVrBgAAHqv3/0jJDm5L19pH+l4dzGn3ucHoq/Q4AQAAAAAAYIz0UAEA
+APqpzgWezw+M2cBNfYbgIfFe4mub0mMCAAAee7IfyKXv0rX2kb5Xy/P5ntxg
+9FF6rAAAAAAAADBGeqgAAAD91DAf+Miy9JgAAID7qvfs84z395+l6+0jfa8W
+5/K13OD/zfjcXemxAgAAAAAAwFjpoQIAAPTfxRmE0bpybJAddI4DAAD0WNzv
+I/G9/bF0rX2l79XSPL6WG9xX/pjx+avS4wUAAAAAAICx0kMFAAAYnszzSKJ9
+6ZoBAIDHqvft28T399vStfaVvlcLc/h6bvCjMs/4mkXpMQMAAAAAAMBY6aEC
+AAAMU8Z9xdGqdL0AAMBjGeeLf5euta/0vV6cvxZygxePtUn5utJjBgAAAAAA
+gDHTQwUAABimmAfMyA5+lq4XAAC4r3rPvsh4f78oXW9f6Xu9MHct5gbrx0s5
+e3BfetwAAAAAAAAwVmEW/lwPFQAAYJgysoPH0rUCAACP5ewNUrrWPtP3ajhv
+LecGLx53++Rr16XHDgAAAAAAAGMV+6QPeqh/Kl0fAAAA92XcW7wpXSsAAPBY
+9b59n/j+3jltj+dRdjB3zjrKDdaPvXjy9cvS4wcAAAAAAIAxqs8c/B8Peqjx
+3/6sdJ0AAADcVv3Ntk28t/irdK0AAMB91Xv2j9QzB+0N8nQuZQdz5qvD3ODF
+c+wePMa89BwAAAAAAADAWIRZ+Iv6rMG/yuhB/7H+GjlCAACAHqn+Tjsm/l33
+9F5OAACgnOo9+zKjb/Ndut4+kx3MmKs35Abr57l39uCx9BwAAAAAAADA0MXM
+X0a/OdWfSo8LAABgyqq/yz4T/37bla4VAAB4LJ4lmNGjWZSut89kBxPn6U25
+wYvnO9x4nF3peQAAAACAUuI1tnrfrVVtl+D8ufHr5qXHQKN1/7xa982dtd5Y
+7/Go1/By3e/5rj/vs3TNtLruXw/W2s/3yFy8zt9Uuj4AAACGI8zCypkkAAAw
+Dhlniv8oXWvfyQ4mzNGbc4P1cy5vPNa69FwAAADkinv6xP5bZR338Lz4u3Ne
+ujYA+i1mQ+rrZDETdmh4fe5avM63rR93XnqM3Fz3c15s19Ka7+rHW5QeG3fX
+fF7nwtr4WY/rvQ6n7Fn2tXnetuYf4bd84O7FHsym/v6RH+25cOq3nX/Wm7zG
+7+vf4V7TAQAAuOmqF/mI6wgAANBjGWeKR/vS9fad7OCT+SmQG7x47ut7JOx1
+AwAA9FL1N+RHnRFc1vt5buPf5A/+5jyWrhmAfqrzJN/1tbU2cmMp1/C+ZYyK
+r/tXnSVpei021bF+nq/SY566+tr7+sZ18K5+xuelxzx14beM6K7D9T74Ge+X
+N7y+7/yMAwAAENX9ypT7ig+lawUAAB6rzypIzQ5uS9fbd7KDD+amYG6wfv7v
+q8dclJ4TAABgmupc4Pn8wJgN3NT7dh4y/ka/tCk9JgD6pb4Wt+k4Q/TMxjW4
+t655zBGtOsyTpGSMVq9exyVrzc/Z4EOhNY/nlcmUvX/dl/Xcv3u942tLzKfO
+S8/B1ITT+bGbAq/vu/j9Vnr8AAAAlBFm4UufEgAAxiHjTPFoVbrevpMdvDMv
+p31Qi+UG6xo+rmqYl54XAABgmhrmAx9Zlh4TAP1Q5wt2BTIlz7IHi9JzM1bh
+lBnc9GCdL/NFmzau6XJ3zeO17tUL19zbdgjyRe9Y92UolxO9Fn/GP0vPydjV
+a/6uc4Ofva6vvK4DAABMS733aUqf0t5SAADQY9V79nnmvYir0jX3nezgjTk5
+9Tab9iNbyQ1e1LI6P3bpeQEAAIguziCM1pVjg+ygezgBJi70Lz92yy7Yz6vN
+NY/5sXUP1lXW5L1rvgr9yQxeOwTnEHax7svQn8zgtU3wut7Fmi96uuZe1wEA
+ACYkzKq/TfUpAQBg8DL2BZEdTJ9T2cHL+ehRbrCu53z24L703AAAANzSYJ8f
+f98ATFz18R36myW6ZVV6zoauvu46lDU/BHmyNtZ8EfqZJbplF+TJ2lrzPpw5
+l/S6HuTJ2ljzeejf2cFe1wEAACYoo1+5K10rAK+pr0su6uu8q/oa5SPr+vO+
+Kp+l6wfgseo9+7LBOQbuR3w+r7KD57noWW7woq5NfO9Sen4AAADuqf6G3Nrn
+B4BnBpQxuHf9Tz8xf83j3mjbHqxfE5uurvmO2YDXPGZbv0vP31CFfp8pes+h
+sig9d0MVTvfalF7DXPG1yes6AADACIVZ+E7sU7r+AzAw1cffr/znyn+v/J+W
+rhXu6muci9LjA+A3Ge/rb1mXrr/PZAfreehpbrCubR77maXnCAAA4J6YB8z4
+O13uAmCCwmkvz6GcO3dPrH9Zei6HIpz2fB36mh+CzGjOmn+G4Zw1eI9sUf6a
+D+WswXtWpedxSMKw9wGI4u+lRel5BAAAoF0Z+5y61gcwEOG0V+F/fNM1w43r
+hgDvFd+bVxa1eO/h4YXc4NkxnjVeP97y4vHnpcdbmuzgL+8tli+8X+g0N3hR
+47z0PAEAANyTkR08lq4VgPcL7Z1NFHt32/rxFuFJpiucMi2L+vO3ob0cm/3q
+nq/5K9dcb12DjT3b73o9Fzee7+P8b/V6b0J7eSaZ0feveZzzXb2Wv677HfFz
+1qHdLNMhyIymrHnbmfD9xbqv6u+p67WONvXntfncMqNpa75oed5/1Gt5ue7X
+th2sd7QqPZ8AAAC0J7FPeShdJwDPhVPPJ14b/J8tXxNM7Q98u14M0L064/dq
+VjDVqvR4S5t6djAMIDcIAADQdxnZwU3pWgF4r3DKeLzao4u5oFZyPOGUJ1yF
+189G25Se275qYc3P+7t+vXr9te4vx2vA2xb6xcvSc9tX9c/oq/Mb1+j71Z/1
+cMo2rVv4GXc22eN5Xraw5od6rRr/rIfTa/p3Sz/jseczLz23fdXSmp/3AFg2
++VkPpzMPv1r6GY82pecVAACA19XniKT0Ke0JB9Bj4bfMYNv7iDW9lrlqeu0a
+APpmytnBF/uc9qAFAACoVX9DbhN7cl+lawXgfcJrGbJ4/W3RcX2LF2u0t1i7
+a74LHebzwm85wsMLNW5Kz3HfvLjmcS062783nHJlsb5X7jPo7HtyqF5c87gW
+reXBr+o6/4zvXqzPmZM/z+3yhTn9UX/PtP63YP0zvn7xZ9zvcgAAgIGLmUB9
+SoBhC6/3b7py1CcAYAymmh18sc+5KV0/AABAn1R/Qx4Te3LuyQSYiNA8WxIz
+g/M31zp/od596bnuixfmcBfefL5bOJ1b1bQHvSk9133xwpof3tlrD6/vVfy2
+WvvuhTV/6x7N4bVsuPzg7+ey6bmi5zWfv6nO5Quv6/KDAAAAAxZm1d91CX3K
+0nUC8LMXr+u90951YwCGbIrZwSA3CAAA0Jrq78fPxNzgrnStALxHw7xG7Lkt
+Ctcdzy/auWb4tjWPveCie33X14qb5MmWpee8tIZrXnR/3nDKEDbNQS1Kz3lp
+4ZQDa7Lm8euK5LLCKUPY5HU91j0vPeelheb9tHXBNW/6ui4/CAAAMEBhFuaJ
+fcpt6VoB+E0YTmbw2qr03AFAE1PLDr7Q54w2pesfi7pfH9mDAQAABq76+3GV
+2JP7Ll0rAN2rPr6H3mdrOIZ16boLzleTa67FciU36o95sm2DMSxL1z6wNd/2
+aM1jTnifWf+kz6JruOa70JP8Xf26npsnm3SWrOGa92Lv7dA8J7wpXTsAAAB5
+wqz6+1WfEmAwwnAzg64dAzBoU8oONuxz6he2uwZfN/rzuz70kgEAgGbieYKJ
+PTnv+wFGLpz2isq55havEy1K131nLJ8NepfL0nUPZM2LnjX4YCy5148nmSVr
+uObL0nXfGEfMFm0yx3KY4v0A9ethbk+ld/fjVR/zkJ8Z3ZWue0Brvipd941x
+3OpJDW4cAAAA3BfPE0zsU85L1wowZXVvIff6bNK16Ee9mvq68KL+vHWLNUyy
+RwTAcE0lOxjkBosLj+8pOYSR3nNR/SwtKpvK4c7PWrzP+rtv1ydiPQ/q3sc9
+m0rXCABAedX7wo/EftyhdK0AdCuccjg59+fH3ty8dN0JY8rpIU6qT9hwzXs9
+P+GUl8kd0yiva7a05r3/mWjQO9iWrtmavzymTeaar0rXPIA172UmvB7PPPN3
++Y8+jwcAAIDfC7Pq71J9SoDeCqd7x3eZ1+dyLBrU9FH3BrYtPP+y9BwDQIop
+ZAcb9P4vbUrXPxYJ7/16tw/xS+M93UOduq/R2Tp+XQ9qXybWuyldKwAAZVXv
+Cb+8dwQgyuz7DSZvVfcPc3qH+9I1W/OXx5V75uS6dM3W/OVx5Z5NNqpr2S2v
+ea9zgxfjWmWMK1qUrvmNc5PzO6/3WdF6TLm/y+O45qXrBgAA4LEwC5+p9+SV
+rhVgakL3mcFWrt2G095j8Xrx4YUalqXnGwCeGXt2MMgN9kbCfO9K19jaWE/X
+Je6dM/jMvuQZhBn3fp+tSs83AADl1GdVp7xvdG4DwIhVH/8u45rbYPJEV2PM
+6W+uStf7hvn4HvOah1POJKdPvChdszV/eXw5Z05OIlc0gTXP6R8dhja+N6z5
+IHKDV+PbZIxvV7reN8/N5xRe1wAAgHGJ963pUwL0S2g3M/i/39mfqa8Z5+wz
+eGlZeu4B4JExZwcz+77XNqXrH5uUeS9dYyvjPJ03uG+YGzw7lDp/sEHm8VB6
+zgEAKCfj/ePo77MFmKJwylf9h4xrboPLllyNdZ8x1nnpmjuei9Te6ZDXPCdL
+dhjqOBPnYj6FuQin8wdTf8Z3pevt0ZofB7zmq4w1H/UZBQ3WfFC5wYtx5pw/
+uCxd7xvmY3W17vE13D21AADAIKTeo5f4WLsX7/ezPz8wafX1xV3Gtbdn1x/j
+das/JnzuouVxfGReN57U9UQAhmus2cEgN9g7Ie3eqkXpOl8eZ/q5K8/sCtT+
+2aTW0nMOAEAZ1XvBeV/f2wLQrYu+Wc7em4M/pyvkZea2pevtcB42GWs+yGzJ
+xVg/M77HV6XrteatjDWntzDafM3E1jx1rD+GPlZr/uvv8tS9AAabi21hzUf7
++gYAAIxDOO3vn9KnTLpOW983t7gQzzRcZ+yjevO5K9/1481LzxlAF8IpM5hz
+jfXZ9bjV+ZpcSMvwLToa12fGdcTO6wGAV40xOxjkBnup+lgnzP936TpfGuPp
+7/w29xt663zU1zxkBwEASFL3unr3vhaA7oRmmcFR3YMe8rJkoxjz1fgXUxt/
+vGaZMeZ56XqteStj3iSO9xBGmCua6Jqn3gOyK11rD9Z8WbreFsabsxfAKM+b
+TFjzY+kaAQAAHgmz8PWuPmWdAUy9l+5Y91BHd80I4FLoMDN48RyrhK9ddDzO
+lHvfr8cy2L3XABin6u+TPx9bdjDIDfZWvIdg7D3Y0N6Zg5fXEt52HaF6rp3s
+IAAAqTL6ZK6LAgxceC0zOPhrPjfmI6VXee4PjuYekfr74DDRNd8mjntXulZr
+3tq4U7Nkoxn3xNd8nvE7blR7o0x4zRcZ72NG9TdtxpovStcKAABwT8Z9evMW
+nmuZ+FxrmUFg7MIbMoMXz7XqwzWskJ9N2N8bEwCUEPOBD/6O+VPp+rLHIzfY
+ayFtT/Zd6Tobj6/6u//Gz9Gu3uNo8UKucPPGMRwa1DfYNQMA4DWJ7xcPpesE
+oLnwemYw+r9j7I+F9FzRtnStLY45tRd8GNuah7wzqkaTK5r4muecMbooXW+L
+407dQ3mMa556xmh8LZiXrteav3Xso7rXJ2Pci9K1AgAA3JN4n9u+pedaJZwP
+sCg9JwBdqvskqT2DFJtn11lDT7KDdS2fIa9fOpp92AAYtnA6c/B/PPh7Jv7b
+n5WuM3k8coODkNJ/LV1j47GdMoKXP0M/3RcW9zGqrxXk5vPmbxpDk2zjaO6F
+AgAgXb0/RtL+mqVrBSBfaCczePZfSo+nozlaZMzB4K+fZF5/XZSu1xwYb0tz
+kJqvGUWWzJr/Mge7xPEPtpdxNd6vKa95yDtzcVO63gJrPpq8JAAAMC5hFj7f
+2ad8klPcx3pKzwlAV0K7PcNfrrOlXk8PPcoO1vXk5ge/Sq8fANNU/Y3yF+F0
+1uBfZeSC/lh/TW9zhJn97FH2+oYiJOzHXrrGxmObhXVK3q/635cN8nmbN42h
+SXZQ7xgAYIJuvP+9x7VQgAHpoP8X7UqPq8P52kyhPxjyzl8bzTmLd+Yi9bzJ
++DM02HuGMvvfo13zkHfe5KDPJbPmv5uHSfSXrPmv85CTpVuWrveNa74pXS8A
+AMA9ca/7xD7looXnenTm4N69c8BYhYKZwYsaVgmPu3jzvORcYzsMuW8AwLDE
+zF/DPNAjfyo9rl/HJzc4KCFhz97SNTYe26wa228/I7snn/toL6JiGb0GNY32
+fgEAAB6re2FP3zOWrhOANB30/y7tSo+v43lLnbNBZskye6CjOHstYT5Sv/cH
+mSWz5j/NR04PYpDXS635T/ORet5ktCpdb8Mx5v7+Gvua7zLWfJB7AYS8MxaP
+Q/z9BQAATEe8Zy2hT3ls4XkenW+4KT0PAF0IPcgMXtSySnj8RYE5yukbtHIG
+LgBMWebv3p/ei5Suf4pS+q+la2w8tln1Pvm3awOrJ5/7aD+iex4+ZktjyK1p
+UXreAQB4v+p94NxeEwDj0EH/75Zd6XF2PIc55xUNKj8Y8vJE0Xfpmt80Lzm5
+okHlB6353Xl5el17qL0Ha35zTnIyVtGydM0Nxpd6hupU1nye8XMwqN/l1hwA
+ABijd/Qp637o8c5jr0rPAUDbQvs9w92r19FCT7ODGbWdzUuvLwAMVZAbHKQw
+7uzg5fWBh/vOZtxrfenw5jEUrwcAgH6q3gsuE98zut8QoKc66P897A2WHu8b
+5nOTMR9xznt/ZlHstWZ+f0xqz4CQl8GIn9v7nEnIz5BNZs1D3hltv8xNGEBm
+tMGa70rX/Ma5WWT+rluVrjljzXNev6a05t9j+11ejys3NziZNQcAAIYp3peX
+2KdcvvAcH5V9248L0FfhdE/+IfOa6N3rS6GlPF/ocXawrm+XOCeb0msMAEMU
+5AYHK+V9UukaG48t8zy+uLdRg/xgp73ozFqWpeccAIAyMt7LzkvXCsDvhfYz
+gyl9xF3pcb9pXnPuy496m7EPefmJ8/dB73NSLc9RbubqWLJ/nTCeZeZ4prjm
+OWeM/qhfE+al634yntzv4amt+SpzzTela34yniavW1Nb823mmi9L12zNAQCA
+qQmzsO6yT/kgNxjPIOz9/mAAOUJPM4MX9aVco231OTPrm2dcf5uXXm8AGJIg
+NzhoYaTZwRvnCC4SvmbRIDvY6V7ezhwEACBF3RvznhFgQEI3mcFl/dhPe4Wl
+x/+mOc69Pz/q1dlk9fdJbm4ijnmS98yE/CxZtCpd940131jz5PlaNZir3p1N
+1mAcPya85rmvib3MjIb8THi0KF13gXmKr4mHzHna9Ol3+cVYliH/fcnk1hwA
+ABieB+cBXto3fOx7ucG93CAwJqHnmcGLOlOuZXfy3Bk1pl573ZRedwAYiiA3
+OHhhvNnB6xxgUp843k/dID8473AczhwEAOCh2BdLfM+4Ll0rAL/eA79qcO/4
+PbGPuLx6jqc9w9Lz8Mb5XjSY0+P1nBaqPfcMsrPitReetyZ5nJgtKn6vUf39
+erDm2fO2aTBn69CDbFE4ZZxzz0id9JqHZufKxtfSXpwtG077Xu+sedacNdkL
+oBev6xffs7mZ10mvOQAAMBw39vdvrU9Z90Dv5QaLX9cBaENoNzMYH2fRcb2r
+hDo6rSGxztRryH6fAMATQW5wFFLec5ausfHYLq4ZZHzNd4Ps4Kqj+lOvrRxK
+zzUAAOXE96OJ7xt7d74KwJSEN2QGL57r2dfuSs/Hm+e+6XXMXYn+Zjjlx3YN
+a775PTE1oVmW7Ef9dfMC9c5Ds1yJNf/x6+trk/xdsZxwXfPamjeev3lo9vu0
+yOv6xZqvGtY9+X1gwik/2OTnpWhOOJzy7E3WfFN6zgEAAFLE/e4T+5SLzMeN
+ucHjjcfZlB4zQBtC870Ebzm867pxGE52cJE4d73Ycw4A+irIDY5GwnrtS9fY
+eGzNsoMfDbKDh47qvz470ZmDAAD85M5+mz9JfKxdg/fDxffdAOiz8MbM4MVz
+PnuMXel5KbAOr1zP3FU6z+CH0zmDuxfqfPh9MTWheX7wGN6UIQynLEzTOq35
+7+eyaX4w6XW1xTrn4bXfCZvSc90XodlZdL/OY3jT/Sv192bT/Jg1//1cLl94
+XY8/d2/LEIbX9ou35gAAwGCEWdgm9AePmY/5dSc3uCo9XoBXhdf2jyx2bfui
+/lVCXYvS81zXmjLPg71HHgC69kJvTr+rZ0LaPq270nW+fV5mYdPgHujW7x9L
+zA4eSs8XAADlZOx9sU18vM/6fehZPNNwHd93vpAXjD3D7/rx5qXnDOBdQoHM
+4MVzu95ze15eua55XoN4ftFnizV91o95eLG2pO+NqQmv5fKibf1901repH5t
+iI/ZNOdmzR/P7Svzemz7Z/yitq/Q/GzJM/sf/zyvr+QHf/l92PbP+FVt6xfr
+25Se474Jr/0uP2fDW/8Zr2ubh1NO9GDNAQCAqbiT8Wt8VmC4f47hsvRYAV4R
+Bp4ZvBjHKqG+Ren5rmv9SpzPTq4XAsCQvdiT25Sun0bruS5d59vnJf28v+x7
+sTPruHctxHURAAB+Ue+7mfJ+9eX7jEPavqG/7h9a5wXfdq4DQF+EgpnBixqe
+Peau9DwVXJ9XcybX+YOYEViExNxJ/bnf9dceWqqj8zMRh+zFa9q/+7mpf7aT
+17t+/via8FV/7at5wfOaL0vPa5+F1zOj59fedb128wY1fNbfe9vQzmuONb8/
+169mRs/iWsXX50b3iVz8rLeRB49kRe/PdRu/y88/44sWavkOr2eDo1XpuQUA
+AMiRcY/dMvHxbu33H3uOi9JjBWgqtJsZLN4fCAPKDtb1plyrdS0WAC4EucHR
+qfui3hPdmptZ2DfID85brmH15PkOpecJAICy7vTQOnmvmri3RbSWGQSmKPQg
+M3hRy7PH3pWer8JrNQ/t5ExuiY+7u6Gr57IXatqaf7X4s3l2vFjfbf3zv6r/
+u6t1P1jz5DVfdbTel2t9rYt1j8+7KD2ffRdOv4PbyG5dr/emXttzTvzsnAc+
+r3ubv1NkwtPWPGb2Di3O++V6f12t96Xvi3Vv8/fKsvScAgAA5Eq4t+3sYd8w
+/ntld+veuIprYcAg1devdi1eM4zXpIrfhxGGlx1MqXdXuk4A6IsgNzhKIa2v
+uihdZ5G5Sb8v+tKq5Rqenevi/gEAgImre2bP3qfuW3quZ/0/+34CkxR6lBm8
+qEkPLG3dUvbV6qtN6EGPeEhCt5nRd9ha8+w1X4T2M6PvtIvft6XncUhC+5nR
+d5MJz1vvtjOjJRysOQAAMFSJe/M/7FPGbOCdx9nbqxQYonDqRWxaunbUm8zg
+xfhWCXUvStd5tR5P57p0nQDQB0FucJS8H3oyP6f9jI6Z2cFDyzU8ug98V3qO
+AAAoq+6lJZ0D2NLzPXp/urfvJzA1oYeZwYvanj3XrvT89UU4ZYsOLa3hOziP
+6vU1X/VgHXPX/Lv0vA1VGG62aFV67oYqDO91/Szm2XtzD9CQhNNZgEPMCW+s
+OQAAMFT1vXUv7cUf9yS9c3/eRm4QGJow8szgxThXCfUvStd5VXPKvpK9qhkA
+3i3IDY5W4vu3Xek6i87R6TpE7tmDi5ae+9n1lVaeBwCA4areE36/6z1qeHzm
+oH0/gUkJPc4MXtTomk+zNS2dIXhGrqS9NZ+H05lupdf06TV2a97amn+FYeTJ
+4vflvPR8DV0Yzut6FO9bWZSes6ELw3ldjw7WHAAAGLowC8vEPuXNvUcf9Dk3
+pccGkCNMJDN4Md6U666L0nVe1bxOqHlVuk4AKCXIDY5aSLtPYtL7WWec49L6
+9Yvqcb4ePMe29NwAAFBefF+Y8P702MLzPHpfvCk9DwDvEgaQGbyo9dlz70rP
+Zx+13N9tU6xpXnp+xiiczidL2W/23XahZ731MejgdbxNB2veyZrPQz9f189r
+viw9R2MT+p0T7v29XwAAAKkS9+T/qU9Z76d/72uXpccFkKqDa4/xsealx5Uw
+7lXCWBal67yq+Stl/kvXCQAlBLnBUUt8H/RjCO9DO5+rWdg1yA++3PetHmP9
+4PEnvy4AAPzynjHlvelL+07E956xr3fnsVel5wDgHcKAMoMXNT+rYVd6Xvvs
+ot9bMl90HEqfeAzCKUO4K7jeZ9vQs576GHXwuv6K+H23LD0nY1d9fIb+ZAgP
+4dSDkx/rds2XoT8ZQplBAABgdMKs+psrcw/+uu+4d08cMGQdXF+O1y3npceV
+Mf5VwpgWpeu8qnmeUPOudJ0A8G7htf7ppnT9JK3xLmEt96Xr7IO4n1GD7ODL
+5zU+uE6yLj0nAACUFx6fU93K/pz1vp/33pc2flyAoeig93cIb8qH6H+1+j2w
+TLyW1pZ9kCkpueYxX7Ru8ec+9bUhvtbMS49/igr8jP8Iv2WDF6XHPzXhdI/I
+u3/Gf/3dG+RES6x53EtzW2C9z6/v38HvdAAAYGTCLHzm9imr/1482K/UvqVA
+74WJZwYv5mGVMLZF6Tpv1P30un3pGgHgnYLc4OiF0x7aKev5cv5tLBKuW1w7
+vPh88zuPG+vQYwYA4Nk51S/vz/kgNxjfk36WHj9Alzro/cX7xpdvHsPT/ELp
+eR6acMqbLMMpf9Bm5uRYP+b3EHvEYxZOeZOYMdq3uN5n+/qxva/qifpn/Dt0
+lzE65wW/So+VX9f8q16TQ0dr/svvW6/v/XDxM97Fa/r1+z6v7wAAwKjFffUT
++5QfmZ8vtwH0TpAZvJ6PVcIYF6XrvFH37lndpWsEgHcJcoOTkPL+pyajdp6z
+9PuyLy1eeL5710tWpecCAIB+eHAe4KVGZ4k/yA3u5QaBMeug9xfvHV8WGsvT
+LEPp+R66cMogfNXfM9v6mtvhyffDrv7c+DXLIFcwGPXrw/V6p74WXK77wnXX
+YajX6rzeuVmjY73uaz/rwxBOZ47GXNmmwXpfr/uqfr3ws95TF6/p68zX81v2
+9feNjCgAADAZYVb9LZXQp6x7jpvMe+6WpccHEIX2+4a7MVw/CrKDADBoQW5w
+Eur7FKxp7rzdPwfwkcZzeOc+7UPpeQAAoB8y3p+uGzz254PcoHtfgVHqoPd3
+CIUygxdjetqfLD3vMCbhlDta1OTERuxinW+x9iMSThnx89p+1+8VLn2d/710
+rbS63ssba33NugMAAJOWeu9c4l6o13alxwdQXyNqMzO4KD2mFudmlTDm3o03
+pOUkelc3ALQp8fehjNnAhdN9cKnvZeel6+2bxP2SrmXfW/3gPvCv0nMAAEA/
+xP02E9+PLjIfN+YGj23uiwHQZ2GEmcGLsckOAgAAAADQqngPW4N76HLNS48T
+mKY6M3iQGXw4R0PNDg6ybgBoi9zgdFQfW+v6wvyl35996bvB86ztpwQAwCPV
++8NtwnvRY+Zjft3JDa5KjxegbWPODF6MUXYQAAAAAIBW3bm3Lek8wZB+DuGm
+9DiBaZEZzJqrQWbwhlo3ALThxdzgunT9ZK31d8bazkvX21dhVv1tkHfN49Dg
+OW7dr70oPXYAAPrjznvGxj21B/tkLEuPFaBNU8gMXoxVdhAAAAAAgFY1uH/u
+1/33M/buj73Qj9JjBcav5czgfgrZs6Fm8GLuYYh1A8CrXswNLkvXT9ZaL2RC
+W5rLWfWeN//axyLj8W9dH9mUHjcAAP0R318mvg9dJj7e5k4/blF6rABtmVJm
+8GLMsoMAAAAAALQmzMI8d9/9yufF138k7pFqj1OgU/V91W1lBnvfN2x57oaa
+Hdwl1C23DsCoyA1OR/XxmXFf3NH7nifzmX/9I/e8l1v7Ms1LjxsAgP7I2M/i
+4Xv7uje3e9bDAxiyKWYGL8YuOwgAAAAAQGvi+YEZ98xtb/Ur7+xrejN3WHq8
+wPjUmcGUDNmo+oYtz+Fos4OlawSANskNTkdmbjD6Kl3zENTXNXKyg8dn923X
+j/t142tXpccLAEC/VO8R9wnvQfdPHuPzzuPsU967AvTdlDODF3MgOwgAAAAA
+QGsS75s7PjozsPq3RcZ9d4vSYwbGQWaw1bkcanbwIDsIwFTIDU5Hg9zgtnTN
+Q3En4/fMMuFxr898ScocAgAwHfVZgSnvP1cPHmNRv9f86bxs7z+BoZMZ/N1c
+yA4CAAAAANCaOz3Gn3qOCY9zSOx5Pn0sgEdkBjuZ06FmB5/V/HCPbgAYCrnB
+6ajf6+bcIxffz7pHOGeO069fpJ77cms/pe/S4wQAoF/inhSJ7z8/73z9t74b
+MEYygzfnRHYQAAAAAIBWZJwXuEx4rHs9y1vmpccODE84nb/SVmbwWPch3Wf9
+Y5jZwfq+er1TAEZPbnA6qo/vBu9pb95XzIN5zrt+8fD+7frxrrOIh9JjBACg
+f+qzAZ+97zze+LqPB1+7LD0ugKZkBh/Ojf4XAAAAAACtCLOwbivrV/cuU84w
+jFalxw4MR/Uxf/GeeZnB53M8xOxgyr31q9J1AsAr5Aanob5XbmuN3zTfp+sX
+udnBzZ3HunV2jHUBAOAnN/acePq+M/bnKnt7dQJjIjOYNEeygwAAAAAAtOJJ
+vzF7v/zEPVPtwQ8kkRl861wPMTuYcn/9V+k6AaApucFpCKf9EJrcK2eNX5n3
+9OsXv57/EjOHV4/xceP+733psQEA0D/V+8TPxPedy4uvWSTs2bkqPTaAVDKD
+WXMlOwgAAAAAwMsy9tlfZzzmPOO+u2XpOQD6SWawyJwPMTuY0luel64TAJqQ
+Gxy/+N6qsm+4xpvS9Q9dfR927tmDy6vHWN34nEXpsQEA0D/V+8T/z94d67au
+ZeuCHnqDVW8g1BMY2C+g4IQ3cLJzRRU7K9xMYYVOd9JQXJHDA1TC4IY7MNBx
+AYo66i744gKN00A3VotbdC0tWbYmJZKDpD4BH06dvWxpcHKaFDnnz/lU+J3z
+W8uff8veNoBLZAavajPZQQAAAAAAblbPeSscd2y1ZtP+56vC962y2wAYl44z
+g9+b95IZLGv7SWUHm7n2F8eOs+sEgGvIDfbatt+a7xGrrO829T6q53fd8h03
+ux3n4syagZe8Hv3uuWcnVdnbBADAOBWOnb02z/1su0b2Onv7AM4JmcFb2k52
+EAAAAACAm7UYe2yVu6mzhi3GMx+y2wHIdzR22GVmcJm9XVNS2P6r7DqP6n0y
+rx6AOZIb7KQNH5rvCs9NRm9X2H6vzc/X34vW9ft0XNNzB3Pl7OMu+0r5M5U+
+3Mf4ZO73KnubAAAYp8LvmtsmP9j2O2qVvX0Ax0JmsIs2lB0EAAAAAOBmsYi3
+Ns/Ub/nepc/u32a3A5Cnh7HDeq79Mnu7piimlx3cmlsPwNwUnt+c9z6227cm
+6/fS4ffKd2/N+9ZZxFUUrmnd/OxTs0+7qOntnvdxb33nsKZLyb2R0/nc556Z
+tM3eHgAAxqnlMzevtczeToAexv1293o/pKBtquwaAQAAAAAYt/o5+YVjjc9X
+vn+bZ/e3WtcQmL4exg7rOdnL7O2asphedrAqqFefAGAyQm7wmjZbxyHX12VW
+sNT7GoWn+visXXS4BiIn/eiQBWwzJ/vtk7zhMntbAAAYp3qs7co8YL3Wdek6
+hNvs7QTuV8gM9tGml9qoyq4RAAAAAIBxi0U8FY41Pl75/m2e3b+54f1b/y6Q
+p4exw3p+9jJ7u+YgppcdvFTrW3aNAFAq5AbbtFXX3yfHru4bnrfTZ58qf7aS
+edoAAFxl/31xd8V3zKfmd0uf1fnmWZ3A0Hq4T7O7t3tdX7TtxTHS7BoBAAAA
+ABi35lmlva4JWOf6Ssczr3jv42e0PmW3J3DZ/vXU4dhhFSPKsc1BzC87WGXX
+CAAlQm6wtJ3uLTNYb+dVz/Lhiv5VvpbLZ5bZ2wAAwDjV3xVbfresc4YPR7/f
+5lmd6+ztBe5DD/dpdvd0n6uwjY2DAQAAAABwtWacsWSM8bWDz+l8PDN+XhPA
+c1Rh5OqxvmbMr4uxwypGlF+bk5hQdrCuo6DWl+w6AeCSkBssbacun0ExBfX3
+Mte5Q/ax8rVcrDkIAEAr9fMvW3y3fDk35lV/5yzNHWZvLzBvITM4ZFtfHDPN
+rhEAAAAAgPGKRTwWjjE+d/BZpWsP7lq85/GaidYchJEKmcFJifllBzfZdQLA
+V0JusKSNHprvgdlZvqHUfWKZ3e73qsWzj6w5CABAsSYPeOk75dtXz9jc/9uq
+xffTVfY2A/MTMoMZbX5x7DS7RgAAAAAAxqvF80kfO/isTtcePHk+603rIgL9
+iG4zg68xkrza3IXsIAAMJuQGS9roqceM3pi8hczgKNTPT7oiN7jNrhsAgHEr
+HCPbFrzPzndUYGghM5jZ9pfassquEQAAAACA8SodX+zw8zpZe7B+lv/JGOtD
+dlsCP+xfj9FdZtDY4fD7b1OwX1bZdTa1rgpq3WTXCQDnhNzgpfap56S99JDR
+q59JUTWem+8+z0f/ravvsW3qWdfbm93mNH3vcM+hTW6wvj9h/wEA8KkW6wWu
+C97rqcV31WX2tgPTFjKD6QratMquEQAAAACAcWoxF67q8DPbrD24+eI9Xi/9
+HDC8OOS4KmOH0xaygwDQu5AbvNQ+D02m7tbvlO9r+dXZvFbPnGm+Zzw1v7/r
+6Dvue00vTU3L7Lbmk/2/2F/XlM/H3mTXCwDAuEX52tbLgve6eawN4JKQGRyN
+gratsmsEAAAAAGCcWjyXdNPx55auPVhbnfzuaW7wNbsdAZnBuQnZQQDoVcgN
+Xmqfhxvnpb3nBTtdn77O+cVhfe36u9JLXF6jcNf8zEvzO49d10SP/XARa2sO
+AgDQlZOxrc/sWrzftvD7avF7AtRCZnB0Ctq4yq4RAAAAAIBxikW8XJPf6+Bz
+2zwP9XuTNVztPdZjnCf/Zt4lJAqZwVkK2UEA6E3IDV5qn1tyg398n6znuGVv
+B/NQeO9ik10nAADj1oyLlYyHPbd4z2WLcbZ1dhsA4yczOF6ygwAAAAAAXKt0
+TLGnzy59fv9XnrLbEO5Vx5nBN9mucZlhdnCbXScA1OQGL7bPtbnBt3toH4bX
+PMvo0r2JZXadAACMW4sxsceW71sVvm+V3QbAeMkMjp/sIAAAAAAA12jW8Usd
+T2wxpnnONrsN4R7tX8sb57x/yAyGdWFGZ2LZwW/GTAGYguac9So3+Gn7XJsb
+fPZ9kr4UrOWyza4RAIDxq783Fo59tbq2qbOGLcbVHrLbARgXmcHpMA4GAAAA
+AMA1YhHPhWOJmx5rqOfgvV2RG6yy2w/ujczgfZlSdrCp92Kfy64RAGpX5gfX
+2XUP1C67K+ajrbJrZ/5iES/WHAQA4BaFY2GvV773zjM5gTZkBqdHdhAAAAAA
+gGvUY5CFY4mrnutYt80Ntn3uKnA9mcH7NMHsYEkGY5ldJwDUWuYH19n1DtQm
+bfOUL75TMpQv1nLZZtcGAMD41ev9FY5/PV/5/m3G2VxHwR2TGZwu2UEAAAAA
+ANpq1vsrGkccqJ514TNXN9ltB/ei48xg7dn87umYYHbwRfYCgCkpzA+us+sc
+qC2e236vzK6Z+/PJWi7L7LoAABi//ffGp8Ixuccr3/9b4RjbVeNsR+/f+neB
+cZAZnD7ZQQAAAAAA5qDJM27PjG/W8/OezcmDYRyNH3aVGazzh8vs7aJ1P5ha
+dvCppC9m1wkAxy7kB9fZ9Q3UBquW3y3vol0Yn3qetDUHAQC4xv67Y9X3moBn
+vq9+5u2K934++v2n7PYEyskMzofsIAAAAAAAALfqYfxQZnDCJpgdLMkdtJ4X
+AwB9+yQ/uM6ua8Bt38kNAgAAc9Ws2VeS6Xvt4HNK1x5ct3jfh+Pc4S35RmA4
+MoPzIzsIAAAAAADT0IzT1HmqpzFlbrhvMoN80i8mlR1sai7pn4/ZdQLAqZP8
+4Dq7ngG3+7nFd0xrWwAAAJMTi3gszPM9d/BZpWsP7lq85/Gaia7LYORkBudL
+dhAAAAAAAKZj/3o4Ga+px1yqZhznj0zhWHJXdR1NPav3+rJrotP92/X44ctY
++i6d9I8pZgdfCmreZtcJAOc0383uJuPeXBcVP5siu14AAIBrxCK2hXm+m68H
+u157sM4KdrUuItAvmcH5kx0EAAAAAIBpiZ/XFbl4n7/x0oz5HFtd6fR9no8+
+p/qkjnqs6SG77eisDz51OH5Y95lV9jbReR/ZFOz7Ue33ehy7sM9+y64VAO7d
+F9cdp8xPBQAAJqte468ky9fh53Wy9uD+35cnOUTjQzBCITN4N0rGa7NrBAAA
+AAAAfhbt8oNjsM5uMzrpd+tm3E9mkEt9ZVPQB0a1/5vjaknf3WTXCgD3LA7P
+Myk5Z9fz3pbZ9QIAAFyjyd+V5PiqDj+zzdqDmy/e4/XSzwF5Qmbw7pSM22bX
+CAAAAAAAfNSM61QDZf9u8ZTdVtzc19YhM0i7PrMp6Auj6wdxWKO1JIdg7UEA
+SNLiGsh1CAAAMFmxiKdbMnw3fG7p2oO11cnvnuYGrQUPIxIyg3erZPw2u0YA
+AAAAAOBz+9d24CxgG9vs9uGmvrUOmUGu6zubgj4xuv6wfz0W9udNdq0AcI/2
+r4fS757ZtQIAANwiFvFyTX6vg89ts/bg9yZruNp73Nud/NtDdjsCMoPIDgIA
+AAAAwBzEOPODnic7UdFtZtD44R2KiWYHm9pL+/4yu1YAuDctrnvMTwUAACat
+NLvX02evW2QHP2MteEgWMoP86AuygwAAAAAAMAP719PA2cBLY0ffstuE1n1o
+FYf1AY0fcmtf2hT0kVV2nZ/Uvi7s41V2rQBwT5r5biXn6G12rQAAALdo1vEr
+yedVPdZQ3ZAb3Ga3YSdtcBgzWWXXAW2FzCAf+4QxLwAAAAAAmIkWmZc+1eNQ
+1vmYkJAZpPs+tSnoK6vsOr+of1fY3z07GwAG0uJaZ5ldKwAAwC1iEc+FGb1N
+jzUs996uyA1W2e3XWRsc8lcvzbXma/O/N82YyqjHwer6XB/fn5AZ5PO+ITsI
+AAAAAAAz0mJObV/W2W1AcV+px7cr44d0LaafHWxzHB31HBEAmIv4MV/TPCcA
+AGDWYhGvhTm9Vc91rNvmBve+Zbdf5+0Qsb0wNlLFj1xh7bEZf1l1dR98/1oe
+v2dzD/v987ZNDcfjPZ7zeUdCZpDLfcQ9NQAAAAAAmJk4PE+0q/GhNp6zt52i
+/rGK7jKDdT/bZG8T4xITzw422/DaYgx9dvNhAGBsCs/Lj9l1AgAA3KJZ768o
+qzdQPevC9Qc32W3Xazt8nR8cI9fHdyBkBinvK5f2fZVdIwAAAAAA0F4Mnx98
+zd5mLvaJZZSt11LirRmPlJnig5hHdnDV5vjnbwEA+hOHNRsufj/NrhMAAGCO
+mjzj9kyGcLf3XP97do2DtEPE04BjbrdYZ7cVvfdFmUHa9plLfaDKrhEAAAAA
+ALhOHPKDuwHGId/kZsYrDpnBbYf7emN/85WYQXaw2Y7nFn8b8oMA0JPCc/I2
+u04AAADmrc5XDTDmdottdhvRa/+TGeTavnOpL1TZNQIAAAAAANfbv/773v/b
+81jkKns7ObvvlyEzSIKYT3bwW7TLX8sPAkAP6vlLBefhx+w6AQAAmL845Ae7
+ym516SW7beitz8kMcmsfutQnquwaAQAAAACA9pqxyzaZl2ttsreVD/t+Gd1l
+Bmv1Oi/yUBSLmWQHm215aPn3Ij8IAB0rPAc7/wIAADCI5r7xmPKD7kvPUMgM
+0l1futQ3quwaAQAAAACAcjFcZvCPscjs7eWnfV+PIT53uH+3e8vs7WJ6YkbZ
+wWZ7nlr+7bxNafsAYMzi8FwM1yUAAACMSownP1jX8JDdHnTat2QG6bpPXeoj
+VXaNAAAAAADAZXVOJQ7PFR1yLHKZvd30Moa4tW+5RcwsO9hs0/aKv6VNdt0A
+MHXNdc7F76/ZdQIAAHB/4pAfHHJs7pzH7Hags/4kM0gvCvpKlV0jAAAAAADw
+uWYubWUs8v70MIa4DZlBOhAzzA422/Vyxd/V6xS3FQDGIg7rql86326y6wQA
+AOA+NWM1WfnBTfb201kf6nK8bxcygxwp6DNVdo0AAAAAAMBHkZcZrL1kb/89
+62EMcRsyg3Qo5psdvGUOiL8zALhC4fcKzzUBAAAgzY33jo3V3akexvt2ITPI
+GQV9p8quEQAAAAAA+KHOnjQZlCHHH4/V41ffstvhXnU8hljFBPNbjF/MNDvY
+bNutc0Dq4/dD9nYAwFTM+XsFAAAA89HcOx5q/G5nrG66QmaQgZWMGWfXCABw
+q1jEam+7t9v7fka197S3zK71pO7lF3W/7q2zawQAAGA4kZ8ZNC83d/+vm7G/
+LvZhZT/Sp5j5HP/oZg5InT98ig7XIty/Hppjxab5O68K6nhrfu6l+b3HMOcE
+gBGZ+/cKAAAA5mX/+s8Bxuo8n26CQmaQJAV9qcquEQDgWrHYf89exMsnecHP
+PNe/N4La14X1brNrBQAAoF8dZVS68pzdHvcmZAaZoLiTOf4dHpvrHOFzHHJ7
+y8LPrs8NqzjkD+vcX1dzDY7nHPxRU3Y7A3Df7uV7BQAAANPW3K+tOr5Pe85T
+9rbSum/IDJKqoE9V2TUCAFwjFvHwxTqDl7xmrkG4/+zHlvVustsbAACA7vUw
+jnTs/7jid+o60p+3cy9CZpAJizua49/8rfZxnN7Fj7UDT3X9WSXH/214ljUA
+Ce7pewUAAADTU983HfC+7Uv29tKqb8gMMgoFfavKrhEAoK1mvcHXK3OD73ZZ
+6w9ekXncZbc5AAAA3elhHOk0/7FuPqft71p7apj9v47uMoM7+40McWdz/OMw
+N+S1h2P2GL2GuQkADOjevlcAAAAwDfvXMg7PXBvq3qxnfE5EyAwyMgV9rMqu
+EQCgrVjsr8duyw2+qxJqf7im1uw2BwAAoBvR3/pVb80Y1bejz2rzOZ5j2v++
+X0V3z6U1hkiquNM5/oXbPReOMwAM4l6/VwAAADBOMXxm0LXvRITMICNV0Neq
+7BoBANqIRaw6yg2+exq4/o3sIAAAwP2JbteaO/YhM3j0mVWL91hmt9Fchcwg
+MxR3PMc/DvNGuvqbnoLXue5LAMah8HvFOrtOAAAA5i1+5MIy7sM+Z28/RX1D
+ZpBRKuhzVXaNAABtdLjm4Lu3vcHWea/XOpQdBAAAuB/RX2bwj3HEOJMZPPrs
+beH7DPpcnXsRMoPMWNxxdvCoDbr8G5+CL885AHCt/eux4Dy0ya4TAACAeYru
+c2FtvWa3AYP1jV0Y76MHBX2vyq4RAKBUnfE7k6urs3iPzXqE1+YKtwNuw+6K
++qrstgcAAKCd6DdTso2CdQKjLNtjPHLc+74ei5TtZHQKjy+r7DoHaos+j/dj
+s7uX/QrAcJpz6aVz0Et2nQAAAMxL5GcG3z1ktwW994363vo6e7uYr4I+WGXX
+CABQqskIHmfqPowT7v/bsllLsG0+bznQNlyTbTRHEAAAYCJiBJnBo1pK1u9Y
+ZbfZXNT7pp7T3NG+fmvGJK3xxSiF7OC5NqmPAc/R31qzXx0vqi/08Zmb7PYG
+YD7iMB/v4hy77DoBAACYj/1rnXAv173WkQuZQSaqoC9W2TUCAJSKRTyX5P32
+/3091rUHr8wOmicIAAAwcvvXQ48Zjfp9Wz9zNC6v32Htjm72/TIOuc4u9rXM
+IJMQsoOX2uehaaPXjs8Hu+Z489SmfeMw32HV1NTVuWrrWAVAV6JsTp7zDgAA
+ADeJ/jKD/3XF77xmtwf/7hcyg0xaQZ+ssmsEACgVi6iO8nTVhZ/djTGjd0VN
+5nECAACMWHSbG/twDz9uzN5ceP9ldvtNWcf7XmaQSQnZwbbttYpD3u+5ObZf
+yhS+ryX40rT1Y5fH7DjMg1jH7WulvjpuAdCFwnPSOrtOAAAApqm5x7rrcAzv
+WD1W9N+v+L3Wzw2l834hM8gsFPTNKrtGAIBSsdh/P/+Rqdtc+NnNFTm9L9+z
+o21oW9Mqu90BAAD4KEaeGTyq87PP2GS34VT1sO/rMUnZGyYlZAdnozmmPd8w
+N0J+EICbFX632GbXCQAAwLTE4bluVU/jefVY0fLoc9r87nN229yzkBlkZgr6
+aJVdIwBAqZNM3eOFn11ekdPbDbwN6fUAAADQztFYUh9jjJ2PK30yHvom53H1
+vn/uY0wZpqbwOLjKrpNW+/SW85v8IAA3ibI5lrvsOgEAAJiGGCgzePR5y5bj
+ge6n5vQLmUFmqaCvVtk1AgCUarse3/5nXq7ID36ZSex4Gy5ZZ7c5AAAABz2M
+JQ0yrrR/vZz5vE12e05JD/v+w5gyTE3IDs5WM8eluuLYJj8IwE0Kv2871wAA
+APCp5v7mubGxLlRf3fdu8T69zlHl7L6RGWTWSo5f2TUCAJQ4s47gquB3Vldk
+B1963g5rDgIAAExID2NJx+r3fOq5/s2ZzzTfNmffb0NmkJk4c2w5Z5VdJzft
+46crjn+93lsFYN6iLLu+yq4TAACA8YlDZnDbw1je97iQGTyqYVfyXtltdU96
+GOur9/E6e7vglGMPADAXZ3KARfMc6wzeFfnBZY/bYc1BAACAiajHfgrH+dp6
+a8apes/wNdtw/Nmb7HYdux7GEbchM8jMhOzgXdi/HuKwnmCbY95zdt0ATFPh
+94ten70CAADAtES/mcFdm/vcUfZMnGV2m92DHsb66r6wzt4u+ExBH66yawQA
+KHWcrWvxO09XZAc3PdV/unaiNQcBAABGKGaQGTzaltXJ51tz8PO26nocsWoz
+pgxTErKDd6M5NpbMeTn2mF03ANNTnz8KzjGb7DoBAADI18OYzs05sf3r2TXt
+7PrFVX0BhlYybp1dIwBAqSuzg9+uyA7ueqr/dO1Eaw4CAACMSDNXddfDGGNt
+Gwm5vTg8b9WY5OV2Wne476uQmWLmQnbw7kS7Z3fLqgPQWhzWuzXPCQAAgE/F
+CDODR7V9dd/cPdNp9Yub+gIMzT01AIA/MnvbK/KDnT8buzA7uMtuLwAAgHsT
+h7X5qh7GGL83WYtl8va912JM8mPbrENmEFq7MAfi3Sq7Tjrf79sWx8SX7HoB
+mB7znAAAAPhMx9mw01zfpoP6Vl98xjq7/eYoZAbhD+6pAQAUZ/ZOdT63pV5P
+0JqDAAAA4xEzzwwebedrXU92HWMSMoNwk5AdvFv710uL42Pnz2cDYN7McwIA
+AOBUx2M6HzKD0dGzN+Pz7OAuuw3nJmQG4SfuqQEAHMQiXq/IDy47rmFjzUEA
+AIB8+9eyZfZh0jmypqaH7DrGoOPx5fp95GK4SyE7eLeaORmvLY6T1rwFoFjB
+ueU1u0YAAACG0fGYTm+ZwZOaz32esaTu2ldmEM4o6OtVdo0AAEMoXPPv1Kbj
+Gl4ufJ5rRAAAgB7FITO47WGMcZSZwaPtHmVdQ7dBi6yLcUS4IGQH71pzPi2d
+m7HJrheA6Sj5zp5dIwAAAP3qeEznVD1OuOyx9tP7plV2e85ByAzClwr6fJVd
+IwDAEGKxv3ZY7K8b2mUHdx3XsPvis6rsNgIAAJir6DczuJOPGa9mfLkyjgjd
+CtnBu7d/PRYeO+u5HNYeBKBIwRzAXXaNAAAA9KPjMZ1BM4NH23Ba/yq7Xacs
+ZAahSEHfr7JrBAAYSiz213/t1x5cdfTZ34b4HAAAAH7oYTzJ2NJEdDy+bF/D
+iZAd5NAPXgqPo5vsWgGYBvOcAAAA7k/HYzofriNjgMzg0bZsjz77Nbttp6qH
+MV5jfcyae2oAAD/EIh6uyA5uO/rsxy8+4yW7bQAAAOakh/EkY0sT0fH48pt9
+DeeF7CDf/32+LTnXvmXXCsA0mOcEANNTcp8tu0YAxmn/WsbPWbsuVRn3qE/u
+na+z23hqQmYQruKeGgDAz2KxvyZsnx/81sHnPn/x/svsdgEAAJiLjseTTnNk
+m+zt49P9voxuM4N1P7r5fgDMVcgO8qMvPBUeW9fZtQIwbs13evOcAGBiSq4J
+s2sEYFxihpnBo217bOrYZbfzlITMINzEPTUAgJ/FItZXZAefOvjc10/e+zm7
+TQAAAOagHv9pxoG6HmOUIxuxjseX7WsoFLKD/NwfSs6/r9l1AjBucVhD/NL5
+xLgaAIxMyX237BoBGIc45MO6GtM5lxV7HME2vl/b3jzn9B6EzCB0ouBvo8qu
+EQBgaLHYX2e0yw7ubvy85Sfv+9bFmoYAAAD3LGQG71LIDEKqkB3k5/6wLjze
+LrNrBWC8omwt2012nQDAz0quB7NrBCBXdJ8PG21WrNnWN2NOg/eJUfUDGFrB
+30iVXSMAwNDqtf6uWHtwdcPnPX3ynpvstgAAAJiqODy3c9fDGGNtK98wTiEz
+CKMQsoN87BMlczw8axuATxV+z09fQwIA+FnJfbjsGgHIEXeUGTzZ7m12DWPV
+Q58YbT+AIRX8rVTZNQIADO2LdQC/sr3h8167XssQAADgXsUhM1j1MMYoMzhi
+zVhiyVxi+xoGELKDfOwTzwV94jW7TgDGK8qeDbPMrhMA+FnJvbjsGgEYXhzW
+lu8jM+i5kBMUMoPQq4K/mSq7RgCADLGI6or8YOvrzS9yip6LCgAA0EL0mxms
+zEEdpx7GErf2NdwuZAf52CceCo/D5vQA8EEc1he/OD80u04A4KOSa8HsGgEY
+Tp3nirJnw8gM3oEexvnqvrXO3i4Ym4K/nSq7RgCADLHYX6O2zw4+XfE5z2fe
+p8refgAAgKlo5pBuexhjfM8MrrK3kbP7XWYQRixkBznfL0rmBHmmGgAfxGE9
+ikvnkJfsOgGAj0ruzWXXCED/or/MYO05ZAYnpYdxvrpvrbO3C8aq4G+oyq4R
+ACBLLPbXE+2yg7srPuPtzPussrcdAABg7EJm8C71MJZY96Fl9nbB3ITsIOf7
+xXNBv9hk1wnA+OxfrwXnkNbP+ARg/GIRD/Ucir1N82zm6mgux3OL91nWz4Nu
+fv/cPI3vzX+vmp9bZm/7XJTco8uusZft1ncB/lDfB27G3foYzzPGMzE9jPPt
+QmYQLir4W6qyawQAyNLcv2u79uCqxfufW9twm73dAAAAY9aMKW17GmOsx5es
+dzRCPYwl1uPUD9nbBXMVsoOc7xcr49MAtFV/by/8jr/MrhWA61zIWH3lYm58
+/zOPzfu1nfvxvfk9949u3b8zzg7quwCfC5lBfu4PMoOQyNgMAMDnmmd3tb3/
+tm3x/ufuFy6ztxsAAGCMehhTMr40EfW+afZRF/u6HqdeZW8TzF3IDnK+X3wr
+OSdn1wnAuETZs2N22XUC8LUbMlZfWX7xeasbcleniteI48y+mHh2UN8FaCcO
+z3+pehjLex/jkY2ekB7Gd43pwhVKjq/ZNQIAZIpFvLS87/a2963gfR/P/O4m
+e3sBAADGpocxJeNLExEygzBZITvI533j4nE9u0YAxmP/WhZ+399k1wrA1zrM
+Qr17/eKznjv+rO9N/RfngnBmf0w/O6jvAhRort+2PYzlGeOZoB7Gd43pwg1K
+jrPZNQIAZPok43fJuuB9T+8tFmUOAQAA7sn+9dThmNKxt2a8ynXYCIXMIExe
+yA7yed+oCvqGZ4cD8Icon3e6zK4VgHbq+RHNfIxrc1kf1lPb/7dlncvqIXv1
+7iW73aao5FyeXaO+C3C9kBnk5/4gMwgjVHK8za4RACBbLPbXHx09I6x5v9WZ
+33nK3k4AAICxiG6zY8dkBkes4/2+M54MeUJ2EH0DgBvtXw+F3/3NhQeYuFjs
+rxPaZ6FWJ+/x0Dyzua/s1btNdntNTcn5PLtGfRegvThkxJ57GMuTF5ugkBmE
+USv4m6uyawQAyFbn+q645/bps7HPZBF32dsIAAAwBtFfZvB7M34pMzhCdUZk
+79VYIsxHyIehbwBwoyhbq9Z5A2Amot0abm8nv7v6JHtV/7ft3rr5mXePzX+/
+NoO1zG6vKSk5n2fXqO8ClIvuM2LGeCash/6gD0APCv72quwaAQCyxWJ/fdP+
+ftv2k/dan/nZdfY2AgAAZIpDdqx0Xmhb271l9jbS+343lggjEvJh3NY3HrPr
+BCDX/vVUeB3wml0rAN1o+Uzn7dHvrT7JXdXrwX35HLE6R7X32tV8ED5p5/ln
+B/Vd4C5Ev5nB+j2fsreR1P5gnA96VPA3WGXXCAAwBlc8t+vt9F5ek0E8XXPQ
+mCYAAHC3QmbwLnW8340lwgiF7CCf943Hgr6xya4TgDz710OLuYer7HoB6MYn
+OarPrJvfeYiPa7a9XMpdnXzutysyWB/mg/BFG88/O6jvArNXj8M04zFdj+W9
+NfeSHZsmImQGYZIK/har7BoBAMag5b2+s+sJNs8GO/2ZVfa2AQAADK2ZC1r1
+MMb4vXnfh+xt5Ox+X3W439+MJcJ4hewgn/eNdUHf2GTXCUCOZg7ia+m1X3a9
+AHSn5ZyMb2eyV/X/vmoN8+a92s4HsV56afvKDuq7wGSFzCA/+oLMIEyY+2wA
+AOXi45qBl7we/e7yzL9X2dsEAAAwpP1rGYf1ALseY/zjfrYcyjhFt1lR48kw
+ASE7iL4BwBX2r5cW1waeGQMwI7GIp9J5GPFxvbX6f990Xtj//rblfJBtdptN
+Rcl5PbvGG/uOvgvMzv71GP1kBr8344TGeCYiZAZhFgr+NqvsGgEAxiIWsb7i
+eV0Pze9WZ/5tlb1NAAAAQwiZwbvU8X6XGYQJCfkw9A0AWmp57fCcXS8A3YrF
+/lqhbA5GndN6Oc1jdfD5jy3nglTZbTYVJef27Bpv7Dv6LjAb9X256O5ZkKfq
+a75l9jZS3BdkBmFGCv5Gq+waAQDGonn+11vb53V9cp9um709AAAAfWvGlZ57
+GmM0xjRSITMIdy/kw/i8b5R8L9A3AO5My+uHnesDgPn55HnM5xxnr3ZdZK+O
+amj1LOnsNpuKkvN7do039ht9F5i8kBnkR1+QGYQZKvhbrbJrBAAYkyYL2Oae
+29snecNl9rYAAAD0pYdxJWNMExCHzOB/drSfZQZhwmJE2cE4zHvZlMhut3sQ
+ZXOQltl1AjCcaP/ckVV2zQB074rnONc//9BxDa8ta3DfqqRd558d1HeByWrG
+dUru112jcv02HSEzCLNWcszOrhEAYEzq+3dtn9d1xjZ7OwAAAPrQw7jSaZZs
+nb2N/LS/H+p9sve/7f1fHe7rbciNwKTFuLKDJbVMfq7iVDRzRuwHAN6vH19a
+XitssusGoHv1s5evmHfx1EMdpevHvVtlt90UzPl6XN8FpioOmcFtD2N5f+RP
+hrr3Syd9QWYQ7kDJsTu7RgCAsbnieV3WHAQAAGYvDhmyi3mAK1h/bgSascNV
+sy+qDscQj9Xj1MvsbQVuF7KDnN8X30rmlmTXCUD/4vAckteW1wsv2XUD0I9Y
+xLrlnIuqpzrkr/po1xlfj+u7wNREv5nB16Hu+dJJX5AZhDtS8DdcZdcIADA2
+V9z7s+YgAAAwWyEzOEvNXN6nZgy5j/17rP6MZfY2A90J2UHO74vHgv0gFwIw
+c811xjVzUF0bAsxULOJlDM9rlr/qaf/O+Hpc3wWmIrrPiR2rx5DW2dtIWl+w
+/2ECCv6Wq+waAQDGKBb7aydrDgIAAHesmf+/62GM8T1LZl7ocPty2ezP5zis
+KdjHPv1sPy+ztx/oXsgOcn5fPBfsh012nQD0Iw7rmLdda/B9HqLrQ4AZazn/
+4rnHOuSv+mjXGV+P67vA2IXMIP31BfsfJqTgb7rKrhEAYIzqe3pX5Aa32XUD
+AADcqpnvWfUwxihLNuw+rMcHX6L/NQXPjj3sPWS3A9CfkB3k/L4oyYsM0i8A
+GE4cnlXycuW1w5trB4B5qzNMLeZc1Dmt3vLk8lc9tetMr8f1XWDsor/MYP2e
+m+zto7gfyAwCJd/Jq+waAQDGqF4/sOV9t17vAwIAAAwl+skNbkNmsK/99VCP
+4TVtfM0aH12q+84qu02A/oXsIB/3wzf7AKB/cXhOSO2xOQceWx/9e+9jVk0N
+t1w/1tcvcoMAMxeL/TlqBOu2NbXIX/XRrjO9FtR3gbFqrv12PYzxvDXXluZA
+TsD+9d/2/nPv/+lo/9d9ap29XcB1Cv7Gq+waAQDGquW9t012vQAAAF1o5pnK
+ko1QHHIZ73OEq+jnebLX+B/2M9yXkB3k434o+f5QZdcJMBUdfvevf3cbh7ml
+yw7qqmt6jtvnqda5QfNRAe5ALPbH/PJ5F8uea2mVv8puu6u2sdt7u1O20neB
+uQmZwbsVP54jWl+P/+8d7/+6T62ztxG4TcHfepVdIwDAWMVif71lzUEAAOAO
+xe1rD1ZdzM+4d3GY6/MUh7m+fYwH3+p/7f237HYChheyg1y3HzbZdQKM2f61
+bL7/33o99pV6TuhLc9x+bK45lmdqeWj+bR2HuYld1lR/vnE1gDtQz6NokXd6
+GaCet7nnr0J28N1K3wXmojm273o6Xm7PXROSur+Pc4JdXoufqvvUOnt7gW4U
+/M1X2TUCAIxZ4f23TXadAAAAXYrr55i83jov417FYZ7w+xoefY4FduU/s9sM
+yBOyg3zcD9ux9AmAqYnDnMCXEXzHH8JTdnsDMJwWz2uuPQ5QT3H2ql7nLbv9
+rtpG2cFOrj/1XWAMmmN61dNxchsyg+kiZ2xwFzKDMDsFf/tVdo0AAGNW5wIL
+7rsts+sEAADoWssxKuNM7du3HvPdxGGO8FviPJqrxpSz2w/IFbKDfNwPJd8b
+rDEFcCQOmcHdCL7fD6HezofsNgdgWLGIbWHW6W2AWlYt81fb7Pa7ajtlB9+t
+9F1gqqLfzGA9JrXM3sZ7FD9ygptm/w49NrgLY7kwWwXHgCq7RgCAMatzge65
+AQAA96gZwzLO1E1bPsRhXvA2DmszZs+ducUmuz2BfCE7yMf9cHGuS3aNAGMR
+95UZ/N6cq+XHAe5QnasqzDo9D1BLm3XkapNcKzdkB9+t9F1gauIwLrft6bhY
+3XpspNW+/Ba5OcFjuzCWC7NXch7IrhEAYOxiES/WHAQAAO7RF2OU9RjXJru+
+MRrZeGDX1tntC4xDyA7ycT8Ylwa4IA5z+af+LJE2qrCeBcDdikU8tMg69b42
+bYt15AarqZftlB18t9J3gakImcFJi8O4YH3+3cRhXcfdCM6D30NmEO5Kyfkg
+u0YAgLGLRTxacxAAALhH8XHtwbewZsRpG9XjgU8jGw/swzq7rYHxCNlBPu4H
+49IAn4jDPMLnEXynH0o11PcAAMarXvusMOe0G6ie1xbZq0Fq6mU7ZQffrfRd
+YAri4zhcV3Z7j9nbNzcx3pzgsf8zjOnB3Sk4NlTZNQIATEF9f82agwAAwD2K
+w7NOZQa//3sMdx2Heb/VCMb/hlDve8+qBn4SsoN83A/GpQHOqL9Lx/2sNbh1
+7QDAu1hEVZh1eh6glmXLddu22e139bbKDr5b6bvAVES34027kBvrct/U59Wn
+5np37Nf2/9/e37LbDMhRcIyosmsEAJiCWMTG/TYAAOAexeEZmsvsOpK2ux4T
+3MTh2aFvIxj3G5rcIHBWyA7ycT8YlwY4EYfnjnR5HfHaXJtsGo9xuGZ59/7f
+tzHcs05emu286+fMAPCzWMS3Flmn3u897T9j3TJ/Ndl1mkJ28N1K3wWmoqNj
+9y5kBrvYD1PJCZ76v8N4Hty1guNElV0jAAAAAABki8N6IOuJjgn24dU4I/CZ
+kB3k434wLg1wJA5rld/6nXzXvE+dEbwqmxeH65x67uNL835dXCfcVBMA81fn
+lwpzTruB6nlpkb0apKY5mdP1uL4LZInrn//y1twfdX3Wrr3fxwSfb2j7saiv
+05fZbQrkKjhWVNk1AgAAAADAkOKwpuBjM5469THBvsYZjTMDnwrZQT7uB+PS
+AI04PI/k2u/ib83v9/Icj/ixvvo6fqxTWJ3xYX3D7HYFYDpisT+XlWWdtgPU
+0mYdudomu/2mZk7X4/oukCXarz0oM1jetnPKCRrPA84qOF5U2TUCAAAAAECf
+mjHXLtfamDPjjMBFITvIx/1gXBrg+x/Hw+2V38PN+wRgNur1zwqzTo8D1LJu
+mb9yLm7bxjO6Htd3gUwtriddO37ehsu4n2eHbvUD4J0xGgAAAAAA7kkzLriO
+eT4/tPdxxuz9B0xDyA7ycT9cav9ddo0AfYvrc4P1ucx8PwBmIRaxLMw5vQ1U
+z2uL7NU2u/2maC7X4/oukC0O41tfjuHUP5Nd51jEx5zg2wjG2YznASkKjhtV
+do0AAAAAANCFOGQGs8frpmqbvf+A6QjZQT7uh1ftD9yzuC43WIV5nwDMTCzi
+aSxZp/1nPLRct22Z3X5TNJfrcX0XGINPri23937tuH99q+83x33mBE89Ze8P
+YHxK7kNm1wgAAAAAAF3Zv3YjGLebmk32fgOmJWQH+bgfqrH0CYChxXXPMNlk
+1w0AfYhFvBRmndYD1LJtkb3aZLfdVM3lelzfBcYgfl57sL7f9pBdU0IbHOcE
+X8K437F19v4Bxqng+FFl1wgAAAAAAF25ct7uPVtn7zNgekJ2kOv2g2diA7MT
+h/mMbb5/vw11jgSADC3yTt96rmPZopa3vuuZs7lcj+u7wFjU99Du6box5ARL
+7yXcXY4UKFdwHKmyawQAAAAAgC4ZWyy2zt5XwDSF7CAf98O6YB9ss+sE6FIc
+1kJ4a/H9+3VvmV03APQlFvFYmHeqBqilzbpt6+y2m7I5XI/ruwDDiENOsM5G
+bptr5OxxsimQGwQuKjiWVNk1AgAAAABAl8Lag8YZgV6F7CAf98NDyfknu06A
+LsVhTYTS7+D1nEhrwgAwa7GI58K8U69rkrdct63Kbrepm8P1uL4L0I+QE7yV
+ewlAkYLjSZVdIwAAAAAAdC2sPfgZuUHgZiE7yPl9UbL2lnMQMAv712OL7+Dm
++gFwF2KxP+eVZZ56vS5osW7bW53Vym63qZvD9bi+C9CPOOQGs8fFpsq9BKBY
+wTGlyq4RAAAAAAC6FtYe/GycUWYDuFnIDnJ+X5Ssv/WcXSfAreq5e1GWl/7e
+/Jy5fgDMXov10nY91/HQYt22x+x2m4OpX4/ruwD92b+WIxgbm6Jt9r4DpqXg
+uFJl1wgAAAAAAH0Iaw8e83xSoDMhO8j5fbEu2A9v2XUC3Gr/ei4891jzG4C7
+EYv99UBZ5mnbcx3VGOq4J1O/Htd3AfoV1h5sa5u9z4DpKTi2VNk1AgAAAABA
+H/av1QjG+MagCrlBoEMhO8j5ffGtcF+ss2sFuFa0WzNhnV0vAAwlFvFSmHta
+91hDaQbsNbu95mTq1+P6LkC/Wl5H37t19v4Cpqng+FJl1wgAAAAAAH2JQ24u
+e6wv0zZ7HwDzE7KDfL4/Xgr2xS67ToBrRfl6CS/ZtQLAkGIRb4XZp16eb1W/
+b2ENb33VcK+mfj2u7wL0r8W19D1bZ+8nYLoKjjFVdo0AAAAAANCXuO+1B7fZ
+7Q/MU8gO8vn+WJsLA8xVlK+V8BbW/QbgjsQiVtlrphWuHVdnrx6y22tupnw9
+ru8CDKPF9fQ9qu8hOMYDNyk41lTZNQIAAAAAQJ/iPtcefMpud2C+QnaQr/fJ
+W8H+2GXXCdDW/vVceM5ZZ9cKAEOKxf66rCx/9dzT568LP9+8/D7af8LX4/ou
+wHDC2oPnyA0CnSg43lTZNQIAAAAAQJ/i/tYeXGe3OTBvITtIN/tkk10rQBtR
+lo2ususEgKHVa7IV5p9WPXz2Q7Mm26XPXme301xN+Xpc3wUYTlh78NTr3rfs
+/QLMg3uWAAAAAADwx/3yagTjgH2r5zKvs9samL+QHeTrffKtxbnLc7WBSai/
+Zxce11bZtQLAkGKx//5flr363tNnl2S/1tntNGdTvR7XdwGGF9YefFeF3CDQ
+oZLjTnaNAAAAAADQt5j/2oN1blD+AhhEyA5yeb88F+4Xz9cGJmH/eik5pmXX
+CQBDq7NNhfmrquPPlb0aialej+u7AMMLaw/Wttn7AZifgmNPlV0jAAAAAAAM
+Iea79qDcIDCokB3k8n751pyfzJcBJi/K11NdZ9cKAEOLRWwL81fPA3/u294q
+u33uwVSvx/VdgBxx32sPdnpOAXhXcPypsmsEAAAAAIAh7F8PIxgX7Fq9XtMy
+u22B+xKyg3S8b0LeBhix/eux4Dj2ll0nAGRock4l+avHjj6vXrOtKsheTeI5
+W/s6f937fe+v2bVcvQ0TvR7Xd4tqrvvnX/f++Um9f51y3wVyxP2uPbjObntg
+vgqOQVV2jQAAAAAAMJSY1/NM69zgt+w2Be5PyA5Svn9ezZ8Bpm7/ei44hm2z
+6wSAodUZp8Ls1fcu8lD791juvV74nPrfR3+/bF/jfzSZwX9nsLJrunpbJng9
+ru9erLfOBP6rRRvVftv7c3btwDTMbKzukjf3PYG+FRyLquwaAQAAAABgKDGf
+55lWITcIJAnZQcr3T9s1f9fZNQOcirIcdCfr0QDAlMQinobKX9VrvxWsE/ec
+3SYF21FnBv9xbv227Nqu3qYJXo/ru5/W+usVmcFTf8neDmD8ZjRWd0mdGxzN
+erLAfBUcj6rsGgEAAAAAYEgx/eeZbrPbELhvITtIT/uosc6uGeCYcwwAnBeL
+qFrkiTZXfka9XtvLhffe7a2y2+PCdvzySWZQdjBnf+i7H+v9242ZwZ/WIMze
+HmD8ZjBWd8ku5AaBgRQck6rsGgEAAAAAYEgx7eeZbrPbDyBkB2m/n6qW57un
+7JoBavX5zNwbAPgoFvHtijxR8ff8eq23vW3Bez7XtWS3xxfbUWcG/16wHbKD
+w+0TffdjzV/lWq/1t+ztAsZt4mN1l7zujeIYD9wH9y8BAAAAAOCH/Wsdh2d9
+Zo8bXkOOAhiFkB2k/X76tvfW8rz3Yo4NkK3+Dl5wvNpk1wkAQ4tFPF6ZJ9o1
+man691cn1s2/7Qrep143bpndDl+0z5/rtddatIvsoL6b1R5drjc4m34NDCPm
+ufZg5Z4mMLSSY1N2jQAAAAAA0LeYdmawts5uQ4B3ITvIdfvqIdrnB3dD9SWA
+cwrPM4/ZdQLA0KJsXbXaW8dZpPpzV9nb/0W7/OkoM/h7nZ068s85Zqymdj2u
+7/7UFr9+UuvfzvXJOGRiL/XlY/+qfyd7O4Hx2r+WIxh/69I2u02B+1RwfKqy
+awQAAAAAgL7E9DODdcZind2OAMdCdpDr99fq2nk34XndQII4rIE6inMeAIxJ
+lK2vVnuIw5pspT9/zuveU4xorbYv2uVvTbbqT2f+7bOcluygvpvVFqcZwN/O
+9d1PfvcvTTbwUhv8lr2dwLjFfNYefM5uS+B+FRyjquwaAQAAAACga/vXY0w7
+M1irc4MP2W0JcCpkB7ltn61vOC/W+1uGEBhMPa/G+QUAflbnoApzU28nv1dn
+sZ6bPNVXv1fFYY229VgzV1e225/mmB2cEn33p236y0ntv17xHvU6hL9faJN/
+leYRgfu0fy1HMB53q3V2OwL3reA4VWXXCAAAAAAAXYnDekYX5/dOgNwgMFoh
+O8jt+2194znyeW85UK2rI49Nn1uf/Hd5RpipkmuL7BoBYGjNOmol+auX7FrH
+RnYwvf313R9tcbzmYOvc4NH7/OnM+oWnrn5/YP7q+2p7ryMYl7v2PuVjdhsC
+FByvquwaAQAAAADgVjGfzOD3Zox0md2mAJ8J2UG62XcPzfyaW8+ZT12cN+Pw
+jPN1HHKJ136nqH9v29TkGQAwAyXHg+waAWBoda6qMH/1lF3r2MgOpre/vnto
+h1+PtvVvHbzff1xoz5s/A5ifOGQGNx3cH8ziGaDAaJSMXWTXCAAAAAAA14p5
+ZQZrdQbC2kXAqIXsIN3tv4fo7rniuzjk9jbN94NP5+7Ej/UC6599aX63rzlE
+dU2ePw4TFbKDAPBBYfaqZj59edvJDua2/1313f32/dZs5z87fM9/fNGe/8je
+ZmA8YvqZwfexvFmfK4BpKThuVdk1AgAAAABAW9FtZvB/7v3XCMYa6+2RGwRG
+L2QH6XYf1vOFXkZwHu7be45wmd3mQLmQHQSAn8QiHguzV7vsWsdIdjC17fXd
+H23xr2Zbf+3wPX/9ok07yygC0xXzyAzWPAMUGJ2CY1eVXSMAAAAAAJSq59tH
+d/mCt2ac8n28MnOscZvdtgClCo+ZqxHV8ofsduPivnyK6c8dKlUN9TcC3CZk
+BwHgJ7GI58L81Ut2rWMkO5ja9vruoR1+6SPPt3+/P8kOAufEfDKDtXp8Um4Q
+GJ2SMYnsGgEAAAAA4JI4ZAa3HY3t/TszePT+3xLHLbfZ7QvQRsgO0t/+rM/3
+VdL5OEM11N8KcJ2SY1J2jQAwpFjEa2H+6im71jGSHUxte3330A5/bbbzLz28
+9++yg8C7mFdmsLbNblOAz5SMRWTXCAAAAAAAn4meM4Mnn7VJGGtcZ7cxQFuF
+x8vViGr5Q3a70Wq/Pu7tEucCDW372fcTIFeUrXm+yq4TAIYQi1gWZq9qD9n1
+jpHsYFq767s/2uLXvb/V6wT28N7/+KRN/5G93cBwYn6Zwdomu10BvlJwHKuy
+awQAAAAAgFPRbWaw9nxpTn4Mv/bgOrudAa4RsoMMpD5Xxv1kCOvvII/ZbQ78
+rPA8428XgLsQi/3387Ls1Vt2rWMlO5jW7vruMO382yft+lt2bUD/Yp6Zwdo6
+u20BLik4llXZNQIAAAAAwLtmbPG5wzG97d6yxeevBxhnlA0AJi1kBxlYc35+
+HcFcoSHUa5xZgxBGYv96Kvi73WTXCQBDiMX+u2pZ/uolu9axkh1Ma3d9d5h2
+/iw7qH/DjEX3mcHd3v8YwT06Y3nAZBQc06rsGgEAAAAAoIexxW20yAye1LLr
+eazxIbu9AW4RsoMkqc+hcXjGQJ/n6p/G0+OQ5dsceTz5/7fNz3X5uTvfF2Ac
+6vNZwd+sOeYA3IV6TbbC/NVTdq1jJTuY1u767jDt/I9P2vWX7NqA7kU/mcF1
+897Lge79GcsDZqFkrCO7RgAAAAAA7lcPY4vbuDIzeFTT2lgjwOdCdpARiEOO
+sF4P7KWj7xFvzXs9XXu+Pqmpi3o82xySNdcrF/9es+sEgL7FIlaF2avaKrve
+sZIdTGlzfXe4tv7nmTb9PbsuoFvRY2bw5HO2Hb1/W6/X3hsEyFJwbKuyawQA
+AAAA4P70MLZYz9Ffdljfroexxm/Z7Q7QhZAdZITi8DzyVfxYD7D+blB94n0t
+wafmdzo/RzffddZx+5qE6+y2hXtXeG1gXiEAsxaL/ffnwvxVdq1jJjuY0ub6
+7jDt/KdP2vUv2bUB3YiBMoNHn7fs6HOM5QGzV3B8q7JrBAAAAADgvnQ8tljP
+x1/1UOPaWCPAeSE7CK00c522N3yXWGdvA9yzwr/fp+w6AaBPsYjXwvzVa3at
+YyY7mNLm+u4w7fzrmTb9V50pzK4NuE0MnBk8+exb7qe1tTWWB0xVwTGuyq4R
+AAAAAID7EIc83q6jMbwqes6ldFTri7FGYG5CdhCuEocMYXXld4p1dv1wr6Ls
+uSIv2XUCQF9iEd9K123b22bXO2ayg4O3t747XFv/pl/DvERiZvCohmVHn33J
+Nru9AW5RcJyrsmsEAAAAAGDeYmKZwZO6jTUCnAjZQbjJ/vUY1827WmfXDveo
+cK7iLrtOAOhLLGLdIn9lLd6v21J2cNj21neHaec/NWsMHrfn79l1AdeJEWQG
+T+rZdlTHZxz/gckrONZV2TUCAAAAADBPMdHM4Mk2XFv/Nrv9AfoSsoNwszjM
+w3pp+f2inrP1kF073KPC6wLrjQMwS/V6bC3yV6vsesdMdnDw9tZ3h2nnv5xp
+z1+y6wLaiZFlBo/qWnZUzzk31wcwBgXHuyq7RgAAAAAA5iW6zQzW7/OYuC2P
+xhoBfhayg9CZ/evpiu9G8kkwsCjL+q6y6wSAPsQi3krzV9m1jp3s4ODtre8O
+087/1J9humKkmcGTGrcd1fbuzTU8MCcFx70qu0YAAAAAAOahHmeLw/qAoxxb
+vGG72mzTKGoG6FPIDkKn4vCsgjbzs6rsmuHeFJ5v1tl1AkDXYhEPLdZte82u
+d+xkBwdta313mHb+60lb/j27JqBMTCAzeFTrsqMa33ODD9ntD9AlYwoAAAAA
+APQtZpoZPNm+krHGtPURAYZUmJ9YjagW2UFGr56z1HKu1lN2zXBPomw98k12
+nQDQtVjEU4v81Ut2vWMnOzhoW+u7/bfxn/f+ddSOv2fXBFwWE8oMntS97aDW
+171l9j4A6FrB8a/KrhEAAAAAgGmKmWcGT7b1q+30jFLgroTsIPQi2uUH38x1
+guFE2fNENtl1AkDXYhFVi/zVJrvesZMdHLSt9d3+2/jvR234zzpLmF0T8LmY
+aGbwqP7ljfXWucFv2fsBoA8Fx8Aqu0YAAAAAAKYlus0M1mOUo18354u5wnKD
+wN0pzOutRlSL7CCTUZhPMt4PAyv823zOrhMAuhSLWLbIXslflbWp7OAw7azv
+9t/Gfz1pw1+yawLOi4lnBk+2ZXtlzfXvyQ0Cs2UsAQAAAACArsThmZ4vHY0t
+vjVjlZMZq4uPeUnPKAXuUmFebzWiWmQHmZR6/lWL71SP2fXCPWjmWpqDA8Bd
+iUVs5a86b1PZwWHaWd/tt31/OWm/X7NrAj6KGWUGj7ZpeUXd2+x9AdA39y0B
+AAAAALhVMxa37WhscXKZwaN2WB1th9wgcLcK83qrEdUiO8jktPjutcuuFe6F
+OTgA3JNYxLpl9qr2ml332MkODtLG+m6/7funvX8etd1fsmsCfhYzzAyebF+b
+8cqn7HoBhuC+JQAAAAAA1wqZwXNtUsVh7cVJbwfALWQHoX/NPK9dYf9eZ9cL
+cxfWHQTgjsQinq7IXr17zq5/zGQHe29ffbf/Nv5dv4VxiplnBo+2c+l+GcDP
+3LcEAAAAAKCt6DYz+D1mkBk8bpvsGgCyyQ7CMOLnNY+/nMuVXSvMXeHfo/nm
+AExOLOJhb9XY7O1uyF69e9urmvdbH73/Mnt7s8kOdtqW+u7wbf7bUVv9ll0P
+cHAvmcGTbf5qDLNuh4fsGgGGJDsIAAAAAECpZnzxucPM4FbWDmB+ZAdhOBfm
+Qh17zK4V5qwwO7jJrhMA2mpyUrfmrUptsrc3m+xgp22p7w7b3n89ao+/Z9cD
+3Gdm8Gjbl3KDAD/IDgIAAAAAcEkP44sygwAzJjsIw2nmQpV8R3vJrhXmrJ4/
+KTsIANxKdpAp2vfPX4/66j+y64F7d8+ZwZN22J5sx2vdNtl1AWSQHQQAAAAA
+4DMygwBcQ3YQhtWiny+za4W5Kvw7tP4nAPAl2UGmZt83fznqp7/v/Sm7JrhX
+MoMf2mMpNwhwIDsIAAAAAMApmUEAbiE7CMNqvruV9POn7Fphrur5NWM59wEA
+0yU7yJTs++Wf9/4lNwi5ZAa/bJt6fHKbXQdANtlBAAAAAADe9TC+WJkfC3B/
+ZAdheM1cqEv9/DW7Tpirkmuo7BoBgPGTHWQqmtzgP5v+Wf/fP2fXBPdGZrCs
+jbJrABgD2UEAAAAAAGr1eGAzLigzCMBNZAdhePvXQ2FfN2cKOlb497fLrhMA
+GD/ZQaagXl+wWWdQbhASyAwC0JbsIAAAAADAfZMZBKBrsoOQo/A73Tq7Tpib
+/eup4G/vJbtOAGD8ZAeZgqPc4L+6zg3WfX3v1+xthDGSGQTgWrKDAAAAAAD3
+SWYQgL50kR2s/31vOVAtnWUH96/HsK4bSfav54K+vs2uE+Zm/3ot+Nt7yq4T
+ABg/2UHGbt8X/3GUG/yl4/f+c/Pe/5G9nTAmMoMA3Ep2EAAAAADgvnScGazf
+5zF7mwAYl46ygw/NfJjX5tx1VR5viOxgU+u2qfc5u/25X3HI3F7q66/ZdcKc
+7F/LwvPMMrtWAGD8ZAcZs30//K2v3GDz/vV6hv/M3k4YC5lBALoiOwgAAAAA
+cB+aueQl62EYXwTgJl1kB5v3Oc1BvUTLzHpf2cEmK7KJn/P4L9ltD133deBr
+Ubbe5y67TgBgGmQHGauj3OD3nnKDf9fX4UBmEICuyQ4CAAAAAMxbk7uojC8C
+MJSusoPNez2d+d163sx276GjWoryVM28nbqec1n8+r9dtTYidKnwe9/Fvx3g
+sua8UDKX05q0AEAR2UHGqO5/R33xPzp83z837/370fv/OXt7IUvIDALQk4Jz
+RpVdIwAAAAAA7YXMIABJCvN6qxbvt71wjqo/b3lDLV9mB+tzYBzWPPzsd99k
+sRiLKFsDbZVdJ8xBi3OMcwQAUER2kLE5yQ327R/Z2wsZQmYQgJ4VnDuq7BoB
+AAAAACgX3WYG63HKp+xtAmBaCrMUqxbvV8+fObfW36n6Z+p1Ab+1rOVDdrA5
+n24L5+yss9sc3sX5tTpPbbLrhKmL8jUHX7NrBQCmIRbxi+wgY7Lvd38ZMDdY
++0v2NsOQQmYQgIEUnEOq7BoBAAAAALhs/1pGt5nBzXH2AgBKFeb1Vi3f86Hl
+uaxeJ3BdWMu7+lz63MyzKf2dbXZ7w7E45F5lB6FnLc4v6+xaAYBpuLC+22/Z
+9XFfEnKD/8reZhhKyAwCMLCCc0mVXSMAAAAAAJ9rcg7bjsYXZQYBuFlhnmJ1
+xfuWrKd26r86Okd+Ni/HOZNRCdlB6F2U59nfsmsFAKahWXPwX1/lqvb+nF0n
+9yEhN1j7W/Z2Q99CZhCAJAXnlCq7RgAAAAAAPgqZQQBGKnrKDjbvXfWYBWzr
+qm2APoXsIPRu/3otPE9ssmsFAMYrFvEfzVqDf2+Tr2p+R46QXjT9cujcYO2X
+7G2HvoTMIADJCs4tVXaNAAAAAAD8EDKDAIxc9JsdXHY4z+YWz9ntDOeE7CD0
+qj7+t7jWcp0FAPykzvz1kLn6LXu7mI99f/pHQm7w9+zthj6EzCAAI1Fwjqmy
+awQAAAAA4N9jjNsOMw/1ey2ztwuA+Ykes4PN+z8lZAVP5+nIgzBKITsIvdm/
+HlucK9bZ9QIAADC8kBkEYGQKzjVVdo0AAAAAAPeshzHGbcgMAtCj6Dk72HxG
+NVBOsPPaoU8hOwi92L8eWlyTvWbXCwAAwLB6GM/bhcwgAB0oOOdU2TUCAAAA
+ANyjHsYYtyEzCMAAYpjs4HLgvOC75+z2ha+E7CB0LtrlBmsP2TUDAAAwjB7G
+83YhMwhAhwrOPVV2jQAAAAAA96SHMcZtyAwCMKAYIDvY4nO6VJ+bv2W3L3yl
+nltW0Jc32XXCVET73OAmu2YAAAD618N43i5kBgHoQcE5qMquEQAAAADgHvQw
+xliF9S4ASFCY6Vt18Dnfmjk1Q2UH19ltC5cU/v09ZtcJUxDtc4Ov2TUDAADQ
+rx7G83buOwLQp5K5Jdk1AgAAAADMXRzWh+kq+1B1kccAgGsVZpdWHX3W40C5
+wSq7XaFE811wkL8/mLPmGq3NPND6Z5fZdQMAANAPmUEApsoYGAAAAABAHplB
+AOZoyOxg83klWalbWcuXSSj5bpldI4xZMxf0+YrzxCq7dgAAALonMwjA1MkO
+AgAAAAAMT2YQgDlLyA4ue84NbrPbFEoU/i3ssuuEsarPTXuvV5wn1tm1AwAA
+0C2ZQQDmQnYQAAAAAGA4HWcGdzKDAIzR0NnB5jOvWSOqRD036Ft2m0KJ5rvm
+pT79kl0njE0ccrfbK88Tz9n1AwAA0B2ZQQDmRnYQAAAAAKB/cf36FcYYAZic
+pOzgtw7n8xzbZLcnlKpzgQV9+im7ThiLJjN4y3zQbfY2AAAA0A2ZQQDmSnYQ
+AAAAAKA/TWawMsYI/P/s3b9v5FYXMOa7f4HX3z/ggb86sACnNwuntorPQDpP
+5a+0OqezSner1k08tYFg1bvwlCkMrLpUhlWkSOVVlTQJJnN3qNeyPDO6/DWH
+5DwHeID39Uqcw0vuLC8PDy+ck4jewQaf2/TfXmsOMhmpbH3ri+g8OT/1vGhZ
+f09f13Ok526f/PnlEP9OPMknb3/V8d+I6+hxBQAAoLukZxCAmSv4t2sdnSMA
+AAAAwNQkPYMAnLEU1zv4OpX1TpVaRo8llKrP/5fO6YfoPJm/tFvLb5l2vXl9
+fCff1dvK21y0zCn//bjsMadl9DgDAADQTdIzCMCZKPg3bB2dIwAAAADAVKR+
+ewYf1BgBmKIU1DtYf/ayr2d9oscRmqivQ186r2+j82Se0q5f8Crt+vz6+A5+
+aZ6U51w39b83y/r8f3SZ/rm+4X3Pn11FjzcAAADtJT2DAJyZgn/L1tE5AgAA
+AACMXf2s7LrH51FzzfJ19H4BQBspsHew/vw++kSW0eMITRT+vbuOzpN5Sbte
+vdue5kFjl+d7i+gxBwAAoJ2kZxCAM1Vy7zM6RwAAAACAsUq7nsFVTzVGPYMA
+zEKK7x1cdn3uJ3oMoanov3ecl/p79hRrDI7FdfSYAwDQj21cRucAnFbSMwjA
+mSv4t20dnSMAAADA2G3jwjOYcF6SnkEAOCiNoIcpdVt7cBk9htBUKlsD+yI6
+T6Yt7dYZLDnX5iLv6yJ63AEA6M82btJu7Wz342Hmkp5BAPig5D5odI4AAAAA
+U6BWAOch6RkEgBelcfQOLts+AxQ9ftBGKujnis6R6aqft+xrHjQF98l6NAAA
+s5R29/jz/8jraC+i8wH6l/QMAsA/FPxbt47OEQAAAGAK0u49pfl/rKJzAfqX
++u0Z3NTbWkTvFwAMIY2gd7DO477Fv9HL6PGDNpLeQQaSe+h6fN5y7O79OwAA
+MH9p1ze4qa9zvTMCZiLpGQSAvQr+zVtH5wgAAAAwBdu4eHJPxbtKYSYGqDOu
+fD8AMHdpPL2Dy6bPA0WPHbSV9A4ygPT3e5Lm7vYU/y4BADAO27h6dj14E50T
+0F7SMwgARxX827eOzhEAAABgKtI/1zXxrlKYsAHqjKukZxCAM5FG0jtY53Lf
+4N/rZfTYQVtJ7yA9qudDdw2+P495qM/P/G/DMn//b13s+cyL+s+W9c+ue5yP
+HeoXzJ/1Onq8AQA4rfp69/n14d2+61RgvJKeQQAoUvBv4Do6RwAAAICpSP9+
+T2l24zk0mI4B6oyrpGcQgDOTxtU7WJLLh2eDoscNukh6B+lJ2vXwdZ0P3df3
+Qzo/e13nk++35F6/tv2M9+nv/sUqeowBAIhXX1/uu3a8is4NOG6AWl6eMy6j
+9wsAhlLwb+E6OkcAAACAqcj9QUfqDVV0fsBhA9QZ1308JwsAU5TG1Tv4uvDf
+9+vocYMukt5BepC69w2uTvH9Xt9/qWrXe1w+/nn0mAIAME5ptwb1sfv7i+gc
+gX8aoJZ3n/QMAnAGSp5vic4RAAAAYEpeeF7TGoQwQvUzAn32DFbR+wQAkdKI
+egfrfG5eyOXBdTpT98JcVO8gL0rd+gZXnq0GAGBqXrj+zX92HZ0joGcQALoq
+ec4lOkcAAACAKUnH31P6WIuoovME/vP39b6nOuPa320A2Enj6x1cvNTzEj1m
+0FUq6B1M1sXmgNS+bzCfd4vo/AEAoI20ewfGS9e8d+79Q4ykZxAAelFynzc6
+RwAAAIApqWsYJbWJXI+0tgkESHoGAWBQaWS9g3VOx54HXESPGXQ1xr93TEPa
+9Vc3fQ4z//xldO4AANBFniM1uAZW14MTSXoGAaBXJc+9ROcIAAAAMDUvPJf8
+/Fm7q+h84VykfnsG7z17DQD7jbGH6cjzgLfR4wV9KPx7dx2dJ+NSP49513Au
+tPbMNAAAc9GwZqCuBwNKegYBYBAl93yjcwQAAACYmm1cNqxb3OlBguHUvQJN
+6v/qjADQQWEPUxWQ177+GOtmMQupbL0MvbL8Qz4nGs6HVtE5AwBAn7Zx07JO
+4H4C9CTpGQSAQRX827mOzhEAAABgilrWNvIze4vo3GEu6uen1+qMAHBaaby9
+g8vn/75HjxX0pX7O7qW/dw/ReTIe27hqOCdaRucMAAB9y3W5DnWDdcT9DZiL
+pGcQAE6i5Lo2OkcAAACAKUrt3lP6aJVrJdH7AFOV9AwCQKg03t7B18+eRbqK
+HivoUypba/siOk/ipd3z0U2ezVxG5wwAAEPZxl3HOoJ3g0IDSc8gAJxUwb+l
+6+gcAQAAAKYoP4/ZscbxUNdM9BBCoaRnEABGIY20d7DObfUkB9fazMqz8/uQ
+m+g8iddw3rSMzhcAAIaUmq/JfUieky2i9wfGKukZBIAQBf+mrqNzBAAAAJiq
+VLbmgx5C6CjtenWbPPvq7xwADCiNu3fw8R0fq+hxgr7l5+VKnquLzpNJnCd6
+TQEAOBtpty53H/UFPYSwR9IzCAChCv5tXUfnCAAAADBVhc9M62eClup6/srf
+MQAYl8Lr4Cowv7uty+hxgr41eN7V+X+m6uc1S5/VvI3OFwAATiVf//ZY09ND
+CBs9gwAwFgX/xq6jcwQAAACYqgbPbepvggaSnkEAGLU0/t5BfVPMVtr1xnoO
+gEPnR8n38+PzmOZIAMBZy/PW+vqJ8zBE7+CjvO0q+pyGU0l6BgFgVAr+rV1H
+5wgAAABzM4LaF6f1f6Vh6oyP/U6L6HMaTiXpGQSASaj/jR1t7yDM2TaWhdfD
+VXSunPzcaLLmoPMDADh7hXNbaGKd9D8xY0nPIACMUsl1anSOAAAAMDcjqEsx
+P6uti+hzG4aS+u0ZfPw7o2cQAAaS9A5CmLR7Tq/kmngdnSsnPzeuCs+Nm+hc
+AQDGoHBuC23cp931uToFs5D0DALAqBX827uOzhEAAADmZgT1KOZrvXUZfY5D
+X1L/tcZVslYnAAwu6R2EUKn8vRtVdK6c9Ly4Lzgn8tzL88sAAJviuS10ka+/
+V8n7QZmopGcQACah4N/gdXSOAAAAMDcjqEMxf/dpV6fxvB+TlPQMAsCkJb2D
+ECrt1u0unTuaN56BbVwWnhNX0bkCAIxF4dwW+nK3tUzmaExA0jMIAJNS8G/x
+OjpHAAAAmJsR1J44L6tkLUImIukZBIBZSHoHIVzarUtfcs18E50rJzkfbgvO
+hfvoPAEAxqRwbgt9e1yLcBH9dwCeS3oGAWCSCv5NXkfnCAAAAHMzgpoT5+k+
+WT+AkUr91xrXSV0dAMIkvYMQLv8da3D9XEXny6DnwuvC8+A6OlcAgDEpnNtC
+nx77Bi+iz394KukZBIBJK/i3eR2dIwAAAMzNCOpOnJ/11nLrdfT5D8/V52af
+PYNV9D4BwLlLegdhFNLumdOS6+h8Pb6IzpfBzoPLwvPAPQMAgCcK57bQh7uk
+jscIJT2DADALBf9Gr6NzBAAAgLkZQf2J85BrODfJ85+MVNrVwe97Ot/XSf8B
+wKkttq5hn19++WV9fX29Oeb3339fRefJaCSGkeeDqfz5vvysqudUZyiV9ZCu
+ovMEABibpHeQ4a2SNQYZoaRnEABmpeDf6nV0jgAAADA3I6hDMW8f3k0afZ7D
+IUnPIMBcVBshhOgnor/PZm0bVw3nk/oHZ6Zw/nUZnScAwNgkvYMM4z7tzi1z
+L0Yn6RkEgFkq+Dd7HZ0jAAAAzM0IalLM0yrpoWLEUr89g3fOd4Bw1UYIIfqJ
+6O+z2Uu7d240udb2DOtMpN3aky8d84foPAEAxijpHaRf90kPFSOV9AwCwKwV
+/Nu9js4RAAAA5mYEtSnmI9dvVluL6PMaDtnGZeqvZzBvZxm9TwB8UG2EEKKf
+iP4+m7206x9r8vyf/sGZqOdjLx3v2+g8AQAgWhquV3SdvAuRkUp6BgHgLJRc
+s0bnCAAAADBlPdZanvcMXnuWkzHLtfDUbH0TtUaAaak2QgjRT0R/n52Fwh6y
+5/2DF9F50/m4lzz/fB2dJwAAREv9vQNRzyCjl/QMAsBZKbl2jc4RAAAAYKpa
+PJupZ5DJS3oGAc5FtRFCiH4i+vvsbGzjpsUcdBmdN52O+W3Bca6i8wQAgEjb
+uOixlrd2jc1YJT2DAHCWSq5ho3MEAAAAmKrCZ/T0DDILSc8gwLmpNkII0U9E
+f5+dlW2sWlyf35qPTlPhHM2xBQDgrLWcJ+kZZDKSnkEAOGsl17LROQIAAABM
+UV2D0TPI7KV+ewad8wDTUW2EEKKfiP4+Oyv1XPWu5bX6VXT+ND7eLz4XGp0j
+AABE69hPdadnkLHSMwgAZHoHAQAAAIaR6yb6p5izbSxSP+/idc4DTFO1EUKI
+fiL6++zsdOgf9JzgxHgmBAAAjtvGpbkRc5P0DAIAT7hPDAAAADCM1H4dttyL
+tYjOHw7RMwhArdoIIUQ/Ef19dpbq5wjbzlsfnxu8HnL+uo2LtFvn/PqJ9ROr
+J//9qv7ZwfKZIs+EAADAcdu4bVPXiM4b9kl6BgGAPdwnBgAAIL1K39c2e/xe
+/9mX0XnClKRdb1XT2kt+7vEiOnc4JOkZBOCfqo0QQvQT0d9nZ62na/y7unev
+9Zy2nm8s63zaron4fI6d5xxV9BgHH1/PhAAAwAFp12fVZJ6xUtdgjJKeQQDg
+CPeJAQAAzlN6lT7d+ulAv+AhuY/w6+jcYQrqZyab1F4uo3OGQ1K/PYNq6wDz
+UW2EEKKfiP4+O3sN57ClfXs39XOLl2m3HuBz1+nvdQTve/785x7qecjZzb09
+EwIAAIel3ftLSuYU+f0mVXS+8FzSMwgAFHCfuPW4rUtrItG5AgAAPHdgjcEP
+6ws++7nPD/QX/rL1cfR+wJg1eO4x13L0UDFKT+qNfT2vm5/VXUTvFwC9qTZC
+CNFPRH+fsflw/V/1+KzhmOV9vDmXuYlnGgAA4LCCZ4Hz/OEqOk94LukZBAAa
+cJ+49bi9NF8wfgAAwCilV+nXPb2AP77wO7mH8I9nv5P//6fR+wNjtI2LknsG
+5/KcItMzQL1x5XwHmKVqI4QQ/UT09xm1ei5w29M8YApmP1fxTAMAAOyX5wJq
+eUzNADW8+6RnEABmz33i1uO2LrymMn4AAMBotOkbfPK7n279pX8QXpZ26xcc
+ulfg/aSM1gD1xtk/hwtw5qqNEEL0E9HfZzyzjcv6+cHo3r5TyXOX19HjPtCx
+fPE50egcAQAgQq7XqeUxFQPU8PKcfxm9XwDAaRRcG6yjcxyjpHcQAACYmNwj
+uKdv8PeG2/i66zbgHByp2dzO9VlEpm2AemM+1xfR+wXA4KqNEEL0E9HfZ+wx
+wDxh7Gb5fPA27l7a9+gcAQAgQtr/vpS1+gZjMsDcPJ/3y+j9AgBOq+AaYR2d
+4xglvYMAAMCEHOj5y75ssa3WaxfCOUi7tRnO4vlD5iHt3qvbV70x3zOrovcJ
+gJOpNkII0U9Ef59xxADPKY5d7rVbRI97j8ev5NmG2ewvAACU2MbFnutitTxG
+Y4C5+H3SMwgAZ6vkeZ/oHMeo8P668QMAAMKlV+njrb/29Pv92nJ7Xx7oQ/w8
+el9hDLaxmvMzh8xHrg+m/e/UbSPfK6ui9wmAk6s2QgjRT0R/n1Ggfm5xmQrW
+sZuBh7k8U7mNm4L9vYzOEwAATunZdXKulVxE5wRZ0jMIAAyg5Lmf6BzHKOkd
+BAAAJiK9St8f6PX7usM2f++rFxHmpK7lPL0vcBOdEzyX9AwC0J9qI4QQ/UT0
+9xkNpd0aHTc9zi2OzTny5+T10qva4lkej/89P1u5Sv32Nq6ix7qHY3VVsJ/X
+0XkCwBzUNblDdbnf6z/7MjpP4MN18mNf1m2u70XnA0nPIAAwoJJ78dE5jlHS
+OwgAAEzAkTUH/+q43UN1T/VOzlra9WRt6pqOd/YzKknPIAD9qzZCCNFPRH+f
+0UHu5avnG1379u7r53Zzr1unNT/S32skrnp47jLPfyb7LHHa9VW+tI930XkC
+wFSlV+nTrZ8O1M0O+b3LOz6BbnINL3mHBiOR9AwCACdQch88OscxSnoHAQBg
+ctKr9Lph3W7Ofuk4lp8f2K61Bzlr9TOOd12fcYQ+1TXwe/VGAAZQbYQQop+I
+/j6jZ2nXT1jV85HrA5b1zww6h05/9xF26WvMvzvl/sGSfZzs/gFAlAPv2vyw
+vuCzn/v8QH/hL/k9oNH7Aecm7dY29w5QQiU9gwDACel9az1u68JrMeMHAAAj
+kV6l5Qh69sai87tM0/71DLPPo481RKifi7z1rB1jUT+DW3oPS70RgDaqjRBC
+9BPR32eciY7zpMn2D6ayvknPTgNAA/l9mntqZD++8Du5h/CPZ7+T//+n0fsD
+52Sq1/XMg55BACCC3rfW46Z3EAAAJia9SqsR9OyNRef+vrR7F+q+bR+ti8Jc
+qTMyFnoGATihaiOEEP1E9PcZZya1X599kv2Dabeuykv7dh2dJwBMRZu+wSe/
+++me93PqHwSYOT2DAEAkvW+tx03vIAAATEx6le5H0LM3Bn/1NJ7fD7l9AJrR
+MwhAgGojhBD9RPT3GWeofm6zpKfuX/2D0bm32NfKsw0A0I/cI7inNvZ7w218
+3XUbAEyDnkEAYAzcH249bnoHAQBgQtKrdNGx3y73Ha63rmuXW9Uevb53vM77
+oefewV97ym1fXfNR53UNASjTc89grlteR+8TAJNRbYQQop+I/j7jjNVzqqbP
+cK6i826xny/OB6NzBICxO1Ib+7LFtlqvXQjA+OkZBADGRO9b63HTOwgAABOS
+XqWrhv11d1s3Q/QDNsj5dRpmrcSfesrv8yOfobYJMLBtLPLzqn32DOY6ZvR+
+ATAp1UZsfvvtt82bN2823119t/mi+uI/86I///wzOjUhphTR32ecufqZzruG
+86hldN4N9/HF/YvOEQDGbDvP+3jrr77e2Zn7Db2fE2B+9AwCAGOk9631uOkd
+BACACanXDHyppy6v77fKa/1F51vnfNuhP/D3I3/2fU/5fTz02oYA/JueQQBG
+pNqcSbx///5Dj+DPP/+8+eH6h81Xl19tPrv47OCc7KPXH0WnLMTUIvr7DB6f
+72w61xrFfcTC/bst2J8qOk8AGKtcXzswB/y6wzb31fPU2AAmSM8gADBmet9a
+j5veQQAAmIh6/b6Xeu1WUesLHsj5ukPfYF4z8acjf/5tj3nue79q9lf0GALM
+jZ5BAEao2swkcl/g4/qBuTfwm+U3H9YQ/GTxSat5Wf59IUSjiP4+g/9oOO+6
+i863wX5d6x0EgHbS4TUHO9XDjvQjfhm9zwCU0TMIAEyB3rfW46Z3EAAAJiK9
+SpdHnunMaw1W0Tk+y7fq0DeY92dx4D2lvdcbt9v648jnfB49lgBz0HPPYHaj
+ZxCAnlSbmUSHOdheeX1CIUSjiP4+g39oOAe7js63cJ9Kegcvo/MEYPxS2Ts7
+z8UvHcfy8wPbtfYgwMjpGQQApkTvW+tx0zsIAAATkXZrCh7qs7uIzu9Zros6
+r7Y1yqrezqH1AHvt6cu1yyOf83X0eAJMWV1zvOmxZzA/+7qI3i8AZqXazDAe
+1yDMvrv6bvPR648az83ev38fvRtCTC2iv8/gX7Zx12C+tYjOt2B/LufSBwlA
+rO2cZzmCnr2x6FwLO1LT845OgBHSMwgATJHet9bjpncQAAAmIr1K9wdqbmPr
+G8zvab3rUJ+8qrfz8Qs/92mPOR/rHfw+ekwBpmiAmqOeQQCGUm3OIP78889G
+c7PPLj6LTlmIKUb09xn8Sz03uy+cd91G51uwP5XeQQD6kA6/s/Mcde7v227j
+lwPb/jH6WAPwNz2DAMCU6X1rPW56BwEAYALSbh2/g312Y9Kx1nr7ZDufn7B3
+8Kcjn6OmCdCAnkEAJqjanEl8dflV8fzsh+sfotMVYooR/X0Ge23josEcrIrO
+94V90TsIQC/S4Xd2npu/ehrP74fcPgDd6BkEAOZA71vrcdM7CAAAE5B7BI/1
+2Y3FNqdlh9pkXqvw9ZNtfXns53vO+1jv4E/R4wowBQPUHG/1DAJwItXmTCL3
+A5bO0d69exedrhBTjOjvMzionq9N/tkAvYMA9GE757no2G+X+w7XW9e1y61q
+j9cD5P3Qc+/grz3l9vWRz+i8riEA7egZBABOKTV7j93U3EePb4fjsp5DfQAA
+AOYu9wk+q7E99F1v7CHHLnXWvD8Xz7Z3rMa46Tn3Y72Dv0SPLcDY9VxzzPer
+quh9AuCsVJszidLewY9efxSdqhBTjejvMzhqG3eF87KL6FyP7MN1Qf7L6DwB
+GLe0/52dL73/8maIfsAGOb9Ow6yV2Ms7NHN/4JHP+DH6mAOcm6RnEAAI0uP1
+x9isose2wzFZlz6zFZ0rAACcsz01tqvonJ7l17Veeblnm9+OpHewl/etAsxR
+rhHWtUI9gwBMWbU5kyjtHfxm+U10qkJMNaK/z+CoVLZm36ifgUhlvYNVdJ4A
+jFvarRlY8t7LVXo1jp769O/3jDbx+5E/+76n/D5WawOIl/QMAgDBtnE7gj6/
+ISyjx7bDMVmXPrsVnSsAAJyr3Ff3rL52F53TnhxLaqyHXB/Ypt5BgJFKegYB
+mJdqcybx1eVXRfO0t2/fRqcqxFQj+vsMXtTguY2QNZUK8l8V5F5F5wnAeKXd
++zBfmhflnsHR/FuYa2kd6nB3L9TBvu0xz78OfMZf0WMIMHdJzyAAMBL1M0XR
+fX5DGM19ghbHZF36DFd0rgAAcK7Sq3TzrL5WRef0LL8u9cr1ke3qHQQYmaRn
+EIB5qjZnEh+9/qhorvb+/fvoVIWYakR/n8GLtrEonLNdRed6IP+SZxwm+wwH
+AMNL/35n51MPI6zDVR3qcHl/Fun4uoNf9pjrH0c+5/PosQSYo6RnEAAYmQb3
+oKdkdOt9NDwmJffV9Q4CAECg9Crdl/TaBeV2rL76krxfB5/j0TsIMB6p355B
+NUcAxqbanEG8e/euaK72RfVFdKpCTDmiv8+gSOFzAqN8FqJk3hmdIwDjlnZr
+Ch7qs7uIzu9Zros6r7a1uKrezqH1AHvt6cs1tSOf83X0eALMSdIzCACMWI/P
+GI3FTfSYdjweJTUBvYMAABCkrgn+q8Y3Brl+2qFe+WL9NdcQR9I7+FP0WANE
+2UbV4P6RmiMAU1VtziB+uP6haL725s2b6FSFmHJEf59BkW1cFs7jFtG5Psu7
+8mwDAF2lf76z86mx9Q2+3rrr0Dd4VW/n4xd+7tMecz7WO/h99JgCzEHSMwgA
+TMA2ViPo9+vTZfSYdjwepc9+raNzBQCAc5RepeWTmto6Op8neXWtVy4LPuNL
+vYMAMZKeQQDOS7U5g8jrCZbM1/L6hEKI1hH9fQbFUtl7n5fReT7L+aog50m/
+/xmAYaV/v7PzH312Y5IOr49Y4vbJdj4/Ye/gsXrbj9FjCjBlSc8gADAhqfz9
+dZMQPZ49HI/SZ8DW0bkCAMA5qmuYuX/wNo1rzcEu9cpV4WccrWX2vD/Hapne
+gwqcjaRnEIDzVG1mHu/fvy+ar32y+CQ6VSGmHtHfZ1As99gVzOtW0Xk+y/mu
+IOdldJ4AjFfuETzWZzcW6Z/vFm0qv/vz9ZNteVcnwIQlPYMAwATV1zDhPX89
+WUePZw/Ho/RZsMnvKwAA0I8DddXiemWDz/n0hW193OM+Hatlfhs95oMf012v
+0LKuOdzWc8X1nvrD3ZM/u6l/Pv/uInofaHS8F/Vxu66P4+Mxff783cOTP7ut
+fz6fJ1X0PjDIeVE1uE/0knzujO493QBwRLWZebx9+7ZozvbN8pvoVIWYekR/
+n0GxbVwUzO/uo/N8ku+icE66iM4VgPGq39X5dB708LTPbgy2+Vx0qMPl/bl4
+tr2vR9I7+Ev02E5Nfd8+u6prNPtcqtXNw5P63eWR4331eF5E58tJzgk9gwDA
+pKWyd8FNweSfgUp6BwEAgAZ6qFc2qr++sL1Pe9yvX498zpfR4977cdw9G3bd
+YE5YWmtYpV1v2ajq7Oeurist6+Nz3+MxX9fn0UX0PtLp/FikXW9oH+fEQ31O
++A4AYGqqzcwj9wSWzNtyj6EQolNEf59BI6nsGdRRzPHS7jnpF+9PRecJwLjt
+mQeN6vm/XEfbuu9Qi7vcs81vR9I7+Gv0+I5Z+vudj+uOtZz8+zd1XWgRvV8c
+PN6L+hg9vuOzS332sV5XRe8XvZ0fegYBgFmor3f7ek4t0uSfjWsw71hH5woA
+AMSq65UPHeqVVYvP/P3I9j7vcd+O9Q72tr5h6PHb9QuueqwxvCT3Ii3TSJ4v
+Ozfp737BvnrCXpLPq5s53Cs5F2lXl171ePyv/X0HYMKqzczjk8UnRfO29+/f
+R6cqxNQj+vsMGim8b1BF51nnel+Q6010ngCMV+6rezYHuovOaU+O6w51uOsD
+29Q7OELP6jhD1u7u6vrNInqfz11dl7lJw6698pDUaCcr6RkEAGYm7d6RMuTz
+aqfwED2OPR2LdeH+rqNzBQAAYnWsV7Z6b+v29345ss3e1gPcbuuPA5/xR/S4
+d963XW1oyBpUSY1qldQkT3W8F+m0PaL75PNtGT0WvHiO9PX3+zqpPwMwfdVm
+xvHnn38Wzdu+qL6ITlWIOUT09xk0Us/pXpr7ha/HVN/fKpmneqcRAAdt5z03
+Xd95OXB+1x3qcOsj29U7OCLp9O/6VL+JP+bLFFOrfazRukYeuaRnEACYsYDr
+4L7dRo9hT8dhXbi/6+hcAQCAOHvqqU2sOnzu90e2+22P+/fXgc/4JXrsW+/T
+rg51P4L581OrpIdwqOO9SP31g/Uln3/L6LFhsHPkOukZBGA+qs2M482bN0Vz
+t/xzQojOEf19Bo1s47Jk/jeCPEvucd1H5wnAuG3nPfclvXZBuT1fE7GJvF8H
+79XqHRyHtFtvYz2C2k3mvYDDH+++e8G6yudeFT0uDH6e5HnTMnq/AACeGtE8
+qK1l9Bie+Diso3MFAABipFdp2aFeeXesXlnw2Z8f2fb3Pe3fx0N/xkmP1+6Z
+r/sRzJuPuUnqkX0d79f1eEYf02Py+VhFj9W5GuAcWSU9wADMT7WZcXx1+VXR
+/O3du3fRqQoxh4j+PoNG0u4Z9pfmgaHvVU7law6Gr48IwHht5zyLZ3OgKjqn
+J7ldbD20rMPl3zu6ptj2z78eSe/gT9FjHXJ8d+sMrkdQq9nnwTXUIMf8Ko2n
+Z/C5fC5ahzD+HNEzCACcjfr6OPo6uItF9Bj2dBzWpXOG6FwBAIDTG7peWZjD
+oTUBe6kxvtCf+Hn0MSjej12N4XYE8+VSuRZyGT1uU5Z2faJjrT3uk89PPaOn
+Oz/6rjuu0kzuhwHAHtVmxlEyf/tk8Ul0mkLMJaK/z6CxgvngOjC3PLe9L7zP
+5J4DAAc9e0/mOjqfJ3m9rt/D2fYdnsuCz/hS72DAsZ3Gux8f5eutKnrMpi7t
+3stRcu06Bt7zGnOO6BkEAM5O2r1PJfr6t/X1VvT49Xgc1oX7vI7OFQAAOK0e
+6pW99IVtt/PLge3/3tP2D71vtZftn+RYTa+H7Cn9ZM2P99T6RJ/SM3qa8+O6
+x++EVdIzCMD8VZuZxm+//VY0f/vu6rvoVIWYS0R/n0FjBfPCdWBupc/br6LH
+EYBxS7t1B3P/4G0a15qDqw51uFXhZxx7h+am5/051jv4ffR4n+y4TquH7Cn9
+ZO2O95T6RJ/K52gVPX7nIOkZBADOXI/XQae2ih67Ho/BunCf19G5AgAAp1XX
+T9vWK697zONQb99fPW3/+ynXMNOwtaiHet6Y3Q34Obm+0XmNynOQdu9iuh/w
+WNw9OeZD3re5iR7LuUl6BgGgi2oz08g9gSVzuLdv30anKsRcIvr7DBormB+u
+g/KqGsxhF9HjCABNbediVx3qcHcNPufTF7b1cY/7dKx38NvoMT/JcZ1mD9nz
+OpGaXfnxvkjD1lBPQc1uuPNDzyAAwObDddFqBNe9bczm/fhJ7yAAALBHx3rl
+7QD5/HXgsz7vYduH1jXsvO1Bj9Gu1tBXLSpvJ9cyl6ng/ZLbWKTd81u51nHb
+U73jQa3jxXFf9jjWt/Xxy8dxUfDZVf35Nz2ed/mehPfX9nNuXPd0bjwelyp6
+nwDgxKrNTOOzi8+K5nFCiN4i+vsMGiuZJwbklO973RfOYz3rDMDkbOdhFx3q
+cA9bje6tv7C9T3vcr1+PfM6X0eM+6DHdXb+se7pPv6mvhdb1/f/Hes5zy/rP
+Vj1/tppd2TFf9libeazPrOpjujxwzB/Ph3WD62U1u9OfG3oGAQCeqK9v+7p2
+PaXZXCMnvYMAAMAz6VWqOtQr75vWKwtzGmxtwAN9ib9GH4ejOe9697r2b93W
+8/JejlfavVfzJnWvUy2jx3eMeriHcl8fn17eFZt2Na9lfR51yetuTvdZgs6L
+rn/n/nPvJ+kZBOB8VZsZxp9//lk0j/vq8qvoVIWYU0R/n0FjY3xWIJU/x/Dg
+vgIAU5PraHX/X9taXNXiM38/sr3e3qX5Qu9gb+sbjk3qZ+25fF2z2rrscn2T
+/u4v6+M9kFfRYztWeWx6GN+7+lhVHfJ4XZ8zq9S9T82ak93PCz2DAAB7pN2z
+jn1cH53SXfS49XwM1oX7vY7OFQAAGF56tZ2nta9X5t8bpJ6Q64kHevx+77jd
+zw/sy9fRx+Jgzrv6Y9t6w0Ndr1gMnONlg/nmPsvocR6T1K1vMB+Hy4HzW6Ru
+dbD7pBbZ5py47+leVz5Hquh9AoBg1WaG8fPPPxfN5d68eROdqhBziujvM2hs
+bM8KpN1zz6VzWs+zAzA523nYukPfYKt/+7a/98uRbfa2HuB2W38c+Iw/osd9
+sOPZrW6X3Q5Vx3lSv+lST1hFj/HYNLxe3VcTy8dkMVBul6nbez/zuaxm13zc
+9QwCALyg47wkwnX0mPU8/uvC/V5H5woAAAwvvUp3HeqVy4FzO7T24Kc9b3O0
+9cu0q/G1qTk89gye9D3safdu09J553ODnk9Tkdr3DeZxr06ca5e6mPUHy8+H
++57ucZ38HAGAEas2M4y8nmDJXC6vTyiE6C2iv8+gkXouP5pnBVKz57BPlhcA
+9GU7B7vpUIdbdfjcQzW27Nse92/fe0CzX6LHfpDj2a1vMF/3LE6Ya5f6Qutz
+b24aXq8+lcd+ecI8Fx1y1T9YPs56BgEACm3jpqdrplOposes5/FfF+73OjrX
+OUuvUpXfC1XfH3r6bqlFdG4AAJyPXHPsUK+8OUF+Hx94X+mPHbb565DvV+11
+/3e1h7sW89hcFwrtyUq7d1y2qZkso8c9eNyWLWtKg64zWHiurlrkrn/w+Llw
+39O9rfBzBABGqNrMMD56/dGLc7lPFp9EpynE3CL6+wwaSbv3Pr14b+lEuTS5
+l5DvMy2ixw8Amsjv4OxQh8vv/mx9/3z7u58f2fb3Pe3fx0N/xpik9n2D68jr
+mG1ctcz7OnrMo6Vdj1jTcctjHbZWdtr1EK5b5q1/8PC46hkEAGgo7Z4f7OPa
+6SSix2uA8S+dF6yjc526fP+m7hHM94Gut27T8TVdHqJzBgDgfHStV54wz321
+zfwO08ZrD+YewT3b+in6WBzMt3nfYK5VVNF5P8k/11BuW8zFz7Iulcqe3Xtu
+lUbUe1fvQ9Oa2To67zGpx7BNz7C6IwA0U21mFu/evSuaz3139V10qkLMLaK/
+z6CRVPbeousT5LFqOMddRo8dADSxnX9d5GfBWtbh8u91rpWkw2sC9lIbe6E/
+8fPoY9Dr8Wz3vs9cLxnFe/3Srp+sTc1uGZ174JiVXDc/l8d4EZ17nX+b97x6
+5+e/x1HPIABAS/W1VB/XUKdwGz1eA4z/unDf19G5jl3dF/i4fmDuDcxrtuQ1
+BO9b3vdZRe8TAADnoYd65UlrBvndpHvy+KXFdp6vOZjXNPw4+njszTWlm4bz
+1/VYazmpeW3tYaz7MuAYLVrUnJbReR/Yl9cN7j08Gnwd07FLu57BpuOm7ggA
+7VWbmcUP1z8Uzenevn0bnaoIiNxb+ttvv304T3L/6BfVFx/WoGzaT/rnn39u
+3rx58+H3D61zmf97/vP8c/nnzyCiv8+gkVS2dspywM9v89z9KnrcAKCJtHvf
+/LH3y7+kl36zXEs7sP3fe9r+10Nuf0xa3L8fZd0u7dYgbFpzOLt3fqbdGpNN
+xylsrcEj+9GmZreOznsMkp5BAIBetLgXHGV01/M9jH3pXGAdnevYdbi/c8gy
+ep8AAJi/ul7Z9n0XWUh9aPu5P+3J5fsGv/+8/7DV2oUn2dfdeyCbzF1X0TkX
+7NNFw9rKOjrnE49Pk/skeRxHX6dNzdcPGMW7dwPGqWpwr0bdEQD6U21mFp9d
+fFY0pyuJ3Pc1QA3kP3L/mug/jvUHHpN7/F6K3HPa9rzIv5dzm3FEf59BI4Vz
+0Gqgz7b2CQBnYXsdfNthznTdYx6Hevv+6mn7+9792ah+NwWp7N0Lk6nbtajZ
+ndU7P9OuZ6zp+Iy6bteiZncdnXPw8b9uMW9RuwMA2KPFfCrKqK/pW479unDf
+19G5Tkn6ew3C7Ca1W8PlbObYAADE6VivDH2/yvbzf9yT048Fv/e8dpnXG/w8
++ljszbV5Peo6OucG+9a0FjmZfes4Lk3ukYy+/vhs31YN9+1s5sWp357BPHaz
+e/8VAAys2swo3r9/XzSn++ryq6LtPfagPXrsRSvpQzv22blHLW/vTNaiGyTa
+9gcec+x45M/qq5e0yfqGE4vo7zNopGSeOcBn5vtdty3mu/oGAZicXEvrcN18
+O0A+fx34rM51snR4XcNR1uBa7ePuXn6T65dldM6F+7VIzd5r2fu5OVYNr1vz
+GC6icy7cr2XDc7mKzvnE46NnEABgAC3mVBEeosdpoLFfF+7/OjrXKUuvtvPr
+Zvd+7qJzBgBg/rbXndcd6pWr6Pzrffh2T265F/Bf7zBNu57B35/97K9bH0fv
+x8H9a1aPuonOt8X+Ne0fXETnfILxKL5PkSbUN/hkH1cN9nH2tedt/Let/7uv
+e1dpV8f0HCUANFdtZhR5TbiSeV3J+nIvRe4BLJ1HfvT6ow+fmXsbRT/R95qQ
+eb3KQ5F7/fr8rCznP8PzIfr7DIqlsuc0eqtbp27P307yPggA5y3t3jnf9nr5
+Pg3w3vk04NqAaX9f4q/Rx6G3sdtdy9w3uH5ZRufcYv+a9A/O/h2GeR8bjMfk
+3nORmvUP3k9t/1qOyf+w9X9s/b891e7up/ZdAAAwtJ6us4a0ih6jgcZ9Xbj/
+6+hcpy41W8/lOjpfAADmbXvNedmhXnk3RL2yw758uvVTw33IPYRfR+d+dL/S
+9hidwZw1NesfXEfnO/BYlM7RJ/28XGrWP1hF5zvgOHzf0z0rPYMA0F21mVF8
+s/ymaF7Ux3p/P//8c9Fn5b6zGfaIjS7yGOfe0bY9hfvWAsznSe4p7Ltv8FHp
++pcTiujvMyhWzyVfmnN2fldV6r5mx6TvgwBwntLuPfMPLa+T8+8N8m/fdrsf
+H+jx+73jdj8/sC+jrsU12sftdVGD65dJ9tXV122l12wPc65LnMtYpGb9kZN7
+j23DsfjfeqrbZfdJzyAAwF6p2VoKEZbRYzTQuK8L938dnevUpWZruqh9AAAw
+mB7qlYvofTiyb/l9qT8eyP3X+s8/j86zaF/K3126js61h31t0id5GZ3vQGOw
+PKcxSOXvrr2PznXAMfj/Ot6r0jMIAP2pNjOKTxafvDi3O7a+XJP44fqHo5+T
+1xr87bffevks0SxeOjb7PD9W7969+3AMh+obfJRznVFEf59xptLu3UzLep54
+Wz8HcOzeUv7z90Peg6jv96xS+57BTX3/YBE9vgDQVNq9h7PtNfJy4NwOrT34
+ac/b/CP6OPQ2ZtvrkQbXL6vofDvua5N3fk56X18Yh1WDWs2kn/VssK+bqe/r
+kTH4bx1rdv+pa6aZPmsOANCX1Oz9FREW0WM00LivC/d/HZ3r1DXoHXyIzhUA
+gPnaXm++7livnHzP0hTUdbnSetQs+oZS+ftaZ7PPT/a9ybtLr6Pztc+97P//
+2vE+1fXc/h4AQLBqM5PIvV4lc7t968u1iWN9irk/Mecj4qLJ+oO5R/Bp5D7C
+fX2D+b/ltS3zmpP5Zx7l9Q5L17zcp491MEcS0d9nnIm0e349P2Nx22B+3Ubx
+3LO+n9VnTnfmvgBM0fb6dtWhDjf4ul5pt/bgH3s++8cO2/x1z/a+jD4WvY1Z
+eW/VXXSuPe3vssE1WxWd7wD7XzXY/2V0vj3tc+k7P9fRuQ60/13nL/dzORcA
+AIaWyp+LjHAfPT4Djvv6nK/5TzrW5b2Dq+hcAQCYr471yuvo/M9Fg5pUFZ1r
+z/tdWpdaRefa837fFu73LGrOT/a7yXqTs3mPaX0P7P9peY/q/9r6n6P3AQBm
+qNrMJN68eVM0v+tjLcBj69rlvsH379933yHRKUrPhyz3/T1GPj/29QzmY/7S
+cc09gPn4N73n8PTzJx7R32fMWNq9h+eqwf2TvtzVzxXk+xfXT6xrQ+QzeN8E
+AAxhe2277FCHO1kNYPtZn+/5/L9Si7UHc4/gnm39FH0seh2vsmcsc+/RIjrX
+Hve59J2fs6pd1fteen07m2vWtHs3SWn/3FV0vj3ve5N65XP/Z9IzCADQWNq9
+e+GU97jP/r504bw2W0fnOnXpVbotvA9kHRcAAAbRsV55G53/OUll79eZ3Vy1
+cL8fLaPz7Wmflw32eTb9c0/2f1W477NYayDtnvPs45nKfD9nEb0/ADAj1WYm
+8dXlVy/O756vL9cmjq1vOKMesMnHvh7AQ/I6gjnysX2+3mA+r5r0guafbdo/
+mD9zJv2m0d9nzFB9v6R0/jx1+Xll9XIAJml7XXux9dCyDpd/76T3wLef9/2e
+PH5psZ3naw7mNQ0/jj4evY5V2TOWc+unyvWM+8JruNnULFN5z+T9HOpWz/b9
+qsE1+yI63572eZG6rzm4mst4AACcShrv/e7Z3psunNdm6+hcp67BvaFZzSkB
+ABiHul7Z+j2nrlMDjtnx/qKHudWjnux3aU0uj8Gke+nS7tm/0nrUdXS+A43B
+6wZjsIrOt4f97fvel3okAPSj2swkSuZ4uQ+sS+R15Z73lj3K69KJ8UST3sHc
+t/e8bzD/77dv37b67GP9pYe0/ayRRfT3GTNS3zcorefPwe1c73cBMH+5jrZ1
+36EWF1Lv2H7uT3ty+b7B7z/vP2y1duHYpZd7qtbROQ6031WDa7nJP2Obmq0/
+V0XnO9AYlM4/5vLOzz7XUF8lNTsAgCKp2bv2T2ny17hHxrz0Wn8dneuUNXhO
+2zgDANC7jvXKh6h65blLh/vKZv3+9dSsl+x+qnP2c9nPwrEofY9pNtl31zbc
+T/VIADitajODyH1XJfO8x/Xl2sSx9eS6bFcME2/evCk6J/IxfX5s8//O/X9d
+Iq9B2eQexEzWrIz+PmMG6nsGq+BnJE4p3/eY7b0uAM7D9nr2tkPfYOh6ddvP
+/3FPTj8W/N7zvsG83uDn0cdikDHaXZ8d6jGa/LsuX9j3deE13aTHITV73+c6
+Ot+Bx6G4NhWdb8d9HWrOlbe7iN4/AIAxy9dLI7gvfTbX+fWYl87tZj0Og4/z
+q3Q9hXtBAADMU35HRYd65TI6/3OWdrXIm3rutj6XWkNq9l7Pyb3XMh2vMe8z
+++fnGo7HMjrfFvu3PNF9rLP4jgCAAVSbGcR3V98VzfPyuoFt4lDfYF6brmuP
+mRgm8jqQJedE7jHM61E+7yXsGqX9rI++qL7ovtPxEf19xsSl3XtnSp9Znrq8
+n9fRYw4AXTV4LmyfVXT+9T58uye33Av4rzUI657B35/97K9bH0fvx6BjtKvt
+rJ9dz+T/P9l+ucL9XjS4Pp1k/2Bq1jf4MPc6TNrVpovrUtH5ttzH6xPMd1Zz
+P1cAALpI/a4B3Yfr6DEZeLyfz2cPWUfnOmUNntWe3NwZAIBx215j3nSoV052
+fS+mbxu3Debuk+kfTM37Bm+jcz7RuDR5j2m2jM65wb4tA+5nrabydwIARqLa
+zCAOrQf4VP6ZNnGob7CPtenEcJF78Urm/0/7Bj9ZfNJL3+BjNL0XMYOI/j5j
+otL+Z9Hn6j7teiTNWwGYvO017GWHOtzd1mj+Pdzm8unWTw33IfcQfh2d+0nH
+aXfdVqUz6gmqr91Kr/Um1T+YmvUNZrNfG6I+x++b1KSic264f8sTz39W5/R9
+AQBQKjV7Z8UpVNFjMvB4rwvHYR2d61TlezyF91Luo3MFAGBeOtYr19H5c95a
+1KVyP96oa5FpV39ssk/5Z0fz3MAJxqdJ7XkStcjU/L2lN3UNsY97Wg/155/N
+OQQAHVSbiUdeS7BkrpfXJmwauTfwUN9gnz1mov/Ia0I2uRcwxBqSJT2tT83g
+nIr+PmOC0u7Z86HWGryrnwl4Kmpdw/yeqMvo8QaAvmyvXxdbDy3rcPn3FtH7
+cGTf8tqCPx7I/df6zz+PzpMTnhPN3nMxif7B1LxvcB2d84nHZlY1u3q/Vi3m
+U33Nh/JnL6LHAABgLPK94qD71HvnMNHjcYLxLp3TraNznaoGz2uvonMFAGA+
+tteXFx3rlXpNCNeiLpXre6N8Bq2+39H02bzR11UHGKemNbv83OHovq/Srve1
+ydqZH/blye8vWozFsb8X12McJwAYkWoz8fj555+L5nu//fZbo+3mPrJ9/Wff
+LL8ZZD9Ef1HaT/rUmzdves+jdO3DtufoCCP6+4yJSc3fo3PIfT2PzNurCj63
+9DmBrvPRPDdempMCMDdp9y75u5Z1uGyUtQw4pK57NKlzjbZmV+9P07rdw7ld
+06bm78dcj3WM6vN31XB/burfrXqeP+U8FtFjAgAQrb5GG/oedanb6PE4wXiX
+XtOuo3OdqtwT6J4QAACn1EO98uz6lRivtHu+rOl8/mYstan6PsdNi31YRuce
+OF5N3+F5nwqeizzhPlSp2fqSm3qf/3XOJj2EAHAq1Wbi8dXlVy/O9XIPYJN4
++/bt3r7BH65/GGYnRK9R2k/6KPf4DRF6B+GwHuZ79/U9h8b38lLZcwL/e4P5
+7X29zZzPsk1OADAlDZ4H2+c6On9oIzV/5+eHml103nv2o03d7iyvb1Pz92Te
+j22s6vO2ae1xvWc7VeE8qtQq6SEEAM5cz9dXXVxFj8WIxnodnetUpVfb+VDZ
+fSHP7gEA0IuO9cpldP7wXMsaXq5NVcF5X6bmPWTZdfSYB49b03fXPq2xhc2t
+U/s+0YeXaoNpV9fs636ZHkIA+LdqM/HY1+P3XJO1Ag/1neX/LqYRJf2kT+V1
+CocIvYOwX+rWN7jues8jla0hUj37nTw3rZ5YRI8jAETItbQOdbjZr2XAvKV2
+7/y863r92lPuVWreQ5Yto3MPHLM27/zcjKUOVTjv2Xe+Hsw96SEEAOhNy+u1
+IYzq/RcDjXXpNew6OtcpSq/SovC+kPEFAKAX22vLqw71ylV0/nBIav9MXZ73
+VifOtUvNaBU91mOQds8jtukfPHlfXNrVTa875Ft8/6njubXvs5fRxxoARqLa
+TDhyr1XJnK+07y/3GD7/3dybOIOerrOKkn7SR99dfTdYHnoH4d/GcI8jtegd
+BAA+1OEuOtTh7pJ3yzMD27hqWwNLAT1S+TM7XIPPfv2RgvFr2z94H1WHSrse
+1/uWtbOi7+mkhxAAoLP6mqqv66m27qPH4URjXXrtuo7OdYoaPLd99nNMAAC6
+U69k7lL3d/IvB85v2bFGtIoe4zFJ7fsHH2t7N0PW2NKu1nzTMcdW761K/dYj
+74f+uwEAE1BtJhw/XP9QNO97//790e3kP9/X5/XJ4pPNu3fvTrQ3oo8o7Sd9
+7At96dzoEnoH4Z9a3tvI87bLnvO4LvhcNWwAeCLX0bbuW9bhHnIdL3ofoC8t
+r2v/Uw8bsn7zJMdF1zyjx3ksUvv+wZPWodKuVts2z1Z1u6SHEACgk9T+uave
+rr+ix+BE41x6zbqOznWK0qt0W3h/yL0hAAA6qeuVDx3qlYvofYASqVuN77Hu
+k7fRyzN3eTv19rrex7iJHtsxSrv+wfuOY5trhFd91NnSrs58ldrXHTvVH/fk
+UzW4t/OSPM7L6GMOAEGqzYTjs4vPXpz35Z85Frk3cN928n8bsq9MDBOl/aTZ
+kGsO5tA7CH9LZf16/7pfkArXvWiYS+VeBQA0s71eXbesw2XL6Pyhb6n9+oOP
+btOu16u3692063Fb9lA78R6N/WPbpT72+N7PXp+VTbta4k3qVk+875pX0kMI
+ANBKPS/o6xqqjWX0GJxonEuvVdfRuU5R4b2h++g8AQCYvrRbN7BtvbKKzh+a
+SLuaX1/z/zwvvq63WR2qwaRdz1hV/9xNz7WfZfSYjlnqXot8Xvu7rY95Pp7V
+kc+tavlnV6l7D+OjvC+9PvdZ59lXfvfOSQDOULWZaOS+vpJ5X+4lOxS5Vyuv
+Pff8d75ZfqNvcKJR0k/66M8//xw0l6a9gzOI6O8zRirt3j3UZG72MOTcLJX1
+Dq6jxw0AxmJ7rXrToQ6nH5/ZSv3V7NaPtZsWOTzWctY95bKMHtexSv3V7HIt
+alWfP4169tKuZpt/r2u/4CB1u6SHEACgkdT9nSRd9f7uvjFqcI26js51avLz
+1+4PAQBwCh3rldfR+UMbdd2l61p/0XpZe+5cpO5rTo7Bash7TmlXK73vKde8
+nSr6uAPAiVSbicbPP/9cNPfL6wruizdv3uz9+dw3KKYZpf2k2VeXXw2ez76+
+VL2DnJu0e7a1yT2M+1PcLyjJJXrsAGAMtteplx3qcOvo/GFoaZiaXd7eOv3d
+U/jU438f4jOr6PGcgjRMze6uPq6P7wB9tHpyzCdTt0t6CAEAiqTd/fO+r/OK
+r0Gj9/+E41x6bbqOznVqGjy/fRmdKwAA07W9nlx2qFfeRucPXaTduy2HqBOd
+wu1Qtag5S7t1GqbYMzroehF7xmmZ+ushzH/HquhjDwADqzYTjdzj99LcL/du
+PY/cX3bod3M/YkTk9Q9HcN0WLo9DlyjtJ83evn3bz8E7Ek3uU+Q1CmcQ0d9n
+jFBqti5H72vVd8yrih4/AIi0vU692HpoWYfLv6cOwFlI067Zberc/X1tdsyX
+aZo1u02d99WJxqnq+e/GKukhBABmJvX3jFNTZ7MOXINr0nV0rlOTXqW7wven
+hucKAMA0daxX3qlXMhcTq03lPL1DptvxzvXn2xEcy1I510Xg3437nvYj30Oq
+oo8/AAyk2kw0Pll88uL87/kagn/++efms4vPDv58/vOI0Du407V3sKSf9FBP
+ad/x4Zg2uFcxk/Uuo7/PGJm0Wyej9DvgZH2DdW6rgpzO5tkJAHgu19FKn/86
+YPB1hGFstnGVplOz26QT9pDN0TYWaXo9o3nedfLv56SHEADgoDTMutYlzuYZ
+vgbXouvoXKckvdrOicruEVnnBQCAVjrWKx/UK5mbtOsni7qPUOomeWdpn8c8
+19juR3BcD7kfyz2m1G9/bb6XVEXvEwD0rNpMMN69e1c0B3y6jmDu5co9Y8d+
+/ofrH0L2R+/gTtfewZeO76Pvrr7r58AdiSZrIGZv3rwZPKcTRPT3GSOyjYsG
+f/9P2jdY57csmdtGjyMARNleo6469A0uo/OHKGk6/WQ5x0X0eM1BmsZ7XkfR
+J5r0EAIA/Esqu1fdu+j9PvEYl16DrqNznZJ8/6fwPlH4XAQAgGnK76HoUK8c
+RS8LDCHt6pGrEdSf1GxOd8zz/aP7ERznRzmXZfS47Bmn3F97nfrtIdSHDsBc
+VJsJRu6zKpkDvn//vtHPn2I9un2hd3CnS+9gaT9pln926ChdA/GUOZ0gor/P
+GJFUXot/iJhf1fPEkvyq6LEEgFPLz3R1qMOtovOHMUj990j1Ze0ad5Dj3Xcd
+qk85r1G933WAvx+rpB4NAExUg3vVvc4Lovf7xGNceu15VuPSeVzLn+NeROcK
+AMD0bK8jrzvUK2+i8z+yX4t63y6TdRHpKO16CG8C61MP9ecvosfiXKRdD2Gf
+NbbG95TSCHsG94xT37XblfMcgBmoNhOML6ovXpwDfnbx2YfewaY9XE/XKjxV
+6B3c6dI7WNof+snik96O27HI51/pOXeqnE4Q0d9njMQ2Lhv83a8C87wrmfdF
+jycAnFKuUXWow91tjao/BaKl8fQQriOvvc9FGk8P4UMaYc/gCf5+rJK6HQAw
+QYX3qvt0Hb3PJx7f0mvOdXSuU5JebecdL98ruo/OEwCA6dleR1Yd6pXr6Pxf
+2LfVFHocmZ606ym7PdF9hfw5y+h9Pmfp777R+xMc7/s00R7RpIcQAJ6qNhOM
+knlg7hls0r/1KPclnjr0Du506R0s6SfNvrv6rr8DdyD+/PPPRudcPldnEtHf
+Z4xEgznpdXCeV4V5LqLHFABOIff9FT73tU/+vUX0PsBYbeMinf69n971GXvM
+l+n0faN39eeOumdwz1hVPY/VynkPAExJfd1+yuvGs1rbosG15jo616lo8O4p
+z0IDANBI2q3L17ZeeT/m95zuuY4+q7kZp5F2vVKX9b2Gvt5VdFdv73JqNahz
+kHZ16PwcZO7p7KMW/VBv62ou95CSHkIAyKrNxOLt27dt3ylTLPd+nTL0Du60
+7R3M60uWHtt37971e/D2RF67ssn5ls/pmUT09xkjkHbPqRbdUxhBrovSuV50
+rgBwCmm3bmDbeVQVnT9MRfq7Xnc/wNz6vt72ZfR+8p/jnecdj/W6Ie6nPNbu
+FtH72sNYVUkPIQBwhuo5wqnqcQ/R+xswvqXXmOvoXKcivUrXhfeLzE3PUP1M
+fFWfJzdb6/o5/kb9pHXfwFX9+4f6Bx7qP88/t4jedwCgu471ylH3uNTXLf/p
+c4zOh/NR11+Wadc7dVPPkw+5qX8u/3wVnTutjveiPubXtdsjx/v2yc9Vc6+r
+pV0P4UotEoAzVW0mFnnduDZzw7wuXek6hDNaB+4sorSf9JPFJyfJ56vLr4rP
+y1PldKKI/j5jBFL5+4qq6FzrfEuf311E5woAQ6qf42lbh7uOzh+mqq7dXNb1
+mHWD6+lN/bPr+ncvXbNOQ113u6prSfn4lb7f8qH++VX9+1X0vgw8Rmt1OwDg
+nPR47fOS2+h9DRjb0mvLdXSuU1H6PHfhttYd7km5bxV3DhzrDzzmqmDblx3O
+i/x7o+4ZAAAO2/47vupw3beMzv+Ffbtsel0EwDDqGv2qp3ttD3W93pqcAIxd
+tZlY5F6rpnPDN2/efPjd0vXgPnr90Ye17MQ0Ivd6lhzXU/SENlkDMfvh+ofB
+czphRH+fEWwbF6XPbUbn+iTnyvMUAJy7XEvrUIfzbyQMpK5ZVM8sovNi0GP+
+/HhX0TmNYDxKn/PWQwgATFrP1z3HLKP3dcRju47OdQrSq/S6z3tGT3rQHj32
+opX0oR387LRbhy5vbxE9ZlOV2vcHHnPweNSf1VcvafH6hgDAOHSsV66i839h
+317vuY5aROcFcO7qevyqp3tueggBGLtqM6H4888/G80Lc5/hu3fv/vP7ua8r
+9wWW/G7uMxTTiNJ+0rw+4dBR2p/6aGY9qtHfZwRrMI9aROf6LO/7wrwvo3MF
+gL7VzwA9tKzD5XfMu+8JwKD0EAIA56B+tugUvYOL6H0NGFu9g32O57/XSzmk
+8zoqadcDWHqfKt/funKvqtdj3feakHdHPuum58/a1Pk7HwBgArrWK6PzL9i/
+59c66+icAPibHkIAzkS1mVDk9QNL54VfXX61ty+rdI263I8mxh+l/aS5Z/QU
+8dnFZ8Xn6CnWQTxxRH+fEaye97z4jGZ0nnvyXjaY15nTATAbafeOy7uWdbhc
+v7uI3gcAzoceQgBgzrZxcYK+wfvo/QwaW72DfY7nq+11dNm9o0UPn1W69syN
+HrGTHPt8L/Eyte8p/NdagPk86XB/skTR+pcAQJy0f02+JvXKRfQ+vLB/1Z68
+l9F5AfBvdQ9hX7VIPYQAjE21mVDkfsCSHrFjawb+9ttvxfPL/LNi3FHaT3qK
+Pr28xmWT+xe573FmEf19RqBtXBbOiRbRuR7I/64wfzVGAGYjNXt3+3PW4wUg
+hB5CAGCuUtn7+Tpd90TvY9C46h3sczzLnuvuZe2X7XauC54Vr6LH5BwVHJt9
+qmfb6LK+UBPX0eMFAByWuq11XEXn/8K+HeqL1EcCMGI91yLz/b5l9D4BwGZi
+vYO5L7CPHrG8pmDJ/HKG68LNLkr6SbNj/aR9RemaltkP1z8Mnk9ARH+fESiV
+rdk+2r67er5XOp+7js4XALpq+XzPo3+9I3ws0u5d5Xnf8jvQrYsIMGN6CAGA
+ucn30AfuHTzL9wDpHexxLHe9Xie7d3TgOev/9Ce69xN+PjR5zv/h2e/m9Xf2
+9Q3m/5bXtlzWP/PoMpWvebnPInq8AIB/61ivvIrOv2D/9l0vraLzAqBMz7XI
+ez2EAASrNhOJ0vUCS3rESteqy2a4NtysovQ4vn//ftA88nlSmkvugR06n6CI
+/j4jUCp7H/IyOs8X9qHJcxmj3hcAOKZ+3qZtHW4dnf8L+/b0GaLR9jgC0B89
+hADAXOT7zgP3Dp7l2hZ6B3scy1fpqvD+UdXDZx17jjz3DZ7l+TwmDc6Hfzwj
+f+De5EN9zI8e17R7b9hdi3uaqyHHAgBoLu3eDdC2Xjnad5c/2b9D7z04y3e6
+AEyZHkIAZqLaTCS+u/qut16/3LdVsoZhNtP14WYRb9++LTqGX1RfDJ5LkzUH
+T7EGYlBEf58RZBsXBXOeh+g8C/ZjUdgDqX8QgMmqn6/Z907vEvdjfi4r/fvd
+9949D3BG9BACAFNX36Meqm/wLnr/AsdV72BfY/kq3RbcP+pcD9pzj0cP2Agd
+6AE8ZPnk2D6/N3nb5J5j/tnUvH/wYcz3NQHg3HSsV47+PRLpcN/g6J+dAuCw
+uhZ5p4cQgImqNhOJzy4+e3Fu+Mnik+LtlfZ6NdmmOG2U9pPmdSaHjCZrDp6i
+jzEwor/PCJLK3oU8+nd+NdgX/YMATFaL52om04u3zW/9JNf76HwAiKGHEACY
+svq5oSF6B2+i9y1wTPUO9jWWZfePOtWDXniO/Dp6DPjHsWrSO5j7/Z73Deb/
+3WrdnXS8v/QQa/wAwAikdu8BeHr9MPZ65aG+wWwVnR8A3dXPmPZ1Dy9vp4re
+JwDOQrWZQOR1Akvmh7mXrDSa9HvNeJ24SUdJP2n27t27QfMo7UPNa12WrIs5
+4Yj+PiNIfuagYI5zFZ1ng/251T8IwBy9UKt6yTI6/xf27fJZvpO59gBgGHoI
+AYApqq85hugdrKL3LXBM9Q72MY7/vvfS+z2kF54jb71dBjsnrgrPibs9x/au
+63P/Le51rqLHDADoXK8c7bsA6uud9Qv5j7rvEYBmeu4hXJ/z/TsATqLaTCBy
+717J/PDt27eNtpvXgCvZ7szXiptklPZ+Dr1uZO5LLL1/0fT8nGBEf58RpLDu
+Ppn7X9t4nZqvLb+KzhsAjsnPV3Wow62i839h33It7v5ZzovovAAYBz2EAMCU
+bONyiN7B6P0KHlO9g32M46t0U3gfadFy+4f6Bke/tsy52h6X68JzIvcY3j75
+/x96CXv4/NJ+1kfr6DEDgHPXsV55HZ3/C/t1aO3sR/fReQIwDD2EAExEtZlA
+lK7rltcnbBK5l6t0/jn02nWiWZT2k+ZzZ8go7T8dOo+RRPT3GUG28TC35xJy
+r2PJfj1z5/lRAMYoP19VUK865C46/4L9e/7s2jo6JwDGRw8hADAFafduu757
+B9fR+xU8pnoH+xjHw+sBdr6PlA73DXZem45Bz4mX1tV59LRvML//q3Pf4JMc
+Gt3rjB4zADhndb2ybd/gOjr/PfuzSLt3JDx/v+nkeh8B6IceQgBGrtpMID56
+/dGL86vPLj5rte28Lp3er+nFV5dfFR233GM4VJT2L7Y9NycY0d9nBCnpqYvO
+seV+XbSYs+V+w6vo3AHgUdq/Jl+p3G+4iN6HF/av2pP3MjovAMZLDyEAMHZp
+9566PnsHz/qetd7BHsZw91x0yb2kmxbbzs+QH+ob7K3HjEHOi6bvKut9DckD
+584xzikACFDXK9u+57TXdw902Id8TZzXPb5pcQ2yGXvNFYB+pN17wa5T83Ur
+jvUQeq8SAH2oNiOPvN5fyfzqu6vvWm2/tP8ra7quoRguSvpJhzxmebslOeSf
+OaPzJvr7jAD5+cg519vT7l0wbeZs98l7XwAYgVT+/u99quj8X9i3Q32R4fVD
+AMZPDyEAMFbbuOm5d/Csny/SO9jDGL5KyyHuJaVd3+C+Z8hX0fvMi8eutJ/0
+qd77mFvc+6yixw4AzlGHemXv7x6o86mOyGsJXtdy3m36BJ+b5DvXAWhvgB5C
+dUgAuqo2I483b94UzbHevn3bavulPWDZD9c/tN5+m98V++O3334rOl5DrvdX
+su5hPu659/WMIvr7jAD1s5YvzVuuo/PsuI9t+wcf3/tyGb0PAJynuqbVtoY1
++jUJDtQZV9F5ATAteggBgLEpvO9e6iF6f6LpHexhDF+l25Lnuhtu8zLt7xu8
+jt5fio5faT/po/VAeegdBICRS7t1+rr23k3dMvo4ABBDDyEAI1JtRh5fVF8U
+zbG6rO2W+/pKPiP3gjWNvB7i4+/nPkjRPUqPV9u1KF+K0rUqz6xvMEf09xkB
+zqF3sN7Py47zt/t6DrjoOa/X9TG4Srt3Ua9r9wdyePzzmzqf/LvWZgKYobR7
+/qpt/eo2Ov+C/VsdyF3PPgCtJD2EAMCI9HlNEr0v0Rpc462jcx2rtL/H77lV
+g+0d6jtbRu8rxcewpJ/0qcVAeegdBIAR61ivnBPP5QCcuaSHEIB41WbEkfsB
+S+ZXXdeXa7L2YO4bK43cO/b4e3n7Xfobxd+Rj3fJscrrE/Yd+ZiWnCtNzpMZ
+RfT3GQHSmfQO1vt60dPc7a7u3bts2reX53tptw7iqt5OX8+P3NfbbJwTAOOT
+n8VJZc907XM39vpVOtw3ePZrKQDQXdJDCACMQI/XI8vofYnWYCzX0bmOUXq1
+vT4uu6e0LNzevvs6+T5WFb2vNDovmtx7vBkwD72DADBiHeqVczL6d7YCcDpp
+10O4UocEIEC1GXG8ffu2aI7Vx/pypWvZfbL4pHibT9dMtOZgP1HaT5oN8dkl
+fYtn2jeYI/r7jADpjHoH6/193XPPXvaQ/l4P8PqZp2sJ9vmZL7ndsm4TwARt
+r0dfp13/X5vaVa7fXUTvwwv7d6hvMFtF5wfAfCQ9hABAoG1c9XQNsojel2gN
+runW0bmOUXqVrgvvKx19F1V9z2pfn9f92O9H8a9jWdpP+ni/cbD3lB04p46p
+oscPAM5JD313c7CMPg4AjE++Z5f67SHMz5qO+j3hAISrNiOOb5bfFM2xco9h
+1+h77cHcK/j4813XRRR/Rx77kmOU+zb7DH2DRRH9fUaAdGa9g0/2++bEvXxR
+7s0rAaYlHe+te8lo+8bT4efLnvKcGQC9S3oIAYAA27jo4/5u9H6MQYNruXV0
+rmOUyt5RdffCNi4ObCf/N/WHiUnl/aTZYGsO1rnoHQQAAGCyUr89hA+e9QTg
+iGoz4shr/JXc4+0r+lp78M8///xHH+K7d+96y/Hco7SftI+1KJt8bj7ev/32
+W6+fOcGI/j4jQDrT3sEn+34/YN/emJhXAkzA9rp02aFv8Do6/xf26+GF/O+j
+8wRg3pIeQgDgxOr7sl2uNwbt2ZmKBtdw6+hcx6Z+l1On+0ppt0bdvvs6K32D
+01TYT/poMXAujXoHo8cOAAAA9kl6CAEYXrUZaeT+u5L7u32uL9dk7cHcZ3ho
+G0/Xpzv0c6JdlB6fPtaizJGPZz7HXuobHEt/6C+//LL58ccfN5/+10/35pr/
+LBsoor/PCFDPWc623p7nV/U8q+szHFPxYV4ZPe4A/Fvavb+9bd/gOjr/Pfuz
+2LrKPYFT730EYF6SHkIA4ER6eF7oMnofxqDBtds6OtexSeXvqbo48PtXB35+
+Fb1vtD4nSvtJs9sT5PPS+8b0DgIAADAZafc8bl91SD2EADxVbUYab9686dTD
+1zZK1x7Mnq8z97xvMP9v0V/k/rzSY9NHL1/uX316PPfJf56Pe3TkfsCP/8vH
+jZ4R//a/f7v5448/+kwj+vuMIOrt/5mzdX2OY0rutqrocQdgp35mp9FzMk/k
+3rzw+4R1r+Dl1k1q9u7yR4vofQDgvCQ9hADAwLax7Hh9ET7fH4MG12zr6FzH
+Ju3WBnzpnszDnt97feR3l0HnQTWC2soYVB3PidJ+0mzw/uWG9w/X0X+nAAAA
+oETPdcjcQ3gVvU8AhKs2I42vLr9q1b/XNZqsPZjq3sWcQ17n7pPFJ733r4m/
+o7SftI+xz8fzpfPgu6vvetqz9pHXGWzaM/jcTz/91Fc60d9nBEkFa+5F53jC
+sVik8+ohvI4ecwA+PCOzbnktmPsN974XvmM+1RH5ffPXtZx3mz7B5+6ijwEA
+56vn2t0m6SEEAGr1/ea21xTmyn+PY+m12jo617FJu3dOvXRfZvXsdxYv3O9Z
+BJ0H1QhqKmNQdTwnSvpJP9x3PMH5WTW8h7gaOicAAADoU891yPutZfQ+ARCm
+2ow0Su/xDhE///xz12dXP/S5iX7ji+qL4vFvux5lXmvwpb7V3CPad89qm/j+
+f/m+83n6KK9B2ENEf58RpHBu0ntfwpht4/XWVdqtzxdV/10/M9Tn5H1cRI85
+wLlKu3X6ersunKhl9HEAgJ5rd9nKXAsAqJ/paXMtcR2d+1g0uEZbR+c6JulV
+umh6XybterkeXvj566DzoAqs14xJ1fG8eOn4Pro5wTnaZA3EzBoLAAAATFLP
+dch8v3EZvU8AnFy1GWHkvqyS+7u5l2yoaNKn9tw3y28Gy+tcI68H2fQ4NOnf
+zOsU5uP20jbzWoM5l+j48n/6svdnrnMvYseI/j4jyDZuCuYby+g8A8fnIg3b
+R5jnhNdbl6mgR7PO57L+nb7mkw8lnw1Av7bXcJd9XxNO1OvoYwEAj3qu3WWr
+rUX0fgEAMQrvv/feHzQnDa7N1tG5jkl6la6a3Jdp8PODr0d34DyoBqrRTE3V
+4Zwo7SfNBq8ZpfI1EE+WEwAAAAypvr/R13Oo9+mMn+sFOEPVZoSR+7NK7u+2
+XVuuJPL6cx+9/qjxc6tD9jOec7x9+7bVc8R5jcB8PuXfzz2pT+X1JfOf5Z8p
+Oa75nBhD9Lne4HM//vhjl9Siv88IkucPBfOMVXSeY5B26xHm+dv11m2DZxay
+h/rnV2nXi1j1mNdlvd2HjvPJZfQYA5yTVP6e7zm7jT4OALBP0kMIAPSgvnfb
+9LohpDdrrBpck62jcx2T9Go7bi/fl7nbep2a93AtA86Dqsdr8ymrOpwTpf2h
+9yc6R+8anHMnyQkAAABOIe2e2b3v6V5B3s5l9D4BMLhqM8L47OKzonu8uf9r
+yMi9ZU3qHLm/bAxr0s0xStYEzNr0ex6TP3fo86xJ/PLLL3vzzP2E+/r+/vjj
+jw///dP/+mnR/n78Xz7+8DstI/r7jCBpt46dZxX6Gcdqj5OtpZR2vY1d55XL
+6LEEOBd9XvdO2DL6OADAMUkPIQDQQX3Ptun1gvfs/HMMS6/F1tG5jknhfZnc
+M9ikf+vRycc66R18VHU4J0r6SbObE5yfi4bn3Cr67xQAAAD0LfXbQ7juct8A
+gNGrNiOLvLZb6T3eU0TuHyzpRxtyDUSxKVobMHv37t2HY1b68/vk3tU3b96M
+Zp3Bp/G8B/Db//7t5q+//ir63Z9++ulDb+BL+5+32TKiv88IlMrWq7uIzpNG
+x7TLvHIZnT8AAMCYJD2EAEBL27hreJ1wFZ3zmDS4BltH5zoW6VW6PMH7oBYn
+Pg+qHq/Fp6xqeU68bnBsB68Hbj9j2fB8s34CAAAAs5X0EALwsmojXozcQ5bX
+n3veQ5j70767+m6UPWZzitJ+0nx8nkbuI8zH56V1LPN6kfn45p7DMR/L3Pv3
+NO+8BmHTyGsKfv4/fn50PHJ/YWk/4rOI/j4j0DZuC+YUy+g8aXVsr1vOIR1v
+AACAZ5IeQgCgoRb3aL3H75/jV3rttY7OdSzSq3TTsh8wr0tXug7hKno/aXRO
+lPaT3p8on9sG5+VJcgIAAIBoeggBOKLaCDHyyGsAltz3/+ryq+hUB42naw62
+6Rt8jNwX+Hz9wudabj/6+4xA27gqmEvcROdJ6+N7kZq/27r1+2sBAADmTg8h
+AFAqNVsv7T4637HRO9hizF6l+xZ9g1f175auB/ew9Tp6Xyk+J1Zj6QlNzdZA
+zK6jxw8AAABOKe3eRfaghxCAJ6qNECOP3BNYct8/9xjONXIv3+N+fv+/fN95
+e7/++uvRsWz5GdHfZwSqe8vU3Wcu9382nDc+eHYVAADgMD2EAECJJtcC0bmO
+jd7BhuP1Ki0a9mXlPsOLJ7//uu4LLPndZfT+UnxelPaTXp4gl9L+1Ed6VAEA
+ADg723jdcw+hGiTAtFUbIUYepff93717F53qYPHtf//2wz7m9QL7ii//py8P
+jmX+sxYR/X1GsIK5w310jvRynJcN54x30TkDAACMnR5CAOCYbdwWXgMso3Md
+G72DDcfrVbpq0JN1u68vq8EadffR+0vROVHaT/pwonzuGpyjq+jxAwAAgEh6
+CAGoVRshRhxv374tuu//yeKT6FQHjY//y8cf9jOvP9hXPF3L8LmWPYrR32cE
+yz1iL80bonOkt2N90XAueROdMwAA/z97988bS5bmifncT9Ds+QKbqPbVBKr9
+SaPGE9B0etxJqwdYZ+j1GgI6zesVIcgpq9MujEFzoTY6jTXWKKEpQIaAUaMT
+CxkCBqihtID+WFREZbAuLyvJPBF5It748xzgwfTUJTPfPBmMzIg3fnGAKZAh
+BABOqcZt5mf/KrrWsZEdbDlfxzzg2YzYe2sGVv+2bpHtWke/Zs5uE7l50t0A
+tVy32LZqq+j5AwAAgDGQIQRYvPWTYYx4/NPtP2Wd9//1za+jS+1tfPfdd8XX
+HKzH999/LztIUTn99+gaKfp+t80PrqNrBgAAmAoZQgDgpeZ87LnP+/8aXecY
+yQ62nK9jLvDijFi9puBY8mZcvE3k5Emf3suTFqwld03L2jZ67gAAAGBsmgzh
+nR4kwOKsnwxjxOOX17/MOvf/9ddfR5fa2/j48eMPr/Gbb74p/thf/upL2UGK
+aY4B5McWJPN6lWeH6HoBAACmRoYQAHiW8Tn/v0fXOEaygy3mKn+9wE3GY+Wu
+VWdtuJFr8T5e9VzHqkUtj33XAwAAAFNW9wszr/nNta1zidGvC4A3rZ8MY6Tj
+r3/9a+65/6c///nP0eX2Nr799tun3/2H3/2wTmDp8dXffXVyPuv/3mFE788I
+1nz3lx1cmGps2hwfRtcLAAAwRTKEAEDG5/v/El3jGMkOtpirD+muVNavzm2l
+vDUMrQ83YtV7c5P5Hu4HqKXNmoOb6LkDAACAKSicIXyUIQQYrfWTYYx0/OEP
+f8g69/+zq59FlzrZ8dt//O3JOa3/e4cRvT8jmOzgcqX8NewfXZsKAADQnQwh
+ACxXxuf6f4qucYxkB1vM1Yf0kNGbPbR4vNysV/ZjMvg2kZsnve25jjZrDu6j
+5w0AAACmRoYQYPbWT4Yx0vHrm19nnf+vf87oNt7KDn78+LHLw0XvzwgmO7hs
+1XjIvS41ulYAAICpkyEEgOWRfes8b7KDOfN0XCcwpzd71+Ix2+S9NtFzwMn3
+MCdPWrvuuY7cHGq91uUqet4AAABgqpoM4b0MIcDsrJ8MY6SjXk8wpwfw9ddf
+R5c62fHV3311ck6/++67Lg8XvT8jmOzgsjXHjI+Zx4Sr6HoBAADmQIYQAJZD
+9q3zvMkO5szTh7TJzGbdtHzcvbXipqlF9vPQcx3XLTKorbZPAAAA4LTCPcj6
+utLb6NcEsHDrJ8MY4fjTn/6Ue/7/h581uo0vfvHFT+bzy1992fXhovdnBMu8
+10iv9x0lfBvIyY/Wsu9LDAAAwHkyhAAwf7JvnedNdjBnnvLXdWt1n/g6y9Ui
+96WHNCIt8qS7nuvIzZ/2WgcAAAAsUeEe5KGyiX5NAAu1fjKMEY7fb3+fnR00
+uo3vv//+5Hx+8803XR8yen9GsJzjg+gaGWQ7OGTeR8Y69AAAAIXJEALAfMm+
+dZ432cGcefqQHjP6sg8dH/sg+zU91ftxn/m+bXqsITe/2GnbBAAAAPLIEAJM
+3vrJMEY4fnn9y6zcYP1zRrfx7bff/mQ+f/43P/8hU9hxRO/PCJaTGYuukUG2
+g03m8d8mulYAAIC5kiEEgPmRfes8b7KD5+boQ7rOzGfddXz83PxX63UN6XW7
+yMmT9vae1Y+bWcOj7QYAAACGIUMIMFnrJ8MY2fi3f/u37DUH/2HzD9HlTnb8
+9h9/+5P5/Pjx4yUPGb0/I1A1rjK+57vn50Lk5Egr99F1AgAAzJ0MIQDMh+xb
+53mTHTw3Rx/SbWZv9qbj4+dmwGrbCx6/9e/y5pyuo9f7S3nrHtbv+3X0fAEA
+AMDSpOMaEznXieZmCDuddwIg2/rJMEY2/vCHP2RnB7/++uvocic56rUF6zUG
+X87ll7/68tKHjd6fEai5FlHfneftYZN5zOc+sAAAAAOQIQSA6VvaOfhqFMkD
+DZ0dnOJ3pPShmqOe15erc32Zz/HY4bHvXvz+bfR8zkGL96vTWpQZz5+7VqXc
+IAAAAAQqnCGsz+Oto18TwEytnwxjZKNeSzA3O/inP/0putxJjm+++eYnc/nd
+d99d+rDR+zMCVWOb8b1+G10ng24TjxnbxCa6TgAAgCWRIQSA6VpgdnDbXHe0
+veT7xhDZwbq+yl1T7yZ67lrVflyzr/f15VquPZg9h3V27NUadO5ZWGa7eMh8
+r9Y9PPd15raSvZ0AAABMTYt7ujzbDlBT7hr1P4qeR4YjQwgweusnwxjZ+NnV
+z9p8rzQ6jC9+8cVn8/jx48cSDxu9PyNQNR4yvs9bU3xBmuskzm0T99F1AgAA
+LJEMIQBMz9Kyg81r3r14fQ/NNUitsmF9ZQebvODtq/5IL2uw9TrHH9JNZl/2
+4tfW4rrHQ4vHfLlmojUHy2wTuXnSp56eOye3uImeJwAAgD7JDjJVMoQAo7V+
+MowRjT//+c/Z3yl/ef3L6HInOeqc4Mt5/M3f/6bUQ0fvzwhS9+kzv8e71+uC
+VOM6Y5t4jK4TAABgyWQIAWA6FpodvEqn7114nzLvV1gyO9jUs2mefxbznz5U
+39/yerMX3x8yFV57sM4Kvvj5i9ZF5LN53WS+R/vCzys3CAAA0JAdZOqqsa2v
+D5UhBBiN9ZNhjGh8/fXX2d8pf33z6+hyJzf+8pe/PP38b37+4xx++asvSz58
+9P6MIE2f/Nx3dz3bBco89ruOrhMAAGDpZAgBYPyWmB1sXvfqnXPNj833jjfP
+M5fIDlbjpnmet+o4pInePzF9qGof8Fq/Ftc+Hs48zupVDlGvodx7lJsnLbrO
+Zsbz1u/3Onp+AAAAhiA7yByk4324SmYI7/UfATpbPxnGiMbfrv82+zvl77e/
+jy53cqNeY/B5/r74xRc/ZAkLjuj9GUHS6Xv+vla0f8g0pNP3Xn5tE10nAAC0
+oVfHnMkQAsB4LTU72Lz2m4zXf2iuRVq9+t1O2cFqXNe9jeZxz/3uJHNrTf4u
+5/ih2LaV2q09uH3nMR7O/Ryd36Pc9+fitShfvJ/7jNzg6P/Oqhp/U/mu8rvo
+WgAAgGnTj2ROesgQ6j8CtLd+MoyRjL/+9a+tvlPKDrYbHz9+/Gz+vvvuu9JP
+Eb0/I0BzTWHOd/XR9/PoZfu4zdg2ttF1AgBAG3p1LIEMIQCMz5Kzg83rv2vx
+3eOhOT991SY7WH9faX4v556Jkz/HXR0X3EYc07Q8plq/+t3XucGH6Hmckzqf
+1+K9ubj3l4751Yczz1P/+6jX9azq+6rJDD7XLDsIAABcRD+SOZIhBAi1fjKM
+kYx/2PyD7GBPo84Jvpy7b7/9to+nid6fEaD57n3u+/khuk7Cto/10q9nAQBg
+fvTqWBIZQgAYj6Wfa22uLWqT6Xv2r4V/bjZzXh0X3HfJ7xV43jZrDz41x2D1
+Mc9N5VA6v8Zn701unvTiuW/ez3PbwV30nJx5DXVm8I8n6pYdBAAALqIfyZw1
+5/na3CdM/xHgcusnwxjB+MMf/tDq+2Ttl9e/jC57EuP7779/+uIXX/w4b998
+801fTxW9P2Ng1bjO/F4+6r4evW8ns762AgCA5dGrY4lkCAEgnnOtrfoSQ3ic
++veZyGOH6nE3bY9hTriNnsO5qeZ03/exbjquNXgut1pnRNfR8/HOa/jyjcyg
+7CAAAFCEfiRLUJ9bS3nrl+Sq84hX0a8LYKTWT4YRPL7++uvOPaF/uv2n6PJH
+P7781Zc/ztfHjx/7fKro/RkDa3HN4Cq6VkK3k7PXV0TXCAAAbejVsWQyhAAQ
+R3bwx3nYjiA3WJt0bq3FMURv21XLnNpru+g5nJt0XA+yt/xm9bPX9fuW8Zh3
+dS3R8/HGa6gzg99mvAbZQQAA4CL6kSxJ4QzhY3P+cJTnFgACrZ8MY8Dx5z//
++elPf/rTD36//f3Tv1v9u865wWc/u/rZ09+u//aHx6vXL3x+/L/+9a/RLzd8
+/PYff/vjPNX/u+cRvT9jQNW4yfwefh9dK+HbytlrSqNrBACANvTqQIYQACLI
+Dn42Fw/BucHJz3WTzwo9nknH9eceO/SHJz//Y1TN603Hfv2h2Z5ummPTlzbN
+vx1y3td6m4iehzfm5ovKNy3mRHYQAAC4iH4kSyRDCNCr9ZNhDDjqjF/HnkNr
+dZZwyaNeY/B5Ln7z978Z4imj92cMpP4u3Xyvzvn+vY6ul/DtRXYQAIBZ0auD
+T2QIAWA4S8iztZiL68Dc4OMcvq9UxwQPmccO657r2LQ8lqnzZa756ue9yFkT
+sNYl7/meXd/b2QVz8vP0KTP4XeV3L/zlndckOwgAAFxEP5IlazKE9zKEAEWt
+nwzDmN349ttvf/zu/dXffTXU00bvzxhIi+/k++haiSc7CADA3OjVwU/JEAJA
+/5yT/8l8bIOyg7fRr/3iuTuu9zea44YmP5iTR9tGz92cpby1AWvXzXuW+/On
+1NnV2zTSdQZfzMnHJif48xP/9hvZQQAAoC/6kVC8//hDhjD6NQEEWj8ZhjGr
+8d133/34vfvLX3359P333w/11NH7MwZQjU2L79rr6HqJJzsIAMDc6NXB22QI
+AaA/soM/mY+rymHg3OBD9OueqybPuDuRIazzaXdjz5hNXYs86eOr37tu3p9z
+61jum/d3M5f3Mh3XJJQdBAAAeqEfCZ8U7j/W5xM30a8JIMD6yTCM2Yy//OUv
+Tz//m59H5AbrEb0/o2fVuG5zbV90vYyD7CAAAHOjVwfnyRACQHmygyfn5Gbg
+7OB19GuGPqTjGoA5x5L30bWOiewgAADQF/1I+CkZQoCLrJ8Mw5jFqHODX/zi
+ix++b9f/t/7/Bx7R+zN61OQGHzO/U9c/dxVdM+MgOwgAwNzo1UE+GUIAKEd2
+8M15Kfld4z130a8V+lJnAjOPJW+jax0T2UEAAKAv+pHwNhlCgE7WT4ZhTH7U
+6wvW6wwG5gbrEb0/oyctc4M1fUN+lLPtRNcIAABt6NVBezKEAHA52cE352U1
+QG7QPROZtRbHktbezJs32UEAAOAi+pFwXjVumuyfDCHAeesnwzAmP55zgz//
+m58Xzw1+/Pjx6dtvv8350ej9GT3okBu8j66ZcXE9CwAAc6NXB93JEAJAd861
+vjs3256zg+6ZyGxVx4c3mceRh+hax0Z2EAAA6It+JOSrM38FM4R1H3Md/ZoA
+erB+Mgxj0uOrv/vqx9zgd999V/Sx6xxi/dh//OMfc348en9GYc31fG1yg/V3
+b/fd5UfNNuR6FgAAZkWvDi4nQwgA7TnX+u7cXLXsZ7RxiH590Kfq+PAu8zjS
+/UN/OneygwAAQC/0I6E9GUKAd62fDMOY7PjtP/62t9xgPer1DL/4xRe5Px69
+P6Og1O0evdfRdTMuzbHYue1mG10nAAC0oVcH5cgQAkA+2cGz85NzPrqLdfRr
+gz5Vx4cPmceR1t/86dzJDgIAAL3Qj4TuZAgBTlo/GYYxyfGcG6z1kRv8zd//
+5ofH/vjxY+6vRO/PKKC+vq7jNXub6NoZn+aaTdsOAACzolcH5ckQAsB5soNZ
+c1TqmiBzyiJUx4arFseR7iH60/mTHQQAAHqhHwmXq8Zt5VGGEOAH6yfDMCY3
+6jzf83frP/7xj8Ue9y9/+csPj12vN/j8+PV/yxzR+zMudMH3ZPcZ5aTM6zT0
+mgEAmBS9OuiPDCEAvE3OLWuObgpnB9fRrwn6VB0bbjKPIR+jax0j2UEAAKAv
++pFQRjWuKtuCGcJ7vUdgotZPhmFMarzMDfbtq7/7qk1p0fszOkqXrc+9i66f
+caqPj3K2oeg6AQCgLb066J8MIQD8lOxg9jyV+g5xH/1aoG/VseF95jGkv4fT
+8yc7CAAA9GKk/ci2NT1FzyM86yFDqPcITM36yTCMyYxvvvlmsNxgrX6+FiN6
+fzYJzffP9TuuBqxjk7pnBmt30fPJeDXbl2tZAACYnZH26mQHmaUkQwgAP3K+
+NXue1oW+N6yiXwv0rTo2fMw8hryNrnWMZAcBAIC+jLQfKTvI5CUZQmC51k+G
+YUxiDJ0b/Pnf/LxtidH7s1FJnzKC9XfMeo3qh5bfJx+aa+Pq379JhTKFzWPt
+Cnzv3UTPMeNWjbuM7UivGQCAyRlpr052kFlLMoQAkDI+3/bRNY5Fge8Nu+jX
+AH1reRy5jq53jGQHAQCAvoy0Hyk7yGykTxlCvUdgKdZPhmGMfgydG6z97j/8
+rm2Z0fuzcPX3vjoLldrnBNvkCes81iZlrFFYjet0zApuC15fV2cOb6LnmvHL
+3Oauo+sEAIC2Rtqrkx1kEZIMIQALlvG5to+ucSzS5WsPrqJfA/StzbFtdK1j
+JTsIAAD0ZaT9yJ1+JHPTXPe9K9h7vDt3bTdAkPqa/T2c8i//8i+H/X7/9J5/
+/dd/fYiuc+7++Z//+X8eOjdYq97f/6llrWmJ0vHeE33mBXMdCl87d0r9GmW9
+yJKzTUXXCAAAXYy0V+c+nyxKkiEEYIEyPs/20TWOyQXfFXbRtcMQquPCh8zj
+x4foWsdKdhAAAOjLSPuRe/1I5iqVzRDWa7RskwwhABOR8tbiXUfXOXfV9+c/
+BmQHv4t+3WP34nviY+F83li5FwbZ0jFT6zoWAABmaaS9OtlBFinJEAKwIM65
+tp6vdcfvA6vo2qFv1THhVYvjx110vWMlOwgAAPRlpP1I2UFmL8kQArBASXYQ
+fqLJRJX6XjgFB3/ntJV5TcYuuk4AAOhipL062UEWLckQArAAGZ9f++gax6bD
+94NddM0whOqYcNPi+PE2ut6xkh0EAAD6MtJ+ZOt1TKLnEbpKMoQALEiSHYTP
+NH8TS1ln0HdVOkt52cFtdJ0AANDFSHt1O706+PF4dF/w/MguyRACMBIZn1v7
+6BrHJvNc9UvX0TXDEFoeQ66j6x0r2UEAAKAvY+tHpnbr1+tHMhuFe4+PrpsF
+YIyS7CD8oO4VVx56zOmNTX1dnMwgnVVjk7GdbaPrBACALsbWq2tq2uvVwSeF
++3jP50pW0a8LgGXL+LzaR9c4RtU4ZH7emz8WozomfHTsWGQeZQcBAIBejK0f
+Wd9XRnaQJSvce6zPV26iXxMAPEuyg5D7dzAH1hmkGJ8fAADM2dh6dU1NsoNw
+QuE+Xm2XZAgBCJLxObWPrnGMUt697pyzZjGq48HrFseOD9H1jpnsIAAA0Jex
+9SOrx7+VHYTivcdDkiEEYARkP1iyOkNXue8hn7dvrjPbnrBr/v1Q+HnfU7/G
+m+j5Zl58fgAAMGdj69U1NenVwTsK9/FkCAEIkfH5tI+ucawy+i7yUSxGy+s9
+76PrHTPZQQAAoC9j60dWj3+nHwmfFO491ucuN9GvCYDlkv1gqapxXfeJC3yf
+qx/jrs7mpZbr+aVjdnHd/B2WvLatc02Qy+cHAABzNsJe3ZVeHeQp3MeTIQRg
+UBmfS/voGscq45z1JrpGGEpqt279NrreMZMdBAAA+jLCfmSbY0n9SBajuRb7
+UKjveHCeEoAIsh8sUTrmBh8v/O627eO6saa2m/T5GoXPXj7/y/9e/+xtOl4b
+JyvIIHx+AAAwZyPs1a316qCdJEMIwARlfB7to2scq3S8X+NbvZ9DdH0wlOpY
+cDWm49mpkx0EAAD6MsJ+ZOtepH4kS1Jn/lK5DOHe9bUADEn2g6VJl+UG6+98
+m+jXAGPQHAed+5vZRtcJAABdjLBXd6tXB93IEAIwJbKDF8/fzrlqlq46FtyN
+6Xh26mQHAQCAvoypH9n1Pqb6kSyRDCEAUyQ7yJJckBuUGYRXmmsvZQcBAJil
+MfXqmnru9OrgMjKEAEyB7ODF87d6Y96uomuDIVTHgZsOx44P0XWPmewgAADQ
+lzH1IzvUoh/J4skQAjAlsoMsxQW5wW107TBGmdnB++g6AQCgizH16pp69np1
+UIYMIQBjJjtYZA5ff87vomuCIaSO69U37qLrHyvZQQAAoC9j6kfW95WRHYRu
+qnHb8fp0GUIABiM7yBJU4yq1v7fDQ503jK4dxqr5uzr7dxRdJwAAdDGmXl1T
+j14dFCZDCMAYyQ4WmcONPidzVx3vXVfWjfr49XBBbvDZY3PfmvrxNi8efxX9
+eoPnWnYQAADoxVj6kfVx3yXHk9HzCGPQXE+7LZwhXEW/LgDmQ3aQJehwHVh9
+rddVdN0wdjnHOdE1AgBAF2Pp1TW1rPXqoD8yhACMiexgsXl8Pnd9iK4F+pA6
+rk3f0Tb69QbPtewgAADQi7H0I9Pn69g/31dGPxI66CFDqO8IQBGyg8xd5jb+
+0ja6ZpiKzGsr19F1AgBAW2Pp1XWsRa8OOpAhBGAMZAeLzeNdM1+30bUA0yY7
+CAAA9GUs/cjqcR9ePMe97CBcToYQgLGRHWTOmmu+2ny32kTXDFPy4vqL99xF
+1wkAAG2NpVfX1PLQsha9OriADCEAkWQHi83jqpmvq+hagGmTHQQAAPrSoR9Z
+/Dq86jGvXz3HRnYQynmRIdR3BCCU7CBz1XzfOsgNQn+qcZPxt/UQXScAALQ1
+luxg9birrrlBvTq4jAwhABFkB4vOpTUHgYvJDgIAAH3p0I/c91DD7tVzXPWV
+HXz1e9fR8w9Dau51tivcd3TfNACyyQ4yV5nb9jP9Y+igyejm/I051gcAYFJG
+lB28ffEcj+7zCcOTIQRgSLKDAOMiOwgAAPQlOjt44h6m913qavF8L39vHT3/
+EKFwhvCxuVZehhCAs2QHmaPmu1X29VrR9cKUVeMh4+/sLrpOAABoY0TZwYeX
+/TrZQYgjQwjAEGQHAcZFdhAAAOhLdVxxE5wdfN0P3bzx32UHoTAZQgCGJjvI
+HFXjPvP70oPvSnCZatxmHpv4WwMAYDI6ZAeL3y+jeszr1/062UGIJ0MIQJ9k
+BwHGRXYQAADoS52fa9mPfCz43K/XHHx88W+tMo0tnlN2EF6RIQRgKLKDzE1z
+/Vbud6Tr6Hph6ppjl5y/uU10rQAAkKtDdnDfQw27V89x1Vd28NXvOVaGDDKE
+APRBdhBgXGQHAQCAvnTIDj4VfO77t+6TeuL+prKD0LPCfUcZQgB+QnaQuUn5
+91+4ja4V5iId1/A89zd3iK4TAAByRWcHT9zr875LXS2eT68OOpIhBKAk2UGA
+cZEdBAAA+vIqO/iY2f9bF3jeU+sKrl79TJs+6dn7kp7II64ufR0wR4X7jodk
+zQ8AGrKDzEl9XVXm96GH6FphTurji8y/vW10rQAAkOONntmQ2cHXGcHNG/9d
+dhBGQoYQgBJkBwHGRXYQAADoy6vs4C6z/3fRmhnV71+dyCnuTvzcQ4ue5E3G
+82669DBhqWQIAShNdpA5qcZd5vegdXStMDfpuM75ub+9R9c9AgAwBa96dTke
+Cz736zUHH1/8W6tMY4vnlB2EQmQIAbiE7CDAuMgOAgAAfXnVj9xk9v86r5vR
+5AZPZQJXJ372rkVPcpvx3C+zkYfouYepkCEEoBTZQeYkM7u0j64T5ijz86R2
+H10rAACc0yE7+FTwue9fPfbdi3+7lh2EaZAhBKALPQ6AcZEdBAAA+vKqH7k+
+0SN8y7rDc12l02sb3mXUdnGeMX2+1qHrB6Glpu94kCEEoCvZQeaiGjeZ33nW
+0bXCHFXjKjO/++S4AwCAsXvVD3vM7IutCzzvqXUFV69+pk2m8TrjOV/nEVeX
+vg7gExlCANqQHQQYj+r4+EvZQQAAoC8nsoOn+oQns3p1FrDF87y13uDhvcdp
+0SN9t09a/dv21c/eRs89TFV97W3BDOGDa+oBlkN2kLlorps6+z0nuk6Ys8zP
+lKcmY3j2GmYAAIjyqld36h6cp1zU52r6dq97cLsTP3eqt/eWm4zn3bz8nei5
+h7mSIQQgh+wgwHjU+cB3jre/ia4PAACYtlf9yNvmvx1a5AdXGc+xeScDuD7z
+u3ctepIn84zpeA/T189/tm7gfYUzhHtZEYD5kx1kLlLeemeb6Dph7locj9Q/
+l33/IwAAGNKrXt0mtyd2wfO9db/P1YmfbdOn22Y898ts5CF67mHuZAgBeI/s
+IMA4pOOag9+/c7xd/9sX0XUCAADT9aofuT3x33Lsml7m+oWbpp/4Xg7xLqO+
+VctaHl7VcqqneR897zAnMoQA5JIdZA6qcZ35vUZOCXrWXAOZe6zx4O8SAIAx
+etWXq//3fWZPbN3hua7S6bUNT/bsWvYMz+YZ0+f3+tSvg4HIEAJwiuwgQJzq
+mPirdFxr8NsWx90fm9+RIwQAAFp51fO7e/HfT/UNS9q1qLHNPU176aUC5zUZ
+wpw1eGQIARZKdpA5qMZtxnbs+kcYSP33Jj8IAMCUncgO3uRm9eosYIvneWu9
+wcN7j/Mq79e5B1f92/bVz95Gzz0sjQwhAC/JDgIMq8789XAd7jfRrwsAABi/
+V/3I/Yv//lb/sIT7Dr3M99YvbOPsWodAd/V1uE0upGSGcBX9ugAoQ3aQOcjM
+KW2i64SlaI5B2hx/yA8CADAqr3p1t81/y+2L1b28VcZzbN7JAK7P/G6be3ye
+zDNW/+36xPOfrRvohwwhADXZQQAAAIBleNWPPLz6tz7yg7uOdZ7qKbbV6v6r
+QHc9ZAj1HAFmQHaQOajGIWM7XkXXCUvSXPPY5vjiwd8pAABj8apXtz3x37L6
+b00+cP3CTZP7ey+HePaem3XGr0M/7mUtp7KH99HzDsgQAiyd7CAAAADAMpzo
+PV69+vc6P3hfIDNY5/5uLqz1kvyg3CAEkCEE4CXZQeYgYxt+jK4Rlqgaty2P
+LR595gAAMAavenV3L/77rkB/rsj9Pt/I/11iHT3vwCcyhADLJDsIAAAAsAwn
+soPrN36uvjfpe/clfS8zuC2V20vHe5u2zTLeyQ1CLBlCAGqyg0xdNa710mG8
+muOEtscW2+i6AQBYtle9uv2L/37V3Buzj9zgfZveWVNLlz7hyb5d9JwDp8kQ
+AiyLfgcAAADAMpzIDm4zfv7uTK9y3/zMResMnqnj+kwdD82/r6LnGPik7g92
+vJ73vZ6jbDDARMgOMnXN9VNySDBiHa9xPPj8AQAgyqte3eHVv/WRH9x1rPO6
+uWfoJc/94H6fMH4yhADLIDsIAAAAsAwnsoP76JqA+SucIXxssiiuNwAYOdlB
+pq4aN7KDMG7puOb5Q8dji3vXMgIAMLQTvbqrV/9+1awTeGlm8PHS+35emB+U
+G4SJkSEEmDfZQQAAAIBlONGP/ElPEqAvMoQAyyI7yNRlbsO9rb8O5LkwP/ic
+IVwPXPN1c03ma45vAABm7kSvbv3Gz93U6xJ2zAxuS/X/qsdZdcgy3uk/wnT1
+kCH8j5X/Jvp1ASyd7CAAAADAMryRHXStKzAoGUKA8Xgnu1BCzr7+tsfnX0XP
+L9OW5F9hMtIxP5jzufOeQ/N3f12wppvmMet8Ypt8Y32cs6/cNZ+VRWoCACDe
+iV7dNuPn75p1/N7K6u2bn+mt59esQfheHQ/Nv6+i5xgoI5XPEP7Xyv/YHCfX
+j623BzCgjP30PrpGAAAAAC73RnZwF10XsEzpmFcp1XOUIQTooMkylLr2Y2w2
+0fPLtCXZQZicdMzalfgMOaRjFvE54372OKP5uU1TwyXrIL53zHPfPIfjHgCA
+iTrRq9tH1wTwnlQ+Q/j6+Pv++fg7+rUCzFnGPnkfXSMAAAAAl3sjO/gYXRew
+bIV7jnWPcRP9mgCmorkmY+hM31DkKrhIkh2ESUrHbN1jT58tz+sBPjsEfs7V
+11b2tq4MAAD9eKNX5xwGMHqp3wzhS/X9eHZJnhCgqIz97z66RgAAAAAu90Y/
+suZaMyBc4Z7j/1X57yur6NcFMGbpuAZsVOah1+tLoueW6UuygzBZzedbH2v/
+jdEhWYsQAGAy3ujV6dMBk5GGyxB+dr43fcoTXkfPAcAUZexr99E1AgAAAHC5
+d7KD99G1ATzroef4f6fjmhzb5rFdUwvwQupvbaZId9HzyvSlvHU5b6PrBN7W
+HAPM8XPulPp1bqLnHACA973Rq9tF1wXQVorJEL5UP/ddOt5PR54Q4Iyc/Wp0
+jQAAAABc7p3sYG0VXR/AS03P8dBTP/H5/qT6icDiNfvD6LxDae7Xz8Wa7yLn
+trVtdJ3A+6qxSsd7iUR/Ng3lkKyJCgAwWm/06h6j6wLoKsVnCF+q63jOE66i
+5wZgTHL2odE1AgAAAHC59CFt38kObqPrAzil6e8dBuonbis3ydqEwII0+9no
+azqKip5T5iHlZQd30XUCedK4rmUcQp2XdFwDADAy79zn032QgElrjrv/0wiO
+h196TJ/3/1bR8wQQJWOfuY+uEQAAAIDLnckOHqLrA3hPGi5D+OzQXG97m6zb
+AcxYOq7HFH0NR0n76DllHqpxlbG9PUTXCbSTjtcy7kbweTWE+hrJdfScAwDw
+yTvZwfvo2gBKaI67/48RHBO/d6y8T/KEwMJk7B/30TUCAAAAcLkz2UH3NAUm
+IQ2fIfzsfHnlrqlhFT0XAKVU42EE12yUso2eT+ajuZbo3W0uukagm3TMzt8O
+/Bn4fH1ifY+S7St3zb/1Uc82er4BADh6JztYW0XXB1BKNf6HEZwrznV4cay+
+rlxFzx9AaRn7wn10jQAAAABcLiM76J6mwGSkY37v7PX8PXvUSwTmIB3zCtHX
+Z5RyHT2fzEc65njObXPr6DqBy6RPOcL7wscY+67HCvXnWToe8+wK1bRzvAIA
+EO9Mr24bXR9ASc1xbfT54q4OSQ8QmJGcc5nRNQIAAABwuYzsYM05b2Ay6j5d
+07P7/0bQQ3z20FyXW/dD5VeASajGzQj2nyU8Rs8l85LycrXb6DqBstIxt3fT
+HGvU3+336e0s8fO/PV9P2MtxQFPPrsCxivM+AACBzvTqDtH1AZSWjrm76HuB
+lnJojs3r+w+to+cWoI2Mfdw+ukYAAAAALpeZHbyNrhOgrXTMEP7HEfQM3zzP
+no7XEd+4VhcYo2Y/Gr2vLME62hSV8nK1++g6geVIn+6f0vW6S/lBAIBAGb26
+m+gaAUpLx3v0zCU/eOo4e5fkCYGR0+sAAAAAWIb0Ie0ysoOH6DoBuqrGvx9B
+jzDHIR3XJdFHBEYjvb2e0pRsoueReUmZudroOoHlSZdlCOUHAQCCZGQH3RcJ
+mKVqrJrj0ehzyEOoX+ddfb66ch099wC1jH3XPrpGAAAAAC6XPqR9Rnaw5vw1
+MFlNH+7/HEFf8JI+4ip6HoHlScf8QfS+8FKr6HlkflLeNU3r6DqBZUrHay/v
+Ox5/yA8CAAwsIztY8z0NmKV0vA/OUvKDr+2TPCEQKGc/FV0jAAAAAJdrkR28
+i64V4BJ1zy11W39jTB6bPuK2sk6u6wV61uxrovd9lzhEzyHz1FzTc277u42u
+E1i2dLz2sO0xkDVtAAAGlpkddIwJzFY65gd3IzifPAb75tzjTXJfPKBnOfuk
+6BoBAAAAuFyL7OAhulaAS6V55Adfq+/FuqvcJvckBXow8f3mLnr+mKfm2p1z
+2982uk6A5hio7foN2+i6AQCWJH1IO306gB+OYXcjOKc8Ni/vKypPCBSVsQ/a
+R9cIAAAAwOVaZAdrMinA5NU9tQ7Xzk6NHiJQTDXuR7Bf6+omev6Yp3TM4uip
+A5OQjus37Ft+hq6j6wYAWIoWvTp9OmD2qrEZwXnlsXudJ7yKft+AadLnAAAA
+AFiG9CFtW2QHb6PrBSihuXZ27vnBlw7pmP2p1yZcR88/MC3NviN6P9aVaybo
+jZ46MDWp3foNjz5HAQCG0SI7eBddK8AQkvxgF4d07AVuK2vH9EAOfQ4AAACA
+ZWiZHdxG1wtQSuq29sac1NnJu3Tsv66i3w9gvFLe+mpj9BA9d8xbOuZq3tsG
+H6NrBHgttcsP3kfXCwCwBC2yg4foWgGG0pyXPnf+jbfto99DYPzsSwAAAACW
+IX1IN7KDwJK1vHZ2zur+6z65HylwQjreszh6P9WWe/HTq5RxD4LoGgFOydl/
+vbCOrhcAYO5aZAdr19H1AgwlyQ9eYh39/gHjl7Ev2UfXCAAAAMDl0od01aIf
+uYmuF6APSX7wLQ/N3NxWXJMCCzbR/eQ6et6YtyQ7CExUOq7B/pD5eXqIrhcA
+YO7qe3e26NXdRtcLMKSWx7Ac7aPfN2Aa7E8AAAAAliN9SLuMXuRjnTOMrhWg
+L+mYj4vu5U3BvnJXuamsot83YBjV2Ixg/9NK9Jwxf0l2EJiw1G7tBtenAwD0
+qGV2cBtdL8DQkvxgW+vo9wyYhoz9yT66RgAAAADKSB/SqskGvteLvImuE6Bv
+aYLZmBE4VO4r2yRLCLOVjtdmRO9v2riPnjPmL8kOAhOX8o9/6oyh+0kBAPSk
+7sHJDgKcV43dCM49j90++n0CpsM+BQAAAGBZmvzgqfUH7yvX0fUBDKW5fjZ3
+/Q0+t45+/4D+pGnd19n6SPQuyQ4CM5CO9wHx2QoAECh9SFctsoOb6HoBIiX5
+wXPW0e8RMB0Z+5R9dI0AAAAAANCHalwn+cG29tHvG9CvatyNYF+Ty70v6F06
+rr377rYYXSPAOdVYpbxjn0N0rQAAc/bG/T1fe6xzhtG1AkRLx/uARp+DHqN9
+9HsDTIv9CgAAAAAAS5bkB9taR79nQL+qcTOCfU2Ox+i5YhkytsV9dI0AOaqx
+zfyMvYmuFQBgrtKHtGqyge9lB30fA2gk+cFT1tHvCzAt+hwAAAAAACxdOq7B
+8TCCXt/Y3Ue/V8AwRrC/ybGLnifmLx3vMaCnDsxCNa5S3n1TfO8HAOhRkx88
+tf7gfeU6uj6AsUnuA+pcJHAR+xYAAAAAAPjxOlr5wfetot8nYBh1j3AE+5xz
+NtHzxPylvHU476LrBMiV8tcevIquFQAAAJ6lY37wMILz0tHW0e8FMD0Z+5Z9
+dI0AAAAAADCEdMwP3o+g7zdGu+j3BxhOys8VRFpFzxPzV427jG3xNrpOgFwp
+f+3BTXStAAAA8FJyH9B99HsATJP9CwAAAAAAfK4auxH0/8ZmFf2+AMNJx3s4
+R+933nOIniOWIeVdi7SOrhOgjczjnfvoOgEAAOC1dMwP7kdwjjrCOnr+gWnK
+2L/so2sEAAAAAIChZV5PuxS76PcDGF7KW5Moyl30/DB/6Xgd0tntMbpOgLaq
+sc7Yvz1G1wkAAABvScvr4+2j5xyYLvsYAAAAAAA4rRqbEfQCx2AV/V4Aw6vG
+/Qj2P2+5iZ4f5i/ze8BDdJ0AXaS8ewSso+sEAACAt1TjbgTnqoeyjp5vYLoy
+9jH76BoBAAAAACBKZm5gznbR7wEQY+T7v6vo+WH+6l55xrZoDUxgklLe+gy3
+0XUCAADAe0Z+HruUffQ8A9NmPwMAAAAAAO+rxk3KW5djjlbR8w/EqP/+R7AP
+OsU6b/Suxfa/jq4VoIuUd23lLrpOAAAAOKc5xp1zH28dPcfAtGXsZ/bRNQIA
+AAAAQLRqXM+873iKtZRg4apxGMG+6LVt9Lwwf/VnYMa2+BhdJ0BXKS8jvY+u
+EwAAAHLMuI+3j55bYPrsawAAAAAAIM+M+46n1K/zKnrOgVjV2I1gf/TaOnpe
+mLf68y/z834XXSvAJXI+d6NrBAAAgFxNH+8wgnPYzocDo5Kxr9lH1wgAAAAA
+AGPR5AkeRtAr7Ns2eq6BeNW4GcH+6CXrvNG7+jMwc3u8jq4V4BL1NUHn9nXR
+NQIAAEAbM+vj7aPnE5gH+xsAAAAAAGhnZn3HU6w5CPyg2d9F75Neuo+eE+at
+GqvMbfEhulaAS9Wfqxn7OzlpAAAAJqU5r70fwfnsS62j5xKYh4z9zT66RgAA
+AAAAGJum75hzre0UbaPnFxiPNK6s9G30fDBvKf+aok10rQCXSnnrrK6j6wQA
+AIAuqrEbwTntrv5z9PwB85Gxz9lH1wgAAAAAAGM18b7jKdYcBD5TjbsR7Jue
+WfuI3lTjJnM7PETXClBCkh0EAABg5jKPfcdqV1lFzyEwfRn7m310jQAAAAAA
+MGZpXvnBbfR8AuNSZwZGsG+qHaLngvmqr8FJx/x8zra4ia4XoIQkOwgAADB7
+1bhOC79nZH0+bwTnty+xSzKEwAUy9jP76BoBAAAAAGDsZtB3rFlzEDhpBPun
+H66PiJ4H5qn+7Ks8ZG6Hh+h6AUpJsoMAAACz0pznWjfHe/dN32cXXdcYVOMm
+5d87bKx2SYYQ6CBj/7KPrhEAAAAAAKYgTT8/uI2eQ2Cc6p7hCPZRm+h5YJ5S
+u/WD19H1ApSSZAcBAACypBGt3Zc+5QNvmuO6u+b87alc3C663jFp3sep5wef
+kgwh0FLGfmUfXSMAAAAAAExFmu59S/+f5Lpg4A3VuB3BfmoVPQ/MT2qXG7yP
+rhegpHS8vvTcvm8dXScAAEC09Pm9I+se0P6F7Sv1udR1R68fa/fieQ4tz6fu
+oudtjNIxP/jQ43nsIdXbxyp6ToHxy9if7KNrBAAAAACAKUnTvm/pPrk+GHil
+2a9F7pseoueA+UntcoP15/oo7i0PUErKW1fYvg8AAODph2OonPuvjMU2er7G
+LB3XbpxLfvApyRACZ2TsR/bRNQIAAAAAwNSkaecH9RmBnwjep91Fv37mJbXL
+DdZuomsGKC1lXCcZXSMAAMCYdDinFGETPU9TkI75wfsRvF8l1dvnKnpugfHJ
+2H/so2sEAAAAAIApSvO4b6k+I/CDFHtdjNwWRaRu1wTJrgKzlLH/O0TXCAAA
+MDYdzi0NaRM9P1MTfN77pX8r+Fj1a1pFzy0wHhn7jX10jQAAAAAAMFVpHvlB
+fUag3p9tovZB0a+deUjHNYEPLbe/fXTdAH2oxto+EAAAoL0R93020XMzVdXY
+juD9Wzf2BR9zl/T2gKcf9nPOAwIAAAAAMAp1/6pyU7mNrqXw6+qyxtFY6TPC
+QjX76Ij9zj76tTN9qdv1P/U1YFfRtQP0oT7mytgPWncVAADghKbv8ziCns2z
+TfScTF0KvHfe63PgSYYQKKztfggAAAAAAEpIxwxK3fvapmOu7pA+Xae/iq6v
+p9e8G0H/uJT6fZOngIVJ7ddsK7K/iX7dTFfzXaPLfeAffc4Bc5by7m2yia4T
+AABgrKpxneLzg/Xzr6PnYi7S8f6mEe/pyfcwyRAChWTsH/bRNQIAAAAA0E46
+3u90m45rSawbq4FruG6e96apZdv0t967fn/26/ukeeUHH5MMISxKNe4C9jXX
+0a+b6UmXXVfzaLsD5i7lXQu5iq4TAABgzFLsWnXOYfXzng6dCd1n1HTJuc5T
+do75YVlK7IsAAAAAABifjH7l/oR67Yltht0bv39Jn2r2ucEW780Q/nMql2OU
+IYSFSMc8+JD7qsfo18zZbeL5XgG36f3vDjfNz/X6WdF8xu4v2OYOyTVXwMw1
+++6z+8PoOgEAAKagOfc1dI9HbrDf97Q+bn7vXqglrVvUtb7w3OdruyRDCIuQ
+sT/YR9cIAAAAAEA3aTpr3C0mN/jivdkEz/m6qWOVjpnREo8pQwgzl47r2g65
+r7qPfs189v6vms+vXbrs2pn682KfPmUKO39uNNvkc02X3g98cd9HgGVKx7z3
+uX3iLrpOAACAqSjYZ8k9tyY32P97enXhOdAc+461rZMMIdBCX/sjAAAAAADG
+IY0/P1j3thZ5nX465iUuzTkU6UUW7jPWr+k2en6BfqTh7rf8ZF8SLx3zgncD
+vO/14+/S52sUnnKTPq2BXLKm+vEW+X0EWJ6Ud4y4ia4TAABgKtIwObPn/ovc
+4LDva84xdFfrC+urz5fuC58jXUXPO1Bext//PrpGAAAAAAAuM1C/slMPKnpu
+otU93jR8fnD9Tj0l+4yH5JpjmJ10zG0Ntb9aRb/epUrHtfzG+v2hNBlVYFEy
+v++7FhUAAKCFNEy/578kfZeI93bXw3u5L1jfOvNYP1f9elfR8w6UM+Q+CQBg
+btKH6pjrQ7qt7Cr7ymPl6YyH5me3lZuKe1kDAAC9S8Pd77RV3yl6Xsai6Scf
+Bpr3fWZNJfuM9WvbRM8zUEazfxhif3WIfq1L03xf2KaYNXEj1N+NZGOAxcnZ
+z0fXCAAAMEXVuBnq3GnSdxn6vb0t/B6ue6hxnWQIgRMy/t730TUCAIxJ+pA2
+lfvMnGCu++Zx5QgBAIDe1L2dnGtEB7KLno+xScPlO9ct6yrZZzwkvWyYBZ8V
+85OO176M5XvCELbRcw4QJWMfuY+uEQAAYKqqcTfgOa5D0ncZ8r3dFHrf9j3X
+uU4yhMAL0fslAIApSB/SqnJXOC94ymPzPDKEAABAL9Jxfbvoa/V30fMwVqn/
+/OD+gto2qdzaiPXj3ETPN9BdNe4H+LzYRL/OJUjH60hK7d+nYJdc5wIsWDoe
+c/R23AAAAMAPx15D3Cvydd9lE/26l6A5n3rpPdjWA9a6d24VcD4QAOBtdYav
+ss1cN7D+ufUJt82/t80QbqNfPwAAME+p3D0xu9hGv/6xS8dreXc9zf+60PZz
+KFTPfqj+KFBWOq5R1/dnhvtr9fse1p83Q94DPdq9zxyAH/b/64x95l10nQAA
+AFNWjVW6PF/WxSHJEA7x/l5f8P7uA+qtzwXsC25nuyRDCJMyxn0TAMAYpA/p
+JmOdwXqNwFXm460yc4gvPVSuo+cCAACYnxSTFdhEv+4pSeXzg/eF69skGUJY
+rNT/OrYP0a9xzpr3r9Q+fMzq63fq7zyr6DkHGIuUlx3cRtcJAAAwddW4CTwv
+Vp/720TPwZylYz60y/qS68Ca63MC+4Lb2c65V5iGjL/nfXSNAABDazKBvWT6
+mgzhQ8sM4SZ6TgAAgPkp3Bs6ZxP9eqcolc14rnqqcZNkCGGRCv7tn2K9o/7e
+t03h92rffF5t0/Hak1M2zb/vUrfradqo84L1GoOb6LkGGKMkOwgAADCYVP4+
+kW0dnCfr9f29anm+cx9dc1P3OskQwqJMZf8EADCE9KE6lvtQHROdzw1eFXiu
+Xcv8oOulAACAopp+1mGAvuS/j36tU5bKZDx2A9S5Tce8Roltpu5XrqPnHnhf
+6ve6l3X065ujVCaT/tDs8zvdW62po/4OctM8zv7Cz4/H5jG2thuA85LsIAAA
+wGDScL24c+oaNtHzMUfNe5x7rnwdXe+r2tdJhhAWIePvdx9dIwDAEJrc4Ln1
+AIvkBl88Z9v84C56ngAAgHmpxvUA/cj6mv5t3TuLfr1TlS7PD64GqvMqlc0Q
+6jHCiBXYN70p+rXNUbos61nv1+/63CfXj50+X6PwPZvmZ3urB2CukuwgAADA
+oDKPw4ZySDKEfb3P586/7qNrPLON7gtuZzvnbmFcMv5u99E1AgD0LTM3+FhZ
+9fDc9y3zg9vo+QIAAOalGrcD9SNlCC97n9apWyZvF1CrDCEsQDpmvfr4vNhH
+v7a5Sd1zg4d0zOn57AaYiczP7310nQAAAHPS9Ezanpt7KNhnOXneL3pe5ia9
+33NdR9eXUf86yRDCLDkfCADwlJvf2/T03HVu8dAyP9hLLQAAwHJdkCnoQoaw
++/t03aFPvAqsV4YQZi4dr18p/TlxG/265qTjZ7zPaoAZc60QAADA8DqcS932
+0Gd57ZBkCEu/z5upH2cnGUKYHecDAYClq9fxy8jq7XuuYd0yO9jLGogAAMBy
+Nb3HQ099R7mEsu/VdYv3ahdd74vt606PEean8N/2s+vo1zUXqVtucG8fCzBv
+Ocdq0TUCAADMTdPfaXOebvPid2UIJyT99F6g6+iaOr6OdZIhhFnI6Q1F1wgA
+0Jf0oTpGy8vqrQeo5a5lfnAfPX8AAMC8dOhZliJD2P69qnvEOfenXUXX+qru
+VSq7xuWd7QZiVeOm9GdC9Guai3T6/tbnWPMRYAFS3nV/q+g6AQAA5ia1uxfb
++sTvyxBORPqUH9xH11LgtawzzyXk2jnvAMPK+LvcR9cIANCX9CE9ZGT0Hgaq
+5apZT7BNfnATPYcAAMC81JmBnnqNWXmRJEPY5r06lx+8i67xndpXqVyG0HYD
+gZp9UcnPgvvo1zQHqf39AOp9qfUeARai/rzN+Gy4ia4TAABgbprzqYfMc3Zv
+nq9LMoST0LxPsznvmmQIYbIy/h730TUCAPShzt1l5vMGu9d29VzbltnBOmvo
+2kgAAKCowj2fLmTB8t+rq3Q6g/c4hflLMoQwC4U/NzbRr2fqUrvrj2oPrs8A
+WJbme/O5z4fR3osEAABgytIxf3X2vF3mY8kQMrgkQwiTk/F3uI+uEQCgD+lD
+dVybl89bDVhTl7UHt9FzCQAAzEvTZ+yrx9iGLFj+e7Z7NXfb6Jpa1r9KeWuf
+2G5ghFJe/iDXKvr1TF3L/emD/SXA8qS861QfousEAACYq4xzeI8tH0+GkMEl
+GUKYjIy/v310jQAApbVYc3Dwvmj1nLuW2cFD9HwCAADzU42bnnqLXciC5b1n
+dy/ma5JzVbjH+MN2E/2aYAlS5n2yc64/iX4tU9fy81tuEGDBMj8rVtF1AgAA
+zFE63lPxvZzfvuPjyhAyuML9vdrOOQkoK+Pvbh9dIwBAaXUmMDOXdxdQ23XL
+7GBtEz2nAADA/KRu68B9bPqGffQjZQjPv2ebNIO8XOEeoz42DCCVuRZl8HNx
+c5KO1wXlfgZPNmcOQBmZ37e30XUCAADMVdPz6iXDkYbJEN5EzyHjUri/V9sl
+GUIoIuPvbR9dIwBASS2zeSHHt/Vagi2zg/fR8woAAMxP01ds21NcNb+7aZFf
+aEuGcCEK9xjr7XET/ZpgrlK3vPlrrjW57D3Ytpjr6+h6AYhVjduc79DRdQIA
+AMzZO720baHH7ztDWPdw1tHzyLgU7u/VdkmGEC6Ssz+PrhEAoKR6LcEWmbzV
+BGp85ppZAACguDrH0aZ3c+L3N+/0PS8lQ7gQhXuM9fa4iX5NMDcpL39wjv15
+9/lvk/e/ja4XgHj1NXeZnxub6FoBAADm6p0+3Lbw88gQMrjC/b3aLskQQic5
++/HoGgEASkof0kNuHi+wxjZrI4aukQgAAMxfyl9L6vGdx9gkGUIu3xZLbkf1
+42yiXxPMRcrPH7zlIfo1TFnKX3PwPrpWAMaj/vx13RAAAECsdDpbte7puWQI
+GVySIYRwzgECAEtSryPYIosXer1S9fyPLbODd9HzCwAAzFPKX8ton/FYmyRD
+yOXbZMntSB8bCrnw73IbXf9UtficfvQZCcBLKX/d4HV0rQAAAHOVjrmqQY/D
+kgwhAZIMIYTJ2W9H1wgAUEq9Nl+LLN4+uNZ9y+xgaL0AAMC8ZV5Tmr2WUZIh
+pIDC25E+Nlyo6dN3/RtcR9c/VSl/zcHb6FoBGJeUnz8/RNcKAAAwZ+mneapB
+elxJhpAASYYQBpezv46uEQCglPShOs7Nz+JlX/M6glp/ED2/AADAvGX0cLYd
+HnOTZAi5UOHtSB8bOmr+Fjv97UXXPmWZ+79DdJ0AjFPKz/5vo2sFAACYq/Rq
+7cGA55chZHBJhhAGk7Ofjq4RAKCUlmv5bYNrXbfNDlauo+cYAACYr2pc93Ut
+aZIhpIB0XB+zVF9bHxtaaq4v6fL3FnoPrymrxk3mHG+iawVgnOpr6locV62i
+6wUAAJir9ClD9RBYgwwhg0syhNC7nP1zdI0AAKWkD+kwoezgqkN2cB09xwAA
+wLyl99ekWBd4/E2SIeSybah0X/tefxHyVeOhw9/ZbXTdU3Xmc/nZIbpOAMYt
+8/OkFnb9KgAAwNylT2sP7kdQiwwhg0syhNCbnP1ydI0AAKW0zOFtJ1ZvzXVW
+AABAr5pe4Vt9wnXB59kkGUIu24ZK97X1FyFDNe46/H1dR9c9VZn7OOcMAXhX
+Oq49mPu9eRddLwAAwFylY25qF13Hi3pkCBlckiGE4nL2x9E1AgCUMsHs4H5q
+NQMAAPPX9Ah/cj65p+faJBlCLtuGZAhhQNW4afk3dYiueaqqcZ05xz7nADjr
+reO8N2yi6wUAAJijpi+2ja7jRF0yhAwuyRBCMTn74egaAQBKSB+q44iJ5fBk
+BwEAgDFq+oOH1+eTe37OzannLESGcAFe9LX1F6Fnbf+Wouudqsx92n10nQBM
+w1vHee/YRNcMAAAwR2nEGbokQ0iAJEMIF8vZ/0bXCABQwkSzg3dTqxkAAFiG
+dMzyvTyX/DDg87a5nrUNGcIFqHuBTU+w1HZzZ5uBz7Xs4W+i652qzHk2vwBk
+a67Fa/NdeBNdMwAAAMNLMoQESDKE0FnOfje6RgCAEiaaHdxOrWYAAGA50ucZ
+vv3Az71JMoRctg2tUrkMoW0GXqjGbYu/n1V0vVOV8q7LMb8AtJKO98aQHwQA
+AOCsJENIgCRDCK3l7G+jawQAKKFDdvBuBDXLDgIAAKOVPl97MOQYKskQcvk2
+tEoyhFBUNa4z/2b+t+hap6rZd52b30N0nQBMUzUeWn4P3kbXDAAAQJwkQ0iA
+JEMI2XL2s9E1AgCU0CE7uB9BzbeygwAAwJilT7m9bXAdmyRDyGXb0CrJEEIx
+1fh/M/5W/jm6zqlqrok4e51DdJ0ATFM6XvPZ9nrPe99/AQAAli3JEBIgyRDC
+WTn71+gaAQBKmGh2sG3N2+iaAQCAZUmf1h68ia7lRT2HnvqR8mALULi/+MM2
+E/2aIEI1/teMv5H/LrrOqarGbcb8bqPrBGC60nEd4bbXetbHYuvo2gEAAIiV
+ZAgJULjHJ0PIrOTsV6NrBAAooUMO72GCNW+jawYAAJYlfVqPYh1dy6u6NkmG
+kMu2oZL9xXpb3ES/JhhSOq49dO5v47+NrnOqms+hc/O7jq4TgGmrxk3H77/3
+rq0DAAAgyRASoHCPT4aQWcjZn0bXCABQQocc3tMEax7FOh8AAMCyVONurP2S
+JEPI5dtQyf5ivS1uol8TDKH5bJBtM78ATFz6tNZ8F46XAAAAqI8tZQgZXOEe
+nwwhk5azH42uEQCghC7ZwcpqYjWvo+cZAABYnilcC5pkCLl8GyrZX6y3xU30
+a4I+Jevi9T2/Ofsjn0sAFJEuyw8+X1t3PUCd68Zt813ktdvnn4meUwAAgCVK
+MoQEKNzjkyFkknL2n9E1AgCU0DE7uJ5Yza4HAgAAeEeSIeTybeim4DZUP84m
++jVBH5LsYN/ze/Y6h+gaAZiXalyny6/trL//1mvnXpQjTMdrTW+a7xv7C+p6
+bH5/63sJAADAcJIMIQGSDCELlrPfjK4RAKCEjtnB7YRqfoyeYwAAgKlIMoSM
+axvSw2Z2kuxg3/N79vqG6BoBmJ90zA8+FDxu2jffGerv1uvX3w3q6+/Sp7UE
+65/bFXz+t9w39TieAwAA6FmSISRAkiFkgXL2l9E1AgCU0DE7uAuu+bZFrfvo
+OQYAAJiaJEPIuLYhPWxmI8kO9j2/Z69riK4RgHlKx+s673s6hhqbne8rAAAA
+/UsyhARIMoQsSM5+MrpGAIASOmYHD8E1b6eyRiIAAMCUJRlCxrUN6WEzeUl2
+sO/5zbmewecOAL1pvv/2dU3n2NSfu5voOQcAAJi7JENIgCRDyALk7B+jawQA
+KKFjdrC2Cqy5TXZwHT3HAAAAU5dkCLl8G7ot2NPWw2aykuxg3/N7Z34BiFZf
+B5eWswah7+cAAAADSTKEBEgyhMxYzn4xukYAgBIuyA5uAmu+z6zxMXp+AQAA
+5iTJEHLZ9lO6p32vt8jUJNlB8wvAYjTX1vV1/DRGvp8DAAAMoId+y2t751F5
+LckQMkM5+8PoGgEASrggO3gfWPM+s8Zd9PwCAADMUZIh5LLtp3RPW2+RyUiy
+bX3P723G/G6j6wRgWXo+fhqb+jv+bfScAwAALEEP/ZbX9s5X81qSIWRGcvaD
+0TUCAJRwQXawFnIdZ72eYGZ96+j5BQAAmLPUf4ZwE/0a6XX7kSFkcZLsYN/z
+u87ZV0TXCcAyVeMmHdfm6+P4aWzq1+l+MAAAAAPood/y2t55a15LMoTMQM7+
+L7pGAIASLswObgLqXWXWdoieWwAAgKVI/WYI68fdRL9Get1+nnvaeovMXua2
+vo6uc6rqv/2cz5XoOgFYtubzql4r96GnY6iX6ue4b76D1M+5PmHbuC98XFc/
+1nX0fAMAACxFkiEkQJIhZMJy9nvRNQIAlHBhdnAfUO/NWHONAAAAS5dkCLls
++1k1/cCSvUVrnTAqSXZwiDnOuS7GvgGAUWi+A2+a764lsoT75vvGTdfPu3S8
+1vSmqenS603r37+JnmcAAIAlSeXv2Xjq2HMd/ToZlyRDyATl7O+iawQAKOHC
+7GBtPXC9O2sOAgAAjFuSIeSy7WeVymUIH5v+uJwQo5B5vcY6us4py7w2YRNd
+JwC8pbnW7iZ9Wg/wrvl8e+n5357XElz1WE9dy/2F38s30fMKAACwNIX7LTKE
+ZEkyhExIzn4uukYAgBIKZAf3A9d7sOYgAADANCQZQi7bfkr2tGUIGYUkOziW
+Od5F1wkAU1Pg+/km+jUAAAAsUeF+iwwhWZIMIROQs3+LrhEAoIQC2cHB1h7M
+rHUfPacAAAB8LskQctn2U7KnLUNIqCQ7OMQcX2fM8UN0nQAwVc33867rEG6i
+6wcAAFiqwv0WGUKyJBlCRixnvxZdIwBACYWyg/uBat2dqeOxsoqeUwAAAE5L
+MoRctv2U7C3KEBIiyQ4ONc+P5+Y5ukYAmLrm+3mX47ub6NoBAACWLMkQEqBw
+n0+GkCJy9mfRNQIAlFAoO1i77bnOVUYNm+j5BAAA4LwkQ8hl20/J3qLthUEl
+2cGh5jlnH2GeAeBC1bhK7dcgrDP+19G1AwAALF2SISRA4T6fDCEXydmPRdcI
+AFBCwexgveZfb32+6rHvzzz/LnouAQAAaCfJEHLZ9lOyt2h7YRBJdnBM87yJ
+rhMA5qIatx2+f1sDHAAAYASSDCEBCvf5ZAjpJGf/FV0jAEAJBbODtYdK8T5f
+9Zg3Z553Hz2PAAAAdJdkCLls+ynZW7S90KskOzjUPN9kzPM2uk4AmJPm8/ex
+xXfv++iaAQAA+CTJEBKgcJ9PhpBWcvZb0TUCAJRQODtYPD9Yr2XYrGk4aF4R
+AACA4SUZQi7bfm4Kbj+2F3qRZAeHmud1xjzfRdcJAHNTjevULj94G10zAAAA
+n0syhARIMoQEyNlfRdcIAFBCh+zgZqj8YEZucC83CAAAMD9JhpDxbD8P+teU
+lGQHh5rnK/1eAIiR/n/27p7HlWNtF3PNPxj9A2LnBgbQH2CwQwcTWDkDQ/EE
+B1BKZwonODCsjPEGDExoQAmDEyoYOBfA/AAC4ePMwXLXYlPi4uJHVX9VN/sa
+4MK78WoNp/qpmmGzn7678vKDe/fxAQAAjFMYJkO4KH2cjEuQIWRAekkAwFzk
+ZgdPvudWpi/axX/XYlyvd37GpnTtAAAA6FfHGTAZwpnpeP3EHuWy9DExfUF2
+cMha6/cCQCHhsCd46rn2R+nxAgAAcF3oL0MYnydj7wguCjKEDEAvCQCYiybZ
+wfr7nut9/+59z6ayyBzPrdeNecJV6boBAAAwnI4zYDKEM9Px+ok9ymXpY2K6
+guzgkLXW7wWAgqqvt4zz7GXp8QIAAHBb6D5DuC59TIxfkCGkR3pJAMBcNM0O
+nnz/qt5j8N73flbW9c87t6ozhvdeZ5uTQwQAAOCxdJwBkyGcmXr97DtaL1v3
+N9NEkB0cstb6vQBQWPX1kXp+XXqsAAAApAndZAjtOUiWIENIP+vKNSsAYBba
+Zgfr14h7EL4lZgibiJnBZelaAQAAMA5BhpDma+e5zm51mSFclD4upiPIDg5Z
+a/1eACisPv9O/ey2LD1eAAAA0oV2GcJ16fEzTUGGkG7Xk14SADALXWQHz17v
+td5DcN8yL7ivX+eldI0AAAAYpyBDSPO103WGUF+RJEF2cMha6/cCwAjU9/Sl
+nFNvS48VAACAfCE/Q2jPQVoLMoR0s45crwIAZqHr7OCF117X+wbe25Pws/JR
+//tl6boAAAAwHUGGkOZrR4aQQQXZwaHq/KLfCwDjUX19JJ5PL0uPFQAAgGZC
+eoZwXXqsPI4gQ0i79aOXBADMQp/ZQQAAABhSkCGk+dqRIWQQQXZwqDov3Z8C
+AONR3z+adB5deqwAAAC0E25nCO05SC+CDCHN1o3sIAAwC7KDAAAAPJrQb4bw
+s/Tx0evaudXPbtpX1APnb0F2cKg6vyXUeV16nAAwJxnn2c6fAQAAHsCVnsu6
+9Lh4bEGGkLz1IjsIAMyC7CAAAACPKvSTIVyXPi4GWTuX+tlN7eu8mHugCUF2
+cKg6p/z+vpYeJwDMSUjfe3BVeqwAAAB056TnYs9BBhNkCElbJ7KDAMAsyA4C
+AADw6EJ3GUI9zZkJMoR0v6bWCWtlWXqcU1d9fSbU+aX0OAFgbqqvj4T36I/S
+4wQAAAAegwwhd9aH7CAAMAuygwAAAMxFBxnCdeljoNjakSGkq7UkO9h/jZ9T
+fhdLjxMA5qj6evU+DQAAAAxNhpAr60J2EACYBdlBAAAA5qZhhtCeg8S189Jh
+X1GGcIZkBwep8UqvFwDGqz4Pdj4EAAAADE6GkLP1oJ8EAMyC7CAAAABzlZkh
+XJceL+PRcV8xrsFV6WNisLUjO9h/jT/8TQeA8Qpp+3mvS48TAAAAeFwyhNTr
+QHYQAJgF2UEAAADmLiFDaM9BLpIhpMGakR3st77Pib9vagwAhVRfr+7LAgAA
+AMZAhnDeXKMCAOZCdhAAAAAObmQI16XHxrjJEJKxVmQHy9d3X3qcADBniVn/
+XelxAgAAAPMhQzhPsoMAwFzIDgIAAMC3zjKE9hwkWd1XvJQ/lSHkuEZkB/ut
+b8rv36b0OAFg7lLes0uPEQAAAJgfGcJ5kR0EAOZCdhAAAAAuqzOEb6XHwfSE
+63tYNvEpS/Y4ZAd7re0q8XdKfQGgsMR78JalxwkAAADMkwzhPMgOAgBzITsI
+AAAA0I+OM4Rb909Pn+xgb3V9Tvxd25UeKwDgnAgAAACYBhnCxyY7CADMhewg
+AAAAQL9kCDlZC+6TL1fXyF6yADACie/dq9LjBAAAAIhkCB+T7CAAMBeygwAA
+AADDqDOEexnC+ZId7KWmi8Tfq/hvnkuPFwD4+367e+/d69LjBAAAADglQ/hY
+ZAcBgLmQHQQAoG/1Oedb5b2yPTm/XJQeGwAMLWaX6vxYlxnCl9LHRfL8yw52
+X9PUHv269FgBgAPZQQAAAGDKZAgfg+wgADAXsoMAAHShOld8rs8tV5V15aPy
+eePccl96zABQUg8ZQj3FCZAdLFLPL8GegwAwKrKDAAAAwCOQIZw22UEAYC5k
+BwEASFGfNx73D4zZwE29h+Au53zyxKb0MQHAGMgQzovsYKe1fM34vViXHi8A
+8A/ZQQAAAOCRyBBOk+wgADAXsoMAAKRomA+8ZVX6mABgTGQI50F2sLM6vmT8
+ruxKjxcA+JbsIAAAAPCIZAinRXYQAJgL2UEAAHKd7EEYvVf2DbKDz6WPAwDG
+KPb/6j6gnuIDkh3spIY5uUH1BIARSjwnWpUeJwDAFNT9ure6Z7c96cUtSo8N
+AOZKhnAaZAcBgLmQHQQAoK3Ye8zMDX6WHjMAjF3HGcJ9fX+27H75eZUdbFe/
+3Nzge+kxAwDfc04EAJAnPpOzvsdrVVlXPmK/7UYvbl96zACADOHYyQ4CAHMh
+OwgAQBfqHmXqeeW69HgBYCpkCB+L++Rb1S43N/hprQPAOFVfH86JAAD+Ud+/
+ddw/MGYDN/UegrvM53cebUofEwDwDxnCcZIdBADmQnYQAIAu1H3M1PPKl9Lj
+BYCpkSF8DLKDjeu2arDGnXMCwEhVX7t77+elxwgAMKSG+cBbVqWPCQD4ngzh
+uMgOAgBzITsIAEAXMrKD+9JjBYApC4e917rqKcoQDj9/soN59XoOzTKzr6XH
+DgBcVr+/3z1PLT1OAIBSTvYgjN5jb61BdtD1PgAYMRnCcZAdBADmQnYQAIAu
+ZGQHN6XHCgCPoOOeYswQrkof0xzIDmbVKq7xXYP1vCo9dgDgupjxd18WAEC6
+8BQWmbnBz9JjBgDSyBAWr79rVADALMgOAgDQhepc8SPxnNIeMADQoY57iju5
+q97nS3bwfo0WlY+Ga/i99PgBgNvi+3XCe/q69DgBAMYkow8XrUuPFwDII0NY
+rO6ygwDALMgOAgDQhepccZ94TvlceqwA8IhkCKdBdvBmbRZ1L7txH7z0MQAA
+91Vfn86HAADyxDxgxv1dL6XHCwA0I0M4eL1lBwGAWZAdBACgrdiDTDyf3JYe
+KwA8urqnmHI/tgxhmfkpmh2s83nLehzruv98y3v9714rvdx3FtdYB33wt9Jz
+CwDcV309p7y3lx4nAMDYZGQH96XHCgC0F2QIh6qz7CAAMAuygwAAtJXRr3RP
+NwAMpM5j7TrqJ+76zLPNSRg4OxjzfjFXV/mo7DtaD9v6OGLfOntP6R7GtCo9
+rwBAmvr8wT1ZAACZMnpxm9JjBQC6E2QI+66v61QAAAAAkCDuJ5jYr+xlrxoA
+4LrQbYZw22WubY7CANnBcNhb8L3Deb9nF77do/CSj45721HMHTq/BIAJSTwX
+WpceJwDA2ISn8JHYi3stPVYAoHtBhrCvusoOAgAAAMAd4Sk8J/Yqd6XHCgBz
+FmQIRyHxfvlGta3nuOt83ljF48ze8xAAKCscnjVw733e/e4AAGfCU9gn9uNc
+LwGABxZkCLuup+wgAAAAANwRn1+a2KvclB4rACBDWFroITvY8ZyOXdxr8K30
+PAIAzYS0e9sWpccJADAm4Sm8JPbitqXHCgAMI8gQdlVH2UEAAAAAuCNmAhP7
+lZ4ZDwAjUX091xm2fUf9xNibfCl9XFMQOswO1n3h3QjyfEP5mGPfGgAeSUi4
+p630GAEAxiY8hXViL87zlgBgZoIMYdv6yQ4CAAAAwB3hKewS+5XPpccKAHwr
+dJ8hnFU/sWHN1wl1XCbM28cIsnxD2d6rCQAwDQnv+7vSYwQAGJu4n2BiL86z
+vQBgpoIMYdO6yQ4CAAAAwA3hKSwSe5Xb0mMFAK4LMoRD1nqdUL/lje9/7XCe
+xm57qxYAwPS4HwsAIE98NmdiL25XeqwAQHlBhjC3Xq5VAQAAAMAN4Sm8JfYr
+30qPFQC4L8gQDlHjdULdllfmZjOCPF/f9vVxek4+ADwg92MBAOQJT+E1sRe3
+KT1WAGA8ggxhap1cqwIAAACAG8JT+EjsV7r3GwAmpIec2kP2ExvWdp1Qr+WF
++fjsaC529Xys677x1fO0OGf1v3mrvHc4hmt5wdfS8wMA9Mv9WAAAeWImMLEX
+57oKAPCdIEN4rz6uVQEAAADADYm9yl3pcQIAzdTZsU2H+bCYV3sufVyFa7pO
+qNXy5N+/hPb7QMbM31sXvdxwyDG+1scRe827BuPZ1usqjskzJgBgRtyPBQCQ
+J/bZEvtxs77mBgDcFmQIr9XFtSoAAAAAuCI8hWVir/K99FgBgHaCDGGXtVwn
+1GhZ/9s2ucHjXn6LAdfI8pbStQcAynM/FgBAuvAUFom9uG3psQIA0yBD+F09
+XKsCAAAAgCtiJjCxX/laeqwAQDdkCDupYVJ2sGVucHZ1BQCmIeX8pvQYAQDG
+IjyFt8Re3FvpsQIA0yJD+HcdZAcBAAAA4IrwFD5T+pWlxwkAdK/OEHbVT5xV
+hjAxO/i/NswNfkyxLwsAzEfKOWTpMQIAjEV4Ch+J2cGX0mMFAKZp7hlC2UEA
+AAAAuCw8hUVir/Kj9FgBgP503E+MWblV6WMaoGYp2cH/t0Ht7PUMAIxe4rnj
+svQ4AQDGILEXtys9TgBg+uaaIZQdBAAAAIDLwlNYJfYr30qPFQDoX8f9xN0j
+ZwgTs4M5Yt1nsWcjADB9iedCq9LjBAAoLTyFZWIv7r30WAGAxzG3DKHsIAAA
+AABcFvcTTOxXLkqPFQAYjgxhUo26zA5uSh8PAECOeH6XcI7j/vcJqPMMb5VN
+ZVvZJ1wr/Kz/7bryWvEMDAC4ImYCE3txr6XHCgA8nrlkCGUHAQAAAOCyxHuB
+dqXHCQCUUfcTP2UIL9amq+zgw9QEAJiP+jzx7vlf6XFyZf6ewqp+pljKtcFU
+H/XryhECwIk6c3/3vbT0OAGAx/boGULZQQAAAAD4XngKL4n3/XhGPADMXDjs
+K7PrMEM4+eeod5QdXJU+DgDgH/U9T+vS45iKxPOdRelxUs/XU1jU+x51mRe8
+ZF//HBlCAGavfv9NyuCXHisAMA+PmiGUHQQAAACA74WnsE7sV07+3n4arY+Y
+LV3W6yTe77WNe1Dm5knrvvhb/f3X7k3b1/89/rtF6WNn2qxd6FfHGcLYl1yW
+PqYWtWibHVyVPgYA4KD6eg7f7rW8Kj2mKUi8z+yt9DjnLmb4Eq8DftT/bnnB
+W/3fczOE69LHDwAlhcOevCnvm86ZAIBBPVqGsHR2sK7nRaXnms7nenEyv691
+z/jo9eS/LUqPlU7m+6Wez9XZXJ97Ne/Td/L7fZzX9/q98tTHyX9f1f/ec/Qm
+6MJ8n8/1uc3pvJcePwAApApP4TOlX5n4WtvMe4dyrUvX6xHdyVi16mFX/+a1
+xbqI3/dSuj6Ml7UL5QUZwhDaZQc3pccPAByE73OD8oPptXtLOO/5LD3OOas/
+497bZzB+rl4kvt4ipD+P7OjTZ2UA5iqkZ+8XpccKAMxTeJAMYUo/soOf8Rz+
+yRh8XLmmePM6WV3r+P0xZyRrMnLhkBt7q9d17nyfzvumfh3XyEYs/u0Kh/sg
+2sz36T0Q737Xx+3kb3oX74O7+r3hrcT7IEnzvajnJ87TvoM5/+Z3vfTxAQDA
+JeHwvPGUXuVH4usdczxHxzxPSpbn6s8Oh2eaL/VMW81104xVox52/bO6ypIm
+7xHH47F2YRrCjDOEoXl2cFt67ADAQd0nvHUPwLL0GMcsHO6dSTn/UccS83P4
+LN1Lpi8cMoRJzyU7sSpdEwAYWrif4Y92pccJABAmniHsqz93kjNomyO6Jr5u
+zBzIlI1EOGS94vrtKldybl+/vpzJCNS/4+89/o7//TcoyJSNQjjc49Jlduya
+nb/v5dW/4+vQ3X1N/r4DADAp4fDM8ZR7eu7u0ZXws1Kfqfql7qHGvKDn7XQ3
+113vCXl1v4CEe9Ka2FoP82TtwnSEwzM21x1eW43XzZeljyvhuNcNrxX62wAA
+IxAOubd75y97fd27dUzpt25Kj3NOwuGZYfc+U3928Zm1eo1N5mdlz9oBYDbC
+4fl43h8BgEkJE80QpvQfM14r9j77zAtes6v7j73Xi+/m/CX0mxe8df154xp0
+kTlfFfgdP4q5tWXpGsxJ/LsaDjm+oX/Hj+JaW5Wuw5yEQw58W2i+T9/T3R8E
+AEBRGff1LDr4WavU3qiczSBzH+8fe22Ry/quhx2aPWs+R9L+lzw2axfGL3Sf
+IdyEEffGQrPsoOeLAcAIhLTc4JH84O1app4TLUqPdQ7qz873Pud2khs8+Zm5
++cFN6ToBwBCq97x14nuj60UzEw650mW9Rt7rvsfuWi/jxuvEHsdb/f3X9rjc
+1/89/rtF6WNn2qxdmJcwsQxhws/fJrzGIpTJj02uT/ooeljnbcRxLEvX5JGF
+7u9naGsX5Mn6nvPj3/XSc320D/Jkfc/5Kgyzx6A5BwBgEk6u4d+8j6ijn3Wv
+Nxqv+y9L12SOMvrWp5Znr/Fyo6fTpXXpejEe1i6MWw/X3OO13EXp47pwnOvM
+45AnBoARqPuGuecpO329q/VcpJ7TlR7rowtpucF9H/fdVq/54bMyAHwr4X35
+q8TXavpMPe/N5eb/VsbqlreE127znMX4fZ6NwlXWLnAuTCRDmPBztze+9zmM
+K1sy+j7p1PWwrrsUx7UsXaNHEw57iY4lM3huZ847n+8x/10/zvmqdJ0eSTj8
+XS+1l2iKrxnC0nUCAGBe6uv9Kdffk58NeOfn3eolfLrGX3w95PRn9mffG/tG
+l7JX8f8Xnzm/qv/N0WvIfxb9qUXpejEe1i6MX3jwDGHIyw7GGsgbAMAIhEN2
+sMm5yKf386s1/Uis4bL0WB9ZSMvvrXr62c93rgEONhYAGIP6vTHl/TDpWVPh
+nyzP0THTk/v++83PDof9vJauYTee56YZq0b9hPpndZUj7aQPzDRZu0ATYeQZ
+woSft73yfV32Mvu0dm2yk3Uy9jzR+e+IOW8/58sw7jzRN3+nQod/F+cqjDsn
+emnO3Tvbbr6n9Hc92gW9MgAABlL3AVOuuy87+Fm39gaLuUHXOKazHqLNyfct
+L/z3fT3nN+c19o5C4vN2r/18sHZhOnq4VrcZwzXzkJcdXJceLwDwjxbnJvKD
+l+u5TK1f6bE+qjvX4I62PY/h0uftW3rZAxEAxiAcnkeX8n54d5+uhJ+Vs//v
+vr627py2m3nuej/Iq+fL4ZDv6vJnfanHby3MkLULtBFGmiFM+Dnbs3//EqaT
+JzraBXmDNmvkNUwnT3QUx/taunZTFA73KLyPYA6bzHnrz4lzVH0twnj3E71n
+Xbp+UxQO5yRT+7t+5JkoAAD0LrGHuO/g59za33BTug78PU8593WtTub2fM+2
+j5weTTg8czc3g7XXB+LI2oXpqa/Vbrq8fhoK3rsf0rOD9hwEgBFqcV6yKT32
+MQrpPfl16bE+mjvX4E4tBxhL7n3B29L1A4A+xD5Y4nvhooOftUr8We+uU/c+
+77F/EHOjTXNZ3907GJo/0zBV0t6XPDZrF2gijCxDmPD625N/+9bx/f9DkzfI
+WxtT25Pq2u+Hc/n0OZ9iNvjchznPmvMpZoPPbc151pyvRzBnbcW/U4vStQQA
+4HENca297gWc53OO1qVrwDdzlZO/in2j8+xV/N+NnnEV0u9tO+V5Wnxl7cJ0
+xWtfobv+zD4UyhBmXIvUvwOAkQqH/nuTc5BN6bGPTUjfezBalh7vI0m8H3eQ
+PR/rz9/XrglesypdQwDoWvX+thvq/Tnc3384vjcvS9dkbhLm5ZLl2Wtceh5i
+H9al68V4WLtArjCSDGHC68YxPre4HnirV7mtX3d9wab+77uOf27MG8iY3F8X
+XWfIjvO9OZnjmFla1v/3fN67zDLJmKTNedcZsjiP72dzfW51Mu9drrddXMOl
+azp2odsM2efJ7/dxfhdnP+983j86XHN7c353vp9Dd+cdu/DP+/fyVu3rn3uc
+9/cOf9fNOQAAvQiH5wX2es9OuL0nV+PXpbc18Za4Jj4vzG38360+u4T0Z+8e
+bUrXjHGwdmH64jXWMOEMYfX1fySObVG61gDAZXWvr2l/b1N6/GOT0a+1L3NX
+NU/fZ+htwDHl3msc7ym2HgB4GCH92XOdPG8q3M4ptr4WTqu5ydnDbX/2vctw
+OXu1r/sTq/rfHL026FucWpSuF+Nh7QJNhMIZwoTX+28d3ecfXyNmBl5zr2+F
+f3IH647GIm9wu94voX2eZ1+vxVXOejwbx6L+/k1H4zHn12u96uh3/K1tnevf
+9fi3YtfBnC9L13asQvv7TY6/49l/0y+MZVGvnbZ/3+OYVqVrO0ahXU/v/Hd8
+0dF4XkM3f9/NOQAAnYp9yD6vsYfrucG93uQ4hfT7uWJO6+Os39z6vq6Qnmc9
+2pauGeNg7cLjqK+hdvWMz8EyhCGt//nfStcXALitZa9xVXr8Y1Kf1+X0Z+XF
+2tY8bU+jQe+nDc32HlyXriUAdCWkP/du2cHPunWdvJNr4QyyFqLNyfctr/Ra
+1/fmNJ73hbR9qa/+fLB2gTZCoQxhwuv8fy3GsKv7j3fHkVmreC2tbc5Eluxy
+bVehXY4j9q5fexrba2jXG9/3NbYpC+0yZMd7DBY9je0ltM8WrUrXeExC+31k
+t33WtP77vjbnnc950/fLY0Z00fP4VqFdXticAwDQmcTr7Z8NX/tabtAzTUcs
+pD838jR7teuy35zbAypdM8bB2oXHE7rtJcZrf73urZJ4ze/X0nUFAO6re3pN
++3mr0uMfk7ofnlo7+cE2tU7fc7DRtb6WY8vdN2RXup4A0JWza9LX7Dv4Obf2
+N9yUrgNfruWorlmdzOv5cxg+cnobN3q2N9dkl/0Tps3aBbrQcd/vy717/jv8
+Oafi+AfJaLWsl/zgt7Vc9bXOOh7nIrTLu61K13osWtRxN2Qdw6EPsQ7N82Tm
+/J9aNv17Gb9vOfBYV0H/qW0Nm+YGB3v2uDkHAGBMwuFZfSnX198bvPbLlev4
+nmk6chd6OCn9l06vOTboAVlTWLvwwEK3vcTervcn/vz/uXQ9AYA04fDs36Y9
+e895/raWOT1c+cGmdU7/TJp9ra+Dsd3KMty85xgApi7xfe+j5c9Y3LhGvi5d
+A/6ep5z81XP4PnsV/3ejzxoNz8d8ruEraxfoUsd9v2hTWVz4OV29/rG/uJxY
+veQH/6lfkzn/uLSuBhrzIjTbP82cH+r31rB264Jjfg7N847L0jUvrWHtiv1d
+P5nzdcM5n/W5bmieGyz2d/1k7G+hWd9xVbruAABMW0h/Fvky83UvPUMw2pQ+
+Zu7OXWqe9FTneziF9P3jGq1RHo+1C/MQRpwhDOl9p2XpOgIA6ULz/KD7NNrV
+UX4wt8Z599MWubeg+rm7zM/MrTIUADAG8X038X1v1eJn3NqXq/Hr0st6eEtc
+D58X5jX+71afMUL+XtCb0jVjHKxdoA8d9/2izWkmoMPXXZeuVX08qwbXKWd9
+jbLhtd3dWPq59e/Izpxn1WzV4Hd8e/q3YwRznpuJmvucv0/173o9/hdznl2z
+bYN6jSZvGf/eNDyG2c45AADtxftvEq6r7zNfM/ZAL+UG16WPl6T5S82THm17
+Gof8FblrxtqFGQkjzBBm9CGWpesHAOQJzZ9NrZf3bR1Tz5dOz9PUL7W+T+E9
+47PoYgJjPJIhBWDSMt7/Fg1f/1puMPbqnEuNTOyXJq6Ht7M+7mcX50UhPcva
+ay+F6bF2gT513PeLNvV9+W1f53Ns16bCYa+l3FrN8hldda12mbX6GFut6uPI
+3YNwN7bjGKhWTbKinT9zvKM535jzpFqtMusU18ey9LivHEtuBnKuc55bp9G+
+B4b8fSdnOecAAHQjXM74ndtkvN617M6q9LGSPIcpedLe7zUL8lfkrxlrF2ao
+vha8y7yedus6W+NnjWVc11uWrhsAkK9BD/q0F70oPf6xaNDXjfUb3f0bYxSu
+7zX0nYJjzNkb8Wg0zwMGgCYS36M/G772tdxg6z2+6G09pPYQTnsece/mzu4P
+zD0fK10zxsHaBYYQus8QtrEZ8/35Da6xfZQec4Ea5a6lUV+DjOMz5zfrk5sV
+Hf1z/0J+T2JbeswD1yc3KzraDJk5T67Pa+57eekxJx5Tzjqe1ZwDANCNmFdJ
+vK6+Sny9zYXv3cvFTEtIy5Mevfc4DvkrcteMtQszFrrNEG5Dg3xfSO8/Zb82
+ADAODfq2k+lJD1zHTcNztEXpsY9V9dlykfE5tFE2ocOx5nx+7/UzPAD0LeM9
+Ovv9Lhwy+ddyg849R6rBuVDn+0deWTe3WE9Yu8CgQvkM4SSuRTS4VjnqbFzH
+tVln1CVmNlalx2zOW9cmZ2/GXRh5bvDkuHJzRXOa88+MukymRxPyM5GzmPPq
+a5FZl03pMZtzAADGIjyFdRfX1MPhmaaXsjK7rvsB9L4mUvOkx35Pb5+pr6wp
++SuurRdrF/gqFMwQBtlBAJiFkP9M78n1pgeo4XNmX/8o9k7X6nihpk/hNeNz
+6LbwWHM/NxcdLwC0Ub2Prfq4ThwOucFLOZ5N6WPm5rzlPO/hqPN7AvUxaLBm
+rF2giFAmQ7gqfdyZNVplXltblB7zADV5yazJpO5tM+cXa5KzF9nkrtOH/FzR
+HOZ8bc5n93u+zZjzTenxmvNOarIMh1x4PN5dODyX9OGPGwCgDyHtuXw3n0Me
+PNP0oYT0PGnU63PW9H7IXC/WLvCNUCBDmHGt8u5rAQDjFprtm/f1vKL02Mci
+NM8PHvui66n1+3utZ97n4o8JjfWr0vUFgKbi+27Ce90+8zXjMwMu5QbXpY+X
+u3OXmiU92vY0Dn0McteMtQsUFYbLEE5yH5+QlyXblh7vAPXIueb4Wnq85rx1
+LZ5DXt5mUlnRk+PMyUc++pzn5IMnlxtseJyPPuc5639TerzmvJNaXHufm+zf
+cQCAUsJhr8CU6+nrG6+xvNKb3AS5wUkKaXnSo0XPY8nq/ZSuHWVZu8A14XBP
+ec4z+G5eews3cn8Zr3P1NQCA6QjN84Ob0mMfi3C4r2Pb4vxsX8/D7PuEmZ9F
+14XHusy83zea/RwDME1X+mjf9dUyXu9afmdV+lhJmr+ULGnv/YzcPkaQv5o9
+axcYi9BvhnBT+vha1uYt41hXpcfbYx2uZQ0erg5zOtY7dXjPuJY86WuM5vzv
+OqS+D+zCRHODDed8klnohBo8h/Tnhm9Lj9ecd1KDxaPPMwDAkG70FpPuy6n+
+/29t+5uMS0jPk0a9P58+sZ8uf4W1C9xVX0tch+4yhJt4rerCz0n9/mXpmgAA
+3QjN983blB77mITmOczz+wDifSLx+bPZ9wPU54zL+rwxemvyOsVq+FQdf/pn
+0XXhsS4y7/d1zy8AkxTS8/KrxNfbXPjevffJ6cjsH7z3OA75K3LXjLULjEro
+PkP4WfqYOqpL6jW2/ZSue2Ucf87+c5vS4zXnnRx/zh5dq9LjNeedHH/O/nOT
+zoo2mPPdg875em5rPqRnoh91zrcJx74oPU4AgKm40l/8rt944fueb3zvqsix
+HK4JdnU9cMqWLddEap406v2ZJZl9n23p3ylr19qd09qFqQo9ZwiH+rsHAIxH
+fX7RND+4Lj3+MQl5z0ZPsQuH/uL6xGvt9P+3DdefWRvPG1ela5NUv7zPosXX
+XuZ4o7fSYwaAXPE9N/F97uZ9XnVv7lJeJj474CHuhZyDkLf38v7eumg5Fvkr
+ctaLtQuMVugmQ/hIWYOca5W9Zb0LHv9H4rE/RFbUnH89/tRj7/054+Z8sGNP
+vdfjYa4nz3zOc/LBy9LjNeedHHtqr/Bh5hsAoG8h7Vnkm7Pvic8E/7zx7xdF
+jkX+qpPz4ZCWJ/3a8xlgfeb0oL5bq1Nh7Vq7U127MHWhpwzhUH/3AIBxCe3y
+g6vS4x+T+nPybgSfU0/Fc8ZF6drcrV3eZ9H1CMabe89v8TEDQK47PbWjm/ct
+V//95crrfPaZz6GX9ZCaJY16vfevwbnYsnT9KMfaBaYgtMsQ9v784YFrkZOz
+eJhjDzPci8ycJ+9FFq83P9RnpxnPeWo+eFt6rOa8k2OebX5uxnMejzn1Pq5F
+6fECAExB3WdMuZa+OvmemIfZj/EeniB/dbRsuS7uze8gPZ96LDn7yEWTfFaQ
+tWvtTnXtwqMIh2uN7x3+PfsfQ/zdAwDGJ+T1s86tSo9/TOpztNR7AIYy6r5z
+yH+OzXoEY5YdBOChhcNega3e42705uLz9B7q3tc5CGlZ0qNFz2PJOhcrXTvK
+snaBKQn5GcL/XnrMPdVhnXj8k3hmVsLxLjKuza5Lj9ecd3K8y4zf84fI1Jjz
+5L3IoofKB5/UIPXelv0j1CAcnuGderwPeY1kTnMe8rKi29LjBQCYiphVSbye
+/pz573vf0+vi8chfHS1brInUPGnU++eMkL6P3GBjsnatXWsXHlc49JM2U/i7
+BwCMV2iXH/TZ4Pt6xs/MuxF8Zo22petxs1bTzA6+T23MAJAjpD9n7uJ54I3e
+3Kb0sdFoPaRmSaOPAcaT+kxG+auZs3aBqQrpGcL/pfRYezr+54zravE+/clm
+LkJe1mA35WM1538fa851+G3p8fY856l1mPqc5+wrOurnAJrz5GNdZ8z5qvR4
+zXknx5rzTNFl6fECAExFSHse32fdC8jNwawGPx75q9bnxDd60Od2A63RnOdX
+DjIma9fatXbh8VVfizBMhnBZ+lgBgH6E5vnByT8TtMeavjWsaZd6vwe2VY2m
+mR1cT23MAJAjsb/23TM57/TmVoMfhz5GJ9fzQnqWNOp9X5TM87Bt6d8na9fa
+ndPaBbpVvx/8jyt/I/9r6fH1fOw5WZtRX/u6c5w5WYOH3H+u4ZxvS4+34THm
+ZEWjRekxj2jOJ5krCnk9l4fdf25mc7569L9l5vy7Y9xkHOPD5oMBAPqQeC19
+k5mBKXYNPuj9HC1brImUPGnU+7l39TMWmWtuU/p3ytq1due2duHRVV+L0G+G
+cFn6GAGA/oS8vuYp+cHrNY33hKxDuX0IV6VrcLM++dnB4r3VIDsIwIOr3rt2
+udeI62vMt3pzi8GPQx+jk+t5If1Zrd/lSXtYm7nnjpu+x2TtWrvWLtC36uuX
+cLiuFP3flf+p9JgGOu6cXN2m9HgbHN8m4/gmm480538fW25ucF16zCOc80nl
+ikL+sxofOh88kzlfZRxbXBuL0mM2562PLee9fDelYwMAKC08hdfMa+pNLAY9
+Jr2fo2XDNfGcMbe938MY8p5fGU32c7+1a+2WXoPAbdXXIuRdg+v17x4AMB2h
+eX5wF/S9Umq7HfAz62fpY75bk/x7aLcjGPNb5pjXpccMAKni9ejE97fVyffE
+9/P92N4Pgz5GJ9fzEub2aIjnIOb2Mt5K/05Zu9bunNYuQJfCIWuVk7vZlB5z
+xnFtMo7r4fciazHn2ynUJhz69jm5wdFf0y0455PIFYXD+fzD/f0y5zeP6y3z
+s85szvcbzvmi9LgTjin3fqxl6XEDAExJvG6feU3973uKQvo+hJvSx0nWmkjN
+k+4GGs9HxrocZEyMk7ULDKW+Lr3NvGblehYAzFyDPuek+rilhcP9Im8dn6d9
+d7/BFOYiTDM7mDvmdekxA0CqkJ6Rf878973v6/Xdschftb6eF9KzpNEQz0FM
+3UdusDFZu9autQvQn+rrNfO9Y9TXJkP+3nOt3g+nqMF50KgzJiF/77nZ7EXW
+cs5He64U8p/NOOq/WyOZ8/1Y5zzk58GjWewl28GcL0uP+8qxLBq8l88mKwoA
+0JWYV8m8ph691d+b+iy//bHfyfhl9Fk2A4wlZx85943NnLULDC10lyFclj4W
+AGAYDfqds+11t6zzc32utq7P13YNar6rvze+xuuU6h/yc3jFn7vdYMzr0mMG
+gFTh8DzOu+/H9XXl3CzMatBjkb9qfT0vpGdDdwOtz9RnxQ42JmvX2rV2AfoV
+Dte7ct4/Rpk3CPn7kEXr0uOe0Jy/lh73heNo8ny+0R3HSGsV53xVetxnx9Bk
+H7LRZuJGOOfRqPJX4ZANzs2QzbZ/FvJztaN7HwyH/lvue/mm9LgBAKYmPIVF
+Zv8x5gxfTr4/9jD3Y+xd0mpdpOZJe7+2EtLzqUez/BzI3+vF2gWKCO0zhP9b
+6WMAAIYTmucHN6XHPnV133lZi/3IdfgnG3j8/0/+voKQn8P7MsExz/KeHwCm
+KfG9bZOZgznaDnos8ldHyxbrISVLGr0PsDZze8Wb0r9P1q61O7e1C9CX0Owa
+5TqMIJ8RDnmi9wbj35Qe+wTn/H0kc74Izfrxq9Jjn+Ccx6zeYgRjj9fsd0Oe
+7z6ChnO+HcmcrxuMfXb7inY055+lf1fqv+u52eDj2Iu/LwEATE1IfzZg9HEp
+2xLSn3+6K328JK2J1D7LfqDx5PTJN6XrRznWLjAGoXmG8L+WHjsAMKyG/bBo
+U3rsjF9okB2Mn6snNuZl6ToDQIrqPeu1wfvyaN/Hg/zV0bLhenjOmNfen2kR
+8p+DONnnN1i71m7pNQgwNuGQv8vd2ynahYL7uIXmeaLP0jUfg4ZzXmw/unqd
+rhue92xK13sMQrNc0T4UygpXX4vQ/LnNRdbp2DSc86hIVjgc9s5r8nd9tntM
+djjn8fsWA4+1zd91uUEAgIbCIQ94N2cTbuwZmHlfz7L0MXN3TaTmSTcDjOVl
+rL1xxsfaBcYk99pm6fECAMMLze/Ncc8Dd2VerxvFdbsGY9YfBmASqves9wbv
+y1Hc3yv1GXWb0sdJ8npIzZLuBhpPSq940DExTtYuwGNqeY1yGwbcsyg0f4ar
+rEF3cx7736sBxxmzJXvX0IvO+WAZwurrJTTPP30Zam1ORYta7sNAebLQPDN4
+HKfcYDdz/qX+3mXP41vUP6fp33Xv5QAALYRDLrB1vzFeb9e7fAwZfZbVAGNJ
+3dMyWpeuHWVZu8AYJV7r3JUeJwBQRmjXs1+VHj/jFZplB9cTGvO+dI0BIFVG
+D+3UW/29qftqxX6f+6cmIKN/sBlgLDn7yBU/X6QsaxfgcbW8Rvml7oW+9XE/
+fz22txbZElmDfuY85j7i/mSd53bCISPaJlvyNQNTusZjFNrlio7Zok73HK3X
+4qrletQv6W/Ot/X8dPY3tKPfcbnB/uZ8Fw7vu53Ut/pa1K/X9nfcezkAQAsZ
+9+OsEl4rdb+vaFH62Lk5l6nz2Ou5eFwnOfeL6Ylj7QJjVn3971eub/0/pccG
+AJRV98ab9khXpcfPOGVc9xv0Ht87Y865vrgtXWMASJF5vTiKOcOXk+9/DmnP
+AU3q51FeSM+SdnpP7pWxpGZTB+mvMG7WLsBjq69RfrS8r/+YM2mVOQiHvcfe
+QvM9Bk9tZA1u1rptxuSYM4k5wtcmta5zJat6LLsOxvNWuq5j1tGc7+u/F/H3
+dJn58+PfmmU47GXYNkt0HEvWGOam/v1sW+cv9Xwdf9cXmfP9Vq+ZNnnB03Ek
+/fy5qn+/upjz3env+r26n833JnTzN/1L8F4OANBaeKrO5dOupS8SXiund7ku
+fexcncfXsdyfFfL2bVuVrh1lWbvAVFRf/2d9fSz6pfR4AIBxCIf7YZr2THu/
+L5PpCc2yg7vCY15njHVdusYAkCLkZeM/LuVbMq4570ofL3fXQ2qWdJA9lquf
+85mxPjel60c51i7AfHSYMTna1vf8r0+yB6fe6v+2Cd1kBU+9l67nFITuMian
+WZPTeb/kON9d5IiO9q6VJ8/5quM5P533j7O5fq///13PdxQzZPaeS5/zrut/
+Ou+XdP2zvtTrS4Ysbc5fe5rz09+/Puf6aF26lgAAjyDxmvou4/X0LicupOdJ
+e31GU0b/aZAsGONn7QIAAFMXmucH4/foj/ON0Cw7GC0KjjknO7gsXWMASBEO
+ecC7WZtw4zlzme/ry9LHzM31kJol3QwwlpepnCdSnrULMC8D5A36JkOWP+fL
+ic+5DFn+nMd+xG4Ec9eUDFmzOe9ir8dS7CmaP+eL0H+2ry+7YE9RAIBOhMM+
+gSnX0pOfwZSZmVmVrgEX5zD1GY29Xm8J6TnUvX4PkbULAAA8gnC4R6NJD01+
+kG+E5tnBVcExp2Qrvn6mLl1fAEhVXwtunbWp/s0u8X3y7mtRdD2knu+sBhhL
+aj8jWpeuHWVZuwDzM+G8QRzzonT9pqj6eg6HPFbpOcxlf8l2c971XqN9kw1u
+P+/rEcxjDtng9nP+FqaVD49/l2SDAQA6Eq/bJ15Pz/qsVf37beLrbkvXgO/m
+LjX7uet5HDnPinQtAGsXAAB4KNXXqkXPfFF6/IxDaJ4d/Cg45tTripvS9QWA
+FBnvx6uE10rd8ytalD52rs5j6hz2eo9cRl8l2vc9HsbP2gWYrwnlDeIYV6Xr
+9QjCYd/J3Qjm9B55ou7mfBmmsR/dJsgTdTXncQ/C7Qjm9N7fdXsNdjfnizD+
+fHhck8vStQIAeDQh/Xl8WZ+3Yh4m43q9z+8jEtLzpJuex+E+MbJYuwAAwKMJ
+zfODn3rnRKF5drD3+31vjDllX6ZoWbq+AJCies96T3xvWyS81nPGe+W69LFz
+cQ5Te6jbAcaSs2/bqnTtKMvaBSCMf28y+xP1M+frMM7c6C7IifY176swztzo
+NsiJ9jXnyxHO+b7+++Pven9zvh3BPPu7DgAwkMT+4mfD197Jz0xPNR8fpfss
+IT0D1mht8pisXQAA4BGF5vfjyA/SNju4KjDe1P1DdqVrCwCp4vXgLt/bMjIz
+ya/JoOshNUva674KGeddg2TBGD9rF4Cj6msRDvt+lc4YHLMlcSyL0nV5ZGFc
+GULZkuHmfRXGkSeLv+PL0vWYg3DYb3Q7gr/r8e+N/tYwc74M5d/T45p7LV0L
+AIBHFp7CS+I19feGr5+aoYmc649ESH9ebS9zFtKfmbu3bjhl7QIAAI+qRd9u
+W3rsFF477bKDg6+fkL6Xyap0bQEgRX3duNNeXGZuZlW6Bnw3fylZ0qjX/TRC
+egY19jQWpetGedYuAOfCIU/2Fspki3b1z3bvxfDzvgplskUfsiXF5rxEtij+
+jq8ri9LHP0ex7uHwXMsh/77H3/FV6WOfq/DPe/rngL/j737HAQCGEZ6qc720
+6+qNPndn5GiidYvXz/5ertY09X6y3vZMC2l7x+377jsxLdYuAADw6Fr05jel
+x07BddMuOxgtBx5vyn3Au9J1BYBUIf05m1m9uOrfbxNfd1u6Bnwzb6PYYzmk
+P1+2cZ+Yx2LtAnBP9fUyQM7kmDNwz8UI1NmimDPZ9jTf+2OWKMiIjkKdLVrV
+vYo+9qD89Ds+Pid/37vOlO3qteR3fGRO/r5/dPy7vq1f1+84AMDAMvqKjc/N
+q+9dJ/6MfYPXfj/5/rfS9XwEGfPVaC/KhJ+f2kP3+YFvWLsAAMActOjNbkqP
+nUJrpn12cDvweHcJY1qVrisApArp+2Nl9eJC+l69rkuPSEYvYdPzOFJ7xL2O
+g+mwdgHIUWcOjvmibcuMwTFXsih9XNyd92U47BP30fA69mc93zFXsix9PCTN
++Uv9+/le/77uMn+/P+o1s5Qdm456vt5O5v3e7/v+bL5f/U2flvp9/bWev+N7
++6W53538t0397+PfCNelAAAKCoc9+1Kuq7faoyvk7T24ynjd02cK7nN7qlyt
+62fiXC17+NkviWsleZ0wH9YuAAAwB+HwXN+m+cF16fFTYM20zw728lm6xVi3
+pWsKADkSrx036sWFtMy9DM2IVHPx0XXPtMEYUjNgrXrEPBZrF4C26tzB8iRf
+dsnxvy9Kj5fO5v35ZF6vcc/fAwqHXKG5BgAAKCykP4+09R5dIX0/sF3Ga54+
+U9Ceg92sidQ86ZeefnZK9mtVuk6Mj7ULAADMScv84Kr0+Bl4vXSTHdwONNZ7
++zLF7MWidE0BIFX49jmYnffiMnI0kXs0RyCkP2+1l/kK6c989dxWvmHtAgAA
+AADA9CTci3P02sHP6nTvwerfvJ38e88N7G5NpPaYtx3/XNkrWrF2AQCAuamf
+2buXH+TuWukmOxj1+uyu6vUXPl8D8GjO+lmd9+Iy+2/rFq+f/b1crGfqeVlv
+vc+QtndcnPOX0vViPKxdAAAAAACYpvAUdinX+Dv8eZ3sPVjfR3TaB3X9v7s5
+Ss2Ttt6LMvPnxvlelq4P42XtAgAAc9QyP+h6ykxk3Odb9D7chHuBN6VrCQC5
+qvevbeL7bOM9sjL6b/sGr/1+8v29PkdgDjLmqtNexsnPT30Oo88KfMPaBQAA
+AACA6Qlpz/GOth3+zNbPPg3f7/F18d/ReI5S56f1XpQn83mvbz6J50NWY/yp
+8kfll9JjmSNr9+544/r8pfLnlbH+Yu0CAMA0tcgP7uUH5yF0lx38Ul+Xa5xt
+uDHG16GuUQLAUOrryEnvrx38nNRr5KuM1305u97d+TnA3Jz1OG9Z9vCzXxLX
+SfIaYT6sXQAAAAAAmJ7wFN4Sr++vO/65qc8k/K63EL7PDbbqpfLd3LxkzE3r
+ewvDIb96r8/Uy/1oHdft3+GQGfw7g1V6THNj7d4ca8wE/pVRn+i3yr9Kjx0A
+gGmqz8+X9ef/uEdJfObGrj7XTN5/oD7vfqu//9o9gvv6v8d/tyh97EXrHsKq
+4d6D8oMzELrNDnb+mTfcvxd4FJ+xASBXuJ+NP2q9T1dI77/tMl7z9Pl59hxs
+P0epWdIvPf3slOzXqnSdGB9rFwAAAAAApik8hY/Ea/zLjn9uzrNPv9S9zmXd
+X92d/Tf3tnU7N6l50ta1r+fz3jpo3SvvuV4xM/j7hXHLDg4/F9bu9+OM+wzm
+ZgbP/Vz6OAAAGKdwOx94y937jetz7nt7fF+znfO1ghb5wV1FLuuBhfzs4Crh
+33SS5wv3c4PbLn4OAJRQvYdtEt97Xzv4WZ3uPXh23d2zPLtZDynnWF/Pfzr+
+ubJXtGLtAgAAAADANKXeK9TTz07tL7S635Dsecm5N3Pd8GfEfSPu5Vbj/abL
+0vW4cQw/hsuZwSPZweHnxNr9dqy/dvA39ui30scDAEAZoXk+8JbFjZ+3zDy3
+v6X48zyKzVsIbw3zg5/yg48rZGYHT77nXv6g1efgcP/5PJvStQOANlLPnzv8
+eZ3sPVhfDz99j57t8zk6Xg+pWdJOP88k/Nx9m3M6Hp+1CwAAAAAA05Nxv9C2
+xzG0uR9wU7qGjyYcntuYOw/J+c1wuOc0pa8U70cd5b2K4ZAZ/E/CMcgODjsv
+1u63472Va23q19LHBQDA8Fp+br/k6l4l9fl01+exs92rrPrayA/yzZpokB2s
+v+858W9B/Ny8yBzPrdeN9wCvStcNANoIh/xd0nlrhz8zZ+/B9Y3X+Lz372g0
+P6lz03ofypO5vHcuF8c0+mxoNcafKn8EPbhS9bd2b483rs9fKn9eGesv1i4A
+AAAAAEML6ffkrXscw/kzS5Pv/Stdv0cUDs95b3Iv5q5eT/H7l2dW9X9Lea5u
+7P8sStfhSm3+VfktoyZ6P9ZuqVp0ud+gdQ0AwDfC4d6919A8U/jd/gPhcG3g
+s+HrpfgoXbdi89U8P7gpPXZ6WA8Ns4Mn379K/Iwcf5/XFz5nHz9rbxJeZzSf
+swGgjer97C3xvXfd8c9N3XswWp5973lu8OrzP8iel5eMeWmdh0r8rBX/+6if
+HVKN79/hkBnUqyg3B9bu9bHGTOBfOZ+1wqHn/K/SYwcAAAAA4PElXG+/2DPs
+YRyrzGvps90zYIA1kbKvWtQk73nLpu911qImP4R/MoN/1P2fo2vPjdS3tHZL
+1eGnK+P89dKaDIdM7L21fOovvUwAAI5C3v3IF68xhMP9h12fp1+yLl2vYvMU
+wof8IF/XQsvsYP0aMUsQMxApGcImtmP6nA0AbVXvax9NzpM7+Lk5ew9+Cf/k
+/l8vvM+PYk+vRxDSs6St617P5b018N2zXcYkHDKDv18Ytx7c8HNh7X4/ztiT
+y80Mnvu59HEAAAAAAPC4wuFZfY3vE+phPKvEHua6dO0e2YV+8NWeT0h/1vw1
+n3WfaVH6uO/U5GvmqvLDhf92Laelbzn8PFm7hzqcZwB/u7R2r3zvz4k9zt9K
+HycAAOMR8vYf3J997/LKtYD4/9vU5+6n+5W9hvTnhlyyKF2vInMUwnPls2F+
+sPj9mHS4FjrIDp693vF3sm3+9/g7L5cAwMPp6n234c/OfXbnJW+la/hIMj8/
+rRv+jNgDvpdZjT2SZel63DiGH8PlzOCRHtzwc2LtfjvWXzv4+3qk7wYAAAAA
+wGzU/YBL9xvFHsB7mOk9fgPXP+l+rrPve6nn594+ltvwz72fDzGX4bAnob5l
++Xmwdr/8nf07HfdPDV4j7kP4x516xHxhUh4RAIDHF/L2HticfN+lDFO8HhD3
+O3m+8zMXCefxN3/+3LTMD65Kj5+O1kHH2cELr72uP0Pfe15P/P39qP/9snRd
+AKAvGe+92x7HkJP3cf7c73p4bjAHydnNcOh5pDxr5f3eZ66CNYqZwf8kHIMe
+3LDzYu1+O95budamfi19XAAAAAAAwOML6fd7fpQe65joW5Zn7f5dh9M9B7Nz
+gyev80P4fv/Cc41fHwCAxxLyskir+nvifYHnzw36yLkHsL53MTc/uB/DfYbF
+5uqQH9zLD85X5u/rl9LjBYCpq3MuKe+76x7HsLhw7p1iW7p+jyYc9mxukik6
+PmP1NXy7L3u0qv/bvWc3fJ3TMNLnI4bDcw1/y6iJHpy1W6oWXe43aF0DAAAA
+AACDCof7NFP6FsnPiZwD/Z3yrN2vNfjp5DhbP5u0eo1/36ml558CAPBVyMsi
+xbzfeW4w/u/Xhj/7pcG9eI1+1qOovl5a5AdnXbtHkPn7+qX0eAFg6kL6sy6W
+PY9jlXnOHHM6s33mRo/zkLKv2vEzUpd5pE3fa6xFTeKzDI+ZwT8qv5y49YxD
+PThrt0Qdfroyzl8vrclwyMTeW8un/orfU/o4AQAAAACAx5XRp3kpPdYx0bcs
+z9r9WoNjb/3PDl/z9xu1/L30MQMAMA4hfR/weN/0+V6Bn23P0zPuYfz73sPS
+NSutRX4wfs/Dfq6agyA7CACDCYf9/kbznhsO+cGUXM+6dO0eVUjbX+1rL6Oe
+r9R/f+3zV/ystih93Hdq8jVzVfnhwn+7ltPSgxt+nqzdQx3OM4C/XVq7V773
+53DIBt47/t9KHycAAAAAAPCYwlN4TezX7EqPdWz0LYvX39o91OHYb/ypw9e8
+1ZfvLKMIAMC0VeeG68Rz8njv3+me4V+zhB38/NTPBEfb0jUbg7iHYMO9B+UH
+JyzIDgLArIVDnjE+e+M8QxhzPu9jzOo8ipCeJd2ffd9LPTf39rDc1nO7epR5
+DIc9CfXgys+Dtfvl7+zf6biz+3HhsA/hH3fqEft9SXlEAAAAAACAHHXvJqXv
+81F6rGOjb1m8/rNfu9Wx/Rh6yPPd6cvLDgIA8FV9n1/SOfnJ/473JrfODZ6M
+ISc7+KV0zcai+lq1yA92Nn8MOOeygwAARYT0/doftpfRsG56cOXnwNr98t2e
+g42f41n33s73LzzX2XNCAQAAAAAAjsL9Zz4evZUe69joWxav/+zXblxr9TH+
+3MNrX3v+qewgAABfhe/3LLkn/vtO963L+FxwJPd2rF3z/OCn/OD0yA4CAJQR
+vn2Wyix7GQ3rpgdXfg5mv3Zjlu/kOH/t4PX+faeWrX8GAAAAAADAqfAUFhn3
+jXV6f+cj0LcsWntr98vfPctfKz/08Nq/X6nn76WPGwCA8jLPyXu7nzCk7314
+tCxduzGpvt7lB+dBdhAAoAy9jM7rpgdXfg5ms3arY/utPsbOnqt5o/+mBwcA
+AAAAAHQuPIVVYs9nX3qsY6RvWbT21m7/Nf7tSk1/Kz02AADKyzgnP9r2NA7Z
+wbY1DGHTMD/Yy5zS0zzLDgIADK46r3pNPP/alR7r2OjBFa+/tXuow1/1cf7U
+4Wv+dKOenWUUAQAAAAAAovAUPhL7Ph+lxzpG+pZFa2/t9l/ja9lB6xsAgJxz
+8qNFT+OQHeyijs3zg5vSYydxjmUHAQAGV51XvetlNK6dHlzZ+s9+7VbH9mMf
+eb7q9X6QHQQAAAAAAIYSnsI+se/zVnqsY6RvWbT21m7/Nf79Sk1/LD02AADK
+yzgnj957HIfsYBd1DOG58ik/+LhkBwEAhledV33qZTSunR5c2frPfu3GtVYf
+4889vPYfsoMAAAAAAEDfMu8ZW5Ye7xjpWxaru7U7TJ3/vFDPP0qPCwCA8jLP
+yWPG8LnHscgOdlXLdvnBh71f9FHIDgIADKs6p1pknH+9lB7v2OjBFa29tXuo
+w0+VXys/9PDa157f+Xvp4wYAAAAAAB5HeApr94u1rqG+ZZm6W7v91/iHKzXt
+/NmqAABMT845eehxz8F6LLKDXdazXX5wVXr83Jhb2UEAgEFV51SrxHOvfemx
+jpEeXNHaW7v91/i3KzX9rfTYAAAAAACAxxGewmdi3+ez9FjHSt+yWN2t3f5r
+/NOFev4Veni2KgAA05NxTh4teh5LVnawdO2moPp6qezlBx+L7CAAwLCqc6qP
+xHOvj9JjHSM9uKK1t3b7r/G17KD1DQAAAAAAdCI8heeM+8U2pcc7VvqWRWpu
+7Q5T50s9S+saAIDcc/Le7yOsfsZeHqqHurbLD76UHj8X5lR2EABgUBmfVd5K
+j3WM9OCK1t7a7b/Gv1+p6Y+lxwYAAAAAADyG8BRWGfeL6ftcr6O+5fA1t3b7
+r/EP4bDH4Gkt/yg9LgAAxiHznPx1gPEkZ6Eq29L1m5I6P9gkO7iXHxwf2UEA
+gOFknnstS493jPTgitXd2h2mzn9eqKdeHAAAAAAA0JnwFDb6Pp3UUd9y+Jpb
+u/3X+OcLtfScUwAAvso4J98PMJasLFSwN3l+jUNYjTU/WH09l67PlMgOAgAM
+pzqfWjvval1DPbgydbd2+6/xD1dq+nPpsQEAAAAAAI8j3sOp79NJHfUth6+5
+tdt/jc+fdWo9AwDwt4xz8vcBxpKzB2Jkb/ImdW6eH/zsM99XfW1K12ZKZAcB
+AIZTnU99Jp53fZYe61jpwRWru7Xbf41/ulDPv2KmsPTYAAAAAACAxxCewkvG
+vWL6PrdrqW85bL2t3f5r/MtZHf9TekwAAIxH5jl5r3vO1ePJ2Zd8kDE9qurr
+bUz5wTrPuCtdlymRHQQAGEZ1LvWccd61KT3esdKDK1Jza3eYOv9mXQMAAAAA
+AH0KT+Eto+/zUXq8Y6ZvOXi9rd1+6/uvcHiu6bGGf5QeEwAA45JxTr4baDyp
++yEMNqZHFvf5G0t+MOYG42uXrsmUyA4CAAwj5O2Pbm/063XUgxu+5tZu/zX+
+4awXpx8HAAAAAAB0LjyFbUbfZ116vGOmbzl4va3dfuv7n5P6/RmzhKXHBADA
+uGSck78PMJZFTg4q2BOhm7o3zw92Vv/TPRBL12NKZAcBAIYR8vZHX5Ye71jp
+wRWpubXbf41/vlDLH0uPCwAA5qA6936peyXr2Mus+5673N5m3aN8q79/f+Uz
+077+7/HfLUofOwAAMC8N7q1clx7zmOlbDlpra7ff+v6iTwkAwC3VOeJzxvn4
+ywDjydkPIXotXcNHUX1tS+UH4/6Flb3sYIPayQ4CAAzixn2Dzrny6qgHN3zN
+rd3+a/yn9QwAAP0Jt/OBt9zdWz32GkPe3gentkP0TwEAAKKQ97xI+av79dS3
+HK7W1m5/tf3xrHY/lR4TAADjU/fDUs7FdwON5yPj88EgY5qLOr/32TA/2GpP
+yuprffZ6y9L1mIogOwgA0Lv6HsXUc67P0uMdMz24wett7fZf4/PneP6n9JgA
+AGCKQvN84C2LGz9vGZpnBs+16pMBAADcE/L3ZND7uV9Tfcth6mzt9lfbH8K3
+zzj9ufSYAAAYp5D+PI/NAGPJ2QMxWpeu36NpmR9ctfiZe9nBhnMmOwgA0Lvq
+POot45zro/R4x0wPbvB6W7v91vdflb9OavhH6TEBAMBUhe5yfHfvMwyHbGKX
+P+tLPf7n0nUEAAAeT2a/55xnnVyvq75l/zW2dvut7x/WLQAAKUL68zpfBxhL
+7vNF9N/6mIfLWb7e8oMX9hyM3krXYSqC7CAAQO8y719clx7vmOnBDV5va7ff
++v7npH7xmZ7/Kj0mAAB4FOHwzNHXzM81N+8xrP5/i8pni/sW7/FMFgAAoJXw
+z57sx33Z2+7HHu3rz1br+h7N4+svSh9v4VrrW3ZbT2t32Hr/dlKn30qPBwCA
+8ar7Y0nn3wONJ6dXtyldv0dWfb20yA8m50yrr8WVn7MuXYOpCLKDAAC9yvjc
+JH+VVk89uOFqbe32W99fzur3Y+kxAQDAo6rvEcy9v3B59hov9T2Hbe9b9NkK
+AADoTeh+T3afX67XWt+y23pau8PV+rRP+Z/S4wEAYNxC+n7gmwHG8pJ57r8o
+Xb9H1yI/GL/nJfFnbK68hueyps6T7CAAQK/i5yF9ik7rqQc3XK2t3f5q++NZ
+7X4qPSYAAHh0mfcg7s++N/ZSLuUG9/Vnp9O9C6LXBp+p9DEBAAAmRN+SKYp9
+yZO1+nvp8QAAMH7VeeNHYn9rNcBYcvpv69K1m4u4h2DDvQfv5gfrPQevff+2
+9LFPhewgAEB/6nsHc+8P/Cw97jHTgxusztZuf7X9ofLnSd1+Lj0mAACYg5D+
+TNRoc/J9l/ooMTMY9zJ8vvMz437unw0+X236rAUAAADt6VsyNeHb55v+EfuW
+pccEAMD4ZfS3bvbNOhjHImMs+77Hw9n8hLBqkR+8Olc39hz8qvRxT4XsIABA
+PzLvSTz3Xnr8Y6UHN0iNrd1+6/uHdQsAwKn4HMbSY5iDzH7Iqv6el/D9foMf
+Ob3G+G8b5Af1MwEAAEZO35Ipqdblvyp/yQ0CAJCjOm98TextbQcYS86eg6vS
+tZujFvnBz0v5wTt7Dh4tSh83AADzUN9LuKzFfQd2LbJXp/cJbuvXW528/qL0
+8RautR5ct/W0doet928ndfqt9HgAABiHuofycet5inRQ57zs4HP4PjcY/3ej
+nGf9WrmfrWRKAQAARkzfkqkIh9zgn/X6jP/3X6XHBADANFTnju+Jfa23nseR
+s+fgtnTd5qz6eu8qP1h9bRO+b1n6mAEAmIc6J9U2b5VqXfp4C9daD67belq7
+w9X6l5Na/Kf0eAAAGI/YAznphyxKj+dRhfQ91uMeged7Bcb//dLy5+c8CzXa
+lK4ZAAAA1+lbMgXVevwhHPYZlBsEACDbWb/sllZ9tIRxpPbZ4rNAF6XrNnfV
+16ZhfnB78hrLxO9Zlz5eAACgW3pwTFG1Pn86Wau/lx4PAADjU+87GP/HvmK/
+uT5qfNgbPaWnGDOGH+dZwg5+/mtmdnBbumYAAABcp2/JFJzkBv/qOjdYPzv1
+p9LHCABAP0L6Xn+7nsfxktFf02cdiRb5wU39/Sl7DkYfpY8VAADolh4cU1Ot
+zR9P1mnszf1QekwAAIxPzAue9TjeS4/p0YT0fddPc4O7LnKDJ2PIyQ5+KV0z
+AAAArtO3ZOziM01PcoM/dvza/6pf+9+ljxMAgH5U53qrxJ7WpudxpPb4eh0H
+mfMWwnPls2F+8P/K+Le70scKAAB0Sw+OKal7Zn/JDQIAkKLec/C0zxF7KS+l
+x/UoqvPxfWZ2L/77TusfDnsY5oyhs9wiAAAA3dK3ZMyqdfhbX7nB+vVj7/PP
+0scJAEB/zp63ecuqxzGk5hc/S9eLC/PXLj+YQ08VAAAeiB4cU1HnBv+s12f8
+v/8qPSYAAMat+tpc6HPEPOFb6bFNXXU+vsjM7EWd1z3juahHy9K1AwAA4DJ9
+S8bqJDf4pafc4H+sdQCAx5fxXM5eclvxdRPHsPc8zvEaKD+4LH2cAABAd/Tg
+mIJqPf5QP2tTbhAAgGRxj8Eb/Y5tZVF6jFOV8UzSo21P45AdBAAAeBD6loxR
+XH8na/HfHb7uv+rX/uPk9fVAAQAeVOxRJfayetvvL6Ttexhzgy+l68WduTz0
+wfc9ZgfXpY8RAADojh4cU3DSM/ur655Z3ZP7qfQxAgDQj+prd6PnYQ/CpnVN
+6y2eWvQ0DtlBAACAB6Fvydic5Qb79nvp4wUAoD/V+d468bzwvaefn/pcULnB
+ieg5P7gtfXwAAEB39OAYu9gnO8kN/tjxa/8rdPyMUAAAxqX6ek/ofXzG3krp
+sU5J/czR1Hvfeulx1uOQHQQAAHgAsQekb8mYVOvu5wFzg9HPpY8ZAID+VOd7
+n6V6WTEPmNjbW5WuE5lze8gP9pEd3Jc+NgAAoDt6cIxZtQ5/6ys3WL9+3M/w
+z9LHCQBAf6qvRUYPJOYMn0uPeexizzLjvrfYh+ytprKDAAAAjyHc3t/tt9Lj
+Y14K5Ab/Kn3MAAD0J/bKUs8Ne/rZKbnFVek60XCOQ1j1lB/07F0AAHgQsoOM
+1Ulu8EtPucH/WOsAAPNQ7yuY/AzF2F8pPeYxq86h1xn3vvW252A9FtlBAACA
+iQuHPQf/upWrqvyr9DiZhwK5wejX0scNAEB/Yi4v8bxw2/HPlRucierrv/SQ
+HXwrfVwAAEA3ZAcZo/Dts2X/3eHr/qt+7T9OXl+vGQDgwcW+RoNeSMwbLkuP
+fYwSe4xHi57HkpUdLF07AAAADmL/p+7Z/Cfjc92v9ffo7dCLel0OnRuMOn+O
+KgAA41Gd720Szws7fSZnws/dB8/dnLTYz6589LTv4Efp4wMAALohO8jYnOUG
++/Z76eMFAKB/1ddzi57ItrIofQxjEQ7PJ0093+69n1T3NGUHAQAAJiAcnvHY
+da/nt9LHxeOIvcMB+5RHf5Q+bgAA+pXRz3rt6OfFft6952/GMb2Urs3JmH+q
+7xv888p4439zT+uXv3vf8dm5u54yg0f70scKAAC0V32W+vHGZ0Ofsxhcte5+
+HrgX93PpYwYAYBgdPG9xI0P49Zx9lXG+3Ul/8854cs7/t6XrBwAAAAAAwHzE
+fF5GL6t1lq96jUXl887Pif/9uXRt6vHGTOBfmT2/38IM96Ovvl7qnvW+58zg
+qdHkSwEAgGbC7f3dPKOTQRXIDf5V+pgBABhO9bXqqD8y6wxhdR69STzf7v05
+lNXPWGZ+BtiUrh8AAAAAAADzEZ7C21DZwfhcz3B/j8P30jWpx/pTg8zguVns
+G1D3ubcD5gVPrUsfPwAA0Fw47Dl467PXX3N8NgtlFMgNRr+WPm4AAIbV8TMY
+Z5khTOg3DtZ3DHl7IEZvpesHAAAAAADAfISnsM3oZa0b/oy41+DHndfeVZal
+61GP99cO7wF8yD0yYh+68j7wHoOXbEvXAgAAyFN9Tvp3OOw1+J+cfFX9PXKE
+9KJel0PnBqMfSx87AADDqvN+XfdLZpMhrM6hXzLOt1s9FzVxPKl7IA42JgAA
+AAAAAIjCU3hucE9b8rMw695dSr/sPY6ldD3qMf/ew32AD7OHQPX1WvkonBc8
+N4q1AwAAXBczfz181nrIZ7VQRk/XA+75o/RxAwDjEK9zV5bMxlvor2eyCQ+e
+IYy9ysTz7d1A4/nM+AwwyJgAAAAAAAAgCk/hteG9bbs67xe/f3lmVf+3XcLr
+xD0PF6XrcFKPLvcbPPdL6eNrXJfDPQuxj73rsZfdxqp0jQAAAAAAoKk6T1b6
+WjuPZVtZll7bvfy+HPqLKb259wHGssjsF25K1w8AAAAAAID5CGl7Akb7jnN0
+8ecuSx//WS1+ujLWXy/l/sJhz4xfKn8mHvNf8XtKH2ej2hz2GlyHw36D2xH0
+u89tStcIAAAAAACaCrKD9OczPNAzGMNTeM7oR74MMJ5VZo/0tXQNAQAAAAAA
+mI+Qtjfg195a3ftK/feXfFbewoj2GTyrxXkG8LfKD4nf+3OdDbxXg99KH2dn
+9QrVmjhkCt9D+TzhvnQ9AAAAAACgqSA7SP/24dDTWZRe761+V57Ca2JfcjfQ
+eD4yeqWDjAkAAAAAAACimOFL7GPtz74v5gjf6yzgre/bhsP+gqux5gVPjunn
+s7H/1OA14j6Ef9ypyV+pecQpCod7G9ahTJZwWfr4AQAAAACgiSA7yLA+KpPc
+/67uPab0NzcDjCVnD8RoXbp+AAAAAAAAzEe9B2BKH+uj9FgHqMXpnoPZucGT
+1/nhwv6F5xq//tSEf/Yl3A3Q534vfbwAAAAAANBEkB2kjMntRRj37kvsb/ae
+jayfn5qTHXwuXT8AAAAAAADmI2YCE/tYb6XH2nMdfjo51l87eL1/36ln658x
+RbHvXHmrfPbU396VPkYAAAAAAGgiyA5SRuzZrCqTyLSFp7BI7G3uBxrPZ0Zu
+cFO6fgAAAAAAAMxLRi/rpfRYe67Db/Vx/tnha/5+o56/lz7m0kJ/OcKHXqsA
+AAAAADymIDvIcI57DU6upxKfdzqWnF7sn2buObgoXT8AAAAAAADmIzyF18Q+
+1q70WAeoxV/1sf7U4Wv+dKOmnWUUH0HoNkf4Xvp4AAAAAAAgV5AdpH+T2mPw
+4u/JU/hI7G+uBhjLJiM3uC5dOwAAAAAAAOYlPIX3xF7WR+mx9lyHH/vI81Wv
+94PsYIO6hfASDs+63Tfse+9KHwMAAAAAAOQKsoP0Z1NZll7jnfyepGf1es1H
+xj0EM8ay73s8AAAAAAAAcC48hc/EftZb6bH2XIdf6uP8uYfX/kN2sEX9Qnit
+fDTogS9Ljx0AAAAAAHIE2UG6FZ/RuKksSq/tzn5HnsJrYm9zO8BYcvYcXJWu
+HQAAAAAAAPOS+SzMl9Lj7bkWP1V+jfsE9vDav1+p6e+lj3tKYl+7sg7pexFu
+So8ZAOD/b+/+cRpZtjgAV+9g2AFiBUjegAMWMIlzR8RkTl7gkJCUjHgicics
+wAEbQGIFiB3cV/WmuOpn8adt3Bx3+7P0aUbDpXzq3PDoVwcAAAC2kT+/0t/8
+IMfhP6m/zOAyG92eu9Skm0N4F3XLOetDdN8AAAAAAAA4PuV9y47zrNfoWocs
+9+/2g77eRtc2VPkzzx6/motH1wkAAAAAAPCR9Hcn4D4zg89jzQz+27MmPR7C
+u6hb7Bx8LTnD6L4BAAAAAABwfFKT7jvOtO6jax2yT7KDi+jahq6+yfvZXH0e
+XSMAAAAAAMCm9HfH5D4zg/PoO/Xes+67/p57ruN8i52Dv6P7BgAAAAAAwHGq
+71x2mWldRdc6ZLl/qw/6OomubSzy57RmCF83ZuVyrwAAAAAAwMEpWb89ZAbL
+XGQZfZcf61mTe9ZttnnXcx0Ph1AHAAAAAAAAfCQ1abrFe5jT6HqHLPfv6Z2e
+rqPrGqP6Ru9yI0N4Gl0XAAAAAABAW/48fDczWOYi0ff40Z416b7jbHPeYw1d
+84uP0f0CAAAAAADgeKUmLbtmB6NrHbLcv5MP+noZXduYbWQIl9H1AAAAAAAA
+vCnvHn4jN3hzbJnBf/vWpNeO881e+lPO7VjDa181AAAAAAAAQBflrUtvYv5I
+n2fv9PSlZAqjazsGNUP4O7oOAAAAAACAN/lztUNm8L5kDqNrD+tZk6bRs82O
+ew9LbvA8ul8AAAAAAAAcr/omZqedg9lddL1Dlvt3+05PF9F1AQAAAAAAECN/
+nrfIDJb/dhpdc7TUpGXH2eZNT98/7/j9coMAAAAAAACE2mK2VVxF1ztUZbdg
+3THY7uc6ui4AAAAAAABi5M95x8zga9lPGF3voSj7BDvONqc9fPd53Sf41XfP
+o/sEAAAAAAAAZZfgFtnBaXS9Q5V7d/lOPyfRdQEAAAAAABAjf2465Abvs9Po
+Wg9FatKvrrPNnr67S25xHt0nAAAAAAAAKDq+i9nLfO2Y5P49bfRzEV0TAAAA
+AAAAceo+wY8yg8/Z7+gaD03J5XWcbT7s+XvlBgEAAAAAABiU1KTzLXYOPkbX
+O1QlJ7jRyz/RNQEAAAAAABCn5AI/yQ2WfYS/oms8RKlJdx1nmzc//L3lvdZp
+dH8AAAAAAADgTWrS1RbZwfvoeoco9+0se2n1cR1dEwAAAAAAALHy5+6dzGDZ
+QziNru2Q1Yxel9nmXnY21n2DDx1yg+fRvWnVPKtvmz59UG/52SK6TgAAAAAA
+APrVYc7Vtoyud4jKjsFWD8t87iy6JgAAAAAAAOKUnYI1J9jODd7bNfhF35p0
+vsVs89tZvnzGafb4xfeUnx/E/7eaCXzZokfFrfklAAAAAADA+NRZ1zZzo2V0
+zUNT53PtHk6iawIAAAAAACBW/sw3coNX0TUNQWrS1U9lB8vewg47Dm+ie1Jr
+ne2QGdx0GX0PAAAAAAAA9ic16U52sNf+Tjb6N4uuCQAAAAAAgHh1x2D5y3P2
+7f14xyI16aHv2WZ9f/X+i7Ofs2l0P2q919/MDP7fDsLo+wAAAAAAAPB9qUnz
+HWZFj9F1D0Xu1Un25J1OAAAAAAAA2vLntOYGS37wV3Q9Q5Ga9GuH+WbnfY5l
+T2HHt1dvSi3R/ag1r/aYG3xzHX0vAAAAAAAAdldmZN+YFd1E1z8EuU/rVs8W
+0fUAAAAAAABwGPLnKjNz27ZvTfq943zzueb9yu9PN8zrz547nFN2Hp5G96HV
+j33uG9xkvgkAAAAAADAA9X3Mt9nXsuPc6yuvdTa2rPO0t/NPo+97CHIfblu9
+uo2uBwAAAAAAgMNR9g5G1zBEqdtOwLdZ5j5zdOV7p9H33+jF7INar9/L/eV/
+Oyv/nj11vPNL+Z3oewIAAAAAAPC5mvHr673JTcvo+0arM7e3fvyJrgcAAAAA
+AADGYIs3Us/r+6ffeVP1Mbs61LdT38kAlrdNTzr+7mXNBn7VA2+kAgAAAAAA
+QLXxvucquh4AAAAAAAAYg5Lh65j5e934vZIjvKlZwM9+r7zHelczh6fR9/2i
+F5cbtc92OKPsIVx32D3YKY8IAAAAAAAAY5aaNGnN0dbmaAAAAAAAALAfdQdg
+l+zgfXStP9CLp+/kBlvnnLyzv3DTzucDAAAAAADAGNR3OV/kBgEAAAAAAGD/
+SiawY3bwKrrWnvswa931eg/nXXzRz29/BwAAAAAAAAxVzQ2+vcdZ/jyLrgkA
+AAAAAADGpGNusDiPrrXnPty+zSX3eObqk36uou8MAAAAAAAAEcp+wbpnUG4Q
+AAAAAAAAepCa9LtjbvA5utYf6MVLvetsj2fOPunp3jKKAAAAAAAAMCSt3ODL
+vnOD+bzFPmd+AAAAAAAAMESpSTcds4P30bX23IdJH3m++l6q7CAAAAAAAABU
+qUmrVm5wsuezz+rZF9H3BAAAAAAAgEipSY8ds4NX0bX23IdFvedlD2evZQcB
+AAAAAADgf7Oz275yg/X8tTkcAAAAAAAAxy416bRjbrA4j663517MsuuyJ7CH
+s1cf9HQVfW8AAAAAAAD4Ka3c4D895Qb/1LMX0XcFAAAAAACASKlJ8465wdfo
+WodsYwbadhtdGwAAAAAAAPyEkudrzcku9njuWT173Tr/LPq+AAAAAAAAECk1
+6b5jdvA+utYh+yQ76L1TAAAAAAAARm8jN9i3VfR9AQAAAAAAIFrZJ9hxvnYV
+XeuQlfnkB32dRNcGAAAAAAAAfUpNuvzB3GBxGX1nAAAAAAAAiJSaNN1ivjaN
+rnfIcv+e3unpOrouAAAAAAAA6FNAbvAl+s4AAAAAAAAQLTVp2XXGFl3rkOX+
+nXjvFAAAAAAAgGMTkBssrqPvDQAAAAAAANFSkx47ztceo2sdsty/2XvvnZZM
+YXRtAAAAAAAA0IfUpIuA3GAxib47AAAAAAAAREpN+rXFfO0uut4hy/27faen
+i+i6AAAAAAAAoC+pSauA3OA6+t4AAAAAAAAQLTVpvsWM7Sq63qEquwXrjkEz
+SwAAAAAAAAAAAAAAAAB6VXYJbpEdnEbXO1S5d5fv9HMSXRcAAAAAAAAAAAAA
+AAAA45Oa9No1Oxhd65Dl/j1t9HMRXRMAAAAAAAAAAAAAAAAA45OadL7FzsHH
+6HqHquQEN3r5J7omAAAAAAAAAAAAAAAAAMYpNelqi+zgfXS9Q5T7dpa9tPq4
+jq4JAAAAAAAAAAAAAAAAgPFKTXrYIju4jK53iMqOwVYPn0qWMLomAAAAAAAA
+AAAAAAAAAMYpNel0i9yg7OBuPV5s9HASXRMAAAAAAAAAAAAAAAAA45WadCc7
+2Gt/Jxv9m0XXBAAAAAAAAAAAAAAAAMB4pSbNt8wNFo/RdQ9F7tVJ9tTq3WV0
+TQAAAAAAAAAAAAAAAACMV2rS1Q65wTc30fUPQe7TutWzRXQ9AAAAAAAAAAAA
+AAAAAIxHatJ5Nq2W2fM3coNvXrOHet68df5p9H0PQe7DbatXt9H1AAAAAAAA
+AAAAAAAAADAuNeP33axgV8vo+0YrOwZb/fgTXQ8AAAAAAAAAAAAAAAAAsLvU
+pFkrN7iKrgcAAAAAAAAAAAAAAAAA2F1q0qSVG1xnJ9E1AQAAAAAAAAAAAAAA
+AAC7SU06y17kBgEAAAAAAAAAAAAAAABg+Gpu8KnmBsufZ9E1AQAAAAAAAAAA
+AAAAAAC7KfsF655BuUEAAAAAAAAAAAAAAAAAGIFWbvBl37nBfN4im0XfEQAA
+AAAAAAAAAAAAAACORWrSqpUbnOz57LN69kX0PQEAAAAAAAAAAAAAAADgGKQm
+3faVG6znl32GT9H3BAAAAAAAAAAAAAAAAIBj0MoN/tNTbvBPPXsRfVcAAAAA
+AAAAAAAAAAAAGLuS52vlBi/2eO5ZPXvdOv8s+r4AAAAAAAAAAAAAAAAAMGYb
+ucG+raLvCwAAAAAAAAAAAAAAAABjlpp0+YO5weIy+s4AAAAAAAAAAAAAAAAA
+MFYBucGX6DsDAAAAAAAAAAAAAAAAwFgF5AaL6+h7AwAAAAAAAAAAAAAAAMAY
+pSZdBOQGi0n03QEAAAAAAAAAAAAAAABgjFKTVgG5wXX0vQEAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAgGH4L19YQlM=
+     "], {{0, 1002}, {3599, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{328.0848958333328, Automatic},
+   ImageSizeRaw->{3599, 1002},
+   PlotRange->{{0, 3599}, {0, 1002}}]], "Input"]
+}], "Text",
+ Deletable->True,
+ CellID->1762299204],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The weak neutral and electromagnetic vertex factors for a given fermion ",
+ Cell[BoxData[
+  FormBox["f", TraditionalForm]], "InlineMath"],
+ " are:"
+}], "Text",
+ Deletable->True,
+ CellID->865843218],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{GridBox[{
+     {
+      GraphicsBox[
+       TagBox[RasterBox[CompressedData["
+1:eJzt3bFv5MYVx/HnJEXKu/9gk7/gALcpNsH9AYID92vDcRvBCSC4CRapXKp1
+t0Wqq1THzZYprjggKXPAFkGQJhcVNlI4hsLxciGamhkOyRk+ku+7wCc530nk
+DMXH4ZD8UT/7+LcffPojEfndT6v/+eCjm19+9tlHn//6J9V//Orz3//m4x9X
+f/jFeyLfVf/v/vLh4QHAilWfXeXelXvlqN0eAOVUn2eNen84D/P67QJQRvXZ
+N+udmgfWyzfGU/PAelWfQ7ve3d9ptwtAftVn46l3Z6PdNgD5Bcb4vXa7AORX
+fV546t3N659ptw1Afu4ePGM8YEP12TLGA3YExviddrsA5Fd9rjz1ftJuF4Ay
+XH0zxgM21Dmadr2/0W4XgDICY/xWu10A8vPlaMjMAusUytEwxgPrFBjj77Tb
+BSC/yBi/0W4bgPzIygJ2kJUFbCErC9hBVhawhawsYAdZWcAWsrKAHWRlAVvI
+ygJ2kJUFbCErC9hBVhawg6wsYAtZWcAOsrKALWRlATvIygK2kJUF7CArC9hC
+Vhawg6wsYAtZWcAOsrKALWRlATvIygK2kJUF7CArC9hBVhawhawsYAdZWcAW
+srKAHWRlAVvIygJ2kJUFbKk+f2OMB2yoPp946v1rxnhgfepz+m/J0QDrV9f7
+N556/6922wDkFXn2xvmzdvsA5FPX+5tAvTtX2m0EkEdCvT9w7Q5Yh8R6550Y
+wEq4bFxHvfNsPbASgedqfXbabQUwTo96J08DLFzPer/Xbi+A4arPdY965104
+wIKJ/z3VXa612w2gv4H17my12w6gnxH1/qDddgD9yDkzE3qGvstRu/0A0o2s
+d2ev3QcAaTLUu0OuBlgAOb+rdmy9O+RqgJmTtMxMCnI1wMxlrHfnVrs/AMIy
+17uz0+4TgLDM9e5stPsEwE/6ZWZSnLT7BMCvQL075GqAGSpU7w65GmBmqs++
+UL07L7T7B+CRjMjMpNDuH4BHpetdyNXk/Xm9Jy8rX1QeGt5VbirPtduHeZug
+3p29dj/XoqrpV3WNv3W13/j7m0b9v9RqH+at+mwnqHdnq93XNWjUuxvTf+75
+9w+pe4RInoxcqlXkajzn01P6R+PPn0ba+GXjuMB5Pr43cb2vJldT15FGvf+n
+cp9Sy/Vc//J9X2pvM8xD9TlNVO/OKnI1Vf28H6nJm9qg82l3nt5xPPlT48+v
+EpbXXBZjPVzNu+zMfqKxfhXvyGhdI3Neu/lzpmW/7jieNP/9JmF5r/p8Peyo
+a/9QuOY32v3Msq1+WEedY22P5cauEbh1Pm/9XedxprXMr7S3HebH1WWh2j9p
+9y3bNno8X36dcZkfRur9bV3v7a95cr3es9zmOck77W2H+ZLztb1jxpo/aPcp
+y3Z5nMt775ENXGbXHP79+uvac4rO+Xn1NZ/6lgWEyPm+fY7aX0WupnGunGVu
+XI/f0Tl842u/bP5b4vLb5wbcq0eneq7/zciaX0Wupq7PtxmX9ypS769aXzuk
+5l+2lhm8nw9cZJjfr+J3zzauoWWpG8+5+pM5fOvrqXkUV1/T89XxHyX9/t5R
+ux/Ztke+OXzsHn/oeVpqHsUFxvh9/W+p9/b32v2Yk/p84W2k5r334DLVPPN5
+BNXX7p+cp0vrmfm69m8jNb/V7sucdMzhv4h8382Amm9ft89ynoJ1Clyv30e+
+fuM7L9Dux5x0zOGj9/s91+BT7s83a5778wgSf7b2yRgf+N5N43hx1O7LXAyZ
+w7e+v/0cXue99tYxJtszg1ifwBi/67mMbd/vWauhc3jPcpr38juvx7WuAfC8
+Pbyqz5Wn3k/a7VoySXzuJmE5zXE7OPcPrJdcHbzEn6/dabdrqaQjO9NzWc/l
+8Tnd6Py8NRcgPw8v8b8TbzXvuph8eyZkZwYss3ldLvaenMs5QbZsANYnMMZv
+tdu1RJKYnRm47C9ix43W9YMs2X6sj/h/j8VRu11LlWsOH1l+s+4/bPz9y8a6
+qXd41c/V+J6n22q3bYlyzuE71vO+Z1283x6dAmM8v0tyyLYsMIcHcoqM8Rvt
+ti1Nxxz+3Zg5PJCL73lZWcl7bSbdjt3vv2BuDXX1c7K+XMxGu21LIwOzM8CU
+AmP8XrtdSyMjsjPAVCQxK4uO7TgyOwNMJZCj2Wu3a0kkU3YGKE1GZGXR2I7M
+4bEQObKy1nXM4cmqYzbIymbYhvE5PM/dYFbIyo7cft1zeJ67wWyQlc2wDQtn
+Zzzrc8cX8u8YhKzsyO03UXamsb7LNQPeUY3eyMqO3H4TZ2fqZ/e/X7Z237E8
+ZGVHbr+C77+IrPMyh+DdleiNrOzI7TdxdqZa5leN5fMcH3ohKzty+8Xn8Fmf
+u6nvCTTr/Svt/mN5yMqO2HbxOXzW7Iyc323ZvgfI75REL2RlR2y77vdfDD7n
+rp/puamFnt99x7M96Ius7MDt1v3+iylwTx69kJUdse3iz9JPhXvy6IWsLGAH
+WVnAFrKygB1kZQFbyMoCdpCVBWwhKwvYQVYWsIOsLGALWVnADrKygC1kZQE7
+yMoCtpCVBewgKwvYQlYWsIOsLGALWVnADrKyatv9WX1+5VzXLv+9+POr+vqQ
+68uufsbrqv7vjXbbMvRt0/hZ7es+bpfynKqQlZ1yW7s6uA1s8yfH3fo+ylL2
+o0193PKdM/rmjXd1rSzi+Fa39U78z6s9yZ7W22Kj3e5AP8jKTrOdU+o8Vv87
+7X4E+rYR/z3eVPf1WDm72pfzudg+sc5DjnM6bgf2w9m0b+nkPK6njHup3Pjx
+Qrtfdd9cPdxm7Jurq2vtfjX6dzWy1tsO2sc1IStbevvuMu8zTTvlvr2ojz8l
++nY3g9o4FOrbSZSO2UJWtvT29R1P2z/7gzxe+3E1tJHHa14pc/6DUt9eJBzL
+XN3+4Jqk/PCaV9fx4o1G3dftTGmb68PlmmT7WmzXnP9eo+4D+yRZ2Tzb9jry
+8z66faXHsrYSnxvcTty3WL33mpdL93WAyeu+o95dWzeJy3HHgZ2Ej9uT1r2Q
+lS25bX33PS8/48FzVYnPLXcT7jehffgwtD4lPk+YbByKHH8GX0OR+DWP+6lq
+LtC3w1Tbdq3qcctXl1mO6ZHamGTfkfM5a7FjTqTmil/Xixyrs1xbEP/9se/P
++ybaL33rLr7PrF2gJrKew0XG2qL7TqQmdpnX46v7osc0CZ/3Zj3HiNR90WNa
+9fm3Z537kuu0IvDzzD5nk/CcOvk6Qc/1hY4zRa4liP9cptg5vvjPvYtcSxD/
+tZ5iuRbx52j+V2p91njqcF9wXaF9p8Qxxnf+Uuy5LQnPkbKPh5Gxt9j1NfFf
+k82+PSPnL5zXl9l/jhOszzceZh2fJDzH3hbu2z6w3l3GdYTOl4reC5Hw/PqQ
+cR1d9xyL758osu/43nGSZbyv95lQvU9yfzCyz44e7yPj+ynnMTOy/tAxbfQ1
+w/qYkvK81FZ7H8agn29o3x08t5DzHDC0z0yWxZDwOf6lNjYDlvlMwvcfpr5n
+HmrHaWg9ynnOl/rs51F7/8XgfSc0Hl/2n6R8l5yvzR8jy9J4Rqbrmb9DSp3K
+Y54xtqwi10Ajbeo8/5aEuYx0P/9z2U6+f99q778YvP/sE47rb+qf/b7lmDA2
+qDwLW/ct5Vlftz/fefoW2tfb4/uk9d7oW8qzvpf6b/ftNvF7D/W6dr7tpr3v
+YtT+kzsH1hwjtDMvm8T9u69Z5BQlbz6xeSzbtdbjO/7tNPqMbPuOq43QPLEv
+t3+ojH+R/u0zHtf22seyVt+2gZoc4iie+Zz479eftPuObPvPYUSt77T7EOnb
+sxG1777n1lcPcyHnc/Ch5zTueL/tWP7R832zeW8BRu8/l+s7h8h+dC+P80X1
+89ye/buqa9i3HzfHPPc1szpnSejbRh6zuadA397I4zvGNonL9Y31xZ4FBKAv
+cIzca7cLQBnifxaQsR5YMfFf75n0HSwAphMY6x/mfH0TwDjify7goN0uAGUI
+78kDzBHeeQ+YEhnrt9ptA1CG+N+7dNRuF4ByAs/6bbXbBaAMIWsLmCP+TMZO
+u10Aygjkb07a7QJQDvkbwBaytoA94n/X0l67XQDKIGsL2BPI2h602wWgDLK2
+gD2B/M1Bu10Ayojkbxb1rlQA6cjaAraQtQXsCeRvjtrtAlBOIGu7qN8TAiAd
+WVvAHrK2gC1kbQF7yNoCtpC1BewhawvYQtYWsIesLWALWVvAHrK2gC1kbQF7
+yNoCtpC1BewhawvYQ9YWsCUw1v9Tu10Ayglkbf+g3S4AZQTyN9/yTC6wXtXn
+7566/xd1D6xT9fkk8EzuX6l7YJ0CNf9Qz/epe2Blqs9fInV/p90+AHkFnscl
+hwOsVOD6PXUPrFT9DH5XzVP3wIoEns/x2Wm3FcB41ec2seape2AFAs/fU/fA
+Skn4fXnUPbBS4s/Xxrh3b/BeLWChxP+7L6h7YKWqz/WAmqfugYVydTuw5i91
+v9HuA4B+xP9+zFRkcoCFEf/vrqbugZWS7rwNdQ+siKTlbVIctfsCIE2mmncO
+2n0B0E3S8zbUPbAC0i9vQ90DC1d9rjLXvLPX7hcAPxmWt0mx0+4bAD/pn7eh
+7oEFc3PwQjVP3QMzJMPzNqnI5AAzIuPyNinI4gEzI+PyNtQ9sDAy7B0a1D2w
+UJInb5OCTA4wA5Ivb0PdAwsxYc2f3DFGu7+AdTL+HRop8/lr7X4COJP8eZtm
+re85nwfmRcrkbW6pdWCeJP131qY4CO/GBWZPxudtXlPrwHLI+LzNUbsPANJJ
+/99Z+53n77ba/QCQRtLzNqf6+OA7Rhy1+wEgncTzNk/usQeuAVxp9wNAGvHn
+bYL32ANj/Um7HwDSyNN3aHTeYxf/O7N32n0B0E0e8zaH1Ptu4s/onLT7AiDN
+kHvs4n9ef6/dFwBlBMb6+655AYDlClz/22u3C0AZ4v8dGYz1wIqJ//ndg3a7
+AJQRGOsfhlwXBLAM4n+n5kG7XQDKkHMW3/cML++6BlYqMNYftdsFoIzIWL/V
+bhuAMgL5m6N2uwCUI2RtAVMCY/1Ju10AyhGytoApZG0Be8jaAraQtQXsIWsL
+2ELWFrCHrC1gC1lbwB6ytoAtZG0Be8jaAraQtQXsIWsL2EPWFrCFrC1gD1lb
+wBaytoA9ZG0BW8jaAvaQtQVsIWsL2EPWFrCFrC1gD1lbwBaytoA9ZG0BW8ja
+AvaQtQXsIWsL2ELWFrCHrC1gC1lbwB6ytoAtZG0Be8jaAraQtQXsIWsL2ELW
+FrCHrC1gC1lbwB6ytoAtZG0Be8jaAvb4srbabQJQjm+s124TgLLaWVvt9gAo
+q35O567O3l3/H5FWs5k=
+         "], {{0, 316}, {253, 0}}, {0, 255},
+         ColorFunction->RGBColor],
+        BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+        Selectable->False],
+       BaseStyle->"ImageGraphics",
+       ImageSize->{39.88437499999986, Automatic},
+       ImageSizeRaw->{253, 316},
+       PlotRange->{{0, 253}, {0, 316}}], 
+      RowBox[{"=", 
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox["i", "2"]}], 
+        FractionBox["g", 
+         RowBox[{"cos", " ", 
+          SubscriptBox["\[Theta]", "W"]}]], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           SubsuperscriptBox["g", "V", "f"], 
+           SuperscriptBox["\[Gamma]", "\[Mu]"]}], "-", 
+          RowBox[{
+           SubsuperscriptBox["g", "A", "f"], 
+           SuperscriptBox["\[Gamma]", "\[Mu]"], 
+           SubscriptBox["\[Gamma]", "5"]}]}], ")"}]}]}]}
+    }], ",", "   ", GridBox[{
+     {
+      GraphicsBox[
+       TagBox[RasterBox[CompressedData["
+1:eJzt3bGP48YVx/F3SYqUe/+Bcn/BAm5TKIErVwsH7mkjuTYLJ8DhOpUut3XH
++pBigZTXqHAVuPAfYAOqU1wWKRwYQbDhRLMRl5ohR9QMH8X3JfDx+bR70syI
+j0OR/FG/+uKPn77+mYj86ZfNfz79/M1vvvzy87e/+0Xzl9++/fMfvvh58z+/
+fiHyn+ZP9+Dj4yOAhWuW68Zd40a7LQDKapadm969e+32ACinWapWvT/ud+31
+2wWgjM4c7zxotwlAGc1y253jGxvtdgHIr1mu3JzenePd49ptA5Cfm88Dc3yl
+3S4A+UXm+J12uwCU4c/DM8cDBjTLKlDv32m3C0AZzVIHan6t3S4A+UXm+K12
+uwCU4eqbOR6wwdV2oN65th5YqMgcv9JuF4D8InN8rd0uAGUEcjTM8cBChbKy
+5GiA5QplZcnRAMtEVhawg6wsYAtZWcAOsrKALWRlATvIygK2kJUF7CArC9hC
+Vhawg6wsYAtZWcAOsrKALWRlATvIygK2kJUF7CArC9hBVhawhawsYAdZWcAW
+srKAHWRlAVvIygJ2kJUFbCErC9hBVhawhawsYAdZWcAWsrKAHWRlAVvIygJ2
+kJUF7CArC9hCVhaww8/xP5KVBWxolr8yxwM2NMsngXr/XrtdAPJrluvGT+Ro
+gOXz9f7PQL3/Q7ttAPKKnJd78hft9gHIx9f7d5F6d2602wggj4R6f+QaHGAZ
+Euude1sCC9Es9wP1TkYeWAgJ37s2pNJuK4DznFDv3BcDuHAn1vuDdnsBjCfh
+LHwf7mkLXCgJ399qyK12uwGcbmS9c409cIHOqPdH7bYDOI3sMzOxa+iHbLXb
+DyDdmfXubLT7ACBNhnp3yNUAF0D23xV9br075GqAmZO0zEwKcjXAzGWsd+dO
+uz8A4jLXu1Np9wlAXOZ6d1bafQIQJqdlZlLstPsEIKxAvTvkaoAZKlTvDrka
+YGYk/N2RuVxr9w/AgZyRmUmh3T8AB6XrXcjVALMxQb07G+1+Avhfva8nqHdn
+rd1XwDrJk5FLRa4GUDRxvZOrAZQ1y26ienfI1QDKZJ+d2Uw013OPDGAmfO3X
+hWt+pd1PAM/J/h44JWp/p903AHGyP7a3zVjztXafAAyT/Xn7HLVPrga4IM3y
+9zNrnlwNcCHk9O+d7Lro756VF/K68aHx2HjfeDniOV423vnncM/1mXa/gBDZ
+H8/vnsdzf38beDxmq92P0f1/IW98nbZ9O+J5vg48zyvt/gFdEs7RV/5nqef2
+N9r9GNX3/dzcrdMnb054nleR53it3UegLTLH7yK/d9dT82vtvozqf3iOf/Ih
+dR+/53moecxKpI6rnt9fSeDcvnY/Rvf/8Pn7rLk+sl/vfKTdR+CJr99uvSdl
+ZPy/3S7gs/y3AzX/4YznSfq3wFRC8/Wp++iyP7dfafdl9Bi8kB+ejtX7v78K
+1O/g8ffWMf+2r7T7BzyJzPFb7XZNPg6Hmn/Veuxl63Hn3cBzxI4Dsl+P2ZDw
+dXdr7XZNPg6R83Jubk89ludqO8e5PqAUCd8jy+R3UPj6/Drys/cp+/ed7QPH
+6zE7kTl+pd2uuWnq9uNWDQe3C/73uufpOHaH2YjM8bV2u+aqdTwvWseB833J
+1/IApUn4Plkr7XbNVWcODx6T6xznT76OByhNwve232i3a846x+SP5u/AMXvm
+eMxGYI5319xyX+qhcTvsux+dszvl+D4wJQlnZTfa7boErbo++kzvrrthjsfc
+SDwryxyfMn7P998/6vys/VmeOR6zID1ZWSSO4WH//k3rsfa2IHouD5hSZI7f
+abfr0rSO379rPfa6VfPcGwOzICdmZREZx8P1tR9aj71jjsecnJOVRWA8D9m5
+V32f8QEtObKyaI3nYV7/rLVf/167XYBDVrbAmB4+03/Vyt98rN0uwCErW2BM
+W5/p/Z8/aLcJcMjKFhzb5/fDIS+LWSArW3Bsn39nBdfgQB1Z2cLje7jWlnvd
+YRbIyhYe38O1tpyThzqysoXH9/k5ec7RQR1Z2cLj+zw3yzF7qCIrO8EYd+6B
+pd0e2EVWdqJxfn7Pe3I1UENWdoIxDn9vBdfgYXJkZSca5/A97Ae/0wrIjazs
+ROP8/B5YXIcHFWRlJxzr8HdWc/87TIqs7IRjfXz8jprHpMjKTjze4e+dpeYx
+GbKyE483NQ9FZGUVxpyahyKysgpjTs1DCVlZpXF//t0VnJ/HZMjKKo073zEP
+BWRllcf/+T1yuO4WxZGVBewgKwvYQVYWsIWsLGAHWVnAFrKygB1kZQFbyMoC
+dpCVVR37K3+Nc9tKu10Z+9ft27V2mzL27brbP+02ndD2LXP8ZGO98tc/bAPH
+S4+2u/53V9rtPqF/N36fsXtN19HnRn/86GK2Ab7G73zb+/q282NQyQzPcQtZ
+2SnH+X5gXelzP9ftsN9X2SRsw/pqpNLuR0//qoQ6j3nw9b/S7kerP9tAO2fT
+vkvn66E+o9ZDtT+buUP2+yFjaz1U+2vtPrX6dn1GrYdqfzODPq0Dbau127UU
+fp3JVQ/d9Wet3LeryHyRw2YG713o+vMc3DZEbZstZGVLjm2V8N7f+u3uVevf
+PR3Tu5XhOaZS6tvVQNvceuU+99501ye/HXRjU0v/9rBWfO/qgXG/931Yd/7d
+yr93d5Haam+zJz+OEVknN9q1sgQD9V6fsl3161HfOlhN3Le+et+d0h4ZPg5Q
+K7x3sbF+8G1NnqN9/W/nUveB7RA5mjzjGtuf33XnhROfd90zd0y27vTU++aM
+53S1Hzu+eTdh32L789tzakPixzwm28+P9G30e4b/j+tVpC6zvLc9c+xuinVH
+wtdmZzu20FNzWZ5/4LWvI69dZ3z+UN1nef6E9YasbJmx3ZTelvfUfdH5MFIT
+2fdPI3VffJsWGdO6wBiG6n5duG914DWrkq9pRWAeLLItjWy3i+7jR2qiyHoT
+WUc3BfsW2s4UuUZF9sc1J9umyf540L+762WpsbRGjs993kz4WsXWncj+S7Hr
+tiT+GWld4LVi+y/F9isCc0ORfXyJ7xP+WLJ/1sjhPM5qotcq/VmiitRE0f5F
+5sOsnyUkvq99W7hvsf20rK8r/ed7Jjs2iknWnVzHDGPH1IrWROv1Q9u0LMcM
+e+p9O1HfQtu0LPO9pF8vtdJad3HW+7uOvJ9ufR712UL2nwFj60w9Yd/6rgW4
+G7tdk/BnleL79IF2hPbxH/3Yr85YH3YJ9T7pe4ns607V875uU2tfhq//mfwe
+Kr5NsWt2kq+T8duPqqcetK6N6xvvOrVNst9viG2nH33fQz9faa+/GL3u9NX9
+0zp972vkRg6Z71tJy4fWKbVVqG+rhPZtfd+qVt8q/1hfLTz67YBapneg7p/a
+V/u+PPXtxv/9XoYzHZV/nXVo3LTXXZy17lxL+n7dKTYz6FvftXrncNsD9WPY
+kjef2N7OrzuvExrDtUafkW3debqGPVc9zOqeFn5+y7Fdc/VQafen07eV5Msq
+Bo93CPfEWiz/3m5Gzh33c9/2y/j7WOxkpvevafVtLePuufAgCRmuyHPP+v3G
+qHVo4+eQbp08+Mfv5l4Lkb65bdutX49Dc+TWb8Pc78xqnyWhb26f7ca/N1s5
+3r/ZyeE4RvI5GgnP9Tvt/gIoR/i+KsAU4TurAHMic/0k11gCmF5kridXDyyY
+cI88wJzA+QDmemDBInM9WVtgwQLXbTgr7XYBKEP4fhvAnMh1jCvtdgEoIzLX
+b7XbBaAcIWsLmBLJ32y12wWgHCFrC5hC1hawh6wtYAtZW8AesraALWRtAXvI
+2gL2kLUFbCFrC9hD1hawhawtYA9ZW8AWsraAPWRtAVvI2gL2kLUFbCFrC9hD
+1hawhawtYA9ZW8AWsraAPWRtAXvI2gK2kLUF7CFrC9hC1hawh6wtYEtkrv9W
+u10AyolkbX+v3S4AZUTyN//i3B2wXM3yt0Ddf0/dA8vULJ8Eav7Rn8+j7oEF
+itQ8dQ8sVLN801P399rtA5BXJGfL9TrAQkXO1VP3wELJPls/VPPUPbAgkdxN
+SKXdVgDna5a7xJqn7oEFkHCunroHFipyHS51DyyYHN83a4i7r9a1drsBjCPh
+nB11DyxUs9yOqHnqHrhQrm5H1vxT3a+0+wDgNHL8vRenIJMDXBgJ3yePugcW
+SobzNtQ9sCCSlrdJsdXuC4A0mWreqbX7AmCYpOdtqHtgAeS0vA11D1y4ZrnJ
+XPPORrtfAMJkXN4mRaXdNwBhcnrehroHLpj7DF6o5ql7YIZkfN4mFZkcYEbk
+vLxNCrJ4wMzIeXkb6h64MDLuHhrUPXChJE/eJgWZHGAGJF/ehroHLsSENb9z
+2xjt/gLWyfn30Ej5PH+r3U8Ae5I/b9Ou9Q3788C8SJm8zR21DsyTpH9nbYpa
+uDcuMHtyft7mG2oduBxyft7mTrsPANLJ6d9Z+1PgsZV2PwCkkfS8zc5vH9ah
+z/La/QCQTvrzNkfn2CV8Xn+l3Q8AaSSct4meY4/M9VvtfgBII8f30Bg8xx7Z
+Tqy1+wJgWGverlP30SV8L82tdl8ApBnzeTxynm+t3RcAZUTm+p12uwCUI+F7
+b1Ta7QJQhuyv2e+e69tptwtAOZG5ntw8sFCRuf5h6HwfgMsl4ev2N9rtAlCO
+HOdymeuBBYvM9WRtgQWT/X2tyd8ARkTyN7V2uwCUI2RtAVMic/1Wu10AyiFr
+C9hC1hawh6wtYAtZW8AesraALWRtAXvI2gK2kLUF7CFrC9hD1hawhawtYA9Z
+W8AWsraAPWRtAVvI2gL2kLUFbCFrC9hD1hawhawtYA9ZW8AWsraAPWRtAVvI
+2gL2kLUF7CFrC9hC1hawh6wtYAtZW8AesraALWRtAXvI2gK2kLUF7CFrC9hC
+1hawh6wtYAtZW8AesraALWRtAXvI2gL2kLUFbCFrC9hD1hawhawtYE8oa6vd
+JgDlBOb6nXabAJTljt21ztnX2u0BMI1muXb+CwLa78E=
+         "], {{0, 316}, {253, 
+         0}}, {0, 255},
+         ColorFunction->RGBColor],
+        BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+        Selectable->False],
+       BaseStyle->"ImageGraphics",
+       ImageSize->{45.45624999999981, Automatic},
+       ImageSizeRaw->{253, 316},
+       PlotRange->{{0, 253}, {0, 316}}], 
+      RowBox[{"=", " ", 
+       RowBox[{
+        RowBox[{"-", "i"}], " ", "e", " ", 
+        SubscriptBox["Q", "f"], 
+        SuperscriptBox["\[Gamma]", "\[Mu]"]}]}]}
+    }]}], TraditionalForm]], "NumberedEquation",
+ CellID->104519348]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "where ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["g", "V"], "=", 
+    RowBox[{
+     SubsuperscriptBox["T", "f", "3"], "-", 
+     RowBox[{"2", " ", 
+      SubscriptBox["Q", "f"], 
+      SuperscriptBox["sin", "2"], 
+      SubscriptBox["\[Theta]", "W"]}]}]}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["g", "A", "f"], "=", 
+    SubsuperscriptBox["T", "f", "3"]}], TraditionalForm]], "InlineMath"],
+ ".  Applying the Feynman rules starting at the \[Mu]-index and working \
+around counterclockwise for both diagrams, the ",
+ Cell[BoxData[
+  FormBox["Z\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function is:"
+}], "Text",
+ Deletable->True,
+ CellID->345151862],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"i", " ", 
+    SuperscriptBox[
+     RowBox[{"\[CapitalGamma]", "(", "f", ")"}], "\[Mu]\[Nu]\[Rho]"]}], "=", 
+   RowBox[{"-", 
+    RowBox[{
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["e", "2"], "g"}], 
+       RowBox[{"2", "cos", " ", 
+        SubscriptBox["\[Theta]", "W"]}]], "[", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["\[Mu]", 
+         RowBox[{"2", "\[Epsilon]"}]], 
+        RowBox[{"\[Integral]", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+          FractionBox[
+           RowBox[{"Tr", "[", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                SubscriptBox["g", "V"], 
+                SuperscriptBox["\[Gamma]", "\[Mu]"]}], "-", 
+               RowBox[{
+                SubscriptBox["g", "A"], 
+                SuperscriptBox["\[Gamma]", "\[Mu]"], 
+                SubscriptBox["\[Gamma]", "5"]}]}], ")"}], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"], "-", 
+                  SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", 
+               "m"}], ")"}], "Q", " ", 
+             RowBox[{
+              SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"]}], ")"}], ".", "\[Gamma]"}], "+", 
+               "m"}], ")"}], "Q", " ", 
+             RowBox[{
+              SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+              RowBox[{
+               RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+           RowBox[{
+            RowBox[{
+             RowBox[{"[", 
+              RowBox[{
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"], "-", 
+                  SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+               SuperscriptBox["m", "2"]}], "]"}], "[", 
+             RowBox[{
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"k", "-", 
+                 SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+              SuperscriptBox["m", "2"]}], "]"}], 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["k", "2"], "-", 
+              SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}], 
+       "\[IndentingNewLine]", "+", 
+       RowBox[{
+        SuperscriptBox["\[Mu]", 
+         RowBox[{"2", "\[Epsilon]"}]], 
+        RowBox[{"\[Integral]", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+          FractionBox[
+           RowBox[{"Tr", "[", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                SubscriptBox["g", "V"], 
+                SuperscriptBox["\[Gamma]", "\[Mu]"]}], "-", 
+               RowBox[{
+                SubscriptBox["g", "A"], 
+                SuperscriptBox["\[Gamma]", "\[Mu]"], 
+                SubscriptBox["\[Gamma]", "5"]}]}], ")"}], 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"], "-", 
+                  SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", 
+               "m"}], ")"}], "Q", " ", 
+             RowBox[{
+              SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", 
+               "m"}], ")"}], "Q", " ", 
+             RowBox[{
+              SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+              RowBox[{
+               RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+           RowBox[{
+            RowBox[{
+             RowBox[{"[", 
+              RowBox[{
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"], "-", 
+                  SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+               SuperscriptBox["m", "2"]}], "]"}], "[", 
+             RowBox[{
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"k", "-", 
+                 SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+              SuperscriptBox["m", "2"]}], "]"}], 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["k", "2"], "-", 
+              SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}]}], "]"}], "."}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1892324640]
+}, Open  ]],
+
+Cell[TextData[{
+ "We will put the photons on shell ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "2"], "=", 
+    RowBox[{
+     SubsuperscriptBox["p", "2", "2"], "=", "0"}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", but leave the ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["Z", "0"], TraditionalForm]], "InlineMath"],
+ " off its mass shell with a mass ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "1"], "+", 
+       SubscriptBox["p", "2"]}], ")"}], "2"], "=", "s"}], TraditionalForm]], 
+  "InlineMath"],
+ ".  In the computations that follow, the prefactor ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["e", "2"], "g"}], 
+     RowBox[{"2", "cos", " ", 
+      SubscriptBox["\[Theta]", "W"]}]]}], TraditionalForm]], "InlineMath"],
+ " is dropped."
+}], "Text",
+ Deletable->True,
+ CellID->691109888],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Initialize ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "MathCaption",
+ CellID->1354319061],
+
+Cell[BoxData[
+ RowBox[{"Needs", "[", "\"\<X`\>\"", "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->861283674]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Define the on shell kinematic conditions:", "MathCaption",
+ CellID->836781195],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"onShell", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], "s"}]}]}], "}"}]}], ";"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1739994125]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Initiate integration with ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and apply the on shell conditions:"
+}], "MathCaption",
+ CellID->1560942610],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"diagram1", "=", 
+   RowBox[{
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{
+         RowBox[{"gV", " ", "\[DoubleStruckOne]"}], "-", 
+         RowBox[{"gA", " ", "\[Gamma]5"}]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"k", "-", "p1", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+        RowBox[{"Q", " ", 
+         SubscriptBox["\[Gamma]", "\[Rho]"]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"k", "-", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+        RowBox[{"Q", " ", 
+         SubscriptBox["\[Gamma]", "\[Nu]"]}], ",", 
+        RowBox[{
+         RowBox[{"k", ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1", "-", "p2"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "m"}], "}"}]}], "]"}], "/.", "onShell"}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1102214518],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"diagram2", "=", 
+   RowBox[{
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{
+         RowBox[{"gV", " ", "\[DoubleStruckOne]"}], "-", 
+         RowBox[{"gA", " ", "\[Gamma]5"}]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"k", "-", "p1", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+        RowBox[{"Q", " ", 
+         SubscriptBox["\[Gamma]", "\[Nu]"]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"k", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+        RowBox[{"Q", " ", 
+         SubscriptBox["\[Gamma]", "\[Rho]"]}], ",", 
+        RowBox[{
+         RowBox[{"k", ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1", "-", "p2"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "m"}], "}"}]}], "]"}], "/.", "onShell"}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[3]:=",
+ CellID->233585960]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Globally set option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["ExplicitC0",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/ExplicitC0"], "\[Rule]", "None"}]], 
+  "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", to leave all scalar C-functions symbolic.  Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ CellID->2141088233],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"SetOptions", "[", 
+    RowBox[{"LoopRefine", ",", 
+     RowBox[{"ExplicitC0", "\[Rule]", "None"}]}], "]"}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"computedVertexFunction", "=", "\[IndentingNewLine]", 
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{"diagram1", "+", "diagram2"}], "]"}]}]}], "Input",
+ CellLabel->"In[4]:=",
+ CellID->834838859],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"14", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["Q", "2"]}], "+", 
+     RowBox[{"6", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["Q", "2"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+     RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      SuperscriptBox["Q", "2"], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+       "]"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["Q", "2"]}], "-", 
+     RowBox[{"6", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["Q", "2"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      SuperscriptBox["Q", "2"], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+       "]"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"28", " ", "\[ImaginaryI]", " ", "gA", " ", 
+        SuperscriptBox["Q", "2"]}], "s"]}], "-", 
+     FractionBox[
+      RowBox[{"12", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p2", "\[Mu]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"28", " ", "\[ImaginaryI]", " ", "gA", " ", 
+        SuperscriptBox["Q", "2"]}], "s"]}], "-", 
+     FractionBox[
+      RowBox[{"12", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p2", "\[Nu]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"20", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"12", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p2", "\[Rho]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"44", " ", "\[ImaginaryI]", " ", "gA", " ", 
+        SuperscriptBox["Q", "2"]}], "s"]}], "-", 
+     FractionBox[
+      RowBox[{"20", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Rho]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"20", " ", "\[ImaginaryI]", " ", "gA", " ", 
+        SuperscriptBox["Q", "2"]}], "s"]}], "-", 
+     FractionBox[
+      RowBox[{"12", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"44", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"20", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}]}]], "Output",
+ ImageSize->{573, 377},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[5]=",
+ CellID->677540431]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "Note that charge conjugation invariance leads to a result that is \
+independent of the neutral current vector coupling ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["g", "V", "f"], TraditionalForm]], "InlineMath"],
+ "."
+}], "Text",
+ Deletable->True,
+ CellID->939142511],
+
+Cell["\<\
+This result suffers from two ambiguities.  We'll start by addressing the more \
+innocuous problem first.\
+\>", "Text",
+ CellID->1430944801]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Ambiguity #1: Vanishing totally antisymmetric ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"rank", ">", "4"}], TraditionalForm]], "InlineMath"],
+ " tensor"
+}], "Section",
+ Deletable->True,
+ CellID->1739576479],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The result we computed in ",
+ Cell[BoxData["computedVertexFunction"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is unique only up to a totally antisymmetric rank-5 tensor.  A family of \
+different expressions can be obtained by cyclically permuting the elements of \
+the trace (",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ").  Observe the effect of cyclically permuting the vertex factor ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       SubscriptBox["g", "V"], 
+       SuperscriptBox["\[Gamma]", "\[Mu]"]}], "-", 
+      RowBox[{
+       SubscriptBox["g", "A"], 
+       SuperscriptBox["\[Gamma]", "\[Mu]"], 
+       SubscriptBox["\[Gamma]", "5"]}]}], ")"}],
+    FontColor->RGBColor[0.6509803921568628, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ " in the first diagram, so that it is on the other side:"
+}], "Text",
+ Deletable->True,
+ CellID->1227100611],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"Tr", "[", 
+    RowBox[{
+     StyleBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SubscriptBox["g", "V"], 
+         SuperscriptBox["\[Gamma]", "\[Mu]"]}], "-", 
+        RowBox[{
+         SubscriptBox["g", "A"], 
+         SuperscriptBox["\[Gamma]", "\[Mu]"], 
+         SubscriptBox["\[Gamma]", "5"]}]}], ")"}],
+      FontColor->RGBColor[0.6509803921568628, 0., 0.]], 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "-", 
+          SubscriptBox["p", "1"], "-", 
+          SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+      ")"}], "Q", " ", 
+     RowBox[{
+      SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "-", 
+          SubscriptBox["p", "1"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+      ")"}], "Q", " ", 
+     RowBox[{
+      SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+      RowBox[{
+       RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], " ", 
+   "\[LongRightArrow]", " ", "\[IndentingNewLine]", 
+   RowBox[{"Tr", "[", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "-", 
+          SubscriptBox["p", "1"], "-", 
+          SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+      ")"}], "Q", " ", 
+     RowBox[{
+      SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "-", 
+          SubscriptBox["p", "1"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+      ")"}], "Q", " ", 
+     RowBox[{
+      SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+      RowBox[{
+       RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+     StyleBox[
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         SubscriptBox["g", "V"], 
+         SuperscriptBox["\[Gamma]", "\[Mu]"]}], "-", 
+        RowBox[{
+         SubscriptBox["g", "A"], 
+         SuperscriptBox["\[Gamma]", "\[Mu]"], 
+         SubscriptBox["\[Gamma]", "5"]}]}], ")"}],
+      FontColor->RGBColor[0.6509803921568628, 0., 0.]]}], "]"}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->332437474]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Copy the code for ",
+ Cell[BoxData["diagram1"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and manually move the first two arguments of ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (",
+ Cell[BoxData[
+  RowBox[{
+   SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+   RowBox[{
+    RowBox[{"gV", " ", "\[DoubleStruckOne]"}], "-", 
+    RowBox[{"gA", " ", "\[Gamma]5"}]}]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ") to the other side:"
+}], "MathCaption",
+ CellID->1510777701],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"diagram1", "=", 
+   RowBox[{
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"k", "-", "p1", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+        RowBox[{"Q", " ", 
+         SubscriptBox["\[Gamma]", "\[Rho]"]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"k", "-", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+        RowBox[{"Q", " ", 
+         SubscriptBox["\[Gamma]", "\[Nu]"]}], ",", 
+        RowBox[{
+         RowBox[{"k", ".", "\[Gamma]"}], "+", 
+         RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{
+         RowBox[{"gV", " ", "\[DoubleStruckOne]"}], "-", 
+         RowBox[{"gA", " ", "\[Gamma]5"}]}]}], "]"}], ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1", "-", "p2"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "m"}], "}"}]}], "]"}], "/.", "onShell"}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[6]:=",
+ CellID->1941662226],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"permutedVertexFunction", "=", 
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{"diagram1", "+", "diagram2"}], "]"}]}]], "Input",
+ CellLabel->"In[7]:=",
+ CellID->648501378],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"10", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["Q", "2"]}], "+", 
+     RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["Q", "2"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+     RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      SuperscriptBox["Q", "2"], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+       "]"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["Q", "2"]}], "-", 
+     RowBox[{"6", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["Q", "2"], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      SuperscriptBox["Q", "2"], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+       "]"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p2", "\[Mu]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"20", " ", "\[ImaginaryI]", " ", "gA", " ", 
+        SuperscriptBox["Q", "2"]}], "s"]}], "-", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p2", "\[Nu]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"12", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"28", " ", "\[ImaginaryI]", " ", "gA", " ", 
+        SuperscriptBox["Q", "2"]}], "s"]}], "-", 
+     FractionBox[
+      RowBox[{"12", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p2", "\[Rho]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"36", " ", "\[ImaginaryI]", " ", "gA", " ", 
+        SuperscriptBox["Q", "2"]}], "s"]}], "-", 
+     FractionBox[
+      RowBox[{"16", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Rho]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"20", " ", "\[ImaginaryI]", " ", "gA", " ", 
+        SuperscriptBox["Q", "2"]}], "s"]}], "-", 
+     FractionBox[
+      RowBox[{"12", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}], ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"44", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"20", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"8", " ", "\[ImaginaryI]", " ", "gA", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SuperscriptBox["Q", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}]}]], "Output",
+ ImageSize->{573, 377},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[7]=",
+ CellID->1022510685]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "Notice that the coefficient of the very first term ",
+ Cell[BoxData[
+  RowBox[{"10", " ", "\[ImaginaryI]", " ", "gA", " ", 
+   SuperscriptBox["Q", "2"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has changed.  Compute the difference for greater clarity:"
+}], "Text",
+ CellID->1820249510],
+
+Cell[CellGroupData[{
+
+Cell["Form the difference:", "MathCaption",
+ CellID->1565491099],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"difference", "=", 
+  RowBox[{
+   RowBox[{"computedVertexFunction", "-", "permutedVertexFunction"}], "//", 
+   "Simplify"}]}]], "Input",
+ CellLabel->"In[8]:=",
+ CellID->1584769928],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "s"], 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "gA", " ", 
+   SuperscriptBox["Q", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{"2", "+", 
+     RowBox[{"DiscB", "[", 
+      RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"s", " ", 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+        RowBox[{"{", "p2", "}"}]}]]}], "-", 
+     RowBox[{"2", " ", 
+      SubscriptBox["p2", "\[Rho]"], " ", 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+        RowBox[{"{", "p1", "}"}], ",", 
+        RowBox[{"{", "p2", "}"}]}]]}], "+", 
+     RowBox[{"2", " ", 
+      SubscriptBox["p2", "\[Nu]"], " ", 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+        RowBox[{"{", "p1", "}"}], ",", 
+        RowBox[{"{", "p2", "}"}]}]]}], "-", 
+     RowBox[{"2", " ", 
+      SubscriptBox["p2", "\[Mu]"], " ", 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+        RowBox[{"{", "p1", "}"}], ",", 
+        RowBox[{"{", "p2", "}"}]}]]}]}], ")"}]}]}]], "Output",
+ ImageSize->{466, 49},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[8]=",
+ CellID->1841797494]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "Notice that this difference is a totally antisymmteric rank-5 tensor that \
+has been twice-contracted into vectors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "2"], TraditionalForm]], "InlineMath"],
+ ".  Remember that tensors are multilinear maps from vectors to numbers, and \
+a totally antisymmetric rank-5 tensor can map to a nonzero number only when \
+all five vectors are linearly independent.  In four dimensional spacetime, up \
+to a maximum of four vectors are linearly independent; the fifth vector can \
+be written as a linear combination of the other four.  We should then expect \
+this tensor to be vanishing."
+}], "Text",
+ Deletable->True,
+ CellID->847054068],
+
+Cell[TextData[{
+ "We can confirm this by contracting the difference tensor into three \
+additional vectors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["e", "1"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["e", "2"], TraditionalForm]], "InlineMath"],
+ ", and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["e", "3"], TraditionalForm]], "InlineMath"],
+ ", with ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["e", "3"], "=", 
+    RowBox[{
+     RowBox[{"a", " ", 
+      SubscriptBox["e", "1"]}], "+", 
+     RowBox[{"b", " ", 
+      SubscriptBox["e", "2"]}], "+", 
+     RowBox[{"c", " ", 
+      SubscriptBox["p", "1"]}], "+", 
+     RowBox[{"d", " ", 
+      SubscriptBox["p", "2"]}]}]}], TraditionalForm]], "InlineMath"],
+ " being the linearly dependent vector with scalar coefficients ",
+ Cell[BoxData[
+  FormBox["a", TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox["b", TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox["c", TraditionalForm]], "InlineMath"],
+ ", and ",
+ Cell[BoxData[
+  FormBox["d", TraditionalForm]], "InlineMath"],
+ "."
+}], "Text",
+ Deletable->True,
+ CellID->333421041],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["LScalarQ",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LScalarQ"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to declare coefficients ",
+ Cell[BoxData["a"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData["b"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData["c"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["d"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " as Lorentz scalars:"
+}], "MathCaption",
+ CellID->174666889],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"LScalarQ", "[", "a", "]"}], "=", "True"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"LScalarQ", "[", "b", "]"}], "=", "True"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"LScalarQ", "[", "c", "]"}], "=", "True"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"LScalarQ", "[", "d", "]"}], "=", "True"}], ";"}]}], "Input",
+ CellLabel->"In[9]:=",
+ CellID->544068545]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Multiply the difference tensor by ",
+ Cell[BoxData[
+  SubscriptBox["e1", "\[Mu]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  SubscriptBox["e2", "\[Nu]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  SubscriptBox["e3", "\[Rho]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Replace vector ",
+ Cell[BoxData["e3"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with the linear combination.  ",
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " the indices, and apply the kinematic on shell conditions:"
+}], "MathCaption",
+ CellID->1179382939],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Contract", "[", 
+   RowBox[{
+    RowBox[{"difference", " ", 
+     SubscriptBox["e1", "\[Mu]"], 
+     SubscriptBox["e2", "\[Nu]"], 
+     SubscriptBox["e3", "\[Rho]"]}], "/.", 
+    RowBox[{"{", 
+     RowBox[{"e3", "\[Rule]", 
+      RowBox[{
+       RowBox[{"a", " ", "e1"}], "+", 
+       RowBox[{"b", " ", "e2"}], "+", 
+       RowBox[{"c", " ", "p1"}], "+", 
+       RowBox[{"d", " ", "p2"}]}]}], "}"}]}], "]"}], "/.", 
+  "onShell"}]], "Input",
+ CellLabel->"In[13]:=",
+ CellID->614993963],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[13]=",
+ CellID->629404634]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "These extra pieces may make intermediate results more verbose.  But \
+ultimately, when the computed vertex function ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["\[CapitalGamma]", "\[Mu]\[Nu]\[Rho]"], TraditionalForm]], 
+  "InlineMath"],
+ " is embedded into a larger physical calculation where all tensors have been \
+contracted, the extra vanshing contributions generated by ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will drop out.  "
+}], "Text",
+ Deletable->True,
+ CellID->2119505685]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Ambiguity #2: Artifical violations of the Ward identity", "Section",
+ CellID->1867746437],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+A more serious problem with the calculation is that it does not satisfy the \
+Ward identities implied by electromagnetic gauge invariance.  These \
+identities are:\
+\>", "Text",
+ CellID->692712690],
+
+Cell[BoxData[
+ FormBox[
+  TagBox[
+   StyleBox[
+    RowBox[{"{", 
+     StyleBox[GridBox[{
+        {
+         RowBox[{
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"\[CapitalGamma]", "(", "f", ")"}], "\[Mu]\[Nu]\[Rho]"], 
+           SubscriptBox["p", 
+            RowBox[{"1", "\[Nu]"}]]}], "=", "0"}]},
+        {
+         RowBox[{
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"\[CapitalGamma]", "(", "f", ")"}], "\[Mu]\[Nu]\[Rho]"], 
+           SubscriptBox["p", 
+            RowBox[{"2", "\[Rho]"}]]}], "=", "0"}]}
+       }],
+      ShowAutoStyles->True]}],
+    ShowAutoStyles->False],
+   #& ], TraditionalForm]], "NumberedEquation",
+ CellID->536532277]
+}, Open  ]],
+
+Cell[TextData[{
+ "We can check these by contracting ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["p", "1", "\[Nu]"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["p", "2", "\[Rho]"], TraditionalForm]], "InlineMath"],
+ " into the vertex function."
+}], "Text",
+ CellID->804006176],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Contract ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["p", "1", "\[Nu]"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["p", "2", "\[Rho]"], TraditionalForm]], "InlineMath"],
+ " into the vertex function, and apply the on shell conditions:"
+}], "MathCaption",
+ Deletable->True,
+ CellID->1078874899],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Index", " ", "\[Nu]"}], "*)"}], 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"Contract", "[", 
+      RowBox[{"computedVertexFunction", " ", 
+       SubscriptBox["p1", "\[Nu]"]}], "]"}], "/.", "onShell"}], "//", 
+    "Simplify"}], "\[IndentingNewLine]", 
+   RowBox[{"(*", 
+    RowBox[{"Index", " ", "\[Rho]"}], "*)"}], " ", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Contract", "[", 
+      RowBox[{"computedVertexFunction", " ", 
+       SubscriptBox["p2", "\[Rho]"]}], "]"}], "/.", "onShell"}], "//", 
+    "Simplify"}]}]}]], "Input",
+ CellLabel->"In[14]:=",
+ CellID->1445995872],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "gA", " ", 
+  SuperscriptBox["Q", "2"], " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", "p1", "}"}], ",", 
+    RowBox[{"{", "p2", "}"}]}]]}]], "Output",
+ ImageSize->{140, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[14]=",
+ CellID->866335895],
+
+Cell[BoxData[
+ RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+  SuperscriptBox["Q", "2"], " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+    RowBox[{"{", "p1", "}"}], ",", 
+    RowBox[{"{", "p2", "}"}]}]]}]], "Output",
+ ImageSize->{132, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[15]=",
+ CellID->568260605]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The Ward identities require these expressions to vanish, so something has \
+gone awry in the computation.  Let's parametrize the ",
+ Cell[BoxData[
+  FormBox["Z\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function in the following way:"
+}], "Text",
+ Deletable->True,
+ CellID->276667481],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"i", " ", 
+    SuperscriptBox[
+     RowBox[{"\[CapitalGamma]", "(", "f", ")"}], "\[Mu]\[Nu]\[Rho]"]}], " ", 
+   "=", " ", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["F", "1"], 
+     SubsuperscriptBox["p", "1", "\[Mu]"], 
+     SubscriptBox["p", 
+      RowBox[{"1", "\[Alpha]"}]], 
+     SubscriptBox["p", 
+      RowBox[{"2", "\[Beta]"}]], 
+     SuperscriptBox["\[Epsilon]", "\[Nu]\[Rho]\[Alpha]\[Beta]"]}], "+", 
+    RowBox[{
+     SubscriptBox["F", "2"], 
+     SubsuperscriptBox["p", "2", "\[Mu]"], 
+     SubscriptBox["p", 
+      RowBox[{"1", "\[Alpha]"}]], 
+     SubscriptBox["p", 
+      RowBox[{"2", "\[Beta]"}]], 
+     SuperscriptBox["\[Epsilon]", "\[Nu]\[Rho]\[Alpha]\[Beta]"]}], "+", 
+    RowBox[{
+     SubscriptBox["F", "3"], 
+     SubsuperscriptBox["p", "1", "\[Nu]"], 
+     SubscriptBox["p", 
+      RowBox[{"1", "\[Alpha]"}]], 
+     SubscriptBox["p", 
+      RowBox[{"2", "\[Beta]"}]], 
+     SuperscriptBox["\[Epsilon]", "\[Mu]\[Rho]\[Alpha]\[Beta]"]}], "+", 
+    "\[IndentingNewLine]", 
+    RowBox[{
+     SubscriptBox["F", "4"], 
+     SubsuperscriptBox["p", "2", "\[Nu]"], 
+     SubscriptBox["p", 
+      RowBox[{"1", "\[Alpha]"}]], 
+     SubscriptBox["p", 
+      RowBox[{"2", "\[Beta]"}]], 
+     SuperscriptBox["\[Epsilon]", "\[Mu]\[Rho]\[Alpha]\[Beta]"]}], "+", 
+    RowBox[{
+     SubscriptBox["F", "5"], 
+     SubsuperscriptBox["p", "1", "\[Rho]"], 
+     SubscriptBox["p", 
+      RowBox[{"1", "\[Alpha]"}]], 
+     SubscriptBox["p", 
+      RowBox[{"2", "\[Beta]"}]], 
+     SuperscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"]}], "+", 
+    RowBox[{
+     SubscriptBox["F", "6"], 
+     SubsuperscriptBox["p", "2", "\[Rho]"], 
+     SubscriptBox["p", 
+      RowBox[{"1", "\[Alpha]"}]], 
+     SubscriptBox["p", 
+      RowBox[{"2", "\[Beta]"}]], 
+     SuperscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"]}], "+", 
+    RowBox[{
+     SubscriptBox["G", "1"], 
+     SubscriptBox["p", 
+      RowBox[{"1", "\[Alpha]"}]], 
+     SuperscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Rho]\[Alpha]"]}], "+", 
+    RowBox[{
+     SubscriptBox["G", "2"], 
+     SubscriptBox["p", 
+      RowBox[{"2", "\[Alpha]"}]], 
+     SuperscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Rho]\[Alpha]"]}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1753847449]
+}, Open  ]],
+
+Cell["\<\
+To diagnose the problem, it is useful to note the superficial UV degrees of \
+divergence of the varous form factors:\
+\>", "Text",
+ Deletable->True,
+ CellID->819122462],
+
+Cell[BoxData[GridBox[{
+   {Cell["Quantity", "TableHeader"], Cell[
+    "Superficial degree of divergence", "TableHeader"]},
+   {Cell[TextData[{
+     Cell[BoxData[
+      FormBox[
+       SuperscriptBox["\[CapitalGamma]", "\[Mu]\[Nu]\[Rho]"], 
+       TraditionalForm]], "InlineMath"],
+     " (Full integral)"
+    }], "TableText",
+     Deletable->True], Cell["+1 (linearly divergent)", "TableText"]},
+   {Cell[TextData[{
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+     "\[LongDash]",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["F", "6"], TraditionalForm]], "InlineMath"]
+    }], "TableText",
+     Deletable->True], Cell["\[Dash]2 (finite)", "TableText"]},
+   {Cell[TextData[{
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["G", "1"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["G", "2"], TraditionalForm]], "InlineMath"]
+    }], "TableText",
+     Deletable->True], Cell["  0 (logarithmically divergent)", "TableText"]}
+  }]], "DefinitionBox",
+ CellID->1152923733],
+
+Cell["Superficial UV degrees of divergence.", "Caption",
+ CellID->444233650],
+
+Cell[TextData[{
+ "Form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ "\[LongDash]",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "6"], TraditionalForm]], "InlineMath"],
+ " are UV convergent, so their forms are unambiguous. But form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "2"], TraditionalForm]], "InlineMath"],
+ " are superficially logarithmically divergent.  So, their precise forms \
+depend on the UV regulator.  Within dimensional regularization they will \
+especially depend on how ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["\[Gamma]", "5"], TraditionalForm]], "InlineMath"],
+ " is treated.  Since ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X's ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "  anticommutes with all other gamma matrices, which is techincally \
+inconsistent within dimensional regularization, we can expect that ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "2"], TraditionalForm]], "InlineMath"],
+ " are incorrect, leading to the violations of Ward identities."
+}], "Text",
+ CellID->1543004124],
+
+Cell[TextData[{
+ "Next, we will apply Adler's method to correct the form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "2"], TraditionalForm]], "InlineMath"],
+ ".  We will determine them in terms of the unambiguous form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ "\[LongDash]",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "6"], TraditionalForm]], "InlineMath"],
+ " by requiring that the QED Ward identities be satisfied at the \[Nu] and \
+\[Rho] vertices."
+}], "Text",
+ CellID->1340610167],
+
+Cell[TextData[{
+ "Let's start by storing the form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ "\[LongDash]",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "6"], TraditionalForm]], "InlineMath"],
+ ", by extracting the coefficients of the multiplying tensors.  We are not \
+storing ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "2"], TraditionalForm]], "InlineMath"],
+ " since we will correct them."
+}], "Text",
+ CellID->314308181],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["Coefficient",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Coefficient"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to extract the form factors, and store them as ",
+ Cell[BoxData["F1"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "\[LongDash]",
+ Cell[BoxData["F6"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ CellID->919033939],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"F1", "=", 
+  RowBox[{
+   RowBox[{"Coefficient", "[", 
+    RowBox[{"computedVertexFunction", ",", 
+     RowBox[{
+      SubscriptBox["p1", "\[Mu]"], 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+        RowBox[{"{", "p1", "}"}], ",", 
+        RowBox[{"{", "p2", "}"}]}]]}]}], "]"}], "//", 
+   "Simplify"}]}], "\[IndentingNewLine]", 
+ RowBox[{"F2", "=", 
+  RowBox[{
+   RowBox[{"Coefficient", "[", 
+    RowBox[{"computedVertexFunction", ",", 
+     RowBox[{
+      SubscriptBox["p2", "\[Mu]"], 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+        RowBox[{"{", "p1", "}"}], ",", 
+        RowBox[{"{", "p2", "}"}]}]]}]}], "]"}], "//", 
+   "Simplify"}]}], "\[IndentingNewLine]", 
+ RowBox[{"F3", "=", 
+  RowBox[{
+   RowBox[{"Coefficient", "[", 
+    RowBox[{"computedVertexFunction", ",", 
+     RowBox[{
+      SubscriptBox["p1", "\[Nu]"], 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+        RowBox[{"{", "p1", "}"}], ",", 
+        RowBox[{"{", "p2", "}"}]}]]}]}], "]"}], "//", 
+   "Simplify"}]}], "\[IndentingNewLine]", 
+ RowBox[{"F4", "=", 
+  RowBox[{
+   RowBox[{"Coefficient", "[", 
+    RowBox[{"computedVertexFunction", ",", 
+     RowBox[{
+      SubscriptBox["p2", "\[Nu]"], 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+        RowBox[{"{", "p1", "}"}], ",", 
+        RowBox[{"{", "p2", "}"}]}]]}]}], "]"}], "//", 
+   "Simplify"}]}], "\[IndentingNewLine]", 
+ RowBox[{"F5", "=", 
+  RowBox[{
+   RowBox[{"Coefficient", "[", 
+    RowBox[{"computedVertexFunction", ",", 
+     RowBox[{
+      SubscriptBox["p1", "\[Rho]"], 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+        RowBox[{"{", "p1", "}"}], ",", 
+        RowBox[{"{", "p2", "}"}]}]]}]}], "]"}], "//", 
+   "Simplify"}]}], "\[IndentingNewLine]", 
+ RowBox[{"F6", "=", 
+  RowBox[{
+   RowBox[{"Coefficient", "[", 
+    RowBox[{"computedVertexFunction", ",", 
+     RowBox[{
+      SubscriptBox["p2", "\[Rho]"], 
+      SubscriptBox["\[CurlyEpsilon]", 
+       RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+        RowBox[{"{", "p1", "}"}], ",", 
+        RowBox[{"{", "p2", "}"}]}]]}]}], "]"}], "//", 
+   "Simplify"}]}]}], "Input",
+ CellLabel->"In[16]:=",
+ CellID->1584632645],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"7", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"]}]], "Output",
+ ImageSize->{415, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[16]=",
+ CellID->151606924],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"7", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"]}]], "Output",
+ ImageSize->{415, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[17]=",
+ CellID->1141966326],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+   SuperscriptBox["Q", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{"11", "+", 
+     RowBox[{"5", " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+       "]"}]}]}], ")"}]}], "s"]], "Output",
+ ImageSize->{414, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[18]=",
+ CellID->966687843],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+   SuperscriptBox["Q", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{"5", "+", 
+     RowBox[{"3", " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+       "]"}]}]}], ")"}]}], "s"]], "Output",
+ ImageSize->{407, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[19]=",
+ CellID->1408787746],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"5", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"]}]], "Output",
+ ImageSize->{415, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[20]=",
+ CellID->1488438847],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"11", "+", 
+      RowBox[{"5", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"]}]], "Output",
+ ImageSize->{422, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[21]=",
+ CellID->154697626]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Define a modified vertex function, with but with form factors ",
+ Cell[BoxData["G1"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["G2"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " left symbolic."
+}], "MathCaption",
+ CellID->672974682],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"modifiedVertexFunction", "=", 
+  RowBox[{
+   RowBox[{"F1", " ", 
+    SubscriptBox["p1", "\[Mu]"], 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]]}], "+", 
+   RowBox[{"F2", " ", 
+    SubscriptBox["p2", "\[Mu]"], 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]]}], "+", 
+   RowBox[{"F3", " ", 
+    SubscriptBox["p1", "\[Nu]"], 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]]}], "+", 
+   RowBox[{"F4", " ", 
+    SubscriptBox["p2", "\[Nu]"], 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]]}], "+", 
+   RowBox[{"F5", " ", 
+    SubscriptBox["p1", "\[Rho]"], 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]]}], "+", 
+   RowBox[{"F6", " ", 
+    SubscriptBox["p2", "\[Rho]"], 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]]}], "+", 
+   RowBox[{"G1", " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}]}]]}], "+", 
+   RowBox[{"G2", " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p2", "}"}]}]]}]}]}]], "Input",
+ CellLabel->"In[22]:=",
+ CellID->58244879],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"G1", " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}]}]]}], "+", 
+  RowBox[{"G2", " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p2", "}"}]}]]}], "-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p1", "\[Rho]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"5", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "+", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p2", "\[Nu]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"5", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p1", "\[Mu]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"7", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p2", "\[Mu]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"7", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p2", "\[Rho]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"11", "+", 
+      RowBox[{"5", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "+", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p1", "\[Nu]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"11", "+", 
+      RowBox[{"5", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"]}]], "Output",
+ ImageSize->{533, 236},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[22]=",
+ CellID->1152203895]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "Let us now check what conditions the electromagnetic Ward identities impose \
+on form factors ",
+ Cell[BoxData["G1"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["G2"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Text",
+ CellID->2001459442],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Contract ",
+ Cell[BoxData[
+  SubscriptBox["p1", "\[Nu]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  SubscriptBox["p2", "\[Rho]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " into the vertex function to form ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[CapitalGamma]", "\[Mu]\[Nu]\[Rho]"], 
+     SubscriptBox["p", 
+      RowBox[{"1", "\[Nu]"}]]}], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["\[CapitalGamma]", "\[Mu]\[Nu]\[Rho]"], 
+     SubscriptBox["p", 
+      RowBox[{"2", "\[Rho]"}]]}], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ", and apply the on shell conditions:"
+}], "MathCaption",
+ CellID->657175523],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"wardID\[Nu]", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Contract", "[", 
+     RowBox[{"modifiedVertexFunction", " ", 
+      SubscriptBox["p1", "\[Nu]"]}], "]"}], "/.", "onShell"}], "//", 
+   "Simplify"}]}], "\[IndentingNewLine]", 
+ RowBox[{"wardID\[Rho]", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Contract", "[", 
+     RowBox[{"modifiedVertexFunction", " ", 
+      SubscriptBox["p2", "\[Rho]"]}], "]"}], "/.", "onShell"}], "//", 
+   "Simplify"}]}]}], "Input",
+ CellLabel->"In[23]:=",
+ CellID->1337988941],
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", "p1", "}"}], ",", 
+    RowBox[{"{", "p2", "}"}]}]], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", "G2"}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "gA", " ", 
+     SuperscriptBox["Q", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{"5", "+", 
+       RowBox[{"3", " ", 
+        RowBox[{"DiscB", "[", 
+         RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        RowBox[{"ScalarC0", "[", 
+         RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+         "]"}]}]}], ")"}]}]}], ")"}]}]], "Output",
+ ImageSize->{529, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[23]=",
+ CellID->1800108758],
+
+Cell[BoxData[
+ RowBox[{
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+    RowBox[{"{", "p1", "}"}], ",", 
+    RowBox[{"{", "p2", "}"}]}]], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", "G1"}], "-", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "gA", " ", 
+     SuperscriptBox["Q", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{"5", "+", 
+       RowBox[{"3", " ", 
+        RowBox[{"DiscB", "[", 
+         RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        RowBox[{"ScalarC0", "[", 
+         RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+         "]"}]}]}], ")"}]}]}], ")"}]}]], "Output",
+ ImageSize->{529, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[24]=",
+ CellID->678276770]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "We now demand that the Ward identities be satisfied by requiring these \
+expressions to vanish.  This will imply a condition on the undetermined form \
+factors ",
+ Cell[BoxData["G1"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["G2"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Text",
+ CellID->393059771],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ " Use ",
+ Cell[BoxData[
+  ButtonBox["Solve",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Solve"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain ",
+ Cell[BoxData["G1"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["G2"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ CellID->195876478],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"newFormFactors", "=", 
+  RowBox[{
+   RowBox[{"Solve", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"wardID\[Nu]", "\[Equal]", "0"}], ",", 
+       RowBox[{"wardID\[Rho]", "\[Equal]", "0"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"G1", ",", "G2"}], "}"}]}], "]"}], "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
+ CellLabel->"In[25]:=",
+ CellID->2016950052],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"G1", "\[Rule]", 
+    RowBox[{
+     RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "gA", " ", 
+     SuperscriptBox["Q", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{"5", "+", 
+       RowBox[{"3", " ", 
+        RowBox[{"DiscB", "[", 
+         RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        RowBox[{"ScalarC0", "[", 
+         RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+         "]"}]}]}], ")"}]}]}], ",", 
+   RowBox[{"G2", "\[Rule]", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "gA", " ", 
+     SuperscriptBox["Q", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{"5", "+", 
+       RowBox[{"3", " ", 
+        RowBox[{"DiscB", "[", 
+         RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+       RowBox[{"2", " ", 
+        SuperscriptBox["m", "2"], " ", 
+        RowBox[{"ScalarC0", "[", 
+         RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+         "]"}]}]}], ")"}]}]}]}], "}"}]], "Output",
+ ImageSize->{455, 36},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[25]=",
+ CellID->160397908]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Update ",
+ Cell[BoxData["correctedVertexFunction"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with the newly determined ",
+ Cell[BoxData["G1"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData["G2"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ CellID->576731523],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"correctedVertexFunction", "[", 
+   RowBox[{"gA_", ",", "Q_", ",", "m_"}], "]"}], "=", 
+  RowBox[{"modifiedVertexFunction", "/.", "newFormFactors"}]}]], "Input",
+ CellLabel->"In[26]:=",
+ CellID->1533008150],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "gA", " ", 
+   SuperscriptBox["Q", "2"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p1", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{"5", "+", 
+     RowBox[{"3", " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+       "]"}]}]}], ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "gA", " ", 
+   SuperscriptBox["Q", "2"], " ", 
+   SubscriptBox["\[CurlyEpsilon]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", 
+     RowBox[{"{", "p2", "}"}]}]], " ", 
+   RowBox[{"(", 
+    RowBox[{"5", "+", 
+     RowBox[{"3", " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+       "]"}]}]}], ")"}]}], "-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p1", "\[Rho]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"5", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "+", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p2", "\[Nu]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"5", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p1", "\[Mu]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"7", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p2", "\[Mu]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"7", "+", 
+      RowBox[{"3", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "-", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p2", "\[Rho]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"11", "+", 
+      RowBox[{"5", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"], "+", 
+  FractionBox[
+   RowBox[{"4", " ", "\[ImaginaryI]", " ", "gA", " ", 
+    SuperscriptBox["Q", "2"], " ", 
+    SubscriptBox["p1", "\[Nu]"], " ", 
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", ",", "\[Rho]", ",", 
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{"11", "+", 
+      RowBox[{"5", " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}]}], ")"}]}], "s"]}]], "Output",
+ ImageSize->{533, 256},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[26]=",
+ CellID->88285350]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+We now have the corrected vertex function that satisfies the QED Ward \
+identities at indices \[Nu] and \[Rho]:\
+\>", "Text",
+ CellID->781433646],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Index", " ", "\[Nu]"}], "*)"}], 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Contract", "[", 
+     RowBox[{
+      RowBox[{"correctedVertexFunction", "[", 
+       RowBox[{"gA", ",", "Q", ",", "m"}], "]"}], " ", 
+      SubscriptBox["p1", "\[Nu]"]}], "]"}], "/.", "onShell"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{"(*", 
+    RowBox[{"Index", " ", "\[Rho]"}], "*)"}], " ", 
+   RowBox[{
+    RowBox[{"Contract", "[", 
+     RowBox[{
+      RowBox[{"correctedVertexFunction", "[", 
+       RowBox[{"gA", ",", "Q", ",", "m"}], "]"}], " ", 
+      SubscriptBox["p2", "\[Rho]"]}], "]"}], "/.", "onShell"}]}]}]], "Input",
+ CellLabel->"In[27]:=",
+ CellID->2089837909],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[27]=",
+ CellID->1426885377],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[28]=",
+ CellID->712645190]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "This accounts for the limitation of ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X's implementation of ",
+ Cell[BoxData[
+  ButtonBox["\[Gamma]5",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiracG5"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in dimensional regularization. Next we must check the Ward identity at the \
+\[Mu] index by confirming the anomaly cancellation associated with weak \
+neutral currents in the standard model."
+}], "Text",
+ CellID->1135221086]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Ward identity at the \[Mu] index, and anomaly cancellation\
+\>", "Section",
+ CellID->1183444188],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The Ward identity associated with weak interactions is more complicated due \
+to its associatation with the spontaneous breakdown of the standard model \
+gauge symmetry.  The continuity equation satisfied by the weak neutral \
+current ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["J", 
+    RowBox[{"n", ".", "c", "."}], "\[Mu]"], TraditionalForm]], "InlineMath"],
+ " is related to the pseuoscalar density "
+}], "Text",
+ CellID->160907084],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubscriptBox["\[PartialD]", "\[Mu]"], 
+    SubsuperscriptBox["J", 
+     RowBox[{"n", ".", "c", "."}], "\[Mu]"]}], "=", 
+   RowBox[{
+    RowBox[{"-", "2"}], "i", " ", 
+    RowBox[{
+     SubscriptBox["\[Sum]", "f"], " ", 
+     RowBox[{
+      SubsuperscriptBox["g", "A", "f"], 
+      SubscriptBox["m", "f"], 
+      OverscriptBox["f", "_"], 
+      SubscriptBox["\[Gamma]", "5"], "f"}]}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->808821658]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "which in momentum space leads to the desired Ward identity for the ",
+ Cell[BoxData[
+  FormBox["Z\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function,"
+}], "Text",
+ CellID->528517950],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "1"], "+", 
+       SubscriptBox["p", "2"]}], ")"}], "\[Mu]"], 
+    SuperscriptBox["\[CapitalGamma]", "\[Mu]\[Nu]\[Rho]"]}], "=", 
+   RowBox[{
+    RowBox[{"-", "2"}], "i", " ", 
+    SubscriptBox["m", "Z"], 
+    RowBox[{
+     SubsuperscriptBox["\[CapitalGamma]", "G", "\[Nu]\[Rho]"], "."}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1836386929]
+}, Open  ]],
+
+Cell[TextData[{
+ "In the left hand side, ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["\[CapitalGamma]", "\[Mu]\[Nu]\[Rho]"], TraditionalForm]], 
+  "InlineMath"],
+ " is the ",
+ Cell[BoxData[
+  FormBox["Z\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function computed above, summed over all standard model fermions ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["\[CapitalGamma]", "\[Mu]\[Nu]\[Rho]"], "=", 
+    RowBox[{
+     SubscriptBox["\[Sum]", "f"], 
+     SuperscriptBox[
+      RowBox[{"\[CapitalGamma]", "(", "f", ")"}], "\[Mu]\[Nu]\[Rho]"]}]}], 
+   TraditionalForm]], "InlineMath"],
+ "."
+}], "Text",
+ CellID->1044910464],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Contract the ",
+ Cell[BoxData["correctedVertexFunction"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ Cell[BoxData[
+  SubscriptBox[
+   RowBox[{"(", 
+    RowBox[{"p1", "+", "p2"}], ")"}], "\[Mu]"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and store the result as ",
+ Cell[BoxData["LHS1"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  This gives the contribution from a single fermion flavor, dependent on \
+",
+ Cell[BoxData["gA"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData["Q"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData["m"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ CellID->915570038],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LHS1", "[", 
+   RowBox[{"gA_", ",", "Q_", ",", "m_"}], "]"}], "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Contract", "[", 
+     RowBox[{
+      RowBox[{"correctedVertexFunction", "[", 
+       RowBox[{"gA", ",", "Q", ",", "m"}], "]"}], " ", 
+      SubscriptBox[
+       RowBox[{"(", 
+        RowBox[{"p1", "+", "p2"}], ")"}], "\[Mu]"]}], "]"}], "/.", 
+    "onShell"}], "//", "Simplify"}]}]], "Input",
+ CellLabel->"In[29]:=",
+ CellID->810647458],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "8"}], " ", "\[ImaginaryI]", " ", "gA", " ", 
+  SuperscriptBox["Q", "2"], " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", "p1", "}"}], ",", 
+    RowBox[{"{", "p2", "}"}]}]], " ", 
+  RowBox[{"(", 
+   RowBox[{"1", "+", 
+    RowBox[{"2", " ", 
+     SuperscriptBox["m", "2"], " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+      "]"}]}]}], ")"}]}]], "Output",
+ ImageSize->{372, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[29]=",
+ CellID->50393826]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Consider just one generation of standard model fermions (the minimal set \
+required to ensure anomaly cancellation), consisting of three colors of up \
+and down quarks, the neutrino and the electron.  Accounting for their \
+differing charge and masses, the sum gives the LHS of the Ward identity:\
+\>", "MathCaption",
+ CellID->838725048],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LHS", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"3", 
+     RowBox[{"LHS1", "[", 
+      RowBox[{
+       RowBox[{"1", "/", "2"}], ",", 
+       RowBox[{"2", "/", "3"}], ",", "mu"}], "]"}]}], "+", 
+    RowBox[{"3", 
+     RowBox[{"LHS1", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "1"}], "/", "2"}], ",", 
+       RowBox[{
+        RowBox[{"-", "1"}], "/", "3"}], ",", "md"}], "]"}]}], "+", 
+    RowBox[{"LHS1", "[", 
+     RowBox[{
+      RowBox[{"1", "/", "2"}], ",", "0", ",", "m\[Nu]"}], "]"}], "+", 
+    RowBox[{"LHS1", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "1"}], "/", "2"}], ",", 
+      RowBox[{"-", "1"}], ",", "me"}], "]"}]}], "//", "Simplify"}]}]], "Input",
+ CellLabel->"In[30]:=",
+ CellID->2077378111],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["8", "3"], " ", "\[ImaginaryI]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", "p1", "}"}], ",", 
+    RowBox[{"{", "p2", "}"}]}]], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["md", "2"], " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", "0", ",", "s", ",", "md", ",", "md", ",", "md"}], 
+      "]"}]}], "+", 
+    RowBox[{"3", " ", 
+     SuperscriptBox["me", "2"], " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", "0", ",", "s", ",", "me", ",", "me", ",", "me"}], 
+      "]"}]}], "-", 
+    RowBox[{"4", " ", 
+     SuperscriptBox["mu", "2"], " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", "0", ",", "s", ",", "mu", ",", "mu", ",", "mu"}], 
+      "]"}]}]}], ")"}]}]], "Output",
+ ImageSize->{494, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[30]=",
+ CellID->876412950]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "In the RHS of the Ward identity is ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["\[CapitalGamma]", "G", "\[Nu]\[Rho]"], 
+   TraditionalForm]], "InlineMath"],
+ ", the ",
+ Cell[BoxData[
+  FormBox["G\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function involving the neutral Goldstone boson (also summed over \
+all standard model fermions ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["\[CapitalGamma]", "G", "\[Nu]\[Rho]"], "=", 
+    RowBox[{
+     SubscriptBox["\[Sum]", "f"], 
+     SubsuperscriptBox[
+      RowBox[{"\[CapitalGamma]", "(", "f", ")"}], "G", "\[Nu]\[Rho]"]}]}], 
+   TraditionalForm]], "InlineMath"],
+ "), which needs to be calculated.  For a given fermion flavor, the two \
+diagrams contributing to the ",
+ Cell[BoxData[
+  FormBox["G\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function are:"
+}], "Text",
+ Deletable->True,
+ CellID->59472774],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJzs3cGLHM3DH/ZSEnCOj/wPZKOcAwK9f8Ak6HcJOQgHOT6uTaL3GOEYZEMO
+c4tu0TECH/aUg/BhjwZB2EOOOogYggkW7PE9GEUYTBISMpnS1jxq9Vb3dM90
+d3X3fBo+fv17NNNTVTM701Xfrqr/8B/8N3/nzb8TQvhv//39//N3/v67/+Qf
+/sO//0/+i39v/z/+03/yj/7rf/Dv7v8///ZJCH/rb4UQ/+NutwMAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYCDhSXi59y75tvc+85g3e5/2
+dhXf03Oela4DAAAAAAAA8LtKBvi+lvNVvaw8/mXKC5see/CmdN0AAAAAAACA
+nxnfsw753s+5gJXnvOv4nIPXpesJAAAAAAAA/C6zPujBx/TvH9P//lKdE5gy
+xqbnxjVGn5auGwAAAAAAAPBLzPBSlvdo7l9lvuC7lud/trYoAAAAAAAALENm
+H8HvlVzw5ZHnvm7IBj+VrhcAAAAAAADwS5o3WM/1Dlnh0X0DG57/cw3S0nUD
+AAAAAAAAfmmZ9/exxznq8w5/5oul6wYAAAAAAAD8Ep6E95lcL64p+rTHOWSD
+AAAAAAAAMHNx7c9Mrveu5zlkgwAAAAAAADBjLXsFdp4zmM5jv0EAAAAAAACY
+sTg/MJPpfep5jqZ8sfN+hQAAAAAAAMC4Yg6YyfRe9zzHy4ZssNe6pAAAAAAA
+AMB4wpPwvZbnfT/hHLm5h9GL0vUDAAAAAAAAfmZ6r4dYB3T/nM/2GgQAAOgu
+rb/yLvm29z7zmDeZtV6+p+c8K10HAAAAliX2PQdYT7Rpr8E3pesHAAAwB5UM
+MNcHO3hZefzLlBc2PVa/CwAAgN7i3L6R1hONfdinpesHAABQUpzb1yHf+60v
+1rJnQ5Ne93cCAAAwrv1xvfdH6XI8KteT8GKg9UTr+aJ7VwEAADIy64P+1heL
+//ewR0O1X5UyxqbnfndvJgAAwHzsj1d7P/Y2pcvyW7ny96L2XU/0pX0GAQAA
+ukl7MnzP9cUqfbR3Lc/P7fXu/kwAAICZSdlg/P9sS5flzzLl7zntda9ppl8a
++7jPStcNAABgrjL7CH6v5IIvjzz3dUM2+Kl0vQAAAPhlf3xI2WD0de+qaHke
+7lU9qy8Z70t1ryoAAEB3DX2xQ1Z4dB2XhudbvwUAAGBm9sfzSja4Kz2HsOFe
+08Z1azLPf5q51/V96XYGAACYs5Z5f533fs/0xX7mi6XrBgAAwO/2x30mH7wv
+sQ9hzPEyfckXZzy/cz8WAADgUjX0xb732d9BNggAALAMcZ5gJhs8uJtyndHU
+9/ytL9rjufX7XOWCAAAAHcS1P89ZwyWdQzYIAACwADH7a8kGD27Gzgjj/MBT
+9xrMPNc6ogAAAB207BXYec5gOo/9BgEAABZif3ztkA+OmhHGe1JPuU91/5iX
+tfmGb0q3JwAAwFI09MU63adZOUdTvmg9FwAAYNb2x3VaR/PS/MvQLRusZoTP
+B237E9awqfVhP/fZm7Bn2d6k8r0s/RkFAAAYUswBM32x1z3P8bIhG+y1LikA
+AMDUQvvee+T3I7w+u92b7zF91Jfc/+9nKRM8zBX80rff2qNc1dfZyQYBAIC1
+OWff98o5cnMPd2PdvwkAADAU2eDJfux9CCeuNxqzvVwmmHzO/Nvn9G+D9zNT
+9vi+oV8rGwQAAFajoS/Wex3Qhn6bvQYBAIDZkw2e7H7v7RnZYG4NmyL3l1Zy
+x8P8RNkgAACwSg33RfZdT7RpHRh7wQMAALMnG+ztdm9zdrsPsIbNaJ8J2SAA
+ALBS4fG+70OtJ/otZoal6wcAAHBMzLlSPnhp/nnolwnehBPnCD5q8yfhRaYf
++an0Z6FSPtkgAACwOg19sVPWE63ni+YMAgAAzNz++NohD/yRcsQ/Bn3t/Bo2
+70q3SaV8skEAAGB1Gub79V1P9KV9Bnu0174/vXcd++ClywIAAFyuOP+vQy44
+eCb45+vn7zEtstdgQ/lkgwAAwOo07Pveax3QtF/7b2uSxr3bS9dtblK/+0O6
+5/ZnH7t0mQAAgMuV+iejrx2afe38nvWz2WswlVE2CAAArEpDX6zX3g5x3VBr
+iba0T2WOYKavPcq9twAAAF3sj/tMPyX2XTajv3Z+DZvZ7DWYyigbBAAAViWu
+HXrO3g4pW/xWe/770vUqrZIH3rbdg1u6nAAAwOWK+V9mT8G3k71+fg2bWfUn
+ZYMAAMDaNOz73nlvh8zzP5auU7G2DOF52ocjNz8wZ1O6zAAAwOVKa4Ye+id3
+Y64fmn39h70o6v3R16XbpVZG2SAAALAqmb5Y570dMnMOLyYXTPMCNykLvKvs
+H9jVfek6AAAAl63Sj5lsruCfr/0kvMzkgru57VsvGwQAANYkzg88dW+HzHNn
+te7LoO30kANu0/qgp+SAOZP3vQEAAA72x6u01+DzIq+fX8NmV7pdMuWUDQIA
+AKvRsO/70b0G0/2d1fmGb0Yo25u9L3Ppe8W1dWrr7ZzrqnSdAACAyxXvV4z3
+QRZ57SfhWcN6otHT0m1TK6tsEAAAWI2UvfXKBmt54uc+exN2LNO7Wh9xVn2v
+lBFuz5w7+LV0PQAAAEpIe1N8a8gFD/3Mwe8/PaO8skEAAGAV4r2YLX2xd7XH
+Pqtldl+G3B8+nT+7nsxc+16VdUZPyQitJwoAAFyUhnVrjppBuWffPwUAAOgi
+3av5KBNMPjfcu/lu6HmCqSyHcx8yyMX0vVJGGNfi+dfWEwUAAFiXJfVPAQAA
+2uz7NJ8y+d/gud+JZVtU32t/XFtPFAAAYH2W1j8FgFOluSSHeSNfSpcHgOFl
+9n3/XrpMlbItpu/VMxeMtqXLDAAAQDdL6p8CQBeVtdsOju45BcDyxfmBme/7
+T6XLVSnfIvpeJ+SC0fPS5QYAAKCbpfRPAeCYlAl23fN3FuvLATCc/Xf7+znf
+C7KEvleHXDC3/+CP0uUGAACguyX0TwHgFPF3rSEXtJ4owArF7/c53wsy975X
+h1ww/vs2899vS5cdAACAbvb90ae1/unr0mUCgCGlvQXr48TvS5cLgGFl+jaz
+2mswlXG22WCXXDA97o84T9BegwAAAMuT1l37VOuffp5bHxUAztEwh8RvHcDK
+NOwvO5u9BlMZZ/lb1DUXrDy+PndwU7oOAAAANGvoM+d8Ll1WADjHEuaQADCM
+zH2Ps5snPsds8Egu+COX++2Pq+rjStcBAOASpWuyeC13s3fXcD13n/5tu6b7
+uVLd31bqXl/X4kf67x9SG12VLvOAdX9eq/vXzPt9m97z56XLO1LdP6R61h3q
+/Squd1K6vBPXfZs+66t6zwHgFHGt7Mw48cfS5QJgePHej8x3/qz2TJhbNtgh
+F2zsV6axiJ/jD6XrAcA6pf7cu7TOmT3jIUnXcE1Z4DE/0nXcVel6nFDvP1I2
+8vXEusfnXZeux4l1v0rZz/2J7/mHJb7nlbp/OLHut0t9z1PdN+nvtZ59H3O/
+5PccAM4V54vMfZwYgPPFnK1hLZRnpctWK+dsssFzcsH0/Kv02LvS7QrAsqV9
+j95V5H7T35UuJ5SWrt9OyUeaLCYjTLlY33ykLTe5Ll2njvX+I/y6J+/S3vOr
+Aeu+mPc81X0TTs//6+6W8p4DwFAyc0ji/35aulwADKvhXpBd6XJlyjmLbDCc
+mQtWzhP76tvS7QrAMqVMsMu+R9GL0uWFUlI+NFROkLv2e1u6ji11fx6GzUMX
+k5mka/ah8tC6ben6Han7dqR6f+3a1ylU7/i3fjtS3eM8wlWtswoAObHvmOlP
+fipdLhjL/viP9/7Xvf89NPcb79J15ts5Xw9DH2lcMbee6G5u94PMIRsMA+WC
+6VybuY8rALAcLesAWE+UixUesrEu+VDMPG5SplJ11/H5N3PLDVK/tWvecxt+
+r/dt6Lb2aGybV6XrWqt3n7mCX8OvfRUP73fTeEDuuXN7z686vm/Vuld1zVJn
+l4eHh75V1/Lf1+p936PNjAUBsGoNa9FYh4bVSf2G/6HjdWDuevLt3PoD0FXa
+h+hbyxyDuD/Rm9LlrJS3aDYYBswFK+e8Kt2uAKxH+u2u/56/L10uKOHItdsu
+ZQLXXfpz4SFj/HAke5hNVhSOZ2Mx+3t1rLypv3wdjudl16XrXCnvsWwsts3R
+PDM8ZE3H3vP7uWRF4XgOftg3cXPkPFcd3/Ob0nWulPnY3/r9sbqnz86rcHx/
+wpP6fQCwFPHe0rnPH4FzpOu+7ZFrvq7iObal6wRdtexF1GoG5S6WDR7pb+of
+AjALDf24onv0QglpjL8tw9uceN5j/cji+WBozwVjJnh14nk3R/Ki68L1PpYL
+bk95bzq85z9m8J635YI/zqj78yPv+U3JeqcytvXT7k/5XIZfmXhbm+r/AbA6
+MQO0Dg1r1eG6/hzxunNTuo6wVqXGOY/0NxfTL0x9+03pcgAwjoZ+3PfS5YKp
+HclJtgO9xlVLDnVTsO5N162Drf0ZHtbOaWrfTcG6N+0zN8g6kKF9L7timXAq
+131DuW6HKFd4yNqb3vNi64uGh7y6MQseqG1vWv6mrkrVHQDGkNaYs54oqxP6
+ZYI34ff9FuL/vuv43NmtvQ9rUCIbbBlfWVou+GEOYxcAjKehH/exdLlgSqF5
+7tiPoXOrI7nB5H3C8JCJNuVWVyO8Vq5vXWQOXWjeW/Fm6PLUrquLZ8It4xSD
+fgZDex6+KVDvP1o+g4OWp6VP+LXEew4AY9n3Hz9l+pQvao9503MtOn1SiknX
+cfcdc72fjpwv3jPXdL9g0X4BrNnU2WBLH3BRuWCqS7381yO/V8/i/laZ/Stf
+D3Dup5lzz2ZfTIBSMt+NuyG+d2EpUlbwLxuu3Ua7bgv5fHDyOUUNuc1o94SF
+5nzwduJ6X03dJw8P9w/nXnOQuZk9ytGUiV6P9HpN2fv9WJ+zlrLkxmRG66O1
+9A23E9f7sBbW3dh9OgAuT1x3ptaf/Hbk8a8zz/n5vLSnlX0KKSJ0zwQfXdt2
+PP9Vw/WofBBGMGU22NL3W1wumOoz3VjJk/Ci4bpgkPuFGu5hsp8WcPEy373f
+9cW4BJWx8n8zZU5Se/1cXjJZRtaQEY1+zRqa13TcTFj3u1wff4LXvSmZkYXm
+eXMfCr3udsL3vGk/0VE/dy19xKsJ616ft3o91WsDsG5pPK8+1va+w/Pqe95b
+g5RiQvdMMF7LX4XMPX89X69t7f1t6faANcjsoTTaPIiWPt8ic8FUp/p41Wjj
+JeneoGPrCZx0ndBwneLaA7h4Dd+Pn0qXC8YUuu0l/y8mKstVQzlGn0dW8rXT
+6z/qT0+VkTVct08yZzM07/M3ajZXef3cfcp3E732puHvbfR+Uku7by+03Sd5
+bQDWr2Edmtb78Gv90Hhv6ospygp1oXsmeFvtK+T6Mie89lVm7H2Se9dg7dL6
+lPW5Yp/HmCfWML6w6Fww1evm3O+5ju9Vbq+rnJPmshw5v3XzgIuV1mtxzwQX
+IXTLBA/+ywnL9ahfOfb1Y2ies3g38XuS64ePOm8yNK9pOtlejw1ZTXQ98us2
+rSV6NWHdH/UvwgT7mod8NjfZvn+h0LzJUq8LwOXIzP/7fuTxzyrzA+Jzn5Wu
+A5cnXY835XK/9Y9CJqfL9eFOLMds1t6HNWgY58z5PMjrrTQXTHUb5Huuw3v2
+qToeHdrXF+09Zt3ymbBuHnDRMv24ne9F1ib0ywSL3KfZ0B8c5Tqypf9ZYq/D
+TUP734z0ek254GQZUaUsl7zvXfY9GGv8I+TzyBJ/5xe7zyMA65RZr611T6CU
+Cx76oNarYXKp/3HXoT9413atOOSYeWhez2Vbur2AZi197MXngql+g33Ptb7O
+w3XBl9p/ezNUnteSDZ61hyHAkjX0476ULhcMJZyWCZbKDJ5PcT0Z2tetmWze
+XK1M9X3Q/swHh8wvQnMuWOSaPTSvcflj6Kyopc8yeSaaytO079/g+WBozgUn
+WcM1U567Kf7+QnMuOPn3GwDr1TDell2fK80DOMwXPLofIQwpDJQJVs63rT93
+gPLlynNVuu2Ax1r62KvIBVMdB/2ea3ydh7zvY+2/PW2ZO/im5/mbskHrFgAX
+q2G9ZeuJsnihXyYYc4O/N4ex8yPXltsBzt+23/1N4fesKcP4OsR7kbumrbgu
+WO+mvPJndhXOzMnS30JufuKhv3JVsO43LeUa4j1/3va5Kljvpkx4l96rs7PR
+I3/r21J1B2B9wuO9nLLr0Oz/28vKGF+vMT04Rxg4E6yc91H/YoCy5q6Pt6Xb
+EPjdkbGbVeSCqZ6Df89lX6dhPDrk9zPuPa+lIRs0ZxC4aA39uBe1xzTN4W7i
+u5ViQv9M8Co9b5P5902hOrRdY8Y84fqEc7460h++mcl717bfx5/v1wnted9y
+3t7tuZD3/Njfwiz6Kw3jH9Wc7JT3/Co0z0XdhQn2NuxQxrZM+OR5o6nuTVnw
+LP7WAViXzD39j9YJrd2T+rJ0mbkM6bqorQ907vX2tn6ugcr86NqwdFsCvxzp
+v8+inz1gXR/110d5neZs8FnL+POLHufPZYPmDAIXLdOP+3bk8a8b5nN/S9+z
+9imkiA45SGvGFGaUDabytF1rHq43b9LjHl13pj7lq5SP3B9rj9LvX+19bMsH
+D7nO26b3p1L3mw6fh+vSda69523lPbznsW7ZXKtH3WfVX8n1N2ru0nt+1XKO
+q9SGbbnYLHLBSpnb8sHD+/Sh6bOeqfvdUv7WAViHLuvQVO75/9ZnHA9Ola6N
+jl1fnpwJVl5nWz/nQOXPlf1V6XYFLisXTPWtj8/cTV6GJ+HzuXNT4mPNawH4
+JTzs9VD/Xj2650P4tW+8NUgpLpyZCVbOs8k8flO4bm1rAg6lyP6CHd7TLn35
+enZ03+Pxg6xZOULdn/esx11F1+d8bfo7KFz37Yn1vuvxdzLIep0D1/sqHM/D
+q+/dqXWf3d86AMvXsNbX0/RvTyvjeV/cn8/YwkSZYOX1Hl2/DlSP3D70RfbJ
+Bn4Jl5cLXmXqeTN5OR7WJM9lg9+7zlHJ5IuuSYCL1tCPa13fpZYnfnffJ6WE
+gTLByvk2medtZlLPY/OgTvF17tet4SEbvR+h7rPLhzLvedt6mOfYlq7fkbpv
+RnrP4/fErLOxEd/z2J6b0vUDYJ0y941+Sf/9RZonePjvn0uXlfUKE2eCldfd
+1l9jwHPXr4nvSrczXLJwYblgqvPbTF2vi5Tl92uK3vNVamvgmeMCXLxMP+77
+kcc/q3wXu++TIsLAmWDlvJvM8zel61sr391AOcF16fqM9H4fczen93TC97zX
+38IcDPieH9bknG0WXKv31YDveaz7tnSdAFivhnVo3jWsM+oefQYXuq83Msp9
+YmHcbPDR/aGl2xsuVbjAXDDV+z5T3yJ965DfL/DPe5KOPLc+z8V+WMBFS+u7
+dF6nOeWChyzx0d7yMLYwUiZYOf8mc55N6XpnynmVso6uaxDu0vXczRzr07Pu
+17k+coe6f1jytXrlPc9dlx+r+7bv38KcnPie78KvPSkXkQm2vOen5KNfU7st
+su4ALEfDOF3TnkDu02cwPfqGP9LjRrkuCuNmg6OdG+guXG4umKv3bbHyPIxj
+f2+4vji2Bl71euVN6bYFKK2hH/e64bHV9WCO7kcIQ+rR7zspE6y8ziZzvk3p
++ndom01qn5zNqe0xd6lub1M9Y4ZyFx4ypEPdX62x7uEhM7pOdbwNv+87d7PW
+uqfP+quGelff+zXW/Xn6rN9k6n1wqLs8EIDJxHtGG8boYt/xTe6/ly4zy9aj
+bzhqJlgpz7b+2gOe+3pp/VNYm9C+78Oac8H4XXs/t++gOKel4bqjca5Let4X
+1yEAvzT04x7NqQ4P+70e7stwbwWT6dHvOysTrLzeZm7XPQAAMEcN69D8tsZM
+eLyHReP9qNBmbplgpVxjZoP6p1BQaF+veLW5YEvd74qXK7+WeeOYduY5rfML
+AS5FZh72o3VCw+/7RPj+ZBJTZ4KV19X3AgCADkJ+T8F3tcfk1qqxPwWd9ewb
+TpYJVso3Zjb4Sv8UyrjwXPBtQ703pcv2s3zNa5dn1y2vzDX8XLrsAHPQsR/3
+vrIezIvSZWb9SmWCldeXDQIAQAeV/mLjPfstcwuz9/ZDVXhYU/O+RN+wRxnH
+zAZHOzfQ7MJzweuGen8oXbY/y5gf086uF7r/b88q//6sdNkB5qCtH5f6b4d7
+ML747mRspTPBSjlkgwAA0EFmHZovDY/L7WWRvbcfoiVkgpWyjpkNPsonSr83
+sHYXngs27a34NcxsX/s0jyWXD76sPe4wZ7B1P0KAS5LZ9+FL+u8vat+v5lsz
+mrlkgpXyyAYBAOCIhv1+3jc89mWXe/thSZlgpcxjZoNf6+PzpesLa3apuWD8
+Pt27W1K9G9Ysr+95fJgz+N16BQAPGvpx71rmZJs3yKDmlglWyiUbBACAIxrG
+5F63PD53f7/97PlpiZlgpeyjZINprP5R/UvXF9bqEnPB9D2zyHq3rFn+5zh2
+Zd0CaxUAJA39uKZ9XH2HMpi5ZoKV8skGAQDgiMw6NK17CO7/7U3bvf2Zx790
+j//6pf5XfW5czt1c+2UjZoOvMu1wXbq+sEZzz8fSWNp1KuddS1nj9+nt3tum
+78z0vfu2w3dv8XofbZdf64W2zX8xZxCgIuT3e9ilezlzfTbrvXCWuWeClXLK
+BgEAoEXDvfrZvQZrz6vvT5hdoyad/5t7VNcr9bvaxrdnnwlW6jJWNvjovKX6
+ybBmc84F03flbYfvyqHF795Z7S+YbZ/8muWHPPCwXsGb0uUEmIuWOdfV9Zhz
+94A2rg8DTZaSCVbKKxsEAIAWDXtRZPcarD0vt37No+elx7k/dYXWlAlW6jRW
+NvhhjPMCv8w1F4yv2/G7cmixzm9Lvy+92qp9HTzXEgAVDf24d7XH5Ppsjeu9
+QN3SMsFKuWWDAADQomEdmqP3kqb7VOtzB79X5w7u//8vgr0IV2eNmWClbmNl
+g/X2uitdV1iTGeeCj+4LmCgTjN9ls58r+Ki98uvfHZgzCFAR78vMfFc+rT2m
+aW6h9ZlptdRMsFJ+2SAAALRoWBu0U1+x4T7Uz6kP+iKtAXZ0DiLLEPt7HTPB
++71Xpct7Yh1lg7Awc8wF03hal/1Xv6byb2s+dPy+rYrrlV4vMRP8re3y1yXm
+DALUZL4vs/tCNNwLar8HspaeCVbqIRsEAIAGlXl9vfYarDz/sJdg0z3+nc/F
+fKVMsG3svZoJXpcu75l1lQ3Cgsw0F3x+ZDwtfle+7TqWlsa23mbyw23675vS
+78Og7Ze/78icQYCKhn5c9p7MkN/P1T0X/GYtmWClPrJBAABo0LAOTa97SBv6
+pT9zwer6oizPJWWClTqPlQ0+asfSdYWlS7nYknLBH2v5rhy1DffXDsavAdo1
+3EfRuC9Ew/2c9n1gdZlgpV6yQQAAaJDyu3of8cUJ53lZ629ao2bBLjETrNR9
+rGzw0XnDwtf9g9JC87qd94VywbZ1RG/9zfdoy9/XvzNnEKCmoR/XuC9EyO/n
++qnl8S+77jPBMq01E6zUTzYIAADQQeofdskEY//xbenyjtQGY2WDrzLtuMg9
+GWFOMnnc11IZXMr/ct+Z29LttDSV9e/MGQSoSfs69N7LoWE/10frvFT2jXC/
+5wqtPROs1FM2CAAAK5Su9TfmYQzSll37hz/S41bb5iNmg1e5vnbp+sIaVPLB
+krlgLv/frfU+CgDKiWuHdt1rsPa83Dqkj56XHufejJW5lEywUl/ZIAAArFBt
+rsj93l3qw2yTTQ9vK8+7Teda/ZwumWC2TUbJBtO57zPtuvo2hSmk77NSueAf
+Dd+jN6XbBYD1qa27fHSvwcrznmbmDn6vzh2s7CVvL8KVuLRMsFJv2SAAAKxU
+6uc0reF2jpvSdZug3WSC+bYZMxv8kGnjbek6A+fJfW/sfS1dLgDWqWFt0E57
+AzbMHfyccsMXaS3Ro3MQmb9LzQQr9ZcNAgDAyoVue+R1dVe6PiO2U5/+4UVl
+gpU2GjMbvGrIXy+unWFNwuM5wcaeABhFZV5fr70GK88/7CVYP0fvc51ch4c+
+yfPSbblWl54JVtpBNggAABdgoHzwfq05zf64bhi/vpj+Ycd2Gi0bTOfPzXO9
+KV1v4DQhv8/gTelyAbBOcU5fJs971/McuXzxZy5YXV901Hr86rvdhV/7QlyH
+X3s+XHU4x/PK41+FX3tEfCj9PhX5bMgE6+0hGwQAgAuR+pOn5oKxD7W6+1dl
+gr3ba+xs8Kqh/a9L1x3oL+TvS1ndbwkA85Dyu3qm9+KE87yszR/slS8OUpdh
+135ZdZ/uSDvKBPPtIhsEAIALckY+eF267CO0g0ywf7uNmg2m18jtOyhPgAXK
+jMPZZxAAOspde59pU7pOE7adTLC9fWSDAABwQVIm9q979iFvSpd74PrLBE9v
+vymywT8a3qPYr39Vug2AbsLDWmb1v+OLXMcMAE4Vzlv7ZbX3era0l0ywWzvJ
+BgEA4AKka/+7E/qQX8MK9hhM9e+SCd7pE7W24+jZYHqd5y39+W3pdgCOM+YE
+AMMYIB+8KV2HCdpIJtivvVynAQDAip2RCR4seh3HHvWXCXZrz0mywfRabWMg
+3i+Yudz3xaWPwwHAqY7cO9d6r2fpso/cLjLB09pNNggAACuU+o7nZIKLnp8l
+ExytXSfLBtPrteWDh/ev8zqj6e/iVapH1dv0mVn8HFmYi6m/LwBgzVIG9j/u
+/X89+nM/1pqFyQTPbj/ZIDCp8CQ823u/t6v4vPd6gHM/zZz7Tek6A8CUYp8n
+9X3OyQQXe3+pTHD09p18rD+9p8f6/PHfb1P5rtNzNinz23b8TBzc730IC58z
+C6WV+L4AgLXpmYHVrW6v7p7tEfvFV6XLPEdBNghMKDwJL/a+17K7qo9nnv9T
+w3lflq47AIwt9M8Eb9Jzmv59UblI6D5P8l6f56x2LjLWnz6rffK9ocTPy3Xp
+doclKvV9AQBrER7uebs/8Tr2Q+nyD9wWMsFh23OTabdN6XIB6xSehG8tueDB
+uxPP/WLocwLAElT6SF37iHfVflJDX3Nbul496n8VumWiMp5h2rvoWH8aHznl
+nulzfdVXhn4afpuuSpcLAOYunJcJHvo+q1grP8gEx2rXTab9NqXLBaxPXDO0
+Qy64S/MKnw58/rPXKwWAuenZRzpkgpvMee6W2I8MMsFS7f5orL9AGf4YYLzk
+VNvS7wEsRXjY29OYEwB0lH47u17j/r8t/7YpXZcB2kImOG77btb4uQHmp7Le
+57v0v9vWF+09zy8+Z8isEQDmqmcfqTETrJzvQ+3x16XreKT+V0EmWLL9t/W2
+Llye5+HXfoJtfxM/0mO2qR/8R+Y8r9Jn69h4zF39+cBj6e9Kvg4AR4Tue6Yf
+rmvjNe3/0vDvi15LtGd/N167X5Uu8xIF2SAwkfAkfIlq/+3NUHleSzZ41h6G
+ADAnod9cqU7ZWC3ruStdx5ZyXoVumeCPLvXm5PdhW2/z0mXKlHFTcdK+mSkn
+bBuf+SofhOMy43p3pcsEAHNxYib4R3ruo+vy9JhFXqPKBIt89mSDwOhS3vex
+9t+etswdfNPz/E3Z4LPSdQeAc42RCVbOvZlzX6BHH/G3vjKjvR+zzwYHru+r
+ls+efBCO2B+3l/SdAQBdhIf7Hh/9Rrb4UL/u3B9vM4+7Ll23E9pCJlim3WWD
+wCSa1grd/7f3DZnel57nz2WD5gwCsGih334TJ82Xq/QJ7krXt1YumeAMXVo2
+mOr8R8oBs+MTpcsHc5b7zjCmB8ClCt3XQjmahWWynbvS9evZFjLBsu0vGwQm
+0ZINPmvIBqMXPc6fywbNGQRgkcIZa8uc+Hqz6QfIBOftErPBSt2bxnFelS4b
+zJVxJwAYNhOsnLO+r++mdD07toVMcAZcowFzEJ6Ez+fuFRgfa84gAEs3dSZY
+ed2vM6i7THABLjkbTPXPrf202H1dYGzGnQC4ZD1zsF3qC256nP/PDK10XQdu
+C5ng+O+HazSguPAkvGzIBuNehE87nqOeL5ozCMBihAH2mzj39QvX/1ofcRlk
+g43ri34oXTaYI+NOAFyisTPByuvcp+dfla7zQG2hvzfd++IaDZiF8CR8a8gH
+H61D2vD8732fAwClhRHWllmSlAneX1q9l+zSs8HUBvX1mw7MHYQa404AXJqe
+meDXc34XU6Z4W7rODWWTCc6YazRgLhr2C4y+dHjui1PmGgJAKTJBmeBSyQb/
+bIfc3++2dLlgbow7wTpl/q7do83F69HH2aXHXQ/wmh/m9rsqE1wG12jAXMQ8
+rzb3r+rlkedWc8U3pesCAE169pOiuzVdn8sEl082+Gc7XOXGeEqXC+Ym953h
++x2WTzYIv5TIBCuvvSld/0pZZIILIhsE5iQ8CR8bssGPR573JT3uW+k6AECO
+TPBnv6NLfznW+3np8tL6XsoGf7XFTeYz7PMLFSGzl27pMgHnkw3Cn32c3D7U
+ObEf+LZ0mUdqB5ngAskGgTmprQ1al10ntPac1vmFAFBCz0zwrP0m5ib1N+4u
+LQtdM9ngb23xKvNZXuWYD5wijRU++r4vXS4YWxybSOsbRd/23mce82bvU23c
+43t6zrPSdThax4LZ4CW0L/PWo49zyATj9fPq9qWWCS6bbBCYm/012ueGbDB7
+nVmZa/i5dNkBoCoUXFumNJngeskGH7XHo3GP0mWCuUi/g/JzVq2SUb1vudf5
+ZeXxL1Oe1fTYReyXMlU2eKntyzzJBP9sB5ngCsgGgbnZX5+9brhue7ReaLzX
+q/Lv7vsCYBZkgjLBNZMNPmqP+jpSd6XLBHPR8Ft4VbpcMITaeESb75XnvOv4
+nIPXpevZWP+Rs8FLb1/mJf52hfxa8heVh8kE10U2CMxRyz1eL2uPO8wZbN2P
+EACmEC54v4n98bxjJnivv7FsssFH7VH/3N+XLhPMQcjPGbwrXS4YS3i8fuWu
+Ol5RGb/4Up2zljKwpufGNTCz+6uUNnY2eOntyzzIBP9sB5ngCskGgTlqudfr
+U+Uxz1zLATAH4YLXlunRX46Z4HXp8jLIey4b1B7QKo0h5sYPN6XLBmOJ4xJp
+fOLR3LTKGEdjfhaa91eZ5dqXBbLBi2pfykq/Y30ywds15mEywXWTDQJzlK75
+mtZ8eJYe8+nYtR8AjEkmKBO8RLIw7QHHhPwc+rvS5YKxZdZA+l7JrV4eeW7T
+/iqfpih777pOnA1eWvtSRs8sbBdWuk+CTPAyyAaBuaqsB1H3rnJNZ84gAJPr
+kYtV+0syQVZBFvaoPW5r7fGjdJmgpJbfiOelywZjarjH+ZBlHd3XruUe6S+l
+65Ytb5l5gxfTvkxLJnhSO8gEF042CMxVvOer4brte+X6z9oPAEzmxEzwqnS5
+B6r73wvd9lL8IRNctyGywfBrf8rflK7bie1xVx8rKl0mKCG0r7+2LV0+GFvL
+vLSPPc5Rnxf3M/8qXbdsWafPBi+qfZlOeNgft2smeL/G7EQmeJlkg8Ccheb1
+4F2/ATCZI+OdOYvebyLlNtepzv+iY51XtWYqrZ+PIbLBXD+093nmIPf3X7pM
+MLXwcO9M0/0jd6XLB1MIT8L7hnubO691tKTsqkA2eFHty/hSf+e+RyZ4XbrM
+I7SBTPCCyQaBOYvzAluyQXMGARhVz77Sz/HPpV1Lpzq+SvW861FXmeCFkg3+
+Vo/nmXpsS5cLptLhd/Kr3wcuRVybMrcnSs9zLCa7KpANXlT7Mh6Z4J+/3zHr
++79kgpdLNgjMXboPzLUbAJNLmdmqMsF0/f829fG69olz/m+Z4GWSDf5Wj7f6
+0yxJ5TdgmxHHSjvtCRge5gl+CO33k8gFuRgte9l1ntOWzrOY/fAyf/OjZYOX
+2L4ML/0G3nXs6/y8/7F0mQeue/z9/5/2/qZjG8T+4lXpsjP650JfBpiteB+Y
+OYMAlHKk/3g/52vnNHb7Ko3fdu0Hd/HPjfderiAbrNbjdul1YN3Cw7yAt6Hb
+frHV8dC7kM8Pb0O3+0pu/U5wSRrGLT71PEdT/tV5P73e5Q7h2YDXh6c6miku
+tX2Zh3BCJrjk37Dw+72gfX7/ZYIXJsgGgZnbX6c9M2cQgFIarpfjuOh16bI1
+lPUwdtt3bdCu/lHpelL8c7atfy5OOEfu76r3eUrLjDPdlS4TROHh3pCbkX4H
+jo2pvi1df5hazKkymdPrnud42ZBdjTcfbznZ4CLbl7LCw9rv9Wu1NvEad1GZ
+YPi1T/wQ94LG64ar0nVi0s9Prk+2KV0ugKradaA5gwBMqtLPug8zyQQr/cDY
+hzvlftC+/s1c6k7xz962/vk44Ry5fmjv85QWHmfwt6XLxGULv/b/KzG+b0yR
+i5XZC+X7CefIzY2LXoxW7uVkg4tsX8rKXKct+vcrDJsDVv3PS6g/o3ymcn2y
+TelyAVRV7u8yZxCAyaVr5m3B149jva/SeO9dj37uUOLrddqDivULssFqPep1
+2JYuE5crjRlOca9I/ffhxpgilyzOXxtincr9cz5PvRdeWEA2uOT2pazcNWvN
+bH+/wq+9IWId7sI4/b+4f/x/VrquFP2c5fpkm9LlAgCASxV+7RHRdV+nscd9
+5YL8KTfOcsI5cv3Q3ucpLVOHbekycZnS+OGxccPb9Nvy6Ds9PNyDsqmMQbb9
+9sR/j3MWXpWuN8xBeBLeD7DeZdNeeLNdNynz3TDK2pyX2r4M8Nl5+G3L/TbG
+37Gr0uWrlPMqTH8f6P+mj0dDn2xTulwAAHAJUl/wOgy/NswQvs6p38w8BNlg
+tR71OtyULhOXJ/2GNH2P/wgL3D8JliTOPRtpvctvMdMqXb/GMk+XDV5k+zKM
+2nXrXencI/x+L86Ye8Qf6+O5LqCpT7YpXS4AAFi7MP3ab/qMnC3IBqv1uKvV
+4a50mbgsTX9Lya3vcRhX3KtuoPUu6/nX7Oe0Zb5zBs8GL7l9GUbK4m5L5B3h
+cQ54P4M+nmsD/tRwHbkpXS4AAFi70D7Xo6Q7fUaaBNlgtR63S68DyxUe5p03
+zTe4Ll0+uAQN89H6rnf5con74GW+d8bIBi+2fVmeMK99IXJuSrcR89LQJ9uU
+LhcAAFyCGfYbb0q3CfMmG2xvi2DvFiYS8utQ/zCmA9MJT8KnTO7Ua53K/eM/
+19fM3HtWum5Hyz1NNnix7cuyNFwTzsm2dBsxP7JBAAAoJ8xr7uBN6fZg/mSD
+R+vxoXS5WL/wMC8h9z3+qnTZ4FLEjCqTW33qeY43S13rcuxs8NLbl2UJD+uH
+ltg7sIvr0u3DPMkGAQCgrDCPuYNvS7cDyyAbfFSX+jhQ/N/W5GU0LeOPvsdh
+QnFty0zu1DkfS9nXt9rz35euV+fyj58NXnT7sjy5a+TC4rWCe4ZoJBsEAICy
+Qvm5g9el24DlkA0+qstNpi7b0uVivRrGHu9KlwsuTcyZMtnVizOe/7F0nXrV
+f/xs8KLbl+UJ85o7GMthnXtayQYBAKC8UGbu4A+5IH3JBh/V5arhb8vcQUbR
+8Hth/A8mlvat+20fux7Prc+JW1xuNUE2eNHtyzLlrpML+BqvT0u3BfMnGwQA
+gPLC9HMH3UvKSWSD2frcZupzV7pcrE/83s581m5KlwsuTZy/dupeeJnnLnKd
+yzGzQe3LUoXycwdjLuj+NDqRDQIAwDzELEEuyNzJBrP1uWr4W/tQumysS/xM
+GcOB8uK+d6fshbd/zMvafLg3I5Ttzd6X+FqjtsG42eBs2nd/jmepPPV5jO/6
+rHHK5chdK0/kRi5IH7JBAACYh6a8ZGDuJeUsssHu7ZJcly4b65G+w6ufr/vS
+ZYJLlLK3XtlVLe/6PHSulMmvlpwNzqJ9GzLK3pkllyWUmTt4U7reLI9sEAAA
+5iH1I+/lgsyZbLC1XvXcxngNg/LZgvLCk/C0a06UmXMWM6/XA5Ylnv99Q1kW
+mQ3OpX335/nYIReUD5LVcs/YGN6Wri/LJBsEAICyUiYY+49j3l96KxdkCLLB
+1nq13Sd+t3dVuowsV8jvNWg8ECYWs6dcNpR8zvzb57HWn6yc+5CRrSEbLN6+
+4WFd1njub5k88nXDvMZnpT+bzMeRa8IhXZeuK8slGwQAgHLiuO4E/cab0vVk
+PWSDR+v2/Mjf9I2MkFMYv4F5CE/Cp0wuNIt956bMBtfcvikTjPnf05bH1HPK
+96XbjvlI2eDdiP27H64BOJdrSwAAmF68xzOMu36oXJBRyAY71e95h7/v2/Q9
+cNVwjj9SO23T2FJuvdL79G/xMa9K15vRP1fGb2AGwu97+kXfS5epUrY1ZINF
+2ze2WypD6zzAtPZptaxfSrcd5YVp1oOJ535euq4sn2tLAACYTo9M8G8G6Dde
+l64v6yMb7FzHvveL31WcOp4Un3ejT79Oxm+gvDh/LTOn7VPpclXKt+hscA7t
+Gx72b+y0Pmr4fa/Hb6Xbj3LCNJlgFO8VuypdX9bBtSUAAIwvdM8E47j+VVN2
+0sN16TqzTkE22LeuU6wb3JQ1uqd8RYzfQHm1LOjPvfBKl6tSvqVng8XbN+1d
+2LiWaO2xb4J5gxctTJcJHnJB+8czGNeWAAAwnv3xKnTLBOM4/lXtubcn9Blj
+v9TagoxGNnhSm8Vxo5sC+WD0oXT9Gexz9Dzz/r4tXS64JGkPulnuNZjKt/Rs
+cNbtmylvNRuczfxRJnjv+2WCuXXh+7qRCzI02SAAAAwvXWffdejn3TVdf4eH
++YN9c0HzhBhVkA2e03ZxHOntCWNEP9J3xYfU/gd3PcakrkrXn0E+Q4/GCkuX
+CS5F2l+unlvNZq/BVMbFZoNLaN9Mmd9VyvqmdHmY4D3vlwnepP7cHx0f33ie
+0vVmnRr6ZJvS5QIAgCUKA2SCtfPd9MgO5IKMLsgGh2rHOE70KrXnh/D7foO3
+6b9fd/m7Dg/zyeI57n1HrFt4nCvfly4TXIpaDjTLuWILzwZn376ZMn+y1+Bl
+OCUTrD3/0fVzR9el6856yQYBAOB8Q2eClfNedTinvSeYjGxw3kL7/obywYVL
+GXD9fb0qXS64BJUcqOp96XLVyrjkbHD27Vsrb5zn+N2cwXU7NxOsnafv3MHr
+0vVn3WSDAABwuh6Z4NdTr7ND+9xBuSCTkg3OXxp/atqv9IfvjOUKD3NNjeFA
+AZUcqOp16XLVyrjkbHD27Vsr72Ge46znNnLi+ztQJlg756Nr6JZrNfdyMTrZ
+IAAA9Bce5vO1ZXYH9+fe8xma5w7eGuNnarLB5WgZg7orXTZOfk9zvwfb0uWC
+tYs5Wya3ip6VLlutnIvMBpfSvpXyPktZ5pfSZWHg93aETLB27mPnlQsyGdkg
+AAB0N2UmWHvd+mvelG4LLpNscFnCw56Fue+ot6XLxsnvqWwQJhbXtsxlV6XL
+lSnnUrPBRbRvpbxx/dNvc80uOeE9HTETrL1O031bkfVgmJRsEAAAjiuVCdZe
+Xy5IcbLB5Qn5PeqsLbpQskGYVmWOWG5e29PS5auVdXHZ4JLaN5X3fSrvi9Jl
+YYD3c6JMsPZ6udeSCzI52SAAADQrnQnWyvJh7NeAY2SDyxTy+6LelC4XJ72X
+skGYSNzvLs0Py+VW0ee9N6XLWSnvorLBBbbvG7ngOkydCdZeu34tfVO6PbhM
+skEAAHgs9Rdzc21yc2+27vPkUsgGlynk96kzd3CBZIMwvvAkvGvJqxrNoNyL
+yAaX2L6VPRFn2650eB8LZoK1Mhxe/6Z0m3C5ZIMAAPBLj/6iTJCLJBtcrpCf
+A23fwQVpyHi3pcsFzMNSssGlifME03xBbbpQc8gEa+WJZbku3S5cNtkgAADI
+BKEr2eByNeRKX0uXi17v4StjOEAT2eAobXrIBV93fLx2n5G5ZYIwJ7JBAAAu
+mUwQ+jmWDaa/qda/k1OzwZRt+Rs87/27zbS9Nl2IkJ/7eVW6XMA8yAYHb89n
+aT/ETnsephzxY+lyIxOELmSDAABcqp79RWPnsOucDX5NGdR17m+nTzaYznd9
+OGfp+i9daktjAAuV+c26L10mYD5kg4O2Zd9c8HV6/IvSZb9kMkHoTjYIAMCl
+SWPj9/qL0N+xbDA95nllTOZH+lt6Vfn3o9lgeFg7sTrH7auMfpD373mm7bel
+y0Wn9y6X634oXS5gHsKT8LSWDXZaA5NsWx5ywV1Pn0uX/VLJBKE/2SAAAJdC
+Jgjn65INpsfl9kWLf38f9v6rhr+9Tfr7y43rPC9d97WQDS5Tw++XvwvgkGV9
+qudU5g6e1JYxY/1yQi646zrHkAHfL5kgnEw2CADA2skEYThds8H02A8d/u66
+eFu63msSHuZgVtv3rnSZOPqevc38XXjf4MKFJ+Gd+WyDt+nnE3PB7zFXLF3+
+SyEThPPJBgEAWKsemeCt/iJ00zMb/KPj32Cbu9J1XpvYptp4OcLva/QauwHg
+YskEYTiyQQAA1iZd49bHvrOZg2tf6KdPNpgen+tzdvXDmM4o76FscCFa8nXv
+GQAXQyYIw5MNAgCwFjJBGF/fbDA95/bEbHBbur5rlGnnD6XLRPZ9iuOg9fVf
+ZeYAXAyZIIxHNggAwNLJBGE6J2aDVx3HdKruS9d1jdIYmwx25sLDOqK5XDC6
+Ll0+ABiTTBDGJxsEAGCpZIIwvVOywabnHfGqdF3XKLartp63/fG2ZSz0pnT5
+AGAsMkGYjmwQAIClCQ9zkLqsUXhvfgUM64xssGnftGyeX7qea7U/PmTa+6p0
+ufj53lwf+Ru5KV1GABiDTBCmJxsEAGApUiZ4IxOEck7NBtNzrztmg5vS9Vyr
+8Hiu9X3pMi1NeFjv8226R6Upy7tPbb1N4y5/ZM4Tx0Ffpbz2WG5+U7reADA0
+mSCUIxsEAGDuZIIwH+dkg+n5xzKQu9J1XDOZ08nt9kfKA499frv8TvU5xw+/
+a8CapeuKR/dPsG4yQShPNggALEF4uKf+eelyMPn7LhOEmRkgG7w+8vd8VbqO
+a5Zp723pMs1dj7HLod35ewDWLvXzvurrXQaZIMyHbBAAWILwsH6Xe+cvROoz
+5vbEys2n2JYuL1ySc7PBdI77piykdP3WrKH//6p0ueYqXXt8LZAJfvW+AJci
+PNwLeLiuvy5dHkZ7n2WCMDOyQQBgKSpjybGvYN2ZFerRZ/wRrD8ERQyUDV43
+/G1vStdvzfT/e7VV02c0N7fvQ/q7qLrrOP55cJ+ub8ybAS5O+P0+jFvX+Osh
+E4T50jcAAJaiNh5975plPWSCsBxDZIPpPPf1jKV03dauof9vftrjdro58lt0
+27XdwsPcw+taZnhb+d+vjIMCly487Odav+Z/W7pcnPWeygRh5mSDAMBShF/r
+zVR9kBMtl0wQlmfAbLB+HhnV+O/dH5nv123pcs3JkVzwztglwPAafp8O37ub
+0uWj93spE4QFkA0CAEsS8vv+2JtigXr0GeW/MCMDZoPVccD70vW6FLlxudJl
+movQvI7oD9k1wLjCw5xqGdJCyQRheWSDAMCStIzb7VJuuCldRjq9h/f6jLBM
+Q2WD6Vw36RzWDZvu/avfY/O1dJnmIDys/Zn7LYq/V/YABBjZkX6eewZnSiYI
+yyUbBACWJDSvN1N153pmfmSCsA4DZ4OH/qhxvunev5vM9+5V6XKVlslMD7mg
+zybARDrmSz9SRnhVuryXTCYIyycbBACWJrSvNyMjnBmZIKzLkNlgOt+H0nW6
+JCE/L2NbulyF2+TRZzqNdZovCBSRsq+7C/Q3oVs/T/+h3GdTJggrEWSDALBY
+4WF8r3T/rYR/Gfr1GeNz7BNU5vN53+H9iVnvVenyAt2EgbNBJn//cvPv4/je
+Rc6PS+2RG9+8Ll024HKl/kuf/s6l098b/zMpE4SVCbJBAFis3Pgsre733oYL
+Hf+c8HO5Cd3GM+5cd8Ly5H57SpeJ3u/hTeY7eVu6XIXa4m3u96l0uYDL1vFa
+mnx/b6u/N+hnUSYIKxVkgwCwWEE2eI7Yb7FW2LCfx3hdedeh7e9cb8Jy5X57
+SpeJ3u/hVea7+SLX0Az5fQavSpcLuGwdr6l5LK5HYv7gMJ9BmSCsXJANAsBi
+BdngqeI44HVwP+lQn8N4PXnXod3vXGeyUFd7Gx68efPmZrPZ7KpKl2kmFvWb
+EvJzB79e0m9jyGekt6XLBdDx2poHMbvaBtnUUJ89mSBciCAbBIDFCrLBvmLf
+5eLmRIz4+YvXkXcd2v3O9SULt905HMePza78Z7Wz8JCL5cb9LiYbC/n1RM03
+AYoLD/cxbi9Qn33l74P7PYf8zMkE4cIE2SAALFb6HS/dfyvhn4fufcbDfaT6
+jMN97q5Ct0zwfu+6dHlhANudw3H82OzKf1Z7Cfls7DDmt/rfzfCw9txvdS9d
+JoBLFR6yqc6ZYOnyrkWQCcLFCrJBAGBhQn5vIJng+O1+FfJr0Omvs3bbncNx
+/Njsyn9We2v5Xv+69vG/zPXEXekyAVyqlvtV9DHGaW+ZIFw42SAAsCQhvzeQ
+THD8NpcJcsm2O4fj+LHZlf+s9pbGBpvuufn5m1q6jCPWvV7fD6XLBHCpjvwW
+vS1dvrWQCQIHskEAYElSP6ap7/JBJjhoW8sE4cF253AcPza78p/VkxzJBw/f
+89uu44PpfHGs4To8Xhc8/vdZ7P2bqee2dJkALlFovv9T/264NpYJAr+ZczaY
+fhfq/Yht6XIBAOWk8cn6tcudvsugbfxHx0xw1fNJoGK7cziOH5td+c/qyXp8
+939NY7Vv03jCwTb99y7rfh/cpvywyLivbBBgHsLj+z/jb8ks7iNZOpkg0GTm
+2WCubLvS5QIAyoj9w0w29ap0udaiR7/Ruq1cmu3O4Th+bHblP6tnS5lfl/HD
+If0oMR4pGwSYh/D7/Z/b0uVZA5kgcIxsEIClCk/Ci713ybe9Xcb3ymOedTjn
+5733petGw/vz+3yGW9nUYO0qE4R2253DcfzY7Mp/VgcRHtbwuZ04H/xzTHiq
+35nMa9tvEGBi4df9nzEfNFfw/PaUCQKdyAYBWJLwJLyM2V1DDtjFt5QTPs2c
++2N6zOvS9aTh/X/o30TXpcuyBjJB6Gy7cziOH5td+c/qoFKf/ObIb8QYJllL
+Ljxe//SudJsDXJr0O+O+z/PbUSYI9CIbBGAJYl6396Uh7/s5L7DheYe5hZ9b
+csJ61vgoN6S8/fFqqrHCtevZb5QJgmzQ0e3Y7Mp/VkeRfjeu01jifYdc7yY9
+flM7z1X4tTfhsX0JR78XKGTmRpZua4BLsz/eli7DkskEgVPJBgGYs5TtNeV6
+bwY6V9WX0nWm4f172P9IRnV+O153GNfVb4TfbXcOx/Fjsyv/WZ1MeFgDblNx
+dcI5rjqMZ16PWIftXMdDAKCNTBA4l2wQgLlKc/qy8wRHOu/OXoOslUwQzrLd
+ORzHj82u/Gd1kcLx/Q2vR3rd55nXMn8FBmSPeBiWTBAYimwQgLmJa3o2zO+L
+fcaXA71GUz5or0FWRSYIg9juCh+fPn3avX//fvfyLy93L/7qReniOPLHZlf+
+s7po6Tcr9xsVxz9HWVM893tYuh1g6ewRD8OTCQJDkw0CMCfxPtGG+0ljLvhi
+4NfK5Y/2GmQVZIIwqO1uouPbt28/M8CD3Jhp/O+OWR6bXfnP6uKluXy5cc+v
+I71efd/Du9JtAEsV7BEPg5MJAmORDQIwF1PmgpXXs9cgq5Kun+rjnDl3c7nm
+gwXY7kY+YibYdT7Fly9fxi6O47Rjsyv/WV2FkF/rM9qO8Fp3skE4T7BHPAxO
+JgiMTTYIwBy05IKjrhdT63fas4LFStdN9fFNmSAMY7ub+Pj8+XN2PNR6orM+
+Nrvyn9XVCPn1RX8MPfYpG4TzBHvEw6BkgsA59seHdH3bRe6+8q89nn83Yj1k
+gwAXIDzsL9i09syo/b54H+sUGSSMRSYIk9juChxxb8H67+K7f/yuRFEc3Y7N
+rvxndVX2x21uHHTg15ANwgmCPeJhUDJBYAgpGzz2HTKUUdb8T/WQDQJcgH3f
+7lNDn+/b2PtIpD6tPStYHJkgTGq7K3DEOYL138Y4n9Ax22OzK/9ZXZU47pn5
+XYtjpn8M+BqyQehpyr0gGvJH/TZWQyYIDGl/vJowG9yOWA/ZIMDKHVkrZpL7
+QVO/1p4VLEIaJ+2SCd7Ha8LS5YWV2O4mPr5///7od/Hp3346dTEc/Y7Nrvxn
+dXXSOGj9N+56wPM/GnctXWeYsylzwcrr2WuQ1ZEJAmNI3y1TZYObEeshGwRY
+sUw/r+rzhOX4ZM8K5i5lgrnx0VwmeF26vLAy293Ex6dPnx79Nr756zdTF8PR
+79jsyn9WVyfk5w7eDnTu51Pe/wxL15IL2iMeOpIJAmPreD/52Uaug2wQYMUa
+1oc5GGSPClg6mSDMwnY38RH3Faz/Nsa80DHrY7Mr/1ldpf3xtfab92Og8+b2
+Y/E+QkawRzycRSYITCV914ydDQ5yr15LHWSDACtV698VmzMIcyUThFnZ7iY+
+4vqh9fVE4zqjjlkfm135z+oqNYxvXA1w3vsxMkdYo2CPeDiJTBCYWlOuNrC3
+JepQum0BOF/LWjTmDHLRUt+xSyb4Y+xrMeBP292Ex5cvXx79Nr7+u6+nLILj
+tGOzK/9ZXaWGsYGz2jveV5Mbky1dV5gje8RDfzJBoKSO3z3neD5y+WWDACt0
+ZM7gt9LlgxJ69B1/pMf9UbrMcEG2uwmP9+/fP/p9jP/NMftjsyv/WV2lkN8X
+8OT7Y9Jv7v3QeSOskT3ioR+ZIDAH++N2xFxw9LU2ZIMA69SyT0X0rnT5YEoy
+QViE7W7C48VfvXj0+2g90UUcm135z+pqZX4Xt2eca5s5313pOsIc2SMeupEJ
+AnMS76MbMRu8maD8skGAldn3H1+09C2jF6XLCFOQCcKibHcTHTEDrP82xqzQ
+sYhjsyv/WV2tobLB/fGq4ffW+wc19oiH42SCwBzF75oRs8HrCcovGwRYmbgO
+TEv/0v4RrF7PvqNMEOZhu5vo+PTpk/VEl3tsduU/q6vUMLaxPeE8zxt+f29L
+1xHmyB7x0EwmCMxdyK+hP4SrCcq++Gww7smc9mz+bMwbYHdsPVH7R7Bq8d6q
+jtdm+o4wL9vdRMfrv/v60e/jly9ffnvMx48f2+bfP/Lmr99MVfxBj8+fP//M
+RaNn/9Gz3bt//O7RY2Jb1Nvs6d9++vM53759m7rIm135z+oqNYwN9Grvllzw
+h/tw4DF7xEOeTBBYivQdNHQueD9R2ReTDaa9md9V2EMLoGb/Pfj0yPjl69Jl
+hDHIBGHxtruJjphrVX8bYybWdsR5hvXnHJ4X87Gl7FN4yABj/td0nRCzwsMR
+//+xjsdy0ZgdTnhsduU/q6sU8vulPD/z+SdljHApjtzTaXyLiyMTBJYmjUUN
+nQ1+mKjss88GUybY9Z5de2gBFy3NpW77nnxauoyj1v9hf5vtSDYDlfGPNH42
+VjmvBirn1YhlvB7wPf+nQd8R1mC7m+CI8wPrv425uXL1I+5HWH3OktYgjXP7
+uvSlYv55OGL9+sybjPnpRMdmV/6zukr747b+29nxeZu9u5bf3+vSdYM5CvaI
+b2+fhz7D3Uji993Zc5nDQ7/uZsRybgdqy+cjljHqfB/JkXLGc/0/Qb8OWJD0
+WzB0NvhqorJvcq9fuk1by/wkvGy4brKeKHDxWuZVR98HfJ2PfcYMG3wetO7j
+3Ksz+O9zaB8/G8LZ63aFh1ywS952jrPvg+rYljdB3xGWYLub4MjNmavOlcsd
+1Twx5mf19UeXduTWVI0O66LG/xv/d8xDq3MCY8bY9NzYLhPNn9zsyn9WFyv9
+vscxgG3G/1n7/bw7cq5XHX6Hr0vXGeYq2CO+uW0axioHdvYeqGGcdeQG/x6d
+oF83RP/zn+rXAUu1P74O/L06yVr8Tb+3pdvzaLkf9hasXzvZQwu4eEcyu0Gz
+uPR6h3We29bD+e27Ooy0Pk4YP3OLtgOUc+wyRpszy9i2LthgfcgB2vL/aDn/
+13PbAZjUdjfBUZ//V50rlztiHnZYVzM+t8D+eoMfMcPLrZEa5/4d5gu2zYt8
++ZeX2d/4idYW3ezKf1YXJfX543jqfc/f6fg7ug0P915twq8Mscv1VhwnnuR+
+Z1iqI/2nix7fSt81Y/dF7gYoZ5fvw3NtzyzjZoIy7s7tdx1py7/Z+3ulP5cA
+TfbHhzn9PvUod/Y3onR7Hi13/hrqZelyAZS2/y781NLH/Djya39ree34b89G
+ff1p7tt8O0A5x75vM7o6s4yvJijj1wHa8l8du6YK8kFYiu1u5CNmYk1z5XJH
+zAEPWWKcL7emo76PYMwKD7ngsXmUMUPM/dZP1EabXfnP6iKE7vvwDu3u3OsQ
+WLtgj/j29pkmz7oZoJxDjgU32QxQzrF/C+4HKGOXe1PvhmgPgKGFYcfQthOW
+O/t7W7o9W8ucv4YabJ08gCVrmFc9yf2nR+Ysjn7/RnhY4/tuxD7PUPtSvBqx
+fxZzx+uB2nPMvm6s/9n7UuyP/yC0zx3Uj4Tl2O5GPnJ76DXtkxfXDT3kZ132
+I1zSkctID3Xtsm9g7vmHeZUTHJtd+c/qrIWHfaWGXtdo0msQWLtw4XvEd2qj
+hz7TbRhpH78w0Hpt4SHTGqOMse6DzL/eH1dhvH0R43mvBirnf7/3b4O+HbBA
+Hb67utpMWOZNrgyl27K1zPlrqFHnwgAsxZFscJS1PCuv3TRn8VvpdmHd0vVM
+l3FQ/UiYr+1u5CO3V15uj7w4b+6w5uZE62ROejTN+2ubQ1k/6vMOD/niBMdm
+V/6zOlthmnX4cvf7XIeJ9kWBNQgXvEc8HBO6z3vXtwNmIwwzV+HsvXd6lnmJ
+2WBuv+aLXm8B4KAln5siG/xeYr4iHPToR96Ege5vBQaz3Y181PfYy62BWc3N
+jq2tudQjzoOs/1bHtsnlpE2HbHBewsPaCbcdMry4JsCr+m9gz0zxRxr7iHNl
+zl4DAC7Rkcxu1XvEQ1cyQmBJel5PN7mduMxLzAbrY8/frbcA8OBIP3O0/l1o
+3zPD/RtMSkYIi7TdjXjk5srFNUarxyEzixlXXFN0rcdhD8W2tjh2yAbnI+WC
+bXPn45hp67p0Ib/P0/P0b8/TuIF5gTCQI/dzrnqPeOhLRggsQbpmPjcbfDtx
+mReVDe6vUV5krl0+lS4XwFyE9vVpxswG2/bMcP8GRcgIYVG2uxGP3Fy5wzy5
++H9f/uXlz/8Wc7Nv376NWZSiR9NegX3mDMYjdw77DZYRmucLdt7/r2FcQFvD
+SMIF7xEPp5IRAnOXrr/PyQYnXZNjgdlgbszbOgcAyZGMbrR+Zsiv9xx9Kd0m
+ICOERdjuRjzqc+UOOVacH1idAxczwlOOmCcOcJ/oWbrM/YuPqf9W59ZWbTua
+8sU++xWecWx25T+rsxEe1gjNfR7iPMLO8/xC/j7nben6wVodyQbtEQ8tZITA
+XIXja/y3uS9Q3qVlg7m10c1HAUhC+9qeo82zbvh+Hv2+V+gqPKy5tg3d7uP6
+0GdMFRjEdjfSEfO/+u9TzMhy64xGp8wbXEo2GHPAen1jO/Q54j6MuXbruy7p
+icdmV/6zOgtNffnwcJ9L79+w3Jhq6TrCWrXkc1Nkg/aIZxVkhMDcpO+lU/tz
+NwXKu5hssGG823wUgJqWvub3kV7PXoMsRo+M8Ed6nIwQprHdjXTk5sod1hAd
+KuNaSjb49G8//a2u8X8P0Z7RRHs0bnblP6vFpd+y3Hhor/mCtXPeZc7nNxBG
+EOwRD4OREQJzsT+uzujPXRco75Kywdw6edYTBahp+L48eDHx65nbzSzJCGF2
+truRjtxcuSiuJfrx48fsf+97LCEbzM2TPGUd0FyuOtFeg/HY7Mp/VotLv0u5
+36uTf6v2x9vMObel6wprFOwRD4OTEQJz0PF7KGfyMaeFZYO5eTAvao9503Kd
+k/OxdL1ObIuX6Voy+hYyaz+ktqi32ff0nGel6wCMK303TNLXDPYaZMFkhDAb
+290IR9PeeNU99up7EUZ919lcwvHuH787u55N7Rkz1omOza78Z7Wo9LuV+806
+q21C/j7ns/JGIO9IRmePeDiDjBAoKTys7983F/xaqKxLygbra6K37pOcrrVy
+66h/S/nYIu6JqmSATddw0cvK41+2ZAJVb0rXDRhPS3/z+9Dff8Feg6xAGmvt
+cg33wzwKGMV2N8KRmytXn1+XWyOzmh2u5ahnoEOtJxrnWcbMcKJjsyv/WS0q
+5PcxuR3o3LnfwW3pOsPaBHvEw+hkhEAJ++PVCdngh0JlXUQ2uL9OeXHKtUvm
+umcxa5Duy/qsQ773c5y/8py2dSlyrCcPKxaa9x0c7LvwSL/WdwyLk+ZNdMkI
+Yz/zunR5YUW2uxGO3Fy5eo7VNBduwrxr9CPuBViv3ynriebmWE44ZzAem135
+z2pR4WFPwfpv0tVA575q+M27+HaHobX01ewRDwOSEQJTSved980GXxUq61Ky
+wdycuZdHnlPNE+M8mcH32Jq4DZquGz+mfz/sZR3z0DeV5z1ru+YMC5k/CfSX
++n9N84gH+U48ck+C7xcWS0YIk9vuRjji3Ljqb1PTvni5PQmP7d+3pCM336/v
+eqKfP39+dI4J9xk8HJtd+c9qMQ1jDXcDv0but8/aojCwYI94mJSMEJhKw718
+jQqWcynZYH3+X+t9VCkPO4yHx+cufn+9NMafWyP1dWVsvnEu0P7fPjdcA1pb
+FFas9n1Y9W2I78aW7NGeFayCjBAms90NfOTmysV5hLkjl3vFtTLXcuSyz77z
+Il/+5eVvz4+567dv30YqceOx2ZX/rBYT8msUXQ/8Gk37GX6VD8KwWvpS9oiH
+kcgIgbHtjw89ssG7guWcfTYY8usefGx5/LNKljjaOu2F2qJ+3fi9kgsem0fZ
+dI/YqtoIeOxIPnjyPamhfc6gPStYlZQR3soIYTTb3cBH37lyMQusPz5mhks/
+cmum9t1PMa4bWj/HxGuJHo7NrvxntZj9sc387lyN8DpN+6TE37jnpdsB1qJl
+nMYe8TAyGSEwlqbMrcF2buUs3X6/lTE/9pxdCz08rCP6bY3XNw0Z6be29ujw
+fPeIwYVI3wFN6wv3+r5M5/rYcK7DfO1Fr+MMTdK1050+JAxuuxv4yO2N1zZX
+Lpd/tWVoMTdcwp6EMQ+t16vPeqmxjvXctGn+5QTHZlf+s1pM5h6VHyO+Vi6H
+/Pmae29LtwWsRUsfzR7xMAEZITCGHtlgsfvuFpIN5q6THt0/tf9vL8OvNTdX
+t05my/1kjXMoM+fIzhsqXTdgOum7pGntmo/pfoym79j4b03rE+/S97W+JRdB
+RgiD2+4GPHJz5brsjVffnzDKrZt5yMuWsCdhzPHqdYrrrZ76/Dd//WbE0h49
+Nrvyn9ViMr87dyO/3k3L71tcY/RV6TaBpQv2iIdZkBECQ+o4XjTafX4dy7iE
+bLC+x96jNTBruVnr2ppLFfJrw/daZ0I2CBzEeyiO5HxdfR7ynlZYGhkhDGa7
+G/DIzZXrMtcttw5p7nnxcUvZj7Ced8b/3fWot2PhXDAem135z2oxU2eD6TWP
+7Zdynx7T+N7sj6s05voh1aE+9voj/feb9Lir0m0NUwr2iIfZkBECQ9gfbzt8
+j9wWLuOss8GQnyv3rvaY95VrptWuYRfya8P3Go+XDQI56T7SqGk9mz/7jpXH
+rvI+DDiVjBDOtt0NeMS1QOu/Y217DR6OOB8wl6VV5w7GOXfxvy9hL8JDWau6
+7jVYf27BdUSrx2ZX/rNaTIlsML3udcrvjv3GHbLCu4ouz2malxhf94/S7Q5T
+OJIP2iMeJiYjBM6xP553+P4ouk7/ArLB3Fy5p+nfnlbmvHwZ4l6quQrNa8P3
+WvvBfWIAMK4efci4Z9RV6fLCjGx3Ax65tUG77g2Ymzv48i8vfz4/5mVxvuBM
+crKjR64uXdZBjblntQ3jXowzOTa78p/VYkplg+m1r87M+k4VM8lt6baHKQR7
+xMPsyAiBU4Xj99ZdFS7f3LPB+ly5L+m/v6jdT/X5jDZ4VqB/U9c6/6/hPq9H
+a6seOUdTvth5v0IAoJsefcib0teDMBPb3UBHbq5cl70GD8dhL8Gm8dQ+5yp9
+xLL2zQareWLMRPvsTdh2xLmX8dz13Db+tx6vsdmV/6wWk8nmJt+jpMfv29Di
+PMLnpd8DmEKwRzzMjowQ6Cu07919P4PyzTYbTPnfozU0Q36d0d2p8wYXkg3m
+7hvrdS2XrhFz7WafMAAYiYwQOtvuBjrinL5T5spVj1y+eMgFq+uLzvmIGWfT
+2HC9Peq5XaxnlzVYux65+YsnvkebXfnPajH7Y5v5/Siy5mYaS4i/XV3XGq1m
+fHepLge36b93eX7RtZdgSsEe8TA7Pfp38bduU7q8QDnp+6JxDGgG5dvkyla6
+XD/Llp8r13ZNdNJ1TlhGNvi9VtfvA7VnZA0JABhZjz5kHGe9Kl1eKGC7G+jI
+zZU7Ze5bXFezOn+wb75Y+ojZXi5/i+J8wPq/xf/Wcw5fp+PNX7/pPH7doY03
+u/Kf1WL2x6vM78b1DMoV91N5m3K+u5qb9N9j2VtzzPjv6ffy7thvZek6w9SC
+PeJhVmSEwDFxbKflu+HVDMo352yw6XrnW7p36tF/P7ENZp0Nhvw8yd7rgDbk
+qvYaBIAJpfHRLnMsPhwbQ4WV2e4cgx6v/+7rQTLSc464T2F83Zix1nO/mF3m
+ctwj8zI3u/Kf1WIaxhc+lC7XiHVtywhvSpcRAGSEQJv98TcN3wnFx3vmmg2G
+5r3xPlUeU9+LMFrdmun7Or0/t54t7fmmdP0A4NKEh3kRXTLCH+lxxa8ZYQLb
+nWPQo76vX/zfUx8xE4z5X1zftOmoz2GMa8K2HJtd+c9qUZnxx7vSZRq5vq9a
+fi+tLwrALMgIgZz98c8y3wP/qnS5Utnmmg3m5sq9qz0mt0bmpxLlHbkt6hno
+UOuJxvmXj/auBgCmISOE32x3jsGO3H6JcR7hlEdckzXmkcf2Z4y5YTXHjFli
+y7HZlf+sFhUe9uabVf99gjrHNUub9iO8+M8EAPMhIwSq9sd/l/n7/2ely5XK
+NtdsMDdX7mntMU1z4VaTd+3r8mKg9URzcyzNGQSAGZARwk/bnWOwI869q1//
+T71fYixD19esljfONWw5Nrvyn9Wi0u/ArPrvE9X7j4Z88N7vIgBzIyMEov3x
+n2f+7mex9sWMs8HvXfbFC/k9CRv37luahvl+fdcTfWmfQQCYvzTu+aFD//Fn
+Rli6vDCw7c4x2JHbx2/qvQZjLti2lmj1OOxLaN7gcZeaDaa6XzXcR7MtXTYA
+yJERwmVryN82pcvVUrZd0TLl58q9b3hsLvf6VrpdB2yLXPbZa17k/vGf62uS
+7j0rXTcAIC+Nfd506D/GPuZ16fLCQLY7xyBHzOPqfYgSew32OarZ4JG1Tze7
+8p/Voi45G0z1z45hxN/O0mUDgCYyQrhMssGeZeo5Vy7tm1d//MvSbTtAO+TW
+TO21n2JcN9RaogCwTDJCLsx25xjkiPP1Su812PeoljnmhC3HZlf+s1rUpWeD
+qQ1yv40fSpcLAI6REcJlkQ32LFN+b7zGuXIN+VdjhpbmGs5+T8KYh56zXmrK
+Fuu5aXb+JQAwXzJCLsR25xjkiDlgvR8R9/Ob83Eo85G9BuOx2ZX/rBa1P27n
+1H8v1AZXmd/AH6XLBQBdyQjhMpTKBvfHq723oWVf7lOywfScUe7Ja5grd3Rv
+vPB4f8Jdbt3MSl42+z0JY46XqdOLM57/sXSdAIDTpbHQR2PCMkJWYrtzDHLE
+9UPr/YhPnz6VLlbjEddAPZT5yJzBeGx25T+rRWXGEe9Kl6lQO+TumXlVulwA
+0IeMENatVDaYXvswfnSbvmv+6FC2XeY8cSzqQ+W7apTyN8yVOzrXrWEd0kfP
+S49bxH6Embzz+xntKBcEgJVI1293HfqPX/UfWZDtznH28fnz50e5YPTt27fS
+RWs8DuuJdlz3dLMr/1ktJuTny13kWpr747m2AGAtZISwToWzwT9q3ys/0v11
+r1rKtqs8920aV6r++9vRyvskfOqz12DleU9zWVp17mCccxcWshdhpay99xrM
+PNc6ogCwQj0yQv1HlmC7c5x9xLVDc9ngXI+YWcY5gy/+6kXXp2x25T+rxaT+
+ef07/rp0uQq2R30M9a50mQDgHDJCWJeS2WB6/dz9dIf1pv5Zw781rVd1O2pZ
+82uDdtobsGHu4OeUG75Ia4kuIidrqMvRdVDDw16K1TZ8M1L54h6PX5aQswLA
+2skIWYntznHWccjZctlgXLdzjkecKxj3GOwxr3GzK/9ZLaZhrLBxD5G1C5l1
+RUuXCQCGICOEdSidDaYybDt8lxzzY8x+R8NcuaN7DVaef9hLMNsf7nOu0lLu
+1isbrOWJMRPtvDdhj3K9q2WPskEAmAkZIQu33TlOPuJ+gjFja+oLvfzLyy57
++U16xDmOMcv88uVLn6dtduU/q0WkMcJJ792du4ZxjovNSgFYHxkhLNscssFU
+jvraoH2Nuq93nNN3yly52jly+eIuZW3Pxij3CO3wtCXffFd77LNaXvelyxqs
+PcvzrOG9kQ0CwAzFa7Ye/cer0uWFZLtz9D4Oe/X1VfqIOeUJuWA8Nrvyn9XJ
+hcd7hRQbV5iT9HunTQBYPRkhLNOMssGmtUW7uBu9fPm5cr3nvqV1NavzB3vl
+i6XFbC+XCSafM//2Of3b4PMEU3kO5z/kkLJBAFiAHv3HGxkhM7DdOS7i+Pz5
+88++RPy/JxybXfnP6uRCZu3MKfroczeXsRYAmIqMEJZlTter4bS1RX8YL5rw
+PXoSPg2RkY5YPtkgACyIjJCF2O4cqz/iPME4X/DEXDAem135z+qk9sfbhu/s
+i2uLTNvMZqwFAKYkI4RlmNP1anhYi+RHz2xwW7oNL0ltP7/oe+ky1conGwSA
+BZIRMnPbnWPVxyEXjHsjdjka8sPNrvxndTIhv8dg9KF02eag4d7nq9LlAoCp
+yAhh3uaUDabyNPUvcuJ3i728p3pv8vslfipdrloZZYMAsGBpDkqXe8VuXAcy
+oe3Osdrj27dvu2f/0bOf+wx2OWKO+Oav3+T+abMr/1mdREPuFX313fxnG32o
+t0/pMgFACTJCmKe5ZYOpTF2+K6Lr0u13ScKT8D6312DpctXKKBsEgIULD2tJ
+bDtkhD/S44xDM7btzrHKo28uGOcVxsfHfDBzbHblP6ujivPe0rhd03fy89Jl
+nIuUk/52b3PpMgFASTJCmJeZZoO5Mj2aM1i67S5NeBK+zHmvwVRG2SAArISM
+kBnZ7hyrOw65YKaP0+rlX142nXKzK/9ZHUXKBG+OfA/LBX+11x+ZNropXS4A
+mAMZIczDHLPBVK6mexHNGSzxfjwJTzP94lntNZjKKRsEgJWRETID251jVcf3
+7993L/7qRe9cMGqZY7jZFf6spu/LV+FhPcu7lu/Nu/SYODZ31XCu5+nfbzt8
+98oFf2+73DjLdelyAcCcyAihrBlng7lymTNY6v14Et7Nfa/BVE7ZIACsVCUj
+PNZ3lBHCiHJ/h6XL1LsOT8LnU3LBeH9kvG+ydPkz70nsP990+H5sXZvnSJ7Y
+NFbnu/bx+5H7rZKfAkCGjBDKmGs2mMpWX5/f/Xal3osn4VOmX/y+dLky5ZQN
+AsDKheNr21XHua9LlxfWZg3Z4FqEh7l9d2dmgqf4eQ9G6frPlb8RAOhPRgjT
+mnk2eJ0b4yldrkuU7o+tZ4OvS5crU07ZIABcCBkhlCH3mIfc+zBRJhi/d80V
+bH9v7oxjAMBpZIQwjTlng6l89e+Bt6XLdGlixtawns6z0mXLlFU2CAAXRkYI
+05INFm//uL5y0xo79e+82/R+Vd12fH5VfPxbmWDn96ieDd6VLhMALI2MEMa1
+gGzwbaVcP/RFCrwHT8L7XDZYulwNZZUNAsCFkhHCNGSDRdv++ZExsvv0/lx1
+ONcfaTygmhne1fLEjT74Se9TPRv8WrpMALBUMkIYxwKywT/Cr73QP5Quz6WJ
+cwMb1hONnpYuX6a8skEAuHDp+rY+Lts0D2ZTurywNLLBYu1+Vekb18X/bo2d
+mYhjF/5GAGBYMkIY1tyzwVTGm1Suq9JluSRxP8G9bw25YPR5703pctbKLBsE
+AH7qkRHqO0IPssEibd62jmj8DjO3b0ZyfyPGMwBgGDJCGMZCssG4bspd6XJc
+ivAkvGvJAxuVLncqu2wQAPiNjBCGJRss0ua3Dd9b1taZof3xKvNeXZcuFwCs
+iYwQzrOEbPBQztJlYP5kgwBAExkhDEM2OHl753KmaFu6bDS+Z1eZ9+umdLkA
+YI1khPD/t3f3um0sb56Ay3fgcweCL2BhwDfAwOEESpwzGDh25pSbOXS0mJMp
+muBECgdwos2NgcMNxoAw2HQNYQezyQRe9mHxHJqq6g+yu6uLfAQ8mPkfS9Rb
+1RTJ6l99nKaWbBD6kA0CAF3iffa+Y8fXpeuFpZENztrXzV6iqTMG70rXRue1
+O94DtrmO9n4FgInICGEY2SCXRDYIAPQ1YOx4F5wTBX+RDZbt65g5yZgWLnPt
+NqXrAoBLJyOEfmSDXBLZIAAwlIwQhpENztrXqTWDq9J10eva3SSunbWDADAT
+GSG0kw1yKcKL8NtRNviudE0AQD1khNCPbHC2fl6nXn9K18Wga3jnGgJAWTJC
+SJMNcgnCi/Bq64+jbPCLtYMAwFBx7JhaqyMjhJ+ywRn7+T7xuuMM1Ipk1g42
+1qVrA4BrIyOEX8kGqVl4ET4e5YE5X0rXCgDUY/v1MuYfXRnhU/w+e8RxNWSD
+s/Xz8evPt9I1cdJ1/Jx575DzAkABMkLYkQ0CAECajBCekw3O0sevE68zm9J1
+cdK1fJm5//jk3gsAlCMj5NrJBgEAoJ2MEP4mG5ylj2+N0y9HzHpz7x8fStcH
+ANdMRsi1kg0CAEA/MkKQDZbqY68ndYv3HdvuNdpjFAAKGpARfpOfcAlkgwAA
+MMz262brrse4sckI16XrhTHJBvUxJ1/Xtnywcb91O+DxbuI9nQ/xObO3jv9d
+ngwAAw3ICP9j61/i+/CqdN0wlGwQAABOMyAj/N8yQpasx3N4TA+l27t0ssHL
+Fe/B9Fl7fh+fB7fxZ1bx/9/Ef+t6jMO1DZ+DdYkAMMiAjDD1vrv23svSyQYB
+AOA8AzLC/9z6Z5+3WZqw29NwrmzQ+Wrd10M2eMHie8acf3OH9yvXpdsPADWJ
+Od+/n/H++yAvZIlkgwAAMI4BGWFqXulN6fq5XqksakLuiZxwPUrXxCTXudmD
+rO/6v7EzQn+HADBAHLP9x0jvxfu88NY4kFJkgwAAMK7mnms4bU3IU/y5TXBW
+FDOKz9k5Momn0m2tQUifS7cqXReTXOuXMSN8nDkfbGxKtx8AahN2e3uP/hn5
+YBwoL2QWQTYIAACTiJ+1v545TmzuF9/Fe8fWeTCZMM/6pbvS7axBZpxuL9YL
+F3YZ/efQb27J4f3D10eP0zx/1vG9o+vvunkc81AAYICQnsc1dV7o/ZpRZcYc
+q9J1AQDApdh+/WMYb/+Z/b1ce9AwqjDNHOhj69LtrEWi7+5L18Tsz4GX8Z7N
+ocH3BeP9y4eWv8tv7jcCwDBxLDb33uCP8TP75tTPBbAXZIMAADC5eI/33+YY
+I5ZuK3UKu7WpU9/PuCndzlokshz7sXKWmBHm7mHKBwFgoLBb81/i7GB5IWeT
+DQIAwDxiPvhtpjFi83s+x3vB9iKlU5PbTX3fonQbaxLv7xz3oXs9nKXjfeiu
+dH0AUJuYD841xhsyFrwLu7l/q9J9xDLJBgEAYF5xnDb3+PDwvIqVjIGUsJt3
+PNVz8HPp9tUk7PapMlZnEi3vQ7elawOA2oR554Ceal26n1iWIBsEAIDZtdyX
+ndNj+Hs+qbWFTP28lDkMuxbG6kwqpM8YbeaRmDsCAAOFXT64hDFeivd3njHe
+AACAMkJ6z8DSHsJuL9JmzdJN6T5i9udkaq3aWNyPGHYtjNWZVMivcbDGFwBO
+FJaZD25K9wvLY7wBAADlhN15gKXHim2sJ7wiMSuY4nn0rXTbamOszhzC7oyk
+1N/sTenaAKBWYbcvS+lx3J41gyQZbwAAQFlhufngfem+ocjzcYqzUjal21Wb
+4LxBZhJ2a8X9zQLAiBY0xtuU7guWSTYIAADlhd3ajacFjB0P3ZTuF4o8F1M5
+wblWpdtVm5Dec/imdF1cnpBeL/xYui4AqF3MXkqO8awZJEs2CAAAy7CwfPCu
+dH9Q7HmYGiOepXSbahR2Z3/+cm+ndE1crpA+G8me0gBwpsJjvE3p9rNcskEA
+AFiO7ddNmGZPx6FuSvcFRZ+HYz6X7E07vP9T67geStfF5QrpPWw/lK4LAC5B
+oTGeNYO0kg0CAMCyxFygZD54V7oPKP4cfBjx+SRfGN7/a/3I3OT6ADCdAmO8
+Tek2s2yyQQAAWJ44dhwznxnipnT7Kf78+zDi88m+hMP7/9HfJXNLvOc8lK4J
+AC5JHOPdzTCes2aQTrJBAABYrpnGjofuSreZ8sLuXJQxnk+PpdtSm5BeM/hQ
+ui4uX+L9xhmXAFyskvOuZhjj3ZXuX5ZPNggAAMs2cz54U7q9LEPYzTd2X2Le
+Pn+Z6fdV6dq4fNuvzfFzr3RNAFyvsDuj7+y1b/Fxmgyk2Rfjc9itk28+b90W
+bt964nHdg8+QtJENAgDA8oVx93jM+Vy6nSzH9ut+hOfUunQ7ahLSZ9A8lK6L
+6yAbBGBJwm4fi8M5U99i3tVH27l+zWMuYs/7MH0+KCMkK8gGAQCgChOPHf9r
+6x9Kt5HlGOn5dlO6HbUI+fXBi7h3xeULu7UUskEAFiM8zwfPtZhccMI2ygjp
+RTYIAAD1iHnNlGNHY0b+FHb7L53zXPpWug21aMkFN6Vr43rE139/wwAsyvbr
+9lJzwYM2jpUP9nkM4z3+JBsEAIDThd35YM1n6k3Y7cE4+XhzxLGjMSNdz7XH
+M55D9qjt7t+bkN/z6qF0fVyXxPvKQ+maAKARzt/PYrG54EEbX7Z8Luzbxpex
+r/p8hjfeu3JBNggAwBUJu3mnzTioyfE2R9bx8/GhD0ffcxf+Psfi+HP0esZ2
+2HuGOZ5nz/YYHOC2dP1LFl9Pcn/DzX2hl6Vr5HqE9DrhTem6AGAv5PdZ6FLN
+56pwXj64OXqsdZAR0v58WyWeD54LAABcrDPGlW3WBdpxc8bYce//bf17j+9r
++uym9LVj9ufYOXs4VXEPpmc/rOL9lU3Cqu/fRvyb3XTcp6nm/hWXI+zmwcj3
+AVi0E8Y+/2frv5Wu+4R2Dh2vPuU+PwYZIfnn2SrxPPAcAADgooX0ur9qcsGD
+dpy798wmPk7fMWMzTr0pff2Y9fl1yvPqoXTtI7S7+Zu4H9Dmx/D3euR1HGvf
+hr/XG/f5O21+Xi7I7ELiHmTpmgDgWNjNszpl75TqxjCp9+auMV3H4/Ud7z0E
++dBVCLJBYMHCi/Ax+rH1M+GP+O9vStcKQF3C+Znaz7CQcytiWx5OrP/l0WP1
+HTNWN77m5OfXKX8nm9J1n9jWm/jcnmO/3mMfSref65V4D/lWuiYASAnn7WtR
+1Rgm9DtnMbtmsOUx+4z3ms8Gq9J9wKTPr1XiurvmQDHhRXgbM79UFtjm69a7
+0vUDUI9w+rzTxeSCR+25G9iGTctj9R0zVjW+5qTn1eaEv49V6bpPbGeJTPDB
+3xClhedzAB5K1wQAOeG8M7GrGsOE7nxwc8bj9hnvPdT42Z5ez4HVJYzjgMuQ
+yQQ/Ha8LjGsFv7asJfytdFsAqEPm83CX/xsWlgsetOeuZxseezzWywF5SfN9
+9kK8QCf8jTyVrnlg+14ncpE53Bl7sxSJ5+fn0jUBQJuRPr81n8duSrelR1tf
+Z8Zkg9YMZh57HWSEVykzznONgVmFF+FVIuv70bVXaMwNU/ng9+YxS7cLgDps
+vz5c0jiyZ3vWAx6vb0b4FGSEF2ng38Z96XoHtGvV43n9EP+mVsfP7bBbe9zs
+a/U5dO/r+y2+bqz9jbA0iefrpnRNANAm7PKy3Oeufw798q7Fj+2O2nvcps2I
+j7/u2WfNZ95V6f5glGu+Slxf1xaYTbPGL2Z5x/lerzME4xrCXD5o/SAAvTR5
+xsD8Y9HjyNC+98zjiY8pI7xSA/8+qjg3r+NvpHkOfz71bzveu1mFRJ4IS5S4
+F/hQuiYA6BLye9+v4r/3zbsWPbY7aG8zHtuvlzx7zWDmd/Tts4cgR6pakA0C
+hWX2Bv048DG+5PYXLd0+AOoQx1lDxo2LH0fGcV0qx1uP0FebzGPLCC9QGLa2
+9qZ0vT3a0zbP/L6GNsCYwvN1rw+lawKAPkJ6b9HXR9/TN+9a7NjuoC0v4/v2
+ZuLf07fPHuRJdQqyQaCgljV/g9b7xT1JU4/TeF+6nQDUIfPZuOqMMDw/m+Jx
+xMd+Gfqdb9j8/irWktH6POrz/B/t+TVhW25CPtf2POUqhcTa4NI1AUAfqTFc
+y/deTEY4Y//KCC+UbBAoJe4l+mOstX7bn/s9t7do6bYCUI+w20cwN94Zct79
+YsaRR/ngeoLHv+mZET5O8fuZ7XnUtU70z+d96Tp7tOMhUXfTttvStUEpIb0n
+26p0XQDQx/FYpMf3ywiH97GM8MLIBoFSmvV8mSxv0H6iB4/3tmXt4LvS7QWg
+DqF9b9H9GWKpbGHR48h9fjfH75ARXqae13bR1zXk90ZddN0wtZBeG/y5dF0A
+0Ef4dV+IhwE/JyMc3tcywgshGwRKadYHZnK8t2c8ZmodonMHARgk8xn5Z+J7
+qssIZ+o/GeEFivcBuq7pYs+WDLvcP7X2cVO6NliCxN/H05L/pgHgUPh7DfzD
+CT8rI5yuz2SECyUbBEppWeP36ozHzOWNP0q3F4C6hOd7iz5lvk9GmO/Dm559
+IyOsQLyebdfxW+kaO+rfJGp+KF0XLEXifU92DkA1DuaBbc54DBnhdH0mI1wY
+2SBQQngR3uSywTMf92NL5vhb6XYDUI/wfI3RQ8f3ywjP7xvjxYUL7WduLnr/
+wcw9i9el64KlCOn839pBAKoR57lsRngcGeF0fWbMtxCyQaCElrMGf575uG1n
+Dp68VykA1yn8ejbZQ8+fkRGe3zfGiwsV0uuK9m5L19dS923qb690XbA0Ib0f
+9EPpugCgjzjPZTXi48kIp+szY77y10o2CMyubX3fmY/7SjYIwJgOxjWbgT8n
+Izy/b4wXFyaTsf2pdG0ddacyzVXpumBpQn7v4E3p2gCgFBnhpH1mzFfuGskG
+gdlNlQ3Gx85lg+9LtxuA+sQxzcn3RWWEo/SN8eJChN1eu8lrVLq2jrqP90J9
+LF0TLFVIn83ZWJeuDQBKkhFO2mfGfPNfG9kgMLspzwXc/vyPzOO+K91uAOoU
+xzKrMx9DRpjvm77jxftr6ZMly1yrD6Xr6qj52d9X6ZpgyRJ5+t6izxUFgDmc
+kBE2e1hc9fm9MsLlkQ0CJXRkg6/OfOzv9hQFYExxHLMa6bFkhO393Ge8eDV9
+skSZ5+/r0nW11Jsa8y46y4TSwm6N8FPLPbub0jUCQGkDM8LmfXUjI5QRLoVs
+ECihIxs8a31fSzZ4VuYIwPWK90hHHcPJCFv7Rka4YLHff7kWpWvqqNeYF07Q
+ZP4t+eBP9zcBYEdGOGmfyQinuwbGScDsOrLBj2c+dmpP0R+l2wwAKTLC1r6R
+ES5QSJxFVrqmjnqNeeFEPfLB/Wvwuu0eZ/w7/BB2e0M/JB7zIf7bxt8nALWS
+EU7aZzLC8fveOAmYXUc2+MeZj516zC+l2wwAbWSErX2z6XFvunH153jMeD1k
+g3Alwm7tfN/3p6f4vXu5cwv7PM7VvM8BcFlkhJP2mYxwvD43TgJm15ENnrzG
+r9k3dIq1iAAwl/j5vO848moywnhvuk9GaGw9/bXYHPd76Zo66jXmhRH0fA2e
+wsM1vM8BcHlkhJP2mYzw/L42TgJm15ENnnzmYPNzzhoE4BIMHEfKCI2t57wG
+l5ANrkvXBTVq3mdC4szRmWxKtx8ATiEjnLTPZISn97FsEJhdj2zwpD1AM4/7
+e+n2AsCpZITZfpERluv7qrLBWPPx8+Jz6ZqgZjEjbM4PPGXP0OYe3v5swU18
+33ro8Xr+M/4+r+cAVElGOGmfyQiH961sEJhdj2yw8faEx/1qzSAAl0hGmO2X
+JiP83HdsXbreS1BpNnj8t/OtdE1wKWJOeBtfG+7Dr+cNPsTX6A997jVtv17H
+72/LCZt/e1263QBwKhnhpH0mI+zfp7JBYHY9s8GvAx/zrXMGAbh0MsJsv9yE
+fvvcNX23Ll1vzSrNBlPPjau+vwJLFrrXhssHAaiejHDSPpMRdvelbBCYXc9s
+sPGp5+P9tvX96Gf/KN1OAJiKjDDbLzLC6fu4xmxwbdwL9YkZ4X3L6/hV3x8F
+4DLICCftMxlhvg9lg8DsWrLBL835gEPywZgLfhnjvEIAqI2MMNsvMsLp+rbG
+bPB14tp/KF0X0E/qdWd/v690bQAwlhMywpvSNZcmIzyr72SDwOzassHMv389
+3h+0OUcwft+PU9YaAsAlkRFm+6XJCHNrTmSEp/VpddlgrPv4mm9K1wT0F9Lr
+f+X8AFycnmO7h9J1LomM8KQ+kw0Cs+vKBuP3vEmsB2zTfO/b0m0DgJJkhNl+
+WcVxoLHi+X0pGwSK2H59TvwtN+smrnpfNQAuU8fYblW6viWSEQ7qK9kgMLs+
+2eDB9+7XB6Zywi/x396UbhMALImMMNsvMsLz+1A2CBSTeQ2/K10XAEwlMbZ7
+KF3T0skIe/WRbBCY3ZBsEAA43SkZYemaZ+oXGeHpfScbBIoJu72iU6/X1g4C
+cNEOxnar0rXUQkbY2jeyQWB2skEAmNeQMVHpWmfuFxnh8D6rLhvcfr1OXFNn
+lEGlUq9D/qYBgBwZYbJPZIPA7GSDAFBGjzHRqnSNC+2Xw7HiTel6C/dVjdng
+2nMdLkdIrx38VrouAGDZZIS/9IVsEJidbBAAysqMiR5K11XagLHi3bVmhJVm
+g3eJa2j/QajY9uve3zUAcAoZoWwQKEM2CADLcDQmWpWuZylkhK19U2M2+HRU
+s/VFULmQXg98W7ouAKAe15wRygaBEmSDALAs7qdm+0VG+LxPqsoGM/nB59J1
+AecJ6X1FN6XrAgDqc40ZoWwQKEE2CADUJOZhx2vPchnhRe9pV2E2mBrjvy5d
+F3C+1Gtw6ZoAgHpdU0YoGwRKkA0CDLd9jXwXXz+/bH0tXQ9cmybz65kRPsXv
+u8iMsKZsMFVrcK4mXIx4X87fNwAwqmvICGWDQAmyQYC87Wvhq/g6+bHl9fJj
+6TrhWl17RlhLNtisDcxco1Xp2oBxyAYBgCldckYoGwRKkA0CPBczwdRrY8qb
+0vXCtbvWjLCGbDBem9QY/qF0bcB4ZIPAktn3BS7HJWaEskGgBNkgQLfta+Lb
+zGulcSUsyEFG2DVOvIiMcOnZYLwe3zL9f1O6PmA8ibkZ96VrAq6PfV/gelxS
+RigbBEqQDQL0E+eYHr9WfipdF/Bckztt3fUYJzZjyXXpes9o52KzwbDbRzSV
+C/6suc+B5+I8gOO/803puoDrYd8XuF6XkBHKBoESZIMA/TRrBBOvlW9L1wXk
+XXpGuNRscPv1IbGGaO+udH3AuDL3s9al6wKul31f4PrUnBHKBoESZIMA3bav
+ib8lXid/lK4L6OdSM8KlZYPbr9uWtYJyQbhQqdeirdel6wKum31f4DrVmBHK
+BgEAlimeXX88rvy9dF3AMJeWEZ6aDcZ++BD74iHTB03Gdx+/b9XyWM049nOP
+8fdd6f4CppF4HXkqXROAfV/gutWUEcoGAQCWqZlfmhhXvitdF3CaOPbKZWLH
++diqdL0t7eidDYbdeWDr0L6ur8tT7Lc+fXdoXbqvgOmE53sI35euCbhu9n0B
+9mrICGWDAADL1Iwjj8eVzXizdF3AeQZkhMXnkmbq75UNhvbz/6bU9Jt9BeHC
+Jf72N6VrAq6bfV+AY0vOCGWDAADLsx1DvkmMK/8oXRcwnlozwq5ssMnlwnnr
+BE/VjLnXpfsHmF7Y7VF8/BrwoXRdwHWz7wuQs8SMUDYIALA82zHkx8S48mPp
+uoDx1ZYRtmWDcczbd23fXXysvc89++HQU3yc4v0CzMe9LGCJ7PsCdFlSRujz
+FADA8mTOsDeuhAu2/bodME68KVhnMhuM2V5X3c1Y+GWP39GMUz/E33Uf/j5v
+cJ8nNo9j31C4Upl7WevSdQHXy74vwBBLyAhlgwAAy5I5w/5r6bqAeQwYJ96V
+yAhT2WBHLvggxwPGlnit2ZSuCbhe9n0BTlEyI5QNAgAsS+YMe+NKuDJLzQgz
+2WBuv8916X4ELlPqtbB0TaO1bZcxfEzsT/jXWqT4729K1wrs2PcFOEeJjFA2
+CACwLPF+z/G48s3R97zP3CvK+b10u07si7cH98e+b31KfM/7RJ/9iD/zqnQb
+lkrf1mNpGWHPbPDJWkGoW/M3HF97Fvm3HJ6fT/pYuqaz2rN7X059BuzS5BHv
+StcP18y+L8BY5swIZYMAAMuSmCP+veP732XmlX+PGU4V81UPcqpPLfe/3h58
+/9vYxq57Zu9Lt600fXsZwu78vaeeGWHnmX5n1NGVDT7NkVEC04n3pf7K3KZ8
+TTmjxtRexjel6zqpLelM8FNibtjHkF6btF9LWMVnPrg0wb4vwMjmyAhPyQab
+z4Tx5zbxs9jDgfv43z8sdW7ZmdfkdWzb5qjde58vse3N5+v4fMy1+5Lbvn+u
+38d2Ht6P+Rb/213sn5vS9Y58zT/Etj0kXieeLrXtACWF9Bn2z9ZzJX7u+D5R
+NWPRZv1Zz3nxPw5+JnWeR5urnE+vby9PHIttQndG+BS/b/T7+aE9G7ReECoX
+fs0FD8e+i8oHt1+3iTo3pesa1Ibd+/TxZ7gfx5lg4udyc32aeT3W9cPMMvm+
+fV/sTaJvOf+6T5gRhp7ZYByDfoifB7vqOB4b3g2ta0nCLg+86zH+zrW9yrHx
+Gdd8P6/wc615Ufy7OOWa78dMH5Y2bhp4zfu83uTavi7dDoCaZe71vO34mTdH
+n/urPnsmM7b+a3zc/N/4v5t7ae8Pfu5Vy882/XL1c+n17eUIBTPC0J4Nrkv3
+DXC6ZgzfMd5bzDg3vg4evwY+LanG1vp3exCm1uj3+hwX8nN5vntfhnkF+77Y
+m0TfMvVzYoKMMHRkgwPGnH3zotvS/Tigv1chvV7qFL2vSWkjX/PGXagkIxz5
+mk82V7uCa978ra9LtwugRiExd7zj+18djAGan61+LmC8V5YaK787uA+WXRe5
+/bcvxkH69loM+Bw32mfTkM8GH0r3B3C+OIbPju9L19ej1k3punrVnt4bdNC+
+Dy3vy3+Ubh9ci2Dflzb2JtG3jP0cGTEjDC3ZYOh/nsVQTV03pfuxpU+a8fX9
+BO3+GSY++2OEtt9OdM2bx/xQun0d1zx1VsEYmr/VxWbi8TXgcaK2N/NKq1w3
+C1BCSJ9hn91LJvy6D9VF3QMKz+c8/jgY83Sto0yd93FxfaRv+eXa/J0R9vlc
+vjlnTNLye25K9wMwjlBJPti87mRqXPQ4tOU+7qC1Qh33kM3bgRkE+77Ym0Tf
+UuK5MUJGGNLZ4D+EYdnY/sy1h9A/V2q+b126DxP98XpAGx7Dr+ft9d1783GJ
+n1ND/2zsuN1D2t5876Ky0XjN+9S/P19vf6bmZmDbP5dua6LtHwZct7uDdm9i
+P/Ttt3XptgLUIHOfKDmnL44n9xlP57zUmmQy0u9t/dHj5/8cL5VuW2n69vKF
+3X3yuyk/o22//inxePel2w6Mq+O15K50fR11Lmr/01/qza/hP2mezcF94Wfv
+76XbCtcg2PfF3iT6lpLPkTMywpDOBv+t43Hu4++8aampedzPPeralO6/o37s
+ysQ+H/fhiW1vxuKLWEsW+q2T3F/z1s/WYbfu8C6056uL+YweurPg5hpuQkeW
+G/tw3/a2frwr3eaDmrtqve/zHI1tb54bDx2Pty7dZoCly8zrezafL+zOEvhx
+qZ/pQ35tWnYNZeIxUmctXP09Mn17PUL/jPBx6Oe07de/JB5nEWMbYDxxrNc2
+H3RdusZY501mXH9XurZkvdvPbpn34pP2E4yfC3NrB+0bBxPKzJuz78vfa9Ps
+TaJvmet5ckJGGNLZYDbXCC15YEtdtx2fJ4uvpwrtueDg8fKAa7JaQNvbMp1T
+r3nXuSfF88HQnguec81vwsLnV3bUd3/KNY+Pu+p4Pp3UpwDXIjEf8Nnn9aPP
+9q3jgFqF9L48g/Y9kV/pW+L1miAj3H79r+OfL91OYBqhnnwwtyfOXel7D89q
+ze/xdvLnusRnSPd+YQbBvi/7ttmbRN+yED3yqMOMsM+egqOcGRbazy9cF+yv
+1y1t34zw+G1n2T2N0bdn1Ja7T9A8f1YjPP5NS1ZULB+M1yT3XBxl7BDaz/Er
+loeHfA4+2lrWjr91c8oBEjLz+T4efc+ng7FA1WdSdPTF8b48g+fSy6/0LUfX
+bcSMMPU5r3T7gOnE8XNubLuYMV7La1xz7+GmdH1/1Zlf43fyvoIteWPr3obA
+eTJ/e/Z96bGGMvEYxhj6lhGF/hlhm7uRa2pbqzV7RtaSEY2+52dLJlMkI5uz
+npbP6EUyspDPK9cTPL9ycyxnHz+FfA4++lip5W/9qcTzHWDpQno912/x35q5
+fvtzAi7iTIqWfsjNaxx0Vrq5kfqWzPXbfUbLfRY+zghXmcd49v2l2wVMq+Ne
+TtE5zwc1to2/mxo/FK9xt24omQ2e+biptUsnvc8D/QX7vuzbaG8SfctChdMz
+wruJ6snNOXss0Depc/Ym+1wbdvurFs/Imhwo87n+YcLfeZdp+2rmtufWyq4n
++n258cnsGVmmjsmy6Zbx4/3M7X598JrzMHe/A/QRnq/n+hr/+5ujz/JfTnr8
+EF6d8FlwbJ3r0zL3tgbth9WSgfWeW3mJ/Vtr3zLZc3YV+mWED8ef11PfV7o9
+wPRaxnf78e3S88GfcVz4odSYMOTPGvx55uO2nTl4kVkElBbs+3LYTnuT6FsW
+LgzLCO8mriX3mXIzY3+sMm1fzXAdUr93ts/RIZ2JTr5+MaTzwccZ251bJzrp
+/MGQz8Nny4RDOhOdfPwW8msVVzO2/XhsWPyMU4BDIT2H/GNmvNkYvG4wVJBd
+xb5I7cvTeY7C0WPk7o8NGkNdWv/W2rdMK5yQEab+vXQ7gHm0jO/248ubBdTY
+jL9T9zxSr2ubsLtHszqwjv/9IVqPVlvL+r4zH/eVbBDmFez7su8He5PoWyoS
+ujPCH2GGOVQhvYZulrlmIZ/VbGa6BneJ3/1tpt+9xH6fJavJjA8eZvrdxTKy
+ZnwW0pnoLPuaxnHV8e9+nOl1JvW7Z123CNAlc5/oS+Yz/Ek5TKggu4p9cbwv
+z+Bzclruu002V7eG/q21b5lHGJYRPvvvpesH5hPy853/vK8xxzivZ525PYNO
+Mcr9kqmywfjYuc+NF3e2GSxBsO/Lvh+q3Jukhv6ttW+pQ8hnhP99xhpKrV9L
+/d7HGdudW792N/HvXfJ6zfXEvzc3LriZse2fE79/0rmVIb+nysNc7Y51pF5r
+Jq2h5bk2+1mPAG1Cej3XzzimTO09NXj/j0rGPql1koPHLJlcddJ5kUvv35r7
+lnnFz0+pz22tStcNzCvUkw/ehH7zHrpsRqlnwnMBE3OA9gbtEQB0C/Z9OeyL
+KvcmqaF/a+1b6rL9+h9b/xX9z5l/d/M57VrPvcudPTjJ/pYhnxE9FnjOzX3O
+43rKz/cDr8Fjoo5Jxk4t13z2vV5CPqe7m+j35XLwhznbDdClZR7fHwffkzpj
+4OLu84T0vjxDxz65/rzqOfP6lsHPmYFn1peuF5hfSO/RsshxVxyP9tlnNOdm
+lDras8Gz9hwM6fOkGvYUhZFl/pbt+7JTxd4kNfRvrX0LQ4R8bjN6XhLyuWCR
+88daPpuOWk/Y5SSPmd81+3nhIZ+RNVnOeuTflVsvOMserol6Vpl6Hse8FqH9
+DPZJz1dsqSm1brLxMObfenxNSeWCT2O/pgCcKzO39PgM+7P3EqlBIgMda+zT
+3Cs7ay5+7fQtpwo9M8LSdQJltNxjadyVri9R78v4unafGTMej9Gb71uN9vvb
+s8Gz5n21ZIMXe84ZlBLs+7Lvh2r3Jll6/9bctzBUy+fJxzE+h22/bkJ+H4ki
+GVGsqy2/aeq9GeF3fGj5zLsu2Pbcuq5GkyGdleGE9vPHi56RHvJ5ZVPX2bld
+2K1JzfXtXal2x9pyf4dn/63Ha57LHxuz5+AAXULLGfYH3zPKGeRLFtL78pwy
+9kmtsbzqdW36ljGEjoywdH1AOS33c4qPP3vWvzo22e9qzwbP2t8tpPcUHTwX
+CGjXMjaz78sJ7Wzpz6seZ+hbrk1LZvAzfta8OeExm6xg05KTFN8HP4Tsvqr7
+rGhzSo3xM21rny7gmq9b6mvuPawnuOaT7V06sM628dO3E9tewzVvy8N/xvpX
+I1/zn6f0J8AcEvdxknP4Qnpu6sWcEZC5VzbGWQpXPydS3zKm+Pn9P48/a5Wu
+CyirYxy6KV3fUnRkg2ftCZF5zC+l2wyXJtj35bCd9ibRtzCK0L7Oa+8+jkez
+WVl8nNuYvbRlBcVzwYOaX3fkJft89Laj7c3jfAjd+/4U2UM1U/O64zo9dbU9
+7PLVdWjP2xaTCx7U3bbGbZ+Pfs61PT7XV/F7uq75Xen2HtXdNnY8bvtN4jFW
+8bne9Zox+j61AGMJ6fVcnzLfm8pmBu9Ns1SZ7HPQmCU83y+lyV2vfh8tfcvY
+4me5fw1/n1l/MfMUgNOE7jmg69I1LkFHNnjyGr/mPTnzmF6fYWTBvi/7Ntqb
+RN/C6HrkJYfZwcORrnzkMGNcRC540O4+eclh3nHY7q5ccdE5SWg/DzFlaLt/
+xu+9Kd3WRNvXofucg+NrOOT7G5vS7cy0ve/f+qma59RismCAY5n7Q9n1XCF9
+jszb0u0YoR9SY+dB82pD+lyPqx/36FsA5hLkg9191J4NDl7Xf/C4qXVMP83j
+gfEF+77s22dvEn0Lkwi7tUJDsqIhucrZ57lN3Pa28wHP8bDknCR0nxV3jk3p
+9nW0/Sb0z4WHaMZlq9Lt62j7aqK/9bPPrASYWmYeX3YuaSajyeY8cTyw+Lmp
+mftZvcfNMf86zk2T6y+vjb4FYE5xbNt2P2Ox9yRm6Z/ubPCkPUAzjzt4jQnQ
+Ltj35bB99ibRtzCZ0O8MsSHums+ppdvVs+03oXt/zL6a3GVduk0D2r4aMSer
+5pqP3Paqrnls+zqMkxFWdc2B6xXS67k65/GF5/NUk3PCDzKdxc9NDel9ed6c
+8fPuhelbAAoJu32BcvdxFnXOx+x9050NNgbvCRHS883cA4aRZf6G7fvSMWc1
+8xj2JtG30CnsMsJmLd2Q/SMPM5JNrVlB2GWEp7a92Tf1tnQbzmx7n3P0jn2L
+fVblNY9tfx0zriFt/+tcxtL1n9n2PmeFHnuo/ZoD1yek13N1rsfKjEef/Vz8
+virmpSbyzt7n7ST6UXalbwEoTD6Y6Zd+2eCgPd9Cem3S4ueGQY0yObx9Xwa+
+7gR7k+hbOEHMi25j3veQ0eRJ60vLCWLb17Ht95l2N/+2Kl3rxNf9LtPu20u7
+5om279t/f/C/15c6roptXx20dXPU7lXpGgFOFdL7hHSeIRA/6z/Le8LB3PDw
+9143i5+TGtL78vSaF5n4WWMefQvAQsRxbNs87qs7A6JnNtj7fTdzD3jQ+hKg
+n2Dfl8Na7U2ibwEAgBNkxoi95ohm7it9iePJN3FMWUWWk2lL53g47ObUHvah
+PVL0LcBFiq/LH6Pke3zYrU05nnf0I/5Msb0l45zOtj1/riofbMkGm89xvw/J
+B+PnvuPzpE46rxDoFuz7clirvUn0LQAAMFBIr+fqvX9USM8RP+mxSgvpfXla
+86uj8XVzT6z3PMqBtb2P9S1+/WUNfdvcm46Pfzze/TjVNQSozUEGmFo3sPf2
+4PvfdnwmKD7PQz747Poms8HMv389fu9ueT+tYl4Y1CrY9+W41kP2JtG3AABA
+h8z9vkF7x2TGDft7SMXWBwxsQ2pfnmR/JO6Dfe0zFj+xruP7bYsfoy+9b1vu
+hZ78NwBwSeJrcdfr5C/rB3q+tg66hz1Z+3ZnY+TywbvS/T/jdW7NBuP3NJ/x
+jtcDtvlS42cVqE2w70tbWxaxN0mof27novo2MU78q6ZgbicAAAwW0uu5Bn+2
+Ds/XClSVrYTMOetR6p7Yl6nGIXHck1ujUd3YcmF9e7xHmnwQoENIr09p/B7/
+ff/a+vXwHmB8P8v97I++97EnaZN8sFc2eHQtZ3/fBp4L9n05bMui9iY5ePyq
+53YurW9b3q+M3QAAgLNk7l0Wucd1cI/tVWIcVN3Ycil9G3Zzd3/GeyHH6xXf
+Zca/Vax7BZhSSO9B9zO+du7fp7L35DJ50iTrNAa168rzwSHZILAcwb4v+zYs
+Zm+ScHlzO5fUt+Z2AgAAk0nc8+x9zvoMtdU+tlxE38ZMsBmrZtepJO5fV7Gf
+EsDUwvM1Jj8OsqXW96aQXj/e6HVu0WRtCuFlPGMwlw+uS/f7xNdUNggVCvZ9
+2de/pL1JLm1u5yL6NpjbCQAATCiccc76TPVVO7ZcSt+Gv8+9aB0rhudrY6rZ
+UwlgKiG9fmB/P7lzbUDm5xfxGnvN+aBsEKhZWMjeJJnaqh2/Lalvg7mdAADA
+hMII+/JMXF+1Y8ul9G2so9fvPar5e+k+BCgts36g8fuAx0idbbWI19iYDz62
+5IO3pWuc6LrKBoFqhYXsTZKprdrx21L61txOAABgamGkfXkmrK/aseVS+jbe
+/8zONz363vfGlgB/y8zz+NH3dTU+xmKzwT/rC+H11lMmG2z+++vSNU5wXWWD
+QJXCQvYmaamv5vHbIvrW3E4AAGBKIb3P2WLmnMYaqxxb1tC3mbrflxwHAyxN
+Zp7HoDXgS88G/6zxyvJB2SBQq8ycFfu+XFDfmtsJAABMKXNfbFF5UK1jyxr6
+tkfd70vXA1BSZp7HzyFrBuPjpB5jcffvYj6Y21u0yQdflq5xxGsrGwSqlJmz
+Yt+XK+jbTM3mdgIAAIOE9Dnrizq/vNaxZQ1921H3otazAJQwxjyPlnyx93mF
+s7Y5hHVLPvjtUvJB2SBQo8x7yqL2Jql4/Lb4vs3UbW4nAAAwSHh+znrjXem6
+jmqsdWy5+L5N1Hx4lr1xJXD1MvM8Br2WN+9dmQxqMfu/Pat5xHxw+3Vbuj2Z
+6yIbBKozxpyVGWqsdfy2+L7N1G1uJwAA0FvLvcpXpWs7qrO6sWUtfZuo+2Mt
+Y2CAOSTmeQxeP9CSQS17j7IQNi354MOAx3ks3ZaB10U2CCxWZs7KovYmqXH8
+VkvfJmo2txOgYvH+4cfoe+p9J+z2jj5+j/oRf2bR9xkBWKaQPmf9Z+m6EnVW
+N7aspW+Pan4VP1ss7vwrgBKa9YGJ1/LB+4A2WVPicap4rd1+3bXkg3c9fn6/
+/vB16bYkrotsEKhOYs7K4vYmqXH8VkvfJmo2txOgEgcZYPKe4fH7ZswNv7d8
+7565IQD0dpADpd5Tfitd31GtVY0ta+rbo7r/iJ85zDkC+Jmd5zF0P9HcWYPV
+jN/OyQebNYPx+1al25G4NrJBoCqhkr1Jahu/1dS3RzWb2wlQgfh63ZXv/bJH
+TctYJWfRc1kAWIawWwfRNu/ky5LuWdY0tqytbw/q/hTHlYve3w5gTs29ttxY
+bcBjpMZ035c8VyTZjhAeWvLBD5mfOdyTdHFnDsoGgdpk5qz8LF1Xos5qxm+1
+9e1RzeZ2AlQopPewbvwe//33+L+/Ht5DjBlj7md/1DbGBGA+J8w5WcR4qIax
+Za19G2t/LxcE+FXzmpgbqw18nON8sao1g3+1I4SXW99a8sF14vufDv59U7oN
+iWsjGwSqESram6SG8VutfXtQs7mdAD93447SNQyu+dezYn9Z+3cwRvnY8vOp
+MyuqHGcCQJvaxpY1CX/vnaNfAQ5kcqOh+4mm9ierdt+vIfng0ZrBXmcTApAW
+KtubpKbxW219G2s2txMgiucfrEvXMbju5+89Pw7GoK3vnfG9K/We5exZAC5K
+TWPLmsQ1MT/0KcBzIb1Xy6C1A4n5nM1rbtX7fm2/bo7WAx57nVgz2PhWunaA
+2rSsb1703iQ1jN8q7ltzOwEONGcX7Oci1rKGMKTPpN9nhZ3zUTM/X/U8VABI
+qWFsWZuDXLDXGhj9DlyTzFhr0BzMOKf/Ivd4iflfLh9s/vs/pf6tdN0AzMP4
+bbJ+NbcTIOFgbNLscfK6dD2d9ebX/fU+wyKx7vDPfLF02wBgTMaWo/fnq/gZ
+otc96jgGHXzGFkCtMmO17HkPiZ//LTFW+1S6XaP2UXs+mLMqXTcA0zN+m6RP
+ze0EyNh+fT4ad2xK19Ra7+7M2OPxZvMa33ufGtkgANfA2HLUvhyaC+7P33CW
+BXA1MmO13q+DiZ+/yPkVzbkeA7PBD6VrBmB6xm+j96e5nQAt4rzF47HH41Ln
+JjZ7f54zFzU+hmwQgIuW2Net1zxJkn35KvPZocuX0rUDzCnO2fxlDueAnz1e
+c3jR9+YG5oP3pesFYHqywVH70txOgB5iFpgcgzRnppeu768682cFDj3b3nmD
+AFysOA764zinMr48qS9/y8xL6uMizscC6CPOtT/prMHEz17UPqLJNodwu/Wv
+PbPBp9L1AjAtcztH7UtzOwF6avYo6RiLNPuOvixe54vw8dTx5sFj5PLFi56X
+CsDly7xPGvOc16dfTswFB+13DlC7zHtQ5/4uzbyV8Ot6w4udV9GMqZszPFrm
+5rZ5Xbp+AKZhbueofWluJ8AAzdrAPnMV4zimWEaYeJ8cPI8mjj1Tr/+D9iUF
+AABgJ3MfrnWMdZQnNvdAR9vHK95n/Rie73P6cczf06uWEFZbdyfkgc4cBLhg
+5nZO0qfmdgIni+fvra7Qt9BvTLLPCG9mvzZnnF9x8Bi59137SQMAAAwU8nuz
+PMsHE5nd16HzPXvU0+de66RzQ8NujeB6wDjbmYMAAFDQ9uthpM/u1+AuzLS3
+SXh+Nv1J+4Bm5o84axAAAOAEmbHaxyg1/voy1fq9Zow4YI3AZPlgM5c27M4U
+bObV3ofT9hE9VvycDwAAuFSywZM0fbae9Lq8CJ8SY7mh+4nm5rPaTxoAAOAE
+IX32w+z7sjTjuvi7vyfWK74L6X1PX81W3y4vXMc5tk8njLvXpa81AABcKtng
+WZr9Um4muS7Px3Fj7Sf63X7SAAAApxnj7IeR6vgex43Z8V1iHeOnYv22O8/k
+c+i/pvCu9LUGAIBLJRs8SbNHyu1k1+RFeDPSfqKpeaLWDAIAAJwgM1b7o0Ad
+b2NG2boOMO4lc5hlLuJ8iYOcsG09YfNv9hUFAIAJyAZ7e4pjl5vJr0l6vd/Q
+/UTfOmcQAABgPJmzHyY7x6+jjl6/96jm76X78Fl9u31Hc/cl1qXrAwAALkfY
+7QfaNxPczDlfMXN+xaB9QBN7x3TOKQUAACAvszdLibMGP/YdIx6cS7jo+aJh
+dz7h3dFawvvSdQEAAJchjjkWlwn+Wdtuz5ez9qg5GvvZSxQAAOBMmbFakbMG
+B9b9/tSxZZF6t2PwOBbfZ4Q3pWsCAADqF8cZi8oE/6rtRXh3zh41cbz6fSnn
+zQMAAFyCzNkPy8/afq27mjmjBxnhbelaAACA+m2/HjO54F2pTPCv2tLnV/Te
+oybx87+X7m8AAIDaZc5+WPw8zIO6F3fWIAAAwBy2X68TmWBz9uCqdG1/1rc7
+F/CkPWoSaw7lggAAACNIjNUa70rX1VHzbwd1V7NmEAAAYExxbeDh/qEfStf0
+V20vwptT96hJ/Ozi568CAADUYDu+epsYqzVela6to+6PQ8aVAAAAl+jgPPNv
+SzvTPHN+RedZg3GcejiH9ez5oM0YN9ZzPDf245A9TgEAAGqXOfvhZ+m6Omp+
+FcdzX0vXAgAAUEpzhnnMBT+XriVZ33bMNjQbPMoTv4yR22UyysGZJQAAQO0O
+MrbUuOi30vW11N2cM/h96WsbAQAAphT3E70tXUeytt05EL1yuMSavq9jnXPR
+nFHYIxeUDwIAABcvnun+vWVM9GWJ5/jFdY4/7PkCAABcu+3Xy9I1ZGvbjTmf
+ZW/Rl8wYdNT9PZsxbXzs74k88l1mXaM5qAAAwEXpuZfKIvcYjeM6uSAAAMDC
+xf1ejseWs47lYib4tW1fnERO+al03wEAAPDXWfTNOO1t6VoAAABolzi/4sfM
+v/9trKF1HWDc+/SwVufaAwAAFNbMLY1jNbkgAADAwsUx3PGawT9mruFT3/MD
+4/fu6/xeuv8AAACu2UEu2OscevkhAABAWUdZ219nDc5cw8e2vUSPvve9dYMA
+AADlNXu/xPMh3vf8/iZH/L103QAAANcsnvFX9KzBgfUeZoOzrm8EAABg54Rc
+8F38/sWONwEAAC5dPL/vOBec9azBE2r+eFBrrzEoAAAA4znIBY/Hk12+lK4d
+AADgmh3lbFWsxWvqc9YgAABAGXGOaWr/mT7M7wQAACjoIGc79Kl0XS31/hbP
+uDemBAAAKKBZ+3diLvij7znzAAAATOMgZzv0rnRdLfXu1zkuem0jAAAAAAAA
+LEl4Ed5m5nK+Kl1bpt5XMcv8WroWAAAAAAAAqEmzd2gqGyxdV0u9f8Sz7heZ
+XQIAAAAAAMASHazBS60bXNz5DzHHbOp9U7oWAAAAAAAAqEVznmBcf5c7H745
+V/596ToP6n0vFwQAAAAAAID+wovwsSUPzCpc8/5MxLel+w8AAAAAAACYRrNO
+MK4XlAsCAAAAAADAhTrIBd/1/H75IQAAAAAAAFQmvAiv4nmIvc48jDni76Xr
+BgAAAAAAAPo7IRd8F7//TenaAQAAAAAAgH4OcsGfA30pXTsAAAAAAADQT3gR
+ftv6ekIu+LPvGkMAAAAAAACgvGbt34m54I8mVyxdPwAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcL3+
+P/rodmI=
+     "], {{0, 501}, {1799, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{344.71999999999935`, Automatic},
+   ImageSizeRaw->{1799, 501},
+   PlotRange->{{0, 1799}, {0, 501}}]], "Input"]
+}], "Text",
+ Deletable->True,
+ CellID->1277825587],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The Goldstone boson coupling to a standard model fermion ",
+ Cell[BoxData[
+  FormBox["f", TraditionalForm]], "InlineMath"],
+ " is:"
+}], "Text",
+ Deletable->True,
+ CellID->744582066],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    GraphicsBox[
+     TagBox[RasterBox[CompressedData["
+1:eJzt3T+PHEkZB+AyEBAe32C5D4BWug/AgC5CBNYhIpK9k7gU60A6XYI2JLzU
+2UYEjpychGQJzQe4wBIRgaUVEhGSsYhIYOlmxvJ6tqunZ6Zqaqbfp6Xn/ti7
+s1Wlfae6uuvX88PPfvPJ599JKf32+90/Pvn0y5988cWnX/3ie93//PSr3/36
+s+92//HjRyn9t/t3/4d3d3cAAMAMdMdl53HrdgD1dceTzpt+Wd+5bd0eoK7u
++OBezb910bpdQD3dcb1R83fO9WG++nl9oOZvW7cLqKc7bgbqftG6XUAdmbl+
+2bpdQD3d8dxcD3H09W2uh1j6Gh+o+4vW7QLqyMz1N63bBdTTHS/N9RBHd1wN
+1PzXrdsF1NPvydmo+X5/7get2wXUkZnrr1u3C6gjk70x18OMZbI3T1q3C6gj
+M9fftm4XUE9mrr9q3S6gDjlbiEfOFmKRs4V45GwhFjlbiEfOFmKRs4V45Gwh
+FjlbiEfOFmKRs4VY5GwhHjlbiEXOFuKRs4VY5GwhHjlbiEXOFuKRs4VY5Gwh
+HjlbiEXOFuKRs4VY5GwhHjlbiEXOFmKRs4V45GwhFjlbiEfOFmKRs4V45Gwh
+FjlbiKc7vjHXQxzd8XNzPcTSHf+UvYE4uuNPAzX/59btAurIXL/v/ah124Dy
+Rmr+H63bBpTX77XP1Hzvj63bB5SVydfakwszNaHmXceHGZlY87et2wmU0R2X
+6WG2dsjz1m0FDrdDzXu2BszAjjXfu2zdZmB/e9T8Xes2A/tLq2dlDX3exZhl
+63YD+9mz5nvXrdsO7O6Amu8tWrcf2N0BNd/zbHw4Mymfs5niZev2A7s5sOZ7
+PusSzkiBmu9dte4HME0/Txeo+d5F674A26VpOZspblv3BdiuYM33blr3BxhX
+uOZ7sjhwwrpjUbjme7I4cKLSHjmbCd607hcwrFLN95at+wY8VLHme9et+we8
+L61yNreVar63aN1H4J10WLZuktZ9BN45Rs0nWZz3x/xR+qjz5dqrzt2A1/e+
+5sMJr/mi84fWfeP0Hanme+GzOF1NftzXZabGp3i1fg/4wcBrP11/zS9b95PT
+1x3Pj1Dzvcet+9psjLta7HybqeX/z+eZ73t7TvBi5D1g833kwXsC3JfKZOum
+umjd36OP76puczX7eaHXuu/b1n3mtKVy2bopblv39+jju5qLB+f3Sq97Z23P
+Nv38e8T5/qZ1f482rt15dmZe7q/RfVzoZ+Rq39qeSY5U/1et+3mUsXyUPsxc
+m+9r/qPCP2vovcXanp2kVQZnWanuZ5/FOWbN3/t51vYUUaH+Z5/FGan5qufe
+G3O+tT0HS6vc/W2Bup/1Z96u1/O5e3RVa7G/J2BtTw3p8Pv71637UHV8HqVn
+mZp/VXu9vX7PsbanqPU1v0Pn+0XrflQbn/F7akeZf9fvL9b2FJOGr/P3fzY5
+p9u6D9XG5uF1tfteHLEdz6ztKSUz1y/v/d3Qe8Lg18/Rlr1zRe7Tw7Fl1vWL
+ja/ZVv+zzOJsXE9rNtdDSWn4eZrLLV+/HPieWWZxRu7Zmes5W5kavpjwfZv1
+P7vPvN0y179q3T7YR2auv9nxNa52/Z5zMXKv/uDMDbSShp/BcdG6XacgrbKw
+YznY4vtxobY0/Nk4s7w2t9f4jD8rxz10zlJ6uC/3zRzX6HuPz/g5vnvonJ3M
+XH/dul2nYmNPrOw7Zy+tnq25uQfPXH9/jFbPyBure/vjOSv9vD4w1/vc2vtj
+NL4X/3XBn/N0y/vLFPYOMSoz19+2btep2VKPxessvXtu/tg1hfeuL7iPyFSZ
+uf6qdbtOTcrnbXtPK//ssf2B/d9t/UwNeGu9v36z5m9bt+sUpfEcTu3na4yd
+a9gXzE4ymZpF63adoi11X/X8euRcw75gdpKZ65et23Wqtpzn16771y3OM5if
+NCFny73xGj/Xrlb3aXzfgD0DTJbJ3ixbt+uUpfH7eDXrfmzfgD0DTJb2zNlG
+tqX+qp1vp3wmQB6AyUrkbCPacr79rOLPbfKMbuZFzvaAsctf2yu2X2/j51nb
+czA52wPHb/xcv8ZnYVnbczA52wJjmN87V/zanrU9h5KzLTSO+Tn4dek52Nqe
+Q8jZFh7P/Dq/2Jxvbc+h5GwLj+eqJnPn+0XW+Wl8v4C1PaPkbCuNa/6zr4vk
+40beV6zt2UrOtuLYjtf+3vP+lrne2p5RcrZHGOPVOX9uvb9Tja5faywH8G2N
++4XMi5ztEcd6dZ0/d27+dD2HP1iXd3/28frvxnK+z1zLYwo520bjvvocrbEa
+nupFyfsDxCBn215694y8sez+2/P3t1/r+TnsRc4W4pGzhVjkbCEeOVuIRc4W
+4pGzhVjkbCEWOVuIR84WYpGzhXjkbCEWOVuIR84WYpGzhXjkbCEWOVuIR84W
+YpGzhXjkbCEWOVuIR84WYpGzhVjkbCEeOVuIRc4W4pGzhVjkbCEeOduqY3s5
+cF+0pCL7KjLne6X068fLAm28qDyWN8HGcvO1l63rZS4y76mlLSr8DpR28O+U
+sSw6llel+8574zuUYz6139XLM/ldNZblxvJXA6970bpe5mL9e7B5n6Skl4Xa
+eVP5d/WxsTypsVwMvO7z1vUyJ2l1j3RRwcHrvI12XlZq58UZjOUi4FguU+Hz
+HeC0Jdf2IKTkXh6Ek5nzi1znAE5Xd3w9UPtXrdsF1JNkcyCkJJ8D4WTmfM/e
+gJnrjicDc/5163YBdSXP1oRwkudrQkgDc/5dyf3BwOlJPisLQspkdi5atwuo
+JzPny+nCzMnpQjxyuhCTnC7EI6cLMcnpQjxyuhCTnC7EI6cLMcnpQkxyuhCP
+nC7EJKcL8cjpQkxyuhCPnC7EJKcL8cjpQkxyuhCPnC7EJKcL8cjpQkxyuhCP
+nC7EJKcLMcnpQjxyuhCTnC7EI6cLMcnpQjxyuhCTnC7EI6cLMcnpQjyZOf+v
+rdsF1JXJ6f6+dbuAetaZnX9v1P1/3NeDecus8/9m7z7M13rO36z73l/UPsxX
+d/w9U/sv1T7MU+b6nmdxwox1x+ORupfdgRkaWeOrfZixNJzNV/swY5n7eUOu
+W7cVKCMNP4cr56p1e4HDdcflDnWv9mEm0sPn7Kt9mLnueL5j3fcuW7cb2F8a
+/kytbd6ofThfafjZe2ofZm7Pulf7cMbS8DM3p7pNcjxwdtJ4RmcKGT44M2l7
+Rkftw8ykaRkdtQ8zs67ZErV/07ovwDRpekZH7cNMpN0yOmofZiANf6bGob5u
+3S9gXNo9ozPFVet+AXlpv4yO2ocz1h1PKtW92ocTlfbP6Ey1aN1H4KHKdS/H
+AycoHZbRUftwhtJ+z+FQ+3DGUpmMztTat5cfTkAql9GZQo4HTkQql9GZwp4+
+OAHp8OdwTLFM7uvByUjlMzr33XYet+4j8L5UJ6PT1/tV674BeWnaZ+VO0V+3
+v27dH2C7dHhG519ptRfA9Xo4E+nwjM43rfsA7Cbt/lm5Qxat+wHsZof6XnZ+
+NvTnrfsA7CZtz+gs78/pafjZnItW7Qd2l/IZnf5a/4N78Gn4/t/L1v0ApksP
+n8PR1/vVlu8Z2us3+j3A6UjvMjqT78Gvv2fz+Zy3rfsCTJdWe3Z3ugefWR9c
+te4LUE9mzpe3h5lLw/t+rlu3C6grPdzjb86HmUvDed7r1u0C6hqY83sXrdsF
+1DOwB6B307pdQF2Z/b4XrdsF1JOZ85+3bhdQV2bOX7RuF1BPJrOzbN0uoK4k
+pwvhZOZ8OV2YOTldiEdOF2KS04V45HQhJjldiElOF+KR04WY5HQhHjldiElO
+F+KR04WY5HQhHjldiElOF+KR04WY5HQhHjldiElOF+KR04WY5HQhJjldiEdO
+F2KS04V45HQhJjldiEdOF2KS04V45HQhJjldiEdOF2KS04V45HQhJjldiEdO
+F2KS04WY5HQhHjldiElOF+KR04WY5HQhHjldiElOF+KR04WY5HQhnsycf9m6
+XUBdGznd29btAY5jndvp9/I9ad0WoI3/ASVK3YY=
+       "], {{0, 319}, {254, 0}}, {0, 
+       255},
+       ColorFunction->RGBColor],
+      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+      Selectable->False],
+     BaseStyle->"ImageGraphics",
+     ImageSize->{42.228125000000176`, Automatic},
+     ImageSizeRaw->{254, 319},
+     PlotRange->{{0, 254}, {0, 319}}], " ", "=", " ", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", "2"]}], 
+     FractionBox["g", 
+      RowBox[{"cos", " ", 
+       SubscriptBox["\[Theta]", "W"]}]], 
+     SubsuperscriptBox["g", "A", "f"], 
+     SubscriptBox["\[Gamma]", "5"]}]}], ","}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1456278047]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "where ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["g", "A", "f"], "=", 
+    SubsuperscriptBox["T", "f", "3"]}], TraditionalForm]], "InlineMath"],
+ ".  Using the Feynman rules, the ",
+ Cell[BoxData[
+  FormBox["G\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function is:"
+}], "Text",
+ Deletable->True,
+ CellID->1445665764],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"i", " ", 
+    SubsuperscriptBox[
+     RowBox[{"\[CapitalGamma]", "(", "f", ")"}], "G", "\[Nu]\[Rho]"]}], "=", 
+   RowBox[{"-", 
+    RowBox[{
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["e", "2"], "g"}], 
+       RowBox[{"2", "cos", " ", 
+        SubscriptBox["\[Theta]", "W"]}]], "[", 
+      RowBox[{
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", "i"}], " ", "m"}], 
+         SubscriptBox["m", "Z"]], " ", 
+        SuperscriptBox["\[Mu]", 
+         RowBox[{"2", "\[Epsilon]"}]], 
+        RowBox[{"\[Integral]", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+          FractionBox[
+           RowBox[{"Tr", "[", 
+            RowBox[{
+             SubscriptBox["g", "A"], 
+             RowBox[{
+              SubscriptBox["\[Gamma]", "5"], "(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"], "-", 
+                  SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", 
+               "m"}], ")"}], "Q", " ", 
+             RowBox[{
+              SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"]}], ")"}], ".", "\[Gamma]"}], "+", 
+               "m"}], ")"}], "Q", " ", 
+             RowBox[{
+              SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+              RowBox[{
+               RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+           RowBox[{
+            RowBox[{
+             RowBox[{"[", 
+              RowBox[{
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"], "-", 
+                  SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+               SuperscriptBox["m", "2"]}], "]"}], "[", 
+             RowBox[{
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"k", "-", 
+                 SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+              SuperscriptBox["m", "2"]}], "]"}], 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["k", "2"], "-", 
+              SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}], 
+       "\[IndentingNewLine]", "+", 
+       RowBox[{
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", "i"}], " ", "m"}], 
+         SubscriptBox["m", "Z"]], 
+        SuperscriptBox["\[Mu]", 
+         RowBox[{"2", "\[Epsilon]"}]], 
+        RowBox[{"\[Integral]", 
+         RowBox[{
+          FractionBox[
+           RowBox[{
+            SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+          FractionBox[
+           RowBox[{"Tr", "[", 
+            RowBox[{
+             SubscriptBox["g", "A"], 
+             RowBox[{
+              SubscriptBox["\[Gamma]", "5"], "(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"], "-", 
+                  SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", 
+               "m"}], ")"}], "Q", " ", 
+             RowBox[{
+              SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", 
+               "m"}], ")"}], "Q", " ", 
+             RowBox[{
+              SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+              RowBox[{
+               RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}]}], "]"}], 
+           RowBox[{
+            RowBox[{
+             RowBox[{"[", 
+              RowBox[{
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"k", "-", 
+                  SubscriptBox["p", "1"], "-", 
+                  SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+               SuperscriptBox["m", "2"]}], "]"}], "[", 
+             RowBox[{
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"k", "-", 
+                 SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+              SuperscriptBox["m", "2"]}], "]"}], 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["k", "2"], "-", 
+              SuperscriptBox["m", "2"]}], ")"}]}]]}]}]}]}], "]"}], "."}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1242909836]
+}, Open  ]],
+
+Cell[TextData[{
+ "As before, the photons are on shell ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "2"], "=", 
+    RowBox[{
+     SubsuperscriptBox["p", "2", "2"], "=", "0"}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", and the Goldstone boson ",
+ Cell[BoxData[
+  FormBox["G", TraditionalForm]], "InlineMath"],
+ " is off its mass shell with a mass ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "1"], "+", 
+       SubscriptBox["p", "2"]}], ")"}], "2"], "=", "s"}], TraditionalForm]], 
+  "InlineMath"],
+ ".  To be consistent, we continue to omit the prefactor ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["e", "2"], "g"}], 
+     RowBox[{"2", "cos", " ", 
+      SubscriptBox["\[Theta]", "W"]}]]}], TraditionalForm]], "InlineMath"],
+ " from the calculations."
+}], "Text",
+ Deletable->True,
+ CellID->1130091793],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Initiate loop integration with ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and apply the on shell conditions:"
+}], "MathCaption",
+ CellID->1514568392],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"diagramGS1", "=", 
+   RowBox[{
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "mZ"], 
+       RowBox[{"Spur", "[", 
+        RowBox[{
+         RowBox[{"gA", " ", "\[Gamma]5"}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "-", "p1", "-", "p2"}], ")"}], ".", "\[Gamma]"}], 
+          "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         RowBox[{"Q", " ", 
+          SubscriptBox["\[Gamma]", "\[Rho]"]}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "-", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         RowBox[{"Q", " ", 
+          SubscriptBox["\[Gamma]", "\[Nu]"]}], ",", 
+         RowBox[{
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]}], ",", "k", 
+      ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1", "-", "p2"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "m"}], "}"}]}], "]"}], "/.", "onShell"}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[31]:=",
+ CellID->1227296453],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"diagramGS2", "=", 
+   RowBox[{
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", "\[ImaginaryI]"}], " ", "m"}], "mZ"], 
+       RowBox[{"Spur", "[", 
+        RowBox[{
+         RowBox[{"gA", " ", "\[Gamma]5"}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "-", "p1", "-", "p2"}], ")"}], ".", "\[Gamma]"}], 
+          "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         RowBox[{"Q", " ", 
+          SubscriptBox["\[Gamma]", "\[Nu]"]}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         RowBox[{"Q", " ", 
+          SubscriptBox["\[Gamma]", "\[Rho]"]}], ",", 
+         RowBox[{
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]}], ",", "k", 
+      ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1", "-", "p2"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "m"}], "}"}]}], "]"}], "/.", "onShell"}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[32]:=",
+ CellID->591056136]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Sum the diagrams to obtain the contribution of a single fermion flavor to \
+the RHS of the Ward identity, and store the result as ",
+ Cell[BoxData["RHS1"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ CellID->166712114],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"RHS1", "[", 
+   RowBox[{"gA_", ",", "Q_", ",", "m_"}], "]"}], "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "mZ", " ", 
+    RowBox[{"(", 
+     RowBox[{"diagramGS1", "+", "diagramGS2"}], ")"}]}], "//", 
+   "LoopRefine"}]}]], "Input",
+ CellLabel->"In[33]:=",
+ CellID->755853619],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", "gA", " ", 
+  SuperscriptBox["m", "2"], " ", 
+  SuperscriptBox["Q", "2"], " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", "p1", "}"}], ",", 
+    RowBox[{"{", "p2", "}"}]}]], " ", 
+  RowBox[{"ScalarC0", "[", 
+   RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+   "]"}]}]], "Output",
+ ImageSize->{335, 18},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[33]=",
+ CellID->437548918]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Add up the contributions from all fermion flavors in one generation, to \
+obtain the RHS of the Ward identity:\
+\>", "MathCaption",
+ CellID->1813344983],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"RHS", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"3", 
+     RowBox[{"RHS1", "[", 
+      RowBox[{
+       RowBox[{"1", "/", "2"}], ",", 
+       RowBox[{"2", "/", "3"}], ",", "mu"}], "]"}]}], "+", 
+    RowBox[{"3", 
+     RowBox[{"RHS1", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "1"}], "/", "2"}], ",", 
+       RowBox[{
+        RowBox[{"-", "1"}], "/", "3"}], ",", "md"}], "]"}]}], "+", 
+    RowBox[{"RHS1", "[", 
+     RowBox[{
+      RowBox[{"1", "/", "2"}], ",", "0", ",", "m\[Nu]"}], "]"}], "+", 
+    RowBox[{"RHS1", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "1"}], "/", "2"}], ",", 
+      RowBox[{"-", "1"}], ",", "me"}], "]"}]}], "//", "Simplify"}]}]], "Input",
+ CellLabel->"In[34]:=",
+ CellID->1948694704],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["8", "3"], " ", "\[ImaginaryI]", " ", 
+  SubscriptBox["\[CurlyEpsilon]", 
+   RowBox[{"\[Nu]", ",", "\[Rho]", ",", 
+    RowBox[{"{", "p1", "}"}], ",", 
+    RowBox[{"{", "p2", "}"}]}]], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["md", "2"], " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", "0", ",", "s", ",", "md", ",", "md", ",", "md"}], 
+      "]"}]}], "+", 
+    RowBox[{"3", " ", 
+     SuperscriptBox["me", "2"], " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", "0", ",", "s", ",", "me", ",", "me", ",", "me"}], 
+      "]"}]}], "-", 
+    RowBox[{"4", " ", 
+     SuperscriptBox["mu", "2"], " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", "0", ",", "s", ",", "mu", ",", "mu", ",", "mu"}], 
+      "]"}]}]}], ")"}]}]], "Output",
+ ImageSize->{494, 50},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[34]=",
+ CellID->1885824830]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Check that the Ward identity is satisfied:", "MathCaption",
+ CellID->110799672],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LHS", "==", "RHS"}]], "Input",
+ CellLabel->"In[35]:=",
+ CellID->1848261869],
+
+Cell[BoxData["True"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[35]=",
+ CellID->2069449448]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Final result for the ",
+ Cell[BoxData[
+  FormBox[
+   FormBox["Z\[Gamma]\[Gamma]",
+    TraditionalForm], TraditionalForm]], "InlineMath"],
+ " vertex function"
+}], "Section",
+ CellID->852969792],
+
+Cell[TextData[{
+ "Verification of the Ward identities at all three vertices confirms the \
+correctness of the calculation obtained with ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X, despite being computed in naive dimensional regularization.  The final \
+result of the ",
+ Cell[BoxData[
+  FormBox["Z\[Gamma]\[Gamma]", TraditionalForm]], "InlineMath"],
+ " vertex function can be constructed from ",
+ Cell[BoxData["correctedVertexFunction"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " upon summing over all fermion flavors."
+}], "Text",
+ CellID->929156978],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Sum ",
+ Cell[BoxData["correctedVertexFunction"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " over the fermion flavors to obtain the final result:"
+}], "MathCaption",
+ CellID->920990751],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"3", 
+     RowBox[{"correctedVertexFunction", "[", 
+      RowBox[{
+       RowBox[{"1", "/", "2"}], ",", 
+       RowBox[{"2", "/", "3"}], ",", "mu"}], "]"}]}], "+", 
+    RowBox[{"3", 
+     RowBox[{"correctedVertexFunction", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "1"}], "/", "2"}], ",", 
+       RowBox[{
+        RowBox[{"-", "1"}], "/", "3"}], ",", "md"}], "]"}]}], "+", 
+    RowBox[{"correctedVertexFunction", "[", 
+     RowBox[{
+      RowBox[{"1", "/", "2"}], ",", "0", ",", "m\[Nu]"}], "]"}], "+", 
+    RowBox[{"correctedVertexFunction", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "1"}], "/", "2"}], ",", 
+      RowBox[{"-", "1"}], ",", "me"}], "]"}]}], "//", "LoopRefine"}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[36]:=",
+ CellID->1206802212],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["p1", "\[Mu]"], " ", 
+    SuperscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Nu]", "\[InvisibleComma]", "\[Rho]", "\[InvisibleComma]", 
+      RowBox[{"{", "p1", "}"}], "\[InvisibleComma]", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["md", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"md", ",", "md", ",", "md"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "+", 
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["me", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"me", ",", "me", ",", "me"}], ")"}],
+         "ScalarC0"]}], "s"], "-", 
+      FractionBox[
+       RowBox[{"16", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["mu", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"mu", ",", "mu", ",", "mu"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "+", 
+      FractionBox[
+       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "md", ",", "md"}], ")"}],
+         "DiscB"]}], "s"], "+", 
+      FractionBox[
+       RowBox[{"6", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "me", ",", "me"}], ")"}],
+         "DiscB"]}], "s"], "-", 
+      FractionBox[
+       RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "mu", ",", "mu"}], ")"}],
+         "DiscB"]}], "s"]}], ")"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["p1", "\[Rho]"], " ", 
+    SuperscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", "\[InvisibleComma]", "\[Nu]", "\[InvisibleComma]", 
+      RowBox[{"{", "p1", "}"}], "\[InvisibleComma]", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+         SuperscriptBox["md", "2"], " ", 
+         TooltipBox[
+          RowBox[{
+           SubscriptBox["C", "0"], "(", 
+           RowBox[{"0", ",", "0", ",", "s"}], ";", 
+           RowBox[{"md", ",", "md", ",", "md"}], ")"}],
+          "ScalarC0"]}], 
+        RowBox[{"3", " ", "s"}]]}], "-", 
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["me", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"me", ",", "me", ",", "me"}], ")"}],
+         "ScalarC0"]}], "s"], "+", 
+      FractionBox[
+       RowBox[{"16", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["mu", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"mu", ",", "mu", ",", "mu"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "+", 
+      FractionBox[
+       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "md", ",", "md"}], ")"}],
+         "DiscB"]}], "s"], "+", 
+      FractionBox[
+       RowBox[{"6", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "me", ",", "me"}], ")"}],
+         "DiscB"]}], "s"], "-", 
+      FractionBox[
+       RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "mu", ",", "mu"}], ")"}],
+         "DiscB"]}], "s"]}], ")"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["p1", "\[Nu]"], " ", 
+    SuperscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", "\[InvisibleComma]", "\[Rho]", "\[InvisibleComma]", 
+      RowBox[{"{", "p1", "}"}], "\[InvisibleComma]", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+         SuperscriptBox["md", "2"], " ", 
+         TooltipBox[
+          RowBox[{
+           SubscriptBox["C", "0"], "(", 
+           RowBox[{"0", ",", "0", ",", "s"}], ";", 
+           RowBox[{"md", ",", "md", ",", "md"}], ")"}],
+          "ScalarC0"]}], 
+        RowBox[{"3", " ", "s"}]]}], "-", 
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["me", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"me", ",", "me", ",", "me"}], ")"}],
+         "ScalarC0"]}], "s"], "+", 
+      FractionBox[
+       RowBox[{"16", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["mu", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"mu", ",", "mu", ",", "mu"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "-", 
+      FractionBox[
+       RowBox[{"10", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "md", ",", "md"}], ")"}],
+         "DiscB"]}], 
+       RowBox[{"3", " ", "s"}]], "-", 
+      FractionBox[
+       RowBox[{"10", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "me", ",", "me"}], ")"}],
+         "DiscB"]}], "s"], "+", 
+      FractionBox[
+       RowBox[{"40", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "mu", ",", "mu"}], ")"}],
+         "DiscB"]}], 
+       RowBox[{"3", " ", "s"}]]}], ")"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["p2", "\[Mu]"], " ", 
+    SuperscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Nu]", "\[InvisibleComma]", "\[Rho]", "\[InvisibleComma]", 
+      RowBox[{"{", "p1", "}"}], "\[InvisibleComma]", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["md", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"md", ",", "md", ",", "md"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "+", 
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["me", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"me", ",", "me", ",", "me"}], ")"}],
+         "ScalarC0"]}], "s"], "-", 
+      FractionBox[
+       RowBox[{"16", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["mu", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"mu", ",", "mu", ",", "mu"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "+", 
+      FractionBox[
+       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "md", ",", "md"}], ")"}],
+         "DiscB"]}], "s"], "+", 
+      FractionBox[
+       RowBox[{"6", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "me", ",", "me"}], ")"}],
+         "DiscB"]}], "s"], "-", 
+      FractionBox[
+       RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "mu", ",", "mu"}], ")"}],
+         "DiscB"]}], "s"]}], ")"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["p2", "\[Nu]"], " ", 
+    SuperscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", "\[InvisibleComma]", "\[Rho]", "\[InvisibleComma]", 
+      RowBox[{"{", "p1", "}"}], "\[InvisibleComma]", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["md", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"md", ",", "md", ",", "md"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "+", 
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["me", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"me", ",", "me", ",", "me"}], ")"}],
+         "ScalarC0"]}], "s"], "-", 
+      FractionBox[
+       RowBox[{"16", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["mu", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"mu", ",", "mu", ",", "mu"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "-", 
+      FractionBox[
+       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "md", ",", "md"}], ")"}],
+         "DiscB"]}], "s"], "-", 
+      FractionBox[
+       RowBox[{"6", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "me", ",", "me"}], ")"}],
+         "DiscB"]}], "s"], "+", 
+      FractionBox[
+       RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "mu", ",", "mu"}], ")"}],
+         "DiscB"]}], "s"]}], ")"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["p2", "\[Rho]"], " ", 
+    SuperscriptBox["\[CurlyEpsilon]", 
+     RowBox[{"\[Mu]", "\[InvisibleComma]", "\[Nu]", "\[InvisibleComma]", 
+      RowBox[{"{", "p1", "}"}], "\[InvisibleComma]", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["md", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"md", ",", "md", ",", "md"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "+", 
+      FractionBox[
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["me", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"me", ",", "me", ",", "me"}], ")"}],
+         "ScalarC0"]}], "s"], "-", 
+      FractionBox[
+       RowBox[{"16", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["mu", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"mu", ",", "mu", ",", "mu"}], ")"}],
+         "ScalarC0"]}], 
+       RowBox[{"3", " ", "s"}]], "+", 
+      FractionBox[
+       RowBox[{"10", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "md", ",", "md"}], ")"}],
+         "DiscB"]}], 
+       RowBox[{"3", " ", "s"}]], "+", 
+      FractionBox[
+       RowBox[{"10", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "me", ",", "me"}], ")"}],
+         "DiscB"]}], "s"], "-", 
+      FractionBox[
+       RowBox[{"40", " ", "\[ImaginaryI]", " ", 
+        TooltipBox[
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{"s", ",", "mu", ",", "mu"}], ")"}],
+         "DiscB"]}], 
+       RowBox[{"3", " ", "s"}]]}], ")"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+     "\[Mu]", "\[InvisibleComma]", "\[Nu]", "\[InvisibleComma]", "\[Rho]", 
+      "\[InvisibleComma]", 
+      RowBox[{"{", "p1", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{
+        FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["md", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"md", ",", "md", ",", "md"}], ")"}],
+         "ScalarC0"]}]}], "-", 
+      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+       SuperscriptBox["me", "2"], " ", 
+       TooltipBox[
+        RowBox[{
+         SubscriptBox["C", "0"], "(", 
+         RowBox[{"0", ",", "0", ",", "s"}], ";", 
+         RowBox[{"me", ",", "me", ",", "me"}], ")"}],
+        "ScalarC0"]}], "+", 
+      FractionBox[
+       RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["mu", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"mu", ",", "mu", ",", "mu"}], ")"}],
+         "ScalarC0"]}], "3"], "+", 
+      RowBox[{"\[ImaginaryI]", " ", 
+       TooltipBox[
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{"s", ",", "md", ",", "md"}], ")"}],
+        "DiscB"]}], "+", 
+      RowBox[{"3", " ", "\[ImaginaryI]", " ", 
+       TooltipBox[
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{"s", ",", "me", ",", "me"}], ")"}],
+        "DiscB"]}], "-", 
+      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+       TooltipBox[
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{"s", ",", "mu", ",", "mu"}], ")"}],
+        "DiscB"]}]}], ")"}]}], "+", 
+   RowBox[{
+    SuperscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+     "\[Mu]", "\[InvisibleComma]", "\[Nu]", "\[InvisibleComma]", "\[Rho]", 
+      "\[InvisibleComma]", 
+      RowBox[{"{", "p2", "}"}]}]], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["md", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"md", ",", "md", ",", "md"}], ")"}],
+         "ScalarC0"]}], "3"], "+", 
+      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+       SuperscriptBox["me", "2"], " ", 
+       TooltipBox[
+        RowBox[{
+         SubscriptBox["C", "0"], "(", 
+         RowBox[{"0", ",", "0", ",", "s"}], ";", 
+         RowBox[{"me", ",", "me", ",", "me"}], ")"}],
+        "ScalarC0"]}], "-", 
+      FractionBox[
+       RowBox[{"8", " ", "\[ImaginaryI]", " ", 
+        SuperscriptBox["mu", "2"], " ", 
+        TooltipBox[
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{"0", ",", "0", ",", "s"}], ";", 
+          RowBox[{"mu", ",", "mu", ",", "mu"}], ")"}],
+         "ScalarC0"]}], "3"], "-", 
+      RowBox[{"\[ImaginaryI]", " ", 
+       TooltipBox[
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{"s", ",", "md", ",", "md"}], ")"}],
+        "DiscB"]}], "-", 
+      RowBox[{"3", " ", "\[ImaginaryI]", " ", 
+       TooltipBox[
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{"s", ",", "me", ",", "me"}], ")"}],
+        "DiscB"]}], "+", 
+      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+       TooltipBox[
+        RowBox[{"\[CapitalLambda]", "(", 
+         RowBox[{"s", ",", "mu", ",", "mu"}], ")"}],
+        "DiscB"]}]}], ")"}]}]}], TraditionalForm]], "Output",
+ ImageSize->{576, 861},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[36]//TraditionalForm=",
+ CellID->137474011]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "Therefore, ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     SuperscriptBox["\[CapitalGamma]", "\[Mu]\[Nu]\[Rho]"]}], "=", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["e", "2"], "g"}], 
+       RowBox[{"2", "cos", " ", 
+        SubscriptBox["\[Theta]", "W"]}]]}], 
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+     RowBox[{"(", 
+      RowBox[{"output", " ", "above"}], ")"}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ".  Observe the absence of integer constants in the sum which are present in \
+",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"i", " ", 
+    RowBox[{
+     SuperscriptBox["\[CapitalGamma]", "\[Mu]\[Nu]\[Rho]"], "(", "f", ")"}]}],
+    TraditionalForm]], "InlineMath"],
+ " for a single fermion flavor.  Its absence is due to anomaly cancellation."
+}], "Text",
+ CellID->589455952]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "TutorialMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "TutorialMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Guides"}], "TutorialMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "TutorialMoreAbout",
+ CellID->1567025153],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Ward Identities and \[Gamma]_5 in Dimension Regularization - Wolfram \
+Mathematica", "Ward Identities and \[Gamma]_5 in Dimension Regularization"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "TutorialColor", 
+  "LinkTrails" -> GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 24.760630}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Tutorial", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "In Package-X, the fifth Dirac gamma matrix \[Gamma]5 is defined to \
+anticommute with all other gamma matrices. This implementation is \"naive \
+dimensional regularization\", and can lead to apparent violations of Ward \
+identities. This tutorial explains how to deal with \[Gamma]5, enforce Ward \
+identities, and check for anomaly cancellation with Package-X, using the \
+on-shell Z\[Gamma]\[Gamma] vertex function in the standard model as an \
+example. For a given fermion flavor in the standard model (quark or lepton), \
+there are two diagrams contributing to the Z\[Gamma]\[Gamma] vertex function: \
+", "synonyms" -> {}, "title" -> 
+    "Ward Identities and \[Gamma]_5 in Dimension Regularization", 
+    "titlemodifier" -> "", "windowtitle" -> 
+    "Ward Identities and \[Gamma]_5 in Dimension Regularization", "type" -> 
+    "Tutorial", "uri" -> "X/tutorial/AdlersMethod"}, "SearchTextTranslated" -> 
+  ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> Notebook], 
+   Cell[
+    StyleData["Output"], CellContext -> Notebook], 
+   Cell[
+    StyleData["TutorialMoreAboutSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["RelatedTutorialsSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["TutorialRelatedLinksSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/Tutorials/ArgumentsOfScalarD.nb b/packages/X/Documentation/English/Tutorials/ArgumentsOfScalarD.nb
new file mode 100644
index 0000000000000000000000000000000000000000..89a1e7d653b9bbb65ceb5afe8dc7095f2828cadb
--- /dev/null
+++ b/packages/X/Documentation/English/Tutorials/ArgumentsOfScalarD.nb
@@ -0,0 +1,1874 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X TUTORIAL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Related Tutorials \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Scattering of Light by Light\"\>":>
+       Documentation`HelpLookup["paclet:X/tutorial/ScatteringLightByLight"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Functions \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"MandelstamRelations\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/MandelstamRelations"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/tutorial/ArgumentsOfScalarD\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/tutorial/ArgumentsOfScalarD"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/tutorial/\
+ArgumentsOfScalarD.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/tutorial/ArgumentsOfScalarD", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell["Bringing the Arguments of D Functions to Canonical Form", "Title",
+ CellID->509267359],
+
+Cell[CellGroupData[{
+
+Cell["Introduction", "Subsection",
+ CellID->2017357689],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "In one-loop integrals corresponding to 2\[Rule]2 scattering or 1\[Rule]3 \
+decay processes, the Passarino-Veltman ",
+ Cell[BoxData[
+  FormBox["D", TraditionalForm]], "InlineMath"],
+ " functions depend on ten variables: 4 external masses, 4 internal masses, \
+and 2 (out of 3) Mandelstam/Dalitz variables.  It is conventional to present ",
+ Cell[BoxData[
+  FormBox["D", TraditionalForm]], "InlineMath"],
+ " functions in publications with their arguments organized in the following \
+way:"
+}], "Text",
+ Deletable->True,
+ CellID->1534169418],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{Cell[BoxData[
+     FormBox[
+      RowBox[{"D", "("}], TraditionalForm]], "InlineMath"], Cell[BoxData[
+     FormBox[
+      RowBox[{
+       UnderscriptBox[
+        UnderscriptBox[
+         RowBox[{"\[Cross]", 
+          RowBox[{",", " ", 
+           RowBox[{"\[Cross]", 
+            RowBox[{",", " ", 
+             RowBox[{"\[Cross]", 
+              RowBox[{",", " ", "\[Cross]"}]}]}]}]}]}], "\[UnderBrace]"], 
+        RowBox[{"external", " ", "masses"}]], ",", 
+       UnderscriptBox[
+        UnderscriptBox[
+         RowBox[{"\[EmptySquare]", ",", " ", "\[EmptySquare]"}], 
+         "\[UnderBrace]"], GridBox[{
+          {
+           RowBox[{"Mandelstam", "/"}]},
+          {
+           RowBox[{"Dalitz", " ", 
+            RowBox[{"vars", "."}]}]}
+         }]], ",", 
+       UnderscriptBox[
+        UnderscriptBox[
+         RowBox[{
+         "\[EmptyUpTriangle]", ",", " ", "\[EmptyUpTriangle]", ",", " ", 
+          "\[EmptyUpTriangle]", ",", " ", "\[EmptyUpTriangle]"}], 
+         "\[UnderBrace]"], 
+        RowBox[{"internal", " ", "masses"}]]}], TraditionalForm]], 
+     "InlineMath"], Cell[BoxData[
+     FormBox[")", TraditionalForm]], "InlineMath"]}], "."}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->332437474]
+}, Open  ]],
+
+Cell[TextData[{
+ "Due to ",
+ ButtonBox["numerous invariances",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/ScalarD0#1944346293"],
+ " of the ",
+ Cell[BoxData[
+  FormBox["D", TraditionalForm]], "InlineMath"],
+ " function under permutations of its arguments, ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " may not generate ",
+ Cell[BoxData[
+  FormBox["D", TraditionalForm]], "InlineMath"],
+ " functions with this ordering.  This tutorial illustrates the strategy to \
+obtain ",
+ Cell[BoxData[
+  FormBox["D", TraditionalForm]], "InlineMath"],
+ " functions with their arguments in canonical form for two examples:"
+}], "Text",
+ Deletable->True,
+ CellID->1095419976],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[GridBox[{
+    {
+     RowBox[{"(", "a", ")"}], 
+     RowBox[{"(", "b", ")"}]},
+    {
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3c+LHsmZ4PGntxezNk136za3qm2vr3aD/gCVF52GARVjmsEnvzOsdfBF
+xeyCGHyoOhjTsAOSh4VFp35Pg9FFhX0Zo4NqYRZ7QbgFC8YDW6gwrPEyjFrG
+xox3zOa+UZnvq3gjIzMi3zczn4jMb8DHP1S/IiPzzXgyIvKJf/sX9/707r8S
+kf/4b1b/8ad/fv+rf/mXf/5XX/vXq//z7//qP33zL95e/Y///pbIv1t9j/nH
+oigAAAAAAAAAAACAva3K+ysnK2crC+36AAAwFtPvVf2f6Qff167PXFWxyAuz
+HMay5JwAAKas6v+WTv/3gv5P7XycOOfCPieH2vUDAKBvpn/zPIuvnWjXb46q
+MSrf+TBer3yoXUcAAPpi+rWqf2vq+8606zhH1bxZ0zlZW2jXEwCAfUX2ecfa
+9Zwrz/yZz1K7ngAA7Iq+Lg8t60hsF6zzAQDkpFq3esFcQD5W5Sgwp2ZcsaYE
+AJCDaq3IVaBfM/3ekXZd4T13TWuO7XPH/BoAIFmmn4p4xn7BM3a6qrGt84ix
+Ld6JAgAkJ3INwjlrEPKwKg9j1v5wPgEAKRB/jjOfh9p1Redzu4gc7yImAQCo
+EX++cd96g4V2XbHzOQ7ljlmfY+bgAACjo5+aj8i4k/elAACjkrgcZ4zjTwzz
+cgCAVMSuc9SuJwY7/+ROAwCokfgcZ7wHOnHCe90AAAVCnqz92u8t+WDlvuNy
+pTD/2/nemysfV19bu6x+5ob2sexwTRxp1xUAkD+JyyM+yLNw7v149beLgJvW
+9z8KfO8r+/u1MWYGABiD1lqBKfbjq79/11ev6msm7noecczrY0lmnKS6TlhT
+BAAYhCTyLsWU+nFPXR+bOtljPnYdW+Ks+1rH0HK9LCKuF965AgBEkQRzTUyl
+H7fqu/ZRdWzGBw0/4zuW59rXScO1Q04aAMDeUu1PptCPV/GTWx9Tx6eBn7vZ
+EFslNWdjXUPk7EXyqnFXe13aq/W4KwBdkuheJVPpx6sYyq3LZUx9Go7DG4el
+QNjTCAlqmPvduq9o1xGYu9j1iBpz/1PpxxvGaz6K/Fl3fMi4rX3dRFxXZxHX
+FXs+Y3RSrj3b6fMIoH/Vc+x5RJ9xplbHifTj1XiwXY/W8Z2I40jmvd/ANRab
+O+1Qu66YF89nMsk5UGDqJJMcZ1Poxxvmju52+Plk5p32uNauIq61I+26Yh48
+n8kk14gDUydxOc6uxl63WqvnRPpxqedTiV431zCunN26O4nPnbbQriumz/OZ
+/Fi7TsDcSFyeiIsU5vSn0o9L+X7yTuvmxL9+5rH2udnj+otZ57rUriemzfOZ
+TH49FjAlufUFU+jHpXw/yJ1zil43J/Uc+EZy+dA6tQm506DM+UxmN94I5EoS
+zHEWrPNE+nFPXNTp3if+/LPZrB1pPK64XDdRc4ZSvsdzqH1MyINnHjjb8UYg
+Jx3WEiaVM3Mq/bgnLuoyxuObc5pMjgQTQ0TEya2506yxlhfax4M8eOaBsx5v
+BHJQ3at/HTEufqhd11rdJ9KPe+KiLmM8vn0Fk82DtlP77PHOeRVrt34P4PJ8
+JrN4dx7IlSSc4yyq/hPox8WfWzZqjKZhvmqyz3HSMXdaFcf45nuOtI8F6fJ8
+Ji8V6jDZ5wvAtipfXvnFLs+bqZhKP+6Ji6LnqT0/O/n8CBK/Z8GXW+Z5rlKN
+saHPMw/8sfP1pr04t+xZh0HjEdnel+e+9Wx33/k+kz//qTuOLLxrhD1JmVPk
+JxFxSPJ7mU2lH5f6+0FRcZEnpno1l+coiVvv9PvQOIr2cSBNUp8H9o67Sjnn
+6+ZT7KWvHioeiYijblrH5ltfp/4Mh7xVz5Qx786snx2TWrfqPaaJ9OOecZqo
+eWrPM9qsnlck/n2wNgvt40B6PP1w47ir9b2XsZ/dyDoMPT5y03PvedXytSaz
+uu9gN9X9+iTiOdL2s1zGsafQj0v9ncKo94OkPp4cnY92aiQuX07bOOCh9jEg
+HVKfB24cO5U346xP22KWHesx+PoRzzjQYysWubSf8ap/d+dtro9d+5whXeb+
+KuW6v9Acu+vvtesefYwT6cdlhzknz7PLbGORTZvE5U5rwjvA2JByvURw3NX6
+7A7yTt5I8Yj7bHa3ikO89yHxr7trHT/CPFVz6rs+K/5Uu/6djnUi/bjUx4Vb
+55ykPl/NWOm6bUT+ZOUPO17/Z9r1RxqkPg9cG3e1xhUGWz8xUjzi3n/M+Efr
+Hj2eMZXosWlMn5RrVC/2eD78VS5zNJtjnkA/Lv73gxpjpGpsZx1PPe/zHlXF
+d1mPu+75GTCOtI8B+iSQI96as4jOLbBjPYZeP+K7/wTX9XueBZO4n0JXNUZ9
+tec9OLv7sGY/Xv3t+849a2uetcPv8u2d89z9bK9jBetv9Tau4xxLtvHIHuOC
+tqvc4nL0fB215IiXN++bvBqj/x0hHvHdf4LHJfX5LOKRmZJyjepZT3FIluPU
+Wv24+f3Svua8U38u/rVkdh6AzTNa9e+9PY/Jm3ni7NelyX5rR1y8Azxjnmf/
++9W/rz/7vb5DE6jL0PGIe/+J+vw3jI8wXzMjq3IoZS7VrmtU22S5jk+jH7ee
+m8zfvmH9uztWEj1O4oltBh3/tf7ubavN7PVs2cUjUs8F34eF9nFB6XryrB1x
+xgNG+YxWdRk6Htnp/uO5/xbCetZZqMZD+hiLdmX7nqNGP942viLbY7xRedWk
+Pi6s8pmW7T18coxH9s0/0vTZSD7/Dga4nrbvLc99zz57/G7fuMIQgu/7eO4/
+0fuQemK2yeeERnXu+8n5NJlnQI1+XMr5odCa881nNPJ3JpEfNvd45PoYuuX6
+m/TYIfa4jvzzwOtx1r3HKhKLR9y6dNmH1G2P1nsjpsWMY0i/8zRL7WPauS0U
++nGJW+O1nveIzYPiPmOofKanEI9sjmX/98xcD7WPCSNeP/WxkMvq+cf9953e
+8U0sHnHvP7FzNb7nQdaOzIz0N09+JRm/Q5BKP95Sr5h7gS+n0Gjz0k5dJhOP
+bI6pjN+XPX1ejrSPByNdNw054j198CsZYW7V+Zu9rh9x7j/Rx+OJzSZxz0B3
+0s97BNnOi6fUjzv1uml9roP3DfGPC6vsnzPFeGRzbLJznmLbb3KO3xF5rQRy
+xHtilcFzKQ51f/DEV1FrYhruv7znO2Or8oM97q1n2vXf69gT6setOpnP9mX1
+OY3dP8d9xoheSzZA/Scbj2yOcbd9nGz/Q/sYMPA1Ur+3fOx83c25McY88VDx
+yE7zT542GCRPPvKwKsd7POtdaNd/7+NPrx9/1PUzXf2s+6y185r9no5j0vHI
+1vHuvvb1iXbdMeB1Ub+3fOR8ffSxgQHjEff+EzOm6x6/eQbjHd+Zqp7vdh0X
+yfbd3q02SKQfl/oalk1/HvpsO/2/+hqYucUjm+Mu176ed/wc/UC73hjoeqjn
+Bqz1tRK5Z1Y11rJ3/DBEPCId9i52fs6N11jDOkPST/6RY+3j2LsdEuvHrXrd
+d+5ll233Ds/nmnhE8/xJ57WvZmyF9SQTIvX1FN4+uuEe9IHne3pZ7zpQPNI6
+LxXZPupr9jA+6Sf3yFL7OHppi8T6cU/9nlr18s6rNhxDUd2/BtsnNFDvWccj
+m3Z4sw/DbyLHG7NdFw7n3NfHPRrvK7I9R1v7rFf3gV4+ywPFI63zUp7vv+E8
+b6nviY7xSfl+b2itiPn6f275+tUUnuVS7Mc9dXQ/t3ZO+acN9fcaud7EI3Z7
+lHHJt1Z+H/HZW2jXFz2c8w65OBrGSO5WXzOxymWP9RoiHvG+09zwvTec7+dd
+mhmScs1dKBbZjBu3jDdn/QyXcj/eUN/7fd8/Rqgz8YivXcq45O8jxkrImZY5
+6ZiLwzNGMsi6ir7jEU8s1fg+gJRzNOtY5HkfxyXlvlnPQ+2LdEi5Z15wDsYe
+92iY1znTPpa5ke25WeKRCZC4deTnUxiHnCPZIReH+N+1Kfoeqx0gHvHlh3Xf
+a74tO7432PJ3P3DGoLK4N85ZFVPErPc/afn59ZjKhfbxzFH1WW597kgN8UhE
+G8W9Z/8i9/HIOfL00bG5OOzxAzNP2/sazwHiEXdeysQdvrnwRz3FITcafj/x
+SMKkXCsSWrdq7oet78nImzUnh9rHNEfWvS2bPEHEI5HtVH62riI+o0fadQV8
+PGM6Q+9Der+KR9x3EIlHEiVlHoTenr0YN1Y8l+V6l1H2tuixzsQjsW1VjkFe
+7DqGCWjxzEuNup+4MwdEPJKgyLnpC2IM5fP0Jk+yGZ/1rjGv1o5E54xPQTWe
+ao/hRu2/M3cSl69kqV1PYM0zLzVqrgTikbRxT8uH57P8yP5MVWOSwdysqbDW
+ubTp7b3FKZK4vS3JnYYkSP1dxVFzmhGPpEnic5wttOsK67z512VdVrEK7+XP
+kMTlCLqKnWsFhiD1HPGDrx3x1IF4JDEd1sRx/wIysCqHEc8X5E6DGqnniB91
+7UhVB+KRhEh8jrND7boCiCfxe0ydadcV8+MZ2x19H1LikXRIuS9GcK0Ic81A
+viI/5+ROw6ikniN+9D02iEf0SXyOszPtugLYn8TnTjvUriumr2Ht+uh74hGP
+KF8H8fPKrTnOAOSlwzqxI+26YrqqdSOXnnikMW/BgHUhHtG6DuJynJn7FetW
+gQkS3qODksj3+Te5C0aqE/GIxrVAXgIAlch1rkvtegJDIh5RaHPuPQAckc8o
+FzyjYKqIR0Zs6/h9LRbadQUwPuZwMWfEIyO1M2vXAEQQ1rhjpohHRmhj3u0D
+0IGQAwAzI2/2GlXZO2cOhNxHAHYUef9Ycv9ArqS+D2mNdh1zJ+SGBtADYQ8J
+FJs+hXOMTjrM/y606wogfRK3RzB7bE6YlGud17Hnw2odAONiaBR537jivgGg
+CyF32qxZ8YjroprXO9KuI9Ih5DgDMLDIeeCH2vVE7+e9KR5xx8jMesQT5nbm
+K/IesdSuJ4D8Vf1N6H5zwbPPdETGI76x+GX1rMy1MHESn+PsRLuuAKZD4nKn
+mfFY5oYnYMd4xHc9XK890T4e9H59fChx61aPtOsKYHo63IPofzLXUzziG0M7
+I2bNm8TnOOM8AxiMxOdO+z9V/4M8xaxl3se/rPzjys9XfpLA8SKO+VyHzi05
+zgCMRspx+CH7KwD5YW07gNFJ3Dt+AKaPHGcAVElcDiQA00VuRABJkHJNye8S
+uC8CGJf53LNWBEAyhJgEmBtiEQBJknCOecZ1MyHDvO97JWW+NPbCSZyE52HJ
+/Q4gaRExyRX3sfT1FI+s88kvhHzy2ag+w8QiALIn5Z7j3M8ytkc8ciHkPMtW
+xPPEa2JLADlhvDdvHeIRcsJPRGQsQpwJIDsRMcm5dh3ReO6a4pErYc+8SZL2
+vMvEIgCyJuGcaUvtOsJ73o6sfsj0UyeM009XFWO2fU4Z/wKQPWKS/FRj90fa
+9cAo5zoUiyy06wgAfYmISU606wjMTTXuRSwCYFZ4DgPSwbglgDkjJgH0EYsA
+QDAmYR0/MCAp33sjFgEwe0KeA0CFkBcIALYQkwDjIhYBAL8qJrni/ggMKyL+
+57MGYNZ4ZgOGxVgkAMQhJgGGQSwCAN2w5h/on4TfrycWAQCHkBMB6E1ELLLQ
+riMApCoUk3z1q1/9b6vvO6ssVpjHARzEIgCwPwnsqfHJJ58UVnldlHGJer2B
+FESMM7JXFABECj3fOTGJKQvtOgPamPMEgP6FYpInT54UTllo1xnQsirHxCIA
+MIyvfOUr/9h0f33vvfeKTz/9tHDKkXadgbFJ+J35c+06AkDOPvvss2IVkzQ+
+83liErOehHcYMRsRsQj5ewBgf0VMTPLy5cvCKsQkmIVVOSQWAYBRmNjiOiYx
+cUfTfdfEK+Z7rGJ+jvswJkvicq/yGQCAfiyLqph5mY4xyYuCmAQTFBmLMEYI
+AP05LKoxElNCMcmtW7cKpxCTYHKIRQBAxaKwyrNnz9reaSy+8Y1vFE7h3QJM
+Rug9+JUj7ToCwIQtCquYfGgdY5JlAscA7CUiFllo1xEAZuCssEooJjk9PS2c
+skzgGICdrMoZsQgAJGNZWOXevXutMYknrzx7dyA7Es4Df6ZdRwCYoWVhFTM3
+0zEmWSRwDECUiFhkqV1HAJixi8IqoZjErIF1yiKBYwBambWpxCIAkDTzDq95
+l3dTOuaVN4V3IpEsicgDr11HAMC1rZiEvW4wFTGxiJB7FQBSYu7Jm3xpoZjk
+4ODAl1eemATJkDL3KrEIAOTHxBObmMTsrUdeeeRI4vLAH2rXEwDQaCsmYa8b
+5CYyFmEsDwDSd1xYJRST3Llzp3AKMQnUrMo5sQgATMaisAp55ZEDCeeBP9au
+IwCgs0VhFWISpCwiFllo1xEAsLOHhVVCMcmDBw8KpywTOAZM3KqcEIsAwOQt
+C6uQVx4pEfLAA8CcLAurEJMgBcQiADBLW3nl22KShrzyrCVEb6TMvUosAgDz
+Q155JEHIAw8Ac0dMAlXEIgCAylYOVxOTmP1smvoHTw5X87OHCRwHMiPh3KvE
+IgAwL+SVx6giYhFyrwLAPBGTYBTEIgCAgEVhFROTtL3z4Mnh+iKBY0DiJJx7
+lVgEALAorEJeefQpIhZZaNcRAJCMRWGVUExy7969winLBI4BiSEWAQDsYFlY
+xexl09aXeHK4niVwDEiEhHOvnmjXEQCQrGVhFfLKYxcRschSu44AgOSdF1YJ
+xSRPnjwpnLJI4BgwoFU5bPnaMbEIAKAHWzlcTbl161Zj/9Kw181RAseBAVhj
+HwvP10K5V8+16w8AyEotr/wXv/jFxpjk3XffJa/8TKzKlW89akQsQu5VAMAu
+TN9xVVTFxCTvvPNOY0zyhS98oXj58mVhFWKSiWlYF3Ji5m+IRQAAA9rK4frD
+H/6wdS2Jmbu5uroqrGJ+ln5oIpyxEds/tVwXr4lFAAA92IpJbt682RqTvP32
+28V3v/vdwirklZ+Aahyk9dw3xCKMkQEA+mL6lOvy7NmzqL7IrIG15m+ISTIm
+5f4zbfMxxCIAgLEsiqrcuXMnul86PT1d/xjvVmRqVc52GBs50q43AGCyFivX
+4x5d+iazN3D1/s0ygWNABzuOjfyCNSMAgIGdrQTzpPmYfW9++ctf/m0Cx4BI
+O46NMF8DABjDsusYydrBwUHxve99778kcAwI2HFshJgEADCm5S5jJGtf+tKX
+fsqYftr2GBtxY5Ij7WMBAEzXz372s5/s01d97nOf+52w53ySJJzjrCvOMwBg
+KO9/7Wtfa8uFFetCWvZow/hWZdljLGKcaR8TAGC6vv3tbx+88847f+hpXP9E
++3iwGRvpKw4xsSZrSAAAg3vvvfc+7rH/ekH/paunsRHiSwDANXlL7q7ct7wy
+ev87Iu+//fbbv+kxJmHPE61rpp+xkXNh/g0AZq2KQYoWjwb5u/28i1G89dZb
+v2Z8RPH6EfnbPePIY+1jAACkZRV7fOCJRz4a5G/tn6vien/gH//4x/9QsNeN
+zvWyigP3OH8P9xnTGmssDwCgo7qv2/HIjcH+1h5jJCan/GeffVZUZandbnO0
+Kr/a4dxdyY75RbTG8gAA41rdz2869/fng/69cozkapd45Otf/3rhlKV2+83J
+qvzdDuftrLe/P+JYHgBgXNW4t31//3jwvymy2HWM5MGDB4VTltptOAerctLx
+XA3yDtSYY3kAgPGs7uePnfv77VH+7o5jJMYnn3xSOGWh3Y5T1jF+HOwd3rHH
+8gAA43GeN0dbG7jPGAkxyYjXR7fzdCEDvsOrMZYHABie53nz8ah/v2WM5PT0
+tGjbi8+8Z/Ppp58WTuE90n7PT+y7NKO8w6s1lgcAGJbnefP+qH+/4dl7PfZh
+3qUx79R0iEler5CXpJ9z86HEvZu9lJHy0mmN5QEAhmXm35145ObodXDGSP7o
+j/7oW6t/f1FUhZhE4bqIi0V+ITu+w7tTnZTH8gAAwzDvJTj390uVeqz6NGvM
+/6j6dxNPmLjiupiY5ODgoLFvdPKSFNXPHmq3cY6kfB/7RSAW+a9jjYls6qU8
+lgcAGIbJ29C2NtDkmQrkobrWS13KvUzcMY2tmMSMgZixkA4xiRljIYdrt/MQ
+ikXMHs1/plK3BMbyAAD9M/FHTF6pKgfVpZsTc6S1hMQkY10P4Vjknz0x41jX
+qvpYnvP3P9A+XwAwFZ7nzca8Utb3Xio8ly4Kq5iYpG0uwbyT45QX2m2dg2pd
+alvbqq3JSWEsb+h4RLb35blvfebuO99n8uc/VXo+SAptBuTP87zZmFfKmrd/
+2hazDGxRWMW8f9MxJllqt3nKImKRhWr9EhjLGyoeiYijblrH5j5DuGaxpoY2
+A6ZD6nuUeT+TViySwp5li8IqoZjk3r17hVOWCRxDclKPRa7rmMBY3gjjI+b9
+ITcX/quWrzWZzTM/bQbkT+p5pWr3beuZNKXnh2VhFbOXTVtf6snhepbAMSRD
+wrlXB8n73qmOiYzlDR2PVH/DHQd6bPWrl/Znsfp3dw7i+ti1z9nI1wdtBmRM
+AnmlrM9sinunLgurtOVwbYhJFgkcg7qIWGSpXcfreiYyljdSPOKug7lb9ane
+XCtVrOYbA5jNHoO0GZAvackrJW/mW18lPoZ5XlglFJM8efKkcMoigWPQuwZE
+jnOIRa7rmshY3kjxiDsvZZ4LWvfo8YwPeNtoqmgzIF/SkFfKxB/WGGfqn03z
+Du8mh6spt27dauxfG/a6OUrgOMY//+HcqxfaddyqbyJjeUPHI1Kfl2qdm7J+
+zv08z2Y9BG0G5M33vCnbY+IpztH4bMUk5JWPOPfhWMTkH0kmX0tKY3kjxCPu
+O81RfaTU57Nm07fSZkDenOfN556xy5z2BTF951VRlZiY5OXLl4VVZhOTrMph
+TrHIdZ0TGssbIR5xP4dRaywbnvVTH9+kzYCZa3ieKKS+viun/JO1vW465nA1
+P5tUP9z7eQ/nXn2dWixyXe+ExvJGiEfcz2DUsXn65MHWZjb040OIWpOcQ5sB
+8PN8Di+re7z77ym94xuDvPJN5zwuFklyjEgGHMtLqW+V+rxUbZ1My8+6MVtw
+/QRtNl6bAfCThrxSvs92hs8Lpk/dlFBMYta/OmWSMUnGscigY3mJ9a1uXaLf
+Wfa0R+u7JXueE9oMwN4kkFfKE6vc1a7zDhaFVZ49e9YYjxievPLnCRxDf+c8
+nHv1SLuOjXUfeCwvsb7VfV6PnXdwnyOMWayDoM2AfEl4TzJ3zXmuY5iLwipz
+3esmIhZZaNextf6JjeU5f7PX9SPO83r08Xhis9nkGaXNgHx5PocfOV/35S3M
+9R24s8IqoZjk9PS0cMoygWPY/VyLnGUeiyQ3ljdUPOKJr6LWxEzs80qbATMi
+9X1Pa88TUh/Dbsq5/FHfz4gDWBZWMfvrtfXRnrzy6nu37HSew3ngH2rXMXgM
+CY7lDRiP7DT/5GmDFPa8HOv6oM2ATHmeJ7z3bylzTLlzqx94vieX9a7LwipT
+3+smIhZZatcx6jgSHMsbMB5xx3qCv9tz/JeZfB5pM2DmPOMejevJpb4/1SPn
+609jn0cScVFYJRSTmDWwTlkkcAzhcyxyNIVYpCjSHMsbIh6RDnsXOz/nxmuz
+WY9JmwF5kw5r0RvGSO5WXzOxyqX28XRU2+umY155U5J8J3ZzziLywGvXMfpY
+Eh3LGygeaZ2XimyfXPZ36Ov6oM2AjEnHteieMZLcnysmu9dNTCwiCeZebTye
+RMfyBopHWuelPN9/wxk7yvGdfNoMmCnPs0FwLbr45+ej140lyvTJW3nl22KS
+g4MDX175pGISKXOvTiYWKYp0x/IGike87zQ3fO8N5/tn+V4IbQbky/O8GbsW
+/ab1Wb6cyBjnVl55s7dernnlJS4P/KF2PTsfV6JjeX3HI55YqjHfufNZfN7X
+cVVjDdnkJtVoMynnh546f/fj0HUJABGy3+smMhZJaiwn6rgSHssbIB7x5Yd1
+32u+7cRbfc093bXaLJt3Xsdus0Cse9nXOBmAWTsurBKKSe7cuVM4RTUmWZXz
+qcUi18eV8FjeAPGIOy/1SPz7zj7qMQ75SOrzHTnFI6O1WfV7t66l6jp7mmPb
+AUjaorBKLnnlJfM88KjOY31MZ4yc98+rmO9Rjn3qWG0m5bzQ86bfb8ck2m0C
+YDIWhVVSj0mIRabBMy816l5Rsr0OI4t4ZMw2q2K2xjEwsfK8arcLgEkx+dM3
+JRSTPHjwoHDKcox6rsoJscg0eOalRl1Tmmk8otpmTl3uasSRAGZhWVgltbzy
+MpE88KjOZ/19jVHfXcs0HlFtM6cuj7TrAGDSloVVUolJiEWmRer5zkdZO+LU
+Iat4JIU2s+qyHqfJORcTgPRt5ZVvi0ka8sof91kfKXOvEotMiNTznY8+5p9h
+PJJCm922xmiC76EDwJ6SySsvE8sDj+q81t9PHb1vyzAeUWuzah2tu7/j+r1y
+8r0CGJJ6TEIsMl1Sz/8x+rh/hvGIeptV9XBzrRk57ucFIB9bOVxNTGL2s2mK
+Dzw5XM3PHu7ytyWce/WKWCRPVX/mPmePvr9bTvFIKm3m1OmuVZen2m0EYPJG
+zysfEYtkm3t17qo1EL5x/+djj/vnEo+k1GaeutnjJOxlA2Boo8UkxCLT1PB8
+32SU2CD1eCTFNvPU0V5jyz42AMawKKxiYpK2d148OVxfxPwdCedeJRZBL1KP
+R3LgtCHjIwDGsiis0nde+YhYZJFAG2AiiEd6acN1/nrWjwAY26KwSigmuXfv
+XuGUpe/3EotgbMQjvbThOi8a79cA0LAsrGL2smmLJTw5XM/s3yfh3KsnCRwz
+JoZ4JNg+61jjkW8upmq/V9rv+QCYvWVhlV3zykfEIssEjhUTI2Xu9cf2uyra
+dUqN8+7MVtxRrWM17/ewdw2AFJwXVgnFJE+ePLG/vfj+97//N8QiGFvEuyrs
+yVJ4Y7bNWBJtBCAxWzlcTbl161ZjfOHb6+bo6Kjp+y8SOD4AAJCHvfLKv379
+uvjwww/d7yMPPAAA6MrEDldFVWJikpcvX66/3Y1JiEUAAMCuanvddMnhamKS
+Gzdu/JpYBAAA7GmvvPK//e1v/6HouNcNAACAh4lJNiUUk5j1r07pvP8eAACA
+x6KwyrNnz1rfA/bklT9P4BgAAED+FoVV+t7rBgAAIMbjx48vCquEYpLT09PC
+KUvtYwAAAPla54FfLpeFXcz+eh3zyrN3DQAA6Mzdk8aNSXbd6wYAACDGqhz5
+YoyLi4vCLqGYxKyBdcpC+9gAAED6VuXDlde++OL9998vfv7zn/+usEqXvPJV
++VD7GAEAQLraYpF1HvjvfOc7B8Uee90UZa41YhIAAFBjcryHYhErD7z57628
+8m0xycHBwVYO14KYBAAAOKpY5EVLLGLilEPn57byypu99brklS/I4QoAACqR
+sUjTWMZee90UxCQAAKC4jkfOd4xF1o4Lq4Rikjt37hROISYBAGDGVmXZ9r7u
+yiLyd5nv2xTyygMAgBg9xiJr5vs3hZgEAAC0WZWTnmORtYeFVUIxyYMHDwqn
+LLXbBgAADE+cPPAeyz3/hvn5TSGvPAAAsI0Qi6yZ37MpxCQAAMCQMvfqGLHI
+2iaHqyltMUlDXvlj7TYDAAD9kYg88PIm92pfzO8jrzwAANCKRdaISQAAmDkJ
+5169GjAWWdvK4WpiErOfTVOdPDlczc8earclAADoLiIWicm92hfyygMAMDOJ
+xSJrxCQAAMyIhHOvaq3JWBRWMTFJWz09OVxfaLctAAAIi4hFFsp1NH9/U8gr
+DwDAtGQQi6yZemxKKCa5d+9e4ZRlAscAAAAcEs69eqJdR8eysIrZy6at/p4c
+rmcJHAMAAKhExCJL7To2MPXaFPLKAwCQp1U5zjQWWTsvrBKKSZ48eVI4ZZHA
+MQAAMFsSzr16oV3HCFs5XE25detWYzzSsNfNUQLHAQDA7ETEIkPmge8beeUB
+AMjMqhxOKBZZM/W9KqoSE5O8fPmysAoxCQAAI5G43Ku5xSJrtb1uOuZwNT+b
+67EDAJCFyFgk9zEC8soDAJCwGcQia+Y4NiUUk5j1r04hJgEAYAASzr16pF3H
+ni0Kqzx79qz1PWBPXvnzBI4BAIDJiIhFFtp1HIg5rk1hrxsAAHSsytlMY5G1
+s8IqoZjk9PS0cMoygWMAACBbEs4D/1C7jiNZFlYx++u1tYsnr3xqe/cAAJCF
+iFhkqV3HkZnj3RT2ugEAYFhmbSqxiNdFYZVQTGLWwDplkcAxAACQPInIA69d
+R0W1vW465pU3ZSrvRAMAMIiYWETyzb3aF/a6AQBgIFLmXiUWiWPaYSuvfFtM
+cnBw4MsrT0wCAIBF4vLAH2rXMzFbeeXN3nrklQcAYDeRsQjP8n7sdQMAQA9W
+5ZxYZC/HhVVCMcmdO3cKpxCTAABmTeabB75vpp02hbzyAADEIRbpnWmvTSEm
+AQCg3aqcEIsMwuTP35RQTPLgwYPCKcsEjgEAgMEJeeCHZtpvU8grDwDANmKR
+0Zh23BRiEgAASlLmXiUWGUctr3xbTNKQV/44geMAAKA3Qh54DeSVBwCgQiyi
+ipgEADB7Es69ekUsMritHK4mJjH72TSdE08OV/OzhwkcBwAAnUXEIuReHQ95
+5QEAs0MskiRiEgDArEg49yqxiI5FYRUTk7SdJ08O1xcJHAMAAEERschCu44z
+Z9p/U8grDwCYGmKRbJwUVgnFJPfu3SucskzgGAAAqJFw7tUT7Tpiy7KwitnL
+pu38eXK4niVwDAAAbETEIkvtOsLLnJdNIa88ACBXq3JMLJK188IqoZjkyZMn
+hVMWCRwDAGDGJJx79UK7jgiq7XVz69atxnikYa+bowSOAwAwQxGxCHng80Fe
+eQBAdlblkFhkcsz5uiqqEhOTvHz5srAKMQkAYDQSl3uVWCRPtb1uOuZwNT/L
+uQcADCoyFuEZOW/klQcAJI1YZDaOCquEYhKz/tUpxCQAgEFIOPfqkXYd0atF
+YZVnz561vgfsySt/nsAxAAAmJCIWWWjXEYMw53VT2OsGAKBlVc6IRWbtrLBK
+KCY5PT0tnLJM4BgAABmTcB74h9p1xCiWhVXM/npt14Unrzx7FwEAdhIRiyy1
+64hRmfO9Kex1AwAYmlmbSiwCj4vCKqGYxKyBdcoigWMAAGRAIvLAa9cRamp7
+3XTMK28K74QDAFrFxCJC7tW5Y68bAMBgpMy9SiyCGIeFk1e+LSY5ODjw5ZUn
+JgEAbJG4PPCH2vVEUrbyypu99cgrDwDYVWQswrMsfNjrBgDQi1U5JxbBHo4L
+q4Rikjt37hROISYBgJkT8sCjH4vCKuSVBwDEIhZBzxaFVYhJAAAhq3JCLIIB
+mP0DNiUUkzx48KBwyjKBYwAAjEDIA49hLQurkFceAOAiFsFIloVViEkAAGtS
+5l4lFsEYannl22KShrzyxwkcBwCgR0IeeIyPvPIAgA1iESgiJgEAmFgklHv1
+ilgEA9vK4WpiErOfTdM16cnhan72MIHjAADsICIWIfcqxkJeeQCYIWIRJIiY
+BABmRsK5V4lFoGFRWMXEJG3XqSeH64sEjgEAECEiFllo1xGztiisQl55AJge
+YhFk4qSwSigmuXfvXuGUZQLHAADwkHDu1RPtOgKWZWEVs5dN2/XryeF6lsAx
+AAAsEbHIUruOgMeysAp55QEgX6tyTCyCjJ0XVgnFJE+ePCmcskjgGABg1iSc
+e/VCu45AQG2vm1u3bjXGIw173RwlcBwAMEsRsQh54JEL8soDQIZW5ZBYBBNj
+rteroioxMcnLly8LqxCTAMCIJC73KrEIclTb66ZjDlfzs1z7ADCwyFiEZ0Tk
+jLzyAJA4YhHMxFFhlVBMYta/OoWYBAAGIuHcq0fadQR6tCis8uzZs9b3gD15
+5c8TOAYAmJSIWGShXUdgAIvCKjvsdbNI4BgAYBJW5YxYBDN2VlglFJOcnp7a
+336RQP0BIHsSzgP/ULuOwAiWhVXM/nptnwsnr7x23QEgaxGxyFK7jsCIloVV
+Oux1o11vAMiWWZtKLALUXBRWCcUkP/rRj36VQJ0BIEsSkQdeu46AktpeN205
+XD//+c//XngHHgA6i4lFhNyrmLdOe90IeXkAoBMpc68SiwBhXWOSKz47ABAm
+cXngD7XrCSTExBdnRZVb3uyt9+677/4/4nkA2E1kLMJ4MxDAfCcA7G5VzolF
+gH5ExCTkkQcAh5AHHuidkLsHAKIRiwDDISYBgLBVOSEWAYYVEZOcaNcRALTw
+3AaMh3FIAKgjFgHGR0wCAG9U6/6JRQAFgZiE99gAzIKQFwFQJeT5ATBzxCJA
+GohJAMxVxP3vilgEGE/1mbzi+QDAXPAsBqSJMUsAc0EskqeqnzL5+01+mEPt
++mDwc01MAmDSAmv5C2KRNK3KkWc+zZzLBX3T9AjvvAGYsIhYZKFdRzSeOzce
+8T0zP1w51q4rejvnC2ISAFNDLJK3iHjEdVHN7TDelbGImOShdh0BIFbEPY29
+MhK3Qzzirgk6r66DQ+1jQedzz55SALLHmO807BmPuK6q8bJjYe1JFhjfBJCz
+Vflm4B5m1hycIQtL6S8ecf1q5SfV39A+TjRrey/O+Kb2PQcAXKvy14F7F4Dp
++Wvtew8ArEl4vhnAdLEeDIAqKXOdLRO4HwLQtRTWBgFQIOG8qwDmhTyuAEYl
+4fzSAOaJ/R8AjELK93lDscj/XvkzKd8ZRZ6GXBNknqOXK/8hgeNEN+ZzbT7f
+oZhkoX2vAjBdUuYHD/U1S2HMNntV39Nn/EFu+YmQ+HVj5HIF0Kvq/nMecf9h
+nf1E7BmPXAl7702exI2hnXMNAOiDlGtFQutWX/PsOy0d45F1fnj2r5kZKXPu
+huZvX3BdANhH1Sdxr5mhiHjkQsocnkfadYX6tRL7zMK1AqCzyLHYC8Zip8kT
+j2zWgHDO4ZJyTvci4p7BnC6AaBK3Vm2pXU8Meg18KG/WgBxq1wd54N4BoA8S
+n+NsoV1XAGmS8B7f6/E2xtkA1EhcjjNyHQEIiryfXHE/AWCTuBxnLxi3BxDL
+3C8ixlvJnQbgmpTvSATnexlbBdCVxOdOO9OuKwAdEp/j7Ey7rgDyFvncQ+40
+YGY6jKOS4wxALyQ+d9qhdl0BDE/icpyxzgxA76Rc53oV8Sx0pF1XAMORuPfw
+LsYaM5W35O7KfcsrQ7udAAxHyCsAzFrkmrLl4PUoY5CixSPttgIwvFTuSQDG
+kfKzyCr2+MATj3yk3WYAxpHamC2AYeQwV1vN0djxyA3tdgMwHta0AdMmGaxl
+X8UeN51Y5Ll2uwEYn/DOHzBJksm7/tUaVjse+Vi77QDoEHIiAZMhmeVCXMUf
+j5145LZ2nQDoinyeWmo/TwHw6zDeudCu66bO22tHeM8XwDVhTy3Y10P57sN9
+x2XVd9x3vtesA/jYeda9rH6G9YlDn6sM99L0rB15rF0nAOmQ+PX4ydzXUpN7
+P+6Z0/e5aX3/o8D3vrK/Hz2fr7j35V6kNrbpuc7ua9cJQFok4XwFKZtiP96Q
+u+pV9TUTdz2POOb1sTBO0vf5yTifkOfaIWYF4NXnvW5uscuU+nFPXc0axBv2
+mI9dx5Y4i+ffvs5J+cxwEfH5PNGua8M1dcMdE1Sqh12HD7TbJXW0FzSZ+1nE
+Pe+ibSzYimsW2sczattNpB+36rvJn1kd2/Ome1LDsZBboo/zUc6p/q+IOdUj
+7bq2XFMfOdfGx87XQ2OH13qox6D9q9Tnbdf3BHfe1jy/PHXqY9ogqfeNaK+0
+zLG9JC532gvfmhJnbtv8jkPt4xnxWsm+H/c8x66v46eBn3PXKq4xZ7PP+RD5
+m5V/2eWzmBKpr5ny5oiXcizR/Rz1dh8dqn+NiKVuWscXGitNZlyR9krD3Nur
+eibrlDut+pnavVL7WEa6XibRj0v9Obao+odgfRqOgzHeruegnJsxcf2riLFK
+9RxnkdeVe49svJ6s772UnteYDH1tVp9nNx/+q5avNUniOZb2Ssuc20vic6eZ
+OZ7DljGVM+1jGeE6mUQ/Lv7xmqj9zqT+XJvlda92DZWft7OVX0d85oyH2nWO
+vC7cWL1x/E/erBF/OkRMPsZnTOpjQY+tvuL6XTrre29KfVz9+vi1zxvtlaa5
+t5e570XcG/8p8PUj7eMY+BqZRD/uia+jr9uG4+AdilC7lbH8MjIGMf5ZMlqb
+JfW13t7xYisWeTRgXcboX917wd3qs+HNt1LFa77nWvW5TtorPbRXsV4XElpT
+0uYqh3HlPa6R7Ptx8c8d3e3w875xnmyv+cHbu1ynddHxc/QHSXytiOe6cHPE
+165t65lv0LntkfpXd27KPJ+27tMj9WfeJGJ52is9tFd1THE5Iducax/DQNfH
+JPpxqedTic7nLeU6KvcYyAfua6syto/J9+OLRb6sXf8drqvWHPHyZjw5ajxx
+z7oM2r+Kfx1ZcH2657OnNkZKe6WL9nKOKz53WpOF9jEMcI1Moh+X+nNs9Li5
++NfPkA983T7l5+ZEwrmQ23xL+zh2uKYac8TLm3cBXo11bxyhf/V9DoLHJv78
+Rer9Be2VFtrLc2zlvfUHO95TJ5d7fgr9uPjnGKOfV8U/Hpjde2W9t6tcrw05
+23NcMduxRU+sfr/699vyZv3daOPGI/Sv7ucgat624flVfTyd9koL7eU5tjIe
+2ec5bzLvAE+lH/fERZ3GaMT/zvts145UcchyzxhkzXzWslx75YnVbzrPaoPP
+0Tj1Gbp/3ele0HAfUP/8zL29GvrxIUQ9w6beXirX6H7zNWtZvKsYcZ4n0Y97
+rtcuYzy+OafB3pFImey2RjUk2/FE5/753HOd7TUWmFJ/IfW5qS7ztm7cNkhO
+RNqL9hqyvcbW4zOfcaR9PD1cr5Pox6UeF3UZ4/F9ZmeVB03KNar7jBk2OdM+
+tj2uKd9c5PV9tK9rJbH+wq1Ll3uB2yat70vQXrRXiu01Jonb57yL17mOQ1vn
+Oft+XPxrtqPGaMQ/XzW7dSM9x+lrF9rHted15cbq12tFPP++8/WSWH/hPoPG
+jqX73s8bZG6f9soX7WUdkz8XfB+yXKdXnedJ9OOee1T0GLrnZycxDti5Dfd/
+78wXqx9qH9ee15U3R7zn/jjantbO3+019nc+z9HHJDuuUaS90muvgc8F7WUf
+VxmTDPEcmOQe6RHneRL9uCfujoqLPDHVq77vWTmpYpJ936NZO9Y+nj2vqdYc
+8Z5YJTpfz571GqR/9cRYUfeChueSZN7DpL3SQHu1HKNcvzvwsMd7b5bvAE+l
+H/dcr1FjeVLPWzyp63yntuxnHHGpfRw9XFPu2pGPna+7+RBGiccH7F93moPy
+tENS68BprzTQXhHH2k+Op7Xs3gGeQj/uibuj1mx7+ptRnm9zIPutszKfpazX
+VFXXh3v//Mj5uspz24D9qzveE/zdnjaI2n9z5PNIeyWA9urYXrvnwLZl8w7w
+VPpx2WHOSer7WhOLrNsmfk/sJtmNEzZcI+6eTLX7YOy1V31meukLh+hfpcP+
+xc7PuTFbcmsMaS99tNcebbd//oU/0T6GyHM9iX7cE3e3jgNK+Y6y3dfMfo5m
+0zZyPY+5T0x+pn0MPV1TbqzuvX+K/333Dzzf09t614H619a5qcg2GjUvHO2V
+D9qrhzaUnfNTZrFn2BT6cU/c3RojVZ+LdTz1fN/7U/X33bjuMtSWKari8H3W
+U11oH0OP15V7Thvvn1Kfu3zkfP1pn9fDQP1r69yU5/tvOPcC9ecS2itdtFeP
+bSk77d/xfyXhXGna/XjD31jvkRr9uz1x97p+t53vu2/9/ss+ru+Gv+3GJVm8
+qyP75+XJ/t1e59xG50kQ/xjJ3eprJla57LluQ/Sv3veaG773hvP96s8ltFfa
+aK8B2nS3ta8L7Xo3nHO1fryhPvbzaJd4pJa7u/pd7vX/qvr3Xsb8pNxLrS0W
+2bSp9rmOuK5jxgD/LvD1rN/t9ZzfTnkSpD5GYut1zrvv/tUTTzWuI5NyDH39
+2Xre97ENdC5pL932p72GbuNua1+X2vX1nHeVfryhLuv59V3ikZ33Adyzzuux
+xPvOv9+V+jrIJMcaJT7/2aL6/pNcru89z23nPAnif9emdn30VL+++1dfvlP3
+3ebbTszV5/zT7eq+M8h7E1NoLymfH5+6f7OP4xmaUnv55tGfj9U/qLV1Oef+
+04h7urnvJ/MOpFY/3lCX585nLeoz5uk3WscBe6zveu7KG7tLfZ3NXvutDXIM
+ZY6R0DhfLaeOZywlqeu6p/Pr3sdi8yTYz3aXQ32mBuhf3bmpR+LfS/VRz3HI
+B87fHqRvzb29PH/PlfR8hkJ7ue9cDP6MkJpV+eOV3wfu71fu/V3p+lDpxxvq
+cr+6NjvP1/ji35HqbD5frWMesp3Dp9f1A3vXvxzbC62FMnHGYcPP22Mq6tcz
+9rwe6vfuQe8FUj67+vqj5J/1x24vaZ8HXEs6p/TI7bUea39k/x1PX5Fse/XW
+FnK97vV/RjxzLpSvjyTyvMubcQR3bC02HnHj7lH2e4xpL9leL5zMXgtSrssO
+jeWdt415yJuc8lnukQDrXEa+19zz37SfQS67fu7n0l7W3zJjx7etf3fHlUa7
+96XcXtXfe9T0rCjba/4mP0ZyfczxuaTOFK+RJK5lsdYrdY1HxD9fn9TcoHb7
+btWlvC7duZadr8umsRPkxfNsMuq16jz/5xCPjNZeVczWONcr22NMyTzzKLbX
+jdDvl4Z1f1MX+Ry6HHvuPZV+fP2M5Pz/LvGI7/2gZO5nzviI6vxuNW4XWreq
+Pm4HhWujvkZy1HtBhvHIaO0lgdzokugYrFZ7dWhT9XqoHPue8/QDnQ/1frwa
+b7x0/q1rPOLOP0fluldoZ9X7hJTrVkPXYBLrmjDyteHPQTTqOrKc4pEx26v6
+W8E+0+pfk9tjLoXry6nP+r3j5HMwDNYGO77HMOA5Ue/HxfNe+Q7xiPteclLv
+sFjPBWrvz0tcjrPJvR+DyOuj/mwy+n06s3hEvb08dUr2eT+l9pI3axWzyVE5
+WFt0zPMw8HlR7cfFmadx/j3qvmTFueprYBrqt143pZZ3JHKtyFK7raDH82wy
+ekyfWTyi3l5OfdbjD0m9v5daezl9C/nV1u2i3Edo9+NSrrX2fnY6xiO+dwWT
+iEfkzb4LOmuEy9j3IoXYF2nzPJuMvsYvs3hEvb2c+qzvmUn2sdrt1dBPJDm3
+pXaO4sbQL4YYQ9fux6Ul/29sPNJyjb3Svj9U9Xuq9hwQPzd4pN1O0CX+/Q5G
+H8/LJR5Jpb2s+qzzbKSZ+zm99nLfLU9qfl/1XMXto9rrGkPtflwa5mmcr7fe
+lxrq76VyXst7q8r61VU5jrimXrBuFVLO67t7GhTi2b9qhLokH4+k1F5WnZ6n
+8PyVS3tV9WKfvqa2KZ9lY97B3GufMqm/bzV6Py5VHu3A9+y0n14q5M3eP6Ov
+H5cecpxh+hqeWZuMMqadcjySYntZbZbcnEOq7eXU0V6zkMQcfyokPnda1nkw
+pZ4Tp4vkPnee47urEYtIfI6zh9ptBPikHI+kSAI50hDVhs9z6VtU2mfVX8Ss
+c831+XbK8Yg1Nhlag2vGiPrbiyzunS1ynCFpxCOd2srcR5PMe5YT65pjfKSp
+jeJzp2UZk0RcI3dzuy9V45OxsUhrrsWO10pMjrPRctoAuyIeiW6nu6FYpLrP
+0Ibhtlzvl8L6kbZ2mnE/k1s8IuE9rV29jLEKOc4wIcQjUW30UWg+uLofqaxf
+y4m82S+FOa+Y9kood9rI10k28cgOsYixd/7E2Hk97fYBYhGPBNsn+TWiqbBi
+jcum+221/oa4rWvbzmydYmbxSNdYZK+c/BKf4yzrdc+Yl+q53/4sJZfzXLl9
+usQis59/kHq+z8frvqSKVR5V/0Ysskv7rvqXiD7oYgpj8znFIyNfA7HvhR9p
+1xWIIRHr27XrqE38+7C3STJnvEK7uTFuUY2XmGsuyTy2ORHyXM0W5x4AkJIO
+z8h75U5DOuY0NgYAyAdrCOZjbmuHAAD5Ed6xmCyZ6btVAIA8CTkoJkdmnHsG
+AJAv+q/pkJnn5gUA5C1yfJ89TBIWO/9GLAIASJmwx2uWZCZ7OwMA5kXi3g89
+5zlbn/D+NgBgwoT8WcmrxkVC5+iKcwQAyFn17H0V8ezNOInO+QmNY11wbgAA
+UyBxudNYl6Bzbs7a1q1q1w8AgL4F1rmeaddvjlblqOF8LLTrBgDAUKQ5d9qR
+dt3mSrbzjbBWBAAwC86aktfM1QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADI
+zf8HDL12rg==
+        "], {{0, 453}, {548, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{137.6856249999994, Automatic},
+      ImageSizeRaw->{548, 453},
+      PlotRange->{{0, 548}, {0, 453}}], 
+     RowBox[{"     ", 
+      GraphicsBox[
+       TagBox[RasterBox[CompressedData["
+1:eJzt3b+LJMmeGPDvSjLO3P0DBK3xdTwY+6Al1pGs5cQggZy6QxpDhjScBMPB
+Idpcc5E3XlsyhjMWyREa41ogcxALB+KM1zCGZEhIrT1O3L3jTjeqnIqeqc6K
+qorKyqzIH5+Gz2PfdFV3RFZ25jcivt/Iv/Xb/+I3X/61iPiXv7b+n9/8rdd/
+53d+57d+9x/8jfX/+bu/+6/+6W//9fV//Nr6+39zrfnHjx8/AgAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADiq/i2drrlvu1
+j81/t177fO379L1H9+k939TuCwAwPilO+HjE863Xvzny2oft1wMAtK1jhZe5
+GCJ9r5kHeV8QnzzGHeY7AIC9MnHF2yZ+2F5n2Y4nDsx7vK7VBwBg/LZii0cv
+UhzSeLbnPbm4433tvgAA45TmM9qxQxNPvDvyvud75jqsrwAAO9KcRjtuuC+J
+HfbEHNl5EQBg2faskbwofG97Tabxbe0+AQDjk+pNtmOGg2sqrffmYg41swDA
+E3tyMl6e8H75HADAUbG7N9jDCe99tm9fDwCAbWkfjif1Kie8N5d7+rZ2nwCA
+cUk1su1cjqLc0fT+9rNX7AkGAOzIzFOctC4S+T3R5XIAAE9k5ilOWVfJ5XIU
+vx8AWI7MPMUp6yq559LaCwwAJmL9db12Nfjvye93XrQusicPRB4HAIxcE2Os
+/bD289rH5HbQ37k7T1Fcb5J5r+e6AcCIrb9Wa3dbcUbbarDfvVsjWzRPkZnj
+eLCmAgDjk+Y0blpzGvvcDNaO3bWRov3KY/fZLJ6tAgAjsv76bu3Hgjhj26tB
+2rK733lRjWymtrZ4j3QAYDjrr6+buGHtw4mxxsc0D/L1IO3qkMuR4pQH8QYA
+jEeqPbntEGd8TPHJzVDxxqf27dbIHszlSHtx3FtPAYD60pzGquOcxseUS/rd
+4O3M18junbNI6ymP8xvv+8wXTfMt72p/dgAwBeuvX6Q5jZKc0Nz6SVMje3Wx
+9uafy/a+PXfxGA+k79/3uZaSfvZjHCPmAIAD0pzGT2fMaayqtHt3v/O3KQZo
+r7c8pH8v3pu04He/bK3RiDkAICPye3edMqfRzIf8omofzniO7Jm/99ut+OaN
+mAMAdsWmzvXujJzQ1ZA5ocX92K2RrfIc2Hj6fDgxBwCLFl/27uqaE9rMaVzX
+7seTPo1kz3IxBwB8rnM9de+u7TmNV2OY08j2bXe/8+8rtUPMAcAixXl7d31M
+Mcrgda5n9TH/LNiL5HJk2iLmAGBR4kuda5c44+e09nJVux9Ffc3XyFZ5NpuY
+A4AliC97d02uzvWsfu/WyBY9Y2Wgtog5AJitlBN6GxPZu6v3/u/uv3H0GSsD
+tkXMAcDspDmNu45zGj/FSOpczzoGT+/xVfNHM+0RcwAwWfGlzrXLnMZjnWvV
+vbt6PR676ypiDgA4Q2z27pplnWvnY5KPNz7vbV6pTWIOACYn5YTexIz27url
+uHx5PluRC7dNzAHAZMRm767bM+Y0bqacEzplYg4Axi6+1Ll2ndMY/d5dSyDm
+AGCs4sveXYusc50bMQcAYxML3LtrCcQcAIxBbOpcfzhjTqOZD5lNnesciTkA
+qCk2da53Hec0ZrF31xKkZ81tP9/2odZzXwBYjviyd1fXnNBmTuO6dj8o+Ky/
+im8Lanbva7cTgHmJTZ2rvbsAgN7Fps711RlzGupcAYC94kuda9c5jWbt5ap2
+PwCA8Ykve3epcwUAepdyQps5DXt3AQC9S3Madx3nNNS5AgB7hb27AICBpDyN
+31v7L2fkhKpzBYCFSzHFdWz2BL1J8xjNmskfdowx7N0FAAuVYorrFFPcpJii
+ay6GOlcAWKjY7IdxndYwmnv+jwPFFPvYuwsAZi7FG5eKLbb9cahzBYBFie77
+cHXxy7B3FwAsUmz2uhg61vjztX9Yu68AQD2xqT3psmdGqf8cal0BgI+f4o4f
+Boo3bmr3DQAYj9jsEdpnrNHMm1zX7hcAMA5pXaWpkf3QY7zxk7UUAKARm/04
+bgdYS/mhdt8AgLrSnMYqhqmNbdZS7OsFAAuWcjVuY7jalCaGuardTwCgjjSn
+cTdQnPHotnY/AYDLS3MaP3Sc0/g5zYf8QeFrV7X7CwBcVmyeJf9jx7mKD7Gp
+Xfl662cdW0v5Re0+AwCXEZuc0JvoXufazGlc7/nZ+37mbaiDBYBFiPPqXD+k
+OOVg3JDmPdrvXdXuOwAwrDh/765m3aW4ljX9vu04xVoKAMxYc6+P7nWuzXua
+fNKrjr/7NsUq1lIAYKbivL277vpYB+kaqwAA4xb91Lle1e4HADBOcd7eXT+l
+91v/AAB2pDmNmzNyQps5jeva/QAAxil63LsLAGBb9FPnel27HwDAOEU/e3dd
+1e4HADA+aU5jFZXrXAGAeYqKe3cBAPMXPdS51u4DADBO0c/eXZ5fAgBkhTpX
+AGAgYe8uAGBA0U+dqzkNAGBH9LN313e1+wEAjFOocwUABhL27gIABhT91Lle
+1e4HADBO0cPeXXJCAYCcUOcKAAwo7N0FAAwk+qlzva7dDwBgnKKfvbuuavcD
+ABif6KfO1d5dAEBW2LsLABjQ+us/rf2fjnMan+pca/cBABivtIbylx3nNJr5
+kF/U7gMAMG6x2Vvjf3TICW3yPNS5AgBHpbyNU3I2mjmN69rtBgCmIzb7eZXG
+G79a+43abQYApiWti3TJ3VjVbjsAMA2pjrVLXcqjVe0+AADjFsf3EW3mMr4v
+WHO5rd0XAGB8Ui3ssb1Ef36seS3MLb1VtwIAPIpNLeyxeOOndvyQ4o6T3wcA
+LE/hfMXdvrihcH7kp7AnGAAsVpTVwt4W/JyvC/NAxB0AsDBRVgt7c+LPLIk7
+VrX7DgBcRpTVwq46/uySWKbTzwYApqNwLuL6zN+x6mPNBgCYnsJcz95yLkIt
+LQAsTnSshe3h96qlBYCFKJxvuBvqvl84v6KWFgAmLHqqhe2hHWppAWCmYoBa
+2B7aVBJ3rGofOwCgTAxYC9tD20pioSptAwDKFc4lXFdu42oMaz4AwOkKczVH
+kzMRamkBYHKiUi1sD+1WSwsAE1E4X3A31vt24fyMWtpjx/GreLn2estDo3a7
+AJiHGEktbA/9UEvb5bht4oyPB7yp3UaAMTE+63jcRlgL20OfSuKOVe12jtH6
+b+ZZJuZ4UbtdALUZn515/EZcC9tD30piqUn2bfBjt4nXt/+OvqndJoAxMT47
+8XhNoBa2hz6u5rBmdNFj9lU8b/0Nva/dJoAxMj4rOEYTq4Xtob9qaU85Xpt1
+ye2/oe9rtwlgbIzPCo7RRGthe+i3WtrSY/VVvG39HX1bu00AY2N8duT4TLwW
+tof+q6UtOU5P5wrlYANkGJ8dODYzqYXt4TiopT10fHbnCt/WbhPAGBmf7Tku
+M6yF7eGYlMQdq9rtvPhx2Z0rfF27TQBjY3y257jMuBa2h2NTEost6tg0OVCt
+v6PntdsEMDbGZ5ljsoBa2B6O0cqaUzoWX8U3rb+h+9ptAhgj47OtY7GwWtge
+jpda2o+f/oZeHMrBbvbXO7L/3ie1+3Gkj69b3ufGKGmvwXft/QXliAHGZ1vH
+YqG1sD0ct8XX0jYxRsl+emnvvfsp3Y8LYqXnW31rj1/aFj+HCku2hPFZ0XFY
+eC1sD8dv0bW0mXvt3v30tl57P6U5xZT31d438OHA9/YZbXwFDGvO47PiY6AW
+tq/juMha2sxc4d799OJL7tS7Q3HJWGWuF2+34o377XmM9O/tNZZPfa/dD6CO
+JYzPDvZfLewQx7Qk7ljVbmdv/d19VmJ2/WAr3pjssxMz854v0/UgW+uW4rHc
+/Mfk4i3gPEsan2X7pBZ2yGNbEsvN4tjG7n56O/H41vzApPMZMmOUd+312AN9
+l6cOC7ak8dlOn9TCXuIYr5awZhVH9tPbWl+Y9HOaM2OUg+OUrfe1a/HldMAC
+LWl89rk/amEvfbxnXUsbB/bTiy91HA9zuMfGbr55UeyQGduIOWCBljI++9yf
+UAtb6bjPtpY2M4Z/nf792/iSVzmLdYTMGklRLuieeY5ZHBOgzJLGZ5/6pBa2
+9vGfZS1tbq6wNa7vHK/vuVcPoWjNNHZzQYv6lolV5JDCwixqfKYWdhRihrW0
+rfvw+8z9tfOzi8YUc2TGKMXPgczEZUdzQIB5GXJ8NiahFnZ0CuOOVe12Hu1H
+Pr/hY2Y+4FnHnz+mmKPdluJ88szxOFjnAszPkOOzsQi1sKNVGAuO+rPJ/M3c
+p9i9/e+Tz7/OjFFK11Xa8yOfxje1+wNcztDjszEoHEtf127nksXEa2ljz356
+uXWImHj+QuvaUNyfTPxlD1JYmDmPzwpzFSeVMzBnMdFa2jiyn14mHnlZu81n
+9HVvvnnBMWqPY2aRkw6Um+v4bP11VRBvTLImc85igrW0mbnC9rMR23tSTDZv
+sutYJHMMZrOnIFBmruOzwvHy3ZjuWzz5/CZVS5u5D79ofX82Y/zMNeHommum
+//dTGr8A/Zjj+CzUws5CTKiWNnafsbxzP43dWo99z0F7UXIfr9TP4mcytd7X
+jsnkjcICzW18FmphZ6cw7lhVa9/uGmT2PhybvfXaedrPMq8Z7RrmsTFK4fGZ
+Rd09cLo5jc9CLexsFcaSVT7bzN/H3vtw7D77/U3r++9K8yMq9fXgGCXz+m9a
+15hJrM0C/ZvT+KxwLHxd+5hz1me8GuOaWZywV8Wev6WX6XtNPHJf+zgf6Ws2
+33zPa79pvX6086PA8OYwPivMNRzFmj+9fN691dI2eT+9tOnEvSoyf0uTyHPI
+xEt79ztP45nHeON9X/1K8yz2LYUJmvr4bP11VRBvjKqmkl4+97Nrabfmxc6K
+RTNzhUf3qoh8jlRxzWm1457fe72dc/5tK6bqpU+xyWV/PGZqbGGCpjw+S/ed
+Pz1y37kTb8xT4fxWtpY2nub9/HRWO/Y8G7HgfdvzAPeH4v2xyIxR3kT+GbFv
+eow1XmTWc8QcMDFTHp+tv/7N2v8b27o+lxUdamkjn4t6U7svU5D52x88dyvF
+G69b4x0xB0zMFMdn6X7xv47cY9xDFqYw7mjOne8OvEa+z6FjXJhvPuDvfybm
+AC4h3S8+FMQajVXt9lLtHDl2bhxaiztrjWXuMmOUi+ZxijmAoZ0Ya/wq1MIu
+WpTV0pof63JsN3Vp1fb1EnMAQ0hr9DcnxBqNv1z7jdptp74oq6U9xBpL+5ju
+7nd+kVyOVhvEHEBvtmKNLvcL8QafRVktrTWW0uO5u9/5xZ+5JOYA+nBmrNGw
+PxA70nn1v62x9HAsd+thj9a4DdAGMQfQWQ+xhjEpe0XZs3essZQcy939MS6/
+37CYA+igp1jDfYG9oqyGRTxbciw3+4pm9x++cDvEHECxnmMN899kxeE9OJxj
+pxzLTR5H+7nTj89Puejz2sQcQIkBYg1jULLi/JoVc2kf985t7HOR+7+YAzhm
+/XU9wD1gkfcBjovj+5GKbydKzAEcE2XP4TLfTW9SnHvnnJsXMQdQoue4w5iT
+Iin26HPew9xazc9TzAEUiv7W2V33Ocn666qn2EO8W/NzFHMAJ+gh7rip3Qem
+q6fY46Z2P5Yo7b3+tuY+qMD0rL/+ozEmNfUQe5hru+Tndbxu5uL7kwHj5zrP
+mJwRezT7qX9du/0A7Irzc0hvaveB+eoYe/xXcQfAuKTr+TnxhjUVLqJD7PFL
+cQfAOERZzuifWFNhTE6MPf7QOcq5Uk3O65b7XL7K+v8/zzzn9z6955vafYEa
+YvPMi2Pxxu2RdZeb2v1gudK5+f3anx85j38Wd9BFihOO5cg+33r9myOvfdh+
+fcV+PcZQ7ecRN+1/dqDv1dvO9ETZMz1vtl6fmw+xpsIoHImLt+OOVe22Ml3N
+s3pzMUT63rPM/ftQ3FFlviO1800rxtiOmb5PczLt2udPczW1PwOmZ/31Q0G8
+scq8rx13GDcyKuuvf9bl3IZSmbjibbo/f15n2Y4nDsx7XLx+ODbPIN5e68nO
+WaQ+vEmx0Xabv699/JmWgjXwJqa4PvD+x/mRm9p9gZx0jv7xsTXD2u1kmrZi
+i0cvUhzy/nFNIvOeXNxx0T3TWvkl9/vaml77zZ446UXt4880nDD3fHTuYv31
+Xe3+wCF71gKzuUq128p07LkXN/HEuyPve77nHn6R9ZVWzPNwKN7Yek97juNi
+7WXa1l9XBfHGT66/zEmKO5z39Ka1NrE9Z3D0Xrwn5jh67++hze36maK5ikzM
+YS97jioc79257jJHhfN7P8lNosSeNZLSe3h7Tabx7cDtbdedFD93L9NWuRwc
+FIW1sLXbCUNKcUdJHpO4g4MyY/+Dayqt9+ZijsHqTjNzMsW1MvH0+cByOTgq
+TqyFhbkrjDtWtdvJOO3JyXh5wvsvls+RYoZ2fHRKW3NrSHI5yIqOtbAwd4Wx
++Kp2OxmfzDrFwwnvzc0bFL+/Q1vftXNOTnx/ew1JLgdZhWO569rthFpS3GHN
+kZPE7v5Yp+RG5OYN3g7Uzty+ZcVzHOln2JeDgwpz5axZw8fi3OomfpdbzWON
+bPs+XJzfkKkdGWxPsEzeyKlzHLn4SC4Hn62/rgriDTWBsCXU0lJ6rmTyMU98
+f25P9N7zI/bMcZwU22TWZeRy8FnheO3OdRN2Fc4PqqVduMw8xSnrKrlcjuL3
+n9jOXGxTvAfI+rXfXmoNiOkJtbBwtlBLy7FzZPdefsq6Su7ZrL3vBRb5upqT
+cj/3zHFc/LkwjE+ohYVeFcYdq9rt5MLnRX6/89J9LnJ5IEPlceRim+Lczz1z
+HIPuIcI0hFpYGERhLL+q3U4ueE7s3suL1xoy7x2s5jR262pOim8yuaeD1vMy
+DYVjseva7YSpCrW0bJ8Pu/fyovt4Zo6j6NlqZ7Qzl8tRVCObYqOHzM+Qy7FQ
+hblu1pyhB6GWlsdzYXdtpGitIXb31Rr62SqdnueylQfy4lLrQIzb+uuqIN5Q
+0wc9CrW0i5fJyyxaa4jd2tqT9uTq2NZczHHw96a5mOZ93+/JQZXLsTCF4607
+1z3oX+H8olrameqSy5Hu3Q+XjDfS782trezNIU3xxvvHHJNMX+VyLEyohYXq
+Qi3tYmXu4wfXGmKzF8f2fEOn9ZQUD7RjgPtDvz/ye50279mpsUntfJ++/yz9
+WztvRS7HgoRaWBiVwrhjVbud9PR552tk985ZtPIh3kfHfNHMukwujtj52bG/
+1vX94xpJK5Z52F47kcuxXKEWFkapcCywqt1Oevis8/f+9+25i3QPf7cVD3Re
+SzkQN+y0Y8/7c/WyR+OWkMuxWIVjqeva7YSlCrW0i5BZq3ib4ov2estD+vez
+n4O2tS7zuvXvL2M3R3QntknzGLm9RLft7LseF9xHhHEozFWzZgwjEGppZy+z
+1jDos1W31may8wuxmyuyN98i/azt2OMxLtr3s9txlGfXz9j666og3lCTByMS
+amlna89aw6DPVk3zKMdqW7efG3vSM+oP/Mxc3opn189U4XjpznULxqdwflIt
+7cTUWGso+R2t+OBdT783l7fi2fUzFGphYfJCLe3sZHIxR7PW0HebMnkrcjlm
+KNTCwqwUxh2r2u3kyOeYfxbsKNYaWvMcveylLpdj/kItLMxS4VhiVbudHPgM
+82sNgz2brWPb+lpXkcsxc4Vjoeva7QS6CbW0k5ZZaxjNHuBbtSi97J0hl2O+
+CnPNrPnCDIRa2snKrDWMYg/w+LJfWG/Pb5HLMU+hFhYWJ9TSTk7aA6M97q+e
+3xBbz3/t+efK5ZiZwvHOnesOzE/h/KZa2pHIjPtHcR9Oayq9zrfs2YNELseE
+hVpYWLxQSzsJe+KNz3t4VmzXm75yRls/N/dsFs9YmahQCwtsKYw7VrXbuTRx
+/PkkT1y4bY/Pd+klrzPljOaeGfN5n7Gx1OhwwueqFhbIKByLrGq3k/pis895
+L/FGPN0z/RS95asy0HmiFhY4INTScuwc2cxH3B+bc0g5GdXWfainMFfMmi3Q
+XC/U0pI/NzY1saXxxr39NJYn1MICJwq1tLTPiU0c0d53/ZBR7B3CBc8RtbBA
+R4Xzo2ppF6BDvKG2dWFCLSxwplBLy8dPMcep8cZo9mTnAueHWligR4Vxx6p2
+O4HLCrWwwAAKxzKr2u0ELqNwLHJdu53ANIVaWli8wlwva67A2UItLSxWqIUF
+LizU0sLiFI437vzdA30rnF9VS8tsrL9u1l4t8ZwOtbBAZTGzWtrUlyZn5ap2
+WxifNIbfPq8Xcb6EWlhgRArjjlXtdhb0Y7vNH2JTB/iduWIarZijbZbnS6iF
+BUaocCy0qt3OI304tk7dzK1f124n1c6PQzFHbl1x0udL4Vhisv0Dpi0mXkt7
+wv2k6eOPsdC1/aU6MeaY7PkSamGBiYgJ19J2vJ88zqvfxgLW9pfsjJhjMudL
+qIUFJiYmWkvb0/3ksW+f1vZr92mq0r3vemSOndNd/XLt99d+r3L//vnanx1p
+612M7O8WIMrmZ/97us7VvM5uG+J+8hiD3K79kxH0sXFV+/w4cu7cDvhZ0N1t
+7XMDYJ8oq6Wljh9qnx97zpnvRnBs2HVT+9wAKBHijrEaXQ5gbGo9ah8XnvrX
+tc8LgFOsv74fwbWTp17VPi8y58lqBMeFp5qccLlJwCS4j4zWKO8jMVyuJudZ
+1T43AA4Jc+Vj9WPtc+PIebNK586YfBjw82h+9l1s1iFr9e8PCto5yjwggDie
+x/EXa/++4jW2baj7ya/W/mjtP8SmhrZ2P1e1z40piv7252h8rqeOEdWexqau
+abL7+gHLE5t6lWPX59HtY9jj/eRj2Ct9ds6MOSbzTLgo29dvdPvrAMsT5c+4
+v6rd1kzbZzdupdfz49SYYzL7nWf6Otm/Y2AZpj4+OvF+8mEq41Z6Oz+OxRyT
+f65bq7+TnK8E5i9msA4853ErvZwf7fvvhyXMbUXZ82VHWQMFzE+U1cKOPt99
+7uNWzj4/fkwWN7cVZTnWq9rtBOZtTteipYxboYu5jC2AaTLnCssyhzVUYFpC
+bhksVkw8VxyYjlBDB4vnOgAMzfgGeGS+ExiKdVwgR14X0KeQrw4cEDOqXwPq
+cS0BShibAOcwZwqcwhoscCq5YUBXIdccKBRq4IAzuY4AxxifAH0xXwrsYx0W
+GIK8MGBbyDcHBhTq34CPrgXAZRjbwLKZ8wQuyRouLI/cLqCWkKsOixFq2IDK
+XIdg/owvgLEw3wrzZR0VGCN5ZTAvIV8cGLFQPwez4G8ZmAJjI5g2c5bAlFgD
+humRmwVMVch1h8kINWjAxLmOwfgZHwBzYb4Wxss6KDBH8tJgXEK+NzBjof4O
+RsHfIrAExlZQlzlHYEmsIcPlya0ClirkysPFhBoyYOFcB2F44nuADfO9MBzr
+mAC75LVBv0K+NsBeoX4PeuFvCeA4YzM4jzlDgHLWoOF0cqMAugm59lAs1IAB
+nMV1FI4TnwP0w3wx7GcdEqB/8uLgqZBvDTCYUP8Hn/hbABiesR1LZ84P4HKs
+YbNEcpsA6gi5+sxEFNRdhRougKpch5m69derY3MT4muAcSicb/6/5psZmyYW
+3oolsjGDdUSA8SnIq/uLtd+r3U54lImVn8QdIV8aYLSirH7wj5qxY+22smxp
+TWXvnEXhubyq3Q+AJSscGz6OKVe128vytNZUcn555NxVCwswEmkN/M8KY48P
+Yg8uKbOmcgq1sAAjE5tc/7844Vou9mBwB9ZUSufmrmr3AYBd669fX/vLE6/r
+Yg8GEWU1r4fiDbWwACO2/vrdjtd4sQe9iuN7yezz72q3HYAyZ66fiz04W5TV
+oZjjAJi4OF4nIPZgMGlN5ZxzT9wBMCFxXu5eO/Z45fpPqTPWVNpua/cFgDJn
+rrG0/Zzmy8Ue7BXnramIO4Bq4qt4ufZ6y0OjdrumIvpZY8nFHq9q943xiX7W
+VHKui9vgmgGcIF0zPh7wpnYbpyT6W2PpdA9gOaK/NZVHdyXnmmsG0If1teJZ
+5vrxona7pib6XWNZ1e4P4xP9rqncdo1rXTOAc6S50e3rxze12zQ10d8ay03t
+vjA+0d+aShNrXJ3dHtcMoIP1teJ569rxvnabpirOX2O5rd0HxinOX1PpJdb4
+1BbXDKCjlAO2ff34vnabpuyMNZb/VrvtjNOZayq9xRqf2+OaAXS0vl68bV0/
+vq3dpik7c43ltnb7GZf112+MJdb43CbXDKCj1rqserc+jun5z/m0PwfNefT1
+2p+OJdb43C7XDKCDzLrs29ptmosz1lge446r2n2g6vnT5Iz+akyxxqd2uWYA
+HWXWZV/XbtNcnLnG8jG99xe1+0GVc+d67U8Kz5GLxBqf2+aaAXTU5Ju3rh/P
+a7dpTo6ssazS/eLYPeW72v3goufMqiDWaOY/bmqswblmAF009fSta8d97TbN
+0Z41lput798U3GNWtfvBRc6VknPhxxqxxqf2uWYAHTX7Bh6qd2v2Mj6y1/En
+tftx5jH4NjNXfL/2cs8xOnnvo8way23mNSVj2x9qHy+GUzDn1cxt/OOqbVzA
+NSOePkfm9da8zuvW65q94N+1+vZmiTU8jhmF58n3rc8+u3dxbPY5vp/TeZLy
+4B7P/Yftv430vffpb6d9jDrtfbQVU9wdeM11HM//uK197OhXbGpTcnNh2/44
+RpDbM+drRkGs9Hyrb+31pbZF5Lg4Zpx4vrTPgb3j963X3sfE12/j6bOq3uX6
+HZs55PvMdbPz3kcl6++xqVU4FneopZ2JFG8c2190NDVMS7hmpDFHe1/3hwPf
+22e08ZVjRoVzpL0uu3f8Hl/WHrL35ylpjdPeHXlte9+jveO6Xts4sfsQnT/n
+ScWXS7pmxO58ztute+d97M6LttcLjl5f5sYx48j50X4udXZea+vaMfnnVMfT
+teb7Y9fCyK9NX+T6WTjfrpZ2oqa4jraka0bmb/9lumZk9yJJ8VhuLD+5eMsx
+Y6Dzoz2G35n73IpbJ7/OlonBj871Zv6GLv4cq4K8QrW0ExMTzRde0jUjdteQ
+mjH5wXXVzDWm6DozF44ZRz7rg3sXb817Db6WcIG+dtrDKHONrfIcq1BLOxtT
+/iyXcs2I3TWkovFG5jqzmPwEx4wjn/PevYvjS37xwxw++0xfi/cTyMz7VbuW
+TnVszJPPcLJzVgu7ZuTq44/2K3bXnhZz/3TMOPI5Z8f9sdmr4jHfZxbzW7Fb
+d1IUN2SusdXXGaeYA8A8cnMWds1oz/cX5TXuGbPP4pg4Zpx5fuysy7bizc7j
++T3n0BCO5qdl2lKcE51578VzObLtmlitw9LFTGqQlnLNSO3pNL+Zue8ONk5x
+zJiS1vnxPvO5d35O5Fj+FmIz39t+T/F1MXbzoarkcmTbNpP72NzNKT5cwjUj
+taU9v7mTt3Lgve24bLBximPGVER+3e1j7Mapzzr+/FH8LcRuzckpfwffZn7f
+qPLi5jBfP2dzWgdbyjVjT1uK630zx2OwcYpjxlTE7vjk0zps5t8nW+sW+brv
+4nM5dveqaX7WKOf7ppyXOFcxs3zfJVwztvraHnefk/+1iLwEx4wjn3N27+LM
+5z/a+2xBH3PjstK/g9wcR+d544v0d8L1l3Mzx89iCdeMrb4+dOlPJv5azH6a
+jhkHPuODexdnri0va7e5Yz877x8au3Uukxi/zW1sPUVznHNayjUj9WVvPXDB
+MWrPqy6i3tMx48jnfOw51O1a6Unm82Sug0V7csRmXTK3F+8k5vvmlEMwJXPO
+rVnKNSP1pdNaUeYYTHbPd8eMgc+PF63vzyL2zPThaMwRX+pc2vlQxbmnYxAz
+qpWYgph5DdFSrhmpL+2xytGc2Ez/jz7HaU4cM4581u11g9wz3Nv33H3P53lR
+cn5V6md7nuJgzJH+Bh7r/4r6P2Zzvw+OxRLiuwVdM4qfmdt638nPcZoLx4wj
+n3N73S17fkR+X4tnmdeMNl8sM+46OFcRmzqV9+m/2znYo8/lyPZpxvP9Y7CE
+dayFXTMOriEVHp9R1dM7ZlQ+P9pjkb3nR+zmYL5pff/dmO/FsTvf19jJbUtx
++rt0LXyW/q0dr0w6Bp9jXmNtsZB83YVdMw6uIWVe31w77g9dX+bOMePI511c
+Q71n3PIyfa+5thQ/J61SX3P75Txs9zm95vH8f57+rfN+emMWM6zfdCwv0Ndl
+XTOy9cB7XvtN6/WTzF9xzBj4/DiphjozbpnM2D/yeW05T56DmYlVJpfLsfeY
+LGRsPvAxXNSc0VKuGZl4ae9YI41LHu+d7/vqV5ozmMwenDWOWWzWctr7NTbH
+bZQ5QkuWGb8fvZceuG+Pdn601f5v97T/0bv2uZoZ102ir8XHZAE5CAMdt8Xl
+xizpmpEZa+ysI6XryZu++xSbmtHHYzaZetFLH7PMtbnNvMmIZM6P0hrq7fi0
+WYeYVL5PugbuPAsg148918vRjs06H5MF1Fr0fLwWWQO0pGtG5n72JvLPO33T
+Y6zxInbXJqYUc1zsmMXh+bPteTjzHUxG7OZgzyKXI9vXhd5HOxwn8dkCZMYa
+g9fWpHjjdet+OqWY4yLHLL7Mt72Lp+vgzzJxz2TWpiATo88mlyPb3wWuF5x4
+fKxDLUAU1gMP+PufTS3muOQxS9flvdfi1nXb81qYjMw856jXoHvr98LyIguP
+yerIMWnIt52BzBrSRcfKE405LnbM4sgepfF0XzIxB5MQu/vpzTKXY2//F1T/
+6Vjw5PPerYO4aP7JRGOOixyzdF0++rPjy54Hkzh+sKRcjr3HwNjenM/C7Blr
+XHSf1KnFHGM4Zpk23Q8Z+0DflpbLsfc4LDSHQW7LMmXGGhd/Ju4EY47qx6zV
+nscYaNR7zsG2peZyZI/Fwmo1Qg3PYo1hrDHBmKP6MWu15zG3ZDFr4Uzb0nM5
+ssdkIffhpcVXtD7/EYw1JhhzVD9mrWPX1Ox6bguTkYnbP9Zu0xjMfb1hqetI
+pM9/s0dme6xx8XvXlGKOsRyzrfa8X/KcNNOR/s6bObl9++naW+bxWM0wrzLk
+yy5aykm4z/zdN/ewi+6hPZWYY0zHLLXnzZiPFzzaE2McsvjcpJhR/eic+sKJ
+n31+nL7PRe5nY485RnrMDu4TBkzfHOYG5jhnw7SNPeYYmzQ/be8vWICp5kDM
+PTeF6RJznHSsXh6LN2KzL7tnvcFMxMRqPWIhNThMk5ij+Dg9Pof30D7oz4+9
+BpieqdzHpxYfsTxijqJjNLqcEuCyxr5eMdV1IJYjNnsDbdfOVd3Tc4xOjDc+
+1qihAS5njHmZMYN8V+at4N65+H0nUkz2oMYQ2BYjqj8dU1sAgP6NYW5hjHMu
+AED/auVQjD23BADoX1y4ViQmUkMDAPTvUnHApeMbAGB8hl7vqLWOAwCM0xB5
+nTGCfFUAYHyix/rVPn8WADA/fcxNDDFnAgDMT9ccjKFzQwCA+YkTa01CLSwA
+0NEJccTfPyU+AQBoK1wv+atT12EAAHIK8kLVwgIAvYiy+le1sADA2aKslvbR
+h7VX8jgAgC5iU0v75yfOeTRrM2pkAYCTrL/+Xsf8jp/SXIm5DwCgyPrrb6/9
+z4K6lX17gzVzH1e1+wEATEOqp13F8b089rmTbwoAnCI2+5d2rav9OdXGXNXu
+BwAwDWnu41WqXekSf/wYngMHAJwg1bl0nfv4kOY+5JwCAEWaNZMUP3Sd+2ji
+luva/QAApqNZN4njz3E5NPexMvcBAJRKcx8/xPHn0h6qt7XXGABQLM1ddJ37
++LTXWO0+AADTEV/qbbvOfTTzJle1+wEATEP0s9eYelsAoFj0U297VbsfAMA0
+RD97jV3X7gcAMB2xqbf98Yy5jyZ2UW8LABSJfvYaU28LABSLHuptzX0AAKWi
+n73Grmr3AwCYhuin3nZVux8AwHTE+XuN3Zj7AABKRT/1tvYaAwCKRT97jck5
+BQCKRD/1tte1+wEATEfYawwAuKDop97WXmMAQLHoYa+x2n0AAKYjzq+3beZN
+rmr3AwCYhqi811iKXW5qHwcA4HKin3rbqxN+39db8yx38lUBYFmin73Grgt+
+zyoTt8hVBYAFigHrbQ+s57yq3W8AoI7oea+x2OSwHpsrsdYCAAsWPdTbrv3b
+wnkSay0AsHBx3l5jf1X4uuZnr2r3FQCoL86vty1dm7HWAgB8EuftNVayLmOt
+BQD4LM6vt7XWAgCcJM7ba2yfH2r3CwAYp/XXrw+w1nJVu18AwLjEZn+PvnM8
+mrWW72r3DQAYjwFyO6y1AABPxGYP9aHijUd/FOppAWDRovszW07V7DX2+/I8
+AGB5YrNf6SXijba7UFcLAIsRX/YpvYlNzezdwLkdbR/S776qfSwAgDrSHMh1
+bPYPu0lrME1MMsQ+ph/Tz7+u3W8AYFxis5d6LibpY+6j+ZlyTgGAo1I88o/O
+nBu5NfcBAJwiNnkjXedBfkrvN/cBABRJeSI/dJz7+DnNfXiGLQBQLM1d/NRx
+7qOZM1nV7gMAMB0pH/X2jLmPZt7kqnY/AIBpiM1+Ia+i+x4hTe2M58oBAMVS
+3cttx9ijiVluzH0AAKXS3MfNGXMfTdxyXbsfAMB0xOYZuF2fSfch7DUGAJwg
+1NsCABcW9hq7zHH+Kp6tvW65X/vY/Hfrtc/Xvk/fe3Sf3vNN7b4AwDnS3Mft
+GXMf6m1zx3UTJ3w84vnW698cee3D9usBYKpSzukq7DXW/7H9Kl7mYoj0vWYe
+5H1BfPIYd5jvAGA2Qr1t/8d0N65428QP2+ss2/HEgXmP17X6AABDCXuN9Xcs
+v8QWj16kOKTxbM97cnHH+9p9AYAhpbkP9bZdjt1mPqMdOzTxxLsj73u+Z67D
++goAs5dyTm/OmPto1myua/fjosdsM6fRjhvuS2KHPTFHdl4EAOYqNnuN3XWM
+PRZTb7tnjeRF4XvbazKNb2v3CQBqSHMf9hrbd3w29SbbMcPBNZXWe3Mxh5pZ
+ABYv1Ns+PR75nIyXJ7xfPgcAHNDMW4S9xnJ7gz2c8N5n+/b1AACeii97jXXN
+OZ10vW3ah+NJvcoJ783lnr6t3ScAGLtY2F5jqUa2nctRlDua3t9+9oo9wQDg
+BGnu4+aMuY8mbrmu3Y+j/dydpzhpXSTye6LL5QCADmJTbzvLvcYy8xSnrKvk
+cjmK3w8A5MWXvcZmU2+bmac4ZV0l91xae4EBQI9Szuldx7mPUew1Fvn9zovW
+RfbkgcjjAICBpLmP2zPmPqrV22bmKYrrTTLv9Vw3ALiA+FJvO5m9xjI1skXz
+FJk5jgdrKgBwefFlr7EuscfPcaF628zaSNF+5bH7bBbPVgGAitLcx6sY4V5j
+mf3Oi2pkM7W1xXukAwDDi81eY13rbe96b0+HXI4UpzyINwBg/OJLve2pcx+r
+XtuxWyN7MJcj7cVxf+56SsoFed2KXe7VvADAcGKz19hdYcxx09vvzdfI7p2z
+SOspjzHC+675ok2ckskh2fau9mcCAHOW5j5+iMP1tq96+33557K9b89dpPmI
+d1tzEZ3XUrbyR77f3gMkM+dhvgMALmBPvW3z/3vbPyx29zt/m+797fWWh/Tv
+xXuTHvide2OWVj6rfT4A4IJSve2rIepWMusbZ8cUR35fM6/y/ZHXfN4rpPax
+BwDOl6mRHfw5sCX5plt7fpz0XFsAYJwyNbKjWMvYmufwXFoAmIHY3e/84JrH
+hdr0OPdiD3UAmIHIPwt20FyOgjY9T/mlTbuK9l4HAMZtT41slXmFtMfY9nNb
+1MgCwExkamSr5Gtm1nc+7wlmbQUApi+z/8bRZ6xcoE2v4+me6vfiDgCYrrSW
+0Z5XqJ4/utW+d1vtUrsCABOVWVcZW8zxTWu+Y9A9QwCA/u2JNz7vbV67fVvt
+3N47xPoKAExEa73iqBG094WYAwAYWmyedW//cwBgUFtrK3JIAYDBpLWgB/mj
+AEAX6xji5ePz5PY9Yzblctj/HADoLPMs2zfbOaKprsYepADA2fbU696neCQ7
+9wEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAwDj8f0yKRwY=
+         "], {{0, 520}, {541, 0}}, {0, 255},
+         ColorFunction->RGBColor],
+        BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+        Selectable->False],
+       BaseStyle->"ImageGraphics",
+       ImageSize->{131.52000000000115`, Automatic},
+       ImageSizeRaw->{541, 520},
+       PlotRange->{{0, 541}, {0, 520}}]}]}
+   }]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]]
+}], "Text",
+ Deletable->True,
+ CellID->1942088787],
+
+Cell[TextData[{
+ "There are two issues to contend with in order to put the ",
+ Cell[BoxData[
+  FormBox["D", TraditionalForm]], "InlineMath"],
+ " functions in canonical form."
+}], "Text",
+ CellID->1314139449]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["1.  Fixing the order of arguments", "Subsection",
+ CellID->926623664],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The first issue is getting the correct order, so that the external masses (\
+\[Cross]) occupy arguments 1\[LongDash]4 and the Mandelstam/Dalitz variables \
+(\[EmptySquare]) occupy arguments 5 and 6.  You can achieve this by entering \
+the denominator specifiers in ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in the same order the corresponding internal lines are connected in a \
+given graph.  It does not matter which specifier comes first:"
+}], "Text",
+ CellID->1440897848],
+
+Cell[BoxData[{
+ FormBox[
+  RowBox[{
+   RowBox[{"(", "a", ")"}], "=", 
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox["1", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"k", "+", 
+               SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+            SubsuperscriptBox["m", "1", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "+", 
+              SubscriptBox["p", "1"], "-", 
+              SubscriptBox["p", "3"]}], ")"}], "2"], "-", 
+           SubsuperscriptBox["m", "2", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "1"], "-", 
+             SubscriptBox["p", "3"], "+", 
+             SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "3", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SubsuperscriptBox["m", "4", "2"]}], "]"}]]}]}]}]}], 
+  TraditionalForm], "\[IndentingNewLine]", 
+ FormBox[
+  RowBox[{
+   RowBox[{"(", "b", ")"}], "=", 
+   RowBox[{
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox["1", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SubsuperscriptBox["m", "1", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "-", 
+              SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+           SubsuperscriptBox["m", "2", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "-", 
+             SubscriptBox["p", "2"], "-", 
+             SubscriptBox["p", "3"]}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "3", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "-", 
+            SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+         SubsuperscriptBox["m", "4", "2"]}], "]"}]]}]}]}]}], 
+  TraditionalForm]}], "NumberedEquation",
+ CellID->104519348],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Needs", "[", "\"\<X`\>\"", "]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"box1", "=", 
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{"1", ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "+", "p1"}], ",", "m1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ",", "m3"}], "}"}], 
+      ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "m4"}], "}"}]}], "]"}]}], ")"}], "//", 
+  "TraditionalForm"}]}], "Input",
+ CellLabel->"In[37]:=",
+ CellID->123482026],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->Bold,
+      FontSlant->Plain], "0"], "(", 
+    RowBox[{
+     SuperscriptBox["p3", "2"], ",", 
+     SuperscriptBox["p2", "2"], ",", 
+     RowBox[{
+      SuperscriptBox["p1", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p3"}]}], "+", 
+      SuperscriptBox["p2", "2"], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p2", ".", "p3"}]}], "+", 
+      SuperscriptBox["p3", "2"]}], ",", 
+     SuperscriptBox["p1", "2"]}], ";", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["p2", "2"], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p2", ".", "p3"}]}], "+", 
+      SuperscriptBox["p3", "2"]}], ",", 
+     RowBox[{
+      SuperscriptBox["p1", "2"], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p3"}]}], "+", 
+      SuperscriptBox["p3", "2"]}]}], ";", 
+    RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], ")"}],
+   "PVD"], TraditionalForm]], "Output",
+ ImageSize->{384, 49},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[38]//TraditionalForm=",
+ CellID->717494270]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"box2", "=", 
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{"1", ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "m1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1"}], ",", "m2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "p1", "-", "p2"}], ",", "m3"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"k", "-", "q"}], ",", "m4"}], "}"}]}], "]"}]}], ")"}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[39]:=",
+ CellID->443314031],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->Bold,
+      FontSlant->Plain], "0"], "(", 
+    RowBox[{
+     SuperscriptBox["p1", "2"], ",", 
+     SuperscriptBox["p2", "2"], ",", 
+     RowBox[{
+      SuperscriptBox["p1", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "q"}]}], "+", 
+      SuperscriptBox["p2", "2"], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p2", ".", "q"}]}], "+", 
+      SuperscriptBox["q", "2"]}], ",", 
+     SuperscriptBox["q", "2"]}], ";", 
+    RowBox[{
+     RowBox[{
+      SuperscriptBox["p1", "2"], "+", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "p2"}]}], "+", 
+      SuperscriptBox["p2", "2"]}], ",", 
+     RowBox[{
+      SuperscriptBox["p1", "2"], "-", 
+      RowBox[{"2", " ", 
+       RowBox[{"p1", ".", "q"}]}], "+", 
+      SuperscriptBox["q", "2"]}]}], ";", 
+    RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], ")"}],
+   "PVD"], TraditionalForm]], "Output",
+ ImageSize->{363, 49},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[39]//TraditionalForm=",
+ CellID->121204327]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "You can replace the Lorentz dot products with masses and invariant energies \
+using kinematic conditions.  The function ",
+ Cell[BoxData[
+  ButtonBox["MandelstamRelations",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/MandelstamRelations"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is a handy function to quickly generate a list of kinematic conditions for \
+2\[Rule]2 scattering or 1\[Rule]3 decay processes."
+}], "Text",
+ CellID->1667615471],
+
+Cell[BoxData[GridBox[{
+   {
+    RowBox[{
+     ButtonBox["MandelstamRelations",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/MandelstamRelations"], "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["p", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["p", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["p", "TI"], 
+         StyleBox["3", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["p", "TI"], 
+         StyleBox["4", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["3", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["4", "TR"]]}], "}"}], "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        StyleBox["s", "TI"], ",", 
+        StyleBox["t", "TI"], ",", 
+        StyleBox["u", "TI"]}], "}"}]}], "]"}], Cell[TextData[{
+     "generate a list of replacement rules expressing dot products of \
+4-vectors ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["p", "1"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["p", "2"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["p", "3"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["p", "4"], TraditionalForm]], "InlineMath"],
+     " as Mandelstam invariants ",
+     Cell[BoxData[
+      FormBox["s", TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox["t", TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox["u", TraditionalForm]], "InlineMath"],
+     " and masses ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "1"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "2"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "3"], TraditionalForm]], "InlineMath"],
+     ", ",
+     Cell[BoxData[
+      FormBox[
+       SubscriptBox["m", "4"], TraditionalForm]], "InlineMath"],
+     "."
+    }], "TableText",
+     Deletable->True]}
+  }]], "DefinitionBox",
+ CellID->2096742444],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Rapidly generate 2\[Rule]2 or 1\[Rule]3 kinematic relations.\
+\>", "Caption",
+ CellID->1891092685],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"box1", "/.", 
+    RowBox[{"MandelstamRelations", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+       "p1", ",", "p2", ",", "p3", ",", "p4", ",", "M1", ",", "M2", ",", "M3",
+         ",", "M4"}], "}"}], "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], "]"}]}], ")"}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[40]:=",
+ CellID->1646612958],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->Bold,
+      FontSlant->Plain], "0"], "(", 
+    RowBox[{
+     SuperscriptBox["M3", "2"], ",", 
+     SuperscriptBox["M2", "2"], ",", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["M1", "2"]}], "-", 
+      SuperscriptBox["M2", "2"], "-", 
+      SuperscriptBox["M3", "2"], "+", "s", "+", "t", "+", "u"}], ",", 
+     SuperscriptBox["M1", "2"]}], ";", 
+    RowBox[{"u", ",", "t"}], ";", 
+    RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], ")"}],
+   "PVD"], TraditionalForm]], "Output",
+ ImageSize->{421, 23},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[40]//TraditionalForm=",
+ CellID->1220292306]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"box2", "/.", 
+    RowBox[{"MandelstamRelations", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"q", ",", 
+        RowBox[{"-", "p1"}], ",", "p2", ",", "p3", ",", "M1", ",", "M2", ",", 
+        "M3", ",", "M4"}], "}"}], "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        SuperscriptBox["M23", "2"], ",", 
+        SuperscriptBox["M13", "2"], ",", 
+        SuperscriptBox["M12", "2"]}], "}"}]}], "]"}]}], ")"}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[41]:=",
+ CellID->908807120],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->Bold,
+      FontSlant->Plain], "0"], "(", 
+    RowBox[{
+     SuperscriptBox["M2", "2"], ",", 
+     SuperscriptBox["M3", "2"], ",", 
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox["M1", "2"]}], "+", 
+      SuperscriptBox["M12", "2"], "+", 
+      SuperscriptBox["M13", "2"], "-", 
+      SuperscriptBox["M2", "2"], "+", 
+      SuperscriptBox["M23", "2"], "-", 
+      SuperscriptBox["M3", "2"]}], ",", 
+     SuperscriptBox["M1", "2"]}], ";", 
+    RowBox[{
+     SuperscriptBox["M12", "2"], ",", 
+     SuperscriptBox["M23", "2"]}], ";", 
+    RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], ")"}],
+   "PVD"], TraditionalForm]], "Output",
+ ImageSize->{552, 23},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[41]//TraditionalForm=",
+ CellID->101468771]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["2.  Eliminating the dependent invariant", "Subsection",
+ CellID->1582673857],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+The second issue is to select the correct Mandelstam/Dalitz variable to \
+eliminate using 4-momentum conservation:\
+\>", "Text",
+ Deletable->True,
+ CellID->2035710026],
+
+Cell[BoxData[
+ FormBox[GridBox[{
+    {
+     RowBox[{
+      RowBox[{"(", "a", ")"}], ":"}], 
+     RowBox[{
+      RowBox[{"s", "+", "t", "+", "u"}], "=", 
+      RowBox[{
+       SubsuperscriptBox["p", "1", "2"], "+", 
+       SubsuperscriptBox["p", "2", "2"], "+", 
+       SubsuperscriptBox["p", "3", "2"], "+", 
+       SubsuperscriptBox["p", "4", "2"]}]}], 
+     RowBox[{"(", "Scattering", ")"}]},
+    {
+     RowBox[{
+      RowBox[{"(", "b", ")"}], ":"}], 
+     RowBox[{
+      RowBox[{
+       SubsuperscriptBox["M", "12", "2"], "+", 
+       SubsuperscriptBox["M", "23", "2"], "+", 
+       SubsuperscriptBox["M", "13", "2"]}], "=", 
+      RowBox[{
+       SuperscriptBox["q", "2"], "+", 
+       SubsuperscriptBox["p", "1", "2"], "+", 
+       SubsuperscriptBox["p", "2", "2"], "+", 
+       SubsuperscriptBox["p", "3", "2"]}]}], 
+     RowBox[{"(", "Decay", ")"}]}
+   },
+   AutoDelete->False,
+   GridBoxAlignment->{
+    "Columns" -> {{Left, "=", Left}}, "ItemsIndexed" -> {Left}},
+   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+   GridBoxSpacings->{"Columns" -> {0.3, 0.84, 3.2}}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->111143812]
+}, Open  ]],
+
+Cell["\<\
+This depends on the how the internal lines are connected in a given diagram: \
+eliminate the invariant built out of the pair of momenta that enter/leave the \
+diagram from vertices that are not joined by an internal propagator.\
+\>", "Text",
+ Deletable->True,
+ CellID->2026083002],
+
+Cell[TextData[{
+ "In the first diagram, eliminate ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", "=", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "1"], "+", 
+       SubscriptBox["p", "2"]}], ")"}], "2"]}], TraditionalForm]], 
+  "InlineMath"],
+ " since there is no internal line joining vertices ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "2"], TraditionalForm]], "InlineMath"],
+ ".\[LineSeparator]In the second diagram, eliminate ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["M", "13", "2"], "=", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "1"], "+", 
+       SubscriptBox["p", "3"]}], ")"}], "2"]}], TraditionalForm]], 
+  "InlineMath"],
+ " since there is no line joining vertices ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["p", "3"], TraditionalForm]], "InlineMath"],
+ "."
+}], "Text",
+ Deletable->True,
+ CellID->63003747],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The option ",
+ Cell[BoxData["Eliminate"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["MandelstamRelations",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/MandelstamRelations"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be used to eliminate a given invariant:"
+}], "MathCaption",
+ CellID->1695751036],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"box1", "/.", 
+    RowBox[{"MandelstamRelations", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+        "p1", ",", "p2", ",", "p3", ",", "p4", ",", "M1", ",", "M2", ",", 
+         "M3", ",", "M4"}], "}"}], "\[Rule]", 
+       RowBox[{"{", 
+        RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], ",", 
+      RowBox[{"Eliminate", "\[Rule]", "s"}]}], "]"}]}], ")"}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[42]:=",
+ CellID->1431231029],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->Bold,
+      FontSlant->Plain], "0"], "(", 
+    RowBox[{
+     SuperscriptBox["M3", "2"], ",", 
+     SuperscriptBox["M2", "2"], ",", 
+     SuperscriptBox["M4", "2"], ",", 
+     SuperscriptBox["M1", "2"]}], ";", 
+    RowBox[{"u", ",", "t"}], ";", 
+    RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], ")"}],
+   "PVD"], TraditionalForm]], "Output",
+ ImageSize->{282, 23},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[42]//TraditionalForm=",
+ CellID->1509563860]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"box2", "/.", 
+    RowBox[{"MandelstamRelations", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"q", ",", 
+         RowBox[{"-", "p1"}], ",", "p2", ",", "p3", ",", "M1", ",", "M2", ",",
+          "M3", ",", "M4"}], "}"}], "\[Rule]", 
+       RowBox[{"{", 
+        RowBox[{
+         SuperscriptBox["M23", "2"], ",", 
+         SuperscriptBox["M13", "2"], ",", 
+         SuperscriptBox["M12", "2"]}], "}"}]}], ",", 
+      RowBox[{"Eliminate", "\[Rule]", 
+       SuperscriptBox["M13", "2"]}]}], "]"}]}], ")"}], "//", 
+  "TraditionalForm"}]], "Input",
+ CellLabel->"In[43]:=",
+ CellID->1978983596],
+
+Cell[BoxData[
+ FormBox[
+  TooltipBox[
+   RowBox[{
+    SubscriptBox[
+     StyleBox["D",
+      FontWeight->Bold,
+      FontSlant->Plain], "0"], "(", 
+    RowBox[{
+     SuperscriptBox["M2", "2"], ",", 
+     SuperscriptBox["M3", "2"], ",", 
+     SuperscriptBox["M4", "2"], ",", 
+     SuperscriptBox["M1", "2"]}], ";", 
+    RowBox[{
+     SuperscriptBox["M12", "2"], ",", 
+     SuperscriptBox["M23", "2"]}], ";", 
+    RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], ")"}],
+   "PVD"], TraditionalForm]], "Output",
+ ImageSize->{334, 23},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[43]//TraditionalForm=",
+ CellID->1737911338]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "TutorialMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "TutorialMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Guides"}], "TutorialMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "TutorialMoreAbout",
+ CellID->1567025153],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Tutorials", "RelatedTutorialsSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "RELATED TUTORIALS", "RelatedTutorialsSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Tutorials"}], "RelatedTutorialsSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->415694126],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Scattering of Light by Light",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/ScatteringLightByLight"]], "RelatedTutorials",
+ 
+ CellID->1202243889],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Bringing the Arguments of D Functions to Canonical Form - Wolfram \
+Mathematica", "Bringing the Arguments of D Functions to Canonical Form"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "TutorialColor", 
+  "LinkTrails" -> GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 29.011049}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Tutorial", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "In one-loop integrals corresponding to 2\[Rule]2 scattering or 1\[Rule]3 \
+decay processes, the Passarino-Veltman D functions depend on ten variables: 4 \
+external masses, 4 internal masses, and 2 (out of 3) Mandelstam/Dalitz \
+variables. It is conventional to present D functions in publications with \
+their arguments organized in the following way: Due to numerous invariances \
+of the D function under permutations of its arguments, LoopIntegrate may not \
+generate D functions with this ordering. This tutorial illustrates the \
+strategy to obtain D functions with their arguments in canonical form for two \
+examples: GridBox[{{RowBox[{(, a, )}], RowBox[{(, b, )}]}, {", 
+    "synonyms" -> {}, "title" -> 
+    "Bringing the Arguments of D Functions to Canonical Form", 
+    "titlemodifier" -> "", "windowtitle" -> 
+    "Bringing the Arguments of D Functions to Canonical Form", "type" -> 
+    "Tutorial", "uri" -> "X/tutorial/ArgumentsOfScalarD"}, 
+  "SearchTextTranslated" -> ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> Notebook], 
+   Cell[
+    StyleData["Output"], CellContext -> Notebook], 
+   Cell[
+    StyleData["TutorialMoreAboutSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["RelatedTutorialsSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["TutorialRelatedLinksSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/Tutorials/LinkingToCOLLIER.nb b/packages/X/Documentation/English/Tutorials/LinkingToCOLLIER.nb
new file mode 100644
index 0000000000000000000000000000000000000000..c9e52d714b6889658fa398e4c275a8d1e4358553
--- /dev/null
+++ b/packages/X/Documentation/English/Tutorials/LinkingToCOLLIER.nb
@@ -0,0 +1,1136 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X TUTORIAL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Related Tutorials \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Introduction to CollierLink\"\>":>
+       Documentation`HelpLookup[
+       "paclet:CollierLink/tutorial/IntroductionToCollierLink"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"], "\<\"CollierLink\"\>":>
+       Documentation`HelpLookup["paclet:CollierLink/guide/CollierLink"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/tutorial/LinkingToCOLLIER\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/tutorial/LinkingToCOLLIER"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/tutorial/\
+LinkingToCOLLIER.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/tutorial/LinkingToCOLLIER", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Linking ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X to COLLIER"
+}], "Title",
+ CellID->509267359],
+
+Cell[TextData[{
+ "The ",
+ ButtonBox["COLLIER library",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["https://collier.hepforge.org"], None}],
+ ", by Ansgar Denner, Stefan Dittmaier, and Lars Hofer, is a fortran library \
+for the numerical evaluation of Passarino-Veltman functions, driven by \
+state-of-the-art algorithms for rapid perforance and stable results."
+}], "Text",
+ CellID->1534169418],
+
+Cell[TextData[{
+ "CollierLink provides the ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " interface to COLLIER by extending ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X so that the Passarino-Veltman functions ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["PVX",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVX"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can be directly evaluated.  This tutorial provides a guide to install \
+CollierLink on your machine."
+}], "Text",
+ CellID->726184867],
+
+Cell[CellGroupData[{
+
+Cell["Requirements", "Section",
+ CellID->2096492278],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Before installing CollierLink, check that your machine has the following \
+required software:\
+\>", "Text",
+ CellID->1023770413],
+
+Cell["Linux or macOS operating system", "Item",
+ CellID->2028056810],
+
+Cell[TextData[{
+ ButtonBox["Command Line Tools",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["https://developer.apple.com/library/content/technotes/tn2339/_index.\
+html"], None}],
+ " package (macOS only)"
+}], "Item",
+ CellID->753052716],
+
+Cell[TextData[{
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X 2.1 or later"
+}], "Item",
+ CellID->1624448719],
+
+Cell[TextData[{
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " 8.0 or later (10.1 or later recommended)"
+}], "Item",
+ CellID->243774016],
+
+Cell[TextData[{
+ ButtonBox["C compiler",
+  BaseStyle->"Link",
+  ButtonData->"paclet:CCompilerDriver/tutorial/SpecificCompilers"],
+ " recognized by ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"]
+}], "Item",
+ CellID->55370719]
+}, Open  ]],
+
+Cell[TextData[{
+ "The last requirement can be checked by confirming ",
+ Cell[BoxData[
+  ButtonBox["Compile",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Compile"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " works with the option ",
+ Cell[BoxData[
+  ButtonBox["CompilationTarget",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/CompilationTarget"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " set to ",
+ Cell[BoxData["\"\<C\>\""], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Text",
+ CellID->681714910],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Compile a simple Wolfram language function to C (should execute with no \
+errors):\
+\>", "MathCaption",
+ CellID->2022829663],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Compile", "[", 
+  RowBox[{"x", ",", 
+   RowBox[{"Sin", "[", "x", "]"}], ",", 
+   RowBox[{"CompilationTarget", "\[Rule]", "\"\<C\>\""}]}], "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->884530384],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   TagBox["CompiledFunction",
+    "SummaryHead"], "[", 
+   DynamicModuleBox[{Typeset`open$$ = False}, 
+    PanelBox[
+     PaneSelectorBox[{False->GridBox[{
+        {
+         PaneBox[
+          ButtonBox[
+           
+           DynamicBox[FEPrivate`FrontEndResource[
+            "FEBitmaps", "SquarePlusIconMedium"],
+            ImageSizeCache->{12., {0., 12.}}],
+           Appearance->None,
+           ButtonFunction:>(Typeset`open$$ = True),
+           Evaluator->Automatic,
+           Method->"Preemptive"],
+          Alignment->{Center, Center},
+          
+          ImageSize->
+           Dynamic[{
+            Automatic, 
+             3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+              Magnification])}]], 
+         GraphicsBox[
+          {Thickness[0.038461538461538464`], 
+           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
+            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
+             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
+              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
+             24.604699999999998`, 0.49999999999999994`}, {23.5, 
+             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
+             1.3953100000000003`, 0.49999999999999994`}, {
+             0.49999999999999994`, 1.3953100000000003`}, {
+             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
+             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
+              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
+             25.499999999999996`}, {24.604699999999998`, 
+             25.499999999999996`}, {25.499999999999996`, 
+             24.604699999999998`}, {25.499999999999996`, 23.5}, {
+             25.499999999999996`, 2.5}}}]}, 
+           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
+            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
+             1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{20.5426, 
+             19.116799999999998`}, {16.3832, 21.876199999999997`}, {16.3832, 
+             20.021499999999996`}, {6.930469999999999, 20.021499999999996`}, {
+             6.930469999999999, 18.212100000000003`}, {16.3832, 
+             18.212100000000003`}, {16.3832, 16.357399999999995`}, {20.5426, 
+             19.116799999999998`}}}], 
+            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
+             1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{5.30508, 13.8391}, {9.46445, 
+             11.079700000000003`}, {9.46445, 12.933999999999997`}, {
+             18.917199999999998`, 12.933999999999997`}, {18.917199999999998`, 
+             14.7438}, {9.46445, 14.7438}, {9.46445, 16.598}, {5.30508, 
+             13.8391}}}], 
+            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 
+             1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
+              3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {
+             1, 3, 3}, {1, 3, 3}}}, CompressedData["
+1:eJxTTMoPSmVmYGBgBGJjIGYCYq4u+eR3VWoOxhkv5j+Qk3SA8fu/r5rKOVHM
+Yd2vmNyjZ9Qcrt9QXbW9S8RBg59767IidQcPMYPGaHFhB+Nn61SfiGo4xBwp
+T7o2V9Dh0Iolfg6/NBxEHv/x1Xgi4FB1XNNqkqQWnP+axUTQjFkbzn+oO2HB
+j/3aDg/Xn5T6WiDoYLs3aJpiqI7DrHN+bO6tQg4zfUR7vF7pQOyfIQyRd9d1
+WLL0U1kLoyjEPdm6DpoTXfQX7xBzKPjQejLkhDacL5J4+LL2Gm2HtNnSl4Vf
+iELM69J2qPZM3tLnJerQX1oozZugDfHPUxGI/4W1HQ5p3TthoyDi4D7lG1v8
+Mi2HgqL9zoEHhB1inOxe3BRG8MH62zXhfIbN1Z82CGhC/GMg4nCm3mN/7TYN
+iHlCUPdGakDc/1kUEr46GhD/eYnD+d9iBf/kC0vC+TuCrSL+X5Vy2HGR4R5T
+uAbEfxYykPBYp+HQqsCuesZAFhL+rJoQ/2rIQdxTpwkJ7yVycPfD+GDzVqLx
+xbUd5HYt2JfqBdWfpA2Jj9mykPDpgYaXtaxDy7yzq86vg8qvlIHE5ylY/Eo7
+XAt7o787TxfOB5ufqesQ9PbyxxkPZSDhZ6nrMAGU3u7LQtLLEx2HN2253UbX
+ofZ76jis/Pay4oynAsT8QG0HKZMv/gW7FCDyTFpwPsz/MD44/Mw1HFjb1uR9
+TVVwWKy880/7FHWIexrkIfLX1RzOMDZZVjHIOaDkh3vSDuj5AwCF11Vc
+             "]]}},
+          AspectRatio->1,
+          Axes->False,
+          Background->GrayLevel[0.93],
+          Frame->True,
+          FrameStyle->Directive[
+            Thickness[Tiny], 
+            GrayLevel[0.7]],
+          FrameTicks->None,
+          ImageSize->{Automatic, 
+            Dynamic[
+            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+              Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], 
+         GridBox[{
+           {
+            RowBox[{
+             TagBox["\<\"Argument count: \"\>",
+              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
+             TagBox["1",
+              "SummaryItem"]}]},
+           {
+            RowBox[{
+             TagBox["\<\"Argument types: \"\>",
+              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
+             TagBox[
+              StyleBox[
+               PaneBox[
+                RowBox[{"{", "_Real", "}"}],
+                BaselinePosition->Baseline,
+                ContentPadding->False,
+                FrameMargins->0,
+                ImageSize->{{1, 300}, Automatic},
+                StripOnInput->True],
+               LineBreakWithin->False],
+              "SummaryItem"]}]}
+          },
+          AutoDelete->False,
+          
+          BaseStyle->{
+           ShowStringCharacters -> False, NumberMarks -> False, 
+            PrintPrecision -> 3, ShowSyntaxStyles -> False},
+          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
+          
+          GridBoxItemSize->{
+           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
+       },
+       AutoDelete->False,
+       BaselinePosition->{1, 1},
+       GridBoxAlignment->{"Rows" -> {{Top}}},
+       GridBoxItemSize->{
+        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->
+      GridBox[{
+        {
+         PaneBox[
+          ButtonBox[
+           
+           DynamicBox[FEPrivate`FrontEndResource[
+            "FEBitmaps", "SquareMinusIconMedium"]],
+           Appearance->None,
+           ButtonFunction:>(Typeset`open$$ = False),
+           Evaluator->Automatic,
+           Method->"Preemptive"],
+          Alignment->{Center, Center},
+          
+          ImageSize->
+           Dynamic[{
+            Automatic, 
+             3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+              Magnification])}]], 
+         GraphicsBox[
+          {Thickness[0.038461538461538464`], 
+           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
+            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
+             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
+              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
+             24.604699999999998`, 0.49999999999999994`}, {23.5, 
+             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
+             1.3953100000000003`, 0.49999999999999994`}, {
+             0.49999999999999994`, 1.3953100000000003`}, {
+             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
+             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
+              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
+             25.499999999999996`}, {24.604699999999998`, 
+             25.499999999999996`}, {25.499999999999996`, 
+             24.604699999999998`}, {25.499999999999996`, 23.5}, {
+             25.499999999999996`, 2.5}}}]}, 
+           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
+            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
+             1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{20.5426, 
+             19.116799999999998`}, {16.3832, 21.876199999999997`}, {16.3832, 
+             20.021499999999996`}, {6.930469999999999, 20.021499999999996`}, {
+             6.930469999999999, 18.212100000000003`}, {16.3832, 
+             18.212100000000003`}, {16.3832, 16.357399999999995`}, {20.5426, 
+             19.116799999999998`}}}], 
+            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
+             1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{5.30508, 13.8391}, {9.46445, 
+             11.079700000000003`}, {9.46445, 12.933999999999997`}, {
+             18.917199999999998`, 12.933999999999997`}, {18.917199999999998`, 
+             14.7438}, {9.46445, 14.7438}, {9.46445, 16.598}, {5.30508, 
+             13.8391}}}], 
+            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 
+             1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
+              3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {
+             1, 3, 3}, {1, 3, 3}}}, CompressedData["
+1:eJxTTMoPSmVmYGBgBGJjIGYCYq4u+eR3VWoOxhkv5j+Qk3SA8fu/r5rKOVHM
+Yd2vmNyjZ9Qcrt9QXbW9S8RBg59767IidQcPMYPGaHFhB+Nn61SfiGo4xBwp
+T7o2V9Dh0Iolfg6/NBxEHv/x1Xgi4FB1XNNqkqQWnP+axUTQjFkbzn+oO2HB
+j/3aDg/Xn5T6WiDoYLs3aJpiqI7DrHN+bO6tQg4zfUR7vF7pQOyfIQyRd9d1
+WLL0U1kLoyjEPdm6DpoTXfQX7xBzKPjQejLkhDacL5J4+LL2Gm2HtNnSl4Vf
+iELM69J2qPZM3tLnJerQX1oozZugDfHPUxGI/4W1HQ5p3TthoyDi4D7lG1v8
+Mi2HgqL9zoEHhB1inOxe3BRG8MH62zXhfIbN1Z82CGhC/GMg4nCm3mN/7TYN
+iHlCUPdGakDc/1kUEr46GhD/eYnD+d9iBf/kC0vC+TuCrSL+X5Vy2HGR4R5T
+uAbEfxYykPBYp+HQqsCuesZAFhL+rJoQ/2rIQdxTpwkJ7yVycPfD+GDzVqLx
+xbUd5HYt2JfqBdWfpA2Jj9mykPDpgYaXtaxDy7yzq86vg8qvlIHE5ylY/Eo7
+XAt7o787TxfOB5ufqesQ9PbyxxkPZSDhZ6nrMAGU3u7LQtLLEx2HN2253UbX
+ofZ76jis/Pay4oynAsT8QG0HKZMv/gW7FCDyTFpwPsz/MD44/Mw1HFjb1uR9
+TVVwWKy880/7FHWIexrkIfLX1RzOMDZZVjHIOaDkh3vSDuj5AwCF11Vc
+             "]]}},
+          AspectRatio->1,
+          Axes->False,
+          Background->GrayLevel[0.93],
+          Frame->True,
+          FrameStyle->Directive[
+            Thickness[Tiny], 
+            GrayLevel[0.7]],
+          FrameTicks->None,
+          ImageSize->{Automatic, 
+            Dynamic[
+            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+              Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], 
+         GridBox[{
+           {
+            RowBox[{
+             TagBox["\<\"Argument count: \"\>",
+              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
+             TagBox["1",
+              "SummaryItem"]}]},
+           {
+            RowBox[{
+             TagBox["\<\"Argument types: \"\>",
+              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
+             TagBox[
+              PaneBox[
+               RowBox[{"{", "_Real", "}"}],
+               BaselinePosition->Baseline,
+               ContentPadding->False,
+               FrameMargins->0,
+               ImageSize->{{1, 500}, Automatic},
+               StripOnInput->True],
+              "SummaryItem"]}]},
+           {
+            RowBox[{
+             TagBox["\<\"Variables: \"\>",
+              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
+             TagBox[
+              RowBox[{"{", "x", "}"}],
+              "SummaryItem"]}]},
+           {
+            RowBox[{
+             TagBox["\<\"Expression: \"\>",
+              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
+             TagBox[
+              PaneBox[
+               RowBox[{"Sin", "[", "x", "]"}],
+               BaselinePosition->Baseline,
+               ContentPadding->False,
+               FrameMargins->0,
+               ImageSize->{{1, 500}, Automatic},
+               StripOnInput->True],
+              "SummaryItem"]}]}
+          },
+          AutoDelete->False,
+          
+          BaseStyle->{
+           ShowStringCharacters -> False, NumberMarks -> False, 
+            PrintPrecision -> 3, ShowSyntaxStyles -> False},
+          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
+          
+          GridBoxItemSize->{
+           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
+       },
+       AutoDelete->False,
+       BaselinePosition->{1, 1},
+       GridBoxAlignment->{"Rows" -> {{Top}}},
+       GridBoxItemSize->{
+        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
+      Typeset`open$$],
+      ImageSize->Automatic],
+     BaselinePosition->Baseline],
+    DynamicModuleValues:>{}], "]"}],
+  CompiledFunction[{10, 10.3, 5468}, {
+    Blank[Real]}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 
+   0}, {{40, 1, 3, 0, 0, 3, 0, 1}, {1}}, 
+   Function[{$CellContext`x}, 
+    Sin[$CellContext`x]], Evaluate, 
+   LibraryFunction[
+   "/Users/hhpatel/Library/Mathematica/ApplicationData/CCompilerDriver/\
+BuildFolder/1x-vl927-72-19-107-212-10564/compiledFunction0.dylib", 
+    "compiledFunction0", {{Real, 0, "Constant"}}, Real]],
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->False]], "Output",
+ ImageSize->{317, 49},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->670586695]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "If errors are issued by ",
+ Cell[BoxData[
+  ButtonBox["Compile",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Compile"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " despite having a C compiler on your system, ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " may have trouble detecting it and you may need to ",
+ ButtonBox["set it up manually",
+  BaseStyle->"Link",
+  ButtonData->"paclet:CCompilerDriver/tutorial/SpecificCompilers#440103632"],
+ "."
+}], "Text",
+ CellID->2126382446]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Download and Installation", "Section",
+ CellID->1778245040],
+
+Cell[TextData[{
+ "The CollierLink program files are hosted at ",
+ ButtonBox["http://packagex.hepforge.org",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://packagex.hepforge.org"], None}],
+ ", found under the ",
+ StyleBox["Expansion Packs",
+  FontWeight->"Bold"],
+ " section.  Click 'Download' to download the latest version of the program, \
+CollierLink-x.x.x.zip.  The program can be installed either manually or \
+automatically:"
+}], "Text",
+ CellID->434471981],
+
+Cell[CellGroupData[{
+
+Cell["Manual installation (drag and drop)", "Subsection",
+ CellID->1695744902],
+
+Cell["Uncompress the downloaded CollierLink.zip file.", "Item",
+ CellID->1654414331],
+
+Cell[TextData[{
+ "Move the entire CollierLink directory into the ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["$UserBaseDirectory",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/$UserBaseDirectory"], "/", "Applications"}]], 
+  "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " directory (but not inside the /X directory)."
+}], "Item",
+ CellID->1643451927],
+
+Cell[TextData[{
+ "Restart ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ "."
+}], "Item",
+ CellID->946606154]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Automatic installation", "Subsection",
+ CellID->1129088577],
+
+Cell[TextData[{
+ "Open ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ "."
+}], "Item",
+ CellID->1509810028],
+
+Cell[TextData[{
+ "Navigate to File ",
+ StyleBox["\[FilledRightTriangle] ", "MenuPointer"],
+ "Install..."
+}], "Item",
+ CellID->1434697746],
+
+Cell["In the \"Install Wolfram System Item\" dialog,", "Item",
+ CellID->931410807],
+
+Cell["set \"Type of Item to Install:\" to \"Application\"", "Subitem",
+ CellID->1337756014],
+
+Cell["\<\
+set \"Source:\" to \"From File...\" and point to downloaded CollierLink.zip; \
+or to \"From Directory...\" and point to uncompressed CollierLink/ directory\
+\>", "Subitem",
+ CellID->1119883646],
+
+Cell["the \"Install Name:\" will be automatically chosen", "Subitem",
+ CellID->1511303291],
+
+Cell[TextData[{
+ "select \"Install for this user only (<",
+ Cell[BoxData[
+  ButtonBox["$UserName",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/$UserName"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ">)\""
+}], "Subitem",
+ CellID->37835121],
+
+Cell[TextData[{
+ "click OK (the files will be moved to the ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["$UserBaseDirectory",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/$UserBaseDirectory"], "/", "Applications"}]], 
+  "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " directory) ."
+}], "Item",
+ CellID->895432454],
+
+Cell[TextData[{
+ "Restart ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ "."
+}], "Item",
+ CellID->395779558]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Loading CollierLink", "Section",
+ CellID->1621671609],
+
+Cell[TextData[{
+ "After restarting ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ ", you can load CollierLink into the current ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " session with ",
+ Cell[BoxData[
+  ButtonBox["Get",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Get"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Text",
+ CellID->868361363],
+
+Cell[CellGroupData[{
+
+Cell["Load CollierLink:", "MathCaption",
+ CellID->789192082],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"<<", "CollierLink`"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->1092318302],
+
+Cell[BoxData["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"CollierLink v1.0.0, \
+by Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
+TagBox[ButtonBox[PaneSelectorBox[List[Rule[False, \\\"\\\\\\\"guide\\\\\\\"\\\
+\"], Rule[True, StyleBox[\\\"\\\\\\\"guide\\\\\\\"\\\", \
+List[\\\"HyperlinkActive\\\"]]]], Dynamic[CurrentValue[\\\"MouseOver\\\"]], \
+Rule[BaseStyle, List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], \
+Rule[ImageSize, Automatic]], Rule[BaseStyle, \\\"Link\\\"], Rule[ButtonData, \
+\\\"paclet:CollierLink/guide/CollierLink\\\"], Rule[ButtonNote, \
+\\\"paclet:CollierLink/guide/CollierLink\\\"]], Function[Annotation[Slot[1], \
+\\\"paclet:CollierLink/guide/CollierLink\\\", \\\"Hyperlink\\\"]]]], \
+\\\"RowDefault\\\"]\\)\"\>"], "Print",
+ GeneratedCell->False,
+ CellAutoOverwrite->False,
+ CellLabel->"During evaluation of In[11]:=",
+ CellID->1241570034]
+}, Open  ]]
+}, Open  ]],
+
+Cell["\<\
+If no errors were issued, the installation was successful and CollierLink is \
+ready for use. \
+\>", "Text",
+ CellID->2116447186]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "TutorialMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "TutorialMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Guides"}], "TutorialMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "TutorialMoreAbout",
+ CellID->1463722569],
+
+Cell[TextData[ButtonBox["CollierLink",
+ BaseStyle->"Link",
+ ButtonData->"paclet:CollierLink/guide/CollierLink"]], "TutorialMoreAbout",
+ CellID->1567025153],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Tutorials", "RelatedTutorialsSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "RELATED TUTORIALS", "RelatedTutorialsSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Tutorials"}], "RelatedTutorialsSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->415694126],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Introduction to CollierLink",
+ BaseStyle->"Link",
+ ButtonData->
+  "paclet:CollierLink/tutorial/IntroductionToCollierLink"]], \
+"RelatedTutorials",
+ CellID->806871991],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Linking Package-X to COLLIER - Wolfram Mathematica", 
+  "Linking Package-X to COLLIER"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "TutorialColor", 
+  "LinkTrails" -> GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 30.568993}", 
+    "history" -> {"2.1", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Tutorial", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "The COLLIER library, by Ansgar Denner, Stefan Dittmaier, and Lars Hofer, \
+is a fortran library for the numerical evaluation of Passarino-Veltman \
+functions, driven by state-of-the-art algorithms for rapid perforance and \
+stable results. CollierLink provides the Mathematica interface to COLLIER by \
+extending Package-X so that the Passarino-Veltman functions PVA, PVB, PVC, \
+PVD, and PVX can be directly evaluated. This tutorial provides a guide to \
+install CollierLink on your machine. Before installing CollierLink, check \
+that your machine has the following required software:", "synonyms" -> {}, 
+    "title" -> "Linking Package-X to COLLIER", "titlemodifier" -> "", 
+    "windowtitle" -> "Linking Package-X to COLLIER", "type" -> "Tutorial", 
+    "uri" -> "X/tutorial/LinkingToCOLLIER"}, "SearchTextTranslated" -> ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> Notebook], 
+   Cell[
+    StyleData["Output"], CellContext -> Notebook], 
+   Cell[
+    StyleData["TutorialMoreAboutSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["RelatedTutorialsSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["TutorialRelatedLinksSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/Tutorials/LinkingToFeynCalc.nb b/packages/X/Documentation/English/Tutorials/LinkingToFeynCalc.nb
new file mode 100644
index 0000000000000000000000000000000000000000..45e898ebd4ad197a7dc9570706ec21ed50c06431
--- /dev/null
+++ b/packages/X/Documentation/English/Tutorials/LinkingToFeynCalc.nb
@@ -0,0 +1,2240 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X TUTORIAL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"FeynCalc\"\>":>Documentation`HelpLookup[
+       "paclet:FeynCalc/guide/FeynCalc"], "\<\"Package-X\"\>":>
+       Documentation`HelpLookup["paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/tutorial/LinkingToFeynCalc\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/tutorial/LinkingToFeynCalc"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/tutorial/\
+LinkingToFeynCalc.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/tutorial/LinkingToFeynCalc", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
+     Scaled[0.65], {
+      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
+   "RowsIndexed" -> {}}},
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Linking FeynCalc to ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X"
+}], "Title",
+ CellID->509267359],
+
+Cell[TextData[{
+ ButtonBox["FeynCalc",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://www.feyncalc.org"], None}],
+ " is a ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " package consisting of a wide array of tools to assist with high energy \
+physics computations.  Since the tensor algebraic capabilities of FeynCalc \
+are more comprehensive than those of ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X, it is expedient to carry out the bulk of your calculations with \
+FeynCalc, and only use ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X's ",
+ Cell[BoxData[
+  RowBox[{"OneLoop", ".", "m"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " file as a library of analytic one-loop integrals.  The add-on ",
+ ButtonBox["FeynHelpers",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["https://github.com/FeynCalc/feynhelpers"], None}],
+ " to FeynCalc provides this interface.  This tutorial illustrates how you \
+can analytically evaluate one loop integrals in FeynCalc using FeynHelpers."
+}], "Text",
+ CellID->1534169418],
+
+Cell[CellGroupData[{
+
+Cell["Loading FeynHelpers", "Section",
+ CellID->1885126449],
+
+Cell[TextData[{
+ "After ",
+ ButtonBox["installing",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["https://github.com/FeynCalc/feyncalc/wiki/Installation"], None}],
+ " FeynCalc 9.2 or later together with FeynHelpers 1.1, initialize them from \
+a fresh kernel:"
+}], "Text",
+ CellID->920812543],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Restart kernel to start a new ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " session.  Load FeynCalc, together with FeynHelpers:"
+}], "MathCaption",
+ CellID->1436671950],
+
+Cell[BoxData["Quit"], "Input",
+ CellLabel->"In[2]:=",
+ CellID->993116495],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Global`$LoadAddOns", "=", 
+   RowBox[{"{", "\"\<FeynHelpers\>\"", "}"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"<<", "FeynCalc`"}]}], "Input",
+ CellLabel->"In[8]:=",
+ CellID->1986820429]
+}, Open  ]],
+
+Cell[TextData[{
+ "Once initialized, FeynHelpers provides the function ",
+ Cell[BoxData["PaXEvaluate"], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", which interfaces with ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X to insert the analytic forms of one loop integrals."
+}], "Text",
+ CellID->1542224951],
+
+Cell[BoxData[GridBox[{
+   {
+    RowBox[{"PaXEvaluate", "[", 
+     RowBox[{
+      StyleBox["expr", "TI"], ",", 
+      StyleBox["q", "TI"]}], "]"}], Cell[TextData[{
+     "evaluates scalar 1-loop integrals (up to 4-point functions) in ",
+     StyleBox["expr", "TI"],
+     " that depend on the loop momentum ",
+     StyleBox["q", "TI"],
+     " in D dimensions."
+    }], "TableText"]}
+  }]], "DefinitionBox",
+ CellID->2096742444],
+
+Cell[TextData[{
+ "Substitute analytic forms of 1-loop integrals with ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X."
+}], "Caption",
+ CellID->1891092685]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Example", "Section",
+ CellID->46111644],
+
+Cell["\<\
+In this tutorial, we will calculate the one loop gluon self energy in QCD in \
+covariant \[Xi]-gauges.  Omitting the quarks, there are three contributing \
+diagrams:\
+\>", "Text",
+ Deletable->True,
+ CellID->99758705],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"i", " ", 
+     RowBox[{
+      SuperscriptBox["\[CapitalPi]", "\[Mu]\[Nu]"], "(", "q", ")"}]}], "=", 
+    RowBox[{
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJztnbtu88oRxwdJipTHb8D4CT7AL6AEfoAPCdzrHJy4jXMBhHQsXaRQ6061
+kcK9GxYpXXxAagHqUkVwilw6h2vNaIer5Z3ULsW/gJ9hUbwMhzuc3dnd2V/8
+8Ltf3/+EiP748/zPr79f/fIPf/j+z7/5Wf7lV3/+029/+Gn+z1vOP3LMxo+P
+DwAAAAAAAAAIQv65yXnMec25Dy0PAODTLp9NuEBxHVomAMABY49sl9vQsgAA
+LPnnlm3zKbQsAABL/lmxbaKtCUBEcAwIbU0AIiP/7A38/8qJDRmuQssIwNxQ
+bc1XZ9sWdVwAwqH85Iq/33EdF74SgICotuYt2+lraJkAALatyWMQ0L8JQATw
+WD2J9+wRqwUgDkysh+3xUf8fWi4A5o4ZByRtTf6+Rb0WgPCwLe7V90c9Pojr
+vIjXAnBG1Ph23a95xe3ON/4f42sBODOqfbkq2Y4+TgAAAGAg8s+X0DIAAE7J
+P7ucdc53oWUBAFjyT8rtUmOjX0PLAwA4kH8SZx7ZC3woAO0xdpOzYB7Y7wlZ
+DRtn/698njfHPt9zlqHvFYAYMTEatp2UfVlGp3OlXXY1tvne4Bzu+VL4UTBX
+2BeKHfpsUGxu7fi7XjFWPsePOf+tsdF39rlJaF0BcC64zGs7+MbbTH11MfK1
+v3TwpdnYcgEQA2yDa/aFZ6s7sq/+5vjGjP3ykmybdgFbBOB8sP2lbHtJaHkA
+AAAAAAAAAAAAAABgLrh9I4jRAhAOOoxn31SMMzD9nMvQcgIwJ7gfU2xw4xlX
+sOYxgTLmB2NnARgZZZff6uquZOdxvsM+wdzhuqaMcZcxOoPYBZ9X7LLROfUx
+oXUDQAjYn+mxrC6bPjEaHiu76+IDeXzvB9qfYE6wzWRk530d55ooH7pRNrrs
+eB05R6ccIyzbLrS+ADgHVJz3kdbsm6h9H1peR+xy00NW8Z1JaL0BMDZ0yF3Q
+2Bc6tpw1iOUs1P6bnrJ+afIOAWDqsN2Yf9YdjpX4qeTZeqBiH0iqbPK9rZ+t
+uG7Wpb0KwJQg2+/fqZxzHVf3Q46e10e9Tzah9QfAWLBdvgx0rsTxm6P5NdV2
+7eLvC3KGfgYA+Jhy203Vl2vz1nIbOa3w7y+wUxALqm64DC1Lj3tYq/bs2rUv
+jh1pm5Q6tvjNJRXH87b2wwAMjbLNRWhZBriPrMQfNhozz35V4tWb0PcE5g3Z
+Ma2L0LIMdD+mHanHGaZ8j0mLc3RuxwIwFFKXCy1HbCgfnISWBcwPsusAbULL
+EhvQDQgJfEMj/exCywHmhWpTpaFliRVuq36ElgPMA45FblBfa6Qr2CboBdkx
+Lsc+u5J9UtWHtwktd+zANkFXqH4OtKzvo3NkfbuU/pIz6NfoDjkWQGOcPvKd
+8pfiP6V/b8Pl64W/91oPc27weywLLQeYBlScN2nGp2GO1Hi6RqwMNIbs2NFl
+aFkuHdgmaIrqDx9kPheo1TdiZpGQf+5yXvmZbHNu5f/QsrF80veRhJZlDtCM
+xx7EZAv554mv/czfr3PeeNtTaF2xTDvEJs6qb8kZtggty5nvOxpbULI8Oduf
+eft9aH2xPGj/nFff30k/VGhZznjP0diCuRZf883zm/j069A6Y3lgm+fXeToX
+vcdkC/nnKmfP17zz/L6Ppa3J8syijMQG2TkBg+QIjJHYbCH/PFa8J+50nTsG
+6NCviXEq59d7q1y8UyQ2W+D4k/ln5fntrey3gPqT+tUitCxzhIq5eL+Rzamw
+oJFzCp7h3qKxBfbhoudb57eV8u+355CnocwJzSw2ERtUn4vX+NVO67wEvKeo
+bMGR50Ztv6FDrMrIsw+tN4/cMi4oCS0L+HweX5TfXJOdV1CbkzMWYrQFcvps
+uF5tZJF+1tfQevPInNCFxyWmDB3apvL+nExsIDZboEOfqh77sOLtq3PWrzvI
+PVgedjDaM5JxC5PI1TcVW1AyRtPWdOTL0OaMH7Lz+JLQsvS4h6hsIda2ppIP
+tjkB6AJy9cVkC2T7cqJrayoZd7DNacC+cxdajo6yR2MLTp07ivHtHhnlXZyG
+lgU0el4pTTDnUEy2oOJULjch5Sp71oT8IpNgirY5FVuICbLzIiYTm587U7RN
+0Ok5S9xvEVoW0OqZYb2Z7vpbxl7eCWtbTQ6u50wqThubLZBdg9LEP02fcTRj
+regwJiyb2jMGhfGVi9CytJA5OltQ9UVhE0qnHIt9oOJar2loHYFWz3BJE827
+FpMtsDwJFfOfCzt+/xldJyPLoNcq+SC7Rvoo16XDWOZXdT0TnzuZVzt36NDP
+Z+Y3Nhq3Rofc3Z/jaWPwOx3ut5MtePY/N+9k86QvBtTHF6UPY5+t+0jo0Cf1
+rGR9rNnXjPl4Ut8ldh7F+KyRyp2e81Q7V5ht8o7/v2M9mTHg3hwAZGPpu7Ht
+MjZbiE2egXSc8Hnfu56T7BiOR/4uuV+8+V3YhvfOths+Jvg4kBHK8RW/e974
+fxnDfVVxjNn3xtkmtu31oXTG+e+XaAsl9ynvO/f6Oxq5Tku2XdlpPAE5PtAp
+Q96yx7/58k9sXZu9BNjOtqIPOtTlS/0mHXyjTz9vNXqd/Nz3kLZQIk+Q9i/Z
+tkna4xwnPrDBMWW2Ke3PUn8yNciZ58R291phX9d6f892r02TrdctQ99zT31F
+EwuigHFj1sN7n2uynTXOs0R2nvtJm6mLnccO2Vw4j3x/lTlWybYP7p3tYuPe
+9jjZ+uzk4j/qHoLZQok8y4DvBWOXmx7Hi509O9tLxz5SMQfFnfPbto2dx466
+11dn+02F35S5/q5tbn3vM/X7p22Gvuee+gpmCzFBdtxI2vM80pa65u8mDuTm
+5f6Mg/D/Ul73vF2OkzZqFLmyB9Tz1qMf11aP+lHHaH298j7G717zOdy8V5O3
+TXB8llJ/WPY8j+7/2PvqbKo+dqV9LZcx6VN4rfK3U4V9pOjnmG+jTD9Kp7rv
+V9YGuaWSNids87IYwm82vM7Rl1JJPXjO+OoaHc6xpDP1n4CzlInR83IR50xT
+32GbFfrpcZ6E9Yr5CO30tmCWNHAObrI5SuXcSYtjN9QzTttBXtjmeLrNqp4n
+HWIMpox8lTI58PUXzvmjjRlzG8DXjyr9NkmPc5v735WcO2uid7JtzrO9a2Gb
+o+pWnueLs90dK60x5TPted26ch6NjdLp+jLi0+SdslF66TJ2VY43tvmgzm3Q
++b2XDc710nRfED9k54at+bs7VvorFetxGf/Wemz82OV8JP2IvKX5z5XODEkH
+3Ze+jxydVa6P4eyLfO0XgHqef835F9WMlSaba7pVvpmG5XzRpZyPpJdF03LO
+9vn5zml57tr4Ddvcjhq0J3nfv/O5/xnLOw50h4p12B8b7C/2mTY8fzpyOd8N
+bctczhuv5aTucVOzX6JsrZHMypYr6ysss9Rt/xNTHQR0J//8Jeff1Lx9kzXZ
+l2x/TdZClqblXNcng7dT1TvuxWd3rAtpM7Raw03p0djnwvP7gmzdZO3oBvY5
+cajYZjl5/hX7pq5t8O9iY61tR73/68p55/mKI+lQ2pFiRxnZmLjEfbrO41o6
+55Fz75Sel2p/sU/ku7wASM25briv+M8PVVbcbZ182pjlfGQdJvxe0vp4oQFi
+qKzzBz6fPr93vD/Z9kfva4PwkK0/NXqeZGP+uqysh/BnJeV8g7LWSoe7Ju9a
+MA34eU4uvxfwPkvxndHVMUCn52l8E3JJXwBkY9/L0LKAQZ6nqUd+hJYDDPY8
+G/d5gbgps0065GSQ+MxFzZ+9ZGCbl0NVnZYOc0hL8yqAuKCBciOAOKiKBdFh
+LneU674C7/OSPHyL0LKA3s+ysg+FSnJWgDghO14p+Ngp0Os5ytjqXUlftuT6
+vricMGfSr84hs+X2e2UOdPLkOiWbc6Zy7RGy8+g3HeU95sgJrbtYIJuXy3yp
+yh2t96vct8E1a+ck0SFn7p5O180o9aPKnreO3OY8pettXBp0yAe1F1tU3yvX
+ryHP2gfyHBpcM+Njkx5yb9GGKejjmW3uvuqdxe81ya8k79JGaxU551kou1zW
+PKdXlu9ayeAtJ1z+Vq6/Vb5gFs+c30Vb7SPJ5g6oXNeH9e0eV5vrmWxdNu0h
+tzwntGE+juW5tt7IZd7N99vYF5EdDyc2WRgrXfGcjmtC8HbpVznpU1G2uCK/
+bc6ibszvskLeVjrkf2ri+wq+Vemyqq4iY4E2PeWWd+rFrgvWUh+N+ig8NiLl
+vUkbJCNbH92RZy5JxXNyc1WX+k1PebpS31v79ylSVkdge61ra0rufqmjiP8t
+7V8mu6ZY7/kn1LzuvFJyyftb1rO7mOdMTh2m4pm5PvPJff6e475SMe9I0vI5
+bT1ymH8qfbV+xnSoe8+iLuvoSPs+ybdsynTV2gZPVKzPyho50mY9eQ+Trct2
+XX/zGOcgpx5ecswr7yd1InmHf1DFellTgooxHaFsjb4n1oF5trJ+Sp2/lH6u
+XcfnVshnzc/xmFe+5lip093MyS753iUOoNe1lHZAId8w+fP2SzxBcqhL3n5z
+Xl/+9U75auk0VnXyTvEcI/fhrh1wsu7k1KGG9XtSazM4evXaJ9l6jrHL1v1c
+ZOMWssbZHdm40JWzb6F8qW2zjffxu9St6324PomK6xrcUrG/5c4510ldhWyf
+Sdrh+bqxKnmnlK155b0HVT4van1calC/Z5351lZ7823n3zbUc56QskcpK2U+
+/WQ9X2rQVwCO72bxk4/Ucswy2dxCi5bH+WJVq6qySCXxB/W8a+tTU6LJ+4Z1
+duJ/qCQmQz37n/uUL9BKb+66Bq3LtrLNNnnIvH0yXJ5Ky6J6B7v1Wdl+MXml
+qWFfEtdz3Fip6NfnTyWenpy7fIHOerytqz9VHNuqTkuefvEqn+jZx7XNrW/7
+lCHP+I+S/U7alepd5Vt7LCPkpJgUVDPmpOZY01/duP+EbH+6jlXJmK9bUu1a
+Ol2D81jPo+IYtYtqv5Cnj8Kjj1uy65FKX6HYdNka8sY2s9D3B85WjqSetGhx
+jBurkhit2ydbt8bkq+s3LgEqiWNSMXb3KPdPDeIyfDxsc0aQypVIA889oRnG
+EqiirUnF2N1bW93ANucHFXPBJwOdc5axBLY/X4zVjd21njtJh1ymyMs1M8jO
+w/1c/21oH3rJKF8pa8nXzRWq7Atu8IwWoe8ZnBc65NiTuQziRzMm5bIBmz3V
+2xXZuau1dQWq6QuuOE7aH1noewZhoNP83tpeP/u+YaPBnk0K3wlc6HTt00Vo
+meYG2Vxrm9CygPggu/ZpqzFFYDD9f9ZlQssB4oTsfIjgaxPPDUKudlADtVyb
+GAymd9gmqIUGmLMEWuscdVpQC9l5S+vQsswBxIJAG6QfNLQccwB9KKANhDUe
+z6VntO9BK3icwkdoOS4ZtkuJi6NtDxpBmB/RR3cLxmtv3L6UeizsErSCKtaR
+A159LT3jIIUd2bGSmdqeoR8ZtIV6rtUwF9g/7pQNmrbAV96+ZP/44tjmGnEf
+0AXVh/IQWpaYoeIcvGVoecDlQx1y9c0NsnnYTT0W83fA2UCdtlI3o+V8AaAO
+9ge70HLECMYKgJCQzdWHeu2pbpCnAASD6207wnwxVy/SFl+GlgXMF1UOd036
+xzlu+VLSv7e5hDqgqk9gvAAICtub5ENIXR/K/nXp9PFteF8howvpbyfMswQR
+Qf51zjMqjoPZVdXz6ELGqcE2QYzQYWx2SsVxLus28SKa+PhuwvwccMEo+zS+
+dug1IRJuE7rj5F54e9Lz/J3WBAdgKpAdV5MOdL6EbC4VqTdr23xXv226vBPI
+jtFbhtYfAGNCA609yXb+ruyubG7WFyrm4m1cp9a+PrTeABgbGmAtEHWOXVNb
+o2Iu3mWD/b+Q7eudXBsZgLZQz5xhype1Hm/O15Y488bXDiUbW5bYFcZIgdmg
+2oJJj2M7+TK2Pd1GlXWcJI6k+2ThL8GsIDv2KGt5nIzPSQeQwfhQWcdpR7b/
+FnOgwawhOybhpUndVNklci0DMDLso47ji3w2yj5W6pqY0wzAmaBDX8jOaecJ
+Eld9H6IeCwBoD9vomk7H9Xj9KQAAAAAAAAAAcE7Izu1eYuwAAKewbTyc2z54
+3I+7DkLGY4EeyK5b4gO2DC4eOs0hlLE/+zq2DfCYn3fn+nVsYJtgLtBhXPqS
+y71vTZ9vbMOp49M695nwNc05fp/zvxp7fOdro48GzB62mwcqjmWt82lZBU2O
+970TlqF1AcAU4Hqo+M1U4Y5HcHlx9tf+92+OTRo7xpwvAAJCdp6osEbdFYDw
+kJ23YnzlIrQ8AIADbJOI8wAQGTThPPIAAABAaPLPKucxZxtaFgDAp03eOPHa
+p9AyAQAsxibZNu9DywIAsOSfV7bN69CyAAAs+WePtiYAcZF/btHWBKA5+edO
+1TW3yoYG9W8cozX/rPj73okPPYbWBQCxoGIzz/z9OudtDP+m7P/W2faccxVa
+FwDEgrLLJ2f78xixVPaTe+c6q9B6ACAmjN2x/b15fhs8lqrqyebcV+yb70Lr
+AYCYYNuQtt6JfYwRS1VtzWdu06J/EwAHHjNX5jPvdPtTbRfbaop7vNST5Z2A
+WC0ADuy3jvFS57e3st8GuOaeffbx/9C6ACAW2DbEt906v62UX7sd8JrX0tZU
+1xnc/gGYMo5t3qjtNxy3LcRSB7rmvbZF1d7dqn0QFwKzh5z+S25jPulY6sDX
+k74a3a8pbd57ZjA/DcBU4TqmHgck/myUuqa0Lz3b5R2BmC0AFZBn3A4AIDxj
+tDUBAP1Q/ZqDtjUBAN1x2p8YEwBABKh4jMtNaNkAAAAAAAAAAAAAAADj8H+X
+EuLB
+        "], {{0, 204}, {231, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{118.32500000000012`, Automatic},
+      ImageSizeRaw->{231, 204},
+      PlotRange->{{0, 231}, {0, 204}}], " ", "+", " ", 
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJztnT9v68gRwAdJipTPn+AUf4IHuL1CCfwBjAuEpNQ7JG7jXAII16mLS7fu
+VAZu4jKAGxUpUjg4f4AIUJG0PjX5AyS5F/Jp1hytSImkSO2S+gn4GRYlLYez
+O5zZ2eXuj7781RfX3xOR3/ww+fPFh8mPv/rqw9c//UHy5idf//aXX34/+ecv
+CX9PSA9+/PgRAAAAAADgKCSvi4TbhKeE69DyAJwyyeshTQsYzkPLBHDqpHao
+9rgILQsAfLLJS7XJ+9CyAMAnm5yoTdKXBIgAze3QlwSIhOT1mqL/T7ycT8pZ
+aBkBTgXTl3zyji2IZQGOj/GLE30/0lgW3wgQANOXvFT7fAotE8Ap4/qSOneA
+8UmAgOicOpfHeSX3ChCWNIejdnhr/w8tF8Cpks7bcX1Jfb8gfgUIh9rgq3l/
+a+fzaGxL/hXgCJh553Zc8kz7lc/6P/NfAY6E6T9OCo4zRgkAAFCT5PU+tAwA
+kJG8lgl3Ce9CywIAn2xyqv3O1DavQssDcOokr4H3PNcjPhOgPKm9JAyVG/Vz
+jvkeZt73r7ScZ88uVwnj0NcKEBNp7kVtZqq+ay7bzyj7LPfY5KpEGX55U/wm
+nBrq+5z95dmes7U7z78NDjxvWsYvEv61xzZX6mMPOh9AF9C2btv/ix5L49Jh
+y+d+X8N3ztuWCyAkant36vuOFiOqb37xfOFc/fBYsj7rEBsEaB+1u2kTMTAA
+AAAAAAAAAABAX5D1XFXGKgAiQccz/Pk+j26MI7R8AKeGZM9Z7Zt3c8MYJED7
+lLRJf94e9gnQEjonr4pN+v5zHPoaALqM5nTGzs9Juee39vG3hD8mfBb6+gC6
+hGyvBzBoyCYd38l6rWaelQQogfYDrQ1NG7ZJ+3zINPT1AoRE1mOMj2p3uX6q
+wE9WffaxCkvR8RRZP9c1VRmHofUF0Cba3q0tjHd8973axnt9X9feXiR7VnKW
+8PuEn4v3zKSxyannR4lvobeonVl7mVX4bVn7S/OzY6m5vrL6R1sm6zRDr5Gs
+X7gq295z/KuNOVPf19i6BeozXZz8GFpfAIegtrN3nL6q71E7sfHkXZv+S69j
+Z/nq88fEthAr2o5tHmbYYNlDiWjcXzbn3i5DywOQh8aPG+MXoWVq8Vr9Pucw
+tEwAPjl9vmFomVq8VusnV6HlAShC1uOI0z7bo7nWYZm+MwAAnA4as81iybXE
+jOqKuUDQGt54RK/7iw3oauzpahBaJugfsj0v/Ca0TLEi289fj0PLBP1D86pL
+yebPMFZerKuBGatdhpYH+g0xK7oCAAAAiAXGO46mY8ZJYC+MdxxFx4yTQGkY
+7ziKjhknOb7ORwlPqu9FwqX7P7RsJWRnvKN9Hfd+nCQmG0he93ruB31/nvCs
+x+5D66rCdQxDy9B3+qrjmGzAyHLvHX/Q49eh9QXQJjHZQHouPedzzmfOh5+H
+1hlAW8RkA8nrLOFVzznK+fy1C31JgLrEZgOyXuO+6P4wsrF1TEj2/PE4tCzw
+ll8bSwefk47NBjSvlP4zyfnsueiz0Jj8KmMeESCb+4a9hJanouzR2ID6bKfH
+S++zifHnl8eQp4Lc/trHrGMavk7mXp10YhwqNhvw5Lkwxy9knYNK5XkNrbcC
+2V+M7OPQ8pw6sjlfYx5angpyR2cD4o29aPycyuLGSZ9C622H7OOu9V36jMYv
+V6HlqCF3VDYg6zFRO2dhoscnsfYlAZqkKzZgZIyqLwlwLGKzgZj7kgDHICYb
+kGxMJtq+JECbxGQDXmwdzbxz8fZYhfgxdTYILUtFuaOxAZN/8rkILJc/Htmp
+Oj5FZPv58k7UWaw2EBuy/Rwt83YiJ6fOxqFlgkbrd9DFe+4pkxPbdGJeT0zI
+evx9GFqOHfINhDkCncLUWSfsMTYbMPH/UtbzpDqhx4JrSfvo7jnUlNvQMvUB
+2Zz/Gd2zQg1cX3Q2INv7985ium+UvIaRtUPJnlXlmez6Oj3T3Mez/u/mt5yF
+lq2Fa43KBmRz/SNLet+4iz12VP+Y3sfvzTF3b+9d+zmiXlNbXDgdynqcoHd+
+Uq+tlg3kfP/YrPR+Mo3Jj8o6Xo1i3kVfEG/Op6znZj+FvsfFZgOxyRO63Zh6
+Sv1hL+/fAXXqnve91XteFGulnYoNyHr9hmhiV73/zKREf1uy5+AevOOM9dbX
+v9Ppk3c8fbawtJ/UdjXVujxa+6l5zbHZQGz9W6ubaYnvu37Pub5P8zvRzA/s
+IqpPX6eV5oBqO3pr26GvaY+s0diARJYHlhrre8jm+rhpHBtFnNVl1Cc6nb49
+W1ixjLlXl8HHGArkjM0GxiF9YoFM9p4VlWxQqR6vrN8JLc8OOaOzgRhRfxnl
+fRUq1WPaT+OZHgAAAACAjqP5paHr0zbZX9P+ny17EPp6IU60jznUHNCw6fyK
+aedXTbfzBmWcSv54qBuHGRxQ9pVs7hdgmZPPAofa4qygraTtc3pg+fvaeXDb
+VB28GPtwPszdQ2ZGH5VzY+b3qU3emLJT7ox+xhXL/VnCZ6H1B82QvD5P+GDa
+w8z6SG2Xc/3sparttN3OG9aFk7NwzQxZx5wrZVChbLd3S+H9x9NVqXWyk9df
+zb3td6HbExxG8vqDqc//yo64SbJ9DirtBVSynQ/rtPOGdTHcJ6f5rps7M69Y
+dpk5Nu/Uj6723f/0fmrjjW9Dtyk4jOT1H1Of35X4vrPLacnypy2382VTNqy2
+UHoPB3Ntsz3fGxgbKyWrseGdcYnK/J2pw29Ctyk4DC/u+WfJ38ylRJ9H1jFq
+aRvT35Rt5zZ+DNYPlSzufsyzN9WB6xNU2rPF6C+1y2HO50PJYpCV1stnodsU
+HNym0tjnG7XNz0v+xvZ5pr5NSPa8iWsrVfufbu7mvna+ymurAXS4scen2sbc
+2GLqI2v1kz2bXpqyl0a/49A6gPCo3c1NW5wb7LFaPqzNdt6SPgZ6H7J6eGzC
+XlTXN1qeLT/4fHyID8ly+Lat3DXhvwra+Qy/AAAAAABFyHrNH9e3Y+1PgAiQ
+9Tp5i9ByQGH9XGkOaEbep7toDmWmdTnc8910nUrWUIoQ2V4/7O6Ast7Wkwl9
+XV1G1uvYuX0ZS6/ZKRXWyBLWUYoW2d5La+/8vT3lLbj/HlwnD2qT11Xub1Jy
+jSzJ9pFg/c9q9WL3sF1ov3zn2oL6m/SfiTl2qcdGO37n7q/LQ8ahzPm5/9bX
+4UVde9E+iIt5pju+d69+0t+DqbDejB0vzLEzLaf3ezdpvbw6GzTvd64vKDn7
+6Dj9lzjnoAG53fkvQ+uwq0gDuZci/2g+X+j9/kGy9WSfi9qJtr+J71/NPbjX
+cZHeexbWJ0q2TvbOtq569n93tH0Eyto/lK/DFsp3dvS2V5Aed+MjW2Mjxgbd
+nia+TfY6BtZ716vn60Ylfd2GLzU6bCWWlM34+sG/l0AlXTo9Wiqvu1ziPNd5
+bWKXn8xpT2fmfeMyxkRRLKDtfV9f0u0H6WIR529bGReW7fjanb/XddRy/bce
++2sss/CObewluue3r/r/Zd9jVk831tddO/+3K0ZQfT35763NNChnXnztckn0
+JevrtfXYX7x9D9QPpMeeS/zWxXAXp2CPes2uXdu9j12cv7FPjsYaz+b92xiE
+6u5av/Og5TYWv0p+fD1puz31Hf8+10L5Li/h9rgcSZbvOfO+u9G+zLGTG+vS
+e6Xrg48ki2f9fdDeYnu1OTtuMvLKKp2rlmxcZLajXrfyRlpf9CXr13utcSTJ
+1qZbFdWZ931nh66t5PY1JGffdimR+z9lrN9UX3pwn1GytQkcW2sbGF/ux9et
+5ZJOAckZx6pZZ8MG5Tkpf3igvkbixbENlVvGJt2Yto2v3bjzZRWfDBt63cq9
+1KyzYQOybLQvqKy/1A4a68fti131O3587XJT1GN9vdfqp1WNXeEodVlpTiTE
+R92+JAC0g95XyVkDBMT4RrdnOvlMgIDIekzpmX44AEC30Vz7UgrWsIaj10e6
+hv9c66TS2vjQfTTPbse+ZqFlOnUkW+c/ZRVaHjh6/Q+wybjwbVJY0+zkkGwv
+3nSPh2j2czhVNHZdap3s3W8OAAAAAAAAAGAXst6/ck6eoVUdT1XH49CyQNzI
+et/Qxp+jhQ0d+89FDkLLBPGS017GoWXqGxqH7Hy+HMCh83teJNubnnHr5nU8
+0HHI9M08tDzQDYin0DEAAABA12GcpJKuGO+AVskZJyFfWKwrxjugdRgnqaQr
+xjugdRgnqaQrxjvgaBCHoSsAAKiHWb9i3mcfobGpi+PvQssDkEdOXra34yWS
+7b1CXhWiRdbryURpk5ozHjRY3hSbhC6gbfVF/UjQvKzGl3cm/zlouOyZlj0O
+rXeAQ0jH6rTfOW3abtVX35i+3hsVynintpzKOAytL4A2ke11ZQ+Kb7W8sfFZ
+H4uoUKaNS1lnFXpNTp9zVvJ3A80hjSWbR7raZYMepdcVl821j+krQu9Re/qo
+fu29HrvT45ZvK9jcPuYak7pzP+6Qb2jsvfB7AH1CctZdVx9YxfdVtclKc1Dx
+jwBv+ZU0Nv1HCzY59o6xHwNASdQ2/5zwv4Zs8k7LnMk6JzsNfY0AXUTtKPVv
+ywNtchr6WgD6huZeZjX7nNPQ8gP0GVnPO6hin9HM8wPoO5LN3XncYaPD0HIC
+nCqynl9wpfnbR825kmMFAAAAgE6h8exUx1eIZwEUtYmbY9uFbK69Z+f4zFSe
+4Q6wYegtsv3sxVz911XbbV9zQFXHOGfYJPQdHcMYSzbfzbeDF8mefbY+rPbz
+jHrOtIxfJ/x7jx2upIXnrgG6hNpLan/u2a1lCR8230GZ3+fdC8ahdQEQM5I9
+0zyULE8zlfznLi2P3vetv/2TZ4up/bKHAEAAZHsNkjtiVIBwSPZ8c+obh6Hl
+ATh11BbJ3wBEgrCuBwAAwF6S1yThNmERWhaAUyZ5XXh51/vQMgHAJ9u8V5u8
+Di0LAHyyySe1yfPQsgDAJ5t8pS8JEAfJ65K+JMB+ktfIxJQLYzuN+jPNuab/
+TPT9q5f3uQ2tC4DQmJzLg74/T3huw58Zu7/0jj0knIXWBUBojD3ee8cf2siN
+ql989c4zCa0HgBhI7U3t7jnns8ZzoyYeTss+U188Cq0HgBhQm3B9uS27aCM3
+avqSD9pnZXwSQNG5bUU+cmT7l+a4s6my+L938bC7F5B7BVDUT73lP73Pnos+
+a+Ccr+qj3/4PrQuA0KhNOF926X02MX7sssFznru+pDlP43YP0EU8m7wwxy80
+D7uRG23onNfWBk1/dmG+Q74HThbxxh+1D3lvc6MNn8+NudhxSdenvVYa88sA
+XUNjSTtvx/mvVmJK13/MOe7uDeRgAXKQnHk2ABCONvqSAFAPMy7ZaF8SAKrj
+9S8ZywcIiMmz+FyElg0AAAAAAAAAAAB2839axt6f
+        "], {{0, 205}, {229, 0}}, {0,
+         255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{119.12812500000148`, Automatic},
+      ImageSizeRaw->{229, 205},
+      PlotRange->{{0, 229}, {0, 205}}], " ", "+", " ", 
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJztnb9u/LgRxwdJipT2G2z8BAb8ApvAVYqDcYF7XYC4jZEEMK5TaSCNqwDu
+VDuNezdbpHThFzCwZSrDRcoEm6V3xhpx9YeSKJGSvgQ+d7+VJXE4nOF/ir/5
+459/vPkFEf311/v//PjT3W//8peffv7Dr/Y/fvfz3/70x1/u//HPPe97zMXd
+bgcAAFGwD6uAca/3ZHu2pmhktnwtmFwADAHb+2ZPEiDukz3Pys/Mv1Nmo64/
+hNYTmCf7cLfn3jSHR4hrxfWI+ZEFSKvxtzfxKfO7QsbnUDKC+bIPF6pMNzwO
+GNcJ27jE9VZm7yOkWWRIHO6VsuG2R3wrrtPXaK8Cwfga29bNAO8+Zzv/tPz7
+PEA6V9KWbPHMG8u+ahlXYvUTdX8xCZ3nICz78ML2cObpfca2b1UbzqZzvdFT
+rtu2/s5lhnO9bPUVtxyn1HO3yg+fQ9TzIA724aNvX45tLanxs+/xioDpNHa+
+7fBcwrJ/1tVR7FfiU5XjL6p9G0wXIBz7cEke+nKU99fqfO4zVNmu2pVZx+e1
+P5n/Z5SPdT6ov5k0Xjm8z7lfCeYFHcYszT/u+PeH5Sf3Hd5p7Pvve/5nvSsN
+mE5p7616vsfUeZuS8uSN245OZQqXUZ+o65YH5X25S+va057Tju9csT39J5I6
+Lmtq7wWS66uuCy0HGD3fTb32oX4/SZ3X453Svvy97zrOtNvYVjeUz2WvK+5d
+qzopC63rEvlS+NyyoLwvZ+q10z2ve657vlP6Kbf820sdR4fxQ91X3NDxWPwb
+12mZuvczZJu2IU3wuYVBeV/O1G1mSXav+Tmugwrjcewbac/3nrPvfLKdnqi/
+yXjpMxXHMUy8pn+1Cq3nmnTB5xYG+9qO8nGTzmOXlI8JbC2fcB5XqHnvlt89
++jz6wPpPycO4DpgOXLd9cLvy+98d35Wx/aw9yyjz2ElofQ2g//Vc0wZK8/tM
++nL8uzBn0PJdYjvZAHKaftk2tL4GzIevdnBoOcAoeX2jfYzrusJ6FHIcT+G+
+0yBzARThGL/n9En7Msh6ODBqXsu6Zj0vd8/XbphLh/ckNOB899x9jtMoY6xJ
+aFnAoPn81X8ruf4qfuf4nu2QbT+uQzeh9TVwXug9fRnGVEAVqo5LBoxjEWs1
+2O9kHErWdG4sop77AKPYyVc/buA4BvfrmKB8H5Ttb1vlj2loOUEQ2zgfK/9p
+oDHRqcH+uIE+lolqB61GiGv2fbqOuk9DywJGzffR9qHA5yp1EmyvBhg9v2Vd
+ZTJSfFv43JFO1oR5vcWg2jaDl7GU7+9OQ6c7Nrgswp7XBTByuzKlQN8Jix20
+uZeBGq9MRoxrEzrdMQKfWwaUr/NfDRyP3jM3aFxThA5z6LNfFwe+8rrT9+pa
+vP+E25Pib2hTlutJ2tzr0LKAwfPae7+d67SUit/TeoO/1eoLe4AWgGrPpJ7e
+tyrxMzMm2vh9yCVD+ffcUSbNHDUntPbwLimrd1zHrUKnbwpQvv4U83ILQOV3
+r/KVZvyNkxHyYNb75sFRfn/12329B23I1nrDWOXC4L5W77076P931tsaZdWy
+8DEHC7vxort1aFnAaHl+4qEvJ+1KrIdvrzuUV6A1vvqESwX9OdAWGmnt2FzB
+uCVoC+HbxX31h/k50Boa+Pt8c4fy7/JhbhM4odqXaWhZpggV91xgPAU4Qfk6
+yzS0LFOE/W5L+Vl869AygbjheQfxuyy0PFOEdfhA+brVDeZgQBOE78b50KHs
+OdwR1rACB1R9twoty5ThMeFPHmNBfQcqofzbXlloWaYODXxOEpgPNOL3++YO
+4XuzwAHKv1O7Di3L1FG6xDwCqITw7VifuvT6DQ0wX2An0CUYD5TN3vUJXYJa
+0J/zqku000EjGLf0qkuZL8DcOChFlcs4Y8aPPs06zG1oOUC8qHUoKJf761La
+C0loWUCcYL3lILrMQssC4oNwHr1PXa4p38f6jD4xsCHru+mh5ZkydNjLI/sJ
+8L0GcAQV9zij/9ZPl6jbQCOEM2V86VH6bvjuHqiE8M0qX3qU9QNZaFlA3BC+
+zehLj1sG7UlQCdYjedPjOdoKwAXC+Ra+9JhijRxwAT7nTY9mTvMttBwgfuBz
+3vRofG4TWg4QP6ofkoSWZcrA50AbeF4Oewf66RBtS+CMmsddhZZlqqi1XhhD
+AY0Q9sn50OEV2uigDaqczkLLMlUIe1JBS1QbE2tzu+lP1tBhrSVwhop7UB6w
+5rm1/p7RxgRt4Tm7DdsOzlFrp7sTyvfyJKHlAdOCx1ZSyvexos3kpjftd+vQ
+8oDpwTYkbaYstDxTgHX2iTEV0AfCfsy2+krQxgR9UfXdOrQsUwBrfEBfVJtp
+E1qWKSBtg9BygGlD+V6xdWhZYoewrw54gPKzetCva9bVGuUT8AGPhW9CyxE7
++3BLWD8OPCDrVULLETvQE/CF9FNCyxE7vO55E1oOMH3gc046kr4cvgUGekPY
+F+2iI/k2NsYsQW/YlrLQcsSKWrODOg70BmuaGvUj/paFlgXMA8J+6Cq9rCnf
+A4V9v8ALal1FElqW0PDagCvWiezdMW3uNLRsYB6ocbhNaFkC6yGh4p7eHdf9
+Kea+gU/YrhY7DkeH7+/q+uyBy6FF6gMMy9LHTTj9cg4txiLB4NDMzqjbh1PV
+LnxsuFfKG6MDfJMJDA7NdB/BPpxxum5q7pFz1t/QhgRjocZOrhruTT2xHild
+N5yus5p7NoRz1sHIkPseMF8hHSldj3s+HNI9ijwACDP2ufc9LzV/f17yOC0I
+R4u2ZWl4f3/fXV9ff89l3d3dVd0qIR0oHdd7XlmOe/7/XcW90ofNQusfLI8W
+YyhH4enpqeBnj4+PX7+NH9aEdIA03GkfUz53WXG/azkDwCA4zhUUgvGr09PT
+3c3Nzfe1+/v7r2sfHx/27TqknmW/tOs09sG6vhy+qQCComwwqbmvEEx70vhX
+h5B6lt30216tay8NfbmUsCcXBITUt8BrxhQKwfib8bsOIfUo93VJHWfmwz+q
++nJ8D3wOBIfys0Szinu+g2k7mnttn3t9fd05hNSjzNKPu1DXHh3m5RK+B/Ny
+IChUvx+zEC4uLnZnZ2ff4yVm/ET37WpC6lFe8blr/m387YnruQuqWINCh/Un
+i11fCuJC+Z0ZV1mrvxWC8TXjd+Ze0840PucYUo+ynnLfbcf/P1NjlpVrvvhZ
+nDUwIbgfIXn9rsbO3kPL5il9t5SfS7fh+sBXSEOnj9MoZcsqtCwxEpONq/7C
+E/82ZavMxdauYZ8SdDgT8kF8z2NIQ6dNpW/xe3QrdBONjStZHq3rTy7tmanC
+Yw2+Qho6PSpdKeG8AVsn0dg45evUX0v+JnVw5VjZDCgNMg/O6XcZR0mHkM9q
+Cwnf61IqnsEasKI+orFxyud8vsfIrL9/zKUvV8NRMP5lxi5ljsD4n9HR5eVl
+2e0S0gHyR8Yvb/j3mcqv0jxTz36tdY5Av0GJzcYpHwsr83+Zl30KrbeBKQTj
+Zybdxs90kPXOLy8v9iMSUs95czQvztcf7WsVz2Md2C4+G6fDuM1RvvLfXqv+
+NjMKQeo0s85ZB1nnbPuiCukAeXO0tpIa9s+p+9bo08Vl41T8tsal9bc7VR+X
+rmGfEYVQ5XOmfqP6PT2px7yR7y8cjaWp/sdpwzsW73Ox2bglj15jdCFlqUt5
+OgMKwfiU0Yk9F17V5lQh9Zg3FxXtSrne2P+Az8Vp42TNTXD71sgi84SVa9hn
+RCGIz5m1KDpI27Jm7WXqMV+knrN97qnsesU7EsLay+hsnPNWz8nLGPSda97O
+gEIQnzPzBFKnyXqwhvmC1HPevHCenPHvwnyuw/MZYdxyMjauZJx7X85QCOJz
+pv9m5gakbVLTppSQDpAPUq/tuLx2sg/K9zBh3WW1jqKy8QX15QyFID7nuH9H
+hzSCtEj+pYRvNDTpKBobp3zOYgl9OUMhTN3n6LDe8ut7sqFliZWYbNxq+85m
+XXMDqeaHH374Fx3mCh7tvwn7v23S1Pxz/G/KNuSfaVPKeSCLHjup0VE0Nq7G
+d2wuQsoVQA/3TemmCL+BYPlbElqeGIGNTxc67L3bhpZDybNW/jar8xkAMHB/
+KYtAjivK96h+on6bDnSYP12HlmMK0MBn2tHhmyYp16V16LaR8btVaN3ETGw2
+Tvk6oS0d1qPjW/fVuhpkjwzbxFb50bbB5zJ+Bnnlpt/obJxtyS4716Hlig3R
+jcf36bOHxR5WodM5R2KzccrndewxHWMHD1ymLtoWyPN5AKqdirOHx8m/TjZe
+cv/YfHJ5kdLCzoJXPrL2+K63pZdlJbqJzcZjk2dJPmfSvPPwHslHnD1crp+o
+bHzAdMq6WDv+LaFtKTpKWSed/UTpGecyjp9/Udk4Rda/jBHysA+U89ZL+xS0
+1n00Nk4RjqPGCOXnAXQa7yB87zVk3kVl4xTZfGHMcNtk0/FZ+RYXdD1+vsHG
+Jwr1OA+A3M59BQAoVPuw9R5sfg5rkAFoiarrnOfGCWfDzR4uj03/YaN4Js9r
+9Hj89ZbfrePxuoaJ40nY3nWaUp/xcFxl8ZjxxnMly5b7dk57Q6lkzJMO+wIe
+SuLx+k0F9nc7nsy3/7PNpWXxeLY5se0ymxt9bITtQcajZZxG5JK5CfP/1ENc
+aUU8W3X9oa8eqHhu3GdFPJmHeK6sd0o8b9a1FduxzLM1+p32OSqusdTxbNS1
+N5f3Otim/U47HpPeXj7ONvdMzTbXa33bmLbdUibJS6ODVUXei86zHvHIO8z/
+1yX3nKt86Lzegornox7ZBtuVvucozY7xJCofk4p4UpWv58rvdk35rHzuXr3j
+qFxm3abqvUeyOKanIFuZ/qm4l6FPPPKOrMLmrpRd9rE5bdtH5ZFl25su8XSQ
+y3lvvrLT1n169WytnVm23FoHysYb84mK6xdb+TfbhNOzVKzfTtgX9b6ApMK+
+T6hY3xzZpnW/fm+r+o7ytbyNdbBly63qO/Xsp8uzbeym5FnxpTa23Wg3faC8
+HHWuvymvh9Yd7NM5Pcp3GvWlnpExh02LZ8TvnPOU8vVAW1dfVbp+tuLeWn4l
+a/YyZTP/bfI39U7xnVbf8FL56trX1P1T5/KqY76KHpx0wM/IvGabfBW/a2Pb
+a9aDa/6cdCynnO2NrDK+ZVySpy59H11+OueNladOdqDud84bfu6hLB4qjoto
+H/w3//8fLeMRe8ta3t+q/VJWjjTcn1CH9gvlcy1O7RFlc23LHbHtNjbXybbb
+Qnm9ta2zO84T5zTU6K62HULF8YWkQzxSZtfW+VRsu6Ud45HnK8eJqDi+kHXM
+o0z8oSEeKQc69Z/V85u6sk75ddd4EvV8pS2xbfa1uR0/72LbrdvXXVFpE33f
+shxr/vebkr3zWBoV+9vmnakVz7OKJ+kRj/aHrRVPomy4VVu8Ih4t8wPrUscj
+eu01F6784ZPfK/FIvSrxVPqlYzyp0k3G6RDdPVj51yeexJJZ21xq5V9fm6uz
+7Q05+OVAfndCxfEyjdht7zpXxbMtiUfsaeUpTYnKuyHjuaLi+Lvm2Vdesp08
+V8Rj4ve1f31FxXJJY/SZeI4npM15i8eDLqQs8GKXDvEM9t1h1vnY8awHzqO1
+YjB7oUM9MXY8qwHjGcW2wXSg/FvDo50rD8DSocP39JdyXgQAwaHDOU03oeUA
+YAlQfubuWWhZAFgCxGfLh5YDgD5Qfha34c7Fpulw9vSTdc20+e4HlvWd+3MX
+VDwHu+5srqOzxik/1/A6tP7BctiHUx4HfJW2mth0w3NnbK836toNXxvs/GkV
+76P4D1/7qJKZy5BLu35U8qJfCEaD6wnjY6fqmvG/u4bnjupCfm7Q8XvlJy+u
+cUsZYHy0xOcw3wBGg/3GrqtOuc6oravYV3U77ULqn4FlfmT5ztQ1kbmpbjYy
+v1q/B6uTAbDh+u3dutbYl1M2rn31aYx2Gsv8aF2TPa61/TLdZuZ0ok0JRoP9
+xh5T+O4X8d9Lx+K5TabbaHf8zAf/HmRMQvXlLtU1GQdprF85bU8sb23bGYAh
+YBt85X9fcLvtnW3ySfp4XI98t+fkPv73Hf+We06HsmflX5cq7iN/U/Xwo3VN
+xjdRv4EgUD4esRM/YZv8HsPkaxdsw9f8+6nkudKxjQFkvlNxv1T5D8v4WpKG
+yvkEAGKB23RSH15PoZ7gujd6OQGw4TbZi2pnPlLkY33czoW/gVmA9hkA46HG
+DeFzAAAAAAAAAADADPg/RPwTPA==
+        "], {{0, 171}, {221, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{107.90312499999982`, Automatic},
+      ImageSizeRaw->{221, 171},
+      PlotRange->{{0, 221}, {0, 171}}]}]}], TraditionalForm]], "InlineMath"]
+}], "Text",
+ Deletable->True,
+ CellID->333199624],
+
+Cell[TextData[{
+ "This example uses FeynCalc's library of Feynman rules, and its ability to \
+carry out color algebra.  ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X will be used in the end to supply the analytic expressions."
+}], "Text",
+ CellID->936219383],
+
+Cell[CellGroupData[{
+
+Cell["Construct the Feynman integrals using the Feynman rules", "MathCaption",
+ 
+ CellID->1962314004],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Gluon", " ", "loop"}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"diagram1", "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{"1", "/", "2"}], "*", 
+       RowBox[{"GluonVertex", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"-", "q"}], ",", "\[Nu]", ",", "b"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"k", ",", "\[Alpha]", ",", "e"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"q", "-", "k"}], ",", "\[Beta]", ",", "f"}], "}"}]}], 
+        "]"}], "*", 
+       RowBox[{"GluonPropagator", "[", 
+        RowBox[{"k", ",", 
+         RowBox[{"{", 
+          RowBox[{"\[Rho]", ",", "c"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"\[Alpha]", ",", "e"}], "}"}], ",", 
+         RowBox[{"Gauge", "\[Rule]", "\[Xi]"}]}], "]"}], "*", 
+       RowBox[{"GluonVertex", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"q", ",", "\[Mu]", ",", "a"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"-", "k"}], ",", "\[Rho]", ",", "c"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{"q", "-", "k"}], ")"}]}], ",", "\[Sigma]", ",", "d"}], 
+          "}"}]}], "]"}], "*", 
+       RowBox[{"GluonPropagator", "[", 
+        RowBox[{
+         RowBox[{"q", "-", "k"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"\[Sigma]", ",", "d"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"\[Beta]", ",", "f"}], "}"}], ",", 
+         RowBox[{"Gauge", "\[Rule]", "\[Xi]"}]}], "]"}]}], "//", "Explicit"}],
+      "//", "SUNSimplify"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
+   RowBox[{"(*", 
+    RowBox[{"Ghost", " ", "loop"}], "*)"}], "\[IndentingNewLine]", 
+   RowBox[{"diagram2", "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"-", "1"}], ")"}], "*", 
+       RowBox[{"GluonGhostVertex", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{",", "\[Nu]", ",", "b"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{",", ",", "f"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"-", "k"}], ",", ",", "e"}], "}"}]}], "]"}], 
+       RowBox[{"GhostPropagator", "[", 
+        RowBox[{"k", ",", "c", ",", "e"}], "]"}], 
+       RowBox[{"GluonGhostVertex", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{",", "\[Mu]", ",", "a"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{",", ",", "d"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "q"}], "+", "k"}], ",", ",", "c"}], "}"}]}], "]"}], 
+       RowBox[{"GhostPropagator", "[", 
+        RowBox[{
+         RowBox[{"q", "-", "k"}], ",", "d", ",", "f"}], "]"}]}], "//", 
+      "Explicit"}], "//", "SUNSimplify"}]}], "\[IndentingNewLine]", 
+   "\[IndentingNewLine]", 
+   RowBox[{"(*", 
+    RowBox[{"Tadpole", " ", "loop"}], "*)"}], "\[IndentingNewLine]", 
+   RowBox[{"diagram3", "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       FractionBox["1", "2"], 
+       RowBox[{"GluonVertex", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"q", ",", "\[Mu]", ",", "a"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"-", "q"}], ",", "\[Nu]", ",", "b"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"-", "k"}], ",", "\[Rho]", ",", "c"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"k", ",", "\[Sigma]", ",", "d"}], "}"}]}], "]"}], 
+       RowBox[{"GluonPropagator", "[", 
+        RowBox[{"k", ",", 
+         RowBox[{"{", 
+          RowBox[{"\[Rho]", ",", "c"}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{"\[Sigma]", ",", "d"}], "}"}], ",", 
+         RowBox[{"Gauge", "\[Rule]", "\[Xi]"}]}], "]"}]}], "//", "Explicit"}],
+      "//", "SUNSimplify"}]}]}]}]], "Input",
+ CellLabel->"In[10]:=",
+ CellID->1705098249],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnU3I5MaZx8XuHva44EkIvu11HHRxiA3BmWhu6wQUYh8mifw1JAIflhXZ
+hZ0+hDdohl1k7INuYg+Rk1g40DGkYR1BSBO746zFsoIgcMSQxrQdt+0IojeW
+42hAmemtUn+ppaqWSlK3uvt9fmC7+3V31aN/qVVVqnr++sfr//I1+W84jvvX
+v0f/+toz/y585zvP9B77O/Tmau/fvn39b9GLa+iff0Cfwa9nAAAAAHA0JFEU
+dx3DybBbMX3bNIfj3B+jMEpYPo9IYmhyAAAYSAJHUyQezXN4Pew6mCMlcEy1
+78+aixmNbdufvxzq6mAcEWtTOU7Q3fUfkqmpqqalSurAta3RNCn5fPodFLJu
+9VVJHuY/DwAAQCaeDA2zb8jommIQL09AkfPz83feeWf+OnL1Ve/QUMzY1UTV
+1CWO15zZbIyK6U8KF/NgiPoj018X76iCOkJvI9wvGE7p5xGho4m4ilkw6KnD
+gD3Smty+ffvOnTt7qw4AgF3gGyLHQ39Riffff//s7Ozu3bvpu4nCcdZ4475O
+PTGTwFUFXtIMy7ScdGaBrurFeUowQt2C5OEKQ1tXZO2n3+VEPHkIhwKvTQo3
+mAqfH6KXtszrHu6JBrI42OP8Io7jGzdufPzxx3urEQCA1vEMAfqLKty7d+/x
+xx//6KOP5m9jT+c4PadbLTEjg+cEc3OVIXZRQc5mQenlv5/MQtQpcZzihTNH
+lxXdMlWJFyRjOMmVW/z8bDZFf+N7Rt9UdZuwrrFT0Lzs+vXre64UAIAWgf6i
+Ii+//PLNmzdXb/HNKE7LTQHqiTnscZygDvqGJKn+YpoQaqg3crMl4cUIUTVV
+dPEX9enyr3GUfiYpzhRIn5/2ecEIu1vtRv3Fm2++2U3dAAA0BvqLLEkUBJTd
+RlevXn3rrbdWb11d4NRR7jNEMWPf4tGoPgPHK97yih1PRorAyXp/aA+sgbv8
+M550aG6mOwpGAjdHyU8kiJA+71uybPlVvr0jXn31VZhiAMDx4p3G+kUy1sT0
+Siz2nGn90fNI4aQ+4Xr8ySefXLp0KfuXKZoVFJa2yWIm0TRPkCzDljlOtqez
+PLi/UJ11fzFfjLAsNBXhenZ5j8H6+f1wfn5+//331/hi4Dsjx6fuGwZ2Sbvi
+77kp4cxpDTyYntoqGvyq3jSg7+I/BuKJ403wZlE07O/lh/0UkiiM4o2DDlRO
+sIM4jvJavPHGGw8++GD2L5Grbaxf1BMzctEsQClezxNf4jg7sx49QiWLVjJL
+LPQ/OGFUtmeX9fN747777nvvvffW75Op55ds03J1uTfwPEvkNXf7JwECFRTe
+QrviZ0r737Hr7/q2KDX4ZprshiQjSLIHcViJ8IrtmsJG/aNkastovF7+udCR
+eF4U0eVdXjdMOMIJFAL+Fyf3s+310ksvPfroo7kSBE5c3VaqKWYyUZe3jUR1
+sK4xHOLA1t1FZKDKTG8epFgIrwDr5xtBSxgkrpNcvnwZdb6rr5qikNvxWyjF
+E3kVfSJxVV7d2DO8i9zILcmPnZdWpeSCJhUU3gJd/OaljfuKZHhNy1xCEIQa
+fDNNVsW3d/rNi8oK0q44J0gcBemNmrBJI0SuVMg4oIHPrmjjmh/iezgq3iEb
+OzwnZFebX3jhhWvXruVKmAwUThnWj3ZJjAhdiVeXI57YFHKL3YcKNWGQmhX4
+0EMPvfLKK/PXkaMJZZPByDPEnjW0TVnsOSEuyrPwTUNUBeqhbfogEc0eg4Bl
+1lyS/FhCPpW+WWmscdI0qaIw9RBI4jehUFqo82ILM1+K1LTgc5qUnic5WSqe
+flUoFJUVpCVxTo9kOtDk7OCcE+uspySTAc/xfVpnEU9tyzQtexzEeMRh9QRR
+VmSek6xV/zTq8Uq6lJCMLY7f2Ct769atJ554oliqa6AJb6ONqUkw0gzbHRqK
+NpqfsiNNUve+2bUetITBLVmBjzzyCJqspS9jS5aGZb8IV5N0ZxoFrsJLy/Wc
+QBN77nio6vkr4TLdPu5nTijZGFUZgpQkP5aQT6UvlkZP22eDEidRk0oK0w5h
+Rha/PsXSQkeXG4+iaQ1HCT6rSZXzpCgL9fRjJ19UVpBWxDk1Ii9tMbHvTuIk
+SeJw7Np9kuVRCbGfzixoF4bIlOWBPxkZkqi7sW9wnBLiM0qQrFVd+MSwcFZ1
+0pe4zN8xZ2dnTz31FHNUVYjGdr8/dA9lSZqFUKUkDG7JCrxy5cqLL744W3wr
+n8BSrELjBQeXHGkcvywK323jZCv33Uy6fezaw3GIBwb+AK/42+XDe+qxVCKf
+Sk8sjZK2zwYtTpImlRSmHcKMIn79yAmlxa7IqcXdHkzFUgShBL+hSYXzhCAL
++fSrRaGorCAtiHNqDHuoNSSHWfrEG+giz3OCbPbNnqL/3//g5QO8QQrPTopr
+B2hQIZreclSBpg/ow6IoZG/sR46ISxAEHi8l5CLaYX9xTORl//HzxITBbVmB
+qL8wTXNW3DBAKt//AO8KljVDUwRJH61+84bU8/O/bEK6ffpZ/HvXCIPjisdS
+iWIq/eukVEpi2j7+ujfyAtrVuGKcBE1ICjMcQhwSxa9ItaYk5aXOWhGEEjxV
+E8p5QjJJIJ5+VShoEheKygpCEefigpcPOMlkzQiIB7iX4XTbcQYanp3wWtl9
+xGiYriury9MpieN48d91ayWz+Rot4VSA/oImOyFhcGtW4Lq/SBPkM79PQvne
+QMETvSQMwpIRPzHdfoZv7qF2FwtrQckQ72TjDdsZ9dVtx1INUio9qTTKFcBR
++R75VnVlzUkUFGY7hGll8QsQ5CU3ZYQXCnchCC14miaU84TcsrUgn3J5soJQ
+xLmwjPtoSMhvNb2b6JKUW5KIfROJbSyaFi8N84W8udnmF3o4B8H3LBn9t978
+DvqL6rJvzwpc9Reho3LievGIVP4v+opc4VYShpxubyn42jLKn2HzCabhLeoy
+Sk+hEsip9ySKaftpnJqokbY3MJ/quco2Fd5K8RDi6uLnIMlLa8ppj+OLf28s
+CDV4oia084SlZUuofMplBcmLsz3zF/Haa69977RAR7Q6Ohf32ZJHP6FxDjWe
+FGw0FM6w4JZdc+yhIlRCQ69IsNtGuh0imfS5uvO7Yn9xGk2zao7SU5FRdiqr
+/sLVeD67QNys/GK6vaPjEaHlEgrBySnrutztdZUqw5J6v5G2vyhZSO+icumd
+0FY1zypcchQs7gGlgrDIiwXRF1fRnQsyK5x1s63nSXVZ2tMkK8iGOJgtmb8p
+H3744W9OC3RE67bDLSW6lP4i3aTUszRhM9cmTFeIBvM3E7uXSUab59/lBhWR
+zi+aJl3mVuvtgCv2F6fRNOvmKDkVt8jOxqq/8E0p07JNy8+l20+HeMrfHxOH
+x6nBo77YeZJOTPhtdZX9SFlS6TfT9tOSgzCwe4Iy8MKgZc03FN56FGxuACWC
+MMmLf57G6pK4Y0Fm+bNu+3nCIktrmmQF2RTnwoN/40g42RiHcRJH07Gj97Rl
+p4xngv1gFo16nJTNNUsGeEOVoFmWrvDz1DjcBUSugvPvBHSe5fKVUNuo6aRi
+1OPFuvvTLvz9KIrs7Kz6C7zisL4z0LT8jXXMxFfSMaHj+y7Ccaeb24bwKFVQ
+venUHahNjmUOQyp9IW1/jot3HxcvC0012VS4pUMoh0VevKAjFEeMOxJkltOk
+5DxpUZbKmmQFoYhzgYlHhrKReLHcmISGAeitJMuSUHgCUeiqEpqyCppp9XCv
+jXdc+2jkIZFTmH28x1rSVEns5Xc9VefC9xdk2WtA3R/VsPxsun2atpklt2Qw
+sbXF/5BkgZs/o6o2LKn0+bT9Ba4mkXZwNdWk8v6olt0AGOSlbADYkSCznCYl
+50mbslTVBPZHlZFEwTQI8D6G1e9oOkBt4wY47zIY2/zGPav1rpvAwXtoB+mG
+9iRw0jwOySFtw4tCNDtspPuF7y/Istdg1V+kOxjXKe3Ny2dKt0+iEKf0pgP+
+egsx7LCm7TfWZEPhvVJVXnwnv/oWlDZOwgPXJCsImzi1w2rHqbW7MKL0Z7Uc
+XaSTslUnO7dp4kVJTOejvf58H858c2yAugzVbTSXptFNf3EgTUmVvQ7r/gJd
+P0V+nr/WVvms6fbpnWRuP64LrGn7bWiyVrgTSuUNHb26S1JLJ8lBa5IVhEmc
++tRxaj2eMJLQd52hbdtDZ7L0hJnvshMEdFnt7+in301/cSBNOSPLXo9Mf4E3
+NwpzI7j2ymcjmvo+czL3nmhDk7XCnVAib6QLQmW7ktZOkgPWJCsIozhLWO2w
+VlR1am0Areo9h4Gh5Nm1xX76iw6bcm9k+wt8i1jc62PELx6Hq/DE7omNVo5q
+c6CaZAWpJU49O6wUulPr0pOtOfmqCY5qLIaxh8xe+gvmpjxGNvsLbJ/l+ODC
+uUsOVOHYG3W3lnuImmQFqSdOPTusbU6tGU+2xhCq3nBUKzGMPSpu3rz55JNP
+7rYOxqY8Ur74xS/+6Ec/6joKADhpqtthbXNqLXqyFS2wqkZEcuLKOKqVGMYe
+Gc8///zXv/71nVbB2JTHysMPP/yTn/yk6ygA4JSpboc1X38nOrUWPNmqWWDR
+QiI6cS33DG8J4xj5wQ9+8JWvfGWnVTA15fHy2c9+9vXXX+86CgA4Wdqyw8p5
+sjVzXaNVTXZUO3bQJe7zn//8LmtozdnswPn0pz/9zjvvdB0FAJwmrdhhzcl5
+sm2xwGrgsbbhqHYyRFGELnQ7rICxKY+UncsIABeY1uywFqVlPdm2WmDV91jb
+dFQ7Ib7whS/87ne/21HhrE15pPz85z//5je/2XUUAHCKtG2Htekn08h1jVo1
+xVHtBPj+97//3HPP7ajwVg3fDpdnn332l7/8ZddRAMAp0rodVtaTrZHrGr1q
+iqPaCfDXv/71q1/96l/+8pcdlN2y4dth8sEHH3zjG9/oOgoAAKqS82Rr23WN
+1VHtyHj77bdVVe06iqMkSZIbN2788Y9/7DoQAAAYKHqyteW6xuqodoz84Q9/
+mExOdn1hd/z2t7/9+OOPu44CAIDGHLLrGgAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMBKMvX8couqwHdGjh+15Fi4LC0Z
+u6f1WFMAAICTJTJFwfRLrAhdXe4NPM8Sea2Fx49mSxv3FcnwmpcJAAAApCRR
+tJNheORoQq/sYa+JJ/Iq6lESV+XV6ubqGN82zeGm1WG+tFDnxXqeijESZQnr
+dwmBNSsQAABgb5yfn68eoBw4ptr30YskcDRF4jmO4/U619RobNv+/OVQVwfj
+3DwitmRpWPo4J88Qe9bQNmWx54RMN6Tww68FfWNKUiwtdHS5MMVYKUAmmVqa
+ZvZN/CASXuB5hdGsvRAYqUCSYnvi9u3bd+7c6aRqAAAOnPfff//s7Ozu3buz
+uY35sneIJ0PD7Bsyl3lgKwOxq4mqqUvzhy6NUTH9SeaCHw4FXi8t1tUk3ZlG
+gavwEtsDXYMh6ulyN7sIpeFnlKvTzGeyChAZqaKePl9qpCqjGroUAqMUWFBs
+X6AJzo0bN8BpHACAHPfu3Xv88cc/+uij9N1E4ThrvHE/xDdEjmfuL5LAVQVe
+0gzLtJx0nBw6WvY6vPkc2MWXvIEu8jwnyGiw3VN0Pw41XnBwOBH68oDlia7z
+h1+nl+HQ1hVZG8YzUmmxK3C8s46jqEAuqv/8Z050k/STvFLjwR6FwH76XUqB
+OcX2CZpsXr9+vYuaAQA4XF5++eWbN2/OX8eeXriGzzxDYO8vIgNdX83Nq+nm
+lTlK68pcDJOhisbdvGE7o3766HBeC8KRwHGyZmiKIOkjpqF2elXuJ7PQwI8y
+VbwQP9WUUFrkoEhXURUUIERl67Ks90215v2iYmAOrcB8X7ZXUH/x5ptvdlM3
+AAAHydWrV99666356/SZelpuQFurv5gNexwnqIO+IUnqctNqqGWeNh46Kida
+q3F8PLbQ1dPw5v83xnWqo+lAkazxLAmDkHUJGK8RiKqpomuyqM9vN1FKm/Y4
+3l7OXHIKEKPCryLmgLYERi9wQ7E98+qrr8IUAwCAFZ988smlS5dWb11d4NT8
+hiVifxH7Fh52Z+B4xVte8uLJSBE4NGYe2gNr4C7/jCcdmru4GLsaz2fWfEd4
+GK8tMjHwmgIK5N2+Ituke1Dba8cEeCqRoiyfkxpTSsNR6YseIa8AKapt2SK1
+AtvChmJ75vz8/P777++kagAADpA33njjwQcfXL2dollBYWnbI65fJNE0T7C4
+Fid4oRZdmgu14aufuly09k0pk0+R3r/SF/uU0kE+v22b65baU+ZrBJaFJjlc
+z95+YY50fjWDyCnAGFXLgc1yiu2f++6777333uuqdgAADoqXXnrp0UcfXb3N
+r0EnURBMbTzGVr1pEFbMr45cNIRWihfDxJc4bjXCxysF6/tRIRrXcwKqZeoO
+0mUCQS/P+qaD5wWilcwSC29RFbZd5PEagbCeAm0o0HJUbIHN8ortn8uXL6MR
+RVe1AwBwULzwwgvXrl1bvw8dgRNX90/SJek1uVwGKslEXd5zEdXB+mZMOETT
+Dn958cv1TRNbW3xHkgVuvgW3NpGBDsNM5wXhCK8qy33qckNuTXlTgVajYgxs
+llesFZicVR566KFXXnmlzeoBADhabt269cQTT2T/MhkonDJsXjLOUg5diVeX
+A/LYFDaXbsMhz6nZ4XoShXgKkw6qty8TtAlelehl753lFOgmqjSyvGKNYXVW
+eeSRR9AMtMUAAAA4Xs7Ozp566qncH10DXVVqJBasSYKRZtju0FC0xbbVkSap
+dq7M2BT5Yj5aukzA1fPoqEHo6EULqaICe45qRlasGRRnlS0+JFeuXHnxxReZ
+64nz9jFgdUKjuTJFtXfHPutqUl3r5xucwHOI/UULRGO73x+6Jeu5oaMKRUuo
+aOr7k321SqQLQqknSfrBfUa1EwjOKmXGJqi/ME2TpZLEMVXd6quSPJxWqqKs
+vLEqm+gb435PHRZ3UGz9ahQGwbZFt7yLV4O6ykIhlcyoDMlzrKB2xXDKlCF+
+qV5dZaXSNK9aXaERG3r1FCNsu8BjZlf9RVUiQxSZsrbbZWL3xKZLEkdD0Qul
+1Ngk11+U2GqlCelzPYMB+vkHVarYXmbsmxK+dRYbAlN2f9yX1+tusjEidfR5
+F69iXW1ZeBGPglEZghlaUe0qsVRQhkCurp0qU6wu+5XtsjT16ilALDB7+B36
+vO2frvsLPBNx/K72i8beqKvk6f1T9EIJ1TJjk2x/UWqrhbBlXvdwiQNZrFJF
+aZmeLuECQ5vnNZalo9i1h2OcAZn4A7x1mbDHrODiRaqrHQsvUsmMypDM0Apq
+V6GCMiQKde1OGWJ1C8pkKT+lGaEVmD38znze9k/3/QWwEwpOXB8QvFCoPiRL
+Mv1Fqa2W7sdTNNjjewYqUV+uvGytorTM5/7jCsdJiiLiJEh9VOseEd5WwWmF
+HJaCi9d//5dAqItm4RV4Iy+gXSIqHQWTMiQzNILabFCUqdiyu1NmRj20clle
+r+DVwxKh/uPnyQVmD79Dn7c9A/3FKRIPetiEXrcdZ6DNPa88irPKdmOTVX9R
+sNUiVBFM+7xghIVFSloV5VZdD3z7n0Rj/jNM6q4zjjTUDYjFe855F6+3hyKx
+LoqFl6PyPfLuh4Iy9KOorAzJDI2idnUoypBs3Ih17U4Z2olURZYKXj30CEnH
+Tiswe/id+rztE+gvTo/YN7Hn1eJCgDfl8uovaM4q21n1F3lbLUIVI9+SZWvb
+6kaOUquuy08/q5gMBRbxLAVfoAi7oPMuXsFQo9RFtvDyNFEjLXwWlalxFAUb
+N4LnGKva+fgpyhAN0yh17UoZ2qFVkaUK1AgpZnEUsoffpc/bPin2F6+99tr3
+gMMDtcu8gUotqhyclL7yvPJKPa+2sOovcrZarVTRxKqr3KcLB4kHnZZLKoTB
+xWvDwmtRr8Dz6ehTEHYift7GjcVzrKEyLK2wb2WayFIlQkazuOzhd+nztk+K
+/cWHH374G+DwQO2yaKESi6rQwAsVg/mbid0rdx2hs+ovNm212qmikVVXmU/X
+dIjvJ/TH5CkVk73YhoVXWm8QBnZPUAZeGOxE/JyNG5vnWCNlmFph38o0kqU8
+QlazuOzhd+zztjfgftTJkQzwhklBsyxd4Rt6XmXuR2XNW9qpYodWXYmvpMNO
+x/ddhONON28VMLh4USy8XLzfs3j/YRfKMHqObadEGZZW2LsybclCiZDxDMwe
+ftc+b3sD+osTJHRVCc26Bc20enjIVD/BZL0/atNWq50qdmfVFbkSt8HmvWUW
+Fy+KhZerSaSdRbtQhtFzbDslyrC0wv6VaUkWWoRsZ2D28Hfg83aYQH9xcqx3
+lQQO9jAZNNgZns2/yNhqtVbFwVh10WC18NqVMvukWit0o8yuZal8BmYPv32f
+t4MF+osFyVgT07VBsedMj9j2Y24pzIuSmE76e1vTsUvJ5XfPbbXareIQrLpo
+sFp47VqZfbK9FTpUZg+ylJ6B2cNv3+ftgIH+YkE8cbwJdq3RBa63ZRPdwZOE
+vusMbdseOpOw6QyZ7B/VahUEjteqa9fK7JN2W+G4lDneM3DHXKj+guTYlmdq
+y5xs7yeew4fdbxAAgJPl8PuLUo+76iXlrMkIRmHpamDOpeciA/0FAAArDry/
+qOJxVxWCY9uGUVgyGfAc34fOIgP0FwAArLh169aTTz7ZdRQ0qnjcVS2L5NiW
+MQqL/XRmAfcsN4Dn6wEAsCL//O5DotyPjsXjmmhNtjIKm++I4FOrANGo9pjy
+C8DDDz8Mz+8GAGDOD3/4wy9/+ctdR0Gm1I9uqxtYDpo12UUxCqvHAw88MBod
+824xAADa41e/+tXnPve5rqMgU92PrtxjjWpNdlGMwupx6dKl3//+911HAQDA
+QfDnP//5U5/6VNdRkGHwoyvzWKNbk10Uo7Aa/OlPf/rMZz7TdRQAABwQX/rS
+l3y/lQ2rLdOiHx3VmuzCGIXV4Gc/+9nTTz/ddRQAABwQlmXdunWr6yhItOZH
+R7cmuzBGYTX41re+9etf/7rrKAAAOCDu3r372GOPRdEhrvnu2I/uAhmFsfLu
+u+8+88wzXUcBAMDBMZ1Oz87O7t2713UgBHbnR3ehjMKYiOO41+sd5hACAIDO
+OT8/R0PKrqOoBriB7Zjbt2/fuXOn6ygAAAAAAAAAAAAAANgf/w9QmnlQ
+    "], {{0, 88}, {
+    528, 0}}, {0, 255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{528, 88},
+  PlotRange->{{0, 528}, {0, 88}}]], "Output",
+ ImageSize->{532, 88},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[10]=",
+ CellID->10282454],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     FormBox[
+      SuperscriptBox[
+       FormBox[
+        FormBox["k",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox[
+         FormBox["\[Nu]",
+          TraditionalForm],
+         TraditionalForm],
+        TraditionalForm]],
+      TraditionalForm], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FormBox[
+        SuperscriptBox[
+         FormBox[
+          FormBox["k",
+           TraditionalForm],
+          TraditionalForm], 
+         FormBox[
+          FormBox[
+           FormBox["\[Mu]",
+            TraditionalForm],
+           TraditionalForm],
+          TraditionalForm]],
+        TraditionalForm], "-", 
+       FormBox[
+        SuperscriptBox[
+         FormBox[
+          FormBox["q",
+           TraditionalForm],
+          TraditionalForm], 
+         FormBox[
+          FormBox[
+           FormBox["\[Mu]",
+            TraditionalForm],
+           TraditionalForm],
+          TraditionalForm]],
+        TraditionalForm]}], ")"}]}], 
+    RowBox[{
+     SuperscriptBox[
+      FormBox["k",
+       TraditionalForm], "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        FormBox["q",
+         TraditionalForm], "-", 
+        FormBox["k",
+         TraditionalForm]}], ")"}], "2"]}]]}], TraditionalForm]], "Output",
+ ImageSize->{137, 42},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[11]=",
+ CellID->128621179],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"1", "-", "\[Xi]"}], ")"}], " ", 
+         FormBox[
+          SuperscriptBox[
+           FormBox[
+            FormBox["k",
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Rho]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]],
+          TraditionalForm], " ", 
+         FormBox[
+          SuperscriptBox[
+           FormBox[
+            FormBox["k",
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Sigma]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]],
+          TraditionalForm]}], 
+        SuperscriptBox[
+         FormBox["k",
+          TraditionalForm], "2"]], "-", 
+       FormBox[
+        SuperscriptBox["g", 
+         RowBox[{
+          FormBox[
+           FormBox[
+            FormBox["\[Rho]",
+             TraditionalForm],
+            TraditionalForm],
+           TraditionalForm], 
+          FormBox[
+           FormBox[
+            FormBox["\[Sigma]",
+             TraditionalForm],
+            TraditionalForm],
+           TraditionalForm]}]],
+        TraditionalForm]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        FormBox[
+         SuperscriptBox["g", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             FormBox["\[Mu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Sigma]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]}]],
+         TraditionalForm], " ", 
+        FormBox[
+         SuperscriptBox["g", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             FormBox["\[Nu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Rho]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]}]],
+         TraditionalForm]}], "+", 
+       RowBox[{
+        FormBox[
+         SuperscriptBox["g", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             FormBox["\[Mu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Rho]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]}]],
+         TraditionalForm], " ", 
+        FormBox[
+         SuperscriptBox["g", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             FormBox["\[Nu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Sigma]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]}]],
+         TraditionalForm]}], "-", 
+       RowBox[{"2", " ", 
+        FormBox[
+         SuperscriptBox["g", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             FormBox["\[Mu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Nu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]}]],
+         TraditionalForm], " ", 
+        FormBox[
+         SuperscriptBox["g", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             FormBox["\[Rho]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Sigma]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]}]],
+         TraditionalForm]}]}], ")"}]}], 
+    RowBox[{"2", " ", 
+     SuperscriptBox[
+      FormBox["k",
+       TraditionalForm], "2"]}]]}], TraditionalForm]], "Output",
+ ImageSize->{346, 46},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[12]=",
+ CellID->1367606571]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["TID",
+   BaseStyle->"Link",
+   ButtonData->"paclet:FeynCalc/ref/TID"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to make a covariant decomposition of the tensor integrals:"
+}], "MathCaption",
+ CellID->1376059928],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"decomposed", "=", 
+  RowBox[{"TID", "[", 
+   RowBox[{
+    RowBox[{"diagram1", "+", "diagram2", "+", "diagram3"}], ",", "k"}], 
+   "]"}]}]], "Input",
+ CellLabel->"In[13]:=",
+ CellID->892406933],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnb+vhEqW3/GPwP+G0x2p/oURzjZCWqcEsysN0kRGa0srktWIYCVGDhZH
+ZERERERESE8EI4JBGiFLJMgiwXrCEpZwQEBwXVXdt5tf3fy43Q197/cjzbx3
++0HVqUNx6tSpos5//If/8nfKvxUE4b/+B/p/f/f3/yT+4z/+vfaf/z394z9p
+/+33//Dv6L8I/0YQ/h/9H/v3j+9AW9fN3jIAAAB4AG0ZGapM6PhEzGpvYQAA
+AHydJg8s27UUQRCtem9hAAAAPIrUkgQCww4AAN+HxBJh2AEA4DsBww4AAN8M
+GHYAAPhmJIixAwDAt6Gty7LwdSIIelKUVd3uLRAAAIAvUSem0EE0470lAgAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAwONpUocIAukgEDXpnG7+yy+//BE8DqrP
+/Z42AOBn0NbFkLL7nc+vv/76V/A4qD53e9YAAAAAAAAAAAAAAAAAwC3azJD4
+8q+kRcXe6a0PJQwAALwpTR4lOTWpkSkKWghhAADgQbR1/SIHNfVtO8jGvxe+
+Iij+Fwt5FKuEAQCAF5IbRJCmzsUtI1t3U/ovbRkZqkwEQSBmtaWKgh2s3jmF
+VzV9Wk5g6l42mUaj1CeP6q1jWRDs9GbmjYvA9wrZxISoc8IAAMBOtAG3uaI1
+NIB1bF7MeJMHlu1aCrtuiyErfFqF7idlWWRpbGsi/VO2qQXOaJFuPkqiUQZk
+ZDPb3CMCcW8b0q7Atwr5Aj1RZ4UBAIC9KHxNECRNGXu2uSoITtYLvKRbE9Wd
+aomvd5Z0jiBIrKgqMsazgDKkvrbMP5KtfFNVjKBpUu4e3wkEDQWeKGSFyG3i
+mRIhgqjYrq2pJq35Kuq8MAAAsBPckTaTKrMlYvQMe8MSGJkDG741tXQbaANX
+v7Yl9gs3kjEtNOoXyk2y235UdCQRBDWpuDfOj0cQ2IAwEV0ZCzwuZIXAbBZD
+LD8KXZ2FjohRdkSdFQYAAHai0D8jMKkpEjPp/jduu4yBLdxq2AttEOtuM/X6
+S2VQixx3S2WxcUm3dWqQJbNYVsdI4C2FnGgyh1psKzmJ1LBG6+ENUQEA4EAk
+3JEViCRJ4mlhU1Sci82KTVHQhxv5Jg377FFj53lB3Al+h9RACu45bFJbRDDi
+rkkOxfMaq5ovbs5Q4NuFzAocMnedu+js6piqSQ/LaVEBAOBIVFnoehzfM2Ui
+yIYXXM1bEWjjddJkMsY+d9TYOcB+KbpJVbZ06nz+wKylHnXNPouhOA69S9D8
+paZ9IPC9QmYEZvKIn/MXPhEgYTUtKgAAHJapUIzRC1m3dVkWPnNl9aQoq3q0
+j+Umra/Ru9SYms88izyTzw7Uq9vbsoVIv7gWyBxmyWk/Wkdm04jwnh2tXVWU
+NK8ZCbymkAEV9f0FkTaziD0eYBfN8oaoAABwWBJq2PuLpx9VJArSxYOv2dJk
+Zxv6is3hpSl2b5VMt79SWgWCoKRXY1lbtGKbjzJVyKJFint790nN4kmSXQ8F
+XlXIkNw3zsLKisgWTqMbogIAwJuRe6qgBk+upLHFhy1HPlDgtq7YrIS76J8B
+9keKCgAAexFbiuY98ZP80JB1/5HlP1bg07bGUxjn4aICAADYgbpI0xyfIQEA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYAjve5taZNk2iaysOGQAAAPAl
+2syQ+GG6khYV261vqAqyO3k4ZOspojPOx7eKBwn5Nvy09m7m7RT1dgK/GOjn
+UTR5lFCD3EamKGjDM+Fv0NZV3fRMdakLol82TT3y2guXiPZXn9AWId+Zn9be
+zbydot5O4BcD/TyawlcExZ+/ropkQiSJsKMXL/a6CnmKbn5IcP9ox1Ajircq
+pdIjhPwCbV0fx1F4VHsP1ahn8HaK+mk9eS3Qz0dTlzx7RfUVMeuYJ4xedJoi
+88nr3jnDFUu0obMcTU1EBPF6KGObSAIJOsezU1+/LFedML9RSDqn0xV2wnDm
+anowP7IkDosl0dtMQfDLFUJ9qUX3+XJ7NzeKVV6yZi1r1d6vyK6K2sIhe/K4
+4t0e63vo52m0hWcoQu/89Q05Uj/a3CMCcW+psSl8x7YdPyvpU25jRxMlRVVI
+JysTc8tVn6m0zRyBdDKGUPtPLqlRG7cjrGKFU52m0EnvKHrV9KslQo6lTm2Z
+HXrfWCLxFmXrKA1Ji7NAN5dPAL/Uovs8qL0bGsXK0q+n+svhSHtlZOtuyoQs
+I0OVWfuIuSnT1bRyAlP3sqUN31NRt5vQo858P320wHfY2JbdHuub6OdF1Ak3
+KpIb503btk2Vxb4brD/qtkn54HhraK5tRfHSPLRkyYyb1BIElT6j2BBl51IX
+y2TNl0dbVxY6v58yhlzsfBP7QVax0SH1WBK9iexIPGGr7idlWWRpbGvMvsh2
+OifkBIkpm0n7UfmEGMuGZZYuROgkol3AF1o0U/Cj2ruhUR8py8losqY0uUHf
+sX5SGHa68uf73uSBZbuWIowTOy7ipnIyWqS7ZMF9V0XdbUJHxtiQdNuUeRKZ
+g/bkPR/rW+jnZQQsBZ4crRauTTxTIkQQFdu1NdX8y5/ZKehsHZr5++NUTY2j
+SHZyHrcb6pDzjNxiN5ZeRxIrQRSJIOleV6K+Ye9QBSyD9Sif6Tlh6/WGkhoW
+Ktb/ju8LOW7Xn/7lt1Q9qsrWAogZjidoQz2kTWXJ2vaETStb1NfJ2oeyvL1b
+GkU9IDp8J0xENmQrXnezU67SQTzrvXfpZHLeBdxRThUZU+7isRR1vwnn6stY
+F4lsWI7tRFldH7Qn7/ZYj6afMgmTcr+0bSzEvcDxG9J4bDgQTD+KPJ6Qbn6M
+qwM+LdeD89vdNk1z/ue1+S3/YbBRhlINcrl+Ehpi/9Gfiwm0gZNQ2xL7ZW4+
+2AZs7kcsPwpdnjj1N7//W+l8V9uMR//R9UvH+pt8oUUbhBk9x5n2roSP1FQO
+thjed2yaqZE6oQ7QFgtwVzlNTAvt+y3HU9T88+W52u3l8+h9evJ+j/Vw+ol0
+oq3J2fxYMpcOsCS4KWJuyvI4SNWkNm2ZdbY+LPcc0e9GmZqUPiLNTxOHTqG0
+DVtbEnOib7DFC9qNwrH0hTZI8Npm6oKUr6d5hJWc20X749/87g/q7VFvfP2M
+Hub4Sos2CDN+jvfbu5a2CNhYfgqTSka3H3GHyhj0+60W4L5yKuYTdEbKAypq
+yfPlVk73XEuW9dkAw149ecfHejT9JIZk7JeRM2ZZpeXkhh5i8+RjDy0x2xoq
+fA5YTSJdE4xOwkdevpW0zV1h6D4tYtw3IpM5g048VS8PzZnxtX+VIfOy3Gzm
+eYdsUL60K55r14rrm9QhfGJ4QSDqQO1fbNFa4T9WP8e1jSpNFldnzz0PLGbd
+O6vkrGuNXo1JCzCvuhnlMF/O6PzX4ylq/vk2eaiKgmK6ge85Xjw7Q9irJ+/1
+WA+nH5HHgAQeVh696S8gZsZEmlQE35eiOYY4WPNiUUS2ZOCd/shZHEz8nHOc
+PjgaBFJq+oKf9MDXTPUNU7xB3ygCnT/i6RDWOTR3aVSTqn2rcgM+mzOT8x/M
+9yB351Jrrm/rYkgvAPflFq0V/uPuc1zG/UbxKJ/16TzFem9rREEH+9GCWjIZ
+jJ1V3YxymGb065rF8RQ124SWrRUq/vKZ7m49eZ/Hejz9lFXpa6LqJVU5bNdr
+YA+CSqlYWdW0TV1kkakZfHxhq11u+VGHmiAPjmdpPbaNRjQcx1T5uCSazFbX
+sco+OBJpe/rX11QROnfTQ41IVrJBTrYMd9n92PJHLKhRmsaUKC76EVSfhUPV
+mGo0zyLP5CKq8fybWDG/TNSToog9/dquh11/mwe0aIMwN57jo2hTVrzqlHxX
+DJsaStcPh+vBogk7IajwmV9Em7BqM/+cclq2O6Kzy+h4ipptQh1TkVV/8pyN
+SXbryfs81kPqJzYkY0Ns4mE0ocWNyien7Sh8P4MgK4osTm1VqmJdppMN0bAd
+jY1l0Qdb+xZHQ8CZlO3Slg1dljRvW1N7izL8o4MuZi+WVZpir0Gmu1S/uW+c
+b5IVUeCbph56/U0e0aItwkw9xwdSxU5HcCXoJhiveh+m8V1PV2ZXQzrMKacK
+2KfNHYtyPEXNNaHNL58D0NdzybR+t568y2M9pH5iQx7vbXsxdFwtSjp7qM67
+UQqPKi0u2YeQZeaTYaymuXxGVkbswXl8Q2lbRnw/vBxNzTzqis5Ito9fQ0/g
+abR1xfwK7g8siaOuvf6prBRm+jk+moZORie/PM09VVCDJ9TYq90WB6Mk45CK
+mhOCUsUyWRrJ3Ksn7/VY30U/+1FzpV2+8qTTHLE7WJ5GYSLJEp8dae5pKfm0
+Q6iktl1fEPVYDdvdvSU4v43TJtjlcdS11z+VhcLceI4vJbYUzVv/KdxiQkPW
+/Zvlv5Gi2jI0LD8OLNUIVw0qu/Tk1z/W99LPQWmrNI4C3/eDKP90xE77wUSR
+SJr7nEbnikBedyBDXaRpvmIpe+31T2WhMFPP8WfxRoqqM991g3h5GPly4zv3
+5OVAP89j6sOiB/LY0x0BAADsTps7guT8SM8SAAC+K40ji/DZAQDgW1GFqoqc
+pwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPjRtHWN7ZRLgKI28NZKe2vht/ED
+m7yNpmLHSD715IEzbaYrds1y/2njDFBjWE462aW3mYKw9kSaNY06Xk95laLa
+mh0WuvhE7uMpqsvreldT0s5VPVQVL3w1BhXv9kx3a/JPoHS16wnLxsQJkIVO
+eoc3q6Y/vKjOfH/R2XpNasss8VNjicQrlhiT0pC0OAt0c1Wqx5lGlZGt88MA
+2zIyVJm1r59afTHTyglM3cumDjM+lqIaV7mKrljh+PXeTVFLet24PS/pXU0e
+XE7pl4xgyiYeV/iPPZ/pkJc1+efB054KSlQ27LC8PJs4JY+nONT9hLooWRrb
+3GDK/fSyTWxIum3K8wfdJ6ZsJu1H5ZOlydZrnv7MWXPk+0yj2Amfnz2ZvqSW
+7VrKVNaSJdxUDksK5o6OBz+YoprYDzLmdrapx1TmF0dR1JJeN+YlSstZZjiT
+DYJ0lGYZgrzR0YXHFX7XZzriNU3+iZzy//J8IsOEqJ+cUxxeVVkadJiWrj2h
+LWNdJLJhObYTDUfqNvFMiRBBVGzX1tQ//ctv6bNXVXaCNjHD8eRrcL2ZNpUl
+a+kN2cokTMbZQ2YalauC4PTTZ6eTyR8XcEc5VWQMHKHDKaoLO1df6GeW2U1R
+96/v8FylTcPTvdmfamEuxMgqHlf4XZ/p/p38x1An7LR2RddOMypJc0bjZjvq
+urUtsV8+nxrPJ2tPnt7fBmyqRiw/Cl2ekfA3v/9b6Xxj24ynsKPr58bxSCfa
+6Gz9+43q5fL7ZDJd+wLuKodlQiGdTCiHU1SX0BD7L+mOipq7/nLNk5U2DTfs
+ZnIWLaRl9qQ6tPA7P9O9O/nPoU4sHhvT4qIqYpewxMCDEEGhDVIitpna/4U/
+X91zLVnW087zaTKHlm2dX4GGdp+/+d0f1NsT0vH1RJ+JpCWGZIzSq91vFM+0
+Ygwe/9a+fV85ldHPkXo0RV3/q8Oy65r9tGI7KmpJr3uB0m5QsfTfghqkWcj1
+NnLFjyv8js90907+o6hji2vvbGUiOpUaTKB4GM3sLD6WIcse637O5po8VEVB
+Md3A9xyvl4KVOTPC5yDbxNJcRsLl1zepw8ZykXCfnIgiFVu9Juq926jYFIVR
+D5ns2+daOnRrWaAc5qJf1m0PqKizfkxmp5x4WMJeilpw/TolrL1+vjlNZqkS
+nwxatrb6ldlR+B2f6b6d/MdRRaQzsMbmsJeew2gXLTUp81Fk5/xDy1ZJFH9y
+nxKPPJjJ+Q/mKpC786Q117d1URRlVfqaqHpJVbK/rsG1u40qqN88Coomk2FG
+XkufXghvRjm8RadQ/0EVxbSh85dxIjK5j6IWXb9SCWuvn2tOt1jWufqm8sjC
+7/dM9+zkP5LaYWExgw6zbRkrbFrZmVt9tD4LVKsxVVWeRZ7Jx0T1Og7zeKPq
+TyY0rKh3IIh6UhSxx0Nkonk3RLb2ekZMJ1/RePJ1r1F1bPTCjG1dloXP3ANa
+9fLt3B/zyuFp08/7TI6pqJa/jIIapWlMieKiGzDdRVFLrt+ihC1Ku9WcMstK
+1vwmtKjgpL+V6NDC7/dMd7QGP5UqVi+bURW7r73SvG4GZ1NP0x2sh+T65wWS
+7g1mP7lvnP+brIjC/Aa/tdd/sEcp9zdyLGhUFYmCdI3b8Ez3F3oxwxnmlFMF
+tO7zCv4xFVXHstCjF+jeRVFLrue8QGk3qO2reKKTDLR6bOF3e6a7WoOfS0On
+L2W5cbBrKFUsE308pLZ1xdwAPnzfD6ltu/6+XLcalXuqoAZfK3y+dvr69xcE
+D6uom+ylqIXsp7S2YhP+coWH+2VhHiX8js/0mJ0cTNKWoWH5cWCpRnirm/MQ
+mbB8I9La6zcQW4rmTe48fAyhIet+r3woapKxotZyQKUtZxfh932mb/28fhB1
+5rtuEE9Gjy/XFGmar1imXnv9WwBFPYm3VtpbC7+NH9hkAAAAAAAAAAAAAAAA
+AAAAAL4/jafrOJ4EvAFtZkj8ZAhJi4pla9EbbjkmB2zIAUUCXQpPlN0f/wE7
+ODxNHiU5NSiRKQrashPkNtxyTA7YkAOKBHq0jkScBUklADgCha8Iiv/sWybZ
+Pa3mARtyQJFew2EFvghWBirBmAveAn6KiJ2uiR6uumUqie2r0jHPsV9DjilS
+XTLtflW5L0xbvE7grwtWh0RQ7354BsAe9DMst7lHBOKuseprb7mRxPYp6ZiX
+54/+2LMhhxSpSfXrWU9yOE43fKzc3AsEfopgtUnEAN+8g4PRy7DcpNw5XDP9
+XX/LjSS2j0/H/LEmf/SuDTmiSDwbpsk02uQsXYkxPP3vYLm55wV+jmCjRCEA
+7M0gw/LpyB3Cs5H0z2a/3jHIMPuXP6+95VYS24enY16VP/oIDdlHpFtQZ1YQ
+VJ6drNSpMfN68YYD5ua+L/DTBGPpNpCUDRyJOxmWJ9mQVLfxeFpp048ij5+x
+PJPEdpoN6ZjX5Y/evyG7iXSTOpK4HCIZO8+HzM19T+DnCcZ8eNl94nmJAKzl
+VoblSTZkmG1Sm91yNrjsoOb7SWxvsSEd88ea/NG7N2RHkW7RFgGLWJ9SlkjG
+IMx/wNzc9wV+mmDMsJMVWSoAeC53MixPsjYj7QfLlSx2bkmW3NKT8AvpmB+Y
+P/oFDdlNpJsJi0uW0NNgpiwPLCZ2J3HnIXNz3xP4mYIxw35JPzSfBhqAp3Iv
+w/IkazPSfrDQLltp8k5/5CwBrrjuzPzN6ZgfmT/6BQ3ZTaSbCYvriBZvffri
+sS5cc4IfMzf3HYGfKxj32C8LtStyYQPwBO5lWJ5kQ4bZ1mPbEUXDccxTFtKt
+eXhXp2N+ZP7o5zdkV5FuFJ+y4lWn5JtMLOqwSvbZaB41N/dNgZ8rGBsCphZq
+AdiDuxmWJ9mSVLeKdZlOnkXDdjTmAm3Mw7s6HfND80c/vSG7inS7eKeTslgJ
+Lnlsjpmb+47AzxUMu2LA4biTYXmSlRlmm8sH4WXEdu55rz1V43H5o1/RkAOK
+9JkTfOJDzqPm5r4p8NMEYx67PjXQALALSzIsT7Iww2yd8G3YkizxUIHmPmzD
+xhIemD/6lQ05oEhj3jQ397aK5q6vTCI+5uwIAB7CkgzL0zcuyzDbVmkcBb7v
+B1H+5eNGVvPA/NGvbMgBRRrz1rm5HysYOytGnN9SBgAA4E0oA01QH3DwJgAA
+gGPQujJZd7YSAACAI1P6Ym9TJQAAgLem8bT7JxgBAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAC+EU2iay4+DPnZNJ6u47hcAN6Lti7Levr4VU8RndeeAAyO
+SOGJsot+AL4PbWZIPKGipEXFKte1tFXFTZ/p6GyXrUeoCrI7dX5g4RIR33G/
+FQ/qEuNyHYlgiAffhyaPEmr0WpbRWJvJ6t4lZjnDBDN+5ofQW2Rr66puei9o
+qQuiXzZNPfTaQ40o3vJUreAAbO2us5SBSh5aIABraOv6KT5m4SuCsvTU0Dqx
+WJJMfTqz2JWmLnkS3uprMi+VrYpkQiSWMUK5npNXhSyDhMjTSCidcHqbSAIJ
+7on/LFU/j4NL/EDxVnXXO1xFYsehq0g4Cl5DGdk6T2rTlpGhysw89XKmL6bO
+fP+cHCcwdS/rh1B40k97YVylSRRBituPzJSMW4kB2sIzlF4aUcnaGLW5I1tT
++I5tO35WnsVgPjnLMi8ln3JVoS4Iekb/bCKWyOCapToSidHV5MNU/VHopNty
+UTX9alLtt2gzXbHppZmr6cH8nCJxWLCJ3mYKwsoUPNOiHka8G6zqrlPSTolU
+m0S8O9AD8BhYLq1P29LkgWW7FjWW4hYL2cSGpNumfMqlm9Fi3M+IYpt7RCDL
+o+WJyWyBqqrMNSbaxBnSdcJtuuTGedO2bVNlse8G2Xqp78tW24ripXloyZIZ
+02tjRxMlRVWIIDsXoUKNqD57ndvMocq82nWWEq7z5+NUTb1J2njdT8qyyNLY
+1lhiZNlOB2q/Q5PaskFb1Fgi8Yolgd/SkLQ4C3RzZTDhpqjHEG+Ktd31hrRj
+kVjKUeOpoUUAGLkqCE7Ws5upJQlktbVpy1gXiWxYju1E3GmsIuNsx5qUOz93
+psht4pkSod6uYru2ppr/8/9UJaUqfU1Up1JkBhq1+HK02iYOK0r/733ZGkeR
+7OT8JjapRUebiqWeF2XnMoiU1F/ni2KtKwud3weG/WGq/mDGUqODWmf7XGmQ
+84Tlqva7Dff+u2wm7UflE2JMebgjRTW1RU2y4kxKWyZhUk6b3zuivky8u6zt
+EsulHYtEPXZq2LHrETyXpu9Snkhod1xtbZgrItp9h7mJaUHU9p4S7LJ9BuyF
+jkf3tgGbqxPLj0JXZ2545+2gk4CJF4FFQua9vhGNx4YDwfSjyDNOFf2vGdnq
+QGceph6wyGhDHXKWlFkSu7H0OpJYCaJIBEn3urJWsXFR7+NU/cE0pg1c/dqW
+2C98GD2rvXf9UMP6/2AaPM+IzLAYlj/xRCpL1tIbvnOkkxuHfd8V9VXi3Wai
+qLkuMe5Ft6Qdi8RMvexumVcCsBxuco3BC7nN2vD3V/dcS5b1T2enYnZtzj85
+WUsrOds/Vrk+M5vOXOr8kuBmKDU3ZXk8j6bzZVbRWZ7Gnq2oSWmbND9NHIX+
+8/S6tk3TnP95fWNb/sNgo8wHCyhdNflAVVMvmCnb7NicNlOvvwzVPqFh7V8l
+6Wxa22bomm54Isnk+Dsv6ovEu8WGoiZ60V1p+zDDTszxYAHAI4mp5Rn15Elr
+06QO4W7MBYGol9XDJg9VUVBMN/A9x7ssdi6KKIbMZfp00ZuYenN6OLP6xbdB
+ysmNd4g1ivnYwxU3tnvtWlEyVxF3NfnmtDZ3haEPvIiuJh+lagaPWnd3gZYh
+cx3dc5xnqPaxhv/pX/9ZvT3fWf5EzqKK3LsV+KRlnagvEe+2Jjf0vXEvui9t
+H2bYRRh28GQKarxGi3fJZOC3rYshn0HVli3YKf546wKzMPr9zYqnGI6ZnP9g
+bi2ZTeAVmxIL204Zdr58qTmGSIzB61PxgKd3+iNngV/xs6LTvvSBv83CoafX
+nIfW9Q1bLbp2+zGqPhV1ilpfmt+kKluPdLrjaUftazW85nou6nkpxEuqcq2o
+rxDvtiY39L07vWgJ3GMf9kwAHkzdCQIz2Ifxhc/cGD1hO8OXhSzrmHZ21R/t
+z23ZIpQ/s6WhYh6QSKsrYo8HOUVz1oQyI0lfQsXKqqZt6iKLTM3gnhhbx3TL
+jzrUBHlwPEvrsW00ouE4pkquFdWxyvali9Qw9a+v6Xuuczc91IhkJfN6GJHa
+8mWTzGNUze/0WYxXjamVyrPI4/uH6J8X8zJU+1oNb3kibClkYkozJ+qrxHtc
+UTd60VLYUKJ42MkOnkzV24/Nd3F0NhwvnDO2OV9g5LsP9Y55rAL2Fc+cxcp9
+43yzrIjCaavkLE1oqb0N7HzVkhlSVowii1PbCKtYl0VCRMN2NOaqsYpSvpo1
+GdRJXfoOy4YuS5q3PgzDpewumD5E1YzSFHtNN92+SR2pfa2GNzyR2Jj8jmxO
+1FeJ98iipnrRYrArBryI3FMFNfh6OQ2limVyCVmwdaXZldMTbV0xl5W7mrNB
+zs5dZcF2RFbnRcvCowYtLvk+ycwnw1hNc/kisYyYUfX4Zu+2jPh+eDma2q1X
+V3Tuvv01HHjpj1L1XabVvlbD257IZnYUb2VR071oMUuCkwA8hthSNO9LW7Da
+MjQsPw4s1QhPHT00ZN1fV+ZpV+SaiGXvbm7QPm9mW/7Ernd48pCJJEt8Aq2d
+98afNjGU1Lbrz/hspApIPzj/dVXf577a12r4a09kNTuKt7CoG71oOZVJxMd8
+GAvAC6gz33WD+GvBw7pI0/xZ55C0VRpHge/7QZRXZy/rtHVNFImkuc+xXrki
+kAO9yGs1/NQn8vXqHijewqKmetGaWkJ24sSRj9oB4Hswtf/8geB0R3ChDDRB
+fcCpYgCAfWlzR5AcnMEN+IkT5O5JBQCAd6FxZBE+O/gofVFCyhUAvgtVqKrI
+efrDaTztxmk6AAAAvil3TsgEAADwjtw+IRMAAMBbcvuETADW8csvv/wRAPBa
+6Ht3eQfnT8gEYCW//vrrXwEAr4W+d9eXcO6ETAAAAG/KjRMyAQAAvCs3TsgE
+AAAAAADPpM0MiSdkk7SoWLMetvnGZwBhAADgQpNHSU6NEUuUqa1JuLz5xmcA
+YQAAL6Fm6TQWHpza1vWLXLvUt+1g4jj0wlcE5d6xfptvXFLIo3hfYQAAR6dJ
+9WvCNTkc5VQtI1vnGRDaMjJUmW0PJuamRalCJ738darp03ICU/eyyd0LLOPq
+RJK7OpYFwU7vbHjYeOOlpfcK2cREG99KGADAe5FaEjXUzJw3uUGGOd9ZKpxP
+M97kgWW7ljKV/3QJhU+tue4nZVlkaWxrbDiRbWq7MlqkO86JVgZkZG3a3KMy
+uvdN0KYbuy29VcgX6LXxvYQBALwdPGO1mrDXmrmF/ZzvuSoITtYLvPCBYIth
+L3xNEKTOR94lHUcEiRVVRcZ4FlCGVByZfzNY+aaqGEHTpNyxnAkEbbpx2NKJ
+Qla0tU08UyJEEBXbtTXVpDVf2/hmwgAA3pA6kk4fX1Mzqzhdi92wlJTmwIYn
+lrjJsLeBNnD1a1tiv3DzEtNCB1+TcGPmth+VxeRTk+qcSZPwj8Ul62ZcYsON
+45aOC1nRUhZyIpYfha7OVWuUnTa+lzAAgHekLQIWEzlFvyWjOyPnb70xsCJb
+DXuhDaLEbaZef6kMast6Rzax6YOk2zo1ZZK5JrHGlhtHLd1c+0eTOVSRVnJq
+S8O0pZ92m4zb+AbCAADekNJkcXX2sueBxay77Fym5bEpCvpwC9ykYT+fvNRh
+ePISD7CbcSdsHFLTIrjngENN6zbirjELP1d01XUpvTfdOGzp7UJmWxoyD9k4
+J9xuYmqM9bCcbuM7CAMAeD/qiBoN6zPEGuu9HS9FoI3XSZPJGDs/ealP7+Sl
+c4D9YnOaVO0NIszO6FHX7LPog+PQuwTNX2Hat904aOm9QmZayhoimsn5D+Z7
+k89DwYdtfAthAADvR5sqzBN0Sr4rhoVwO3kk69joBXvbuiwLnzmBelKUVb38
+zLzW1+hdakwNT55FnskDP+rVYWzZEp7f2WnJXE2WtLp1ZLYx8m7ChNpVRUnz
+mi/cOGjpmkIGVNTdFkSqnyL2eExbNMsbbTywMACA96aKnes2dkEJ8s5MvqL+
+vHSZ2tdsUa+zDX3FturSFLu3SqbbXymtAlp1ejUztUUrtrmrWYVswVC5k+S0
+Po1H9Vdu7LV0VSFDct/4/CZAEdlaZXSjjUcWBgDwDWhKOoef+vI091RBDZ5d
+uy3uv5D3wJa2dcWmM9wr/oxpr2vjoYQBAHw/YkvRvCd+zB4asu4/sfzlPLal
+p52Ep8jJhjYeShgAAACMukjT/Chf/hxKGAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAO9DWNb47BwCA70BbRoYqs2PSR0mlAQAAvCNN
+Hli2aynCOGUSAACA9yWdTHsHAADgbZlMVA0AAOB9gWEHAIBvBgw7AAB8MxLE
+2AEA4NvQ1mVZ+DoRBD0pSpb+GAAAwDtTJyzZ8QXRjPeWCAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAE/hl19++SM4APRB7N0XAADfhF9//fWv4ADQB7F3XwAA
+AAAAAAAAAAAAAADwrWkzQyKECETSomJNDuvNNz6DQwkDAAD70uRRklPLGJmi
+oIWvuPEZHEoYAMA3pa2rslx+8m1b1y/yM1PftoNs/HvhK4LiP+PGJYU8ilXC
+AADAYhpXuR5+q1jh2GSXka27Kf2XtowMVSb0OmJWW+oq2OnpnaN2VdOn5QSm
+7mWTuTJKffI83jqWBcFO76TX2HjjpaX3CtnERBvnWwEAANtoYj/IKmrO29TT
+qLX1i57fXsfmxYw3eWDZrkUHAnFT0qLCp+XrflKWRZbGtibSP2WbGtKMFunm
+o/lCGZCR6WtzjwjEvW8PN93YbemtQr5Ar42LWgEAAF+nYqbMiLrOeK4KgpP1
+vPh0aza6wqcDhxRf7ywNWp/EiqoiYzwLKEPqMssJq7zyTVUxgqZJuZc7Ewja
+dOOwpROFrGhrm3imRIggKrZra6pJa762cVkrAADg64SG2De8Hw3LUmQObPjW
+/NFtoA1c/dqW2C/c1sW00KhfKLesbvtR0ZFEENSk4k61ILANJWxAuBkk2XDj
+uKXjQla0lIWciOVHoauzmBMxyk4bF7YCAAC+SOJQj1Uww7L7IzdBxsCkbTXs
+hTYIWbeZev2lMmjt3UGFh7gl3dapXZXMYkVFW24ctXRz7R9N5lBNWsmpLQ3T
+ln7a+jJuIwAAPIvIZF6pE5eD32NTFPThfrxJw96kDuFe6AWBqEk32MAD7Gbc
+iWGH1M4J7jn6UVtEMOKuZQ3F8xqrmq9qzKYbhy29XchsS0PmrhtnVTYx1ax+
+Hi5HbQQAgOdQBDo3sBN7HYtAG6+TJpMx9rYuhpTdEs8B9osBbFI2Q5Cdzx+Y
+0dOjrtlnoRDHYeu5mr/CtG+7cdDSe4XMtJQ1RDST8x9sIkDCarqNAADwFFpu
+YAU1StOYEsVFNwgeG73Ic1uXZeEzj1RPiuX73tmdvkbvUmNqBfMs8ky+7VG9
+eq8tW0/sbshhfq/ktB+tI7ONkeE9c1i7qihpXvOFGwctXVPIgIr6/oJI9VPE
+Hg+wi2Z5o40AAPAU+G7qLr0gcBWJgnSJM9RshbGzDX3FHu/SFLu3SqbbXymt
+AkFQ0qvNqy1asc393ipkcSLFvb2JpGbrm5Jdf+XGXktXFTIk941zK2VFZAun
+0Y02AgDAPuSeKqjBkytpbHH/VcUHtrStKzad4S76Z4D9EG0EAIATsaVo3hO/
+rA8NWfefWP5yHtvS07bGUxjnOG0EAACwnbpI0xyfIQEAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAOCVsDMVVhykAAAAP482MyR+PqKkRcUzd3w/qKJQFWR33WGT
+AADws2jyKKF2so1MUdCG5wPvXVFbV3XTc89LXRD9smlqeO0AADBD4SuC4h+o
+oiqSCZEkwo7tujj4VcgOpRT5yZRrjgUDAIBdaev65RaLnzA5kza6qUt+8nn1
+FfGWVPQJ88nr3uGWFTukXWeJQZqICCIO9AIAHJMysnU3pf/SlpGhyswZHSWV
+XkSd+X56+tfA1L1sqdVrc48IxL1jbNvCM5TeycLSllTaMxU1he/YtuNnJTXc
+bexooqSoCumkAvkINaL6LEtemzlUS7DrAIADwo4f/DTjTR5Ytmspwjhl0hKa
+2JB025RPx49ntBg3XxCHblLuQt85MT3hNl1y47xp27apsth3g/XHJM5UVNuK
+4qV5aMmSGTepJQgqVUtsiLJzqYtlQXVYo1pXFjq/AwDAcchVaqmynq1LJ9Pe
+zdGWsS4S2bAc24myU9oKY8rzbxPPlAgRRMV2bU01//JndrAt263C3PCJtB0B
+y7skR6tHmrUVNY4i2clZ3lM2aiJJYjeWXkcSK0EUiSDpHtx1AMABaVg6pGE8
+YTJR9Rw8y6fd92CbmBbUN8htwHLqEcuPQpfnjCPGMHn2sOCImlbZTteJ89F4
+bDgQTD+KPGNRRR91oDMrrgfnrYxt0zTnf17nHS3/YbBRBgAAjgNPA2EMnOpN
+hp361SzLp+dasqx/Rjsqo59l7+QGW8npl4bVo89sO8xcOqUgwT2jnJuyPAib
+N6nNKjpXzfIWzVTUpBrLWJ0mjkL/WdyXCQAADkxsisLI4k0a9iZ1CI9jXBCI
+etkr0uShKgqK6Qa+53jxJT8qdeONa7Jqnh5a+PScm1i65oy7LSHLSContwPw
+sXlys3vGmO1Uv1aUzFXUslGJ72xvc1cYzjIAAOCdKKhFG62TJpMx9rYuhpTn
+eETL1kkVf+znMsOuR1X3T9FMzn+wyQIJ5zbfxCZLNR3fMOx8a4rmGCIxujHz
+ig5NguKd/sh9NpfoVHT65qgbS6lNcrb8fM1UnwvaAADAcaljoxdjZ8egFD7z
+q/WEbRdfFkmuY2pHVX/0lT3P4+wXl0Iq5keLtOQi9niAXTRnTSgbeugAoFhZ
+1bRNXWSRqRmfDjzbo+KWH3WoCXL3W6HWY9toRMNxTJX0KqpjlX1zJIqq17m+
+pmOMzt30UCOSlSxqNQAAHJOq9/VNzdZSr4jmxB6VCdqcrzryLYl6x2BWAftm
+szM45L5xvk5WROG0K3KWJrTU3gb2z+0oqS3zkhRZHO3PrGJdFgkRDdvR2DTh
+XFFKXXl54nPR1KUjgWzosqRhrwsA4O3JPVVQg6+X01CqWCaXOAZbsjRHX2a2
+dcUmAtyZnw2wd+4qi7Ksyuq6G6Xw6KgR098omU964Zrm8mVqGbGhyvvcTt+W
+Ed8SL0flcDJSV0VRwqgDAL4JsaVo3pe+tWnL0LD8OLBUIzxZzNCQdf9mmTzA
+LswG2G9T81Hj8362r1K8rHie5h1EkiUehtHcy1bJ0/bFktp2Pd5eNwAA/Ajq
+zHfdIF58mG1dpGn+rPNo2iqNo8D3/SDKq6tnftoDKYpE0lyYdQAA+Cbg2yIA
+AAAAAAAAAAAAAAAAAAAAwBdpEl1DJjgAAFhL4+n6IbOttZ4iOkuyZrwLbWZI
+/CQzSYsKjFfgcbxd13o7gd+RwhNl93AGtHCJaH+rR97kUZLTPs3OgdRmjg4G
+YAVv17XeTuC3pHUkcjTfONSI4n3PQ8oLXxEU/+vl7JH/+9AcXCEvEO/tutbb
+CbycHUW6VF0GKjnUuNkmkkCCZd9qtjU7vGXpsZC7d4E65llQlwW/2kxX7Jrl
+/tAux78njirILv1vpiD4a077rSuuqKVfS+2nqKlW32GzQr6bePt1rZXv4P4C
+r2DHx/31quuQCOrij/OfTx2JZJhlaYrGVa5nMCpWOLZEZWTr/OSWtowMVWZH
+uUwkRV1CoZPeOZSq6dNyAlP3sqVLFG3uEYG4C3syP5FAZqe+N5ZIvOtZxKUh
+aXEW6Obysbi2xKvoshWO38DjKOpGq++wQSH3RD2KeHXm+0vzM+7XtebfwYMJ
+zFms2xf2xmdUXZtEXOghv4B6Ki/qFE3sB1nVsHPYPXaIut9vPjv469M6NXlg
+2a6ljI7bXUjhs6xJflKWRZbGtsYMJc+LylJ+uEsCWU3K/ZMVbnBiymbSflQ+
+6aVP5VZacda0os3TtGQOVZvwxH+DhE2HUtSNVt9hg0Lui3oI8ZrYkHTblBec
+Nb1n15p5B48n8Enopbp9XW98StXDjHL7stiwd6gClgMv6jYhpybMyXqdJ51M
+1bSAgiVFkjrbh0qD1iexoqrImHJu28QzJUIEUbFdW1PNv/yZnwBJmI8oWZPH
+zg9u+dO//JYaGlVlR0YSM7zMxSpL1tIbb0+ZhMnofOAuVajTQvu3H0pRt1p9
+63ozbTYq5I6ou4vXlrEuEtmwHNuJhjOdfbrWPBPv4BEFXqPb1/XG51TNMrUZ
+h9n1WA2yLC0gNMT+S/rRTI0O27Jmn1OU9jzY2pbYL6wTsyN8Bz5wG7BJPrH8
+KHR55qb5MbfxNNbPTT+KPJ4c5De//1vJOr0kbbPUt4l0ok2eTdyWke87FvOp
+9P6BycdS1EyrVyv2pkLui7qzeDyloz15BvVuXWuW8Tt4SIHX6PaVvfEpVdc8
+z8+XDkh/IIm5zqqwVQPaDfpJNPgB7MNA/VZ7VWiD7E5tpl5/qdg41OnQTeZQ
+eazk9EvD6hzl7x5wOuDXOhfCMob8ze/+oM6FBcYkhjQ9QDepocgSj7SrdtRL
+v3okRd1v9QbF3lTIjKg7i8cHHd1zLVnWuxGLHbvWfSbfwWMKvFy3L3vcT6ua
+GXayMC3d8+lalSZ1CJ+1XRCImnQeR8RyTwtOPOxRMR0dRo2dtFezVZyCsWYn
+VFWGzJFwz+GLYSArZIPp5wDaxNKCzE1sQ+/1lmTJLRNNEPnklv5THDXh0hQu
++WeXYLyRopZfP6+QGVH3FK/JQ1UUFNMNfM/xemnVd+tadx767XfwgAI/ULcP
+7I1Pq5oZ9qX5Rp9Pz6q0dTHkGqUqAp2/jBNhK5aTerT8l0yGju9W8XEJxl4e
+RJMy70R2Lolbqb3Sr6FFPtczz/mpuT9M5jI3VXzVwzv9kbPqxHXJnngTyqr0
+NVH1kqocNuEKi4f0AqHvo6g1188pZE7U/cRr2Sqz4k9ub9uta9176LffwcMJ
+/EjdPrA3Pq9q7rEbRzHsLGc0WRBjb/nLKKhRmsaUKC66AdNBoL6ty7Lw2Uin
+J8WqPbetzyJ+akyfRp5FnsmHXfXq6/Fsqp3NABXzOERaSxF7PPwlmnMOR+ux
+PWOi4TimSpbdMk1M53rRWHNNFicFa3Idsv0u15SsH++kqA2KvaWQOVF3FK9m
+I6/qT+4+3rNr3Sj+3jt4OIEfqdsH9sbnVc2GAMU7yk72yeW8CfgHDl16mayr
+SBSky3znlJb0wprpSWmK3Vsl0+0/myqgXkB3MTr3jfO1siIKC7arsUJiXaZT
+NdGwHY0NxwtumSI25KltCbXZ2bA9iLG/kaI2KPaGQuZE3VG8Ntc/ZZN0bxBO
+27FrTXP/HTyawA/V7eN64/OqPtaumKEPuZXcUwU1eIBA92h4kutx0KJivi73
+URdECJvLV55lxOyq9/ATHtqmYjPAspoKvL+PolZf/0X2Eq+hVLFM9HERh+ta
+cxxN4Mfp9pG98TlVD4Kfe8M2xE6ofQOxpWjeE3f7hIas+zfL5+EvYTZCeHKS
+iSRL3K/W3AfvWFjCWyhq8/Vf5MXitWVoWH4cWKox8Y3wqiqO0LXOkhxD4Afq
+dvP1Dyxq7vrKJOIrztlYSq4I5EjybKUu0jSf33fbVmkcBb7vB1FeHes0thex
+UFGbr/8iLxavznzXDeK7odG361oHEfiBut18/cuqZmfFiPHr3pN5vvHpjgAA
+8ALKQBPUBxye+UDa3BEk50c6rwAA8HVaVyarDuR5CY0ji/DZAQBgC6UvSofM
+VVSFqoqcpwAAsJbG024cSwMAAAB8fPx/RBoSHQ==
+    "], {{0, 256}, {499, 0}}, {0, 
+    255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{499, 256},
+  PlotRange->{{0, 499}, {0, 256}}]], "Output",
+ ImageSize->{503, 256},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[13]=",
+ CellID->1018512618]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData["PaXEvaluate"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to insert the analytic expressions (Package-X's ",
+ Cell[BoxData[
+  RowBox[{"OneLoop", ".", "m"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " file is loaded at this stage):"
+}], "MathCaption",
+ CellID->456473110],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"PaXEvaluate", "[", 
+  RowBox[{"decomposed", ",", "k", ",", 
+   RowBox[{"PaXImplicitPrefactor", "\[Rule]", 
+    RowBox[{"1", "/", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"2", " ", "Pi"}], ")"}], "^", 
+      RowBox[{"(", 
+       RowBox[{"4", "-", 
+        RowBox[{"2", " ", "Epsilon"}]}], ")"}]}]}]}]}], "]"}]], "Input",
+ CellLabel->"In[14]:=",
+ CellID->1241569844],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", "\[Xi]"}], "-", "13"}], ")"}], " ", 
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     FormBox[
+      SuperscriptBox[
+       FormBox[
+        FormBox["q",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox[
+         FormBox["\[Mu]",
+          TraditionalForm],
+         TraditionalForm],
+        TraditionalForm]],
+      TraditionalForm], " ", 
+     FormBox[
+      SuperscriptBox[
+       FormBox[
+        FormBox["q",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox[
+         FormBox["\[Nu]",
+          TraditionalForm],
+         TraditionalForm],
+        TraditionalForm]],
+      TraditionalForm], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]]}], 
+    RowBox[{"96", " ", 
+     SuperscriptBox["\[Pi]", "2"], " ", 
+     TagBox["\[CurlyEpsilon]",
+      TraditionalForm]}]], "-", 
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", "\[Xi]"}], "-", "13"}], ")"}], " ", 
+     SuperscriptBox[
+      FormBox[
+       FormBox["q",
+        TraditionalForm],
+       TraditionalForm], "2"], " ", 
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]], " ", 
+     FormBox[
+      SuperscriptBox["g", 
+       RowBox[{
+        FormBox[
+         FormBox[
+          FormBox["\[Mu]",
+           TraditionalForm],
+          TraditionalForm],
+         TraditionalForm], 
+        FormBox[
+         FormBox[
+          FormBox["\[Nu]",
+           TraditionalForm],
+          TraditionalForm],
+         TraditionalForm]}]],
+      TraditionalForm]}], 
+    RowBox[{"96", " ", 
+     SuperscriptBox["\[Pi]", "2"], " ", 
+     TagBox["\[CurlyEpsilon]",
+      TraditionalForm]}]], "+", 
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", "\[Xi]"}], "-", "13"}], ")"}], " ", 
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     FormBox[
+      SuperscriptBox[
+       FormBox[
+        FormBox["q",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox[
+         FormBox["\[Mu]",
+          TraditionalForm],
+         TraditionalForm],
+        TraditionalForm]],
+      TraditionalForm], " ", 
+     FormBox[
+      SuperscriptBox[
+       FormBox[
+        FormBox["q",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox[
+         FormBox["\[Nu]",
+          TraditionalForm],
+         TraditionalForm],
+        TraditionalForm]],
+      TraditionalForm], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]], " ", 
+     RowBox[{"log", "(", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Mu]", "2"], 
+        SuperscriptBox[
+         FormBox[
+          FormBox["q",
+           TraditionalForm],
+          TraditionalForm], "2"]]}], ")"}]}], 
+    RowBox[{"96", " ", 
+     SuperscriptBox["\[Pi]", "2"]}]], "-", 
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", "\[Xi]"}], "-", "13"}], ")"}], " ", 
+     SuperscriptBox[
+      FormBox[
+       FormBox["q",
+        TraditionalForm],
+       TraditionalForm], "2"], " ", 
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]], " ", 
+     FormBox[
+      SuperscriptBox["g", 
+       RowBox[{
+        FormBox[
+         FormBox[
+          FormBox["\[Mu]",
+           TraditionalForm],
+          TraditionalForm],
+         TraditionalForm], 
+        FormBox[
+         FormBox[
+          FormBox["\[Nu]",
+           TraditionalForm],
+          TraditionalForm],
+         TraditionalForm]}]],
+      TraditionalForm], " ", 
+     RowBox[{"log", "(", 
+      RowBox[{"-", 
+       FractionBox[
+        SuperscriptBox["\[Mu]", "2"], 
+        SuperscriptBox[
+         FormBox[
+          FormBox["q",
+           TraditionalForm],
+          TraditionalForm], "2"]]}], ")"}]}], 
+    RowBox[{"96", " ", 
+     SuperscriptBox["\[Pi]", "2"]}]], "-", 
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"576", " ", 
+      SuperscriptBox["\[Pi]", "2"]}]], 
+    RowBox[{"\[ImaginaryI]", " ", 
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"9", " ", 
+        SuperscriptBox["\[Xi]", "2"]}], "+", 
+       RowBox[{"18", " ", 
+        TagBox["\[DoubledGamma]",
+         Function[{}, EulerGamma]], " ", "\[Xi]"}], "+", 
+       RowBox[{"18", " ", "\[Xi]"}], "-", 
+       RowBox[{"18", " ", "\[Xi]", " ", 
+        RowBox[{"log", "(", "\[Pi]", ")"}]}], "-", 
+       RowBox[{"\[Xi]", " ", 
+        RowBox[{"log", "(", "68719476736", ")"}]}], "-", 
+       RowBox[{"78", " ", 
+        TagBox["\[DoubledGamma]",
+         Function[{}, EulerGamma]]}], "+", "97", "+", 
+       RowBox[{"78", " ", 
+        RowBox[{"log", "(", "\[Pi]", ")"}]}], "+", 
+       RowBox[{
+       "log", "(", "91343852333181432387730302044767688728495783936", ")"}]}],
+       ")"}], " ", 
+     FormBox[
+      SuperscriptBox[
+       FormBox[
+        FormBox["q",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox[
+         FormBox["\[Mu]",
+          TraditionalForm],
+         TraditionalForm],
+        TraditionalForm]],
+      TraditionalForm], " ", 
+     FormBox[
+      SuperscriptBox[
+       FormBox[
+        FormBox["q",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox[
+         FormBox["\[Nu]",
+          TraditionalForm],
+         TraditionalForm],
+        TraditionalForm]],
+      TraditionalForm], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]]}]}], "+", 
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"576", " ", 
+      SuperscriptBox["\[Pi]", "2"]}]], 
+    RowBox[{"\[ImaginaryI]", " ", 
+     SuperscriptBox[
+      FormBox[
+       FormBox["q",
+        TraditionalForm],
+       TraditionalForm], "2"], " ", 
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"9", " ", 
+        SuperscriptBox["\[Xi]", "2"]}], "+", 
+       RowBox[{"18", " ", 
+        TagBox["\[DoubledGamma]",
+         Function[{}, EulerGamma]], " ", "\[Xi]"}], "+", 
+       RowBox[{"18", " ", "\[Xi]"}], "-", 
+       RowBox[{"18", " ", "\[Xi]", " ", 
+        RowBox[{"log", "(", "\[Pi]", ")"}]}], "-", 
+       RowBox[{"\[Xi]", " ", 
+        RowBox[{"log", "(", "68719476736", ")"}]}], "-", 
+       RowBox[{"78", " ", 
+        TagBox["\[DoubledGamma]",
+         Function[{}, EulerGamma]]}], "+", "97", "+", 
+       RowBox[{"78", " ", 
+        RowBox[{"log", "(", "\[Pi]", ")"}]}], "+", 
+       RowBox[{
+       "log", "(", "91343852333181432387730302044767688728495783936", ")"}]}],
+       ")"}], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]], " ", 
+     FormBox[
+      SuperscriptBox["g", 
+       RowBox[{
+        FormBox[
+         FormBox[
+          FormBox["\[Mu]",
+           TraditionalForm],
+          TraditionalForm],
+         TraditionalForm], 
+        FormBox[
+         FormBox[
+          FormBox["\[Nu]",
+           TraditionalForm],
+          TraditionalForm],
+         TraditionalForm]}]],
+      TraditionalForm]}]}]}], TraditionalForm]], "Output",
+ ImageSize->{580, 241},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[14]=",
+ CellID->447806420]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["Collect2",
+   BaseStyle->"Link",
+   ButtonData->"paclet:FeynCalc/ref/Collect2"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to organize the expression, separating the UV divergent part from the \
+remainder: "
+}], "MathCaption",
+ CellID->913890200],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect2", "[", 
+  RowBox[{"%", ",", "Epsilon", ",", 
+   RowBox[{"Factoring", "\[Rule]", "FullSimplify"}]}], "]"}]], "Input",
+ CellLabel->"In[15]:=",
+ CellID->1704130180],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   FractionBox[
+    RowBox[{"\[ImaginaryI]", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", "\[Xi]"}], "-", "13"}], ")"}], " ", 
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        FormBox[
+         SuperscriptBox[
+          FormBox[
+           FormBox["q",
+            TraditionalForm],
+           TraditionalForm], 
+          FormBox[
+           FormBox[
+            FormBox["\[Mu]",
+             TraditionalForm],
+            TraditionalForm],
+           TraditionalForm]],
+         TraditionalForm], " ", 
+        FormBox[
+         SuperscriptBox[
+          FormBox[
+           FormBox["q",
+            TraditionalForm],
+           TraditionalForm], 
+          FormBox[
+           FormBox[
+            FormBox["\[Nu]",
+             TraditionalForm],
+            TraditionalForm],
+           TraditionalForm]],
+         TraditionalForm]}], "-", 
+       RowBox[{
+        SuperscriptBox[
+         FormBox[
+          FormBox["q",
+           TraditionalForm],
+          TraditionalForm], "2"], " ", 
+        FormBox[
+         SuperscriptBox["g", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             FormBox["\[Mu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Nu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]}]],
+         TraditionalForm]}]}], ")"}]}], 
+    RowBox[{"96", " ", 
+     SuperscriptBox["\[Pi]", "2"], " ", 
+     TagBox["\[CurlyEpsilon]",
+      TraditionalForm]}]], "-", 
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"576", " ", 
+      SuperscriptBox["\[Pi]", "2"]}]], 
+    RowBox[{"\[ImaginaryI]", " ", 
+     SubscriptBox["C", "A"], " ", 
+     SubsuperscriptBox["g", "s", "2"], " ", 
+     SuperscriptBox["\[Delta]", 
+      RowBox[{
+       FormBox[
+        FormBox["a",
+         TraditionalForm],
+        TraditionalForm], 
+       FormBox[
+        FormBox["b",
+         TraditionalForm],
+        TraditionalForm]}]], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        FormBox[
+         SuperscriptBox[
+          FormBox[
+           FormBox["q",
+            TraditionalForm],
+           TraditionalForm], 
+          FormBox[
+           FormBox[
+            FormBox["\[Mu]",
+             TraditionalForm],
+            TraditionalForm],
+           TraditionalForm]],
+         TraditionalForm], " ", 
+        FormBox[
+         SuperscriptBox[
+          FormBox[
+           FormBox["q",
+            TraditionalForm],
+           TraditionalForm], 
+          FormBox[
+           FormBox[
+            FormBox["\[Nu]",
+             TraditionalForm],
+            TraditionalForm],
+           TraditionalForm]],
+         TraditionalForm]}], "-", 
+       RowBox[{
+        SuperscriptBox[
+         FormBox[
+          FormBox["q",
+           TraditionalForm],
+          TraditionalForm], "2"], " ", 
+        FormBox[
+         SuperscriptBox["g", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             FormBox["\[Mu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm], 
+           FormBox[
+            FormBox[
+             FormBox["\[Nu]",
+              TraditionalForm],
+             TraditionalForm],
+            TraditionalForm]}]],
+         TraditionalForm]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"6", " ", 
+        TagBox["\[DoubledGamma]",
+         Function[{}, EulerGamma]], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"3", " ", "\[Xi]"}], "-", "13"}], ")"}]}], "+", 
+       RowBox[{"9", " ", "\[Xi]", " ", 
+        RowBox[{"(", 
+         RowBox[{"\[Xi]", "+", "2", "-", 
+          RowBox[{"4", " ", 
+           RowBox[{"log", "(", "2", ")"}]}]}], ")"}]}], "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"78", "-", 
+          RowBox[{"18", " ", "\[Xi]"}]}], ")"}], " ", 
+        RowBox[{"log", "(", 
+         RowBox[{"-", 
+          FractionBox[
+           RowBox[{"\[Pi]", " ", 
+            SuperscriptBox["\[Mu]", "2"]}], 
+           SuperscriptBox[
+            FormBox[
+             FormBox["q",
+              TraditionalForm],
+             TraditionalForm], "2"]]}], ")"}]}], "+", "97", "+", 
+       RowBox[{"156", " ", 
+        RowBox[{"log", "(", "2", ")"}]}]}], ")"}]}]}]}], 
+  TraditionalForm]], "Output",
+ ImageSize->{459, 94},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[15]=",
+ CellID->6678078]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "TutorialMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "TutorialMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Guides"}], "TutorialMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["FeynCalc",
+ BaseStyle->"Link",
+ ButtonData->"paclet:FeynCalc/guide/FeynCalc"]], "TutorialMoreAbout",
+ CellID->1567025153],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "TutorialMoreAbout",
+ CellID->420996981],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Linking FeynCalc to Package-X - Wolfram Mathematica", 
+  "Linking FeynCalc to Package-X"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "TutorialColor", 
+  "LinkTrails" -> GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 31.897699}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Tutorial", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "FeynCalc is a Mathematica package consisting of a wide array of tools to \
+assist with high energy physics computations. Since the tensor algebraic \
+capabilities of FeynCalc are more comprehensive than those of Package-X, it \
+is expedient to carry out the bulk of your calculations with FeynCalc, and \
+only use Package-X's OneLoop.m file as a library of analytic one-loop \
+integrals. The add-on FeynHelpers to FeynCalc provides this interface. This \
+tutorial illustrates how you can analytically evaluate one loop integrals in \
+FeynCalc using FeynHelpers. After installing FeynCalc 9.2 or later together \
+with FeynHelpers 1.1, initialize them from a fresh kernel: Restart kernel to \
+start a new Mathematica session. Load FeynCalc, together with FeynHelpers:", 
+    "synonyms" -> {}, "title" -> "Linking FeynCalc to Package-X", 
+    "titlemodifier" -> "", "windowtitle" -> "Linking FeynCalc to Package-X", 
+    "type" -> "Tutorial", "uri" -> "X/tutorial/LinkingToFeynCalc"}, 
+  "SearchTextTranslated" -> ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> Notebook], 
+   Cell[
+    StyleData["Output"], CellContext -> Notebook], 
+   Cell[
+    StyleData["TutorialMoreAboutSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["RelatedTutorialsSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["TutorialRelatedLinksSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/Tutorials/LinkingToLoopTools.nb b/packages/X/Documentation/English/Tutorials/LinkingToLoopTools.nb
new file mode 100644
index 0000000000000000000000000000000000000000..5d680f714f8ed4da5a09ede8d73627a6d2d93406
--- /dev/null
+++ b/packages/X/Documentation/English/Tutorials/LinkingToLoopTools.nb
@@ -0,0 +1,1343 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X TUTORIAL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/tutorial/LinkingToLoopTools\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/tutorial/LinkingToLoopTools"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/tutorial/\
+LinkingToLoopTools.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/tutorial/LinkingToLoopTools", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
+     Scaled[0.65], {
+      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
+   "RowsIndexed" -> {}}},
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Linking ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X to LoopTools"
+}], "Title",
+ CellID->509267359],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[GridBox[{
+   {Cell[BoxData[
+     GraphicsBox[RasterBox[CompressedData["
+1:eJxTTMoPSmJmYGAQAmIRIAaxn9y7uGVu+c755fsWlx1cUnpkWemxFSUnVgJR
+8UkYAnKBgkCpQ0tL9y0u3bWwbOu88tuXj04tdSn1EZmcqT4jR21uvurCQpUl
+xSrLSpSXlyIQkAsUXFSoMi9fdVau2pQs9cZIuZoINaAJpV4Cl5f53l3t/Wyj
+59utHp92uH3d5fp9t8uTVTYXZxkDGd92u3ze4fpum/uLTR7313pdXe4zLVt9
+ZnXA21dP22PkllboPFrn9XqLx8cdbt92ufzY4/xrr3OxG3esCfPl2cY/9zgD
+tQPNfLPV48kGz1OznXIdOZ7cv/7hw4fLB+bU+vHeXen6bqv7l50gG4Eaf+9z
+7owSyXbgeLHWGsgGagc65v029+ebPLqixbbMKvoAA8trLYGeer/dHagAqAyo
++M9+JHTQ99fh8G97PIGuOtRv3J0g/wEJPL6yszWM/8Zyn28HQn8eCvlzLObP
+qdQ9E5z7U1X/Xe/8e63zz7XOn1c6v13u7owQvHJoyQdUcGRu5IxslR8Xmn9f
+avpzufHv5ca5Rfr5rpxABpD7+3LTz4vNWzvtFldafMAA71/cnpMjf3R2wM/z
+Vb8vVP25WDk1S63MiwvI+HOh6tf5qqe7c/viRZ/dO4epFwjuHeyanib29lDu
+zzMlv8+WzMhVqw3gub85Acj9fqZkZYXarhnxWDWCrH7zdFOL0e4+228n836c
+zJtXqNoUyntlRRiQe3VFyLx8BaACXHpBgXZu+Yw04Qeb4z4fzeyMFWmP5Lu4
+NOjjkaylRdLntnXh0QgB+2cErKlWebM/dVKadHeswNmFAfsn2q5pMCGoEQje
+PL64plrx/CK/IzM817da3t0Yt7hI8vb5HcToBYKjy/NWlEnf2pgARJtbdLdN
+DiZSIxAAE/m6Jv3NHeYHZvqtrZZ/+xpfEGGCs7unrqxUXFuvvm9pOUkaIeD4
+9ukH1vXiUQAAUWUCvQ==
+       "], {{0, 0}, {20, 18}}, {0, 255},
+       ColorFunction->RGBColor],
+      Background->GrayLevel[0.941176],
+      ImageSize->{20, 18},
+      PlotRange->{{0, 20}, {0, 18}}]]], Cell[TextData[{
+     "As of Sept 2017, the functionality to ",
+     StyleBox["Package",
+      FontSlant->"Italic"],
+     "\[Hyphen]X provided by LoopTools has been superceded by the ",
+     ButtonBox["CollierLink package",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/tutorial/LinkingToCOLLIER"],
+     "."
+    }],
+     FontFamily->FEPrivate`If[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], "Source Sans Pro", 
+       "Verdana"]]}
+  }]], "ObsolescenceNote",
+ CellID->393380227],
+
+Cell[TextData[{
+ "This tutorial explains how to link ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X to ",
+ ButtonBox["LoopTools",
+  BaseStyle->"Hyperlink",
+  ButtonData->{
+    URL["http://www.feynarts.de/looptools/"], None}],
+ " v2.14 or later so that the Passarino-Veltman functions can be numerically \
+evaluated.  This tutorial assumes that you have the LoopTools ",
+ StyleBox["MathLink",
+  FontSlant->"Italic"],
+ " executable on your machine (either by downloading the ready-made \
+executable, or by compiling the source code)."
+}], "Text",
+ CellID->1534169418]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Motivation", "Section",
+ CellID->46111644],
+
+Cell[CellGroupData[{
+
+Cell["Consider the following integral:", "Text",
+ Deletable->True,
+ CellID->1063758129],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   SuperscriptBox["\[Mu]", 
+    RowBox[{"2", "\[Epsilon]"}]], 
+   RowBox[{"\[Integral]", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["k", "2"], "-", 
+       RowBox[{"k", ".", "p"}]}], 
+      RowBox[{
+       RowBox[{"[", 
+        RowBox[{
+         SuperscriptBox["k", "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}], "[", 
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"k", "+", "p"}], ")"}], "2"], "-", 
+        SuperscriptBox["m", "2"]}], "]"}]]}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->104519348],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Needs", "[", "\"\<X`\>\"", "]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f", "[", 
+   RowBox[{"t_", ",", "m_"}], "]"}], "=", 
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"k", ".", "k"}], "-", 
+      RowBox[{"k", ".", "p"}]}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+   RowBox[{
+    RowBox[{"p", ".", "p"}], "\[Rule]", "t"}]}]}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2058623809],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVA", "[", 
+   RowBox[{"0", ",", "m"}], "]"}], "+", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{
+     SuperscriptBox["m", "2"], "+", 
+     FractionBox["t", "2"]}], ")"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", "t", ",", "m", ",", "m"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{248, 29},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->1347617488]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "By default, the Passarino-Veltman functions ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " do not numerically evaluate in ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "Text",
+ CellID->1273781645],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"f", "[", 
+  RowBox[{"5.0", ",", "1.0"}], "]"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->932246974],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"PVA", "[", 
+   RowBox[{"0", ",", "1.`"}], "]"}], "+", 
+  RowBox[{"3.5`", " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "0", ",", "5.`", ",", "1.`", ",", "1.`"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{246, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->463644562]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Instead, these symbols must be converted to analytic expressions by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " before a numerical evaluation can be made:"
+}], "Text",
+ CellID->543471616],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"f", "[", 
+   RowBox[{"t", ",", "m"}], "]"}], "//", 
+  "LoopRefine"}], "\[IndentingNewLine]", 
+ RowBox[{"%", "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"t", "\[Rule]", "5.0"}], ",", 
+    RowBox[{"m", "\[Rule]", "1.0"}]}], "}"}]}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->411565985],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"3", " ", 
+   SuperscriptBox["m", "2"]}], "+", "t", "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"]}], "+", "t"}], ")"}], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{"t", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}], "+", "t"}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{407, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->365259278],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"6.493568706625986`", "\[VeryThinSpace]", "+", 
+    RowBox[{"4.917370311728509`", " ", "\[ImaginaryI]"}]}], ")"}], "+", 
+  RowBox[{"4.5`", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      RowBox[{"1.`", " ", 
+       SuperscriptBox["\[Micro]", "2"]}], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{285, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1404422220]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "For more complicated one-loop integrals (such as those for computing fully \
+differential collision cross sections), analytic expressions generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " are usually too verbose to be useful.  By defining ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to call the corresponding LoopTools functions, we can numerically evaluate \
+loop integrals without needing to generate an analytic expression first."
+}], "Text",
+ CellID->1684638933]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Linking to LoopTools", "Section",
+ CellID->1904287788],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Initialize ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X and LoopTools in the same session:"
+}], "Text",
+ CellID->2106080440],
+
+Cell[BoxData[
+ RowBox[{"<<", "X`"}]], "Input",
+ CellLabel->"In[5]:=",
+ CellID->1674879852],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Install", "[", "\"\<LoopTools\>\"", "]"}]], "Input",
+ CellLabel->"In[6]:=",
+ CellID->469922615],
+
+Cell[BoxData[
+ RowBox[{"LinkObject", "[", 
+  RowBox[{"\<\"/Users/hhpatel/Documents/HEP/LoopTools-2.14/x86_64-Darwin/bin/\
+LoopTools\"\>", ",", "371", ",", "4"}], "]"}]], "Output",
+ ImageSize->{580, 28},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[6]=",
+ CellID->1186034378]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Define ",
+ Cell[BoxData[
+  ButtonBox["PVA",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVA"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["PVC",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVC"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["PVD",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/PVD"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to call the appropriate LoopTools function for numerical arguments (it may \
+be convenient for you to copy the following code block to your working \
+notebook):"
+}], "Text",
+ CellID->299719862],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Unprotect", "[", 
+   RowBox[{"X`PVA", ",", "X`PVB", ",", "X`PVC", ",", "X`PVD"}], "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"SetDelayed", "[", "\n", "  ", 
+      RowBox[{
+       RowBox[{"X`PVA", "[", 
+        RowBox[{
+         RowBox[{"Floor", "[", 
+          RowBox[{
+           RowBox[{"StringCount", "[", 
+            RowBox[{"#", ",", "\"\<0\>\""}], "]"}], "/", "2"}], "]"}], ",", 
+         RowBox[{"m0_", "?", "NumericQ"}]}], "]"}], ",", 
+       RowBox[{"LoopTools`A0i", "[", 
+        RowBox[{
+         RowBox[{"Symbol", "[", "#", "]"}], ",", 
+         SuperscriptBox["m0", "2"]}], "]"}]}], "\n", "]"}], "&"}], " ", "/@", 
+    " ", 
+    RowBox[{"Names", "[", "\"\<LoopTools`aa*\>\"", "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"SetDelayed", "[", "\n", "  ", 
+      RowBox[{
+       RowBox[{"X`PVB", "[", 
+        RowBox[{
+         RowBox[{"Floor", "[", 
+          RowBox[{
+           RowBox[{"StringCount", "[", 
+            RowBox[{"#", ",", "\"\<0\>\""}], "]"}], "/", "2"}], "]"}], ",", 
+         RowBox[{"StringCount", "[", 
+          RowBox[{"#", ",", "\"\<1\>\""}], "]"}], ",", 
+         RowBox[{"p1_", "?", "NumericQ"}], ",", 
+         RowBox[{"m0_", "?", "NumericQ"}], ",", 
+         RowBox[{"m1_", "?", "NumericQ"}]}], "]"}], ",", 
+       RowBox[{"LoopTools`B0i", "[", 
+        RowBox[{
+         RowBox[{"Symbol", "[", "#", "]"}], ",", "p1", ",", 
+         SuperscriptBox["m0", "2"], ",", 
+         SuperscriptBox["m1", "2"]}], "]"}]}], "\n", "]"}], "&"}], " ", "/@", 
+    " ", 
+    RowBox[{"Names", "[", "\"\<LoopTools`bb*\>\"", "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"SetDelayed", "[", "\n", "  ", 
+      RowBox[{
+       RowBox[{"X`PVC", "[", 
+        RowBox[{
+         RowBox[{"Floor", "[", 
+          RowBox[{
+           RowBox[{"StringCount", "[", 
+            RowBox[{"#", ",", "\"\<0\>\""}], "]"}], "/", "2"}], "]"}], ",", 
+         RowBox[{"StringCount", "[", 
+          RowBox[{"#", ",", "\"\<1\>\""}], "]"}], ",", 
+         RowBox[{"StringCount", "[", 
+          RowBox[{"#", ",", "\"\<2\>\""}], "]"}], ",", 
+         RowBox[{"p1_", "?", "NumericQ"}], ",", 
+         RowBox[{"q_", "?", "NumericQ"}], ",", 
+         RowBox[{"p2_", "?", "NumericQ"}], ",", 
+         RowBox[{"m0_", "?", "NumericQ"}], ",", 
+         RowBox[{"m1_", "?", "NumericQ"}], ",", 
+         RowBox[{"m2_", "?", "NumericQ"}]}], "]"}], ",", 
+       RowBox[{"LoopTools`C0i", "[", 
+        RowBox[{
+         RowBox[{"Symbol", "[", "#", "]"}], ",", "p1", ",", "q", ",", "p2", 
+         ",", 
+         SuperscriptBox["m0", "2"], ",", 
+         SuperscriptBox["m1", "2"], ",", 
+         SuperscriptBox["m2", "2"]}], "]"}]}], "\n", "]"}], "&"}], " ", "/@", 
+    " ", 
+    RowBox[{"Names", "[", "\"\<LoopTools`cc*\>\"", "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"SetDelayed", "[", "\n", "  ", 
+     RowBox[{
+      RowBox[{"X`PVD", "[", 
+       RowBox[{
+        RowBox[{"Floor", "[", 
+         RowBox[{
+          RowBox[{"StringCount", "[", 
+           RowBox[{"#", ",", "\"\<0\>\""}], "]"}], "/", "2"}], "]"}], ",", 
+        RowBox[{"StringCount", "[", 
+         RowBox[{"#", ",", "\"\<1\>\""}], "]"}], ",", 
+        RowBox[{"StringCount", "[", 
+         RowBox[{"#", ",", "\"\<2\>\""}], "]"}], ",", 
+        RowBox[{"StringCount", "[", 
+         RowBox[{"#", ",", "\"\<3\>\""}], "]"}], ",", 
+        RowBox[{"s1_", "?", "NumericQ"}], ",", 
+        RowBox[{"s2_", "?", "NumericQ"}], ",", 
+        RowBox[{"s3_", "?", "NumericQ"}], ",", 
+        RowBox[{"s4_", "?", "NumericQ"}], ",", 
+        RowBox[{"s12_", "?", "NumericQ"}], ",", 
+        RowBox[{"s23_", "?", "NumericQ"}], ",", 
+        RowBox[{"m0_", "?", "NumericQ"}], ",", 
+        RowBox[{"m1_", "?", "NumericQ"}], ",", 
+        RowBox[{"m2_", "?", "NumericQ"}], ",", 
+        RowBox[{"m3_", "?", "NumericQ"}]}], "]"}], ",", 
+      RowBox[{"LoopTools`D0i", "[", 
+       RowBox[{
+        RowBox[{"Symbol", "[", "#", "]"}], ",", "s1", ",", "s2", ",", "s3", 
+        ",", "s4", ",", "s12", ",", "s23", ",", 
+        SuperscriptBox["m0", "2"], ",", 
+        SuperscriptBox["m1", "2"], ",", 
+        SuperscriptBox["m2", "2"], ",", 
+        SuperscriptBox["m3", "2"]}], "]"}]}], "\n", "]"}], "&"}], " ", "/@", 
+   " ", 
+   RowBox[{"Names", "[", "\"\<LoopTools`dd*\>\"", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Protect", "[", 
+   RowBox[{"PVA", ",", "PVB", ",", "PVC", ",", "PVD"}], "]"}], ";"}]}], "Code",
+ InitializationCell->False,
+ CellLabel->"In[8]:=",
+ CellID->1077532946]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Example", "Section",
+ CellID->1416061675],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Now the Passarino-Veltman coefficient functions can be evaluated numerically:\
+\
+\>", "Text",
+ CellID->1090943674],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"f", "[", 
+  RowBox[{"5.0", ",", "1.0"}], "]"}]], "Input",
+ CellLabel->"In[14]:=",
+ CellID->1227743364],
+
+Cell[BoxData[
+ RowBox[{"6.493568706625985`", "\[VeryThinSpace]", "+", 
+  RowBox[{"4.917370311728508`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[14]=",
+ CellID->693800058]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Compare with ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X result by applying ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Text",
+ CellID->1405540219],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"f", "[", 
+   RowBox[{"t", ",", "m"}], "]"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"%", "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"t", "\[Rule]", "5.0"}], ",", 
+    RowBox[{"m", "\[Rule]", "1.0"}]}], "}"}]}]}], "Input",
+ CellLabel->"In[15]:=",
+ CellID->1177519657],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"3", " ", 
+   SuperscriptBox["m", "2"]}], "+", "t", "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", " ", 
+      SuperscriptBox["m", "2"]}], "+", "t"}], ")"}], " ", 
+   RowBox[{"DiscB", "[", 
+    RowBox[{"t", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"4", " ", 
+      SuperscriptBox["m", "2"]}], "+", "t"}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       SuperscriptBox["\[Micro]", "2"], 
+       SuperscriptBox["m", "2"]], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{407, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[15]=",
+ CellID->92170967],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"6.493568706625986`", "\[VeryThinSpace]", "+", 
+    RowBox[{"4.917370311728509`", " ", "\[ImaginaryI]"}]}], ")"}], "+", 
+  RowBox[{"4.5`", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["1", "\[Epsilon]"], "+", 
+     RowBox[{"Log", "[", 
+      RowBox[{"1.`", " ", 
+       SuperscriptBox["\[Micro]", "2"]}], "]"}]}], ")"}]}]}]], "Output",
+ ImageSize->{285, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[16]=",
+ CellID->781732882]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "LoopTools regulates UV divergences in dimensional regularization.  The UV \
+divergent Passarino-Veltman coefficients are minimally subtracted (",
+ Cell[BoxData[
+  FractionBox["1", 
+   ButtonBox["\[Epsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " pole removed), with the renormalization scale ",
+ Cell[BoxData[
+  ButtonBox["\[Micro]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Mu"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " set to ",
+ Cell[BoxData["1."], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " by default (controlled by ",
+ Cell[BoxData[
+  RowBox[{"SetMudim", "[", 
+   StyleBox["val", "TI"], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ")."
+}], "Text",
+ CellID->283870635],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"LoopRefine", "[", 
+    RowBox[{"f", "[", 
+     RowBox[{"t", ",", "m"}], "]"}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"t", "\[Rule]", "5.0"}], ",", 
+     RowBox[{"m", "\[Rule]", "1.0"}]}], "}"}]}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"1", "/", "\[Epsilon]"}], "\[Rule]", "0"}], ",", 
+    RowBox[{"\[Micro]", "\[Rule]", "1.0"}]}], "}"}]}]], "Input",
+ CellLabel->"In[17]:=",
+ CellID->664987066],
+
+Cell[BoxData[
+ RowBox[{"6.493568706625986`", "\[VeryThinSpace]", "+", 
+  RowBox[{"4.917370311728509`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[17]=",
+ CellID->466138760]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "Infrared divergent Passarino-Veltman functions are regulated with a small \
+mass, and therefore cannot be directly compared with the output of ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Text",
+ CellID->559800403]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Possible Issues", "Section",
+ CellID->964973456],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Since LoopTools minimally subtracts UV divergences, finite contributions \
+arising from the multiplication of ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with UV-divergent Passarino-Veltman coefficient functions may be missed.  \
+Consider the same integral, this time generated by setting the option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Cancel",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#377984336"], "\[Rule]", 
+   ButtonBox["False",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/False"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Text",
+ CellID->2132200511],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"g", "[", 
+   RowBox[{"t_", ",", "m_"}], "]"}], "=", 
+  RowBox[{
+   RowBox[{"LoopIntegrate", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"k", ".", "k"}], "-", 
+      RowBox[{"k", ".", "p"}]}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"Cancel", "\[Rule]", "False"}]}], "]"}], "/.", 
+   RowBox[{
+    RowBox[{"p", ".", "p"}], "\[Rule]", "t"}]}]}]], "Input",
+ CellLabel->"In[18]:=",
+ CellID->628438579],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"-", "t"}], " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "1", ",", "t", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"t", " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"0", ",", "2", ",", "t", ",", "m", ",", "m"}], "]"}]}], "+", 
+  RowBox[{"\[ScriptD]", " ", 
+   RowBox[{"PVB", "[", 
+    RowBox[{"1", ",", "0", ",", "t", ",", "m", ",", "m"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{412, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[18]=",
+ CellID->983973173]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The third term contains the product ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"4", "-", 
+      RowBox[{"2", "\[Epsilon]"}]}], ")"}], 
+    RowBox[{
+     SubscriptBox["B", "00"], "(", 
+     RowBox[{
+      RowBox[{"s", ";", "m"}], ",", "m"}], ")"}]}], TraditionalForm]], 
+  "InlineMath"],
+ ".  Compare the result of evaluating the Passarino-Veltman functions \
+directly with LoopTools with that of evaluating the analytic expression \
+generated by ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Text",
+ Deletable->True,
+ CellID->62371899],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"g", "[", 
+   RowBox[{"5.0", ",", "1.0"}], "]"}], "/.", 
+  RowBox[{"\[ScriptD]", "\[Rule]", "4"}]}]], "Input",
+ CellLabel->"In[19]:=",
+ CellID->371105791],
+
+Cell[BoxData[
+ RowBox[{"6.660235373292652`", "\[VeryThinSpace]", "+", 
+  RowBox[{"4.917370311728508`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[19]=",
+ CellID->1650626939]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{"g", "[", 
+    RowBox[{"t", ",", "m"}], "]"}], "]"}], "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"t", "\[Rule]", "5.0"}], ",", 
+    RowBox[{"m", "\[Rule]", "1.0"}], ",", 
+    RowBox[{
+     RowBox[{"1", "/", "\[Epsilon]"}], "\[Rule]", "0"}], ",", 
+    RowBox[{"\[Micro]", "\[Rule]", "1.0"}]}], "}"}]}]], "Input",
+ CellLabel->"In[20]:=",
+ CellID->762732544],
+
+Cell[BoxData[
+ RowBox[{"6.493568706625986`", "\[VeryThinSpace]", "+", 
+  RowBox[{"4.917370311728509`", " ", "\[ImaginaryI]"}]}]], "Output",
+ ImageSize->{128, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[20]=",
+ CellID->1300483859]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["The finite contribution missed in the first evaluation:", "Text",
+ CellID->1277925886],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"-", "2"}], "\[Epsilon]", "*", 
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{
+    RowBox[{"PVB", "[", 
+     RowBox[{"1", ",", "0", ",", "t", ",", "m", ",", "m"}], "]"}], ",", 
+    RowBox[{"Part", "\[Rule]", "UVDivergent"}]}], 
+   "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"%", "/.", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"t", "\[Rule]", "5.0"}], ",", 
+    RowBox[{"m", "\[Rule]", "1.0"}]}], "}"}]}]}], "Input",
+ CellLabel->"In[21]:=",
+ CellID->434416216],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "6"], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "6"}], " ", 
+     SuperscriptBox["m", "2"]}], "+", "t"}], ")"}]}]], "Output",
+ ImageSize->{84, 31},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[21]=",
+ CellID->705983701],
+
+Cell[BoxData[
+ RowBox[{"-", "0.16666666666666666`"}]], "Output",
+ ImageSize->{70, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[22]=",
+ CellID->620913032]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "Numerical results generated by evaluating the Passarino-Veltman functions \
+directly are guarenteed to be correct only if the expression is free of ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["\[Epsilon]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Eps"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Text",
+ CellID->283025740]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "TutorialMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "TutorialMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Guides"}], "TutorialMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "TutorialMoreAbout",
+ CellID->1567025153],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Linking Package-X to LoopTools - Wolfram Mathematica", 
+  "Linking Package-X to LoopTools"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "TutorialColor", 
+  "LinkTrails" -> GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 33.595602}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Tutorial", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "This tutorial explains how to link Package-X to LoopTools v2.14 or later \
+so that the Passarino-Veltman functions can be numerically evaluated. This \
+tutorial assumes that you have the LoopTools MathLink executable on your \
+machine (either by downloading the ready-made executable, or by compiling the \
+source code). Consider the following integral: By default, the \
+Passarino-Veltman functions PVA, PVB, PVC and PVD generated by LoopIntegrate \
+do not numerically evaluate in Package-X:", "synonyms" -> {}, "title" -> 
+    "Linking Package-X to LoopTools", "titlemodifier" -> "", "windowtitle" -> 
+    "Linking Package-X to LoopTools", "type" -> "Tutorial", "uri" -> 
+    "X/tutorial/LinkingToLoopTools"}, "SearchTextTranslated" -> ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> Notebook], 
+   Cell[
+    StyleData["Output"], CellContext -> Notebook], 
+   Cell[
+    StyleData["TutorialMoreAboutSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["RelatedTutorialsSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["TutorialRelatedLinksSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/Tutorials/MuToEGamma.nb b/packages/X/Documentation/English/Tutorials/MuToEGamma.nb
new file mode 100644
index 0000000000000000000000000000000000000000..6a5e2ade2f8022ec93139f768042d4691991f0df
--- /dev/null
+++ b/packages/X/Documentation/English/Tutorials/MuToEGamma.nb
@@ -0,0 +1,7175 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X TUTORIAL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Functions \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"LoopIntegrate\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopIntegrate"], "\<\"LoopRefine\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/LoopRefine"], "\<\"Projector\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/Projector"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/tutorial/MuToEGamma\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/tutorial/MuToEGamma"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/tutorial/\
+MuToEGamma.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/tutorial/MuToEGamma", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Extracting Form Factors from the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Mu]", "\[Rule]", 
+    RowBox[{"e", " ", "\[Gamma]"}]}], TraditionalForm]], "InlineMath"],
+ " Amplitude"
+}], "Title",
+ Deletable->True,
+ CellID->509267359],
+
+Cell[CellGroupData[{
+
+Cell["Introduction", "Section",
+ CellID->368143939],
+
+Cell[TextData[{
+ "This tutorial illustrates how to extract form factors from loop integrals \
+that contain an open fermion line.  As a concrete example, we will compute \
+the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Mu]", "\[Rule]", 
+    RowBox[{"e", " ", "\[Gamma]"}]}], TraditionalForm]], "InlineMath"],
+ " decay rate induced by a colored scalar leptoquark at one-loop order in a \
+hypothetical model.  The Feynman digrams are:"
+}], "Text",
+ CellID->1534169418],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[
+  GraphicsBox[
+   TagBox[RasterBox[CompressedData["
+1:eJzs3bFrZMu/IPbTtgM7G/0H8sAw6cD8A7KZyLxArBl44ES77E5qsTaIhQ0U
+KhTGwZtMieExdqDwwSQKNlibCRS+ZECBMQ8MQgaDF4yRT12V7j0q1ek+3eru
+qnPOp+Hz3u9K3brfc9S6VV31re/3P/8X/+0/+/YfNU3z3/2n7f/5Z//87L/4
+1//6n/+b//o/af/hv/w3//2/+hf/cfs//udF09z9Z00Tvvj4+AgAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAjMhi0Zx1fG89hv9dOi4AYDljOAAA
+Y2dOCwAAAACMUWc9s8/70jECAK8ZwwEAGDtzWgAAAABgSuL54u4a56/SMQEA
+qxnDAQAYO3NaAAAAAGDsFovmS7LOeVE6JgBgNWM4AABjZ04LAAAAAIxd5pzx
+19IxAQCrGcMBABg7c1oAAAAAYOxCX4/OGud96XgAgGGM4QAAjJ05LQAAAAAw
+ZotFc5CcMf5ROiYAYDVjOAAAY2dOCwAAAACMXejpkaxznpWOCQBYzRgOAMDY
+mdMCAAAAAGO3WDQXyTrn+9IxAQCrGcMBABg7c1oAAAAAYOwWi+a+s8b5q3Q8
+AMAwxnAAAMbOnBYAAAAAGLPFovmcnDG+KB0TALCaMRwAgLEzpwUAAAAAxm6x
+aM6Sdc4vne99Sb6XVfoaAGCOjOEAAIydOS0AAAAAMHaLRfOjs2Z5v+R5P5P1
+zR/dNVEAYL+M4QAAjJ05LQAAAAAwZotFcxDWNrtrl0uee/G8Ftr6Wjp2AJgz
+YzgAAGNnTgsAAAAAjF1Yr0zODp/1PO9z/P7v8L9Lxw0Ac2cMBwBg7MxpAQAA
+AICx65wdfnaQec7neLb4V+77AMD+GcMBABg7c1oAAAAAYOzi2uXzGuevzPe/
+xDXOn6VjBQD+YgwHAGDszGkBAAAAgDELZ4aTM8YXyfefe4D8KB0rAPAXYzgA
+AGNnTgsAAAAAjN1i0Zwl65xfMt+7KBUfAJBnDAcAYOzMaQEAAACAsQvnhztr
+nPeZr5+VjnFsmkVzWDoGAKbPGL497dj9rnVkDAcA2C9z2u0K89k4r31XOhYA
+AAAAmIuwttlZ5/wR+378fF73DP9cOsYaxbXM49Z567J107qLjkvHB8D0GcPX
+09mLPI3j9030GF3apwQA2C9z2vW1c9ZPcV7bXZO6jXPahzDfLR0jAAAAAMzF
+YtF8Tnp8XLR+J1/7VjrOTXT21k/jmuQqh8nrn+vgnMSfcx3XMx86+/Qp+/YA
+7MVUx/CYI3cZx95Vlo3raX5839j9GL9/VPraAQDmZqpz2qBzZnOVZetWzz/j
+asCa1GN8zmHpawcAAACAOQk9PJI1zeBX8s8/S8e5ibg+uWxNcptu7dsDsE8T
+H8Mv9ziGn5e+XgCAuZr4nPZd87LW8i6FvDy9GAAAAACggMya5o/49Z/J1z+X
+jnUT8ZzwqrPB9u0BGJ0ZjOEnOx7Dw17op9LXCQAwZ1Of0wZ7OFsSauPpxQAA
+AAAABSwWzUGylvm9871vaf+P0vFuKuytN0/16ezbAzAJxvA31wY5LX1tAABz
+N5c5bbCj86F3jV4MAAAAAFDUYtF8TdYyvybfv+98L/zvg9Ixb6p56vlxbd8e
+gCkwhr8pd/6w9DUBADCvOW2w5bMl542adwAAAABQXDg7nKxzHiTfP0u+/610
+zG8V1yffsr55bd8egNKM4Rvlzh+XvgYAAP4y0zntW8+WhPw9vRgAAAAAoBLJ
+OeJfme+/T9Y5f5aOeRuaRfM/tP4/+/YAjNUcx/B2HD5q/a8b7FFeqQ0CAFCf
+Oc5pg3ZuetL6pw3Wpc5Lxw4AAAAA/GWxaD4na5gXPc/7njzvc+Y5X8KaaOlr
+WiaeLw51c+7s2wMwZjMcw0Pe3c2GNe+OSscPAMBrc5vTBjHvbpN1qVDz7rB0
+/AAAAADAS5keHl97npeeNf6efP+g9Tu3/lmDTt7dw4Z9PS5LXwMAdM1oDD/Z
+MO/uOfdOXy4AgErNaE4b1qVON8y7e869cyYUAAAAACq0WDQ/kvXLgzWe+77z
+vYuwZlr6elID8u7+jwFrnCelrwMAUjMYw5fVBXkYkJNnjxIAoHIzmNOuWpcK
+891/XDGvvSp9HQAAAABAXjwbfN9Zt/y14vnpWeOf8evfwhpo6evpGrC+Gfbs
+j+Levtw7AEZl4mP4sj6zd3F8D+P8tdw7AIDxmvKcNlhxnuT2ec1pydqV3DsA
+AAAAqFzo6ZGsW14MeM1F8po/1keXnU/et9jPY2neXee5l0vq6uhXB0CVpjiG
+D8i7O0mef9u3Ryn3DgCgflOc0wYr8u7Sdal3S3LvTktfCwAAAACwXGbN8uvA
+133vvOZ7LWuc66xvdl6T2+eXewdA1aY0hrdj7uGSWnav8u46r1MfBABgxKY0
+pw3ieZK+MyJ961JHPc8/KX09AAAAAMB8rKiXk13f7LxWvzoAKCDW+lhWh7a3
+3kfPPqX6IAAA7F08T7KsjvPRkteeZ+bBvc8HAAAAANimFfVybletV8bXy70D
+gD1r+nvFP8Q9yKXjcXy9+iAAABSz4jxJbx3n5GdcJ3Nh/RgAAAAAgJ2L65vp
++eC11jfjzznu9quTewcAuxXr1vX1ir8cOhbHcft5j/K49HUBADAvK86TDK7L
+3Jkb38q9AwAAAAD2IebM5fbt/6iXs+bPes7huyp9XQAwZStq1oZeXYdr/rxb
+9UEAANi3eJ7k9q3nSeLPeqcfAwAAAACwL3Hf/qZnfXOj2nXx5w0+kwwArG9J
+bZC7Vb3il/zMO7l3AADsy4pes2ufJ4k/8yi+Vu4dAAAAALBTsU5dbt/+xt47
+ANQpjNE9tUHW6skFAAAlxV4MWz1PAgAAAACwDyv27U9KxwcAvBZrg5xnxu+N
+a9YCAMC+xV4M1z3rUuel4wMAAAAAWGbJvv2lfXsAqFPsoXWnNggAAGMW6jUv
+6cVwWDo+AAAAAIA+S2re3dq3B4A6xZp3lz258+el4wMAgCFizbubnpp3x6Xj
+AwAAAABYZknNu/PSsQEAeSty5z+Vjg8AAIYI+XU9Ne+u9WIAAAAAAGpm3x4A
+xknuPAAAYxdrOV+reQcAAAAAjFGzaE57zhafl44NAMhb0pdL7jwAAKPRzl2P
+Wndq3gEAAAAAY7PkbLF9ewCo2JK+XOelYwMAgKF6ajmreQcAAAAAVC/2m82d
+Lb50thgA6hXH6nT8vpM7DwDAWMQzoblazjfWpQAAAACA2sV+s7mzxUelYwMA
+8mK/2dvMGH5ljxIAgLGI/WZztZxPS8cGAAAAALDMkn6zzhYDQMV6+s2Gfz4p
+HRsAAAzV029WLWcAAAAAoHpL+s2el44NAOjXs0d5a48SAICxWHIm9NqZUAAA
+AACgdqE2Tk/NnKPSsQEAeXGP8ka/WQAAxmzJmVD9ZgEAAACA6jWL5lK/WQAY
+l7hHeavfLAAAY9bOX48zZ0L1mwUAAAAAqrekr8dl6dgAgH72KAEAmIJ2/nru
+TCgAAAAAMEbNojlUMwcAxif2jLdHCQDAqLXz1ytnQgGgrMWied86SzxGnzvP
++9K66Hwv+Nn6WvoaAAAASoj96tKaOQ9q5gBA3Xr2KK9Kx0XP76tpDlvmVwAA
+HbEfQ3om9NGZ0HqFOW2Y25aOA4Dtifl0j0v8js87aP1Y8dyz0tcDAACwT7Fm
+Tpp7d6tmzni1j5PWY3TTcdk6j45bR9Fh6ZgBWM+SnvEnpWOj53f2NOY+dMbo
+3Fh93nHUYV4GAExSPBOa68fgzEKl2sdpZk770JnTXnfmtKfdeW3p2AEYJtSw
+y+TUXcTaeL9a38P/js/ty8f7Uvo6AGBb1Id9cS/O4jWl84SD+P375HufS8YL
+sA89/equ5N7t8Xew5To4MccuXQNdx13femnpewXAk576IGGP8qh0bB8/fDhr
+Pa7h/Y5jCe4z/95f8Xt7WQuO4/1bxueu285YfRVy6kv/3gEANtHTjyHMcw9L
+xzYF4QxHPH95vq3zHM3LM59vddO8PDMq5xKgIjHPrrt3/i1+LbuWEurjJc//
+UfoaAOCt1Id9cS++dcf57pwg5uaHnLzPyTXfl44bYNd6+tVdlo5r6pqn/hwn
+cb/8LllzPNzSz8/V1tmGq9L3D2DueuqD3NVWHyTmtv3uybn73trJeaf25x60
+Ljr/rp8hlsxzuvGF/LxvO//dPY39uxifH+xVAgBj085fjzO5dzfOhL7hnv6V
+b3cZz2ykc8aTLf070p+9zXMmfv8AlUjy7+5jfl3vek5SB8h+OwCTM9f6sPFa
+uvXusnmE8frTa5aPD0xaT+7dSem4pijmw4VeG9cD8uLOt/TvPI75fLtYDz0q
+fU8B5mpJfZAq96hCjl0m9+7nDv99X5JadyvruSe5er92WY/vj9/h05zgqvmr
+zsfdlsbn69K/bwCAofr6MZSOa2xW5Nvtct0p/HvP41rX87x2W2dB9V8AqEDc
+Z1+rZk9SE+fZTtdZAGDf5lYfNuYWdq+ht5ZBT37iqGv+AfSJ/erS3Luwj69v
+2bbu8Xr5dl13O44rrI0edZx33DTD1kuvSt9fgLnqyb2rvj5IpvfrTj5rJX1v
+79eprxdq32362q3+jp961D6P08edcfoyGavT8Tl8rer3AQDAs57cO/0Yhty7
+p/niyRr5di/WnfY1Z4xrY8/z2pPOvPaqM6fNxe99AFCJzP55qH93sOI18u8A
+mLw51YfN5N5drHh+rldvkf0WgF2KuXdpv7qH2vrVjc0b8u26e+ZhDbK630Oy
+XlpdfABz0dOb66p0XENketBuvc9rkj83qO5d5mdc1JCDt/Z7Q11aAGBE2jns
+uX4Ma9yvv/LtrprN6ibfxdeGn3FY+nqWXOc7604AdYm99NaqXSP/DoCpm1N9
+2Hit3dy7XwNek+bf/S59HQDbJvduy/fzaf0zV39mnXy7o9LXUfj+nda89gtQ
+i7H35tp1/l2mx+33LcUa/vfSc91TE8fnyzhPOSwdDwAwLZl+DHLv+u7V07xs
+svl2e7h/R537oE40wAYyvfVW5glk6vs8rqqZBwBjMqf6sBvOBdJrXVovD2Bs
+enLvbmvvV1ezNXPvZp9vl9y7y8z90f8YIGMKvbn2kH+X/vyN69YlPWzflMs3
+Ns1Tv9tXfefNXwCAbcjk3j3IvVtyv556LAxZc7qN6yyzzrdL7t1Vco8e4j1y
+fwAGytT2WVnvJr4urZmn5g0AkzKX+rCZ6xyUR5d53dq9igBqJfduB/f0qSdr
+37rng3y7lffvfMkZ7VPnkgGe9OTenZSOa127zL/L9J0dtB685OcdJD8vqPpz
+8LY0Tz2/HpaM0WqHAAAb6cm904+h73491b7rm5c959sdm5v13r+jFWdknQEF
+WCFT22dlbkF8XVon50fpawGAbZpDfdhMD9mVNf6W3J9qrxNgHXLvdnhvn9Y5
+7+J66HXMG7N2POzeHQ44v33lfgJzNpXcu2DH+Xe/kp/95lrmu/iZY5GpUZs7
+Z6B2CAAwmNy7De/b09mIK/l2G9+/2xXzWmdAAZYIeXPJ3vnKXgOZmnlq3gAw
+KXOpDxvi2zAPf6P7A1A7uXfULObgXS05z909l3xSOl6AfZpS7l2wq/y70Gc2
+U6vuzeu6Id8u+Zn3pe/hPjVPdX6vBuTKX6sdAgAsI/eOkmLO4s2A8yXOgAIk
+Yp2btXIEMr31qs4tAIB17aM+bPv4PmBt/q1692h6euUOrX2X1vmbTW0DYNqa
+RXMt947axfPcJ/Hc8apzyefq7QBzEPclJ5F7F+ww/+4sk3+38jx2qZ87NnGM
+Ph84RqsdAgC8EPLs5N5RA2dAAdYTat1tsnfePu/nJjkJADAW+6gPW0H+XVr7
+bnAv+cxr1cEFJiGucz7IvWMs2sdRrKWzak4Q1kyPSscLsCvJGH5SOp632mH+
+XVqnLhh0DmvFz/22i7p6YxZz5W9WjM/PtUMOS8cLANShU9dZ7h3FxfMlp2uc
+AbWWCsxSpnbNlwGv+aL2HQBTN/X6sJnxfHAO3Vvq5gGMQdy/v5Z7x5jEc8mX
+A84l3zqXDExVHMNPSsexDTvMv/uR5slt6ed+yeTfObP9qHYIALC+mIMn946q
+OAMK0C+pY3e/wWsG1QMCgDGZQ33YcE1v6D2b1r77Vfp6ANid9vEprq2FM6zH
+peNh0O/sJObZLT2XXDpOAPrtMP/up/y7MtaoHXJSOlYAgH2JOV138SyC+mkj
+sMYZ0MPSsQLsQ6ZH3sqec5laOdZQAJicOdSHDTlzm+TQ9dS+Mx8AmKC4R3yZ
+9kgrHRdr/Q6P4pnjvnVQ+ZQAlZJ/N21hDF5SO+S2dHwAALsW151yaxby70Yi
+/g6XnQG9LB0jwD6EHnPr7J3HfL1uvZvvpa8BAHZhDvVhk/66Q/PwD+Lr0tdW
+fa0ArC/uCedqs9yUjo2Nfp+H8Qx5ei7ZOihApeTfzUNP7ZCb0nEBAOxSrAmc
+q512Vzo2Nv6d5s6AnpeOC2AfMn3nlu6dJ8//WTp+ANiFudSHzdSwW5lXH54T
+5wPd/LtB+YkAjEPcA+6rxaJe2gTEc8nneoAA1G2H+XffM3lyB1v4ud8yP3cr
+Mc9Bp3bIYelYAAB2pX18ap76zObWnEI+3knpGHnz7/gwzmvVMQRmI+k7t3Tv
+POnDtzIPAQDGai71YdfNv4v3JcwdPq+bnwjAOCw5e/wY10YPS8cIAHOxw/y7
+s0ye3Jtrmu/q5wIAMH7xrMH5kvOe1/K1ABijxaJ5n+yd99azS+reVV/PBwDe
+Yi71YZM8/ODXkud+jjmGB0lOvrkBwATE/hC3S84eq3kHAHu2w/y7r5k8ua9b
++LkXyc+830ZdPQAAxi2sK4W+sj3rTuHrR6VjBIBNZfbOQx+5r5nnPNfz+bkq
+/wAApmAu9WEzeYbB+8zzvsT5wPv4zz/WyU8EoF7x7PHlkrPHl84eA0AZu8q/
+iz/7PvnZF1v4mb+Snzmqz8gAAGxX7EN6vWTd6bx0jADwVpm987PM137Hr9tX
+B2AW5lQfNnOtj8/9ZeP3D+I1dnPvDtL8/dLXAcBm4tnjvl6zt84eA0BZO86/
++5787N566AN/3sEuauoBADBO7eN0ybrTTcjNKx0jAGxDrHe3st8cAMzJ3OrD
+hmvL5OB1hdz8gyXPV88AYGTi2eObJb1mT0vHCABsN/8uvLabY9f+7/eZfLmN
+P9u2rz3bZj4fAADj1D4+xXOdfetOJ6VjBIBtCXkCyd7599IxAUAN5lgfNtbB
++55c40Xu+jI9a7dWfwGA3Qt9PZb0/Lh29hgA6rHl/Lvws86Sr6U5cxufr8rE
+OonPywAADNM+3rUul6w7he+9Kx0nAGxTpraPXgAA8Kg+7ID78yuZQxyUjgmA
+1eIa6F3P+mf4+nHpGBmX0J/4WelYAKZqW/l3nTy7Vzlx7dd+vrVnbPuai+Rn
+nG0SJ28X5nTxvEXwqXQ8AMB8LOk1e2vtgHXF/sXP81p5m0C17J0DwGvqw668
+PwfJ/ZGfCDAScS/W2WO2JnkfXZWOB2CKPn74cP/W/LuQcxdfe9/z/YMkB+9+
+ndp1sa9tN8aL0vdtzjK1jk9KxwQATF/sOZvrNXteOjbGqX3cJO8lZ0uA6mT2
+zn+XjgkAaqA+7Mr78y3tUVs6JgCGyezF3li34i16zrPL5QTYkk7e3Mb5d+3z
+v3Ry+JaeLwvfX7cOnrp39cnM+R7tewMAuxZrlaXrToel42K8kvy75xw8/TuA
+qoRcgmTv/EfpmACgBurDrrw/P+QnAoxTWPMM9U9CnbKwJlo6HsYvsw76nIMn
+rxPgjWK/2LT37GOsU7f0c2qsR3e2SV/ZmK/3K/n3nSXPOcjE92OdmnnsTuwN
+n+v9dlU6NgBg2mINvBM5UmxDJqdTfWegOqFWTbJ37lwiALOnPuyge3QvPxEA
+CEKtu9Z1T38ZOXgAG4h5bWnO3bYM/vwWc/hy+X9dv2K870vfN16Ke9+5HDy1
+agEAGI2Yz5nLwbsqHRtAkNk7V7sGgNlTH3bl/fmc3J9fpWMCAMqLNRWdRwaY
+oEwNvWe/18nnY/9invytWrUAAIzZkrMl186WACUtFs2XZO88+FI6LgAoTX3Y
+lffnLLk/F6VjAgDqsOQ88nnp2AB4myU5eM6sVU6tWgAApiDm4PWdLZGDB+xd
+zL37ncm/+9nSJwCAWVMfduX9+en+AAB92sdxz3nkq9KxAfA2IdeuJwfve+nY
+WE2tWgAAxm5JfWdnS4C9Cbl1mZy7Pt9KxwsA+6Y+7Eb3R+4+APDCkp4gziMD
+jNzHDx/O+urg6UVbP7VqAQCYgp6zJWEt6rh0bAAAMGfqwy69N98yfWef6TUE
+ALyy5DzyrfPIAOP28cOHzz39aH+31EivnFq1AABMQThDor4zAADUQX3Ypffm
+2xr35g+lYwYA6hFz8K71BAGYpo8fPnwJvWd78vDO1MOrl1q1AABMwZL6zlel
+YwMAAOalWTSHrZvWScs6OwCwVT09QZxHBpiQUPcu5twF90k+3k/5ePVRqxYA
+gClYcrbk2tkSYGrCvn7pGACAfjH/7rH10LpqWWsHALZmyXnky9KxAcBcqVUL
+AMAUxBy8vrMlcvCAyWgWzXncz7+UiwcA9Yk18B4Tt2riAdQnrifdROel44Gh
+2sdxz3nko9KxAbxVmsdUOh5YR0+t2pvScQEA+5fkMd2UjgeGWlLf+bx0bADb
+EvbtW3ed/fw/etyVjgsA+EvMl09z8NTEA6hIpp/CTemYYB09PUHOS8cF8BY9
++zyHpeOCdWRq1d6WjgkA2K/MZ/a70jHBujJnS/ReACalWTTHPfv5auIBQAUy
++fI5auIBFNKzt39TOi5YV+a9fF46JoC36Kkd5vwSoxNr1d4911ouHQ8AsD89
+604PpeOCTYS1ps68Vv4dMDnNorm2nw8A9erJl1cTD6CwJf0TjkvHBgBzFvZy
+MuOz/R0AAEbFuhMAjEeocxf36+3nA0ClVuTL54Saeady6AF2p6euzknpuABg
+zjL9OoOr0nEBAMA6rDsBwPg0i+Z8jf3855p4cvEAYE8G5sv3uYm95Y/1lwfY
+jp66Olel4wKAOYt9OtPxOdQMcS4JAIDRsO4EAOMV6+Ssu5//EPf0Q/7ekRo7
+ALA7a+bLrxq/r5/H79LXBTA26uoAQH3ax6fWQzI+38m9AwBgTHrWna5LxwUA
++xJrwt2M2O2W9vTDz7lq1MgDYE0VjIVj8P9sabzOjd+Xcfw+LP1eAKhV+zhS
+VwcA6hLG4UzuXfhna5MAAIyGdScA2GpNmim6ifcn9L0zPwAgq4Lxir+8qJFn
+/AZQVwcAahRz724z+5Ry7wAAGA3rTgDwpJF/t8qfdXVK/64AqFMFYxWvPefQ
+H5V+fwCUFPf279TVAYC6hF5cmdy7k9JxAQDAUNadAOAvjfy7rrumUzOn9O8G
+gHGoYPyauzB+hx7yp40e8gB/WlJX56h0bAAwZ+3jKjM+n5eOCwAAhrLuBAAv
+NU+92c5H7B/fsF8fauOE2nahv+xh6d8FAONUwVhYu6s3jNV94/d5oz88wFI9
+e/snpeMCgDkLY3FmfL4qHRcAAKzDuhMATEfzlDu4zn59qG0XauMclY4dAOYg
+5Mc1T/XpNs21u435eyeN2nYAg7WPy8wa6GXpuABgztrHcWZ8vi0dFwAArMO6
+EwBMxxr7+Xcx5059HADYs2azPvfXatsBbE5dHQCoT/v41HpIc+9C367SsQEA
+wFDWnQBgWgbs51+pcwcA5bTj8OEaOXd3cWw/LB03wJi1j6NcXR17+/BS+zgM
+uTCl4wDmIYzDmdy7B/8dgtfax6m/DQCok3UnGCauO4Vc1cPSsQAss2Q/X607
+AKhEOx7fDK11VzpWgKloHzfJGuidNVB4LZzN7+S/mIsAO9WzTym/CBLJ34p5
+LABUpn2cW3eC1ZK/levS8QD0yeznq3UHABWJ/WPVugPYs05Okbo6sETcI+j+
+rdgvAHYmk393UjomqFFmT/+8dEzUYbFo3rfOEo/R587zvrQuOt8Lfra+lr6G
+Ld6Ls3hN3WsM13wQv3+ffO9zyXjZyu/c+59qJGO1dSfokTkjfVQ6JoBUZz9f
+rTsAqFAYm+M4rdYdwJ7FvgZhfefSGij0S/LvgqvSMQHTFfvPnkc+E0GPOJdV
+K5I/xXyixyV+x+cdtH6seO5Z6et547341rmWcK1fOt/7HvOsPifXfF86bt70
+O/f+pzphXO7Ma43R0CM5I61WJFClmH93VDoOACAv1rZT6w4AqFZPL8ij0nFB
+Sr0TYG4ytUJuSsdEHcKYlskpuohj5a+Yg/Y+PrcvH+lLyWvY8LoPknp32Tyq
+eP3pNf8oHT9bex/M8v0PMFbxDNaD2s67Y73kxb1QHxkAYGJCnp3e8ADAGLSP
+6/QscumY4Jl6J8BctY/DTI78aem4qEPMM+qOcd/i17J5RWG8HHM+WtxX7l7D
+tyXPzeVnmQNMyNze/wBjp7bzblgveXEv1EcGAAAAoChnkRmLnv109U6AyYo9
+7brj84N+XQRJ/tF9zC/qrd+xeFkHZVT7jZncu4sVz8/tRattMiFzev8DTIXa
+zrs11/WShfrIAAAAAFQk1NPJ7O8flo4LUuqdAHMT6tImY/RV6ZgoK+4zrlWz
+JKkJ8ux96WsZeK3dsfzXgNek+Xe/S18HW39PzOL9DzAlPbWdT0rHNSVzWy/J
+nNFQHxkAAACA4trHrbPI1E69E2Bu2sdRZq/yqHRclJPZPwzj4cGK14wy/yiz
+j7wy5sy1Lq2Xx7jM6f0PMDVqO+/WnNZLMrl36iMDAABbEz9znCVefZaInzUu
+ks8aoUb319LXAEA57eNTZn//uHRc8Ey9E2Cu2sd1Mj7flY6JcjKf51fW7hjj
+eJi5zkF5dJnXWeuYkLm8/wGmKOTaqe28G3NaL1mojwwAAOxIz9mdV58l4ueS
+Hyueq+Y2wIy1j0tnkanVQr0TYKbiXuVDMkafl46LMhab1YRL65s8rhpDC19j
+us6xcsxfcn+qvU42em9M/v0PMGVqO+/GnNZLNpwLqI8MAACsJfM56zGeDX4f
+P5d8f/48siQf70vp6wCgjJ6zyJel43qrhRqxz9d3Fq8nnSccxO/fJ9+rqhdH
+5nej3gkwG+3jNLNXeVg6LvZr8bq2ycp6H/F16Rhadc2PxcuaJoPPCm56fxiH
+ubz/AaZObeftm8t6SeY61UcGAAB2JnP+51v8WjavLrOu/aP0NQBQTug5m9nf
+/1Q6rk0s1Ih9vg/dNdUf3TnB4ik3P+TkfU6u97503JnrUO8EmLX2cZOMzzel
+Y2K/Fq/P3A3NS0vH0N7P/e3je2YuuG3flsSa2wseWvsuHffVNpmQfbz/Adg9
+tZ23bw7rJZk1PvWRAQCAnUo+S9zH/Lre+jWZz1nV7bcDsF+Zs8i3pWN6q8x+
+3eRrxMbr6Na7y+5RxmtPr7eqfcmFeicAYXz+lMljOi4dF/uTGa9X1qrNjKFL
+a35UkH+38RnBzGvVNpmQfbz/AdiPTG3nB7WdNzOX9ZLMPE99ZAAAYGd61hWX
+fg5ZjLDOOAC7FdY8M2eRT0vH9VaZ866TrREb8wq78S/b587lJlZV7y8To3on
+wCyF2iCZvcp3peNiPxYve8UP2iPNfOavdm91ka9dPChXqmdtQ22TCZn6+x9g
+bsJZT7Wd324f6yUVnM9QHxkAANirzGetlTW45d8BkNOzv39YOq63WMykRmwm
+927p2mLPXvfKeiJ7vib1TgAe/+zXdZeM0Zel42L3Fq97xQ/aO1y8rIVbXY59
+Emtah2WdvdX03ITaJhMyh/c/wNyo7bwd+1gvqSD/Tn1kAABgrzJr1SvXFeXf
+AdAncxb5unRMm+pZW5xcjdh4nd21xZV7z5n8u+rqgizUOxkFNbhgP8K+ZGa/
+6qh0XOxW5lxAtn5v8prqx/gk3rQOy9D+abk5mzyrCZnD+5+6mNfCfoRzJGo7
+v83U10sy4/ngHLqeOaL6yAAAwEqZteqVOQKZNUyfQahW+zgJvQjU+ID9CHv5
+UzmLvJhJjdgN5wLpdVbVi2Oh3kn1Yi7QTfxvhL0S2IOQEz+VHHmGSca1QTV5
+M2NhVfVtM/HeJ/GurG0Szx7cZ15b9bWy9ntj8u9/6tA+TmOd2dvSscAc9NR2
+Pi0d11jMYb1koT4yAACwZ4vXdX2GnhNPP79Ue9aJeYtroH+ehSwdD8xF5izy
+WPPvJl8jNnONQ9dd09dV1Ysjc1ZAvZOKhL7U9kpg/+Lf3oP8u3nIfN4fkpeW
+joXV7qt2Yk7nXd8HvOZ7nMt08+8G5WcxDnN5/1NePPPZndd+Kh0TzEGmtrPP
+lAPNYb1koT4yAACwZ4vXdX0GfZbIfH5ZuY4JJWTOQh6VjgnmIHMWeZS1rTLj
+3aRqxGbWT1fW91tyb6q6xoV6J1VrH+fJ+HxVOiaYi5gncGufcvrW/by/eN2P
+fmUeWw3Wzb+L9yXMY9LaL9Y1JmQu73/K69RzfnZSOiaYi3j283ntSe7rQHNY
+L1moj0wU/tsQ16B4u7+LSsexzeu5a11UEAtv+z3+fQVxQFf474r35faMsr4L
+8xQ+d6z7WWLx+gxxdTVvIGhe98C8Kx0TzE3zVGfnqHQcm8iMd5OrEbt43VNj
+aB7+Rvem4O9OvZPKNC/rb9krgQKap1z5UebHM0xmTrL0837y/J+l41/jOgfX
+N4k5d7/jXCE9M2Hsn5C5vP8pq3na0+/OafVdgALC2lPpGMZiLusl657PiK9R
+H3li4jidrj8BAONzUnpeAUMknyUG5QcsXtfgrjavgHlrH9fJf5vV9wAGW+yh
+Rmz7+L6Heem3njhzPTWG1r5L96sH9ayt9Xe3UO9kr5rXPbpuS8cEMEXJnGTp
+3mEyto+qDlwmzypbszjuHf9+/t5ig/OIjMdc3v+U1T6uknntZemYAJaZy3rJ
+uvl3C/WRJymzPwQAjJOzblQv81li0N754nWt8erPOzE/zVPNrfS/zep7AINt
+siebOUe8tEZsUzb/Lq19N3hNMfPaqurgZvbh1TupSKNHF8DOhRyzZCzsHd+S
+cXB0n+8z1/r4vH8av38Qr7Gbe5fO2dQ2mZA5vf8pp3mqI5vW1DksHRfAMnNZ
+L1moj8zjn2P1bQU5AwDA5sLnbv2TqF7ms8SXAa9Ja42rfUeV2sdl8t/mq9Ix
+AeOymHCN2Mx4PjiHLnONg+vm7fH61DupVKNHF8BeZD7v36djfXzOc079z1X7
+rzVbvK7lkvrRna9knm8OMCFze/9TRvs4Tea116VjAlhlLuslmTxD9ZFnqnnK
+wTtiK/4mKh3HNvzbJtk/rCAmNjeV9yXT8rcVxDAVh6XnEzDE4mUdu0FnvRev
+a9/5/EGVmtdnkOVFA4MtJl4jtmcdcmjv2bT2Xe8Z4kLXpt5JxZrXPbrOS8cE
+MEWZvcOzzNd+x69P4nN9nAN8T+dwuevLzIWy9YIZpzm+/9m/9nGXzGuPSscE
+sMyc1ksy16o+MvCnmM9hfRIA2IrMZ4mV55cWr2vljO5zF/PQPk6SufNN6ZiA
+cVlMvEbsYo0+HMnrcrXvqpoPZH536p1Uonk6c5zWDj8sHRfAFC1e1vGtKle+
+Bpm5UFW1fHnz79f7n51qH8fJnPaudEwAq8xtvWShPjLQQ/4dALBNmc8SS/fO
+Y75et97N99LXAH3ax20ydz4pHRMwLouJ14hN9iSH5uEfxNelr63qOhfqnVSr
+0aMLYC8Wr+v4+vz+8v6k5xHlZ02I9z/7EOaxybz2tHRMAKvMcb1koT4ykCH/
+DuYjnP8PdXrsRQC7lPkssfTzVPL83rrkUFpm3vxQOiZgXDJ7spOrEZs587ty
+XzKuV14k+XfV9eJYqHdSLT26APZj8bq2ydfSMdVk8bqe70XpmNjq79f7n52K
++zcv1p1CnefScQGsYr1k5f1RHxlmQv4dzEP87PbQ+Vs/Lh0TME3JZ4mle+fJ
+2qWa21StfVyZNwNvsZhBjdh18+/iPfmVqSdS1bxAvZN66dEFsD/2Dlfen7TO
+i/ysCfH+Z9fax2Uyr70qHRPAKtZLVt4f9ZFhRuTfwTz4Wwf2YfFUc7v7WaK3
+nl1S967qWj4Qzhsn42hwWDouYFzmUCM2sy/Zu64Y12h/x7XItJ5IVXMD9U7q
+FWu86w0PsGOZvcPfpWOqTVL7RX7WhHj/s2tx3enBuhMwNtZLVt4f9ZFhRuTk
+wDyEv217EsCuZT5r3aeft+Jznmv5/FyVewA1yIyjV6VjAvJircpPpePIWcyg
+RmwmxzB4n3nelzgfeB//Oa0XU9X8QL2TOunRBeMR59NX/kbHa/G6ju9o5id7
+uj9p7Re1TSbE+59dC/s1ybz2pnRMQF77uJZP8RfrJSvvj/rIMCPy72Ae4nyw
++7de5Z4kMG6ZzxJnma/9jl+val8dlgm97JJx9Kh0TMBr7eO01s+2i5nUiM1c
+52Nci/0cv38Qr6+be5fWE1mam1jgmtQ7qZQeXTAOSa7sgzWpccrk2I9qjrKH
++5OeR1TbZEK8/9m19nGrfgLUL8mVvSsdT2nWSwbdI/WRYUbk38E8pHkDpeMB
+pin5LOGsN5OQOYN8VzomIC/p1/NQOp6uzJ7sZGvEZuqDpH501xtrrydSe3xz
+1ejRBaOhJ8M0ZPYO1e54eX9+uj/T5f3PLmX2ae9KxwTkhdqUPoP+xXrJyvuj
+PjLMjPw7mL64L6F2ObBTmc8S30vHBNuQWVc5KR0TkJf5e62mvk6mHuyka8TG
+Onjf0zowuWvL1BP5Vjr+FfGpd1KBTH78TemYgLzM+vNV6ZhYz+Kpb3yaT/+l
+dFy16Lk/70vHxU5/v97/bE3z1J/dPi2MgHMlL1kvWXl/1EeGmZF/B9NnnRPY
+h8xnCWeBGb3mZa+s535Z70rHBeRl1kFPS8f0TI3YpffmVzKHqKoXh3ondWpe
+94Y/Lh0T0E9dn/GKuUe/F6/zj37OPccsnBnIrIWo/zIh3v/sWmbd6dG6E9TL
+futL1ktW3h/1kWFm5N/B9NW8DwlMR+1757CJzBnky9IxAf0yn2+vS8cUqBG7
+9N4cJPemqtxE9U7qlPlbvysdE7BcpkbtYemYWC7Wsl3WT77a2rV7uDff1rg3
+fygdM2v/jr3/2YvM3s1V6ZiA5XwWfWK9ZKP7I3cfJk7+HUxfJnfgqHRMwLRk
+9s5/l44JtiHk7tgnhHFJa1aWjidQI3bpvUn3r6vpxaHeSb3axydrWTAumfyC
+k9IxAUBpoVaCvRsYF+dKrJesuDfqI8OMZWobV1EfANie9nHb/TsvHQ8wPSGP
+wOcIpqh9HDuDDOOSWQf9VDomNWKX3psfteUmqncyDp3PueG8mR5dULlkXm1u
+DQCPf4yP757PjjlTAuMQ+qPM9VyJ9ZKl90Z9ZOAPyRhxUzoeYLuSv/Hb0vEA
+0xNq1SSfHc5KxwTbEs8iH5aOAxgmU1/ntGQ8asSuvD/3chPZRDxPKu8ORqKT
+XzD7Xl0A0FXDmTFgOOdKaBbNdeu8dVg6Fqbv44cPF63HgT6Xjhf5dzBlzese
+01elYwKmJ7N3Xrx2DQDzlJn/Fq3xrkbs0nvzObk3v0rHBMDupP0ZnHEBeK1Z
+NO/s5wPUy7kSYu7dYxRy8Y5Lx8R0yb8bH/l3MF2xZk/3b/y8dEzAtCwWzZdM
+7ewvpeMCYL5qWgdVI3bpvTlL7s1F6ZgA2J059+piOppF+z5+clg6FqapfW8d
+2c8HqJtzJbRj9F0nB+8x/rM54sx9/PDhfZIP93PF8392n186frZD/h1MV6b+
+h1rmwNbE3Lvfmfy7n633peMDYJ7C59pa1kHViF16b366N69ZqwWmSq8upqCT
+GxXctE5Kx8T0tO+rq2Q/X487gIo4V0IyJ0yZI86U/DuC9vFQS28eYPviPPAu
+5OKVjoVh2jH2a0892Qu1Y6lByK3L5Nz1+VY6XgDmJdR8rmEdVI3Yte/N7HP3
+w75q60G9E2CK9OpiKuI43d1jfVDvhG2KPWgfMvv55ogAFXCuhD/eBy/z5XPM
+EWdG/h1BqIcVc/BCrdR3peMBts/f9jjEcfln9Lnz9W+t+84Y/L10rAAAtcrU
+gL7adwxqxPbel2+ZvrPPfpSOrwbNojlV7wSYKr26mIJOvrx6J+xMMidMmSMC
+FORcCX+8D/rz5c0RZ0r+Hc/CWof8HIByQr5dzLHL7juuO2YDAMxZqXVQNWL/
+WH/8lNbliHl3Q+/LH0pfR+F7eKveCTBFenUxFStyo9Q7YSt65oTmiAAVcK6E
+P94Hq+eE5ogzIv8OAMprx9SD1u84vvbWQ8n0pD0rHTsAQI3ax4110EL3/in/
+Tl2Ot93DI/VOgCnSq4spGZgbpd4JG1sxJ8zNEcN+/lHpuAHmwLkS/nwvDJ8T
+5sbuq5jD96n0dfB28u8AoLzQTzaOrUt7brXf/5qM26Fe3kHp+GHf4npi+Eyi
+di8AWdZBC9//p/wwdTnedg+vBtY7OSkdK8BQmV5dt6Vjgk2tmRul3km539On
+mAM5Vv+04Z7+bXy/nXjPAWxf5lzJZemYdnatT+NJ6fGwZpvm3/Wd2wj3+9j4
+PT7y7wCgrGQs/rriuQfJuL3yNTBF8bOH/XwAeqmvU/j+L5p3zdM5XrXb3nYP
+Hwauzz7v5x+VjhtglUyvLueqGK1mWL58X25UeG3IjVLvZLe/o6Mt7omP2UNc
+Qzs3ZwR4uzmdK4k5YaXHsbm6i+P3qfG7fhvk3/2SfwcA25P0lO3tPdt5/n0y
+dl+UvgYoIfOZz34+AH/KrIPelY5pbpqX+fI5YSw/2UMc5yP2DxuuzzovDVQr
+U6PWeaqKNU+5S6XHw5pdtP7DhuN110Mcv8/j+C0vdbvv4dJ757WSBwrwBnM5
+V9LIv6uNNZ9KbZB/dy//DgC2J81t38D30tcAJYTPFUs+f6iJB0BuHfSwdExz
+M3CNdqe92CpYF63BXeO8NFCJOfXqmoLmdU959jt+X8XxW27U5u9h+XfLdXPw
+Jpk3ArArczlX0si/q9GffeZLvz/4yzr5d7med6XjB4AxS8fW0vHA2DSr9wHu
+GjXxAGYrsw56UjqmuWmW58vn3Gx77bCCNdFaPZ+XPjFXAvYpU6P2pnRMLPl9
+yb+rjRp567+HD5vydRLf6p+29P7p1lk88h4CeJvMuZLz0jHt5Dqf1g1Kj4W1
+u9nSWJ1z1zhTOQpr5t99lX8HANuTGYdX9p8F/hLWCeNnjyGfUdTEA5iZzDro
+UemY5qjZbN/+uSbem3tp7HD9cyqe92DV1QH2JuTcTX2fcio2HMfZrW4Olfyp
+iXvj3+CftXEa5y0Ati6eK3mw7jRvzVOu/8MW53o3jf6yo5Spabcs/+5C/t08
+xD2Kk9JxAG8T5nkteygVy+TffSkdE4xNs34fEWd9AWYkfLaNa6F625X8PQzP
+l++z8VnfOO6P2f++xTXccB+vGn3sgMLiXuV56650LKz4XT3l7ZQeC2v3a4tj
+tRwqun9/h816+/nh/XjeqI0DsDft47B13boqHQuF3gNP61V7X++iTkPy72Ke
+3n34vvy76QvrHjFH+0GeNoxPXMO81sOjfpn8u7PSMTFPzfjrh//jFtayr+J9
+sBcNMDFxfrzTfOsKxsLaXb1xrF52HjiM34el32c7el99esP9ceYAAPag2W6/
+sTB+Xz+P36WvjeLvrSH7+c91ow9LxwsAc9OsXx/ieT/qxDrNNA3Mvztr/Yr/
+P5t/F3Pz9M0buVgvq9uf56p0TMB62sdp8ncsl6RiMb/9eWz9tcHrD0pfA+O3
+5bXiKbBfPVNhzFQjC9hEBWMXE9yvbtabo4Xrn+R5glhP4NZnWwBqE8fdt8xf
+Jn+egM00q/fzw3vnpHScrPl7fdqDvd31+TAA9qMZ3u/hec3GusbEJfv+95nv
+v4/P+db6muTrve8877ccgPGLa5rdvJ2H0jEB64mf3+TfjUQ7dv7YtAdtrE/7
+W/47b7Xm3u5chc9Rx6V/V+zw7+CvHpXhH85LxwOMSwXjFHk3pd8bb3hPDd3P
+DzmHJ6Xj3dl9aP5Yp3oenx98vgWgFu34+65ZrzfoY/NXrbKj0vFTtya/n6/W
+3Yi1j+POno0cPICRa57Of65cl2rUupuVWLeu21f2ovO9r899Z+M/HyT5ehfx
+6yE373fpa2E7Qr/KJHfHXjOMRCaH9q50TCwXx9Bu/t3gfPY4fn8vfQ2MXyP/
+LkdP2plJ58Cl4wHGpYJxi7/G79HXkGlW7+eH/djzMV/j4HvxlB/f/Yx7Xjom
+AAjinGPoHEWtMgZrXu/nh/MW9ulGLvQbS+a1R6VjAmAzYT1mybqNfPkZi31l
+Pyd7/2keQLfO3VnP885KXwvbkVnbvCodEzBMpvesHnojEMfa7pj6a1lNu5gP
+/zPmxKt9x5vFzwI3I/ZPb9yr12+WV/VjS8cDjEsFY2Htbt84VvfloE2q32zn
+/dS3nz+7vdeQb2efEoDatOPxp4FrDfZeWUvz137+XTOT8xZz4dwnwHTE9Rnn
+LXjluedszMHr9sC778upy+TgfSt9HWxPqHmc9qBVBxnGoX1cq185PpkaeH/m
+tqf5dfFrz7Vov5aOHUprnvLlNqmNc9WobUdHMn7elo4HYEq2lH93E/ewj6e8
+D5nZz5/13qv8OwBq1CzvI2DvlY3FuaA1/QmSfwcwDcmelPMWvBD37z+XjoO6
+ZHJ4TkrHBCyXy50tHRPDhZ7uS2rR5sh9h8e19vNvY76dMwVkJWPoTel4AKai
+HXtPN8y3u46vPSp9DXu+Xzed65/93muo6S7/DoCaxLUFte6Atei7ADAN8Zyk
+8xZk6R1LTqYH7XXpmIDl9I4ev4E5eKFX7ZfSsUINBuznP8Q6d2rcsZL8O4Dt
+C3nvcTxep6fs6Vzz5ZunfmOn9u4790SdEAAqkpnb2HsFBrHuBNOnnyDwvJdf
+Og7qE/vOdueDxgyoWMi303t2/GI/+LTP+2PsES9fHqIV+/lq3bGWUEsnGUMv
+S8cEMAUxD35I3t3V3OrcMYz8O5iH9nFYOgYYIta4U+sOWJv8O5i22KPsIe7V
+2peAGfr44cNBZ1//a+l4qEsml+ekdExAPzmzwJxk9vPVumNjmfy789IxAdsX
++1jemCfv6X4v2v+2qnXHG+nTBdMXzo+agzMWcu6ATcS8HPl3MGHJ2TF9BWGG
+Pn748L5bV6d0PNSls/ZhPgiVy/y9mtsBk5Xs56t1x5vJv4PpS+bLD3Lw9nDP
+n8Zote54k2R8vi0dD7Bdoe5dcp70tHRMALBt+i7A9CVz2ofS8QD7l+TfBQel
+Y6IumXpah6VjAl5TrxKYk9jnRa07tibk2xlHYdpi7bvu3/lR6ZimLNa1U+uO
+N3MuFKatfXxynhSAqXPuE6YvqX/3WDoeoIwk/+5L6XioSyanxxlEqFD7uEv+
+Vu1rAcBAmfy7o9IxAduV+Ts/Lh3TVIW+bLEvvN7wvJn8O5g+f+cATJ38O5i+
+cI4k+Tu3FgIz9PHDh4uYe/erdCzUJ3MGUa8PqIy/UwB4G/l3MH3Ny/6z9jt2
+ea+f+sTrDc+bZfYp9emCCWr06gJg4pwHg+mzvgzAEJm6WoelYwL+0rzupaVO
+JQCsIXM+8bB0TMB2yeOB8VEnBOah0asLgImTlwPTF/Zm7dUCsEomt8c+BVRE
+jiwAvI09P5i+9vEumTPflI4JWE7+HcxD5iyMXl0ATIr8O5g+n18BGKJ53dvy
+rnRMwJOQa+fvEwDeRv4dzEMyb74tHQ+wXGaf8qR0TMD2yUkAYOrSdSc1FGB6
+Mvu116VjAqBOmfpaziFCBTL1jNWnBIA1tY+Hzlj6UDoeYDfk2sK4yMmBeQi5
+tWqFADBlPovCPOi7AMAQcnygTqFuh9xYAHgbayMwD2oOwLjIv4N5aPTqAmDi
+5N/BPKT1jErHA0CdMjVTz0vHBHOX+bu8Kx0TAIyR/DuYB7k8MC6hX4+cWZi+
+zPrWTemYAGCbkr4Ld6XjAXZDri0AQ8W9iofoXel4gFdnKa5KxwMAY5PZ77su
+HROwG5n8u5PSMQH97F3AfMi/A2DKjHMwD2Gf1rlPAIYKeXeN/pZQjbBnGHNi
+z+XFAmMQ5xJHrPQ3rdPWRfP0uf1Z+Nq/7DznbyuIdezCPe2ui1xVENOYeV9S
+q/C+9Pe+HdYEVs93jpunz2i8zV2T9GKASvxdVDqOKenWBar57/2y9ffNU35w
+8I+t284/XzVPn+FKxOZ9uV3mO/Rqnta2Sr9HpyL8N/MfKohj1170MaogHpZL
+35dhfA21uW+iu9a/j/87PO+qgpipw03zet1pWz97Lv+93JfT0vMJAACATTVP
+65Nhb+IRABi1k9Lzilo1T2ekSv9+AIC3CTmhcvB4pbG2BQBTcVV6XgEAALCJ
+5nX9dQBgvA5Lzy1q1NiPBYCpuCk9r6A+zeua2gDAeDlvAQAAjE7jjDAATMVJ
+6XlFrRrzHQCYgjCWvys9r6BOjfOlADAFJ6XnFAAAAJtqnvakz3nh3zevP/uF
+Xjdhvf+meVrXDa7jP/9j6z9kXvMsvO6igusam6sKYpiC8N77uwrigK7wvvz7
+zj9fNt6nb3Fcej5Ru+ZpvnPEVvyL1t9UEAd0/U3jfbkrf1tBDMuEuldXrX8b
+/3eI91/G/x3mG//Q+qem/7Pa/7LD2Lwvt0vuHUtV8B6dkv+qghj2ofYxjidh
+XM+ttV41T+P98/j//L//x9a/y7zm2f/dPM0bSl8X0zCX/17ug7p3AAAAE9M8
+7dGfNE/5dSEn5HDg68Jrbpr+HDz7BQAAAHvWPo6XfFa7Kh0fANAvrM02f+XX
+HQ58zfP67l3P+H9S+roAAAAA6BfPa+XWduTgAQAAFBLz8B7k4AHAPDR/9X6R
+gwcAAAAwMnFt5zqzrnNTOjYAAIC5ip/VbjOf1U5LxwYA7EbobdmTg6/nJQAA
+AEDlQh2FzLrOeem4AAAA5mpJDp49eACYqJ4cvDv9SgAAAADq15ODd1g6LgAA
+gLnqycG7LR0XALA7PTl4l6XjAgCAuYprdEel4wBgHDL7OjelYwIAAJiznj34
+k9JxAQC7E8Z6Z6UBAKCsMAfvrsuVjgeAcYj7OtZ1AAAAKtI+ztM+dKVjAgB2
+K5yNTsb/q9IxAQDAnGTm5EelYwJgHDJ9aK9KxwQAADB3Iecu+az2qXRMAMDu
+xFob3bH/oXRMAAAwF+3jNFO7yHocAINY1wEAAKhPpgbeZemYAIDdytTbOC4d
+EwBQr7jPexOdlo4Hxqqnb6C1OADW0j5u5XEDAADUI3NW6rZ0TADAbrWPE3t+
+AMBQoTdmMnc4KR0TjE37eJfJl7AOB8DaMnUVnI8AAAAoLF37Kx0PALBbce+v
+u057UzomAKBe+mXC24UzL2m/QH9HAGwiczbivHRMAAAAc9c+rpLPakelYwIA
+dqt93Mm/BwCGiLn7d8naQfjnd6VjgzFoH8eZHFa1igDYSKav0U3pmAAAAOYu
+U6v8qHRMAMBuhbVZ+XcAwFChTles19VdP7guHRfULuavpn87N6XjAmDcjCsA
+AAB1kX8HAPMj/w4AWFf7OFHDC9YT8lQzfWfVjgTgTeTfAQAA1EX+HbDKxw8f
+vrYeBzorHS+wmvw7AGAT7eMqk4P3qXRcUKOQn5r5ezkuHRcA4yf/DgAAoC7y
+74BV5N/B9Mi/AwA2EXtp3ibrCHfqecFLPT2bL0vHBcA0yL8DgPH5+OHDwRr7
+rT9KxwvAetL9d+fWYdza+dj7ZH72c8Xzf3afXzp+YD/k3wEAm+rJK7ouHRfU
+JJOneitPFYBtkX8HAOMj/w5g2tI189LxAG8j/w4YQv4d7FesJXuRWUcJX/tc
+Oj6AdbWPk0xfzdPScUENQp07fZoB2CX5dwCwW/ZbqUnoPxdyMnv2F77E5xzE
+f/5eOl6Yo3hm3ec0mBDzQWCITP3bw9IxwRTFcfln9Lnz9W+t+84Y7DMxMDrt
+4yqTY3RUOi4oKfwNZP4uzkvHBcC0JHUVHkrHAwBTY7+VGsR9hOf31VnyvS+d
+990vew1QVua8+nnpmIC3MR8EhghjfjIHOC4dE0xNyLeLOXbZXgHrjtkAtQm9
+NDM9Nh/02GSu4t/EnbOuAG/TUzu8zyzriWfOVaqzCgBbZL+V0kIeXXw/hT2G
+90ue9yt5r8q/gwIye+9HpWOaIv3G2CfzQWCITA7+ZemYYEpirfffcXxd9tk4
+nSOe7StGgG0INXST+ivyjZit9nGdyUc9LB0XwNjIv1sts7djXQcAtsh+KyUl
+8+GvK557Jv8OysusCx6WjmlKPuo3RgHmg8AQca/8xd5g6ZhgSjpn07K17zrP
++5qM22GOeFA6foB1hDq6+m3Cq16AakwDs2AtsoxQ7y4Zc+5KxwQAU2KOQykf
+n/rKPr+Xfq35fLknUEhao7x0PFPyUb8xCjEfBIbK9Is7KR0TTEEyFq86m3aQ
+qd+w9DUANQo1VzI5eEel44J9StbZrkrHA7AP1iLLyazrnJaOCQCmwhyHUj7+
+1VdnUL+czHtV/h0UIP9uNz7qN0ZBG8wHf5kPwjxletDelY4JpiCZ4/XOBTvP
+v0/G7ovS1wCwicwecKgF9q50XLAvsRZk6Ad45L0PzIW96XIy6zrmXgD8Ifbc
+yPVzD1+bZe/2De6hOQ57l6llt/LvVf4d1CHTf/ZT6Zim4KN+YxS0wXzw3nwQ
+5imsyWZ6ZJ2XjgvGLs1t34DPx8Aoxf726dziqHRcAMDu2JsuK5ylTOZeN6Vj
+AqCcOC7/jD53vv4t2Q+0/jjsXqp3wl6lebMDXyP/DioQz+R2P5sdl45p7D7q
+N0Zh68wHc+/B0vED+xV6k+gVB9uTjq2l4wHYt1j/qzuvUIMFACZM/l1ZseZq
+uq5zVTouAPYv5NvFHLtsfZh1x+y5U++EEpI8zt8DXyP/DiqQqU9+WTqmsfuo
+3xiFrZl/l9ZgfCwdP7B/Pb3i1MSFDWTG4ZXzQYCpCfOImON/XjoWAGC35N+V
+F/Z15OABzFs8E/x71XpkWlurdVY69lqpd0IJSe6I/DsYkdgbpvuZ7K50TGP3
+Ub8xCsvM8ZbNB9N59mPp+IH9i3vkaa+4h13UwYs9b48Sh6XvAWxL5rPul9Ix
+AQAA7Ir8uzpkzlY+xq8dvvHnvov1ja9Cb9vMv+Mx9sC9iecvnOcEKCDsL8ex
+NVv7rvO8tC5HyPU5KB1/jdQ7oYTkfST/DkYmfjbSc24L0ryn0vEwX0Pmg/H9
+em/NCwgyveKenb/x576L66/XmRy/1PNa7WHp+wGbynzWdYYUAACYrA3y735Z
+i9y+uP6Sy8ELazHn4ftr/rzDmHO3ai0nJ8RxUvqeAMxFMhZ/XfHcV3XaVr1m
+rtQ7oYRN3kfy76Ae8bPXi73v0jGNVea/bfqNUcTA/LuzuN511jeOx9w872OY
+ieZ1X/ruOeaTNX/Wp7hOu+4abTcX76j0PYFNfHxZI/7XBq935hQAABiFDfLv
+7vvWInmbmIPXV6PuIa7THPfl4sWcu5MlP2NdYT3puPR9AZi6JPdr5Z5eOhaH
+15e+hlqpd8K+ffyrj/SzzwNeI/8OKtG87kGrBt6GMv9t02+MIpK5833m++/j
+c759fF0T+X3neb/lAMC8xHXYvrPN4euX8TmHmdcexbz+3Hnrt+Thvfp3Qc3a
+sfPHpnPCuF7zW/47AAAwBuvk3+Vq7pSOf4oyNReW9Yx9NrTOXfq6Ibl61305
+fwC83cektuwG5Or031v1TtirzN7Cyv468u+gLs3r+jR3Pg+tL/PfNv3GKCLO
+47rnLC463/v6fA4j/vPzuYwXz425eYP6ygPTEnPzh6yfrush/tzLuBb8bNU6
+b/jeSen7AkPFMbQ7Jxyczx7Hb5+PAQCAUVgz/y49B/xYOv6pap76EmxrbSfk
+z50s2zOK/77LuLeU+xnhrOZh6fsCMDVpbnvpeKZGvRP2Lc3jXDa37rxG/h1U
+pHmqS57ue9+UjmuMPuo3RgXiOYvPS86y/E7mfelYLocUaOLaat+66TpCnv/K
+fiOdtdq+XLzL0vcEhvr4uk78r2VnHONa2c84l3QWEgAAGIV0339F/t1Fuv5Y
+Ov6pa556FVxveIbyapOcubielFvbCV/7VPqeAExJJu/GuuJ27696J+xV5m96
+ZX+d8H35d1CX+Jkot1+uDt4aPuo3RgWez2DEHLzue/K+L6cuk4P3rfR1AHWI
+c4R1e8rexVy6ww3+fe/ia7O5fKXvBwzx8XUNvD9z29O5Xvza89rM19KxAwAA
+rGNI/l1nT7q7h/1YOva5iGstJ3HP56YnN+4mrsesPEM58N93lfn33NpzAtie
+TK7O4H1pBt1f9U7Yu8yZlaX5IyHfTv4d1GfJ56HD0rGNRWavVb8x9i6+9z6X
+jgOYluapL21Yqz2Pa7KpMI843dZZ5uapHl7uvPRJ6XsBQ+RqO6wg9x0AKtA8
+1Qo6j9TpAVhhYP7dWdzDfrEvnTznp7Pp0xLXidJ1nZvScQFMRSb/Tp7Xdu+v
+eifsXTy38it5H716z3Xm12kvHvkmUIklZ59OS8c2Fpn/xuk3xl6ZYwNTEc9L
+52rv2QdlFAbm4P12NhUA6hBz7tRfBljDx5e91u4z338fnxPOrn9NPg91a8YM
+PsvOeDT53kv2mwC2JBmHf23wemNv/71R74QiOvkjK8/0f9R/Fqq1pC74cy+5
+0yH18GLNmu554WfHU98zz9TA02+MvXreyy8dB8A29OTg3ZaOC4aK5yNzvQd+
+yJcHgDrEOWfuTOp56dgAahf3Brv7gxed732N698/4z8ffHyZJ3ARv/7NeuZ0
+ZfacQs0HfWgBtiCpy7ZWD9o4Li/tbTln6p1QWpwjp3l4P7vvS/l3UL/2cdmT
+g9ftS3uVya+76ekVl6upd91MtIfcwFonas+ydXGu/Py+ktMJTEKT70XrrDQA
+TEhcI3ge7y9Lx8N89Mw1n9euJn2GFGAbPj71f/m8ouZ3t85d7nyS/e0Ji3nu
+d3LcAbYvUxdmcD3ZmMcjV6f//qh3QvXk38E4xPp16WeiXbib4h76wBw8/cbY
+qo9P/Rz+rKtTOh6AbWmeavC+mD+UjgkA2J5M7bFbuU/sWmaO2X3/HZaOD2AM
+PsaeszEHr1uD574vpy6Tg+d8+sTF/aYXee6lYwKYirjf3B1Xfy2raffxr96W
+92rfLb1H6p1QPfl3MC6hRt0e8/COSl/vNn3Ub4w9S/LvHoeecQEYg8x85KR0
+TADAdjT9dfgnd16P8mIdnuue95z6iwBriGuQn0vHQf1ifnt3zD0uHRPAFGRq
+4P1ZWzbNr4tfu5dXtvKeqnfCKMi/g3EKn4Wap56zQ3Lxwrn185i7dxQdN3/1
+qF322vPS1wpjloyx6isCkxHnFd05w3XpmACA7Yj5UH3rBeHr70rHyDQ0T/1m
+c2tbD/IAANandyxDZdZ1rkrHBDAVA/uyqT07/H6qd8IoyL+Daejk1XUdDnzt
+u2Z5Xb2r0tcHY9WZY/8qHQvANsX5w0N3zlA6JgBgu5r+fqByo3izJe8v/Y4B
+NhTXIX+XjoP6xXWdF+Nv6ZgApmRgDt5vtTsG30/1Tqie/DugK659PmTWPq9K
+xwYA1KV53SfsqHRMAMB2xfpkaX+yP9cK1MJjXc3yfrPeUwAbCrVgOnt9etix
+UjrHKx0PwNSEnvCxx2yad/dDvdq176V6J1RP/h2QCnXzetbWz0vHBgDUo3nq
+Zd+dK5yUjgkA2I32cdmTL3WnVhlDNcv7zZ6Ujg9gzJLebD9Kx0P9Mvnw5nQA
+ABuSfwfkxLPIuRy8o9KxAQB1aJ763cvVB4CZiGN/rma+eQAr6TcLsFtJ/l1w
+UDom6pY5V3lUOiYAgLEKNajTWpelYwLq0JODd1c6LgCgDvLvAGB+VvQOvQk1
+9UvHSF30mwXYn2S/70vpeKib/DsAgO2IuXe/Mv2m9ZoG/hD7gqRn209KxwUA
+lCf/DgDmK9Yyy9XC00eUFzJ7+94nADvy8cOHi7jP96t0LNRP/h0AwNtk8u36
+fCsdK1Bepj/IXemYAIDy5N8BwLyFWneZuvnPrtU1I4g17vSbBYDKyL8DAADY
+r5Bzl3wOOy4dEwBQlvw7AFitWTSfWretyX6O7qlv9kdv0dKxUV77uOzUStRv
+FgAqIf8OAABgvzI18K5KxwQAlCX/DgCWi7l3D63H+P8nW/MrzgvSs3u3peMC
+ACBP/h0AAMB+hbPJyeewh9IxAQBlZfLvLkvHBAA1aRbNScy9e+zk4B2Wjmtn
+1/u0dnDdmRvclY4JAIC8TP7dSemYAAAApq593CSfxQ5LxwQAlJPJz78pHRMA
+1KZZNJdJDl7oRTvp/pvtY7J1/gAApsK5SgAAgP1TixwASIWauN35Qel4AKBG
+zaK5mlsOHgAAdcucq7wrHRMAAMDUtY/T5LPYaemYAICykh5zwXHpmACgRjHn
+rpuDd1M6JgAA5q193Kq7AAAAsD+ZWuTnpWMCAMpqHyfJ/OC6dEwAUKNQ7y6T
+g3dVOi4AAOYrU3fhpnRMAAAAUyb/DgBIZXqVBIel4wKAGsnBYyzCfK51GfrQ
+tR7CGlCY95WOCwDYrp51naPScQEAAEyV/rMAQE77uHJWGgCGaRbNp9aDHLwB
+9+ppP/hEbv/e7vdhXPtJ+9A9OykdIwCwfTHnvjvm38m7BwAA2I141tkZKADg
+hbhXm+7PytMHgB5y8Abco6c8sIfO3OI2rkt8Kh3blHRyHG96cu7+3IcvHSsA
+sBtxPvCQjP23peMCAACYosxa7GHpmACAOmTOSquRAgBLyMFbcX9e19dNa7Jc
+Ohf4pvsbcu7+3Yqcu27uo3sNABPWPo4zc4ArdfAAAAC2y7lnAKBPPCud9ip7
+kIMHAP3k4C25N0/1ddM6LDkPcW/42P7wynv637T+t9b/OzDv7v9s/U/OXwLA
+PPScf7jd1lwgzu/CnO08/rtuOsLXQv1jtY4BAIDJCuec03NPpWMCAOoS1kh7
+9snPt/jzw1rsdVybfc73u4v/fN3oSwfAyMjBW3Jvnsb+yzjWD8kXe4zzgRO5
+eK/u4f+1xj3MCXOto9LXAwDsVk8OXljrOd3w572Laznpmc0h5yuOSt8PAADg
+/2/v/nXbSLo4YTfvYHwHggHBqQHfgAKHGyhR9CWMHCtTKmykUKkzxoqUO1G4
+WBgfFC2wgQEFGwvacDfxdo1K7/SUq8nmH/Gwm4+AB++MRNqn+Q6g6q5fncMu
+5fuj7v3PRvdaAMC0LcngbTS3rHk9G3295r7727PatNd8Ev2ZAMAqMngDPqN/
+cvjr7N0+5vecRNcf8HnNN1g/DZHWV7KNADBhPRm8t/OPl0PWAnnttuh5RuQM
+AAAAcJTyvnf3nucsuiYA4DAtyeC9PTedr3pW27zOI+l73ruuhX1iAA6dDN4a
+n9VrPv+tJ+7Q9cDf+8XRte/p8/lrwF73/239/62bvO46y67z2ulpxWep3zAA
+TFhlT6h2zuE2v67rfsU6whkAAADgaFXutc6iawIADlfeF1/Vnyb9/KF4Rvuw
+5vPXoa9Pe9Dn0Z8LACzTk8G7b9lr7PvMXrNm87yOGNJf5SS65j18JuUMgzf/
+I39O/9/AP+etb03f2uos+loBgPfTvGbzd5mle8o5upT9/9z5e07y37XqfMVj
+4wwAAAAwYo38HQCwgbyG2HbWSPc562XfOqQZNpfuNvozAYBlejJ4jzJ4Az+/
+f3ro9u0VL6Jr3MNn8Fdegz01O5jBm/fE+/bC7YEDwMQ128+1f1hnTymvPfqe
+J71YfwAAAGMlfwcAbKqzB7xpDu9+3bXHin3iRfRnAgDL5Azekwzelp/jazb/
+trNfvNgmh1b5sx8GWmfdM4/+3JZc89weOAAcr+a1R91iYBbvPc8AWH8AAACj
+VMnfzaNrAgDGp/mnJ82yHnVP+flq2uPdKmeQnw3Xcn+L6M8CAJZJWbucuetm
+8FJfPHuN0f/fvGbvdtXft+Y8+hrXvPbH6LoAgP1qXs9antW8w9912fPsyNkU
+AABgVPJ9kz1rAGCniue175InyH9HLe83j75+AFhmSQbvLLq2Y9a89tR7r+zd
+46HvJTev5ynKuq+j6wIApqup9+G9j64LAABgHXnf+l9ni6JrAgAYqieDl3q3
+nETXBgDL5AzeosjgJfPo2o5Zzx7wskzdwwD3h56961z/dWVdNYraAYBx6ll/
+nUXXBQAAsI7KnvXBzkMBACjlDN5TsZ55iK4LAIboyeAtouvieFWeE11H1wQA
+TFs+r6BXBAAAMFrt16X9agBgzNqvz85KAzBWqeddJYP3kHrkRdfG8UlrqLIH
+XnRNAMC05bOVL57rAAAAY9VzX6MHHgAwKu3XbbGeuY+uCQCGambNeeulyOA9
+tj5H18bxMSsBANi31HPXcx0AAGDMKvc1aYabc/YAwGjkMwVlDzzrGQBGI2Xt
+Wk9FBi9l8mSf2KvKrITb6JoAgGmrPdeJrgkAAGAdPT3wHqLrAgBYR/u1KNYz
+8+iaAGAdaeZs7ntXzqOVf2Jv2q8Tz4gAgH1LPe/MoAUAAMYszRKp9IxZRNcF
+ADBUZT2ziK4JADbRzJpFJYP3kPJ50bVxHIpzmi/R9QAA01fpwXsdXRMAAMC6
+Kj1j/j7jbHYbADAGlVklj9E1AcCmmlkzz/Nny3m0Z9G1MX35eZD5bwDA3qR+
+d8VzHT2gAQCAUUr71JUM3ov5bQDAGLRfT/aKAZiKZtZ8bj1VeuFdR9fGtMnf
+AQD7VjlX+RBdEwAAwCby/c1DJYP31gtvvsaf9TmfV+r6HH2NAMB02SsGYGrS
+zNnWfc882pPo+pgmayoAIIL8HQAAMCU9s2i7/fDuW9et8062bp6/15ff+9c8
+uNQ7XB4PANgle8UATFUzay4rGbw0j/Y8ujamx5oKAIggfwcAAExNzta9DMjS
+bSs907VfAABszV4xAFO2ZB5t6o/3V3R9TIc1FQAQQf4OAACYouZ1Hu31HnN4
++uEBABuzVwzA1OV5tItKBi/l8s6i62MaiudAT9H1AADT136dyN8BAABTlnN4
+8+Z17uyQLN1T88+M2q77/LNls23n0dcLAIyT/B0AxyLNnc3zZ8sc3q1eeGyr
+yN+9RNcDABwH+TsAAOCYpD51zet82m627rJ1ls4oDXh/Osd0u6Sv3iL6GgGA
+8ZG/A+CYNLP23nrW/u7bQS+89vXXqa9e9DVxGKypAIAI8ncAAADra/6ZbyuD
+BwBsrdKr12x7ACavmTWXPb3w7of2wsv99H7L4JGU+bshZy0BALZVzk+KrgcA
+AGBMcj+92lzay+jaAIDxqOT659E1AcA+LOmFl3J58wHvP+u8ZxF9PcSypgIA
+IlTOVZ5H1wQAADAmuRfeYyWDp28NADBIei6rny4Ax2xJL7yUzVt6f128fhF9
+LcSprKnuo2sCAKYv9WTwXAcAAGA7PRm8p+i6AIBxyGuJ7jriJX0vui4A2Kfc
+C+++ksFLbvtm0lZeu4i+FmJU1lRm0AIA7y6tNzzXAQAA2F6eRftiDi0AsInK
+rJLr6JoAIEIza85bT0Nn0vbMr11EXwdB//00zaJYU91G1wQATF/luY41CAAA
+wAYqPcafomsCAMahMi/NWWkAjlbqdde67umF99g667y2r2feIvo6CPhvp2nO
+Kj3wls4wBgDYljUIAADA7qTMXXF/NY+uCQAYh8o64j66JgCIlGfS1vrb/c7f
+P1mS05PBO1Lt10Oxpnp0rgEAeG+VNciTNQgAAMD6Ut7OvjkAsImes9Lz6LoA
+INqSmbTJf1+Sv5PBO0Kp10xlTeW/AwDgXbVfJ3megXMAAAAAW0j3UeX9VXRN
+AMB4pOy+DB4A1OVedy8r8nYyeKQ11bUMHgCwb5UeDe+WwcvnOEsn0Z8BAADA
+LlT2zc+iawIAxiFn+R8rz2ovd/z3pL4w53lvuuvc2gWAQ9bM2t+Vs+ZWBo+V
+/63UzzU87mpfOve4Ocv77P9aS+lzAwDHK2X+K2uQ1LfhfMs/Nz3Lue15blT+
+Xfd5jWJNAgAAjFLljPU8uiYAYDzy89RyXknysM1+cd4PXvT82TWe1QJwsJpZ
+c9J6lMGj97+R/nMNL/nZzdprnM566mnAWuop75F/jv4sAID96sngvT3bOVvz
+z5oPXHv0WWzzPAkAACBCPufcvbe5jq4JABiXJRm8tZ6b5n3nyy2f0268Rw0A
+72HD7N2b9D55qCOR10IPS9Y4K/NxzWufu23XUykHuFXPGwBgXJo/ezXUcvpn
+5fOW/Exo3qx3hnKIW892AACAsZC/AwB2Ie/1Lpsp8pifnb7NOetKz3hrM9e2
+sfWsFADYVjNrLlsvG2bv3qT3z6OvhT3+d/O6Zlq1znnI+9zX+fUPzXaZu5r0
+Z55Efx4AwH7kZzS7zNB1nwm9rVu6Hlb8fel9zqIAAAAHr5G/AwB2aMB+8aZ7
+v+m5bJndS9+7X/Gs9jb6MwHg+DSz5q/W/Za5u1L68/QAORJ5rbPsbMMm66nb
+vH46y+uq6/y9ZX9PWmfNoz8PAGA/mtd+vNcrnrUM8dS89uQ9GfB3pnXJYsla
+5Cz6cwEAAFhG/g4A2LXmtRfetv3s0nPaeTNw1kh+7cOS/WZ5BQD2opk15zvo
+edfnyTza45LXOJvm8N72vVeug/L6bdle+2X0ZwEA7E/O4W0y0z49D5pv+Hee
+LHm2cxb9mQAAAPTJ90+epwIAO5efm96u8aw27fcumi3mxjavZ6Zr+8aP0Z8H
+ANPXzJrrd8rdla6jr5U9/7fVNJ+bf+a0repzl163UU6z+afnTe3Pvo7+HACA
+/cvPd+adtUjXffPPzIKdnH2s7Fu9PTNyDgUAADhIzZ89vc+iawIApic/q32b
+c1aa7/IZat43ru1NL6I/BwCmr5k1Z0tc5oxeTZov+7BG77wH82iPW/M60+Ds
+PZ7l5D+3dqZhHn3dAMD05bMH5VrkcVcZPwAAgF1q/uxH494FAJiEyjmDZOPe
+egCwL82sOclzbK9XZPLS9/1u413kMw3l7Nu0D34SXRsAMH05g1c+17mNrgsA
+AKAr96Exlw0AmKw8B6XcM3beAIDRWZHJsw/Ju8gZvLL3zEN0XQDAceiZRXsS
+XRcAAMCbPEvEuSEAYLLynnHZ7/c6ui4A2IWcyTt7m2EbXQ/T1NN7Rt9FAGAv
+Uva/WIcsomsCAAB4Uzk3dBldEwDArlXOHOiBBzAxs1lz1fG99Tv9c3RdMBXp
+/IIZCgBAhMosp9+e6wAAAIei8uz0LLomAID3UDkr7dwBwMh1cnZ9PkbXCFPR
+M4f2c3RdAMBxaL/ui3XIPLomAABgc3mmyyTO1cjfAQDHIs1I07MFYLpy37tu
+9u5ndE0wNZXnSLfRNQEAx6HyXOc+uiYAAGAzzaxZtH63HqeQwas8Nz2PrgkA
+4L1UeraMfj0HwKvZrPla5O9uomuCqanMfnOeAQDYm2Id8hRdDwAAsL7c9+53
+x+gzeJXzQtfRNQEAvJf2a6H3L8A0VfrfXUTXBFOU9rq766noegCA49F+PViH
+AADAuKWsXc7cTSaD13591q8bADgW7ddlsfa5jK4JgN1I82Y72bvn6Hpgqpxn
+AACiVNYhn6NrAgAA1teTwXtqjXaNX9yrvETXAwDwXtL+sN6/ANMzmzUfit53
+d9E1wVSl9ZP8HQAQwToEAACmoyeD9zLWDF7qeVfcr8yjawIAeA/ydwDTlGbN
+Fvm7q+iaYKrsewMAUaxDAABgWnIGbzGFDF7K2xX3Kw/RNQEAvAf5O4Bpms2a
+myJ/9zG6Jpgq+94AQBTrEAAAmKYpZPDar7/S3NninuU8sqZPp6c3rd/Zj9aX
+6M8JABg/+TuAaZrNmudO9u5ndD0wZfa9AYAolXlOJ9E1AQAAuzGRDF757PQp
+5fIiavl0enrXyd69eW5V+xe037+qvP6NngcAwH/I3wFMz2zWfCl6391E1wRT
+Jn8HAERpv26tQwAAYLrGnsHr6YF3v+86Up+7JVm67z3vqeX1EnsuAMC/yN8B
+TM9s1lwV+buvnZ99LX5WFX0NMCbydwBAFOsQAACYvglk8M6L+5Zksc8airmz
+tR54Hyrv+TX0tQDAcavk7xbRNQGwndmsuetk6Z6XvO5Hkbu762b1gGHsewMA
+Udqvy2IdchldEwAAsHs9Gbyz6LoG19+09VcyePuaRdvpZfet8r3konj9h56s
+3lX0ZwkAHJ7c87e7znmIrgmAzc1mzYeUuetm6pa89uYto9e62FeNMDXydwBA
+FOcqAQDgeFQyeMk8uq5Btb/uST9WMniP+3iemnvZ/ZGd6/S4uym+f6H3HQCw
+jvbrqVjn7OWcAQC7l3J0RU+76lms9vtf8s9/pX+OrhvGTN8ZACBSsQ55ia4H
+AAB4PxPN4L31wnu3mbo5Z1ebMfstZ+t+Ft+vzavV+w4A6FXp9zuPrgmAzXR6
+2r35434yZ+9Sz7uftZ8D66n0nbmPrgkAOB5p7eG5DgAAHI+Utxt5Bq+8hyn7
+4d22zrt5vPwM9jzPIjlZ9+9N+bue73/Ife1+d/N5KY+n9x0AsI68VjGDFmAC
+cqbuLXv3s/Lzrzl79yO6VpgSfWcAgCgpb1esRZ6iawIAAN7XmDN4f9f/OlPk
+ZUkOb5XrXdXy6fT0LmfsLjrfe9b7DgBYV2V9cxZdEwDrSb3sit53N8XP32bT
+3kXXClOj7wwAEKnyXOcyuiYAAOB9TSCDd1KZ0zbUYld1pGxdN2PX/u8Xve8A
+gE3kXr3/Oiud+v9G1wXAcLNZc1Xk775WfnYTVR9Mmb4zAECk3DviX/14u7Oa
+AACAaRp7Bu/va3jN4d3m/ekh2buXXe5jfzo9/Zhzdnf536/0vgMANpHWKJWz
+0ovougAYLvW162Tvnivfd48I70jfGQAgUvv1OKWzlZ9OT286+10/Ug+K6JoA
+AOAQTSGD959rec3izXPvmNQb7yFb5O+dp9fs+u9t7zd+pj53+Z/v9L4DADZV
+OSudXEfXBcAwKXPXyd/d5Xm0P97yeOnfo2uEKav0E9Z3BgDYm7TuqDzXeRzj
+eqTY7+rue33seX3Zn6Kr+h4AAJiSngzedXRdY9E5//MlZ/He7ie+R9cGAIxP
++3VfeVZ7+45/XzrDcPYe5xQAjsls1nwpZs/etH4V3/sWXSdMXWVGwuOY+84A
+AOOS+0TUZjOdR9c2VN7v6svSVfe+evJ6yU309QAAwL70ZPAW0XWNQXvvcPE2
+a9Z5HgBgW3kObTmv5Hfu63uy5Z99knvs3Vfms3WfCT/k/jGjO58NECXNli2y
+dsnP4t9/RNcJU7ek74wM3prMnANgXc3M2b6/P4d6Bu93fh5z8J9RsQao9cD7
+o693+71fQ18LAABTljN4LzJ46+mcA+reW+h9BwBsbEkG7yXn4tbaP05nrHOm
+rvbsd5VUxzz6MwE4dJWs3V3+/o/i+/Ir8M6W9J052+Hf8Tn3EC5NIudn5hwA
+62pmzV95j+leDm9pBu8th3e+bN3QOUP52H3PPmrvrAO+Vb6XXBSv/9CzBriK
+/v8BAAAitPdEn2Xw1pefP3quCADszJIM3tv+8WLZs9q8/3vb/DmDbVNPu9yz
+BpiS2az5UGTsvnd+9q2cSxtdLxyDvFaqrWkWm2TkOnvgQ840POV12Fn057AJ
+M+cA2ETaS+rsK6V9puvomqLlZzN98we65x4f8hrlPv9z37Oc233UnftN/JGd
+6/ShuCm+f1FZA+h9BwDAUZPBW1/xjFHvOwBgZ/Le7ao93reZscue0da8vee6
+84x31XPhvTzrBRiT2ay5KDJ2F8XPnzs/S/9sHwr2IK9x+tY0aY/784r3p/MQ
+84GZu2VZvHn0Z7EOM+cAWFfqd1fZV0qeWmfR9YV+Nq/ricUWa4mupWuXXcm/
+12u/77/l3/E/i+/X1g563wEAcPRk8NZTzNjQ+w4A2Knm9bz0Nvu+3Zze7YC9
+5s95v7ovy5fOZk9ithrALqSedkX+7kPx86vi598i6oRjlPNzy84XvJ1juM3r
+n+u8R76LtVeZwzuL/jyGMHMOgE3k+bOLSgYveTj2mbTNay/dTXN4aR1xva9a
+U/6u5/sfOvOgPnS+/1MGHwAA6mTwhmvvI37ofQcAvLecw7vf8Dnt5SaZuSV7
+1jJ4AFnR3+5n5ecfi/zdj+ia4Zjk/e5d5ume8prsurDIa6Rl772O/jxWMXMO
+gG2kfnetx54c3nXK6UXXGPr5/NNfd9W6Ia1d0vmA8+iauzqZ/IvO954/yeAD
+AECvbTJ47evmrcnPJ2vvI76aPQsA7FPnWe1tU585+5D3hFPmbuvZJPnvq+X+
+HqM/C4Bos1nzpcjW3fS87nvxui+V13xNWb3oa4Kp2uIsw1ufvMWQtVXO+11W
+1mhvFtGfxTJmzgGwC82s/V3YP5P2oDJlhyCvU06i61ilMw/qKv/7Fxl8AABY
+rSeD97DqjFLK3uX3TfosU8rcde4r9DAAACarqc9Jmfx5C4BlKrNlL3peV/bA
++178/EPrVy2XB+xWJx/30CyfTfuU1z/p3MNGz7fy31P7OxbRn0MfM+cA2JU8
+k/bWTNrpaH/Hf8y/7+/yv1/J4AMAwDA9GbzHZdm6Tn/x6+j630vnPuNN9fkk
+AMBU9GTwzqLrAogymzV3Ra6uN3NSee3Hzs9uUpYv+nrgGOVev2cdW/cPLv78
+lPerzZdbRF/7usycA2ATeY/pwUzaacjZ++f8z3cy+AAAMFw6h9TJ1C3N4OUz
+Tf/pJR5d+3upnOt5jq4JAOC95V4x/+oNE10TQITcs+65k6f7ueL1ZQ+8H/n7
+31I2L/p6gPeTM361cwyjmr9n5hwA22hmzXzJTNp5dH0M05k9/6Xog/s9ujYA
+ABiDnKtbmcFr//2seM08uvb3kPrdFc8Yf0fXBADw3vL+cTlHbR5dF8C+pVmz
+RZ7uZsB7bor3/J3bW9Y3D5iOSh+8l01n20Ywcw6AbQ2YSbvTPrTsXuqD+/Z7
+v1gHfIyuDQAAxmJIBi/3C//Xz6Pr3rXK+V75OwDgaLRfl8Xe8eTWewCrVLJ0
+FwPf973znu+yd3A88jmGpzHPoTVzDoBdWDGT9tZM2sPV2R/r9qjQ+w4AANa0
+KoPXc890Fl33LlXO9cjfAQBHpdID7yS6JgCAQ9d+nVXm0J5E1zWUmXMA7FKe
+SftU2VN6mepspSnIuXu97wAAYEvLMnj5vuiPvuHRNe9SeqZYyd89R9cFALAv
+7ddtsW98GV0TAMAYtF8PxTrqOrqmocycA2DX8r5SOVfJTNoDVvTAlcEHAIAt
+9GTw/mfPPVJyEl3zrnTO+nbdRdcFALAvld4t99E1AQCMQWUd9RRd01BmzgHw
+XtIekpm041Dk8GXwAQBgSz0ZvD6L6Hp3Jd1PVPJ3F9F1AQDs01j3jQEAoqW1
+04hn0Jo5B8C7aWbN+ZKZtHrvH4D2d/8PGXwAANitnMFb1veuazLnkzrzNpJv
+0fUAAOxb+/XY3TeOrgcAYCzar9sif3ceXdNQZs4B8N5WzKRNPSHOoms8Vu3v
+/q/WAQAAsBvtvc3ndM6odZ/PHA3J3iXX0bUDALAb7deD/B0AwPpS3q7I311H
+1zSUmXMA7MuKmbSLTXo+tO+Z66O3uZS566wDfkTXAwAAY5Lvceb5fqbW93uo
+lyn1wAMAOGbydwAAm2m/zor83SK6pqHMnANg31K/u13NpO301TuLvq6xSbn7
+Ygb9r+iaAABgTJb0+d7EPPp6AADYnvwdAMDmivzdQ3Q9Q5g5B0CkvFdVm8k0
+eCZtZ79Lv4g1FT1wk+fomgAAYGzSfUieObtN/7vkKfpaAADYnvwdAMBm2q+/
+Rpq/M3MOgFB5XtP9kpm0Jyvef9bN7UVfz5ikfndF/u53dE0AADBm7T3J+ZL7
+myGuo68BAIDtyN8BAGymMn/2OrqmVcycA+CQrJhJe73ifd3X30Zfyxi0v/e/
+lNk7+TsAANiNfM6or9/3Kp+j6wcAYHPydwAAmxlp/s7MOQAOzpI9qqfaTNpK
+/i45j76OQ1dZB8jfAQDAO2jvT+athzXyd/p6AwCMWPu1KPaNz6JrAgAYg5Hm
+78ycA+Ag5V4Ri569qPvuTNqe/N2LnhHLFTPoZfEBAOCdde5zhvTEu46uFwCY
+vvxs9SS6jqlJ+8TFvvFldE2lT6enN53nwj/SvJTomgCAfmkG3DE8Lxpb/s7M
+OQDGID//eVw2k7Ynf/c7v++v6Gs4VMXzlTd30XUBAMDUpfuU3BPvyRxaACBK
+XpM8vT1r9Sx1h5/tn/vG99E1daXnwLWz2a2PPa+vzlLJqu8BAHYnzX4r9sAn
++8xohPk7M+cAGI12DXG5ZCbt5ZL9qkV07YcqPReprAUuousCAIBjkfe8b82h
+BQAi5Mxd+az1PLquqWi/Xoq945PompK+Hi3Z95731PJ6yU309QDAMejZJ7+O
+rutdrrVdMxVrqIfompYxcw6Ascl7U30zaZeZR9d+qFLerrMO+BZdDwAAHKN0
+Zrn1YA4tALBPS561PphJu4PPt2k/33/vHS+ia0p65qJ0e+B9qLzn19DXAgC7
+l58d1WbGTbIXXnGO4SW6nmXMnANgrJbMpDW3CQAAGK0lfb/dzwAA72LVOQAz
+abf4bJv2s/13/i4JX9d1etl9q3zvjxkpKWPXk9W7ir4WADg2lf7Fkzy/mXre
+FWuog+3RbOYcAGPXriP+a+v/DMzfPXlWBAAAHLqevt/m0AIA7yrNEOk5B2Am
+7Taf6597x4+t0OfUuZfdH9m5To+7m+L7F5U9Zb3vACBIPj/x1NML7yS6vp1c
+Y9NcHmIf4T5mzgEwRnk/6naDObQP0bUDAAAMkft+d5+lXkfXBABM24rnrmbS
+bvKZNs1JpQfeIrKmnLOrzZj9lveMfxbfr81U0/sOAAItWbel8xSX0fVtfX31
+NdRJdF0AMAV5HXHdcw5zqIU+eAAAwFgUc0XC55UBANO3Yibtreera36eTbue
+O6AMXsrf9Xz/Q+5r97ubz0t5PL3vAOAwVc5vTubsRFovFeun++iaAGDsUk5/
+y9xd2XvXMyIAAGAU0vPS/NzUHFoAYG+WzKRN35tH1zcmab+4ksF7iJ5FW/p0
+enqXM3YXne89630HAIdrqr3w2q/PlfXTPLouABijdk1w3pPZl8EDAADWNps1
+V60frd8dN60P+efPxc++RNf8Jt8fnUfXAQAcj85Mkr6ZtPrzDvkcm/ZzbJrH
+yh7yyyHtI6dsXTdj1/7vF73vAGAcptgLr9IDL62drD8BYE25z8NlfsbzsOMs
+ngweAAAcidms+dbJ1N21vnZ+9j1n8r4U2bvn6LoBAA5Bpx+vmbSbfob9Gbzk
+qXXZOhnw55zn3nlPebbtyvcM9en09GPO2d3lf7/S+w4AxmNqvfDy+ulJBg8A
+3kfO789zLu8+Z+k2zeD5/QwAABOV+toV/e6qe4Y5g3dX5O/uousHADgkS+aV
+mEk79DNsmtueDN6bx9zr5brjNmfuaq/f6V76p9PTn6nPXf7nO73vAGB8ptQL
+r2cO7UH1EAaAqUlZuryeSLm8xcB+eS8yeAAAMD2zWfOx9auTp/u25LUXRfau
+N6sHAHDMBsykPYuu8dC1X2eVXi6bOtllbZ9OT29y3u5LzuK95e++R39uAMBw
+U+qFl7J2Peug+12vhQCAupzJu12RxZPBAwCACalk725WvP5rJX/3Jfo6AAAO
+1YqZtAszaQd8hq97yZvm8FLfl+td1/Tp9PTibdZsMXv2Y/TnBQCsbyq98JZk
+8H7n3sHnA/6Mk9xbeGGGLQBsbkUWTwYPAAAmIM+c7Wbvfg54T5m/+xV9HQAA
+Y7BiJu2oequEfYav/fBu8+zZVZm7+7z//C75xtz3LuXtful9BwDTMJVeeHkW
+7bKzC2mt9JAzdl2LnvddR18TAIxdzuKlOQmPxRpjHl0bAACwuZS3K7J0K3t1
+pNm0xXuW9ssDAODf8rPWl8q+7qOZtGt+lq95vNLe+gl+Oj191vsOAKYnn5uo
+rdfux9K7OK2J8rmFTfoHl06irwcApiTPSrjsZPHm0TUBAADrS7m5TXJ0lfdd
+RF8LAMDY5Oes92bSjtun09M7ve8AYJpyL7zaei3l8lbOcD0UeZbsYovs3UP0
+NQBA12zWXLV+lHtcaeZT/vlz8bMv0TUv08ninUTXAgAADFeZIfv8dl8y4L1l
+z7xB7wMA4E+p390uZ9J2/jz5vT34dHp6pfcdAEzbFHrh/X0drzm8yzx3dlXm
+7jH3zvscXTcAvCnmM92lva7Oz77nTN6Xcv8rum4AAGCa2vuNX8X9x9XA930o
+3vcz+loAAKZgyUzap3Vm0ub83d/7wdHXdAw+nZ7+0PsOAKZv173wcp+b29Br
+es3jnZWiP2sAKOW9qR+r9rRyBu+u2Me6i64fAACYnuJ80Fo97HJP77Vn1gIA
+sNqKmbT3Q+aQ5D/j7T3X0dc0ZZ9OT7+aPQsAx2VXvfA6Zybm0dcEAIdsNms+
+Fj0lvi157UVl/2tQ/wkAAIB1VHrfDT77U3nvRfT1AABMTd6Pfezpr3I94P3d
+95xFX89UpcxdJ3/3I7oeAGA/dtELr5O/exlyxgIAjlEle7e0J0SaR1vJ332J
+vg4AAGBaeu49BmXotumbBwDA+ppZc7nJTNrKPvDgXiwM8+n09GMne5f8iq4J
+ANivbXrhdfJ3yUP0tQDAockzZ7vZu58D3lPugblXBwAAdi6dDdpi9mzZ+27l
+vQ4AANvJ/VUW68ykrbzuMfo6pubT6elVkb97jq4JANi/TXvhFfm75DL6WgDg
+kKQ9qGJP6uOA95R9JJb2ywMAANhE5X5lUIaup/fdVfT1AAAci1Uzabs9Vnqy
+erfR1zAlqd9dkb/7HV0TABBn3V54lfydObQAkFV6SQzK0VXeN2j+EwAAwDra
+e43n4t7jbsB7PuT3le/9En09AADHZsVM2vP8mlr+7veyHiwM9+n09EuZvZO/
+AwDW6YWX13Tl6x6irwEAolVmyD6vMcep7EEx6H0AAADrqPSw+z7gPd/zmaFu
+/s58LQCAICtm0j4syd+lvd/P0fWPXWX2rPwdAPAfS85L3L71wsv9i2vrNXNo
+AThqs1nza5NZTLmXxNrznwAAANa1bv4u9ebO54W+rNs3DwCA95WydCvydjWP
+tRloDPfp9PR7JX/nfAoA8B9plmzPOu0pz57ty9+ZQwvA0ZrNmm+Vfayhve+u
+NplZCwAAsK5K7+3e8z85c/crnxkq71sGnTcCAOD9NbNm3tNjpc8iuuYx+3R6
+elPJ3zmfAgD8YUkvvP+2ZK32EF03AESo9L4bfK9dee9F9PUAAADTlOfIlmeH
+PlZe9zXfq3zM/35XvOdL9LUAAPCPZtb8l9b/WiODN4+ueaw+nZ5+rOTvPNcH
+AKqW9MJbxhxaAI5K3pcq968G3Wtv0zcPAABgXSlPV7kH+fmWp8u97m6K7N2H
+4vVmawEAHIgN93PffI6uf6xS3q6TvfsWXQ8AcPhyL7z/PXCdZg4tAEelp3/E
+0NmzZe+73tlPAAAAu5DOC1XuYf7Vz7t7T1N5vdlaAADBcu5usWHuTh88AIA9
+2nDt9hBdNwDsS+4VsXaGrqf33VX09QAAANOX++B9L+5HbmpzZStnjvT3AAAI
+0syav1q3O8jdyeABALyzHZyZMIcWgKOQZi+t2wsiz296rrz3j70uAACASJUz
+R4P6fQMAsFvNrDnLs8h2mb2TwQMA2LF2bfV5R72KrdMAOAqVHnbfB7zne+4h
+0c3fPUdfCwAAQFc+O7R2v28AAN5H7n+XcniXres0l6z1tKO9Xf1VAAC2kPvd
+PTgrAQDrWTd/1/78IveP+LJu3zwAAIB9SrNmyxm10TUBAFCXc3nznMu7bz1u
+sLe7iL4OAIAxy+uxxYZrsWXOoq8NAN5LZRZTbz+InLn7lXtIXBXvu4q+FgAA
+gK50Tqi4b7mIrgkAgPXk+WfnOZc3ZB94EV0zAMBU5DMSb+cjXrbI36X3fo6+
+HgB4D3mObNkD72PldV9z9u5j/vdyH+tL9LUAAAB0tfcpz8V9y4fomgAA2E6e
+i3a5Iou3iK4TAGCK8losnY243WBWrQweAJOU8nSV/N3Ptzxd7nV3U2TvPhSv
+f46+DgAAgK7cv3tQr28AAMZpRRYv9Wj5K7pGAICpy/2KL/PcWhk8AI5SmsFU
+yeB13XX7RFRefxd9DQAAAF3tfcpVcd9yE10TAADvpyeL9yiDBwCMVX6+9aN8
+xvW2d1+Z/RA+sy6tvVrzFb2KX6zRAJii3Afve+V39x+/oysza79F1w8AANBV
+eTZ5EV0TAAD7UWTxZPAAgFFJ++9Fr5yvnZ99z8+9ytkPBzezLvfFW+S8XZnB
+s0YD4Kjl+bTd3+UfomsCAAB4k55JVvp6f4yuCwBgDMbYZ2WZnMUz4wwAOHhp
+vVWsw656Xvc95/JGM7Mu98R7kMEDgP/8zu/+Hv8ZXRMAAECSzwaXc2dH8QwS
+ACDaVPqsAACMUZ5X92vIDLo056Hy7Kua1Ts0+WzEbetJBg+AY1U8g/n73GN0
+TQAAwHGr3KesFF0zAMChmHKfFQCAMahk75buwffMfjjonsQ1zaw5b93L4AFw
+bCrPVy6iawIAAAAAYH3H0mcFAOBQ5bMQ3fXYyvlzlfzdr+jr2EbuiSd/B8DR
+SPMEit/lH6JrAgAAAABgPcfaZwUA4JCkvF2xvvo44D1m1gHASKVnKcXv8ZXZ
+ewAAAAAADos+KwAA8VJubpMcXeV9ZtYBwEikWQJy9AAAAAAA46bPCgBArMrZ
+huehs+cqazkz6wBgJNrf2z/k6AEAAAAAxkufFQCAeEUv4uRq4Ps+mFkHAONU
+yd8POhMJAAAAAMBh0GcFACBepa/w4LWVmXUAMD75d3/5O/zNXXR9AAAAAAAM
+o88KAEC8ypps8L575b16EgPAgerJ3C8VXTMAAAAAAHX6rAAAxOuZOzcoQ7fN
+eg4AAAAAAACAzemzAgAQL51j2OJMRLkm05MYAAAAAAAA4J3pswIAcBhSZm6T
+DF3Pmuwq+noAAAAAAAAApk6fFQCAw9CupZ7X7Umc1m35feV7v0RfDwAAAAAA
+AMDU6bMCAHAYKmur7wPe8z2fp+jm756jrwUAAAAAAADgGOizAgBwGNbN37U/
+v8hnKb6su54DAAAAAAAAYHv6rAAAHIZ1+hLnzN2vfC7iSk9iAAAAAAAAgP3T
+ZwUA4DDk8w3l2uxj5XVfc/buY/73Oz2JAQAAAAAAAPZPnxUAgMOQ8nSV/N3P
+tzxdXoPdFNm7D8Xr9SQGAAAAAAAA2BN9VgAADkfuNVyuzf7Vczhl7pa8Xk9i
+AAAAAAAAgD3RZwUA4LDk9dn3Yr11UzvvUDlL8S26fgAAAAAAAIBjos8KAMA4
+5XMT3XXZh+iaAAAAAAAAAI6NPisAAONS6Un8M7omAAAAAAAAAJbTZwUAIF46
+A1GenYiuCQAAAAAAAIB++qwAAByGdh12V6zLLqJrAgAAAAAAAKCfPisAAIeh
+XYc960kMAAAAAAAAMB76rAAAxGvXYF/0JAYAAAAAAAAYF31WAADitWuwKz2J
+AQAAAAAAAMZDnxUAgMPQrsN+6EkMAAAAAAAAMB76rAAAxGvXYF+LNVnyMbou
+AAAAAAAAAPrpswIAEKdde32rnId4cxddHwAAAAAAAAB1+qwAAMTIubta5q5X
+dM0AAAAAAAAA6LMCAAAAAAAAAAAA69BnBQAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBj8v8AdVvP
+2w==
+     "], {{0, 427}, {2528, 0}}, {0, 255},
+     ColorFunction->RGBColor],
+    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+    Selectable->False],
+   BaseStyle->"ImageGraphics",
+   ImageSize->{506.9824999999997, Automatic},
+   ImageSizeRaw->{2528, 427},
+   PlotRange->{{0, 2528}, {0, 427}}]], "Input"]
+}], "Text",
+ Deletable->True,
+ CellID->1926563611],
+
+Cell[TextData[{
+ "In all four diagrams, the internal fermion is a standard model quark (",
+ Cell[BoxData[
+  FormBox["q", TraditionalForm]], "InlineMath"],
+ "), and the internal scalar is a leptoquark (",
+ Cell[BoxData[
+  FormBox["LQ", TraditionalForm]], "InlineMath"],
+ ").  The vertex factors in this model are:"
+}], "Text",
+ Deletable->True,
+ CellID->1873650627],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[
+  FormBox[GridBox[{
+     {
+      RowBox[{
+       GraphicsBox[
+        TagBox[RasterBox[CompressedData["
+1:eJzt3T9uHFUcwPHlT0EZn4CQvUCktBSAfAAEsmgDEm6RAtKKLnQuadOldkW/
+FBxgCy7gK6xyA/OGPMP4+e16157ZmZ3fZ6QPxPHs7HgdfTUzb/589sNP35x/
+OJvNfv4k/eeb7xdfvnr1/a/ffpy++OrXX3784aP0hz+Tzz+YzZq/vL6+hoNJ
+09vmn13yLnk59PoA9CFNX+fW/WfodQLoQ5pe6x0Qgd4BUegdEIXeAVHoHRCF
+3gFR6B0Qhd4BUegdEIXeAVHoHRCF3gFR9NG7+adPF8n1Hp71+TPm9WmsK++9
+yt87Hfp3AfSrz+273JGrDY17k7zo6+dKyz5JLlrvt2zWpzJPex2bHp4P/TsB
++tH3/mzTtErrln3+TM22WrEtd7bDa9ptXPW9zQkc3iGO31X2Ixddv0frvdr7
+0ut9tiGbbbuHvhYYvwP1rtyn7WWfsejVTtt1lWVcaB5M01R6V9lvftPR+jZ/
+Phn69wQ83oR6V77Hg7fLKuPLD24nMB5T6F1lP3b1yOWdHPqcGaB/E+ndqlj+
+xRiXCQzr2Hu34XyXvccpKsu9KJa5Hvp3BTzOBHpXu5bj0WOqfS0XGM4Eeldu
+h113MZ5aOSbYyXYjMJwJ9O6y7FJHyz2t9K6386SB/k2gd0u9A3aRppd6V12u
+3sHEpOlJ8q7Vu7ddv4feAWORm9ds533Rx/J77t2bA45XuFcUsJXzUYAoeu7d
+WR/njVTOc1l3sd0ITFufvcvLL++v18f1ZJdDf47A+B2gd+UxvD7uF+BcY+Be
+XfYujyOsir971uWxtsqxu0f1E4ij495d1c4LqTTqwfuflfU1TgHspKvetZpW
+7c/87rl4j72fu3PugL1UxhP27t38//s+bbwvUz7u1m7eY57X08m4BxDHvH5/
+ur16N7/9fMV7761eGb/Y93mMtuuAvcw3P2+72Qbbei5b3tZaPHQfNTdyVbzn
+fc/b/ve4n+N1wK4qYwdd2uuc39zNWnNvjb/mdfaMCuDoVbYTb3jeIjA5W5rn
+2glgcuaV+yHvOg4CcGy2HF+8tG8LTE0+T6a2f3u16xgwwDHJ563U7hl6lbcD
+be8BkzN/fy+9RVZeE7LUPwAAgPFJ0/Pk6dDrAdCnNP3Veh7j66HXB6APh3je
+NsAYNNtzegdEoHdAFHoHRKF3QBR6B0Shd0AUegdEoXdAFHoHRKF3QBR6B0Sh
+d0AUegdEoXdAFHoHRKF3QBR6B0Shd0AUegdEoXdAFHoHRKF3QBR6B0Shd0AU
+egdEoXdAFGl6qXdABGl6kvzd6t3vQ68TQJ/S9EXyfOj1AAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAIA+eV4PMHWexwhE4XnbQBRpeq13QAR6B0Shd0AUegdE
+oXdAFHoHRKF3QBR6B0Shd0AUegdEoXdAFHoHRKF3QBR6B0Shd0AUegdEoXdA
+FHoHRKF3QBR6B0Shd0AUegdEoXeMQZqez94/8x369HZW9G4E60QMT3Prfp/d
+/TcIMDVfj2AdAA7hrxGsA8Ah/JG8HMF6APTpXfI8H8N7Mhv+eCJx/JZ8N4L1
+IIihx4QBAAAAAAAAAAAAAAAAAAAAAACOwfzTp4vkMrkuXCSneZ6T/PWbodcX
+YF+pXeetti2K750my/y9VWu+3nuX3uNZ0d3lPfMv2/MP/bkC49J0K/dh3fRl
+y3yroj16BxyNvF9604eze+Zd6B1wjPJ+6k0bVnvOr3fA0Ug9uNp0zG7D/GV7
+9A4Yvcq22osdXqN3wNEpjttd7/gavQOOTjHWerXja46hdyu9A9ryuSdT7N1a
+74C2oiGT6N38/XUf13oHtD2kC0fQuzO9A0rz2+eijHl8ttxm29a7C70DSvO7
+9wQY5fl3+X3v7V3u4tr4LFCa3702bOs4QH7NmHu3yGOzi029yy3ceH0wME2V
+djVO73nNwa8ny+/bHnNdb/hZmnnOK8fwnrXma/bhT4b+7IHDqxzvutq2/TP/
+/z4qh+7dsthPvWh97+xmPzZ/fbNfe2ve3MKdxqGB6cltKO/xtC6P5bX2Fcsx
+jkP1rnnvF5Xt0WqnK/vqOx+jBKYrN2+5pSU3zofcn83/b5rXHme50+bWa8rm
+nQ/9WQPjkHtWdm/Z7smAvdvpfBmArgzcO/uiwMEM3DtjDcDBDNG7+e3rK7be
+bx6gKwP1rn2e4OXQnwEQwwh613C+MNC7gY/f7XQNCEAXBuzdzXUg9z5DDaAL
+87vXpjqeBkxObl157Znz4oDJ2OE6M9drAQAAAAAAAAAAAACd+QfJKir4
+          "], {{0, 
+          188}, {316, 0}}, {0, 255},
+          ColorFunction->RGBColor],
+         BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+         Selectable->False],
+        BaseStyle->"ImageGraphics",
+        ImageSize->{79.15104166666583, Automatic},
+        ImageSizeRaw->{316, 188},
+        PlotRange->{{0, 316}, {0, 188}}], "=", 
+       RowBox[{"i", " ", "\[Lambda]", " ", 
+        SubscriptBox[
+         OverscriptBox["P", "^"], "L"]}]}], 
+      RowBox[{
+       GraphicsBox[
+        TagBox[RasterBox[CompressedData["
+1:eJzt3T1vG8kZAGDmo0gZ/YJTbv/AAW5TKMH9gMMF6n1B4jbGJYBwnUuVblK4
+U63qejf6AS78BwwISC+4CJCS2YVmz8vhLD9nOdLsQ+BJLB1FvrskX87HO7N/
++Os/vn/168Vi8c/ftf/z/Q9Xf/rxxx9++stv2x/+/NO//v7X37T/+E/rj79a
+LLpfLpdLAAAAAAAAAAAAAAAA4ETa23nrZeum+//S8QBMpb197pYxDty1fl86
+LoDc2tvPUb7rfGx9Uzo2gJza2+tEvluGdp92HlCV9vZmJOd9lPOA2rS3i8RY
+Xudtjsdvvjq/bi2D960XpY8ZmK9uzG4k510c87htbrsd5LreQ+vrkftfJe7f
+S/4NwL7a23eJfHd36ON17bgNuevdyN+k8mPnuvT5AeoyMmd70Hxt1I9NtfHO
+En/zadf7Ahwj1CBnGccbtNVeJX7XuYzufzaSG69KnxegTmG9xTDf3R/yOKGt
+tparBm246+j3l9p2wCmNjOOd7/s4Ia+l+qyvQi77EP0+1f/VtgMm09Xd5Zin
+7fLdyO/PQrttOcyHXf7TtgNOLVGb8jrn4w/G8S4Hv3vQtgNOLewdMMx3b3I+
+/qDO7ir8HNeuaNsBJ3GCfPd1yGu34ee4zljbDjiJbk52ynzXCeN1D+Hft9p2
+QAm515WlDOZjX0RzFcm1FwC5hf0Dsqyx2GRQbxf3Za2TBU6iW08R74c3xfMM
+5ig+adsBpxZq7+JalJupni9Rg6JtB5zEyP6f3031fNE8hbYdcBJhD7w4191P
++ZzR2J22HTC50I/9mMh3L6d83uZxv2NtO+AkNuS6uymft81x3+rLAqeyGL92
+xedD9kTZR5fjBvnufelzAdQptOnife4mrbcbGqwn6yX3UgE4xoY2Xd+um2w+
+tpeoMX4ofV6AunTzDxvadPdTt+t6TeI6FaXPDVCPLbmu69ue5Praib2f5Dsg
+m5Haur5Nd3HKWBJ9WfkOyCLMTdwnct3HU7XphqJ5WeN3QDYja8SK5LrOyHV5
+bkufJ+B5W6SvJ/u5VK7rJGpR1q5FC7CvU6//31Wzeq3ZV6XjAZ6/xLjdXemY
+AHIbmZN9WTougNza2+tEvis2bgcwlcX6vux3pWMCmMJi/Rqyb0vHBDCFRL57
+UzomgCnId8Bc6M8Cc2G+ApiLVD1K6ZgApjBSb1x8LRnAFBbr+7bflY4JYAqJ
+Mbzlqff3BDiFkf2g7q0rA2q0SF938aZ0XAC5LR73c09df/GmdGwAuXXzsol8
+1+/rfl46PoCcRvaHstYMqNIivb+7th5QpcXjdbdT43n9tXy+KR0jQC6hTiXe
+T0DOA6oVxvRSbT01ekB1wjrbVM77uXRsALltyHkXpWMDyK3LbYl8d1c6LoAp
+2F8AmIuw9sy6M2AWEvsL3JeOCWAKI2ttz0vHBZDbSJ/2onRcAFMI9cb2EwCq
+l1hr9qZ0TABTkO+AudCfBebAfAUwF+pRgLlQbwzMwSJ9LbOb0nEB5Ga/AGAO
+7AcFzIH9PoE52JDr7OcOVCPUnrheD1CthesxAjOwcL1tYAZCrkvluc5H6yiA
+GmzJdW9KxweQw8iaWG06oCoja8SsEwOqk1j/r7YOqE6oO1FbB1TP+n9gLhLj
+dnelYwLILayLjdt235WOCyC39vY6znelYwKYQmLs7q50TABTSOwH8LZ0TABT
+SOS7N6VjApiCfAfMhf4sMBfmK4C5UI8CzMVIvfHL0nEBTCHsDaBPC1Svm5O1
+pgyYg5H9oD7bDwqo0Ugb76OcB9Rm8bifezyOJ+cBVRqZq+33Or4oHR9ATovN
+12O80dYDarIl53VtvW9KxwiQS9d/XaSvz9jP3cp5QDXCHMaNnAfMxYa2Xve7
+89LxAeQU2nofEznvrnRsALltqNGz9gyozkiN3n3puACmYH8BYC5Cvzaev7gp
+HRfAFBJ1Kp9LxwQwhVCjEvdp1eMBVUrku4vSMQFMIVGb8qZ0TABTWLhWNzAT
+8h0wF4malNelYwLILdTgma8Aqtetp0jku/PScQHklqg3vi8dE0Bui/T1at+W
+jgsgt0TbztoKoDoj43Z3peMCyCnsfZfa1/2idGwAuWzIdcbtgGqM7O/Z6a5n
+4frbwLMX9nyK9wRwbTKgKt3asJE8tww50Hws8OyN1Jv8MherDwvUYEOu+2w/
+AKAW7e3lSK77WZsOqEVYI5aqN7kpHRtATiP92JvScQHkNLL+/2PpuABys/4f
+mIvEuN1N6ZgAclukr5v9Xem4AHJLrI39XDomgCkkxu7uSscEMIWFa8gCMyHf
+AXMh3wFzkch3N6VjAphCe3trvgKYg5E9UeyFAlRnZO3sy9JxAUxhsX6NivvS
+MQFMYZG+VsXL0nEB5NaN1yX2DHD9MaBKiXW0ri8LVCvkt1TOOy8dG/PV7cUY
+9vGBnP7W+u9iPef9r/XvJxAf83Eecl1cHwpQo4tF+hpSALW5WazXSgHUqOvL
+dmN3908gFoCp3C3UBgAAAAAAAAAAAMCT03x1ftV6aC2Dd62z0nEB5NLmtK9b
+H1qfWi/Cz33Oe186vomO+Szk9877cKzdv78uHdvchPfb1eA9dxt+flE6NuoT
+cl33Pvs2/Hw5eO89lI4v87Gehc/TL/m8P27K616LwfdP//roY5BF+166jttx
+4fv2U9/mKR1jxmM9GxxXVcdWmzCW0r9OH+Q8jhX1W6v/7EefoSr76TXx3URO
+0ZhJ9WMl0VzMZel42Pp6Dd+fVY2rcHqDz3/176WoLbs0L/H0hbE8rxlHi95L
+t6XjOfHx+uw8A14zchnMU3SuS8dzguP12XlmvGbkMqhBmcVYls/O85N4zaof
+Y+Z4oQ5juYcPpWOe4Bwcle+imrDOqz2fbznx8XVj+7eJ17Jrx/d1lWfh53cT
+PP9l1GcYPv9BeSpxDtVJsrdo3qu63DZyzFXmuy6OwXNcJWLo4x6257Plu+Zx
+Huh98CKK6+GY55TvyCFqB1Q/dheOubp813ypJ3zYdDxRrsuW75rHtYfdcyfn
+u5r1OfG9ah7lO47VrPdtD34PJXJALhtzyYGxVpXvmtW+48bx12a1PZ8l3zWr
+a1U25dq4j7tz3XAiX8p37KXJuDb2meW7o477KeW76LG3jkckYsmR7/q25cZa
+pui8923RndeGRX9b/bwaeUXft9XX3eU67ieW7/ZaZ5VoJx2V76LH29a2TM2V
+7Zy3mhmOvZBPszqWM4s1ieEzNxw733u+8Knku8Tjbj2WCfLd8Ltj67hAdO73
+ylvN4xjhQW1D5i3xXVv9e6f5srffMrSLDhoDekL57nrfx5wg38XzH/va6/nD
+uexz5oddciw0M6pDaR7rIfrccL1PH2rk8fbNd/G41TLTcQ1zzacd/yZbvou/
+Mwu8pu8Gr2n2cV7q0cxgLKRZrUfLNp93QL6L50SXmeIY9g1L5Lsnse9C1M81
+b8ua5sgxrOei+bJXe5/fuzbRUWOVB+S7tbUGmY5t+JhPId+dLNeE77L+dej3
+fK9+TIb9Rd+H1e//FB33cPzu0LVN++a7tTGuTMez92NOnO8mn/MKr2E/J238
+jq2i/tVs6lDCsQ/nZzeuRdjwGDvnu2Z9PjhnvvsUPW6J+dnhse09DrxPmyzE
+3j/fJ+05dhF9XrOM8yZyQC5T1BsP8/0hazn3yXevmsTa/UzHET9uifq7OIad
++7TNl3UZO33nNKt78M+iforjNBPVoTyzfDesD5l0fUW4b7xefhnd590hx9ms
+z4NsXZM6Qb57FT3ezu2ucG52fv7oHJqXYKtmtTai6jqUDefg2PWzt9FnL9nW
+COf6IXzHrIzhRfc7NN/FuWtrHkgce471ZHG/euO4Wjgf75s9xhMSxyrfsVUz
+s72MR87BsfnuXRNdtzZxn36s6Spx3lfG2kJ+SNYERm24lX2WRh53Y/+wWe0T
+7pTvdoghbuP98j0QxxJ+139X7LOWTL5jb83M9jIeOQc58l38GFeD/34Z8s6H
+Dc95HX7f54q1PmCTqFOO20SptuMwzw7udxXuF7fFNua7XWII90vt75ltnEK+
+Y1+J98ws57cy5ru1OuJN7awmvefwtv5w6v7X0f36/uHWHJM49kPyXbJvsGPO
+O2gdn3zHvpoZrSHbch5y5Lu+n3oZta/W2lYbXoON9x08V5wzkvMSzWoN7rD/
+ebXh2Hfpz+4Tw4uR74Hbbce6JYY431VbI08eUftitvP5mfLdyesWmy9z6wc/
+9yH5LncMJV4z5qeZyRqyHc5Djnx38nUpg77lwTU6GfLd0TGUeM2Yl2a17m6n
+tZa1OnYsaNBOPul8T+g3H/XaZch3R8eQKW75jlHN6rjzbPuyg/MxbOvulbcG
+Y2Qn69P1bcpj2+XH5LtcMRwYd7ZrD1C/5svcmX1hl2tj8PteK2s4JzBpO6P5
+ssfBwfsbRI93yHxF1hgOjHt4zmf/fc0v78uHJl0L8eC9snI+4rq1fa6VdbLP
+XhP2Ks34eIfku6wxHBDzSl2B72s6zcgenoO+gLbd6vk6i9t5u4zlRfnuWdX1
+HDt+VyDW96n3NGzId307ZpbrKXY8d1dRO+LdWF81Os/Pau6nWa8fflL7gTWP
+c0kr+6Dok5DSrO7jeRl+1382vWfynud+fODZXDehWa+NNh7Gsxb6AMP39O0u
+fTTqlchvY55N7gYAAAAAAAAAAAAAgN7/AXR17cM=
+          "], {{0, 227}, {316, 0}}, {
+          0, 255},
+          ColorFunction->RGBColor],
+         BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+         Selectable->False],
+        BaseStyle->"ImageGraphics",
+        ImageSize->{70.32291666666626, Automatic},
+        ImageSizeRaw->{316, 227},
+        PlotRange->{{0, 316}, {0, 227}}], "=", 
+       RowBox[{
+        RowBox[{"-", "i"}], " ", "e", " ", 
+        SubscriptBox["Q", "f"], 
+        SuperscriptBox["\[Gamma]", "\[Mu]"]}]}]},
+     {
+      RowBox[{
+       GraphicsBox[
+        TagBox[RasterBox[CompressedData["
+1:eJzt3T9uJFUewHHvQkCIT4BxXWAkUgJAPgBi5XxAwumuAKlFRuiQdDJiR+S9
+R+iAC7Q0J7B8g94q5s1O+fXrf3a9rnb9Pi19YGbcXfWMR19e/f/8h39/d/PP
+s7Oznz9p//Hd97Ovf/rp+1//9XH7m29+/eXHHz5qf/Hf1pf/ODvr/nC1WsHR
+tK/fWg+tt61XY48HoIaub93/Ynvejj0mgBra11dZ71ZjjwmgBr0DotA7IAq9
+A6LQOyAKvQOi0DsgCr0DotA7IAq9A6LQOyAKvQOiqNG75rOLWWt1gMua32Ma
+T+e+sO5F+trV2D8LoK6a87vUkeWGxr1pfVHr+2qXfd667a1v3o2n8J7+GLse
+3oz9MwHqqL092zWt0Lp5ze+pm6tlc7nrPT7Tb+Oi9pwTOL5j7L8rbEfOhl5H
+b139ben7Q+aQ3dzuqZ8FTt+Repdv01bZZsx6tde8rrCMW82DaZpK7wrbzW8G
+Gm/36/Oxf07A802od/k6njwvKxxffnI7gdMxhd4VtmMXz1ze+bHPmQHqm0jv
+Ftnyb09xmcC4XnrvNpzvcvBxisJyb7Nl3o/9swKeZwK9K13L8exjqrWWC4xn
+Ar3L52GrIY6nFvYJDjJvBMYzgd7d5V0aaLlXhd5VO08aqG8CvZvrHbAPvdu4
+XL2DCWpff/V69/vQy9c74JSked6rGsuu3Ls3Rzxe4V5RwFbORwGiqNy76xrn
+jRTOc7kfYt4ITFvN3qXl5/fXq3E92d3Y/x2B03eE3uX78GrcL8C5xsBOQ/Yu
+HUdYZH92OeS+tsK+u2f1E4hj4N4tS+eFFBr15O3PwngdpwD2MlTvek0r9qdZ
+Pxfvufdzd84dcJDC8YSDe9d8uO/Txvsypf1u/eY953k9gxz3AOJoyvenO6h3
+zePnK+68t3rh+MWhz2M0rwMO0mx+3nY3B9t6Lluaa82euo2aGrnI1rnredt/
+7/ezvw7YV+HYwZAOOuc3dbPU3EfHX9OYPaMCePEK88T3PG8RmJwtzXPtBDA5
+TeF+yPseBwF4abbsX7yzbQtMTTpPprR9u9z3GDDAS5LOWyndM3SZ5oHme8Dk
+NO/upTdL8mtC5voHAAAAwBi6ZzCmZzE+tF6PPR6AGrpnMGbP234Ye0wANaTn
+zvZ7txp7TAA16B0Qhd4BUegdEIXeAVHoHRCF3gFR6B0Qhd4BUegdEIXeAVHo
+HRCF3gFR6B0Qhd4BUegdEIXeAVHoHRCF3gFR6B0Qhd4BUegdEIXeAVHoHRCF
+3gFR6B0QRaF3D2OPCaCW9vVHr3evxx4PQE3t66L16djjAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAICa2ter7pk9Y48DoKb29afnMQJT53nbQBSF3q3GHhNA
+DXoHRKF3QBR6B0Shd0AUegdEoXdAFHoHRKF3QBR6B0Shd0AUegdEoXdAFHoH
+RKF3QBR6B0Shd0AUegdEoXdAFHoHRKF3QBR6B0Shd5yC9nWR/i5CTf85y3p3
+AmMihk9T616frf8dBJiSh9ar9O+xxwJQ2x+ttycwDoDafm99e2aOB0zbX62L
+sY+VAAAAAAAAAAAAAAAAAAAAAAAAMJzms4tZ6661yty2rtJ7ztPv34w9XuB0
+tY24Tq0o9eSLEcd10xvLLPvaVWuevrbovU/vgDVtGy5TM+b9rqXO3I/ZkG6d
+ad3dOC63vG+RNVrvgEe6vqWW3G34+mXWkfkRx9afa17veO9M74BN0r6uZerD
+trlTvo07O8LYrnrrWxz4fr0DHultKxbndr33XWct6eaD55XHtjykr4V5qN4B
+f8v6sGtb8bxwDGPrZ545tnyutvNYid4Bm2TbqBu3ZXvvv896cnuksa32/Ize
+AUWF45mHqtaTbGzLPT+jd8CafPt07PEUxnevd8AQCm3YuT175PGt9A4YQqEN
+V2OPKRvf6tD5p94BJYU2VD+f7sDxLbPxOT4LPFm2j2zn+byFz1c7/65ZvyeA
+8++AJys0Ze9t2ubDdRlV9vs169eG7byGTe+ATZrH9xxZpX7tNWdr3t1XoOb5
+KHm7dva4cT0ZsEVhP9li25wtzevmzY57lQw0tvya3a3zyebDtXF6B6wpzPH+
+v78sb0v6s/f7/KpdS9Zb33mzfk70fb4vL41rUWi33gGPFOZRu9wccWzv55M7
+x2R7FtjHns1bHnJMY+Dx3RS6N+/P9fQO2Ffz7r6f+XHRzl2+DXmK9A6IQu+A
+KPQOiELvgCj0DohC74Ao9A6Ioll/htrWZ64BvESpdaXncZz8eYMA+zjFa+AA
+AAAAAAAAAAAAAABy/wPEacaD
+          "], {{0, 188}, {316, 0}}, {0, 255},
+          ColorFunction->RGBColor],
+         BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+         Selectable->False],
+        BaseStyle->"ImageGraphics",
+        ImageSize->{79.36458333333275, Automatic},
+        ImageSizeRaw->{316, 188},
+        PlotRange->{{0, 316}, {0, 188}}], "=", 
+       RowBox[{"i", " ", "\[Lambda]", " ", 
+        SubscriptBox[
+         OverscriptBox["P", "^"], "R"]}]}], 
+      RowBox[{
+       GraphicsBox[
+        TagBox[RasterBox[CompressedData["
+1:eJzt3b9u68j1wPG5SYqU9hOsYr3ABW6bwgn8ABcbGEipXSBuY2wCGNupdOnW
+nWpX7t3oAVz4BQyoTKX4DRyONdrQozMUKc3MITlfA5/f765jy8ND8ehw/nD+
+9PM/f7z6nTHmX3+s/s+PP9385Zdffvr1b3+o/uOvv/77Hz//vvrHfypnX4yx
+33x/fwcAAAAAAAAAAAAAAAAAAABGr/qaV5Z2Cq37/xPtNgEoS/W1cjlo660y
+024XgHJUX3deHtqaabcNQBmqr3NXA5GLAKixfUKVFyEP2fz0Vbt9AMpQfZ1U
+HoVc9KLdNgDlcLlIqotmh77m9IfJbeXdeap80z5OAP3m7tH8/qLVIa9V5ZyH
+Wg7aWlfOAj9/I/z8lvg7AMap+ro+tiaydU9DTrkP/I6Ut6xb7ZgAyE+YV/TY
+5fe9+zGpJjoVfue17c8CGD9hXtFbl9+v1TZXwvesS+/nTwM560Y7FgB0uHlF
+/r1Z6zF8V9vs5JBazXPrff+SWgiAT8hD39v+rss30r3Xlcsxz973pfs4aiGg
+cMIY/rzt79o8FPj+qatz3ut5yuYlaiEAvto6/M55qEmtn+iy9r01tRAAX8I8
+dFPPNcIYP7UQgA/CfMbrGK9r5yS6fPPg/tufv0gtBGA7r9rvpz6P9fquP2jt
+/v1ALQTAZ+dPC3noJNbr18bHvnl91OJcawDlEfqGoq67r80X8u/JWEcGIHRP
+dhfzb9T6pl+phQD4hFrImsT+O8JYPbUQgNBa+0WKv+X1T1MLAQj1TSephSyv
+b4haCChcQw6ap/qb083zGamFgMKZ8HOpP/ZVTPV3q9xzwT0ZAFcDhfYMeok5
+X8hnc08tDz1pxwJAfrbvOZB/cuSgM2+cTFybD2CcTHhPjiTzhCTC3MW1dlwA
+5NNQB73EXD/WZCo8h1o7LgDysGNfWjXQlvCMD/IQUIjq62sgB81ytkO4JyMP
+AYUIrNWI8jyhLrxxMvqHgEIYee+NTvuRxRJ4Hv6DdowApBXom55otEUYs9/Z
+ywzA+ORat9rW9PNeZVeabQGQXuCerPV+iABwLGGsfqXdJgBlEdawLrXbBKAs
+wnj9XLtNAMpCHgKgjTwEQJuQhxbabQJQFmG8LOo+ZACwj5GfOz3RbheAchh5
+T8Ts61sBlM3sPn9xpd0mAGUJ3JvNtdsFoCxG3peDdWYAsgnURG/kIgA5CXOJ
+yEUAsjKbPYNC+ybOtdsHoAxm87z8UC5amUx7BwEo255clH0PDwBlcvdoUn8R
+69AAZOXG0UK10Uy7fQDKsKc2OtduH4ByGHl/Idt3faLdNgDlMLvPs2ZMH0BW
+gTlGb9REAHIKrAGZabcLQFlcv1A9Dz1qtwlAWaqva78m0m4TgLK4OdeM4QNQ
+JeSh79ptAlAWs/s82bl2mwCURZhjPdduE4CykIcAaGMOEQBNRt737Fy7XQDK
+EZhTzdoOANkIfUMv2m0CUA57/yXUQuxFDSAbYd6QNdFuF/acty/mpnJfeXJe
+tdsEHMKOzQs5aKHdLrQ4d1+qc/XZrXabgK4CfdNv1EL9V+Wcb0IeutBuF9BF
+oA6iX2ggqpxz5eWgtXabgLbcPCF/bIz7sYFx/ULck2FwGmogxukHpso7z14e
++qbdJqCJYQ/FUalyzqmXgxgnQ6+5HCSNy9MfNFBV3rn08tCNdpuAJg05aMm4
+2DDZviAvD51qtwkIqb7uqIHGx+sbutduDxASWKvBszwGrso7Z/RPYygC92Mz
+7XbhyPP6ed7Qk3Z7gJDq67uQg9iPbASq3POwnbdILYQ+M7t71rNP9EiQexpj
+c+bW/tbt3L/a9S9CX79dJ3ypfQxj4cbp/VroTrtdJeF6yB7vC2Gt3c78Kjfv
+6mHPzzIHIsY5ke/Jvmq3qwRcD/qEuVXvLtefuXFGux7mbM95YL3wsedhd+3G
+SrtNJeJ6UI29v+blyn1PjKf9fPB+/kH7GIZO6Buif1rrXHA99CHuaxfXYL+a
+d9/MswtinAP2IOsNrgeVmPtr7/be45rdZ6i8b2tVHHgeyEO9wPWgFnf/ftjm
+/8Z1L8Q9wXkgD/UC14Na3P3xx739/cQ9wXnYzUP0D2mcB64Hrbj7fXJ74yfc
+D7/v+8zAnpgyXtYLXA8qMffvhZ9b/p7/mcHznI49F/L8oYl2u0rC9aAW94Oe
+yyR8ZjBOeey5kOdTz7XbVRKuB7W4+3Ow9q6BCYwnMJ89xvnY7SNifVnO+HM9
+aMV93bWWFPrkqEFjnQ95XzLWmOWKP9eDRsz9/dxa7V9iNuv5OteuaHlejFkJ
+uehcu11jx/WgFne/j3/vmhizux6Q3B/7vMj91W+seU0cd64HrbjX83ireehC
+7ueZKinOze5as20u+q7dtrHielCJud+3trd/X8j91J+pzk/znkEL+q4jx5vr
+QSvuncYn3Xmqrylmr4HU58h87CP9FshF1EYxY831oBV3f95VYz3p/TzP+M51
+nvbvpchYWow4cz1oxf3Tcw32/Gy9/475WbnP1SYXhfYz+7hP027j0HE9qMTc
+30cpmM+9vM/9r+Z52+xrJo3pUxcdE1euB6247zyzyXjzP93PbO9/nxgH6AdX
+Gy0CuYj+okNiyvWgFXd/7vqN8L1X933i3UOBXMQakENiyfWgFff63PVW64nR
+P4FcNNdu19BwPajE3J+7znjjQLl7NL+/iJqoSwy5HrTi7t8Lsy54wFzftV8T
+XWu3ayi4HtTi7j8nhWfGDZxQEy212zQUXA8qMffnrrMmbwRs/ePXRNptGgKu
+B7W4+3PXmYM1AnYdvnBvdq7drr7jelCLe+d9CDAMQh6aabep77ge1OK+NvTJ
+jZJh77PuMeN60Ii5/4wCa+9znjAM5KGO8eJ60Ir5qxB3Oz+dvd5GgDzUIVZc
+D7nj7a/fa3Kl3V4cca7pH9ofI64HIBnGywBoY/4QSufWFUy021Eys/u8xqV2
+m/rG1YzsdzJStj90+96nT0Il/qwvC8fmxNWK2zx9rt0mJD3X9fVNdr33HTWS
+SuxZb//+W25eeHFZaLcLyc+7tO8fNVL6uPvXWrHj9bXax8/L5OaCGHnfP2qk
+dPGWclBx11ug9uE+tVA2x5jwXlvUSHFjHbruing+9Z7ax/ei3V5kf3/MW7wv
+/BppRp3UOr72sz+0l9mo9+swm/Gu6xa1D/Oo4sR72THOY2Hz0qPLZbx3Pr8n
+itq/zB3vd/deKPV6+I3SOSg+7jX2s39bMxU598MUsJ+r2dR521pn1YP3Xa8o
+nZOl9nH32JuLz9wUkJdMcw4a7P72ZlPr3PFeb0fpHHFuwmxs7PvXvo8n2tdT
+4vdBUw5amAGPi5lNX8/MHUdTrQdjQ6Z2js4H7DZS/Fdm8z619froax/hfSDN
+gxhsDdTieO17Z+6Ou824axt/78H1cDTtczM0ZvMZfuh7aGk270Nb6wz2sz5S
+HKV5oTauxeRjs5kHMjOb+vfQmmmpfRxQee80jen47HuryFqnRRxXQrxGWQd1
+jMu5e49J8QkpPm4lMfIzcKTP9AW5pzGOMyFugx8TSxAnWzM2zeGv398XXV+X
+xDT3r7+464v3Q/c4FrdWo2O87P3bfE+NRB4vQOAzfDtfmtqnfRxPhDjOtds1
+FKZ5rRnvwxEzu33T9vN8pt2uITJy//REu11DY+T1Z0vtdiHpOb8zrKePFcu5
+37eh3aah82qkmXZ7kOw8U+/Gi6Xf7/qo3aaxcDXSRLsdQN8JfdRz7TYBKAt5
+CIA28hAAbfQPAdDGeBkAbcwfAqAtMJ+aNQkAshL6iFhfBiCrwL0Z/dUAsjLy
+c79m2u0CUA63JkpaMz7TbhuAcpjwsy3ZIxmfuPGNhZsHm4PtwzxPeDxfFY4n
+2TpZdzyPGY/Hxm4Ssf2h5zL/N+PxJOsjN5u+sFznxrpLfDyzzMczd3/X/jv0
+DLhU7PhJtPe6F8eVxvEkfF/E2vehi1XE9u/bQzGHJH3kpt1zhFNYJMypGscz
+V3xvnCeKpdbxRK+JTLiPJbnIx2Fz0VLx3EQ9ntpxXSsdzzLR8cy1jseEn0GZ
+UrL5JEbn/b5KcSzueFYa74tExxJrX7iuFomOZ6J0PEnmhRq9zz2bz7fPn5xn
+NEl43Z5kPpbUxzPJfCwf74mEx/Nns+njGMvxfM19flIdSy0X5TyeWcrjAQAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBjTH+Y3FTeOzhL3BZrLfzdZ/e/
+XWjHDEAa7hp/DeSe+8q3RH/3tHJb+1tPti3Cz9TbZ/PUlXbMAMRnc42Qg54S
+/r0Lr/a5bPE79Zz1nLI+A6BDuCe6SfR36veD6y71lq2FDv1dAP0n3JtFv//x
+8kirOkh4jVtyETBOqfOQcO93H6mt9t+n2vEDcLwMech//YPrGGGs7+CcBqA/
+UuYh4X7s+cjXO805rwBAHonz0LP32rd9fE0AulLlocCcgM7908Lr3nqvudaO
+IYDjJMxD0rzto8e4Ur0uAD0J85Bft7zHGN8S+pyi1FkA9CTMQw9+voj0uhdC
+Hkoy9xJAHgnz0BN5CEAb5CEA2shDALQlzEP3GfupeSYIMGCM2wPQljAPXaYY
+XxfmA6xj1FkA9KTKQ+61/WcbpVjX8aAdQwDHSZyH/D6iFOtcmcMIDFzMPOT6
+kJ9r/30Wsy9H6Bs6Kq8B6IfIeejVH0MXcsfB91FCW+mfBkYgVh6q5Zud3DDd
+nUt07HNhmTMEjIjQl9w5D03//4wP8Rkcrl+nnouOeU5+lP5uAP0wlZ8R1CkP
+TT/vBdT4nFah37rrvkHUQcCITMP7KNq6pXE+jqtPbg6533J569n7e/v2Ufzo
+V6I/CBgHod84ptbzCV0uC+0n+9t4mGsvz6AGkIxQU22xLxCAbBpyEXOlAWQz
+FZ7f2KbvGwBiaui7euAeDUAubi6BdJ/22mY8DgBiceP70rPUXl3dRH0EIJvp
+5llGN44///uJvAQAAAAAAAAAAAAAAAAAAAAAAACgdP8D/KOJcg==
+          "], {{0, 
+          232}, {290, 0}}, {0, 255},
+          ColorFunction->RGBColor],
+         BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+         Selectable->False],
+        BaseStyle->"ImageGraphics",
+        ImageSize->{65.6015625000006, Automatic},
+        ImageSizeRaw->{290, 232},
+        PlotRange->{{0, 290}, {0, 232}}], "=", 
+       RowBox[{
+        RowBox[{"-", "i"}], " ", "e", " ", 
+        SuperscriptBox[
+         RowBox[{
+          SubscriptBox["Q", "LQ"], "(", 
+          RowBox[{"p", "-", 
+           SuperscriptBox["p", "\[Prime]"]}], ")"}], "\[Mu]"]}]}]}
+    },
+    GridBoxAlignment->{
+     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+      "RowsIndexed" -> {}},
+    GridBoxSpacings->{"Columns" -> {
+        Offset[0.27999999999999997`], {
+         Offset[3.8499999999999996`]}, 
+        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+        Offset[0.2], {
+         Offset[0.4]}, 
+        Offset[0.2]}, "RowsIndexed" -> {}}], TraditionalForm]], "InlineMath"]
+}], "Text",
+ Deletable->True,
+ CellID->541173337],
+
+Cell[TextData[{
+ "Electric charge conservation at the leptoquark-fermion vertices implies ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["Q", "LQ"], "=", 
+    RowBox[{
+     SubscriptBox["Q", "\[ScriptL]"], "-", 
+     SubscriptBox["Q", "q"]}]}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Text",
+ Deletable->True,
+ CellID->877254112],
+
+Cell[TextData[{
+ "We will use ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to project out the form factors out of the amplitude:"
+}], "Text",
+ CellID->638027488],
+
+Cell[BoxData[GridBox[{
+   {
+    RowBox[{
+     RowBox[{
+      ButtonBox["Projector",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Projector"], "[", 
+      RowBox[{"\"\<\!\(\*
+StyleBox[\"name\", \"TI\"]\)\>\"", ",", " ", 
+       StyleBox["\[Mu]", "TR"]}], "]"}], "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["p", "TI"], 
+         StyleBox["1", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["p", "TI"], 
+         StyleBox["2", "TR"]], ",", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["2", "TR"]]}], "}"}]}], "]"}], Cell[TextData[{
+     "gives the projector for the on shell vector/axial-vector form factor \
+associated with \"",
+     StyleBox["name", "TR",
+      FontSlant->"Italic"],
+     "\" and index ",
+     Cell[BoxData["\[Mu]"], "InlineFormula",
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "."
+    }], "TableText"]}
+  }]], "DefinitionBox",
+ CellID->1875838614],
+
+Cell["Projecting form factors.", "Caption",
+ CellID->12163891],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "\[LineSeparator]In ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X, the on-shell vector/axial-vector vertex matrix ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      StyleBox[
+       SubscriptBox["p", 
+        StyleBox["2",
+         FontWeight->"Plain"]],
+       FontWeight->"Bold"], ")"}], "[", " ", 
+     RowBox[{
+      SuperscriptBox["M", "\[Mu]"], "(", "q", ")"}], " ", "]"}], 
+    RowBox[{"u", "(", 
+     StyleBox[
+      SubscriptBox["p", 
+       StyleBox["1",
+        FontWeight->"Plain"]],
+      FontWeight->"Bold"], ")"}]}], TraditionalForm]], "InlineMath"],
+ " is parametrized as:"
+}], "Text",
+ Deletable->True,
+ CellID->1400042442],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["M", "\[Mu]"], " ", "=", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["\[Gamma]", "\[Mu]"], "-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"q", ".", "\[Gamma]"}], " ", 
+          SuperscriptBox["q", "\[Mu]"]}], 
+         SuperscriptBox["q", "2"]]}], ")"}], " ", 
+      RowBox[{
+       SubscriptBox["F", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], " ", "+", " ", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"\[ImaginaryI]", " ", 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        SubscriptBox["q", "\[Nu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], 
+      RowBox[{
+       SubscriptBox["F", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"2", 
+        SuperscriptBox["q", "\[Mu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], " ", 
+      RowBox[{
+       SubscriptBox["F", "3"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["\[Gamma]", "\[Mu]"], "-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"q", ".", "\[Gamma]"}], " ", 
+          SuperscriptBox["q", "\[Mu]"]}], 
+         SuperscriptBox["q", "2"]]}], ")"}], 
+      SubscriptBox["\[Gamma]", "5"], " ", 
+      RowBox[{
+       SubscriptBox["G", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"\[ImaginaryI]", " ", 
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+        SubscriptBox["\[Gamma]", "5"], 
+        SubscriptBox["q", "\[Nu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], 
+      RowBox[{
+       SubscriptBox["G", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}], "+", " ", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"2", 
+        SuperscriptBox["q", "\[Mu]"]}], 
+       RowBox[{
+        SubscriptBox["m", "1"], "+", 
+        SubscriptBox["m", "2"]}]], 
+      SubscriptBox["\[Gamma]", "5"], " ", 
+      RowBox[{
+       SubscriptBox["G", "3"], "(", 
+       SuperscriptBox["q", "2"], ")"}]}]}]}], ","}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->104519348]
+}, Open  ]],
+
+Cell[TextData[{
+ "with ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "\[Mu]"], "=", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "2"], "-", 
+       SubscriptBox["p", "1"]}], ")"}], "\[Mu]"]}], TraditionalForm]], 
+  "InlineMath"],
+ "."
+}], "Text",
+ Deletable->True,
+ CellID->1092362193],
+
+Cell[BoxData[GridBox[{
+   {Cell["name", "TableHeader"], Cell["Form factor", "TableHeader"]},
+   {
+    RowBox[{
+     StyleBox["\"\<Dirac\>\"", "InlineCode"], "or", 
+     StyleBox["\"\<F1\>\"", "InlineCode"]}], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["F", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"]},
+   {
+    RowBox[{
+     StyleBox["\"\<Pauli\>\"", "InlineCode"], "or", 
+     StyleBox["\"\<F2\>\"", "InlineCode"]}], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["F", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"]},
+   {
+    StyleBox["\"\<F3\>\"", "InlineCode"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["F", "3"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"]},
+   {
+    RowBox[{
+     StyleBox["\"\<Anapole\>\"", "InlineCode"], "or", 
+     StyleBox["\"\<G1\>\"", "InlineCode"]}], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["G", "1"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"]},
+   {
+    RowBox[{
+     StyleBox["\"\<EDM\>\"", "InlineCode"], "or", 
+     StyleBox["\"\<G2\>\"", "InlineCode"]}], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["G", "2"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"]},
+   {
+    StyleBox["\"\<G3\>\"", "InlineCode"], Cell[TextData[Cell[BoxData[
+     FormBox[
+      RowBox[{
+       SubscriptBox["G", "3"], "(", 
+       SuperscriptBox["q", "2"], ")"}], TraditionalForm]], "InlineMath"]], 
+     "TableText"]}
+  }]], "DefinitionBox",
+ CellID->755283253],
+
+Cell[TextData[{
+ "Possible values for \"",
+ StyleBox["name", "TR",
+  FontSlant->"Italic"],
+ "\" for vector/axial-vector vertex projections."
+}], "Caption",
+ CellID->269795754],
+
+Cell[TextData[{
+ "The following mnemonic is helpful to remember the ordering of kinematic \
+arguments for an on-shell vertex form factor ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Text",
+ CellID->1335093557],
+
+Cell[TextData[{
+ "\t(1) Bring the barred spinor to the other side:\[LineSeparator]\t\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"[", " ", 
+     RowBox[{"M", "(", "q", ")"}], " ", "]"}], " ", 
+    RowBox[{"u", "(", 
+     StyleBox[
+      SubscriptBox["p", 
+       StyleBox["1",
+        FontWeight->"Plain"]],
+      FontWeight->"Bold"], ")"}], 
+    RowBox[{
+     OverscriptBox["u", "_"], "(", 
+     StyleBox[
+      SubscriptBox["p", 
+       StyleBox["2",
+        FontWeight->"Plain"]],
+      FontWeight->"Bold"], ")"}]}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]\t(2) Replace ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{" ", 
+    RowBox[{
+     RowBox[{"u", "(", 
+      StyleBox[
+       SubscriptBox["p", 
+        StyleBox["1",
+         FontWeight->"Plain"]],
+       FontWeight->"Bold"], ")"}], 
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      StyleBox[
+       SubscriptBox["p", 
+        StyleBox["2",
+         FontWeight->"Plain"]],
+       FontWeight->"Bold"], ")"}]}]}], TraditionalForm]], "InlineMath"],
+ " with ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      ButtonBox["Projector",
+       BaseStyle->"Link",
+       ButtonData->"paclet:X/ref/Projector"], "[", "\<\"\"\>", "\"\<\>", 
+      StyleBox["name", "TI"]}], "\"\<\>", "\<\"\"\>", ",", "\[Mu]"}], "]"}], 
+   "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      SubscriptBox[
+       StyleBox["p", "TI"], 
+       StyleBox["1", "TR"]], ",", 
+      SubscriptBox[
+       StyleBox["m", "TI"], 
+       StyleBox["1", "TR"]]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      SubscriptBox[
+       StyleBox["p", "TI"], 
+       StyleBox["2", "TR"]], ",", 
+      SubscriptBox[
+       StyleBox["m", "TI"], 
+       StyleBox["2", "TR"]]}], "}"}]}], "]"}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":\[LineSeparator]\t\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"[", " ", 
+     RowBox[{"M", "(", "q", ")"}], " ", "]"}], "  ", 
+    RowBox[{"\[CapitalLambda]", "(", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        StyleBox[
+         SubscriptBox["p", 
+          StyleBox["1",
+           FontWeight->"Plain"]],
+         FontWeight->"Bold"], ",", 
+        SubscriptBox["m", "1"]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        StyleBox[
+         SubscriptBox["p", 
+          StyleBox["2",
+           FontWeight->"Plain"]],
+         FontWeight->"Bold"], ",", 
+        SubscriptBox["m", "2"]}], "}"}]}], ")"}]}], TraditionalForm]], 
+  "InlineMath"],
+ "\[LineSeparator]\t(3) Take the trace with ",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":\[LineSeparator]\t\t",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"Tr", "(", 
+    RowBox[{
+     RowBox[{"[", " ", 
+      RowBox[{"M", "(", "q", ")"}], " ", "]"}], "  ", 
+     RowBox[{"\[CapitalLambda]", "(", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         StyleBox[
+          SubscriptBox["p", 
+           StyleBox["1",
+            FontWeight->"Plain"]],
+          FontWeight->"Bold"], ",", 
+         SubscriptBox["m", "1"]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         StyleBox[
+          SubscriptBox["p", 
+           StyleBox["2",
+            FontWeight->"Plain"]],
+          FontWeight->"Bold"], ",", 
+         SubscriptBox["m", "2"]}], "}"}]}], ")"}]}], ")"}], TraditionalForm]],
+   "InlineMath"]
+}], "Text",
+ CellID->293989272],
+
+Cell[TextData[{
+ "The kinematic arguments are the same order as that of the spinors ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"u", "(", 
+     StyleBox[
+      SubscriptBox["p", 
+       StyleBox["1",
+        FontWeight->"Plain"]],
+      FontWeight->"Bold"], ")"}], 
+    RowBox[{
+     OverscriptBox["u", "_"], "(", 
+     StyleBox[
+      SubscriptBox["p", 
+       StyleBox["2",
+        FontWeight->"Plain"]],
+      FontWeight->"Bold"], ")"}]}], TraditionalForm]], "InlineMath"],
+ "."
+}], "Text",
+ CellID->830815930],
+
+Cell[TextData[{
+ "Keep in mind that for our example, the momentum transfer ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["q", "\[Mu]"], TraditionalForm]], "InlineMath"],
+ " is directed out of the graph while the definitions observed by ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " have it directed inwards.  Therefore we should remember to flip the sign \
+of ",
+ Cell[BoxData[
+  FormBox["q", TraditionalForm]], "InlineMath"],
+ " when writing down the full amplitude."
+}], "Text",
+ CellID->1845320454],
+
+Cell[TextData[{
+ "We will use ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to compute the one-loop integrals."
+}], "Text",
+ CellID->1905112149],
+
+Cell[BoxData[GridBox[{
+   {
+    RowBox[{
+     ButtonBox["LoopIntegrate",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopIntegrate"], "[", 
+     RowBox[{
+      StyleBox["num", "TI"], ",", " ", 
+      StyleBox["k", "TI"], ",", " ", 
+      RowBox[{"{", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["q", "TI"], 
+         StyleBox["0", "TR"]], ",", " ", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["0", "TR"]]}], "}"}], ",", " ", 
+      RowBox[{"{", 
+       RowBox[{
+        SubscriptBox[
+         StyleBox["q", "TI"], 
+         StyleBox["1", "TR"]], ",", " ", 
+        SubscriptBox[
+         StyleBox["m", "TI"], 
+         StyleBox["1", "TR"]]}], "}"}], ",", " ", "..."}], "]"}], Cell[
+    TextData[{
+     "expresses the one-loop tensor integral over integration variable ",
+     Cell[BoxData[
+      StyleBox["k", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " with numerator ",
+     Cell[BoxData[
+      StyleBox["num", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " and denominator factors ",
+     Cell[BoxData[
+      FormBox[
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           SubsuperscriptBox["q", "0", "2"], "-", 
+           SubsuperscriptBox["m", "0", "2"]}], ")"}], 
+         RowBox[{"(", 
+          RowBox[{
+           SubsuperscriptBox["q", "1", "2"], "-", 
+           SubsuperscriptBox["m", "1", "2"]}], ")"}]}], "..."}], 
+       TraditionalForm]], "InlineMath"],
+     " in terms of Passarino-Veltman coefficient functions."
+    }], "TableText"]},
+   {
+    RowBox[{
+     ButtonBox["LoopRefine",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopRefine"], "[", 
+     StyleBox["expr", "TI"], "]"}], Cell[TextData[{
+     "converts the Passarino-Veltman coefficient functions in ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " to simple functions that can be numerically evaluated."
+    }], "TableText"]}
+  }]], "DefinitionBox",
+ CellID->2102276150],
+
+Cell["Computing one loop integrals", "Caption",
+ CellID->406808959],
+
+Cell[TextData[{
+ "Usually, vertex form factor projections lead to spurious kinematic \
+singularities.  However, if ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " detects a vertex ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in the numerator, ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will automatically attempt to remove the singularity (",
+ ButtonBox["more details",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/ref/Projector#1710301550"],
+ ").  Therefore, we will directly input the numerator inside of ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to effect the automatic cancellation of spurious singularities."
+}], "Text",
+ CellID->2109652310]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Detailed calculation of ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ ", and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "3"], TraditionalForm]], "InlineMath"]
+}], "Section",
+ Deletable->True,
+ CellID->823350659],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+We are now ready to systematically extract all form factors out of the \
+scattering amplitude.  The amplitudes corresponding to each diagram are:\
+\>", "Text",
+ CellID->918036806],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"i", " ", 
+    SubscriptBox["\[ScriptCapitalM]", "1"]}], "=", 
+   RowBox[{"e", " ", 
+    SubscriptBox["Q", "\[ScriptL]"], 
+    SubscriptBox["N", "C"], " ", 
+    SuperscriptBox["\[Lambda]", "2"], " ", 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SubscriptBox[
+          OverscriptBox["u", "_"], "e"], "(", 
+         RowBox[{
+          StyleBox["p",
+           FontWeight->"Bold"], "-", 
+          StyleBox["q",
+           FontWeight->"Bold"]}], ")"}], 
+        SuperscriptBox["\[Gamma]", "\[Mu]"], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"p", ".", "\[Gamma]"}], "+", 
+          SubscriptBox["m", "e"]}], ")"}], " ", 
+        RowBox[{
+         SubscriptBox[
+          OverscriptBox["P", "^"], "L"], "(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], " ", "+", 
+          SubscriptBox["m", "q"]}], ")"}], 
+        SubscriptBox[
+         OverscriptBox["P", "^"], "R"], " ", 
+        RowBox[{
+         SubscriptBox["u", "\[Mu]"], "(", 
+         StyleBox["p",
+          FontWeight->"Bold"], ")"}]}], 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["p", "2"], "-", 
+           SubsuperscriptBox["m", "e", "2"]}], ")"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "q", "2"]}], "]"}], 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SubsuperscriptBox["M", "LQ", "2"]}], ")"}]}]], "\[Times]", 
+      RowBox[{
+       SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+       StyleBox["q",
+        FontWeight->"Bold"], ")"}]}]}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->984585190],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"i", " ", 
+    SubscriptBox["\[ScriptCapitalM]", "2"]}], "=", 
+   RowBox[{"e", " ", 
+    SubscriptBox["Q", "q"], 
+    SubscriptBox["N", "C"], " ", 
+    SuperscriptBox["\[Lambda]", "2"], " ", 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SubscriptBox[
+          OverscriptBox["u", "_"], "e"], "(", 
+         RowBox[{
+          StyleBox["p",
+           FontWeight->"Bold"], "-", 
+          StyleBox["q",
+           FontWeight->"Bold"]}], ")"}], " ", 
+        SubscriptBox[
+         OverscriptBox[
+          RowBox[{" ", "P"}], "^"], "L"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+          
+          SubscriptBox["m", "q"]}], ")"}], " ", 
+        RowBox[{
+         SuperscriptBox["\[Gamma]", "\[Mu]"], "(", " ", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+          SubscriptBox["m", "q"]}], ")"}], 
+        SubscriptBox[
+         OverscriptBox["P", "^"], "R"], "  ", 
+        RowBox[{
+         SubscriptBox["u", "\[Mu]"], "(", 
+         StyleBox["p",
+          FontWeight->"Bold"], ")"}]}], 
+       RowBox[{
+        RowBox[{
+         RowBox[{"[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k", "-", "q"}], ")"}], "2"], "-", 
+           SubsuperscriptBox["m", "q", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "q", "2"]}], "]"}], 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SubsuperscriptBox["M", "LQ", "2"]}], ")"}]}]], "\[Times]", 
+      RowBox[{
+       SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+       StyleBox["q",
+        FontWeight->"Bold"], ")"}]}]}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1561788195],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"i", " ", 
+    SubscriptBox["\[ScriptCapitalM]", "3"]}], "=", 
+   RowBox[{"e", " ", 
+    SubscriptBox["Q", "LQ"], 
+    SubscriptBox["N", "C"], " ", 
+    SuperscriptBox["\[Lambda]", "2"], " ", 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SubscriptBox[
+          OverscriptBox["u", "_"], "e"], "(", 
+         RowBox[{
+          StyleBox["p",
+           FontWeight->"Bold"], "-", 
+          StyleBox["q",
+           FontWeight->"Bold"]}], ")"}], " ", 
+        SubscriptBox[
+         OverscriptBox[
+          RowBox[{" ", "P"}], "^"], "L"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+          SubscriptBox["m", "q"]}], ")"}], 
+        SubscriptBox[
+         OverscriptBox["P", "^"], "R"], "  ", 
+        RowBox[{
+         SubscriptBox["u", "\[Mu]"], "(", 
+         StyleBox["p",
+          FontWeight->"Bold"], ")"}], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"2", 
+           SuperscriptBox["k", "\[Mu]"]}], "-", 
+          SuperscriptBox["q", "\[Mu]"]}], ")"}]}], 
+       RowBox[{
+        RowBox[{
+         RowBox[{"[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k"}], ")"}], "2"], "-", 
+           SubsuperscriptBox["m", "q", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "-", "q"}], ")"}], "2"], "-", 
+          SubsuperscriptBox["M", "LQ", "2"]}], "]"}], 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SubsuperscriptBox["M", "LQ", "2"]}], ")"}]}]], "\[Times]", 
+      RowBox[{
+       SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+       StyleBox["q",
+        FontWeight->"Bold"], ")"}]}]}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->281576084],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"i", " ", 
+    SubscriptBox["\[ScriptCapitalM]", "4"]}], "=", 
+   RowBox[{"e", " ", 
+    SubscriptBox["Q", "\[ScriptL]"], 
+    SubscriptBox["N", "C"], " ", 
+    SuperscriptBox["\[Lambda]", "2"], " ", 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SubscriptBox[
+          OverscriptBox["u", "_"], "e"], "(", 
+         RowBox[{
+          StyleBox["p",
+           FontWeight->"Bold"], "-", 
+          StyleBox["q",
+           FontWeight->"Bold"]}], ")"}], 
+        SubscriptBox[
+         OverscriptBox[
+          RowBox[{" ", "P"}], "^"], "L"], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], " ", 
+          "+", 
+          SubscriptBox["m", "q"]}], ")"}], " ", 
+        RowBox[{
+         SubscriptBox[
+          OverscriptBox["P", "^"], "R"], "(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "q"}], ")"}], ".", "\[Gamma]"}], " ", "+", 
+          SubscriptBox["m", "\[Mu]"]}], ")"}], 
+        SuperscriptBox["\[Gamma]", "\[Mu]"], " ", 
+        RowBox[{
+         SubscriptBox["u", "\[Mu]"], "(", 
+         StyleBox["p",
+          FontWeight->"Bold"], ")"}]}], 
+       RowBox[{
+        RowBox[{
+         RowBox[{"[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k", "-", "q"}], ")"}], "2"], "-", 
+           SubsuperscriptBox["m", "q", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"p", "-", "q"}], ")"}], "2"], "-", 
+          SubsuperscriptBox["m", "\[Mu]", "2"]}], "]"}], 
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["k", "2"], "-", 
+          SubsuperscriptBox["M", "LQ", "2"]}], ")"}]}]], "\[Times]", 
+      RowBox[{
+       SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+       StyleBox["q",
+        FontWeight->"Bold"], ")"}]}]}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1542769447]
+}, Open  ]],
+
+Cell[TextData[{
+ "For convenience, the electron and muon propagators are left under the \
+integral sign in ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["\[ScriptCapitalM]", "1"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["\[ScriptCapitalM]", "4"], TraditionalForm]], "InlineMath"],
+ " although they are independent of the integration momentum, ",
+ Cell[BoxData[
+  FormBox["k", TraditionalForm]], "InlineMath"],
+ "."
+}], "Text",
+ CellID->343459240],
+
+Cell[TextData[{
+ "Since all diagrams share a common set of kinematic conditions ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["p", "2"], "=", 
+    SubsuperscriptBox["m", "\[Mu]", "2"]}], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{"p", "-", "q"}], ")"}], "2"], "=", 
+    SubsuperscriptBox["m", "e", "2"]}], TraditionalForm]], "InlineMath"],
+ ", it is convenient to store the set of kinematic rules as a global variable."
+}], "Text",
+ CellID->1613441702],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Globally define the kinematic conditions but keep ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "\[NotEqual]", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " for future convenience:"
+}], "MathCaption",
+ Deletable->True,
+ CellID->1827851136],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Needs", "[", "\"\<X`\>\"", "]"}], ";"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->26548262],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"onShell", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p", ".", "p"}], "\[Rule]", 
+      SuperscriptBox["m\[Mu]", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p", ".", "q"}], "\[Rule]", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["m\[Mu]", "2"], "-", 
+         SuperscriptBox["me", "2"], "+", 
+         RowBox[{"q", ".", "q"}]}], ")"}], "/", "2"}]}]}], "}"}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->940472417]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Form factor ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ ", and the non-renormalization of off-diagonal elements of the electric \
+charge operator"
+}], "Subsection",
+ Deletable->True,
+ CellID->863086736],
+
+Cell[CellGroupData[{
+
+Cell["Initialize an empty array to store results of each diagram:", \
+"MathCaption",
+ CellID->836781195],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"diagramF1", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{"0", ",", 
+    RowBox[{"{", "4", "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->2058623809],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
+ ImageSize->{79, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->741942040]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Compute each integral, extracting form factor ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ ".  The ",
+ Cell[BoxData[
+  FormBox["k", TraditionalForm]], "InlineMath"],
+ "-indepenent electron and muon propagator factors in the first and fourth \
+integrals are included inside ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " will automatically factor them out:"
+}], "MathCaption",
+ Deletable->True,
+ CellID->2011238709],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{
+   "diagramF1", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=", 
+   RowBox[{
+    RowBox[{"Q\[ScriptL]", " ", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Spur", "[", 
+        RowBox[{
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{"p", ".", "\[Gamma]"}], "+", 
+          RowBox[{"me", " ", "\[DoubleStruckOne]"}]}], ",", 
+         "\[DoubleStruckCapitalP]L", ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+         "\[DoubleStruckCapitalP]R", ",", 
+         RowBox[{
+          RowBox[{"Projector", "[", 
+           RowBox[{"\"\<F1\>\"", ",", "\[Mu]"}], "]"}], "[", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+       ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{"p", ",", "me"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+   "diagramF1", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "=", 
+   RowBox[{
+    RowBox[{"Qq", " ", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Spur", "[", 
+        RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+          
+          RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+         "\[DoubleStruckCapitalP]R", ",", 
+         RowBox[{
+          RowBox[{"Projector", "[", 
+           RowBox[{"\"\<F1\>\"", ",", "\[Mu]"}], "]"}], "[", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+       ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+   "diagramF1", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "=", 
+   RowBox[{
+    RowBox[{"QLQ", " ", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Contract", "[", 
+        RowBox[{
+         RowBox[{"Spur", "[", 
+          RowBox[{"\[DoubleStruckCapitalP]L", " ", ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+            RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+           "\[DoubleStruckCapitalP]R", ",", 
+           RowBox[{
+            RowBox[{"Projector", "[", 
+             RowBox[{"\"\<F1\>\"", ",", "\[Mu]"}], "]"}], "[", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{
+               RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+         
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", 
+            SubscriptBox["k", "\[Mu]"]}], "-", 
+           SubscriptBox["q", "\[Mu]"]}], ")"}]}], "]"}], ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "-", "q"}], ",", "mLQ"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"diagramF1", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}],
+   "=", 
+  RowBox[{
+   RowBox[{"Q\[ScriptL]", " ", 
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+        "\[DoubleStruckCapitalP]R", ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"p", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"m\[Mu]", " ", "\[DoubleStruckOne]"}]}], ",", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{
+         RowBox[{"Projector", "[", 
+          RowBox[{"\"\<F1\>\"", ",", "\[Mu]"}], "]"}], "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+      ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"p", "-", "q"}], ",", "m\[Mu]"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", 
+   "onShell"}]}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->158487816],
+
+Cell[BoxData[
+ RowBox[{"Q\[ScriptL]", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{"m\[Mu]", " ", 
+       RowBox[{"PVB", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{"me", "-", "m\[Mu]"}], ")"}]}]]}], "-", 
+    FractionBox[
+     RowBox[{"m\[Mu]", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "-", "m\[Mu]"}], ")"}]}]]}], ")"}]}]], "Output",
+ ImageSize->{397, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->395652882],
+
+Cell[BoxData[
+ RowBox[{"Qq", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["mq", "2"], "+", 
+       RowBox[{"me", " ", "m\[Mu]"}]}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "+", 
+    RowBox[{"me", " ", "m\[Mu]", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "1", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", "me", " ", "m\[Mu]", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "2", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "+", 
+    RowBox[{"me", " ", "m\[Mu]", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"2", " ", "me", " ", "m\[Mu]"}], "+", 
+       RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "1", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", "me", " ", "m\[Mu]", " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "2", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{"2", "-", "\[ScriptD]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"1", ",", "0", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], 
+      "]"}]}]}], ")"}]}]], "Output",
+ ImageSize->{400, 186},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]=",
+ CellID->1128616662],
+
+Cell[BoxData[
+ RowBox[{"QLQ", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", "2"]}], " ", "m\[Mu]", " ", 
+     RowBox[{"(", 
+      RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       SuperscriptBox["me", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+    "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["me", "2"], "-", 
+       SuperscriptBox["m\[Mu]", "2"]}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "1", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       SuperscriptBox["me", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+    "-", 
+    RowBox[{
+     FractionBox["1", "2"], " ", "m\[Mu]", " ", 
+     RowBox[{"(", 
+      RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "2", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       SuperscriptBox["me", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+    "-", 
+    RowBox[{"PVC", "[", 
+     RowBox[{"1", ",", "0", ",", "0", ",", 
+      SuperscriptBox["m\[Mu]", "2"], ",", 
+      SuperscriptBox["me", "2"], ",", 
+      RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+   ")"}]}]], "Output",
+ ImageSize->{408, 119},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[5]=",
+ CellID->2084667930],
+
+Cell[BoxData[
+ RowBox[{"Q\[ScriptL]", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    FractionBox[
+     RowBox[{"me", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "-", "m\[Mu]"}], ")"}]}]], "+", 
+    FractionBox[
+     RowBox[{"me", " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "-", "m\[Mu]"}], ")"}]}]]}], ")"}]}]], "Output",
+ ImageSize->{389, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[6]=",
+ CellID->818198705]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Add up the contributions, put the photon on its mass shell ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ", and apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ CellID->202074349],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{
+    RowBox[{"Total", "[", "diagramF1", "]"}], "/.", 
+    RowBox[{
+     RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}], "]"}], "//", 
+  "Simplify"}]], "Input",
+ CellLabel->"In[7]:=",
+ CellID->1123443799],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "8"], " ", 
+  RowBox[{"(", 
+   RowBox[{"QLQ", "+", "Qq", "-", "Q\[ScriptL]"}], ")"}], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["mLQ", "2"], "-", 
+         SuperscriptBox["mq", "2"], "+", 
+         RowBox[{"2", " ", "me", " ", "m\[Mu]"}]}], ")"}]}], 
+      RowBox[{"me", " ", "m\[Mu]"}]]}], "-", 
+    FractionBox[
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["me", "2"], "-", 
+        SuperscriptBox["mLQ", "2"], "+", 
+        SuperscriptBox["mq", "2"]}], ")"}], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+     RowBox[{"me", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "-", "m\[Mu]"}], ")"}]}]], "+", 
+    FractionBox[
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["mLQ", "2"]}], "+", 
+        SuperscriptBox["mq", "2"], "+", 
+        SuperscriptBox["m\[Mu]", "2"]}], ")"}], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"me", "-", "m\[Mu]"}], ")"}], " ", "m\[Mu]"}]], "-", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{
+       SuperscriptBox["me", "3"], " ", 
+       SuperscriptBox["m\[Mu]", "3"]}]], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "me"}], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["mLQ", "2"], "-", 
+            SuperscriptBox["mq", "2"]}], ")"}], "2"], " ", "m\[Mu]"}], "-", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["mLQ", "2"], "-", 
+            SuperscriptBox["mq", "2"]}], ")"}], "2"], " ", 
+         SuperscriptBox["m\[Mu]", "2"]}], "+", 
+        RowBox[{
+         SuperscriptBox["me", "3"], " ", 
+         SuperscriptBox["m\[Mu]", "3"]}], "-", 
+        RowBox[{
+         SuperscriptBox["me", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           SuperscriptBox["mLQ", "4"], "+", 
+           SuperscriptBox["mq", "4"], "-", 
+           RowBox[{"2", " ", 
+            SuperscriptBox["mLQ", "2"], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              SuperscriptBox["mq", "2"], "+", 
+              SuperscriptBox["m\[Mu]", "2"]}], ")"}]}]}], ")"}]}]}], ")"}], 
+      " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["mLQ", "2"], 
+        SuperscriptBox["mq", "2"]], "]"}]}]}], "-", 
+    RowBox[{"2", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox["1", "\[Epsilon]"], "+", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         SuperscriptBox["\[Micro]", "2"], 
+         SuperscriptBox["mLQ", "2"]], "]"}]}], ")"}]}]}], ")"}]}]], "Output",
+ ImageSize->{565, 150},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[7]=",
+ CellID->1969893136]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The form factor ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["F", "1"], "(", "0", ")"}], TraditionalForm]], 
+  "InlineMath"],
+ " is apparently UV-divergent (note the appearance of a ",
+ Cell[BoxData[
+  FractionBox["1", 
+   ButtonBox["\[Epsilon]",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/Eps"]]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " pole), requiring the renormalization of an off-diagonal (flavor-changing) \
+element of the charge operator.  Notice, however, that the result is \
+proprtional to ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["Q", "LQ"], "+", 
+    SubscriptBox["Q", "q"], "-", 
+    SubscriptBox["Q", "\[ScriptL]"]}], TraditionalForm]], "InlineMath"],
+ ".  Electric charge conservation at each vertex requires ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["Q", "LQ"], "=", 
+    RowBox[{
+     SubscriptBox["Q", "\[ScriptL]"], "-", 
+     SubscriptBox["Q", "q"]}]}], TraditionalForm]], "InlineMath"],
+ ", and therefore ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["F", "1"], "(", "0", ")"}], TraditionalForm]], 
+  "InlineMath"],
+ " vanishes."
+}], "Text",
+ CellID->399666147],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Total", "[", "diagramF1", "]"}], "/.", 
+    RowBox[{
+     RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}], "/.", 
+   RowBox[{"QLQ", "\[Rule]", 
+    RowBox[{"Q\[ScriptL]", "-", "Qq"}]}]}], "]"}]], "Input",
+ CellLabel->"In[8]:=",
+ CellID->1776388020],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[8]=",
+ CellID->2121381769]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Form factor ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ ", and the Appelquist-Carazzone decoupling theorem"
+}], "Subsection",
+ Deletable->True,
+ CellID->637939805],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "To extract form factor ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ ", simply copy and paste the code above, and replace ",
+ Cell[BoxData["\"\<F1\>\""], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with ",
+ Cell[BoxData["\"\<F2\>\""], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " inside ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Text",
+ CellID->1711400608],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"diagramF2", "=", 
+    RowBox[{"Table", "[", 
+     RowBox[{"0", ",", 
+      RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+   "diagramF2", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=", 
+   RowBox[{
+    RowBox[{"Q\[ScriptL]", " ", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Spur", "[", 
+        RowBox[{
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{"p", ".", "\[Gamma]"}], "+", 
+          RowBox[{"me", " ", "\[DoubleStruckOne]"}]}], ",", 
+         "\[DoubleStruckCapitalP]L", ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+         "\[DoubleStruckCapitalP]R", ",", 
+         RowBox[{
+          RowBox[{"Projector", "[", 
+           RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+       ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{"p", ",", "me"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+   "diagramF2", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "=", 
+   RowBox[{
+    RowBox[{"Qq", " ", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Spur", "[", 
+        RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+          
+          RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+         "\[DoubleStruckCapitalP]R", ",", 
+         RowBox[{
+          RowBox[{"Projector", "[", 
+           RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+       ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+   "diagramF2", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "=", 
+   RowBox[{
+    RowBox[{"QLQ", " ", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Contract", "[", 
+        RowBox[{
+         RowBox[{"Spur", "[", 
+          RowBox[{"\[DoubleStruckCapitalP]L", " ", ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+            RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+           "\[DoubleStruckCapitalP]R", ",", 
+           RowBox[{
+            RowBox[{"Projector", "[", 
+             RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{
+               RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+         
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", 
+            SubscriptBox["k", "\[Mu]"]}], "-", 
+           SubscriptBox["q", "\[Mu]"]}], ")"}]}], "]"}], ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "-", "q"}], ",", "mLQ"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"diagramF2", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}],
+   "=", 
+  RowBox[{
+   RowBox[{"Q\[ScriptL]", " ", 
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+        "\[DoubleStruckCapitalP]R", ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"p", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"m\[Mu]", " ", "\[DoubleStruckOne]"}]}], ",", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{
+         RowBox[{"Projector", "[", 
+          RowBox[{"\"\<F2\>\"", ",", "\[Mu]"}], "]"}], "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+      ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"p", "-", "q"}], ",", "m\[Mu]"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", 
+   "onShell"}]}]}], "Input",
+ CellLabel->"In[9]:=",
+ CellID->275941773],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[10]=",
+ CellID->1506453826],
+
+Cell[BoxData[
+ RowBox[{"Qq", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["1", "2"]}], " ", "me", " ", 
+     RowBox[{"(", 
+      RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "1", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "-", 
+    RowBox[{
+     FractionBox["1", "2"], " ", "me", " ", 
+     RowBox[{"(", 
+      RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "2", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "-", 
+    RowBox[{
+     FractionBox["1", "2"], " ", "m\[Mu]", " ", 
+     RowBox[{"(", 
+      RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "-", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], "2"], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "1", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], "]"}]}],
+     "-", 
+    RowBox[{
+     FractionBox["1", "2"], " ", "m\[Mu]", " ", 
+     RowBox[{"(", 
+      RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "2", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", 
+       SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], 
+      "]"}]}]}], ")"}]}]], "Output",
+ ImageSize->{392, 150},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[11]=",
+ CellID->137255452],
+
+Cell[BoxData[
+ RowBox[{"QLQ", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     FractionBox["1", "2"], " ", "m\[Mu]", " ", 
+     RowBox[{"(", 
+      RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       SuperscriptBox["me", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+    "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["me", "2"]}], "+", 
+       SuperscriptBox["m\[Mu]", "2"]}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "1", ",", "1", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       SuperscriptBox["me", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+    "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", "m\[Mu]", " ", 
+     RowBox[{"(", 
+      RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "2", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       SuperscriptBox["me", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], 
+      "]"}]}]}], ")"}]}]], "Output",
+ ImageSize->{400, 90},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[12]=",
+ CellID->454944886],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[13]=",
+ CellID->1216915682]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "With the photon on its mass shell ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ", the form factor ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["F", "2"], "(", "0", ")"}], TraditionalForm]], 
+  "InlineMath"],
+ " is non-vanishing, but UV-finite."
+}], "Text",
+ CellID->1745079055],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Add up the contributions, apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and store the result as ",
+ Cell[BoxData["f2"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ CellID->872765542],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"f2", "[", 
+   RowBox[{
+   "mLQ_", ",", "mq_", ",", "m\[Mu]_", ",", "me_", ",", "Q\[ScriptL]_", ",", 
+    "Qq_"}], "]"}], "=", 
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{
+    RowBox[{"Total", "[", "diagramF2", "]"}], "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"q", ".", "q"}], "\[Rule]", "0"}], ",", 
+      RowBox[{"QLQ", "\[Rule]", 
+       RowBox[{"Q\[ScriptL]", "-", "Qq"}]}]}], "}"}]}], "]"}]}]], "Input",
+ CellLabel->"In[14]:=",
+ CellID->438204761],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{
+    RowBox[{"2", " ", "me", " ", "m\[Mu]", " ", "Qq"}], "+", 
+    RowBox[{
+     SuperscriptBox["mLQ", "2"], " ", "Q\[ScriptL]"}], "-", 
+    RowBox[{
+     SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "-", 
+    RowBox[{"me", " ", "m\[Mu]", " ", "Q\[ScriptL]"}]}], 
+   RowBox[{"4", " ", "me", " ", "m\[Mu]"}]], "-", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"4", " ", "me", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["me", "2"], "-", 
+       SuperscriptBox["m\[Mu]", "2"]}], ")"}]}]], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["me", "2"], " ", "m\[Mu]", " ", "Qq"}], "+", 
+      RowBox[{"2", " ", "me", " ", 
+       SuperscriptBox["mLQ", "2"], " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{"2", " ", "me", " ", 
+       SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{
+       SuperscriptBox["me", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "+", 
+      RowBox[{
+       SuperscriptBox["mLQ", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{
+       SuperscriptBox["mq", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}]}], 
+     ")"}], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{
+      SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq"}], "]"}]}]}], "+", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"4", " ", "m\[Mu]", " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SuperscriptBox["me", "2"], "-", 
+       SuperscriptBox["m\[Mu]", "2"]}], ")"}]}]], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", "me", " ", 
+       SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "+", 
+      RowBox[{"me", " ", 
+       SuperscriptBox["mLQ", "2"], " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{"me", " ", 
+       SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "+", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["mLQ", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["mq", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{"me", " ", 
+       SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}]}], ")"}], " ", 
+    RowBox[{"DiscB", "[", 
+     RowBox[{
+      SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mq"}], "]"}]}]}], "-", 
+  
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"8", " ", 
+     SuperscriptBox["me", "3"], " ", 
+     SuperscriptBox["m\[Mu]", "3"]}]], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", 
+       SuperscriptBox["me", "2"], " ", 
+       SuperscriptBox["mLQ", "2"], " ", 
+       SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["me", "2"], " ", 
+       SuperscriptBox["mq", "2"], " ", 
+       SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "+", 
+      RowBox[{
+       SuperscriptBox["me", "2"], " ", 
+       SuperscriptBox["mLQ", "4"], " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["me", "2"], " ", 
+       SuperscriptBox["mLQ", "2"], " ", 
+       SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "+", 
+      RowBox[{
+       SuperscriptBox["me", "2"], " ", 
+       SuperscriptBox["mq", "4"], " ", "Q\[ScriptL]"}], "+", 
+      RowBox[{"2", " ", "me", " ", 
+       SuperscriptBox["mLQ", "4"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{"4", " ", "me", " ", 
+       SuperscriptBox["mLQ", "2"], " ", 
+       SuperscriptBox["mq", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "+", 
+      RowBox[{"2", " ", "me", " ", 
+       SuperscriptBox["mq", "4"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["me", "2"], " ", 
+       SuperscriptBox["mLQ", "2"], " ", 
+       SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}], "+", 
+      RowBox[{
+       SuperscriptBox["mLQ", "4"], " ", 
+       SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{"2", " ", 
+       SuperscriptBox["mLQ", "2"], " ", 
+       SuperscriptBox["mq", "2"], " ", 
+       SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}], "+", 
+      RowBox[{
+       SuperscriptBox["mq", "4"], " ", 
+       SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}]}], ")"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      SuperscriptBox["mLQ", "2"], 
+      SuperscriptBox["mq", "2"]], "]"}]}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["mLQ", "2"], " ", 
+   RowBox[{"(", 
+    RowBox[{"Qq", "-", "Q\[ScriptL]"}], ")"}], " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["me", "2"], ",", 
+     SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mLQ", ",", "mq"}], 
+    "]"}]}], "+", 
+  RowBox[{
+   FractionBox["1", "2"], " ", 
+   SuperscriptBox["mq", "2"], " ", "Qq", " ", 
+   RowBox[{"ScalarC0", "[", 
+    RowBox[{"0", ",", 
+     SuperscriptBox["me", "2"], ",", 
+     SuperscriptBox["m\[Mu]", "2"], ",", "mq", ",", "mq", ",", "mLQ"}], 
+    "]"}]}]}]], "Output",
+ ImageSize->{556, 292},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[14]=",
+ CellID->358656959]
+}, Open  ]]
+}, Open  ]],
+
+Cell["\<\
+The contribution of the scalar leptoquark to this process is expected to \
+decouple as its mass is parametrically increased.  We can confirm this two \
+different ways:\
+\>", "Text",
+ CellID->1834050703],
+
+Cell[TextData[{
+ "1.  Plot the result numerically as a function of ",
+ Cell[BoxData["mLQ"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]]
+}], "Text",
+ CellID->549740216],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The quark is taken to be the strange quark (",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["Q", "q"], "=", 
+    RowBox[{
+     RowBox[{"-", "1"}], "/", "3"}]}], TraditionalForm]], "InlineMath"],
+ "), and input masses are defined with sufficient precision to overcome \
+possible numerical instabilities."
+}], "MathCaption",
+ Deletable->True,
+ CellID->1659787878],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"ms", "=", "0.095`20"}], ";"}], 
+  RowBox[{"(*", 
+   RowBox[{"strange", " ", "quark", " ", "mass", " ", "in", " ", 
+    RowBox[{"GeV", "/", 
+     RowBox[{"c", "^", "2"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"m\[Mu]", "=", "0.1057`20"}], ";"}], 
+  RowBox[{"(*", 
+   RowBox[{"muon", " ", "mass", " ", "in", " ", 
+    RowBox[{"GeV", "/", 
+     RowBox[{"c", "^", "2"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"me", "=", "0.000511`20"}], ";"}], 
+  RowBox[{"(*", 
+   RowBox[{"electron", " ", "mass", " ", "in", " ", 
+    RowBox[{"GeV", "/", 
+     RowBox[{"c", "^", "2"}]}]}], "*)"}]}]}], "Input",
+ CellLabel->"In[15]:=",
+ CellID->728339978],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"f2", "[", 
+    RowBox[{"mLQ", ",", "ms", ",", "m\[Mu]", ",", "me", ",", 
+     RowBox[{"-", "1"}], ",", 
+     RowBox[{
+      RowBox[{"-", "1"}], "/", "3"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "0", ",", "10"}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"-", ".0005"}], ",", ".0005"}], "}"}]}], ",", 
+   RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", 
+   RowBox[{"AxesLabel", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+     "\"\<\!\(\*SubscriptBox[\(m\), \(LQ\)]\)\>\"", ",", 
+      "\"\<\!\(\*SubscriptBox[\(F\), \(2\)]\)\>\""}], "}"}]}]}], 
+  "]"}]], "Input",
+ CellLabel->"In[20]:=",
+ CellID->1995491005],
+
+Cell[BoxData[
+ GraphicsBox[
+  TagBox[RasterBox[CompressedData["
+1:eJztnV+M3EYdx0fQB5555K3vlZ94pELuH1WAxJIG0T+sVKUSVkOr1m0pYAmB
+cJtIfmgrS/1jRINRqEsjB5XtH+0VYSpcaNw0FsRV6167gr1eDcRpfakJsSJD
+jhnb6/Wtb+/svfO/u99Hycrn9YxnPN+d+c38ZjxX33nfzcxnEEIPfg5/3Hzo
+B/QDDxziDl6F/7iO+9537vwsPrgV/38Z/yfH6wAAAN0gsIaqEiMrhhM0nR6g
+NfgGhRAryhhJkk03bDpBQFvwTREh3ms6GUALMUUa0aJp25Zln31ZoDCI4mQD
+mpZ9jyfRCPUYlun3GenN0+bYXw89g0aUBlXJPsfHMkA5GTgsQgMHDI99TWRs
+cM7Gk5bcR33FbyZFQFuwsLHBaZkTwZCjKFYFYQAz2Eof9WSwQoEcPrFLEe6n
+YPom1B0AAAAAAAAAAAAAAAAAAOwPUETTqQDaCAijYwS+58/zgAWe58/MtIgu
+D/OnitwKtNEhHF2M63mKG8y4v0JH702+s5OSD3UxOccNRlvH4Bli3qcGbUpn
+CCxc0jIpeFdAiNfd7HcyjXqyjY90nsLfkVO2jIvbxnWGq1GI0r35MUTnEerl
+tVFT1oCd4Vv4py3GpRfNw9Gn3wUmjWgzqi4CchnvRtdQghl/LVH4cndODIHa
+Rz1ewOIyQBvdJFuyjsbh4+nUzkgbSck6QxQdm1NthPhySjA2jYEcUJIf2r2J
+ulLQhDqyB+yAbMm6W2jD1XLaWM9rI4nBI4uVBH3s2irWgGJl2ymoNzoDmetL
+ZVuEzNzOzdoUU6QoMdaGT9oUzc3H4FsyNkXoeHoXgbEyVQdoozNEFqM6Isal
+GJU10cRAHpj4wMe2KKOSzoghJLIJLAkhllzu6WSNibtpDBPCqbpSoEHpEI4m
+JD1QNu6B+riI48ohdLSkv4oyfVghOceq9pwYJpCaB/op3Sb0PdedM7U39F3X
+mxnVwpfPjIdtFcNGQBvAPEAbwDzA3gDmAcLoGBX42sLA9zeLE7TRISrwtflK
+fzK2QXMW+No6SiW+tmBkxVJyeCwhbcMyehBGV6jM15ZEkaorBbTRFSrytSUR
+jBSUewcL+Nq6QiW+tjj0iDjaBH3mvSxQb3SGKnxt5IhYI0i2NhkpBW10hkp8
+bZ6MT7EDD3dsvdnOMWijQ+y+ry0w0y4smRQoWdnbgbHRLcDXBrQB0AYwD2hT
+gHmAMIB5gDaAeUCbUg2BocgDQ5d5lhVUx3eHIscwvNGpF4ODMCohWUXYVzWV
+iX59gjp45Ab0+S8dzfYexzp5wyuFEM1Ko/a9AnhGG9X9uYfvlScekxyTQ5sM
+RY5xdREe+yIOeiR1gkTvlqeHIywWXxNoRIlt24lir5ZXs9qwcH0QT6IgIiHe
+DXz0NfSF1NUV+8SZQereIltRSHYr3g2NgN1gztMlLwPnork3lpRMk4hE8tWM
+NshwtzBdEELcYYLRrppjfgbX19YuHXvmrYMHfnXTjcfuvefFxx97/Zfymd+c
+fHtpaVnX//7Gn1c++eQ/589f/Pg8+XTdi/lP/BX+3OKreQGznwUv22HwrdOT
+vQD/u3jx8lbPNDB7iCbzrCKR8IlIetfcfe8GbaCsGKI/zW5oY/XDC1+56RdH
+j7y2/N75mpO0V4kMjFQbySYUsRp8W8GGq9Uyc3TTuhH/Rr587c+UZ//SSJL2
+Kr4lI7LtBFmaTDGKv+4PeWyoUr0eWaq8cf5nK9i03jh81ws//cnvtwkZzVxv
+qrtOphvMzq0vTohDLxw4ZVciIUnxHF3hiT760uzUq0bJa8N+99yB3vErV65s
+EcpWSK89WplPq9aCraQh9nClWt409wc8ndydEksHdw1mYkkKWqGiCMYaQ5O7
+iVN7wJnM7qcGo13qXISeU8x1Xhv5NuWxR1/ftjVxbSvej1qPZq4vcN+4gkW0
+VPZxOEPc2+PjQvVzS3W2xcLdA5Z0HFydQ3ShPacCx9R0fPXUVrRlrGqFTOUn
++Rda1xjsEvl645sHn11dvVAwuI0N8egplSO08Y+XF9nyP3wyLMAOHVIXL9Sg
+jbAFSEsuKd8+nUynLHRf0sdMtJHpfpKJmtHSj73IjDZWVtZu+dZzRQNHRcwO
+x2VvquGfrGQFIzlrtxcju48Ybp+N0vogpRnDlEl3rAcvd+xwNfc9m1vzuDRc
+PvLwH4ol0saVOy3oZUvHMwQcTht79gA/V9ZyS9U6RBsUr5Ex6PEApRPvCzNS
+WUTzisQRccjF640N2sjUIWQ5WG1jVs2ueRQf/9OJE2eLJBM/k75sbX9hDktm
+o1dMTd4xxZTamna2Pi+pDRcnWyHeDWyTiuSNmkWF6c+2KVaaBqTVY3A0vebx
+/vteeuv06rbJtCR8E27kbzZzvUReyVhQ2cCmSKO+SkI5uN7olRwvctMnMH10
+hfBEalocJPuMSp46qQP5eqTR+JpHbIie+9e/t02mPJnvvlhfI4kFJ5UqHzYc
+8ROLgR/Y21+/kdEwmoQfVVr8cFQsnVKa115svoaOkKSBUutykDW75vHy5f/e
+eP0zW49stIPQy8+2LxHad113x8N2JA0Vjv0FnpPF9Zpd87j64YXbb/t1RXkF
+ShGMhizDcgksKwz/0eiaxzNnPrrnu4Nq8grsmCbWPKbyePXV94t2YIEmqH/N
+Y3r8nPLXp58yasklsCBNrXl88olTJ54vMrgB7AuybcrRI68tLS03mx6gPWTr
+jR9+f3jqjZUGEwO0iqw2Dt/1wjvvnGswMcD2NLSX37dve35lZa1USoE6aXAv
+vwO94553qZpsATum0b38brju52H4v6qzCCxGg3v5xc6USnMH7IQG9/JbW7v0
+ja8fryOTQBHq8bUV28vPcT69/VZwtLWFenxtBffy++CDjw/dodaQa2BBmtvL
+7+zZf959+Ld15hUoS1N7+Z1+c/WhB1+pNm/AjmnE16b/8W8//tHvyicW2LOk
+2lhaWn6EX2SFGrBXSe0N49TKyZNvN50cIOH/zZVcfA==
+    "], {{0, 88}, {180, 0}}, {0, 
+    255},
+    ColorFunction->RGBColor],
+   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+   Selectable->False],
+  BaseStyle->"ImageGraphics",
+  ImageSize->Automatic,
+  ImageSizeRaw->{180, 88},
+  PlotRange->{{0, 180}, {0, 88}}]], "Output",
+ ImageSize->{184, 88},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[20]=",
+ CellID->549420489]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Clear the definitions", "MathCaption",
+ Deletable->True,
+ CellID->1148716094],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Clear", "[", 
+   RowBox[{"ms", ",", "m\[Mu]", ",", "me"}], "]"}], ";"}]], "Input",
+ CellLabel->"In[21]:=",
+ CellID->449291028]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "2.  Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to generate an expansion as ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["m", "LQ"], "\[Rule]", "\[Infinity]"}], TraditionalForm]], 
+  "InlineMath"],
+ ".  However, this method requires some care.  The expansion point ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["m", "LQ"], "=", "\[Infinity]"}], TraditionalForm]], 
+  "InlineMath"],
+ " is a singular point of the loop integral.  By default, ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " cannot construct a Taylor expansion:"
+}], "Text",
+ CellID->184615956],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Total", "[", "diagramF2", "]"}], "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"q", ".", "q"}], "\[Rule]", "0"}], ",", 
+      RowBox[{"QLQ", "\[Rule]", 
+       RowBox[{"Q\[ScriptL]", "-", "Qq"}]}]}], "}"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "Infinity", ",", "2"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[22]:=",
+ CellID->475034300],
+
+Cell[BoxData[
+ RowBox[{
+  StyleBox[
+   RowBox[{"LoopRefineSeries", "::", "notaylor"}], "MessageName"], ":", 
+  " ", "\<\"Taylor series of \[NoBreak]\\!\\(PVC\\)\[NoBreak] does not exist \
+near \\!\\(\[NoBreak]\\!\\(mLQ\\)\[NoBreak] = \[NoBreak]\\!\\(\[Infinity]\\)\
+\[NoBreak]\\). \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
+ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
+ButtonData:>\\\"paclet:X/ref/LoopRefineSeries\\\", ButtonNote -> \
+\\\"X`LoopRefineSeries::notaylor\\\"]\\)\"\>"}]], "Message", "MSG",
+ CellLabel->"During evaluation of In[22]:=",
+ CellID->2046945664],
+
+Cell[BoxData["$Failed"], "Output",
+ ImageSize->{54, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[22]=",
+ CellID->327749908]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "By setting the option ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Analytic",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopRefineSeries#759595167"], "\[Rule]", 
+   ButtonBox["True",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", the number of spacetime dimensions is analytically continued to \
+sufficiently high values to make the singular point differentiable, \
+permitting an expansion:"
+}], "Text",
+ CellID->1314145199],
+
+Cell[CellGroupData[{
+
+Cell["Analytically continue the number of spacetime dimensions:", \
+"MathCaption",
+ CellID->38290789],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Total", "[", "diagramF2", "]"}], "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"q", ".", "q"}], "\[Rule]", "0"}], ",", 
+      RowBox[{"QLQ", "\[Rule]", 
+       RowBox[{"Q\[ScriptL]", "-", "Qq"}]}]}], "}"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "Infinity", ",", "2"}], "}"}], ",", 
+   RowBox[{"Analytic", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[23]:=",
+ CellID->1137918232],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"me", "+", "m\[Mu]"}], ")"}], "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"3", " ", "Qq"}], "-", "Q\[ScriptL]"}], ")"}]}], 
+     RowBox[{"24", " ", 
+      SuperscriptBox["mLQ", "2"]}]]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      FractionBox["1", "mLQ"], "]"}], "3"],
+    SeriesData[$CellContext`mLQ, 
+     DirectedInfinity[1], {}, 2, 3, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`mLQ, 
+   DirectedInfinity[1], {
+   Rational[-1, 24] ($CellContext`me + $CellContext`m\[Mu])^2 (
+     3 $CellContext`Qq - $CellContext`Q\[ScriptL])}, 2, 3, 1],
+  Editable->False]], "Output",
+ ImageSize->{210, 37},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[23]=",
+ CellID->197149201]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "Since the point ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["m", "LQ"], "=", "\[Infinity]"}], TraditionalForm]], 
+  "InlineMath"],
+ " is a lowest order Landau singular point of a UV-finite one-loop integral, \
+it is expected to be logarithmic in nature plus a dominant regular part.  ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " can reliably extract the regular part \[LongDash] the result above \
+\[LongDash] and confirms the decoupling of the scalar leptoquark."
+}], "Text",
+ Deletable->True,
+ CellID->491944987],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "In this scheme, any logarithmic singularities will appear as an infrared \
+pole.  The subleading ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", 
+    SubsuperscriptBox["m", "LQ", 
+     RowBox[{"-", "4"}]], ")"}], TraditionalForm]], "InlineMath"],
+ " term contains this logarithmic singularity:"
+}], "Text",
+ Deletable->True,
+ CellID->465774600],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Total", "[", "diagramF2", "]"}], "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"q", ".", "q"}], "\[Rule]", "0"}], ",", 
+      RowBox[{"QLQ", "\[Rule]", 
+       RowBox[{"Q\[ScriptL]", "-", "Qq"}]}]}], "}"}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "Infinity", ",", "4"}], "}"}], ",", 
+   RowBox[{"Analytic", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[24]:=",
+ CellID->268392814],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"me", "+", "m\[Mu]"}], ")"}], "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"3", " ", "Qq"}], "-", "Q\[ScriptL]"}], ")"}]}], 
+     RowBox[{"24", " ", 
+      SuperscriptBox["mLQ", "2"]}]]}], "+", 
+   RowBox[{
+    FractionBox["1", 
+     SuperscriptBox["mLQ", "4"]], 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", "144"]}], " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"me", "+", "m\[Mu]"}], ")"}], "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"8", " ", 
+          SuperscriptBox["me", "2"], " ", "Qq"}], "+", 
+         RowBox[{"90", " ", 
+          SuperscriptBox["mq", "2"], " ", "Qq"}], "-", 
+         RowBox[{"4", " ", "me", " ", "m\[Mu]", " ", "Qq"}], "+", 
+         RowBox[{"8", " ", 
+          SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "-", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["me", "2"], " ", "Q\[ScriptL]"}], "+", 
+         RowBox[{"12", " ", 
+          SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "+", 
+         RowBox[{"me", " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}]}], ")"}]}], "-", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       SuperscriptBox["mq", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"me", "+", "m\[Mu]"}], ")"}], "2"], " ", "Qq", " ", 
+       RowBox[{"Log", "[", 
+        FractionBox["1", "mLQ"], "]"}]}], "-", 
+      RowBox[{
+       FractionBox["1", "4"], " ", 
+       SuperscriptBox["mq", "2"], " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"me", "+", "m\[Mu]"}], ")"}], "2"], " ", "Qq", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         FractionBox["1", "\[Epsilon]"], "+", 
+         RowBox[{"Log", "[", 
+          SuperscriptBox["\[Micro]", "2"], "]"}]}], ")"}]}]}], ")"}]}], "+", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      FractionBox["1", "mLQ"], "]"}], "5"],
+    SeriesData[$CellContext`mLQ, 
+     DirectedInfinity[1], {}, 2, 5, 1],
+    Editable->False]}],
+  SeriesData[$CellContext`mLQ, 
+   DirectedInfinity[1], {
+   Rational[-1, 24] ($CellContext`me + $CellContext`m\[Mu])^2 (
+     3 $CellContext`Qq - $CellContext`Q\[ScriptL]), 0, 
+    Rational[-1, 144] ($CellContext`me + $CellContext`m\[Mu])^2 (
+      8 $CellContext`me^2 $CellContext`Qq + 
+      90 $CellContext`mq^2 $CellContext`Qq - 
+      4 $CellContext`me $CellContext`m\[Mu] $CellContext`Qq + 
+      8 $CellContext`m\[Mu]^2 $CellContext`Qq - 
+      2 $CellContext`me^2 $CellContext`Q\[ScriptL] + 
+      12 $CellContext`mq^2 $CellContext`Q\[ScriptL] + $CellContext`me \
+$CellContext`m\[Mu] $CellContext`Q\[ScriptL] - 
+      2 $CellContext`m\[Mu]^2 $CellContext`Q\[ScriptL]) + 
+    Rational[-1, 
+       2] $CellContext`mq^2 ($CellContext`me + $CellContext`m\[Mu])^2 \
+$CellContext`Qq Log[$CellContext`mLQ^(-1)] + 
+    Rational[-1, 
+       4] $CellContext`mq^2 ($CellContext`me + $CellContext`m\[Mu])^2 \
+$CellContext`Qq (X`Eps^(-1) + Log[X`Mu^2])}, 2, 5, 1],
+  Editable->False]], "Output",
+ ImageSize->{552, 88},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[24]=",
+ CellID->2066837533]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Form factor ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "3"], TraditionalForm]], "InlineMath"],
+ ", and gauge invariance"
+}], "Subsection",
+ Deletable->True,
+ CellID->788115506],
+
+Cell[TextData[{
+ "Form factor ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "3"], TraditionalForm]], "InlineMath"],
+ " is proportional to ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["q", "\[Mu]"], TraditionalForm]], "InlineMath"],
+ ".  Therefore, the Ward identities as required by gauge invariance imply \
+that this form factor should vanish for all ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["q", "2"], TraditionalForm]], "InlineMath"],
+ ":"
+}], "Text",
+ Deletable->True,
+ CellID->1836435237],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Extract form factor ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "3"], TraditionalForm]], "InlineMath"],
+ ":"
+}], "MathCaption",
+ Deletable->True,
+ CellID->1251912997],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"diagramF3", "=", 
+    RowBox[{"Table", "[", 
+     RowBox[{"0", ",", 
+      RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+   "diagramF3", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=", 
+   RowBox[{
+    RowBox[{"Q\[ScriptL]", " ", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Spur", "[", 
+        RowBox[{
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{"p", ".", "\[Gamma]"}], "+", 
+          RowBox[{"me", " ", "\[DoubleStruckOne]"}]}], ",", 
+         "\[DoubleStruckCapitalP]L", ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+         "\[DoubleStruckCapitalP]R", ",", 
+         RowBox[{
+          RowBox[{"Projector", "[", 
+           RowBox[{"\"\<F3\>\"", ",", "\[Mu]"}], "]"}], "[", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+       ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{"p", ",", "me"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+   "diagramF3", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "=", 
+   RowBox[{
+    RowBox[{"Qq", " ", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Spur", "[", 
+        RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+          
+          RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+         "\[DoubleStruckCapitalP]R", ",", 
+         RowBox[{
+          RowBox[{"Projector", "[", 
+           RowBox[{"\"\<F3\>\"", ",", "\[Mu]"}], "]"}], "[", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+       ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+   "diagramF3", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "=", 
+   RowBox[{
+    RowBox[{"QLQ", " ", 
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Contract", "[", 
+        RowBox[{
+         RowBox[{"Spur", "[", 
+          RowBox[{"\[DoubleStruckCapitalP]L", " ", ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+            RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+           "\[DoubleStruckCapitalP]R", ",", 
+           RowBox[{
+            RowBox[{"Projector", "[", 
+             RowBox[{"\"\<F3\>\"", ",", "\[Mu]"}], "]"}], "[", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+             RowBox[{"{", 
+              RowBox[{
+               RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+         
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", 
+            SubscriptBox["k", "\[Mu]"]}], "-", 
+           SubscriptBox["q", "\[Mu]"]}], ")"}]}], "]"}], ",", "k", ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "-", "q"}], ",", "mLQ"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"diagramF3", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}],
+   "=", 
+  RowBox[{
+   RowBox[{"Q\[ScriptL]", " ", 
+    RowBox[{"LoopIntegrate", "[", 
+     RowBox[{
+      RowBox[{"Spur", "[", 
+       RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+        "\[DoubleStruckCapitalP]R", ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"p", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+         RowBox[{"m\[Mu]", " ", "\[DoubleStruckOne]"}]}], ",", 
+        SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+        RowBox[{
+         RowBox[{"Projector", "[", 
+          RowBox[{"\"\<F3\>\"", ",", "\[Mu]"}], "]"}], "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{
+            RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+      ",", "k", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"p", "-", "q"}], ",", "m\[Mu]"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", 
+   "onShell"}]}]}], "Input",
+ CellLabel->"In[25]:=",
+ CellID->2004450920],
+
+Cell[BoxData[
+ RowBox[{"Q\[ScriptL]", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{"m\[Mu]", " ", 
+       RowBox[{"(", 
+        RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+       RowBox[{"PVB", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+      RowBox[{"4", " ", 
+       RowBox[{"q", ".", "q"}]}]]}], "-", 
+    FractionBox[
+     RowBox[{"m\[Mu]", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]]}], ")"}]}]], "Output",
+ ImageSize->{513, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[26]=",
+ CellID->1164147378],
+
+Cell[BoxData[
+ RowBox[{"Qq", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["mq", "2"], "+", 
+        RowBox[{"me", " ", "m\[Mu]"}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["me", "2"], "-", 
+        SuperscriptBox["m\[Mu]", "2"]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "0", ",", "0", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], 
+       "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]], "+", 
+    FractionBox[
+     RowBox[{"me", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", "me", " ", "m\[Mu]"}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["m\[Mu]", "2"]}], "+", 
+        RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "0", ",", "1", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], 
+       "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]], "-", 
+    FractionBox[
+     RowBox[{"me", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "me"}], " ", "m\[Mu]"}], "+", 
+        SuperscriptBox["m\[Mu]", "2"], "-", 
+        RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "0", ",", "2", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], 
+       "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]], "+", 
+    FractionBox[
+     RowBox[{"m\[Mu]", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"]}], "-", 
+        RowBox[{"2", " ", "me", " ", "m\[Mu]"}], "-", 
+        RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "1", ",", "0", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], 
+       "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]], "-", 
+    FractionBox[
+     RowBox[{"me", " ", "m\[Mu]", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["me", "2"]}], "+", 
+        SuperscriptBox["m\[Mu]", "2"]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "1", ",", "1", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], 
+       "]"}]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"q", ".", "q"}]}]], "-", 
+    FractionBox[
+     RowBox[{"m\[Mu]", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["me", "2"]}], "+", 
+        RowBox[{"me", " ", "m\[Mu]"}], "+", 
+        RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "2", ",", "0", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], 
+       "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]], "-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "2"}], "+", "\[ScriptD]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["me", "2"], "-", 
+        SuperscriptBox["m\[Mu]", "2"]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"1", ",", "0", ",", "0", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq", ",", "mq"}], 
+       "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]]}], ")"}]}]], "Output",
+ ImageSize->{508, 275},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[27]=",
+ CellID->101474229],
+
+Cell[BoxData[
+ RowBox[{"QLQ", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     FractionBox["1", "4"], " ", "m\[Mu]", " ", 
+     RowBox[{"(", 
+      RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       SuperscriptBox["me", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+    "+", 
+    RowBox[{
+     FractionBox["1", "4"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["me", "2"]}], "+", 
+       RowBox[{"2", " ", "me", " ", "m\[Mu]"}], "+", 
+       RowBox[{"3", " ", 
+        SuperscriptBox["m\[Mu]", "2"]}]}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "1", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       SuperscriptBox["me", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+    "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["me", "2"]}], "+", 
+       SuperscriptBox["m\[Mu]", "2"]}], ")"}], " ", 
+     RowBox[{"PVC", "[", 
+      RowBox[{"0", ",", "0", ",", "2", ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", 
+       SuperscriptBox["me", "2"], ",", 
+       RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+    "-", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"4", " ", 
+       RowBox[{"q", ".", "q"}]}]], 
+     RowBox[{"m\[Mu]", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["me", "2"]}], "+", 
+        SuperscriptBox["m\[Mu]", "2"], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["me", "2"]}], "+", 
+           SuperscriptBox["m\[Mu]", "2"], "+", 
+           RowBox[{"q", ".", "q"}]}], ")"}]}]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "1", ",", "0", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        SuperscriptBox["me", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], 
+       "]"}]}]}], "-", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"2", " ", 
+       RowBox[{"q", ".", "q"}]}]], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["me", "2"]}], " ", "m\[Mu]"}], "+", 
+        SuperscriptBox["m\[Mu]", "3"], "+", 
+        RowBox[{
+         FractionBox["1", "2"], " ", "me", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["me", "2"]}], "+", 
+           SuperscriptBox["m\[Mu]", "2"], "+", 
+           RowBox[{"q", ".", "q"}]}], ")"}]}], "-", 
+        RowBox[{
+         FractionBox["3", "2"], " ", "m\[Mu]", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            SuperscriptBox["me", "2"]}], "+", 
+           SuperscriptBox["m\[Mu]", "2"], "+", 
+           RowBox[{"q", ".", "q"}]}], ")"}]}]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "1", ",", "1", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        SuperscriptBox["me", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], 
+       "]"}]}]}], "+", 
+    FractionBox[
+     RowBox[{"m\[Mu]", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["me", "2"]}], "+", 
+        SuperscriptBox["m\[Mu]", "2"], "+", 
+        RowBox[{"q", ".", "q"}]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"0", ",", "2", ",", "0", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        SuperscriptBox["me", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]], "-", 
+    FractionBox[
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["me", "2"], "-", 
+        SuperscriptBox["m\[Mu]", "2"]}], ")"}], " ", 
+      RowBox[{"PVC", "[", 
+       RowBox[{"1", ",", "0", ",", "0", ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", 
+        SuperscriptBox["me", "2"], ",", 
+        RowBox[{"q", ".", "q"}], ",", "mLQ", ",", "mq", ",", "mLQ"}], "]"}]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"q", ".", "q"}]}]]}], ")"}]}]], "Output",
+ ImageSize->{527, 250},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[28]=",
+ CellID->375351085],
+
+Cell[BoxData[
+ RowBox[{"Q\[ScriptL]", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    FractionBox[
+     RowBox[{"me", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "0", ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]], "+", 
+    FractionBox[
+     RowBox[{"me", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"PVB", "[", 
+       RowBox[{"0", ",", "1", ",", 
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq"}], "]"}]}], 
+     RowBox[{"4", " ", 
+      RowBox[{"q", ".", "q"}]}]]}], ")"}]}]], "Output",
+ ImageSize->{505, 40},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[29]=",
+ CellID->1366214356]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "These expressions are proportional to ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"1", "/", 
+    SuperscriptBox["q", "2"]}], TraditionalForm]], "InlineMath"],
+ ", which means it will not be possible to take ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "\[Rule]", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " straightaway.  However, by gauge invariance, their sum must vanish for all \
+values of ",
+ Cell[BoxData[
+  FormBox[
+   SuperscriptBox["q", "2"], TraditionalForm]], "InlineMath"],
+ ":"
+}], "Text",
+ CellID->1603726058],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"Total", "[", "diagramF3", "]"}], "/.", 
+   RowBox[{"QLQ", "\[Rule]", 
+    RowBox[{"Q\[ScriptL]", "-", "Qq"}]}]}], "]"}]], "Input",
+ CellLabel->"In[30]:=",
+ CellID->75280626],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[30]=",
+ CellID->1111709986]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "Usually, when doing computations involving more general kinematics (such as \
+with ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "\[NotEqual]", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ " in this example), it is recommended to set ",
+ Cell[BoxData[
+  RowBox[{
+   ButtonBox["Cancel",
+    BaseStyle->"Link",
+    ButtonData->"paclet:X/ref/LoopIntegrate#377984336"], "\[Rule]", 
+   ButtonBox["True",
+    BaseStyle->"Link",
+    ButtonData->"paclet:ref/True"]}]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Text",
+ CellID->1964828137]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Computing all form factors together", "Section",
+ CellID->1793679749],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "1"], TraditionalForm]], "InlineMath"],
+ ", and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "2"], TraditionalForm]], "InlineMath"]
+}], "Subsection",
+ Deletable->True,
+ CellID->1348074257],
+
+Cell[TextData[{
+ "Instead of computing each form factor individually, sets of them can be \
+computed simultaneously by supplying a list of names in ",
+ Cell[BoxData[
+  ButtonBox["Projector",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Projector"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Here we will compute the form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "1"], TraditionalForm]], "InlineMath"],
+ ", and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "2"], TraditionalForm]], "InlineMath"],
+ " at ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "Text",
+ CellID->1176285192],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "1"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "2"], TraditionalForm]], "InlineMath"],
+ " at ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SuperscriptBox["q", "2"], "=", "0"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "MathCaption",
+ Deletable->True,
+ CellID->1617550210],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"onShell", "=", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"p", ".", "p"}], "\[Rule]", 
+       SuperscriptBox["m\[Mu]", "2"]}], ",", 
+      RowBox[{
+       RowBox[{"p", ".", "q"}], "\[Rule]", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["m\[Mu]", "2"], "-", 
+          SuperscriptBox["me", "2"], "+", 
+          RowBox[{"q", ".", "q"}]}], ")"}], "/", "2"}]}]}], "}"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"diagrams", "=", 
+    RowBox[{"Table", "[", 
+     RowBox[{"0", ",", 
+      RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+    "diagrams", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=", 
+    RowBox[{
+     RowBox[{"Q\[ScriptL]", " ", 
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Spur", "[", 
+         RowBox[{
+          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+          RowBox[{
+           RowBox[{"p", ".", "\[Gamma]"}], "+", 
+           RowBox[{"me", " ", "\[DoubleStruckOne]"}]}], ",", 
+          "\[DoubleStruckCapitalP]L", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+          "\[DoubleStruckCapitalP]R", ",", 
+          RowBox[{
+           RowBox[{"Projector", "[", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{
+              "\"\<F1\>\"", ",", "\"\<F2\>\"", ",", "\"\<G1\>\"", ",", 
+               "\"\<G2\>\""}], "}"}], ",", "\[Mu]"}], "]"}], "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+        ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "me"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+    "diagrams", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "=", 
+    RowBox[{
+     RowBox[{"Qq", " ", 
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Spur", "[", 
+         RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+          "\[DoubleStruckCapitalP]R", ",", 
+          RowBox[{
+           RowBox[{"Projector", "[", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{
+              "\"\<F1\>\"", ",", "\"\<F2\>\"", ",", "\"\<G1\>\"", ",", 
+               "\"\<G2\>\""}], "}"}], ",", "\[Mu]"}], "]"}], "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+        ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+    "diagrams", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "=", 
+    RowBox[{
+     RowBox[{"QLQ", " ", 
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Contract", "[", 
+         RowBox[{
+          RowBox[{"Spur", "[", 
+           RowBox[{"\[DoubleStruckCapitalP]L", " ", ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+             RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+            "\[DoubleStruckCapitalP]R", ",", 
+            RowBox[{
+             RowBox[{"Projector", "[", 
+              RowBox[{
+               RowBox[{"{", 
+                RowBox[{
+                "\"\<F1\>\"", ",", "\"\<F2\>\"", ",", "\"\<G1\>\"", ",", 
+                 "\"\<G2\>\""}], "}"}], ",", "\[Mu]"}], "]"}], "[", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", 
+             SubscriptBox["k", "\[Mu]"]}], "-", 
+            SubscriptBox["q", "\[Mu]"]}], ")"}]}], "]"}], ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "-", "q"}], ",", "mLQ"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+    "diagrams", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "=", 
+    RowBox[{
+     RowBox[{"Q\[ScriptL]", " ", 
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Spur", "[", 
+         RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+          "\[DoubleStruckCapitalP]R", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"m\[Mu]", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+          RowBox[{
+           RowBox[{"Projector", "[", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{
+              "\"\<F1\>\"", ",", "\"\<F2\>\"", ",", "\"\<G1\>\"", ",", 
+               "\"\<G2\>\""}], "}"}], ",", "\[Mu]"}], "]"}], "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+        ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "q"}], ",", "m\[Mu]"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "mLQ"}], "}"}]}], "]"}]}], "/.", "onShell"}]}], 
+   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"Total", "[", 
+   RowBox[{
+    RowBox[{"diagrams", "/.", 
+     RowBox[{
+      RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}], "/.", 
+    RowBox[{"QLQ", "\[Rule]", 
+     RowBox[{"Q\[ScriptL]", "-", "Qq"}]}]}], "]"}], "]"}]}], "Input",
+ CellLabel->"In[36]:=",
+ CellID->1170892097],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0", ",", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      RowBox[{"2", " ", "me", " ", "m\[Mu]", " ", "Qq"}], "+", 
+      RowBox[{
+       SuperscriptBox["mLQ", "2"], " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{
+       SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "-", 
+      RowBox[{"me", " ", "m\[Mu]", " ", "Q\[ScriptL]"}]}], 
+     RowBox[{"4", " ", "me", " ", "m\[Mu]"}]], "-", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"4", " ", "me", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["me", "2"], "-", 
+         SuperscriptBox["m\[Mu]", "2"]}], ")"}]}]], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", "m\[Mu]", " ", "Qq"}], "+", 
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["mLQ", "2"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{
+         SuperscriptBox["me", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "+", 
+        
+        RowBox[{
+         SuperscriptBox["mLQ", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{
+         SuperscriptBox["mq", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}]}], 
+       ")"}], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq"}], "]"}]}]}], "+", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"4", " ", "m\[Mu]", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["me", "2"], "-", 
+         SuperscriptBox["m\[Mu]", "2"]}], ")"}]}]], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "+", 
+        RowBox[{"me", " ", 
+         SuperscriptBox["mLQ", "2"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"me", " ", 
+         SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["mLQ", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["mq", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+        
+        RowBox[{"me", " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}]}], ")"}], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mq"}], "]"}]}]}], 
+    "-", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"8", " ", 
+       SuperscriptBox["me", "3"], " ", 
+       SuperscriptBox["m\[Mu]", "3"]}]], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mq", "2"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "+", 
+        RowBox[{
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mLQ", "4"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mq", "4"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["mLQ", "4"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"4", " ", "me", " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["mq", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "+", 
+        
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["mq", "4"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+        
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{
+         SuperscriptBox["mLQ", "4"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["mq", "2"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{
+         SuperscriptBox["mq", "4"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}]}], ")"}], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["mLQ", "2"], 
+        SuperscriptBox["mq", "2"]], "]"}]}]}], "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     SuperscriptBox["mLQ", "2"], " ", 
+     RowBox[{"(", 
+      RowBox[{"Qq", "-", "Q\[ScriptL]"}], ")"}], " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", 
+       SuperscriptBox["me", "2"], ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mLQ", ",", "mq"}], 
+      "]"}]}], "+", 
+    RowBox[{
+     FractionBox["1", "2"], " ", 
+     SuperscriptBox["mq", "2"], " ", "Qq", " ", 
+     RowBox[{"ScalarC0", "[", 
+      RowBox[{"0", ",", 
+       SuperscriptBox["me", "2"], ",", 
+       SuperscriptBox["m\[Mu]", "2"], ",", "mq", ",", "mq", ",", "mLQ"}], 
+      "]"}]}]}], ",", "0", ",", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", "me", " ", "m\[Mu]", " ", "Qq"}], "-", 
+        RowBox[{
+         SuperscriptBox["mLQ", "2"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{
+         SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"me", " ", "m\[Mu]", " ", "Q\[ScriptL]"}]}], ")"}]}], 
+     RowBox[{"4", " ", "me", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "-", "m\[Mu]"}], ")"}], " ", "m\[Mu]"}]], "+", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"4", " ", "me", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"me", "-", "m\[Mu]"}], ")"}], "2"]}]], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", "m\[Mu]", " ", "Qq"}], "-", 
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["mLQ", "2"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{
+         SuperscriptBox["me", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "+", 
+        
+        RowBox[{
+         SuperscriptBox["mLQ", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{
+         SuperscriptBox["mq", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}]}], 
+       ")"}], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        SuperscriptBox["me", "2"], ",", "mLQ", ",", "mq"}], "]"}]}]}], "-", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"4", " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"me", "-", "m\[Mu]"}], ")"}], "2"], " ", "m\[Mu]"}]], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "+", 
+        RowBox[{"me", " ", 
+         SuperscriptBox["mLQ", "2"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"me", " ", 
+         SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["mLQ", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["mq", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+        
+        RowBox[{"me", " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}]}], ")"}], " ", 
+      RowBox[{"DiscB", "[", 
+       RowBox[{
+        SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mq"}], "]"}]}]}], 
+    "+", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"8", " ", 
+       SuperscriptBox["me", "3"], " ", 
+       RowBox[{"(", 
+        RowBox[{"me", "-", "m\[Mu]"}], ")"}], " ", 
+       SuperscriptBox["m\[Mu]", "3"]}]], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mq", "2"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Qq"}], "+", 
+        RowBox[{
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mLQ", "4"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["mq", "2"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mq", "4"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["mLQ", "4"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{"4", " ", "me", " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["mq", "2"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+        
+        RowBox[{"2", " ", "me", " ", 
+         SuperscriptBox["mq", "4"], " ", "m\[Mu]", " ", "Q\[ScriptL]"}], "-", 
+        
+        RowBox[{"2", " ", 
+         SuperscriptBox["me", "2"], " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{
+         SuperscriptBox["mLQ", "4"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}], "-", 
+        RowBox[{"2", " ", 
+         SuperscriptBox["mLQ", "2"], " ", 
+         SuperscriptBox["mq", "2"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}], "+", 
+        RowBox[{
+         SuperscriptBox["mq", "4"], " ", 
+         SuperscriptBox["m\[Mu]", "2"], " ", "Q\[ScriptL]"}]}], ")"}], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        SuperscriptBox["mLQ", "2"], 
+        SuperscriptBox["mq", "2"]], "]"}]}]}], "+", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["mLQ", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{"Qq", "-", "Q\[ScriptL]"}], ")"}], " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", 
+        SuperscriptBox["me", "2"], ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", "mLQ", ",", "mLQ", ",", "mq"}], 
+       "]"}]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "-", "m\[Mu]"}], ")"}]}]], "+", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["mq", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "+", "m\[Mu]"}], ")"}], " ", "Qq", " ", 
+      RowBox[{"ScalarC0", "[", 
+       RowBox[{"0", ",", 
+        SuperscriptBox["me", "2"], ",", 
+        SuperscriptBox["m\[Mu]", "2"], ",", "mq", ",", "mq", ",", "mLQ"}], 
+       "]"}]}], 
+     RowBox[{"2", " ", 
+      RowBox[{"(", 
+       RowBox[{"me", "-", "m\[Mu]"}], ")"}]}]]}]}], "}"}]], "Output",
+ ImageSize->{563, 598},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[42]=",
+ CellID->423532257]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "The first (",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "1"], TraditionalForm]], "InlineMath"],
+ ") and the third (",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "1"], TraditionalForm]], "InlineMath"],
+ ") elements of the list vanish.  We can verify the decoupling theorem for ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "2"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "2"], TraditionalForm]], "InlineMath"],
+ ":"
+}], "Text",
+ CellID->1294614311],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefineSeries", "[", 
+  RowBox[{
+   RowBox[{"Total", "[", 
+    RowBox[{
+     RowBox[{"diagrams", "/.", 
+      RowBox[{
+       RowBox[{"q", ".", "q"}], "\[Rule]", "0"}]}], "/.", 
+     RowBox[{"QLQ", "\[Rule]", 
+      RowBox[{"Q\[ScriptL]", "-", "Qq"}]}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"mLQ", ",", "Infinity", ",", "2"}], "}"}], ",", 
+   RowBox[{"Analytic", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellLabel->"In[43]:=",
+ CellID->453974712],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      FractionBox["1", "mLQ"], "]"}], "3"],
+    SeriesData[$CellContext`mLQ, 
+     DirectedInfinity[1], {}, 3, 3, 1],
+    Editable->False], ",", 
+   InterpretationBox[
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"me", "+", "m\[Mu]"}], ")"}], "2"], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"3", " ", "Qq"}], "-", "Q\[ScriptL]"}], ")"}]}], 
+       RowBox[{"24", " ", 
+        SuperscriptBox["mLQ", "2"]}]]}], "+", 
+     InterpretationBox[
+      SuperscriptBox[
+       RowBox[{"O", "[", 
+        FractionBox["1", "mLQ"], "]"}], "3"],
+      SeriesData[$CellContext`mLQ, 
+       DirectedInfinity[1], {}, 2, 3, 1],
+      Editable->False]}],
+    SeriesData[$CellContext`mLQ, 
+     DirectedInfinity[1], {
+     Rational[-1, 24] ($CellContext`me + $CellContext`m\[Mu])^2 (
+       3 $CellContext`Qq - $CellContext`Q\[ScriptL])}, 2, 3, 1],
+    Editable->False], ",", 
+   InterpretationBox[
+    SuperscriptBox[
+     RowBox[{"O", "[", 
+      FractionBox["1", "mLQ"], "]"}], "3"],
+    SeriesData[$CellContext`mLQ, 
+     DirectedInfinity[1], {}, 3, 3, 1],
+    Editable->False], ",", 
+   InterpretationBox[
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          SuperscriptBox["me", "2"], "-", 
+          SuperscriptBox["m\[Mu]", "2"]}], ")"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"3", " ", "Qq"}], "-", "Q\[ScriptL]"}], ")"}]}], 
+       RowBox[{"24", " ", 
+        SuperscriptBox["mLQ", "2"]}]]}], "+", 
+     InterpretationBox[
+      SuperscriptBox[
+       RowBox[{"O", "[", 
+        FractionBox["1", "mLQ"], "]"}], "3"],
+      SeriesData[$CellContext`mLQ, 
+       DirectedInfinity[1], {}, 2, 3, 1],
+      Editable->False]}],
+    SeriesData[$CellContext`mLQ, 
+     DirectedInfinity[1], {
+     Rational[-1, 24] ($CellContext`me^2 - $CellContext`m\[Mu]^2) (
+       3 $CellContext`Qq - $CellContext`Q\[ScriptL])}, 2, 3, 1],
+    Editable->False]}], "}"}]], "Output",
+ ImageSize->{574, 39},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[43]=",
+ CellID->629348081]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Ward identity violating Form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "3"], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "3"], TraditionalForm]], "InlineMath"]
+}], "Subsection",
+ Deletable->True,
+ CellID->1131561549],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "We can also verify that the Ward identity violating form factors ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["F", "3"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubscriptBox["G", "3"], TraditionalForm]], "InlineMath"],
+ " vanish:"
+}], "Text",
+ CellID->1739355325],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"diagramsWIV", "=", 
+    RowBox[{"Table", "[", 
+     RowBox[{"0", ",", 
+      RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+    "diagramsWIV", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
+    "=", 
+    RowBox[{
+     RowBox[{"Q\[ScriptL]", " ", 
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Spur", "[", 
+         RowBox[{
+          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+          RowBox[{
+           RowBox[{"p", ".", "\[Gamma]"}], "+", 
+           RowBox[{"me", " ", "\[DoubleStruckOne]"}]}], ",", 
+          "\[DoubleStruckCapitalP]L", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+          "\[DoubleStruckCapitalP]R", ",", 
+          RowBox[{
+           RowBox[{"Projector", "[", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{"\"\<F3\>\"", ",", "\"\<G3\>\""}], "}"}], ",", 
+             "\[Mu]"}], "]"}], "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+        ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "me"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "mLQ"}], "}"}], ",", 
+        RowBox[{"Cancel", "\[Rule]", "True"}]}], "]"}]}], "/.", "onShell"}]}],
+    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+    "diagramsWIV", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
+    "=", 
+    RowBox[{
+     RowBox[{"Qq", " ", 
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Spur", "[", 
+         RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+          "\[DoubleStruckCapitalP]R", ",", 
+          RowBox[{
+           RowBox[{"Projector", "[", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{"\"\<F3\>\"", ",", "\"\<G3\>\""}], "}"}], ",", 
+             "\[Mu]"}], "]"}], "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+        ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "mLQ"}], "}"}], ",", 
+        RowBox[{"Cancel", "\[Rule]", "True"}]}], "]"}]}], "/.", "onShell"}]}],
+    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+    "diagramsWIV", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
+    "=", 
+    RowBox[{
+     RowBox[{"QLQ", " ", 
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Contract", "[", 
+         RowBox[{
+          RowBox[{"Spur", "[", 
+           RowBox[{"\[DoubleStruckCapitalP]L", " ", ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{"p", "-", "k"}], ")"}], ".", "\[Gamma]"}], "+", 
+             RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+            "\[DoubleStruckCapitalP]R", ",", 
+            RowBox[{
+             RowBox[{"Projector", "[", 
+              RowBox[{
+               RowBox[{"{", 
+                RowBox[{"\"\<F3\>\"", ",", "\"\<G3\>\""}], "}"}], ",", 
+               "\[Mu]"}], "]"}], "[", 
+             RowBox[{
+              RowBox[{"{", 
+               RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", 
+             SubscriptBox["k", "\[Mu]"]}], "-", 
+            SubscriptBox["q", "\[Mu]"]}], ")"}]}], "]"}], ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "-", "q"}], ",", "mLQ"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "mLQ"}], "}"}], ",", 
+        RowBox[{"Cancel", "\[Rule]", "True"}]}], "]"}]}], "/.", "onShell"}]}],
+    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+    "diagramsWIV", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], 
+    "=", 
+    RowBox[{
+     RowBox[{"Q\[ScriptL]", " ", 
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Spur", "[", 
+         RowBox[{"\[DoubleStruckCapitalP]L", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "k", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"mq", " ", "\[DoubleStruckOne]"}]}], ",", 
+          "\[DoubleStruckCapitalP]R", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"p", "-", "q"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"m\[Mu]", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+          RowBox[{
+           RowBox[{"Projector", "[", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{"\"\<F3\>\"", ",", "\"\<G3\>\""}], "}"}], ",", 
+             "\[Mu]"}], "]"}], "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"p", ",", "m\[Mu]"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"p", "-", "q"}], ",", "me"}], "}"}]}], "]"}]}], "]"}], 
+        ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "k", "-", "q"}], ",", "mq"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"p", "-", "q"}], ",", "m\[Mu]"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "mLQ"}], "}"}], ",", 
+        RowBox[{"Cancel", "\[Rule]", "True"}]}], "]"}]}], "/.", "onShell"}]}],
+    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"Total", "[", 
+   RowBox[{"diagramsWIV", "/.", 
+    RowBox[{"QLQ", "\[Rule]", 
+     RowBox[{"Q\[ScriptL]", "-", "Qq"}]}]}], "]"}], "]"}]}], "Input",
+ CellLabel->"In[44]:=",
+ CellID->2020037968],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0", ",", "0"}], "}"}]], "Output",
+ ImageSize->{43, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[49]=",
+ CellID->1174429231]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Final Result", "Section",
+ CellID->1774893116],
+
+Cell[TextData[{
+ "We can gather the results above to write down the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[Mu]", "\[Rule]", 
+    RowBox[{"e", " ", "\[Gamma]"}]}], TraditionalForm]], "InlineMath"],
+ " matrix element.  To all orders in the leptoquark mass, the result is:"
+}], "Text",
+ Deletable->True,
+ CellID->1437036326],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{"\[ScriptCapitalM]", "=", 
+   RowBox[{
+    RowBox[{"e", " ", 
+     SubscriptBox["N", "C"], " ", 
+     SuperscriptBox["\[Lambda]", "2"], 
+     RowBox[{
+      SubscriptBox[
+       OverscriptBox["u", "_"], "e"], "(", 
+      RowBox[{
+       StyleBox["p",
+        FontWeight->"Bold"], "-", 
+       StyleBox["q",
+        FontWeight->"Bold"]}], ")"}], 
+     FractionBox[
+      RowBox[{"\[ImaginaryI]", " ", 
+       RowBox[{
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], "(", 
+        RowBox[{"-", 
+         SubscriptBox["q", "\[Nu]"]}], ")"}]}], 
+      RowBox[{
+       SubscriptBox["m", "\[Mu]"], "+", 
+       SubscriptBox["m", "e"]}]], " ", 
+     RowBox[{
+      SubscriptBox["u", "\[Mu]"], "(", 
+      StyleBox["p",
+       FontWeight->"Bold"], ")"}], " ", 
+     RowBox[{
+      SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+      StyleBox["q",
+       FontWeight->"Bold"], ")"}], 
+     RowBox[{
+      StyleBox[
+       FractionBox["i", 
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}]],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]], "[", 
+      RowBox[{
+       RowBox[{
+        FractionBox["1", "2"], " ", 
+        FormBox[
+         SubscriptBox["Q", "q"],
+         TraditionalForm], " ", 
+        FormBox[
+         TemplateBox[{"m","q","2"},
+          "Subsuperscript"],
+         TraditionalForm], " ", 
+        RowBox[{
+         SubscriptBox["C", "0"], "(", 
+         RowBox[{
+          FormBox["0",
+           TraditionalForm], ",", 
+          FormBox[
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm],
+           TraditionalForm], ",", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             TemplateBox[{"m","\[Mu]","2"},
+              "Subsuperscript"],
+             TraditionalForm],
+            TraditionalForm], ";", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "q"],
+             TraditionalForm],
+            TraditionalForm]}], ",", 
+          FormBox[
+           FormBox[
+            SubscriptBox["m", "q"],
+            TraditionalForm],
+           TraditionalForm], ",", 
+          FormBox[
+           FormBox[
+            SubscriptBox["m", "LQ"],
+            TraditionalForm],
+           TraditionalForm]}], ")"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "2"], " ", 
+        FormBox[
+         TemplateBox[{"m","LQ","2"},
+          "Subsuperscript"],
+         TraditionalForm], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          FormBox[
+           SubscriptBox["Q", "q"],
+           TraditionalForm], "-", 
+          FormBox[
+           SubscriptBox["Q", "\[ScriptL]"],
+           TraditionalForm]}], ")"}], " ", 
+        RowBox[{
+         SubscriptBox["C", "0"], "(", 
+         RowBox[{
+          FormBox["0",
+           TraditionalForm], ",", 
+          FormBox[
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm],
+           TraditionalForm], ",", 
+          RowBox[{
+           FormBox[
+            FormBox[
+             TemplateBox[{"m","\[Mu]","2"},
+              "Subsuperscript"],
+             TraditionalForm],
+            TraditionalForm], ";", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "LQ"],
+             TraditionalForm],
+            TraditionalForm]}], ",", 
+          FormBox[
+           FormBox[
+            SubscriptBox["m", "LQ"],
+            TraditionalForm],
+           TraditionalForm], ",", 
+          FormBox[
+           FormBox[
+            SubscriptBox["m", "q"],
+            TraditionalForm],
+           TraditionalForm]}], ")"}]}], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "2"}], " ", 
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","LQ","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "-", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "q"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","e","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","q","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","e","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "-", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","LQ","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","q","2"},
+              "Subsuperscript"],
+             TraditionalForm]}]}], ")"}], " ", 
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{
+           RowBox[{
+            FormBox[
+             FormBox[
+              TemplateBox[{"m","e","2"},
+               "Subsuperscript"],
+              TraditionalForm],
+             TraditionalForm], ";", 
+            FormBox[
+             FormBox[
+              SubscriptBox["m", "LQ"],
+              TraditionalForm],
+             TraditionalForm]}], ",", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "q"],
+             TraditionalForm],
+            TraditionalForm]}], ")"}]}], 
+        RowBox[{"4", " ", 
+         FormBox[
+          SubscriptBox["m", "e"],
+          TraditionalForm], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], "-", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","LQ","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "q"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","\[Mu]","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "-", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","q","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "-", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","\[Mu]","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","LQ","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "-", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","q","2"},
+              "Subsuperscript"],
+             TraditionalForm]}]}], ")"}], " ", 
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{
+           RowBox[{
+            FormBox[
+             FormBox[
+              TemplateBox[{"m","\[Mu]","2"},
+               "Subsuperscript"],
+              TraditionalForm],
+             TraditionalForm], ";", 
+            FormBox[
+             FormBox[
+              SubscriptBox["m", "LQ"],
+              TraditionalForm],
+             TraditionalForm]}], ",", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "q"],
+             TraditionalForm],
+            TraditionalForm]}], ")"}]}], 
+        RowBox[{"4", " ", 
+         FormBox[
+          SubscriptBox["m", "\[Mu]"],
+          TraditionalForm], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], "-", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"2", " ", 
+          FormBox[
+           SubscriptBox["m", "e"],
+           TraditionalForm], " ", 
+          FormBox[
+           SubscriptBox["m", "\[Mu]"],
+           TraditionalForm], " ", 
+          FormBox[
+           SubscriptBox["Q", "q"],
+           TraditionalForm]}], "-", 
+         RowBox[{
+          FormBox[
+           SubscriptBox["m", "e"],
+           TraditionalForm], " ", 
+          FormBox[
+           SubscriptBox["m", "\[Mu]"],
+           TraditionalForm], " ", 
+          FormBox[
+           SubscriptBox["Q", "\[ScriptL]"],
+           TraditionalForm]}], "+", 
+         RowBox[{
+          FormBox[
+           SubscriptBox["Q", "\[ScriptL]"],
+           TraditionalForm], " ", 
+          FormBox[
+           TemplateBox[{"m","LQ","2"},
+            "Subsuperscript"],
+           TraditionalForm]}], "-", 
+         RowBox[{
+          FormBox[
+           SubscriptBox["Q", "\[ScriptL]"],
+           TraditionalForm], " ", 
+          FormBox[
+           TemplateBox[{"m","q","2"},
+            "Subsuperscript"],
+           TraditionalForm]}]}], 
+        RowBox[{"4", " ", 
+         FormBox[
+          SubscriptBox["m", "e"],
+          TraditionalForm], " ", 
+         FormBox[
+          SubscriptBox["m", "\[Mu]"],
+          TraditionalForm]}]], "+", 
+       RowBox[{
+        FractionBox["1", 
+         RowBox[{"8", " ", 
+          FormBox[
+           TemplateBox[{"m","e","3"},
+            "Subsuperscript"],
+           TraditionalForm], " ", 
+          FormBox[
+           TemplateBox[{"m","\[Mu]","3"},
+            "Subsuperscript"],
+           TraditionalForm]}]], 
+        RowBox[{"log", "(", 
+         FractionBox[
+          FormBox[
+           TemplateBox[{"m","LQ","2"},
+            "Subsuperscript"],
+           TraditionalForm], 
+          FormBox[
+           TemplateBox[{"m","q","2"},
+            "Subsuperscript"],
+           TraditionalForm]], ")"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "2"}], " ", 
+           FormBox[
+            SubscriptBox["Q", "q"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"4", " ", 
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "-", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","4"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           RowBox[{"(", 
+            RowBox[{"-", 
+             FormBox[
+              TemplateBox[{"m","e","2"},
+               "Subsuperscript"],
+              TraditionalForm]}], ")"}], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","4"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["Q", "q"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "-", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","4"},
+             "Subsuperscript"],
+            TraditionalForm]}], "-", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","4"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "-", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","4"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "-", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","4"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}]}], ")"}]}]}], "]"}]}], "+", 
+    RowBox[{"e", " ", 
+     SubscriptBox["N", "C"], " ", 
+     SuperscriptBox["\[Lambda]", "2"], 
+     RowBox[{
+      SubscriptBox[
+       OverscriptBox["u", "_"], "e"], "(", 
+      RowBox[{
+       StyleBox["p",
+        FontWeight->"Bold"], "-", 
+       StyleBox["q",
+        FontWeight->"Bold"]}], ")"}], 
+     FractionBox[
+      RowBox[{"\[ImaginaryI]", " ", 
+       SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+       RowBox[{
+        SubscriptBox["\[Gamma]", "5"], "(", 
+        RowBox[{"-", 
+         SubscriptBox["q", "\[Nu]"]}], ")"}]}], 
+      RowBox[{
+       SubscriptBox["m", "\[Mu]"], "+", 
+       SubscriptBox["m", "e"]}]], " ", 
+     RowBox[{
+      SubscriptBox["u", "\[Mu]"], "(", 
+      StyleBox["p",
+       FontWeight->"Bold"], ")"}], " ", 
+     RowBox[{
+      SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+      StyleBox["q",
+       FontWeight->"Bold"], ")"}], 
+     RowBox[{
+      StyleBox[
+       FractionBox["i", 
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}]],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]], "[", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         FormBox[
+          SubscriptBox["Q", "q"],
+          TraditionalForm], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], "+", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm]}], ")"}], " ", 
+         FormBox[
+          TemplateBox[{"m","q","2"},
+           "Subsuperscript"],
+          TraditionalForm], " ", 
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{
+           FormBox["0",
+            TraditionalForm], ",", 
+           FormBox[
+            FormBox[
+             TemplateBox[{"m","e","2"},
+              "Subsuperscript"],
+             TraditionalForm],
+            TraditionalForm], ",", 
+           RowBox[{
+            FormBox[
+             FormBox[
+              TemplateBox[{"m","\[Mu]","2"},
+               "Subsuperscript"],
+              TraditionalForm],
+             TraditionalForm], ";", 
+            FormBox[
+             FormBox[
+              SubscriptBox["m", "q"],
+              TraditionalForm],
+             TraditionalForm]}], ",", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "q"],
+             TraditionalForm],
+            TraditionalForm], ",", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "LQ"],
+             TraditionalForm],
+            TraditionalForm]}], ")"}]}], 
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], "-", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], "+", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm]}], ")"}], " ", 
+         FormBox[
+          TemplateBox[{"m","LQ","2"},
+           "Subsuperscript"],
+          TraditionalForm], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["Q", "q"],
+            TraditionalForm], "-", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm]}], ")"}], " ", 
+         RowBox[{
+          SubscriptBox["C", "0"], "(", 
+          RowBox[{
+           FormBox["0",
+            TraditionalForm], ",", 
+           FormBox[
+            FormBox[
+             TemplateBox[{"m","e","2"},
+              "Subsuperscript"],
+             TraditionalForm],
+            TraditionalForm], ",", 
+           RowBox[{
+            FormBox[
+             FormBox[
+              TemplateBox[{"m","\[Mu]","2"},
+               "Subsuperscript"],
+              TraditionalForm],
+             TraditionalForm], ";", 
+            FormBox[
+             FormBox[
+              SubscriptBox["m", "LQ"],
+              TraditionalForm],
+             TraditionalForm]}], ",", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "LQ"],
+             TraditionalForm],
+            TraditionalForm], ",", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "q"],
+             TraditionalForm],
+            TraditionalForm]}], ")"}]}], 
+        RowBox[{"2", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], "-", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "2"}], " ", 
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","LQ","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "q"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","e","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","q","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "-", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","e","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","LQ","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "-", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","q","2"},
+              "Subsuperscript"],
+             TraditionalForm]}]}], ")"}], " ", 
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{
+           RowBox[{
+            FormBox[
+             FormBox[
+              TemplateBox[{"m","e","2"},
+               "Subsuperscript"],
+              TraditionalForm],
+             TraditionalForm], ";", 
+            FormBox[
+             FormBox[
+              SubscriptBox["m", "LQ"],
+              TraditionalForm],
+             TraditionalForm]}], ",", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "q"],
+             TraditionalForm],
+            TraditionalForm]}], ")"}]}], 
+        RowBox[{"4", " ", 
+         FormBox[
+          SubscriptBox["m", "e"],
+          TraditionalForm], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], "-", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm]}], ")"}], "2"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", 
+             FormBox[
+              SubscriptBox["m", "e"],
+              TraditionalForm]}], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","LQ","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "-", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "q"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","\[Mu]","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","q","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","\[Mu]","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","LQ","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "-", 
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","q","2"},
+              "Subsuperscript"],
+             TraditionalForm]}]}], ")"}], " ", 
+         RowBox[{"\[CapitalLambda]", "(", 
+          RowBox[{
+           RowBox[{
+            FormBox[
+             FormBox[
+              TemplateBox[{"m","\[Mu]","2"},
+               "Subsuperscript"],
+              TraditionalForm],
+             TraditionalForm], ";", 
+            FormBox[
+             FormBox[
+              SubscriptBox["m", "LQ"],
+              TraditionalForm],
+             TraditionalForm]}], ",", 
+           FormBox[
+            FormBox[
+             SubscriptBox["m", "q"],
+             TraditionalForm],
+            TraditionalForm]}], ")"}]}], 
+        RowBox[{"4", " ", 
+         FormBox[
+          SubscriptBox["m", "\[Mu]"],
+          TraditionalForm], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], "-", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm]}], ")"}], "2"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], "+", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm]}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "q"],
+             TraditionalForm]}], "-", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm], " ", 
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm]}], "-", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","LQ","2"},
+              "Subsuperscript"],
+             TraditionalForm]}], "+", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["Q", "\[ScriptL]"],
+             TraditionalForm], " ", 
+            FormBox[
+             TemplateBox[{"m","q","2"},
+              "Subsuperscript"],
+             TraditionalForm]}]}], ")"}]}], 
+        RowBox[{"4", " ", 
+         FormBox[
+          SubscriptBox["m", "e"],
+          TraditionalForm], " ", 
+         FormBox[
+          SubscriptBox["m", "\[Mu]"],
+          TraditionalForm], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], "-", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm]}], ")"}]}]], "-", 
+       RowBox[{
+        FractionBox["1", 
+         RowBox[{"8", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], "-", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm]}], ")"}], " ", 
+          FormBox[
+           TemplateBox[{"m","e","3"},
+            "Subsuperscript"],
+           TraditionalForm], " ", 
+          FormBox[
+           TemplateBox[{"m","\[Mu]","3"},
+            "Subsuperscript"],
+           TraditionalForm]}]], 
+        RowBox[{"(", 
+         RowBox[{
+          FormBox[
+           SubscriptBox["m", "e"],
+           TraditionalForm], "+", 
+          FormBox[
+           SubscriptBox["m", "\[Mu]"],
+           TraditionalForm]}], ")"}], " ", 
+        RowBox[{"log", "(", 
+         FractionBox[
+          FormBox[
+           TemplateBox[{"m","LQ","2"},
+            "Subsuperscript"],
+           TraditionalForm], 
+          FormBox[
+           TemplateBox[{"m","q","2"},
+            "Subsuperscript"],
+           TraditionalForm]], ")"}], " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "2"}], " ", 
+           FormBox[
+            SubscriptBox["Q", "q"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "-", 
+          RowBox[{"4", " ", 
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","4"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           RowBox[{"(", 
+            RowBox[{"-", 
+             FormBox[
+              TemplateBox[{"m","e","2"},
+               "Subsuperscript"],
+              TraditionalForm]}], ")"}], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","4"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["Q", "q"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["m", "e"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["m", "\[Mu]"],
+            TraditionalForm], " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","4"},
+             "Subsuperscript"],
+            TraditionalForm]}], "-", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","4"},
+             "Subsuperscript"],
+            TraditionalForm]}], "+", 
+          RowBox[{"2", " ", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","2"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "-", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","LQ","4"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], "-", 
+          RowBox[{
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","q","4"},
+             "Subsuperscript"],
+            TraditionalForm], " ", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}]}], ")"}]}]}], "]"}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "Text",
+ Deletable->True,
+ CellID->1732928910],
+
+Cell[TextData[{
+ "A more compact result is obtained in the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["m", "LQ"], "\[Rule]", "\[Infinity]"}], TraditionalForm]], 
+  "InlineMath"],
+ " limit:"
+}], "Text",
+ Deletable->True,
+ CellID->348723075],
+
+Cell[TextData[Cell[BoxData[
+ FormBox[
+  RowBox[{"\[ScriptCapitalM]", "=", 
+   RowBox[{
+    RowBox[{"e", " ", 
+     SubscriptBox["N", "C"], " ", 
+     SuperscriptBox["\[Lambda]", "2"], 
+     RowBox[{
+      SubscriptBox[
+       OverscriptBox["u", "_"], "e"], "(", 
+      RowBox[{
+       StyleBox["p",
+        FontWeight->"Bold"], "-", 
+       StyleBox["q",
+        FontWeight->"Bold"]}], ")"}], 
+     FractionBox[
+      RowBox[{"\[ImaginaryI]", " ", 
+       RowBox[{
+        SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], "(", 
+        RowBox[{"-", 
+         SubscriptBox["q", "\[Nu]"]}], ")"}]}], 
+      RowBox[{
+       SubscriptBox["m", "\[Mu]"], "+", 
+       SubscriptBox["m", "e"]}]], " ", 
+     RowBox[{
+      SubscriptBox["u", "\[Mu]"], "(", 
+      StyleBox["p",
+       FontWeight->"Bold"], ")"}], " ", 
+     RowBox[{
+      SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+      StyleBox["q",
+       FontWeight->"Bold"], ")"}], 
+     RowBox[{
+      StyleBox[
+       FractionBox["i", 
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}]],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]], "[", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            FormBox[
+             SubscriptBox["m", "e"],
+             TraditionalForm], "+", 
+            FormBox[
+             SubscriptBox["m", "\[Mu]"],
+             TraditionalForm]}], ")"}], "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"3", " ", 
+            FormBox[
+             SubscriptBox["Q", "q"],
+             TraditionalForm]}], "-", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm]}], ")"}]}], 
+        RowBox[{"24", " ", 
+         FormBox[
+          TemplateBox[{"m","LQ","2"},
+           "Subsuperscript"],
+          TraditionalForm]}]]}], "]"}]}], "+", 
+    RowBox[{"e", " ", 
+     SubscriptBox["N", "C"], " ", 
+     SuperscriptBox["\[Lambda]", "2"], 
+     RowBox[{
+      SubscriptBox[
+       OverscriptBox["u", "_"], "e"], "(", 
+      RowBox[{
+       StyleBox["p",
+        FontWeight->"Bold"], "-", 
+       StyleBox["q",
+        FontWeight->"Bold"]}], ")"}], 
+     FractionBox[
+      RowBox[{"\[ImaginaryI]", " ", 
+       SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+       RowBox[{
+        SubscriptBox["\[Gamma]", "5"], "(", 
+        RowBox[{"-", 
+         SubscriptBox["q", "\[Nu]"]}], ")"}]}], 
+      RowBox[{
+       SubscriptBox["m", "\[Mu]"], "+", 
+       SubscriptBox["m", "e"]}]], " ", 
+     RowBox[{
+      SubscriptBox["u", "\[Mu]"], "(", 
+      StyleBox["p",
+       FontWeight->"Bold"], ")"}], " ", 
+     RowBox[{
+      SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+      StyleBox["q",
+       FontWeight->"Bold"], ")"}], 
+     RowBox[{
+      StyleBox[
+       FractionBox["i", 
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}]],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]], "[", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"3", " ", 
+            FormBox[
+             SubscriptBox["Q", "q"],
+             TraditionalForm]}], "-", 
+           FormBox[
+            SubscriptBox["Q", "\[ScriptL]"],
+            TraditionalForm]}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           FormBox[
+            TemplateBox[{"m","e","2"},
+             "Subsuperscript"],
+            TraditionalForm], "-", 
+           FormBox[
+            TemplateBox[{"m","\[Mu]","2"},
+             "Subsuperscript"],
+            TraditionalForm]}], ")"}]}], 
+        RowBox[{"24", " ", 
+         FormBox[
+          TemplateBox[{"m","LQ","2"},
+           "Subsuperscript"],
+          TraditionalForm]}]]}], "]"}]}]}]}], 
+  TraditionalForm]], "InlineMath"]], "Text",
+ Deletable->True,
+ CellID->1804046409],
+
+Cell["or,", "Text",
+ Deletable->True,
+ CellID->576286044],
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalM]", "=", " ", 
+    RowBox[{
+     RowBox[{"e", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"3", " ", 
+         FormBox[
+          SubscriptBox["Q", "q"],
+          TraditionalForm]}], "-", 
+        FormBox[
+         SubscriptBox["Q", "\[ScriptL]"],
+         TraditionalForm]}], ")"}], 
+      SubscriptBox["N", "C"], " ", 
+      SuperscriptBox["\[Lambda]", "2"], 
+      RowBox[{
+       SubscriptBox[
+        OverscriptBox["u", "_"], "e"], "(", 
+       RowBox[{
+        StyleBox["p",
+         FontWeight->"Bold"], "-", 
+        StyleBox["q",
+         FontWeight->"Bold"]}], ")"}], "\[ImaginaryI]", " ", 
+      SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+      SubscriptBox["q", "\[Nu]"], " ", 
+      RowBox[{
+       SubscriptBox["u", "\[Mu]"], "(", 
+       StyleBox["p",
+        FontWeight->"Bold"], ")"}], " ", 
+      RowBox[{
+       SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+       StyleBox["q",
+        FontWeight->"Bold"], ")"}], 
+      StyleBox[
+       FractionBox["i", 
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}]],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+      FractionBox[
+       RowBox[{
+        FormBox[
+         SubscriptBox["m", "e"],
+         TraditionalForm], "+", 
+        FormBox[
+         SubscriptBox["m", "\[Mu]"],
+         TraditionalForm], " "}], 
+       RowBox[{"24", " ", 
+        FormBox[
+         TemplateBox[{"m","LQ","2"},
+          "Subsuperscript"],
+         TraditionalForm]}]]}], "+", 
+     RowBox[{
+      RowBox[{"e", "(", 
+       RowBox[{
+        RowBox[{"3", " ", 
+         FormBox[
+          SubscriptBox["Q", "q"],
+          TraditionalForm]}], "-", 
+        FormBox[
+         SubscriptBox["Q", "\[ScriptL]"],
+         TraditionalForm]}], ")"}], " ", 
+      SubscriptBox["N", "C"], " ", 
+      SuperscriptBox["\[Lambda]", "2"], 
+      RowBox[{
+       SubscriptBox[
+        OverscriptBox["u", "_"], "e"], "(", 
+       RowBox[{
+        StyleBox["p",
+         FontWeight->"Bold"], "-", 
+        StyleBox["q",
+         FontWeight->"Bold"]}], ")"}], "\[ImaginaryI]", " ", 
+      SuperscriptBox["\[Sigma]", "\[Mu]\[Nu]"], 
+      SubscriptBox["\[Gamma]", "5"], 
+      SubscriptBox["q", "\[Nu]"], " ", 
+      RowBox[{
+       SubscriptBox["u", "\[Mu]"], "(", 
+       StyleBox["p",
+        FontWeight->"Bold"], ")"}], " ", 
+      RowBox[{
+       SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+       StyleBox["q",
+        FontWeight->"Bold"], ")"}], 
+      StyleBox[
+       FractionBox["i", 
+        RowBox[{"16", 
+         SuperscriptBox["\[Pi]", "2"]}]],
+       FontColor->RGBColor[0.6666666666666666, 0., 0.]], 
+      FractionBox[
+       RowBox[{" ", 
+        RowBox[{
+         FormBox[
+          SubscriptBox["m", "e"],
+          TraditionalForm], "-", 
+         SubscriptBox["m", "\[Mu]"]}]}], 
+       RowBox[{"24", " ", 
+        FormBox[
+         TemplateBox[{"m","LQ","2"},
+          "Subsuperscript"],
+         TraditionalForm]}]]}]}]}], TraditionalForm]], "InlineMath"],
+ "\[LineSeparator]"
+}], "Text",
+ Deletable->True,
+ CellID->1039113541]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "TutorialMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "TutorialMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Guides"}], "TutorialMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "TutorialMoreAbout",
+ CellID->1567025153],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Extracting Form Factors from the \[Mu]\[Rule]e \[Gamma] Amplitude - \
+Wolfram Mathematica", 
+  "Extracting Form Factors from the \[Mu]\[Rule]e \[Gamma] Amplitude"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "TutorialColor", 
+  "LinkTrails" -> GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 35.409825}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Tutorial", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "This tutorial illustrates how to extract form factors from loop \
+integrals that contain an open fermion line. As a concrete example, we will \
+compute the \[Mu]\[Rule]e \[Gamma] decay rate induced by a colored scalar \
+leptoquark at one-loop order in a hypothetical model. The Feynman digrams \
+are: ", "synonyms" -> {}, "title" -> 
+    "Extracting Form Factors from the \[Mu]\[Rule]e \[Gamma] Amplitude", 
+    "titlemodifier" -> "", "windowtitle" -> 
+    "Extracting Form Factors from the \[Mu]\[Rule]e \[Gamma] Amplitude", 
+    "type" -> "Tutorial", "uri" -> "X/tutorial/MuToEGamma"}, 
+  "SearchTextTranslated" -> ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> Notebook], 
+   Cell[
+    StyleData["Output"], CellContext -> Notebook], 
+   Cell[
+    StyleData["TutorialMoreAboutSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["RelatedTutorialsSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["TutorialRelatedLinksSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/Tutorials/PairAnnihilationUnitarity.nb b/packages/X/Documentation/English/Tutorials/PairAnnihilationUnitarity.nb
new file mode 100644
index 0000000000000000000000000000000000000000..dc2833ee7de44b2ae82ae64bfc14188b39257f0b
--- /dev/null
+++ b/packages/X/Documentation/English/Tutorials/PairAnnihilationUnitarity.nb
@@ -0,0 +1,4500 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X TUTORIAL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Functions \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Discontinuity\"\>":>
+       Documentation`HelpLookup[
+       "paclet:X/ref/Discontinuity"], "\<\"LoopRefine\"\>":>
+       Documentation`HelpLookup["paclet:X/ref/LoopRefine"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/tutorial/PairAnnihilationUnitarity\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/tutorial/PairAnnihilationUnitarity"]}, Visible -> 
+            False]]; SelectionMove[
+         DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/tutorial/\
+PairAnnihilationUnitarity.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/tutorial/PairAnnihilationUnitarity", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Evaluation of ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["e", "+"], 
+     SuperscriptBox["e", "-"]}], "\[Rule]", "\[Gamma]\[Gamma]"}], 
+   TraditionalForm]], "InlineMath"],
+ " Cross Section by The Optical Theorem"
+}], "Title",
+ Deletable->True,
+ CellID->509267359],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "A direct consequence of unitarity of the relativsitic ",
+ StyleBox["S",
+  FontSlant->"Italic"],
+ "-matrix is the optical theorem"
+}], "Text",
+ Deletable->True,
+ CellID->1534169418],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    RowBox[{"2", "Im", " ", 
+     RowBox[{"\[ScriptCapitalM]", "(", 
+      RowBox[{"s", ",", 
+       RowBox[{"t", "=", "0"}]}], ")"}]}], "=", 
+    RowBox[{"Flux", "\[Times]", 
+     SubscriptBox["\[Sigma]", "tot"]}]}], ","}], 
+  TraditionalForm]], "NumberedEquation",
+ CellTags->"opticalTheorem",
+ CellID->104519348]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "which relates the imaginary part of the forward (",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"t", "=", "0"}], TraditionalForm]], "InlineMath"],
+ ") elastic scattering amplitude to the total cross section.  Since the cross \
+section itself depends on the square of the scattering amplitude"
+}], "Text",
+ Deletable->True,
+ CellID->482907330],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubscriptBox["\[Sigma]", "Tot"], "=", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "Flux"], "\[Sum]"}], "|", 
+     RowBox[{"\[ScriptCapitalM]", "(", 
+      RowBox[{"s", ",", "t"}], ")"}], 
+     SuperscriptBox["|", "2"], 
+     SubscriptBox[
+      RowBox[{"d", "(", "PS", ")"}], "2"]}]}], ","}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->332437474]
+}, Open  ]],
+
+Cell["\<\
+the optical theorem provides a relationship that is nonlinear in the coupling \
+constant\[LongDash]frequently the perturbation parameter.  Therefore, the \
+optical theorem allows us to calculate cross sections at lower orders in \
+pertubation theory using information from the higher order amplitude with the \
+phase space integration already done.\
+\>", "Text",
+ Deletable->True,
+ CellID->960255992],
+
+Cell[TextData[{
+ "In this tutorial, the tree level unpolarized ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["e", "+"], 
+     SuperscriptBox["e", "-"]}], "\[Rule]", "\[Gamma]\[Gamma]"}], 
+   TraditionalForm]], "InlineMath"],
+ " cross section is obtained by calculating the imaginary part of the one \
+loop ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["e", "+"], 
+     SuperscriptBox["e", "-"]}], "\[Rule]", 
+    RowBox[{
+     SuperscriptBox["e", "+"], 
+     SuperscriptBox["e", "-"]}]}], TraditionalForm]], "InlineMath"],
+ " elastic amplitude.  In ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X, we can limit the calculation of any one loop integral to just the \
+discontinuity across the normal threshold cut by appropriately setting the \
+option ",
+ Cell[BoxData["Part"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "Text",
+ CellID->774957516],
+
+Cell[BoxData[GridBox[{
+   {
+    RowBox[{
+     ButtonBox["LoopRefine",
+      BaseStyle->"Link",
+      ButtonData->"paclet:X/ref/LoopRefine"], "[", 
+     RowBox[{
+      StyleBox["expr", "TI"], ",", 
+      RowBox[{"Part", "\[Rule]", 
+       RowBox[{
+        ButtonBox["Discontinuity",
+         BaseStyle->"Link",
+         ButtonData->"paclet:X/ref/Discontinuity"], "[", 
+        StyleBox["s", "TI"], "]"}]}]}], "]"}], Cell[TextData[{
+     "computes the discontinuity of ",
+     Cell[BoxData[
+      StyleBox["expr", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     " across the ",
+     Cell[BoxData[
+      StyleBox["s", "TI"]], "InlineFormula",
+      ShowStringCharacters->False,
+      FontFamily->FEPrivate`If[
+        FEPrivate`Or[
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+         FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], 
+        "Source Sans Pro", Inherited]],
+     "-channel normal threshold cut."
+    }], "TableText"]}
+  }]], "DefinitionBox",
+ CellID->2096742444],
+
+Cell["Obtaining discontinuities.", "Caption",
+ CellID->1891092685],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Since Feynman integrals are real analytic functions of the kinematic \
+variables, the discontinuity is proportial to the imaginary part\
+\>", "Text",
+ CellID->1848532626],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubscriptBox["Disc", "s"], "(", "\[ScriptCapitalM]", ")"}], "=", 
+   RowBox[{"2", "i", " ", "Im", " ", 
+    RowBox[{"\[ScriptCapitalM]", " ", "."}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellTags->"realAnalyticity",
+ CellID->1030201163]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "After substituting (",
+ 
+ CounterBox["NumberedEquation", "realAnalyticity"],
+ ") into the optical theorem (",
+ 
+ CounterBox["NumberedEquation", "opticalTheorem"],
+ "), we obtain the total cross section in terms of the discontinuity of the \
+loop integral in the forward limit:"
+}], "Text",
+ CellID->329970428],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   SubscriptBox["\[Sigma]", "Tot"], "=", 
+   RowBox[{
+    FractionBox[
+     RowBox[{"-", "i"}], "Flux"], 
+    SubscriptBox["Disc", "s"], " ", 
+    RowBox[{
+     RowBox[{"\[ScriptCapitalM]", "(", 
+      RowBox[{"s", ",", 
+       RowBox[{"t", "=", "0"}]}], ")"}], "."}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellTags->"opticalTheoremRealAnalytic",
+ CellID->337730340]
+}, Open  ]],
+
+Cell[TextData[{
+ "At one loop order, the Feynman diagrams are contributing to the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["e", "+"], 
+     SuperscriptBox["e", "-"]}], "\[Rule]", 
+    RowBox[{
+     SuperscriptBox["e", "+"], 
+     SuperscriptBox["e", "-"]}]}], TraditionalForm]], "InlineMath"],
+ " elastic amplitude are: "
+}], "Text",
+ CellID->2115247403],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[GridBox[{
+    {
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzs3U+LJUm/H/aD5cMzy5lXoLqz0crQMG+gbHplvGhkBm9LAg/YGzeyoNGu
+eFazbIwXml2thBlsqLV7U4u7KWhwgeEiYzXUQgth43aJK64kJKudORVn+kxW
+5L9zMjIiMz8Fn/vc6T5/IvJUn8z4ZsQv/uLv/3d/96f/aLfb/fffVP/n7/69
+d//pP/gHf+8f/Zf/cfUf/9k/+of/9d//W9X/899Wf/+3qj+p//DLly8AAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALAK+2+++bHy
+rvKh8jF3ewAAAIBpVOP878OY/+BLxLvc7QQAAADOEzKA2Lg/5ofc7QUAAACm
+VY33X7fkANYHAAAAwEqF2gDNLODn3O0CAAAA0qjnAESygNe52wUAAABMrxrz
+fxfJAT7nbhcAAACQRthDsJkF/JK7XQAAAEAadV2ASBbwY+52AQAAAGnU6wGa
+6wPqdQO52wUAAABMrxrz/xCZE/Br7naxLp/+/OfLytvKTeWu8lT5cpC7fQAA
+AFtSjfvfRbKAd7nbxXJVY/tvw9j/Ooz7v/SJvMbl0d/XucFt5ap+7dz9AwAA
+WLqWvQSzrQ/Y/6l6/z+SSyxMyAJ6x/89WcDbjsfXcwsuc/cTAABgiVr2EvyY
+tU2ygFUI9/HPyQLeD3hePefgIndfAQAAlqRlL8GsY29ZwLKEefuP9XqAyJ+f
+kwUMWlsQXKfuJwAAwFrUNQIjWcAPjcf8FHlMl1/OalOmLKBq9+tQO6H2qd5n
+MfKYnyLH7HN4zve5P885hfX8j40x+cXR349aJxB5/acRz3/MfTwAAACWIrKX
+4Keex/8Yec6XMHZ+N0WdgTmygKMx/88dmcbro8e/Dn3sy0F+yv2ZphbG+G3z
+/+8aj4097iHM/38b8oTL5tr/E+oNXM7VfyCN6rv+u/r7Pvi18rnlcfXff2yc
+Jz6aQwYAMEzLXoIv7oVHntesNTjp9VfKLKC+dz9wbsPno+fE9lno8mPuzzaV
+MG7vu1//5ujxh3UCo/cAOMoJ6ufdROYgHNxGnvs2PP5V7mMGvFR9r/94NO7/
+HPner/3aeM67lscdq1/rdY4+AQAsRcs98c5rqEZ+8Lm5nmCSds24RqBljcTv
+6xzq/w3//fH4nn/IFNqe+3mK+RGl+fS8P+Cg+fpjxvwj2/CmUUfg6VOjdmA9
+/j/KK+r/vcp97ICvBozn//DdH+YLfBjxvNrk5yYAgLWI3N+Pzsc8evz3R/Pk
+P6ZaHz9zFvBdy5qHH4/mA7S+f/V3H7awViDclx86X//9DO051Cq4bvz5t2EN
+QrNNV7mPIfBS9f3+U8d4vs4Avq98Cv/9c/3fR8/98ejvmjrXuwEAbNU+vpdg
+a82/kAMcsoNfk7Zt5tqBkToAn49ygL55ErF9GJIfo7mEsfXQHOAx97r9T937
+EF7lPp7AS6E2QPN7/2PIAj6F/z+aPYesoG2NwWrXawEAnKplDXz0uimsCziM
+l3vrCZzdtvnnBcTqIA5a99/y/N/mTeT+jKcwIgt4n2pdwIi2vulo30Pu9gFx
+4X7/i+/9kAH05qotz/9tHkHuvgEAlKZlrfuLNe775/r5hzn0s8x7nzkLaLuv
+P3hfxMi8gt79GJbmqAZg09NxrcDMbfy2UUtADgAL0DIvoK4PMChTDWsFYlnA
+KjJZAIApRdbIv7j30hgnz1aXeeYsIFY/cVTtvy1kAbVGTb7DGPsid7si7byR
+A8BytMzx/9y2LiDy/O/VDAAA6NdyL/xd4zGHMXI9zp21HvPMWUCzfuLoPRK3
+kgXUjmrzFT3GDnseFN1G4Lfv+x9axvHjvodb6g/m7h8AeYXaM4c9bOt5aNFa
+6Udr05q1a5LWLYO5tdwL/y78Xb3+/VAbP9leAZ3tmykL6FjrP2o/wLXVCwhr
+/x9LmfsPrFe49orNCRj3PSwLANi8sGbsMO5vqyv7a+M5sfNQ7Lw02xxpSCly
+L/xj+PPjGoG1Dye/R/uczTl1Zggt9RNH1f/vyBMG1xsoSVgHcLzW/q7EdQDA
+Ouyf6wI0v7tHfX9aIwDA2PFBmC8QOwd1mXWuNEwtjPdfzInvqKF30ryAhWQB
+sfqJo/agCrUVY8dtkfOJwrz6WI3Aa/PtgSmF67DYd/eoey/79nUGi52fBcDp
+qu//nzrGB9+Fccqn8N/1XjTfHz33x6O/kzGzKi33wj+0jGdPHtMuJAto1k+M
+rh864Xh+mbvGwhSqsf7bjj35HnO3D1iXfbz+/+jrrJbXGT2/AID12Mf3qPkY
+soBP4f+P3vMM45i2NQaj7htCSVruhR9qBP40VQ280rOAlnkQo68bW3KUxd2L
+CjUBnzqygMvcbQTWJdyLaX5v/3zC67St9Vzk/CwAztdyjjnUB+xdE9zy/JPO
+U1CCjrXtvx49JlZXf9b8a47ruX28fuLY9QFtx/On3J/1WGENQFsOcJe7fcD6
+7F/Waz7pfkvLvZ/a4uZnATCNlnNDXR9g0D27jjlni7vnB7WWe+HNvQTPrqd3
+djvnyQKamcdU6wPq+RWj6l/nZk4AMLd9fI3/6O/h8FqxeZyu1QA2rOXc8Llt
+XUDk+erSsiot98K/azxmkn32zmpn4ixgH6+feMr6gNgciiXOCbjqyAEecrcP
+WJ+Wef3jv4fb79ss7rsYgGm05M2jxxRt65ATtfki93Fj3SK18qL3TVpqCsy2
+7nKGLCB2P3+K/QMWeR+qGu/fdmQBV7nbB6xPy9zNU9YH/NJy32dR87MAmE5L
+3jz63DBXFlC95k3lqfIq97FjnVruhUdrX7SMc2ebDzNDFhDLOsZ9N7ysGVjn
+LCftv5hTWB/QlgN8sY8gkEJk7uYp12jftcwBVTMQYMNCXYCz5p7NtUYg5ACH
+115tHlD9XFZW2bclGHsvPKx7bz5+1J7PJ7c14XVdyxqIUfUQ9vH9FhY5HzVk
+AW8qN5GaAbe52wdrUJ/7wjlQtvblt+/415Hv+dF1aVru+1jHCbBhISeOjeFH
+jWM61hlMOg+4kQWsLg+ofi4qj5UvwYProfm1rG1vvQfTMt5tvVYLcwkmmZOZ
+OAvorZ/Y8/zvIjnJavYWaeQCV7nbA0tX/dwcnf+eZOLt+zyd8Dqfzr3WA2Bd
+9vE6MqNz4pbXOam2zYD3Wm0e0LgOkgdk0HIvvDfTitQX+BKbB380Pp5kzJ44
+C4jVTxy871Tk+ZN/HwDr0Hb+y92u3PbxvQRH7f9XPf6nyGusJpcF4DQtefPo
+80PL3LNk69DWmgdUP3eRa6HaTe62bUXLvfDefxMt6wpePC88brJ5mYmzgGa+
+MXgPq8hxlAMAUS05wG9yty2nlrmbo+Zb7uN1AhZZuxWAabXkzafUpo3VuB2d
+XY98z9XlAV3XQ/KAebTUyuv9NxHu978YOx/PDdh/rUk42bzMVFnAPl4/cdAa
+1chzF3//KdQKWPT3C5So+rnqOO9tel5Ay5zLUd+nkXs+9VoB+wYAbNw+vsZ/
+8H2/xmvFatMmz53XlgeEegFPHddF17nbuHYtc/0HXTe1zA34EHKCH8LagEnH
+xQmzgFhfel871EI4PoaT1wkM9Rk+Tpmp9Pn05z9fHtUJfAh7C17XNQNy/J7C
+GvTkAJuvF9Byn2Xw/Zr9y7qDdQ6wuD1cAJhey7z+0fN4W3Lr2iy1wleYB7zq
+yQOucrdxrVruhQ/OtFpq5Z30WoPfM10WEKuf2Pnajfzgw5jaAgPb9K6RM8yZ
+BVy37CP4lON3FZYu7BXQdp5zrvvSep9lWDb9vL/Tcb1AOQAAvzs3bz56nV9i
+8wvmnIO20jzANdLMWmrljRpbt+QJX8LYevLrsBRZwD5ePzF6POo+NcboH4es
+qRjRlu9bPpdSsoC73L+3sDQy734tczcH5cn75xoBx2tAP8oBADgWyZtHj9/3
+8Zo0yWoG9rRlbXmAuZMza7kXPvredpgn/6lt/Dxpm9NkAdG9BIMPLesg3k09
+DyC05fDah8xBFgALNiAHuM7dxhK0zN3srdkSyQF+nfPeDADli6whG3SOibxO
+7Fw1WY30E9ojD4Az7eP1E5PVAR3ZtlxZwF1LFvA+9zGBpah+vt0975OrRm6P
+fby284ee57w+Whfweeq1muGar9muD1O/DwBp7eN7CY6+n9hYi3Yw2/V5S5vW
+lge878kDvs3dRtZlf8ZegjO0LVcW8D7kAU1XuY8JLIEcYLh9fC/B3+s6Nef7
+hzH6h1RzM/fPdaFic0AH5xQAlKMlbx5136/OgSOvUcTeYSvMA246rp8e5AFM
+paXeweg5QwnblyULAM5T/dw5jw2zj9dk/hDG/G01mt6luD9/dK33hwwizEFo
+1p0q4hoQgHYtefOo+ub7eJ2A5HsIjmzj2vKAW9dRpDZF/cTE7cs1L+CyZY3A
+l9zHBEq3pTy7us54U7k48zUmmbs5QV++75vvuX+5VlSNQoCCteTNo7LcyHmq
+XitQXG2aNeUB5lcyh6nqJyZsnywAFqQnB1jNOrfq2uLbym1tgteKrb+c/Xv4
+MBdhZHvVDgAoWGROV23wHmD7l3UHi96zVh4Aw7TsJVhMrYDQRlkALMRW6t9W
+1xRvw7VF7axsYx/fS3D27+EwJ2DQ+rDGugVZAEDBInP7vwy9px/ODcf5b9E5
+wFG715QHXOzsx0QCkT37iqoVENooC4AF2EIOUK8FqNwdXVu8neA1T9pLMPNx
+OM4CiplHBsAfteTNg9b571/uWftxCTnAUfvXlAf07c98lbuNLE/LXoJF1YKS
+BUD5qp/LjvPTKs5R1fXDdeOa4m6i143N3SymZktPm7PtKQ1Av1Pz5kgO8OvQ
+uQQj2/c65Mu/JOr/mvKAvmutf5i7jSxLZC/B2uD1QzO1URYABVt7Vl1dM1xW
+HiLXUhcTvX5s7max99r3X+sLfi65nQC07iXYuSdsGJ9/OvquT7VnzXHbkmQB
+4b3WlAd0zcH8D5V/nLuNLEM9ro7kALWi5v5kzAIuKtcxuY8JTK36eTxlzL7m
+NWz759qA7yPXULVJ+rWP13YuqmZLo72H+0RyAIDC7eN7Cf4+9m7O9w9zCD6k
+mqMW2hObp5A0CwjvvZU8oPZ/rGFdJmm17CX4JXe7Iu3MkgXAVjTOKdcjnrfa
+2rZhLsBjy/XKw4TvE9tLsKj9mo/aenyfyHcxQOFa8uYPYTz+S+TvPoe/S1IT
+dv+8zqB+/R+C43lxSbOA8P5rygP+SU8esOj7MaRV3/tvWR9QK2qvUFkApBXm
+BIwaw681B9h/3Sew7T7KlymvG1rmbpZVs+X5ei12zZhk7SgA02jJm4upR9OY
+g5A8CwjvuaY8oOs67KB+zGXutlKOuh5A5VNLDlD7UClmjyhZAKTTMc/sph7v
+dzzvtue8c9Y+e3OrrwMi1wcx7yd8z7a5m0Vcp4X2feg5HovYWwpgi/Z/3Auw
+uHo0ObKA8L6ryAPCfZl/NyAPqL1f2rUZ02rZP7BXAe2WBUAikTkBvWP6kBOs
+Igeozv1X+z/uEdilXjMwWd9a5m4WO/9+/1znKTY/oLMGFQDz28f3EiyqHk2u
+LCC891rygJ8HZgFfwjXfZe42wxg5swD7CLBmHXMCWsf2IVdue+zTEnKAsA7g
+et9eD6DN5cTtiO0l+KX0++z757oBzb0Pitp/BmDr9ifuJThzG7NlAeH9F58H
+hLkB/3JEHtA79xNKIguANHrmBDTH+K96soPfHpO7T132w9cBxNxO3JbY/ZrF
+jKsj7S+qxgHA1rXkzUWsQTtqY9YsILRhDXnA9cgs4HDd9iZ326GPLACmN3BO
+wLG/WWoOUJ3T3+yHrwOIqa8Lplwb8C5yX725Br9+TNF1+fZ/XC9gnQBAQVrO
+M8XUCghtzJ4FhHYsOg8IcwO69nfucmuOACWTBcD0RswJGOIqd3+a9s/rAN7u
+x68DiLmeqE2xtfZDFFPLtdGf43oHsgCAQuzj9WiKqhUQ2llEFhDasvQ84JS5
+Acf3dK5y9wGa6v0NG1nArHNnZQGs0QlzAhaVA9Sq8/f7CTKAg4vc/SlRdVy+
+PzpGRa1BBdiyfXwvwY+52xVpZzFZQGjPYvOAM+cGHNxVLnL3BWrVuP/7yq+R
+/Q5nmxsgC2CNJpwTcJ27L32qc/jl/rlO4KlrBG5y96FUjSygqDWoAFtWj/sj
+57Pi6rqUlgWENi05D5jiXk+dJ7zN3Re2a8Teh8nnpMoCWJuJ5wTc5O7PWEfZ
+wD8dmAUs4vyf6Vge1w8surYBwFbU38ct57PiMtsSs4DQriXnAVPd7zFHgM2T
+BbAmYf7YVOeI3/OA3cJqzlTn86uBOcBd7raWbP91v6riri8BtmofrxVQm7Xm
+1sC2FpkFhLYtMg+Y+J7PIuaAQiqyANZkd15dmS4PS8kDRuQAtavc7S1VuO9U
+73egZiBAQfbxvQRr3+duW6StxWYBoX1LzQOmvu9TX+cV32+YmiyAtdhNU1Nm
+0XlASw7Qlg085m5vhuNTr/8/7EFV73nQuvdU+Hs5AEBBGmu3mmatvz2wvUVn
+AaGNi8sDEswNMEcAYMESzgk49lRqbtyWA4S/i9UVvM7d5gzH6HXkOPwhEwiP
+qe85FbnPIcBWhXVbnyPf4wefwmOKqe+yhCwgtPPkPKB63PscbU4wN+Cgft3L
+3J8J6VS/s7eVN7nbAUxjhjkBRecBXTlA+PvryN8XPcch4bGq15nG6k9/DteQ
+MgCAgoTMdujat2PZv8+XkgWEto7OA+prieY1x1wSzg04eL8rfD4opwlZwG9z
+ZMM18kXuNgGnm2lOQDMPuMrd71pfDhAec9n4+5vc7QaAtVtSFhDaOyoPqO+t
+7jPWIk44N8AcgRULGdZT43fdXAFYoJnnBDTzgKx58ZAc4Oixx48pal4DAKzR
+0rKA0ObBeUC9PiDntcUMcwMObnNf8zGt6vf1bct8ok3NFVA7kKXLMCegiHPC
+mBwgPP4hZ3YPAFuzxCwgtHtQHrD/Yz2imxxtnWFuwPE9IPeNV+To2rjN6ucK
+yAJYsgxzAoo4D4zNAcJz3g95HAAwjaVmAaHtvXlA5Fpk9vskM84NKOZ+ENOI
+rKFts9q5ArIAlmzmOQE3JXz3n5IDhOfVa/oec7cfALZi/8datYvKAkL7W/OA
+lnHUdY52zjg34Pje0Nvcnw/ni/yO93kI99eu1pANyAJYqhnnBNTnl8vc/a2d
+mgOE59Z1UoroBwCsXXXO/blxvv5tv5rc7TqhH9E8YB/fo+gxRxszzA34fY5A
+7s9nws/5Kqz52Jq/rPy7kXlA89/Dbfj3cJn7cxxLFsBSzTQnoJj9ZM7JAQCA
+9Krz8k8jxhCvc7d3RL9ieUBsf95s1ybVz12GuQGrqcXcku1wmuO5A0X/jsgC
+WKIZ5gQUMxegJgcAAHKK5AFt7nK0r75umzEHeFxTDhA+X1lAOnV2Vs9BuMj9
+OTfJAliixHMCrnP375gcAAAowYg84DJH+2aaG/CwK2TO6MSfrSxgWg/h30u9
+d2GxuZEsgKWpfi4SfrcX9W9VDgAA5FTfywzXI/W45nHgOOgmR1tnmBuwyhwg
+fM6XIQ/Yon9x5rj/cN//OhzHxfyOyAJYmt1zPf8pv9efSpsLUJMDAABz2z/X
+BazvZd6OGPvHXORof8K5ATe5Pxumtz9tPsThnn/x9QD6yAJYkgRzAurzxUXu
+fjXJAQCAubVcf5zqOkcfEs0NuMn92TC9/fOcl6cR4/+rJd3zH0IWwJJMOCeg
+2H1h5QAAQC775z2Ir8+cE/DbvOlcfZh4bkCR14ucL8x96Zv7/z7XHBfgqwnn
+BBQ5F6AmBwAAShGuSx42PDfgb3aF1ZJiGvvndf1tv7d3rr+hLBPMCajnArzJ
+3Y82cgAAoERh3DR0D4GmLGPpCecGPO5WWi9wyyLzXswBgEJNMCfgtuTvcTkA
+AFC6sL76esQa69/useZo64RzA2qr3T9gi/Z/rBdoDgAU7ow5AUXPBajJAQCA
+pRm5fiDLmvsT5gb86648IPcxZxphToA5AF/UDqR8Z8wJeF96hisHAACWbOD6
+gacc466RcwPqe/9/O/xv22Nuch9vmJIsgNKdMCfgsf7uz93uPnIAAGAt6roA
+PfMEbnO0a+DcgN/XANT/Kw9gK2QBlOyEOQHFzwWoyQEAgDXqqScw+7rN6udV
+z7XjTctznjqeY59BVkEWQMmqn78cMa/rMnd7h5ADAABrFmoM3rWsFZj9nk3H
+HNObjuf05QFXuY8znEsWQKmqn/98YA5wnbutQ8kBAICtqGsGRuYIvJ+7HS3z
+THvv7e/66w0UXZ8a+sgCKFHIYv/dgLkAWfasPYUcAADYmnoeQF0roHH9czl3
+OxpzA65GPO+q41r0aUnXotAkC6A0Ibv9Vx3fu/9maeu05AAAwJbVtQLCXm5f
+wv/OulYgXF+etNe0PIC1kgVQkl1/7dZ/UX+X527nGHIAAIDf5wi8D9dC13O/
+/+6M+tIdNQdqj+e8NuQiC6AUA3KA/z13G8eSAwAA/FG9RiDsP7io++k9ecCD
+PIClkQVQiurntuP79a+W9v0qBwAAaLe0LKDWc9/qYeL3qu+TXbZY1HWx/uu/
+/k/a/4vc7Zu4r6vKWeUAAADrM2Ae682Zr30V7o917Wd4vDbhNjxnUdfKE/X/
+acX9f9xw/2/0f1T/3y45G6h+rnv6uKi+yQEAANYrXLN3XavfjHy9y133fbGh
+bpZ23Rz6f6H/k/X/Mnd/zuj/kPyny63+L6v/u5XVZZUDAACs3+55/+uua/fe
+Pa/CGKBrjew5Y8Li75NOOAZeZCawe86UUvT/dkH9f5+g/3f6v4j+X/X0Qw4A
+AECRdv15wFXHc696nnuuk/ZPnPHYzdH/1uOfW/3ZzND/3jwqV+3AUvqf8fO/
+TNz/2nXufnb0/+TvzhLJAQAAtieMabqux1+Mx3dp7gW3eZ/7GGXu/03u/kb6
+n+Je8En9z5EF7LrXh0/e/11hc2Rm7v9tgf2XAwAAsAq7gWted89zgu8GXsM/
+hDFj/dqXDVfh77pqGBY5Ht4NzwEm7X8p46ER/X/s6P+bkf1vrcM+dxZQWv8X
+/PlfL7T/9XdgVw5QXHbZRQ4AAMDuuZZ3Zx6w668N8BSu/y9GvO+rgeOLmwKO
+0aB2juz/xW5Y3bUl9X/wOunQ//cD+n8Xe/6cWUDC/l8P6H/28bD+p9uDJQc5
+AAAABz3X+n/dc61+1lze3bA6hNcZj03fvPiz6t0N7H+2e467/nnh5/b/2wH9
+v2k+b64sYNdfJ+5ugv53/fvLOtacqf+9/8Yy9r8vB8jWtlPIAQAAaBowHmma
+tMbdrnt+Qu0ywzHpq6kwZf+vdt33SGevp7h7ntfd1f/JatyN7f8cWcDuee7K
+XP3vq0k4ez3BAf2/nvh3raj+h3Z1fS9mn7MwhhwAAIA2u+HreJPsn90zHnic
+87p7170+OFX/u2qTPWXo/2NHWybPJsb0f6YsoOvfw1WG/l/M9fnr/2/t+X/k
+AAAAbMGufz7sQbL9s3fdc5KvZzwWXfOWLxO+b9e92NnWCuy61wZcZer/zeFx
+qbOAXfc8ldT9bxsPzzYfXf93/0tH/2fPJc5RjflfyQEAAOiz674fXEs+V7dn
+HJoshzh6/8vM/e8ah13O8P5d4/HrEvqfMgvYPddwaBuPJs9jdt1rU5KvFSm8
+/1czvH/9HfjvO3KA5N9BU6vG/jdyAAAA+oSx4H+IXAf/2xnb0DY/oc4pks3N
+3XWvDbibsf93HWOR1P1/bHnvh0L6f5EqC9h1z41J+rvXaEdbPcWkY9GC+n+T
+ayze0f9ZsshUQh5wlbsdAAA8233ds+/qxOdfpLg+r37+KnId/L/NeFwuO67H
+k6zV7RkH1S5m7P9Fgf2/LKX/KbKAwvrfV68iye9iRwZRm61+5YD+JxmTd2QQ
+v5mr/wAArFvkevdq5POvdl/v1016bbyL35e9m/n4dK3Zf5hyPLR7zmS6xoHX
+GX4/rnv6P9lnPmAcPPu+hoX1f/a943bdayUmHQ8X2v+rmfvft7fll7mPAQAA
+67R7uS72euTzk43TS8gCQju6xieT1LPf9e9nN3u/ez6H4/6fXb9g17+fXbaa
+6frfOT6dqv+Xu+4aIY8Z+3/TMz6/nqH/sgAAACa1e3nfe/C4dvdyDv2k921b
+xmB3GY5R11zh39u1O2H+djiGXWPNrOPAo/737e2Qsv9Za6YX0v9sa8QH9r8e
+x17p/+jXrucC3fS8tiwAAIDJRa5xB485dy/nT0+6lrdljHCX6Th17TPWHBO8
+bxsXhnHFZXjM44DXK6Jm+Cn9b/tdCn93vbD+Xwxs75j+D9k7s5T+D93r89D/
+N/rf2f+3A19PFgAAwOTC9e3xdeaoGu2Ra9lJ713vCsoCQnv61vO3uWvpS59J
+6xFM9PtySv8fTuz/YwnjwLb+t9UOnLD/RYyDM37+W+//v4n9ee7jAADA8u1e
+1goYPMd/d2aOMPA9YtfPd5mP2aD6XhOo3yPbugD97+z/zW5cFnCKuxL7H45B
+Vz1N/Z/GQ9v75O4/AADLF7nWHFMr4OQcYcR73MXGCLmPW2jb1W7YnPmxJqlF
+OEP/68//MVH/r3L3b0j/E2UBk9Tim6H/lwk//633/zq8x3XsMbn7DgDA8u3O
+qxVwco4w4j3uItfCd7mP21H7vg3X61NkAk/htYq8F6r/L02cBSyu/+F34Gqi
+MbH+P883uTh67evYY3P3GQCAZdsVXisgvMdd5Fr4Lvexa2lrPSYYO3f+KTzn
+Knf7J+z/2Fxgsf2fKAu4DcduUWPgyOf/JoxlT/r8N9z/u7b+ywIAAEhhV3it
+gPA+i8kCGu2+3D3XCb8O44O74H34s/ra/zJ3OxP2/1Xo43Xo86H/N+HP3q6h
+/x1ZwCb6v/XPP3X/ZQEAAKSwm7ZWwE2iNi4yC2Ab2rKA3O1iHWQBAACksCu8
+VkB4H1kAxZIFkJIsAACAqe0WUCsgvI8sgGLJAkhJFgAAwNQic/yLqxUQ3ksW
+QLFkAaQkCwAAYGoT1woYnCOc0E5ZALBJsgAAAKaWulbA7rmO9qsJ2ikLADZJ
+FgAAwJQic/wfRz6/N0fYPe+xfT1BW2UBQBF2z/sE3ka+k+o/u0zwfrIAAAAm
+E5njfzfiub21Ao5e/3KCtsoCgKzCd9pj+P55CnOj3gTH31GTrpeSBQAAMKXI
+HP+7Ec+9ajz3pu31J2qrLIBiqR24fvV33PH3Xcs8qJuu78Qz3lsWAADAZCJz
+/O8GPu8i3BM7fu7byOPq+2e3E7VVFkCxZAHrFeZAHX9XXvU8/vHosYNrsfa8
+piwAAIBJ7F7O8R9ULyByXXxw2Xjc5ZDr5hHtlQVQLFnAejW+73rn/jfmW02y
+z6osAACAqexe1gqIjukbzznOAa56soC7MHdg8L4EPe2VBVAsWcA6nTKuj3y3
+XkzQDlkAAACT2L2sFXBQj99f7AEYxv6P4e/fRF7j/dFj34Y/u56wvbIAiiUL
+WJ/ImP5y4PMuG8+7mqAtsgAAACaxeznP/+3ujzUA7sJY/3b3df3r3fE9rjBP
+4HiMfnP03zcTt1cWQLFkAesSvtseT/muiWQB1xO0RxYAAMDZdi37AYY/vzoa
+0x+8j80VOHq9q5AZHB5/laDNsgCKJQtYl8jY+3LEc9/uZAEAABRo93Lu66R7
+YSdqsyyAYskC1qUxR+px5HOb66+uJ2iPLAAAgLNFrlUn2fcqcZtlARRLFrAe
+u5d1UV/sl9rz/OZ31fUEbZIFAABwtt3LWgGT1PpP3GZZAMWSBaxHWO90/D3T
+uj6q5fnN76lRWULLa8oCAAA4y66lVkDpZAGUTBawHmeuD7iMfE9dTtAmWQAA
+AGfZLbBWQGi3LABIqp4D0PiOuRn5/Bdj9onaJQsAAOAsuwXWCgjtlgUASe1e
+7gEwtlZAc/3V7UTtkgUAAHCWyLVq8bUCQrtlAUBSuzNqBUTWX02WtcoCAAA4
+R+RadRG1AkLbZQFAUrs/1gp4Gvncq8b30+OE7ZIFAABwst1CawWEtssCKJba
+gcu3e1krYNT8/sicq8nWX8kCAAA4R+R68jJ3m0a0XRZAsWQBy7c7o1bA7uX+
+AXcTt00WAADAycIagcO9q8WsDwhtlwVQLFnA8u1e1goYfF+/MSegXmcwaR0W
+WQAAAOcKecBl7nac0G5ZAMWSBSzf7o+1Amo3A5/XHKcPrjc4om2yAAAANkkW
+QMlkAcu2e1kr4GnI/f3dy3qBV4naJwsAAGCTZAGUTBawbJFaAdchC2itH9jI
+AZ5SzreSBQAAsFWyAEomC1i2SK2AV0dj/bvjef+75zqBx99H9f9/kbh9sgAA
+ADZJFkDJZAHLtvtjrYCnoz9/s3tZR+A4A7icqX2yAAAANkkWQMlkAcu1e1kr
+4MW6gDAX4Dp4k3oeQOT9ZQEAAGySLICSyQKWa/eyVsDb3G2KtFEWAADAJskC
+gBRitQJytynSRlkAAACbJAsAUmirFVASWQAAAFslCwCmFuoAdNYKKIEsAACA
+rZIFAFOLjLGLqxXQ0k5ZAAAAmyALAKYW+V4prlZAaKcsAACATZIFUDL7CCxT
+4/ukyFoBoZ2yAAAANkkWQMlkAcuzlFoBoa2yAAAANkkWQMlkAcuzlFoBLW2V
+BQAAsAmyAEomC1ieeux/vD6gcpG7TR1tlQUAALBJsgBKJgtYpurnJny3XORu
+S087ZQEAAGySLICSyQJISRYAAMBWyQIomSyAlGQBAABslSyAkskCSEkWAADA
+VskCKJksgJRkAQAAbJUsgJLJAkhJFgAAwFbJAoCtkgUAALBVsgBgq2QBAABs
+lSwA2CpZAAAAWyULALZKFgAAwFbJAiiZ2oGkJAsAAGCrZAGUTBZASrIAAAC2
+ShZAyWQBpCQLAABgq2QBlEwWQEqyAAAAtkoWQMlkAaQkCwAAYKtkAZRMFkBK
+sgAAALZKFkDJZAGkJAsAAGCrZAGUTBZASrIAAAC2ShZAyWQBpCQLAABgq2QB
+lEwWQEqyAAAAtkoWQMlkAaQkCwAAYKtkAcBWyQIAANgqWQCwVbIAAAC2ShYA
+bJUsAACArZIFAFslCwAAYKtkAZRM7UBSkgUAALBVsgBKJgsgJVkAAABbJQug
+ZLIAUpIFAACwVbIASiYLICVZAAAAWyULoGSyAFKSBQAAsFWyAEomCyAlWQAA
+AFslC6BksgBSkgUAALBVsgBKJgsgJVkAAABbJQugZLIAUpIFAACwVbIASiYL
+ICVZAAAAWyULALZKFgAAwFbJAoCtkgUAALBVsgBgq2QBAABslSwA2CpZAAAA
+WyULoGRqB5KSLAAAgK2SBVAyWQApyQIAANgqWQAlkwWQkiwAAMjp/i/+zveV
+d5XPlS9H6j/7IXf7WDdZACWTBZCSLAAAyCWM97/0eJe7nayXLICSyQJISRYA
+AORQjfF/GZADyANIShZAyWQBpCQLAFivMPf618pPudvC8lS/N99VPqb4/alf
+M4zxPzXH+dV//xjet5kHfJ/7mLA+sgBKJgsgJVkAwDo1xlrWXDNayAJ+Db9H
+H6Yci4ffy3q8/13HYz40soCfcx8T1kcWQMlkAaQkCwBYl8b47aN7qZzraE1/
+Xdvv9QSv9zq8VufvZvhdPq4n+DH3sWB9ZAGUTBZASrIAgPUIawI+Ht3Hbb3n
+CmOEefuHMfmPZ77Wz0PX/4fHHt73U+7jwPrIAiiZLICUZAEA61CvAzi6h/oh
+d3tYn0YecHINgTDPYFBOdbTWxbwAkpAFUDJZACnJAgCWr5EDdK7BhnM09gBM
+XpOykQX8mrv/rI8sANgqWQDAsoV1AYcc4JP6AKR2VI/iyxT1A3rea9bsge2R
+BQBbJQsAWK5QW+3TXOMyqDV+73prAJ75XofcQa0AkpAFAFslCwBYrsb9Wfut
+MZvmOv4U61Ia+wiYE0ASsgBgq2QBAMvUmDv9WY0A5hb2qkiWRR39jqsTQDKy
+AEqmdiApyQIAlifUCPhyZND+bDClek1K4/fwrL0GG699qINh7wCSkgVQMlkA
+KckCAJancT/2izkB5NKoV/Fpqt/FsP5FLUySkwVQMlkAKckCAJalsU7b/OnT
+j+MXcysmOY7vpj6O9XqDMCfgh9z9Y/1kAZRMFkBKsgCAZWnch510XvaWyAIm
+O47N9Spn1a4IWZccgNnIAiiZLICUZAEAyxGZE2B9wOnHUhYw3bH8OMWxPKo/
+YG9MZiMLoGSyAFKSBQBTCfcH30XuW38Kf/5j4/EfjL9GH+NmnYAk6wPCmOzd
+0ef5okZ8yCV+vX95T/jdEtZ458wC1nZ8w5z+P7TzhNf4IfRPDsCsZAGUTBZA
+SrIAYAp9a4bD33++fzn+smf48GP8Q+T4nb2P29GYtDmeO/b66PGvI3lPTNGf
+7VxZwBaOb53zndO+oxxg0HoXeQFTkgVQMlkAKckCgHNFcoDodfr987yB5hjH
+Nf3px/msWgH3L9d5t/nc04YuxdYySJ0FbOn4Vu34LtK2QXNWjr4XBmUHITf4
+JXefWQ9ZACWTBZCSLAA4R2S807kX+P3L/ciLmutcsvuXa7InPX73L+ejH/wS
+/v6Xw2d8PG4LvwNtzz2rjlzi4znLvICtHN/7+LyfzradkAP8GB6vriCTkQVQ
+MlkAKckCgHMcjV8OPgx4zmHN++g1xT2vO/Q+bEqp5pnH7rt+SfAesfFcPf56
+19e/+5e1DA6KmcveaO/cWcCqj29L+1rnLdzH5wkN0fsdA2PIAoCtkgUA54hc
+y3fOCwjP+WnoY0e2Zc1ZQGw99qcZPs9Drbr6/+9cz9HSxlqS+oYT9HXWLGDt
+x/f+ZS5Yi9azCLlIbJ7LEEVkH6yHLADYKlkAcI6Wa/XOeetHY/ZJxzArzwJi
+68gnvT96H597cBi79q5Lb3n+5JlPwt/dOeYFrPb4tvyORtt23z7HoU8xayJY
+D1kAsFWyAOAc9/E5z711vcLzzq6B33jNNWcBsfXiU2cpbfedB9dpu4/P+Z58
+/sJE/Z07C1j18W3JAiZdBwQpyAKArZIFAOe4b5/n2zff+UPqsdeatBznSWup
+38f3vBt1H7bksWqkrXNnAas+vvdf1/40qQ9K0WQBwFbJAoBztNwLLGZ8shYt
+Y8Cp51XE8oZR4+OSx6qRts6dBaz6+N6/3CPkQM1/iiYLoGT2ESAlWQBwjvv2
+2uiTj1W3rOX4TjZ2vW9fiz5qbXbLaxSxnn1AW5NlAVs4vh1ZQOccIchNFkDJ
+ZAGkJAsAztUxN9g4YLpjnDoLiM3vGFWPoGO8O+lahsZ7LqJGxFKP78j2tWUB
+6v5TNFkAJZMFkJIsAJjCfXtd8E9j730SPb6ps4BYbcLe2vaN12gbC6a8376U
+LGCRx3ei9skCKJosgJLJAkhJFgBMoWdMZq3A+cc3dRbQXOcxuv57y73vWrL1
+4gvKAhZ5fEe2TxbAIskCKJksgJRkAcBUOsYqNWsFzju2J+3dOPC1Y3vdjX7t
++/jckKRr2ZeQBSz5+I5sX1sWMGr+A8xNFkDJZAGkJAsApnTfvsegtQLnHddY
+/fipsoDYXndj56+3rWUv9p7w2DG949vbRrUDWSRZACWTBZCSLACYUs992iLW
+NS9Ryz3hUbXnOl67md9MNX+96PxnxixgE8e3Iwv4PnfboIssgJLJAkhJFgBM
+rWXc8tsYKOXYpSeHKGK++Bl9+yXyXh8meN0fIq97yvz12HyQYu5Zt7Q5+We3
+peN7H18L8SV3u6CPLICSyQJISRYApNAydkk6N2DlWUD0vnCi152ivn0x69g7
+2j1HFrCZ43sf31u0uHZCkyyAkskCSEkWAKTQMS6fZF77yPdcQxYQu788eq55
+5HVje92Nmrtx/3L9Qj3/o/h54TNlAZs5vi25R7J/7zAVWQCwVbIAYKj753v9
+g8dLLeOgs+9ld7zfarOA0L/YXgInr7m4j9ejGzV2u4/fCy5q7npH25N+dls7
+vvfxdSxqhFA8WQCwVbIAYKgwFh08lmkZxyTLAtauJVs5uUb7fXx995ispx7r
+Nvc3+Dn3cRrR/tRZwKaO7318XVBx8xegSRYAbJUsABji6J774Hnp9/F1zuYM
+n/4ZxLKVk8ev9/G97n444/mT7HE44/FMnQVs6vjev5y3olYAiyALALZKFgAM
+0RjXD7oXfe59UV4cz+8i462T7xNHXmtMztP8bIsep7b0IXUWsJnjex+vZ+Hf
+Op32f/rmOncbarIASqZ2ICnJAoAhGvekB41L7l/WEitqP/Qlun+5Jvuke68t
+Y7dBczYizy123npPP5KNXbd2fCP/1r/4t06f/Z++ecrdhposgJLJAkhJFgAM
+EbnW750bcP9yrfPg+dG0HtPYGHP0muyWsVvvWDjMDzm+352kjl3Inj4OnYNy
+4nukzAKKOb73z+t73kXmKbyb6t/k/ctaFkXPYyC//Z++eVX5Uv9v7rbIAiiZ
+LICUlpAFVOeJu3C+OLjO3SbYmsj96M9d44jGWOhzyjHd1ty/3GNu9Bj2Pl7n
+rfN1Gp/phxTZTmTMutQsoIjj25JJTNrv+/jaFTUD6VRdy70N13RXudsiC6Bk
+sgBSkgUAQ0TGn7/PXz6+7g/3rY/vEf5qXDD5Z9HcO/HDyOfH9rqLjgsj95Tr
+Me6PCfoTq7O3yCyglOMbye+S5AH3C6ttQBmqa7mbcE13k7stsgBKJgsgJVkA
+MMT983z/n47++8cwhomNNz6Gv5MBpPs8mmPnwcc6MnY7zBd/15L5fLifcD55
+pD2H1z+Mi5eeBWQ/vvdf63t8iuQPP95PuP9fpE/+3dOrupZ7DNd0D7nbIgug
+ZLIAUpIFACzP/cu95wffi71/ubb7S6px/ol9myULSNj+7Mc3/G7U4/3W+n2R
+MfzoGoX3L+eo2DuAXtV13LeN67pvc7ZHFkDJZAGkJAsAWKbI/edB92Pvz9jr
+bqZ+LT0LyHp877/WH+z8fbh/uc5/9J4U93+cF3TSnhZsT3Ud96ZxXXeZsz2y
+AEomCyAlWQDAct3/ca1A79yA+zP2upuxT4vNAko4vuF3YtD9+cbvz6eR7/P6
+OO+wNoCh6uu4kq7rZAGUTBZASrIAgGVrzPXuHDvfx2v0FTWve+FZQPbje/9c
+e6B1bUDjsT/dn3hfv7FGZdJ6kqxb5LruNmd7ZAGUTBZASrIAgGULc70PteA+
+9awRj9WMK6ZWQGjjkrOA4o9vo73HWcDg+QuNzOOnVO1jnRrXdLWnnO2RBVAy
+WQApyQIAli/UcPvUNaa7j+91V1StgNDORWYBSzm+jTa/GzumbzynqDkllK+6
+hnsVyQJqF7naJAsAtkoWALAOjTzgRU34+5f79RVXKyC0c6lZwCKOb6PNhz0P
+BtUKaMwjMB9ggfbffPNj5V3lQ2X2eo/VNdxVSxZwleuYVD8fI9fCf5n7swJI
+TRYwsi2Zz6EAXRp5QHNf+dhed6P3kZuhD0vNAhZxfI/ae7yPQO+4vpEDqA9Q
+uOoa5ftwvXLwJWL2eR3VNdxNSxbwPtexqn7+WeRa+J/m/gwBUpMFtLxnoedQ
+gD4hDzisW//16M+be90VOaZbcBawiON71N53zd+RAY/9VHL9A36/folds8TM
+/llW13APLVnAQ65jVv3835Fr4X+R+7MESE0W0Hivws+hAEPdf937vc4F/pvI
+OLVW3D5wS8wC7v+4v17Rxze09/uQXfTObzua71D/76D9CShHda3yuuUaJsf6
+gIuWHODg2xzHKHYdXPnXuT87qKkdSEqygJ73LugcCjBWGKPWWcD/FBur5m5f
+S5uXmAXE9hIs8viG9v4a7vF3ZhVHc0yKnd9Av7CusXkdM/v6lfr6rScLeDt3
+m6qfy5YsoPYq92cHsgBSkgUMeP9CzqEApzi6Bxy7b13cfd6lZQELPL4/h/aa
+27YR9f2LyHXM7P+2quu3x54s4HHuNrVdBwezZxPQJAsgJVnAgPcv5BwKMFZ9
+P/f+ay3BmA9D6sbN3ObFZAFLO773z/X/5AAbUl2vfBe5hpl9r8vq2u1NTw5w
+cDlnu6qfh44s4Db35weyAFKSBfS8dyHnUIAx7uP72/XK3e7Q9uKzgCUe36Oa
+BkUeU9II+x81r2N+mb0df/rmdmAWcDNXm6qfbztygNpT7s8PZAGkJAvoee9C
+zqEAW7GELGBp6nkAYT6A47kx9ZrGyHXMrPUfBtQMzFJDsPp505MF1C5zf4Zs
+myyAlGQBPe9dwDkUYEtkAZMfz0MOMOjc5ZivSz2XsTm3sZ7zOGsb+msGZqkh
+WP3cDMgCrnN/hmybLICUZAE9713AORRgS2QBkx7L70M9g0E1C0JuYO7bStR7
+H0fuZ/w6ezv6awZmqSFY/TwOyALucn+ObJssgJRkAR3vW8g5FGBLZAGTHcex
+OcChDqK6gitRXbO8i1zHvJu1DX/65nJkDjBLDcHq52JADnAwy5oFiJEFkJIs
+oON9CziHAmxJvQdfIwuwJuu043jIAcbWN/yQu+1Mp2UfpLnXB9ycmAXcpGxX
+9XM1Igt4k/uzZLtkAYwVvt+uB7prWx81VOr+ZMwCsp9DmUfkGkTmAzML49df
+I3vymRsw7jjWecrHU/Y5KGn/Q87Tsg/Sx1nb8Kdvvh0w5v9/c9QQrH5uR2QB
+73N/ngBDtd3rT+QhdX9yZAElnEOZjywA8hmxP5971sOO54cTc4C6vqC8eyVa
+9kGae33A28j59d80/ru+xruqPM1ZQ7D6eRpxrfuY+/MEGKr6eTVjFpA8K82U
+BWQ/hzIfWQAAa1LXN4pcx/zQeMxPkcd0GVVXMlIz8H3l52YWEB77bfj7479L
+cr/pxOvki9yfKcBQI/POcyRfQ5UpC8h+Di1F1e7XoXZC7VO9z2LkMT9Fjtnn
+8Jzvc/dhwO9YtixgC8cXgHntX+6D9Knn8T9GnvMlnJfejV0j2agZWF/HvQp/
+3txf8K7xvFeN675XUx+b6uftCde7V7k/U4ChduPWQZ0jeW3VTFlA1nNoLkdj
+0p87Mo3XR49/HfrYl4MUvQZ1rixgq8cXgPns4/sgvciZI89r1kk6+Vy4f64Z
++NSc59+XBRw97m14/s3Ux2fXXiury+TtgCHUDuQUJ2aeY93N0Ze5s4ASzqFz
+q+8tDxhv/nYv+ug5sX0WuhRbDzx1FrD14wvAfFry5s4anI1rn/rexll7S4Ya
+AC/uFw3NAsJj63UDV1MfnxOveZ9yf65skyyAU+zG7Zt6qus5+pIhC8h+Ds1t
+H18j8fs6h/p/w39/PL4nHca8bc+tj0uR8yPmXiOwteMLwHwi9yY+9zy+Prd8
+OjrvJFt7NiYLSKH6eXPGde/k6xWgjyyAU1U/j4mzgMs5+pEhCyj2HDqX/fM+
+CrE1Dz8e3a9uHS9Xf/ehZbxa5Fz2DFnApo4vAPPYx/dBaq1XFK5hDtc9vyZv
+X/4s4P0Z173J9jWANrIATlX93CTMAWabKzVnFlD6OXRO+5fr1A+16obMk4jt
+w1DsMcpRO3BLxxeAeezj68uia8j2z3MaD+ei3rWQk7QvfxbwcMa1723uz5ft
+kQVwqjPnQRXzfThzFlD0OXS2Yx7PRD51HY8Bz/9t3kTuvrX8juWYF7CZ4wvA
+PPbxdWQv1o/tn2vTHuanzTanLGcWUP18e+71b+7Pl+2RBXCqKb7zSpgnNXMW
+UPQ5dLZj3n7fefC+iJH73r+Nd3P3reV3bO4sYFPHF3K4/4u/86bypXJTuczd
+HpjD/uX6sxfzxRrnoM55aJO3L28WcDXB9e9l7s+YbZEFcI4z50J1ma1+ysxZ
+QNHn0NmOebx+4qjadEsaq2bIAjZ1fCGX+7/4O3chD6g9Vt5Wku+FCzm05Mzv
+Go85nH/qc8jsdY4zZwE3E1z/vs/9ObMtsgDOsTuvRkqbxzn7MFcWsIRz6GzH
+/GX9xBfHYsBrLGasmiEL2NTxhVyqcf+royzgmLkCrE5Lzvxd+Lt6bdmh7my2
+OseZs4DHCa6BH3J/zmyLLIBz1HOZEmQBN3P2YcYsoPhz6CzHu30t+qj96lpe
+o8j17HNmAVs8vpBTNeZ/35IHmCvAqkRy5o/hz4/rG9U+ZGtjpixgN+1e274v
+mI0sgHMlyAKu5mz/jFlA8nNo1fbvI+POuXWOc/fx+omj6tN3jHcHr4df47Fd
+8vGFparH+ZWnjjzg4LauMZC7vXCKcK3yYr7Zvr0+zabmBVQ/bye8DvY9wWxk
+AZyr+rmbOAu4mLP9c2QBc51DlzBe3cfrJ/bWtm+8xuuW45bufvsCju2Sjy8s
+2VEdwSHquQLXlYvc7YahWnLmDy3nimzni4xZwO1S58cCnGPiLHT2dVIzZQGz
+nEOXMF7dv6yf+Hmi41lLVmNhCcd2yccXlq5RR3AocwVYhJacuVbPa/wp9udZ
+2pkvC3ia8Fr4MffnDTBU9fNqwu+/2eunzpQFzHIOLX282jIPYvS885YcJela
+9tKP7dKPLyxdfZ//hCzAXAGKt29fN/br0WNiNWtHzUmbpK0ZsoCJr4OzzJEF
+OMeEeejs90dSZwFLOocmP9bx+olj56+3Hc+fcvev43ds9P19xxeWJ4znT80D
+zBWgSC05c3MfpLNr1UzS1jxZwHWCLOAq9+cOMNRumj1Va7PXTp0hC1jMOTT5
+sX6ZeUw1f72eXzGqTv7Mv2NzZQGbPL5QilBH8HGCPOB4rsBl7n6xbS0583eN
+x0yyh83Zbc2TBdwlyAJuc3/ubIPagUyhzi8n+N67y9H2GbKAxZxDkx7neP3E
+U+avx+ZQFH3Peo4sYMvHF0oyso7gGA/3z/sXXllLwJz2L+vQRNeM7ePrIWet
+ITh3FlDfw0qQA9Secn/ubIMsgCnsptlX9TpH22fIAhZzDk16nOP3m6eob1/8
+OvaZsoDNHl8ozYl1BMd6CusJzB0gmZac+eeWx8bOIbPWEMyQBbxJlAXUXuX+
+/Fk/WQBTqX4ez/zOu8zR7pRZwNLOoUmPczzrGDXvYf+ypl2ds2TZw3jk79gc
+WcBmjy+UJtQRfJohD+iaO2AcwdnG5sz75zVlzce/nq2982cB7xNmAW9zf/6s
+nyyAqZz5fZhtLlTiLGBR59Bkxzi+BmJUPYR9fL+FRcxdT50FbP34Ls39NPXl
+YIg6j6jnKPw2d6Aye00elm0fXzfWmjO3nEtaz0fhPshk6yEzZAEPCbOApG2H
+miyAqZw5TypbjZTEWcCizqHJjvGA+ok9z/8ukpNE51eUaIYsYNPHd2nuZQHk
+Vc8duLk3d4AeLTlz77qx/cu1kV9ic8yOzj2TnRPnzAJ206yP7ZT7d4D1kwUw
+ld159VOyzYNKlQUs8Rya7BjH6yf+cMbzR9fEy9r/9FnApo/v0tzLAihHPW+g
+zgUucv+7oDwtOXNvTryPz4l88bzwuEnXQs6cBVylzgJ2GfbaZltkAUzpjLlS
+2e5NJMwCFncOTXaMX+Ybg/e6ixzHxY1TZ8gCNn18l+ZeFkA+9iJgsH28Dk1v
+Tdpwr+LFeen4vsb+az2lSddBzpwF3MyQBbzP/XvAuskCmFL1c33C99xjzjYn
+zAIWdw5Ncnzj9RMHrWWPPHeR89ZTZgGO7/LcywKYh30GOEvkWqRznWPjubH7
+Gh/CNU597vmU4pwzcxbwOEMW8JD794B1kwUwpern8oTvuZucbU6YBSzuHJrk
++Mb70jsW3j/XQjg+hpPXsds/12f4mDpTSZwFFHN867yqpT31GoTBaxbW7l4W
+QBp1jcD6nv+be/f8OVNLzjx4j9l9vA7NSa81qt0zZQH1fNYZcoADNT9JRhbA
+1E74jrvK2d4UWcBSz6FJjm+8fmLnWLUxnvww9TgyvP7xOHjJWUARx7clAxg9
+L2YL7p/3m7tk1f7Zfdpx/+P98z3/t/fu+ZPAPl6HZtS5q+Va6Es4byXZr3bG
+LODtjFnAVe7fB4Chqp/bkd9xFznbmygLWOQ5dPJjG6+fGD0eR/eUPx/1c7Kx
+Y3j92Oey2CyglON7dFyb7/kukmkt4ncXThXG5+75s2gtOfPo3Hj/PAftU9u5
+afJ2z5cFjL3WPcdN7t8HgKFGZqXZ10ElygIWeQ6d/Ni27HUXfIj83Yfwd5PP
+Jz967dg89qVmAdmPb2jDp7bX3L+c46I2IatVjdO/vX9epz/F+P/GPX8YZ8Ys
+4HqEx8j17+OI51/lPq4AQ+3GraHKXh81Vb0AWusnFrFufM4sYM3HtysHOHrM
+cWaxiL0v4BRh3v65c//reQXWB8MJ5qwdOFT1cxe5/s3eLoBUWjLQmOz7psoC
+Eh7bM/a6m6Fta8gCsh7f/fM6liF1Cr+TBbB2oU6AOQCQkSwAxlE7kBR2w/dc
+zX7vQxaQ6LiesdfdTO1bdBZQ+vHtON6LqXsJY4R7+uYAQEayABhHFkAK9dqm
+ATnA3Zxtqs4H0eutsVlA2+vQOE4T1E9M3L6lZwFFH99GW49zi8n3hoTc7sft
+E2kOACQiC4BxZAGkUP1cDMgCrudsU3U+eKy8b47lh2YB1Z9fhMfe5D6+S7Cf
+qH5iwvYtPQso+vg22nqo1VjsvAU41f3zHpF99QLNAYAZyAJgHFkAqVQ/Dz1Z
+wOWc7Tk6PzxVro7+vDMLqLODxrkle42D0u3je90VUysgtHGxWcASju9RW1/L
+AVizjnqBT2EOwKvcbYStkAXAOLIAUqn3COjIAZ7mbk+4r/+H80PlVVcWUI/7
+w3yCw9895j6uS7B/uWdfcWPBhWcBxR/f0M6f1AtkzVrqBT5UrswBgPnJAmAc
+WQCp1HsEdGQBtznaVJ0TbiN7vf/zZhYQcoPYY69zH9claNnr7ufc7Wq0cclZ
+QNHHN8wFiK1hUCuAVTmqF2gOABRAFgDjyAJIpd4joCMLeJujTeE+f3N833QX
+1hHE/u4i93Fdgv3Lve5qP+ZuV6ONS84Cijy+VRu+r+cARNp27Jfc7YQphDkB
+d+YAQDlkATCOLICUqp/Hliwg272Txpz/MbLMZViao/XhTd/nblujnYvMApZy
+fENb67UMHyJtLXK/AwCWTRYA48gCSKnl++9LzjZFzhNDqRk45PjG97rL+pm3
+tHOpWcAijm+jzT812ltknUMAlk0WAOPIAkip+vnHBWYBzRqCQzzmPpZLEOaI
+x+av177L3b5GWxeXBSzp+Eba3qx3WOT+hwAslywAxpEFkFL1c11aFlBrqQvY
+5Tp3m0tXr1fvWSv+oaTacUvLApZ2fFv68HlJxxyAZZEFAJSj4CxgSA1BNQOH
+HMv4/na9Cmj3IrKApR7flr78soRjDsAyyQIAylFqFlAbUUNQzcAVWkoWsCaN
+XKPoNQ0ALI8sAKAchWcBQ2sIqhm4QrKALMf8UPfwQ+62ALA+sgCAchSeBQyp
+IfiYu50k+vxlATmO+UfHG4BUZAEwjtqBpFRyFlAbUEPwOncbSfTZywLmPt6v
+w7F+l7stAKyTLADGkQWQ0gKygL4aghe520iCz/2bb75rZAE/5m7TEoU9Dg/H
+8Oe2GgDheNd7IPycu80ArJcsAMaRBZBS6VlArSMHeMjdNhJ83s/j118j+/GZ
+GzD+WP4Y2cPg3XEmUO9zGI6vvAWApGQBMI4sgJQWkgXctWQB73O3jQk/5+F7
+86lrN+64/nRUB+DYp3DMZQAAzEIWAOPIAkhpIVnA+5Ys4Cp32wAAGEYWAOPI
+AkhpIVlAW82Ai9xtAwBgGFkAjCMLIKWFZAGxvQWfcrcLAIDhZAEwjiyAlJaQ
+BdSqc8Vj49xxm7tNAAAMJwuAcWQBpLSgLOC2ce64zt0mAACGkwXAOLIAUlpQ
+FtA8d1zmbhMAAMPJAgDKsaAs4PL43JG7PQAAjCMLACjHUrKA2tF54yF3WwAA
+GEcWAFCOhWUBD+G88T53WwAAGEcWAFCOhWUB78N54yp3WwAAGKe+hqvH/0ey
+39+RBQBbtbAs4CpkAa9ytwUAgOWTBVAy+wiQ0sKygIvKU+52AACwDrIASiYL
+IKUlZQG1/Z++uc3dBgAA1kEWQMlkAaS0wCzgIncbAABYB1kAJZMFkNLSsgAA
+AJiKLICSyQJISRYAAMBWyQIomSyAlGQBAABslSyAkskCSEkWAADAVskCKJks
+gJRkAQAAbJUsgJLJAkhJFgAAwFbJAiiZLICUZAEAAGyVLADYKlkAAABbJQsA
+tkoWAADAVskCgK2SBQAAsFWyAGCrZAEAAGyVLICSqR1ISrIAAAC2ShZAyWQB
+pCQLAABgq2QBlEwWQEqyAAAAtkoWQMlkAaQkCwAAYKtkAZRMFkBKsgAAALZK
+FkDJZAGkJAsAAGCrZAGUTBZASrIAAAC2ShZAyWQBpCQLAABgq2QBlEwWQEqy
+AAAAtkoWQMlkAaQkCwAAYKtkAZRMFkBKsgAAALZKFgBslSwAAICtkgUAWyUL
+AABgq2QBwFbJAgAA2CpZALBVsgAAALZKFkDJ1A4kJVkAAABbJQugZLIAUpIF
+AACwVbIASiYLICVZAAAAWyULoGSyAFKSBQAAsFWyAEomCyAlWQAAAFslC6Bk
+sgBSkgUAALBVsgBKJgsgJVkAAABbJQugZLIAUpIFAACwVbIASiYLICVZAAAA
+WyULoGSyAFKSBQAAsFWyAGCrZAEAAGyVLADYKlkAAABbJQsAtkoWAADAVskC
+gK2SBQAAsFWyAEqmdiApyQIAANgqWQAlkwWQkiwAAICtkgVQMlkAKckCAADY
+KlkAJZMFkJIsAACArZIFUDJZACnJAgAA2CpZACWTBZCSLAAAgK2SBVAyWQAp
+yQIAANgqWQAlkwWQkiwAAICtkgVQMlkAKckCAADYKlkAJZMFkJIsAACArZIF
+UDJZACnJAgAA2CpZALBVsgAAALZKFgBslSwAAICtkgUAWyULAABgq2QBwFbJ
+AgAA2CpZACVTO5CUZAEAAGyVLICSyQJISRYAAMBWyQIomSyAlGQBAABslSyA
+kskCSEkWAADAVskCKJksgJRkAQAAbJUsgJLJAkhJFgAAwFbJAiiZLICUZAEA
+AGyVLICSyQJISRYAAMBWyQIomSyAlGQBAABslSyAkskCSEkWAADAVskCgK2S
+BQAAsFWyAGCrZAEAAGyVLADYKlkAAABbJQsAtkoWAADAVskCgK2SBQAAsFWy
+AEpmHwFSkgUAALBVsgBKJgsgJVkAAABbJQugZLIAUpIFAACwVbIASiYLICVZ
+AAAAWyULoGSyAFKSBQAAsFWyAEomCyAlWQAAAFslC6BksgBSkgUAALBVsgBK
+JgsgJVkAAABbJQugZLKA7ap+XoWx+m3je+op/Hf9528r357xHrIAAAA2SRZA
+yWQB21KP68P4/vH4+6jyPozbazeNv3864/1kAQAAbJIsAChB9fMm3PM/jP+v
+uu75Vz+XIRd4f8Z7ygIAANgkWQCQU5gLcHs0///NjO8tCwAAYJNkAUAuIQd4
+OJoLcPLa/xPfXxYAAMAmyQKAHBo5wE2mNsgCAADYJFkAJVM7cL2O1gU8zD0f
+4KgNsgAAADZJFkDJZAHrFOoEHr5vXmVshywAAIBNkgVQMlnAOu2+7gl4k7kd
+sgAAADZJFkDJZAHr05gTMNueAS1tkQUAALBJsgBKJgtYn3ouwNF3zUXmtsgC
+AADYJFkAJZMFrM/xd04BbZEFAACwSbIASiYLWJ/Gd81l5rbIAgAA2CRZACWT
+BaxP9fN09F3zPnNbZAEAAGySLICSyQLWp/GdU+cC9hQEAICZyQIomSxgfeq5
+AI3vm2x5gCwAAICtkgVQMlnA+tR7B8TG32Fc/u3MbZEFAACQxTm1s+rr5t2Z
+e3LJAoC5tY3BK4+VN7nbkfv4AACwDvX81zDmvmsZe7894TUvw9zas+bXygKA
+HKqfm5Y84Ev4XrqcoQ2yAAAAkgn3utqueU/aV6v6eZji2lUWAOTSMT/g4Pbc
+uU+nvH/u4wIAwDqEufz1ffyr2L2wE17vovEaD2e0TRYAZBO+z2LfQ8lrCcgC
+AACYS8gFzhp3h0zh+DVO3qNbFkDJ1A7cjpCXds2hqv9u0v0GZAEAAMwlXO/+
+4X7XCa/RHL+rF8AqyQK2J2SdTy15wMlzoFreSxYAAMAsIteeo2pmT7k+ILye
+LIBiyQK2Kcyfio7Tx35n9ryPLAAAgFlExt6j1sDW6wEaz7+auD2yAIohC9i2
+3fMeLA+N76frCV9fFgAAwCzOuacf7pUdz519nKA9sgCKJQsg8r13PeFrywIA
+AEhu97JWwKiaf5Hr1qsJ2iQLoFiyAGqN76nLCV9XFgAAQHKR687B614j98Ym
+qaElC6BksgBqu6/7CzxO/LqyAAAAkouMuwfXCti9rBMwyd5asgBKJgugzkxP
+yU8HvrYsAACA5BrXm4Pv6++e62elqp0lC6BYsoBtCWPzh5B9XoX/PsyHepvo
+/WQBAAAkszuxVkBYG3BcR3vq/bVlARRLFrA9YR7AzfF33m7CGgGN95IFAACQ
+VOSac9Bc18Y18dOYdQUDX18WAGySLAAAgNQiY+7eMX2YI3ucA0xSI6CnXbIA
+YBNkAQAApNa41uyd5x9ZU3CZqF2yAGCTZAEAAKQ0tlbA7rlW4PH+gVcJ2yYL
+ADZJFgAAQEpjagXsnutmHXKAp1TzAY7eTxZAsdQOJCVZAAAAKQ2tFVD9vD16
+zGOK+gAD2iYLoBiyAFKSBQAAkFJfrYDd876Bt0ePuW3LCxK07aQsoPq5CGsf
+rlvUf3eR+9gnPG76P0P/S80Cwr/Zy5DfbfHzX0X/ZQEAAKSye1kr4Kbx9801
+AYP2GpywfYOzgNCXm93znIUX188t6se+380wx2Gmz/KU/tfPuczd/gn6/yp8
+lqf0/6Tf65KygBz9L8lR/x9G9P+p5P7vZAEAACQSuda8Cn9+2RiH14+bZS5A
+o313kWvhu8ZjrkaOf7rGRVe5P5MTjpH+Z+p/CVlA6P+Y8W9X/9/m/jwz9z/L
+91xH365jbc3dLgAAlm/3cqx9fXRdfbhndlFQ+37PAnbPecUUY8DYmOAy92cz
+4Njo/zRjwFj/B90nzpkF7J7vg8f+fczW/8yf/+r7v5MFAACQSMe1cL3ONvv9
+sZZr/b/cPWcUU48Bmjr3Vsx8XN7P0f8Sfgcy9v+mr/+5soC2MeLEZqsLov/j
++pn7+AMAsGy7rzUB74L6urOodfO7eBbw1zOMAw4eco8HIp9Zinvh+n9C/+fO
+AnYv63jO0f+L3J975v5n+07cyQIAANio3WlzgH+vBxa7jt89zy2+Co95GvB6
+RYyHd8PHwYf+X+l/a//fjOj/Y9t4cM4sYML+X4T+D60z+NTW/4V+/ovp/04W
+AADARu3GZQH1df3VCe9xNWBMkHU8PHAcpP8z93/mLGBQ/8d+TmFc3Pfv7Cnn
+519I/y8y9Pk61p6cnwMAAMxhwDX64Tr97PrnbdfdR24LPg5T9P/trvs++V3G
+/vfNC7+eof8PzefMlQXs+utjXJ87Vh/S/1x5wEz9vyqt/7IAAAC2asAY+HE3
+4fzd3fP88a7xwOx7rrWNBxL2/zHlmPuENr3taM+k87dD/7vuP+fo/5ue/l9O
++F4XPf2fvZ7mlvsvCwAAYKuqn7/quC5Pcp+uJw+Yda5wGJvM3f+++fhz97/r
+s5h8HfeA/s+2djy0pbT+X+r/bP3/ee1ZwP5P39zUcrcDAKB01TXTdaWIva9T
+C9fk/1/HOCDZfN2ePGC2tQK79nkRSTOJnjH43Yz9b1sbkLSeW88YdM7+t+2d
+OEf/H1ve+8VaiQz9T5rJ9OQBc/b/n87d9zmFHOBLcJO7PQAAJaquky4rD5W7
+3G2ZQwn35nbdc5OvZnj/rrnxc/T/suP9k6+V6Dn+yfOwAvqf+/1fdbz/tf5n
+ff8i9nY4R3Uuu6g8HWUB8gAAgCPVtdG3lffhOqm+brrI3aY59OQA/3zGduS6
+L901DphtzfIu333ZUuZldPY/Ve3Anv7fzdj/647+J8tjduXMS+nq/1XC9+2a
+l3FQxF6f56jOZ6/kAQAAL9VrASqPR9dIs9ety2HXXTP831f+kxnb0jUmSbVe
+ua9ewWzX/7s867VLqtfQ2f8UWUBP/7/M2f/QnrYx6errNfT0P0keMKD/8gAA
+gJUKcwFuG9dGs61RzaknB/g/c1z37p73Gmtr09R1zN/0jANnrxWx66/jPlmb
+ds/zwkvbx6G1/1NnAQNygOsM/b/sGY9eTfhe+t8/H6Dpbu5jMjV5AADAb9dE
+V5Frotqi14YOsZtx77gT2nbTcz1ezyU/OafYPd8L7JqPXrvJ2P++tm2y/1Nl
+AaH/16WO+Qa07facz3/ge+Tsf9d306H/FxP0vysH+ZsS/21MRR4AAGxVqKN0
+F8kAate525farv/ee9YsZDds3u5TuJ4fPCY6GgN2jQGKuPe3a9/TYI7+Z58L
+vYvUjjg3Cwj9r8eZjwvo/83Az/9iZP+vVtT/94n6X//93+75dzJbHZFU5AEA
+wNaEfQJjcwFqj7nbl9quew567TJ3G0M7x6zjvQ3josvjscHuuf7AZfi7trqE
+xY2DTuj/XU//366h/21ZwBr7H9p/M6LNh/6/Onq+/v+x/30Z2CEHeBWe37eG
+4ir3MTqXPAAA2IJQG/ChJQM4uMzdzpSWdm0bxoNDxzBTuCllHHR0DIaOh6Zw
+9tzzlP3vyAKmcldy/2dQTA5w1P++tSxJ+79b2HfmKeQBAMAahbqAV439Ados
+fs5nlyVf0+761zZPodh9I3b966encJ27nz39b91HYAP9v+r5tzuFYr//dv01
+Pifp/64lB9l1r6mqLb6+jDwAAFiLUA/gfcdagKb6cUXdD5vSrn//7JvcbRzQ
+hzrLuEswBqhf8yJ3/wb0/yJh/4sfy9T9T5QFLKb/uzRzZOp74Ze5+zeg//V3
+2E2C/j8O6f+u8BorU5AHAABLVs/xj+wPOMTse8fNZde/7vwmdxtH9udyojHx
+3RLGQPr/1cRZQN3/q9x9OvHznyITeFhw/29y9H/XPT+pzgMuch+fc8kDAIAl
+GbkOIOY2dx9S2nXnAA+523dGvy52z3PHx4yL78JzLnK3X/+z9P9QY27L/a/n
+wi/+Hvbu654QY3KRs/u/684hiqu3cAp5AABQuhPWAbS5yN2XVLZw3XrU18vd
+1z0Djl2uYewzoP+vOvp/mbt9+q//M/X/baP/b6bu/xa+V+UBAECJwjXKKesA
+Ym5y9yeVnuvVxzVcrwLMbde/7moVc83kAQBAaUJNgJsz1gSsfk5A9fM/dlyn
+rqLOFUAuA/KAm9xtnII8AAAoVVgncHViNnCXu/1TC9en/6scgDVqqx2Yu11s
+U/i+7drrcPQ+jWGtw2NJ6zrkAQDAEoQ6gv/DwCxgVXsHhLWy/1fHdWltVX1m
+W2QBlCaM3bvygKsTX+sud9+OyQMAgNKFOQJDcoDH3G2dym74vttXudsK55AF
+UKIp8oDdc43D5mtc5u7bMXkAAFCqlhzgb1qygLe52zuFluvHmH+Su61wLlkA
+parH+z3fwa1rszqee5e7X03yAACgNC05QP1nsf0G6uuYRdfQD3MBhu6r/de5
+2wtTkAVQsp48IFqrZfe8B2LX9/dl7n41yQMAgFK05QDh795G/u4md5vPEa43
+h8wFsDaAVZEFULrq57onD7g4euyQtV13ufsUIw8AAHLrygHC37+K/P1F7naf
+or6GrK8LR2QAxV5HwilkAcsUxoz1Xi+Xudsyh54x/sNueI2XYucGhM9VHgAA
+ZNGXAxw97vha5S53u08R5pGOmQtQ9DUknEIWsEyN7+rHMF9r0eu0+vSM9f96
+LZmuPAAAmNvQHCA89rhmwKL21DtxLkDx149wClnActU5bGy91tK+k4cK9/4f
+TvzuXlSuKw8AAOYyJgcIjz/UDHjM3fYxdt3rThd97QinkAUsV8t6reO5AtdL
+Xb/VZuI84C53fwZ8vvIAACCZsTlAeM7hGnQR+wjunveqPvf68S53P2BqsoBl
+C+P9tjzg4HZNcwVCHjB2TcAi8115AACQyik5wNFzH5ewPnWCuQCLuGYEtqf+
+Dg7fxX15wGrmCtTfxRNmAXe5+zPgM5YHAACTOicHCM8vOgcI14uPW7leBLap
+vuc/MAs49hTmC9TZwGXp3+cHu+f9X6f4Tj92lbtfAz5jeQAAMIlzc4CShfmj
+7ye+VrzM3S+g28D58rR72D/XHqzPD69yf55NiXKA2mPuvg38/ZYHAABnWXkO
+MOVcAHMCYEFkAZOrx513+wLmDuy69xPcxNyA8DsuDwAATrLWHCDMBUh1rXiZ
+u3+QyppqB8oCkqprDdRzBmafLzBDDrCYuQHh91weAACMsuIc4E3lKdH14V3u
+/kFKsgBaHOYD1LUIsswHCBnv3Qw5wKLmBoTfdXkAADDIGnOAcJ14m/ja8DJ3
+PyGllWUBF/vnuexb819U/tUZ4/7DPf+3+0LqBITv93P3gV3t3IDw+y4PAAA6
+rTQHuEo4F8CcADZjTVnAVlXf5+9PvOdf7P4Bu+nrv65ubkD47M/KA5Z+LQAA
+tFtbDlD9XOzmmzNaxP0xSEkWsGxhLDj03n993/8id5uHqn7ezpD5LnpuwNHv
+wOg84Oh3ZzG/EwDAMCvMAea8LrzJ3V+Ygyxg2cI9/q4MoJ77f5m7nafazbMW
+bNFzA8Lvweg8IGRD9eOuc7cfAJjOmnKAmecCHFzk7jfMQRawXC3f88dzAIqc
+/3+KXdoasYufGxB+H0blAdXf3YbHPOVuOwAwjZXlANczZwDmBLApsoBlqsf5
+sXHfkucA9Jl5jsBV7v6e+HsxOA8ImdGirxEAgK9WlgPMXUPanAA2RxawTPuv
+9QJXNwegT/VzWd+7Nzeg9XejNw/YP++5cfz3D7nbDQCcbk05QC1c781dN+om
+d79hTrKAZQpZwGXuduQS5gik3mvgKnc/z/j96MwDWq4XNvv7BABLtrYc4KD6
+eTVzHnCRu88ADJN4jkB97lnsfIuuPCCsJ2leM9zmbjMAMM5ac4CDkAekutYz
+JwBgwcIcgetE54Xr3P07R1se0KgVcOwid5sBgGHWngMchGu91PUDLnL3E4DT
+hNx46vPEoucG1FrygDbvc7cXAOi3lRzgIHEecJO7fwCcL8EcgevcfTrXiDzg
+qYQ6lFUbvqu8C36tfG55XP33Hxt9qP/7Xe4+AEAqW8sBjtXjdnMCAGgT5gjc
+mRvw2/XCZeU6MmZuczVz+348Gvd/bmnTr43nvBvQj/q1Xuc+/gAwpS3nAAcT
+5wE3ufsDudhHgDWrft7upqk/e527L0PU9/Qrb8LY/27g2L/pccb2Dm3Tu/D4
+er7Ah5H9+SH35wIAU5ADPNs91442JwDOJAtg7erv+AnmCBQ/N2D/vM/kKWP/
+mMsM7f+poz11BvB95VP475/r/z567o9Hf9f0KfdnAwDnkgM82027z6A6SWya
+LICtmGCOwHXuPvQJcwJOnQ9wLMv+gvvn2gDNtnwMWcCn8P9/3/LcOitoW2Pw
+Y+7PBgBOJQd4NnEOUPx9HkhNFsCW7J5r0N6u/ZxRXR9c7J/3Dhy6f0ApcwN+
+jrTjUB/w1xOf/9s8gtyfCQCcQg7wbNe/j8C/Xds9HkhNFsAWVT9vTsyVr3O3
+fYz9c/2At5XHE7KAhwztjc0LqOsDfBz4/B9b+jLo+QBQEjnAswE5wE2YM/C4
+tvs7kNIWsoD9N9X44Jtv3lU+VIwJ+M2JcwT+5VLPHeF6Yuz6geuZ2xib4/+5
+bV1A5Pnft/RDzQCAjdivZF9aOcBXu+66Tw9Hj+vLDBZ5bwdSWVMWUI3zvw9j
+/oMvEUV8v1OO3XMt2qE5cm3R882r64hXYf3A0Dzg1Uzt+qHl/Uf9m23rR+7j
+DsD09ivdl1YO8NWue//Ah+Y9mgF5gDkBEKwhCwgZQGzcH2N/MV4I5433A7OA
+f1/527nbfK798/qBeu/BvvUDdzO1J3ZtVl+LfTfydWQBABswItNe1L60coCv
+enKAx7Yxfbiua3vude5+QSnWkAU0VeP91y05gPUBdBoxR+Cvcrd1SiET6Koz
++HaGNsSuz34Z+RrWCABs0H4l+9LKAb6qfq567u33zluM5AHmBMCRNWYBtVAb
+oJkFLHpuN/MIWfL1gDzgf87d1intn/ceaKsnUOcEFwnf+7uW9x01P3Pfvs5A
+DgiwcvuF70srB/hqihzg6LWOr+muc/cNSK+eAxDJArKt+2J5ds/1aP+qJw+4
+zt3OqYVrkdgcgduE7xmr/z/6XkzL64yeXwDA8uwXvC+tHOCrMEez69pr9HEJ
+2YI5AbAB1Zj/u0gOEK0hC32qn3889TmpdPvnWgK3keuSN4neL3b9Nfraa99e
+D0rNUICVa5kXUPy+tHKAr8J9mK49n08+LtXPRe7+AemFPQSbWYD7gpys+vmv
+tpYH1Oqx//6PtQXr+QKTZ+r7l3s6nTQns+U6MEvtJwDm1TLHv+h9aeUAXw3I
+Aa5ztxHW5NOf//y+chdxlbtt56jrAkSygFnWerFeU65dW5IwR+D90TXKzcSv
+H1vjf9I8npbrQLUCAFau5Vwyel5Yy2t8SdRmOUCw698H8CZ3G2FtqjH/wxpr
+B9brAZrrA+p1A7nbxfJtNQ+oVdcnl5WHcK1yOeHrxub1j57H0zG386fcxw6A
+tFrOJUXvS7t/WZvnKvdxzEEOAHlUY/5/trYsoBrz/xCZE9BbLwaGqn7e9+QB
+q65Ls3/ef/BxqrUCLfP6T1kf8MsU14EALM9+gfvSVq/76igPuMp9DHOpfu46
+rqse1n5dBbm05QALzwLeRbIAdcOY1O7lfrWbOm/tn/cfnGQORGRe/yn3cb5r
+WR/g3z7Ayu0XvC9tyAOS1OVdgq1fT0Eu1Xj/25VmAbG9BN0XZHLVz63z13nq
+67TINdfoeTwtc0OT1XoCoBwta8TsS1u4nhxg9fMsIaeQBfy8piygZS9BdcNI
+wvq28+1b9oI+4XU+nXs/CIBlajmX2Je2YFuuvwSlqMb8lyvLAmJ7Cfr+Jhl5
+wHn28b0ER+3/Vz3+pymuAQFYppZziX1pCyUHgDJUY/6LynVM7radoq4RGMkC
+fmg85qfIY7oscl5Y1e7XoXZC7VO9z2LkMT9Fjtnn8JxBe/Hy2zntYmc/3NFa
+1neOmsfTUifAXCCAjWhZ429f2kJVP5cd10u1q9xtBJYpspdg51qxMI+g+Zwv
+Yez8bil1Bo7G/D93ZBqvjx7/OvSxLwexF9tAdYbdkwdc5W5jaVrWZY66nx+Z
+F1qvFVjEv1sAztcyr9++tAVyrQRl+PTnP19Vnio3lVXULm3ZS7B3XBGpNbiY
+NQX1vfuBcxs+Hz0nts9Cl9Fz7LYqnONk3QO1zMUc/Pu2f1l3sM4BzGcB2JBz
+zyVHr2Nf2oQG5ADXudsIW1GN/28b9QEWnwu03BPvrB3WyA8+N9cTLE3LGonf
+1znU/xv+++PxPf+QKbQ99/NS5keUwBq44VrmYg76Xds/7wH9SQ4AsG2Rc4l9
+aQujthKUY0N7CXauFQvj309HY+PFjyP2z/soxNY8/Hg0H6D1vFb93QdrBc4n
+D+jXsr5z0JrMcM12XCfqoxwAYHsi88PsS1ugXffegTe52wdbEtYHtGUBt7nb
+d4p9fC/B1rViIQc4ZAejzxkli9QB+HyUA/TNk4jtw7C6YzSH6ud9x3nvLnf7
+cmu57ur9PYvkAL+mnr959H4yMYCCRGrG2Je2QPV1T8v1UD1X4Nvc7YMtqcb7
+Dx1ZwFXu9p2iZQ18dK1YWBdwGC+vat+xlkzkU9fxGPD83+ZN5O7bEnXl4Lnb
+lts+vv/Th57nvD66Xvs8x9i8cZ0pCwAoSMu5xL60hal+buUAkF811r/syAGe
+crfvVC1r3V/cK9w/188/zKFf3XV9x339wfV0I/MKevdjoF3L+e8xd7ty2sf3
+Evy99nNzvn+YQ/Bh7vWbkbmnq/vOAFiqlnOJfWkLFKkb+CgHgPlV4/27jizg
+Onf7ThVZI/9irnFjnLzKeV/7eP3EUbX/ZAHTitTLqc+Fi63ROYV9fN+m/7+9
+O0Zu44YCAFqhj26g8Qky4wuw8AHcpHflOp1alyndpnOtyj2bHEBFLsAZnyCT
+GyhCDEabFbDEUksCu37FKyItye/N2Et84P+/T2v+Uh/nu2uuxdP3w/GZUbkA
+gE4UniXm0nYqfR/aJfIAcGUnzgR8ax3fuQp74Xeja45r5LjOXfWsgBP3Ytw/
+cfaMRLmAyxg8/25bx9LaUvWdF47xPn0nfJALAOhPMJcWoEqaHfBtIhewax3j
+uQp74Tfpd7H+/dgbfxOzAibuQ6nWf95cHf0CuLBCj6ZucnSD2tG3o9oEuQCA
+TmTO9ptLC5CRcgFftlYbEGX2wh/Sz4c9AqPJvmSTn/H9mVGqb76WyX3TQv/E
+Wf3/J/IJ1f0GYErIzxKcnP955fjeHGsS0n/LBQB0pvAsMZcWYEKaJ/j3IA/w
+pXVMr5HW+y/OxE/00Dvr3/qV5AJy/ROrz8ql93hXuG9dnd9mvcKZswSvGN/D
+8PukXABAf859lmTyABefSwvQk6f1/89pruCX1rG8VmEvfF9Yz569pl1JLmDc
+P3H2Xmvhfj5uuccC1xXy9Z1d5JrSd8u/hvtDcgEA/QkdzqVNz5BxXPeeHbAt
+aS0d99Y/tI5lIsaftrLen1LYCz/2CPy4VA+83nMBhXMQs8/1F/IoegWwmJCv
+72yeawrP500/jn4uFwDQkdDZXNrwfZ5B7tk2FHMEzh/Ayg3yAMcz9r+2jikT
+423KA2yiDqBkorb9fnBNrq/+rHPzaxDy/RPn1geU7qf1D4sI+flPzXsFhOf5
+gS9nkcoFAHSl8CxpMpc25GsV5ANggzJ5gP/W2nEfvnV8Kcb3pRhbx7a0wl74
+eJbgq/vprUEm57FUfUA8X+G5xSJCfpZg83Mn6btjdqa0XABAXwrPkqvXmoX/
+9y+8Gz5D0u9yNXG/tb5/wHwTeYDH9PPbxvHFmoDPEzMDN5cPKOyF34yuWWTO
+Xs9Cvn/iOfUBuTMU1j4sJuTrO5t+LxrsL70r/F4uAKAjoZO5tOn5cJj67PA8
+o3ZoM99B4UdxYp39oXFsuyffTuQBoj9b38clZXrlZfcXCz0FuuhVttB9yO3n
+LzE/oPl+LdsxUd/Z7O9ieJ4fWMxHyAUA9CN0Mpc2PPeRyuaRR9eO6xY2V6sK
+P4JUCzBeX3/NXPcp1evfXjiemrMA3ZxdWFJhLzz7fb6wzj2rh2CPCrmOWTnn
+TM/AmGcxa5fFFOo7q75HXTCm/akaBbkAgH4U6vOvXvt57E1Qee04f+FZAiuV
+1vnH9fW3cZ+A1LdvuP7+dKk1eMoFVJ0H2FIeIJq7F57q3sfXN1uDLHgfcjUQ
+s56JIT9vwXOKRRXqJqMmOafB98nJz5cLAOhH4VnSolfA/Zy6BLkA2I5Bf75d
+5nd/TKzHP6fX7nKvnfi8mF/4EM8gpPfaDX63O9UjoJe+hksq1LYX98IL693i
+mjmdJei+nitU9E888fqbTJ5EXxsWVTjT2eys5CCek39X5AIA+hE6nUtbEfeh
+5XMPuLy0zq85r/+vzOt3yft0nuBrYd//19HrvmauibmK963vySUU9sJP1rZn
++gs85s7BD9bH3fcUCPn+ifV56pevn91zEKak/fepucuHMOq/fKWYamdATen+
+3wiArSjUmjWfS1sZ+/A52P1eEzDPjPP6/9UXZN6j9rWfR6+7Pfx/xsEmzwIc
+FfbCT+5lF+oKXrwuXbeKfgKZ/Eb1MzFzH+UBWEymV1Kti++9ywUArE/odC5t
+RdxvBvH6rgUbNeolcMofmde/5rWfUi5i1/o+XFqhV97J81Zpv//F2nl4NiA8
+9yTsvpdAyPdPrOoVkHmtugB+GHIBAOsTOpxLWxn38JmjLzNsWNqjL/UMGPqU
+eW1tLuDv1n/Olgpn/avOWxXOBuxTnuBtqg3o/rky8Wc5Xf/8vRfC8B6qgYYC
+/QIA2gsdzqWdEfvDWvIWwDJS3X9uBuHRh8xrqnsNbLkGYEphL7z6fFihV95Z
+79VayPdPnHwmjvIH+zm9BU6875v03uM8zd1SnwEtyAUAtFfoFRB1fY4zPjdS
+nPvWsQDXl/oIHGcADGv6d5lrT54HSPmFTfYErFHolTcrJ1zIJzymtfUqzm6F
+fP/E7P3IrNMfamoqZsSSO5/wqv9H0Au5AID2QmdzaStjjmcZDol+gcCkzLo/
+1hp8TrmEn1vH14PCXvjsfed0Tv6w1rVqKMwSTPaFOojF9+if3u/3ijzAKu8x
+RHIBAG2FzubSzoj7PuUBus1XALA+Id8/8apn8WOfgfS5L+YvplxFLm/jeciq
+yAUAtBM6nEs7M251kgAsKlOXf/X5uikHENf7xedv5oyCvjmsilwAwPWFjufS
+VsR+7BEgDwDAogr9DqpmCS4Yw3EWweQ+f3g5x3E1vRkBAOaIvQzX0NMQgHVa
+on/iQjFUfeYo3kPr+wcAsLTU1+CvnnsYALBuS/VPfGUMd1O1AaNrPzoXAABs
+VewPmPIAVTUK6XpnBwCoFvKzBK/eK2BmzMNcwFVrGQAALimt6w9zehWkGQP6
+KQNQLe3HN+0V8MqYm/f0AQBYQpxfMCcPkK6PeYB969gBWJfCLMGue/MPYtYr
+AADYhLSufzhz3oGeAgDMkpklGHX7PBnNEXAmAABYvVfmAeyNADBLmuM3zgM8
+nprr1zjmY31A13UMAAC14hn/M/MA0VVnPwGwfoVZgo+t45qI9006E2B2AAAA
+AMw0WFfnzgVUzfZrEHPsE3Do+dwCAAAA9Cj2A0hr6lweINr3VoufzjDE3MXb
+1rEAAADAWhTmB57UQdwf5QEAAADgxzDob/iudSwAAADAZcVzAOk8gDwAAAAA
+bNwgD/BL5fXyBQAAALBSacbBobZ/Ycob/N46bgAAAGC+M/IAx5kI+goCAADA
+ygzyAHNnHexbxw4AAADM87Sev3nycM7Mw9ozBAAAAEA/4t7+mXmA2F/wpnX8
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAtPEPTOY6Dg==
+        "], {{0, 618}, {1027, 0}}, {0, 
+        255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{199.28125, Automatic},
+      ImageSizeRaw->{1027, 618},
+      PlotRange->{{0, 1027}, {0, 618}}], 
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3U2oZOmd5/eD7UC5zILxPip3XhguaG0ImyoKvLqMK13eOUZq1bauawaS
+AckKtKkqqMWFduPW0KAQiGEoC3G1s5zUEGPLqCzX4sJIxXisxKGSFw3uTl+5
+DeOmGR6ff8YTmSfPfZ5zznPO83rO94FPq+tmvDznibgRv/u8vvmtD/7++/9O
+VVX/8EH9f/7+P3jyH3/44T/4x//Zv1f/x3/yj//Rd77179b/z39Q//tf1OSH
+SqlJ6vKwdiMPVbutXU59TAAASlCX69qdtktdH2Cu6nLQWbNpk7peAACEVJe9
+4ftvm7pewBwZfteU/jvvInXdAAAIQfdrmr7/DqnrBsyR5feNzAkAmCXpw+z4
+7tunrh8wRx1/453ncz5MXUcAAHzoyZr0swABWeawkDkBLMKzH/zgoratXdcO
+tbuaOktdP/ghWbLju465m0AEOlfafgcPqesHAL7UGfJh7bK2b2dLE8P9N63b
+HHVO3Ul2TX19uE9nzTuyJpCW3hepK3PuU9cRAHzQebMzY/bkzaue+xx19lyn
+vla8+H5b92TNXeo6AkuiM+eRzAlg7uoseDMhb+4H3lf6Tnepr3XJ6EsB8sSY
+A4C50PMyb02ZT8/XHJs3b6f0jyIOsiaQNzIngNLp8exm7lu3/n3wmLrhsQdn
+TelHTd0WS1W9OjuPtbBApupy2bOOb5O6jgDQJrnS0v94MNzWNKYu973W/Z+y
+LmhjuN+lvs2Qfs6t4f6sKQqsYt8VoBgV+5QBKIjOgV3rzS9btz+Pqd/o/985
+g+h8e6XXCJme82Hr9ue17Ycxz4d+Vfe+0ndkTSA/sm6PzAkgd4bxc9u68WBZ
+Q2fJg20sXY/hN3PpLX2dftFPApSLcQkAOXs2fL34daT6bHSu3LZ+bhq/vyNz
++kHWBMrXkzn/JZkTQGy6v3DIvkZH0zzMyHXtWg9/TN2Wpas4OwiYhap/X4nb
+1HUEsCw6b/b1bV7nME+yY14p/ZsTVeypAszKgMz5O/o5AcRmyZx37fVBiet4
+YcicZE318rtlP+b7o+LsIGCW9OfCHzt+t/+2ls1nPIBlaGVOWYezTl0nQx0f
+Pnu1hxJZU2usS3VaDzCgD2Sf+toAjKfHLv6/nrkyN/R1AvDt2at9L+99vujM
+afy3XDTmnJI11cvM2OyfvB2yroesCSxDXf6j2r/tyZx3zJsB4Etj70r6B2ei
+Mu+517uWvOLsIGAx6vIXPXnz7CBzbFLXF0C5DHtXWs/vQRkMfZvtzLmx3G9P
+1gSWpS5/NTBzymfHVer6AihTz37u+9T1gztL32bn2vKq/+ygderrAuBf1b2/
+Ln2dACbTfZtd51QeU9cRbnr6No2Zs+f7hv3cgZmry9Exc4pd6noDKENP36ZK
+vZc73A3s22z6Zc+/kzWBmRvRx9mcZ8NnBACrAX2bUc6ohD+OfZuD+z8BzN/I
+Ps6XfZ0V87sBGPT0bR5z3vsIZiP6NsmaAF6Y0Md5Jnl1k/o6AORjQN8mZ0sU
+xnPfJn3bwAJN7ON8+flBXycA0dO3eUhdP7jz2Lf51xXzsYBF8tDHSV8ngBcG
+9G1uUtcRbjz3baqKNenAYnnq4zzjTExgoXTevNRnVLZz5yF1/eDOY99mO3Nu
+Ul8bgLg89nE2P0uYowUsXCt7blPXB27qsg6QNZt4TwAL47mPk75OAChc1X0G
+JZkTgDPpjwz0WcKZmABQmAh9m0371NcLIJ7qdG5lqM8Teex16msEEI6Mmesx
+dNaDFC5S3yaZE1igumwCf57Q1wnMmGE9+m3tprZOXTcMF7lv87V+idTXDiCO
+wH2cZ5yJCcwQ+yDNQ4K+Tb4XgIWJ0MfZtEt9vQD8kEzZkTfXqeuHYRL0bd7x
+XQAsU6Q+Tv6mLcTqwYPHtSe1p7UvU9cHeerKm6nrhuEi923Kd8069TUDSCNy
+H+cZZ2ImVmfJRzpXnimDJ6nriTyRN8sXsW+TufwAXojcx3l2rDhzIjqdM03Z
+0uSbqeuLPMmYuT47/Z7UdcMwVZy+Tfo0AbyUqI+TM84yUGfKtyxZk7F0WOmz
+LDcmqeuGfhH6Njl3DoBR5D5O+SxiHmcm9FzNdt78OHW9kC/G08sWuG+Ts+YA
+WEXs42TNUGakL9OQN99KXS/ki7xZroB9m0f6NAEMEaGP85a/e/NS58o3DFnz
+eep6IW/kzXLp/kffn+2sAQUwWOA+zgOfR/nR+x+18+YPU9cLeSNvlinAZ7z0
+aW5SXxeA8gTq49ynvi6YyTxNQ958nLpeyBt5s0yeP9/p0wQwWuV/bs8+9TXB
+TsbO22PpMsaeul7IG3mzPB77NpmDD8CLyt/axf8h9bXATvbXNPRtfpa6Xsgf
++yGVx1Pf5i71dQCYD899nNvU1wMzy7lCnCkEzIyHvk36NAEE4bGPk8yZKcs+
+SMnG0lffqJ//dWRfwIMJfZucRQkgKM99nIq/jfNi2Qcp6ZlC5E3Avwl9m5JR
+16nrD2D+HPs4Zbzlv+75O5nMmQnLPkhJ8x15syysFyrDiL5N+jQBROXQx/ly
+H/e67Ho+x9aprwsv8uZnhrz5zdZt3recrW4zad/OVHlTnyH/RHtmOstTt0W7
+zZ7r+zxK/XqmQN7M34i+zRs+owGkMKCP81C19mDruQ9nDGXAsA/Ss57bPzbc
+R+l89sTHvM8YebORK037jt47y1Nn0WcDsvb7qV/T2Mib+avLv3Lo0+QsSgDJ
+9PRx7jvuR+bMlGUfpHt9eob7tdcXec2DIfOm9EEO7KN93riPaf1+l0Xtk0/e
+zFtd/sShT5PPYwDJWbLjvuc+D3WutH7Gpb6upbL07b3Vc59mRn3eHnv3Uq+I
+4+mW+QQv5wTI/+r//rLZd6lzq+2+i9orn7yZr7pc1P6uJ2ceK86iBJARQx/n
+duD9+jLnPvW1LZGhn/J5z+0fNcaUvww1XzFy3nzDMj/gcaNf0/r89b89Xfq4
+OnkzT/pz9//tyZqcRQkgS40+zq3j/R7quUHWz73U17YkK/M+SNZ1PjprnvNp
+0LOHYq8XMszLfN7Imn39vab1/Ys6n4m8mZ8Bf+P/DX2aAHKm+zg3I+970ZM5
+t6mvbykscxKN8w71GPo5k/XO75xct/j9m6a1T4PmYVru/6L/N/VrHAt5My8D
+sua/ok8TwNzpzNk1vrNNXcclsMw9vDfncHVal30eb44yRhw5b9r6Jwfv6WTo
+H+1d5z8n5M28WObZn/1vZE0ASyGZsidzsh98YIY5i/fGf1tZrHNc2Wvd4uZN
+05opp/U+5E3yZi56sib7gQBYnJ7MyRlEAVn69J60bnPOYZKlvK9B76xf3Lxp
+Ojve6fnIm+TNHFScsQEARnptJJ+PkVn69N7Q/ybzEc9rroOtQe+sX6S82TH3
+0mkvo6XP30R6/P0OAN0Y/4nP0Kf3pf55c12QeDr6Ob7x4JEhN8bWmVMta6ac
+1pV3ZNZJZ3oCQzE/CQCGqU7nWpA5I1iZzxR60rFuZlT/ZiF507RmyulsIL2e
+ytRuUc58x7JV7PkBAINVnEEUjaVPz7Zn+ejcVEjebK+Z6tzv3qE9Vew5r1ge
+siYAuBuQOfep6zgHlj6987qg932te8k9b1r6c53HwC1ZfVFzN1kvFF/Vf37G
+PnUdASBX1Wkvec4gCqRjruFnjduY1ms7jTFPrqdjP+XItjCtmXIdS7e152LO
+shTkzbj42xwApmOMKBxLn157H6TJa2gm1zNO3nQ6O97yGKa2kn5ip/XtpSNv
+xjMgax5S1xEASlENOINIf+5umlLXO3eWPr03WrfxskfQpHoGzpsr85qpMWPp
+pr7gRfVtCvJmPBX7eQCAV1X/Hh9de80dqtPex+wD0mBYH2OcZ2iZ4xltvXWE
+vDn47PiOxzCtS1/UvM0z8mYcdfnXZE0A8G9C5mw66uy5Tn09KVn69D623NaU
+paKdlxMhbw46O77nMdrrhCTLR98bPwfkzfDq8i96/sbmb2sAmKDqPoPI1fVS
++wBc+/RW5jMao5yhHjJvWuYLuO7xblrHv7hx9DPyZnh1+TuyJgCE1TNnacx4
++2Xqa4rNMtfQ2qdnyVTWXKb7RL3M8QycN3vXTPXc/w1DFjf2Ey8FeTO8jry5
+SV03AJgTj3nzbJ/6mmKx9On1zjU0zPdUpjHjRgbzkgsD503TmqnBe7Mb7r/4
+cyvJm+HV5a8sn2P0bQKAR5bP2n9WvVqfvtXzNA9V935Ki5tjb+nT6+2Ts4zB
+37ufvp23+Z2B8+boM4UM7bj4rCnIm+FV9j2QtqnrBgBzYvms3XXc/lJnz8Vn
+Tsv6mN712Lrf8l4+a/Zxrl6tQ/I2tzNU3lyZ10wNmrtpuO+ix9ARV8dn2S51
+3QBgTsZ+1uq+z77cOevMaRkXHzTX0tLH+VRn0W/qcXSv2Stg3jRdS+9j67mp
+zTYMsjZIz5n90md2xzx0fIZx5hoAeDT1b/u6XC1xPqelT2/wPpGW9TFB95wM
+mDdNa6Y6H7uVUZ+6zPV0qNeTVp4lb+I1HXnzkLpuADAnPsaSqv6zMme3bt2y
+PsYpv1kyq9L5zfuekyHy5sp+btK99pBramXAL4fMP3CszyPLa0PexD3kTQCI
+w9fcpZ7MeTe3cXVLn55zH50eU35my2he6xwmbxr3QdLae7ef+zKfhOjP1PU5
+P/452xabN1kvFF5H3tynrhsAzInPufI9mTP5fKg6X61rs8q9qa3Ma6aCZMmR
+9SNvwqojb+5S1w0A5sT3Z23PfM51quusc+ZF7a52S+b02K4T9kGKVD/yJqwq
++35IV6nrBgBzEuJv+44+gyR9nLpf864xjkzm9NGuE/ZBilhH8ias6vI7y2fV
+JnXdAGBOAuXNtW0eZ4prlGypM6Yic3psVw9rpiLUkbwJq7r8jemzKnW9AGBu
+Qs1dqsuN5bGTrFUncwZoU09rpgLXkbwJo46/i//v1HUDgLkJmDcvcxpTF2RO
+j21p3gcpq7mbup7kTRjVZW/5jPpd6roBwNyEXJtZmdeq36a8XjKnp3Y0nymU
+1dxNXU/yJu6pTntp2NY1/jJ1/QBgbgLnTeOYeuprJnN6aEPzPkjZnX1O3oRJ
+ZV+XLg6p6wcAcxM4b+4sj79Ofd1kzontZz473utZQZ7qSd7Ea2ROT0fWJG8C
+QACB8+bG8vib1NctyJwj2+10JpLpvEjvZ3B6qCt5Ey/VZduTNcmbABDAkvOm
+IHOOaDPL+eSp62Wpa7F5E34NzJrkTQAIYOl5U5A5HdrqdC65aSxdvJG6fob6
+kjcxZAydvAkAAZE3T8icA9rowYPHtWeWrCme1t5PXc9WncmbC1ad1qF3rQ0i
+bwJABIHzpm38apP6uk3InJZ2Me991Ct1vXXdyZsLpHPmfkC2/EvyJgCEFzhv
+GsewUl9zFzLnvJScN5e0Xkjnwyv9mXEwkL3VdtXpHIkLw/0f6vGUnUN/5l4/
+NnkTAAILnDdNn/vH1Nfch8w5H+TNfDX6IE3nQoR2petA3gSACELlzcp+NvFN
+6msegsw5D+TN/Oh+SFPOi+FYNebzkDcBII6AeXPb1a9QAjJn+cib+dB/g6bK
+mS8+12oPW3UibwJABKHy5t/7e//+PzU99r/+33/3Rf3v+5rkznvzsHJD5iyX
+7M+U+/lHXeaUN6vT3MwUGVPG6veV5Uwz8iYAxBEgb25q+3cfv3fvceVnhnKs
+yfNlm9/InOXR+4S2z3h/WlIf51zyZjVsnXh7zPvQ4jrHU9YXbdv9mYa6kTcB
+IAKPeVM+12Vu5otietzvfu/7qqPcqVOfZ/I2MSFzlsFh76anqevap/S8WZ3W
+jJvynK0P8rIrH1an8fhNdRoXN5F86TRmQt4EgDg85c2NOuXFF+Xu7o/G75U/
+/bM/VwPKQWXa10nmREwzyJs3A3Lmrq8PMnAdyZsAEIGHvLlVrfKrL35t/H75
+xdPP2ze1lVtF5sTClZw3q/4x9H3KnNmoJ3kTACKYmDcvlaHY8qb83KGQObFo
+peZNPS7e1ae5TV3HRl3JmwAQwYS8uVaNMfRm8dC/eS7Z7tVJ5gTuq05zNm1r
+e+5c51dGqC95EwAimJA3D8pSJs7fbJdt6jayIXMCr+sZR9+krp+hvuRNAIhg
+ZN7cqJ5ietye9em2In2oWfWJNJE5gZPKfqaYyHLvCfImAMQxMm8eVE9x2H9z
+SJHMKXU6ZzjJn1v9sxtdn4N6fXz/0CC3k++7jWv7DEHmBDr7Ng+p69ZRZ/Im
+AEQwIm+u1YAifZmmx/79138YcvfQ5aBOGdRbvymZE0vW07e5Tl2/jnqTNwEg
+ghF5U/oJe8tPf/Zzn3M4Q5ajOl3T5FxI5oRPJa1Pr+znVe5T162n3uRNAIhg
+RN58eYZQV5F+TNNjv/32O0Punqrs1an/dnR7kjnhS2F505Tbsu7b7Kj3IXW9
+AGBuRuTNgxpYPrj60Jg5f/Tjnwx9iFTlWk3o7yRzwofC8qbpd/02db0G1Ju8
+CQARjMibg4ttTP3NNx+92DMp8zLpPHcyJ6YqJW9WpzPNx6w7TI68CQBxhMyb
+UmT83PQc0vdZSDmokX2dZE5MUVDe3Fo+Rzap6zag7uRNAIggdN6UM4Usz5Hj
+2iFbkb7OjRrRvmROjFVQ3txZfsezf4+TNwEgjpDzN8/lW9/+jjVzyph7QWWr
+RrQxmRNjlJ43U9drYN3JmwAQwYi8OWh9erPIWnWZs2nLnB998qnrQ6YsXW1j
+NSVz1re5qI16XpSLvBml7uRNAIhgRN4ctP9mu3SNqwvpA81kL/ghZa9GtPXY
+zFn/+5W+Lf2hC0LejFJ38iYARDAib67VyCL7IHVlTukDlTmdBaxdlzJq7fqY
+zFn/217frut1wcyQN6PUnbwJABGMyJvioEYW2zmX7dwpt/vVF78e9JhyOyFz
+QSWvSq49/yxwdt2qEW3umjnrnx/1bY5jng8IqbKfLbRJXbcBdSdvAkAEI/Pm
+Rk0otn05u8baJX9KljyT/ZTeffzeoPvLnkxyf3lez/lT1q2POoN9aOas/3vd
+us12zPMBoVT2/Te3qes2oO7kTQCIYGTeFAc1och8zq41RKGc+049zhU9qoD7
+c0q+bP37YcxzAaHU5aHl9+0mdd0G1J28CQARTMiba3Xq3xtdpK/RduZlDJI7
+PfV3XquR7d+XORtzN5tG9akCodTl1vA7dpe6XgPqTd4EgAgm5E0xaq16u8g8
+y649OkP3d0pfq4eyUSNfg67M2Zi72bQf+1woRynrhURdri2/Y5vUdeupN3kT
+ACKYmDeF836ctiK5U/ocU4yzy/NOLEc14XWwZM6vDFnzjL2RZq6wvHnh4bMk
+Rb3JmwAQgYfvCMk9t8pzkewp64Kk39O0Lkgy6Xkd0Xk9+m9++9WL+8rczPN6
+ddlL3naGe5s8z8Tx9a2a8FpYMqeNy2uEApWUN4Xl9yrrOZzkTQCIw1OfhMwn
+nDSXM3SRLDpkL6aJmfOoJr4eOnP+ywF5c/JzIW8F5s3isluJdQaAEnkcA8s+
+c0qRvs++uaLy7xPKVjm2nc6Yl7Vrh/5N9kaauZnkzWPqeo2o8yF1vQBgbjzP
+uSoic0rpO+towpnuR9XTTnpPza1ee+6SL9tu+54L5Sowb+5Mv0up69VTZ/Im
+AETgOW+KYjKnjLF3rU0aer6RoWxURxvJ3MsJGbOt87lQLvJmlDqTNwEgggB5
+U0jm9L6GKETpypyyzmhk2aueNtJ9nJI77ybmzd7nQpkKzJuMpwMAjALlTSHr
+1r3tlRSySD+mrY9T1siPKIP3udZzN7eWfTbp41ywmeTNQ+p6za3OAFCigHnz
+bKsKGF+XXGlqC+n7HFk2yrGtJDfWbkbkzaPrcyF/BeZN0+8Q+yEBAGLkTVFE
+X6dtn07Zx3NEGd2Geqz92nGs3fdrhsRKypt12UT6LPFdb/ImAEQQ+TtiUzuo
+TIttXF325BxR5DontdeIsXbOVUcSddlbPks2qevWU2/yJgBEkKhPYqMy7e+0
+9XHKvp2OZfAcziH0WPuhJ28efD4nMERdHtbuDL83Xn8HAtWdvAkAESQeA1vX
+rlRGa9lt+3KOHFOX6/PaZqvTvvBd/Z1Xvp8T6FJZ9kGSPs/UdRtQd/ImAESQ
+0ZyrtTqtLdqr8fnzoO9/GHn/F/2YpjaRszBHlI0K0FZ6nP3akjdlzuc6xPMC
+bR19m9mPpev6kzcBIIKM8qaJzEfcqFMf6M7gUv/72nBf+dmo3GoaUx95xuXW
+8Xqd6DF20/lEWa8JxjAlrBeqy43lM+SQum4D60/eBIAIMs+bU8m6eOfM+cHV
+h8Y+zhElSjuuzOcVXcZ4boSTe96sy9by+VFE36a+BvImAEQw87wpJHc5Fdte
+nCNKtHaUtemt9UQyrv4w1vPDv5zzZk/WPKSun8N1kDcBIIIF5E3hVErMm2ey
+Xqixb+c+9vPDn1zzZk/WlLmc69R1dLgW8iYAREDevF9KzptC7xd/Pqdok6IO
+mC7HvFnZ16KfbVO3m+P1kDcBIIIF5M2Nciyl580zvXfSLePqZcopb1an84Nu
+e7LmPnWbjbgu8iYARLCAvHmtHEtp64W66L2TyJsFyiFv1uXSksmKz5r6+sib
+ABDBAvKm8/p0Ob+y3SYj90Ni73WMNiZv6ny40znK1B951P92XZ3mYUq/5YW+
+74X+b/n5Xt+2L2cWmzX1NZM3ASCCmedN6ddzKnd3fzR+p+a03zuWYWje1BnR
+tg9maLvU7TQFeRMA4pjjd0jDRjkWObfS1Ca5nGeJ5ejLm7ovc2gfpG/yvJvU
+bTQVeRMA4ph53pTrcCq2uZtyzuWIkvr6MUN1WVtyUgyy39GuNos5weRNAIhj
+5nlzrxzLm28+utceMp9zRDkkvnbMUHWaW2k7rzxGzlynbgPP7UneBIAIZp43
+D8qhSB+mqT0++uRTl4c5l7m0ITJRndbwuORDyVLXOieeyc+OAx/jqJ9ztmej
+kjcBIA7y5qvyqy9+bfze/cXTz10e5lw2GVw/ZmJg1rzT+fJiwOM9rE7rjMSV
+zqJX55+lvt6I7UreBIAIZp43nYptrZDkUMdyl8G1o3C29UKWnMneWyOQNwEg
+DvLmq+LxXKFDBteOwg3Mm7IP0izW7qRA3gSAOMibr8pczrHEPAzIm9vUdSwd
+eRMA4iBvviq2vCl7wDuW2wyuHYXryZvb1PWbA/ImAMQx87x5VA5F1gV5mr8p
+ZZPB9aNQ8jvYkTe3qes3F+RNAIhj5nnzoByKbX36yLOFjrXedcJAW3VaO343
+5vx0OLc1eRMAIiBvviqez05/8ZDqNJdzo8ka4r2u17HnvgdN7i/7H65V+vZE
+BNVpXyJj1iRvem9r8iYARDDzvCnX4VTefvude+0hP8ukHGvX6pQ/U7ctAqn0
+fuzkzShtTd4EgAhmnjelP9GpSF+mqU1G7vkeshzVKU+vVfp2hid1uTi/58ib
+UdqbvAkAEcw8b26UY7GtGfrWt7/j+lAxy16RO2ehOp0PRN6M197kTQCIYOZ5
+UziXN9985HOdesyyr7H3d8Ga+Ye8Gbe9yZsAEM4C8uZBORbbPpzvPn7P9aFS
+FFmjtFXp2x0jWH4fb1LXa67ImwAQxwLypvMcTlmnbuvj/OiTT10fLlWRjEJf
+Z0Hqsl7A72NWyJsAEMcCvt/WakSx9XGKkftxpihHxR6gxajLxvKe26Su21yR
+NwEgjgXkTSHnSzoV6eM07Y1UYOZkfL0Q5M0kbU7eBIAIFpI3t2pE+c1vv7Lm
+TSF9oAUVaYPUrwM6tPMm64WitDl5EwAiWEjelHmM0s/nXH704590Zk7ZJ+n3
+X/9hzEOnKFuV/rWABXkzSZuTNwEggoXkTSHXNKrY9oA/k7VF0tcpY/AFlK1K
+/1rAgLyZpM3JmwAQwYLy5ug+Til9mfNMbidzO7uyp/yb7OUpfaeSU9vk/oH3
++mQNUYaq1vp08maUNidvAkAEC8qbQq5rdOlas27r95Tx9ibbPktd4/WSSz33
+nUruZq+kDJE3o7c3eRMAIlhY3hRHNaHIeZeumdEX6Tv1OFf0oNK/FmipOF8o
+WXuTNwEgnAXmzY2aWKSv8YOrD5NkznPu9NTfKXvhp3490FBxfnrs9iZvAkAE
+C8yb4lp5KDLHUsa7U2RO6WOVvtaJRcbV1yr96wGtLhfkzajtTd4EgAgWmjdl
+7qLzHvC2ImPccs5l1/7woXg4X5OzuTNTlzvyZrS2Jm8CQAQLzZtirSasV7cV
+yZ6yvlzWFrXXCp2d16DLfvLtcl67Lrd59/F7g8fXJ5aNSv96QDtnIPJmvLYm
+bwJAWAvOm0L2Bcq6SH4dshfTxMx5UOlfC2jy+2d6jVPXa47ImwAQx8Lzptiq
+Aorkzr65ohMzJ3tyZsKWN2vr1HWbG/ImAMRB3nxhqwopfedryjj9yLJX6V8H
+qBe/kxvL67tJXbe5IW8CQBzkzZc2KsB8zhClaw9Q+fmEPTrZAz4DddmSN6O1
+NXkTACIgb75GxpSPqoAimdPWxynj7iPLVqV/DRaP+ZtR25q8CQARkDfvkT4+
+2SMo+yJj57bMOfL8dfZGykCl93xnfXqUtiZvAkAE5E0rOXsn+/F12zlHE/o4
+U7f74tXllrwZra3JmwAQAXmzk/R17lXGRfbrtM3lNO3vOaBsVPp2X6y6PDy/
+fuTNKO1N3gSACMibg2zUaY/KLIvsDW96HUeePcRrn1DVWCtE3ozS3uRNAIiA
+vOlkrU79nVmNs0sfp+l1lPM1R5SDSt/Oi3UeSydvRmtv8iYAREDeHEXG2bcq
+o3VFtjOIRuyNdFTp23eRqta+m+TNKG1O3gSACMibXmzUaRz6oNz2Uzrq++y0
+vRrZd2rbH2nk/u+p23OR6nIkb0Zvc/ImAERA3gxmrU451KTr7Ei5361yLLYx
+dZnbOaKsPVw/HFR6DyTyZvR2J28CQATkzSzJeL1zP6dpnfrIfZE2Ca99cSrL
+eULkzShtT94EgAjIm9mS18CpSLYkb5alLhe1O/JmsvYnbwJABOTNbG2UYyFv
+lqUul7asqfE6hH8NyJsAEAF5M1uXyrGQN8tRWc5I53cw+utA3gSACPiuy9a1
+cizkzfxVpz2Pbnuy5j51PZeCvAkAcZA3s+W8Rt20XkjOVx9RNomvPTvV6ZzJ
+zdmI+24t2Yask/Z1JW8CQATkzSytlWORfd1NryX7Ibmry7p2VbupWntiGkhf
+5V6Pj28arvTPhmRMY78m64WivNbkTQCIgLyZJee5m7Kvu+m1lH3gR5TU15+E
+7oPsG+sOZdeuD3kzymtO3gSACMibWZL2dyoybm56LTnPsp/OmX39mKHI825M
+9SJvRnntyZsAEAF5M0sH5VhMczffffye68NIuUl87dFUp70vTXkjBtkHaVd7
+aKsfeTPKe4C8CQARkDezdFQO5Te//cqYaT765FOXhzmXRbz2uk+za+/LkP2Z
+V10584y8GeV9QN4EgAjIm1lyKra5m7/64teuDyVlk8H1B1UZzirvcKtvL32R
+sj/7RmdV+e991T/f805nGrn9hUs9yZtR3gvkTQCIgLyZJacia9BNr+Pd3R9d
+H+oug2sPSmfEoX2Qa4fHXVevr0/fTK0reTPK+4G8CQARkDezI31gTuW73/u+
+MTeNKLOeuzmgX1P6Irep63lG3ozyniBvAkAE5M3sbJRj8Xiu0Gxfdz0G3pU1
+pd+zd05lTOTNKO8L8iYAREDezM5GORaPefMy8bUHoce6u9YGbVPX0YS8GeW9
+Qd4EgAjIm9nZKMdi2nvz7bffcX0YKdeJrz0IS6bIOmsK8may98Yhdb0AYG7I
+m1lyKrb1QiOKrBdaJ752r6rTmnJb1rxKXT8kf3+QNwEgAvJmlpyKLW/Kvpwj
+yq3qzpwyx3FjkdX8R1HZzw2a9dooDH5/kDcBIALyZpakn3FwkX02Ta/jj378
+E5eHaRZ5/r06rR8Sks1uHe5/q+8j992odO/tjeX9LXM5s8vGSPIeIW8CWIzV
+Nx6sUz03eTNLB+VQZJ9N0+so8zozKpI/typiH6j0YTKOji7kTQBLUWfNi9ou
+1fOTN7O0V45Fzko3vZa///oPrg8Vupz7Ttcq7Pv6oa1vM+Tz+sR6ofDImwCW
+os6aV7Vkc8nIm1mS/jenImPnptdS9oLPuBxUoPH2yr5OqJg1+OTN8ErOmynH
+xQCUp/7M2NeS9bmQN7PkfMaQ9GNaXssc+zjbZa8893dW9rOEnM4wT4m8GV6p
+ebP+ztjUtqnrAaAc9WfGsaZS/a1K3syW05ohKbZzLUfu/R67yPV6m1dpyRHF
+jKUL8mZ4BefNnfRVpK4HgDLUnxcPddZUqf5WJW9ma68ci22dejVtrXrsclAe
+1hRV5vOEDlMfNybyZngF582b2m3qegAogx4TOefNJPPKyJvZkrMlnYutj1P8
+9Gc/H/OQKcpRneYULPp9Td4Mr+C8eSffG6nrAaAMekzknDeT/K06h+/lGXMe
+U5e9kd5889EcMqdc++jz3OfwviZvhldi3pS5V43vjU3q+gDIX/1ZcWh8bqgU
+dZjD9/KMSZ+3c/nF08+tebOwsXUpW7XQ9zV5M7xC8+a28b2xS10fAPk7j4mk
+/Ft1Dt/LM7ZWI8tHn3zamTllDVEB69bPZasW+L4mb4ZXaN68bnxncC4rgE56
+n3fVsotdjzl8L8/cXo0sXXM5z+Q2heTOjZr+vt67PEZq5M3wCs2bt43vjKL2
+XAAQX2tMJNnfquTN7K3VhDIkcwo5n0jG2WWNu6lIJpVx+j/9sz9/8ZjSP9ok
+Z2fKv8n80ED5Vb5XB68hqsttaTkC8RWaN9vfG+vUdQJgt3rw4HHtSe1p7cvo
+z3/a5739uRH9b1XyZhH2akLpG1sP4e2333nxvJ6zp6ypG7RXUmU/Oz3a+e3I
+X2l5s7WnSdK99FJ/hwK5qX8PHunfiTNl8CR6vV4fE0n2t+ocxh0XQDKS81r1
+ZpG+ya516yFJ/6et33REGfTerMuVpT6j17xjfgrMmzvDd0bQvfRy/Q4FcqF/
+R0y/FybfjFq31/d5b4v2fViXC8t38hepXz/c43ymervIXklDx9dDkDF3T/2d
+vb8jHe/tfd99sRwF5s0bw3dGkL30cv4OBXJW/z68Zfk9STGWbhoTib7ve0cf
+0F+mfr1gJPN7JxfJfKlyp/SxSl/rxHJUA8bV63I01OHYd79csF4ovALz5tH0
+vRHluTP6DgVyp+eZtH9XPo5eD/PczbNjrHpU9jlugnlu+ZHXRN4fXorkTlkj
+JOPdrrmxvV7Idaxe5nZOLDvV//7el/zeJm+GV1LebO3z3raJUodMvkOB3Mnf
+YYbflbei1uE0lt7edzPJmHplPmP6bJv69YKRrNGeNJfTVmSOpeRPWWcuzmvO
+z6Rfsms8XP5N1qfL/YZkTuljnVCkDdaq+/29tTz3put+uSBvhldY3rzs+M7Y
+RalDBt+hQO7q34k3DL8nz6PXw7wPUvR9keQ7tycP7FO/ZrDaqsyLzBWVjNrX
+7zkxc3a+Rzve45uu++WCvBleYXmza1ws+HnIuXyHArnTeze0f1d+GL0e9nXp
+Udep12XXkzePqV8zdNqqAor0efaN10suHVmkj9M6Nl6XteU5d7b75IS8GV4p
+ebNnjWmU74xcvkOB3MkcE8PvyuOodTCfKZRkfKQy74fdtk79uqHTVhVSZJy+
+6702Yb8kWbff9T4nb6Lr/VFK3rwa8J0Rel+k5N+hQAmk3789DiDjA1Hr0D0e
+Em3dUF0eDsiaovO7HFnYqkDzOX0Xmdtpe6/J/vAyBj+iWH9POt7nO9t9ckLe
+DK+gvGlcl94S9LyQHL5DgdzJ3mCGv8s+i1qHYeuEoqwbqsvlwLwZ/XxNjCJr
+iI6qgNKVOSesWTeec1kxfxM9Ssibq+7989q2QeqQwXcoUIKV+UyEqOchDFwn
+FGXdUF2uB+bN6OdrYjSZx+hlf87QReZr2t5zI/eDN44jVqxPXyT9d8ZQpnlF
+tw73N/6t45PjuNghSB0y+A4FSmDZwyH2WPrQdUJt3vcKrMz7YNsE/zyFV9In
+nv34+ruP3zO+30auVzeuze34u4r9N2fMkiFD2Ye8loHrhIKvG8rhOxRxGN5P
+/F0xtO3MezhEPQ9h5bZOqM3rHMrKvmbXZpf6NYQzyVN7lXH5zW+/Mr7fZP+k
+kfM472VIy99Vx/btckXeHKfj74wQtiGvZTVsnVDQdUM5fIciHvLmhLYz7+EQ
+eyz9esBnhG3M5OizLpV9jNHmkPo1xGhrlXHutJ2pKXM8R5SNev19vknRH4X0
+quHz031Yh7yW1bB1QkHXDeXwHYp4yJsT2u7Bg88MvyvfbN3mfcNtujjtOba6
+v07I9Bkic8LlvLKD6d98tUdlP+OvSxHjj7Baq9Mcx6zG2WUPJNP7Tc4nGlF2
+atj7fKvSvAaIpBq+/8ZUx5DXsXJbJ9S29VaPDL5Dc7E6nSH/RHu2Mpzlqdui
+3WbP9X0epb6GAe+7JHlzDm27ur+Hw7Oe2z823Efp63/iOmdldX+d0G5lnpOz
+adznspVR977ao+o+w9ImyvmaiEJey73KZD277IPUfr/JmPqIItd0fo+vLe/j
+O/52WobKvO7ct7D7XQ5bJ/RLy88P3uqR+Ds0lUb2Me07eu8sT52Xng3I2u+n
+vrae913wvDnHtl2Z93C4l5kN92vPjR7d3o3+Svnfi8bPO/swdSZtjsNP/p6s
+y0WOn6tIZq1O+3fK63tQwzKo3E7Wwe/UaQx7oyb0ncoeSKb3nMzvdCxSr/P7
+3JY19ipdWyOiqv/8NB+C/R1u6ZMw7ae30UxjZuvJ9cjgOzQ26ScbkGte9Ks1
+7mNav98l233yQ+bNObetJTu/1XOf5u+X/I32zdHPfxofvzONbQwdM1+d1hpJ
+Vp28bqguVyM/V4OfzYssrR1vK+8Tp/KLp58b33Mjzhs6Sj163uMu15Mc64XG
+q+zzd30K1lduGBe7HjAutmtl0sn9BKm/Q3OwMs8neDknQP5X//eXzf41na1s
+9812r/yY4+lzalvD31jPe24v1/CscX3B5gMMzZs+dfT7DLGO/fqhONJ/71Rk
+v03T+23MmepVd//9PoP2cULenKYaN3coi7/BV6/2z3MdF2uuAZi8bijn79BY
+Vqf1+ab5AY8bfW/WTFb/21NLLspyXD1y3pxF267MezhY5yjr35Pz71bwcxMS
+5c0pn6/bmK8fiuW857zHvGnLF0XO2yRvTlOXm4B5cxeq3npM6840puUwLnap
+x9i3o+uR+XdoTKv7cwfPa1SG9Pea1vdn20Yx8+Zc2nZlHvM3juuvTv3/52vu
+nZsS6DXdhHy+avr40j7m64di7ZRj8Zg3bYpc70benKYaP39oiE2oeutxc+Pf
+Ry7fG12PM6gemX+HxmLJ3c+62mPA/V/0/6a+toHvsdD9m8W37co8tn9vTH91
+Wvd07s+N1gebIG9O3QP5GPP1Q7H2yrEEzpv7DNpkFPLmNJX72RaDpbqmmN8b
+uX+HRmtzex/a4D2dDH14L3JV6msb+B4LmTdn0bar+3MC7vWvtq61s982wmu6
+Cfl8lZ8z3jjbEn2OyqHIWUIB8+Yhg/YYjbw5XeV2du9QN6muJ3LezPo7NFqb
+m9dMOa1JySETTXiPhcybxbetJTM/ad3mfJ1S1+jr52J+blT+9j/2erYmZmet
+HIttz/cxZwy1HkP+vipuzmYTeXO6atz5Ftl+Dsb63ijhOzRam5vPjnfKYKkz
+0cT3WMi8WXzbWjLzG/rfZLz/vKYp2fq5yHnT1/luyf6uRxHke9ip/OjHPzG+
+11z3Q/rif/lfX3uflp41BXlzusr9/N6sx3ki5s3sv0OjtLd9fqDbuS8ZzDGc
+8B4Lkjfn0raGzPyl/nlzTrN4mtFrugn1XB7/xvd6Li9mZ68ci5xdaXqvuZZG
+3txl0A5ekDenq/yfbZn0MzBi3gz6HVrX+5HhWmLrzVEr85opp7XPHbkq2Jme
+JbRvqW3ben7TeQhyXbZ5qUvo3zx6/LwNVk+U7a/++q+/Vo7F9B579/F7rg+j
+/slf/Ohubu9N8qYflZ+562f7lNcS43sjxndoCXlIt4VpzZTT+TWr03oqU7uF
+G6cuoH1LbdvW85sys21P0Gj1MrwfouTNyv8azV2K9kK+9HvsoByLbe7mmLVC
+6nQuZ/K2QH6q6XtzNG1TXkukvBn8O7SEPKTbor1mqnO/e4f2FMHmvJbQvqW2
+bev5bWccyRjA+6afx6iX4f0QK2/63oOOsy3xUnWaH3f3+D//L5RrkVxpeo+N
+ODtdCnsnwKjyN39drFNeS6S8Gfw7tJA8ZOrPdR6ntWT1oPMLc2/fktu28dy2
+sfzPGrcxrYeKfr57xLwZ4oyN4tdiwMt76+XfMt/+E9l2z62Y5m6++eYj58ep
+C/OK0cnT594x9XWE/t4o6Ts0eFub10y5jvfa2jPbfUrH9AMvsW0tmbm9h8Pk
+OaqBXtNNiOepwpwhXOR5LfD6vnptjPLqv/qHyrV869vfuffekp+NKPuUbYH8
+1eXg4XPvOvV1RMibxXyHBm9rx7PjLY9haivpJ3Zag534PRYibxbftpbM/Ebr
+Nl7W4Ad4TTe+n6MuFwGyZhafu0inMuwx4+s8oO9+7/vOj6NmOneT9UJe37O7
+OfydHSFvFvMdGrSdzWumxoz3mvqCs+3btLzHvObNubTt6v78U+M4/so8PyXq
+uqFIedPHZ2yW40pIoy4b03vCV94cuVZolnM3yZte37c+/vZOPo8oQt4s5js0
+aDs7nB3f8RimtdNZ7rnZ8x7znTeLb1tLZv7Yoa5xz9uMkzcPgfKmWMdsL6RX
+nfYyPGaYN5PngBDIm35V0+YWZbFOMuT3RmnfoUHbeeDZ8T2P0V7LIlk++73x
+I+TN4tvWNTOvzGcgRTv/NVLeDJU1xTZWWyEPVce+Mv/j//Q/y9lTTsX0OIyn
+v0Le9KuatnZyl7r+InDeLOo7NFgbm+cLuO5DblrHn/U4esd7zFvenEvbrsxj
++dbMbKmz9br133Pe5qeEzpuV3z1ATPYxX1+kVXXv4yrvBZnb5lQ8rhc6qhn2
+cZI3vb+HtxM+7zap6y8C582ivkODtfGANVM993/DkMWN/cQ5Cpw3i29bS2bu
+Hctf3Z+rokx9so1r9Nfu4fOmzz2OTdiDZkEq+5mo53HGjXIsvs6y1EXqsbbU
+f63rJ+SM95122fh5dnmVvOn9Pdz1N1On1HU/C/W9UeJ3aLA2Nq+ZGrx/uOH+
+Uc5WDPge85k3i29bS2buzbwr8/jBvfvp23mdmxIhb/o8w81mlus0cO+91PU9
+fX4PyP86Fc/7vZ+LjOvv1GmPpNsR9z/UZP8FyaJJMyh5M8h7+Tjic+4mdb3P
+AubN4r5Dg7XxhHNvDO1YVNa0vMd85s3i23Y18hxO/TfXvetv/n22ejWH2uu8
+lJB5szqt6widNcVVitcbcVX2fQ72rds6Fdt5lh998qnrQ4UsklnlfR49e5I3
+g7yX9yV/zgXMm8V9hwZpX/OaqUHzCw33LWYMvec95iVvzqVtDe/3znknrfva
+zop9Q1/jsxDXFjhvbiPlzUOq1xzxdPQJrVu3de5PND3uyDOGYpS9Oo29R2l3
+8maQ9/KYee3ZjOMEzJvFfYcGaV/ztQw5Z/2tVhsWsTZo4HvMV94svm0tmXnw
+Pkwr8/zTUY818TXd+HrskX/Dj5LqdUcclX0s3TTGuFeOxTaH86c/+7nrQ8Us
+BxUhd5I3g7yfXcd+spqnHuJ7o9Tv0CDta14z1XfOejNHSc4ePB+x53Ef6cdu
+/y3wxNdzDHyP+cqb2bRtq33vzQexPc/KPP/UqX0sv29Kt0+QPZ0C501bf1QI
+3uqN/FT2vvKt4fbyM6fyi6efW/s47+7+6Ppwscte2dcoTUbeDPaedpnbvk9d
+36ZAebPI71DvbWs/N+leexiyoFyntzPkLTlo0ms04T02+XlyaluH9r33nJbM
+7JyBV6c+22e2Nojwmm58PG4V7gxLm13IdkJalX3u5tpwe/mZc3n77XeM763M
+5nHaivR/ZTO/D4Pe0y57d2xT17cpUN4s8jvUe9ta9urR2vuLn/vbvPc11o/3
+wwFZKFgbB8qbWbStrsvHprbTz9fupy/ib6URr+kmRT3IkOhSmc+o6hpjPCrH
+ImPntu/7zMfVm0XmF2S3pxKM7+mNQ95cp65vUy7fG3O0Mq+ZCjZubanDeU/T
+e3tH6cxm+tsg+0yUQ9s22vCZ7blX9+eGFLe/gPG6MvncIG+iiyVvHjruI3sJ
+ORfT3u/ncfWJ+yPFLEc107Pc52Zg1jymrmdbLt8bc7SasFePxzo805mya5/9
+dn9g9muxcmjbRvt25txWX2wRe3j1XncmnxvkTXQZkTfXakSRTGn73pfMKXsn
+FVKk75fMmblq2NmW16nr2ZbL98bcrCbs1eOxDud12J39lav7e1BlvR4rh7Zt
+1GPIevg3yJthkDfRZUTeFPLvzuVHP/5J5/e//HtBZasmtj3rhYK+r68G5M3L
+1PVsy+V7Y25WHtZMearDoOds1TfrTJRD246ocxFZfvD1ZPK5Qd5El5F50/ks
+9XP57ve+35kBZNz991//YezDxy6T8gp5M+j7esi6yuzm4+byvTE3lnmRsedu
+PukaR2/d9v1SMlEObetY32Z/bLH7qL52TZl8bpA30cWSN48D7iu3GVXeffxe
+79w6yaUFzOucNLZO3gz+3r7reI8dUtfPJJfvjTlZmffqSTK/0KHOzbwZfWx6
+5m37JPd2db6mTD43yJvoUtn3junr+xndxyn7btr2gW+TbCr7Jsk+nu38Kf8t
+8z7lnHZ5POkbbWZZ+f/lZ5JdZaw+UH6VzDmqn4y8Gfy9ve94b+1S188kl++N
+OVmZ92LMOmu06pxtH1xpbavn0GZdx1HXlcnnRkmftYivY57bkLHig5pQ+sbW
+Q5C1SQH6TuWcT+e2J28Gf29vO94Lm9T1M8nle2NOVua9erJe892oc+5zN4tp
+20afcdZtOuraMvncIG+iS2Wf57YfcH8ZS55UpN9SMmDs3Cmk79Pjuvidcmx7
+8mbw9/ba8tr/Xeq62eTyvTEnK/PZ8V7Ps/Fc3+b69Gz7NktpW92naZpjmnXb
+Ol1jJp8b5E30qczz3I4D779TE4uMr6fo6zyTsXhPZ2s6zeUkb0Z5b/8bw2v+
+f6Wul00u3xtz0Rg/LWYP9VLmF+betqvTuZnt84Ta2O/dI/Im+lT2eW7rgY8h
+48mTi6xLT5U7pY9V+lonFqdxdfJmlPf2/2l4vX+Xul42uXxvzMXKvFePSl2v
+jvo+0n2GWa9JL7RtbWdrZr1306Bry+Rzg7yJPnW5tLxPhu73s1andTNeivQ1
+yjmX0u/oMtYu4+NC1g/JGqP2+qEh5L4Ty1YNbHfyZpT39m8Mr3O23+W5fG/M
+QSO7mfq1Bu1LlKDOn+k+uSz6COfUto26v9+qb9br6QddUyafG+RN9Kns89x2
+Do8zer16X5F+T5lnKWvMJQ82yc+HrP2RvkvpOx2SX+V2E8pRDWwz8maU9/Yv
+Da/xIXW9bHL53ijd6tU52rZx1Ke5zd/T/YWS4bLdu7LUtjVcQ3tdfdZt3ns9
+mXxukDcxhOV94nre31ZlXqTvVHJqX+6U/tEJRdoh+WuKF+/rA3lzOQw5YpAM
+6v1+7lmz1LbtuJ5m/+xbqesz6Voy+dwgb2KIutx6+l7eqgKK9JnKeHtX5pQx
+/ZHlqDJ4TUHeRP4a626KzjylkbVC5E2/yJsYwvP38lYVUqSv05Y3pQ90wj6d
+2Z3NvUTkTeRsdTpb8XnpeadErf7arOec9l5LJp8b5E0MUZej5+/lrSqkSD+m
+LXPKeqOR5UZl8LouHXkTuWpkzUH7VZJJvbf/eX3909R1mXwtmXxukDcxRKD3
+iexH6W3desjSlTllndLIMuqcS3h9X5M3kZ3Vq70hB62r0dl0FntF5mL1ag/4
+4nN8Lp8b5E30qfysT7eRzHVQBRTb3p8yrj5yP/it6mgb1qdHeW+TN5GVEVnz
+vB4827VEpWnMmS1+780X15PJ5wZ5E30q+znTPucgblXmfZ2SKd9++x2fa4f2
+qqNNyJtR3tvkTWRjNezMG+MeQ6nrnjvdti/PcLfNyVydzguV1yDLc95HXXsm
+nxvkTfSppp8vNJT0dcoeS9kW27i65NAR5ag62oO8GeW9Td5EFnTOMZ3jPUTW
++1nmQPcD3zs7qJk79b5TT4fOmS1FLp8b5E10qcvDatr56WOs1anvL8ti6+Mc
+uVbdOoeTvBnl/U3eRBZW5rMUh3he+vrpiG38viXTP9PZc1Y58+V1Z/K5Qd5E
+F3kvWN4jrnu9jyFZbKdO/YDZFFsf58izLjfKcv3kzSjvb/ImgFnL5XODvAmb
+jr5NcRG5PvJ8knFvVeIi8zhNbSL7w48oO2W5ZvJmlPc4eRPArOXyuUHehI30
+YVreH4fEdZN+z406ZbW9Oq1vt+XQo/73G317WeN0ocl/j1qjZDt7aESROhiv
+k7wZ5T1O3gQwa7l8bpA3YXlfbCzvDTGns3FG7QFqO3doxL5IB1vdyJvhkTcB
+zF0unxvkTRjeExcd4+iH1PULYKMcyy+efm7Mm7/64teuD2VtT/JmeORNAHOX
+y+cGeROt90NX1kwxbzOWo3IokivJm+UjbwKYu1w+N8ibaLwX+rLmnN8XB+VQ
+YuRNhEfeBDB3uXxuLDBXwPw+2HXkzKy/gz05KodC3pwH8iaAucvlc4O8uWzV
+6azKY0/WvK1Z9yWfgbVyLDHmbyI88iaAucvlc4O8WZbqtCfmRufEXcul/NuA
+x7jQt+/LmUvImuJKORbb+vTff/0H14c6ZHD9i0XeBDB38jnRkuQ7nbyZP50j
+9wPzYTMnHvT9dvr/N323Lj1rCtmb06l8cPWhsc1GlJ2tXqwXCo+8CQBxkDfz
+pPsxh/ZBhhDjvMpcOO+/+eabj+61GecLlYe8CQBxkDfzU5erqnudeEiSbzep
+2yCitXIstrmbnJ9engLz5q5lnbpOADAEeTMfdVlbvv9i5cyr1G2QwEY5lo8+
++dTYhr/57VeuDyVlbasbeTO80vImAJSKvJmH6jRHM0Wf5k1tm/r6E9opx2I6
+O/3tt99xfRgpx666kTfDI28CQBzkzfSq01rzIdlQ8uhe337TeozzunUZi7+u
+7q8POur/lny50/l2CWuB+uyUYzG9NrJ+aETZd9WNvBkeeRMA4iBvJm//IVnz
+sPA+yJD2yrGYXqORczc7X1PyZnjkTQCIg7yZtO0vB/RnXqau58wdlEOxnSv0
+05/93OVhzqWzf5m8GR55EwDiIG8ma/d11T1f84bx7igOyqF4PMfy2Fc38mZ4
+5E0AiIO8mazdbzuy5j51/RbkoBwKeXNeyJsAEAd5M0mbX5E1s3FQDkX2PDK9
+bj/68U9cHuZcLrrqRt4Mj7wJAHGQN6O398OOcfSb1PVbIDlHyamYXruR64Vu
+E1/74pE3ASAO8mb09t5Z2vzIfM0kdsqxeDzLUspB3d/zXd4Hm9qlrp/NVt+O
+981I5E0AiIO8Gb29j5Y2Zx16GnKmklMx7fcuJpaDdhx5f7mf9I/L9axV+nYt
+AnkTAOIgb0Zta9v+R4fUdVuwjXIsMnZueh1H7okUqhzVqQ90rdK3cbbImwAQ
+B3kzalvv6dvMjoxFOxXbmqEJY+rG0rFeyLVIv+dGpW/r7JA3ASAO8mbUtjat
+Ezqmrhfcx7DlvHTT786IfZGsxWPePJeDIne+hrwJAHGQN6O189rS1tep6wb3
+My1tY+o++zgD5M1zkf5O1hgp8iYAxELejNbOG8bSs7VVjuXu7o/Gdepi5F6c
+90rAvCnlTvWc374E5E0AiIO8Ga2dd5a2XqeuG9zncEqx9XEKmeM5tQTOm+ey
+Vwvu6yRvAkAc5M1o7WzMm6nrhZdkjNmpdPVxys+nZs5IeVOK7Du/Vulfg+jI
+mwAQB3kzWjuTN/O2VSPKL55+bu3jnJo5I+ZNKTK+3nm+5hyRNwEgDvJmtHYm
+b+ZPMpdz+e73vm/NnFPmc0bOm1IWlznJmwAQB3kzWjuTN/O3UyPLu4/f68yc
+sm7991//wekxE+RNKYvKnORNAIiDvBmtnY15s2K9UE5k3cyoPk6Zy9mXOYX0
+hQ7dozNR3pQibbCI9yV5EwDiIG9Ga+eNpa3ZDykvOzWyDM2c57mdkj1ljbvk
+zyY5F1N+Ln2itn3l5f7y7x998umLOaTy3J6LrCGa/bp18iYAxEHejNbOa0tb
+s997XiRjHdWE0jefMxSXvtOBZa/Svx5BkTcBIA7yZtS2Phra+pi6XrhH+pwn
+FelztO2VFJr0e3rMnbPufydvAkAc5M2obb23tPdi1mcUxHk/znaRMe5UfZ3i
+g6sPfYyzy1zO2Y6rkzcBIA7yZtS2vrS091XquuGe0WuH2kXWpcs8S9f+Ttt6
+IZfHkOf00Ne5V+lfjyDImwAQB3kzals/tLQ3czjzJP3OXouMs0v2HLKuyJY3
+z2uJXPKrrEGaWDYq/evhHXkTAOIgb0Zv71u+34qyVQGLnD/UXp8uZBx8yH5I
+cv+hfacTM+cs36PkTQCIg7wZvb35fiuP9D9HLy77b0o+lX7Pvtw5MXNuVPrX
+wit+HwEgDvJm9Pa+NrV56nqh115FLmP2e5e5ojLW3pU5J8znlDZI/Tp4Rd4E
+gDjIm9Hbe0feLFbUfs4p5wt1rYuXPtAJ69bXKv3r4A15EwDiIG9Gb+8bQ3vf
+pa4XBtuqSGXqeZYyvm7LnJJHR5ZZ7aVA3gSAOMib0dub77fybZSnvZK6io/z
+07v6OUeOq8s5l6nb3xt+HwEgDvJm9Pa+4/ttFmR/TnndghUfeVOKbe8lmec5
+sqxV+vb3grwJAHGQN6O29QXtPTtbFaiv01felDVEnvs45ZpTt7sX5E0AiIP8
+E7WtryztPeszqhdA+jq9ryXylTel2OZyjpzHuVfp29wL8iYAxEHejNrWR0t7
+z/Z86oVZq1PuDD6307XIenTT3pzysxHlqNK3tRfkTQCIg7wZrZ1tZ6ffpK4b
+vJO/H7bqtLYmm2JbOzRyTD11G3tB3gSAOMib0drZ1re5TV03BLVWpz2E5O+K
+pP2ekitN70EZax9RNip9205G3gSAOMibUdrYNm+TfTeX56Im83V36jT2frC4
+0beRrLpRpz7TSv+v/GxUdjWNqY9cp74ZeL1ZI28CQBzkzeDta1uTTjujU8d6
+Ifl3ya3OmdN01uXbb7/j+jBSdrHbIwTyJgDEQQ4K2rYPK/N+m+KYun7IW0/e
+FDvlWD765FPj3z4jyi52e4RA3gSAOMibwdp1Xbvt6NtkDyR0GpA3ZWzdqdj2
+RRpRdrHbIwTyJgDEQd4M0qYXHf2a4jp1HZG/AXlTOBXy5uvImwAQB3nTe3vu
+OnKm0n2e7LeJXgPypszhdCrkzdeRNwEgDvKmt3bcVvY9j8iacDYgb8o6dafC
+/M3XkTcBII6l5s26bKrTPkXSH7nX3zviRv9sp29jzIfVaS3Qpb5v19g5WROj
+DMibsmeSUzGtT3/38XuuDyNlF7s9QiBvAkAcS8mbOh9udZ7sy4Ztd408avp+
+yjJrrr7x4EKkbnuMMyBvOhfT+/ODqw/HPNQmRhuERt4EgDjmnjd1ztwN7IMM
+IcnaIJ017zQyZ4EG7L/pVH7x9HPje5TzhcibABDanPNmdRovT5UzpU9zk+K6
+G1lTafL/r1O/HnDTkze3yrHY5m7+5rdfuT7UuQ7FI28CQBxzzJtV/96XIR2r
+hGeiG7Km2Kd+TeDdTjkWmafZfr/K+ZYjym3ia/eGvAkAccwtb1anNT5j+jQP
+2pj7yn32qfozz8iai3JQjsX03v3u977v+jBSZvOeIm8CQBxzypvVaT3Q0D7I
+6658WJ32bJfH21WnNUaHhr3+ufx7FnMjyZqLc1AO5Vdf/Nr4u/DTn/3c5WHO
+ZZvB9XtB3gSAOOaSNwdmzUPqPsgQyJqLdFQOxZY35ecjymz29SJvAkAcc8ib
+ui+yrz9zlueVkzUXy6nYzhX6/dd/cH2o2czdFORNAIij9LxZnfY76ppzKd8n
+s+mPaSJrzlvP+nSn4vEcy1m9v8ibABDHDPJm1/7t+9T1C4WsOX+Z5s2bVO0R
+AnkTAOIoOW9Wp7XoZE2y5iz15M075VBkXZCn+ZvyvLMZLyBvAkAchefNo6X+
+s5pj1kTWXI6evHlQDsW2XkjOHBpRZtPHSd4EgDhKzZt1ubTUXeZyrlPXLwSy
+5rL4zJuyLsj0+yJnDo0s8vzNvcDW6nTG5U47WOz1v1+pDM7EJG8CQBwF503T
+90QRdR+DrLk8PXnzWjkWOUuo/fsiZw5lUGQ8Qq4n+h4S5E0AiKPEzFadzqs0
+1fuYum4hkDWXqSdv7pRj+eDqQ2Mf54g9kUIWmR8q7+0o5yiQNwEgjkLz5lWJ
+9R6DrLlcPXlzoxyLbc3QyDMtY5SDCnyWEXkTAOIoMbdV9j2Q1qnr5hNZc9l6
+8qasEXcqd3d/NObNDPs420XG2zcqQBuTNwEgjkLzpml/91mtSSdroidvCnnP
+OxXpyzT9zstYewFF1sWvlcc2Jm8CQByF5k1Tna9T18sXsiYGcl4zZNsXSYzc
+Gyl2kfmdW+WpDcmbABBHaXmzsu/xvk1dNx/ImnAga2qci23dkKxf/81vvxrz
+kCnKXnnYd568CQBxzChvblLXbSqyJkY4KsciczVNeyMVmDllPsGkzEneBIA4
+yJt5IGtipJ0aUX70459Yx9ULy5wyvj567yTyJgDEQd5Mj6wJkwHrhcRajSy2
+cfVz5pRMWkgZnTnJmwAQB3kzLbImbAbmTbFXI4rsjyTnC9kyp/jWt7/zYo1R
+AWVU5iRvAkAcBebNdWl1tiFrootD3lyrkWVI5jznTtkvXm4/9HElp7YFLs7z
+OcmbABBHidnNUueb1PVyQdZEH4e8KfZqZBmaOZvZ86NPPlV/+md//hr5mfxb
+3/1lrF7G8mW8PsA+8wfl0MbkTQCIo9C8eWuo813qeg1F1sQQjnlzrU5jyqOK
+ZE7bXvChnftOPZadGtjG5E0AiKPQvHltqffodaqxkDUxlGPeFDs1scie77a9
+kkJ7++13fO45v1ED2pi8CQBxFJo3L0usN1kTLkbkTeF8xmW7SF+njI+nyp3S
+3zl0nmhHOaoBbUzeBIA4SsxtHfU+pK6XDVkTrkbmzbWaMK7eLOfcKf2OsTOn
+ZF0P64t2qqeNyZsAEEfBedP0PZHlHE6yJsYYmTfFpfJcZP93Wd8j63y68qf8
+m9xGcqqMjTfXpsscTVlT5LI2aeK8Tvk86FyvTt4EgDgKzps7U91T16uNrImx
+JuRNsVMZF1mXLvl1SN/pxMx5pTraibwJAHEUnDevLHVfp67bGVkTU0zMm2Kv
+CiiSO/vmik7InEfV0UbkTQCIo+C8ubHUfZO6boKsiUzsVQFF+ju79u6ceKb7
+Wlnah7wJAHGQN/0jayIze1VI6doDVOZ9jiwyn9XYNuRNAIij4LxpG09Pugcn
+WROZknmMRZSuzCnrkEaUnbK0C3kTAOIoOG/uTHUP8Vx1XjxIjhxwO7ImcrZR
+nvZKCl26MueIMzB3ytIm5E0AiKPgvGn6nvC+H5LOkJIbO9e5kjXhm4f1Qiay
+P9BBZV5k70/b2nXJoo5lpyztQd4EgDgKzpt3Mb4nJDP2ZUeyJkIIlDfPZE5j
+1n2dsmenrY/T8fyhnbK0A3kTAOIoMW9Wkc6zrDPjw0Z+PFpuQ9ZEEIHzppC+
+zp3KOHfaxtVlDyWHYh2bIG8CQByF5s29pd4bn89T58ZdK0euW/9O1kQwEfLm
+Wba5U/ZAMv2uO65V3yjLtZM3ASCO0vJmXdaWOoeYu3lsZclt49/ImggqYt5s
+2tZuVEbFdv7lwDH1zs8F8iYAxFFg3ryx1Pna5/NItmxlyZd5kqyJGBLlzTPp
+85Q5nvJ7davGF7nvQU3oO5Wxc9PvvMzvHFD2quM6yZsAEEdJebNj3qZY+3wu
+vQdSO28eyZqIJXHeNNmoUwbd9bhU5jFsmUfpnDttY+oD9+I01eMl8iYAxFFK
+3tTj6KY16WLv87kaeyCZ/D9kTcSQYd70YaNGFNPv/YB9kQ599SFvAkAcJeTN
+ujys3drmbQbo29x35E2yJqKYad4UMkbvVExnq8vPekrvGQ3kTQCII/e82ZM1
+Rec+7K5kDfrArPnPZb+k1O2D+Zpx3pTfG6c5oSPy5m5IXcibABBHznmzLhcd
+Y+hBvhcMeyD1ua1d6/VF69RtBhRC+h4Hz+V0zJv7ofUgbwJAHDnmTd2nuevI
+mUr3eXrvXzSsBXJ11OPxl6lfWyBzgzOnQ97cu9SBvAkAceSUNxs5s6tP8zxn
+s3dulivLHkhjMyd5E+g36Dz3N998dO9z4IOrD9s327k+P3kTAOKYkjer05rx
+rc6IB4sb/e+yl9Ha8Bib2lVl31czStYUemx8Ss68qW1Sv6ZAgbbK0tcp+7qb
+Pgsa+yEd1IC1QSbkTQCIwzVv6j7Iq6p7DU8oQcbQRZ0Tr0ZmzDs9f3Od+rXE
+vMx4vVCXrWr1d/7i6efGz4M/+2//yS9Vz/6afcibABDH0Lyp+zL3CTLmmdfz
+g5r0mnTXeZtHPf7OGnUEsdC8eSa/V5va1X+5/Zbtb9v11OchbwJAHEPyZjVs
+TmUo8n2wCdkGK/NZQjYH5mYihoXnzZcsnz1HT49N3gSACLrypu7TTDFufs6Z
+29DXL9lx4Jj5njFzxETefPEZdBFyvIO8CQBx2PJmdVrH49KneVeZ1wu5ZEzJ
+tteV5/OCbGQsvGcc/U7P6/S/79KDB49rT2pPa1+mfh8gP+TNF59PW8tnhZcx
+BvImAMRh+Swfulb8oL8P1j3PcaHz685A7r9Jce2r7nMrb3zkzDpLPtK58kwZ
+PEn9PkB+yJsvPjt2ls8eL38DkjcBIA7H/sdmHl2nrvsUsm9RyL0zdc40ZUuT
+b6ZuD+SHvPni88n0t++dx8cnbwJABI4585iqL9InPY5+NGTN61DrzetM+ZYl
+azKWDiPyZvg8SN4EgDgcsubB1xhWaqv7Z6TfxtinXc/VbOfNj1O3B/JE3iRv
+AsBcDMya+9T19KXOlRetrLmL9twPHnxpyJtvpW4T5Im8Sd4EgLkYMlczdR19
+apxZKftoBjkX0/i8Dx68Yciaz1O3B/JF3mT+JgDMxYD5mrMYQxd6HP3FHkfR
+n/u0/1E7b/4wdZsAOatYnw4As9CTN6P1/4Wmz6xMtme7zNM05M3HqdsFyFnF
+/psAMAtLmLOZAxk7b4+lyxh76noBOavs5wvtPT0+eRMAIujIm+vUdZsL2V/T
+0Lf5Wep6ASWozOeceZnDSd4EgPCq05k/pqx5m7puc2I5V4gzhdCJ9UIn0pdp
++Zzaenhs8iYABNYxF/+fpa7bnFj2QWIsHZ3ImycdfxcfPTw2eRMAArN81opd
+6rrNhWUfJM4UQi/y5ivVaa8M759V5E0ACC/UZzheseyDxFg6epE3X6ns69Qn
+7aNB3gSA8Do+v3ep6zYXsi7IkDe/2brN+5az1W2K3bdTnyP/RHtmOs9Tt0e7
+3Z7r+zxKfQ2xkDdf1/H3sawnGrUfJ3kTAMIjb4Zn2AfpWc/tHxvuo3Q2e1LS
+vM9GrjTtPXrvPE+dRZ8NyNvvp762GMibr+uYx/lijeOYzEneBIDwyJthWfZB
+utefZ7hfe31RUePv0gc5sJ/2eeM+pjX8XWa/Vz558766XHd8bh1dx9bJmwAQ
+HnkzLEu/3ls992lm1OftsfcSWeYUvJwXIP+r//vLZt+lzq22+85+v3zyppnu
+y7R9dsnY+uDzasmbABAeeTMsQz/l857bP2qMJ385l7mKq9MafdMcgceNfk1r
+H279b0+XOK5O3jSTcfOOuZwvM6OMvw94LPImAATW8Zm9S1230q3M+yBZ1/no
+rHnOp7M7e8gwL/N5I2v29fma1vjPsp2ayJt21emcS9O5Q6Z5nVeV5bw08iYA
+hGf5rCVvemCZj2icc6jH0M95rHd+Z2ks2ftZV5sMuP+LPuDU14Z0dD9n19i6
+aaxdPvP21emsi50lsx5SXxsAzEldPrZ8Lv93qetWOsu8w3vzDVenNdnnseZZ
+jg939E8O3tfJ0D/au9Yf86cz594hcw7xx9TXBQBzoT+n/w/L5+0xdf1KZ5iv
+eG/st5XDOseUS7Yyr5tyWu9D3kSXulx2zA8aY5f6mgBgDnrGof5F6vqVzNKf
+96R1m3MGkxxV/Br0nvYwnR/vtMcTeRN99N/QtjHyMbaprwkAStYz/vRvU9ev
+dJb+vDf0v8lcxPN669msQe9oC9vcS6e9jJY4f5P1QuPo3Lnt+Zt6qMvU1wMA
+JerJmn9T+w9T17F0hv68L/XPm+uCxNPRz/GNB49qKrHePkrLuimndeUdmbXY
+cz2HIG9Op7Pnpe73PFT310jKGPyzjs9E6SsdfT47ACxRddoXhM/VgFbmM4We
+dKyZGdW/WVDeNK2bcjobSK+pMrVdUecuuSJvxqP7Q/lsBICJ+DyNw9KfZ9uv
+fHRmKihvttdNde5579Cmau7zXsmbcfWM/Ug/qPP57ACwJHo8iTlKEVj6887r
+gt73tealhLxp6dN1HgO35PVZz90U5M34ejLnLZkTAMyq/nM4tqnrOBcd8ww/
+a9zGtFbbaXy5FCvzuinXsXRbm85yr9Im8mYahjmer2XO1PUDgNwMyJpXqes4
+J5b+vPY+SJPXz5TCkK19jaVLX7HT+vYSkTfTqPrPLdqnriMA5EJ/Zh75zIzH
+0p/3Rus2XvYHyt3KvG5qzFi6qT949n2bgryZDpkTAPrxWZmGYW2McY6hZY7n
+rNZaW/olfaxLn/28zTPyZlqMDwFAN+YfxWfpz/vYcltTjprVWTmWTO26x3t7
+nZDk+Vnvj99E3kyP+e8AYMb6yjRc+/NW5vMZZ3GGumXOgOse76a1/IsYRz8j
+b+ahLpuOz1T29wCwOD1Z80jWDMcyz9Dan2fJU9ZMpvtEi5jjuRqwbqrn/m8Y
+8rixrxiIoWL/YgB4oS7/iM/DNCz9eb3zDA3zPZVpvLiRv4qY47kyr5savDe7
+4f6zPrcSZSBzAli6uvxTPgfTsfTn9fbHWcbg791P366Y+Z2GHD14HyRDW5I1
+kY0QY0h6fed16msDABs9l71rHTpziyKwrI3pXYut+y3vZbNmH+fq1TqkIuZ2
+rszrpgbN3TTclzF0ZMfnHPnWeqRN6msDgLa67HpyJmsnI7GMiw+aa2np43yq
+s+g39Th6MbnLcj1Dzll/q9WOk9cGSW7X9Wm/Pk9cxvdTYb1QvioPe4BU99e+
+H1JfFwCcDezTFP9N6rougaU/b/AekZa1McXuN7kyr5vqO2e9mVGf+siCltw7
+eg1TCuTNfFUT9zjWc0FN+yxtUl8bgGXTn29D+jTFX6au71IY1rY45xhLZlU6
+uxWz3+TKfnbSvTYx9D1+OWQOwsB6/HBA1sw+c5I38zY2c1bd647YHxlAMtVp
+/7fjwKzJ38gRWfrznPvn9HjysxJyUMc1GPdB0tp7t5/7Mr2Oba9e7TN1bz2/
+rp/p9coy05M382cYE2+7at2eeVAAsqP/fr52yJnMAUIyK/O6qajzJHXOlEzZ
+tfdpO/tmOT+WvFmGAZlzq2+3H/gZfkx9TQCWY0Sf5hl7HyGJ1YR9kDw9/3nN
+UWd/5er+vgBZzpElb5aj6j+D6J87fo5vU18TgHnTfZo3I3Kmdb4QEJplDqrT
+GZYe6vDx0HkIrXm3We5tSt4sS9U9L9PVMfX1AJivulz2jMv0Wae+BiyTj3VT
+HurwpGscvXXb9+nfhG+eM+c29fUAmJeJfZr0bSI5X+umItb3/VT9sEORN8tU
+DZ+nSR8ngGjqcjWxT5O+TSRl2Qcp6tzNEXVu7s85eW/5EMibZapO64f+lj5O
+ADmQfFh1n1FB3yaKsDLvrZ5ln2Gjzue19FnO3USZqulzoujjBOCNxz5N+jaR
+nGUfpCz3GNL1ba5Pz7JvE+Wp/M7dpI8TwGh6nMVXnyZ9m8iCYR8k4eWsoED1
+fVJCHyzKofsQQmRN+jgBOKmGn0VJ3yaKofe8NJ0TmeWZPavTOZrPc12TjvJU
+/tYH0ccJYDTdp9l1xi59myiWZR8klbpeHfX9TJ9BlGUeRlkiZU36OAFYVac9
+jkL1adK3ieQafYWm/s1B+2BGru/Hur7Z7tPUxPr0fOnP91D9CDZXqa8bQF6q
+8WdR0reJIsj8TN1PaMqaSp9Rns1aHL3fZjFZU5A385UgawpZY/ow9bUDSE//
+zXsd6bNnnfp6sTyWvY96Ja7zeY7pW6nbzwV5M1+R+hRMdqmvHUBakT9/rlNf
+L1CC1elc9+elZU1B3sxfFX7OFH2cAF6o/JxFyecN4Fkjaw7amym3TEreLEMV
+dk0ofZwA5HPG91kSfNYAHui1TM+GziHV2fSHqevdRN4sS8S+TvocgIVI0KfJ
+5www0IiseV77lNVaIvJmeSq/5xTT7wAsXJVmLww+Y4Aejazpuqbpaeq6t5E3
+y1X5P7OYvgdgoRL0cfL5AnTQ56J/OWb9fE57N52RN8sWoa9zl/oaAcRTxTtf
+Ypf6WoGc6T0/x2TN5znuT0/enIe6bAP1ddIHASxMFX7PTT5XAKBQVbjxsF3q
+awMQl/4blr5NAIBR5X9PE/oigAUKlDn5PAGAmdB9nXv6IwBMUZ32/vX59+su
+9TUBAPyq/J1JR58EsFB1+RP6NgFMwXqh+dN9nT7m/+9TXwuAuDz3b+5SXw+A
+NMiby+Gpr3Od+joAxOE5a9K3CSwYeXN5qmlnYu5T1x9AeJX/M4e2qa8JQDrk
+zWXS/RZjv0vWqesPIJwBWXNfua1HPKa+JgBpkTeXbWRf5z51vQGEU3WfWXZ7
+Hhd3yJzb1NcEIC3yJqpxZ2KuU9cbgH89GfJl1mzcfkvfJoA+5E2c1eWqGr42
+4L9PXV8AfvVkTet6n57MuU19XQDSI2+iybGv8z9NXV8AfvRkRsmaFz333xj+
+Xj2mvi4AeSBvwkR/9/T1df5t33cQgPxNzZqNx2nvn7RNfW0A8kDehE11WqN6
+05M5v7KNsQHIn+6X9LbWp3q198Ux9bUByAd5E33qcqn7MgevIQCQP0N/pJe5
+l/pv1U3q6wMAlEV/f/x1x/fSIXUdAQyn52p3Zc1d6joCAJZHZ87fdXw/7VPX
+EUC/asB+7qnrCABYLv099TXfU0CZyJoAgBKEmvMFILyeNYDMxQYQBOuFMAaZ
+EyhP5Xh2EAD4Qt7EWHrdetc+KpvUdQRwUpfrjt9V69lBAOADeRNTVJ72iQYQ
+Dr+nAFIjb2Kq6nTuOt9lQIbImgByQN6ED8wLA/Kj51l3zXnZpq4jgGUgb8IX
+MieQD9b0AcgJeRM+Vd37+h1S1w9YgoqzgwBkhrwJnyr2kgaS4ncQQI7Im/BN
+f98d+b4D4pNxBH73AOSGvIkQBswdu0xdR2COmEMNAFiSnsx5k7p+wByRNQEA
+S1PZzyAibwIBVPfPEeLsIADA7FXm/aY3qesFzFV1OoPhoLPnOnV9AACIQfJl
+ddqfc0/WBABgWVgvBAAAgJDImwAAAAiJvAkAAICQyJsAAAAIibwJAACAkMib
+AAAACIm8CQAAgJDImwAAAAiJvAkAAICQyJsAAAAIibwJAAAAAAAAAAAAAAAA
+AAAQz7Mf/OBjy/zN29R1AwAAQPnqXLlnvRAAAABCIW8CAAAgpDpX/pS8CQAA
+gFBkniZ5EwAAAKHUuXJD3gQAAEAo5E0AAACEVOfKhzpz3pO6bgAAAAAAAABg
+8uwHP9jqcfNj7VDb6Z9tUtcNAAAA5atz5Q3zNgEAABCCnrNpzJrS15m6fgAA
+AChbYyzdZJu6fgAAACibnrNpy5sPU9cPAAAA5erp29ynrh8AAADKpedt3nXk
+zU3qOgIAAKBMOmtaz0pnnRAAAACm0HlzT98mAAAAQrLM3zykrhcAAADmo86X
+F615nOvUdQIAAMDrJKPlvndQXb9r25rzxnzOXep6AgAA4HWN/kHJaxep62Op
+4yX7HAEAAJTHMBZ9l1vmNNSRzAkAAFAAS47L6hzInjruU9cPAAAAZj05Tlxm
+UMernjqSOQEAADKl86bt3PHrhPV6qPc46joTPYu6AgAAoJvljJ5bw+12+t9u
+dBYMto5d12lIzrzLoQ8WAAAA3XS+u7GtFdL7JBnHsUNlz0Z9bCQjr1O3HQAA
+AIbTfZhbw88PA/oabyz3lSy7Mdjq5zs/9rZ1P9OZQc2cm/U+oQAAABjm2et7
+XvYy3H/ofQ+t+5nG1O9MmRYAAABl0plv6JodcTQ8xuCs2h4fb42pHxg/BwAA
+mJ9nbuvED4b7u+TNa8tzb1O3AwAAAMLS2a+9jr1tZ7ifS968S32dAAAASOvZ
+ac/Oa0uf59Zw+8Fj8fRjAgAAoElnz+Ya843hNl358qDvn9VZ7QAAv/5/s7Qz
+sg==
+        "], {{0, 553}, {668, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{119.2343749999988, Automatic},
+      ImageSizeRaw->{668, 553},
+      PlotRange->{{0, 668}, {0, 553}}]}
+   },
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[3.5]}, 
+       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}, "RowsIndexed" -> {}}]], "TR", "InlineFormula"]
+}], "Text",
+ CellID->489297617],
+
+Cell[TextData[{
+ "The discontinuity will be computed across the ",
+ Cell[BoxData[
+  FormBox["s", TraditionalForm]], "InlineMath"],
+ "-channel cut, indicated in red.  Both contributions will be added to obtain \
+the correct result."
+}], "Text",
+ CellID->255054149],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Load ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X:"
+}], "MathCaption",
+ CellID->836781195],
+
+Cell[BoxData[
+ RowBox[{"Needs", "[", "\"\<X`\>\"", "]"}]], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2058623809]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Define set of kinematic relations for the forward scattering problem:\
+\>", "MathCaption",
+ CellID->257063409],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"onShell", "=", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"p1", ".", "p1"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p2", ".", "p2"}], "\[Rule]", 
+      SuperscriptBox["m", "2"]}], ",", 
+     RowBox[{
+      RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+      RowBox[{
+       FractionBox["1", "2"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]}]}], "}"}]}], 
+  ";"}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->359772685]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "It is easiest to define the integrals in the more general kinematic \
+configuration.  The evaluation control function ",
+ Cell[BoxData[
+  ButtonBox["Inactive",
+   BaseStyle->"Link",
+   ButtonData->"paclet:System/ref/Inactive"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " is used to prevent ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " from processing the numerator before kinematic rules for forward \
+scattering have been applied: "
+}], "MathCaption",
+ CellID->948562937],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"diagram1", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"\[LeftAngleBracket]", 
+       RowBox[{
+        RowBox[{"\[ScriptV]", "[", 
+         RowBox[{"p1", ",", "m"}], "]"}], ",", 
+        RowBox[{"\[ImaginaryI]", " ", "e", " ", 
+         SubscriptBox["\[Gamma]", "\[Mu]"]}], ",", 
+        RowBox[{"\[ImaginaryI]", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"\[Gamma]", ".", "k"}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}]}], ",", 
+        RowBox[{"\[ImaginaryI]", " ", "e", " ", 
+         SubscriptBox["\[Gamma]", "\[Nu]"]}], ",", 
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+      RowBox[{"\[LeftAngleBracket]", 
+       RowBox[{
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p4", ",", "m"}], "]"}], ",", 
+        RowBox[{"\[ImaginaryI]", " ", "e", " ", 
+         SubscriptBox["\[Gamma]", "\[FinalSigma]"]}], ",", 
+        RowBox[{"\[ImaginaryI]", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"\[Gamma]", ".", 
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p1", "-", "p3"}], ")"}]}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}]}], ",", 
+        RowBox[{"\[ImaginaryI]", " ", "e", " ", 
+         SubscriptBox["\[Gamma]", "\[Rho]"]}], ",", 
+        RowBox[{"\[ScriptV]", "[", 
+         RowBox[{"p3", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "\[ImaginaryI]"}], " ", 
+        SubscriptBox["\[DoubleStruckG]", 
+         RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], ")"}], 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "\[ImaginaryI]"}], " ", 
+        SubscriptBox["\[DoubleStruckG]", 
+         RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]]}], ")"}]}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p2"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p3", "\[Rule]", "p1"}], ",", 
+     RowBox[{"p4", "\[Rule]", "p2"}]}], "}"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"diagram2", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"\[LeftAngleBracket]", 
+       RowBox[{
+        RowBox[{"\[ScriptV]", "[", 
+         RowBox[{"p1", ",", "m"}], "]"}], ",", 
+        RowBox[{"\[ImaginaryI]", " ", "e", " ", 
+         SubscriptBox["\[Gamma]", "\[Mu]"]}], ",", 
+        RowBox[{"\[ImaginaryI]", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"\[Gamma]", ".", "k"}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}]}], ",", 
+        RowBox[{"\[ImaginaryI]", " ", "e", " ", 
+         SubscriptBox["\[Gamma]", "\[Nu]"]}], ",", 
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+      RowBox[{"\[LeftAngleBracket]", 
+       RowBox[{
+        RowBox[{"\[ScriptU]", "[", 
+         RowBox[{"p4", ",", "m"}], "]"}], ",", 
+        RowBox[{"\[ImaginaryI]", " ", "e", " ", 
+         SubscriptBox["\[Gamma]", "\[FinalSigma]"]}], ",", 
+        RowBox[{"\[ImaginaryI]", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"\[Gamma]", ".", 
+             RowBox[{"(", 
+              RowBox[{"k", "-", "p2", "+", "p3"}], ")"}]}]}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ")"}]}], ",", 
+        RowBox[{"\[ImaginaryI]", " ", "e", " ", 
+         SubscriptBox["\[Gamma]", "\[Rho]"]}], ",", 
+        RowBox[{"\[ScriptV]", "[", 
+         RowBox[{"p3", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "\[ImaginaryI]"}], " ", 
+        SubscriptBox["\[DoubleStruckG]", 
+         RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], ")"}], 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "\[ImaginaryI]"}], " ", 
+        SubscriptBox["\[DoubleStruckG]", 
+         RowBox[{"\[Mu]", ",", "\[FinalSigma]"}]]}], ")"}]}], ",", "k", ",", 
+     RowBox[{"{", 
+      RowBox[{"k", ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p2", "+", "p3"}], ",", "m"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "-", "p2"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"k", "+", "p1"}], ",", "0"}], "}"}]}], "]"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"p3", "\[Rule]", "p1"}], ",", 
+     RowBox[{"p4", "\[Rule]", "p2"}]}], "}"}]}]}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1038970997],
+
+Cell[BoxData[
+ TemplateBox[{RowBox[{
+     RowBox[{"-", 
+       SuperscriptBox["e", "4"]}], " ", 
+     RowBox[{
+       RowBox[{"\[LeftAngleBracket]", 
+         RowBox[{"\[ScriptV]", "[", 
+           RowBox[{"p1", ",", "m"}], "]"}], ",", 
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{"\[ImaginaryI]", " ", 
+           RowBox[{"(", 
+             RowBox[{
+               RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+               RowBox[{"\[Gamma]", ".", "k"}]}], ")"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+         RowBox[{"\[ScriptU]", "[", 
+           RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+       "\[CircleTimes]", 
+       RowBox[{"\[LeftAngleBracket]", 
+         RowBox[{"\[ScriptU]", "[", 
+           RowBox[{"p2", ",", "m"}], "]"}], ",", 
+         SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+         RowBox[{"\[ImaginaryI]", " ", 
+           RowBox[{"(", 
+             RowBox[{
+               RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+               RowBox[{"\[Gamma]", ".", "k"}]}], ")"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+         RowBox[{"\[ScriptV]", "[", 
+           RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Rho]"}]], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[FinalSigma]"}]]}],"k",RowBox[{
+     TemplateBox[{"k", "m", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (RowBox[{"(", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], ")"}]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{"k", "m", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (RowBox[{"(", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], ")"}]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{
+       RowBox[{"(", 
+         RowBox[{"k", "+", "p1"}], ")"}], "0", "1"}, "LoopIntegrateDenomSpec",
+       DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{
+       RowBox[{"(", 
+         RowBox[{"k", "-", "p2"}], ")"}], "0", "1"}, "LoopIntegrateDenomSpec",
+       DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+      InterpretationFunction -> (
+       RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+  "InactiveLoopIntegrate",
+  DisplayFunction->(RowBox[{
+     StyleBox["\[Integral]", "Inactive"], 
+     FractionBox[
+      RowBox[{
+        SuperscriptBox[
+         StyleBox["\[DifferentialD]", "Inactive"], 
+         StyleBox["\[ScriptD]", "Inactive"]], #2}], 
+      SuperscriptBox[
+       RowBox[{
+         StyleBox["(", "Inactive"], 
+         StyleBox["2", "Inactive"], 
+         StyleBox["\[Pi]", "Inactive"], 
+         StyleBox[")", "Inactive"]}], 
+       StyleBox["\[ScriptD]", "Inactive"]]], 
+     FractionBox[#, #3]}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{
+     RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+     RowBox[
+      Riffle[
+       Join[{#, #2}, 
+        Part[
+         Map[ToBoxes[
+           ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& ),
+  Tooltip:>"Inactive[LoopIntegrate]"]], "Output",
+ ImageSize->{579, 74},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->230266807],
+
+Cell[BoxData[
+ TemplateBox[{RowBox[{
+     RowBox[{"-", 
+       SuperscriptBox["e", "4"]}], " ", 
+     RowBox[{
+       RowBox[{"\[LeftAngleBracket]", 
+         RowBox[{"\[ScriptV]", "[", 
+           RowBox[{"p1", ",", "m"}], "]"}], ",", 
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{"\[ImaginaryI]", " ", 
+           RowBox[{"(", 
+             RowBox[{
+               RowBox[{"\[DoubleStruckOne]", " ", "m"}], "+", 
+               RowBox[{"\[Gamma]", ".", "k"}]}], ")"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+         RowBox[{"\[ScriptU]", "[", 
+           RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+       "\[CircleTimes]", 
+       RowBox[{"\[LeftAngleBracket]", 
+         RowBox[{"\[ScriptU]", "[", 
+           RowBox[{"p2", ",", "m"}], "]"}], ",", 
+         SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+         RowBox[{"\[ImaginaryI]", " ", 
+           RowBox[{"(", 
+             RowBox[{
+               RowBox[{"\[DoubleStruckOne]", " ", "m"}], "-", 
+               RowBox[{"\[Gamma]", ".", "k"}], "-", 
+               RowBox[{"\[Gamma]", ".", "p1"}], "+", 
+               RowBox[{"\[Gamma]", ".", "p2"}]}], ")"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+         RowBox[{"\[ScriptV]", "[", 
+           RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[FinalSigma]"}]], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Rho]"}]]}],"k",RowBox[{
+     TemplateBox[{"k", "m", "1"}, "LoopIntegrateDenomSpec", 
+      DisplayFunction -> (RowBox[{"(", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], ")"}]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{
+       RowBox[{"(", 
+         RowBox[{"k", "+", "p1", "-", "p2"}], ")"}], "m", "1"}, 
+      "LoopIntegrateDenomSpec", DisplayFunction -> (RowBox[{"(", 
+         SuperscriptBox[#, "2"], "-", 
+         SuperscriptBox[#2, "2"], ")"}]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{
+       RowBox[{"(", 
+         RowBox[{"k", "-", "p2"}], ")"}], "0", "1"}, "LoopIntegrateDenomSpec",
+       DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+      InterpretationFunction -> (RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )], 
+     
+     TemplateBox[{
+       RowBox[{"(", 
+         RowBox[{"k", "+", "p1"}], ")"}], "0", "1"}, "LoopIntegrateDenomSpec",
+       DisplayFunction -> (SuperscriptBox[#, "2"]& ), 
+      InterpretationFunction -> (
+       RowBox[{"{", #, ",", #2, ",", #3, "}"}]& )]}]},
+  "InactiveLoopIntegrate",
+  DisplayFunction->(RowBox[{
+     StyleBox["\[Integral]", "Inactive"], 
+     FractionBox[
+      RowBox[{
+        SuperscriptBox[
+         StyleBox["\[DifferentialD]", "Inactive"], 
+         StyleBox["\[ScriptD]", "Inactive"]], #2}], 
+      SuperscriptBox[
+       RowBox[{
+         StyleBox["(", "Inactive"], 
+         StyleBox["2", "Inactive"], 
+         StyleBox["\[Pi]", "Inactive"], 
+         StyleBox[")", "Inactive"]}], 
+       StyleBox["\[ScriptD]", "Inactive"]]], 
+     FractionBox[#, #3]}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{
+     RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+     RowBox[
+      Riffle[
+       Join[{#, #2}, 
+        Part[
+         Map[ToBoxes[
+           ToExpression[#]]& , #3, {2}], 1]], ","]], "]"}]& ),
+  Tooltip:>"Inactive[LoopIntegrate]"]], "Output",
+ ImageSize->{573, 74},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[3]=",
+ CellID->328693355]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Add the integrals, activate ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and apply the kinematic relations.  The result is lengthy, as is usual \
+for most next-to-leading order calculations."
+}], "MathCaption",
+ CellID->474779911],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"int", "=", 
+  RowBox[{
+   RowBox[{"Activate", "[", 
+    RowBox[{"diagram1", "+", "diagram2"}], "]"}], "/.", 
+   "onShell"}]}]], "Input",
+ CellLabel->"In[4]:=",
+ CellID->1724215572],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{
+   RowBox[{"\[LeftSkeleton]", "21", "\[RightSkeleton]"}], "+", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", "\[Gamma]5", ",", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+     "\[CircleTimes]", 
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", "\[Gamma]5", ",", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", "m", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["e", "4"]}], " ", "m", " ", 
+          RowBox[{"PVD", "[", 
+           RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"]}], "-", "s"}], ",", 
+            SuperscriptBox["m", "2"], ",", "s", ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", "m", ",", "m", ",", "0", ",", 
+            "0"}], "]"}]}], "-", 
+         RowBox[{
+          SuperscriptBox["e", "4"], " ", "m", " ", 
+          RowBox[{"PVD", "[", 
+           RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"]}], "-", "s"}], ",", 
+            SuperscriptBox["m", "2"], ",", "s", ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", "m", ",", "m", ",", "0", ",", 
+            "0"}], "]"}]}], "-", 
+         RowBox[{
+          SuperscriptBox["e", "4"], " ", "m", " ", 
+          RowBox[{"PVD", "[", 
+           RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"]}], "-", "s"}], ",", 
+            SuperscriptBox["m", "2"], ",", "s", ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", "m", ",", "m", ",", "0", ",", 
+            "0"}], "]"}]}]}], ")"}]}], "-", 
+      RowBox[{"2", " ", "m", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["e", "4"], " ", "m", " ", 
+          RowBox[{"PVD", "[", 
+           RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"]}], "-", "s"}], ",", 
+            SuperscriptBox["m", "2"], ",", "s", ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", "m", ",", "m", ",", "0", ",", 
+            "0"}], "]"}]}], "+", 
+         RowBox[{
+          SuperscriptBox["e", "4"], " ", "m", " ", 
+          RowBox[{"PVD", "[", 
+           RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"]}], "-", "s"}], ",", 
+            SuperscriptBox["m", "2"], ",", "s", ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", "m", ",", "m", ",", "0", ",", 
+            "0"}], "]"}]}], "+", 
+         RowBox[{
+          SuperscriptBox["e", "4"], " ", "m", " ", 
+          RowBox[{"PVD", "[", 
+           RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", 
+            RowBox[{
+             RowBox[{"4", " ", 
+              SuperscriptBox["m", "2"]}], "-", "s"}], ",", 
+            SuperscriptBox["m", "2"], ",", "s", ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", 
+            SuperscriptBox["m", "2"], ",", "m", ",", "m", ",", "0", ",", 
+            "0"}], "]"}]}]}], ")"}]}], "+", 
+      RowBox[{"\[LeftSkeleton]", "7", "\[RightSkeleton]"}]}], ")"}]}]}],
+  Short[#, 10]& ]], "Output",
+ ImageSize->{483, 124},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[4]//Short=",
+ CellID->164592033]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "At this stage we may compute the discontinuity across the ",
+ StyleBox["s",
+  FontSlant->"Italic"],
+ "-channel normal threshold cut."
+}], "MathCaption",
+ CellID->1103754061],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"disc", "=", 
+   RowBox[{"LoopRefine", "[", 
+    RowBox[{"int", ",", 
+     RowBox[{"Part", "\[Rule]", 
+      RowBox[{"Discontinuity", "[", "s", "]"}]}]}], "]"}]}], 
+  "\[IndentingNewLine]"}]], "Input",
+ CellLabel->"In[5]:=",
+ CellID->830760441],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"s", " ", 
+      SqrtBox[
+       RowBox[{
+        RowBox[{"-", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]]}]], 
+    RowBox[{"4", " ", 
+     SuperscriptBox["e", "4"], " ", "m", " ", "\[Pi]", " ", 
+     RowBox[{
+      RowBox[{"\[LeftAngleBracket]", 
+       RowBox[{"\[ScriptV]", "[", 
+        RowBox[{"p1", ",", "m"}], "]"}], ",", 
+       SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+      "\[CircleTimes]", 
+      RowBox[{"\[LeftAngleBracket]", 
+       RowBox[{"\[ScriptU]", "[", 
+        RowBox[{"p2", ",", "m"}], "]"}], ",", 
+       SubscriptBox["\[Sigma]", 
+        RowBox[{"\[Rho]", ",", 
+         RowBox[{"{", "p1", "}"}]}]], ",", 
+       RowBox[{"\[ScriptV]", "[", 
+        RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"Log", "[", 
+      FractionBox[
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["s", "2"]}], "+", 
+        RowBox[{"s", " ", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+       RowBox[{
+        RowBox[{"-", 
+         SuperscriptBox["s", "2"]}], "-", 
+        RowBox[{"s", " ", 
+         SqrtBox[
+          RowBox[{"s", " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"-", "4"}], " ", 
+              SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+      "]"}]}]}]}], "-", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"s", " ", 
+     SqrtBox[
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]]}]], 
+   RowBox[{"4", " ", 
+    SuperscriptBox["e", "4"], " ", "m", " ", "\[Pi]", " ", 
+    RowBox[{
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+     "\[CircleTimes]", 
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Sigma]", 
+       RowBox[{"\[FinalSigma]", ",", 
+        RowBox[{"{", "p2", "}"}]}]], ",", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+    RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["s", "2"]}], "+", 
+       RowBox[{"s", " ", 
+        SqrtBox[
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["s", "2"]}], "-", 
+       RowBox[{"s", " ", 
+        SqrtBox[
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], "]"}]}]}],
+   "-", 
+  RowBox[{
+   FractionBox["1", 
+    SqrtBox[
+     RowBox[{"s", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "4"}], " ", 
+         SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]], 
+   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+    SuperscriptBox["e", "4"], " ", "\[Pi]", " ", 
+    RowBox[{
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[Rho]"], ",", "\[Gamma]5", ",", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+     "\[CircleTimes]", 
+     RowBox[{"\[LeftAngleBracket]", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], ",", 
+      SubscriptBox["\[Gamma]", "\[Rho]"], ",", "\[Gamma]5", ",", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+    RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+    RowBox[{"Log", "[", 
+     FractionBox[
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["s", "2"]}], "+", 
+       RowBox[{"s", " ", 
+        SqrtBox[
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+      RowBox[{
+       RowBox[{"-", 
+        SuperscriptBox["s", "2"]}], "-", 
+       RowBox[{"s", " ", 
+        SqrtBox[
+         RowBox[{"s", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"-", "4"}], " ", 
+             SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], "]"}]}]}],
+   "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      SuperscriptBox["e", "4"], 
+      RowBox[{
+       RowBox[{"4", " ", 
+        SuperscriptBox["m", "2"]}], "-", "s"}]], "+", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       SuperscriptBox["e", "4"], " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+         "s"}]]}]]}], ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"4", " ", 
+       SuperscriptBox["e", "4"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "-", 
+     FractionBox[
+      RowBox[{"16", " ", 
+       SuperscriptBox["e", "4"], " ", 
+       SuperscriptBox["m", "4"], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s", " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+         "s"}]]}]]}], ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "p1"}], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"2", " ", 
+       SuperscriptBox["e", "4"], " ", "m"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "+", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       SuperscriptBox["e", "4"], " ", "m", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"6", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s", " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+         "s"}]]}]]}], ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "p2"}], ",", "\[Gamma]5", ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"2", " ", 
+       SuperscriptBox["e", "4"], " ", "m"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "+", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       SuperscriptBox["e", "4"], " ", "m", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"6", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s", " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+         "s"}]]}]]}], ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{"\[Rho]", ",", 
+       RowBox[{"{", "p2", "}"}]}]], ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+       SuperscriptBox["e", "4"], " ", "m"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "-", 
+     FractionBox[
+      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+       SuperscriptBox["e", "4"], " ", "m", " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]], 
+       " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", "s"}]]}],
+     ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[FinalSigma]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{"\[FinalSigma]", ",", 
+       RowBox[{"{", "p1", "}"}]}]], ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+       SuperscriptBox["e", "4"], " ", "m"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "-", 
+     FractionBox[
+      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+       SuperscriptBox["e", "4"], " ", "m", " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]], 
+       " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", "s"}]]}],
+     ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Sigma]", 
+      RowBox[{"\[Rho]", ",", "\[FinalSigma]"}]], ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       SuperscriptBox["e", "4"], 
+       RowBox[{
+        RowBox[{"4", " ", 
+         SuperscriptBox["m", "2"]}], "-", "s"}]]}], "+", 
+     FractionBox[
+      RowBox[{"2", " ", 
+       SuperscriptBox["e", "4"], " ", 
+       SuperscriptBox["m", "2"], " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]], 
+       " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", "s"}]]}],
+     ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "p1"}], ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox[
+       RowBox[{"18", " ", 
+        SuperscriptBox["e", "4"], " ", "m"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]]}], "-", 
+     FractionBox[
+      RowBox[{"6", " ", 
+       SuperscriptBox["e", "4"], " ", "m", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+         "s"}]]}]]}], ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     RowBox[{"\[Gamma]", ".", "p2"}], ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{"18", " ", 
+       SuperscriptBox["e", "4"], " ", "m"}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]], "+", 
+     FractionBox[
+      RowBox[{"6", " ", 
+       SuperscriptBox["e", "4"], " ", "m", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+         "s"}]]}]]}], ")"}]}], "+", 
+  RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{"\[ScriptU]", "[", 
+      RowBox[{"p2", ",", "m"}], "]"}], ",", 
+     SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+     RowBox[{"\[ScriptV]", "[", 
+      RowBox[{"p1", ",", "m"}], "]"}], "\[RightAngleBracket]"}]}], " ", 
+   RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["e", "4"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"8", " ", 
+          SuperscriptBox["m", "2"]}], "-", 
+         RowBox[{"5", " ", "s"}]}], ")"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "-", 
+     FractionBox[
+      RowBox[{
+       SuperscriptBox["e", "4"], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"16", " ", 
+          SuperscriptBox["m", "4"]}], "-", 
+         RowBox[{"10", " ", 
+          SuperscriptBox["m", "2"], " ", "s"}], "+", 
+         RowBox[{"3", " ", 
+          SuperscriptBox["s", "2"]}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s", " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+         "s"}]]}]]}], ")"}]}]}]], "Output",
+ ImageSize->{521, 1725},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[5]=",
+ CellID->1585330076]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "This expression may be directly interpreted as arising from the squaring \
+the tree-level ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     SuperscriptBox["e", "+"], 
+     SuperscriptBox["e", "-"]}], "\[Rule]", "\[Gamma]\[Gamma]"}], 
+   TraditionalForm]], "InlineMath"],
+ " amplitude, and summing over final state degrees of freedom (photon \
+helicities and momenta).  The various spinors ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        OverscriptBox["v", "_"], "(", 
+        SubscriptBox[
+         StyleBox["p",
+          FontWeight->"Bold",
+          FontSlant->"Plain"], "1"], ")"}], "..."}], 
+      RowBox[{"u", "(", 
+       SubscriptBox[
+        StyleBox["p",
+         FontWeight->"Bold",
+         FontSlant->"Plain"], "2"], ")"}], 
+      RowBox[{
+       OverscriptBox["u", "_"], "(", 
+       SubscriptBox[
+        StyleBox["p",
+         FontWeight->"Bold",
+         FontSlant->"Plain"], "2"], ")"}]}], "..."}], 
+    RowBox[{"v", "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold",
+       FontSlant->"Plain"], "2"], ")"}]}], TraditionalForm]], "InlineMath"],
+ " are associated with the initial-state electron and positron.  To obtain \
+the spin-averaged cross section, apply the completeness relations:"
+}], "Text",
+ CellID->831874682],
+
+Cell[BoxData[{
+ FormBox[
+  RowBox[{
+   RowBox[{"\[Sum]", 
+    RowBox[{
+     RowBox[{"u", "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold",
+        FontSlant->"Plain"], "2"], ")"}], 
+     RowBox[{
+      OverscriptBox["u", "_"], "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold",
+        FontSlant->"Plain"], "2"], ")"}]}]}], "=", 
+   RowBox[{
+    SubscriptBox[
+     OverlayBox[{
+      StyleBox["p", "TI"], "/"},
+      Alignment->{Center, Center}], "2"], "+", "m"}]}], 
+  TraditionalForm], "\[LineSeparator]", 
+ FormBox[
+  RowBox[{
+   RowBox[{"\[Sum]", 
+    RowBox[{
+     RowBox[{"v", "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold",
+        FontSlant->"Plain"], "1"], ")"}], 
+     RowBox[{
+      OverscriptBox["v", "_"], "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold",
+        FontSlant->"Plain"], "1"], ")"}]}]}], "=", 
+   RowBox[{
+    SubscriptBox[
+     OverlayBox[{
+      StyleBox["p", "TI"], "/"},
+      Alignment->{Center, Center}], "1"], "-", "m"}]}], 
+  TraditionalForm]}], "NumberedEquation",
+ CellID->493310538]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["to convert the spinor products into traces:", "Text",
+ CellID->432030435],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{"\[Sum]", 
+        RowBox[{
+         OverscriptBox["v", "_"], "(", 
+         SubscriptBox[
+          StyleBox["p",
+           FontWeight->"Bold",
+           FontSlant->"Plain"], "1"], ")"}]}], "..."}], 
+      RowBox[{"u", "(", 
+       SubscriptBox[
+        StyleBox["p",
+         FontWeight->"Bold",
+         FontSlant->"Plain"], "2"], ")"}], 
+      RowBox[{
+       OverscriptBox["u", "_"], "(", 
+       SubscriptBox[
+        StyleBox["p",
+         FontWeight->"Bold",
+         FontSlant->"Plain"], "2"], ")"}]}], "..."}], 
+    RowBox[{"v", "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold",
+       FontSlant->"Plain"], "2"], ")"}]}], "=", 
+   RowBox[{
+    RowBox[{"Tr", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          SubscriptBox[
+           OverlayBox[{
+            StyleBox["p", "TI"], "/"},
+            Alignment->{Center, Center}], "1"], "-", "m"}], ")"}], "..."}], 
+       RowBox[{"(", 
+        RowBox[{
+         SubscriptBox[
+          OverlayBox[{
+           StyleBox["p", "TI"], "/"},
+           Alignment->{Center, Center}], "2"], "+", "m"}], ")"}]}], "..."}], 
+     "]"}], " ", "."}]}], TraditionalForm]], "NumberedEquation",
+ CellID->214855159]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Replace all ",
+ Cell[BoxData[
+  ButtonBox["FermionLineProduct",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/FermionLineProduct"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " objects with the appropriate trace (",
+ Cell[BoxData[
+  ButtonBox["Spur",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Spur"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "), and divide by 4 to account for averaging:"
+}], "MathCaption",
+ CellID->941532151],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   FractionBox["1", "4"], "disc"}], "/.", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}], ",", "mtx1___", ",", 
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}], 
+    "\[CircleTimes]", 
+    RowBox[{"\[LeftAngleBracket]", 
+     RowBox[{
+      RowBox[{"\[ScriptU]", "[", 
+       RowBox[{"p2", ",", "m"}], "]"}], ",", "mtx2___", ",", 
+      RowBox[{"\[ScriptV]", "[", 
+       RowBox[{"p1", ",", "m"}], "]"}]}], "\[RightAngleBracket]"}]}], 
+   "\[RuleDelayed]", 
+   RowBox[{"Contract", "[", 
+    RowBox[{"Spur", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"p1", ".", "\[Gamma]"}], "-", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", "mtx1", ",", 
+      RowBox[{
+       RowBox[{"p2", ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", "mtx2"}], "]"}], 
+    "]"}]}]}]], "Input",
+ CellLabel->"In[6]:=",
+ CellID->2017517723],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "4"], " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", 
+     FractionBox[
+      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+       SuperscriptBox["e", "4"], " ", "\[Pi]", " ", 
+       RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", "\[ScriptD]", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"8", " ", 
+          RowBox[{"p1", ".", "p2"}]}], "-", 
+         RowBox[{"4", " ", "\[ScriptD]", " ", 
+          RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "+", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+         RowBox[{
+          RowBox[{"-", 
+           SuperscriptBox["s", "2"]}], "-", 
+          RowBox[{"s", " ", 
+           SqrtBox[
+            RowBox[{"s", " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"-", "4"}], " ", 
+                SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+        "]"}]}], 
+      SqrtBox[
+       RowBox[{"s", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"-", "4"}], " ", 
+           SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]]}], "-", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"s", " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]]}]], 
+     
+     RowBox[{"4", " ", 
+      SuperscriptBox["e", "4"], " ", "m", " ", "\[Pi]", " ", 
+      RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "m", " ", 
+         RowBox[{"p1", ".", "p1"}]}], "+", 
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", "m", " ", 
+         RowBox[{"p1", ".", "p1"}]}], "-", 
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", 
+         RowBox[{"p1", ".", "p2"}]}], "+", 
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", "m", " ", 
+         RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["s", "2"]}], "+", 
+         RowBox[{"s", " ", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["s", "2"]}], "-", 
+         RowBox[{"s", " ", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+       "]"}]}]}], "-", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"s", " ", 
+       SqrtBox[
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]]}]], 
+     
+     RowBox[{"4", " ", 
+      SuperscriptBox["e", "4"], " ", "m", " ", "\[Pi]", " ", 
+      RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "m", " ", 
+         RowBox[{"p1", ".", "p2"}]}], "+", 
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", "m", " ", 
+         RowBox[{"p1", ".", "p2"}]}], "-", 
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", 
+         RowBox[{"p2", ".", "p2"}]}], "+", 
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", "m", " ", 
+         RowBox[{"p2", ".", "p2"}]}]}], ")"}], " ", 
+      RowBox[{"Log", "[", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["s", "2"]}], "+", 
+         RowBox[{"s", " ", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+        RowBox[{
+         RowBox[{"-", 
+          SuperscriptBox["s", "2"]}], "-", 
+         RowBox[{"s", " ", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+       "]"}]}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"4", " ", "\[ScriptD]", " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"8", " ", 
+        RowBox[{"p1", ".", "p2"}]}], "-", 
+       RowBox[{"4", " ", "\[ScriptD]", " ", 
+        RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        SuperscriptBox["e", "4"], 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}]], "+", 
+       FractionBox[
+        RowBox[{"2", " ", 
+         SuperscriptBox["e", "4"], " ", 
+         SuperscriptBox["m", "2"], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+           "s"}]]}]]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"4", " ", 
+        RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{"4", " ", 
+         SuperscriptBox["e", "4"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "-", 
+       FractionBox[
+        RowBox[{"16", " ", 
+         SuperscriptBox["e", "4"], " ", 
+         SuperscriptBox["m", "4"], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s", " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+           "s"}]]}]]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", "m", " ", 
+        RowBox[{"p1", ".", "p1"}]}], "-", 
+       RowBox[{"4", " ", "m", " ", 
+        RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{"2", " ", 
+         SuperscriptBox["e", "4"], " ", "m"}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "+", 
+       FractionBox[
+        RowBox[{"2", " ", 
+         SuperscriptBox["e", "4"], " ", "m", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"6", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s", " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+           "s"}]]}]]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", "m", " ", 
+        RowBox[{"p1", ".", "p2"}]}], "-", 
+       RowBox[{"4", " ", "m", " ", 
+        RowBox[{"p2", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{"2", " ", 
+         SuperscriptBox["e", "4"], " ", "m"}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "+", 
+       FractionBox[
+        RowBox[{"2", " ", 
+         SuperscriptBox["e", "4"], " ", "m", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"6", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s", " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+           "s"}]]}]]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "m", " ", 
+        RowBox[{"p1", ".", "p1"}]}], "+", 
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", "m", " ", 
+        RowBox[{"p1", ".", "p1"}]}], "-", 
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", 
+        RowBox[{"p1", ".", "p2"}]}], "+", 
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", "m", " ", 
+        RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+         SuperscriptBox["e", "4"], " ", "m"}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "-", 
+       FractionBox[
+        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+         SuperscriptBox["e", "4"], " ", "m", " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]], 
+         " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", 
+         "s"}]]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "m", " ", 
+        RowBox[{"p1", ".", "p2"}]}], "+", 
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", "m", " ", 
+        RowBox[{"p1", ".", "p2"}]}], "-", 
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", "m", " ", 
+        RowBox[{"p2", ".", "p2"}]}], "+", 
+       RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[ScriptD]", " ", "m", " ", 
+        RowBox[{"p2", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{"4", " ", "\[ImaginaryI]", " ", 
+         SuperscriptBox["e", "4"], " ", "m"}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "-", 
+       FractionBox[
+        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
+         SuperscriptBox["e", "4"], " ", "m", " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]], 
+         " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", 
+         "s"}]]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"4", " ", "\[ScriptD]", " ", 
+        SuperscriptBox["m", "2"]}], "-", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["\[ScriptD]", "2"], " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"16", " ", 
+        RowBox[{"p1", ".", "p2"}]}], "-", 
+       RowBox[{"20", " ", "\[ScriptD]", " ", 
+        RowBox[{"p1", ".", "p2"}]}], "+", 
+       RowBox[{"4", " ", 
+        SuperscriptBox["\[ScriptD]", "2"], " ", 
+        RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         SuperscriptBox["e", "4"], 
+         RowBox[{
+          RowBox[{"4", " ", 
+           SuperscriptBox["m", "2"]}], "-", "s"}]]}], "+", 
+       FractionBox[
+        RowBox[{"2", " ", 
+         SuperscriptBox["e", "4"], " ", 
+         SuperscriptBox["m", "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", "s"}]], 
+         " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", 
+         "s"}]]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"4", " ", "m", " ", 
+        RowBox[{"p1", ".", "p1"}]}], "-", 
+       RowBox[{"4", " ", "m", " ", 
+        RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{"18", " ", 
+          SuperscriptBox["e", "4"], " ", "m"}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]]}], "-", 
+       FractionBox[
+        RowBox[{"6", " ", 
+         SuperscriptBox["e", "4"], " ", "m", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+           "s"}]]}]]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"4", " ", "m", " ", 
+        RowBox[{"p1", ".", "p2"}]}], "-", 
+       RowBox[{"4", " ", "m", " ", 
+        RowBox[{"p2", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{"18", " ", 
+         SuperscriptBox["e", "4"], " ", "m"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]], "+", 
+       FractionBox[
+        RowBox[{"6", " ", 
+         SuperscriptBox["e", "4"], " ", "m", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"], " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+           "s"}]]}]]}], ")"}]}], "+", 
+    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
+     RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "4"}], " ", "\[ScriptD]", " ", 
+        SuperscriptBox["m", "2"]}], "+", 
+       RowBox[{"8", " ", 
+        RowBox[{"p1", ".", "p2"}]}], "-", 
+       RowBox[{"4", " ", "\[ScriptD]", " ", 
+        RowBox[{"p1", ".", "p2"}]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["e", "4"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"8", " ", 
+            SuperscriptBox["m", "2"]}], "-", 
+           RowBox[{"5", " ", "s"}]}], ")"}]}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s"}]], "-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["e", "4"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"16", " ", 
+            SuperscriptBox["m", "4"]}], "-", 
+           RowBox[{"10", " ", 
+            SuperscriptBox["m", "2"], " ", "s"}], "+", 
+           RowBox[{"3", " ", 
+            SuperscriptBox["s", "2"]}]}], ")"}], " ", 
+         RowBox[{"Log", "[", 
+          FractionBox[
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "+", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}], 
+           RowBox[{
+            RowBox[{"-", 
+             SuperscriptBox["s", "2"]}], "-", 
+            RowBox[{"s", " ", 
+             SqrtBox[
+              RowBox[{"s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "4"}], " ", 
+                  SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]}]], 
+          "]"}]}], 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", " ", 
+            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", "s", " ", 
+         SqrtBox[
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"4", " ", 
+               SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}], " ", 
+           "s"}]]}]]}], ")"}]}]}], ")"}]}]], "Output",
+ ImageSize->{570, 1711},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[6]=",
+ CellID->1447141207]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Apply the kinematic relations, take ",
+ Cell[BoxData[
+  ButtonBox["\[ScriptD]",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Dim"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "\[Rule]4, and simplify the expression (the normalization factor ",
+ Cell[BoxData[
+  RowBox[{
+   RowBox[{"1", "/", "16"}], 
+   SuperscriptBox["\[Pi]", "2"]}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " has been restored):"
+}], "MathCaption",
+ CellID->595929107],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"discAv", "=", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"16", 
+     SuperscriptBox["\[Pi]", "2"]}]], 
+   RowBox[{"Simplify", "[", 
+    RowBox[{
+     RowBox[{"%", "/.", "onShell"}], "/.", 
+     RowBox[{"\[ScriptD]", "\[Rule]", "4"}]}], "]"}]}]}]], "Input",
+ CellLabel->"In[7]:=",
+ CellID->851004761],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  RowBox[{
+   FractionBox["1", 
+    RowBox[{"4", " ", "\[Pi]", " ", "s", " ", 
+     SqrtBox[
+      RowBox[{"s", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]], 
+   RowBox[{"\[ImaginaryI]", " ", 
+    SuperscriptBox["e", "4"], " ", 
+    RowBox[{"HeavisideTheta", "[", "s", "]"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       SqrtBox[
+        RowBox[{"s", " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "4"}], " ", 
+            SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}], "+", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "8"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"], " ", "s"}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{"s", "-", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}], 
+         RowBox[{"s", "+", 
+          SqrtBox[
+           RowBox[{"s", " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{
+               RowBox[{"-", "4"}], " ", 
+               SuperscriptBox["m", "2"]}], "+", "s"}], ")"}]}]]}]], "]"}]}]}],
+      ")"}]}]}]}]], "Output",
+ ImageSize->{477, 93},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[7]=",
+ CellID->1072908352]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "To convert this into a cross section, multiply by ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"-", "i"}], "/", "Flux"}], TraditionalForm]], "InlineMath"],
+ " as indicated in (",
+ 
+ CounterBox["NumberedEquation", "opticalTheoremRealAnalytic"],
+ ").  By expressing the result in terms of the velocity: ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", "=", 
+    RowBox[{"4", 
+     RowBox[{
+      SuperscriptBox["m", "2"], "/", 
+      RowBox[{"(", 
+       RowBox[{"1", "-", 
+        SuperscriptBox["\[Beta]", "2"]}], ")"}]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", the total cross section can be brought to a recognizable form."
+}], "Text",
+ Deletable->True,
+ CellID->1033569322],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"flux", "=", 
+   RowBox[{"2", 
+    SqrtBox[
+     RowBox[{"Kallen\[Lambda]", "[", 
+      RowBox[{"s", ",", 
+       SuperscriptBox["m", "2"], ",", 
+       SuperscriptBox["m", "2"]}], "]"}]]}]}], ";"}]], "Input",
+ CellLabel->"In[8]:=",
+ CellID->1743428191],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"crossXn", "=", 
+  RowBox[{
+   RowBox[{"Simplify", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       FractionBox[
+        RowBox[{"-", "\[ImaginaryI]"}], "flux"], "discAv"}], "/.", 
+      RowBox[{"{", 
+       RowBox[{"s", "\[Rule]", 
+        FractionBox[
+         RowBox[{"4", 
+          SuperscriptBox["m", "2"]}], 
+         RowBox[{"1", "-", 
+          SuperscriptBox["\[Beta]", "2"]}]]}], "}"}]}], ",", 
+     RowBox[{"Assumptions", "\[Rule]", 
+      RowBox[{
+       RowBox[{"\[Beta]", ">", "0"}], "&&", 
+       RowBox[{"\[Beta]", "<", "1"}], "&&", 
+       RowBox[{"m", ">", "0"}]}]}]}], "]"}], "/.", 
+   RowBox[{"e", "\[Rule]", 
+    SqrtBox[
+     RowBox[{"4", "\[Pi]", " ", "\[Alpha]"}]]}]}]}]], "Input",
+ CellLabel->"In[9]:=",
+ CellID->1530726469],
+
+Cell[BoxData[
+ RowBox[{"-", 
+  FractionBox[
+   RowBox[{"\[Pi]", " ", 
+    SuperscriptBox["\[Alpha]", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"-", "1"}], "+", 
+      SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"2", " ", "\[Beta]", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "2"}], "+", 
+         SuperscriptBox["\[Beta]", "2"]}], ")"}]}], "+", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "3"}], "+", 
+         SuperscriptBox["\[Beta]", "4"]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        FractionBox[
+         RowBox[{"1", "-", "\[Beta]"}], 
+         RowBox[{"1", "+", "\[Beta]"}]], "]"}]}]}], ")"}]}], 
+   RowBox[{"4", " ", 
+    SuperscriptBox["m", "2"], " ", 
+    SuperscriptBox["\[Beta]", "2"]}]]}]], "Output",
+ ImageSize->{316, 45},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[9]=",
+ CellID->1691305133]
+}, Open  ]]
+}, Open  ]],
+
+Cell["\<\
+Observe that the normalization factor correctly reflects the \
+indistinguishability of the final state photons.\
+\>", "Text",
+ CellID->240519726],
+
+Cell[CellGroupData[{
+
+Cell["Make a plot:", "MathCaption",
+ CellID->1217115519],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"Evaluate", "[", 
+    RowBox[{"crossXn", "/.", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"\[Alpha]", "\[Rule]", 
+        RowBox[{"1", "/", "137"}]}], ",", 
+       RowBox[{"m", "\[Rule]", "1"}]}], "}"}]}], "]"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"\[Beta]", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
+ CellLabel->"In[8]:=",
+ CellID->2114109450],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {}, 
+   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
+1:eJwVkGc81gsDhq1CHdsRIj1Ww0yFh/xvHrPHKKI6JbsSkcqRJJJxVNYpp8xO
+KA0vsrI9NplJkZK9198W3nh7P1y/+3d9uL9cFIcrFudZmJiYEn/x/3WKCL7K
+nZKDmh5VraMb5pAxnxmrepCLPX8bWXgfMIeov6HGxaRctHtH0V9LmIM3/dmD
+bfm5uFJ1LnOTyxxrHCcUzQd+Obl9WnTyOD6U51/vUc+D6Zr4yEbqcfgoB2z8
+GM4D8+VjpITMcbTwCAoqaudjOEywwc7DDFVabufbrPLh+jhxIcbSDAWute88
+XfMhZKXXzkY1Q0qd9x/Fj/NRTj9x608WM3j7f39qNJ0PgeQ147QnppAkU/c5
+xhVA7O9I4eUGE9xooSJmsRA/4584NZobg1sxb/g9RxGo4mQ6q5Yxnocrh62L
+FUFScNHReq8x2kz2dNnoFyE7L2nCbZMOuUbB6zKPi8D5MMSJM5OO3joyNVut
+GOaB2f1DAnQYVrzgbvYpgSpu2LnNG6FnNyVvI6IEXm4u9w70G8HzTsJZ5ZQS
+RGS/1Ob+YIQkPHr1qLEEx4V/e8CbYYT10ju0M2KlOC+isvWgqxEyi856jZaW
+YpvGA+6acUPsyOXrYWZm4GNvE2Vw2QDWYeuWQ0IMrH+1MNw7aoBkp+HGWnkG
+WoZZagI7DSD/e2Hhg9MMeLync90uMADNy+6f398ykHrnbdP1WwZQTTiVGq1U
+jkxT7xvGWwxgb5N67lVPOb4XvbgaskcfQfSdsbHj5RiZu3lPT1QfqapRn+4v
+luM0m9APAS59THH7GLttq0DA7MsTI/N68GKYUlVUKzDu0H/ZiqGHsN1LgiXh
+FZhViripc1YP7wZ0m1qPVGJrWJdI4FNddBgFzIUbVkL0qV/m+Ue6WM4oEzKx
+qMSr0WU/q1BdqN2i2tdfrESWk7279TVdFAgoLZc/rIT7sX6eLYa6KNQT3Z09
+VgnOsUKujHkaSlJnr0dHV2FEIdahxYKG7t8UYy3+rYKf4vAXxaM0/Peaaxnv
+myp8/Vb2MxY0aGGEI5xRhS/vWLmi5Gko6/yWGDxRBRv7q7arW2lgcNTVeWlX
+Q7HmiXp2qQ4qXRJ3/jFVjeUQn1EzFR3kjLu62ixXw4R9Ud9rvw6eO2sUOzLV
+QLbtnc4LSR0EX+g84y5Ygy3+54ZFBHRg5MAXF3ikBn8l/5NpvaiN1j+ChTPC
+aiAWHyKNAm10G7n9zqpQizWZxh0q+tpYktXiSXerg4x12Wr+IAFigFZ337sO
+N50F1A92EAhJNPJ3DqyDVkO1YnE9ASFBS1Iqtg439h/emE0noMrs2hpXXYfe
+NEXNeW8C3t9iIkN31iNLZ1D3CB+B/0Yu8ji9r4dHsZndbboWWFbTeHfKNCCu
++6LW3W5N7GymLUCpAf7nu10ufdTEoaSuz07UBkRJOjw4Xa+J80fZ4zNMGzBT
+oHXHLFcT9bEOMjSvBmyEJKjGhGkiUkNE41JdA1q+zc3EEZoQ8w1xzL/UiIaV
+RV7KKw2obtq9O5HRBH9vqT2ekVSYmJbf1S9oQrxeeKr2X1Q4xkscU6tsQp0t
+ZYzfn4ootZ5R0Y4mRD13iq13p2L8ylmRgZ9NWHNx3+5tRkVCn5Wvh2kzsq6x
+MA9wU8FcSaeFTzVDuJHuXPRIHU1Bh1pq97cioEgs+OR/1CARNbn6euYDBMdl
+f8jOHcbkSm/PZ+WP2PQZkmaLPITnE8UN3BHtsDO395OlHQS3+EtyaOgTfC6m
+ZTyRVkHYpbwLz6Q7oC5ZcGtN7QCWtdOGnP07ETjr4VNirgxPlepcoaov+Nx+
+oNZ9lxJ6M6oftFG+wqx8ycEmUQHrLp/i9/l8g2ZnhGGpjjzkdNg3LhR3YzJO
+zKBLQA6GyZSLWTt6oPuv6vzbvn24IW4r2W/di0b+ZydD2vZCfspqe6dpHz4b
+743Nbt8DAZ5Zjuq1PhxwapU3bpQFGyM+UyqhH6u7PZI6u2Xgeqi4i9N4ADxn
+7N/f7ZdG2lGHZ2XLA8j2PLxqOCuFpUlR3pHHg2DUaCSO80sh74Qha7TeEDJy
+/zoSIyMJf6Pgf3NHhlBPBHa/OUoB5Tv9S0rwMBglxyLrr+2GhlpQtIjKCOQq
+l1kMBSRgvat1lbl9BCIF9uXMtuJYaggf8AgYxaX9k/J+gTsRw2bjaSE9htW7
+Tcuc1SIQ6MlLZqkew4vrwtxGnMLYcjvAknp1HNd/Djf/LSUEptc2mQP8E2hJ
+VtI+dloQ1+Iyw/krJ/DQOXBmny0/SuVCOfjcJ+E7tqvS7wIv+OjX5O9yT8E+
+SFpGkIsL3Qof2m+WTMFloUi5epADb59CeshmGk55n7ufDbLhXKYqn/jGNDQ3
+omuV2phwJzgpoPvNDF4HvXj40uAHwXWDnW6f/suTDv6jI/mDiHN24x/JnMHx
+9xTJlp8rRI4xNYXMncEOYki3LHeFGOFrq2ZhzGA+vN5mmbJCGD9l4tjXPgP/
+TD/TpNUlQijfNuLP9Rk47ri8LSphgUh5VXNy7ecMtCLPsUp5LRDKcXIS/kwk
+LNyS9iQfWyCO3l7JDN1CYsegcJcjywLhqxvZFs9DQjFnrmPqwjwx0FomWClF
+YiqrSbpVbo5IHxOP5zYhcdJqa4+d3jQRmhhs12NGwnMjOTBodIpwspiWyTAn
+QfGzXrG6P0WIlZS8NT1FotWpjbbeMkncjzxbG+ZAIlT8QqKo5QThrBo7t+3m
+rz998lSN8SihN8mU//UWCV6/sszGsRFC4pmz7xs/EhOXGafOBI8QHZzq7PQg
+EumuTdaspcOE/vcOsXuRJMRzzOx2yQ4RkkGCRuypJHb5T92P/dZHbKj7cnW+
+IiHWaOOvcKWP6Joe/JiaRsKYve7OGnMfEXUq55xBFonFmq2bBL2H2NxvcT24
+hIR6QEwVpeIr8bW3UN2KQWILuy5zZ1cX8S6asiFdSYJt4trwqdkvhPvGbGh1
+HQnf5VADXaFOorst8ilrO4nvrHHbs3TaiYKQFcf2zyTqyXUeht5HIlrTdl/K
+FxJHRTqyqXpthPELxVxaD4kj9yoUwtxbCNkzj2/y95Nojg/Z1LFsIlh4NoiB
+QRItfPuZx5QaiCLv5vcB4yQOvP5037a6hniscDjSfIrEqH6Q+B6fKuLqQIIl
+hSTx1PXM7TCJCsLkCZvo3NyvHhH5WnqOpcRek8u95YskUvjPloSfLiDYmD89
+j1ohMXCca9GNP4foy9N0sVsjIbqXZiO18oYocUlRUv5JgvWyJuVTfCLxRGL7
+0uYmieFChbdpJz9o/Q8kGrtI
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 0},
+  Method->{},
+  PlotRange->{{0, 1}, {0., 0.0010982241845862034`}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{
+    Scaled[0.02], 
+    Scaled[0.02]}]], "Output",
+ ImageSize->{184, 100},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[8]=",
+ CellID->1519412087]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "TutorialMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "TutorialMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Guides"}], "TutorialMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "TutorialMoreAbout",
+ CellID->1567025153],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "Evaluation of e^+e^-\[Rule]\[Gamma]\[Gamma] Cross Section by The Optical \
+Theorem - Wolfram Mathematica", 
+  "Evaluation of e^+e^-\[Rule]\[Gamma]\[Gamma] Cross Section by The Optical \
+Theorem"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "TutorialColor", 
+  "LinkTrails" -> GridBox[{{
+      RowBox[{
+        ButtonBox[
+        "Mathematica", ButtonData -> "paclet:X/guide/X", 
+         BaseStyle -> {"Link", "DockedLinkTrail"}], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 38.459409}", 
+    "history" -> {"2.1", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Tutorial", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "A direct consequence of unitarity of the relativsitic S-matrix is the \
+optical theorem which relates the imaginary part of the forward (t=0) elastic \
+scattering amplitude to the total cross section. Since the cross section \
+itself depends on the square of the scattering amplitude the optical theorem \
+provides a relationship that is nonlinear in the coupling \
+constant\[LongDash]frequently the perturbation parameter. Therefore, the \
+optical theorem allows us to calculate cross sections at lower orders in \
+pertubation theory using information from the higher order amplitude with the \
+phase space integration already done.", "synonyms" -> {}, "title" -> 
+    "Evaluation of e^+e^-\[Rule]\[Gamma]\[Gamma] Cross Section by The Optical \
+Theorem", "titlemodifier" -> "", "windowtitle" -> 
+    "Evaluation of e^+e^-\[Rule]\[Gamma]\[Gamma] Cross Section by The Optical \
+Theorem", "type" -> "Tutorial", "uri" -> 
+    "X/tutorial/PairAnnihilationUnitarity"}, "SearchTextTranslated" -> ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> Notebook], 
+   Cell[
+    StyleData["Output"], CellContext -> Notebook], 
+   Cell[
+    StyleData["TutorialMoreAboutSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["RelatedTutorialsSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["TutorialRelatedLinksSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Documentation/English/Tutorials/ScatteringLightByLight.nb b/packages/X/Documentation/English/Tutorials/ScatteringLightByLight.nb
new file mode 100644
index 0000000000000000000000000000000000000000..151cc8955912d0e52d4b049b8a71542fdb0b471b
--- /dev/null
+++ b/packages/X/Documentation/English/Tutorials/ScatteringLightByLight.nb
@@ -0,0 +1,7090 @@
+Notebook[{
+Cell[BoxData[GridBox[{
+   {Cell["PACKAGE-X TUTORIAL", "PacletNameCell"], Cell[TextData[{
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"Related Tutorials \[RightGuillemet]\"\>",
+        StripOnInput->
+         False], {"\<\"Bringing the Arguments of D functions to Canonical \
+Form\"\>":>Documentation`HelpLookup["paclet:X/tutorial/ArgumentsOfScalarD"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"More About \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"Package-X\"\>":>Documentation`HelpLookup[
+       "paclet:X/guide/PackageX"]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}],
+     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
+\[ThickSpace]",
+     Cell[BoxData[
+      ActionMenuBox[
+       FrameBox["\<\"URL \[RightGuillemet]\"\>",
+        StripOnInput->False], {"\<\"X/tutorial/LightByLight\"\>":>
+       None, "\<\"Copy Mathematica url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell["X/tutorial/LightByLight"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
+       Delimiter, "\<\"Copy web url\"\>":>
+       Module[{DocumentationSearch`Private`nb$}, 
+        DocumentationSearch`Private`nb$ = NotebookPut[
+           Notebook[{
+             Cell[
+              BoxData[
+               MakeBoxes[
+                Hyperlink[
+                "http://reference.wolfram.com/mathematica/X/tutorial/\
+LightByLight.html"], StandardForm]], "Input", TextClipboardType -> 
+              "PlainText"]}, Visible -> False]]; 
+        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
+        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
+        NotebookClose[DocumentationSearch`Private`nb$]; 
+        Null], "\<\"Go to web url\"\>":>FrontEndExecute[{
+         NotebookLocate[{
+           URL[
+            StringJoin[
+            "http://reference.wolfram.com/mathematica/", 
+             "X/tutorial/LightByLight", ".html"]], None}]}]},
+       Appearance->None,
+       MenuAppearance->Automatic]],
+      LineSpacing->{1.4, 0}]
+    }], "AnchorBar"]}
+  }]], "AnchorBarGrid",
+ CellID->1],
+
+Cell[CellGroupData[{
+
+Cell["The Scattering of Light By Light", "Title",
+ CellID->509267359],
+
+Cell[TextData[{
+ "This tutorial will illustrate a few strategies you can employ to streamline \
+complex calculations with ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X by using the scattering of light by light in quantum electrodynamics as \
+an example.  We will aim to calculate the scattering amplitude and \
+differential cross section.  In certain kinematic limits, compact analytic \
+expressions exist and can be quickly obtained.  Otherwise, the general result \
+with full kinematic dependence is extremely complicated, and can take a long \
+time to calculate. But with clever strategies it can be obtained in a \
+reasonable amount of time, and can even be numerically evaluated.  We will \
+also save the final result so it can be reloaded upon restarting ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ "."
+}], "Text",
+ CellID->1534169418],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Section",
+ CellID->585883938],
+
+Cell["At leading order, the Feynman diagrams are:", "Text",
+ CellID->2115247403],
+
+Cell[TextData[{
+ "\t",
+ Cell[BoxData[GridBox[{
+    {
+     StyleBox["\"\<\!\(TraditionalForm\`s\)-channel\>\"", "TR"], 
+     StyleBox["\"\<\!\(TraditionalForm\`t\)-channel\>\"", "TR"], 
+     StyleBox["\"\<\!\(TraditionalForm\`u\)-channel\>\"", "TR"]},
+    {
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJztnc2O7Lxxhis/hL2cTeKtAgTJ9iwCr5kgyXrgwIDhlezE2WbgGAi8E5Ls
+B4gvYBDfwCC5gYavYOIraN/B+A46XWdYRyWOpNYPS1SL7wPw+86o1RRbIl8W
+i0Xqz376Lz/45z8kon/97vU/P/jJv/31z3/+k1/+wx9f//ibX/7iZz/9o+s/
+fvQHRH96TXwQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAU
+3He+W12Tv6ana2qu6TkcfwjHTiE987Hc5QUA7BulKS/XdAmJ9ePLNZ2v6S0k
++ewN2gIAmELQFtGOJtgnlfr8SX3+lLGoYGfA3gVDXJ/3o9KNl/j5hzoin59y
+lRPsC9i7YIxQF+TZVwPnQFdAL7B3QR+hb/lqq4ycA10BvcDeBTHBlpVn/mXg
+nE5/tHERwc6BvXsfbOnjul6nDs/7PHLO0y3tAeUCe3f/KB/YJj6u6zVexd82
+cs4ZdQL0AXv3Pgi+9Pdb+p/wenItP/B5favegHK5V3s3+Hxeh8ZtRyTSdzP/
+edCwr9cZOeeMfgYMcY/2bvAzv5dYpyONfzS6RjP2vJU/ztxuAvfJPdm7yka5
+BK0rMpZG+VreLZ6J+4gz6LVFVH2YpCnh/F3YuGAb7sneVTaKaV99L7g2XjGp
+H9d1YwpeJe9QV17DM7h578OYTfTJpyof2D/3YO+Geq7nwXczHstJuC+is68J
+89WxTHXQklOwkeqZ5fPQlfJIYe+G82QNUVIbItTxc6QpgzE2peG6c0SD/rGZ
+ecoYa7V2Q1fKI4W9G+yIOtQf8Xus1paQZ5+eZB+P7Y3I/1UnyE/u++r5JuhK
+eay1d4P++OjYeWk/59r100N6soWvlvPm9nRS6Skc3y1qnLjKj+u6sUw+Qbmg
+K4Wx1t7tG4sEXZo11g960riuT3Yo1UvKOhHO+/2azuHfnj40hX3ab7R/bXlV
+2rKorE7NYScqE3SlMFLauyG/h5DnpP4y9I0vE/VkNG4vAeyb4LbEGhu3Sfls
+17Ea4f5/myNamMfrmu/35AddKQgDe/ch2CqTNSqUoVG+nFu60qwt5wA1fegG
+61ZfP+/D55wqozIkwS2M9Q/fa6L7/bRmTBXyha4UREp717V+3svc+hzlU7nP
+88nWc0DcbkQz/MA5D+qceka+1bqiLcNtFOs/syw+ZznANqS2d0OelbLD/YLv
+yziqT1OSxWdE8LhHxj9DeGp1pZmQZ0Ot/TNGHa6bPL7PdWP9fer8Z5QDulIA
+Vvauyl/qUTPzex3fgOvOnSaZu+5B2yr1yHmPNE9X3qj19Y4xJ8/ZuAmx/kb3
+VecPXQFJmGt/R5ryHuweHVtj5a8VfyynsfmTRp1363fpMdNYnJpX51mtHYy1
+Ot4D8NHw3sZx/C/QFrAUpQfVjPO1pnxRn0mdbIyKK3bFrXl2GStxumXXadtm
+TC8amqZpq3Ajsf7KnsGaQLAbwpjqKTrG45fJ8eRKOz7Z6mq8ViUqskbbFc3E
+894n5DvVBhKtSubfGsKptaX62bjE8f8ApMC18bpv4d+PM8c/o+P/0B6s1hdq
+u8KPnFeTrW9lkzYd+atq1421towLAmA2rn3/0Cxb2nXfV+TH8l9bxgG0XTGG
+2BVsq9waryzxrdS3i5oG14311++EsrIJAdiMSFPqTMWY4lvxNN1fyyzxrVQT
+8k2GGnfGCe+EAnfLTjRF2xVDfhA+dqZ58fu78q2I/8u175mLbRSdzP08AFgQ
+j/EzFkXbFawdsW6wJog9Myd2eFe+Ffd5f71bqbIsDwCpiTQlt83NWqHtCtYB
+noNlveG2/h7SnHKujVtp6PYc9mzcvLXiuZ9LNoKf8HHM1wf2RaQpe1gTLOMb
+8a3IniusLQ19+FLnxpRMjcltqH+sxGUyiyNx7drxMV2xmnvbJeGe1NH40Ocu
+F7jNDjWlIpv4ee1bqQfO0T4bPbfLejIlNmY1Mnc/oi1+i3LsCdfGSW3yDMA6
+XDceaw+awtQ0LW5lLuJbGRsHsT30Tp/nofj8Te9PiA3oW+NZnP9W2XFWa1tB
+ItzG7/ycgfatpCKeX2Lt0GOaij50hNus3n+OqLVVfMLyTMZ9XoOa26e+OS7x
+/mbAhkhT9tb/xb6VFGjfynN0Df79rBuNOl/GTPJZPeNaNbU2j2gY97N+aeF7
+5o2Kib+NbOoqd3lAP7GmOJs9rj19tKe52lCRvW9Ffi9fy9Nwe5fPq5nX0msg
+43SihWsYw3N7K81mce0+NcVo6b3humtnrTSFaWiZj2TqmqC5TI1bSUFN3XcF
+aNtFyrBUWzrvqE1T3H3jJrybfEZeMqZsEhQN0O29PhJT0zK7w1P6MdDUuBVL
+2C+g9WWV/1G1jzpB2XaNss8ew9/yjsZGpacpY6Q1uhLsRbnus9x71+7NenIz
+948+Aq6734H1+zA8Ge+1NoOpa4KsEf9vEnss1PG9+caS4rr7AMd7XolGvEyt
+z0t1RWmKHoeyz6sO7ekUzd3taR7ElHBv+LdvsUdQTfvRlalrgrZA5prmrj/o
+JfSV1dp89opr13efouMynq9n5rdqHBTNzT3Fmua6e9NjL670aN+lz1uU7fZn
+moAekxXhH1mDsg+e1DEZz9cL8lurK6Jz5z5/j+vumbPoGmAQT/P2b7Mmt28l
+RmsuGMB190/+oo6dltoCCXRFdK63T4jGbYuuAXrx1PUhNDkLE6jpoxy5x0CC
+jvsFA7h2fcl7+HvSOF75dfuSxO2+jJzTW09c9z2B9cA50JVlePpoo5Iew7Ga
+PuY44vlU0EWPg3B/Rog0QOICmwnf0217SfID+XZ0buCc5lY+oENNbYzqlLT7
+d7BnwlNCv+2RUfMreq7l5rjates2+5Lkcx45Z+g9Tt90buTar1PLCTrrdW6l
+OB4edGno9prq4nHd2P16yhhkYr5r4lcknrQ3ViEq4+z8CyPWFPY51vTR7/L9
+bag7JgLjNLSPWJpd49rY/Td1TOKvFsdMLtUVrXMj54g9cx7y0YCveOpqSp2z
+MAchXv8IenA9sfuR38QvzHeprjyNaVpkqywqW0Ho+dCiYpMNid+hhn6tB9VG
+H6Pj4h95Ucf81LHRCl05jX3PtfPPk8pRMIjfskPPm2GfogjXjS2LY/dr9RmP
+TR7G/Kg9eS/VlUFbRI1/6gn5PBTue/EEe92KiroxPifa+B1Fe8YNxO6rz/U6
+t7eh+ZuB787WFTcQQxuOv00tQ9DE85iPpgA87Su27WjU1D83L3sr6LHSKxXk
+2wrtrxnyU7h2r4jXOZoSvuvH8h74jujcW/CzyHz089R8xO4SXZtT5oPhCfaK
+New7iPdmGUs8HsVato1RPp0mQV6l6wr8K9vA97mhbmy/3HO2W2LdifflBYZE
+8zyr7zt05StYx7IPPHVjnTGPtBHaT5woP+gK1t3uCf3eWKwB2AgVR7M4Fi/K
+D7oCXdkbFe1r/4nD49rY/SQ+RujKp/gtsA907IvPW5TjEuaN9N5v5zAmqlbm
+W7qu6HVBsLn3Q0PQlbulcF1pqDsHUeUsDOjQEHTlbjm4rnhq1yDX1L6bi/+t
+fSqIidsf2o70eYsC5nJAXZE4iTlxWBj/7A95fvB53REhRvhRxdg9pYiHyUxF
+n+OubsV1Ym+QfaLXFAGQizjuQeyQmj7saN7/oFHJb11AMAvoyjIa+ugvpe4j
+rnAdejyOGPD7B2srltFQ/zpPjkuBbT6Pirr3EZpy/+j4lTpvUe6Khm6P/0/h
+PLSTcfQ7O7Em+RjUhHVCS2houn9R7i1rOLehavPS7hvMSR4T7S/j+u+zluY+
+aGiervTNZXB74jFT6VqO9T3HpKLP8QJc719DOiF9Smdapytxept5/SMlXfcw
+ZjwW/DznxA4gIVkk7Kd/TGqCviDlSw2Bo8M2jDzvU+ay7I2G1rchPS9dso/F
+E3SlNKAr/TQ0X0fO1MbRVRuXd894gq6UBnSln4Zu64ieW4Y/chhP0JXSgK70
+09Dw2IY/85nKdY94gq6UBnSln4basQ18JOvwBF0pDehKPxXBR5IKT9CV0oCu
+AGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEE
+XSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSg
+K8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8
+QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN
+6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8Aa
+T9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdK
+A7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6Aqw
+xhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV
+0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oC
+rPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0
+pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCu
+AGs8QVdKA7qyY9x3vuuv6Sl3OVbiCbqSnWs9qq7pkevUBpeDruyMoCXP13QJ
+6d6fjSfoShaCltTX9Kbqk9/g0tCVnXC5XJqLQurBf/3qVxdw3+SuW9d61IT6
+9L7RJaErO+GidOV3v/vdN135v9/+NmOLACnIXbeu9egl1KfXDS73QNCV3XBR
+uvLfv/71V035k+99L2NrAKnIXbeudekcdGULX90jtbqylX0EBrgoXfmHH/7w
+q6784z/9LGNrAKnIWa+u9eiL8q1UG1zymVpd4eQ3uCYY4KJ0he0Urgdst4D7
+J2e9YhslaMp5o0u+UVdXmo2uC3q4BF1hf4r0L++///3qOi15gXzkrFfsUwl1
+4HmDy1XU1RT4WDJzCbry7//xn1914K++//1v9ZK1hm0X/kzS//zv/06q02t0
+5Te/+c3X6/D1eEwmPmQ+zn//7d/9/dcx29SybAXrMZdR7hmXUeBj/DeXXf8m
+S3LWKzUGegx/P4RYhkalp0RjpJo+6wqnhwR5gwVcgq5wfed68PNf/OJT/RRf
+LreZqSzVFdEUGZOJ/cTl4mNcTv3ZXsZsoik8Py9lY43m41zmP/+Lv/x2j+V+
+WmtLrjoV9EN+60P0mcw9v8SfreCF+nXlMVH+YCbX6tdw3Zd6EGsH97vSPuaw
+dhwkbZCvzf27jqfhsnA73evclfx2sa30PdXjTW3PWJCrTqn4ylN0nG2Wd46Z
+S3xJ9uH06coWYzDQw7X6NWwf9LVRtgWWaAqzVlf4uqIrfTYJ2y9DWpgTrdGs
+KX02ifw2a/9Trjql4myf1LGHcLxOfLkv1K8pnLbyGYOIa/VrpI3G/oA1881r
+2o1um0NlEH/Q3nRFNHpsjKbHQ5bkqE9BP+T3fVHHTvJ3Yli7hnSFU2VwTXCD
+a/VrZEwhYw1uy1M0hftibtN9Sbf5vjTmW5D4PE4cA9zHWl2J/dFz01C5+L5x
+mfieDnFwXal17H6IYzkbaQrDsbxjulIbXReMcG2T4kf72tbZZuHx0JSxj24f
+cxN/dwhpm2P+h7Vtc03Zx7Qs1ug+ptyDFOSoT66N3ef/PwZ/SmN4yTFN4fRi
+eG0wwLVuN+JbkXjbW+1C4PETt42+pNtOX+qbdxKkbY7N9cic0FLfp4W9otdX
+Ddkz2m9rvbYzR31ybez+Sf3bKq7e021dQUx/BlyIXxL/7BQ7fgpLbYkp8Xl6
+nLQn34rMMesYoBi5v1NtwjVkqEs6dp/HQ5X+2+CSDd3WFU5WYzAwQLBTv8WY
+xb6RpSzVFWmbY2MEsWes52nnIvYe2zN9aHtmi30oMtQlid1/U8dOYr8YXDKO
+3R9K975H2V2h+xfdd8o4Zs34f6mu3Gqbes21dX8/FxmbDemx2CrWfhUhQ336
+FLvvujFyPuHl9L4It9IW+zSAgAuxj7HdPjQfM2feeamujNlKXBZuu1vEqs5F
+23l9yPzz0nigJWSoT3IPHqPj4md5Ucf8yrGR3hdhSgIb4UL8Up8PNR5rsNbM
+WY+zRFfG2ia3RW6TUzWFNWjLPe9k3rvPFuHycrlvaQr/fllDNGSvzWHjuvSo
+dCWO3a/VZ2wjP2iNWUi8L8Kt5FdeD0zAqfilPttAt3GJpZ/DEl3pi6Hldsia
+JvNVt/p6/nyKjyY1EkPLeiw2Hv9f9OaWTsj8FP9u+c7YnNkUNq5PvbH76nPx
+s7yH/mytL3Uodn8oNSuvByYQfPXNj37849NYXV/ad8p87BykbbKG6TnssTi0
+GNEd+e4W6PhgWYMta65Z46aMe2LbSnwxa9i4PtVhXO0HPn8I/pfXBJpS0TxN
+4fTWlxGw4RLtm50LPVeSYu54S13R/qglsO7E2sP6tHZNZe66ZYinj/1V4qRj
+Vvo+Bxtx2YmupN5bd0tdmRIfPBcu+9o9IHLXrQyIrkBDMnPZia6knoPdUlfE
+x53C18rwGDCFRuWuWxmAruyEy050RWI/UrXNrXRFxwevHb9JvLPci7Vz0rnr
+VgagKzvhsgNd0W0z1d6SW+mK3h8uVVyKXk+xRmdz160MQFd2wiWjrnD7YR3R
++xyxFvCxtW3UWlfYzyzz31J21oJU65X498u+m0vJXbcyAF3ZCZcd2CsWbOlf
+sULmqpeSu25lALqyEy7Qld0ytAfnVHLXrQxAV3bCBbqSHR7zsB9Fj/14nDW2
+38IUctetDEBXdsLlYLoifg+JhWFfzdRY3Vzo9ZSyDmtqnO4YuetWBqArO+Fy
+MF25V+T9Qyn3qcpdtzIAXdkJF+jKYcldtzIAXdkJF+jKYcldtzIAXdkJF+jK
+YcldtzIAXdkJF+jKYcldtzIAXdkJF+jKYcldtzIAXQHWeMJeYaUBXQHWeIKu
+lAZ0BVjjCbpSGtAVYI0n6EppQFeANZ6gK6UBXQHWeIKulAZ0BVjjCbpSGtAV
+YI0n6EppQFdAShr6/K4Yfg+V1LNzz+fPfRmBuwa6AlLyRPPff9fkKCgwBboC
+UsLv5ZyrK2vf5Qn2B3QFpIbHOlM15T1TGYEt0BWQmheariuvmcoIbIGugNTU
+NF1XnvIUERgDXQGpeaDpulLlKSIwBroCLNBzy0PpnK10wBroCrCAY1Ju6cpL
+ttIBa6ArwIJHuq0rda7CAXOgK8CKW7rykK9owBjoCrCC69SQprxlLBewB7oC
+rGhoWFewJujYQFeAFWMx/T5fscAGQFeAJRyn36cr4NhAV4AlHKcfawrq2vHB
+swaW9O2bgNj94wNdAZZU9FlXsC/C8YGuAGs4Xl/qGfZFKAPoCrCG4/WlnmFf
+hDKArgBrdEx/k7coYCOgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0
+pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCu
+AGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEE
+XSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSg
+K8AaT9CV0oCuAGs8QVdKA7oCrPEEXSkN6AqwxhN0pTSgK8AaT9CV0oCuAGs8
+QVdKA7oCrPEEXSkN6Ep6fO4C7AxP0JXSgK6s58s1PdHHPZT7CVo8QVdKA7oy
+n+qa6mt6vaZ3au+hTqDFE3SlNKArt3m4psdrermmM/XrCHRlGE/QldKArvTj
+r+n5mt5omo5AV4bxBF0pDejKB+Ij4bHNEh2Brgzjqb0vz3mLAjYiRRtCQpqb
+zvShMRWBI5K7fiGVndjvXRM4Gtp/cCo4pW4vuX/P3lN8v2oCR0I/49Lx9OFX
+XOqr1QmMU9FnX9aXnAUCSdFtCLQsmVuGrsyH76+28cD9w/2DPNO3zGXZOxXd
+joWDrsyH9VvfzypraUAK9BjoKXNZ7o2+2H3oyjJ4Xkju22PmsoDlcB+hx7bv
+4RhYjqduHB2YDmuJ1MUmb1HACBV99KWNSvzsPH3U/diORx+RFmj0PGqCruyZ
+iubPmdYZygmARvtufd6igAge70/xJ2rfO+b1wB7Q822w9fZDrCn8bx7v+JB4
+nNNQOx6qNi8hAMNgnnmf6LEP+w2h+eCegK7sD0/tc2F7EpoC7g2Mg/aHnvuv
+8xZln7jvfLe6psdr8rnLAnrRftsmb1FAQI+BoPWBoCX1Nb1d0yUkn7tcoBdP
+WCe0N7SugIirljRBU95zlwWMEq9BbAj9ZE60rlR5i7I/rnryEnTlNXdZwCis
+IX3ryE/0OSaL/TE8dqpyFLQQGsIan0GuenIOuoJ7s3/i9SVTEva1tMET7nEv
+Vy35onwrVe7ygMl4+rw/Bf+7z3a5hHNBejD/3wPbKEFTzrnLApLCdk1Dn/0x
+IB2eoNu9sE8l6ArsuGNSE9bkW6HjV+BDUKgx0GP4+4HnmsMckaQn6zFSGI/J
+dZ95/jscr8Lfp5Dw/OajY19w/9JQUeK9tkLbu/vnE9qx6MpD9JnMPb/EnxmU
+QzRFx9E8htia96AnZ/UZbM556D0PMee3Hr6fel5udX0M9f39CPFjwQ7gdnqK
+jj+E31hvXJ5GacdTrGlqzMbpEHFh4V5vMTaBf3E6ss9hE1JN7dpkbfutHlsG
+e/x0JF+Esg+e1LGHcLzOUB7RuXPfPQ6aLrrSbF2+1Kh7/baBtkBXbuNp3t5M
+PNexuH8Lfee7qvN37/sKdbrT94djp1y2gNK53rmpaNzWbFy85IS+SuqVpbZg
+HHSbhubFBLHdsuh5hXH/SdXlb/7Neyf4Lr7F7offer6lKaEtNCtSPZKv3OOh
+cw6lK0y479ba0hDW3Y5R02c7hG14T+37siTxuUv15CEa60s6jNa7Nnb/RfmM
+mgnf8z33ZU7qtcNjnRs4Rz8Tv/zX74sNtKUh7GE5REXdeZ3kcwKundN872kP
+70cY/wiunV/Rcy031x0a2ivfdG7k2q9Ty3lvGGtLQ9CVIbQfNqndEPpgPdfQ
+l+5+Xllw3dj9esoYZIMySZvqHWdGZWw2Lt4mGGpLQxgHDaHXQVRrMwtjndp1
+4yJm2e73imtj99/UsVOu36p1buQcsWcO4TcfwkhbPGE+aIgk98W1vpO+sc5Q
+8kl+wU5wPbH7rus38RuXR3RuyPdSHfVZ9GGkLbpfbhLkdxRS6spTaFtTtOVw
++q5+22N0XGy3F3XMW4+NlK3UDHwu88+m5dgTBtqi35covoRqZZ5DcFn9xGRV
+hqmY2HHh+T2N6Eqd8nq5cd3Ysjh2v1affQkabB4zP2aLqPFPPfJ96StOob8Y
+PPeeMNAWvU5OtydJa+M9Pc1/51/cnquQT03d+d1byHt65sZeaTsuGa6NeezT
+lN74rHvGDcTuq8/FdngP98U0Rs4NxNCG42+3yuC6MasnlddRYqJTawvPP4y1
+86XPu0+zbiWe12uifJqe895onAdq54rj/G5RU+J9mSJNee+xW+aWcfcEm6QZ
+8lOEe/IaknncrdK5N2VznMLx3jJG3+/MXbvuXNch/LsG2lLRRzvSffWasYCe
+q22oO7bROjbH9tUxwrfavB7jZY1b7dEUiWW/HK1e7hnX+nSahd/vW0ckYye/
+tnx7wUBbUiGawvbCUD/U0PyxhqfpWqHLkI0hTQmfiS1t7lcoHded51lkG7me
+fWFcG5d7iDXPwhxt2Uh3PE1r+9r28BPzbtR3xn7LAy2zh5Iypinh80PWyT3i
+lJ84cb4vR/SNMVO0xX3M4W3RxmQcdWv8pNu+n5i3+H9v+VYalXc1Me+k3NKU
+cA4/k8PNLe8R18bRJLvfrt07xqfKc2/c0hblJ6wMizHHp+Fpvq5M8a1of20W
+P/0UTVHnwVbZANU2Uvri2d97mDUXQ4xpi9LrxrAIc3wa2nc7pW3pcdOYZkkZ
+2G7a3N80VVPANrjP67HOYUxUrcz3sSS/2JC2qGOWfkwZA01ZqyfvO5paHq1D
+Q3rhab4NlAxoShmENnaImJU59GiLXo9hGdep55XH0GOVqZovOjTkW9F5bm6b
+QlPKIDznT/1mmG+qMhRpUyJtidem3PJ7LmWqb6Wm+X7VMR3S75Ld3DaFppSB
+es7P7vNeL4fZh+sWrhu3vMW6WWn7Y3mzBsh4aaotqX0rdU9+0BRgjhteg3G4
+tV0a165rm7J+1qINis90TC/knDk2k/atVOq4frdGPSO/JEBTwNFx3XdDTE1V
+4mJwfmyzDM3FaE2ZM1cjvhUdf9SEa3Fem7dnaAooiWCzvEzUFQubpaa2vbOf
+xYdjMvZpFuQp46tXldeZMu1zt1ZTQh/gg23ZyNyC667Bl/Vwe1mbAYDU3Sl7
+lXmDy1f0MRY6qfREy2JftW9FbJ06QRkXkVBTtPY/u/bdF2+uO47f07ovsGO2
+7q/cRxzQve77wb+/oQ8tqXIWJOXYx0XvpwnPu1Kf630UDh/TCdaRs78K1+3z
+wTQp8j8yqf0prjtX9xI/Y9d9RyDWEIFJ5OyvXPddnZLgdxwgtaaEPJ/Vva8G
+zoGugFnk7q9cu1eXdazc3ePad9smm/dxPftG95wDXQGz2Et/FfRN6jjG8QOE
+cWoqTbm5x1Bsz6a4Ljg+e+qvgu0i7/SsLK8FOnsMDfrMo3EwxqjgJnvtr8I1
+i1unuTWu511dPeect+hTwHFAf1U2ymfuBz6v8ezBXNBflYub9n5gefbNhkUD
+dw76q3Jx7V7Zvf2F8ucXsxcZWA/6q7JxI+8HVv3JqKaE815DXjxeRpx/4aC/
+KhfXjUl6de0eoV9cu7fF6J5YLrxXImjKtz0Bt/kFYK+k6K+i71TwwdwHrhsL
+qW0O1op6wve9rhtBp8S2zfpOR5CPFP1VT55vY2MqsB9cuyZsUT8QbN04Llv6
+oiZJIcHdsba/6smvkXGTQXFBYtzKuGbX/x5PvyZPcP+s7a+ivB5DnWqgK/vH
+dWMhfcJ8xV6pUuUJ7ou1/ZXKp5I8oCv3gVNxjonzPWEMVC4p+yun4umgK/eB
+a2Mhk83dBJu1mPdLgM+k6q9i3x10Zd8En3yj+pRLqAtr94Wqgq2C2JWCSdFf
+iU8lOgZdKYwwr/hpzx5QDqn6q9A/vQRfrU7iC/Yp/YFgv4RnXvUc99uXBtwz
+7vM7lntT7nICW4KmvLrP7/HEmAgkA+OgcnDdPQbjhHUfIBnQFQBAaqArAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALCM/wdxj3iO
+        "], {{0, 
+        344}, {278, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{101.49999999999989`, Automatic},
+      ImageSizeRaw->{278, 344},
+      PlotRange->{{0, 278}, {0, 344}}], 
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJztnT2S67h2gCH7BQ4VO5LjSTqfhPYKup43gDdVvqm7nl3lehl30EtQMnkv
+QUvQErQELYEWGkQDpEiKPwABgt9XhZnbpAQekcDB+SP5b3/8919//ZMQ4n/+
+5fGfv/7t//7973//2z/+8y+PP/7jH//7X3/88+Mf/3oQ4i+qCQAAAAAAAAAA
+AABInoM4Pdr7oxWxRQGACGgdIB/t+mhV3YrYYgFARA6irHXBPbYoABCZgzjX
++uArtigAEJmDuNX64CO2KAAQkYN4c2IHp9jiAEBElE2gdcEttigAPSi79fJo
+1aPd6n+rbceYQmWJihloffDpoS8TlyyXCwaBeBd6PsnIckyh6mkq/i3jiZUh
+1ld4r/8+fucc9dw27WOUL7FEH2i/xRz38zsPqref6r8vdSPGsQyzzm4pl6Ti
+3Ermq9Byt/XC8rUMRD3/jD44tvaZuX1+2tff3zx9YHWBWwfxXtdG3Gs9cHP2
+nSf1Dy5mbqn2FlmWuSi53d+h2ntUiXJAr7vV93xrbj/W81BO7G+Zv2C/X9U2
+SVMXWd+m+tYhMIdS2DlURJVkOWpdML+F+NdS7Hr84Ww71tvljP6W6gOjn26d
+8QxtM1SLjgHqvOaiDxTG/1FNxhVlw+h531xr9bbL7LV3uT64iqFcR9O/mXcM
+UOfWzJ8c4vPKTzC/Bz9yLto3tzXK2oe/vdQFNt7Y1Uyd43ngM91jUMcNzVyX
+PZ9BHyxD2YFm7lwjy+IT85surz4IPTTn7nsdLyhHfM+dk3Na0dNvUz91f6Z8
+2Q/04a6jucXf0AdLsfF6N3b/Ogel7YhLTzP93AY+021/uPqp/9hfo+XcHyeh
+4wGmnert6t9u3E21nO5TKQT+wjKaNcpylK0+rt8l9Qd34dZBPO93ZZzef75I
+0YwJvGrKT8ghbmAoBfHEZdga5auz7fJjL8zvd0n9gZ7r/Z8x9sOtNwaxL9Q5
+aK/7Q03ZVGUMQQOTQz1FXLpqlJtxgWJmv3P1wcegLmraBvNky492PY7S7aXT
+1H51PtU1liIvm8DFzTfm+hvD0q5RttuN/392thWjfYj5+uAy+D2bhxwnR/64
+eYKq/nuvuPUUOcVI16FZ09OuUZbOvjehc4vjYzTz9UH/2m/9BDmin+NOYgtu
+vEDGFSU6UuQZJ12Hvhplu9+s1fd6XR7vk83RB301h3r7dbQMWpfdBmMQeVAI
+8msuak1z73GSUaXZGnrelL1+uF5jv+o2LT5j70/s7rv7O0Y/Xes4gslLfo7u
+x9g5Rh/lTSkY+21Kgf+UBzZmUXroa2/6oIgqSVq046vKp1K+bilsbNU0pS9O
+MYSEAZp5g+W5ov3pA+Jnlqn5V9V4bkJKuPFLP/3tQR+4dceM52cK8Wwr7Kk+
+a7vYOgg/cbF96AM1doknjqOom2t7nkQzR0leIhVsjbKfdW4f+kBh4uncxzGf
+QjR1QhFTmF2j8xDus45uwtxHsazfvegD19aF+bh1XdgIubEPfaBsX8awP9za
+BciJfegDt16fPPty3PMJOZG/PnDzaWpdIy6+HPRBbuiaynfhvodym89fPonu
+mLh5h4ob/5KrSpYvKgaDPoBUUGt8KaY906SMIGeOnASxWUgHZQO469OrpnwE
+ahL9UQh0LKTBSTy/e8x9polbc6/iBnJ9EbOnEOiDuXzVTQruBfGBGw9QvkIR
+VZp9Ugh7Dc5xRdkc7XiWuX9M2a/EuadRiKYPcIopzM4hXzOPtj7oui+kFKxz
+Y3DzhjKuKLvHvRbYCON5pQ/aTfkWql5mi3m/0LjnkjUpLifRHLdKJ3BNXjNV
+H7Tj4iYmdlpX7CQhx5UWUnSP15LW26bkx1811ddnAr8pVnPPBaSBFP7GN402
+t+FPpcNJTH/GEo3mqxHTTpeibu13XVxF8z2Ze21T6uiGxr+pYYj9e2I09xyq
+c4FtsA2kaI5j7iudH09U3yPP8GyHUne8Ldp2gowqTXzG6gO1BqpYIePdwljK
+A3S6pU8f3ITNJeILPyMFtmZOuDphzz6f0QcmBsA7LV7jPhtdtXNcccATxIH0
+OrfH3z0Xda7c+xfRBfmg7GBXJ9wEtjH009YF1CHmh5r/Sg+41xidAG0YJ/sB
+vQ9DYEfuD/xC6IM40z4hbgxtyEPtGynIK4OGOhVQUHcGjAFwYW3YL1JgI8Iz
++I77gxgSDEFseT+QY4JXkHveB9SgwFioTcsbri9MhfUjT7D/YC74l/lBfAiW
+QPw5H8gfgQ+kID+9dagvAZ9Qv7ZduHYQAtaY7SEFth2EAx90OxD7gTUgRp0+
+5IZgLchhpw21I7A21LilCdcFYsE6lBbYbRAb/NR0IK4DKUAcOz7kfSAlpCDP
+HQvqQiBFqINbH845pAxr1XpIgU0G6YMvGx5iNrAliHWHg5wObA1y4WGg5gO2
+CrVyfuF8wtZhPfMD9hbkAv7ucojHQE4QD58P+RrIkXZtAvny11DPAblyEs2x
+TT2dphDdsUFqDyF32usda54QF2FjrcYXkAJbCvLnJJ71gWplPJGiUojmeVDx
+gbK1jVgL5EyXjWByaEU8saJgbIO+hi6A3DmJ4TnwKfaRWy/E8Hm4RZMMYF1K
+8XouFJFkW4tXtgExRNgLav13a5SG7OUcbYVCvP7t+AywJ0oxbj4ovZFbDkLZ
+P2P1AToB9sBYG8G0L5GHrSDFNF1g2iWCrAD9HMTp0d4frfDUYymmzQmlP6Sn
+Y8diqm1gfjc1CBAfrQPko10frapb4an3qTaCu1aePMmwJlLs57dCzhwea7nW
+BXfPPZdinv188yzHGkyxDXKwhSBXDuJc64Mvzz3PsRG2eJ+fFKFjJf79OYBu
+Do+1TeuDEH5sKcbPla0+F2iMbTA9lxLWnwN45vBYi+1YOwU4whQbIcTxvVBV
+1fHRyke7VZbrr1+/zuL171Kfma/nwvlzAE2UTaDHWkifvRQbtg8e8/7t0e5V
+i/v9Xp1Op1dxkGKxAOH8OYAmaozpsfYZ8ChDNsKXSPg5jEO64O3tbUgX+LtX
+I6w/B2CxvsJ7/ffx20fVNqppHx58iVI8z5my3pfkcxhrH+HW1gWKAV3gxyYw
+hPfnADR63puxdmztMz7r+WnfPNrPFJet/Uk9h7HWBdcuXSCl7NQFf/zxh3/b
+Zh1/DkB8+wh6rF1a24/fsauD9xy56m8o9662u3Msmn08RRcoW+F6/f64/3if
+T3/O6vhyuWCQHTaP9eFsO9bbZaCjvqotiP5swce8Pnfpgs/PzyddUJZlI6zg
+XRif/twSfaD9FnPcz5/xoXOin99rim7pxTi2LPta6HFlxtqbs+3y83c82jm8
+1e6B7NMF5/O5oQeKoqhut6fQwuVF99Pw7c/N1Qd2Prl1EO91bcS9HjM3Z18S
+8Z9vtiz7mujzYXPa+rzdEtAFBlcnrFKz+JjPH1264Ovrq6ELlM/Qg/QqkG9/
+bqm/YL9f1TZJUxdZ36ZKaBxptiz7Gtic9rnWl/cE/crV3l2k5nLXBFdxgePx
+OEYXhIgl+vXnlusDo59uoiueocdRtegYodiy7GtgbSTXXkqt/m2Vdxs+5vL7
+GF2g4oY9qPoEv3KF8OeW64Prz5zq3l8kO6e2LHtomjlt5TecGn+nRdB3H1cj
+aw+VLlDbenSBf7tlrj9n441dzbUJ+z7TfW7HjJGlc+o5Tjq1FdFk3zI2p311
+tl1+7IX0CPIu6SFd4NYbKb2wqi5QzPXnmuN6Tit6+m3qp+7PlC/7GZa9XCh7
+9/lZQ/Yt05XTbo6jIp5wvXitYaxG1h4qf6GuLehCLv5Vfcz157Qdcelppp/b
+wGe69Zurn/qP/TVazu7vh7IPwsu+Zdo5bbv99nTe9DWSK0vYh5caxmpk7WFE
+XRDGn1tWf3DvHDN2vyvj9P5DsmXZQ9OMo7Zz2tLZ9ya0L5paPlaKhTWMY3SB
+airP2EPp8fc8E8qfW1Z/oMdF/2fMGnx7Glcx2bLsa9CX07b7zbi7Cx2TTTEX
+O7uGsRpZe6jqj3oIrx9D+XPz9cHHizFzWixbKLYs+xpoG2DI1zrW4/ErUV1g
+mFzD2KcL2rWHSjdE0wWKUP7cfH1wGfyezeWNk2NNtiw7TGV0DWO1vPZQ+Rjh
+bcmQ/tx8fdC/flpbW47o57i6f75UdiOz1iupr5Ewooax8lB7uIouUIT05+bo
+g766Pb39OloGrctug368b5bKbvSt/rz5zl3wHIqUGaxhrFKsPRwipD9n83nd
+fXd/x+ina+2Lm7zk5+h+jJ1j9NFaLJVdXwv3HgcTayjDCQ0e6KxhrFKtPdwS
+NmZReuhrbX2wTPYuO0D3t9/7ordDo17p999/v/bpgui1h1uhGXtffi7W1Ae+
+Zdd9FrWtsa+c5Hb51gnKD+h4NsE3SdQebgU3fumnvzX1gW/ZU3seAIzgt99+
+k31zPInawy1h6yD83NOyrj7wJ7uNJS6vEYVVqVKvPdwSts7Xz7P419UHfmXX
+fRZ1v3d8hvSptlB7uAX0uHefF3QT5j6KZf2G1wehZLf9m5xt4aU/CEKfLkiu
+9nDPrJ1fCIGtGyeOkCjVVmoP904e+uBd8C6MZKm2VHu4d7amD0xdYnPb+Wkb
+JEG1tdrDvaJrKt+F+x7KLdjbtr7xS5j7xtAFSVItrD1U2y6XSxH5Z0Dq2Pc3
+nGKLAt0M6YIxtYfO55J6lzQATKPy8NzDX79+JfcuaQCYRuXvuYdJvUsaAKYz
+RheI8bWHUjR1AvesAWyEKkztYfR3SQPANPp0gafaw8nPYQSAOFTr1B6Ofg4j
+AMShWrf2cLV3SQPANKr1aw9XeZc0AEyjivfcw6DvkgaAaQzpgpWeexjkXdIA
+MI0qnXcue32XNABMo0rvncvUMAJEYowuEOs/91CKpk6ghhEgMFXazz2khhFg
+JaqevGJizz2khhFgBR7z+ckBSPS5h9QwAgTmaYKn/dxDahgBAjKkCxJ87iE1
+jAABqef2lt65TA0jQCAec/u8wXcuU8MIEIDH/D5t9J3L1DAC+Ocnbr8hXWCg
+hhHAH428/p9//nnr0ANqWxFXzEGkoIYRYCmddX+Vvr+xqFsKsYIxUMMIMB8p
+8ltTqWEEmE7OPjc1jADj2UNMnhpGgNfsJWdPDSPAMHur6dvb7wUYy17Xy73Y
+QwBT2LM/vYd4CcBYiLfnnU8BGAv5eIsU+dVbAIyFer1nOCewR6RgLewDmwn2
+BL7ya4ipwB4glj6ePedcIH/ItU9jrzUZkD/U4s2D8wa5wTq3DOwqyAn84OUQ
+d4EcIE7uD/IysGXIo/tHCuo2YHtQZxcOzi1sCSlYw0KD7QVbAB93PYjNQMoQ
+A18fcjeQIuTI40BtB6QGNXRx4fxDKrA+pQH2GaQA/ms6EL+BmBDfTg/yOxAD
+8t/pIgX1H7Ae1MelD9cI1kAK1p6tgA0HIcE33R7EeCAExK63Czkg8Am57W1D
+jQj4gtq3POA6wlJYV/ICOw+WgN+ZH8SBYA7EpfOFPBFMgbx1/khBHQm8hrq2
+/cC1hiGkYM3YG9iC0AU+5X4hVgQuxJyBXBIoyEmDgloToGYNXBgP+4X1ALrA
+Xtwn+IvQB/GkfUE8GV5BvmkfkG+GsUhBPUrOSEE9GjGSaVDDmCdSoOsVF6Fj
+p8pOkgL9MAZsyrwoBL6gQemDqtVUbPVT6PME3RBzygNixU269EG7qc8o+4kx
+34Sc1LYhl/zMGH3gNnX+voT2LU6rS5sW1Kxsl/a1o9ZMM1UftJuJPSgfeo/n
+kxrG7dHWBea6XWgNe8lH2+N5vfWcC7X9LIjDpEYh/I55Gm1quwjshlQ4ifjj
+gbafdhPdfpiyxU4CUsBck0tsQRKja9xObSq+SP6hGymIYaeGstPQB93M0QfU
+J0yjndeSUaUBKey1OMcVJTnG6ANl/6rzttccgg8KgY2QAu18ELWlTfr8XGoM
+/OPmuNCr66POuTveb3HFSRJzftT/iQGERflYZiwWcUXJEjXfi0cr66b+/Vb/
+X41t1y6oBGO9C87JeqAPwnASz/eYDTVl/8oIcgK44C/4R/n/U2rqlB3MGgix
+cXNc+K1+UPO6ve4rO0HWraz//qz/jR6AVCiEHbefcUXJBjcewH0jsCUKYcdu
+GVWSPJACXQDb5SSoifOJmzcs4ooCMAvXvj3FFWXzmBjiPbYgADMpBTauL7C1
+YOuo+d++t4mY9zzI1UAOtHNk7v1hqkZcrXf3+v+mZhyeceMHp1WPfHgc7yDe
+H61Y9biQK+37HcfcT1bEEDRhSrHmPUlaB8hHuz5aVbci+HFhLyjfoRTdz1rr
+0xUygpypUogY+dvD41haFxDHhFCY+3DasQS17vFM927c92St9y6lgzjX+uBr
+tWMCWJSuUGOPeHoT95wUqx318LDntD7Y6/vcID7tvMQpqjTxcWOy69nth8dx
+bezgtNpxAZ4pRQz7OD3asdhytSMrm0DrAnKcEJtC7OP+BxNLMc3ES9T/S/Fc
+v7FeTZeKGWh9sPx+NBuXLJcLtjKHh89KfiU2hchbHxRi2rN91Rq9bmzV+grv
+9d/H7zmh57ZpH6N8iSX6QPst5rif33lQvf1U/32pWxg7cok+iC37ErTc77Xs
+5+/fYrefa7m/fsZHWKTIVx+UYrweUE0902DdWm99zY0+OLb2mbl9ftrX3988
+fWDnk1sH8V7XRtzrMXlz9p0n9T9Ohnn6IAXZ52J1wb0xDrQOM7K7+2Rgidx4
+ek45x1I8r/vm+SWqmZpN846P0/oiClFf9+r7uje3H+txICf2t8xfsN+vapuk
+qYusb1P9rGO+WOovxJR9Kfa3X2u5P5x9R0efhY5zu7Z0LhSiqQvSfU6MXdPa
+1/86ay1Yrg+MfrqJrniGXsuqRcfoP/ZSfRBP9qXYcdB93e1vCx1fyVEfuL8p
+ZV1wfFqv9LbL7PVruT64/syp7v1FsDm1XB/Ek30JzXHQ7cs0bZ8ioDTu3Mnh
+PuntPE9S+7fWBtR+8O2lLrDxxq52/hlX/Z/pvs469jbspy6dU/oYfXJZW6nv
+M8P9BpX9cDgUj1YuaN3y23HQX3+ynj5wn9VeBjzOWhRiC7aBojl3TUypHPE9
+d1zPaUVPv0391P2ZZeOy+f3prb/f4LLXc7pa0Moeucw46K9Vt7ZTaDu+XZOX
+VpxlOoXYin6zMSI3/v06XqTtiEtPM/3cBj7TfY1d/dR/7K/RcnZ/Xw7IZeLo
+197P9PcbXPaA9oG5ZnJAdnNu1ri/xc0xqHO15XcPFmIL+qBZoyzFGHt3XL/z
+4wd2zHVf/6aM0/t/ffz58YPYss+lOQ76/DjXnyhWkErJ4d7vaGr0TH5O6Yut
+6AjX3kn3Hi1bo3x1tpn5MF/uZfUHr2xyswbfesfuEpbVH8SVfS52HAzZPsZ+
+WPPe1y6d0H52wlYwv6OMLEc/XTXKzbhAMbPfufpgeFw219d5sr2WYa4+iC/7
+XOw4KHv227hIHD0mRbde4L58n9jx+d7abtaCs7OtGO1DzNcHlxfj0sT+x8kx
+h/n6IL7scxnSU1qP3esWO67n3v8TW5a8aNbFtGuUXV/xTejc4vj62vn6YGhc
+nkfPJy3vtGPb787VB8tk1zJ/CHufQP9nfeLag90yXV/qAq0zzrXs56R8IRhH
+X42y3W/mxb0eE+P18Rx90Fe3p7dfR8ugddmtc3yPk2O6Plgqu513V+f4TT8u
+FF01h1oeWV/7r8H5rdeL84/9aMYLbAt97creca/HxFfdptlm9h6/7r67v2PG
+5dVZJy/19nH9mHFr9NEc7Hk5TfjOMtn18aTz9+t4vy+sH3MWzXswx52D9r2a
+1rYswggMu8DGLEoPfc3XB/OOt0z27vsczsHnlY8YZ1tnWP8D/x7m0RyXy8fR
+mvrAh+xd67D1ucLNqzH1lNP7LEVK93LD9nDjl376W1Mf+JXd9nsWoZ9dZ20Q
+PzUy9h0exBNhPjb/7WtcrqkP/Mqu+zTPnSi89dl9HFNPWXroqxRuvTv+AszF
+jks/8fR19YFf2XWfn09xOt80Y5b+6n7H1DoCdKFjT+7zgm7C3EexrN/w+iCc
+7O9B/W9te5g8aPUzd/U2P3a+yZkCpMDa+QVf6DU77fvjx6DP/5buLYCc2aI+
+MPUez9tPi22OtdH+DjkGSIOt6QNbn/gpms+3Lzt1REroeMFba9t1czoM8sP6
+xibO/TxWU6Tpy7ebjC3eIFb2so6pbOOcA0AYXj0TEwAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAVuH/AUI5SMQ=
+        "], {{0, 282}, {260, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{99.63750000000022, Automatic},
+      ImageSizeRaw->{260, 282},
+      PlotRange->{{0, 260}, {0, 282}}], 
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJztnT2O5Ep2hU9qZMgs7YAD9AJKO7gjb8YqjMznxAyg56owGkAYL3bQcp9V
+stsp7aC0gAZ6CWm8BZQhQC6Vt8goBpnBzCAZv+T9gHiv86eYN5M8cSNuHJK/
+/fO//fHnvwPw7/9w+c8f//Qfv/vLX/70t3/5+8uDf/7bX//1z7+5/ON/L+3/
+Lo2f7Hm4NLo0fWmq/7cgCGEgdBpLzfnS2kl7R6fzHPEIwl54Raentwyf/Y5r
+XZv249IeM8QkCHuA9Wy0lDpHErrc/HRpzxj6GNPOGWIShD3wFYOOKG8oH3CO
+tvP4S95wBKFKNMrSNTPVdpM1GkGoD3vsW9J8VmOIS2eNRBDqosG4Dl0SDYbY
+ctT0BKFWuOZc8jxWdC0I/jQYa5pzdWl15waia0GwUejy75vV+LHGeF3LtKcc
+Qd5BQebXgsBw3cvl4ZprnKdL1DRT2vqbIOSA9XnLvzX1e2iUN/a2yemXEYQS
+aDDWNOt2moc5lxPq0Uip62+CkApbA1wPq0W7t9AYvtNz3lAEITkNyq5rr4Vz
+9B6/lyD4oDAc/1/zhhIce469l3GIIPigsd+68dQnznUDhcEvbmoGpgnCXtDY
+r66ZJXV+fh+v0zc5AhWEgHBNae/1Jc7LLj9NjevyguCDXV96zRxLbPi7agwe
+utf+MTfO09O8LtoWasauLR2ZBuO8LnV0oWZMnirtXMtc2Oe06LyhCMIqOB/J
+eU9jGoxr6IJQG3bdbG/r11uwc7Yg1MR0fZeyRlMW9jxbEGqBMNa0jMHHiK6F
+0uA5s8L42gj2mo49xjRzSKn7jim3lni6jLNOl/nT6bIvT5f9errsv5N4aXaO
+gr+/yqxtNRniLBlC2ddt6zhd9t3pEuNJans7h49BXz3zsbBXf9lWCDWsc50u
+47BO11Lv3C92XdvMl22/lH2OQ5M2tOog1KHrtm/ii9snPDe2x946azT106B0
+Dx5redC11Eb2iZ2r9+7xTgXPU8pd/+Oxd6dpWcfYL/aajFzLKwwKY594Wb/r
+UDPbXiM5Xb5rV1tvtgcmBMTklvLWZOpmeu8DjRJqE6y/YQy+vb8Z6m8UIK6H
+yWMKEuMxES9zHPgYna71T5tKHlWXX1mH79ZzTT/nPn+ufXXvuz/3XqvrTrNf
+rbFD26+tN9Y2TfshdYDF2ONw+e3Cwr/nvfXDtPnodImn08rL5PmHXs+vizS0
+NV8Pun7vdf2j981QP7432pZagD8K42OMcgazYxoM12SY5vC08+9OP+1HPh4/
+/3Kldb/tbdW1+fvX/t8Pk9dfLW03qz7jWNjXOhFdp4PgvnZSE/2Tu3x4vb7V
+aVqv3OZWXZt+5uwcJ4xz9rrPOA7Tc7FE1+kgzHty486DuvFtN1/tHj/0+VBt
+2OZ6XY/7GXcMomtfGsx7wClbVMeBMPaP2/sirrZt72in6R9emu5qaG8z7R1D
+bcv9nvntGs3O12yHeoCMw+eZ1mj533LvyLQQxt6+6dgpnjdo0MezpUft8Xd2
+zlze5rd736Mu56fcY6ppM6fTEF2nhHDt2Z3WOsKfBzb2jn616lH39TKsJbva
+4HGZe497mw9WPO664XitXW/49nvGvj+eXYPVEF2nhOD24iuMtR32PKupd3Q8
+t11/7sf69WvTz/iMwd+dNTVhuoZq948aouuUEObPsVEY7ycV7FNd3tFBk+vX
+htfr2vQz7rHJOFfLOWfX2PNn17GiIbpOCeH2uXP39tdy5ryj47G5/fyjd35c
+r2vjbVMzr7/e1P2xUbh/jGiIrlNCuH9O7K3x1XJc3tHhtfOVfrrxbzxdj/uZ
+xvH68yJNH2uMruA3X9MQXaeE4Heu+1w9ZDm3ct84Zz/3mqYF216ja/X5mdev
+mdq79thO08d7FI/pkvqqhug6JQQ/Xc+tXyxnzjs6vG6vEbvfM7/tNboeavHd
+3+t+vn3uY7nfh43PVTmCrpeuh2qIrlNC8NM14/IbxBlzdmtSTZRtX3/W0M90
+613z62H3t3Xb+7IPGiz3L2mIrlNC8Nc10yClJy02nYbD+cf2r+u1fbuG6Dol
+hGW6ZtJ50mIzzJ/DXPtt37reMhfTEF2nhLBc10x8T1oKhnX0MPHvW9dbaqca
+ouuUENbpmlEYa7uua3+PvaNhrj+/X11vXevUEF2nhLBe14zCeH+rMGElYFiX
+Xl53n9/mHnUdwpukIbpOCWGbrpnwnrSYdHn6qZ9b2+1ps6dkf7pWCLNvNUTX
+KSFs1zUT1pNWK/vStUK4eZaG6DolhDC6ZsJ50mplP7oOXRfVEF2nhBBO1+E8
+abXS+c3KvF+SPzHWMTVE1ykhhNM1k86TVhKdj1RN5upN7rBW0CCO70hDdJ0S
+QlhdMw325Ek7DjH7ZA3RdUoI4XXN7MeTdgxiz6E0RNcpIcTRNbMPT9oxiF3z
+1BBdp4QQT9eMwljbdXnSjkGKNUoN0XVKCHF1zSiMjxsV6XOE5aTyFGmIrlNC
+iK9rpi5P2jFQSLdPNETXKSGk0TUjnrRyUEg7P9IQXaeEkE7XjHjS8pOjnqkh
+uk4JIa2uxZOWl1zrjxqi65QQ0uqaOaYnLT8N8vmFNETXKSGk1zXTQDxpKcnd
+l2qIrlNCyKNrRjxpaShh7qMhuk4JIZ+uGfGkxaeEWqWG6DolhLy6ZhTG2hZP
+WjhKWVvUEF2nhJBf14zC+PhTGWPZCyV5gTRE1ykhlKFrpqTjsHYUyvotNUTX
+KSGUo2umlHFjzSiUN6/REF2nhFCWrpkS6jy1UmodUkN0nRJCebouYV2mRkpe
+N9QQXaeEUJ6uGV8fxVPKoAqmQdk+Hw3RdUoIZeqaaXD7WDV1NpU6sMLI7SXz
+QUN0nRJCubpm5saWdn3tnCe0IqhlzqIhuk4JoWxdM9Na0Hny+Mg5u5Yao4bo
+OiWE8nXNKFxrear10saesalpTVBDdJ0SQh26buDO03bTmWLLQW0eHg3RdUoI
+5etiOseea/yeI+Rshbo0zWiIrlNCKFvXvpou+TuERKE8L5kPGqLrlBDK1YSC
+v56PkLNL9ZL5oCG6TgmhTF2zNpfk6b3n7JK9ZD5oiK5TQihXD6xtex3nqDm7
+QdleMh80RNcpIZSrawPhfi18rzm7Bi+ZDxqi65QQ6tACH8vTtZ295+xavGQ+
+aIiuU0KoQ9cGgn/u1lkiDEctXjIfNETXKSHUpwPOYxo7yNlt2zaX9nxpum9G
+u1zrtr9LzZpmNETXKSHUp2sDH+v2OLWanH3R78OlvbQOfv755+k6gMoabBg0
+RNcpIRSuAQ80bmtb5QrMRa/pHy5Nv7y8FB37BjRE1ykh1K9rhnP3G+a1Xcw4
+1lfTP/300zlzqCHREF2nhLAPXRue4fazFFF3mht7//jxYxSvUsq8pPJGHAwN
+0XVKCPvSNdPAnbuzrhPd0vTDw8NnnE9PT/bLtfi/76Ehuk4JYX+6NrhydxZf
+R1/zvuJ8Po80/fj42L6/v9tveUsdayQ0RNcpIexX14zLi5pU2zyWdmma9cs6
+xrymJV8LayHsW9cGvm5p8vMmLrp8ckj6StOcszl3O1Ap4kyAhug6JYRj6JpJ
+ep7jRZOPLGGXWHkODUvTPMd2DdNnN3667LfTZX917e3SfsT8LgHQEF13nNBc
+mur33cvHvjsFX88kHEfXjMJY21HGubc0zbVuO4YZTfPfXtXvL89R23vTfv31
+16+X46Hl9vs//P7cDp614tq3b9/etNYtt+/fv7/kjCXG/l7FCZ/770PrYSEc
+S9eMQkTvR9v5Ts4usT4/P480zWvWMzhj6o/NT8xx8frfr3PbESaE3Neb6PJ1
+G2msRTierpko1/1rF3jJlmq63/6nrt/+5+1T1456mzBDiP0chG7+1H7k7fAQ
+jqlrhufXQT1praemOW/PoO9s/1PXH7n/clw8/tNj+IN/x2zdx0E44cEag8e4
+FxXhuLpmgp0L2S73kk25W8drLV2znvm44Dmr4M/a/RsU1rLRdRwIx9Z1kGsX
+tOu8ZDZetfm21zWPu81xMVN3OwymHufL0n0bhaFmFmu9VSFybbgCNl1rqF3v
+JTOwML0+r+11/fJfLx+afvjHh+VCiAh/Z/s78mOuA8Tse0z/5v3+OU6TsRo/
+7tYTG99jwZsTzn3cz8G33WHPMUtfA41JgxXXBmy3eckYb033n/eh64+1stM4
+/7N2jN650e8oep2cNcvzfDMnMOMH1jN/vjWH/HhPjPreKl1389unfv3YaOy9
+f42s50wL53Xo1q/Ndh+teMiqpb339fJm5aew98Ge/xV9fZHILLqWb7vdS8YH
++aLfu+113fy2+TguWMc2H3P5DHNuo2seP3AM/Pjrf3790D3HYvc1odmUr8f1
+q9feL/LW/5/658zresm+mqXbdvvRd1y/9tr7VLbUcKf+q+BruRXi5Ulrt3vJ
+nL6Te1z+RhvtcrP7i4/+5KKnqdZTYHIzf3f+9zQvf/wmjphDsHkcbudkV17u
+cqdbh2sY+oqXyfOq1/TW3Mpj+6muo3orK0HhhietjeQl8+Hyd5rz4HR9i3WU
+Ytw9B+dpjonHEa6xtp2zOYeHZGO+fhzlaxfD2DhMzW3oJ56s51Sv9xDjZdc1
+98P0SfWj4BjHtBG9ZD5c/lab3GfWwLnvYE3nqovb44e5sULBun62dN04f/SQ
+uh73Iw/9czro/H3+PjnZrytSCCNP2pcvX1hI0bxkPrTsW7G8o6wpzpE+mp7W
+sZa2OT0azXIcs1+6r/OtHYdzH8bxu5o9d3e1qQdo9IMOmp3X1VBD257zpt7R
+ubH/eghuTXOLVXuvkc/1gjnthPKS+XDR0Keu7dq3Tw6MpWuz3Rvf+7Oudkv7
+sWKf1upGP+jwPrfna1xX264/2zvazaXbj+fCoTGv69ru6Rab17n8G9JL5kXv
+Z+D5LM+zTV38xudGxccfw/nZvGdtnZ63zf2Kq9n9jqtN47J+S+P5er/xeytL
+17Rx39l9xJuVu+fnAMvhPmJO1/Pf84C0ibxkXvR9vNGHqaFxy3HuB88FfMfg
+3BcVs37d/ZbG8+UzBt+eU+1+ZJhbmxpaCE8Yb3NO06ZRgM+pnjahl+wuVn9v
+chB/pqlF5/CJm3NP5sYLdq6OVavfoGszDlYzv7eydNgE2H/X3tEhZw9aXw/P
+Je7pWm/8jOppE3vJ7tIfZ1PvqNHW9PnQdWcXc/4Yg6ndx5wnrNL12PPVOH7r
+BytXq0D7z2zv2XrOHptPn19av/a5L2XIuXx1tBm8ZHfpaqdX4307Jxp9cZyx
+59z257p+AzNHuBcHx8p90Fq/ykpdz3u+utdfvTQ9eMhv72uXd3SyX0exdHl8
+qa7v3dPKtEN6SttMXrK79HMxV260czaPd12er9DY9fgpZu3r3tzAxG3amrhX
+6tpo6W3yGz/0mn7HrfOih/e99e99v6nDYZ38uh/pNG/m2S/9e/XCo6OBn6a5
+xTjfu2jajF6ym1h+BldeMx5So+0UHhUzxuaxOOuRNcw65cf8W92Lgd/P2+Bc
+zX2RiX/pOGOlrgdvaKclcw3Bcz8Pvpd/h/cMY/b59e057+jwul13X1NnVfDX
+9aHO22wze8k8Y5xNgGY8m6oubup1nLfNZy+Z08/NJ2Kfe4qx56vpG3mPe825
+V+PnuvrXFrq41uaET5+FRzvMeZttgOuS9flcRY6ziIuj2OvGa+bF5rzsKcZ/
+EhMMNej5/LqULn/nrEnNeUfnWpMlysS0G69L9jGfHN4XzYfbFqJrM38OfW01
+1nXs67Uh9PUCu3z/dnfsHg/XeZn3msoRaEraMNclC3adtDuxFqHrtXPhWxjv
+Wsxz0mx/3N1atw/dvPi9n1/nqke5zsu819bM4auhDeclC3KdNI94s+va1gav
+ZYWCxwCx1+aMP8653rSU4Ron2qrDUZg9vQjuT/Sk2fPtN8frKmWAKWnDe8k2
+XSfNM+bsura9q6Gu4WCusRIb+/oOCHndsk7fYy9ZXgjDcaizRpKQNp6XrMGK
+66QtiDubrvl34Hxnrv9pGj+3pQbPf8t6i1nH576a+6C+LqCtRqH2DTpfas7a
+mQ3hYLpu43vJFl0nbWHs2fN1aFyajqnxUPviiq52VsraMOFAum7Tecmi3Luz
+3ZmueX1h+juzpkPO26eE2A9OQp0fEgbCQXTdpveSKYy1vbkvb3eka/saKtMW
+89qLW/eB5WvR1nPPQerr4SAcQNdtPi+Zwljba7Zhf49d6JrnN9N5ut1isuX3
+/2S47/gLuvOqmyDbDQdh57puI9/j0oNg9+5sd6LrnGzYjzVB2L+uo97j0hN7
+PXG1J60VXW8mwL6sAcKOdd0muMflAjZ70lrR9WYC7s+SIexU121J1yXr2OxJ
+a0XXmwm8T0uFsENdtyVdl2zM1nt3iq43EmGflghhZ7q+7Drnzd2yXZfsmgYr
+PWn9d9O1tW/fvr2ZWvf3799fcsYSba+WBWF/ur6qk2W9LpmbaJ60QtEYvitl
+jeQYEHak64smG5dYs16XbJ4onrRC0RBdp4RQt645t36e99o6xuBZr0t2H4Wx
+tkvxF4dGQ3SdEkLdutawvB5TXZdyXbI7KIy1nTOWWGiIrlNCqFfXnKvtOSqL
+9vOid6nucRmIYJ60QtEQXaeEUK+uNcZaMNp+SewlC0UQT1qhaIiuU0KoU9fT
+XP3Zvnz5crYfJ/KShSLJddIyYPdZlDeUQ0CoU9caDk1P2w0vWan1qSTXScuA
+3QeX+tvvCUJ9up7N1dP2yy+/8Lj8zWr8mDLF7Uv066QlZrqed5jr0meEUJ+u
+fe4bWPtYtkHE66QlxnUd3Fq/Sy0Q6tJ1A39N29qm9KFuZi+eNLtmYNrh7v2W
+GEJdup7WjH3bOUewAdiDJ821P2r8HjVBqEfXDdZpmsftNY/7FK6/Ty0Q9tXP
+1gKhHl0vzdV87FCOQCOgMP5uKmcwC9CY3z9Ntqj2D6EOXTdYpmmdI8jI1OhJ
+s+v606byhbV7CHVowTdX83FUY/3bl+nvUPJ35bnPrX1Vax2wBgjl67rBcXO0
+i1o8aVzzvrW/3vOFtnsI5eviXq5+w7HmarV40nzGWKX2SbVDKFvXDW7398/Z
+IstLDZ40rlve0/VR919sCGXreq7PP1qOdtGgXE9aA7+501um+PYOoVxdN3Dn
+aJUvpOIo1ZOm4L92IYSHUK6up7m65BpRTkr0pLm8o3NNPKXhIZSp6wZSY1mC
+wvi3yu1J8zrfDmXEukcIZeqa5132vldZo6kDhTJ+s+n44V6T8zbDQyhP1wpl
+HJ81UoInzXVe5r1WSr1vLxDK0rWCjNG2Mq1LpJ6/TMdaPk0ljnHvEMrRdYn1
+n1rJ6UnTjmZr/cXxOiWM7wgQytB1qes1tVKaJ01bsVDGOI4CIb+uG5Trr6iZ
+kjxpGqLrlBDy6rqkY2+PNCijz9QQXaeEkE/XpY0V90oJcxwN0XVKCPl0Xcv5
+hnsgd01SQ3SdEkIeXedeizkiCvnWEDVE1ykhpNd1Cd6Jo6KQ57fXEF2nhJBW
+1wqi6dzk6Fc1RNcpIaTTtUK+caAwJvU8SEN0nRJCGl3nrtsI16SsW2qIrlNC
+iK/rEtZZhGtSrjNqiK5TQoir6wZl+CIEN6l8QRqi65QQ4ulavGR10CB+36sh
+uk4JIY6uxUtWF7HnShqi65QQ4uhavGT1EbO2qSG6TgkhvK7FS1YvCnHWIjVE
+1ykhhNW1eMnqRyH8PtQQXaeEEE7XCqLpvRC6f9YQXaeEEEbXCnHGb0I+Qs6n
+NETXKSFs17V4yfZLqPqnhug6JYRtuhYv2b4JtV6pIbpOCWG9rhuIl+wIhPAX
+aYiuU0JYp2vxkh2LBtv6cA3RdUoIy3Udzkt2unz+6fK5XXu7NLmnS7lsmXNp
+iK5TQliu67BestOlnzhdttU1qbmVzdoaqYboOiWEZbqO4yUbdC33TC0fheVr
+mhqi65QQ/HUdx0vWjcWNrmWOXgcKy44FDdF1Sgh+ulaIoWnmdOkvOk3L3Lou
+lvTzGqLrlBDu61ph+bjLH9Zzp+u5zxfKxXdepiG6Tgnhtq7jesnGNTM576tO
+fOqoGqLrlBDmdR3fS3a6jAU6Tb8H3/YWTmhGc/3uMUnf48Rn3VNDdJ0SglvX
+vK/ie8l4XavT9av13KOl97Zf145bJ+80+9WaE7R9HE3/+a3Vfkh974p7PiUN
+0XVKCNe6TuclO+Hca0VNnn/MMucedP3ex8CPny3/zNDXCFMazOcCDdF1Sghj
+Xae7Ltmg3fYjLw7PP/R6UlE+93ZMJje/9v9+mLz+6oxZMMzN3TRE1ykhjHVt
+1zfjXpesy4Pj9a1O0/HH3fMxvfcxnZ1j7XHOpvQBVoGr1qohuk4JYazj8F6y
+OYbc97V//NhrOk9tajx+UDPvEV37oTA+luxji7JFdRwI498/vO9kDts72mnq
+7KXp6zrW0kYz2zWaPd/47BfIONwXBfexRflCOgyEPJq2vaPqrubGfxtL12a7
+876boa42r33BZupJM+NyhVh1G4EhxPSSzTF4R9/7ebapi4f1vfjHc98f0615
+mffotAFWzdSTZjdeV6Bske0XwnhdIg1T7+hQQ8tz7kc3F/Adg79nibFubE+a
+q+lske0Xu++Mjys3ds+9Z8uFw/jBPV4Y52o5l3Q53A8+oxt/Ezodcx9qa/s5
+T2i7JbWu3d5Re2w+fp4SxOT2xwyvv97UvbCW6Ri9yRrNfrDXGlPp+to72j1v
+50TVP/cQXUvjz20crz97abqLlaROvhhb29JvhsH+TdOMg4bxtnK8ZtfTnuDy
+fIWPZ6jHX79m1r70nW18tfqGNknc+8E+F6Gs83/qhOeJacdAc97R4XXjIR08
+2vFjMmPsc69H3ev03I8tbsfQvf+1z9VPVvySe/yx62pyztx6ODenX9/yYRjP
+psl39vhh+Gxa8Pdz8wnJPf5oiG/lHg06nfJ82Z47v/b/n/pFj3v9obE/plnx
+942zDzAeF8EXyde3cfl7bjUeKx53HjjMn8P2bXIt9KXYuUYYY59fadoZ1+uE
+3Lh/pCxRlkSMufCwPi/r3H7YazJyf7cx0zytcV0H48fHzc1Txv6YcGsB3RhA
+amb+EMR35qJB6vM29sDYu6oCbfNRxt+LIcj6tQt7DVrnDaUCujz9hOG+YKY9
+barBd9t9lXXrVdjzRqHDnlfLMZULl6ZF477Y9XDxiXfIelVuOh/L4+S5h6Dz
+9n1DkLnklLT+bmHM+Boq06Zyh1cR03NAOIfzmgKPebjPJHS5nHCMNW57HUtI
+SedLmc7ThyYs5d552tM1XJUlyjTY/RzlDUUQNqNx7Ym81Xicusc6hoLUHIR9
+wTpVGPzQnMc1uuOb/z/1YO1xDmqfl6XzhiIIyVAY53WdM5gI2F4z8S4KR8LO
+aXs7f86umzV5QxGE5NjnLe4lr9k1sz3OMQThHnuah3JdYbreRzkDEoRMEOrR
+NWGoBZpmaoL8/+k6gM4QoyCUAKF8HXAetucLPk3WtoQjY9eNVd5QnEzvHXyr
+8ft4HN7kCFQQCsLOg6X5U1z3k1cYx2k8skfwxgqCL7auS0Nj7HttcgYjCBVR
+sq7t8bfkY0Hwxz5XhPKGMkKu2yYI61Eo08NBKL9OLwilYt8HiNtL3nA+IYiu
+BWEL03tS/cBwTQYmx9yWUF5fIwi1oXD/PO2UPEDm14IQAs7R9nlQU89Hjng0
+pBYuCCFgPdk+7OT3t/l/AtnoLg==
+        "], {{0, 243}, {246, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{98.77500000000092, Automatic},
+      ImageSizeRaw->{246, 243},
+      PlotRange->{{0, 246}, {0, 243}}]},
+    {
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3dFtG9kZhuEPSS5y6RImHbiEP6nASBrgLpDcxtgECPbu78AlsASVoBLc
+QACVoIsUkPADPeEhRUlDiv8ckvM+wFnbu5R5SMzLmTkz0v7h57//+W+/kfSP
+32/+8eef/vXHX3756de//G7zhz/9+s+//vzbzW/+sxn/3gz/yx8+bUZsRm7G
+6sfvAVxGaNvY6Gkz/nswnrXt75MAnOtB254em3/3rJe9jeP7ZnyeeY7AvXBn
+Y0vjviu03Zd92Yyv2jU5jiexnwPO8U27juKNx3mf1u731uUzA+5Palpvdtjc
+UDgv4B61x4pTzsuyeXyWzQq4P4P21x9P/ZrHtx8KoOG1xnPOx+gNmG7Qfmve
+t01dbxxEb0Brpe3+6rEZ/nNqf/1/HF9O/Ls5fwO26x3H7g15bXi/dkprNvX6
+AXDP3M1b94UcXq9OnXfN+tj1cWBJBu235p4O91ve94U+3sip1w+Ae9M24HWQ
+yv1ONs/1tfB5gGs06Lx1xnN9nvn5gGuy0m77/zbTc7bncNX7U+CapOZfLzy8
+j9Lniyvt7qcczxXHAdyLVJ/1+VPWQ/04X/8bZpwfUMFrFr3WL7wfO3b9/JLX
++4Br0q5fPHScQ2p3L8vDjz97eL92uB+kOdyydu3iGg3a3w+yrolbNu4/pn5P
+TS/tPdLZdyrAWbyfuJX79Qftr2kCt6ZdL5nr+ttHtPs44JYcXgeLrrOZpj2P
+A25FaL+1az+WHNEbro3PyVba/57Rdo29PSYbz4VuZb3vVtZ2sAwrTb9vY7wG
+MHSY5zlC5/28FKCCt8GpnXmfdmvfDxPiesDcfI7P/QUvteuM4/lY+z619wAP
+807tYkL0Vm3Q7lxkPE66lXP7ufjcqz2GzK6zqTPo+u+FuTXedvy57GtBPuY5
+dixEb/vafVuveyDn0m4T0XcqNyt0fN3stUFv+9o18nv/mSAr7d9Hee+v9xL8
+Hh37/xRNHfS2b/zMX8oa+eHPmk3d7jlphUG7c7DXjhHp7XztmuMS+Jxj6rEQ
+g1E5buW69Uf5da7V//1mLHuElmXQ7ntV233ek/Z/HvvSxin3PLw3nq/g9VzT
+eNJye2uFdu9Ddp3JdRjXSbyNfKS3x7knfuVS9GYhentLaHud7dRzX3rbl6I3
+C9HbVON17rXeX8Okt30perMQvZ1r0PYagq/RHZ770du+FL1ZiN4u5fBnpmEn
+RW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6
+Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9Gb
+hegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAv
+RW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6
+Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9Gb
+hegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAv
+RW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6
+Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9Gb
+hegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAv
+RW8WojfUS9GbhegN9VL0ZiF6Q70UvVmI3lAvRW8WojfUS9GbhegN9VL0ZiF6
+Q7216M1C9IZ6z9ptZ986z6WnEL2h1mfttjGP732n01WI3lDrq/Z78/jUdUb9
+hOgNtR70srcvXWc0Dx83H77u98Zjl5ninhzbrtZdZzSP0Om9fe0xUdyN0PHt
+6qnjnOZ0am+f+0wTdyL1+rY1dJvVfHx8OLW1505zxP3wWuRr29eq37Rmc2yt
+6LXx0GmOuA9eg1z69nV4LeStseozRdwJr0Fy/LR/rf+tMXSaH+6D1yBZHzh+
+PWSp60eo422I9e/tceJ778O61+RwFwZNO4Z67DS/OQ16/31YwvV/1Flp+jrB
+Ery3r1/q/W24jCnnLEv6bH/rXHbJ92/jMqauyXks4ftz3lqrzX7Twh045ZrT
+Uj7f37oWGf2mhTtwyj0VSzp/ee1eG+AjvOZ4am+rHhOdWerl617CPTaolUdG
+2+D6yH+PGefXS+hlb0u4/oj5pThfscPelnB/DeaXojdrr5Ms5f5RzC9Fb9au
+Ja07zwX3K0VvFuK6G+ql6M1C9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C
+9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C9IZ6KXqzEL2hXoreLERvqJei
+NwvRG+ql6M1C9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C9IZ6KXqzEL2h
+XoreLERvqJeiNwvRG+ql6M1C9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C
+9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C9IZ6KXqzEL2hXoreLERvqJei
+NwvRG+ql6M1C9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C9IZ6KXqzEL2h
+XoreLERvqJeiNwvRG+ql6M1C9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C
+9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C9IZ6KXqzEL2hXoreLERvqJei
+NwvRG+ql6M1C9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C9IZ6KXqzEL2h
+XoreLERvqJeiNwvRG+ql6M1C9IZ6KXqzEL2hXoreLERvqJeiNwvRG+ql6M1C
+9IZ6KXqzEL295utmrDZj6DuNu5CiNwvR22setXtvnjbj22Z82YxPPSd1o1L0
+ZiF6e03b2+Hwf0ste9s5RYreLERvr3mrt3Y8b8aDtsefn7vM9Pql6M1C9Paa
+qb0dDh97rsW5XytFbxbavQ/rH39mbMd3ndfb4fDfM5779X5NvYa3rXY7W2mZ
+n0Why2xTDMY541HbbXApQv3fcwYjtRzja37S9nUztsPvxyW2pXE9pffruYax
+0vYz3r8/fH+93rQE4+t97D2RK+P349zG/LUp1ivfs9b++zZ0nU09bw/0dtwp
+vbVrIlwPP03b3LrzXKq1r3Up+/Op3urNx0J+71a6/8/kav588jH3eOx9r/xZ
+vKR9+ana3rimXcvv7fhe3+P76+2mbe1b3+lcJb8nqWWtV/eS2m2L0XUmpxu0
+3Vbaz2f//uHHr896ee4B9HSr+zd3dso6ms9BOL9Hb+0+4FYcu//oScevI/nz
+JLrMEtjXrpE/dJ7LVIf7tdTL9Q//mX0Zrk3otu4zGbTf2qrnZIAThW7r+lt7
+DS37TgU4S3v+c+3a8zaOF3GL2vXJa7/vgnV93LrQ7ZwTcf8j7sHhvcve5433
+o3oNM7Td94X6XqNr1/uBW9YeV743vN2vOsyx/VyIDs8PXFLq5T1Qbw0f1825
+brFqnvvazzWBKdzPSrv7Esfv1/3649fDezvmPJdq7/PPGZ8X6Gml/f1gzvS8
+7b0lX2Z6TuAatPuaub53rl0vGWZ6TuBatN8HU72/addKuB6AJZrjfMrnk4fX
+K6LouYBrFvp4b/47xrWZcYxrNP71cL303OcBbl3o/A6832qPR6cMrgFgydr1
+wtUJX+d7VKZe5/PjfDw5XGjOwK1q909Tr3v7ce01PPe0Ovj68R6yW/r5DkC1
+trepsvkar+8PF58VcJ/O6a09jmT/BUzX3uMcEx5/iz8vBbgWK512DTqax2fV
+pIA71f48dI/1O48P0RvwEYc/m/+79v/fKe05Wmh6mwCOW+n975OzT+L8DbgE
+79Pa+/cPr1m3j0uxNglcgntq74f8/88T/x/5Vh1T
+        "], {{0, 243}, {220, 0}}, {0,
+         255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{81.30624999999979, Automatic},
+      ImageSizeRaw->{220, 243},
+      PlotRange->{{0, 220}, {0, 243}}], 
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJzt3d2N5LgRwPGC7Qc/Tgh0BhOC7AgG5wR4B9ivHpyNM+5NGVwIHcKGMAks
+MAkY6AgW8+AA5C5rtE2ppW7qk1//H8C73bvZbbZaJZLFaulPP/3jh7//TkT+
++cfLP3748d9//vnnH3/96x8uv/nLr//620+/v/ziv5f2n0vT//jp6dKqS6sv
+zX7+GsA2KmljrHO+tGbQPqSNvycBsNQXaePpzflvH3Ibb117v7Tng/sI5ELj
+rIulbuyqpB3LXi7tVa4x2bWzMM4BS/wm1ziq7vycjmnuuHfavWdAfmrxizc1
+jDmzY7+AHLlzRZ91We38fL1br4D8GOnnH+f+mbf7PwrAobnGJesx4g3wZ6Qf
+azq2+eYbjRBvgMtKO169OU1/X0s//9+1l5l/N+s3oM13jNWGTDUd1+bEmvLd
+PwBypnFzry5kuF9dy7I967H9caAkRvqxpvE0HLd07KtkfYzM3T8AcuPGgOZB
+9hx3aue1Xnd8HSBGRpblGZd6Pvj1gJhYuZ7/vx30mu4abu/xFIhJLcfnC4d1
+lLpetHKtp+zWil0DclFLmPz8nHyo/pzu/5kD+wfsQXMWofIXOo6N7Z9vud8H
+xMTNX3wJ2IdarrUsXz5/r03HteE4SMwhZW7uIkZG+uMgeU2krBs/fL9TE4pb
+I12H7QqwiI4TqdTrG+nnNIHUuPmSo/bf1nDHOCAlw32wKmhv/LjrOCAVlfRj
+Lfa5ZId4Q2x0TWal/51RN8fuzsm6tVAq+b5UcjsogxX/uo1uD8AE6OcSlSy7
+XwqwBz0HfeNMx7TUvg9TCfsBR9M1PvUFt9w8Y7cec4+TWwNsju3aZioh3vZm
+5LoW6eZJqaztj6JrL3cOWQftzX6MxF8Lkxo9d/S6rHtBOucZmwsRb33u2Baq
+BvIo7jlRhe1KsioZz5tNNeKtz82R535PECv9Osrc3+8W9BiNPafItxFvfd01
+v5Qc+fBes7Wkuybdg5HrGmxqjki8LefmHEugaw7fuRCNtmdLZd96LX2fJwl/
+vGllt9LWM0b631U9S/94nKV/X/ZS2pyah0ftI4L3E0M7D47LSTCca+q5YkJ2
+KKAuT6Lnypp4ezu64xEa1vbnvg8wxzDmuOdeq5J2n23u2rf0eDPSjzXOp1tG
+OEb3dPvcOicazpOItyuu3f6YA/gz0u4h6DEarv1KjTfWJvO59x9jjetveM+0
+Ern1AdRW+LPSj7kU7huBsPS67J4zxNo8VvrHz4bsDKLmPhOUc2U5jiMescI5
+siXmCZhihXXHHlgHY4i82n7I88LFvtH+2MeEMkJdxFGMcKxLxjX3eMwlysSa
+IhzWyuUhZxaWFXLBpWBPKA5W2OvMHTUPceHzyJcVPtsYMd/IjxXWCzFjPZ0P
+8mHxI1+cB/Z70sF+aNqMUM+QGiN8ZiniWpku5iRpYS2QPtbc6SDXlQcr5JRj
+x15OXqywZxorahXyxOcaHyt8Jjlj3hIPK8zzS8C6PDzyWOUg7xwW+zTlYV81
+DCPUIZTKCJ/9kbjGgbnNMZjDo8PafX/kqOCyQm56L+zBYIwV9l63Ro0B7uH8
+2I4VjiUeY/6znhXm5/DH+n458k+Yi/z1MsP9lbew3UFCfPdnX47sVMSM9GNN
+WxWwP0iPkfs1KF1+xR7dscgMr02MbVhqqgbFzaucw3QtCkZuY42xDWsMcwBn
+uT2/bKjOBfQqt3NIxjZswcrteTWMwVLqb/X6ozE1dSyqYD1DLoyMj2tuqwP1
+7Ui13D8GjG1Ya7iGm2r6M7mOcXoMxtZpjG3Ykm+s5TrG6fWjFr/3ztiGNaz4
+x1mOY1wlj+fQbqMOB0tpzMwZ13Ia4/S9D2u3H7VTkJ4iJ3reubWUJYxxlcwb
+07pmju8qMlXJ/HOwDtDPNZZeWxjbsIe5c6wUxziNmyXxZgL0FWWoxH+sq4P0
+cJ25McfYhr355shTHOOU1mkxtiE2PnvAdajOreA7b2ZsQwi13D8vbaiOLWDl
+doxmbENsHtXwRrUX3DSNubTXS6s/m/bPSr/POs5N1dcwtiEGU99RieI+KJe4
+erq0UzPw/v5+L56038MckTm468AUI+NjXdD7oHzG2vtYrD09Pbn9HLuvu/sd
+bsY2xGhsrAv2nIqxWDufz71Ye35+br59+3ae+Cu6mDNH9RmYaaxu4/CYG5tD
+fnx8/D++xIk1/W+f7JH9Azam9/EK8iwen1jTMU7HOgf3aEXqDr8X6mcO8sbL
+y0sv1nQNN/C2d9+AA1i5zbnvQueEY7Fmre3lcUZijfENObGy8364DmFjQfT6
++tqLtdPpZqr5PSy37hMQ0G7P4rnEyrMu0YYBpLElfrE2lZ8EUqbrt01rUHxj
+Tce5Cfpng+/LAzvZ7Fk8TbuffR4G0LB2RNdvd9gt3hQQqU2exdN41o5oXpJY
+Q+F8n8UzaSzWxmpHnP3soXrrNwVEzMj9Z/FMaubXjgxRD4kSTT2LZ5JPrI3U
+jhBrQMu7BqVZXjvS0f+R4v0egC1ZeVCD0qyrHSHWgD4rE/vhzfrakQ9iDbhx
+U4PSrK8dYT8bmPa9BkVzID6xRu0IsMqXqRwjtSPAtuq6NmN5D2pHgO011I4A
+h2ioHQEO4RNr1I4A6zXUjgCHaKgdAQ7RUDsCHKJZWTuia7vLGFiHfRdA/Hxj
+bap2ZJBHoYYEmNBscN+RX375ZXhPBmIOGGi2u+/IJvdBAXI2FmsrakdW3wcF
+yFWzT+2IkYX3QQFy5RNrK2pHZt8HBchVc0ztyOHP4gFi0xxbO2KlH3M88wbF
+aMLUjljpx5zd8j0BMWrC3ndkt2fxALHxjbWd7zvy/T4oQg0KMtXE9cyazZ7F
+A8Smie+ZNdSgIFtjsRbBfUeoQUF2mrjvO2KEGhRkwifWIrjvCDUoSF6T1n1H
+qEFBsi5xUo0FUOT3HbHSjzlqUJCEZiQ/ksh9R6z0Y84G6gfg5RIrZhhAiT2z
+hhoUJGM4l0z0mTXUoCAJbrwl/swaalAQvaatJcnhmTXUoCAJX79+PWXyzBpq
+UBC73jmawTNrjFCDgjj1Yu1B7UhK+1vUoCBGvRxDddG0dSZvTjtdWhW2m4tQ
+g4KYlJBDt0INCsIraY/YSjnvFfGxUt75V9L1BfGwUu78qoT5M+JB/oAaFByD
+/HiLGhTszQj7vy5qULAXzq1xRrgGYVvMne5jjo0tkRt4jBwStkDu25+VcvdI
+sB57u/NZ4ZhhPiucN0txncIcVpgXrcU8HD5Y92+HPBPuIa+9LfZRMMUI+7Z7
+oE4AQ5wT+zLCtQwt5jzHYK4OxZr+OOSiykbO+nhW2GspEXuy4Vjh2JfECp93
+aFzvymCF+UwsmM/njfV6fMhX5Yl8dJzYj8mPEfZbY0a9QT74LNNghGti6pir
+pIU5f9pYi6eHnFaayDWnywp7NilhLzV9VvgMU2CFzykXXDfjZoV5SG5YF8SJ
+dXa+yHvFhTxy3tjXiYcR9klLQN1CeHwGZTHCtTUU5hhlYu0QBmvocpEbOxY5
+Ylhh7+cI7IGiY4VzYU9WOL7o4/q7DyvMHzCO9cW2WB/jEfJn2yD/Cx/sD62n
+x5D9Tfii/mE5jt1yRtr1bh20F2EY4Ro9F3ODefR4vUi7rj3L9bi9hexUQKxB
+5nHzTax9x1XS5mjd69KwlRpvihybH3K74/Q4vEobQ1PxRbz1WWEP6Z5a2Lvs
+GGnfv15/3LnRnFZ6vCkrnFNjrNyO/1VhTddgeg1212Br2nsE7ymGNpwT6DGu
+pT3njJRnONem0Y5sb9LGZSkqCX/MabRaytG957O077vU5tYlrW2lH8upZqW9
+xuuv9Ri5x0xzUiXo3u9b6I5EopL2fLiX73/UOJZ+TtI/biZob/bnrt84R251
++9lzcykcS39uzJ0C92Vv7nstZTxfw0g7J9K55729AuLNn1ur+xG4L3vS63ZJ
+Y/kepvbCibd53LVzjnUWeo645wf7/9uopD2WHM95armei1XQnsxnpP283Wuu
+/vrL57+H86D3IL0ErlId34b3lHjUdP3GdyYQmjsGpGIsf32W8byaXk+qIL0E
++twceSrf3xmOa7Xc5j/094xliE0ladWZGOnHmg3ZGWCmStLaf3P30OqwXQEW
+cdc/sXPXbcwXkSI3Pxl73QV5faSuknTWRNQ0IAfD2mUd87QGSudsmsOspB37
+Kgm7R+fm+4GUzflOlJ73NkAf3etCFeD1gS3VMu++MTqvOzJvYZ3Xjn2tCfjQ
++LFyrUvUca+W9vzWfw9rO45cS7l1/vWBrwuEZKU/DtYHva5bW/Jy0GsCMXDH
+mqO+O+fmS8xBrwnEwv0ezN7jjZsrYT8AJTpiPaXryeF+RbXTawExq2R9vOnf
+0eVmutblaMbunbH0dYDUVbI8DnTccuejPo09AJTMzRfaGX9u+Oyse01/TueT
+ZqM+A6lyxyfffe+x5xzawZ/vashSur8DsDc33nzVzp/R/L7ZvFdAnpbEmzuP
+ZPwC/Lk1zpXHz6d4vxQgFlbm7UFXzs/Xe3UKyJR7P3Rtpwc/XwnxBqwxvDf/
+u1y/q6rcNVol/rEJYJyVx9+TU0/C+g3Ygo5pbv3+cM/a/blayE0CW+ie2efW
+Qlb6P/4Ha2obRA==
+        "], {{0, 243}, {220, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{82.92812500000002, Automatic},
+      ImageSizeRaw->{220, 243},
+      PlotRange->{{0, 220}, {0, 243}}], 
+     GraphicsBox[
+      TagBox[RasterBox[CompressedData["
+1:eJztnc+N5MYZxR9sH3zcEGhAAWwInx3BwIZOupQEWFcPZAOGb18E2hA2hA1h
+QtgEDEwIe3AA7X6YoabIYXeTbJL17/2A0mql3u1qDn+sqq9ek3/66R9//fl3
+AP75x/M//vrjv//8yy8//udvfzj/5i//+dfff/r9+V/+d27/PTf+x1c+nJud
+m59beP13IcQ2GF4c63k+t9OofcOLfx8ghFjLF7z49BT9t29471vfvp7bx4P7
+KEQt0LPepX7sMryMZQ/n9og3J/v2DI1zQqzhE948siuv45gWj3ufd++ZEPXh
+mOcbGTvX7dgvIWoknivOWZd59HrfrVdC1EeHYf1x6Z95uv5SIUQEa41r1mPy
+TYj5dBi6xrFtbr2xg3wTIibgZbx6ihp/7xjW//v2sPDv1vpNiJd6x1Q25FLj
+uLbENTJ3/0CImqE313Ih4/1qx7o966n9cSFaosPQNfo0Hrc49hnud2Tp/oEQ
+tRE7wDrInuOOR+/1uOP7CJEjHdbVGdfy8eD3EyInAt7O/08HvWe8htt7PBUi
+JxzH1wvHOUquFwPe8pT9WrFvQtSCI019fkk9lK/j/l93YP+E2APWLFLVLziO
+Te2fb7nfJ0ROxPWLLwn74HjLsnx5/T0bx7XxOCjnRMnEtYsc6TAcB1XXFCXT
+jx9zv1OTijgj7Wm7IsQqOE6UktfvMKxpClEacb3kqP23e4jHOCFKYrwPZkl7
+M494HSdEKRiGruU+l+yRbyI3uCYLGH5nNK6xx3Oyfi1USr2vlNqOaIOA+bmN
+fg+gS9DPNRjW3S9FiD3gOTjXM45ppX0fxqD9AJEHcZ2xX4/FOYw4A9wd27XN
+MMg3kR6uveI5pCftzX50yD8LI+onHttSZSCPgvPgkvYvRH3ENfLa7wkSMMxR
+1v55RX701/xWauTje806yl2TivJoLVPI9ep4D3HcQqrOieqJ55Ol7FvfCz/n
+rf0PzTXF1gQMzzFL2ZkEdHj7rup4zNP6TmxJ/N3sVn2LMUzfg6FL1yVRCeNs
+v3yb9q3fq2tlni22p8PljKQl61V6DMN8ZXyM5JxYw7g2x3/XM2deMAwzNuM5
+QO1ZALEtY9f6tYlDvhHD+0zbeI2r7xWIucTP1Yhrbw75RgzTGdKAoXMl3DdC
+pGW81xTXuR3yjRguZ7YDhscvHNctURjx+mzqXHHIN2K4/h2JW8dRiIDb54hD
+vhHD7e8kXZsniLYJmLfucMg3Ypj3HcBL62DRLkvqag75RgzzfLtU5xVtsnTf
+yCHfiGGeb2RqH1P74e3RYXkuwiHfiGG+b6SDMigts/aa65BvxLDMN6IMSpvc
+s6ZwyDdiWO4bUQalPe6pmTnkGzGs840EDJ1TBqVe7t0Tcsg3YljvGwkY/hzC
+Nt0SGbFF5sEh34jhPt+IMij1ErDNz9Yh34jhft+IMij1EbDdesEh34hhG9+I
+Mij1sHU9zCHfiGE735RBqYM99nsc8o0YtvONKINSNh32yTM45BsxbOsb6aAM
+Sonsea10yDdi2N43ogxKWey9FnDIN2LYxzeiDEo57F3rcsg3YtjPNxIwdE4Z
+lPw4Yi/HId+IYV/fSMDw5xl2eh+xnKOyCg75Rgz7+0aUQcmPgON+Jg75RgzH
++EaUQcmHgGPn+Q75RgzH+UaUQUlPijqWQ74Rw7G+KYOSllT7NA75RgzH+kaU
+QUlDh3Q5BId8I4bjfSMdlEE5ktTXOId8I4Y0vhFlUI4hhzm8Q74RQzrfiDIo
++5NDjcoh34ghrW8kYOicMijbkcsejEO+EUN630jA8LwICftSCzllDBzyjRjy
+8I3kdH6UTkBex9Ih34ghH99ILvOfkgnIb37ukG/EkJdvJIf1fankWn9yyDdi
+yM831q+foQzKUnLeX3HIN2LIzzcSMLxOaz/8Oh3yzg845Bsx5Okbice4HM+h
+XEidHZmDQ74RQ76+BQx9Y3tCfudSSnLIjszBId+IIV/fyHiM68+pkLBPOVFK
+bckh34ghb98C3vsWj3Vdqo5lQEl7Jw75Rgx5+0bi+dLUWPeYrmvJKC0b4JBv
+xJC/b4bLvrU41gWU5RpxyDdiyN83Qp9uOZf7Z9iCgPyyI3NwyDdiKONcNczz
+ra+H57yWWUuu2ZE5OOQbMZThG5k7xpXyeZaQc3ZkDg75RgzlnJ+GZb6xPaP8
+n2+HvLMjc3DIN2IoxzeydIwrbZ0zpoTsyBwc8o0YyvLNsM63ktY6PaVkR+bg
+kG/EUJZvpJV1XCnZkTk45BsxlHdeGua7FpL0cCan06k7t8dz89fWO8XxOP4c
+JbtGHPKNGMrzjcwd40Ki/l3l7NWHc/t8muDnn3+OayPZfoaFOOQbMZTpm6HQ
+Me7Vta9Trn3+/Dnrvt+BQ74RQ5m+kakxrl/nZDsfm+vaDz/88Jy4q1vikG/E
+UK5vhqFT41p5dvWGS3PIr1+/DlwLIfT/K6Tt8WY45BsxlOsb6cexqX2prOrp
+11z78OHDb649PDzE/7vUfcMxDvlGDGX71uHFuUt7wFnsF7/WIN/x/Pw8cO3j
+x4+nb9++xS95OrqvO+GQb8RQtm9z6JAwD8U54ZRr9Ip+4bJrGt/qw1C/byRJ
+3vfsy8OEau9c4xjHsW6CcEQ/D8Ah34ihDd/Iod9nObvykWpNScQ1GiLXuIab
+mm7u2b+Dccg3YmjHNxIwdG6X+do111h7jPtwwTX+2eT11A1xyDdiaMs3ErDj
+nvLpZT97cnL4+Pg4cI17bhfYtE8Z4JBvxNCeb2SX++2cFmRHGnKNOOQbMbTp
+G9k8gzLXNY5zF/B7+5ApDvlGDO36RjbLoJyWZ0feabnJJ8oTh3wjhrZ92ySD
+cs21K9mRVlwjDvlGDG37Ru7KoJzWZ0d+0/LcSrxHwhIc8o0Y5BvpsCKDcrov
+O9KKa8Qh34hBvvUsyqCc7s+OfGvENeKQb8Qg32JmZVBO92dHatvPvoVDvhGD
+fBsTcCWDcs21RrMjc3C059t4j3dOe0rS0/QETOyHn5QdmcO15xldajU+48ig
+47CEwfXpu+++Yx1S2ZHbrLmu1zre6zgsg+u3a3NDZUfe84Bl59hzmm4eAueH
+c4/Dt0R9zI0vl8YrZUcmYc11iW81HxvOD+ceh9KewbILJ2VH1rDkuh7SdPEQ
+xvXuVo/DLE7KjqzFMf8865L08DjG9+9t9Thc5aTsyD3Mva5/TdXBA4kz8S2u
+YW9yUnZkC+Zc12u5H9I1Atpew17lpOzIVsy5rj8k691xdNBxmOSaa8qOLGZO
+ba6VOQDnizoOESdlR7amw/Vz7ClZz46H88WW17ADThvcd+R1/AtJP0h+XLuu
+e7puHc61DICn61Ya5rp2KTvi7vHrNJ9849p13dJ163CuZQAsXbeO57TNfUey
+exZPJgRMn2MtZpcu5bib4ZprC7MjWT2LJyMuXddbzC45Gj4Op+2zI1k8iydD
+pq7rLX7vxNDocTjtlx3pkPBZPJky9f2cLmWHEjI+DtWvO077Z0eSPIsnY8a1
+uee03UnKeJ1fNafjsiOHPounAHQsXogzAFUfh2uu7ZQdCRieZy1kBS/Bve3+
+OIS0XUmKoYF9t1O67EjA0Lk1f0cNOBrdbxphqNy3U/pn1uzyLJ7CcMg3Yqjf
+txyeWTPOWVRflxrhkG/EULFvp7yeWdNyBsUh34ihUt+uuZboviMtZ1Ac8o0Y
+KvTtlO99R1rNoDjkGzFU5tvZE5sSKKP7jnRoL4PikG/EUJ9v7+ojGd53pLUM
+ikO+EUNFvp1d6cYCffnyZTCHzOi+Iy1lUBzyjRjq8u23uSTHtDij1bdMXOsJ
+o/7VmkFxyDdiqNC3T58+Dca0vmV635Ew6mfKvuyFQ74RQ0W+ff/99x/N7J1n
+yNe1ntozKA75Rgz1+Mbs9eQ9Rgt5Zk3NGRSHfCOG8n3jefmECc9wXHZkK2rN
+oDjkGzGU7ZvjgmdsnFteINe6RK0ZFId8I4YyfeN1/+Zza3/99ddPZ7eeosZF
+nKXq9ExqzKA45BsxlOUbzzvHDc9e21OaLm5Ch7oyKA75Rgzl+Ga4fR/2muoN
+NWVQHPKNGPL3jdf1pc9gz7EWsoZaMigO+UYMeftmWDam9a07vqu7ETD8bLnW
+eq7hkG/EkKdvHNPmPD+s5rEtJmD4GUPKzqzAId+IIU/fCL1Z41uXoK9HUHIG
+xSHfiCFf38hS52oc22LGx6OUmpBDvhFD3r6ROc/JrH1siykxg+KQb8SQv28k
+QGNbT4kZFId8I4YyfOtwIYuMtsa2ntIyKA75Rgz5+zY+t1oe22I6lJNBccg3
+Ysjbt6m5E5+38ox2x7aYUjIoDvlGDHn7dqk2EHvY4tgWU0IGxSHfiCFf327V
+vnvnumO7lSUBw2OVWwbFId+IIU/fSt7bTUVAvsfMId+IIT/fAvI9b3In1+uU
+Q74RQ16+BeQ9LyqBHDMoDvlGDPn4VsK6vxRyy6A45Bsx5OFbKXXtUsgtg+KQ
+b8SQ3rcO5ezblkROGRSHfCOGtL7ldE7USIc8rmUO+UYM6XzLbc5TKznM1R3y
+jRjS+Zbbmr5mUteiHPKNGNL4lmPNunYC0u21OOQbMRzvW657si0QkObYO+Qb
+MRzrW4BcS02K651DvhHDcb4FpJvPiCFHz+cd8o0YjvEt9XpdvOfIepVDvhHD
+/r7lUI8W7zlyP8Yh34hhX9865LHfKqY5Km/gkG/EsJ9vyo6UQYf9r4kO+UYM
++/im7EhZ7D3nd8g3YtjHN2VHymPPmpZDvhHD9r4pO1IuAfvs2TjkGzFs65uy
+I+UTsP3P0CHfiGE73wLkWi1sfd10yDdi2Ma3gH3mISIdW64LHPKNGO73TdmR
+etmq7uWQb8Rwn2/KjtTNVvs6DvlGDOt966DsSAtskVtwyDdiWOebsiNt0eG+
+a6tDvhHDct+UHWmTe9YODvlGDMt9U3akXdbWxhzyjRiW+absiAhYvvfjkG/E
+MN83ZUdET8Cyc8Eh34hhnm8Bck0MWXL9dcg3YrjtW8Dy+YNog7nrC4d8I4br
+vik7Im4xp37mkG/EcNk3ZUfEHObsDznkGzFM+8ZjqOyImMut/INDvhHDe9+U
+HRFr6HD5Gu2Qb8Qw9E3ZEXEPl9YgDvlGDEPf4nqTsiNiDVM1Nod8I4ahX8qO
+iC0IGJ5L8bllyXqVHsPwuGg/W2xFwPS5Zem6lByDXBP7Mc6g9PPLgDbrAgZl
+R8S+jDMocXtCW+OdYVi/FWIP4gzKVPNkPTue+FojxB5wn+kRL/NIw4tfzxg6
+95ima4cj30QqxnPNLmlv9ifeK5FvIgWxc7Xn4ePP2sp4LvIizup+S9yXPXlA
+W2O5yJe4nlJjzoJjmfYBRC44yt0P7/DiD9dj8drsy+uv49yW9gFEakod36b2
+8681rt/0XRuRmngMKIX4ezR9e8b7fQ42Xk8sSS+FGBLXyEu5h8B4XHO8r3/w
+9xrLRG4YysqZdFDeWJSLoaz9t3gPzdN2RYhVxOuf3InXbZovihKJ65O55y5U
+1xelYyhnTaT8o6iBcXaZYx4zUJyzsYZpeBn7DGn36OJ6vxAlc+t7cuO9rpCg
+j/F1wRK8vxBb4nifgbrWOK87sm4RovfOfa0pxBzoT8BbLpHjnuPl/Oav42zH
+kWupOOfvB76vECkJGI6DftD7xtmSh4PeU4gciMeao747F9dLuoPeU4hciL8H
+s/d4E9dKtB8gWuSI9RTXk+P9CtvpvYTIGcP9vvHv6GszfetrNPx1XC9d+z5C
+lI5hvQcct+L56JymPQDRMnG9MCz4c+NnZ11rfB3nk91GfRaiVOLxae6+99Rz
+DsPoz/cZspLu7yDE3sS+zcWjP8P6frd5r4SokzW+xfNIjV9CzCfOONuM15d4
+vxQhciFg2R60Ra/3vTolRKXE90Nn+3zj9Qb5JsQ9jO/N/xVv31Ul8RrNMN9N
+IcQ0Abe/J0c+QOs3IbaAY1qc3x/vWcevc6g2KcQW0Kc4D/nb/cT/D0qkWVQ=
+
+        "], {{0, 243}, {220, 0}}, {0, 255},
+        ColorFunction->RGBColor],
+       BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+       Selectable->False],
+      BaseStyle->"ImageGraphics",
+      ImageSize->{82.84375000000091, Automatic},
+      ImageSizeRaw->{220, 243},
+      PlotRange->{{0, 220}, {0, 243}}]}
+   },
+   GridBoxSpacings->{"Columns" -> {
+       Offset[0.27999999999999997`], {
+        Offset[3.5]}, 
+       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+       Offset[0.2], {
+        Offset[0.4]}, 
+       Offset[0.2]}, "RowsIndexed" -> {}}]], "TR", "InlineFormula"]
+}], "Text",
+ CellID->944593767],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+In all diagrams, the internal fermions are electron lines, with their momenta \
+directed with the flow of charge.  The QED vertex factor is:\
+\>", "Text",
+ Deletable->True,
+ CellID->378589032],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   GraphicsBox[
+    TagBox[RasterBox[CompressedData["
+1:eJzt3U9uY8t1B+CbP4MMtQMr0Aa0BCYrEJwN0AaSaQQngOEZl6AlcAlaAgcZ
+JoCWwEHm0TxAlFuPV+91s0neU6TUp1j6LvAZtrtbPCKF179XderU3//xX3//
+L389DMO//d34H7//w5//4U9/+sNf/ulvx//xj3/593/+49+M/+W//moY/jz+
+nvJ/vr29AXRrfFajbfnH3eh1tB7dZtcFAECdKce9HbHKrg8AgJjxWZzIde9e
+rOEBALRvZs3uW2Wf9iG7XgAAjhufTTDbvXvMrhkAgMPG56ky2xXr7LoBAPhR
+6aM7I9vJdwAAjRqf5Zn5bpVdOwAAP5rOy76cke+W2bUDAHDYNMO4JtuV87P3
+2XUDAHDYtIb3WpHvynrfTXbdAAAcVtbiKvdoV9k1AwBwXFmLq8x39mYBABo2
+zUiJ7s9ususFAOC0aX82una3yK4XAIDTxufR2h0AQD+G+N2zi+xaAQA4bYjf
+T7bOrhUAgHkltwXznXl3AACNq1i7W2bXCgDAvODa3XN2nQAAzBufh0C2e82u
+EwCAmOA8Y/dUAABcgeC+7GN2nQAAzCtnJQLZ7im7TgAA5g2xe8g22XUCABAT
+yHYv2TUCABAzPtu5fJddIwAAMUPgftnsGgEAiJHtAAD6IdsBAPRDtgMA6Ids
+BwDQj8i9Y9k1AgAQY3YxAEAfxmch2wEA9GF8VoFst8quEwCAeZFzFKOH7DoB
+ADhtfG4Cua64za4VAIDTxmcZyHXb7DoBAJg3Pi+BbPeUXScAAKcFz8cW99m1
+AgBwWvAMxTa7TgAATgv22Zl9AgDQuOls7OwdY87HAgC0b3yeg7lunV0rAADH
+jc9jMNdZswMAaFhFj50+OwCAhlXmum3pycuuGQCAH1XmOnfHAgA0qpyHqMx1
+6+yaAQD4XrlLYojdJ/atF3uxAADtmGbXPVVmurdp3t1tdv0AAOyUPrkhPpN4
+P9e5MxYAoAHTWl1tX51cBwDQmDP76uQ6AIDGTLnunD3Y9xl2ch0AQAOG+pl1
+39o4DwsA0IYLcl1Z43vMrh8AgJ0L9mHLWt1tdv0AAOyUbHZGriu/3x1iAACN
+OeM87LO+OgCA9gz1d03oqwMAaND4LCr3YJfZNQMAcFjlXqyZdQAAjaqcd7LM
+rhcAgMOG3T2x0XOxq+x6AQA4rmLNbpNdKwAApw27O18jZydus2sFAOC4Mm/Y
+XiwAQB/GZx3IdVuziQEA2mc+MQBAH4L7sa/W7AAA2jfE7hdbZ9cJAMC84D0U
+D9l1AgAwL9Jrl10jAADzxmdhVjEAQB+C5yiesusEAGBemUUcyHbL7DoBAJgX
+zHaL7DoBAJgXnH+yyK4TAIB55ZxEINuZWQwAcAUi2S67RgAAYsbn2Z4sAEAf
+nKUAAOhHMNu5bwwA4AqMz2Mg262y6wQAYF7wzrHn7DoBAJhX5psEst02u04A
+AGLG5zWQ7+6z6wQAYF5wDspjdp0AAMwLnqfYZtcJAMC88bkNZDtz7gAArsT4
+vASy3Sa7TgAA5gX3Za3dAQBcgeAslOIlu1YAAOaNzzqY71bZtQIAcFrFmQrz
+7gAArkDF2t227ONm1wsAwHHT2l3knoq36WytfAcA0LDST1exNyvfAQA0Ljjv
+7tt8d5tdMwAAh5WzEhV7s2/T711k1w0AwGHjs6zIdu+e7NECALRpymq1+a6c
+oX3Irh0AgB9VzEXZt7GGBwDQngvy3as1PACA9lyQ737pw8uuHwCA7w11s+/2
+re3RAgC0peyxVs5HMesYAKBhw+5uso18BwDQj2E3A++cNbx1du0AAPyorMEN
+583Bc74CAKBR47M4Yw3PfBQAgEZNa3gvFdnuVe8dAEC7pnz3XJHvnrNrBgDg
+tMp8Z28WAKBhlfuz2+x6AQA4bcp30fMVy+x6AQA4bTo/a+0OAKATw+4uWWt3
+AAAdqNib3WTXCgDAvPFZBdfubrNrBQDgtIq1u8fsWgEAmDfE7p3dZNcJAMC8
+8bmP7Mtm1wkAQEyZdRLId4vsOgEAmBfcl11l1wkAwLzxeQhku3V2nQAAzCsz
+TpynAADoh/vHAAD6MT4vzsoCAPSh7LnKdgAAfZDtAAD6IdsBAPRDtgMA6Ids
+BwDQj8AMlNfsGgEAmDc+N2YXAwD0YXwWgWz3nF0nAADzxmcVyHar7DoBAJgX
+uZOirO1l1wkAwGnjcxvIdcVNdq0AAJwW3I99ya4TAIB547PVawcAcP3GZxnc
+j73PrhUAgNOCa3b2YwEAGhfssyuW2bUCAHBc2WMN5rpX52MBANo17O4Xi8yz
+c4YCAKBx47O2ZgcAcP0qcl3xmF0vAACHVeY6Z2MBABpVmevMswMAaNCwuys2
+em7CXiwAQKNKRpvOQ9TkuufsugEA+M00u25TmenepvU952IBABowza17OiPT
+yXUAAA2Z1upq++rkOgCAxozP8oy+OrkOAKAxU647J9P9cm5CrgMAaMMFvXXF
+Krt+AAB2pvkm52S67WiRXT8AADsX7MOu7MECALRjOg9bm+k2o9vs2gEA+M2w
+m19Xex7W/WEAAA2azrVGM13JgPfZNQMA8KPxeZDrAACuX+VerFwHANCw6Xyr
+XAcAcOUq1+wesusFAOC4ijW7p+xaAQA4LbhmtzWTGACgbUP8/olldq0AAJwW
+nGe3za4TAIDTpjMU1uwAADoQ3I99za4TAIB547N2NhYAoA/T2de5bGdOMQBA
+44K9dvZjAQCuwPgsAtluk10nAADzgucoVtl1AgAwb4jdM+buWACAKxDMdovs
+OgEAmBecf7LIrhMAgHnlnMRctsuuEQCAGNkOAKAf9mQBAPrhLAUAQD+C2W6Z
+XScAAPPMLgYA6MfgzjEAgG6Mz00g271m1wkAQMz4bJ2nAADoQ3AOylN2nQAA
+zAuep7AvCwBwBYI9d2ahAABcifF5DmS7bXadAADMC+7LWrsDALgSpacu0ndX
+9nCzawUA4LQhdv9Ysc6uFQCA06YzFZG1O3uzAABXoGLtrmTA++x6AQA4blq7
+i9xTId8BAFyB8XkIZjv5DgDgCgTn3X2b7xbZNQMAcFjl3uy7VXbdAAAcVvZa
+K7NdsbFHCwDQpiF+X8W+p8GMYwCA5lyQ77b68AAA2nNBvvtlDS+7fgAAvndh
+vtvYowUAaMuwm30XvZds34t8BwDQlvG5nXLaOfnOrGMAgAYN8btnD52xsH4H
+ANCYYTcDb2N/FgCgH9M5i9o+vOfsugEAOOzMPrxVdt0AABw3PuvKfOdsBQBA
+wyrz3Ut2vQAAnFaZ7x6z6wUA4LSKfPfq3CwAQPsqzlessmsFAOC0aQZeZD6K
+tTsAgCswxO+wWGbXCgDAvGF315gzswAAHRh2d1eYdwcA0Ing2t0qu04AAOYF
+++7sywIAXIFhd+dsZF/WeVkAgCsQnHe3yK4TAIB5wX3ZVXadAADMK2tygWz3
+nF0nAADzSi9dINttsusEACAmkO1es2sEACCmrMvN5bvsGgEAiJHtAAD6IdsB
+APRDtgMA6IdsBwDQj8jdFNk1AgAQE5iBss2uEQCAeeNza3YxAEAfxuchkO3W
+2XUCADBvfJ4C2e4xu04AAOaVXrpAtltk1wkAwGnjcx/IdW/ZdQIAMK/00QWy
+3XN2nQAAnDY+N6NXvXYAANdvfFaR/dgyIyW7VgAAjqtYs7MfCwDQuGCfXfGQ
+XSsAAMcFZxW7ZwwAoHHD7n6xyF5sscyuFwCAw6YeuxdrdgAA160y17mHAgCg
+UWfkOmdjAQAaNPXX1eS60ot3k103AADfm87DRs9N2IsFAGjQtAf7XJnpilV2
+7QAA/GZ8Hs9YqyvW2bUDALAz9dVtzsh0xSa7fgAAdsqM4TPX6t6mPOjsBABA
+A8bn6cxMZx8WAKAhJZtdkOtW2fUDALBzQa57NecEAKAdF+S6Z711AADtODPX
+ba3VAQC0ZToPq68OAODKjc995ZwTfXUAAI0an5eKXPeirw4AoE1lX1WuAwC4
+fsPuLjG5DgCgAxXnYrdyHQBAuyrX7O6z6wUA4LiKNbvH7FoBADiu7K9Ge+yy
+awUA4LSyFhfMdovsWgEAOC04z26TXScAAKdVnKFYZNcKAMBpwf3YbXadAADM
+G59nZ2MBAPowPq/m2QEAXL9gr902u04AAOaV8xGBbPecXScAAPOC5yhW2XUC
+ADCv5LZAtnvIrhMAgHnBbLfIrhMAgHnB+SfOyAIAXIFyj9hctsuuEQA+S1m/
+GK1HyzI7IrseuFQk241ususEgM9wYF7EdvRUes39/cc1mn5+9dsB8CUFZoFt
+pt70RXatEOEsBQBfWSDbfet16lN/1ItOq4LZbpldJwB8hsps98O9TXr1aM3U
+TzD3s/uUXScAfIYLs92+l/devezvi68r+DO9ya4TAD7DB2e7Y7169m/5qSI/
+n9k1AsBn+ORsd6xX7zb7+6Zv0xry3M+k9WUAuvMTs92+7fBbr55ZK3yoITYH
+ZZ1dJwB8tMRst++9V2+R/Z5w/YbYeYo3/14BQG8aynb7NoNZK1xg2PUBzP2c
+rbLrBICP1HC2+9Z7r95y0KtH0LDb84/8bFm7A6AbV5Lt9m2nv7fdi8ZRFT/b
+q+xaAeCjXGm226dXj4Omfw+IrN3dZtcKAB+hk2y3z71ovP98L4M/M5vsWgHg
+I3Sa7fbXZNaDXr0va4it3RWr7FoB4FJfINvtK3/P/3Iv2qBX70sY4mt3xTK7
+XgC4xBfMdvtKr95q0KvXtSF2T4V8B8DVk+2+8+29aHr1OlI+z8qfhWV2zQBw
+DtnupO2gV68bw259tubzf8yuGQBqyXZV3met6NW7UkPd3mzx7LMGvpIpF5S/
+6zZcrdq/6/jN/wy7tb3//MTPh4/1H6P/Heo+5/8b/XcDtQN8pPcepJtvct16
+yP+7FQCA85Ve89KTvGqgFgAALrcd4rNAAQAAAICf57WBGgAA+BjrBmoAAOBj
+3A7W7gAAevA4zUC5HXazUbLrAQCg3nb0kD0vmU+ZP539s/WVfHtn7W325w8A
+9EW2+yk2w24m5CL78wYA+ibbfQr3zgIAKWS7D7EddmfHl4N9VgAgkWx3tvee
+ufvszxAA4J1sF1b2WVeDnjkAoGGy3VHbQc8cAHBlZLtfldkk60HPHABwxb54
+ttsMeuYAgI58sWz3Pptkkf2+AwB8hs6z3XbY7bPqmQMAvoTOst37fV7LQc8c
+APAFdZDtNsNuNomeOQDgy7vCbPfrfV7Z7x0AQGuuINtth99mk+iZAwA4ocFs
+994zV2aT3Ga/PwAA16SRbLcZ3OcFAHCxpGz3a8+cfVYAgI/zk7LddnCfFwDA
+p/vEbPfeM2c2CQDAT/KB2e5FzxwAQK4Lst1WzxwAQFsqst2rnjkAgLbNZLuN
+njkAgOuxl+3eZ5MssusCAKBe2V/VMwcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAHxld7+7XUzus2sBAOA8Y5ZbjV5Hb9/YyHgA
+ANdlynBvR2xHN9k1TnWW9cSnqd7n0bKV2gAAWjCt1x3Lde+WyTXenMifL/Id
+AMCvmWl/H/aQVXKdp9YVi3X2ewkAkG3a05zLdcVj4zVust9LAIBsZb0rmO3S
+zlNM/X5z9b1kv5cAANmCuektsb77YPZcZ7+XAACZxjx0G8xNm8QaH1vfMwYA
+aEFFr90qscbn1veMAQBaUNFrt0isMXKG9zX7vQQAyNZRr91z9nsJAJCpotcu
+LTfptQMAiKnotcuca6fXDgAgoKLXLnOunV47AICAYK9dWm7SawcAEKPXDgCg
+H3rtAAD6odcOAKAfwV67t8T69NoBAARU9NptEmvUawcAEFDRa7dKrFGvHQBA
+QEWv3SKxRr12AAABeu0AAPqg1w4AoB967QAA+tFRr91b9nsJAJCto167TfZ7
+CQCQqbNeu1X2+wkAkKmzXrtF9vsJAJBJrx0AQD/02gEA9KGzXjtz7QCAL62z
+Xjtz7QCAL62jXjt3yAIAX15HvXbukAUAvjS9dgAA/eis1+42+/0EAMjUUa/d
+Nvu9BADI1lGv3Tr7vQQAyFTRa/eSWGO0126Z/X4CAGTSawcA0I+Oeu3S1hUB
+AFoR7bUb3STVF+21e8p+LwEAMnXWa/dw5td/X7dcZn8eAACXqOi1WyfWGO21
+q15XPLAm6B5aAOBqVfTapd318Jm9dvtrgtmfBwDAJSp67RZJ9X3qXLvxz21a
+2HcGALhURa9d2myRil675Zlfv4l9ZwCAS1X02r0l1hjttavukytrkR+RDwEA
+WlDRa/eWWGOk1+71zK+92vs6KTNeAAA+QkWvXUof2vi6D8H6Nmd+/Zfs7xEA
+4CNU9tptkmrcBOtbnfG1b/a+hrnHAMDVqum1K+t7jde3/ICvv8j+TAAAzlXT
+a/ez++3udnNPIn12Z+eyu+/PaJzVrwcA0IqKXruffs5grw/uw3Pngf3Ydfbn
+AQBwrspeu5+6Z1m7nnhmttufmXfWPbQAAC2o7GU7+7zCB9QV2ZfdnPE6365Z
+2o8FAK7aOWtjd588I+RIrovMQNlUvs7+vOJ19ucBAHCJM3rtPnVf9sg64mL6
+tbneu03la+3PVam+zwIAoBV35/Xanb3/GajnUK5bzvz6t7YVr7W/Zvfh3w8A
+wM8UyEpzHj+wlqdTuW76PTd3M313wde6ObBeucj+PAAALnF3Xq/dyfx1Rg2L
+A3utr8e+biCPzp5zPfB9u4cCALh6B9auzrU647Vvj2TLUtPJvre772cNV+0V
+H3jN8no/bV4fAMBnuIv32m2mtbK5GSQlI5VZcbczr/l4d/xu2OdIzpr2VE+d
+q1jvf5273f0W+6/7OpcjAQCuQWBv87s1uSmXHctkh3LeZs+pbFh+f9XM4Cnf
+nVq/e/vmtQ/lQLkOAOjGkf3QQxZ7f24RyFRRJdMtL/w+HgNritX7vgAA1+Qu
+2Gt34s+/768+V2ar7ZQrP+xur2kNbxX4nl6n36e/DgDoxl1Fr13F17yf1vRW
+R5Rfu/1J39vy0Otnv+8AAJ/hrrLXDgCAdp3bawcAQHsu7bUDAKANn9FrBwBA
+Dr12AAD90GsHANAPvXYAAH3QawcA0A+9dgAA/dBrBwDQD712AAB90GsHANAP
+vXYAAP3QawcA0A+9dgAAfdBrBwDQD712AAD90GsHANAPvXYAAH3QawcA0A+9
+dgAA/dBrBwDQD712AAB9qOi1e86uFQCA08o+azDbPWbXCgDAaeV8RDDb3WbX
+CgDAacFst8muEwCAeWWv1flYAIA+jLntZvR6Itets2sEACBuzG/3Zd91L9O9
+mlUM0L7/B8sZ/ck=
+      "], {{0, 461}, {631, 0}}, {0, 255},
+      ColorFunction->RGBColor],
+     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
+     Selectable->False],
+    BaseStyle->"ImageGraphics",
+    ImageSize->{56.91687500000012, Automatic},
+    ImageSizeRaw->{631, 461},
+    PlotRange->{{0, 631}, {0, 461}}], " ", "=", " ", 
+   RowBox[{"i", " ", "e", " ", 
+    SuperscriptBox["\[Gamma]", "\[Mu]"]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->332437474]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+By charge conjugation invariance of QED, each diagram in the second row \
+contributes the same as the diagram above it.  Therefore, we only need to add \
+the first three diagrams and multiply the result by 2.  We will parametrize \
+the amplitude as:\
+\>", "Text",
+ Deletable->True,
+ CellID->1462052232],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"i", " ", "\[ScriptCapitalM]"}], "=", 
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"[", 
+      RowBox[{
+       RowBox[{"2", 
+        SubscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "s", ")"}]]}], "+", 
+       RowBox[{"2", 
+        SubscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "t", ")"}]]}], "+", 
+       RowBox[{"2", 
+        SubscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "u", ")"}]]}]}], "]"}], "\[Mu]\[Nu]\[Rho]\[Sigma]"], 
+    " ", 
+    RowBox[{
+     SubscriptBox["\[Epsilon]", "\[Mu]"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "1"], ")"}], 
+    RowBox[{
+     SubscriptBox["\[Epsilon]", "\[Nu]"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "2"], ")"}], 
+    RowBox[{
+     SubsuperscriptBox["\[Epsilon]", "\[Rho]", "*"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "3"], ")"}], 
+    RowBox[{
+     SubsuperscriptBox["\[Epsilon]", "\[Sigma]", "*"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "4"], ")"}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->607234498]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["where the individual contributions are", "Text",
+ Deletable->True,
+ CellID->2002241684],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   SubsuperscriptBox["\[CapitalPi]", 
+    RowBox[{"(", "s", ")"}], "\[Mu]\[Nu]\[Rho]\[Sigma]"], "=", 
+   RowBox[{
+    RowBox[{"-", 
+     SuperscriptBox["e", "4"]}], 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{"Tr", "[", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+          RowBox[{
+           RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "-", 
+              SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+          ")"}], 
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Sigma]"], "(", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "1"], "-", 
+             SubscriptBox["p", "3"]}], ")"}], ".", "\[Gamma]"}], ")"}], 
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "+", 
+              SubscriptBox["p", "1"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+          ")"}]}], "]"}], 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "-", 
+              SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "1"], "-", 
+             SubscriptBox["p", "3"]}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", 
+            SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1955511801],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   SubsuperscriptBox["\[CapitalPi]", 
+    RowBox[{"(", "t", ")"}], "\[Mu]\[Nu]\[Rho]\[Sigma]"], "=", 
+   RowBox[{
+    RowBox[{"-", 
+     SuperscriptBox["e", "4"]}], 
+    SuperscriptBox["\[Mu]", 
+     RowBox[{"2", "\[Epsilon]"}]], 
+    RowBox[{"\[Integral]", 
+     RowBox[{
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+      FractionBox[
+       RowBox[{"Tr", "[", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+          RowBox[{
+           RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Sigma]"], "(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "+", 
+              SubscriptBox["p", "1"], "+", 
+              SubscriptBox["p", "2"], "-", 
+              SubscriptBox["p", "3"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+          ")"}], 
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "1"], "-", 
+             SubscriptBox["p", "3"]}], ")"}], ".", "\[Gamma]"}], ")"}], 
+         RowBox[{
+          SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "+", 
+              SubscriptBox["p", "1"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}], 
+          ")"}]}], "]"}], 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"[", 
+           RowBox[{
+            SuperscriptBox["k", "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "+", 
+              SubscriptBox["p", "1"], "+", 
+              SubscriptBox["p", "2"], "-", 
+              SubscriptBox["p", "3"]}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "1"], "-", 
+             SubscriptBox["p", "3"]}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}], "[", 
+        RowBox[{
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"k", "+", 
+            SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+         SuperscriptBox["m", "2"]}], "]"}]]}]}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->968074245],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    SubsuperscriptBox["\[CapitalPi]", 
+     RowBox[{"(", "u", ")"}], "\[Mu]\[Nu]\[Rho]\[Sigma]"], "=", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["e", "4"]}], 
+     SuperscriptBox["\[Mu]", 
+      RowBox[{"2", "\[Epsilon]"}]], 
+     RowBox[{"\[Integral]", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[DifferentialD]", "d"], "k"}], 
+        SuperscriptBox[
+         RowBox[{"(", 
+          RowBox[{"2", "\[Pi]"}], ")"}], "d"]], 
+       FractionBox[
+        RowBox[{"Tr", "[", 
+         RowBox[{
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Mu]"], "(", 
+           RowBox[{
+            RowBox[{"k", ".", "\[Gamma]"}], "+", "m"}], ")"}], 
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Nu]"], "(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"k", "-", 
+               SubscriptBox["p", "2"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}],
+            ")"}], 
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Rho]"], "(", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "-", 
+              SubscriptBox["p", "2"], "+", 
+              SubscriptBox["p", "3"]}], ")"}], ".", "\[Gamma]"}], ")"}], 
+          RowBox[{
+           SuperscriptBox["\[Gamma]", "\[Sigma]"], "(", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"k", "+", 
+               SubscriptBox["p", "1"]}], ")"}], ".", "\[Gamma]"}], "+", "m"}],
+            ")"}]}], "]"}], 
+        RowBox[{
+         RowBox[{
+          RowBox[{
+           RowBox[{"[", 
+            RowBox[{
+             SuperscriptBox["k", "2"], "-", 
+             SuperscriptBox["m", "2"]}], "]"}], "[", 
+           RowBox[{
+            SuperscriptBox[
+             RowBox[{"(", 
+              RowBox[{"k", "-", 
+               SubscriptBox["p", "2"]}], ")"}], "2"], "-", 
+            SuperscriptBox["m", "2"]}], "]"}], "[", 
+          RowBox[{
+           SuperscriptBox[
+            RowBox[{"(", 
+             RowBox[{"k", "-", 
+              SubscriptBox["p", "2"], "+", 
+              SubscriptBox["p", "3"]}], ")"}], "2"], "-", 
+           SuperscriptBox["m", "2"]}], "]"}], "[", 
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"k", "+", 
+             SubscriptBox["p", "1"]}], ")"}], "2"], "-", 
+          SuperscriptBox["m", "2"]}], "]"}]]}]}]}]}], ","}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1087726043]
+}, Open  ]],
+
+Cell[TextData[{
+ "subject to the on shell kinematic conditions ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "2"], "=", 
+    RowBox[{
+     SubsuperscriptBox["p", "2", "2"], "=", 
+     RowBox[{
+      SubsuperscriptBox["p", "3", "2"], "=", 
+      RowBox[{
+       SubsuperscriptBox["p", "4", "2"], "=", "0"}]}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", "=", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "1"], "+", 
+       SubscriptBox["p", "2"]}], ")"}], "2"]}], TraditionalForm]], 
+  "InlineMath"],
+ ", and ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"t", "=", 
+    SuperscriptBox[
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p", "1"], "-", 
+       SubscriptBox["p", "3"]}], ")"}], "2"]}], TraditionalForm]], 
+  "InlineMath"],
+ ".\[LineSeparator]The external photon polarization vectors which contract \
+into the loop integrals satisfy transversality ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"p", ".", 
+     RowBox[{"\[Epsilon]", "(", 
+      StyleBox["p",
+       FontWeight->"Bold"], ")"}]}], "=", "0"}], TraditionalForm]], 
+  "InlineMath"],
+ ".  Therefore, it is safe to set ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubsuperscriptBox["p", "1", "\[Mu]"], "=", 
+    RowBox[{
+     SubsuperscriptBox["p", "2", "\[Nu]"], "=", 
+     RowBox[{
+      SubsuperscriptBox["p", "3", "\[Rho]"], "=", 
+      RowBox[{
+       SubsuperscriptBox["p", "4", "\[Sigma]"], "=", "0"}]}]}]}], 
+   TraditionalForm]], "InlineMath"],
+ " in the result."
+}], "Text",
+ Deletable->True,
+ CellID->1272226019],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Define on shell conditions and photon polarization transversality conditions:\
+\
+\>", "MathCaption",
+ CellID->836781195],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Needs", "[", "\"\<X`\>\"", "]"}], "\[IndentingNewLine]", 
+ RowBox[{"onShell", "=", 
+  RowBox[{"MandelstamRelations", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "p1", ",", "p2", ",", "p3", ",", "p4", ",", "0", ",", "0", ",", "0", 
+       ",", "0"}], "}"}], "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"s", ",", "t", ",", "u"}], "}"}]}], ",", 
+    RowBox[{"Eliminate", "\[Rule]", "u"}]}], "]"}]}]}], "Input",
+ CellLabel->"In[1]:=",
+ CellID->2058623809],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"p1", ".", "p1"}], "\[Rule]", "0"}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p2"}], "\[Rule]", "0"}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p3"}], "\[Rule]", "0"}], ",", 
+   RowBox[{
+    RowBox[{"p4", ".", "p4"}], "\[Rule]", "0"}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p2"}], "\[Rule]", 
+    FractionBox["s", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p3", ".", "p4"}], "\[Rule]", 
+    FractionBox["s", "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p3"}], "\[Rule]", 
+    RowBox[{"-", 
+     FractionBox["t", "2"]}]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p4"}], "\[Rule]", 
+    RowBox[{"-", 
+     FractionBox["t", "2"]}]}], ",", 
+   RowBox[{
+    RowBox[{"p1", ".", "p4"}], "\[Rule]", 
+    FractionBox[
+     RowBox[{"s", "+", "t"}], "2"]}], ",", 
+   RowBox[{
+    RowBox[{"p2", ".", "p3"}], "\[Rule]", 
+    FractionBox[
+     RowBox[{"s", "+", "t"}], "2"]}], ",", 
+   RowBox[{
+    SubscriptBox["\[CurlyEpsilon]", 
+     RowBox[{
+      RowBox[{"{", "p1", "}"}], ",", 
+      RowBox[{"{", "p2", "}"}], ",", 
+      RowBox[{"{", "p3", "}"}], ",", 
+      RowBox[{"{", "p4", "}"}]}]], "\[Rule]", "0"}]}], "}"}]], "Output",
+ ImageSize->{503, 57},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[1]=",
+ CellID->907084828]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"photonTransversality", "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{
+     SubscriptBox["p1", "\[Mu]"], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     SubscriptBox["p2", "\[Nu]"], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     SubscriptBox["p3", "\[Rho]"], "\[Rule]", "0"}], ",", 
+    RowBox[{
+     SubscriptBox["p4", "\[Sigma]"], "\[Rule]", "0"}]}], "}"}]}]], "Input",
+ CellLabel->"In[2]:=",
+ CellID->1210458623],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["p1", "\[Mu]"], "\[Rule]", "0"}], ",", 
+   RowBox[{
+    SubscriptBox["p2", "\[Nu]"], "\[Rule]", "0"}], ",", 
+   RowBox[{
+    SubscriptBox["p3", "\[Rho]"], "\[Rule]", "0"}], ",", 
+   RowBox[{
+    SubscriptBox["p4", "\[Sigma]"], "\[Rule]", "0"}]}], "}"}]], "Output",
+ ImageSize->{228, 19},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[2]=",
+ CellID->964910683]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Initiate the integrals (omitting the factor ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"-", 
+    SuperscriptBox["e", "4"]}], TraditionalForm]], "InlineMath"],
+ "), and apply the on shell conditions:"
+}], "MathCaption",
+ Deletable->True,
+ CellID->272358405],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"sChannelGraph", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Spur", "[", 
+        RowBox[{
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p1", "-", "p3"}], ")"}], ".", "\[Gamma]"}], 
+          "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+       
+       RowBox[{"{", 
+        RowBox[{"k", ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+     "onShell"}], "/.", "photonTransversality"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"tChannelGraph", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Spur", "[", 
+        RowBox[{
+         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+         RowBox[{
+          RowBox[{"k", ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ")"}], ".", 
+           "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p1", "-", "p3"}], ")"}], ".", "\[Gamma]"}], 
+          "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+         SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+          RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+       
+       RowBox[{"{", 
+        RowBox[{"k", ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ",", "m"}], "}"}]}], 
+      "]"}], "/.", "onShell"}], "/.", "photonTransversality"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"uChannelGraph", "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Spur", "[", 
+         RowBox[{
+          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+          RowBox[{
+           RowBox[{"k", ".", "\[Gamma]"}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p3", "-", "p2"}], ")"}], ".", "\[Gamma]"}], 
+           "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+          SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+           RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "+", "p3", "-", "p2"}], ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+      "onShell"}], "/.", "photonTransversality"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"total", "=", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"2", "sChannelGraph"}], "+", 
+     RowBox[{"2", "tChannelGraph"}], "+", 
+     RowBox[{"2", "uChannelGraph"}]}], ")"}]}], ";"}]}], "Input",
+ CellLabel->"In[3]:=",
+ CellID->1240061078]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Properties of the photon-photon scattering amplitude", "Section",
+ CellID->2067064708],
+
+Cell["\<\
+The one loop photon-photon scattering amplitude satisfies a number of \
+properties which can be used to check the calculation.\
+\>", "Text",
+ CellID->1392619239],
+
+Cell[CellGroupData[{
+
+Cell["Ultraviolet behavior", "Subsection",
+ CellID->1037283903],
+
+Cell["\<\
+The four photon Green function is expected to be ultraviolet finite.\
+\>", "Text",
+ CellID->1195869603],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " with the option ",
+ Cell[BoxData[
+  RowBox[{"Part", "\[Rule]", "UVDivergent"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to compute only the ultraviolet divergent part of the total amplitude.  \
+Considered separately, each diagram is divergent."
+}], "MathCaption",
+ CellID->1302935341],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"sChannelGraph", ",", 
+   RowBox[{"Part", "\[Rule]", "UVDivergent"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"tChannelGraph", ",", 
+   RowBox[{"Part", "\[Rule]", "UVDivergent"}]}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"uChannelGraph", ",", 
+   RowBox[{"Part", "\[Rule]", "UVDivergent"}]}], "]"}]}], "Input",
+ CellLabel->"In[7]:=",
+ CellID->543527728],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"4", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Sigma]", ",", "\[Rho]"}]], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], 
+   RowBox[{"3", " ", "\[Epsilon]"}]], "+", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Sigma]", ",", "\[Nu]"}]], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], 
+   RowBox[{"3", " ", "\[Epsilon]"}]], "-", 
+  FractionBox[
+   RowBox[{"8", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Sigma]", ",", "\[Mu]"}]], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], 
+   RowBox[{"3", " ", "\[Epsilon]"}]]}]], "Output",
+ ImageSize->{223, 34},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[7]=",
+ CellID->1111633250],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox[
+    RowBox[{"8", " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Rho]"}]], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], 
+    RowBox[{"3", " ", "\[Epsilon]"}]]}], "+", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Sigma]", ",", "\[Nu]"}]], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], 
+   RowBox[{"3", " ", "\[Epsilon]"}]], "+", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Sigma]", ",", "\[Mu]"}]], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], 
+   RowBox[{"3", " ", "\[Epsilon]"}]]}]], "Output",
+ ImageSize->{231, 34},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[8]=",
+ CellID->112303850],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox[
+   RowBox[{"4", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Sigma]", ",", "\[Rho]"}]], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], 
+   RowBox[{"3", " ", "\[Epsilon]"}]], "-", 
+  FractionBox[
+   RowBox[{"8", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Sigma]", ",", "\[Nu]"}]], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], 
+   RowBox[{"3", " ", "\[Epsilon]"}]], "+", 
+  FractionBox[
+   RowBox[{"4", " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Sigma]", ",", "\[Mu]"}]], " ", 
+    SubscriptBox["\[DoubleStruckG]", 
+     RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], 
+   RowBox[{"3", " ", "\[Epsilon]"}]]}]], "Output",
+ ImageSize->{223, 34},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[9]=",
+ CellID->2000164884]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["The total amplitude is UV finite:", "MathCaption",
+ CellID->17726811],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"total", ",", 
+   RowBox[{"Part", "\[Rule]", "UVDivergent"}]}], "]"}]], "Input",
+ CellLabel->"In[10]:=",
+ CellID->2073974202],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[10]=",
+ CellID->1326096727]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["QED Ward identities", "Subsection",
+ CellID->1769461497],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+The scattering amplitude is expected to satisfy the on shell Ward identity\
+\[LineSeparator]at each of the four vertices\
+\>", "Text",
+ CellID->1988068558],
+
+Cell[BoxData[
+ FormBox[
+  TagBox[
+   StyleBox[
+    RowBox[{"{", GridBox[{
+       {
+        RowBox[{
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"[", 
+            RowBox[{
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "s", ")"}]]}], "+", 
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "t", ")"}]]}], "+", 
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "u", ")"}]]}]}], "]"}], 
+           "\[Mu]\[Nu]\[Rho]\[Sigma]"], " ", 
+          SubscriptBox[
+           RowBox[{"(", 
+            SubscriptBox["p", "1"], ")"}], "\[Mu]"]}], "=", "0"}]},
+       {
+        RowBox[{
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"[", 
+            RowBox[{
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "s", ")"}]]}], "+", 
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "t", ")"}]]}], "+", 
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "u", ")"}]]}]}], "]"}], 
+           "\[Mu]\[Nu]\[Rho]\[Sigma]"], " ", 
+          SubscriptBox[
+           RowBox[{"(", 
+            SubscriptBox["p", "2"], ")"}], "\[Nu]"]}], "=", "0"}]},
+       {
+        RowBox[{
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"[", 
+            RowBox[{
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "s", ")"}]]}], "+", 
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "t", ")"}]]}], "+", 
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "u", ")"}]]}]}], "]"}], 
+           "\[Mu]\[Nu]\[Rho]\[Sigma]"], " ", 
+          SubscriptBox[
+           RowBox[{"(", 
+            SubscriptBox["p", "3"], ")"}], "\[Rho]"]}], "=", "0"}]},
+       {
+        RowBox[{
+         RowBox[{
+          SuperscriptBox[
+           RowBox[{"[", 
+            RowBox[{
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "s", ")"}]]}], "+", 
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "t", ")"}]]}], "+", 
+             RowBox[{"2", 
+              SubscriptBox["\[CapitalPi]", 
+               RowBox[{"(", "u", ")"}]]}]}], "]"}], 
+           "\[Mu]\[Nu]\[Rho]\[Sigma]"], " ", 
+          SubscriptBox[
+           RowBox[{"(", 
+            SubscriptBox["p", "4"], ")"}], "\[Sigma]"]}], "=", "0"}]}
+      }]}],
+    ShowAutoStyles->False],
+   #& ], TraditionalForm]], "NumberedEquation",
+ CellID->2109246158]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Contract the result with tensors ",
+ Cell[BoxData[
+  SubscriptBox["p1", "\[Mu]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  SubscriptBox["p2", "\[Nu]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  SubscriptBox["p3", "\[Rho]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  SubscriptBox["p4", "\[Sigma]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", apply the on shell conditions and photon transversality condition apply \
+",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (about a minute runtime to verify all four identities on a modern machine):"
+}], "MathCaption",
+ CellID->2123843762],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"Contract", "[", 
+    RowBox[{"total", " ", 
+     SubscriptBox["p1", "\[Mu]"]}], "]"}], "/.", "onShell"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"Contract", "[", 
+    RowBox[{"total", " ", 
+     SubscriptBox["p2", "\[Nu]"]}], "]"}], "/.", "onShell"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{"Contract", "[", 
+    RowBox[{"total", " ", 
+     SubscriptBox["p3", "\[Rho]"]}], "]"}], "/.", "onShell"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"Contract", "[", 
+      RowBox[{"total", " ", 
+       SubscriptBox["p4", "\[Sigma]"]}], "]"}], "/.", 
+     RowBox[{"p4", "\[Rule]", 
+      RowBox[{"p1", "+", "p2", "-", "p3"}]}]}], "/.", "onShell"}], "/.", 
+   "photonTransversality"}], "]"}]}], "Input",
+ CellLabel->"In[11]:=",
+ CellID->2116411147],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[11]=",
+ CellID->1431542703],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[12]=",
+ CellID->1678911980],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[13]=",
+ CellID->1686009927],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[14]=",
+ CellID->722120924]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "It is more efficient to verify these by directly contracting the integrands \
+before calling ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " (checking ",
+ Cell[BoxData[
+  SubscriptBox["p1", "\[Mu]"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " Ward identity): "
+}], "MathCaption",
+ CellID->1944294194],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"sChannelWardP1", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Contract", "[", 
+        RowBox[{
+         SubscriptBox["p1", "\[Mu]"], 
+         RowBox[{"Spur", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+           RowBox[{
+            RowBox[{"k", ".", "\[Gamma]"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"k", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"k", "+", "p1", "-", "p3"}], ")"}], ".", "\[Gamma]"}], 
+            "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]}], "]"}], ",",
+        "k", ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+     "onShell"}], "/.", "photonTransversality"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"tChannelWardP1", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"LoopIntegrate", "[", 
+      RowBox[{
+       RowBox[{"Contract", "[", 
+        RowBox[{
+         SubscriptBox["p1", "\[Mu]"], 
+         RowBox[{"Spur", "[", 
+          RowBox[{
+           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+           RowBox[{
+            RowBox[{"k", ".", "\[Gamma]"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ")"}], ".", 
+             "\[Gamma]"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"k", "+", "p1", "-", "p3"}], ")"}], ".", "\[Gamma]"}], 
+            "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+           SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+            RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]}], "]"}], ",",
+        "k", ",", 
+       RowBox[{"{", 
+        RowBox[{"k", ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ",", "m"}], "}"}]}], 
+      "]"}], "/.", "onShell"}], "/.", "photonTransversality"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"uChannelWardP1", "=", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"LoopIntegrate", "[", 
+       RowBox[{
+        RowBox[{"Contract", "[", 
+         RowBox[{
+          SubscriptBox["p1", "\[Mu]"], 
+          RowBox[{"Spur", "[", 
+           RowBox[{
+            SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+            RowBox[{
+             RowBox[{"k", ".", "\[Gamma]"}], "+", 
+             RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+            SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{"k", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+             RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+            SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{"k", "+", "p3", "-", "p2"}], ")"}], ".", "\[Gamma]"}], 
+             "+", 
+             RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+            SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"(", 
+               RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+             RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}]}], "]"}], 
+        ",", "k", ",", 
+        RowBox[{"{", 
+         RowBox[{"k", ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "+", "p3", "-", "p2"}], ",", "m"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}]}], "]"}], "/.", 
+      "onShell"}], "/.", "photonTransversality"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"LoopRefine", "[", 
+  RowBox[{"sChannelWardP1", "+", "tChannelWardP1", "+", "uChannelWardP1"}], 
+  "]"}]}], "Input",
+ CellLabel->"In[15]:=",
+ CellID->1641345806],
+
+Cell[BoxData["0"], "Output",
+ ImageSize->{11, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[18]=",
+ CellID->1256280471]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Ward identities in ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " 10 and above"
+}], "Subsection",
+ CellID->2027696988],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " 10 features a new evaluation control function ",
+ Cell[BoxData[
+  ButtonBox["Inactive",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Inactive"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " which stops functions from evaluating until they are enabled with ",
+ Cell[BoxData[
+  ButtonBox["Activate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Activate"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  We can use this feature to check the Ward identities with ease:"
+}], "Text",
+ CellID->1287909250],
+
+Cell[BoxData[{
+ RowBox[{"sChannelGraph", "=", 
+  RowBox[{
+   RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Inactive", "[", "Spur", "]"}], "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"k", ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "+", "p1", "-", "p3"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}]}], 
+   "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"tChannelGraph", "=", 
+  RowBox[{
+   RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Inactive", "[", "Spur", "]"}], "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"k", ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ")"}], ".", 
+        "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "+", "p1", "-", "p3"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1", "-", "p3"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1", "-", "p3", "+", "p2"}], ",", "m"}], "}"}]}], 
+   "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"uChannelGraph", "=", 
+  RowBox[{
+   RowBox[{"Inactive", "[", "LoopIntegrate", "]"}], "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Inactive", "[", "Spur", "]"}], "[", 
+     RowBox[{
+      SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
+      RowBox[{
+       RowBox[{"k", ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Rho]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "+", "p3", "-", "p2"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}], ",", 
+      SubscriptBox["\[Gamma]", "\[Sigma]"], ",", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"k", "+", "p1"}], ")"}], ".", "\[Gamma]"}], "+", 
+       RowBox[{"m", " ", "\[DoubleStruckOne]"}]}]}], "]"}], ",", "k", ",", 
+    RowBox[{"{", 
+     RowBox[{"k", ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p1"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "+", "p3", "-", "p2"}], ",", "m"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"k", "-", "p2"}], ",", "m"}], "}"}]}], "]"}]}]}], "Input",
+ CellLabel->"In[19]:=",
+ CellID->2098994675],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"Activate", "[", 
+     RowBox[{"Contract", "[", 
+      RowBox[{
+       SubscriptBox["p1", "\[Mu]"], 
+       RowBox[{"(", 
+        RowBox[{"sChannelGraph", "+", "tChannelGraph", "+", "uChannelGraph"}],
+         ")"}]}], "]"}], "]"}], "/.", "onShell"}], "/.", 
+   "photonTransversality"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[22]:=",
+ CellID->1089633456],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"Activate", "[", 
+     RowBox[{"Contract", "[", 
+      RowBox[{
+       SubscriptBox["p2", "\[Nu]"], 
+       RowBox[{"(", 
+        RowBox[{"sChannelGraph", "+", "tChannelGraph", "+", "uChannelGraph"}],
+         ")"}]}], "]"}], "]"}], "/.", "onShell"}], "/.", 
+   "photonTransversality"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[23]:=",
+ CellID->1479689366],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"Activate", "[", 
+     RowBox[{"Contract", "[", 
+      RowBox[{
+       SubscriptBox["p3", "\[Rho]"], 
+       RowBox[{"(", 
+        RowBox[{"sChannelGraph", "+", "tChannelGraph", "+", "uChannelGraph"}],
+         ")"}]}], "]"}], "]"}], "/.", "onShell"}], "/.", 
+   "photonTransversality"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[24]:=",
+ CellID->735736432],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"Activate", "[", 
+     RowBox[{"Contract", "[", 
+      RowBox[{"(*", "p4", "*)"}], 
+      RowBox[{
+       SubscriptBox[
+        RowBox[{"(", 
+         RowBox[{"p1", "+", "p2", "-", "p3"}], ")"}], "\[Sigma]"], 
+       RowBox[{"(", 
+        RowBox[{"sChannelGraph", "+", "tChannelGraph", "+", "uChannelGraph"}],
+         ")"}]}], "]"}], "]"}], "/.", "onShell"}], "/.", 
+   "photonTransversality"}], "//", "LoopRefine"}]], "Input",
+ CellLabel->"In[25]:=",
+ CellID->1979174694]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Scattering amplitude in various limits", "Section",
+ CellID->1669356131],
+
+Cell[TextData[{
+ "With ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X, we can compute the light by light scattering amplitude in different \
+kinematic limits.  Remember to restore the omitted factor ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"-", 
+    SuperscriptBox["e", "4"]}], TraditionalForm]], "InlineMath"],
+ ", and the factor ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    FractionBox["i", 
+     RowBox[{"16", 
+      SuperscriptBox["\[Pi]", "2"]}]],
+    FontColor->RGBColor[0.6666666666666666, 0., 0.]], TraditionalForm]], 
+  "InlineMath"],
+ " implicit in the normalization of ",
+ Cell[BoxData[
+  ButtonBox["LoopIntegrate",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopIntegrate"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ "."
+}], "Text",
+ CellID->582256797],
+
+Cell[CellGroupData[{
+
+Cell["Low energy (Euler-Heisenberg) limit", "Subsection",
+ CellID->1754001057],
+
+Cell[TextData[{
+ "In the low energy limit ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", ",", 
+    RowBox[{"|", "t", "|", 
+     RowBox[{"\[LessLess]", "m"}]}]}], TraditionalForm]], "InlineMath"],
+ ", the amplitude starts at ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"\[ScriptCapitalO]", "(", 
+    FractionBox["1", 
+     SuperscriptBox["m", "4"]], ")"}], TraditionalForm]], "InlineMath"],
+ ":"
+}], "Text",
+ Deletable->True,
+ CellID->164028976],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["LoopRefineSeries",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefineSeries"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to obtain the large electron mass behavior of the amplitude (about 15 \
+seconds runtime on a modern machine):"
+}], "MathCaption",
+ CellID->1766653474],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ampLE", "=", 
+  RowBox[{
+   RowBox[{"LoopRefineSeries", "[", 
+    RowBox[{"total", ",", 
+     RowBox[{"{", 
+      RowBox[{"m", ",", "Infinity", ",", "4"}], "}"}]}], "]"}], "//", 
+   "Normal"}]}]], "Input",
+ CellLabel->"In[19]:=",
+ CellID->42398033,
+ ExpressionUUID -> "e1f7241b-e178-4473-9767-70fae6e4cbd3"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   SuperscriptBox["m", "4"]], 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{
+     FractionBox["36", "35"], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Mu]"]}], "+", 
+    RowBox[{
+     FractionBox["36", "35"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Mu]"]}], "+", 
+    RowBox[{
+     FractionBox["52", "105"], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"]}], "+", 
+    RowBox[{
+     FractionBox["52", "105"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"]}], "-", 
+    RowBox[{
+     FractionBox["16", "21"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"]}], "-", 
+    RowBox[{
+     FractionBox["8", "35"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"]}], "-", 
+    RowBox[{
+     FractionBox["36", "35"], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Mu]"]}], "-", 
+    RowBox[{
+     FractionBox["16", "21"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Mu]"]}], "-", 
+    RowBox[{
+     FractionBox["352", "315"], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Mu]"]}], "-", 
+    RowBox[{
+     FractionBox["352", "315"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Mu]"]}], "+", 
+    RowBox[{
+     FractionBox["36", "35"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Mu]"]}], "+", 
+    RowBox[{
+     FractionBox["352", "315"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Mu]"]}], "-", 
+    RowBox[{
+     FractionBox["4", "105"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"27", " ", 
+        SubscriptBox["p1", "\[Rho]"]}], "+", 
+       RowBox[{"13", " ", 
+        SubscriptBox["p2", "\[Rho]"]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p1", "\[Sigma]"], "+", 
+       SubscriptBox["p2", "\[Sigma]"], "-", 
+       SubscriptBox["p3", "\[Sigma]"]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p2", "\[Mu]"], "-", 
+       SubscriptBox["p3", "\[Mu]"]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       SubscriptBox["p1", "\[Nu]"], "-", 
+       SubscriptBox["p3", "\[Nu]"]}], ")"}]}], "-", 
+    RowBox[{
+     FractionBox["104", "63"], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "-", 
+    RowBox[{
+     FractionBox["104", "63"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "-", 
+    RowBox[{
+     FractionBox["8", "35"], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "-", 
+    RowBox[{
+     FractionBox["52", "105"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "+", 
+    RowBox[{
+     FractionBox["104", "63"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "+", 
+    RowBox[{
+     FractionBox["52", "105"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "+", 
+    RowBox[{
+     FractionBox["36", "35"], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "+", 
+    RowBox[{
+     FractionBox["16", "21"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "+", 
+    RowBox[{
+     FractionBox["8", "35"], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "+", 
+    RowBox[{
+     FractionBox["52", "105"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "-", 
+    RowBox[{
+     FractionBox["36", "35"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "-", 
+    RowBox[{
+     FractionBox["52", "105"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"]}], "-", 
+    RowBox[{
+     FractionBox["28", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{"s", "+", "t"}], ")"}], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Mu]"}]]}], "-", 
+    RowBox[{
+     FractionBox["28", "45"], " ", "t", " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Mu]"}]]}], "+", 
+    RowBox[{
+     FractionBox["28", "45"], " ", "s", " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Nu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Mu]"}]]}], "-", 
+    RowBox[{
+     FractionBox["2", "15"], " ", 
+     RowBox[{"(", 
+      RowBox[{"s", "+", "t"}], ")"}], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Nu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Mu]"}]]}], "+", 
+    RowBox[{
+     FractionBox["28", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{"s", "+", "t"}], ")"}], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Nu]"}]]}], "+", 
+    RowBox[{
+     FractionBox["28", "45"], " ", "t", " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Nu]"}]]}], "+", 
+    RowBox[{
+     FractionBox["2", "15"], " ", "t", " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Nu]"}]]}], "+", 
+    RowBox[{
+     FractionBox["28", "45"], " ", "s", " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Nu]"}]]}], "-", 
+    RowBox[{
+     FractionBox["2", "15"], " ", "s", " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Rho]"}]]}], "-", 
+    RowBox[{
+     FractionBox["28", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{"s", "+", "t"}], ")"}], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Rho]"}]]}], "+", 
+    RowBox[{
+     FractionBox["28", "45"], " ", "t", " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Rho]"}]]}], "+", 
+    RowBox[{
+     FractionBox["28", "45"], " ", "s", " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Nu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Rho]"}]]}], "+", 
+    RowBox[{
+     FractionBox["14", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{"s", "+", "t"}], ")"}], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+    RowBox[{
+     FractionBox["14", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{"s", "+", "t"}], ")"}], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+    RowBox[{
+     FractionBox["14", "45"], " ", "t", " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+    RowBox[{
+     FractionBox["14", "45"], " ", "t", " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+    RowBox[{
+     FractionBox["2", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"10", " ", "s"}], "+", 
+       RowBox[{"7", " ", "t"}]}], ")"}], " ", 
+     SubscriptBox["p1", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "-", 
+    RowBox[{
+     FractionBox["2", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", "s"}], "-", 
+       RowBox[{"7", " ", "t"}]}], ")"}], " ", 
+     SubscriptBox["p2", "\[Rho]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+    RowBox[{
+     FractionBox["1", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", 
+        SuperscriptBox["s", "2"]}], "-", 
+       RowBox[{"14", " ", "s", " ", "t"}], "-", 
+       RowBox[{"14", " ", 
+        SuperscriptBox["t", "2"]}]}], ")"}], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Rho]"}]], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Nu]"}]]}], "+", 
+    RowBox[{
+     FractionBox["14", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{"s", "+", "t"}], ")"}], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "+", 
+    RowBox[{
+     FractionBox["2", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"7", " ", "s"}], "+", 
+       RowBox[{"10", " ", "t"}]}], ")"}], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "+", 
+    RowBox[{
+     FractionBox["14", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{"s", "+", "t"}], ")"}], " ", 
+     SubscriptBox["p1", "\[Nu]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "-", 
+    RowBox[{
+     FractionBox["14", "45"], " ", "s", " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Nu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "+", 
+    RowBox[{
+     FractionBox["2", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"7", " ", "s"}], "-", 
+       RowBox[{"3", " ", "t"}]}], ")"}], " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Nu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "-", 
+    RowBox[{
+     FractionBox["14", "45"], " ", "s", " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Nu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "+", 
+    RowBox[{
+     FractionBox["1", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", "14"}], " ", 
+        SuperscriptBox["s", "2"]}], "-", 
+       RowBox[{"14", " ", "s", " ", "t"}], "+", 
+       RowBox[{"3", " ", 
+        SuperscriptBox["t", "2"]}]}], ")"}], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Nu]"}]], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Mu]", ",", "\[Rho]"}]]}], "-", 
+    RowBox[{
+     FractionBox["2", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", "s"}], "+", 
+       RowBox[{"10", " ", "t"}]}], ")"}], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "-", 
+    RowBox[{
+     FractionBox["14", "45"], " ", "t", " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "-", 
+    RowBox[{
+     FractionBox["14", "45"], " ", "t", " ", 
+     SubscriptBox["p2", "\[Mu]"], " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "+", 
+    RowBox[{
+     FractionBox["2", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"10", " ", "s"}], "+", 
+       RowBox[{"3", " ", "t"}]}], ")"}], " ", 
+     SubscriptBox["p1", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "-", 
+    RowBox[{
+     FractionBox["14", "45"], " ", "s", " ", 
+     SubscriptBox["p2", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "-", 
+    RowBox[{
+     FractionBox["14", "45"], " ", "s", " ", 
+     SubscriptBox["p3", "\[Sigma]"], " ", 
+     SubscriptBox["p3", "\[Mu]"], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Rho]"}]]}], "+", 
+    RowBox[{
+     FractionBox["1", "45"], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"3", " ", 
+        SuperscriptBox["s", "2"]}], "+", 
+       RowBox[{"20", " ", "s", " ", "t"}], "+", 
+       RowBox[{"3", " ", 
+        SuperscriptBox["t", "2"]}]}], ")"}], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Sigma]", ",", "\[Mu]"}]], " ", 
+     SubscriptBox["\[DoubleStruckG]", 
+      RowBox[{"\[Nu]", ",", "\[Rho]"}]]}]}], ")"}]}]], "Output",
+ ImageSize->{563, 528},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[19]=",
+ CellID->950895241]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["High energy/large momentum transfer limit", "Subsection",
+ CellID->291132212],
+
+Cell[TextData[{
+ "In the high energy limit ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", ",", 
+    RowBox[{"|", "t", "|", 
+     RowBox[{"\[GreaterGreater]", "m"}]}]}], TraditionalForm]], 
+  "InlineMath"],
+ ", the electron mass is negligible."
+}], "Text",
+ Deletable->True,
+ CellID->1824529420],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Make the replacement ",
+ Cell[BoxData[
+  RowBox[{"m", "\[Rule]", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and call ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " ",
+ "(about 20 seconds runtime on a modern machine)",
+ ":"
+}], "MathCaption",
+ CellID->984738722],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ampHE", "=", 
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{
+    RowBox[{"total", "/.", 
+     RowBox[{"m", "\[Rule]", "0"}]}], ",", 
+    RowBox[{"TargetScale", "\[Rule]", 
+     SqrtBox[
+      RowBox[{"-", "t"}]]}]}], "]"}]}]], "Input",
+ CellLabel->"In[20]:=",
+ CellID->498493598],
+
+Cell[BoxData[
+ InterpretationBox[
+  TagBox[
+   PanelBox[GridBox[{
+      {
+       StyleBox[
+        StyleBox[
+         DynamicBox[ToBoxes[
+           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
+           StandardForm],
+          ImageSizeCache->{278., {2., 8.}}],
+         StripOnInput->False,
+         DynamicUpdating->True], "Panel",
+        StripOnInput->False,
+        Background->None]},
+      {
+       ItemBox[
+        TagBox[
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             FractionBox["32", 
+              SuperscriptBox["s", "2"]], "+", 
+             FractionBox[
+              RowBox[{"16", " ", 
+               SuperscriptBox["\[Pi]", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["s", "2"], "+", 
+                 RowBox[{"3", " ", "s", " ", "t"}], "+", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["t", "2"]}]}], ")"}]}], 
+              SuperscriptBox["s", "4"]], "+", 
+             FractionBox[
+              RowBox[{"64", " ", 
+               RowBox[{"(", 
+                RowBox[{"s", "+", "t"}], ")"}], " ", 
+               RowBox[{"Log", "[", 
+                RowBox[{"-", 
+                 FractionBox["t", 
+                  RowBox[{"s", "+", "t"}]]}], "]"}]}], 
+              SuperscriptBox["s", "3"]], "+", 
+             FractionBox[
+              RowBox[{"16", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["s", "2"], "+", 
+                 RowBox[{"3", " ", "s", " ", "t"}], "+", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["t", "2"]}]}], ")"}], " ", 
+               SuperscriptBox[
+                RowBox[{"Log", "[", 
+                 RowBox[{"-", 
+                  FractionBox["t", 
+                   RowBox[{"s", "+", "t"}]]}], "]"}], "2"]}], 
+              SuperscriptBox["s", "4"]]}], ")"}], " ", 
+           SubscriptBox["p1", "\[Sigma]"], " ", 
+           SubscriptBox["p1", "\[Nu]"], " ", 
+           SubscriptBox["p1", "\[Rho]"], " ", 
+           SubscriptBox["p2", "\[Mu]"]}], "+", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             FractionBox[
+              RowBox[{"32", " ", 
+               RowBox[{"(", 
+                RowBox[{"s", "+", "t"}], ")"}]}], 
+              RowBox[{
+               SuperscriptBox["s", "2"], " ", "t"}]], "+", 
+             FractionBox[
+              RowBox[{"16", " ", 
+               SuperscriptBox["\[Pi]", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["s", "2"], "+", 
+                 RowBox[{"3", " ", "s", " ", "t"}], "+", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["t", "2"]}]}], ")"}]}], 
+              SuperscriptBox["s", "4"]], "+", 
+             FractionBox[
+              RowBox[{"64", " ", 
+               RowBox[{"(", 
+                RowBox[{"s", "+", "t"}], ")"}], " ", 
+               RowBox[{"Log", "[", 
+                RowBox[{"-", 
+                 FractionBox["t", 
+                  RowBox[{"s", "+", "t"}]]}], "]"}]}], 
+              SuperscriptBox["s", "3"]], "+", 
+             FractionBox[
+              RowBox[{"16", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["s", "2"], "+", 
+                 RowBox[{"3", " ", "s", " ", "t"}], "+", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["t", "2"]}]}], ")"}], " ", 
+               SuperscriptBox[
+                RowBox[{"Log", "[", 
+                 RowBox[{"-", 
+                  FractionBox["t", 
+                   RowBox[{"s", "+", "t"}]]}], "]"}], "2"]}], 
+              SuperscriptBox["s", "4"]]}], ")"}], " ", 
+           SubscriptBox["p1", "\[Nu]"], " ", 
+           SubscriptBox["p1", "\[Rho]"], " ", 
+           SubscriptBox["p2", "\[Sigma]"], " ", 
+           SubscriptBox["p2", "\[Mu]"]}], "+", 
+          RowBox[{"\[LeftSkeleton]", "54", "\[RightSkeleton]"}], "+", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              FractionBox["8", "3"]}], "+", 
+             FractionBox[
+              RowBox[{"2", " ", 
+               SuperscriptBox["\[Pi]", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["s", "6"]}], "-", 
+                 RowBox[{"9", " ", 
+                  SuperscriptBox["s", "4"], " ", 
+                  SuperscriptBox["t", "2"]}], "-", 
+                 RowBox[{"16", " ", 
+                  SuperscriptBox["s", "3"], " ", 
+                  SuperscriptBox["t", "3"]}], "-", 
+                 RowBox[{"9", " ", 
+                  SuperscriptBox["s", "2"], " ", 
+                  SuperscriptBox["t", "4"]}], "+", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["t", "6"]}]}], ")"}]}], 
+              RowBox[{"3", " ", 
+               SuperscriptBox["s", "2"], " ", 
+               SuperscriptBox["t", "2"], " ", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"s", "+", "t"}], ")"}], "2"]}]], "+", 
+             FractionBox[
+              RowBox[{"4", " ", "s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["s", "3"], "-", 
+                 RowBox[{"3", " ", "s", " ", 
+                  SuperscriptBox["t", "2"]}], "-", 
+                 RowBox[{"3", " ", 
+                  SuperscriptBox["t", "3"]}]}], ")"}], " ", 
+               SuperscriptBox[
+                RowBox[{"Log", "[", 
+                 FractionBox["t", "s"], "]"}], "2"]}], 
+              RowBox[{"3", " ", 
+               SuperscriptBox["t", "2"], " ", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"s", "+", "t"}], ")"}], "2"]}]], "+", 
+             FractionBox[
+              RowBox[{"8", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["s", "2"], "-", 
+                 RowBox[{"s", " ", "t"}], "+", 
+                 SuperscriptBox["t", "2"]}], ")"}], " ", 
+               RowBox[{"Log", "[", 
+                RowBox[{"-", 
+                 FractionBox["t", 
+                  RowBox[{"s", "+", "t"}]]}], "]"}]}], 
+              RowBox[{"3", " ", "s", " ", "t"}]], "+", 
+             FractionBox[
+              RowBox[{"4", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 SuperscriptBox["s", "4"], "-", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["s", "3"], " ", "t"}], "-", 
+                 RowBox[{"3", " ", 
+                  SuperscriptBox["s", "2"], " ", 
+                  SuperscriptBox["t", "2"]}], "-", 
+                 RowBox[{"2", " ", "s", " ", 
+                  SuperscriptBox["t", "3"]}], "+", 
+                 SuperscriptBox["t", "4"]}], ")"}], " ", 
+               SuperscriptBox[
+                RowBox[{"Log", "[", 
+                 RowBox[{"-", 
+                  FractionBox["t", 
+                   RowBox[{"s", "+", "t"}]]}], "]"}], "2"]}], 
+              RowBox[{"3", " ", 
+               SuperscriptBox["s", "2"], " ", 
+               SuperscriptBox["t", "2"]}]], "+", 
+             RowBox[{
+              RowBox[{"Log", "[", 
+               FractionBox["t", "s"], "]"}], " ", 
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"-", 
+                 FractionBox[
+                  RowBox[{"8", " ", 
+                   SuperscriptBox["s", "2"]}], 
+                  RowBox[{"3", " ", "t", " ", 
+                   RowBox[{"(", 
+                    RowBox[{"s", "+", "t"}], ")"}]}]]}], "+", 
+                FractionBox[
+                 RowBox[{"4", " ", 
+                  RowBox[{"(", 
+                   RowBox[{
+                    RowBox[{
+                    RowBox[{"-", "2"}], " ", 
+                    SuperscriptBox["s", "2"]}], "+", 
+                    RowBox[{"4", " ", "s", " ", "t"}], "+", 
+                    RowBox[{"3", " ", 
+                    SuperscriptBox["t", "2"]}]}], ")"}], " ", 
+                  RowBox[{"Log", "[", 
+                   RowBox[{"-", 
+                    FractionBox["t", 
+                    RowBox[{"s", "+", "t"}]]}], "]"}]}], 
+                 RowBox[{"3", " ", 
+                  SuperscriptBox["t", "2"]}]]}], ")"}]}]}], ")"}], " ", 
+           SubscriptBox["\[DoubleStruckG]", 
+            RowBox[{"\[Sigma]", ",", "\[Mu]"}]], " ", 
+           SubscriptBox["\[DoubleStruckG]", 
+            RowBox[{"\[Nu]", ",", "\[Rho]"}]]}]}],
+         Short[#, 5]& ],
+        Background->GrayLevel[1],
+        BaseStyle->{Deployed -> False},
+        Frame->True,
+        FrameStyle->GrayLevel[0, 0.2],
+        StripOnInput->False]},
+      {
+       RowBox[{
+        ButtonBox[
+         StyleBox[
+          StyleBox[
+           DynamicBox[ToBoxes[
+             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+             StandardForm],
+            ImageSizeCache->{49., {1., 8.}}],
+           StripOnInput->False,
+           DynamicUpdating->True], "Panel",
+          StripOnInput->False,
+          Background->None],
+         Appearance->Automatic,
+         ButtonFunction:>OutputSizeLimit`ButtonFunction[
+          Identity, 20, 30597452927921040164, 5/2],
+         Enabled->True,
+         Evaluator->Automatic,
+         Method->"Queued"], "\[ThinSpace]", 
+        ButtonBox[
+         StyleBox[
+          StyleBox[
+           DynamicBox[ToBoxes[
+             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+             StandardForm],
+            ImageSizeCache->{52., {1., 8.}}],
+           StripOnInput->False,
+           DynamicUpdating->True], "Panel",
+          StripOnInput->False,
+          Background->None],
+         Appearance->Automatic,
+         ButtonFunction:>OutputSizeLimit`ButtonFunction[
+          Identity, 20, 30597452927921040164, 5 2],
+         Enabled->True,
+         Evaluator->Automatic,
+         Method->"Queued"], "\[ThinSpace]", 
+        ButtonBox[
+         StyleBox[
+          StyleBox[
+           DynamicBox[ToBoxes[
+             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+             StandardForm],
+            ImageSizeCache->{82., {2., 8.}}],
+           StripOnInput->False,
+           DynamicUpdating->True], "Panel",
+          StripOnInput->False,
+          Background->None],
+         Appearance->Automatic,
+         ButtonFunction:>OutputSizeLimit`ButtonFunction[
+          Identity, 20, 30597452927921040164, Infinity],
+         Enabled->True,
+         Evaluator->Automatic,
+         Method->"Queued"], "\[ThinSpace]", 
+        ButtonBox[
+         StyleBox[
+          StyleBox[
+           DynamicBox[ToBoxes[
+             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+             StandardForm],
+            ImageSizeCache->{74., {1., 8.}}],
+           StripOnInput->False,
+           DynamicUpdating->True], "Panel",
+          StripOnInput->False,
+          Background->None],
+         Appearance->Automatic,
+         ButtonFunction:>FrontEndExecute[{
+            FrontEnd`SetOptions[
+            FrontEnd`$FrontEnd, 
+             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
+            FrontEnd`FrontEndToken["PreferencesDialog"]}],
+         Evaluator->None,
+         Method->"Preemptive"]}]}
+     },
+     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.2]}, "RowsIndexed" -> {}}],
+    DefaultBaseStyle->{},
+    FrameMargins->5],
+   Deploy,
+   DefaultBaseStyle->"Deploy"],
+  Out[20]]], "Output",
+ ImageSize->{564, 273},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[20]=",
+ CellID->1187337082]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+In the massless limit, individual Passarino-Veltman funcions contributing to \
+the amplitude are infrared divergent.  However the divergences cancel in the \
+total, can can be checked by the absence of 1/\[Epsilon] poles:\
+\>", "MathCaption",
+ CellID->1943807951],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FreeQ", "[", 
+  RowBox[{"ampHE", ",", "\[Epsilon]"}], "]"}]], "Input",
+ CellLabel->"In[21]:=",
+ CellID->648544780],
+
+Cell[BoxData["True"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[21]=",
+ CellID->1156289250]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Forward scattering limit", "Subsection",
+ CellID->1849839133],
+
+Cell[TextData[{
+ "In the forward limit ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["p", "1"], "=", 
+    SubscriptBox["p", "3"]}], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    SubscriptBox["p", "2"], "=", 
+    SubscriptBox["p", "4"]}], TraditionalForm]], "InlineMath"],
+ " so that ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"t", "=", "0"}], TraditionalForm]], "InlineMath"],
+ ".  By photon polarization transversality, ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["p", "1", "\[Rho]"], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   SubsuperscriptBox["p", "2", "\[Sigma]"], TraditionalForm]], "InlineMath"],
+ " can be set to zero."
+}], "Text",
+ Deletable->True,
+ CellID->726691052],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Make the replacement ",
+ Cell[BoxData[
+  RowBox[{"p3", "\[Rule]", "p1"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  RowBox[{"p4", "\[Rule]", "p2"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  RowBox[{"t", "\[Rule]", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  RowBox[{
+   SubscriptBox["p1", "\[Rho]"], "\[Rule]", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  RowBox[{
+   SubscriptBox["p2", "\[Sigma]"], "\[Rule]", "0"}]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  Call ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to calculate (about 15 seconds runtime on a modern machine):"
+}], "MathCaption",
+ CellID->1348110644],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ampFor", "=", 
+  RowBox[{"LoopRefine", "[", 
+   RowBox[{
+    RowBox[{"total", "/.", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"t", "\[Rule]", "0"}], ",", 
+       RowBox[{"p3", "\[Rule]", "p1"}], ",", 
+       RowBox[{"p4", "\[Rule]", "p2"}]}], "}"}]}], "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       SubscriptBox["p1", "\[Rho]"], "\[Rule]", "0"}], ",", 
+      RowBox[{
+       SubscriptBox["p2", "\[Sigma]"], "\[Rule]", "0"}]}], "}"}]}], 
+   "]"}]}]], "Input",
+ CellLabel->"In[22]:=",
+ CellID->1933588039],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SubscriptBox["p1", "\[Sigma]"], " ", 
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Rho]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["32", 
+       SuperscriptBox["s", "2"]]}], "-", 
+     FractionBox[
+      RowBox[{"64", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "3"]], "+", 
+     FractionBox[
+      RowBox[{"64", " ", 
+       SuperscriptBox["m", "2"], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "3"]], "+", 
+     FractionBox[
+      RowBox[{"128", " ", 
+       SuperscriptBox["m", "4"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "3"]], "-", 
+     FractionBox[
+      RowBox[{"128", " ", 
+       SuperscriptBox["m", "4"], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], 
+      SuperscriptBox["s", "3"]]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Sigma]"], " ", 
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Rho]"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["16", 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"16", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "3"]], "-", 
+     FractionBox[
+      RowBox[{"16", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "3"]], "-", 
+     FractionBox[
+      RowBox[{"16", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "3"]], "-", 
+     FractionBox[
+      RowBox[{"16", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], 
+      SuperscriptBox["s", "3"]]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Rho]"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Sigma]", ",", "\[Mu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["8", "s"], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], 
+      SuperscriptBox["s", "2"]]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Sigma]"], " ", 
+   SubscriptBox["p2", "\[Mu]"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["8", "s"], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], 
+      SuperscriptBox["s", "2"]]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Sigma]"], " ", 
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["8", "s"]}], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], 
+      SuperscriptBox["s", "2"]]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Sigma]", ",", "\[Mu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Nu]", ",", "\[Rho]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "4"}], "-", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], "s"], 
+     "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Nu]"], " ", 
+   SubscriptBox["p2", "\[Mu]"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Sigma]", ",", "\[Rho]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["8", "s"], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "-", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], 
+      SuperscriptBox["s", "2"]]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Sigma]"], " ", 
+   SubscriptBox["p2", "\[Rho]"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     FractionBox["8", "s"], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "-", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], 
+      SuperscriptBox["s", "2"]]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Sigma]", ",", "\[Rho]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "4"}], "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "-", 
+         RowBox[{"3", " ", "s"}]}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], "s"], 
+     "-", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["p1", "\[Mu]"], " ", 
+   SubscriptBox["p2", "\[Rho]"], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Sigma]", ",", "\[Nu]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", 
+      FractionBox["56", "s"]}], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "+", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "-", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"], " ", "s"}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+      SuperscriptBox["s", "2"]], "-", 
+     FractionBox[
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"], " ", "s"}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], 
+      SuperscriptBox["s", "2"]]}], ")"}]}], "+", 
+  RowBox[{
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Sigma]", ",", "\[Nu]"}]], " ", 
+   SubscriptBox["\[DoubleStruckG]", 
+    RowBox[{"\[Mu]", ",", "\[Rho]"}]], " ", 
+   RowBox[{"(", 
+    RowBox[{"28", "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{
+         RowBox[{"-", "s"}], ",", "m", ",", "m"}], "]"}]}], "s"], "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["m", "2"]}], "+", "s"}], ")"}], " ", 
+       RowBox[{"DiscB", "[", 
+        RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], "s"], "-", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "-", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"], " ", "s"}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", 
+         RowBox[{"-", "s"}], ",", "m", ",", "m", ",", "m"}], "]"}]}], "s"], 
+     "+", 
+     FractionBox[
+      RowBox[{"4", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "4"}], " ", 
+          SuperscriptBox["m", "4"]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["m", "2"], " ", "s"}], "+", 
+         SuperscriptBox["s", "2"]}], ")"}], " ", 
+       RowBox[{"ScalarC0", "[", 
+        RowBox[{"0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+        "]"}]}], "s"]}], ")"}]}]}]], "Output",
+ ImageSize->{543, 1251},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[22]=",
+ CellID->1173903047]
+}, Closed]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["General case", "Subsection",
+ CellID->1950388707],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Apply ",
+ Cell[BoxData[
+  ButtonBox["LoopRefine",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/LoopRefine"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " on the full amplitude (about 40 seconds runtime on a modern machine):"
+}], "MathCaption",
+ CellID->131320024],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"fullAmplitude", "=", 
+  RowBox[{"LoopRefine", "[", "total", "]"}]}]], "Input",
+ CellLabel->"In[23]:=",
+ CellID->1928031342],
+
+Cell[BoxData[
+ InterpretationBox[
+  TagBox[
+   PanelBox[GridBox[{
+      {
+       StyleBox[
+        StyleBox[
+         DynamicBox[ToBoxes[
+           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
+           StandardForm],
+          ImageSizeCache->{278., {2., 8.}}],
+         StripOnInput->False,
+         DynamicUpdating->True], "Panel",
+        StripOnInput->False,
+        Background->None]},
+      {
+       ItemBox[
+        TagBox[
+         RowBox[{
+          RowBox[{
+           SubscriptBox["p2", "\[Sigma]"], " ", 
+           SubscriptBox["p2", "\[Rho]"], " ", 
+           SubscriptBox["p3", "\[Mu]"], " ", 
+           SubscriptBox["p3", "\[Nu]"], " ", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", 
+              FractionBox[
+               RowBox[{"32", " ", "s"}], 
+               RowBox[{"t", " ", 
+                SuperscriptBox[
+                 RowBox[{"(", 
+                  RowBox[{"s", "+", "t"}], ")"}], "2"]}]]}], "+", 
+             FractionBox[
+              RowBox[{"64", " ", "s", " ", 
+               RowBox[{"DiscB", "[", 
+                RowBox[{"s", ",", "m", ",", "m"}], "]"}]}], 
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"s", "+", "t"}], ")"}], "3"]], "-", 
+             FractionBox[
+              RowBox[{"64", " ", "s", " ", 
+               RowBox[{"DiscB", "[", 
+                RowBox[{"t", ",", "m", ",", "m"}], "]"}]}], 
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"s", "+", "t"}], ")"}], "3"]], "-", 
+             FractionBox[
+              RowBox[{"32", " ", "s", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{
+                  SuperscriptBox["m", "2"], " ", 
+                  SuperscriptBox["s", "2"]}], "-", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["m", "2"], " ", "s", " ", "t"}], "-", 
+                 RowBox[{
+                  SuperscriptBox["s", "2"], " ", "t"}], "-", 
+                 RowBox[{"3", " ", 
+                  SuperscriptBox["m", "2"], " ", 
+                  SuperscriptBox["t", "2"]}], "+", 
+                 RowBox[{"s", " ", 
+                  SuperscriptBox["t", "2"]}]}], ")"}], " ", 
+               RowBox[{"ScalarC0", "[", 
+                RowBox[{
+                "0", ",", "0", ",", "s", ",", "m", ",", "m", ",", "m"}], 
+                "]"}]}], 
+              RowBox[{"t", " ", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"s", "+", "t"}], ")"}], "4"]}]], "+", 
+             FractionBox[
+              RowBox[{"32", " ", 
+               RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], " ", 
+               RowBox[{"ScalarC0", "[", 
+                RowBox[{"0", ",", "0", ",", 
+                 RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], ",", 
+                 "m"}], "]"}]}], 
+              RowBox[{"s", " ", "t", " ", 
+               RowBox[{"(", 
+                RowBox[{"s", "+", "t"}], ")"}]}]], "-", 
+             FractionBox[
+              RowBox[{"32", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["m", "2"], " ", 
+                  SuperscriptBox["s", "4"]}], "+", 
+                 RowBox[{"\[LeftSkeleton]", "6", "\[RightSkeleton]"}], "+", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["m", "2"], " ", 
+                  SuperscriptBox["t", "4"]}]}], ")"}], " ", 
+               RowBox[{"ScalarC0", "[", 
+                RowBox[{
+                "0", ",", "0", ",", "t", ",", "m", ",", "m", ",", "m"}], 
+                "]"}]}], 
+              RowBox[{"s", " ", "t", " ", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"s", "+", "t"}], ")"}], "4"]}]], "+", 
+             FractionBox[
+              RowBox[{"16", " ", 
+               SuperscriptBox["m", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"-", 
+                  SuperscriptBox["s", "2"]}], "+", 
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "2"], " ", "t"}], "-", 
+                 RowBox[{"s", " ", "t"}]}], ")"}], " ", 
+               RowBox[{"ScalarD0", "[", 
+                RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "s", ",", 
+                 RowBox[{
+                  RowBox[{"-", "s"}], "-", "t"}], ",", "m", ",", "m", ",", 
+                 "m", ",", "m"}], "]"}]}], 
+              RowBox[{"t", " ", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"s", "+", "t"}], ")"}], "2"]}]], "+", 
+             FractionBox[
+              RowBox[{"16", " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "4"], " ", 
+                  SuperscriptBox["s", "2"]}], "+", 
+                 RowBox[{"3", " ", 
+                  SuperscriptBox["m", "2"], " ", 
+                  SuperscriptBox["s", "3"]}], "+", 
+                 RowBox[{"8", " ", 
+                  SuperscriptBox["m", "4"], " ", "s", " ", "t"}], "-", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["m", "2"], " ", 
+                  SuperscriptBox["s", "2"], " ", "t"}], "-", 
+                 RowBox[{
+                  SuperscriptBox["s", "3"], " ", "t"}], "+", 
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "4"], " ", 
+                  SuperscriptBox["t", "2"]}], "-", 
+                 RowBox[{"5", " ", 
+                  SuperscriptBox["m", "2"], " ", "s", " ", 
+                  SuperscriptBox["t", "2"]}], "+", 
+                 RowBox[{
+                  SuperscriptBox["s", "2"], " ", 
+                  SuperscriptBox["t", "2"]}]}], ")"}], " ", 
+               RowBox[{"ScalarD0", "[", 
+                RowBox[{
+                "0", ",", "0", ",", "0", ",", "0", ",", "s", ",", "t", ",", 
+                 "m", ",", "m", ",", "m", ",", "m"}], "]"}]}], 
+              SuperscriptBox[
+               RowBox[{"(", 
+                RowBox[{"s", "+", "t"}], ")"}], "4"]], "+", 
+             FractionBox[
+              RowBox[{"16", " ", 
+               SuperscriptBox["m", "2"], " ", 
+               RowBox[{"(", 
+                RowBox[{
+                 RowBox[{"4", " ", 
+                  SuperscriptBox["m", "2"], " ", "s"}], "-", 
+                 SuperscriptBox["s", "2"], "-", 
+                 RowBox[{"3", " ", "s", " ", "t"}], "-", 
+                 RowBox[{"2", " ", 
+                  SuperscriptBox["t", "2"]}]}], ")"}], " ", 
+               RowBox[{"ScalarD0", "[", 
+                RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
+                 RowBox[{
+                  RowBox[{"-", "s"}], "-", "t"}], ",", "t", ",", "m", ",", 
+                 "m", ",", "m", ",", "m"}], "]"}]}], 
+              RowBox[{"s", " ", 
+               SuperscriptBox[
+                RowBox[{"(", 
+                 RowBox[{"s", "+", "t"}], ")"}], "2"]}]]}], ")"}]}], "+", 
+          RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+", 
+          RowBox[{"\[LeftSkeleton]", "54", "\[RightSkeleton]"}], "+", 
+          RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}],
+         Short[#, 5]& ],
+        Background->GrayLevel[1],
+        BaseStyle->{Deployed -> False},
+        Frame->True,
+        FrameStyle->GrayLevel[0, 0.2],
+        StripOnInput->False]},
+      {
+       RowBox[{
+        ButtonBox[
+         StyleBox[
+          StyleBox[
+           DynamicBox[ToBoxes[
+             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
+             StandardForm],
+            ImageSizeCache->{49., {1., 8.}}],
+           StripOnInput->False,
+           DynamicUpdating->True], "Panel",
+          StripOnInput->False,
+          Background->None],
+         Appearance->Automatic,
+         ButtonFunction:>OutputSizeLimit`ButtonFunction[
+          Identity, 23, 30597452927921040164, 5/2],
+         Enabled->True,
+         Evaluator->Automatic,
+         Method->"Queued"], "\[ThinSpace]", 
+        ButtonBox[
+         StyleBox[
+          StyleBox[
+           DynamicBox[ToBoxes[
+             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
+             StandardForm],
+            ImageSizeCache->{52., {1., 8.}}],
+           StripOnInput->False,
+           DynamicUpdating->True], "Panel",
+          StripOnInput->False,
+          Background->None],
+         Appearance->Automatic,
+         ButtonFunction:>OutputSizeLimit`ButtonFunction[
+          Identity, 23, 30597452927921040164, 5 2],
+         Enabled->True,
+         Evaluator->Automatic,
+         Method->"Queued"], "\[ThinSpace]", 
+        ButtonBox[
+         StyleBox[
+          StyleBox[
+           DynamicBox[ToBoxes[
+             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
+             StandardForm],
+            ImageSizeCache->{82., {2., 8.}}],
+           StripOnInput->False,
+           DynamicUpdating->True], "Panel",
+          StripOnInput->False,
+          Background->None],
+         Appearance->Automatic,
+         ButtonFunction:>OutputSizeLimit`ButtonFunction[
+          Identity, 23, 30597452927921040164, Infinity],
+         Enabled->True,
+         Evaluator->Automatic,
+         Method->"Queued"], "\[ThinSpace]", 
+        ButtonBox[
+         StyleBox[
+          StyleBox[
+           DynamicBox[ToBoxes[
+             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
+             StandardForm],
+            ImageSizeCache->{74., {1., 8.}}],
+           StripOnInput->False,
+           DynamicUpdating->True], "Panel",
+          StripOnInput->False,
+          Background->None],
+         Appearance->Automatic,
+         ButtonFunction:>FrontEndExecute[{
+            FrontEnd`SetOptions[
+            FrontEnd`$FrontEnd, 
+             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
+            FrontEnd`FrontEndToken["PreferencesDialog"]}],
+         Evaluator->None,
+         Method->"Preemptive"]}]}
+     },
+     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.2]}, "RowsIndexed" -> {}}],
+    DefaultBaseStyle->{},
+    FrameMargins->5],
+   Deploy,
+   DefaultBaseStyle->"Deploy"],
+  Out[23]]], "Output",
+ ImageSize->{530, 286},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[23]=",
+ CellID->856245940]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Unpolarized differential cross section", "Section",
+ CellID->209082645],
+
+Cell[TextData[{
+ "The tensor algebraic capabilities of ",
+ StyleBox["Package",
+  FontSlant->"Italic"],
+ "-X can also aid in the evaluation of the unpolarized differential cross \
+section.  Below, the cross section will be calculated in three kinematic \
+cases: the low energy limit, the high energy limit, and the general case."
+}], "Text",
+ CellID->359659049],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+The unpolarized photon-photon differential cross section is given by:\
+\>", "Text",
+ CellID->1140232725],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{
+    OverscriptBox["d\[Sigma]", "_"], "=", 
+    RowBox[{
+     FractionBox["1", "Flux"], "|", 
+     OverscriptBox["\[ScriptCapitalM]", "_"], 
+     SuperscriptBox["|", "2"], 
+     RowBox[{"d", "(", "PS", ")"}]}]}], ","}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->1119549142]
+}, Open  ]],
+
+Cell[TextData[{
+ "where ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"Flux", "=", 
+    RowBox[{"2", "s"}]}], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"d", "(", "PS", ")"}], "=", 
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"32", 
+       SuperscriptBox["\[Pi]", "2"]}]], "d\[CapitalOmega]"}]}], 
+   TraditionalForm]], "InlineMath"],
+ "."
+}], "Text",
+ CellID->1331207484],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "To obtain the matrix element squared ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"|", 
+    OverscriptBox["\[ScriptCapitalM]", "_"], 
+    SuperscriptBox["|", "2"]}], TraditionalForm]], "InlineMath"],
+ ", the complex conjugate of the matrix element is needed,"
+}], "Text",
+ CellID->1502646526],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"i", " ", "\[ScriptCapitalM]"}], "=", 
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"[", 
+      RowBox[{
+       RowBox[{"2", 
+        SubscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "s", ")"}]]}], "+", 
+       RowBox[{"2", 
+        SubscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "t", ")"}]]}], "+", 
+       RowBox[{"2", 
+        SubscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "u", ")"}]]}]}], "]"}], "\[Mu]\[Nu]\[Rho]\[Sigma]"], 
+    " ", 
+    RowBox[{
+     SubscriptBox["\[Epsilon]", "\[Mu]"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "1"], ")"}], 
+    RowBox[{
+     SubscriptBox["\[Epsilon]", "\[Nu]"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "2"], ")"}], 
+    RowBox[{
+     SubsuperscriptBox["\[Epsilon]", "\[Rho]", "*"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "3"], ")"}], 
+    RowBox[{
+     SubsuperscriptBox["\[Epsilon]", "\[Sigma]", "*"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "4"], ")"}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->400788481],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"i", " ", "\[ScriptCapitalM]"}], ")"}], "*"], "=", 
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"[", 
+      RowBox[{
+       RowBox[{"2", 
+        SubsuperscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "s", ")"}], "*"]}], "+", 
+       RowBox[{"2", 
+        SubsuperscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "t", ")"}], "*"]}], "+", 
+       RowBox[{"2", 
+        SubsuperscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "u", ")"}], "*"]}]}], "]"}], 
+     "\[Mu]\[Nu]\[Rho]\[Sigma]"], "  ", 
+    RowBox[{
+     SubsuperscriptBox["\[Epsilon]", "\[Mu]", "*"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "1"], ")"}], 
+    RowBox[{
+     SubsuperscriptBox["\[Epsilon]", "\[Nu]", "*"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "2"], ")"}], 
+    RowBox[{
+     SubscriptBox["\[Epsilon]", "\[Rho]"], "(", 
+     SubscriptBox[
+      StyleBox["p",
+       FontWeight->"Bold"], "3"], ")"}], 
+    RowBox[{
+     RowBox[{
+      SubscriptBox["\[Epsilon]", "\[Sigma]"], "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "4"], ")"}], "."}]}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->652833759]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+After multiplying, average over the initial and sum over final photon \
+polarizations using\
+\>", "Text",
+ CellID->1139249419],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"\[Sum]", 
+    RowBox[{
+     RowBox[{
+      SubsuperscriptBox["\[Epsilon]", "\[Alpha]", "*"], "(", 
+      SubscriptBox[
+       StyleBox["p",
+        FontWeight->"Bold"], "1"], ")"}], " ", 
+     RowBox[{
+      RowBox[{
+       SubscriptBox["\[Epsilon]", "\[Beta]"], "(", 
+       SubscriptBox[
+        StyleBox["p",
+         FontWeight->"Bold"], "1"], ")"}], " ", "\[LongRightArrow]", " ", 
+      RowBox[{"-", 
+       SubscriptBox["\[ScriptG]", "\[Alpha]\[Beta]"]}]}]}]}], "+", 
+   RowBox[{"(", "vanishing", ")"}]}], TraditionalForm]], "NumberedEquation",
+ CellID->1873048398]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "valid for amplitudes satisfying ",
+ ButtonBox["the Ward identity",
+  BaseStyle->"Link",
+  ButtonData->"paclet:X/tutorial/ScatteringLightByLight#1988068558"],
+ ".  Then, the matrix element squared is:"
+}], "Text",
+ CellID->1786736966],
+
+Cell[BoxData[
+ FormBox[
+  RowBox[{
+   RowBox[{"|", 
+    OverscriptBox["\[ScriptCapitalM]", "_"], 
+    SuperscriptBox["|", "2"]}], "=", 
+   RowBox[{
+    SubscriptBox[
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{
+        FractionBox["1", "4"], "[", 
+        RowBox[{
+         RowBox[{"2", 
+          SubscriptBox["\[CapitalPi]", 
+           RowBox[{"(", "s", ")"}]]}], "+", 
+         RowBox[{"2", 
+          SubscriptBox["\[CapitalPi]", 
+           RowBox[{"(", "t", ")"}]]}], "+", 
+         RowBox[{"2", 
+          SubscriptBox["\[CapitalPi]", 
+           RowBox[{"(", "u", ")"}]]}]}], "]"}], "\[Mu]\[Nu]\[Rho]\[Sigma]"], 
+      "[", 
+      RowBox[{
+       RowBox[{"2", 
+        SubsuperscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "s", ")"}], "*"]}], "+", 
+       RowBox[{"2", 
+        SubsuperscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "t", ")"}], "*"]}], "+", 
+       RowBox[{"2", 
+        SubsuperscriptBox["\[CapitalPi]", 
+         RowBox[{"(", "u", ")"}], "*"]}]}], "]"}], 
+     "\[Mu]\[Nu]\[Rho]\[Sigma]"], " ", "."}]}], 
+  TraditionalForm]], "NumberedEquation",
+ CellID->707127246]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Low energy (Euler-Heisenberg) limit", "Subsection",
+ CellID->1357264184],
+
+Cell["\<\
+Since the scattering amplitude in the low energy limit is purely real (below \
+all physical threshold), no complex conjugation is needed.  The spin-averaged \
+matrix element squared and therefore the differential cross section are \
+readily obtained.\
+\>", "Text",
+ CellID->100014213],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " the product of the low energy amplitude with itself, and apply the on \
+shell kinematic conditions.  The factor ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"|", 
+    RowBox[{
+     RowBox[{"-", 
+      SuperscriptBox["e", "4"]}], 
+     StyleBox[
+      FractionBox["i", 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]],
+      FontColor->RGBColor[0.6666666666666666, 0., 0.]]}], 
+    SuperscriptBox["|", "2"]}], TraditionalForm]], "InlineMath"],
+ " has been restored:"
+}], "MathCaption",
+ CellID->1233094908],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    SuperscriptBox[
+     RowBox[{"(", 
+      FractionBox[
+       SuperscriptBox["e", "4"], 
+       RowBox[{"16", 
+        SuperscriptBox["\[Pi]", "2"]}]], ")"}], "2"], 
+    RowBox[{"Contract", "[", 
+     RowBox[{
+      FractionBox["1", "4"], "ampLE", "*", "ampLE"}], "]"}]}], "/.", 
+   "onShell"}], "//", "Simplify"}], "\[IndentingNewLine]", 
+ RowBox[{"ampSqLE", "=", 
+  RowBox[{"%", "/.", 
+   RowBox[{"\[ScriptD]", "\[Rule]", "4"}]}]}]}], "Input",
+ CellLabel->"In[24]:=",
+ CellID->1408925206],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"578", "-", 
+     RowBox[{"503", " ", "\[ScriptD]"}], "+", 
+     RowBox[{"107", " ", 
+      SuperscriptBox["\[ScriptD]", "2"]}]}], ")"}], " ", 
+   SuperscriptBox["e", "8"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["s", "2"], "+", 
+      RowBox[{"s", " ", "t"}], "+", 
+      SuperscriptBox["t", "2"]}], ")"}], "2"]}], 
+  RowBox[{"1036800", " ", 
+   SuperscriptBox["m", "8"], " ", 
+   SuperscriptBox["\[Pi]", "4"]}]]], "Output",
+ ImageSize->{247, 39},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[24]=",
+ CellID->637595033],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"139", " ", 
+   SuperscriptBox["e", "8"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["s", "2"], "+", 
+      RowBox[{"s", " ", "t"}], "+", 
+      SuperscriptBox["t", "2"]}], ")"}], "2"]}], 
+  RowBox[{"518400", " ", 
+   SuperscriptBox["m", "8"], " ", 
+   SuperscriptBox["\[Pi]", "4"]}]]], "Output",
+ ImageSize->{139, 39},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[25]=",
+ CellID->116321101]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Multiply by the flux and phase space factors to obtain the differential cross \
+section:\
+\>", "MathCaption",
+ CellID->5568100],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"d\[Sigma]d\[CapitalOmega]LE", "[", 
+   RowBox[{"\[Alpha]_", ",", "s_", ",", "t_"}], "]"}], "=", 
+  RowBox[{
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"2", "s"}]], "ampSqLE", " ", 
+    FractionBox["1", 
+     RowBox[{"32", 
+      SuperscriptBox["\[Pi]", "2"]}]]}], "/.", 
+   RowBox[{"e", "\[Rule]", 
+    SqrtBox[
+     RowBox[{"\[Alpha]", " ", "4", "\[Pi]"}]]}]}]}]], "Input",
+ CellLabel->"In[26]:=",
+ CellID->378294973,
+ ExpressionUUID -> "3ea5a085-1db6-4a57-a531-532b5990ee41"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"139", " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      SuperscriptBox["s", "2"], "+", 
+      RowBox[{"s", " ", "t"}], "+", 
+      SuperscriptBox["t", "2"]}], ")"}], "2"], " ", 
+   SuperscriptBox["\[Alpha]", "4"]}], 
+  RowBox[{"129600", " ", 
+   SuperscriptBox["m", "8"], " ", 
+   SuperscriptBox["\[Pi]", "2"], " ", "s"}]]], "Output",
+ ImageSize->{139, 39},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[26]=",
+ CellID->798625737]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"In", " ", "the", " ", "center"}], "-", "of", "-", 
+     RowBox[{"mass", " ", "frame"}]}], ",", "\[IndentingNewLine]", 
+    RowBox[{"\[Omega]", "=", 
+     RowBox[{
+     "Angular", " ", "frequency", " ", "of", " ", "each", " ", "incident", 
+      " ", "photon"}]}], ",", "\[IndentingNewLine]", 
+    RowBox[{"\[Theta]", "=", 
+     RowBox[{"COM", " ", "scattering", " ", "angle"}]}]}], " ", "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"%", "/.", 
+     RowBox[{"t", "\[Rule]", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", 
+         RowBox[{"2", "s"}]]}], 
+       RowBox[{"Kallen\[Lambda]", "[", 
+        RowBox[{"0", ",", "0", ",", "s"}], "]"}], 
+       RowBox[{"(", 
+        RowBox[{"1", "-", 
+         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}]}]}]}], "/.", 
+    RowBox[{"s", "\[Rule]", 
+     RowBox[{"4", 
+      SuperscriptBox["\[Omega]", "2"]}]}]}], "//", 
+   "FactorSquareFree"}]}]], "Input",
+ CellLabel->"In[27]:=",
+ CellID->1585601771,
+ ExpressionUUID -> "3ea5a085-1db6-4a57-a531-532b5990ee41"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"139", " ", 
+   SuperscriptBox["\[Alpha]", "4"], " ", 
+   SuperscriptBox["\[Omega]", "6"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"3", "+", 
+      SuperscriptBox[
+       RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], ")"}], "2"]}], 
+  RowBox[{"32400", " ", 
+   SuperscriptBox["m", "8"], " ", 
+   SuperscriptBox["\[Pi]", "2"]}]]], "Output",
+ ImageSize->{155, 39},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[27]=",
+ CellID->729968009]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["High energy/large momentum transfer limit", "Subsection",
+ CellID->1811331856],
+
+Cell["\<\
+In the high energy limit, the amplitude is complex, with the imaginary parts \
+arising from the various logarithmic factors.  After selectively extracting \
+the imaginary parts, the conjugate amplitude is constructed from which the \
+cross section follows.\
+\>", "Text",
+ CellID->167679206],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Use ",
+ Cell[BoxData[
+  ButtonBox["Cases",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Cases"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["DeleteDuplicates",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/DeleteDuplicates"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " to construct a list of the logarithmic factors appearing in the high \
+energy scattering amplitude:"
+}], "MathCaption",
+ CellID->1545126482],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Cases", "[", 
+   RowBox[{"ampHE", ",", "_Log", ",", "Infinity"}], "]"}], "//", 
+  "DeleteDuplicates"}]], "Input",
+ CellLabel->"In[28]:=",
+ CellID->1568523450],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"Log", "[", 
+    RowBox[{"-", 
+     FractionBox["t", 
+      RowBox[{"s", "+", "t"}]]}], "]"}], ",", 
+   RowBox[{"Log", "[", 
+    FractionBox["t", "s"], "]"}]}], "}"}]], "Output",
+ ImageSize->{152, 29},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[28]=",
+ CellID->685328322]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "In the physical region (",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"s", ">", "0"}], TraditionalForm]], "InlineMath"],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"t", ">", "0"}], TraditionalForm]], "InlineMath"],
+ " and ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{
+    RowBox[{"s", "+", "t"}], "<", "0"}], TraditionalForm]], "InlineMath"],
+ "), only the ",
+ Cell[BoxData[
+  FormBox[
+   RowBox[{"ln", "(", 
+    RowBox[{"t", "/", "s"}], ")"}], TraditionalForm]], "InlineMath"],
+ " logs give an imaginary part.  Define the amplitude and its conjugate by \
+explictly separating the imaginary part from the logarithms:"
+}], "MathCaption",
+ Deletable->True,
+ CellID->2130035501],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"ampHEx", "=", 
+   RowBox[{"ampHE", "/.", 
+    RowBox[{
+     RowBox[{"Log", "[", 
+      FractionBox["t", "s"], "]"}], "\[Rule]", 
+     RowBox[{
+      RowBox[{"Log", "[", 
+       RowBox[{"Abs", "[", 
+        RowBox[{"t", "/", "s"}], "]"}], "]"}], "+", 
+      RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}]}]}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"ampHEcc", "=", 
+   RowBox[{"ampHE", "/.", 
+    RowBox[{
+     RowBox[{"Log", "[", 
+      FractionBox["t", "s"], "]"}], "\[Rule]", 
+     RowBox[{
+      RowBox[{"Log", "[", 
+       RowBox[{"Abs", "[", 
+        RowBox[{"t", "/", "s"}], "]"}], "]"}], "-", 
+      RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}]}]}]}]}], ";"}]}], "Input",
+ CellLabel->"In[29]:=",
+ CellID->1901105349]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " the product of the low energy amplitude with itself, and apply the on \
+shell kinematic conditions.  ",
+ Cell[BoxData[
+  ButtonBox["Collect",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Collect"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " the result by the various logarithmic factors, and ",
+ Cell[BoxData[
+  ButtonBox["Simplify",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Simplify"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " each coefficient."
+}], "MathCaption",
+ CellID->1278588608],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ampSqHE", "=", 
+  RowBox[{
+   SuperscriptBox[
+    RowBox[{"(", 
+     FractionBox[
+      SuperscriptBox["e", "4"], 
+      RowBox[{"16", 
+       SuperscriptBox["\[Pi]", "2"]}]], ")"}], "2"], 
+   RowBox[{"Collect", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{"Contract", "[", 
+        RowBox[{
+         FractionBox["1", "4"], "ampHEx", "*", "ampHEcc"}], "]"}], "/.", 
+       "onShell"}], "/.", 
+      RowBox[{"\[ScriptD]", "\[Rule]", "4"}]}], ",", "_Log", ",", 
+     "Simplify"}], "]"}]}]}]], "Input",
+ CellLabel->"In[31]:=",
+ CellID->1517362774],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{"256", " ", 
+    SuperscriptBox["\[Pi]", "4"]}]], 
+  RowBox[{
+   SuperscriptBox["e", "8"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"1", "/", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["s", "4"], " ", 
+         SuperscriptBox["t", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"s", "+", "t"}], ")"}], "2"]}], ")"}]}], 
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"32", " ", 
+          SuperscriptBox["s", "4"], " ", 
+          SuperscriptBox["t", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"s", "+", "t"}], ")"}], "2"]}], "+", 
+         RowBox[{
+          SuperscriptBox["\[Pi]", "4"], " ", 
+          SuperscriptBox["t", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["s", "3"], "+", 
+             RowBox[{"3", " ", 
+              SuperscriptBox["s", "2"], " ", "t"}], "+", 
+             RowBox[{"4", " ", "s", " ", 
+              SuperscriptBox["t", "2"]}], "+", 
+             RowBox[{"2", " ", 
+              SuperscriptBox["t", "3"]}]}], ")"}], "2"]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["\[Pi]", "2"], " ", 
+          SuperscriptBox["s", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "6"]}], "+", 
+            RowBox[{"12", " ", 
+             SuperscriptBox["s", "5"], " ", "t"}], "+", 
+            RowBox[{"15", " ", 
+             SuperscriptBox["s", "4"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{"8", " ", 
+             SuperscriptBox["s", "3"], " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            RowBox[{"9", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "4"]}], "+", 
+            RowBox[{"6", " ", "s", " ", 
+             SuperscriptBox["t", "5"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["t", "6"]}]}], ")"}]}]}], ")"}]}]}], "+", 
+     FractionBox[
+      RowBox[{"16", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "8"]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["s", "7"], " ", "t"}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["s", "6"], " ", 
+          SuperscriptBox["t", "2"]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "5"], " ", 
+          SuperscriptBox["t", "3"]}], "+", 
+         RowBox[{
+          SuperscriptBox["s", "4"], " ", 
+          SuperscriptBox["t", "4"]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "5"]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["s", "2"], " ", 
+          SuperscriptBox["t", "6"]}], "+", 
+         RowBox[{"4", " ", "s", " ", 
+          SuperscriptBox["t", "7"]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["t", "8"]}]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"-", 
+          FractionBox["t", 
+           RowBox[{"s", "+", "t"}]]}], "]"}], "4"]}], 
+      RowBox[{
+       SuperscriptBox["s", "4"], " ", 
+       SuperscriptBox["t", "4"]}]], "-", 
+     FractionBox[
+      RowBox[{"128", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["s", "2"], "+", 
+         RowBox[{"s", " ", "t"}], "+", 
+         SuperscriptBox["t", "2"]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["t", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"s", "+", "t"}], ")"}], "2"]}], "+", 
+         RowBox[{
+          SuperscriptBox["\[Pi]", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "4"]}], "+", 
+            RowBox[{"7", " ", 
+             SuperscriptBox["s", "3"], " ", "t"}], "+", 
+            RowBox[{"8", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{"2", " ", "s", " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            SuperscriptBox["t", "4"]}], ")"}]}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        RowBox[{"Abs", "[", 
+         FractionBox["t", "s"], "]"}], "]"}]}], 
+      RowBox[{
+       SuperscriptBox["t", "3"], " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"s", "+", "t"}], ")"}], "3"]}]], "+", 
+     RowBox[{
+      RowBox[{"1", "/", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["t", "4"], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"s", "+", "t"}], ")"}], "4"]}], ")"}]}], 
+      RowBox[{"64", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["t", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"s", "+", "t"}], ")"}], "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"3", " ", 
+             SuperscriptBox["s", "4"]}], "+", 
+            RowBox[{"9", " ", 
+             SuperscriptBox["s", "3"], " ", "t"}], "+", 
+            RowBox[{"11", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{"4", " ", "s", " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["t", "4"]}]}], ")"}]}], "+", 
+         RowBox[{
+          SuperscriptBox["\[Pi]", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "8"]}], "+", 
+            RowBox[{"12", " ", 
+             SuperscriptBox["s", "7"], " ", "t"}], "+", 
+            RowBox[{"32", " ", 
+             SuperscriptBox["s", "6"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{"50", " ", 
+             SuperscriptBox["s", "5"], " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            RowBox[{"51", " ", 
+             SuperscriptBox["s", "4"], " ", 
+             SuperscriptBox["t", "4"]}], "+", 
+            RowBox[{"34", " ", 
+             SuperscriptBox["s", "3"], " ", 
+             SuperscriptBox["t", "5"]}], "+", 
+            RowBox[{"16", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "6"]}], "+", 
+            RowBox[{"4", " ", "s", " ", 
+             SuperscriptBox["t", "7"]}], "+", 
+            SuperscriptBox["t", "8"]}], ")"}]}]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"Abs", "[", 
+          FractionBox["t", "s"], "]"}], "]"}], "2"]}]}], "-", 
+     FractionBox[
+      RowBox[{"64", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "6"]}], "+", 
+         RowBox[{"9", " ", 
+          SuperscriptBox["s", "5"], " ", "t"}], "+", 
+         RowBox[{"17", " ", 
+          SuperscriptBox["s", "4"], " ", 
+          SuperscriptBox["t", "2"]}], "+", 
+         RowBox[{"17", " ", 
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "3"]}], "+", 
+         RowBox[{"11", " ", 
+          SuperscriptBox["s", "2"], " ", 
+          SuperscriptBox["t", "4"]}], "+", 
+         RowBox[{"3", " ", "s", " ", 
+          SuperscriptBox["t", "5"]}], "+", 
+         SuperscriptBox["t", "6"]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"Abs", "[", 
+          FractionBox["t", "s"], "]"}], "]"}], "3"]}], 
+      RowBox[{
+       SuperscriptBox["t", "3"], " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"s", "+", "t"}], ")"}], "3"]}]], "+", 
+     RowBox[{
+      RowBox[{"1", "/", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["t", "4"], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"s", "+", "t"}], ")"}], "4"]}], ")"}]}], 
+      RowBox[{"16", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "8"]}], "+", 
+         RowBox[{"12", " ", 
+          SuperscriptBox["s", "7"], " ", "t"}], "+", 
+         RowBox[{"32", " ", 
+          SuperscriptBox["s", "6"], " ", 
+          SuperscriptBox["t", "2"]}], "+", 
+         RowBox[{"50", " ", 
+          SuperscriptBox["s", "5"], " ", 
+          SuperscriptBox["t", "3"]}], "+", 
+         RowBox[{"51", " ", 
+          SuperscriptBox["s", "4"], " ", 
+          SuperscriptBox["t", "4"]}], "+", 
+         RowBox[{"34", " ", 
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "5"]}], "+", 
+         RowBox[{"16", " ", 
+          SuperscriptBox["s", "2"], " ", 
+          SuperscriptBox["t", "6"]}], "+", 
+         RowBox[{"4", " ", "s", " ", 
+          SuperscriptBox["t", "7"]}], "+", 
+         SuperscriptBox["t", "8"]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"Abs", "[", 
+          FractionBox["t", "s"], "]"}], "]"}], "4"]}]}], "+", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        RowBox[{"-", 
+         FractionBox["t", 
+          RowBox[{"s", "+", "t"}]]}], "]"}], "3"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"64", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "6"]}], "+", 
+            RowBox[{"3", " ", 
+             SuperscriptBox["s", "5"], " ", "t"}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "4"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{
+             SuperscriptBox["s", "3"], " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "4"]}], "+", 
+            RowBox[{"3", " ", "s", " ", 
+             SuperscriptBox["t", "5"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["t", "6"]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "3"]}]], "-", 
+        FractionBox[
+         RowBox[{"32", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", " ", 
+              SuperscriptBox["s", "2"]}], "+", 
+             RowBox[{"2", " ", "s", " ", "t"}], "+", 
+             SuperscriptBox["t", "2"]}], ")"}], "2"], " ", 
+          RowBox[{"Log", "[", 
+           RowBox[{"Abs", "[", 
+            FractionBox["t", "s"], "]"}], "]"}]}], 
+         SuperscriptBox["t", "4"]]}], ")"}]}], "+", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        RowBox[{"-", 
+         FractionBox["t", 
+          RowBox[{"s", "+", "t"}]]}], "]"}], "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"1", "/", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["s", "4"], " ", 
+            SuperscriptBox["t", "4"]}], ")"}]}], 
+         RowBox[{"16", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "4"]}], "+", 
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "3"], " ", "t"}], "+", 
+               RowBox[{"2", " ", 
+                SuperscriptBox["s", "2"], " ", 
+                SuperscriptBox["t", "2"]}], "+", 
+               RowBox[{"3", " ", "s", " ", 
+                SuperscriptBox["t", "3"]}], "+", 
+               RowBox[{"3", " ", 
+                SuperscriptBox["t", "4"]}]}], ")"}]}], "+", 
+            RowBox[{
+             SuperscriptBox["\[Pi]", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "8"]}], "+", 
+               RowBox[{"16", " ", 
+                SuperscriptBox["s", "7"], " ", "t"}], "+", 
+               RowBox[{"16", " ", 
+                SuperscriptBox["s", "6"], " ", 
+                SuperscriptBox["t", "2"]}], "+", 
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "5"], " ", 
+                SuperscriptBox["t", "3"]}], "+", 
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "4"], " ", 
+                SuperscriptBox["t", "4"]}], "+", 
+               RowBox[{"4", " ", 
+                SuperscriptBox["s", "3"], " ", 
+                SuperscriptBox["t", "5"]}], "+", 
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "2"], " ", 
+                SuperscriptBox["t", "6"]}], "+", 
+               RowBox[{"8", " ", "s", " ", 
+                SuperscriptBox["t", "7"]}], "+", 
+               RowBox[{"4", " ", 
+                SuperscriptBox["t", "8"]}]}], ")"}]}]}], ")"}]}]}], "-", 
+        FractionBox[
+         RowBox[{"96", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "3"]}], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["s", "2"], " ", "t"}], "+", 
+            RowBox[{"4", " ", "s", " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            SuperscriptBox["t", "3"]}], ")"}], " ", 
+          RowBox[{"Log", "[", 
+           RowBox[{"Abs", "[", 
+            FractionBox["t", "s"], "]"}], "]"}]}], 
+         SuperscriptBox["t", "3"]], "+", 
+        FractionBox[
+         RowBox[{"48", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", " ", 
+              SuperscriptBox["s", "2"]}], "+", 
+             RowBox[{"2", " ", "s", " ", "t"}], "+", 
+             SuperscriptBox["t", "2"]}], ")"}], "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Log", "[", 
+            RowBox[{"Abs", "[", 
+             FractionBox["t", "s"], "]"}], "]"}], "2"]}], 
+         SuperscriptBox["t", "4"]]}], ")"}]}], "+", 
+     RowBox[{
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox["t", 
+         RowBox[{"s", "+", "t"}]]}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"32", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               SuperscriptBox["s", "2"], "+", 
+               RowBox[{"s", " ", "t"}], "+", 
+               SuperscriptBox["t", "2"]}], ")"}]}], "+", 
+            RowBox[{
+             SuperscriptBox["\[Pi]", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "6"]}], "+", 
+               RowBox[{"12", " ", 
+                SuperscriptBox["s", "5"], " ", "t"}], "+", 
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "4"], " ", 
+                SuperscriptBox["t", "2"]}], "+", 
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "3"], " ", 
+                SuperscriptBox["t", "3"]}], "+", 
+               RowBox[{"4", " ", 
+                SuperscriptBox["s", "2"], " ", 
+                SuperscriptBox["t", "4"]}], "+", 
+               RowBox[{"6", " ", "s", " ", 
+                SuperscriptBox["t", "5"]}], "+", 
+               RowBox[{"4", " ", 
+                SuperscriptBox["t", "6"]}]}], ")"}]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "3"]}]], "-", 
+        FractionBox[
+         RowBox[{"64", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["\[Pi]", "2"], " ", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"2", " ", 
+                 SuperscriptBox["s", "2"]}], "+", 
+                RowBox[{"2", " ", "s", " ", "t"}], "+", 
+                SuperscriptBox["t", "2"]}], ")"}], "2"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["t", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "2"]}], "+", 
+               RowBox[{"3", " ", "s", " ", "t"}], "+", 
+               SuperscriptBox["t", "2"]}], ")"}]}]}], ")"}], " ", 
+          RowBox[{"Log", "[", 
+           RowBox[{"Abs", "[", 
+            FractionBox["t", "s"], "]"}], "]"}]}], 
+         SuperscriptBox["t", "4"]], "+", 
+        FractionBox[
+         RowBox[{"96", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "3"]}], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["s", "2"], " ", "t"}], "+", 
+            RowBox[{"4", " ", "s", " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            SuperscriptBox["t", "3"]}], ")"}], " ", 
+          SuperscriptBox[
+           RowBox[{"Log", "[", 
+            RowBox[{"Abs", "[", 
+             FractionBox["t", "s"], "]"}], "]"}], "2"]}], 
+         SuperscriptBox["t", "3"]], "-", 
+        FractionBox[
+         RowBox[{"32", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", " ", 
+              SuperscriptBox["s", "2"]}], "+", 
+             RowBox[{"2", " ", "s", " ", "t"}], "+", 
+             SuperscriptBox["t", "2"]}], ")"}], "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Log", "[", 
+            RowBox[{"Abs", "[", 
+             FractionBox["t", "s"], "]"}], "]"}], "3"]}], 
+         SuperscriptBox["t", "4"]]}], ")"}]}]}], ")"}]}]}]], "Output",
+ ImageSize->{572, 728},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[31]=",
+ CellID->625640782]
+}, Closed]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Multiply by the flux and phase space factors to obtain the differential cross \
+section:\
+\>", "MathCaption",
+ CellID->578140066],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"d\[Sigma]d\[CapitalOmega]HE", "[", 
+   RowBox[{"\[Alpha]_", ",", "s_", ",", "t_"}], "]"}], "=", 
+  RowBox[{
+   RowBox[{
+    FractionBox["1", 
+     RowBox[{"2", "s"}]], "ampSqHE", " ", 
+    FractionBox["1", 
+     RowBox[{"32", 
+      SuperscriptBox["\[Pi]", "2"]}]]}], "/.", 
+   RowBox[{"e", "\[Rule]", 
+    SqrtBox[
+     RowBox[{"\[Alpha]", " ", "4", "\[Pi]"}]]}]}]}]], "Input",
+ CellLabel->"In[32]:=",
+ CellID->1721246962,
+ ExpressionUUID -> "3ea5a085-1db6-4a57-a531-532b5990ee41"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", 
+   RowBox[{"64", " ", 
+    SuperscriptBox["\[Pi]", "2"], " ", "s"}]], 
+  RowBox[{
+   SuperscriptBox["\[Alpha]", "4"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"1", "/", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["s", "4"], " ", 
+         SuperscriptBox["t", "2"], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"s", "+", "t"}], ")"}], "2"]}], ")"}]}], 
+      RowBox[{"8", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"32", " ", 
+          SuperscriptBox["s", "4"], " ", 
+          SuperscriptBox["t", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"s", "+", "t"}], ")"}], "2"]}], "+", 
+         RowBox[{
+          SuperscriptBox["\[Pi]", "4"], " ", 
+          SuperscriptBox["t", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             SuperscriptBox["s", "3"], "+", 
+             RowBox[{"3", " ", 
+              SuperscriptBox["s", "2"], " ", "t"}], "+", 
+             RowBox[{"4", " ", "s", " ", 
+              SuperscriptBox["t", "2"]}], "+", 
+             RowBox[{"2", " ", 
+              SuperscriptBox["t", "3"]}]}], ")"}], "2"]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["\[Pi]", "2"], " ", 
+          SuperscriptBox["s", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "6"]}], "+", 
+            RowBox[{"12", " ", 
+             SuperscriptBox["s", "5"], " ", "t"}], "+", 
+            RowBox[{"15", " ", 
+             SuperscriptBox["s", "4"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{"8", " ", 
+             SuperscriptBox["s", "3"], " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            RowBox[{"9", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "4"]}], "+", 
+            RowBox[{"6", " ", "s", " ", 
+             SuperscriptBox["t", "5"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["t", "6"]}]}], ")"}]}]}], ")"}]}]}], "+", 
+     FractionBox[
+      RowBox[{"16", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "8"]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["s", "7"], " ", "t"}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["s", "6"], " ", 
+          SuperscriptBox["t", "2"]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "5"], " ", 
+          SuperscriptBox["t", "3"]}], "+", 
+         RowBox[{
+          SuperscriptBox["s", "4"], " ", 
+          SuperscriptBox["t", "4"]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "5"]}], "+", 
+         RowBox[{"4", " ", 
+          SuperscriptBox["s", "2"], " ", 
+          SuperscriptBox["t", "6"]}], "+", 
+         RowBox[{"4", " ", "s", " ", 
+          SuperscriptBox["t", "7"]}], "+", 
+         RowBox[{"2", " ", 
+          SuperscriptBox["t", "8"]}]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"-", 
+          FractionBox["t", 
+           RowBox[{"s", "+", "t"}]]}], "]"}], "4"]}], 
+      RowBox[{
+       SuperscriptBox["s", "4"], " ", 
+       SuperscriptBox["t", "4"]}]], "-", 
+     FractionBox[
+      RowBox[{"128", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["s", "2"], "+", 
+         RowBox[{"s", " ", "t"}], "+", 
+         SuperscriptBox["t", "2"]}], ")"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["t", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"s", "+", "t"}], ")"}], "2"]}], "+", 
+         RowBox[{
+          SuperscriptBox["\[Pi]", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "4"]}], "+", 
+            RowBox[{"7", " ", 
+             SuperscriptBox["s", "3"], " ", "t"}], "+", 
+            RowBox[{"8", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{"2", " ", "s", " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            SuperscriptBox["t", "4"]}], ")"}]}]}], ")"}], " ", 
+       RowBox[{"Log", "[", 
+        RowBox[{"Abs", "[", 
+         FractionBox["t", "s"], "]"}], "]"}]}], 
+      RowBox[{
+       SuperscriptBox["t", "3"], " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"s", "+", "t"}], ")"}], "3"]}]], "+", 
+     RowBox[{
+      RowBox[{"1", "/", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["t", "4"], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"s", "+", "t"}], ")"}], "4"]}], ")"}]}], 
+      RowBox[{"64", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["t", "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{"s", "+", "t"}], ")"}], "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"3", " ", 
+             SuperscriptBox["s", "4"]}], "+", 
+            RowBox[{"9", " ", 
+             SuperscriptBox["s", "3"], " ", "t"}], "+", 
+            RowBox[{"11", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{"4", " ", "s", " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["t", "4"]}]}], ")"}]}], "+", 
+         RowBox[{
+          SuperscriptBox["\[Pi]", "2"], " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "8"]}], "+", 
+            RowBox[{"12", " ", 
+             SuperscriptBox["s", "7"], " ", "t"}], "+", 
+            RowBox[{"32", " ", 
+             SuperscriptBox["s", "6"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{"50", " ", 
+             SuperscriptBox["s", "5"], " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            RowBox[{"51", " ", 
+             SuperscriptBox["s", "4"], " ", 
+             SuperscriptBox["t", "4"]}], "+", 
+            RowBox[{"34", " ", 
+             SuperscriptBox["s", "3"], " ", 
+             SuperscriptBox["t", "5"]}], "+", 
+            RowBox[{"16", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "6"]}], "+", 
+            RowBox[{"4", " ", "s", " ", 
+             SuperscriptBox["t", "7"]}], "+", 
+            SuperscriptBox["t", "8"]}], ")"}]}]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"Abs", "[", 
+          FractionBox["t", "s"], "]"}], "]"}], "2"]}]}], "-", 
+     FractionBox[
+      RowBox[{"64", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "6"]}], "+", 
+         RowBox[{"9", " ", 
+          SuperscriptBox["s", "5"], " ", "t"}], "+", 
+         RowBox[{"17", " ", 
+          SuperscriptBox["s", "4"], " ", 
+          SuperscriptBox["t", "2"]}], "+", 
+         RowBox[{"17", " ", 
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "3"]}], "+", 
+         RowBox[{"11", " ", 
+          SuperscriptBox["s", "2"], " ", 
+          SuperscriptBox["t", "4"]}], "+", 
+         RowBox[{"3", " ", "s", " ", 
+          SuperscriptBox["t", "5"]}], "+", 
+         SuperscriptBox["t", "6"]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"Abs", "[", 
+          FractionBox["t", "s"], "]"}], "]"}], "3"]}], 
+      RowBox[{
+       SuperscriptBox["t", "3"], " ", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{"s", "+", "t"}], ")"}], "3"]}]], "+", 
+     RowBox[{
+      RowBox[{"1", "/", 
+       RowBox[{"(", 
+        RowBox[{
+         SuperscriptBox["t", "4"], " ", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"s", "+", "t"}], ")"}], "4"]}], ")"}]}], 
+      RowBox[{"16", " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", " ", 
+          SuperscriptBox["s", "8"]}], "+", 
+         RowBox[{"12", " ", 
+          SuperscriptBox["s", "7"], " ", "t"}], "+", 
+         RowBox[{"32", " ", 
+          SuperscriptBox["s", "6"], " ", 
+          SuperscriptBox["t", "2"]}], "+", 
+         RowBox[{"50", " ", 
+          SuperscriptBox["s", "5"], " ", 
+          SuperscriptBox["t", "3"]}], "+", 
+         RowBox[{"51", " ", 
+          SuperscriptBox["s", "4"], " ", 
+          SuperscriptBox["t", "4"]}], "+", 
+         RowBox[{"34", " ", 
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "5"]}], "+", 
+         RowBox[{"16", " ", 
+          SuperscriptBox["s", "2"], " ", 
+          SuperscriptBox["t", "6"]}], "+", 
+         RowBox[{"4", " ", "s", " ", 
+          SuperscriptBox["t", "7"]}], "+", 
+         SuperscriptBox["t", "8"]}], ")"}], " ", 
+       SuperscriptBox[
+        RowBox[{"Log", "[", 
+         RowBox[{"Abs", "[", 
+          FractionBox["t", "s"], "]"}], "]"}], "4"]}]}], "+", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        RowBox[{"-", 
+         FractionBox["t", 
+          RowBox[{"s", "+", "t"}]]}], "]"}], "3"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"64", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "6"]}], "+", 
+            RowBox[{"3", " ", 
+             SuperscriptBox["s", "5"], " ", "t"}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "4"], " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            RowBox[{
+             SuperscriptBox["s", "3"], " ", 
+             SuperscriptBox["t", "3"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "4"]}], "+", 
+            RowBox[{"3", " ", "s", " ", 
+             SuperscriptBox["t", "5"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["t", "6"]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "3"]}]], "-", 
+        FractionBox[
+         RowBox[{"32", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", " ", 
+              SuperscriptBox["s", "2"]}], "+", 
+             RowBox[{"2", " ", "s", " ", "t"}], "+", 
+             SuperscriptBox["t", "2"]}], ")"}], "2"], " ", 
+          RowBox[{"Log", "[", 
+           RowBox[{"Abs", "[", 
+            FractionBox["t", "s"], "]"}], "]"}]}], 
+         SuperscriptBox["t", "4"]]}], ")"}]}], "+", 
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"Log", "[", 
+        RowBox[{"-", 
+         FractionBox["t", 
+          RowBox[{"s", "+", "t"}]]}], "]"}], "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"1", "/", 
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["s", "4"], " ", 
+            SuperscriptBox["t", "4"]}], ")"}]}], 
+         RowBox[{"16", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "4"]}], "+", 
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "3"], " ", "t"}], "+", 
+               RowBox[{"2", " ", 
+                SuperscriptBox["s", "2"], " ", 
+                SuperscriptBox["t", "2"]}], "+", 
+               RowBox[{"3", " ", "s", " ", 
+                SuperscriptBox["t", "3"]}], "+", 
+               RowBox[{"3", " ", 
+                SuperscriptBox["t", "4"]}]}], ")"}]}], "+", 
+            RowBox[{
+             SuperscriptBox["\[Pi]", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "8"]}], "+", 
+               RowBox[{"16", " ", 
+                SuperscriptBox["s", "7"], " ", "t"}], "+", 
+               RowBox[{"16", " ", 
+                SuperscriptBox["s", "6"], " ", 
+                SuperscriptBox["t", "2"]}], "+", 
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "5"], " ", 
+                SuperscriptBox["t", "3"]}], "+", 
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "4"], " ", 
+                SuperscriptBox["t", "4"]}], "+", 
+               RowBox[{"4", " ", 
+                SuperscriptBox["s", "3"], " ", 
+                SuperscriptBox["t", "5"]}], "+", 
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "2"], " ", 
+                SuperscriptBox["t", "6"]}], "+", 
+               RowBox[{"8", " ", "s", " ", 
+                SuperscriptBox["t", "7"]}], "+", 
+               RowBox[{"4", " ", 
+                SuperscriptBox["t", "8"]}]}], ")"}]}]}], ")"}]}]}], "-", 
+        FractionBox[
+         RowBox[{"96", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "3"]}], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["s", "2"], " ", "t"}], "+", 
+            RowBox[{"4", " ", "s", " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            SuperscriptBox["t", "3"]}], ")"}], " ", 
+          RowBox[{"Log", "[", 
+           RowBox[{"Abs", "[", 
+            FractionBox["t", "s"], "]"}], "]"}]}], 
+         SuperscriptBox["t", "3"]], "+", 
+        FractionBox[
+         RowBox[{"48", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", " ", 
+              SuperscriptBox["s", "2"]}], "+", 
+             RowBox[{"2", " ", "s", " ", "t"}], "+", 
+             SuperscriptBox["t", "2"]}], ")"}], "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Log", "[", 
+            RowBox[{"Abs", "[", 
+             FractionBox["t", "s"], "]"}], "]"}], "2"]}], 
+         SuperscriptBox["t", "4"]]}], ")"}]}], "+", 
+     RowBox[{
+      RowBox[{"Log", "[", 
+       RowBox[{"-", 
+        FractionBox["t", 
+         RowBox[{"s", "+", "t"}]]}], "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        FractionBox[
+         RowBox[{"32", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "2"], " ", 
+             SuperscriptBox["t", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               SuperscriptBox["s", "2"], "+", 
+               RowBox[{"s", " ", "t"}], "+", 
+               SuperscriptBox["t", "2"]}], ")"}]}], "+", 
+            RowBox[{
+             SuperscriptBox["\[Pi]", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "6"]}], "+", 
+               RowBox[{"12", " ", 
+                SuperscriptBox["s", "5"], " ", "t"}], "+", 
+               RowBox[{"8", " ", 
+                SuperscriptBox["s", "4"], " ", 
+                SuperscriptBox["t", "2"]}], "+", 
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "3"], " ", 
+                SuperscriptBox["t", "3"]}], "+", 
+               RowBox[{"4", " ", 
+                SuperscriptBox["s", "2"], " ", 
+                SuperscriptBox["t", "4"]}], "+", 
+               RowBox[{"6", " ", "s", " ", 
+                SuperscriptBox["t", "5"]}], "+", 
+               RowBox[{"4", " ", 
+                SuperscriptBox["t", "6"]}]}], ")"}]}]}], ")"}]}], 
+         RowBox[{
+          SuperscriptBox["s", "3"], " ", 
+          SuperscriptBox["t", "3"]}]], "-", 
+        FractionBox[
+         RowBox[{"64", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox["\[Pi]", "2"], " ", 
+             SuperscriptBox[
+              RowBox[{"(", 
+               RowBox[{
+                RowBox[{"2", " ", 
+                 SuperscriptBox["s", "2"]}], "+", 
+                RowBox[{"2", " ", "s", " ", "t"}], "+", 
+                SuperscriptBox["t", "2"]}], ")"}], "2"]}], "+", 
+            RowBox[{"2", " ", 
+             SuperscriptBox["t", "2"], " ", 
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"3", " ", 
+                SuperscriptBox["s", "2"]}], "+", 
+               RowBox[{"3", " ", "s", " ", "t"}], "+", 
+               SuperscriptBox["t", "2"]}], ")"}]}]}], ")"}], " ", 
+          RowBox[{"Log", "[", 
+           RowBox[{"Abs", "[", 
+            FractionBox["t", "s"], "]"}], "]"}]}], 
+         SuperscriptBox["t", "4"]], "+", 
+        FractionBox[
+         RowBox[{"96", " ", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"4", " ", 
+             SuperscriptBox["s", "3"]}], "+", 
+            RowBox[{"6", " ", 
+             SuperscriptBox["s", "2"], " ", "t"}], "+", 
+            RowBox[{"4", " ", "s", " ", 
+             SuperscriptBox["t", "2"]}], "+", 
+            SuperscriptBox["t", "3"]}], ")"}], " ", 
+          SuperscriptBox[
+           RowBox[{"Log", "[", 
+            RowBox[{"Abs", "[", 
+             FractionBox["t", "s"], "]"}], "]"}], "2"]}], 
+         SuperscriptBox["t", "3"]], "-", 
+        FractionBox[
+         RowBox[{"32", " ", 
+          SuperscriptBox[
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"2", " ", 
+              SuperscriptBox["s", "2"]}], "+", 
+             RowBox[{"2", " ", "s", " ", "t"}], "+", 
+             SuperscriptBox["t", "2"]}], ")"}], "2"], " ", 
+          SuperscriptBox[
+           RowBox[{"Log", "[", 
+            RowBox[{"Abs", "[", 
+             FractionBox["t", "s"], "]"}], "]"}], "3"]}], 
+         SuperscriptBox["t", "4"]]}], ")"}]}]}], ")"}]}]}]], "Output",
+ ImageSize->{572, 728},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[32]=",
+ CellID->1366746330]
+}, Closed]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+The result is not particularly compact, but it can be plotted as a function \
+of the center-of-mass scattering angle:\
+\>", "MathCaption",
+ CellID->843209773],
+
+Cell[BoxData[
+ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"Plot", "[", 
+    RowBox[{
+     RowBox[{"d\[Sigma]d\[CapitalOmega]HE", "[", 
+      RowBox[{
+       RowBox[{"1", "/", "137."}], ",", 
+       RowBox[{"4", 
+        SuperscriptBox["\[Omega]", "2"]}], ",", 
+       RowBox[{
+        RowBox[{"-", "2"}], " ", 
+        SuperscriptBox["\[Omega]", "2"], " ", 
+        RowBox[{"(", 
+         RowBox[{"1", "-", 
+          RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}]}]}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"\[Theta]", ",", ".1", ",", 
+       RowBox[{"\[Pi]", "-", ".1"}]}], "}"}], ",", 
+     RowBox[{"PlotRange", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", 
+        SuperscriptBox["10", 
+         RowBox[{"-", "9"}]]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
+   
+   RowBox[{"{", 
+    RowBox[{"\[Omega]", ",", "6", ",", "13"}], "}"}]}], "]"}]], "Input",
+ CellGroupingRules->{GroupTogetherGrouping, 10000.},
+ CellLabel->"In[33]:=",
+ CellID->457649631]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["General case", "Subsection",
+ CellID->712505992],
+
+Cell[TextData[{
+ "In the general case, the amplitude is complex, with the imaginary parts \
+arising from the special functions ",
+ Cell[BoxData[
+  ButtonBox["DiscB",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/DiscB"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  The complex conjugate of the scattering amplitude is constructed by \
+selectively conjugating these special functions."
+}], "Text",
+ CellID->486260094],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Construct the conjugate amplitude by selectively complex conjugating the \
+special functions in ",
+ Cell[BoxData["fullAmplitude"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ Deletable->True,
+ CellID->1926613692],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"fullAmplitudeConjugate", "=", 
+   RowBox[{"fullAmplitude", "/.", 
+    RowBox[{
+     RowBox[{"h", ":", 
+      RowBox[{"_DiscB", "|", "_ScalarC0", "|", "_ScalarD0"}]}], 
+     "\[RuleDelayed]", 
+     RowBox[{"Conjugate", "[", "h", "]"}]}]}]}], ";"}]], "Input",
+ CellLabel->"In[34]:=",
+ CellID->837891978]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["Contract",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/Contract"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " the product of the low energy amplitude with itself, and apply the on \
+shell kinematic conditions (about 10 seconds runtime on a modern machine)."
+}], "MathCaption",
+ CellID->590746162],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"ampSqFull", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      SuperscriptBox[
+       RowBox[{"(", 
+        FractionBox[
+         SuperscriptBox["e", "4"], 
+         RowBox[{"16", 
+          SuperscriptBox["\[Pi]", "2"]}]], ")"}], "2"], 
+      RowBox[{"Contract", "[", 
+       RowBox[{
+        FractionBox["1", "4"], "fullAmplitude", "*", 
+        "fullAmplitudeConjugate"}], "]"}]}], "/.", "onShell"}], "/.", 
+    RowBox[{"\[ScriptD]", "\[Rule]", "4"}]}]}], ";"}]], "Input",
+ CellLabel->"In[35]:=",
+ CellID->853844653]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Multiply by the flux and phase space factors to obtain the differential cross \
+section:\
+\>", "MathCaption",
+ CellID->1133312901],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"d\[Sigma]d\[CapitalOmega]Full", "[", 
+    RowBox[{"\[Alpha]_", ",", "s_", ",", "t_", ",", "m_"}], "]"}], "=", 
+   RowBox[{
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"2", "s"}]], "ampSqFull", 
+     FractionBox["1", 
+      RowBox[{"32", 
+       SuperscriptBox["\[Pi]", "2"]}]]}], "/.", 
+    RowBox[{"e", "\[Rule]", 
+     SqrtBox[
+      RowBox[{"\[Alpha]", " ", "4", "\[Pi]"}]]}]}]}], ";"}]], "Input",
+ CellLabel->"In[36]:=",
+ CellID->1557461864,
+ ExpressionUUID -> "3ea5a085-1db6-4a57-a531-532b5990ee41"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+The result is extremely complicated, but it can be numerically plotted as a \
+function of the center-of-mass scattering angle (around 80 seconds runtime):\
+\>", "MathCaption",
+ CellID->583374965],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"With", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"\[Omega]", "=", "1.1"}], "}"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"Plot", "[", 
+    RowBox[{
+     RowBox[{"Re", "[", 
+      RowBox[{"d\[Sigma]d\[CapitalOmega]Full", "[", 
+       RowBox[{
+        RowBox[{"1", "/", "137."}], ",", 
+        RowBox[{"4", 
+         SuperscriptBox["\[Omega]", "2"]}], ",", 
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         SuperscriptBox["\[Omega]", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "-", 
+           RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}]}], ",", "1.0"}], 
+       "]"}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"\[Theta]", ",", ".1", ",", 
+       RowBox[{"\[Pi]", "-", ".1"}]}], "}"}], ",", 
+     RowBox[{"PlotRange", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"0", ",", "\[Pi]"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"2", "*", 
+           SuperscriptBox["10", 
+            RowBox[{"-", "10"}]]}], ",", 
+          RowBox[{"1", "*", 
+           SuperscriptBox["10", 
+            RowBox[{"-", "10"}]]}]}], "}"}]}], "}"}]}], ",", 
+     RowBox[{"AxesOrigin", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", 
+        RowBox[{"1", "*", 
+         SuperscriptBox["10", 
+          RowBox[{"-", "10"}]]}]}], "}"}]}], ",", 
+     RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
+     RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]}], 
+  "\[IndentingNewLine]", "]"}]], "Input",
+ CellLabel->"In[37]:=",
+ CellID->1539311909],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {}, 
+   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
+1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAA9LiMMpyZuT/pJpeodVznPWFPqegw
+3M8/d3yTw84c5z29iSiWAEPaPyiy/QMDpOY9bDo9WlH04T+A+yPi9RDmPcKZ
+QIfpruY/SHlZaddw5T1lLVURHdDrPyKkIQBsw+Q9x2LUzNZM8D+w56wdujDk
+PQPJhr/s5PI/yedKVkuv4z0jZCZB5nD1Pzm3TzMpV+M9hoHlQQ7R9z9KpfzM
+lizjPRA5LfGDZPo/m1NhDREs4z3dcpQfKMz8P9SRw9F0VuM9j+Ho3K8n/z8k
+ykpbNqbjPTT1YqRC2wBA4m5fpZwi5D3COuGZxAwCQCq0kHmWsuQ9Y82jZu1X
+A0BSzo3LimDlPXb63PoHnQRAEz54Au0M5j2r6KXOOcwFQEvsdSI0nuY98yOz
+eRIVB0DEQN0ZWhjnPVDHr3IuVQhAo2l2qHVc5z1oT6Ci
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{0, 
+     Rational[1, 10000000000]}, {0, 1.*^-10}],
+  Method->{},
+  PlotRange->NCache[{{0, Pi}, {
+      Rational[1, 5000000000], 
+      Rational[1, 10000000000]}}, {{0, 3.141592653589793}, {2.*^-10, 
+     1.*^-10}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{Automatic, Automatic}]], "Output",
+ ImageSize->{184, 97},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[37]=",
+ CellID->517809625]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "The reason for the long evaluation time is due to numerous calls to the \
+complicated special functions ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ", and especially ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " for each kinematic point.  The evaluation time can be improved if the \
+function is organized so that each special function appears once in the \
+expression."
+}], "Text",
+ CellID->1027508454],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "There are 5562 instances of ",
+ Cell[BoxData[
+  ButtonBox["ScalarC0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarC0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["ScalarD0",
+   BaseStyle->"Link",
+   ButtonData->"paclet:X/ref/ScalarD0"]], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " each in ",
+ Cell[BoxData["ampSqFull"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ":"
+}], "MathCaption",
+ CellID->536425463],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"Count", "[", 
+  RowBox[{"ampSqFull", ",", "_ScalarC0", ",", "Infinity"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Count", "[", 
+  RowBox[{"ampSqFull", ",", "_ScalarD0", ",", "Infinity"}], "]"}]}], "Input",
+ CellLabel->"In[38]:=",
+ CellID->851650526,
+ ExpressionUUID -> "3ea5a085-1db6-4a57-a531-532b5990ee41"],
+
+Cell[BoxData["5562"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[38]=",
+ CellID->1614354421],
+
+Cell[BoxData["5562"], "Output",
+ ImageSize->{33, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[39]=",
+ CellID->1146357549]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Collect the squared amplitude by the special functions, and simplify each \
+coefficient (25 seconds runtime).  There are now only 33 instances of the \
+special functions:\
+\>", "MathCaption",
+ CellID->291755662],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"ampSqFullImpr", "=", 
+   RowBox[{"Collect", "[", 
+    RowBox[{"ampSqFull", ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "_DiscB", ",", "_ScalarC0", ",", "_ScalarD0", ",", "_Conjugate"}], 
+      "}"}], ",", "Simplify"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Count", "[", 
+  RowBox[{"ampSqFullImpr", ",", "_ScalarC0", ",", "Infinity"}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"Count", "[", 
+  RowBox[{"ampSqFullImpr", ",", "_ScalarD0", ",", "Infinity"}], 
+  "]"}]}], "Input",
+ CellLabel->"In[40]:=",
+ CellID->982957420],
+
+Cell[BoxData["33"], "Output",
+ ImageSize->{18, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[41]=",
+ CellID->365295476],
+
+Cell[BoxData["33"], "Output",
+ ImageSize->{18, 13},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[42]=",
+ CellID->2012802006]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+Construct the differential cross section, and plot it (1 second runtime):\
+\>", "MathCaption",
+ CellID->850749420],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"d\[Sigma]d\[CapitalOmega]Full", "[", 
+    RowBox[{"\[Alpha]_", ",", "s_", ",", "t_", ",", "m_"}], "]"}], "=", 
+   RowBox[{
+    RowBox[{
+     FractionBox["1", 
+      RowBox[{"2", "s"}]], "ampSqFullImpr", 
+     FractionBox["1", 
+      RowBox[{"32", 
+       SuperscriptBox["\[Pi]", "2"]}]]}], "/.", 
+    RowBox[{"e", "\[Rule]", 
+     SqrtBox[
+      RowBox[{"\[Alpha]", " ", "4", "\[Pi]"}]]}]}]}], ";"}]], "Input",
+ CellLabel->"In[43]:=",
+ CellID->599380214,
+ ExpressionUUID -> "3ea5a085-1db6-4a57-a531-532b5990ee41"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"With", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"\[Omega]", "=", "1.1"}], "}"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"Plot", "[", 
+    RowBox[{
+     RowBox[{"Re", "[", 
+      RowBox[{"d\[Sigma]d\[CapitalOmega]Full", "[", 
+       RowBox[{
+        RowBox[{"1", "/", "137."}], ",", 
+        RowBox[{"4", 
+         SuperscriptBox["\[Omega]", "2"]}], ",", 
+        RowBox[{
+         RowBox[{"-", "2"}], " ", 
+         SuperscriptBox["\[Omega]", "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "-", 
+           RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}]}], ",", "1.0"}], 
+       "]"}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"\[Theta]", ",", ".1", ",", 
+       RowBox[{"\[Pi]", "-", ".1"}]}], "}"}], ",", 
+     RowBox[{"PlotRange", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"0", ",", "\[Pi]"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"2", "*", 
+           SuperscriptBox["10", 
+            RowBox[{"-", "10"}]]}], ",", 
+          RowBox[{"1", "*", 
+           SuperscriptBox["10", 
+            RowBox[{"-", "10"}]]}]}], "}"}]}], "}"}]}], ",", 
+     RowBox[{"AxesOrigin", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", 
+        RowBox[{"1", "*", 
+         SuperscriptBox["10", 
+          RowBox[{"-", "10"}]]}]}], "}"}]}], ",", 
+     RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
+     RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]}], 
+  "\[IndentingNewLine]", "]"}]], "Input",
+ CellLabel->"In[44]:=",
+ CellID->130500984],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {}, 
+   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
+1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAA9LiMMpyZuT8TCmBjA1znPWFPqegw
+3M8/iWEbzc4c5z29iSiWAEPaPyfMVQUDpOY9bDo9WlH04T/yxzji9RDmPcKZ
+QIfpruY/lrdZaddw5T1lLVURHdDrPz2qIgBsw+Q9x2LUzNZM8D/jhK0dujDk
+PQPJhr/s5PI/F6xKVkuv4z0jZCZB5nD1P6gvTzMpV+M9hoHlQQ7R9z89efzM
+lizjPRA5LfGDZPo/QdNgDREs4z3dcpQfKMz8P18IxNF0VuM9j+Ho3K8n/z+a
+n0hbNqbjPTT1YqRC2wBA7ClfpZwi5D3COuGZxAwCQLd3nHmWsuQ9Y82jZu1X
+A0ARFU/LimDlPXb63PoHnQRA8UOnAu0M5j2r6KXOOcwFQL+IpyE0nuY98yOz
+eRIVB0C+41swUxjnPVDHr3IuVQhAJyAsTVBS5z2I2JuQ
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesLabel->{None, None},
+  AxesOrigin->NCache[{0, 
+     Rational[1, 10000000000]}, {0, 1.*^-10}],
+  Method->{},
+  PlotRange->NCache[{{0, Pi}, {
+      Rational[1, 5000000000], 
+      Rational[1, 10000000000]}}, {{0, 3.141592653589793}, {2.*^-10, 
+     1.*^-10}}],
+  PlotRangeClipping->True,
+  PlotRangePadding->{Automatic, Automatic}]], "Output",
+ ImageSize->{184, 97},
+ ImageMargins->{{0, 0}, {0, 0}},
+ ImageRegion->{{0, 1}, {0, 1}},
+ CellLabel->"Out[44]=",
+ CellID->1262040413]
+}, Open  ]]
+}, Open  ]],
+
+Cell[TextData[{
+ "To avoid having to recalculate and simplify the differential cross section \
+each time ",
+ StyleBox["Mathematica",
+  FontSlant->"Italic"],
+ " is restarted, it is useful to save it to disk with ",
+ Cell[BoxData[
+  ButtonBox["DumpSave",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/DumpSave"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ".  The definition can then be loaded with ",
+ Cell[BoxData[
+  ButtonBox["Get",
+   BaseStyle->"Link",
+   ButtonData->"paclet:ref/Get"]], "InlineFormula",
+  ShowStringCharacters->False,
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " when needed across separate sessions."
+}], "Text",
+ CellID->160226316],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Save the definition of ",
+ Cell[BoxData["d\[Sigma]d\[CapitalOmega]Full"], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ " in a binary file:"
+}], "MathCaption",
+ CellID->144309345],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"SetDirectory", "[", "$TemporaryDirectory", "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"DumpSave", "[", 
+   RowBox[{"\"\<QED-LBL-ampSq.mx\>\"", ",", "d\[Sigma]d\[CapitalOmega]Full"}],
+    "]"}], ";"}]}], "Input",
+ CellLabel->"In[52]:=",
+ CellID->1631488855,
+ ExpressionUUID -> "3ea5a085-1db6-4a57-a531-532b5990ee41"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "Load the definitions in ",
+ Cell[BoxData["\"\<QED-LBL-ampSq.mx\>\""], "InlineFormula",
+  FontFamily->FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "11.2"]], "Source Sans Pro", 
+    Inherited]],
+ ": "
+}], "MathCaption",
+ CellID->831367542],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"SetDirectory", "[", "$TemporaryDirectory", "]"}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Get", "[", "\"\<QED-LBL-ampSq.mx\>\"", "]"}], ";"}]}], "Input",
+ CellLabel->"In[54]:=",
+ CellID->1265671012,
+ ExpressionUUID -> "3ea5a085-1db6-4a57-a531-532b5990ee41"]
+}, Open  ]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["More About", "TutorialMoreAboutSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "MORE ABOUT", "TutorialMoreAboutSection", CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Guides"}], "TutorialMoreAboutSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->23220180],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Package-X",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/guide/PackageX"]], "TutorialMoreAbout",
+ CellID->1567025153],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Related Tutorials", "RelatedTutorialsSection",
+ WholeCellGroupOpener->True,
+ CellElementSpacings->{"CellMinHeight"->3},
+ CellFrameLabels->{{
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 
+     Cell[
+     "RELATED TUTORIALS", "RelatedTutorialsSection", 
+      CellSize -> {5000, Inherited}], 
+     FEPrivate`If[
+      FEPrivate`Or[
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+       FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 
+      Cell[
+       TextData[{
+         Cell[
+          BoxData[
+           InterpretationBox[
+            StyleBox[
+             
+             GraphicsBox[{}, ImageSize -> {24, 0}, BaselinePosition -> 
+              Baseline], "CacheGraphics" -> False], 
+            Spacer[24]]]], "Related Tutorials"}], "RelatedTutorialsSection", 
+       CellSize -> {5000, Inherited}], None]], None}, {None, None}},
+ CellFrameLabelMargins->0,
+ CellSize->{Inherited, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 11, 
+    FEPrivate`If[
+     FEPrivate`Or[
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+      FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], 14, Inherited]]},
+ CellID->415694126],
+
+Cell["", "SectionHeaderSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]],
+
+Cell[TextData[ButtonBox["Bringing the Arguments of D functions to Canonical \
+Form",
+ BaseStyle->"Link",
+ ButtonData->"paclet:X/tutorial/ArgumentsOfScalarD"]], "RelatedTutorials",
+ CellID->806871991],
+
+Cell["", "SectionFooterSpacer",
+ Editable->False,
+ Selectable->False,
+ Deletable->False,
+ ShowCellBracket->False,
+ ShowSelection->False,
+ CellMargins->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 0, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]],
+ CellElementSpacings->{"CellMinHeight"->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], 1, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]},
+ CellSize->FEPrivate`If[
+   FEPrivate`Or[
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "6.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "7.0"], 
+    FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"]], {Inherited, 1}, 
+   FEPrivate`If[
+    FEPrivate`Or[
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.0"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.1"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.2"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.3"], 
+     FEPrivate`SameQ[FEPrivate`$ProductVersion, "10.4"]], Inherited, 
+    Inherited]]]
+}, Open  ]]
+}, Open  ]],
+
+Cell[" ", "FooterCell"]
+},
+Saveable->False,
+ScreenStyleEnvironment->"Working",
+WindowSize->{725, 750},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowTitle->FEPrivate`If[
+  FEPrivate`Or[
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "8.0"], 
+   FEPrivate`SameQ[FEPrivate`$ProductVersion, "9.0"]], 
+  "The Scattering of Light By Light - Wolfram Mathematica", 
+  "The Scattering of Light By Light"],
+PrivateNotebookOptions->{"FileOutlineCache"->False},
+TaggingRules->{
+ "ModificationHighlight" -> False, "ColorType" -> "TutorialColor", 
+  "LinkTrails" -> GridBox[{{
+      RowBox[{
+        StyleBox[
+         ButtonBox[
+         "Mathematica", ButtonData -> "paclet:guide/Mathematica", 
+          BaseStyle -> {"Link", "DockedLinkTrail"}], FontSlant -> "Italic"], 
+        Cell[">", "DockedLinkTrailSeparator"]}]}}, ColumnAlignments -> Left], 
+  "Metadata" -> {
+   "built" -> "{2017, 11, 26, 23, 53, 41.151120}", 
+    "history" -> {"2.0", "", "", ""}, "context" -> "X`", "keywords" -> {}, 
+    "specialkeywords" -> {}, "tutorialcollectionlinks" -> {}, "index" -> True,
+     "label" -> "Package-X Tutorial", "language" -> "en", "paclet" -> 
+    "Package-X", "status" -> "None", "summary" -> 
+    "This tutorial will illustrate a few strategies you can employ to \
+streamline complex calculations with Package-X by using the scattering of \
+light by light in quantum electrodynamics as an example. We will aim to \
+calculate the scattering amplitude and differential cross section. In certain \
+kinematic limits, compact analytic expressions exist and can be quickly \
+obtained. Otherwise, the general result with full kinematic dependence is \
+extremely complicated, and can take a long time to calculate. But with clever \
+strategies it can be obtained in a reasonable amount of time, and can even be \
+numerically evaluated. We will also save the final result so it can be \
+reloaded upon restarting Mathematica. At leading order, the Feynman diagrams \
+are: GridBox[{{StyleBox[\"s-channel\", TR], StyleBox[\"t-channel\", TR], \
+StyleBox[\"u-channel\", TR]}, {", "synonyms" -> {}, "title" -> 
+    "The Scattering of Light By Light", "titlemodifier" -> "", "windowtitle" -> 
+    "The Scattering of Light By Light", "type" -> "Tutorial", "uri" -> 
+    "X/tutorial/LightByLight"}, "SearchTextTranslated" -> ""},
+FrontEndVersion -> "6.0",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[
+    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
+   Cell[
+    StyleData["Input"], CellContext -> Notebook], 
+   Cell[
+    StyleData["Output"], CellContext -> Notebook], 
+   Cell[
+    StyleData["TutorialMoreAboutSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["RelatedTutorialsSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}], 
+   Cell[
+    StyleData["TutorialRelatedLinksSection"], 
+    CellGroupingRules -> {"SectionGrouping", 30}]}, Visible -> False, 
+  FrontEndVersion -> "6.0", 
+  StyleDefinitions -> "Default.nb"]
+]
+
diff --git a/packages/X/Kernel/init.m b/packages/X/Kernel/init.m
new file mode 100644
index 0000000000000000000000000000000000000000..f95dc3387d1b96378302c7139cc2f55856138b24
--- /dev/null
+++ b/packages/X/Kernel/init.m
@@ -0,0 +1,32 @@
+(* ::Package:: *)
+
+(* Mathematica Init File *)
+System`Dump`fixmessagestring[System`Dump`s_] := ToString@InputForm@System`Dump`s;
+
+If[MemberQ[Contexts[], "X`"],
+  If[$KernelID==0,
+	If[$Notebooks,
+	  Print[ToString[Row[{"Package-X v2.1.1 already initialized\nFor more information, see the ", Hyperlink["guide", "paclet:X/guide/PackageX"]}],StandardForm]],
+	  Print["Package-X v2.1.1 already initialized"]
+	]
+  ],
+
+  BeginPackage["X`"];
+  Get[FileNameJoin[{DirectoryName[$InputFileName,2], "Common.m"}]];
+  Get[FileNameJoin[{DirectoryName[$InputFileName,2], "Lorentz.m"}]];
+  Get[FileNameJoin[{DirectoryName[$InputFileName,2], "Dirac.m"}]];
+  Get[FileNameJoin[{DirectoryName[$InputFileName,2], "OneLoop.m"}]];
+  
+  EndPackage[];
+
+  If[$KernelID==0,
+	If[$Notebooks,
+	  If[$VersionNumber<10.1, Print[ToString[Row[{"Attention: Support for Mathematica earlier than version 10.1 will be dropped in the near future. Please upgrade your copy of ", Hyperlink["Mathematica", "http://www.wolfram.com/mathematica/"]}],StandardForm]]];
+	  Print[ToString[Row[{"Package-X v2.1.1, by Hiren H. Patel\nFor more information, see the ", Hyperlink["guide", "paclet:X/guide/PackageX"]}],StandardForm]],
+	  
+	  If[$VersionNumber<10.1, Print["Attention: Support for Mathematica earlier than version 10.1 will be dropped in the near future.  Please upgrade your copy of Mathematica"]];
+	  Print["Package-X v2.1.1, by Hiren H. Patel"]
+	]
+  ]
+
+];
diff --git a/packages/X/Lorentz.m b/packages/X/Lorentz.m
new file mode 100644
index 0000000000000000000000000000000000000000..b5344e2387c06a9c785e822bba415a0f2d3f3757
--- /dev/null
+++ b/packages/X/Lorentz.m
@@ -0,0 +1,933 @@
+(*!1N!*)mcm
+j<hTJue'P+lKh]7t>X#r/N&oL8lkQ{ Q0=Z2]<9/\J[&`b%O(\DNrljd>F^Cdul&P4b+e?
+aZ,McdWD]2FP?R'6<|`p%O(\DNrl>(9@[+[&Oj<pTF%{OGVsv)Q(h>2LS5?Pr&hg#.9_`}
+bTAu7Z@p+x(X7Ru|$MA_i9oQ[GL2`["b${> th'I-~+W&2!gF4(L#TE@n_!v2zMt+W&2!g
+q_0>h6^K3u_Aj->]it@HGmeV<;c?_2p GQi~GTmcg4j)_s3 )4AZ[]`njSX2E"__?;Zris
+_sn;jY7qSQZ"_b?;^L:.#$_+?I\w$[[8,Gcz,iVV43;?*[p??K#$m7r,n^t9Q\sYZa(Pf)
+]]iV@HGmZk#P2{g42P Pqx#PRz3uTW/JpL>sH 7G.bu;GNFNZp!QGmCFs8#PRz3uTW/JpL
+>sH 7G.bu;u4t}r{JQ^Zcvn#g(r=-$p}?.1"U{E&\w`qo[?A'"EwX2E"!!2\uk>X7r11O%
+uct#R}D_h_A05]7.%jL,Y8((*Db]p|-r)6de/gt.9(%w^3f@,s#}'{0q')* 3v=gpKbdYo
+c}7C'VI7f?U<&)A3nA+zN/+j)6de/gt.oN!V$g7`l@@h4!g=EsP'`UOeBB'su2qp/fi@[)
+bAK;N<+U""<;014hO%kd;f2LS5?Pr&R1+oF03t=gpK6`SR/wd4a<Jr?9)z0q]CgrBKI.E{
+d^5%)gPbT6Jr#&t}CE"}bnfTv/[&(,8FV\7yD%[vGz_/Z(]<OeBB'su2qp/fi@[)bAK;N<
++U""<;014hO%kd;f2LS5?Pr&R1+oF03tH:Q!p!GQeC(z`TVgn05Qj?k[&p!1;-OA!it/\M
+C$kQoZDp2ES5?PD86IgIc9(6p IJNk(AL\Zd%,?rDx2ES5?PD86I$f7`L rcjubcuH&,se
+;`01IE@uQ8HY0x')uA_RO2uADy04_"muS2Gfe>I_-J!G9M&:01UmK5op?P".QP]O`qo[Tv
+XW(LN_hsZcP((HZumw/*6+)H.3eU<;$]Z[ H*q,MN'[E*])0BR` e]2L+x(X7R2I,1Dlo^
+ PNs8<iqDj04_"hPLr)MOA!iJubP!Os"8Sl48O`eo?MB8Ul2cd<Drb^M3uAc[8<q4bSBQO
+WnTA%{OGVsT?&(h67Uo3ZIQFojYs[;!CL"e%A1Zmd;>8IkIFEBZ>j<:.j%)9D-Dqs&@v@9
+k2C7&lPu:0j%Ggi^ou6cDC\w$[?vjMAx"LTB]s12_"sa$>!X19PH?`th'I-~rBsb1Z^aX$
+fSRssc`"@Vg.Pv"B$?h3Gi.]BSGWd_dj\Oa0agkhhfCY)8_mAs.2GM+x9hh,IFch<DnzRR
+W|)-qgWyQABOAN0MsX.%BSGW"[+WE;CHTr$!(^@6"%0o`Xp6idPg;Cqb)NEhAk'}oi?At=
+`NiO@HGmeVgFYXt5R==Y+zcKau\7fE.M,D;>@1sX`L[EJFYx\<YXDX-7"QJm.{o:h~i~gv
+u59.Yw%|Ael&i6n='6Q=Xi[3Ik@6=b`><{i9<k!{0XfRRsam7+a4Q+!=%k8#"P`W:0j%(h
+3B?)dr/Z=I1&fQM ?rr8m~L\h|t88Sl48OX3E"rjnH,jDkn^ ;uf mJ6i#E.j`\giV"=Hb
+3'(No2ZIDyk%f,Bh[RYV:(DCE2j`5@+<??Dfs&Ka?e&tcZN%aIH >SmD&DfFD~Ih7-PM-r
+bC;AeJA05],C,;r3AS]M`qo[TvXW4!0+myc|(5+jtc=A8$$4Y1s.faj=iIou!.4A4!0+NU
+eh[MtpCH9\"AgO,_YEB|XVXVE`+/@1Dhs&l".h7`l@a)Z>=xDCTA]s1RFd^2XT9\H ^s0&
+a%-b"BDh6IC%;WU%GFcsT=&(JXa;X<iV"=uk>X^C4E6J'}>dPb L:<LMR4h-2?c~@zW+g4
+2PjZ>Fit/u2>p2iK_sC0D3c{N-@]SW]72)m)b10>f8CY)8tLit/u2>p2iK_ss`,9q5,7^q
+7v&(7ViKou!.JuivM)7p?WT<]sFGKn;F$d0xti@;'~Ga6>u#qA*_)0BR` r2=4G&n !-$>
+\0(6P-)u3Yp)[uhf\)(6C@\w$[_+T~os$Qsz[^O2\`iV"=]#q~BDknVDiVMH]sTZPL$|Q7
+9W@;cz@zQeZuDgs&Ka=JQf_sl!JnGkQ!]MIR`{]Q?lD\j.\aIRfAhFQa&%a<fnuT&,se&+
+2LERS6]W#|Ob_/2BERJM#&t}8Z-L+B'?kP,,Dxk%06Dy'z)/H)Dek%cI"o7E2s8XWv[8A|
+0Mf`SA^+FbC\s&l"RJVEdT'l?U:O> O6\jiV"=J`3lG3)})/?-(!@JS0`VQ_av-5?ViP\=
+Rs/ZDkk%)Oqh&k^La]Yo8ro3fVE.P':0j%h(>-O6FTGb)})/?-(!@JS0`VcA";(\B*0M*$
+3lG3i{AV[8 uP\%`NjEg&&K%mhdiaG6S\w$[ER3 *c)z,8Dk'z)/H)Dek%tz&,seQ6]P#|
+Ob_/2BERlo!GVm)I!Qt,cB";(\[+58Iuc@";(\[+2EmclY +JuZGj<hT!l'7[?!CM:T6_m
+h2&?oKoI+yR?X4lyN?^v8SD/ 5lo!GVm)IL\Oe0l=ng>^LH!t#8Yo/ZIDyP4b+/IoNTPe'
+VffjQ',so1Zris*2N!oDZIDyP4b+f`Bh?6H ^su;^SH!uDM1G'\elyN?3kd^mr"A^VFbAB
+<wT1hfcmiVPg==K?Eh9/TH^&-X^|13&lGB%+hVWLBqMNa&fHSH&_[nG2<o$lPV0IA5SuSL
+DV8P9a/>o:Z0oT=;e'o/p8Q(]S4E%k8#/rnmQQqdn(5wV\]?ilo$`:!QVm)I\l#PU~XIrn
+3tnmQQ2E,1u1L@:Cc^&IGXuA<qTFa ^{aZ12&SMv@iCHDj#%-~VB6~B4@m]tC5=c0w2E^#
+19@ 8cGhS4Z"^A\mOe0l=n(oN>^va7amRw2E,1jz^dlw7"@dZa$ ?$^Lp ]'dR,iVVi~sQ
+N:*d;fNPVcOfm{0WUyQ<Q8I)0iiq@HGmeVgFU+(%r(m)O5Q JA.`,""*gctanKE.DdHk+W
+P&@F[]Dri9r"ix)Jqh&kJb^WG4U<@esL$[J0*meo[MZPXRAO[8QFSNND2vBZ(HDE>@i-@-
+`^@MPTj/]:o~oQtbj(Q(]S4E%k8#7,ex7|1Z?TX2!Q?UZoiV"=,VJ$FT3(5g7,({o2ZI+x
+9hh,j{^dlw7"37[ /^[Rgr/IS*MmE;kF,_Jt8d-VND2PU/bAK;8f8Vn0c(DdKNi"3X:yH#
+@6e]Qd0K7Us1ZcP((H<,p'W.^E\]lyN?3k]WR15,`LjF^deh[Mtp"=`3%FBw=f=8<9[rhf
+2Lc5A%nKW$7R7UQ5qdn(#u<w4!?WJ!K*#&t}CEc^&IGX?v0y')]dP!`U=3E.m7kl0Lhz]1
+4E%k]h0reTU{KDZI9i1R@cTVH`,g_<Z1-.AF(/=& rB<$uBK,dSs2>^#19?{TQ/uM'&H'u
+eb*l@\G)=pM+BD0h.sP(aatb%ggeShC%aG^"1cLts_&oGd<4aLcMiUk_e'IiM: kH|?U.b
+0.&l1lfK[GD2<?cYQ{+0Pj]a_dLTk:TF@u&:ebfp*l4PD+#%D]1G<)N~6\t=ge`;LTpW%g
+$B.1V<B?,=heS;0b%Z&N14r=@|THRsC#kmQ6p5=bSG92#}3R sSARsjX;e9UG0S4^`X$<|
+$&[FJ}BjQH 6mn>78KBJU(T=?!(\fpsJ)CD-R?7s;9i*S>8e\$"b!hNP'Q2]ojo3fV]N4E
+%kc.+yZGTA0G"}#z+x9hh,_tl!JnGkQ!nzk%F 5G3u8Piq*2N!AV[8TA0G"}#z+x9hh,2o
+Pb0(9kJg#&t}#%)6AZ[]Z(]<q~BDknVDlyN?3k$]Z[ H*qg`kH^LH!t#8YqIbeJaD`SssT
+f(>]f#U>$W19d4@z4(GYnF]ac.@:cz@zW++x9hh,p!GQ\n2)m)b10>f8Q',so1g_e;S>LY
+M(Q',so1k%F 5G3u8P0*Jw-*MX:K_-\jlyN?3k?U:Os%MCu(hy7XiKqW7/)ui\H~\=Evf=
+qW7/?K>y:=86"N8[sR8Sl48Oiq*2N!AVis/u2>p2iK*2N!ti,9q5,7UrMI==K?PS]M4E%k
+c.]Q?lD\j.\a4E%k-8+B'?kP,,S0`VQ_av8 @{l"dVX=lyN?^v=@M+/Q?6H 3hAj0Mf`Q'
+,so1tLo4fVGxD\F>@%KS@5uo:4$zTwH$C@dk?%^L\x4E%kH3d@;2mE#uZu-7Z+7Z^E3p2L
+c5A%=zBA0Mc}hUGxD\F>@%KS@5uo*d)0BRR2avH0o3fVE.P'`U#Y6&6d.^`j89u}TA0G"}
+#z+x9hh,_tl!JnGkQ!\x?lD\j.\a4E%ks>8Sl48OiW/u2>p2iK*2N!Qf%`NjEg&&mm*i)0
+BR` u#qA*_)0BR` iWT,Of OuA]2lyN?^v[&(,GMdD;}$V,7m1\w3stwkc2m6oG_cSjL[R
+9a&GQR-}N~'RhV162E^#19@ `kA%B_,d[{aqGYT\i~[F0XRE=QN?H,tdD/c^&IGX@9TGs@
+:t"nRz,T@B5E 5iL_"$<,jotPpiT*2N!4)%SM&?Ph=`-g P/,muyu>#<ODkhKCfU%S3t+x
+9hh,?pcG<DH RyiTPdbb.<POI,rJ_QDiD3c{N-@]V:+x9hh,U&B^_z&d c,f$~@btK6.Y}
+%$35u*Q(b2Q Oe0l=noF!V:=\J?|B;74$~@bZ&]<9/\J[&`b%O#[1SNQ^k.LBmpyoD_4\m
+FPk>kcdnW|h?X^Ht=(/#F'Ac.24 );D-'4L,MI==K?PSue"(A8`zAzNDb&`t@:)H?"CThH
+9DYs7/')kGkcdn@E[]1?PH*+8LL2(]RN=QN?u9]PrD0ZAr$ut{6n S^}j->]^CE^EqmR02
+=nQ(7#(91-Q(uk"(A8`z`RDrP4b+f`c"==(t%}@!&4$ ZuhRqW7/)uEbEqW|TUsWLTqj2o
+u=I^)jmKnm+jQm!!uA<q);[<r}g4!gC:kQ&Qa2SH`kA%EBZ>OnZ[1im=?Nc^&IGX`Ta2SH
+Ek?i?>cG<DH m4ezDIYPt_[]]<FPg*Pv"B$?+o:*NvtX$1bPK_r}Wb$cuH)8"z#gI`@-!|
+jeB@<{kEi9WD`Ua2SH[A[7)4AZ[]r@0g'?"5d2U`OzC5g%Lr[?YV?mF2mAez&7\)hfcmFS
+\Sk4a&')2ZojfpbMQ58SJuL/0[@M@9_FM;0n?pDdHk+WP&2p^$g)eEmrGi7qSQZ"u8$1bP
+K_qdn(#uilo$$~hVt!pnQ(b2Q 2p^$g)ZZRi=QN?-1i@[)\8+Y\!2ErJK8u}[  /h.>]!l
++#+B'?kP,,Dxd4> \-6z3VdwPvSC=_DCV17IVl#/M>_mWMNe,5a+L9R\B9d)%WQ8Xip L2
+(G62Ar=ca48c'68K5Oj-a48c'68KnDaq4C(\[+a<[8QF\w./ju'99>)Q7`aU>t#O,1;>"&
+d{WDDyd4> \-6z>Ahf2WpKUj%]/_]N4E%k8#"=/$'99>1Y<0tRFbAB<w!^k0(<3su9_V ^
+ia*2N!r'q8sz6gSBVt=_5l0/J9[;2EB*Z+>&VX[\tp;(oN6TIpK$K%oHK.`U$Z>(.RR\C3
+dL^}B^_z&d c,f2Lc5A%C@V17IVl#/M>/]?6&tTk/Z)`/TRy/ZDPYPg2>]^Cp92@_<=a t
+B_?RI2SHFNCF)6\0=%/#fGRbGfoGn:&I!~2Lc5A%C@V17IVl#/M>/]RydWM&\y4E%k8#"=
+/$'99>1Y<0tRFbAB<wifp1/Iut2oPb0(]O./Ald)%Wn;D>I2SHFNTFs@/Y-8+]C^9\"Ar:
+qp"\3s[hhf.He>_m *6!.Nf.-YndYsU!a&ZqpGflcmu"c|:./P$>Q(h>cmu"VO.bST#hSZ
+bC/5MF,mh`;e^^h|dY7stNQ\hn)h^h;-b2tTQdT=?!(\q9ehFctbGi>SczL.MvF\T6p}-4
+2E^#19l<U<^YQn[f5xu+^[H!uDM1G'\eiV"=HbqJ_mmZiXou!.H=p-H[AB8qjAra`q9I#3
+ufQI;-7+b<lz@]t0\Ma0!'WLlyN?3kHbH"2Hc5A%Xug>1GJsrSX?]O+kAFu|r$,HoO=A8$
+XHiV"=pZ\ ,H^t\yF5m^c2==3QPrb2fU8oi"_T`:7O`SL/s~ueWQrsMTZl&j0TumA}X2'g
+"/h.>],WCZqd&k(4`+aQ7+;bg3\H/Z&ZDOT>L^r8'x?rE\C!Ik,Yb/)/f"X!#PfTXdid+f
+ y6JQG7=-q\@%O<0@"+^m@3UbS]#8a6^Hgn_>3VEX0oJG}Qg./PT-:sa'x8K:+9@,"/eWK
+ETZ>b7)/f"X!#PfTC/lKe'P/Z[A]*R0_7T*[p?ASM*0&fTj>@.aU?dH ^sp*p'EpW>>}6%
+X^bZ]k8Z346i^  +.<riAcN^oZ.\&xgi>5JtM*T6PL$|fl6R[bX0.$C,*R0_GdL0?)H4P{
+%Y<b.CE|'76YHyL2RxVYXWPHH/`:7O5HlYiXb`SxqP3v`S6T:+86"NCFVD=p<(R-1UPDSJ
+3q6(/T_58M"lo2ZI%!kT@nMWHgt"@;/Tu/(Ed@M4qO&H[dJS4$e)h}k\rcAcN^oZ.\&xuG
+@2o5\aF5X)H$Vu/Qe##}@-Vr^G`=Lt4?ZeP(ee.`,"h0>],eQ(<C'O&!>9E\.:%CX!BJS4
+Z"8SL<"/$|E.Z>`\CIuEVO.b!b$-Z07Zs*_obP$0S+0l=n6=Pmp0=_c @:,WqH&MD@CH[K
+M`dR:<6\:+KvV[$/pFeL71A#RoG\)4o:2kkP/fkQTQapcM,li?pp5i%xa'LaB?Ar2;EqCU
+K~1\BEMNB[2IERE(Z>26kf:IDjEoBSbB4Cd[p)Oz'|`:7OFYJE#TH__ ZD,Gt+S@dho[ZT
+!e9M?PVD=p<(R-1UPDSJ>\)yljW|BYMN'lNH27:/aJW|h?b`Sx*)?"n'fl:D\HuVA}X2'g
+M:0&fTplkc4~r8'x?rsgm~Z(f=b`Sxi{O,^(]Er.[2v(^C*[%!]T^]EsCUK~1\BEMNB[X_
+$ /\jP ~%k8#+ym:Fap#tR$-n/C5c^&IGXMA0n?pu5$1bPK_K>b+?Y:RoHdWO4-2^[`<J5
+d:G #2n>988lA_gP=|&8DNu7_V ^5#\s+4`A8ZiDSs$ouf]Pn+(^0+UG$+Y1J&EXrHRYL`
+,NX*oVFZ/]Oh*&4@Q(F\p>'"/_Glhn#:^`K=jYBljwu;Of0l=nkRFZ`.Un4G)0BRDdHk+W
+P&`UFxeCTs08]M4E%k8#/rnmQQbEKp7#DIbi@:3Lml:I(,iq*2N!W,S4Z")42>FbC\6In0
+W$7R7U&*lb`*aQRw(3JumrTP3R@QDdHk+WP&2P?Y@$+O;TFbAB[8TpQ`mi3iq|h^qW7/jV
+GYlBa=^{rD/,0L2EL]&~RZ\Q'iIH@!&_Nf'g"/D@V`@Yc`WDTiEX(:c=9d;JJSa;uYuY&*
+VU/fb<765l43Qk5pX3L\]P-l,}PInSa|UCJA02=nryq\-K@-Ks;F$dS{?J"n,DKbOe0l=n
+.57_aU4*[ hw&7Q>=|`2oVXT9\iW*2N!4)<)aI)2AZ[]9gCMft]@plm8TpQ<D_h_A05]7.
+7rSQZ"$G7/jVMVMF/ZTk_~EP2um;-XFbM&m>CGjAYps"BeL+"/8bc^&IGXj~irib*2N!W,
+S4Z"nii9g7*`qh&kWOM,Uo9,L'R#U&dcG 1c9YCMmrokFZ/]:3bP!OE4Z>TpOf0l=n(oN>
+^vqdMg-2Y6J&dG@71ZJSN:L6u?X[Tp<Y/]Ohkj^,?UGbQaT=?!(\#idk_%0&fTplkc4~Q(
+F\N<q)E.sk]7O,1\43^$PBY8**myn}'"M:,N#Ua=9giS\=Rs/ZDkk%;!fKmI_72PFA@%ks
+dVDItKQ=m(&DfFdc*Uuj<X'aWC`l(9d"(5Vu0MF!7qSQZ"<_e'qdMg^;0"`t7qSQZ"rUd2
+*UGmX{A%-E@wO+awam)2AZ[]<J1ZiXGud@;2D$Hk+WP&4.4!0+;mG&CM0;1#<2^WA%-E@w
+oKs-/Tu/(Ed@u\ t[J5HEZ1[NQ8Jpu3s-sMZMF/ZTkQ',so1!)%kH3ng^LFbsQ_mkX?W^L
+)yqh&k^La]Yo,{:3/}%F`]rno :IDi7X",N*UVMI0!$~$WDkP4b+f`9Yh,GDm4ezARZa$ 
+[@Q',so1_gqdMgj[.6(9d"(5Vu0MF!7qSQZ"$G7/jVH1s-c&?-(!@J+x9hh,I:Dkt[;`Jt
+.<#p;a=#^W2VeCo}?*t(0kRJ=,=%8J#|?6-5h~2F#(N5>sVD=p<(R-tx\Ma0L2BvTidW.1
+FjZrccg3*lie)$q_A((/"IaxD)Ron9'Kgb,R'h?r/Z&ZDOT>L^FE0&BZm54Pe]j->sLLTW
+iUk_e'Ii9&(\jV;?V,lMNy15&SMvKT3[2}R"E|i?'lNH27:/aJW|Rin9'Kgb,RJkok[FE~
+CF"G@:Yd2Vrm J!mYz5uVIX0[&GY!W^}^|8S,WQ(X1'gM:8SD/Gl%m6IdXBJK~1\NQq^j-
+N/tNjY^Bdu!gC:&l1lojjV,W^c,xL.0[KBb+Q+W|X/Swh)j;+zjWTFs@:t"nRzJr$P)l)6
+AZ[]r@0g'?"5Gu*{;>ijol5wV\]?3v(Bh#ovb-^q2WpKUj%]/_uf)!3Y2Lc5A%XuS%?RcG
+<DH 8$ADtK:.j%Y9;WU'/Ii@[)bAK;N<Oe0l=nt;(CNj!*t[$-n/!S]UAAN@qEW)M%Un-K
+!G9M@BL'ct;_/Tq8bd2Hc5A%nKAP.^$Jok0WUy&1iiO1,ubtOz#|5H:w"nRz`d!wQTW@/u
+q8bdZrCaHk+WP&2p^$g)Ooc%3w>s\J?|NM A&C)6AZ[]r@0g'?"5s!(;f(#(Dtbc&JlU7|
+#t5H:w"nRz`d!wQTW@?)l:O4DqP4b+;U/tq85wV\]?ADtKOc0l=nY@;WU%/Ii@[)bAK;N<
+Oe0l=nY@mIq=5wV\]?>ac^&IGXMA3B_JPXXip i!5*g42P.>$3<ou5'<VQ9afG+p:-/P$>
+$NliW|C:JeCQHk+WP&UZ*)VQ9afG+p:-/P$>27%>M[`DuA]2.06UO-]fP5b+c}<(N~6\:+
+LJ+F>O[:,G0gaI@dCH+q/P66?&LL^,[}Ay*m>rV1m?>+\-b&WL\uD\bXa-0DBuPTj/2/c?
+9dZIZ>lyN?^v8S]hB^_z&d c,fq{tf7qSQZ"Dg<?cYQ{+0f@Hqr/Fb_ )2AZ[]\j;(+d;F
+Lb6^m4PEdZO4=Je$5%A?O)E#o}K\@: XXu=teamLezkN@<tR!)UCM`U&iT*2N!AVGNE0j`
+5@+<??1s^MDsP4b+f`6,Ns7C&?$FR/5,/^[RC?_+B|r8'x?rEYD7$3ui$f8 b_H*0.J9 >
+u|hZ%,r"4Po[g#qW7/)uY4,GQ(X1'gM:N7L2,!8cGhS4Z"^A\mdR]JoJ0WUyVa+x9hh,(y
+c=I-\]O,1\kXHp3t_JPXXip h@qW7/)uVK9h'{iq^5g/::,lo1@n)p)/^LFb/qZa$ ?$^L
+[ko,2Ec5A%C@,lo13a2>u1!V?-(!@JGNm 0v'"Vr0I(9Nj!z+WP&,Xhm@E[]lzfl/Ii@[)
+bAK;N<Oe0l=nt;(CNj!*t[$-n/!S]UAAN@qEW)M%Un-K!G9M@BL'ct;_/Tq8bd2Hc5A%C@
+dk?%3A'x0q')j`._6URs/Zo[U_Q',so13{2>-i?-(!@J5j.mqelqSJ>lSQZ"dw!gC:X^r8
+'x?rDx^]Oc0l=nRYudXf$ 0)jP4J%k-8:-/P$>27%>M[`DuA]2FPJma'=4=/ rWqZrZ'n#
+'"@0(?.^e^#}27o|?*."jaXoN~+6a$!qmHoY[CIh+dQJ=j;dH"l6iUk_e'QA?]V1m?>+\-
+b&@E[]2`=/MY0R6{9pVD=p<(R-QuX1'gM:T6"^6m\~@>8o+y:-/P$>27Z+!emH3UbS]#8a
+*bt[DFj0>F]44E%k8#_Tb>!LN'hrDRM&A/:+<)q#eL" $?)})/Yk/\?6FTTuA9i\,@1u>z
+pAASS+0SG#t]'iub$2m;Gjd@;2Zb^TFbij5*m8g~T-:1EdHc+<??pj@XaCKBm@&DfF*)`r
+a^/cf=.wY/9&uWiA@WK^aw6b]+c|G,NpCpQDgWEU^cadA(-EtsE$P4b+f`SA^+FbP2s~#E
+?6@ntKfnqG6X^^k?a2LPY(H:[kDCHk+WP&awam@9kTRJVE,l`e?-(!cM2G`l)b`ra^pbih
+?e"nRz42S9q!bgn|j@_+Ja6X^^iMqW7/)uEbEqW|TUbAK;8fDD0;SY(p%t+o@jU0F/qru<
+$-n/!S]UAAN@NbeP/qAc.24 ]C6R[bX0.$s\BeL+"/$~$Wh!Rx/Z^E:J[gDm&0(zZXH00i
+d`(9^\J>O Jp")qh3tm;-X=A?:^L[ko,<o>|Z7j#v*Oe(?f(u:$2+1$ >6/}%FkH#$/knz
+#ub?T6X2koTc$!(^3{2>=ATo6R[bX0.$8As`Vl0k,(Io`RkJqW7/)uMZMF/Zq8RJVEdT'l
+Yo,;)60_Uyt?(E6BS+Hr(/`[Q',so13{2>-i?-(!@J rc/I~LmD "%e!#$/kt [9lYM2G'
+`IL/"kA@XDE;j<BJK~1\NQ+X8cGhM&A/:+<)q#flZTlyN?3km7-2+i7_aUAW,?pKmG3UbS
+]#8aJrk5C7&lPu'mNH27:/6?-sl!NiS!ad)`b+eu_4J>O Jp")qh5FZW0^2OEZ1[NQ8J`;
+7O`SL/s~0`i2r`.GZYh6E!K%b}$/n/J\")%X" /+S*Mmpn!Q'uGMH!MA.]*$4wacszv1+x
+9hh,GxD\mE&X?.(!^(Fb_ 82]O'x cWqP/,mImR;LCuF)4AZ[]\jBEeH98c#I~!b-s""e!
+#$/kt [9lYM2G'`IL/"kA@XDdR]JoJ0WUyVa+x9hh,uf"(A8`z:s"nRz`d!wQTW@'x0q')
+j`' 0GgFbAK;8fDD0;SYYAmEq=5wV\]?AD,?pKmG3UbS]#8aJrk5C7&lPu'mNH27:/6?-s
+l!NiS!ad)`b+eu_4J>O Jp")qh5FZW0^2OEZ1[NQ8J`;7O`SL/s~0`(QZu><`EeZ_YtAix
+O' Ag$c2&F`"TTs8 2ufPmp0Wyi7gUEU^cadA(-EtsE$P4b+f`SA^+FbP2s~#E?6@ntKfn
+qG6X^^k?a2LPY(H:[kDCHk+WP&awaml=RJVE,l`eTT+Dj+.sutDyb^K;n\AX#3@!o[h<Q>
+c^<(N~6\:+.Ra*o}?*t(0kRJE4Z>Fap#tR$-n/C5c^&IGXd8:E7SO?Ltc0N4q)G`@-VrkD
+a2I~/w0G<;X719-a\mO,1\43^$%7_ba]:vpu3sd^digf.%$>8}'+LD(EmJ,nm"&,k|oBCQ
+lKe'P/Z[lhI8?J^jn{'"M:,N]OF5m^c2==@~ua'{45e]rQ^tG?gb.%$>8}'+LD(ErE;a?U
+\YJTU H}rM]\'x cWqP/,mIm2sp; Eu7+Fj+9^b?:jsQj)*2N!W,0MF!mF*.qh&k^La]r`
+WHlYM2G'`IL/"k;zpUAAhgqW7/)uMZMF`S`r._6U9Z *Sk&)?Wqi@=b}$/n/J\")%Xb`:R
+RoD_h_A05]7.7rSQZ"u8$1bPK_Uh%]/_K4#p,r8K/rAc.2_+.!@nXVNM AQNhh@V0|<MdU
+lEKp7#DIbiN4q)G`@-VrkDa2I~/w0G<;X719-a\mO,1\43^$%7_ba]:vpu3sd^digf.%$>
+8}'+LD(EmJ,nm"&,k|oBCQlKe'P/Z[lhI8?J^jn{'"M:,N]OF5m^c2==@~ua'{45e]rQ^t
+G?gb.%$>8}'+LD(ErE;a?U\YJTU H}rM]\'x cWqP/,mIm2sp; Eu7+Fj+9^b?:jsQj)*2
+N!W,0MF!mF*.qh&k^La]r`WHlYM2G'`IL/"k;zpUAAhgqW7/)uMZMFbE._6U9Z *Sk&)?W
+qi@=b}$/n/J\")%Xb`]U>kf+Nm;8W{n>cuG,NpCpQD1!'"VrV/f@?fI5]Nn+2Dc5A%u2/x
+M&A/:+<)f8rQ^tG?gb.%$>8}e)G,NpCpQDO?UnQOn9'Kgb,RJkok[F`yewP/;8W{n>cuG,
+NpCpQD1!'"Vr;4Q]kj8Fdb@:D//}%F`].1Ald)%W\Aa*SxbCsyp17'jW(&4w$]@#f=SA^+
+FbC\Hk+WP&J@O $JR.5,Zir8N? ~Wt#Ppy_f2jkPnE'U:wq&1x:wA@XDlyN?3ks-/T1k<,
+tR_'f@,s#}S'.$a%rQk-K?Vu>95IaVgf5IO,U&Q',so1iq^5g/::oHj}MB0n?p__:.#$XV
+sj!g($ebu7'0XVu;@)o[Oc0l=niPb`SxEk?i\{2 PDr;n0Di8B5Eb_.%`@H0nDYH5EnctC
+ACZa$ ?$^L?OQn9T6v0/J9X2!Qv+W/0h?nqQv-?j4Stc3O[ \kJAU)hZ_fJA4.[ >Mtc!u
+2ritO' Ag$c2&F`"d8a<um;$:8 Q6lqkXR#P@If]^xpab/:jao( MZMFs&/T1kjJ._6UO0
+gd&S4w$]@#f=SA^+FbC\Hk+WP&J@O $JR.5,Zir8N? ~Wt#Ppy_f2jkPnE'U:wq&1x:wA@
+XDlyN?3ks-/T1k<,tR_'f@,s#}S'.$a%rQk-K?Vu>95IaVgf5IO,U&Q',so1iq^5g/::oH
+j}MB0n?p__:.#$XVsj!g($ebu7'0XVu;@)o[RJVEdT'lYoFU#2n>mL:o'"V(*h&umT#|u]
+K)oHn!UbX?rns$PF<2tRsG:p /\LOe(?f(u:$2+19U_TO2kHL'EW$.)yRd5,<) h$_2Z_}
+(9d"(5Vu0MF!7qSQZ"DglK9{2u=_5l?j\{+4O0]O(@C^lK9{f)^;0"`t:R2Ok|j=qA#xMZ
+MF/ZTkQ',so1iq^5<$<,tR^Zf@,s#}S'.$a%rQk-K?Vu>95IaVgf5IO,R/5,Ztr8N? ~Wt
+#Ppy_f2jkPnE'U:wq&1x:wA@c/I~Lm/Z[RJ5I[K4u}[ iXPdrRHg3'ek5`sQdcU`EL4Sm4
+PE]s1```ib?e"nRz42S9q!<a%#rxKzEW$.)yRd5,<) he@T/ETM1FUbeC:dkTZQ',so1iq
+^5<$+{]=(-9l5I5F7(o/C%oH2E,1;K?ytsA<;gg=b`SxU{FA@%KSU&D~ac^ElM'r$~$W?6
+3A+x9hh,]NF5X)TUhZelMB0n?p__:.#$XVsj!g($ebu7'0XVu;@)o[Oc0l=niPb`SxEk?i
+CB) c=I-r32D,1UmlJ'"@04(r=<cUmrLJ1[l=@M+/Q?6Zrd",iVVS25,<)KsK%;WSO/vss
+v1[ UDJATrhZiP50 :Bb)60_Uyt?(E6BS+Hr(/5Pd%.%`f8F?j\{+4oPEK2_ac^ElM\gBE
+:=c^&IGXp$?*."%}iiO1,uUoUm+SGW\]rnT=&(-e[(uT0]-sC^lK9{f)^;0"`tKC$^Y1nC
+l}3UbS]#8aS[#PfT-YcyEt,3o9Gfm 0v'"Vr;4&R92[E/Z&ZDOT>L^FE0&BZOgG[*]%!*E
+b]p|JoJlj<_+C:c^&IGXDxd4> \-6z3VS$bEc(mIGc>_VD=p<(R-tx\Ma0!'MZMFD dWRw
+?2-5h~2F#($M=<_3(DmK$,?>`:7O`SL/s~)yqh&kYk/\?6:R`EeZ_YtAixO' Ag$c2&F`"
+TTs8 2ufPmp0gI6R[bX0.$s\BeL+"/$~$Wh!-3f=.wY/9&;]`#nC$2sr_`fT;_k|g:R3\!
+B$Mvi;k_e'A1u(H(aIP(s~#Eh!$*F> h#zsLD{b^K;n\AX#3@!O;gdQ>c^<(N~6\:+.Ra*
+^L:J[gDm&07u^x%>M[P=A>sY5G5FE.j`\glyN?3k2LB*Z+>&VXTud\l=ASFd^|:*DVoF#u
+b?T6X2V:Y8<+(\Q{S{n9'Kgb,RSTg[EU^cOz@!,:achOg$b`Sx*)?"c<rQ^tG?gb.%$>8}
+DhlKe'P/Z[a}WOXDk=Bljwu;D{b^K;n\AX#3@!::/}%FkH#$/ke-W-IofQ(EqOI,VsW@ac
+X?.1Ald)%W\Aa*SxbCsyp1L\ Q$kkT+9utOe(?f(u:$2+1O+[l^qFOSV#PfT-YND,XhmJ?
+O Jp")qhOhG[*]%!*Eb]p|JoJlj<_+C:\J?|NM A&C)6AZ[]\j;(+d;FLb6^q8W)mE_W_[
+@n7*s_^z0&fTplkc4~S'S>Y8<+(\Q{iQb`Sx*)?"Mf?p@nXVHJ)ymJmOn}'"M:,N#Ua=O=
+FdQRFPN1q)G`\sF5m^c2==qO_f/djPrXN[6\&7ir^5qyAX.^0OJpO)**myI8?J^jn{'"M:
+,N#Ua=O=I2-pY4]y>8]pu~)60_Uyt?(E6B( \L?{*l`Z&)?Wn~r97Q8KM2:I<CcYQ{+0BL
+K~1\NQq^j-#$EhPlp0qSEbHc+<??pj@XaC(?Y\t4D/nD'Kgb,RB#.$7O6)jWI[K4u}DjEo
+BS[cJS4$;?P],bVgQ8n9'Kgb,RB#.$7OVI-%a@Pm@\&m-~^bFRTuA9i\,@dx!gC:&lm(^%
+&)kQE9$?liW|C:JeCQHk+We[rQ?1-5h~2F#(:wYh9d:1TQe'Vffj6R[bX0.$cLu-/xM&A/
+:+<)q#eL" $?t plDjEoBS[cJS4$swGLo2ZI#(L)**-9:-/P$>27%>M[CgkHEtDKo^13S+
+NM8w\J?|DxP4b+f`6,Ns7C&?$Fb?OzRtqtr$M'7t0RG#EV^`KKhoI2s}GTmcg4j)?e"nRz
+42S9q!kP^J!Xr:M\EiV-%?Gd,}N`UV$w/$'99>QyX1'gM:T6"^6m"$3/KOM(tp2MA?5]rI
+0kLd0 bhn|2Hc5A%XuS%H[*{;>ijj[$,?>TP/_kSGhtKR>=<D+2P`]lYM2G'`IL/"k! R`
+9T6vHG h#z3fk|u(v3Q',so13{2>FbNGZa$ ?$^L?O,)irO' Ag$c2&F`"d8a<umOd0l=n
+iP\=mn,[l\`* p&yEeMSEi[Rtp]T'x cWqP/,mIm[l^qOd0l=nt;(CNj!*q85wV\]?Sn'i
+0q')* Ojq)b[#:L)**H4ezs}GTmcg4j)?e"nRz42S9q!kP^J!Xr:M\Ei0G&[4wkDEdHk+W
+P&awamRwH[d@;2mE#uh#JQ4$dx_e6@:+-K\n_L%]/_HE0<klYD*&o[ih*2N!W,0MF!3'm;
+-X8h !Fm h#z`+DCHc+<??pj@XaC(?Y4id*2N!W,OnZ[1i&V%t+o@jU0F/*{;>ijj[$,?>
+TP/_kSGhtKR>=<D+2P`]lYM2G'`IL/"k! R`9T6vHG h#z3fk|u(v3Q',so13{2>Fb;T^:
+0"EymFGiPEkj-[:-RAA1u(,5)60_Uyt?(E6BS+Hr(/`[Q',so13{2>b>=@M+S5 41A,3_/
+m=`[Oe(?f(u:$2+1O+<mu5]2V:%PLDA~.$7O6)VK_NrJDff!DiP4b+t.?rTP/_kSGht pl
+#(L)**-9:-/P$>27%>M[`D`T\2hfo)Lg6$%%W-?63AeRRwhs<jX/h'#:L)**8$@{l"dVBg
+/u'FFO+DK%]W\{F5m^Jms-/T1kTtCb(#C:XVu"ir^5qyJQXVg42P]MF5X)TUS>Cbc^&IGX
+p$?*CWuUp$?*."^Va]:vCRlKe'P/Z[lhI8PIRE1TY|_ba]JbG8NM A&C(=3Q@-Vrc<\{O,
+1\5bJqs-/Tu/)2gF0&fTPLu4ir_sV#@-Vr!*'nJp2Lc5A%C@(#C:KECb(#C:Eo^Lt$?r`:
+7O`SL/s~UmqoBe"G"/8#^M[k^Q0"EymF]?grTm&U!{45P(awamb;eu?8(!@J[8:8'opt3s
+$~$W?63At_'i5"Fm@%ksdVDIYPEX^`KKhoGxD\Sks~#EuAp%i:^&V!:8'opt3sY/t_'i5"
+[8:8'opt3s$~$W?63A@-VrkDa2I~bJhZ)tFdM&^;0"EymFGio$Lg6$%%W-0MF!RV?vq.RJ
+VEh(>]`e^>a"-b"BV:i;k_e'QaD_S*H$=zYx2>^#19l<U<M(YVukJ@p1\lQ_X4%b)(im]:
+3s$sb70DfK[G+y7GB4Z77Oa9O9bCo[B<tzO'[$rDOlG[kFoS$@liY2e>I_l=U<dGutE\1[
+NQ8Jb}IC:8sTO$cDr`EV1[NQ8Jb}IC:8sTO$cDIwVi;47+KUho?Pli'"M:,N#Ua=o]Ocrg
+TPpr'rps*T-,#wAN4aX7ttb\44HJjZ5*:8'opt3s``ZCFa<C6BRFFQk.'sV6Z]Z*Z'n#'"
+@0(?2b=/L:RxVYXW@fBi*Rp?lHLgVDZ'n#'"@0(?DTmL/&)`u7rY-41%LB!$7UaNeS5%)g
+iD`ECIiy>VJYD\6?<2s~&LF|r8m~GM@fBi*R/^tsTP/_OcrgTPpr'rPSa'/q]d3B@omGGi
+K>b+?Y@.uS/Z6}:y03=nF}D_tKJV4$dx_e6@:+`4n7iK>V`/ IGf QB+.$7OK^a'EG02=n
+GntbM)O8`UEW@fBi*RE4mwoVQ!Ffp#Vt@fBi*RE4kDk2G+DeZFk2K?^}KCtcOcrgTPpr'r
+PSgd/YOh\KK6$t6MKQho7t?i$]?9M{UsLfTqJ+^ZO"&U!{45P(`MS/RwVYXWn,<@GmAQ` 
+:"e]f?U<3vmH-$Er=xepSB8eGo.Xml'"/_Glhn#:^`K=jYBljwu;Of0l=n\SCY)8TT`*FO
+7:D+s17qSQZ"A<D>g42Pa-]kn?,Y<y+WA:D>i8Hxs!hm*vh3NgYt!QVm)IfpO&Tz+0ItM*
+:)1ZY|SV59@]nP2oh:eOf#U>$W19]M4E%kc.@:^W3R@QDdHk+WP&?egE,mm4ezKp7#DIbi
+@:^W3R@QDdHk+WP&@F[]Dri9dTX=#PU~Of'u(!8IP(s~#E?6@nuATiUp"uf,Q',so1EMjM
+qV+PTfhZRy(3Jum:uq73K[:0j%(h3B?)gE,mZ&RQtg&Y"#2LERC&mIF.IzM~O3`UF\&TF|
+r8m~RfG+ a[Jdw!gC:;!A O6S7D_'~#83Nt7F~t 4odkSyh)FcN-O&&U!{45pH*TMY0R6{
+OF2>^#19I9SA1^Y|_"Gh%m6IdXBJK~1\-Pc4tL.Y-,Oh\KK6$tnEr"ok[F5nT:!^@^\S"b
+"5k^iUk_e'A1ReG\km%sC:>80r%'_5F]<jo$72/_X$$!"iF#$*g(>J?p$+<dI>CFm:-)my
+n:eh1z3t6]HgdR54-,#wHJjZr`!Z@^d;[r>Q,eqH W3U/RHLg--s/`NZqy'}hTh.r,#P[3
+$/bZh\pt^~E`Z>qm0><ZeCoS$@liY2b (609i@/}&PF|r8m~qiv-TQ/_OcrgTPpr'rpsU_
+[qUK<+JJA>**-,#wHJjZ5*HJ)y^nrch?`-;t1T)`u71x3t6]Hgc1.%$>8}DhD't1!ghd"'
+AER9LgTqJ+^ZT}J+b^'{#83Nt7F~qxN[6\&7ir>V`/ IGf Qi"`R`/fO-Y+U)6o:2kkP/f
+*p9|bReP@-?mG?M&-*&FGX/&utRwVYXWS4Z"^Y]JJ5N4<+(\Q{iQh.r,#P[3$/7_\Aa*Sx
+1R'H&UN>3kF|n)9^frOi`UE;=_WzH:qA.n:-/P$>\<hf:4TF.J,:e!:./P$><?M+E50^s0
+02=n0w9"i;JKWLhWX^Ht=(/#F'S4Z"Ps7u^x2kCnm]6hv*-!myn:ehZ7lyN?3k6`SR/wue
+"(A8KECb(#C:`j/]Ry(3Y4-)myn:ehn{R2+:bai}c5A%A~.$7OK^LfTqJ+3O^trch?Q>c^
+69)PAbH):)? ?Q(\Q{#;a=\JD2D't1!ghd"'Z6id>VJYD\aJoJ:0"hjw97#yf6=>'Os*/T
+u/(Ed@QX0HA5>@=~8$=Idvp~s^93F`TuA9i\,@A=D>M&A/:+<)q#eL" $?UGE/mj'"M:,N
+#Ua=o]fle?>5L6RxVYXW@fBi*Rp?g#b`Sx*)?"c<rQ^tG?gb.%$>8}DhlKe'P/Z[a}u-/x
+HJU%nmGTn_Y/<+(\Q{.6"R0kGm^H\KDxs&/TR,pK<GbZd7SjU%VI4CY0'Rb?T6X2V:2>^#
+19T$U%VI4CGns}&LF|r8m~GM$|A&MwSa6R[bX0.$-V:-/P$>-!myn:eh<m=+[rhf:4);t7
+O'[$aZ#d7/)u y(<nD1A<)N~!'];&xXDSwh)!N8N+yjWaMeS5%Tr5?h\Sx5=Ma QVu@fBi
+*Rp?^JH!uDM1G'\elyN?3k6`SR/w]MF5X)--g'oTauamRw:E'"5ggF,m9-8l^L[k=@M+/Q
+?6i!5*nm&F&e&eiR*2N!W,S43a2>u1H#c#I~!b@6sEszN9#)-mJujW^B%>B<U"@x&m-~^b
+BNX2'gM:T6"H6m);o8&LF|r8m~A5&m-~^bAm.$7OK^LfTqJ+3Od:@:it2V/Pi;k_e'Yi5?
+*"BL?rV;-%@:1d`8 I;xBnB2f6E!G`a`0RcHkw5i-(#:UCM`5JA8c,@:Yd2Vrm J!mYz5u
+VIX0[&GY!W^}^|8S,WQ(,so1&,@\ S6l);D-uB8moR$s?D-VA)m=N?3kKlDG`f8Fq92D,1
+p GQh!M29Y`TCIuEVO.b!b$-4J%k-8Eme5hhcdsE(Ordh?T3a5n,fvLa,.=cSQZ"*}a9!'
+MY&j@oYPTI\KDxYPu?2u5T::e`db:v^H^B!Xr:u$F~$NliW|-dJpE4j`5@+<??DfHk+WP&
+f@,s#}p$?*CWuUp$?*."^VU%/Z<) hILn)^WOc0l=nJq9S(#C:HFEq*OgF!L@^Jq>xA>D~
+k5C7&lPukUGhdprQ?1-5h~2F#(:wcrG,NpCpQD5Es!hm@L::k0*D@{]=oV.cAG&&d>2k$%
+!X%XE2skDfiDm6?;7UQ5s&$|:}8NL\p&`'-,=H`2:8BS;CXzJ+Vb5lCRHk+We[rQKMhoUn
+g%b`Sx*)?"c<rQ?1-5h~2F#(:wcrG,NpCpQD5Es!hm@Lo[FZp>E`GYnSk6C7&lPuOe0l=n
+JqKUhoUnJ@O Jp")qh5F/\&ZDOT>L^XVM&A/:+<)q#eL" $?XD5BTi@3u##<ODkhKC;J[<
+a.Ay-oAD,kJyKMRs&Fe'(5VuPHc*JXa;X<#Ppyq8a(4CF}C\6Itvpyeh<meSWO[8<q$$);
+?! q5ct6Q\hn)h^h;-b2dD_+C1j07aSQZ"*}a9!'MYX<#PMvG1h0>]DC"4Up8{&=PZ@XD]
+${M:d?*2N!&[2vBZoOL\/qdKFdpeS>8zM5YVE;_x5YJ~c?</n;/r_eq9g#qW7/U!nmot?*
+t(0kRJu$/xHJU%nmGTn_Y/<+(\Q{.6"R0kJp9SVD=p<(R-r6_f'kNH27:/aJ32(#1= PR9
+BMGb19l<U<qLR_p&<fK mm"aC[iDR[S0UnFZiR3v`lMcGdBG5a>@t-KQRs&Fe'(5Vu4!Y4
+Tp`+6~g9i'!"'QPY]Mc@kBo3fp`7fO-Y+UVK9h'{/w+x9hh,Un+i"Rt/?r`:7O`SL/s~Um
+QOn9'Kgb,Ru6/xM&A/:+<)q#eL" $?O;<YeStq\),ZoL'"M:,N]O4E%kmx.="Rt/]PF5m^
+c2==qOe,G,NpCpQDue^R:J[gDm&0cA`9T4oPp$R9r%Oz3RR3)z(D0  J/ESK+WAF`LpT+Z
+`q9I#3m^O5;Jc?AT5<@]g9LrsWsfk^U<^Y\x+4uVsWm~qin%ioro(;f(fKQ',so1$LA^_a
+iIb`SxkQiXb`SxTVhsmF2D,1[kJA8V3>c"Z>=xDC[8(qJv-[965}L.\A3p(\.\Hk+W:Pk[
+T4[<&)_I/+i4Bgd=a`<j]h?{*l5OljY2r8'x?rH\CQHk+We[rQs%/Tu/(Ed@u\'{45e]rQ
+^tG?gb.%$>8}'+LD(E5H,if=.wY/9&t6?r#ub?T6X2koTc$!(^KCd7\A3p(\u=#<ODkhKC
+;Jc?AT`'g ?UYN%Cu1 ?Dk3ze>I_uFt&<O:8s%$|[>@}?N(YPS=-`.@I,dLdFnbeC:e`.<
+mt0"Pr\xGnKC7I,.DxqP2o^wrDEZ1[NQ8Jn;&I!~9Sc^&IGXXV"ya=ucS'0&fTplkc4~XV
+m$3UbS]#8aJr9SVD=p<(R-tx\Ma0!'ADR9FyJiZ-8ctS7=VIN6DxP4b+t.#Va=ucp$?*t(
+0kRJu$FoTuA9i\,@5I/\&ZDOT>L^FE0&BZ3stam6u1l^:IB*"N")O+K5#p,r8K(A0+tm8K
+04&B6B^RlM&qqPi%:sS:\x+4uVuYsWm~/]Dk8B5EJK3Ou+^[H!uDM1G'\elyN?3k6`SR/w
+]MF5X)sT]PF5X)mmGi^L:.#$o[UbfmeO0gR{JIcBp;E0j`<G#th#>%g@RZODa+gGZ']<9/
+r (;f(4Ye\CZC;SuT<bNhzOLaafpbMQ5B[KBb+Q+H%2$1mOA%m?"17&Be%^}f=$YPbbAK;
+8fDD0;SY\T"bm`?oC:7y%w[Pc`fp*l73A|RWE=$*SH'WF#a0bDBN,d>>LLE*NM A&CuRtr
+ZS0^2O+ ;>ij[l\u<,3SfUPU8S,Wt+$-n/\nR}bML]VO/f71SD<~7_79+gJc6X^^Bv>Wi@
+/cRE=QN?15&BooQgl!Q%7#(91-Nu[$5Z3Kh\Sx%maT\Hcf<DH .R+ofDcoSI?Pd{VX(#ps
+!vRM[{rD0Zl})GYb2V]Xiv F\v[$VO/f71SD<~7_79+gJc6X^^Bv`jdE^xGlB_*m>r,lo1
+eMg)#nEun<O$;AW{i98$%w[Pc`cM9)dX0HG+tlWDg|>5]W5FP h|G{7Gf+81gDuqgcQ>sn
+#6`NtzI^?@,359+<?? 2'b9eq7by\H&98U:+gB7s>X8or Q\hn)h^h;-b2dD@zD8hw=Hbn
+Ii*3N!,!sgm~@nYP>s/}%FkHI_*3N!,!JtfstT6i=F#E(:Ht+W:Pk[T4[<&)t~F~`lm6_x
+5Yv*1UHt+WP&E-d^n=O$;AW{55*"XjI~*]I/p$)z@Fa|^|13*p\}?|c5A%c`m6QMsn;)&:
+@Wg.Pv"B$?0;4 0_Uy+V s7d!YMTn2b67n%w[Pc`RLb}J?O !g9dZIO,1\@MAC<""Bk^Ny
+IM'HBGQG.LPvJfCFmr_x5YJ~0_UyI4maioro(;f(fK?UdGUTD_h_A05]7.7rSQZ"or02if
+X^P|-b6A+?gFc"==(t5Eta'i#Pd2U`/Zo[U_Q',so1_'9Yu\_yZj&)Ug%]/_K4#p,r8K?j
+0Ou+QNuKU_bAK;N<p&]db\i}L 7#DIbi9Wus`DCIuEVO.b!b$-IWVnOGg6bM&*]WALUGeO
+2k0_Uyfqmaioro(;f(fK?UdGUT9T6vK*'HBGtpc=n=%>M[CgJeezA05]7.s.>qA>D~6 V\
+]?AD,kJy@21dum;7RLK{"&4k;GbnneA6#%iv0emm2Qc5A%C@KBhQ6,Ns7C&?$FUn2p^$g)
+ttir^5<$<,tRFb_ c=EtQxX190[c\elyN?3kjD_+Ja6X^^iM@E3uhfM*)wPbbAK;8fDD0;
+SY>FtRm=Jy'HBGtpc=n=%>M[O3\y4E%k8#)8/lm4ez'lYou$H(S[I6LaT6iq*2N!W,e>I_
+-J!G9M]qP!u2M1G' i>j0`70qkMgJo$#-clRhcJQemEt,3$0!!.<k2TPu:(E6BUsp&O~(?
+f(CHBn=_WzLJ+FivU*uKu^N<(?f(4YtKp$WQ"Ns/_obP$0S+0l=n go5_VO2^E3uAc`LFZ
+GuE%hw=HbnIi*3N!,!11X8qg`-g 1UHt+WP&E-d^n=O$;AW{55*";-OYY*gqKjd7K$fstT
+6i=F#E(:S_hUe&>nc\&IGX!ChoK7Pml<U<3vTiBMGb19(xc=9d;Jc?4'\s4E%kmxI8t]'i
+ub$2m;JmO)**myI8?J^jn{'"M:,N#Ua=O=UnQOn9'Kgb,Ru6/xM&A/:+<)q#eL" $?t G"
+3(5gf9m=N?3k^@/xVU/f71SDtvH(6>1zbh&4[U0l=n+Rne5:h\Sx%mK~kj8FnVbe.Fc"3=
+jUtL+zZGJefstT6i=F#E(:>*O6o}IJNk(A0 AZ[]LZ57jHoT]'dR,iVVj)/}AZ[]7%[8(q
+Jv-[965}L.P5b+#=)K1=Gg6>*[O~2s4IS*MmUsM=P5b+& :3t#_`fTNR&~"^6m\~EWb P8
+4jawDDhw=Hbn,,]Q9TSQZ"36Tis: 2ufL+NSslrp_P:w"nLJVQ8bJeezA05]7.s.>qA>D~
+6 V\]?AD,kJy@21dum;7RLK{"&4k;GbnneA6#%iv0eKTd7]v?{*l`Z(?f(X}e>I_-J!G9M
+Dxby`R2YpKUj%]/_]N4E%k8#!|^jR.5,?6i!5*LJVQ2><yNPVc+x9hh,m^ioro(;f(fK N
+h{`q9I#3GxS4iWR2\!B$MvlrtC(CNj!*XV@-Vra*`Q/}oCL\-I!G9M@BL'ctfjhZoVFb&d
+ c,f[<a.AyCEoHbe`R"!&qqDoLHkUp%]"^6m"(<XeSTQu:(E6BUsp&O~(?f([`#6$PtGp1
+\lhUiW-K_>?c"nRzr`ir8m$}p(IJNk(A0 AZ[]!Oh4Hw(/FUGlcG.Fk2Jbm6okj*[YZqOG
+sT4F%k8#BB::m:J%WjC,qi7/)uj;S'fE'rVc9aJK4$V:(|;~YN!@R9v)WQrsMTZl&j0T1)
+ZuSv]^Q#,so1"f[I 9+FbC4CGn3=d{oEBR1qPDSJVtPHH/CQHk+We[rQs%/Tu/(Ed@u\'{
+45e]rQ^tG?gb.%$>8}'+LD(E5H,if=.wY/9&t6?r#ub?T6X2koTc$!(^qin%F0KOV<dE&I
+GXFJ?r6t?NNB0RsXp1L\CuO;,I@tAZ[]7%g5JU[#1\+\!ga@PmfvO6<mOmF[^trcULZTtb
+8moR$s?D-VA)B20M]7oV.cAG` P4b+& t~F~[Rgr/IS*MmEc_zP4b+& `UCIuEVO.b!b$-
+4J%k-8Eme5hh#$JO3OkQqe?{*lK%(j4J%k8#2VmJr97Q-`;}*Z%!gP`*%>4Ws-$|[>@}?N
+(YPSiY/}AZ[]lzFZcqIv-TN8[FCV8KL<M:(-U+(?f(PuKT+qKw6iG)l6+vN'hrAodAlY`:
+7OK~W|h?b`Sx060a.!L<py7L_qNn138c'68K`N\mr$?{*l`Z(?f(4YFpp#tR$-n/C5Zum>
+et]JoJ0WUyVa+x9hh,GxS4Dr<?cYQ{+0PjnmAP.^$JUmJ@O !gm4ez'lGmPEFJ!|9MVGN6
+uYuY`D4W2Lc5A%C@KB8!DD0;SYJrJl]OuHr$G*km(8DNV8S25,((1d_>Dhh'5<+<??Dff!
+GTn_Y/(H#TP+uF_Qd#:)@ZG&nV6@&'j-[Y0Xk.=QN?\`hUWOR9r%?l"nRzY-e>I_-J!G9M
+Dxby`Rs: 2ufL+NSslrp*[r,j-N/]Wo.Uh%]/_]Nn+^tG?<WO?Ltc0Jbjsm,-$[H3RG;V;
+N.E&=lSGEVYs7/iKD:`l`YlyN?3k/ig'Dyd4> \-6zqTu<$1bP TgF0&fTk__S^\a]r`*[
+%!\A[$;-&Rj? N;x-Y+U5F5FpiP8Oe0l=nSzD_h_A05]7.!|A- g>j0`70&eQpU+S0*]&Z
+MN;3&Ru6_V ^`R"!&qqDoL58n"^%&)bhiW*2N!W,OfS!qdn(#uh#JQ4$dx_e6@:+DxP4b+
+f`B^_z&d c,fj$c+JX6X^^ D/ESK+WHua~`R"!&qqDoL58n"^%&)"( PR9EXeCug$2+1:y
+s.c*$/n/1c1GYz;|a@Pmp&:TupJnb9$/n/UGJ5H";h!7IW?wA8"(9USQZ" Crejubc?2)z
+0q@63=3z]]oV.cAG` P4b+& (X<,s~k1CO(j4J%k8#2VmJr97Q-`;}*Z%!-Vbw<To$a m6
+`\CIuEVO.b!b$-dzoEBRZRlxN?3kKlDG`f8Fq9ehU&eO\A3p(\$LliW|-dljU.iT*2N!r'
+_fJ>O Jp")qh5F7T%%r(_f/djPrXN[6\&7!j@^bi:vcrG,NpCpQDueS'6R[bX0.$s\BeL+
+"/u+^[)SU~C,qi7/)uj;S'fE'rVc9aJK4$V:(|AD#*=jSQZ"PsrM*\oI9{N"a*Et,3rFAB
+R>APTiE:R>`Uh>T3a5n,fvLa,.^$@}A2`&[$&HZcNeCY"La7$3#aQJ=j73A|RWpHEsoN:)
+@ZG&nV6@&'j-[Y0Xk.=QN?gK5%fLV!u,L@$mlj?Xi!<j>%5y.0i(dYd4#%;-c?4'+x9hh,
+j{^d$oK4e8Fd_ Mg`dB[Ix\/X}AeFTbecZ50H:Q!U&8wV\'i0q')j`"3o+Q4XiI!tLJufs
+tT6i=F#E(:s/7G(YX7Ne,5sgm~@n<wifp1/Iut2oPb0(ugWQrsMTZl&j0Tp(No13:8'68K
+_m\f"KqP=yDCuB8moR$s?D-VA)Fv+D2l<y+WbC4Cd[3bLdYVhf$H5KQx,Z*~a2mFn>rM0Z
+L]57)gJ/(@Ju[8(qJv-[965}L.dWfGneA6#%JO^ZhsYNP|##I~hT6[Ns8<q9eh\y4E%k8#
+)8/l,3eEIOM&o,&)Bb4g:8Rk&:3E$]@#EIcba<bjuc(LN_!LN'hrm{Ef%:7`l@@|[8<qTF
+IF 5L"e%A1Zmd;>8IkIFEBZ>j<OctA!W[3&x/Jd#b]VZ3W_A\mh>[qk4 2<{A3oF9.Y-oQ
+m($e`kA%X5>~M'o4bN\e^,-MouR+19^vBm*ZIl-,M]9?SiG F\BR[c<%e'o/"P`WOetA!W
+[3&x?Z:)9/Y-j,GuV`@Yc`(4F#>WnfRG;_a_,AEt x%kH3-,M]9?SiG F\BR[c<%e'o/"P
+`WOetA!W[3&x?Z/>J9L TQa=#d7/jV4V(7c`oQ`tB['nE8@/O6n/ 6W|_("00osKkTe&DV
+qwZ6V2;4g3fpbMQ5a<[8AN`3 EYwbFhV?J^j'4Ht_*fR=M?q,qj<t+W|UPGtch)LKAb+:4
+9]WyeE3ySJIWB\"?I~V7*%uqic28>{kM90oYq9eha^Yo^xs8 2uf7,CvA\$+s+_obP$06>
+Ns8<u=n?V`)k;-c?ATDkP4b+;U/t'nYoR!o[FZqo82IVMYhi[YZqOG89B*!RXa&%96Vj&)
+t~F~XDlyN?3kd^n'dVoTU_(7EhHr/}%FkH\OL>L2<1CHHk+WP&N8-sa~:RoH8{0Oh.qW7/
+)u&;;hMgU&hZQxAK.z2QERX[C5fxO6-j,}J/(@&yY1TP2>^#19I9=+f4[G2`PHc*3=qlUr
+%Q_YYFo[?i+xetd=DeT7/Mpq,WGl9 H|?i[Z:x%#U;=B8$Z*AO[8Dyg3,cJJWLP(57jHBg
+V`O((H#TP+=JG\p; Eu7_V;Y*E@{]=oV.cAG&&>(5ynp7&&=nCL\57)gC^Hk+WP&Fd^\Fb
+_ n(beTTU?9T6vsRZ6V2@Y<YiR*2N!W,V`<5tRfvO6].4E%k8#7,XKrnWX(BdG:1j%Y9Sw
+9 cw!e.<mti;k_e'nn>76/a4jd55)gm8D`sL1 C+2P1&.d],_PBiMROetA!W[3&xU0RQ&N
+.&J9tLHo(/Ra[f5x^trch?[qk4 2<{A3NUHgS!.!m^Kp7#DI\ShZhO0/Ac.2_+O"(H#T% 
+iiCxRo9T6vsRZ6V2@Y<YiR*2N!W,V`<5tRfvO6].4E%k8#7,XKrnWX(BdG:1j%Y9Sw9 cw
+!e.<d{!gC:;!eT$n$>pFsYm~o'h.>]-(#:CQT7/Mpq,WGlYPLJVQ2><yNPVc21L5TQf(bG
+"0"-e&Rms>.s;}dt:<\]FSk^3O[xn,.x=zDCR?O&7 G0HL<y1ZL!TQa=#d7/jVK?^iB2Z7
+NF$z 7W|SpC5=coFp|L/k:ptBR2;H{=+f4-YCYV`@YpMs3d;b]VZ3W_AT2R><$^#ol7+a4
+Q+0Il&]/g7.YW@M)8cki!q+WpF:8%%R_1=n!m9e%A1X+Swh)%"Jx_T9d8|, oGmBPE[EQ`
+2y LN!>sn"Vw>!U%2tojA=p*oL0`jJUw1ihUkd")5445>2e7UARE1TNQ>KI2SHFN^%<{/m
+%kfKk\=RSJ>l=bhF>,l WLNe,5E\O-]fT;96"T.u&FGX"uL_KTe8/]jP\z^w./6UH0^%]<
+jt,q,N& bF4C#zZuo9j@ kt8&=YFP=0Miiru'A0c##/$*|rSV]N9G16>*[O~\y4E%k8#_T
+?;Zr;Y[md7D{[ gVc9(6p IJNk(AL\'QPYtDfI7,3XV:PHc*iW*2N!W,Tk/^?6Zrt20`X8
+n &DfF4s.UC*=crY?hs%l1PKQeOc0l=nt;(CNj!*m4%:J/i!Hq6s1zbhECHk+WP&N8-sa~
+:RoH8{0Oh.qW7/)u&;;hMgU&hZQxAK.z2QERX[C5fxO6-j,}J/(@&yY1TP2>^#19I9=+f4
+[G2`PHc*3=qlUr%Q_YYFo[?i+xetd=R3O&7 G0HL7+XKrno0m,@]>:bP!Oo(h.>]pU&H&7
+# l>U<mH9%H|*{;>ijp!]'dR,iVVS25,is3v`lMcGdBG5a.0,76>PM=E')Pml<U<3v+x9h
+h,?p5#?6@ntKa}KCd7I\K4u}Tr)^(\U!-G8g(#pafmfoqW7/)uEbEqW|TUhZQx@~XDrnWX
+(BILOf0l=nY@Swm4%:J/(@)4AZ[]<J1Zd3*UYC0aJ \w$[9-H|7+9lkUqe0}'"Vr5n3P3>
+19^vkfU<Y\D`sL1 C+2P1&.d],_PBiMRjt,q,N& t0N9KQqdMgK H:qA^J3uAc)>JuR?O&
+7 G08<*[p?1CfK7SO?LtH5qgn(v0Kp7#DIF}*{;>ij@A<wjWI[K4u}Tr)^(\U!-G8g(#pa
+fmfoqW7/)uEbEqW|TUhZQx@~XDrnWX(BILOf0l=nY@Swm4%:J/(@)4AZ[]<J1Zd3*UYC0a
+J \w$[9-H|7+9lkUFZD]EoBSrRZ6V2@YEB*ZO~E:uA]2FSk^HjSJQy8 =MJ_4$dx_e6@:+
+`TCIJ: sWqe]dDV6j#oAM+A&PZaZKT:0&T4P4[ukNj)nJuZGblm;2GsEZ6;7(0^}-im^X=
+rnM&=JYn,GeC]OWx!0Y=Sw5!eT+zN/+jLQ[,[&V`W0SwZ&GfJ%WjL9k4MmN8SY]'t-,9q5
+WB0@Ge2/.G,}o2jYk1CO@[2lVV[ SB\kk>6>`B#KlMhSdOU`qdMgrcE<EX\r0=)FfFhZZ!
+Yfu2&,se;`(0^}o-g)UbhZO6@5uo>X^CZs#Z.Nf.-YndYsU!a&ZqpGflcmJWW~[R#&Vg[Z
+$/27j;>Fo:c2'{,";<*^O%bCPv[&?uSSKePM$|eK3y/zh|(\=GRV(<IYB}sYa2+6\'\=2{
+oj[GL2o6G}#9"Q`WHFI53t%Wt9_ ;3&RrknHU3Ken;%(M:rDlIkg3!oj*l\8:PJf"7[8q[
+_jUfl!\7fEK*QFo.u"$PRqMjv4!lv5!lsr)"/M%@v3.E[47u=]A"'Akzoer9.E[47uP`MV
+B9VU<{_o.Mn&#Z_UJy@U@6rG=YJKYw\<YXn"#Zt2L!JYQFo.!N'7W{q<E'JcJrQFo.!NST
+HVr}t7!ltoL!JY@Utm=[BC<{en'6o{#ZtZ9.JYk`@3sX=Ysxk  (6!^j/qRnMj=[sxk %M
+n`]m5A`T[E@7sX=YRSpg'6r~R=u3a+uRa+`LnX[4IkYwUUYX`D)C@AMr=FM)\7fEYX`D)C
+67)oRpMj=[rsYwUU.MqiuSL!Jcf{@3^#@5S8=Z4Y<{eu'6r.R==Y+zYy0PNkE|r}t7R==Y
++zcKau\7fE.MlD'6r.!lju`W0:[6I3Yw55<{i9<kr,!lu4a+`Gcmra f#[g)H]]^5A`Tcm
+raKq9i_FtYu6L!uZa+`G[EJFYx\<YXn"#Zs)!luHWa`Gpz[4IkYwu'EOK/+ ?E'xdR6tYx
+u'EO"fG@>v*`@:=b[7IkYwdDsN#ZtZ9.JYk`Jh@U@6rG=Y4u<{eu<k@2Ol[;b$.ba_i6n=
+<k@2Ol++$wdS6tYxNn<{eu'6Htuta+`LnX[4j,[5dfYw rmy#Zpv!l@C<{en'6@<rWj-i*
+'6lhD+]u5Av*.Mv..Mc;h7EUJcu}<{JS2gLN3_/K%@[89[YwUU.MqiuSL!Jcf{@3sX=Y4u
+<{JS2gLN3_/K%@[8)KYwUU.MqiuSL!Jcf{@3sX=Y4u<{JS2gLN3_/K%@[8$&=\4u<{m=tq
+!luHWahh[4$&=Y"# 8@6rGM9 k,`m(fE:S:.A7oXrz1|JrQFo.!N'7W{q<E'JcJrQFo.!N
+STHVr}t7!ltoL!JY@Utm=[BC<{enYw4F<{i2<k\VYXt5R==Y+zYy0PNkE|r}t7R==Y+zcK
+au\7fE.Mk#'6r.!lju`W0:[6I3@67,[6d.YwUG=Zf3YX`D)C@AMr=FM)\7fEYX`D)C67)o
+RpMj=[rsYwUU.MqiuSL!Jcf{uH,VuRWa`LnXA:D><{r5.E[47u=]A"'Akzoer9.E[47uP`
+MVB9VU<{_o.Mn&#Z_UJy@U@6rG`L8b`K-w[6I3^%Gf`Ug*hsL]fNhwM2T6n6mldWr/?=cG
+<DH W~dZr/?ScG<DH BIS"n)H=*{;>ijSP?LUch?Kp7#DI,#^\N*/iA(S"[^#x]mudRvEx
+Kd Om[_nA1cVA05]7.43_e)yMvu7?O-YND[ktp7r11O%ucT'hwt#Di04_"muY8OXS0g& f
+[nG2UsoiuF@27q11O%ucT'[hqp$/2LS5?Pr&gfa|db0_iq@HGmeV<;(w0+baDdKNi"3X:y
+roJb0)C)"}bnfTK$[%]Bgr/IS*Mmqg[z%p;f-YcyEtT[<v:8aaa&6z3>`W6T:+86"NX{GH
+A&NWcD.<ELT;Br!@R9&YgFJjs]JvoN&km(b10>(z=GRV(<o_*WjstaH;Zu:oQmZ=Ve)_J7
+IKf_-GRH9|@::v:v*D@{d$#%f8d#2{K[JmM*T6PL$|;anqb,&xPS QR9@3s!8Sl48O43_e
+)yMvu7?O-YNDIErgQs*Inqb,&xps@8VE-%,+LBgX^n[]bFAa@GLge8kYZPl{!nZ[J.ir3v
+5a+d&'5O#<07g70`ukKj`* Q]$tf9?4q$NgqX+V0_i<Z<?h]CuYI:Gk0Mi^|&N]b8#Eds&
+KaIc_MoV*W:k\jeA3:e_X2E"rR)}(wj%V])_Hu>Q\jd73LhGou!.h]qLA[tcoW7|ju/{iP
+ib_sV#>\?foZ*WZKC?TMm:3{Tir%Dqk%;!etXI_pr//s2CexCo:LqSsi7{>yRf9|\VCY)8
+_gP.'^j%:a&D1>TORkQe_OrwW)/LRH9|<63Lk2X2E"rR)g4c]sUD,hB\SqUNQe*&-Gd"h9
+[b)`fs]0IR5pC`?foZUbHo\eg`\BnSHlr9gPW):o.ZSzXLFx`.:/j%nn3P>\EQ4S9Re91M
+/B-6)BUc-E>EbAF\8lh7ou!.XMHe[xJAm+fK<"e WUm ^+Ve)_J7IKf_4XTir%DqP4b+t.
+sfu(VN9`;JYzV!v54qeEUTkQpl!vu1ro  XD;(+d;FLb6^EQ1peE?O=nA3[cJS4$3wI~*e
+YY)>JuuBSPa_,:NRb 0^h|6:sR?=4BS Z}d[hYmGIq3A\~Ozk#7|o;kMUbd#-2Fb@ TT@9
+VE-%Ug%]/_uf9g@o&-79A (?DN@b_+jTa pbB!f6E!kE*;)6AZ[]\j5BAc.24 @6ucUS:]
+qL4.>\=]mL@]Q-LCZ+rqAX#}Q,-]%?b]A1"uVK9h'{u=H(t<VM9h'{/wnm&FAW*RnAf+JU
+a;oSf>,s#}S'GF#30kPDr;n05:@]Gi3ATkeP`ev/Fx^W@@Bnhf-XND-I!G9M`Tg*hsL]fN
+hwM2T6(0H#^sLBGb`+ts,9q5WB*)?rP(6zJ[/g&l72_m^d>-DCTA-)mEAX#}Q,-]%?b]A1
+cVYNkj-[:-RAA1nA:)@ZX7G'[da46(qymCJDNo&~\@<,Ddj=2veTh+?>Who2ZIQFojYs[;
+!CM:T6_mh2&?oKoI+yR?miu\[3js>FD/\J?|NM A&CPMqPQ\fZ9VjXA05],C]=(-9l_c?;
+(@Zus=Jm/WG4&EukjD_+Ja6X^^t8JmhdCGth?1Ul%]/_K4#p,r8K3BTkePmrbdH ^ssr]`
+V~S.rbmdioro(;f(fKsr`C8^jMm$uOM1G' i>j0`70d^mFFb3ATkePmrFxAB_+jTu$(IG4
+&EukjD_+Ja6X^^t8JmhdCGth?1Ul%]/_K4#p,r8K3BTkePmrFx^W?;/]RydWmFFb@nDPYP
+PKfe1oJD=fDCG,PIqPQ\<wifp1mGpk/*6+jM7."hjwPNqPQ\Dxn^ ;tE&Y(Ra< QVu(83v
+On,0O-5IcA:)IGr7;Esq&Y(Ra< QVu(8o2ZIQFojYs[;!CM:T6_m2`=/E.b|IC:8sTO$HI
+CFZGj<hT!l'7[?!CM:T6_mh2&?oKoI+yR?7sG'8=SI>\W2;FM3,Nj<>FYd3RG  V"/k5C7
+&lPu`U9/g5nLQ{VGN6@s0GQ"j:>F*ENk0b-a\mC\3a2>FbmFkGWSIt sO-`N*\;fNPHZ :
+Za$ ?$^L;KX719-a\mZ'n#'"@0(?O?,}lDX=!e!@?l?mAy#HVRFOM&YVE;_x5Yv*1Us/Ay
+#HVRV_HF-AKbp&tq3JeRkNTk@?Ay#HVR i\xWx!0t8M\";Yy%4Eh^HTJ@?Ay#HVR ifva7
+EY6vpoi9K+peng[lu0a`.RkU9zK-]OWx!0t8M\";YyetbsE=TPe'Vffj[qUK<+JJA>0p![
+4?-r*bqyK3#p,rnAl;Q@M=*EZ-KS1X=fc @:it?B1"&lPu3I:Gdk?%^Lu1ToO#<+JJpAqh
+9<6@&7)Jqh&k^La]J2Vi;47+2Lh>EX`j?N5a7]@SS$QDtv1R3B@o'9pu,|mFGi>SmD&DfF
+&eF A\'9pu,|tEfaj=..UL9`fUuKAImLv2,n;F%%&3X80=)FfF432>@@IfKCd7j_v2,n;F
+%%&3Qq$ZJ0*mK%dk &J6O~bhlZ'"M:,N]O].J( soM!#fX=a.*a*5t8+DD0;SYJrJlL^j0
+SQ7C458lo'tLYd2VP=7E(AQ{0x!Y>](q^_,.Q(tJ7=VIN6@9TGs@:t"nRziqGz=BX719-a
+\mZ'n#'"@0(?O?a'fH"'H3.'a*N-S!'z>$S$iTPdAQM*u@'|DNsu$-n/-_3v?>cG<DH XV
+K*%s+o@jU0`g3|,G:-+/!g]oudAN4aX7ttb\!Ai!^B`)ts1ygo&xPLH0nQ<jd;43Qk5pUP
+p&U\Gz8nT:6>#OEIu4b}IC:8sTO$"cuEg9TiZ!RAjub(uc`D4WX7q(Il`1s.Qxc9E=TPe'
+Vffj[qUK<+JJA>0p![7"(?jViV]PIR5ps.Qx@~XDJwnVbek#\n%BglSK3Ge_oVWKJj^b C
+/ESKVbNMNMfE'rl9VeV!`_cs!KiWo}*WiR-KtsE$Fc?c$2! o+J}3nP2s4 ]B&h/@KmL-I
+mKqh&ku}@o'9TUj)g' Wu7M,=&`dI7eEbe@:J5Vi;4b6[7e>I_-J!G9Mp$_(Yk<+(\Q{iQ
+h.r,#P[3$/7_@Sn?L._4R.k_7&d[#|Z-d\Di8B[sa_uj#}27u&M1G'QzU&5T"y%w[P:WkN
+U)Q>-&%W sj#u|[qUK<+JJA> `DPj<k/JI(|Cw#L86_3G8YP=H@:J5Vi;4b6[7e>I_-J!G
+9Mp$_(Yk<+(\Q{iQh.r,#P[3$/7_@Sn?L._4R.k_7&d[#|Z-d\Di8B[sa_uj#}27u&M1G'
+QzU&5T"y%w[P:Wb\.%`@"J\x:-i;&*;}Hhn)2Qh>EX`j?N5aO/Q>m(`[<K<?8euVG/Q(=K
+Ynp,JsI0);iq]Pn+g:2@BK8K9almUbj)>V`/ IGf Q[<FeRLM`u23RpY`g3|,G:-+/!g]o
+udAN4aX7ttb\!AtLHr<7j#hxUnHDn"rMJL0 HBupfv(FOj<+(\Q{iQh.r,#P[3$/7_@Sn?
+L._4IR2LERC&upfvO6\y%BJ/(@>y]OVU(|QT7}t/U%&xPLH0`d!wQTr;q8q8I,Vst}G0r3
+('>$`qir_t,)irm,v%ZQOzd\k|K6J5Ec8#0l`<K2ocIAoPTkbAu,`* pv39^+ar")8t@5[
+v*0GNghh%.I!i!v/QdJhTT\R0y72A#*ttckGh.r,#P[3$/K3`UukiA1QX[<+(\Q{h0>]u@
+c|\OC$;!0q D(m*fVm$0L4TQf(bG n.baI@:TGs@:t"nRz!iPi&fp}?.1"U{rs#PRz3uf'
++ bC4CoFTPe'Vffj[qUK<+JJA>0p![7"(?jVX=!e,+?Y?mAy?d&e c,f[<a.AynPRwOzJ+
+Vb5lq@j-efO4=zKZo+_nA1cVA05]7.b}IC:8sTO$cD.lu'WQrs#PRz3uoRb1m;JoM*T6t|
+DkD't1!ghd"'QUU'5TTkT#:E^h2jkPnE00mC5P1T)`u7bI4Cr)_ ZDJe`;H(t<6mkMFZX7
+G'[da4:8f6!VoK3iq|ndE$2ES5?PD86IeGTPe'Vf d]$EWn,ei";(\J2Vi;47+uk2kSx78
+W@AN4aX7ttb\Aae9mF#u<wg4uTiA1QX[<+(\Q{h0dC]4iV@HGmZk#P;$*E@{]=oV.cAG&&
+^H4RI5]NiV@HGmZk#P2{0Oukd>t+9?Ns,m.2LOEK.A_"=O=xep.%`@0^iiQT=rA3GW\`!e
+,+U/@?Ay euAH:qA=A8$DTmLofgj<\;f5EjLib>V`/ IGf Q:Sk03=6m<^ BP|fp'%qPea
+Ut s\x:-i;&*;}Hhn)2Qh>EX`j?N5a.ntsELJ)8RsxuQ+t:G`)V.u|g9WSK/iRdC!zPi&f
+[Hn.PZ4hfRa4b$;GG'8=)qTf5TU\-3 EXDF\][Zcf~@!RGAPRGgzZ'rqeLU{5ncH!QC7Jz
+Nj0b$DE[5_&}#>Zj##JuZGj<hT!l'7[?!CM:T6_mh2&?oKoI+yR?mifMQvE=^w19h|l ?f
++W277t>X)t2lV'V!#`^'Hdm#GiT)9T6v0/luRYu=nK2kM*kj<G=]k\e'iI5KDkbydbBs=f
+*IBbEX5w5l'BEwTn7)A_(1JuZG9;ZTC/6M/Qi0:EM'YV.dKOtFs>^`rDe*pVfuPeQa(@Ju
+'|6SoXdVSxbC(Nc=9dbFsyp1n~jUotct&p6n=Pgf?{*lK%;=% hVkTSx.6'vN!9@\l+XU~
+>02>A<@VPZmx13\`#Ppyq8HoW,FZGb%,3vITMY-N,76>PM=E')Pm]M+4uVuYZ~R E/pG@|
+o[qmCNKNi"3Xf%(@!$n|j@ kt8$#gZ.$a%bAm,pEa%3p!@YF<u8T''fqB/&NQ*aZKTp&M4
+0n?pDdi!3B(7Eh]g?{*l5O>gW't7D_A\'9;f[G7%TA]s\]XE%93v4!J/(@toh/fV]NR/AK
+8$tWdIUp/{ ln|j@ kt8m$qWEu[?\TN},^_<EQZ>4P<g+[oI\&f?]s1Rp1t.C&Pn!w3Z`T
+]V,s[fbFo/(0Y4?;TF.$@di?0IJ !bi;s?,n[fbFo/=%R$U+se93_Y'oA+B9Vs;4g3*Z0_
+&wGBCFmrO5@%V>#P;$<;jvJ0&GR7Zuni[l!ToF%AH|n:&I!~b|rQ2D,10`X8dR,iVVO.-r
+AX(!;%_>;?be0"f:Lr04X8E;E$L++FkH,_V;-%TS[8fO&?5JWM&j72k^U#Kj:`r%G& >^E
+lMlwUbNj# U'Gl$Ali-&#O`dZC`<g =|;]nB`P7=o6Cboe=1p.p'EpW>TS,Z4h>$"3\U1U
+s/!Y<XE3RLs#Ay(mgk=|&8DN9{_/ucSsM40n?pDde]f%!:4P^ElMlwUbNj# rdF]cqiVPd
+i9Bn=uM+cE\H#~Z-QIL.,!k~ 2 MeG.bbCo['}>$,]"'2]&mR?h`2o=//]:3hTf?U<aN5i
+MS[<+V=HaI\H=H h9r'"9;8b/noEg-<FWK;3&RD]aw4CLgKT,XCL.)[,WLLUM(AsRWE=PH
+SJNV3`JMVb[RZF {TX=FNPi"/|\(9;$.pFfleO^CV'SWNF_/QAbNhzs`'x8K:+(#f9"'>"
++'fQO-'PSYipQVbNhz2?>9'~$^qP&RLr,_`$@V0'.toE%+74+C&l72T:q.eh@f*tkB>FI"
+hTf?U<aN5ima'q cfLP/nLf5LUA$[cluc?0J& VUMTS7A#[cLU.x^GdG;2C[9\"AgO[k$ 
+\a+4oPn+@|myo0ZI?;);6oSk,ZSGj[a_.RWM@XB_Wo]h0_0\q>=R-Vl6iUk_&p6f:+e8`N
+&1@ut #E<) hOjRFI\WM&jm(\K213XVaUoNaVc/-#,27kDJvN[R`SO,Z4h>$"3h1dC,eQ(
+Zu$?li-&#O15&Be%VU,_8cn2prB7jW*lKv#~Z-QIL.,!\'.O9":UIr,Y?l#w[`\7fT-YCY
+PHSJNVT!TI=FNPi"/|\(9;$.pFfleO_"M;qO&R!ggiJ+"u!{]WHgWM&jm(\K213XaL9Wus
+[_Bm*R2A;|nNZI?;);JC]:"bt{\TS<'I'skk^j;-bnIWQR=rA3GWQ(F\Ljj0SQuir@2V]M
+JG9;p:qi&kdb#|eXX7#.P==&6*fxmtAB4[YyRQ9LJhe)=nFXRYVEIyj,r'f-W[?EC,9hVl
+Q25'%,ADt`^+-X=&N:u2t}iR)GX7G+UIl!!ToF%AH|s-sv%g=fA\$+>&5yiKSQ7C45nbl;
+q`fa4GMQ0!8bupuQFuTn?U*m0-u|1Us/G?H"oOK'^W1mhhcrUpGk$Ali-&#OR6APu*FZcq
+A.e\5%DbWy0p$+?O> 6MBD?R6McEiU%Y;ft=[i2]=0VjbFA1cV\HJMiE9]Ab8]irN7ZI9}
+j.Qv.Rb8ao_N7/DNOiRF9L+y8`F,kmVD>",])?lj,qA3s&,qO#893)=%uIQS9^ekdZ>",]
+TJRsC#?PI Lb-al&*Z2A;|?w,1'?kPA1cV&?@"[F(#'JGbM`+Y%aNQ+Xe8saBs0CPUE`Z>
+4PoEn:eh@f*tFpO$ AnA8'rAn5aE0Qh|FJA_(5N+fE6i9[0Qh|6:RWj>m>-X\xWx!0Cg=u
+M+iKPdGg0Nr(rb=4/]OhH$B_*R2A;|SSRsC#%C/,925wKB/>o: 6&??{AyRW(<)uQJ=j;d
+H"l6.Yqz?AN6RoO$6\:+JMb^;_g3WDTiGn$Ali-&#OY=t7%k#wDxqP8d-VcyBaDCG1LbS0
+uQA*e\5%DbWyffdC.gJqew7}8d*#`+aQ)G'uQ;=r3u&eQpuK`&#,XuD+-Ep1t.C&\z857U
+&*s)$|:}8NL\4j>$ qC2UoUmHD-AcRlM<G]OI(kJ1mDk"9t<eP0/3_4!Gg`^?;(voO/&Jy
+bTU#J+iE9]W8F\>T0gbhqi:wY=Y:%C\0hfo)^c&6mHO!6\:+r8'x?r#7N$0^^v:E#L86_3
+%a'r[+c9.R+i:3'"EwnQrcAcctGkTkNeO'2V:8sT^c8SZso9kA0&*"ugPmu=4k>$ qC2Uo
+UmHD8,43Qk5p;f5E?Aih@>iWr0uE6h?K` *DZ-"*Q=m(6\1O)="Kgcp:7'6kI{HFfUQv/g
+?6(\DNVH_N7/DN*\%!`SWNJj^bJArLQ@m(6\1O)=D-H-V^jtb(gUcdEV]GR6$4Jum:eC>P
+6%SIA-<32k,3kD*EZ-KS1Xrab39e[aIT\(9;$.P&,|+cb\o/9'pzV]t/p'4!r"%oJcrCqe
+$qqZ]t,s;F%%?l,)CTOD,ZLr8.=0Bv9"[c1Z'H/`=c<3K}&%ebE$ixTUNerzWBTiE:uA]2
+FP?R'6<|`p%O(\DNrl>(9@[+[&Oj<p);A:N@s0,n[fbFo/E-Z><qTFMI4Q>rE{(ZDN> h>
+?l#w[`\7fT-YCYPHSJNV^k\m>d9+]=^eB$-Y+U8e'68KP~X4#P^'R#T%SIh5Et,38Og5Lr
+j.d,<j]hc9(6\,Ks<@);VUYa/STt0x/Rf'q#(CQ{l$U<aN5i+ym:*);XE.jHmDGY7Zf9iM
+.Rb8sApkQ(qg`M4W$]QEC>E\`b!KC:oU7nI2SHqYAL3lF1PHT;-}j:>FI"a/BK[cr;)p6B
+s.mtQN.LPv[k]P4S`L<XeCbV\HLJ+F3tj?5%fLV!LJ+Fv3dVWfDa3}2n&l%j^V[kh2>]^C
+j;!-e?^aZF=p`2K6dTWMK=P=7E(AQ{(`jh*G@.5PovU*pkUl5Z,d-I,8__PehmR3)z(D#s
+#SA: x?#th'I-~j:2]YzT\Gt%FfT$!b-5i0V17Ej%ColA:D>i.5Zd|)k/]%[D@Ghr#8d-V
+l6>:7Z\S-M.tTt.&;~KLl|^|*33Uh4l&*la%Uz8KkAC!lm!h$r>Cq6tik1's@`Nt^,)-MS
+Z<se>8LLaLaP hTNGtq29OHB%FE;Rk&:IY?@1"&lF+Io_6Z!TQE~hQh5#7:5de3m;7i"Op
+bC/5.tJDVw9a12XdLd6Lag2@IfeDWDQF3.C7b7T3Tv>#_G,9)T8aH']5+4\=:SNtB[do9[
+JK4$>">"*sG2a`0RTYW|'^kkd4$|$227fS$!b-5in|SIT2"%/g/ #1HU#`S<Gt>02>A<@V
+pzj-cd(43U |NH15U"&)2A<y`2[FQ\\oMU#~@{` `N\mVPYauY'!/,GH4$^BFN2E,17s&`
+`='kE.X2L\8SZsis3v5a+d&'"L6ml^^%;^c?T?&(3A[Rtp\A<,u50YTC%?Kt#Blj:/#$JQ
+&.:vjLm$@t_&=YA_9";CSU(wuko)?@h>&o..";g1\>tMp1'w?UZodR,iVVHG,1kC$Pli-&
+#OY=NwB["_6mt>[kg*\>'`!tK~g1\>tMp1R"AK`lm6,GFE%-?rQEJ%m,4H=X:E]NpkkBiQ
+]sC j<J>)\;d`3XLsBpkS"pWoqtqHEENR6$[)z=JKseDf@U<aN5ik#]o[\Dg(cj%R99LAO
+A;i?8S*<d=X{8\Z-QYJhuT;a'Ze8SIS8E'@$+O5F5FZSAsRWP(%? i=JKseDf@U<aN5i:R
+e`jN>-usY]j&Hn?w,3J^n_WB:Ge`9WusJN&._'&(EaMCqO&R!gbd3=JuR?-)QL j4j'AAF
+;CFh#2!Q9)@v(6^~\ "b!X7"(?jV\H0S_"2ZeT" $?([9l]iZF"uO&Q(BX;f`i8.Vm$08}
+p< E 2cmf,rD0Zl}v02_)`,3Rs/Z((CXi:uAH(FNl}Dj8BOgOC^dcrQ6\w+42S\.gr:4TF
+pFVI4C,3qu_+Q==r_!WLL]rJG1/>o:jn>FuLWQrs#PRz3uTWePQ{A:i?\>;{*Z%!C,RwX4
+tkLJ>,-8F4Rkh|i6&xp+G,d);3b6q*pMF$ih^U\mBt;f`i8.Vm$08}u9Ir[4$ f+Ed WiW
+g' W/1[$&H(1Y\)Em"iOQn-&fK$)qPPl&v\wE[g9icd#E6[(7|k&Sqosm(,`WLTQJH8WW*
+WJTQJH8mW*`=7td>G O$ Au(,u:3+F];^~_+%]CSV "{k^VRh3NH5Wi.J:#4A>Q1Z_+6\=
+/hTt\$U!3(8}'9A,l#?f+W277td>,efDD)74UvDVjrB!j<X0SaSxAbCY,Pj'mnH(1I3u0A
+S<2tfWM`e4N8o=8BOgRFEXj<^Zr!Ne=m'Ykkf8&*n@>0,b!V?{=EOC78,5k~jel)];G&?y
+^YJiOnRFEX-[.H`Q7=9@\DX}@DW2;FM3,Nug)d,3 !1t0]Z5kj8F:Rth0B>'H%jLLc`U=3
+0cb;o}ct.x0Y3kSuNn'oY|mHWKJj^bePa ?xl1oT]'Jsr_R_Dz%A, 27)~;GG(PC4np=:I
+R?b~CZV`-pCYT#TOU3OHL5EnkQ;GL]]k8Z0Q]u8ZPqrMdv-sP!h|k?a2I~+y1~QToX*DZ-
+QIL.,!#7N$0^^v:E#L86_3%a'r[+c9.R+i:3'"EwnQ?xl1Q6sn!g($EBB&YPi~ixkb8FsR
+X2L\[^#P2{j0Lr)M0cX113.d%CD#=d^b@X:Wmr#?huN-lz(PN+p,7DA3-k8Z-~o>7&FMDF
+A\'9;f[Glz4,egXCFxesdZ>"1"do>d'S#OX<FxQOf(bG]k8Z34-r??oY\@9", 27HEEq*O
+X8F\E.pT&Hh1NHJMf(bG<*e'o/'OBn,r<WbndR3mBs@o,b@!+^i<j.S>bN&xY|V1B*t=uc
+Tuq.K>-{TJ.V;}?'U+l!rD }BfJkZ;j.>F_x.$5yIVMY89Z#`ki`QT8Mm6oE*8rx[a ND#
+9h+aJ/*8Gm[Y=[cqiVPdi9-9&,,.9de4[k$ PU8S^I2J,1,T/e@ P==&W[i{4)(BJu2W2N
+,1,T/e@ P==&W[i{4)0mukd>^C 1cm.taAa&fH"'2]_!-M.t'H/`=c'>(Z.d A=0'Y:JSW
+Gt:r^^h|9&(\)u92d~AyNai">+-8JhCF2WQT.;AGlCq0G|7GO#h)n{Mi^|&N]b8#@Sn?L.
+4)8cuVG/tcWKJj^bNE#x=UA\'9nWr%0`ukd>TQrWX2!QYN5O<,]v9X5_&}je,6lqWKG'[d
+dw-sP!h|k?a2I~XXv5TUv5  u5I~+^&xqdukG/nr+j^K?O,):0#$\ppdABt4s~B(, ]o'>
+NWr[kZ=1p.QPf(bG]k8Z34-r??oY\@9", 27HEEq*OY92s<GV:ZU;c$,ZX;clt_e\@9", 
+27HEEq*O[%#P2{P=0MB"!RXa&%96Vj&)[%#P@I_&=Y7q11O%uc)|+d&'Jt^bXjMUgKT?&(
+e]t"\q`qo[TvC"uAI~+^&xqdukG/Y=qU)Y`&m5^X$<H="<`3%Fh]Lr04]s_N.$KO`M)/Dh
+t=H}O.mAGiPE2J,1fv`2O6PQ`VEW7a+RIXP{SG,VLJ+FTA]s\]Jw9'pzV]3vg42P]Mif8a
+uVG/o[d{bAbAB!cUFIsk/1 I;xH4P{PdJAk%f,&x/_Gli;,PQ+T642^$ew?0'nVI:X@[2l
+VVigPdbbSKfzeO@:HsDt9hA7NWh)Xi]|IR5p;f5EjL8auVG/=I_^)15+\mdEGxX2E"//a*
+N-c1/20GYo,;fUrtO-@vN}$XOzH>\w$[*>@m*1@mJ6CEdE,}?lf)>]&_[U&%c`pD2QERC&
+#L864(-r*bP!/L2D3?KET3P],bhe^J/]6\fKg5ou!.8euVG/*1iv=vih_sV#CAe`4B]W[n
+7N]Wm@o78K[VC?pBTka7EY6vZ#`ki`QTcXJhqi.e8Z-~o>7&fm>]4m/jAtd)0\D_>/-}Xh
+21L5TQf(bG"0BMi:NzL%a*Et,3BV\(bKo[t~`#$~N$0^^vpl7a+RIXP{SGkDDGA\'9;f[G
+,:_>PrSG]o86, QXmx13[/2ErJK8N6#x=UA\'9:Sbe@:,et+._KT\V1.=&dx\>'`!t so0
+On]1n &DfFeDAyi\QTXmjt,qeg*|v3$k@}O)D>6I:<Gj]A+4c$iyPdK+2sI~_RMzXuYbG3
+0U\aSzVl9@6@:+i=<N[=fc-b6Y&7I\K4K/\&\]BoUIS \%B$SI]J/'&~(06CruV]PsI%Up
+9,q98G^+#PHQp';g\ReO;f5EjLm6p,)zU{P|##pm:bPnbeXoDhr1`^C\iW$RrBTkeDAyi\
+QTH]H"oOK'^W?;.lBoJ]8d-V+UGg.Li+dbsE>%mrm(IJPmtDW|Q 3Iits,R]5L$=:1#$Z&
+\N^xU&C},rh{4i>$,]"'8#&N%qA>GWTk&xPLH0+D/e@ P==&Ws#P2{'6'xX7tt)k<wjWj(
+" 6m`Z2I,1N*<)aIk|.$koOG2;SH?PJ{=Ua<fH"'H33='n7D0q')-1$E*eP!-i)l_PZW;c
+*6+P0YEJPM8 KyIV\(9;$.P&Hdl3oHFZp>H!,E;FNtB[do9[!BY1?4);_87/]/l:UeG'[d
+R-193k!sSnct'-[n\7:PiES>8eh`cW2>s4,n[fbFo/-S>(`2J}Bjt{UyNY-*Nh&~RtBo^+
+J. 7>7@8.V2S=/[)#P;$*E@{;[o1prs(Ay;`^H^{M`_pZ#`ki`QT8MU^M`U&Z!RQFQ2E,1
+2>NIL]ccg)1<.z6Ulmfl/Y:0#$N8#x=UA\'9Y"H$P-bh@:$]:1#$N8#x=UA\'9Y"H$:WO>
+`UF\E.K/\&#dEu[DG/a2Oi/gNN9:7GO#h)LyM996`hRF!u&ZBK)|&d/_Gl&9"/8#QG17i/
+A5Gmh3NHkB>Fe>AyNai"shIp)~%qA>GW3fVU/f71p)f`=a^b@Xeb;e5EjL50-r*bpAA. }
+h&SQ7Ct>4PO;`UF\E.`dhh'"WH9i';-~'GQ8Xip E-Z>Vr-b7_L Dlo^ PNs8<u=n?V`)k
+;-Ds8B3smHf} f[nG2UsK j<f>a(SxQRS6.raA\e0R`e7y%w[Pc`WDRGFQB%, G2!y2z!Y
+k(ch)LB(.bN_8F+ym:j<%mNWJs3W7I?&LL=`8I"l<4^dXjMUBfnLGjP6AK_&JiOnRF(SN+
+p,7DA3e/lA hv+#s;!DE,Sd6.5+Eh]Lr:~a[<T*?@mu|r$\xWx!0nr:/#$ ,Sn.VPZXi@`
+Z&RQ%pNWHqJu3W1sNe#&ui/R5m[@R/CkDlOpu2t}t}QzP!jr=;-qP6W3)kI;M!u2ePg:S9
+$bXh2I,1 PO;p!BYW:8e21Jy\ma]r`hyLr:~g!Md Q[8d@8 EI.]&xYLkj8FX3E"DdUpQD
+tvn?:R\w$[DxG~;e5E)ktWqvq8q8SZfXcTk&,6BGDC%*p&ct.x0Y3krT2QERC&#L864(-r
+*bP!o,'zan-G2D3?:T\w$[,`sXfIHemAbdr`l}>Ck#fUoUP}@vf_ECs&KaW1oTW/O4:o/3
+3?WQD=t4.Y6EruV]SVuOX3E"//a*N-XF!e,+[u7NMG7|ps\GfgWMT3hMb[XdiMiV_sV#-r
+*bpAW/4!o2T?]sgHDgiD8)H#rx8NH#)_J7CERU9|uOg9S9$b-]GXsTIS\(i+%@u`7E-qm3
+uBn?t<.YByB=Z,S[BG/B#i!grT-$[H<+^^h|@Y/(T:0]0;sXp1L\OI2;SH?PJ{=Ua<fH"'
+R}?^nGltERQ613IhDt9hA7NWh)l}=LQ5;}hFN-lzFR?<M9Ge"<`3%F[` ND#9h+aC^=u.m
+m$5;,Z; ]L,wNg>02>A<@V*tuAQ(=3jH kt8(_DWIS\(<^_87/>:W9v5VN9`;JDs8BC[P(
+2J,1(DTB&(00X8EW]o[\1tR?ZkW{s#g/r<8d-VND>d9+]=^eB$-YA+/}PQ:z2;]MOL\V1.
+=&dx\>'`!t sVwC,umG/Q5ELG&#-uZXy]^+4pQU+d-=+I"#L864(Ti4kawQq&+V:*)d!FI
+skR4p$jy2qe,ir Uugr$(_DWIS\(:\% U%0/RydWWfDaPJ-r78!Je]7Bim>-usY]J&4G['
+&)`JrJfkBh4!Jeqj-Kk~.$KO<m=+2]>TtMD/m"_%.LYyKK+ 19h|oC\1R`@ ?v)@Yb2VNM
+,0RLtX5K?O(8'ZN>^v8SD/[8(qJv-[965}L.&e8A.bh1a 6$9ec5A%Zwi`?vnSty!i*53U
+VreH55HNV`@Yc`' aq[GL2QH.LPv`<'PQD=j+/k0i=?vKv.3E5i?WLNe,5b5s3[G#w&\a2
+SH`kA%pMs3ulWQrsMTZl&j0T5ML]^bAs%B'sbfHl+WpFD>JL6Y&7fqs^#T4JG+7OT[JKp|
+7+a4Q+.!MMX1Sa@Y"/,[<y+WL%+h-nX7a<[8`UCIuEVO.b!b$-:x+/Zk>"!@!|0a*3N!W,
+V`FOv3dcb[.%`@"JJf*)t,@CYPtCJufstT6i=F#E(:Uq6>?A\%"`#yAC4F%k8#7,m v0S2
+O"<+JJ$uuM42<,?q,q?1`_PXXip `N@CsL2q<FTtXWV`FOEc$2A^_aiI P=I:/DCm"`&Zs
+_c9c>"auVOO6sT(bKw6i[N-pCY>W%l'uZ1i~u$H9,lo1g-!gC:&l72+yuB8moR$s?D-VA)
+Jz#%G0ch*d/gO7qZ7/)u&;Q>v!@?/]:8sT3Xs3pk::I2SHFNv35wV\]?uPK9YVE;_x5Yv*
+1Uk7=QN?CgGU+<QQ8wA\$+>&5yCe0P66>E?q,q[Mv)Kp7#DIF}*{;>ij@AR9-@9.8lY!H$
+P-bh.<u|iZS9$bC3I2SHaI.<H/,VL9k4MmWMNe,5EQj#hx.?,}WXi{4)(BQT[!2sRGI\d.
+&IGX6t[N-pNDHF8,43Qk5p7,XK5Bhw3BV`FOK)[;L_oUrM0Zl}fnS9$bC3I2SHaIEC9\"A
+1Y$E2m<y+WQR[!/@utF[:8k-Y%it3IOn,0O-`TCIuEVO.b!b$-:x+/Zk>"!@!|0a*3N!_4
+T2k;;3b6rDJLlz6c8$h{%>JubP!Ol{@]imt#R7EXEXg]rR#P0(t.n}e]+zN/+j[8(qJv-[
+965}L.&e8A.bh1a 6$9ec5A%Zwi`?vnStyc_MHP([aUhe(rc=D8$8(%#0vo8h.>],WKbl5
+H_4Qm2N?3k`Zn%g?p>kBTUK*rG@wn$=YJsBEe_sP [J@Q|\$"b/&ZvBM(L+\^$uw[+-JPb
+=EoaupGgA">J,lo1n| 6=>?q,qoa90)HIOJXrG@wouJfJI@b[MZr'"a9W`a.tlWDg|;nSQ
+Z"<_9{9K'"Ew"`ZrU_=[9(AZ[]<J1Z/X<)aI8a'68KCQ6I=_uSOn')muY8C5TfTS6YSR/w
+2B ,<wg4>]^C/X?Wd{0x79EqmR02=n.%Rr@nE{D\&\a2SH`kA%B_^qp<Q(I?d.&IGXJ~Bb
+nSA6ceoT]'s9 2h9v#XwL9k4MmWMNe,5XDTBi\S9$bC3I2SHaIhZn|3IsGG*<^rkGc;4(!
+8IJXI01%fQ,_V;-%?9BSGW[`C^9\"AoW5mK7P WMNe,5O;2s>s/}%FkH4U,3&~6X&7mbTV
+M9T6:v:vK)S%(`g;l^jNTc$!(^_glD!iDa//8$eUf,`2O6u2ePr%W*@AK+>QJCWj:8sT3X
+:yi&m6,GqHGt%Fl&)kXfW{a&')2ZojfpbMQ58Ss~MSJh:JOk*&6k$s09b'Vft8sfsfu(Tt
+2zM1T6C+I2SHaI:Rk0^BEV#yf6'hF#[1RiNnV D_.d[$&HE.Z>TP0OGg\eYZZ6E;R>`U9/
+AOS3/_TJT=KsDG&l1loj&d8A.br{Jw^~0P/5&FGXk~ 2cp$r@}`l-$a"i7:1'"VrKD8gQH
+.LPv7so)-v9hh,.?,}mF,X<y+WM&YVmc&DfFp*Q@XiN8#)R7ZuI$i!jSWMN8#)R7Zufai!
+jS*`Dyn^ ;Rc=QN?oSE9</CH9\"A\d_c9c@ddSMHP(N8#)R7Zufa(@1dDsj<nzsw>w2PGk
+NBS|G~nQjSMSJh:J.BUL/f.1+jcepiP8BLI.WM&j72.a$>ZpGkDkn^ ;)zMp%Ff`rD0ZL]
+0aX8qg?{*l`ZI,8F-}M1,NZD>za/BK[cu^uYuyeOlk@,e5t4UYY!0LL25Cs!hmV"A?W((L
+R#$n3vV)$WM!U&dcg@ GP|;Aj$o[K'n)Q*sFK.# NnNBj|AGu|50O~ < ,t/ePG "<`3%F
+chAihh.;mtq`3%G*F`WSPKJ=23X[=tXtTtV#oTf.";g!MdU&dc_PMzC@o1G"G% T ,<,^I
+I,65q8qWgU4U,3&~6X&7:w:v:vLJ+Y%aNQ+X,`<y+WAB)>B-[8<q);,DO-e\;nSQZ"*]Lf
+8U:+J~etXIjG`O2uv5nXapeq[4ugdjU)pk!8N5$qL++X y?#"|dZX&#PfT`lmd'L\#Z1X9
+hm<5*4N!_4E<?PRI=QN?tXf{MLUN@3u:S@3|kB*YAbH):))J<X'a_K7v>X^C*[GA8h:+at
+0^h|B6jWiUk_e'Ii5BcA02=nFMCFXM4H%kmx1X3tA3XkC5?19'Ys7/9K'"Ew[U<g9(AZ[]
+\j[x"%/#*|<]9{r$mL T:RI2SHaI@:,WqHGt%Fl&)kcq9'(\)uOhg{;nSQZ"*]Lf8U:+J~
+X8_c9c^B:.#$nUGi>SjA kt8PO2LrJK89AYs7/h*/6,I@ACtkNE9eCugU1K/t93G\n%tsN
+]p`6 D;G)C9(AZ[]JX&N,"27ufTUrD0Zl}_c[ZM@\1hf:dHq+We[C2GibF;AfK^BR.=QN?
+Rv.$ko?CZro9I[K4u}0MDm9\"A<D1ZhqPI2LrJK89AYs7/h*/6,I@AYJE!oW:v-'!S&e_8
+7/>:W9V`aJTT^x )WBi~I[K4u}7@&;&3>H1_"(gcTA\KY-7s<NJhrVFob^7y7,L_RdM`)z
+fKV:mA@|o[U;qc7/U!fEoSNVVc6t?NNBNMKYN8ci`YC?jj8vEJo\WKNe,5nUMj1nGSi$jS
+0.elMV )tO2\@A\m>l/}%F5RXmV`6?dMbs:R)[9.8lY!)eO<2si~k1CO^HQ:UX7}Oj=tXt
+C5;-F`0NW-SwQueOazi!4Am2N?3kVUhq&w72Mj^|&N&e }&;Q>v)mL!)s1.75DJq3LKEJA
+l~uQ@@,S<y+W8q5DXDYZb}n|K!I"3a ls!Tkfyn%auK/J7TI2V_QsM]p`6XL8gkFQl)}>M
+Gy`N%$I1CFmj/*f#8s=]:n+~t][]5DD39V`bWYqHR&,so1Mi@f;b&R&;Q>QD.LPvWS*ag=
+<luk>X,Wi@=R@A"g!mStbC?ERA\QsWrljd>F^Cdu(R96#O#~>KUF-rbCjP>FYd0l=n*alk
+-$_n,n@1#W[9(q*fVm$0L4P5b+uO*b21>GtRN6ioPd\L\Pv5T2[^0i">iAk*+~3Qtz2r[6
+(zhRH]Lp PFrem#$!g!s^&9Yh,U"rg/%A}&l1l/Rf'DBu9SM=tc_\Ha$i7.ME2Ha0@Sd.$
+7O S>]D+:7';-~p4pf4kEv;2GcsX'!/(rp#-27GlBm_l\e0R`eX:Swh)o`Czue,Vh'"}.N
+9alCj/uGjzt2f{MLi"<k\VYXt5R==Y+zYy0PNkE|r}I,n)90% AG<{enYwMAGa*/+4Bn<{
+r5.Ep)_z`FnXJc"7[8FPHCet<k@:1vZnq<#K)*M^9?!wT3SUheHpW4Sw<)aIO^WL5Z,d+c
+b\o/'U?r#~Z-QIL.>sf\[GAo<{r5.E[47uhh3Vg)H]]^5A`TN8`D)C@An=9alCj/uGue,V
+j<Uc7n@:rGAIv%EOK/VS0SNkE|r}.13ISM`TnXk|oUI@ C%1N+=FM)\7fEYXQ5o.!N4d, 
+?E'xdR6tYx8J_-jynQ<kW1_pYx%|rrP G??d/G%@shC?frYXc7*Z@61vZnq<#KtU9.4+uM
+<q);Z3fXb7[O9Yh,/|CWI.WM&j\wZFm(U3TYM9T6E-Z>j<WKOH2;SHj[]/l:WDqf7/jVu$
+@1WJnSA6ceDi8BNFL<odk-K?Vut/kJN*/\M4?:J8  ["q3D6oZ]'n &DfF?^^j]*0=)FfF
+rD0ZL]:o:5)MB.\C ~.?]=(-9l5I5FIRMY-N,76>f%=zM+cE50)H!/\x%tN?h|qUe{7BEi
+cg=zM+cE505TkB89:wCH+j&H[dluUbWM`lm6UQqc7/U!fEoSNVVc!@,S<y+WNGL<ODmj-$
+p}u$^?/cjP?m&!)dE.4&J !b]oudj02r@-A%-oNDp,=PHYX{'|=eBg[8j<U)RQ98d~AyNa
+i">+-87u.H9hh,c@sr8mQK.LPvg#LrTX2zd<q?#P0(U/v5T2OzmeASe=hM 'r"%o^MbX<j
+Hs/}%FkHW|=8"=`3%F8e'68KtLj^aE<}1G/zXh@BL'ctt8sf\oGnKC7I,.v*P,@%KSp,`S
+2S::(#SDNV+Xtc<x dQ8P,@%KSp,v)tgKHuiQE0&0R&w72s19B",<X/].n9+Jhe)7(nyE`
+(#O$]f1`nT.*P5b+t.9zP(h|t8@?1Z_hoU9AtqtaGIn_PF"(2rnSA6ceLUY|DP21L5lkcR
+R7bZi}D3pY]\;JSJtbAIm_)~e6Z35le]nm3G0^H%)'<|>7DCm"0vB-.b-~ LN!i~C.Nh/-
+#,27>+]hID#jSZbCPv8S,W.%1:QT.;AGB9U")AYb0l=n*alk-$9BYs7/9K'"Ewkm.Nb].%
+`@H0v43JT6Oz2S?6 ?Jqet7|G#0in*oA #I!N#?6A<YP4IS*Mmpng)YfL9k4MmWMNe,5J6
+E?km.NSn'|<D[<a.Ayu7t}iR3v5a+d&'K%c10"5is1kDTDadK:s&+PPvT6jrI'N#Oo^BdG
+;2Hhn)n-42XxY8os7"+W27_PgDR$2sTi +WBR0c5A%u2,|8$DNu7[:Swj~GjA=p*]4R-'{
+lj '.&[$&H:C)MB.2^21L5lkj9/1/xc?c2W|Je_*8akzJQDkk%;!etsD)ye6sd=yKZU%9X
+#}qPC^?-^j_\K1F[ukcmiV@9[4e)9eY/OGRoG\EGZ>c5A%JgPLT3/3[$&H/X<)aILUY|'s
+X7ttjLv/[*mFDL3Aj0Fb!>u14q)`evc(UeZe /mm+`FdN{YVqg?{*l`Z9dZQ$ZJ0*mQK.L
+Pvrb_(LUY|Bn?u;;`e!wQTr;q8CJo^ PNs8<u}*#`+ pj#JqE($2 _iWN%7/DNHjn)+`2t
+l~.|6UlmUbUtpkW7XV\n%tN?h|qU:p;fkQFZ NP|q[,*eR`MiGR?.Rb8r@@6)hI"a~.*P5
+b+t.9zP(h|t8@?1Z_hoUs/*Umm,[WQ*Hlbg)`MtcezT/ #R.=QN?-1$f1'uKWQuV5FN|*$
+SJtbe2/L[":I\w$[&:et?znQb3r-h^d,b07}G#_kaAucXFF?n_r(KEv)`M3QO|9duLmcTT
+mLrnC\E3rq`a3=JuR?7sY_G30U.s&FGX#~>KUF-rbC/5o:i/>9c{-YND7s.H:3S|SL<((Y
+/Jo:jn>FP5b+uO*b21>G?q,q?1X2L\"u=d/h:8sT^cv)eDhyFb^*mF"\t,Id3AUWOz56?6
+ ?JqiX7|G{0io{oA #I!N#?6A<YP4IS*Mmv4] 0=)FfFrD0ZL]:o:5)MB.\C ~.?]=(-9l
+5I5FIRMY-N,76>f%=zM+cE50)HFts_0i$PC[+j&H[dluUbNekSQ9[v$ PUJAK)`NPSUofp
+7U,pA3cV508eKDd7!z7GjD kt8fuuiZV_x*=c#;nSQZ"*]Lf8U:+v*RQQYIc:R!;u17,gZ
+buQ? &.&[$&H:C)MB.2^21L5lkcRjRI2Q?g=ou!.sHHdhwT=]s<=:\j%,'Q.g?s18V:S\w
+$[UIlbAJA(+~3Q\~o2%JGmHFe,:s)'r"I8T"Uh2)K2F[ukcmiV@9[4e)9eY/OGRoG\Z|Q(
+d:&IGXqPJQQ>WMNe,5\s+4-.$f\2It sO-m{`_md+}^T(DFtrkEfsQ?=b0Ryad/^5,eEUT
+dZXiFc=imH"\Ee.L/q]TZr.Xp? Eu787)6t@5[,`<y+Wo0Gz"u=de^_kVVK5#p,rnAl;fu
+i'!"'QPYue4'J !b]oudj0(DG%=iEh`:b*;_&Rj#["%gQ)H,t #EEIu4jI"QrVR9J>M~W@
+-%]o>M1#X8Fx@A<MsECFftTGMLM(AsRWP(eOU`q4ezI2'etS/K["hw4Am2N?3kVUhq&w72
+v5N9X~MDWT`g@91Z_hoVCGeE988lC`myELp=rOU1 T::I2SHFNkm.N_"[4(q*f6untb05,
+9Ve_jyjDFatR/Krp4-3|g42PI9jyT2pSj#aliW_sV#\z_vc*s&sIU%CY)84\ERe4XIp-@u
+A(+~3Q\~o2%Jr(4+eRq`KEJ}G!Tn_^3HmmWV1n5<D3p^"Vt,ePU`m`4XeElKU`m`4XdSoH
+K.F[uk.HOh=)nGA+=g,lo1'}\v4V;fNP>Kh>o|ed:<6\:+2V=/E.fpbnT8dnE=>Wq8flHr
++WpFu\[3forD0Zl}2D,173a9GqEV`jfUu2Edb0Rxad/\5,eEk*dWsdFbs_mF"\t,gB3A\~
+OzD%?6 ?Jq_nOzk#c(IY?6 ?eE7BmI'a<wm:_x5Yv*XwL9k4MmWMNe,5J6E?km.NSn'|<D
+[<a.Ayu7t}iR3v5a+d&'K%c10"5is1kDTDadO~D%M4!<iWN%7/DNHjn)+`2tl~.|6UlmUb
+UtpkW7XV\n%tN?h|qU:p;fkQFZ NP|s9 2ufI<JthFk'en8sEh.*P5b+t.9zP(h|t8@?1Z
+_hoV4XeE988lC`-9!*ucV`nwc8;i /<,?q,qTf2zd<E=DB"4cBCBn}ftQdU)j~T=]sgHG"
+4pXDiV"=N8ovp]rCl4IRIdB&Dkk%;!_Hk)1oP9?cETT#oc:.j%nnH=rn:R\w$[UIlbAJDk
+k%;!et?zc2r-h^3vT6q4%~)~_po2%JGmHFe,:s)'r"I8T"Uh2)kRUqU)msELp=rO@@Ti`U
+FPGz=[.l1:QT.;AGB9U"oGWDqf7/jVu$@1WJnSA6ceDi8BNFL<odk-K?Vut/po^SN*/\M4
+?:J8TT_~Ryq4mFq)dW%:r"XOFcCg)`h+^L ^ucIG)`_pOzs4^L ^TTNed\/DYod>I\K4u}
+;Z"=`3%F8e'68KtLj^aE<}1G/zXh@BL'ctt8sf\oGnKC7I,.v*P,@%KSp,`S2SM4)hh+$2
+"Y\x%tN?h|qUe{7BEicg=zM+cE505TkB89:wCH+j&H[dluUbWM`lm6 |+cm"85Tnn"`FH)
+,MNg[`R5h[mt]35,]dIdG$UGmDrntm]35,k:p^%:OjW^0l=n5<#7Q,T6u}.m,}h]U%"Vt,
+N9X~Md,I`m@91Z4]o\rVTTRQQYoIU&_^^Sg>H;s%n| !9'Ys7/&X"C(Se@:)kesrorjSD}
+[(tC\ni|_|nlnyu2ZV_x\o<3ETI"r/E#[(jyjaoJg:ou!.b7r-h^I1q5_]2/\.2EERX[U9
+]s8/,&XIp-Q.U'CY)8,TIGIXWQ&-_n4k;hg=ou!.b7p[[(rCl4sHh^d,iW_sV#HZk%)'P9
+U9]s7nGqX2E"R2oGp-Q.8Vrns18VP)meIq7%8%p\IALMu2:Wr%_RkQUqTrmsEL$qt,CJe,
+e~T/4/ ]uc_hm`n*e2U2_]1dmm3BJ9T"rE2rkJs)n(3GenFatR2rkJp^ezFoUGmDrntm]3
+5,=]Bg[8<q);`cG+j[7c_A\m*4N!ti5FDB\n_c9c^B:.#$%l[I?QTPprG2/v\(Z|v53BTk
+ZeK:pkeE7BmI'a<wjWI[K4u}Z<k3W[d>4'A5VXI~`S_n5Q)6t@5[0$\((JiDj@ kt8E$^S
+>88#"=`3%F$!Z-RZbyTTK4#p,rnAl;Q@?J"n7/*OnC\liV"=]WI(p':TupjfD:`L`0csWA
+`T@-WkFU\jpKa|sM4Po[M)=&W[E$VuFxj^k9h+n%@|o[@<UCi|eEFeT"or Vbh.<Ba9!q]
+\{0=)FfF0GNgo[dP,iVVkJT*U G\Dxn^ ;`1csAkD=`l!Z]UAAN@-K-K8>QLFnO$ AXkW3
+)k]OIR5ps.pW?UC^Upj!O](%(">$R#]{O,rHeNGxZ5etaze]S>7Ct>s..37~E `6mtABmy
+FeTrJe _ucFx)c]jJi00,"XwMUDxk%f,uK_8hUiWn,]ZALM,M+=&W[E$Vuja3:iP\I4r%,
+3v@o'9nWixXo)e]jsNrb3P(73vdcC\E3uT@@Z&\Nd7W6$ZJ0*mQK.LPvrb_(LUY|`lm6`b
+XzE!oW4\m2N?3kVUhq&w72pU&HBsPY[9Swtm8Ka_.R;muB5R(7to9^+aJ/*8,rC`*eoOWK
+Ne,5%l[I[mu0WQuV5FDBgY# Dtbc&J:w:vs-7~';TQ4H@BL'ctt8sf_RcsWAFZGb(oQTmi
+H,t #E`Dnx^%[~0GNg<P_-XFbiiWN%7/DNsu;pa@Pm<yjnd,9Wus^Bb\K;r;W.t;G*km(8
+DN35*)fcbAu,`* piviXg' WJ,QRcXJhJbqJ#P0(uO^b&6DNV8I(FqDkn^ ;`1csAk5DO;
+4Qo[plT"Uh2.YyAO[8<q);=0nGA+C-1`7DRaL`T6%+\9:P>"LLCVOD,ZLrM*Z@emR$A1Re
+G\8csTO$c`fpbnT8dnE=>Wq8)GD-m" FZ\HlaqDSd{bni=/cSf.$RVRFk_7&RI!u^&ZF3&
+ojX2E"A9D>+x9hh,`=E.E< V^`D)74N@8h&~a9X!#PfT`lpGQ(T*d:=E;}IQCWI.WM&j72
+Q<2yc?dZFb;e5EjLmrkZ<x?cTPprG2=I:/DCCXOD,ZLr8.=0Bv9"[c\eHlaqDSd{Bg-r*b
+pA\N0GNg\s+4Bc'6'xX7tt)k<wjWj(" 6m`ZfX)Zc?!4.<m$Dj8BD\<2^dXjMU157D8}$.
+27Z+-q4!9>HB-r`@0^h|."?B<EauhmKTCVR%'o[+8S^IfXXiFE%-?r\0KsgKN-,ZfP#$8e
+ki*Z/jGjTFs@:t"nRziq*2N!W,-r*bpA'smST#D_h_A05]7.X3E"//a*N-Bpr8N? ~8euV
+G/'nbh:R\w$[,`sXfIR/k_7&bi@:,eQ(oVM?Hg8FNV>K#LO%=HaI\HL?+FOhRF58Tr@:1d
+`8 I;xBnB2SI]J/'&~"^6m>@4Fl$]DmX(P# JuRwX4E"4Lt[DFPV`eCQ-r:R1ZRaM"k(V`
+@Yc`@B\s&x=ItR7sd>OD7%1&Q+pln-ioro(;f(fKCY)89ApzV]0kPDr;C%#L864(/mj<PX
+Xip +yAF=I-l,}c8R`D_h_A05]7.7rSQZ"/2a*N--;+i7_aUAW=IR15,Q%n/m<j<BJR%'o
+ZpL\B["I6mRD@TKBb+p*1V7DRaL`T6+ym:]o[\bE4Cu,&Ca@Pm57omc(bV\H[RJ5>J2>)D
+AZ[]5CcA:)tF,RW+i;&*;}?/'nVItag:D:`Lso8Y<\3YGiMiKO57/-0kiQb4FT3(5g*[Ra
+_\cs4>'69j='2]uk>X^CZs#Z.N@H"g$>27IFZ/,_h`h]7t.H:3VD=p<(R-TXBi+X-nk48S
+D/m"M3#AfTS?(uLM^{\u[$;-&R\5=+Vr(#N$KT2>.)/`55PKRE1TY|Oj]1NtA/:+<)f8-,
+*khT%>M[r6p_mFIq Nuc\zOzowK-YVE;E$L++F@=';cH<DXhP=0MB"!RXa&%96Vj&)`Zn%
+g?[;dWWf!NAGnE5QY4#?Xn3STSEZ#}uR'=9(#}uR'=DS 2GiA~nd&;DN BCqRwb~i@5ZMU
+G2NF$z 7W|(-* 7`aU,"(;_.J.ho_ZNu[$g@.<Ba=:U'n%p^Z34OH5iXcM3uO6B1'}>dq#
+<12k0che=e)MbNKC:-KN?OSjnd&;DN^@\mtf9?"=`3%FC8#H%w+ 5!mgn}^mFbr:\{iV"=
+pZqJ[Y?RX2E"T4Y8nmdVfGgFCY)84\c0buGuT=]soPJV 8,g5Obb@:Hs.pKUuco5rMI+E$
+Y>L9k4MmKE7J&+jd,6LQpn3P1oc#N-,ZfP#$C8#H%w+ O;`US%'{tn.['17D0q')QunlJy
+.pKUuco5rMI+E$0uukd>Q^%EoE\@[$;-&Ro l+$& t:UW@]|IR5p4qjqWz'1m,3{g42PI9
+P*OV<eChf_TTj)_sV#nSr7j(WA%93vnSr7j(WA%9ADDkk%f,rDI+E$;`OYU&rDI+E$;`OY
+0aO/`UF\BaDm 2GiA~nd&;DN;=;(K X8EW<u8T\| ihpQfX190[cLU<Yp.Q(b2Q OergTP
+pr'rpsoIS H\pT@"V;X0/gZ18KTGs@/Y-8ugX3E"rR)g%4YLIsW)\yIR5pC`U<W}'1mB!)
+(@Juk0"`3=B-[8QF\wJKe(X$G#1@9kMwjI>F7J[bX0.$n7Q`%EoE"^6mnp^[Hd/il3dWXi
+a^<j7J[bX0.$n7Q`%EoE"^6mt6sJN*K:`SovgO[;hf.He>_m *6!.Nf.-YndYsU!a&ZqpG
+flcm9&5_&}]8].J( soM!#7u>X3~o:2kkP/fU{Gfc"l@A@[c i%Xb,?Ha/BK[cr;o>&km(
+jY0gsh(?DNa;4Clc!Q'uTT:4aaa&6z_lA1u(tiW}uw6X:+R9/Z@\bgA1$BqP:VEJT;Br!@
+R9Of0l=n\ST3a5n,fvLa,.=cSQZ"*}a9!'MYgK#$/kU%U?Ep(ZDNiCS2srFIGvPIFEBmu,
+*bU'qnJm4h^nU&G&p#QOZu03E.k%u;"|#~f).w^'"bKBb+Oi2vBZoOAq<,,3.R`AcIf8&*
+n@^P\mrdh?cm_L8 [+c9.RfxO6n{OaL2,!8cVEtk\HBm_l\e0R`e-/#$=EVPuITInEpxs(
+Ay;`OY:+\9BSGW\@/h`AVGN6@st #EWJcnkQfqhf?l, =UA\'9CLO>n{Z"`ki`QTh}p/fl
+QKf(bGDrZFk2K?^}KC,`sXfIFc7SKr],,sq<ASM*T6hLG2Rso2&k,G9d[amHIAop7"+W27
+?0Z(f=b`Sxi{O,^(d\rcNPq^pGSNt~$/27Fc7+KBu4>66/a4uO+CWxuu3B8n"bGb[Rgr/I
+kb15h|t8'~# h&[IG/::s0s.^#fi*)`r }<,^I&)?WT$VQ&HZ<TP'|DN?1fUTY?l, =UA\
+'9nWbelZ^c&6mHO!6\:+r8'x?r?s, =Ua<fHc G2sWIS\(-obw:R#L864(Vta$i`QT8MIR
+o[IAbCciQSoXZ(f=7U,pA3"uY4TP'|DN/!SYpH?k, =UA\'9nWbeAO,rh{4i>$,]"'8#_g
+8 [+LBV[OjnEpxs(Ay;`OYU&&xPLH07SKr],,sP{s%i!rciKN%7/DN@bR9Q`LCBs]XTAnE
+pxs(Ay;`Mgj[\t7a&=6IW2.W\V,Ph|nr3XIk)~%qEB7SKr],,sP{Cuo[WKJj^b/r& Yu0m
+Ng\pbiZ(f=7U,pA3"um8t E  2GitQD/Rwmi$:KDix5B,BUA2%L]WKETZ>QMsn_%"bF#$u
+X_$ jKA=p*@E[]lzX$#PfT=iLLEGZ>`<;t1T)`u7GN h#zD+Hk+WP&Fd3ATk/Zo[$pkT@n
+"LI~stW|Rm,so1\@a*SxgH#$/k[k=[k9Y%St$ouf3fKOM(?R`:7O`SL/s~Um+i"Rt/j}'q
+E8tG7=VIN6 t[JADBnI~EXg]#}@-Vr^G`=Lt4?I~mh!Q'uGMVo=p<(R-QuX1'g"/MWEi`w
+.<H/ h#z3fMY0R6{9pVD=p<(R-QuX1'g"/MWEi`ws}=#>7DCej;8#4=.:8);6oAfAf%FBP
+a%0I9]T_n@prH{=+f4[G.\quPl;{OgRF1@ZB;2Q]0\b;tb`E9%#we}Tc)^(\jV)X@RpzXW
+FxE.lj;e!a*53U#_4M.UC*=c07v!WDTi2mCnM*T6[72m'-('NQ;h;(p%&RZ8r$0}ZuSvgH
+#$/kGCh>EX`j?N5aoNOmbKbaA1!T+1N"h<-Xcy^}APq;0_h|r&mLu\ZR?RljcR)I,3_/Gg
+.`$>:P]M7wdkMRGo3=ml!Q'u:Rm:Z5f=b`Sxi{O,^(uM@2L2RxVYXWVta$i`'HpAR~6R[b
+X0.$s\BeL+"/<2I"#LRz_!6R[bX0.$s\BeL+"/t7O'/x/y& Yu@]n?JXfstT6i=F#E(:S_
+hUe&>nc\&IGX!ChoK7PmBR:K[gDm&0BLK~1\X[&)?WAAXDqgh5C.lK9{p)7U?$Jf0)6)dW
+fG<;fUk\ozNnH09OVD=p<(R-AeR9S&K?-{dZG,NpCpQDM=qOg)gRG2sW3}+cU/T3a5n,fv
+La,.=cio6kk~1'c5A%!^$e(^3sV:Vo=p<(R-QuX1'g"/MWEi`wi!ZCTP'|`:7OFYJE#T^5
+qpBMm]6hv*$xkTkyR~0&fTplkc4~XV"ya=uc]qb\i}`4fO-Y+U`uoR(@Y4_[!e9M?P(#C:
+HFEq*Ot7O'/x/y& Yu@]n?JXfstT6i=F#E(:S_hUe&>nc\&IGX!ChoK7PmBR:K[gDm&0BL
+K~1\X[&)?WAAXDqgq^0><Z/]p#VP5nn;/r_e)q`ra^WplyN?3k\Rh6r,#P[3$/Jr`=Y*`X
+;3Q],l&jgX#}27@9E\.:0.&lGBTPDi9\"AgOG2sWIS\(-oP=[lDzBmP=0MB"!Rn7:)@ZG&
+nV6@&'.q9hh,%N@\ S6lnp!Q'ue]ru\GfgWMT3`_c?Po\WJUPL3nmHu\o_R~srorTUK(PI
++JByu,*bG^dZu$i*/hqPiP@C$kkTKY<m=+2]g=Lr6z3XjVtLD/m"_%.LYyKK+ 19h|oC\1
+R`@ ?v)@Yb2VAN4aX7ttb\_?\mh>[qUK<+JJA>?__nQN<^FvG6,UIfu2G(sT4M.UC*&l1l
+/Rf'Q;T=#K`i[O/j-VM3QS".0oayg+:<n/[+a<[8AN4aX7ttb\_?>\a_.R!k4k>$,]"'2]
+%'R_#oe?55HN>->"$V&ib75ZB:U"uM>CSD@BBs+m Ao5`V.V;}.n9w,8BfO5@% H*"uq2L
+h>EX`j?N`l[&jaWL0GNga+E$A&K5eJ55HNi?M*=&8da2e?D$HNAf2;?KaJ]e\n&x@0(?DN
+R,Zk.2l&Eq"1%$Jx)6o:2kkP/fkQ=RJMQRXmTV[v$ di55HNi?M*=&8da2e?D$HNAf2;F2
+VxXakoWR5MD@-r`@H0^%]<Z'n#'"@0(?hXEPM,=&#W5Kkr*1$>h`;eJJA>[c<%^dXjMUa4
+$3974N;fNPT!h)p|\H#~Z-QIL.)>M^9?!wB_IYsYEsDC=xep.%`@0^Zz-$1<SY:R2w8/<S
+`2e\5%n/A3.%BSGW15PH?`au.c(1^{r~I+rJWy1A13O%r ok[F5nQG\pR/nSRMK?^};3g3
+OC,ZfPBc2"_B\n"b!X7"(?jVbnAuWzeE9e[a`#ag E?yAyRW(<jVOaL2,!E\@Bm%O)ky*W
+4-^6^~[qUK<+JJA>/Oe]3V,]BN0|?Pt=b0o[jL3O(#1=j:U62VC!?!QHfVdY,XM*0NM*@i
+:r^^h|9&(\)uA:D>lNlYg3!\Gimj?oC:79#O\@\EL<2yJfCFDC=xep.%`@0^Zzk"8f;Chm
+8oi"_TQGpr'rNQT!fX7,3X$@A_tdbY.NSIcf<DH JMVRKDjYp1DsD't1!ghd"'rnL&!`@U
+-,AFqhq+K>-{TJ.V;}.n"00oH@tdit>V`/ IGf Q_nWMB"<0rs#P[3$/27d1=E')F#AG\&
+No4RG3 s[n[$\U,Ph|CWLC@;b}IC:8sTO$HIh%p#;ME&=d^b@X=:RZammoH!,E[fGk8ca4
+$3uSCzue,Vh'<W67)oRpMj=[<}e'.MBz<{m=tq!luHWa\Ctb(}`Tcmra f#[g)H]]^5A`T
+N8JKp|<kr,1|JrQFo.YF++$wdS6tYxRr5,<{euYwdDsN#ZtZ9.Jcf{a<[8j<OcrgTPpr'r
+psD>QH&DGNtTHnaq*Z$s8A:++6\'o0&0^dWLJ?O Jp")qh*#uq2Lh>EX`j?N`l[&96]Ggb
+oPm($eJM3O+/27LycoZ 8cnFQG?5-5h~2F#(BQRon9'Kgb,RJkok[Ff?uTg1>:;]nBSe6N
+9!HB21Yw\0Bd6l(!8IJb9fhz7,oAJr"7[8q[_j[4#)0rq.oer9#Z+Aqs#Zt2X-\8+4AX(!
+HRn)#Z/MpK@5S8=ZB'^QOJ=[f3YX`DTND#*|g+EFJcJr@U+NJpk`@3d1T9FHRYVE]mJYk`
+\7?|<{i9<k,v*'uq8Sit>V`/ IGf Q_n.xB!:5`}:8ki'7bT.wkjal4C,3bFZ@Z>O,1\43
+^$ewF_TuA9i\,@>:VD=p<(R-tx\Ma0agTQJ+VR;4`2:-1.:-M%4@D`\RcMStH)tdit>V`/
+ IGf Q_nAs6H84hm.%`@0^h|."?B<Eaukd"),[#0N$0^^vPei.RBB6U"(`e1UU^wkd$B*(
+uq>X^CIR\(9;$.E;Vt5xM$j"0x!Yk(ch)LKq#p,r3&oja_.RWM@X7tVRQJ6#FM]grJ4ND+
+#%Q2LaD)=:4F@x-re]9e[aIT\(9;$.P&h4X%1&RL&~*D>KUF-rbCjP>Fa`.RWM@XJg)k^_
+ZC!zSZbCfL9XpzV].)*3fBSQ7CX8dR,iVVj<-I20/Rf'X80Bbe0"5i'U?rN!@.?{_obP$0
+@xEo8=+ym:9XlZ`%a_i`QTXm-KmKqh&k9A"T\c,sq<kGS9$bC3qZMMc9.RU'KIM`jG>F-F
+Ohsj#}QPrME_th@"P==&`\XEeyaz:R:UU^OR)zj#hx]NR/E/pGc7(@@0sE0W(8V6ZUXdsj
+#}D#9hlBirnWuhDBo[[R8Ss~b^?v=UA\'9ujH#t>4Po[p$rFf_i!_PMzC@:Um6oEI7O;sT
+Hm&eMp%FjdM7-KmKqh&k9A"T\c,sq<kGS9$bC3qZMMc9.RU'KIM`\yR/nl`Obh$"Y4.ja*
+N-JXA)Gm1ykb15h|t8VM_NrJDf.)a~qicU0\D_>/-}]MR/@~XD!e,+U/9`GqH"YC[lK'$P
+TwJ+b^'{V+^K..du\>'`!t sivnWbe9'pzV]I$WOf_i!irCLO>@A::ej,iVVj<%=>CF+Bo
+j}/-#,8}$@dG;2SS)>5^f}s4,n[fbFo/E-Z>j&%$L+l9ozct<F*E@{d$#%;-q@'|h&SQbN
+v)mrFxEV`jfU=Ze_u;QI;-7+uUv*JUQ6Fbr:\{5B-r*bP!(%enmrK-2sI~p; EZ<J&j<BJ
+8KL<M:\u,5W{B2e(o/=%3LWN_#0GNg-r=c'>RD'{a{'{LrB[QHpr'rNQT!fX7,3XSo^%]h
+0B2}<XeS)0V6k~KmqxH(B_MN\uD\bXa-0Doj;eJJA>[c&O7D#ObRWrOjRFpc&5ZjauNjL2
+,!^q32(#1=tD9?dWfG<;q@'|h&SQ7C>H?qe}az:R#L86AUQ8CY)8_gh`s^IS\(-o8ekzmt
+AB?foKIn4i>$R#WMq(r%0`]s?coKIn4i>$R#WMq(W*0aFo8lr%'}IH@!P==&W[nStyrNi!
+,E>02>A<@VV lJ/zYu0mNg\p_cUeM`U&&xPLH0[YC?m_qY'}IH@!P==&W[nStyrNSKoc@<
+?qe}G "<`3%F'|IH@!P==&!%:Rmrm 0v72)K1=i5193k!s0X#OBn`38cKvV[$/pF)G.W@'
+QH`mF]Sxh)9jJgok[F5nTQR7LCuf]PJM6Y&7_hh`s^IS\(-o8ekzX?bii!WHiV"=/yrp`"
+*DZ-9!fqs^I"i!'xIH@!P==&W[nSty4PO;/L'xIH@!P==&W[nStyC?9e)cfs_[b_?v=UA\
+'9CLI2564[Gm[YJ}I256el)2t@5[?soKIn4i>$$53sTiQ@snN/i"Rsg3B]\(bKo[B<Awb?
+Zr5MD@-r`@0^h|NB+a!glDm6j&_-oCQGpr'rNQT!fX7,3XSW,PsXfIp-7j\VrJm7j&Z"(3
+?Pk~ G;x2^=.W{=]#_\5Otj.+zm:,(/e@ P==&gcF[p>/*)6t@5[$xL+l9ozctAkX^hBm6
+Tp@K }*_oI9{j>)wpmP8WMJj3W+J(Yl'ar@WsfIS\(i+8auVG/tc@tu\_y$tqprQ]\VU%9
+3v_,8~0OK1(%<23Ls:I,VsQzZuu8nKRck_7&5<0T3vFB( &RD#9h+a.)a*N-ES1p$0Sk2V
+e>u%n:fld>v/ D96dkC8=cFMZp)-[+NjL2,!+r/e@ P==&:~s~=#>7c >(DC1&'-XZJ.*E
+JMn{Y8C5?1^BT=&(+y_$Dn9\"A<D1Zhq\XtZ`E5ALb-al&:)eVK%s-5m0-KG\jiVMH,O,F
+9 8l(@JuR?X4@]n?L.TIBi+X[\#q]nAr%F#1N$0^^v'Dl/A:D>TrNC!E=&Z\TI2VE4Tx\K
+8cki,\+cb\o/S)Q6@4@cVf3%D]EoBSZ2!\@^\S"bm`?@h>)R6lSDVXBMDjEoBSJr-*Oh)?
+'p@`D^0JLfoU+[LrB[!X7"(?jV-q/h?M#$UGAv 7)jfT"CI~e&W|?z,lo1BJB_@}\6-5h~
+G[#(.=K:CS/P!ta<X!#PfT=i#L[3$/27d1=E')F#E{D\#y;+Ok]1a'fH"'s>Be+X[\Cq/\
+c{-YNDUsNnhP0nU9&xPLH0_ks#/TR,pK<G7OX8Q_"'%XEb(#%!u~PHX?=C+|1R'HZkA^Ai
+::ej;8#4=.eC#}@-Vr^G`=Ltj5t#16Fn+DK%?9Otf*=a^bPFPq?<#ub?T6X2koTc$!(^:R
+mreC9+g5GuDjEoBS91&@%qA>GWQ(:0#'#7N$o}6YVz%9;~YN!@ah4C<c.T\V,Ph|NR;8W{
+n>Q#X1'gM:X[$ 0)jP4J%k-8:-/P$>>%&ZDOT>L^i;k_e'7W*[O~rcF]u#F~9C5_&}mH3U
+bS]#8a*bt[DF(.c=9dfU.J,:,|+c]7$3o`55jH$5+5DTfM5%A?oIUbNj# (FGWi8k/0GQv
+dt50'@&!o3m<QM(C#5;t/('#q9eh?<#ub?T6X2koTc$!(^Iw\/X}Ae=uEdZ>TpBZtwc|:.
+/P$>sgm~9'pzV]Q,LCo`qeh5C.lK9{p)7U?$Jf0)6)dWfGgF.J,:,|+c]7$3o`QMn9'Kgb
+,Ri*m6`<;tE.e_X&#PfT=i>G.p?A[G2`]O,51R'HZkA^AirFAB<fK BbPHX?BLI.WM&j72
+)zb,%Y1.i;k_e'!1I~stW|Rm,so1\@a*Sx-.G2NpCpQD1!'"Vr`yq9eh[l=[:H\HuVA}X2
+'g"/QKf(bG^L:J[gDm&0f@?fI5m^F0KOa'fHJ?My"NqPP,;'KL4 M>qOg)EPm,oYpxKCI^
+-&`?-}L`jvd"h}*{.)a*N-8&%#\"d7(_^R%a5RJO^Z]04E%k8#n;&I!~kEkc9c2u[RUh%]
+/_K4#p,r8K3B?6SKnmot?*t(0kRJu$/xHJU%nmGTn_Y/<+(\Q{.6"R0kGm3=E\<RTF\RCV
+K~1\= RdNn'oY|OjDx8Z9y7GD8(G(JJ/kEO^Y*gqv5eE ?1Ac?</)zb,%Y1.i;k_e'NNHg
+O=`UFxT6p}-42E^#19l<U<.)a*N-c1#}@-Vr^G`=LtAlR9Q`LCBseC9+g5GuDjEoBS91&@
+%qA>GWQ(:0#'#7N$o}6YVz:nts0e<btI*it, #M;Hg.<6lSDVX7bT:?!(\q9ehU&56)gZ}
+Z6AOov?*t(0kRJO~,4q5r=;hGm[ 0&fTplkc4~DxZFk2K?^}KCZ&rdh?/}kfgbSQ7CTS4!
++ct.],dR2w$=27uf7TKr],.q)k<,JCWj$]@#?s, =Ua<fHY*gqGFcs$=?9M{Us4j>$,]"'
+8#X3!Q&e&efUk\ozNnc+iW_s@M18Fn+DK%s-AyRW(<)u'|# h&[IG/XDiV"==#U,.$+/fP
+=~DCR?b~9xAq=_eH%@_bhy5Z@qi.,m2Z@RPm#/N$0^^v,mnS#>VF[xdo@ #jEu)g@RN@e8
+0~'"VrE~KQho/,_e*`.UC*=cSjCTV:oC!g/}5a S^}\mFPGzIqa.=+%Vfqg3*rhTX%I6La
+T67_'sbBQ!rDj/^cPb?xF6GhTr)^(\DNSUSL!g$r>Cq6tiWD<qTF6lO+^JH!m<F0@dGk:{
+=i=xep.%`@0^BbW}@y]qA8?'e[?).p?A[GsA8S!l+#+B'?kP,,DxZFk2K?^}KC^EH!m<F0
+KO`UOergTPpr'rPSa'fH"'H3.'a*N-S!'z>$hYbAK;8fDD0;SYI1mFAS*RnAf+u H(F~AB
+h/*utK/zh|qU(;f(;@@6l}-$[H<+^^h|@Y,+.dt#/zh|l0Cb=xep.%`@0^SSoc]'dR,iVV
+IhP!@ P==&tH,n[fbFo/&d# f`&xPLH0K)QR"wU%eO@Sn?5/6|J_nF,}+cb\o/s!=dT:?!
+(\4t#ca=kYpsTc)^(\)u 8Ehs}ciFS3(5gPmp0hjeY';a>sT&@%qA>GWR9]p,5gH#$/kDt
+mwfV`#B("Ncfm6TpfyO6n{iUk_e'o?"`o5v,qp0> ".<mtR.AK<(l3GhpG@OE;v5pU+kkK
+FZeSCLO>n{3O3>19^vs>07]hv5v54q+Rr"XON+  ``WD4IS*Mmpn3XIk)~%qX5#1N$0^^v
+32&QMvW,[DG/*Wl/8auVG/u\#}27*c)zWC@-Vr^G`=LtAlXDr$9&#we}Tc)^(\jV)X@Rpz
+YXDh8Z9y7GD8(G(Jot0a"7tI[Bqpr}0kLd5QTA&.&N%qifM47_IRelazP(2VMZ4:9kMwjI
+t<v5FxEf`^?;  j<UmFP$wOn17qdpI7d8jq2)<u~TkePmrkM;a-s<,]v?{*l`Z2VeC N3U
+#_lE7+KBe$\OL>L24)9d/>'H/`=c'>,^[V\nG_,1/+aAl a(Sx\=+t[K2]2E<yNP+XPGF 
+hQcp9_)JKwZI_#=a^b@X=:'OZq!Q)?.Wmt8n"bGbJ4WjV``kJYZ6V2@YJgPl;{v&0+BAl~
+O5;JfUk\ozNnc+(|Cw'"0B<;gFfoS9$bC3725g@Sn?5/6|8~4/(7;~]RWx!0nr3XIk)~%q
+i&dbSb;;t8JyJl2D,=,|+c]7$3O@s%*8,rrG>*&ZDOT>L^2p )_ JX4$q5q8Pw:.#'#7N$
+o}6YVz_sn!@|fruH[<d7^W'|DN/!SYE=.XmtFa#2n>?~'"0Br'R_$ZJ0*m/y& Yu0mNg\p
+biJ")c+JU~Vta$i`QT8MIRFMGb%,ADIdVta$i`QT8MIRelaze] ?Ehd:3L`w9I#3tE/zh|
+JnGkQ!'Q9lc/.<mtTP2V#u=d0aSGe\i@5ZRJK?-{TJ.V;}?'au.c(1^{r~I+rJWy1A]hoa
+*lauPe:?G0sT4M.UC*=c\S"bs&:,21,n9d[a9t;F:.2=$>P&7sd>3L-,E|'76YHyL2V`^b
+ttc?d=Sth)c@#$!g5T<;gFV_9e!F8b]\M4T3K%[%#P@I0+BAX^rqNPq^A((/m6O)KY3\<;
+gF@9JqJlpB).TP*DZ-JrDw=d3W:y7TKr],.q)krEFZeS8o+y"QZ}EX#yEu-r??oYfLb,%Y
+nEo?&0^dSaM*0NM*ktLx`pbZ7 &(babUh\\:`IaGNr,uTJ.W\fdMSyh)j;>F3Lk2pTlLJ#
+Wjbl6JR2EYA\[3u>rYX2!QuK@2L2@:VE-%,+LB<M_m'oe])G8A($ir>V`/ IGf Q_n>$0c
+b;c1G2sWIS\(-op]E-pG@|XD!e,+[u0.A8KrQXLCo`FZeSmDoYpx^J3uAc`lm6,G.% I;x
+hTh.r,#P[3$/'?bT:/#$N_^,kw15h|)=.W=< rWqZrZ'n#'"@0(?\l!e,+*$fUk\ozct4>
+hf-XcyN-@]R6/z!{AWM*T6Nr,uQgb~IHbCsy[^O2\0Ay3u)?P9rqNPq^A((/irN%7/DN@b
+u\#}27*c)zWC@-Vr^G`=LtAlu\#}27*c)zWChf)FNaO.bC[a,O!{n*eL$n$>pF$k09sXA`
+!T[Kc._g8 [+LBV[Y\>zBgsL'R9\<D"hjw<bGm[ [qUK<+JJA>]=.q?A[GgUG2sW3}+cU/
+&xPLH07+KBu4>66/a4uO+CWxuutMpUlLZcP(i)ib>V`/ IGf Qo(RX`O0\LdB*f6E!B,=I
+D"D't1!ghd"'EY"Tf-&xPLH07SKr],,sP{s%i!rc"d`K*&4@'@&!3w)4o:2kkP/f*pB-sL
+'R9\<D"hjw<bGm[ [qUK<+JJA>]=,s[fbFo/C+#L864(`_cs!KtLpUlLZcP(i)ib>V`/ I
+Gf QtMD/TA-)WoZ'n#'"@0(?=MJ_4$dx_e6@:+`TCIJ: sWqe]dDV6j#oAM+A&PZaZKT:0
+&TrNIw\/X}AetL.aG=uA]2(RRMi`>V`/ IGf Q*EZ-QIL.,!,`sXfIFc--fUk\ozct_I?O
+h=Q>/YOh%Q_Y!~0X/{\(9;$.E;*./)'`, G2G_rJK8DjE;jg>FG #2n>QP-h@"P==&tH9<
+6@:+Dxn^ ;pU oHoP!@ P==&0lPDr;XZJp*Dt/3RK:n!2VIu_PQn[f5x)?.Wk2N"],,s;F
+PM-rbC;Ac{G2sWIS\(P2J+Vb5l`_?;sSuh3BTk +r(!@4P^ElMlwUbNj#  RR9r!R_%oD#
+9hVlL6u?2uOn,0O-DxZFk2K?^}KC?v?jAyU::;Vta$i`QT8MFo3(k]Q@bM!R&el1ozctAk
+Z&Qpls$Pm`oYpxDpZFk2K?^}KCZ&\Nhf/YOh%Q_Y!~0X>*hsZWSwh)du9I1QeT" $?E 9M
+P(fR=> rI#(6')q.fl/YLOEKuhr@iq*2N!W,ta*{;>ijuF!3HoP!@ P==&W[i{4)(73vM_
+Z6g(Nj# Z8Z'n#'"@0(?O?`UF\E.L0m]/|NN.O IGfVGX0(Q96VjZ].~/5=cbS8TV\]?uP
+flp:/*E2sk/1a*N-9g6+#X%w[Pebs}kA6>`BiQh.r,#P[3$/oG]r&14>8cuVG/XDqgQ>sn
+_%&x@0(?DNR,Zk.2l&cML.=rUAqf,y1UIX:{=i#L[3$/27d1=E')F#>->"$Vr=@|>rS|8P
+BJB_=uM+7YiC0poja_.RWM@X7tVRQJ6#F}CFk0I[K4u}b,i`QT3(ti,]V;-%2|O(!OD#9h
++aR7ZufakEbq/]'F$-?9M{Usp&,SsXfIuFnP`YqJd1WMPbEfTrMI0!]ol{@]!%.<s:R_%o
+D#9hVlL6u?2uOn,0O-DxZFk2K?^}KC?vtc9^lB8auVG/^E)SU~b,i`QTcXY!bhsM`|?h, 
+=UA\'9CL'5&-:vYkQ)Jj79Yu0mNgO;<mOm`UqgQ>b=h\6Bqy'}bBN>+aLrQ)2@.~l&ac>B
+[M,ZVw9493`j?N-YCY7a&=nCsC8Ss~j@ kt8+bh&SQbNjS.}#,27aR?h, =UA\'9Y"H$eb
+be/]'F,5n4DS9p'9A,u|ir<:K}&%i&:v:wN5J+iE9]\]5B-r*bP!V/k5<{k5DX.7(IuK@2
+6\Hg#9 siv9(pzV]14gotZ`EM9qO&R!g]WR1k_7&BIYIWFugnPv/I"TT-4@wO+p,?2)z0q
+X8FxBa'0[,c9.R1{goKjuH&,sefk[qUK<+JJA>?__nZw_ccs4>TW7SKr],,sP{m_F0a%,K
+Ne#&-Kb,i`QTH]0N1Gc{G2sWIS\(-oZg7ytvFO3(k]VeIq4i>$O@Z7!e,+[u:xPn2%T [f
+a$]0].J( soM!#[m`*<mh6>],eQ(67]p 7M2M*=&8da2e?[k$ PU3X95`jfUj;>FG #2n>
+Nm=UA\'9ujQI;-&R:wd`m<-XaQ?h, =UA\'9udL9k4Mm:<Vta$i`QTcXI7eE7Zm6oEI7o[
+f>,s#}'{X7tt)kt/3RK:n!2VIu_PQn[f5xkQqe`-;tl1ozct<F;(K mmQ(b2Q OergTPpr
+'rpsYs`Acs4>TW7SKr],,sP{m_F0a%,KNe#&-Kb,i`QTH]A[BnQanEpxs(Ay;`?9OtsWm 
+F0a%76sdIS\((Jo2m,34al^R3u46)4o:2kkP/f*pY\Z6Gf\o]<tJ/zh|6:ODdADoZFk2K?
+^}KC:8kiGgo$_nA1"u)6o:2kkP/f*pJu<iGm[ [qUK<+JJA>t4Hn!18euVG/TkO(!OD#9h
+lBBghf-XND-I!G9MOCYVE;8J+yLOEKh7-XND7s>XJCWjn4W&!it.tC_VO2^E3u!Cu#'|DN
+5G3u8PhMG2O0olQ(b2Q OergTPpr'rpsYs'|[}QX/zM't'/zh|JnGkQ!ZdnE(*o2m<eC(z
+MAb6uyu>'|DN5G3u8P`;b*;_&RABt[,9q5WBAN4aX7ttb\_?D"!~`ED++j&H[dluua#}27
+*c)zWC@-A%-oNDU%)JM@A+93`jfUdetL^I\K"6EbXl3S:yS22}NfVG4LH:qA=A8$`p`Q6T
+:+86"NX{0\b;O=olQ(b2Q OergTPpr'rpsYs'|[}8)SIA-lc_nA1u(hy7X>(0|)zAD[8`<
+;tr5;R tu2u</Z@\bgA1\z4E%kH3#u0~NQ3`Bo%XqI?v[cu^oW+k`Uk9<T@<-YNDU&2oPb
+0(]O].J( soM!#IGrgQsUT@9E\.:0.&lGBJpM*T6PL$|;aoNOmbKbaA1h{`y#u=d0aSGD+
+Hk+WpF^J--VIX0>1]4:-08o2m<eC(z`TVgn05Q@=%#U;Nj# 2thf-XcyN-@]DhlK9{p)7U
+?$AEt[,9q5WBAN4aX7ttb\_?D"M*o_ib^5<$_-;J'hm\_nA1u(hy7Xs-/TR,pK<G7Obh@:
+^I2V6(qy'}bB,\Lge8 N$f#BRz_!\e0Rb'Pe/T'HZk?7L';~#+9rtv7/@oWDQ(qg?{*l`Z
+q36[Lk]\gi=|&8DNrT)k`!*DZ-9!]bH30NAW*RnAf+ms@2)2de/gt.GvK)*8mmc|(5+jtc
+=A8$$4Y1TP\KNbS+J+JLNi$Nr\kZt`,9q5WBAN4aX7ttb\_?>\Ue1AfUk\ozctWA^R)Spy
+cjlAKsNMq36[Lk]\egbetLHoeM0JZgP(eeb|IC:8sTO$cD=#>7oNCIDC<iGm[ [qUK<+JJ
+A>]=.q?A[G<*^u'lA}&l720/*3q-ilFk;e5EjL&7 }r0Be"G"/s>MPS7tvEl.XE\\rHlaq
+DSOF<fiv=AnZ[+HkeM0JZgP(:Z=xep.%`@0^(HJum:eC(z9-#we}Tc)^(\jV)X@RpzQpb~
+GMd}LPEK>-2]cEM',AEt33$Wf6E~a"5ZAfDJH)/>jn/UU#tAVDb*8SCrk0^B$5Su_v-M.t
+'H/`=c'>bT\U1.=&N:=:=/ roM6X:+1$RL7?_F\mEW_x5Yv*_+q)ilV{,BEtPHS u^K)c^
+&IGX,`sXfI(Ec=I-\]!e,+U/!LN'hrO=o,@3e*o4bfFT:S\w$[,`sXfIR/k_7&GnezRARx
+&[_"A<Dkk%f,&xPLH0n:&I!~QKtvn?/]o[U_.M/\-8Gm0b``m6`<;tBairu[3SA3i\'H5j
+*QPMno'"/_GlsY]D,wNg[`/Zc{-YcygF_+q)ilFkv4f{\8A/-9of=YFo3l[l/Jr(WbB;b?
+:R"()yr5]D,wNg[`v)i=0^c?dZu1Yx^RU!i!/Xt/f{\8A/H4oZ=YFo3l[lOB@AmyQ(b2Q 
+OergTPpr'rpsYsipFk;e5E)ko2m<`<;t1T)`u7u<ipM2i((VX8!e,+[uk>6>`BiQh.r,#P
+[3$/oG,A&y57,SsXfIm*ioROh3W@g42PRbk_7&!8[9V0<{JS2gLN3_/K%@[8Y{Sw<{euYw
+dDsN#ZtZ9.BC-9i@[)\8+Y)6AZ[]\j!e,+*$Jz"7[8q[_j*{g+EFJcJrk`hZ`GpzJc@Utm
+=[BC<{a*O;<mOm`Uqgd1ZrRNn9'Kgb,R$EliW|J!4Ga9gFl~$e[z1.DkZFk2K?^}KCuAI~
+1$.dm<3UbS]#8a6^Hgn_JoM*T6t|rY?v[cu^oW+k/\&ZDOT>L^r8'x?r0wLt[{74t7O'/x
+lb_nA1u(hy7X?9-5h~2F#(n;/r_e$2^vD[pbS>8zM5sp/zh|JnGkQ!'mNH27:/6?t7O'[$
+(Kl@_!NiLp[keO@:^I*&Z&e`E$8B<D6jYy]<9/\J[&`b%O(\DNrl>(9@[+[&Oj<pTF.JLu
+^^\m=301E-Em#H Xn7,kUzNYif>V`/ IGf Ql{N?^vsr`CHn>JV{N9V?fc';>;&8DNqK?A
+N6Fc7PVI-%t7O'[$14SYZr0mNg-r=c gso&Y(Ra< QqpszcB";(\[+t'lM5@2@e%IiZ7Z'
+j#( h(>],Wt+\MC$Qwpd#u0~NQ+XQ(#Y6&6d.^`j89JrW~[R#&Vg[Z$/27TeUn;.i"OpsT
+5Gv/eLU{KDU$%>@#FE V"/$ o/'6L,MI==K?PS]M].J( soM!#e#Tsd4$|$2S+d#5T2@e%
+Iie"(7tS\MC$kQ +Ju 5lo!GVm)IL\cAsrcxt'&Y(Ra< Qqpsz?V\J?|i{4)FE V"/oK%=
+@#FE V"/$ o/'6L,MI==K?PS]MIRF!Jp6DAF2ykQu`JnA oKeLU{KD OuA uP\%`NjEg&&
+2Lc5A%ebf"Xao[c#IiUnplO6uDiA1QpsK0`UK5FGKn;F$d6>7r11O%uce$Tsd4$|$2S+d#
+5T2@e%Iie"(7tS\MC$kQBmANjw`&[;=[01E-Em#H XXa2>^#19e!Tsd4$|$2S+d#5T2@e%
+Iie"(7tS\MC$kQBmANjw`&[;=[01E-Em#H XC,i$EYK4.M[dSn3RR3)z(D0 QpK*D`SssT
+Sm0OrpBef)`le\b|_YIv@A[8@Bj:k[&p!1;-_87/7+Krqx-41%LB!$mKq`PO$W19@ qxbe
+JaD`SssT>8=x]p0!Yy<{$$);?! q5ciK7USo3RR3)z(D0 QpK*D`SssTSm0OrpBef)`l 7
+uk JcI"o7E2s##EbEqW|TUUn;.i"OpsT5Gv/eLU{KDU$%>@#FE V"/$ o/'6L,MI==K?PS
+]M./Ald)%Wn;uaLhblEs`lu,u^FE V"/oKJVskPJ$W19@ =]DC 5lo!GVm)IL\@>K$fstT
+6i=F#E(:Jv0~<)N~agJcfstT6i=F#E(:Ht+W:Pk[T4[<Q4uHWQrsMTZl&j0T1)ZuSv]^Q#
+,so1"f[I 9+F>7uz8moR$s?D-VA)B20M]7oV.cAG` P4b+Q+uHWQrsMTZl&j0T5ML]^bAs
+%B'sbfHl+WpF`LCIuEVO.b!b$-tb&(nC^NQSOHuDY6`\CIuEVO.b!b$-VLXlMU'@dwIupm
+JcfstT6i=F#E(:s/7G(YX7Ne,5`GCIuEVO.b!b$-/]6}X7Ne,5::m:n,<@GmAQ` :vv4\M
+C$kQBmb h`Tc5b S3r)4q|qGK0`U=38{;Juk>X^CVGh\Vej#@1B&Q(uk![ #
diff --git a/packages/X/OneLoop.m b/packages/X/OneLoop.m
new file mode 100644
index 0000000000000000000000000000000000000000..0eb93c36f07233bfa2183cd2cc06d9f9339fa582
--- /dev/null
+++ b/packages/X/OneLoop.m
@@ -0,0 +1,5252 @@
+(*!1N!*)mcm
+j<hTJue'P+lKh]7t>X#r/N&oL8lkQ{ Q0=Z2]<9/\J[&`b%O(\DNrl>(9@[+[&Oj<pTF\8
+#qN^oJ/|M'mYSx*!7V);D-r_R_K%!yC&7Rn?.-`XCIiyou?*."jaXoN~11<28oQ_EpE<NM
+EKJQpaRaTYM9T6_!PbOhG[3~?WI@2\E.dV/I..[)O(+9H{m^c0Q  L$.9\\L?Hqw#:b}IC
+O&Q(E;21L5)Hv$:)@ZqTt<DC"4cBPoupT3a5qPE,v+-$p}u$=~K*fsuu*bk8@?1d x[nG2
+2$v38m.q(X7Rs*tADC"4@KGm:KbxJarRhg$H`vo[?A2mrpW2v+-$[HBB'sifqHk@?rK*fs
+#cbnfTJ?@#4srRhg$H[9Gn0M=ZirNR_I> oN@61d`XVtVfuXnXV%h*@?1dp(Mx>wv38mj-
+M+1iPDSJo-[:(q@<o^@zVH_NrJv :)keIH6G$un;/r_ev0Q\=cbx5%A?Ys`_CIiy0gPDSJ
+o-[:(qS_#P#(`&`:Oc]z`_CIiy\suFv,-$ErWRv4WQE&D't1\=#(@;uLWQE&D't1\=#(5Z
+L#u921L5`;SC.$,@,dg+^}he$H5KQx,Z*~a2&h?pQHX%;hK*fstT6i=F#E(:6"n?.cB[`:
+Oc]z`_CIuEVO.b!b$-V,r:RL1=i;;/@RYu9Vi$tcDC"4Up8{&=PZ@XD]-W09h&Wuo\MDqO
+g)u@i~:)@ZG&nV6@&'DGDl/PblSAln#yRz6X&7t=DC"4Up8{&=PZkcV5"ukRu$s$v38moR
+$s?D-VA)JzPL\RA/hT^}@9VE-%t6Jm/WtGp?qi&kjrt2 _iWN%7/DNHjXSUzut#}27f7sr
+]`g_G&RYVEqQe{f%!:\x%tN?h|qU:p5`oNJpM*T6n6u$(ItGp?qi&kjrt23ReTkNJ>M~W@
+-%]o>Mt4[8;2&Ru65FUOu>H/t #EEIu4TsmtI"TT0&0R&w72s1#lJr=:uLWQrs#PRz3uoR
+b1m;JoM*T6t|,SN'?)cG<DH r>#v<wEZ1g90KBJX4$V:hf-XNDQA7#hmMf<eujTU7v&(7V
+Q;Xirjo9InFT3(5gA ,3;>GhpT+kJumj_nA1"u)6o:%>/BcLui2WGlLeqsUbNj# Z8O,9a
+bFPvJA3mVI_NbP#/2$tc/W@\bgA1e#^}APq;0_h|]qFU:;6\:+QXG6A@`po[EUcb)NbN;3
+UA-JM'JA]a"M`Tr ?v[cLUOergMiRk&j??&'rX^M[d,wSGtc=A8$Br@-A%-oNDp,h;$=li
+.c9?Z*j#FM"C0[&lBuhf)FNaO.bC_eQnEp(ZDNSmW3(#!DAGIp83ky.NM3qs5A/`p,^A3p
+u5i~:)@ZG&nV6@&'.q9hh,%N@\ S6lNPHg'urX"aJrs0Q\hn)h^h;-b2dD_+C1j07aSQZ"
+*}a9!'MY&jqP/ki0hsCx&|qP=yDCs0Q\hn.%??oYp|.}-nG1^F^{T3Tvv+A5n&Gio$r97Q
+-`?Vt;9<NV)khfnBuA'.4wXD#PHQ83g5Z%Gf[6(qk7K?-{1GumoW?ihf-XNDK#Q;Xi7OO?
+Ltc05=[R<gBaFoG<n/"^6mnp_nA1"uch<DU%SB<f*gt,,9q5WB(LN_[&?un&=A+|r3Gj0x
+')8$%#\"hf:4$$);?! q5ct6Q\hn.%??oY[G%Q_Y^K@.+c!g/('#FTp#dBlA hJus0Q\hn
+.%??oY[G%Q_Y^K@.+c!g/('#+3Iu+h7_aUW-pAFQmFGiRVdX(9^]?Oh=^K!Xr:cRG3&E^S
+H!fUs;@e::Rws>.s;}dt:<uV6IskY3>z@[2lVVTi2mny_nA1"uLQ0!<btIEl3="AOH@.<.
+t-5;h\Sx#KOH@.FxOP?63Asep1ueJ^4$IU'sa4WN'{Kl8ctS?rcG<DH 'ntjolU_B^_z+s
+Y\Tpqfo\.v8!u!FZ^trch?`MCIJ: sWqe]dDd?^e0_c?e&;]&Rs &X`=Rv.$ko55/PcAe&
+ZehuCxH%U H}rM%d]9(k?50'#<U6Pop0:<pxljBR-ncyBaTQa=-.HLFE\D&vm(\K6t^  +
+Cq%*jk)X/)bFsyZ5Q`2yu=6gM h|(l`=Y}]<M_ZzfCm=JDgPLBV[0[_"P/PQrs.ysWMP#i
+[d1ZJD:CpxljBR-ncyBaTQa=J+:rN~FEQY`Uqgk[%>kT6$v+#sf,uAt}6?hXC1F^`=Y}RQ
+!H5DC1PfT6EaJ` h#zJ4Wj:8n/A3L3n;&IM*T6dVfGgFk[%>kTKYu2VN6ODN$FU6Pop0hj
+aj@:HsM[3]$Hjk)X/)bFsyZ5Pop0iK+Atl6gM h|Jnreq^MMd7M$ZzfCm=JDgPLBV[0[_"
+P/PQrs.ysWMP#i[d1ZHLMZ.tpGFQljBR-nND!Go~M=hM9VtLrP@IS@&0_A32>2NVq^>5-,
+Et4,HLFE\D&vm(\K6t^ P[KIlkBR-nY/.{ A[n=[/MHL6t^ ;&5RL(1RJuJl%W]9(k?50'
+o0m<6QsCMP#i[du^o5,3_/gg>5k5K?-{1GME0n?p[c^G%a5R"ou3!Q'ue])X/)bFfLk[%>
+kTKY1nuATi`U=O%ct0#$/kE9uAG\BuS@?e(vYoXRTSD+1iFd^2?Obw-i@:2]01E-Em#H X
+C,s0[:(qk7K?-{1G5MLb-aVPH$JgN[h6UtT3a5:8n/A3L3PMZrmI_nA1N!5Ti~DB"42mUz
+NY$A$:Su/FpG=hW{SSTYeG:)@ZX7G'[da4]oPB@.s_6gM h|kOE9v5iA1QpslaO6uDiA1Q
+psg<h.E!$ o/B1[8<qTFIF 5M:T6_m2`=/E.TPf(bGL:U%G.'R0~NQ+XQ(h>cmGt<y=]Kl
+6\:+?v)@Yb2VB;mj)"3YbTh\iCW&#.7');D-R?B^?vK0+ '7C'&lGB<ye[k]hSH3CFm"/U
+&l'"c~0\D_>/-};#I-96Si3F)4oM?P9`Q(h>cmu"!Z>]>GNZ1.bC\8:P>"h>X%nC.cAG` 
+KQi"3XT-#6bnfTJ?bUh\*lF2YtSC.$,@,d*~Oh<pTF.J,:fR$!b-[O[}1i-I??oYQGOC,Z
+Lr[9,7#dDJnEM+A&*tG2NFL]ccGd*]`fN< LeG,_V;N6\O@vCH+qeFkqjL[R9a;|W} bcd
+b;j"nSRMbR6o/&$>CFEpauHCCF\Ql"*AGbWOE;!zSZbCfLlkl=!Y.<p?N^Mvqg5BLb-al&
+:)eVK%!k0+mLRY&v3X[7fOtMCrU'<4]v=|;]nB`P7=o6Y8Gpk-T^`*c@Pb79t{.#>8:y@U
+q8q~qe5BLb-al&:)eVK%c]&tTCR9tc,]7;$uDCG1uk9,k-_I9&W*jgA3i/Fos}Hn(/!PdQ
+f+IHhTg(RA:0Xl.ffXW/0h=vBg)>JuZG0^h|h|BKi:NzL%5~+[oI\&9r,I'@"/-8>fW'mP
+6h5I7(6XHgn_iN[IG/a2f`U+Jov5*AGbrJWb&S.3Nl1]Fd^2SO[RJ5FhrfPyZ=BQ\j]4.&
+hFSG]v3)BurqLn)k=[Js''8~?=M{dZnOFc>F)`8*mHC3?\ZrI'4GF`Oco7:7m+)1[$l{2C
+js%W_l8ofu6?rf-+8e83:.VXh]fm<N2l2CMvk!+/_|>Gs%\m#)s$nTPE,`\ql{,EP48n-+
+tN\dtRI1s%6?rf-+8u#*pYfs\n7&,G_cQ/WM rfr(Cc=9dfUc9.RWM@XC@e`F^HlQ0(&u>
+,5]oA@LL\jBo9+dc@:Yd2Vrm J!mYz5uVIX0[&GY!W^}^|8S,W[rolO&[$\QdCti'I-~;#
+I-96Si8SD/m"u[_y$t>]t[>#h>A.+/FNCFp%`LUi:E'mYo6 2k"'$|u~Ts ,2H@6]Wd#p'
+i#q@q8%l^vt4n-!%rbh?cmly8%7!?N2;7JsZ%p sD]oE`LNr[$\U1.olAx:{=iau\u_abP
+$0h`g)1<<).v+t#pG5]u]0lmfle_.lpG=hW{5un?.cB[GM>sa/BK[cr;nMM+A& *.<tcB$
+#|:w:v42W1i;)w$>L fH=He7]M857Ud(&REn,]_DgDZvc`7C)x<:0r!zSZbC_e,)V'r:RL
+1==c+[oI\&c\kw5iH#`6:!X+Oh'S#QDx^]XT9yl KmXVcZL!Um+i':Gde}`YqJd1WMPb`a
+O-ocqe5BMCP!Fdq?$/27Gl-9Vm@Y!^#pG5?7M{`LokH'7GO#h)7h0'%q sC^9hA7NWh)7h
+0'%q s`c2\uk>X^CZs#Z.N@H"g$>27IFZ/,_h`h]7t.H$]%nGdi.iUjN>F.Y%nGdi.iUfJ
+s;mJWK/{W~pGJm^bZe!@=IG\p; Eu7@{my7&&=nC7'dyr<VP9agHTsDNrTV]N9G16>jMof
+*bZk.2+E/0>'GmPL=E')PmT$^|u$n?(@<,G #2n>QPsnr<'A,_P|`p_aA1ZmoZ:4nGV`)k
+/!l&0L4*9d/>e^';-b0Yh|SgCT/--nG19rSL"l)=.WBa3m?3 br=NP+X$N]O;?iR@>1v$x
+A&@Jb P(t<q\-K(6t/fI7,3X37WJ2_goflQP5L/ *|OPk9sv%gn7'nYo5$`'i2<N0r$0Y1
+TP\KQEm(F0@d+1H|.ie^9xE5[,q(Sh.$bZNe@Y1.,7[?/wh|FJCFmr$7Su:1Rw`p9;S-\v
+-[Lc'GM*T6:BbP!OP)*&4@]|ly%WVn;2&Rrk1;TfOe&B=_'{DN^@T2,9hhm6Qmb~i@\ua*
+`%dno/>0+/7GVE-%(Z3Y0L\u<,3SoKFRQQ3CK7g$*lkg;_I-96!w>]WR8S3>hGN4^d:id-
+U'eO8olZ!0G+?%EmTrNCh`^*5Y-p_a,ZA<M3T6+ym:TPMl0;=-eSTQR77s"hjw97.d.O.R
+4V6A&pF#>W7N0'%qaToQ`tX1LeE(Z>TpQ`LCuf({FZ"k[gJ.:#MX9K@H?p[clu%=/B8AjM
+`WCm)qb,`tMi)zJc0)G2]\TAcvN%S[+X/PWM]mT#2-bh.<mt-(Oh\KG2a`0Rdi9e21WyeE
+e+)Mm[ P9O sn\jlCH7;h\Avp{]2uF7ud>t-2H@6^H!E=s`2X,6k,e[?/wh|FJiCm<JDNo
+&~-Q_a,Z$?G410Gm.Xmt,GqHS@SK' I!Lb-al&]/N|@.+cLrhmKT:-#6j1#:7!?N2;REDX
+.789NVi!?l#wk~ 2 M/Qrp`"8N@H?p[c#lA1Vn(#N$@iAfCYkqIYmr?;+[oI\&/(aA^c@o
+SDcE\HK6Fv h#z-~U!2oRL88^B\mFxZX&3G4UTeO^W2V:8Rk&:L\N"j[7S0GojiCETZ>Tp
+dW+0bRrDR7epWzXoo8FV"kfR-XND/+JD]Xhum6TpdSqf`!A_;f''N"^|DVgMn=O$fLn=AB
+` u=i9L^L EWDf(ciDL+EW')/C5l*[p?bds1G N4d]&cI}-`lj?XF^?[pb`W_n5Qc8X~Y8
+15^MKzEWbD4C#zWRtK_WJK^ZSfjA5|2kl=U<M(c(B=XVH{JCQs&UJO^ZFQ?[H ez/[utPi
+SE5Qc8[;sv%g\A,5bZ&xs1FoG~\@_asa#,m&TVM9T6s17(+[oI\&(A6"n?.cB[\@<,Dd>9
+UT: m`0v2}f+uKqmK~fL#st5?r=Al-I8dur<l&mtml2j>c9+"*tT;`@6=+\.R>Fy=+3Lc"
+`RkJN4^dix$EFe;ep&M=@otK:.R46ANnnSCn3m?3 br=NP+XT{=ZjX[R9aKlfH=He77gE\
+VQ12<2\.MZdj.<mt>zi$CRth* q+oTU_[q;z,e[?QIWuZ@d'+07GVE-%g9JchM$!b-*~%m
+Gdi.C/th* 0JAD..mtBn]|ly%WVn;2&Rrk1;TfOe&B=_'{DN^@T2,9KrfH=He7IE-Zq3'k
+ZvV)r:RL1=?vNQ!I3=c"s}=#>7c @:o::)@ZG&nV6@&'.q%mGdi.iU;?c?_2p GQPHRy_~
+&3G4?~9'r|Gi%:%nGdi.iUfJs;.+>'uktNQ\hn)h^h;-b2#c7!?N2;2E&oqP/k18GdsrfI
++h7_aUAW<wq.ehJoTC(l`=TkR$M*o,;^I-96Si8nfZIf;en$g6s>5F)kh(tSQ\hn)h^h;-
+b2#c7!?N2;2E&oqP/k18GdsrfIg$Lr[?YVsam~`R:1OQk9:Ed-a_r`-n_a,Z9t,GnH4r-r
+A\oIqOV]o2ZIQFojYs[;!CL"e%A1Zmd;>8IkIFEBZ>j<&v?pQHX%9Vi$ETZ>RGN"^|DVou
+iTJbW sN<.\.)`?rPG&%/lul[<gr/IS*Mmpn[k5H?A<E6j<^.ToI+[!gJt.<ND*dZk.2+E
+OP@.lb7&&=nCL\WM(TqLV]N9G16>I65286AU`lm6_x5YJ~E..joIdn[M6>Nn6T:+/foEB(
+.bN_8FnDFvi!/,_eAwg.<FWK;3g3bnH|Lb-aB<B(.:f*WDI~CV;8#1.o#}27Xi8>QL,Tta
+RA;5&m-~t$AB+R0-tm3&o[PL=E')Pm9u]OV1)3Jsjs768NL\^dP?O+,4Uihs5*)hX79E#-
+0IkQ=MeC>5cmFS3(0B%X_YROmy,{]eh`s^9s'"lHbM[GSa&+=_'{DNnPZ9lGOa# ,:"&N"
+ktfleO(O1UTC/YKLRW0$CX;8#1.o#}27TeNj# ){4-H`Ecc^+07GVE-%oABW37)6,e[?/w
+h|FJ2/8S[;d72kE.TP9v'"lHbM[GSa&+=_'{DNSUVw$g9l2}Uz`#,z07S<"%/g M$f+YV[
+Zq>b[+J?)2pkWDTiD3g&rx(s`=,SdI.<k2^B`Q%F(b+9I!h6l01<&BOON"^|DV(YNQ^k\m
+r$ub/R5m3>s:R_FP(K1UIXi.LaPeN#/--nG1B:jWjL[R9a#d<2BbBU$fQ(F\`.js7X:y;(
+,e[?QIWuZ@d'+07GVE-%l^dk,BOSk9.MVK-[;}qqbeAomLof4-JD]XeR@$VZ2>!R=taS50
+p=(B3vTiEXm `&/hJDNo&~17u;"| sT;&L3!athhOTN"^|DV`!!gg#_DfqA_B=b|IgCFmr
+j&DS9pi$Y(,"Lc'Gfqg^G[^F!EnD&k723a[6^z@oSD!CV[ZqT8OP@.bhCqmrTP2V$b(;Sf
+2tRa&v3X\8E;pA=hW{!q.)\L1:MN2mNO[#cn\BR$8e E8A(9e@G212&B//aA`%a_'^"kfR
+-XCY:{=ith'I-~Lx2>,yF"m<Tp;&I-96Si5Z7O0'%q sD]#yEu8FH(0QY~uH^d 2,5Q(F\
+`.J?)20+G4UTeO^W2V:8Rk&:L\N"j[7S0Goj.Lol2i=/eSmF%WA9t=d6n#g(gRG[^F!EnD
+&k72'U`=I':RmrJ&Ze%7rp>a rV+r:RL1=J^[#1\J[%-!$7UMjRkW;Qs&Uivi"unQs&UV+
+^KNNHg'urxe{1Ddmp;V)TPq9eha^l^QN`OJImJY829u>,UH{JCQs&UJO^Zhs_cc=$`ljU.
+_X51d%NE57jH.sjqqvT{d]&cI}-`lj?Xl^a^YoBQt"f$R"m%Y8"))y(!-^:-a%RWq%:p_2
+,"':Gd:rcL'kA}&lrMPFKofH=He7@XNO[#cn+qM  sivtM1oT!2X>0.&]Mn+Ug1SM>"mUo
++i#ZJlO)=)h\56u|c).%QL6@ &0+\.FeQGB4TiFyd:t-RXuTs2Di`LfZj'C1S+QDDv1X$ 
+h#oviTJbm6%WA9t=T&$zRw`p_aA1cVBkRQs>.s;}V&r:RL1=fZj'C1OGR/DXVQ\=d73Ls2
+ilg,rxYD74E\VQ@!Zrt2p!CUtWgllz%WA9t=T&$zRw`p_aA1cVBkRQs>.s;}V&r:RL1=fZ
+j'C1OGU&eOt-2H@6nHE#1X$ h#Dk`LFZ"k[gJ.:#MX9K@H?p[clu\PdCti'I-~;#I-96(^
+nHE#1XbnKCeOiBun)6,e[?/wh|FJh%,8Dk^A!EnD&k72_m)/Ox77h\Av^Q)'7!d ^#-8%m
+Gdi.ZfMD%g<=`.<mOmF[^trch?@:1dum;7RLK{"&;&I-96Si0&ANWvPHH/ijo$*Z/^IhS.
+[qg&s;mJWK/{=IPofH=He7J>)20+G4UTR$o4ZI21L5f#WX#.8=[G77h\AvCVg&rxNYHgS!
+Sf^|u$n?%s+o@j[vYVsam~`RJA)20+G4?~9'r|Gi%:%nGdi.iU\suF7ipg8aUN:9jYu\G/
+=]oN:)@ZG&nV6@&'.q%mGdi.iU\suFl>U<mHX$pGJm^biTPd]=gr56?=sQ0&ANWvpAd_8a
+?xZr+IV[ZqT8t]2D@6nH4r-rA\oIqOV]o2ZIQFojYs[;!CL"e%A1Zmd;>8IkIFEBZ>j<&v
+?pQH7dT:8zO1],CRtWOl]1#Y6&6d.^`j899A5_&}c~<(8`qAs(Di`Lu\_yZj&)h*>] rWq
+:RT:8zO1],CRtWu:cBPb79t{.#>8:y[V?RTT/Z=I`Ut>aTW)%*Jt/< I;x-9:-,Mbci`\s
+uFug^]=YRv`p_aA1N!RS*e;fNPHZPFHi'kmme$-26Yca`e6gEwmFGi>S rWq:RT:8zO1],
+CRtWu:\[eQdKPhfmd{0nP42r8F=_DC8en/A3SZ#P#(`&`:OcS0v4mFA]*2!zt,Fmc|PhFM
+EfPl?#^L/?utc@Pb79t{.#>8:y^]mVMj=J,aUzNYA~.$,@skt^2D@6MWKO`UWMG'[ddwLr
+!S@#@-b|9WH!^su;RGN"^|DV0v'"&0IuJ?)20+G4?~@nYP>s/}%FkHG[^F!EnD&k72(|Dh
+V_taRA;5&m-~t$ABqXq\-K86.bN_8Fu}pAK6d6hU4QO;\y52JWjs76Jl^bXjMUr6nM" Y!
+H$ebbeF^8lKDd7TQZ?TP2V<u8T9qC+s1\&5HV)lG/zD@DjEo[,13^v'S"kfR-XND7sd>cz
+V6j#FZ"k[gJ.:#MX9K@H?p[clu=A8$o_jrbcJ}7r#1.o#}27?02!cfir/WKLI.bCPv[&7p
+K-<Y:8);Bag.!gsj0ZY|BML]'GM*T6BJnFaqg+:<n/[+cv9ZmO P9OK6L<8Kn?.c'`D@i;
+;/@RYu9Vi$ETZ>TP2>Qv(,D#g&rx(s`=XDEWj<kC"b$A%\4PD+q3(]#17g7!?N]FOGbCjP
+&MSu_voajL[R9a.O\@1:MNbUh\NV[#cn\Bg/G[RAEYd{WDI~m qWe>L#?hJxMJ=aS!L7m%
+[8?^snH#EkCFk0^B?0 b.y@)g1VP&B=_'{DN35A|.$,@skt^2D@6&e&eJSI0L fH=He7]M
+857Ud(&REn,]_DgDk'3O>0?pt{L`FR:;6\:+tc+S%mGdi.$0V,r:RL1=>0.&]MZ7:iX+Fo
+SVTYC%Jet"5~C6M%u5/xYkq1_fBJI.q.r%FuTP/A,U!%uE-o0+,SUzNYA~.$,@skt^2D@6
+nHB@Jq -R%7td>cz<(8`qAs(Di`LfZda3=jUtLD/[8(qJv-[965}L.-R_a,ZOJ2>Qv(,D#
+g&rxNYHg'u?U$yqPqmd[<(8`qAs(Di`LfZ9VR@K'^W]}/n_$MgN"^|DV0v'"&0IuJ?)20+
+G4&Euk>XDC"4Up8{&=PZ@XD]-W09h&Wuo\MDqOg)&qqP/k_+)slj/HIh\J?|NM A&CdyLr
+!S@#@-b|9Wv5Fb0nP4 |u1^QA}cO^A@@=I\{CRtWJ/usS_sFdKPhqXcA4DB4tLCG7*>=ms
+B5cOnQc>4DB4k#Q^5=*QqThpE C5-36Y#!\o&3r/C!Tm5Lbm4DsEM4Q-af@:Yd2Vrm J!m
+StbC?EjYWDQFu0Tt2zM1T6E-Z><qTFIF 5L"<|V&;4g3=R3lKv?NjYWDQFHc-5$fS+((*D
+b]p|1F>jN~[mWz^> }Wq;37+);D-r_:J T#jW2?xZr\FkD[:[6Gn0M=ZirNR_Ii+5065%l
+M{bC(N\L4dv0f5LUA$[c\%dp8Fu}:Tm|`a[;^qIH6G$uYx5I#Sj%5<-5$fVG-%Eh[Qt;%D
+NH6f-Y8nOE$}n7ihpYG[)gP  .iDf5LUA$[c\%dp8Fu}*$"Og;I#I7((GghRM+_W]rJY:J
+)M6X:+kQ@lrA>-BH,3v*Ih(oK+@AGNS5?PQeH}n)n5aE0Qh|!%'U8.S2AF6lt6v5ngC@eE
+V5jM#l``[;3fde/gc}sm%?]qJY:J)M6X:+kQ@lrA>-BH,3v*Ih(oK+@AGN-~D:c"1pbHo}
+snf <[11O%o}_Zr/G*km(8DN R#jW2v5Tt2zM1T6dHogL\[9rO>Leln/H05IU7e,%v3s65
+%lM{bCci0b+Fu6H3)}:Jmxng(EL[t;XK`a[;3fde/g]7l[`KiP5065%lM{bC(N\L4d>(BH
+,3J~O/gd@IGmZk)FtSnkp-*]&ZMN;3Q]2shsu8R]i:#$*g3sB4Gs6>v53R ]u|P&`n*cAU
+ $)y1*3yV:v5TsKAJ}8' '3sB4Gs6>v53R Zu|:X`k*cAU $ PXD n[nG2k8h`%4EMu4Tt
+2zM1T6`laZnL\;dp8Fu}hh/ \?&)v0f%"3u14) f((<|r3=401E-Em#H XXaG.kmIiK4op
+?P".3re>I_E.P'`U6p%l`n!Xf>i'BG0 8b'}0q')U+1eJD/X[R"E?0H ^s/IS*Mm:xa1Ba
+"_6m<^8Z\J?|NM A&CR_p&4!_"c=+LugJlJlJls%$|[>@}?N(YPSueTt2znNfe9V)In=(l
+\L4d/)3v:8n/A3L3\A_aMUNM A&CDeUp]PAL<f@U`?-}SG)z`X8hkRFZrk@|9SRp_ul!Jn
+GkQ!BR$}"#TS*_%!=fc @:4_&Z"C9U$$P=A>sYR4[Sr=VR7RO?Lt-:e*+i7_aUAWfZ9V^L
+)yMta]Yoh"^K!Xr:KzuVo5^%&)&;FOp#tR$-n/Xj_ em3V/)Dgj%bpr`L=W?babAbAWV[x
+"%IU?wA8"(V:65%l5cK%th 2*1NHkQ@l1`bmIw sWqe]dD7CfUJk6X^^6:s.X?hU<T.C`8
+@o-WAGpw@o$vY1FbI&rJ_Q',<|*b)z,8MAVs%,i&a"Jjrej-#$jUtLD/ 5lo!GVm)IL\ik
+?!OC0McH't/_M2,NTfB^_z]ac.@:Du/PblSAln#yRz6X&7n7u$^?pD&X`=hLbAK;8fDD0;
+SYI1AB=I^SH!uDM1G'r;u\?/H2jLLcrc=4>jN~[mWz^> }Wq;37+t6Jm'c_41mfM9VuC$-
+n/!S]UAAN@S'dWM&[lgr/IS*Mmv4\Q4d5J-5$fVG-%Eh[Qt;/&\?&)v0_~$G``00X8tf_`
+fT;_Z3emR$A1C6\J?|NM Ag$j; N;x-Y+Uqrq8Pw2VpKnsT"]Pp'`LUmUmUm4hawDDhw=H
+bn,,5I-5$fiQLrf*s;@e@'#jA\`' I;xBnB2VlnE5E+<??V8tag:D:YE'1k70G&k[nsV0G
+:c\J?|tcc?^=r'%4c{(5+jtcjr7X^trcA8L'Q|)z!gp)f(bGVf&**d6unt3A:G&Y`=hLbA
+K;8fDD0;SYI1^W?;/]Ry#vADYP>s/}%Fv3BmIJJt:J)M6X:+kQ@lrA>-BH,3v*Utj}"3u1
+3TU/ 6$$!!.<*aoI9{R6Ng/-#,27m^ioro(;f()np)f(bGVf&*JpJl8Z\J?|pD3G:Gk&\R
+lKl;l;fui'!"4j['0[!$f8V5"u*qTA&(V~S.U%U$oT)zX7G'[da4>0?paubAK;N<]Mf#ir
+0eYN[E@/&~dn$|@<WO^EH!_nr/JmGopn2s$]@#EIcba<=%[r=[>jN~[mWz^> }Wq;37+t6
+Jm4h_41me,FojLm$Uo%]/_K4#p,r8K3BTkePmrFx^W?;/]'nbh<j]h?{*lv0e\rtuiTt2z
+M1T6`laZnL5T-5$fVG-%1*3yV:DC_fh;G 3S*$PMm}Fo!Me]f5LUA$[c\%dp8Fu}*$"Og;
+I#I7biknufC_00$$Y1Jf[#1\<M.T\V,Ph|SwD_h_A05]G>]a5`&}NQ8Ju-t},5e>I_^om`
+3G:Gk&\RlKl;l;fui'!"4j['0[!$f8V5"u*qTA&(V~S.U%U$oT)zX7G'[da4>0?paubAK;
+N<]Mf#ir0eYN[E@/&~dn$|@<WO^EH!_nr/JmuI`YkR2VIu_P,)"Q>!c @:[fa.d)$|K~H$
+n/A3;C#%PMFE1\JDZcNM AQNhh@V0|rCFx^W?;/]O;YVcA^=(m`=Y}'F'bVro[-}E-KB-{
+&lPuue*bfXs;^C-K!G9M@BL'ctfjePmrFx^W?;/]Ry#vADYPqPAhfZ9VtL[fa.d)$|K~H$
+n/A3;C#%PMfe1oJDZcNM AQNhh@V0|rCFx^W?;/]RydWmFFb3ATkePmrbdZrJtPLXNpAaL
+@:[fa.d)$|K~H$n/A3;C#%s 5wV\]?OR@.dVO4YVE;6t?NNB1%fQ,_V;-%jD_+Ja6X^^, 
+?V^^(<Q{aI:v:vcg]JO*p&4!0+-K-K-KP=0Miiru'A0c##%BNH!1]O+41RJDhqM^Vd2shs
+e([mk.K?-{1G1)fQG2Um%]/_f7uKC\2-<b#XpfS>NPi"tuS>-Ai@[)JA4fsRTTMI0!]ol{
+@]o3ZI<q$$);?! q5ct6Q\hn)h^h;-b2))>hN~[mWz^> }Wq;37+QcD_=T'5&-tLJufstT
+6i=F#E(:6b#p;IGm&~]a5`&}NQ8J_m%odCn|22PH?`=~$VT_[mHs>+c{-YndEsDC[8(qJv
+-[965}L.Xea.d)$|K~H$n/A3;C#%s 5wV\]?OR@.dVO4=JYn[Va.d)$|K~H$n/A3;C#%R_
+^d#2>auSm86(qyY/M-KvMvIOs}*`6uP>^z@oSDAcE{pz1pgBS9$bXh3RR3)z(D0 /)G4&E
+bh\jOR<Yp.u\ZR^A@.+c!g/('#5Qs $XJ0*mJt6DAF2ykQ1\(s`=O3)zP-o]qe5BMk8$jX
+[R9a0q2}sXT#C`9\"AgOTsd4$|$2( R_^d#2ADaH+.Y4j&u$s$FM`=7G#O>0.&K#oi)2t@
+5[uiLhblEs`lC:1gJD(13v>M:aoZqe`Mi'av@4Di-`q;AkFM`=7G#O>0.&K#oi)2t@5[ui
+LhblEs`lC:1gJD(13vU2i'm6Je7T78t{f{5toTZb(#N$5~#i!h:y4gL9k4MmUo;.i"OpsT
+e'7i0'AB"N!53uI~t_A#hF?00'%qK~'S#QUsIO"<`3%F5JV=[m)LpsSxOT@.bd:RXGGns}
+KQi"3XT-^A@.+c!g/('#5Qs $XJ0*mJt6DAF2ykQ1\(s`=O3)z$toWqe m[nG22$rpn1Zb
+(#N$5~#i!h:y4gL9k4MmUo;.i"OpsTe'7i0'ABXDg>3vI~`so[?A2mFM`=7G#O>0.&K#oi
+)2t@5[uiLhblEs`lC:1gJD(13vT#XK3tI~`so[?A2mrpW2c`ti'I-~BJX9uu\EDkn^ ;tE
+&Y(Ra< QVug s;@eo[G'A!R9&UOGVst_`&Ig4.oAM+A&PZaZa*gF:f@[2lVVn,<@GmAQ` 
+\DfZ9V(@0k(F:Sk004_"hPOmuDKIlzJDNo&~\@<,v&i=2ErJK8u=#<ODkhKCfUCOth0BGm
+4@\"d7?VJX#&t}nP:)@ZG&nV6@&'DGDl/PblSAln#yRz6X&7Zc.E@"UN>*c 0*"Q:]bP!O
+tMo::)@ZG&nV6@&'DGDl/PblSAln#yRz6X&7n7DIYP3~?WmD`[7v&(7V@:1dum;7RLK{"&
+;6L'Q|)z!gp)f(bGVfQ5[&pAFQ@61dum;7RLK{"&;6L'Q|)z!gp)f(bGVf&*ukic^DEn[4
+(qJv-[965}L.Xea.d)$|K~H$n/A3;CceYNkj-[:-RAA1nA:)@ZX7G'[da46(qymCJDNo&~
+\@<,Ddj=2veTh+?>Who2ZIQFojYs[;!CL"e%A1Zmd;>8IkIFEBZ>j<Um8{&=PZkcV5"ukR
+u$s$Q(h>@:1dum;7RLK{"&"a74 Xlk\k,S) c=I-r3Ug0>5F7T7UQ5?R:Rh 5%fLV!u,L@
+t}/x0"Prokbdq9eha^<j2]VU/f71p);Uc?4'u*jI_+Ja6X^^t8Jm4h_4WSRyWJFcI;)`n 
+6h?S8FS"fimG4D/i6}p[+}^TN*/^V]dZhyM(m>E`m]6hv*m!+DXVoPu,L.RxVYXW_cl/(w
+,Dt+`ERvVYXW&eMZG[*2MZo7N+O|n&gOb0KIl/(wE=_cn(u\IQH2\nrEWS%#W0%bMZo7Pm
+$zG I1A(+~3}UW[^Gns}TFs@:t"nRzJrPLXNS!rEFb\n:EpZ6h?=M{dZnOFc>F)`8*mHC3
+?\b0Rxq4mFgO3AIK0GJ $c?9M{UsC5b)1puE@2f2Fbr:R1G[t|!*m `FS/Fbr:rQq`Pl%#
+W0%b_l[^%~)hiZhyEht|!*Oj=Qu4*b:g:WG!I;8_+F$sh9+F*'8*+F)voqDLb07~p\gO:R
+m:E0j`5@+<??')OGVst_Qw^Z%aS fimH\l3AP4dZfG_9N*/\l3dWXiFcrv@nt )G^R%a5R
+HmM{CbtT`EV.mFn>.-pYsc"5ciJW0)mFn>nm76+F)v8*+FICA(+~3Q\~[^kRsc"5)?[$&$
+OGVst_QwfbM{6lrf8FMX3O_c[^%~)~evhy3vI~e>I_-J!G9M t[nG2k8QARyVYFcI1)`h:
+MRfb3A>BS"[^mFIq3A\~Ozk#O4k0L;RxVYXWiMq2$K`L($1T)`u7,S)vJl`z^B0),k)`u7
+u<4GW>6mCA6}p[DLb07~G{rv)IJl`z+yh% g[nG2k8QAMTo7Pm%#W0Pm$zGx26l3+~H>Cg
+XDqg2WpKUj%]/_ufO)NPsaWbKj(2Hm3AiMMRH<+D?LcQor6hrf@nt )G^R%a5RHmM{CbtT
+`EV.mFn>.-pYsc"5ciJW0)mFn>nm76+F)v8*+FICA(+~3Q\~[^kRsc"5)?[$t2'|&kq.90
+!@0Eq[3{iMfG4.Z>qTPli'm6E0j`5@+<??u7'|&kq.90!@0Eq[Fb\d$opY6h^xPliPMRo7
+a^qi2oFn+DK%V`%bgFrrJU6'dWfG<;h:q2$KQ=u0@2dVfGgFd#6i4.P46lrfb07}G#CgA(
+`oq2$K2^?qr//z-Wl&RA"`@jm!+DICW>6mCAW>6k[o>QS,D_h_A05]7.05_"hPOmuDrPN6
+dZnOFc>F)`8*mHC3?\7%S [^#zdGkBe%MRu}N76l:vhkt#"'/\6}:y>Gb)1p8hr JU/X6}
+:y-L*'8*+FICV],""X%agFGgnQ5*S5?PD8c"JaI8m!GxI16}p[C3W>,!3}IK5ac @:Yd2V
+rm J$>27IFEBZ>j<kSe&hz>+c{-YND3oMY0R6{d{WD]2FP?R'6<|V&;4g3h]7t.He>4coE
+n^90-(<F'CE>Z><qTFIF 5L"<|V&;4g3=R3lKv?NjYWDQF\w.q?A3D1%LB6Y:+Q(h> JcI
+"o7E2s##[8Gn0M=ZirNR_Ii+kD^}f=6kFH$~N$bP/[c{-Y#9o/ZIrqZrWz.MTA;C=NVzS$
+98a<fHSHv4F.[4)}%qNku~dsJUotNn=Et@]LgrmRo7+^>Ee$C?D3T_EGF3k1'!i<>],Wi@
+=R@A"g!mStbC?ERA\QsWrljd>F^C*{;>ijSH.13v0hh|)=D-uBc8)wu;CM72N_+bDgX&mE
+_WDt]XivYo8rH\R-7}Ju[8Gn0M=ZirNR_I(J_LSO)`'zDz]Xiv<jcjA.1_U>>u0gPCj|(p
+8__;Shs%ulA[${J]\qVcbJP{bsOzRtqt]?tp*a6A&pq.X/Bj5R,AZXj"1eiP/JBGp"GQtA
+Yd2VrqZrWz.MTA;C=NVzN /i&c?>e)Gx%i?T-G^TS{or+S^\:nFr1b(oZus=!?b<&L9x2F
+b+J0UWNLWQ`]\m=3E.oE u#[=_Kl6\:+?vo4#/GeGdQ(9/g5nLQ{VGN6Nr[$V'6!);D-Dq
+G6d);37+rLlH'"@0th\q:-MZc"VfU9osk-K?Vu[6U)Cpt{M3,NWU/m:8sT^c98iDG{E]-Y
++Uu8c8)wu;CM72N_+b>aZhhRnLQ{VGN6nb8q:TP:]N:w\j];>[\j];_|C?D3ta]0if>Yup
+Dpp_Dq_,]3_|(%uk>XoN?P9`<{2LVgZ|]E[7E0j`5@+<??')6Z:|a5FEd)KChn.%??oY5Y
+L#r6*AGbrJWb&S.3Nl1]Fd^2SO[R`S_>Hd/\nUk-K?Vu`cRjv%TPf(bG"04ka{'{`Qu^uh
+P3c%Ei*fZu-7M5UyL4lkQ{ Q[H<+^^h|K4!oC,O{]sbXfO7>\j]4eJ>z'"i<18iPkD*)e4
+ itLD/m"_%.LYyKK+ 19h|oC\1R`@ ?v)@Yb2V>0?pMV86"NcfWD]2h2Vwj=k[&p!1;-X7
+G'[da4>0?pMV86"Ncfv/eLU{KD)xA oKeLU{KD OuA`5 I;xBnB2Vlf}u6hy7Xt6Q\sY*A
+GbrJWb&S.3Nl9e5Ri@[)bAK;N<hf$H[9Gn0M=ZirNR_I(J_L-i3A/uo[*TX7G'[da4>0?p
+MV:896fh)aJ7lvo7Sfor/<N\]4SkD3A4(Nue JcI"o7E2s##EZ5_&}(cS_nCG<JrGkQ!u1
+lk!-$>h`*[`&lj!-$>( h(>]it2V/PrqZrWz.MTA;C=N_#r\j-B#nd&;DNu78moR'"/_Gl
+=c"hjw?50'%qK~'S#QDxTFX8g>o2Zif~rch?cmGt<y=] a6!BR[chQB-/,`!_m2`=/E.oM
+?P9`r8'x?rQ(h>@:o^@zVH_NrJbD4C#zZuMWHgt"K&[xMX`IiS;Al@cXlT7|dUHy_ c=5%
+A?O)mSo7+^>Ee$C?D3<-ZV0YEXF3>$DCm(a'`Ei'av6ZHgn_Yn5?*"BL?rV;-%@:1d`8 I
+;xBnB2f6E!G`a`0RcHkw5i-(#:UCM`5JA8c,@:Yd2Vrm J!mStbC?EjYWDQFu0O)NPsaWb
+KjhrWD]2FP?R'6<|`p%O(\DNrl>(9@[+[&Oj<pTFLBV[0[<CGmAQ[c2[h:.H""$]Z[ H*q
+u6'|&kq.90!@[P]0.q?ASdEp(ZDNo1ZIrqLn)k=[Js''8~?=.l"O7"A8v0VYqnCN=d^bg)
+*ij|`EGy7G.bu;+J?L.l"O7"A8v0qT_'=Y$~N$bPv*6}p[@23|+c'Auh?R`5U>4E7qrf4E
+HkOco7:7CAf_V\h]qX)12CZ<2iW07$/ziPm(OxQ'tRU=4E7qoIHkV\WD5,Bt>B+zro4E7q
+rfflTO)1h98SETBt_cC?,)7fOcg{qX)12Ch:72OzQ'k!ei\d7uo)HkOco7WD5*Df>B+zr_
+4EnQWD2gW0WDQ(tJ\drCflTN)1.W>EDCR?B^?vK0+ '7C'&lGB<ye[k]hSH3CFm"Kq7#DI
+A8Xfo[c#A1E8Z>rg?v;/au.M%BaU3{2>FbmFG#:sS:^:0"EymFGi>SmD&DfF43Co] 0=)F
+fF432>@@)psyDm9\"Ar:=LM+ "kQqe?{*ld>uL*[;.t@u77'g5ozM=hMYvF\5Cr>!i?%9[
+\dWz3ITiD3uc_,XF"O\yifir3n=_ru0WPDSJVt]l:wiho}]Zh_]Tg~]ThS]Tb%iW*H@03{
+2>J&?-(!@JR9EXeTE$G&H":JZuC^IdDko>@HhubA5%A?O)jh]sEC]8];:wih;)ih?}ih)w
+psC.dkTZO~s~#EXDr$iV`YhU\yifir3n4!X@Jw!OMC:wn:/r_ek3taH;k&@+Zu@+Zu[0"O
+[0ER QM,awamn'RJVEGg3=hGt/p':Ik&C^61DkpG@HhubA5%A?O)jh]sEC]8];:wih;)ih
+?}ih)wC^2-`@GwD\t,^:0"`t.<k23m]|f#ir4/_,g=]s!OMC:wn:/r_eiqXVDsh?]Th_]T
+riiwI^p'[[]P!D($$~$WU\=@M+hjm6TPm{]\3R_,g=]siWk)ir4)=_ru0WPDSJVtta`3?U
+@+k&@+k&_9hUjgLBKC6U@{l"G#d@;2AAR>!0.<s2/z-Wl&RA"`@j-K-K<u8TbB9h0XO,6t
+^@[$6lRUs>>cuSpk@XqS\{+XpyCJ8KtviRQ5JjtvLdg)nE,3TFD"1X^Jk96YSR/w?ogE,m
+Z&\Ntp@{T>Gem%<cYN0+7V#i!hK%dk)Oqh&kTTJUa;9]YNY/=xDCR?7s%%R_E=+qQ2hmKT
+KN+ ,M$dh`km.NM313oE^P\m6p%l`n!Xf>i'BG0 @:;JfNJkrG;"Vw:Gg:Pl/elsGx+DIC
+[R2eW07$EPPbiPWR5*Z<-tJuMb+YKG#2VF[xdo@ `TVtVfuXnXV%7YU>$oGx+D/^lsmF3G
+huTMSolpTMQY7}o2ra:J)M0 014hO%kdr=?v;/au.M%BaUckdWHi3AeiMR^ZPliPMRo7a^
+jxP4%{_lqZD2:^cbZ=7&:eh2>],Wi@=R@A"g!mStbC?ERA\QsWrljd>F^CIR.bblVfQ5W|
+7nZjccWD]24j'AAF;CCEG!EV`jfU=Ze_]#JM6Y&7Q@O%<+JJpAf}2@)~)GNQHZI;sj!g($
+Jgot<(l'0g-a->G\EV`jfU=Ze_]#JM6Y&7Q@'uX7ttjLWfDa3}2n&lq6KOq?#P0(uOiSX1
+awAP;C(J[8-dnB`Pt>X[[kmr]'D2G6d);37+rL,H-:H=>P8_QhA!pduKOx]3_|];f#H"D1
+Id]lf#s-Fdrfp%h7D:itIDp'F`ZNER[0Jw]S]t_u`5?Uidk)s-k!_,]3ZWC?]lf#H"D1Gb
+DAUpp%ZWhU[0hU]S]4?UH?k&idhFH"tQs-D+IditI*p'hBsI]Sr5iwZ9ERDqX_Ds]T_u]2
+V3];f#H"hELBhbD:it>s% @*k&idjXH"tDs-h>oE]Sr5iwdY]N* H<Zuid;)\ja`@:g~IH
+6G$uYx5I#Sql/fi@[)bAK;N<PZ#$fNuu'?AF(hk7K?-{&\??&'@:;JfNJkrG;"VweiMR_'
+Pl/mW>dYHi?SM{k!oTpl/n?fdW^g2jkPnE00mC5PX7G'[da4P=0N7TEav(J~n C3W>6m3m
+P46lrf)IcBYo#=+=-Nke^=B$5aoR'"/_GlUw6!t6HnqW)1h9qXlx2CZ<2iW07|N)?ucbDg
+iM\dk)P4%{_lC?Q`3:7qoIHkqW)1[$l{N'Q'tRU=C4Olh\qX)1h98SETDf>B+z_|U>rCW)
+PE(d2C=/cbDgiM>F&U3@7qIC4GfI)CYbl{2CZ<Q(tJ\dC4Olg{qXWCQ(k!P4Q'7uo)fIfl
+8SEPDfZ>C?JqHG2.#*o/ZIQFojYs[;!CL"e%A1Zmd;>8IkIFEBZ>j<BJI.)n*d)z,8Q(h>
+>(O6FTKn;F$d6>TQf(bG"0BMI.)n*d)z,8u|32KF!'GeMi[,32KF!'" rbtK!g9MU&RSNg
+97r9A((/n7_nV>MU<{*dLtY*n-ioro(;f(fKIH6G$uYx5I#S,OS$VYmESC)`hZMR.23A#G
+'zGmPE<+^^h|@YZ3[#6jX7,ZnOixkb8F-L<KHZ1Y7,6g<6dmfi9+3qP4R8.2M{UKV`#3_[
+U>4E7qrf4EHkOco7:7CAf_V\h]qX)12CZ<2iW07$/ziPm(OxQ'tRU=4E7qoIHkV\WD5,Bt
+>B+zro4E7qrfflTO)1h98SETBt_cC?,)7fOcg{qX)12Ch:72OzQ'k!ei\d7uo)HkOco7WD
+5*Df>B+zr_4EnQWD2gW0WDQ(tJ\drCflTN)1.W(o!$@:`e^>a"-b"BV::8n/A3L3\A_a$v
+PM$|Q7v)Tc5b S3rb h`Tc5b S! tLD/TA-)mE?v;/au.M%BaU<j"_6mD]Ys&j72DC"42m
+UzNY$A$:Su/FpG=hW{SSTYC%m(a'n/b"Uo[fAU[8<qTFIF 5L"<|V&;4g3=R3lKv?NjYWD
+QFu0O)NPC1*R0_GdCFZG_x5YJ~^%&)v+$^'bVro[-}E-KB-{&lPuueO)NPsaWbKj(2Fs\d
+/mW>d[Fo*2S VYH=ABtK:6rf#)W07|TOfbfl*Uh98Sfu^qij?!OC0McH't/_M2,Nf8IH6G
+$uYx5I#SDgT"fimH\l3AP4dZf/_9[kJ5-+\k+TnO*'rfTxW;H=h8\ol{]NZ:nUjSDt/Pbl
+SAln#yRz6X&7n7_nV>MU<{*dLt2C6}mH3GZ>$oW0Fc\^/mo[U_,cP42hs$CI0%o73\jsiM
+>F,)\kC(8un}DJEp1"aw*~?V^^(<Q{6>oN#H3X[7ug..Q}^Z%aS VYFcU=$oW0Fc\d/mo[
+U_NEk!+/\kC4rohe_"SAYwDx79?dO@4F6}+F1`nTjSDt/PblSAln#yRz6X&7n7_nV>MU<{
+*dLtQBRyVYFc\d$oo86hCA)`Z<#z_"n(Vc&3n fs1c>E,KeiWRnS+/k%Z>Q/Sz, ICQ`iP
+\dFd_s\es1P;3pt@f{ND')7F8~)}h:Hi[o^qij?!OC0McH't/_M2,Nf8IH6G$uYx5I#S,O
+/^6}mH4D)`oq6hCA)`Z<#z_"822dW0:o,G:^N-nT72:e8rRp4D&UfsC?,)\kC48un}DJEp
+1"aw*~?V^^(<Q{6>oN#H3X[7ug..Q}^Z%aS fimH\l3AP4dZfG_9[kJ5-+\kC?fIIc4Gf_
+fl*UW0Q>,c>BETUGQeC3_|>Gs%C4L_o7PE,`rGVc&3Z<8oI1Q`WM,):'VX:7oICF.7*W1J
+cLDg_Q\e&$_lQ/WUQnC3_|I2:LfhTO,`*W2C8AJ9/3W`K+>QuLO)NPC1*R0_7T*[p?GiNc
+Hgt"*%%!.7JuDqj=^"hd&qG16^Hgn_Yn5?*"BL?rV;-%@:1d`8 I;xBnB2f6E!G`a`0RcH
+kw5i-(#:UCM`5JA8c,@:Yd2Vrm J!mStbC?EjYWDQF\w+:EK7t>X,Wi@=R@A"g!mStbC?E
+RA\QsWrljd>F^C3|+c'A6iAF2y&lGBCFZG@Bj:k[&p!1f80&mQU")~%qNk?8Qa;4&RJuZG
+j<Rv>s.p?A3D1%LB6Y:+2Vh:0&mQ;HdVbQ.%??oY[G0Or(A((/D#=d^bg)*ie6`EGyY/q.
+(CQ{,$^\=Ye_]#JM6Y&7H!^s/I6m,q>BNG]'>7M[9c<DW#'1TsZW9v%#U;2oPb0(]O+:EK
+IFF3'6%*c{_e-(_ekmSEBBUr=)h\56:8Rk&:@rR9DOYMmZn}3bPA]'iB+zN/+jtaA#hFh]
+s5;EKI43%W>.sR[9tFB(;fcLm=-R-,aK.<;B9.26&c8WW*ubui, <fb+EKPA3Ge_Tn/Y"Q
+ehm+,u>fKYDNg9>xb=39-'d"h9q8:CEP&Sm()1>wb=3:7q82W)ZKo\<S9{1=PAH|jsJ.T6
+C?&cm,IQf1?5''m(rf2H:+\jIrW):oQmh;id26f_qW2H:k\jrCl}AI\.Oi`U=3E.oE u#[
+=_Kl6\:+?vo4#/GeGdQ(9/+y7_aU.dMSblEs-Yndfl>X8Ei"Op89TQDisnn1NVCp=d tmj
+GJT#Up^qJ?0QN}@:VEX0P(_Y2jkPnE.l[z,P-aDU/qf_b0Oz#{Y4id%\]pu='|DNoYe-It
+ sO-DR/qf_b0Oz#{qlkH.}#,8}1u(AZu-7V'^K.._85*fyAz)40+Qn2I\ee<#ARlV!_Qo*
+.!9v-s1d\K]<$!Hy\g%~3B/qiuYo_yrg]T+:EK2CA(dWsda]?U:Ok=6>`BiQM+_WoDbW<y
+4H--rMTBrJLVA,S5K >0?pt{2j>c9+7_uos-b'/K[e,eiPhyFb[U_,?Iuhs-b'/Kq;,eiP
+Fo4x[R_,?Iuhs-b'/KFP%~?:(vDzYPm Q(b2Q J@0Qo>D>IZ-b`o*)"kZ2Qp+Scys$Pv`N
+nxR-8e+0,oUBiQihM+_W8}3AO|n&]?=JQf2nPb0(]O+:EKIFF3'6%*`X#&S4K 8J4xf_-+
+pB90TQ/A,Uaee)8K@;`;SC7N/XA(dWsda]pbPO+0NSsa<'\PUs_Q%jrMIre)bsJpJtuO&>
+VhMU213Xv!cl&Ae6lGCF1_?UZoJstaA#'e^CN*/\l3#v`+"A`U/}auu,u<DOb0 '<wtaA#
+'e38UW[^o0ZIQFojYs[;!CL"e%A1Zmd;>8IkIFEBZ>j<4h'AAF;Cceg)+v=El|fl>X^CIR
+.bblVfQ5M2l%E|nEekWMFFCFIV.bblVffjn"k-K?Vu[6c?R$VfU9osk-K?Vu8s?\TPprG2
+\h$!HyDO^W?IW2;FM3,NX*pW-43|4].4>w-?]\Q0:p]OI(p'F`_ss.Fd8lv)c8)wu;CM72
+N_+bDgUp]PdOGxs-Fd0dir%\]piqn,p$:Tk&ILd#p'JYo0DsG6d);37+rLlH'"@04(iR`%
+ I7V@7PI-r784=_hIt sO-O=J@0QN}3@YPIT.bblVffjn"CG5DY 7^Hm>iZufo5KDAIdf_
+EC]8C?9+v)c8)wu;CM72N_+bDgUp]PdOGxs-Fd[oJ?0QN}p&:IZu\y4q5+iRXVDsRior]Z
+S*9|_YDh]TuKrC[Rhf8.Vm$08}9}/^:8sT^cWJlI'"@04(_hIt sO-`N*\;fNPcUiq%\]p
+RjYl]7^eB$-Y+UI6Q?QgIcA QE]4p%8us-J1_,)_p]_u)`;hqzrqZrWz.MTA;C=NVztag:
+D:f_iW?}1_]3+:EK]Nf#irU*_uh/8_up[/p]7|_:hUW)S|WNp]Dq,+0-uA]2FP6YHgN?h|
+,`G3;>jE>F`;SC]4[7E0j`5@+<??')6Z:|a5FEd)KChn.%??oY5YL#\`$!Hy1\FQ%~?:b0
+'nr(^EHdTkG;EV`jfU@AdPK":8n/A3L3*E@}O)kCuy\EMQuE@2;'X7G'[da4P=0N7TEav(
+A56iJb0)X^<+^^h|kd8.SB+i2pK$q;+D_+ZD_x5Yv*7E.BM5UyL45ZL#osNo$B(&$'li,q
+A3J]9EV QJFI0lX8tbtaj,nO%$:C0lQ@`<7{+ &)Vf'H??Q2McI.=c@.!3!Tt7O'W@-%oN
+6TSz38Nk6n_MR%KCd74'A5VXI~PK+0NSsa<'\PUsDN'e[Zd7D{8F`4rg )WB8J$6Y#nR85
+L6S}7.ny,'6+/&:C?iQ]N1,Bt1T{-4p9FQsM@@]$EWH:qAFZ8VJiZr,VT6C?N}FU8lh[io
+JcbK39P*-E(oJumr\m_ J4I(d#T?A%)\J7UWC?m_%jm(IQItW)3\e`9W27f_b03:=w.mP7
+nbGitIm#?hG:"+?lgY8/8rnP%@8ktG[Y#ANn:nec??GK,xI6[v`SC^ft%@,lJwmrCIM'YV
+dN+Vcys$si7{1d&-8e#=Nn]qQ;=r3u/9C@e<26Q*_'n[4xQ*9AD3/Ft1s2Fo 2ukeOPmOW
+pdDKq`QJ#ANn:nd"Tt]IMX!'WDoXOcS0a_!OV[ZqT8dEl~TxgFFol~,jJ1 /d:tM.Y+"&)
+Vf'H??Q2McI.=cSC#HZj##6kr$3::X jo']Ctp*a6A&pq.X/Bj5R=J\ h2>],WQ(ls!Qp"
+)'lj,qA3RefV7$7,g3q81biPWDp%Mx>wu`mGioro(;f(;@0q D(m*fVm$0L4TQf(bG n.b
+6>`;SC7N,_)`e67|G#3tQpOzd[9"sj!g($ =]Ctpk2K?-{1Gp(*;_et|q^1pFQhpCxRo9T
+6vpo7!L!8DNN=cG'8=*DnDkd0_f>?f+W27c@WMSs38c'!$.<Ed(#%!u~@o%\7f:8Fp<C6B
+5ILb-al&:)eVK%ZtIq+VndsfS{OR4QqX0>_][Z,_JCOx6 ,277.q^^,.%2r=[G`<"F#)r8
+'x8K:+hfM*1_FQ'AM^Hd-t QR9FQ*]QH-Oe}TQ+G,3DTh_*Z0_&w!\o5OnRFQ`6ANnnSt?
+i XP%~sr T.<'nN"^|DV<B$45^"3K6!oiR'J(e6"'S5ZL#\`r$^K!Xr:XGf0?5,LX72'e6
+4xIf_ cSTTeOUn,hN tA`(&O8WW*peoTVXFzV)^Kt4GiPql5/*sxX~gqc*tkf{'&g=rb )
+WB_QOdTPQce)+V9B1=PA3G9B:L=]_cQFbNhzX)9|SA/SiPm(1lb_&L8W+~FmQ*_ccxrC0,
+X?8qD=S3KomCn0hs6{CIft5N4QiPQ>`<X<%4,lm:)Eu`(&#yEVB!jsNkr*3::X j.FBiI~
+Y\/+JiJS#/;DauT3Tvv+QE7E>z[]U^80)c;hJpJt*d6A&pq.X/Bj5RWL%pRqDL'e8WW*d-
+Z>=xDCR?b~5%A?-oCY(1-*;QjE>F^Ct]A#'e38h{9uam+yDq6Ujvqk/fi@[)bAK;N<PZ#$
+fNuu'?AF(hk7K?-{&\??&'s-b'/KFP%~3B/qmy%t3B/m-tlI'"@0!5i!pb$Ck5K?-{1Gp(
+*;_et|q^R1N*`L($X7G'[da4P=0N7TEav(l@M~_+ZDFa#2n>?^XiPZ#$fN#cZj8Xa|4Vtw
+"'t7O'W@X0i(&xbJ%h4CkQqe]\a0Pmpnl|8d@.W)PZ#$fN#cZj8Xa|4V.q0'KdKtJ+b^;_
+Q]GfVE'*^mq3b*pS,PkQqe$qX!Dr`LEY3Dqk9]=]_cQFbNhz5&D=]d,E]le)p)+T7}U@S{
+i|u|50:Gnx"5rb )WB`bXzpTWMngS%s/U0_3QFbNhz5&D=)pZUAsRWP(Q[s/U0n"kAi&`Y
+C^E3uT@@N f_-?m_s/v/e{Qds738If[;=[:8$45^"3K6!oiR'J(e6"'S5ZL#gKcd@9*.-<
+ EGSdGv-RY&v3X[7fOtMiXN#R>`U9/g5M+_W.3d"Gx[aSlMe>+2]0RoE[aOh]1$!HydO^}
+B^_z&d c,f6 ,277tw=@OCC$J: sWq:RG'8=iq%\]pck7|_KN*?)e]+jFd?[;ib\.%`@"J
+[kk0(g`4 I;xBniy4WI5sdm(.-%~o`]'tbtaj,nO%$eN26&MTs^BcrEf^H\K`4 I;xBniy
+4WI5sdm(Y8H`+O&!XsAC-L;Y.3,z;Q.35OPA0Zrdqh^Bcr.?M5UyL45ZL#osNo$Bj@m$,l
+M.qO&H[du^_yP DN!OPi&f[Hn.PZ4hfRa4A@VF_N7/DNPJ8e<=Frl0c47%qM;io1m<8F]#
+EW_x5YJ~f=NS]'snA/NA,{.nj|8bA7oXU]]9aTHlDOW)/t9BQm9|CMd2`Y1m8_@.g9"Y3s
+Ti`SjZW&([Y|.Aj#&]8SS&T<805/@ArC9/'9A,t;Z~'$ciA<)\Hu>GUWC?9+</ucmr8qtf
+Tf4r((<,t-_R-EiPF*?@-aJ'@7u:@iD=k6m+4yf_N4n979!j7GcmPK3GcUk4nQa_`NeV$0
+/eFMS%r%Tkn!cg9VtB >R>AP[82M0q D(m L'ACG=lBv!q>/ 4#`;-,3JqHYU1!U<lJ ,k
+21o8J2 sWqe]]]I0rJq3cz<;qB6~@6db.}-nG1@8VireR1/KPzORS0qp9<NV)khfnBuA'.
+6Z:|a5Uw6!s%7G"1O.M.qO&H[d5>,b; qBb*P3U&eOTQf(bG"04ka{'{`Qu^Na)ScTdbt#
+,]7;$uDCG1ukQDbY)ao\u,*\6A&pq.X/Bj5R+ &)Vf'H??Q2McI.sY$/r8'x8K:+[z-rN^
+)SHY0l,rJwR?X4$!Hy<GQ]orA-1D%6\7E;A%hTA.)<D-(#qsRhGfe>I_-J!G9ML 8DNNsY
+Za(Pf)tT!g9MU&n.PZ]M+:EKQBOzH`%~^3U%7VmI_7WSO#<+JJ$uAAYPi~ixkb8FHGFN[a
+Sln&8d@.!3<Xk9Y%<+^^h|kd8.SB+i2pK$0ZN,Go26bLumIrNbT^DMNbr<l;<_Am[88t@.
+W)PZ#$fN#cZj8Xa|4V.q0'KdKtJ+b^;_Q]GfVE'*)d0q D(m L'ACG=lBv`P@X*R0_&wrM
+>a rh}N*ld)zHYU1b6@:*#9km:Fa#2n>/nO#<^:k\j )WB<sZ,&>faHoXE8hECA.)\Hub+
+3:WQm_ThdcFo;m1poOFZucGiOnBP[Gn|_R)?@ArC9/'9A,t;Z~'$ciZUDMW)/tsd7{<OTn
+r$3B:Inx"5 PR95H9Rj^DLW)3\?('o8}ipJcbK3:P*-%(otO-C[jOx8n6R-d.8.n9+Jhe)
+7(tB8V'~tjG4AGGWQ*_RTpmL4P8_@.g9"YYY)EJu]ZPY#$fN#cZj8Xa|4V.qdl!c=EL\+E
+t-b-pS,PYym?0+[4>Gnu'"/_Gl^$fcWzN%:9UsO9+RuG@2;'X7G'[da4P=0N7TEav(Vj7y
+\ qpJU#/;DauT3Tvv+m!0]7}tW`Ec?Pb79t{.#>8:ycH!QC7!q=EWG@}UFuVL.J+b^;_g3
+DS#LA5&"c4ADR9tg!g9MU&E&rAn^l1Q`XW')+RuG@2;'X7G'[da4P=0N7TEav(A5&"o`u,
+*\6A&pq.X/Bj5RHm<G7{tW`Ec?Pb79t{.#>8:ycH!QC7!q=EWG@}UFuVL.J+b^;_g3DS#L
+Vj7y*.O>8i@;,WCZ6Ujv,N&MToIrRjG\%h_"&TjE>F`;SC]4[7E0j`5@+<??')6Z:|a5FE
+d)KChn.%??oY5YL#\`$!HyQ|FbbfOzbJoT0,/qjq-2?DTPprG2((qlUrno'"/_Gl^$fcWz
+N%:9Us)[cT<j]h]\a0Pmpnl|A-1DevQJ`<"FY1`<;tX7G'[da4P=0N7TEav(+_N,o`DLNb
+uFsf'/3(h{'/nCbAY@c[@:Qj`<Bf-7M5UyL45ZL#osNo$Bj@m$,lM.qO&H[du^_yP DN!O
+Pi&f[Hn.PZ4hfRa4A@VF_N7/DNPJ8e<=Frl0c47%qM;io1m<8F]#EW_x5YJ~f=NS,VEI:k
+1_t]+/N}FU8lK0fk.I=&N:nK_R<2b:39F`,vhy7{>yHk&Qm,QYX>/sHiItW)S|N1+at1Tk
+-4p9FQsM@@R9r%[RE`1EL/<1Hm+VcyRcWNNCFU8lJ/+Vcys$7mhF4xf_e)VaIrW)3\@ArC
+9/'9A,t;Z~R/4rA-)\3@QVDLW)ZW_PNCFU8l</S%_O4yf_e)7(P{u3ePQds738If00KTd7
+Und 6R-dDr`L&:e64xm_%jm,IQ8KtMm+,u#tVsY![;.6tm1b&-ng,'?|pHf]OHh)7|q_Fx
+S1r%,HJC:C*IYyEWuAi~5{,277.q^^,.%2r=[G0P&q??&'MWmq%t_NR%[;R\`O`DCIXu<+
+^^h|kd8.SB+i2pK$0ZN,rzJU6'TQf(bG"04ka{'{`Qu^Na)ScTdbt#,]7;$uDCG1uk#V+=
+-N@Zf'+ IRVnL3ba6VHgN?h|*^QLXZH`l0c4:Rmr:8n/A3L3*E@}O)kCuy7@OtAimL(?`4
+ I;xBniy4WI5sdm(Y8H`+O0+mLRY&v3X[7fOtM.=M5UyL45ZL#osNo$B(&$'li,qA3J]9E
+V ')+RHfO;iR>],Wi@=R@A"g!mStbC?ERA\QsWrljd>F^Cdur<3]5I3u8P+yZG\1(6m*!G
+Vm)IL\2lUzNY$Adzr<3]5I3u8PucFE V"/oK%=@#FE V"/$ o/ZI:8n/A3L3\A_a$vPM$|
+&,s-b'/KrXjI_+Ja6X^^iMM+_Wns_8N*S$;>#t_"XRr #PRz3u.q':ROn<gb,AZ>`\@-4$
+u9Xk_]204r)+A6@,k.q4.?fPby`wm6Fa<C6BRF&YCxuH@2[aYJIss!G}3=_VO2&M/C5l27
+C\ZWA.)\&Sm,o7sfX<]rNDFSOcZVl9)\+x,)f_qiD(tWR7:6-Gcyh9q8Ox5+iJ#uA5Tgk!
+-'cy2C:k\jNLFUICT?-%iPjr-'d"2C5')[9f_YSwBZ*L>'k0.FY`=xf+>]`e^>a"-b"BV:
+:8n/A3L3\A_a$vPM$|Q7v)Tc5b S3rb h`Tc5b S! tLD/TA-)Wo$!Hy=HJ_4$dx_e6@:+
+`TCIJ: sWqe]dDV6j#oAM+A&PZaZKT:0&TrNI7uA'@3^uk>X^CZs#Z.N@H"g$>27IFZ/,_
+h`h]7t.H:3(#g)5%A?oIfl>X`;SCr8'x?rsgm~@nYP)>ljmFv%JA0QN}_Yl838P*d\HY>_
+uS/Z6}:y2q7&BbcZ7C)xb Yo,{V'^K.._85*fyAz)40+Qn2I\ee<#ARlV!_Qo*.!9v-s1d
+\Kr$s&b'/KFP%~3B/qdPK"mFn>nmm,!IGudur<l&DK]X=JonU>KwmC-OL]jfb<C?\.OdS0
+V`A.\j8o!`dQ; #%_8NCf_B&m_fKmQQYgyivp&J>0QN}?1b0Rxq4M&t!0.)`u7u<)\e6sd
+2r7R.ToI*Z?U\YHo#5RlV!rqZrWz.MTA;C=NVz7{Q]orIqW)[lOdS0+Ucyh9q8Ox2hU^Dd
+!z@:o^@z[5]O&oH]0uFP26f_b03:(B1dN=[ab;;bU{]<:0&Tg#M+1iPDSJ^|r\j-B#nd&;
+DNu78moR'"/_Gl=c"hjw?50'%qK~'S#QDxTFmmI"tL.aG=uA]2FP?R'6<|V&;4g3h]7t.H
+:3WR8SD/m"_%.LYyKK+ 19h|oC\1R`@ ?v)@Yb2V"O7"A80^2/OALt=J$pODkh;3g3WD]2
+:0rlLv9d+1k`)(sYa221QGekR$A1X+/|,7\'.O[$13kQEyctG+^%<{$$);?! q5ciKnTkG
+[IG/BGa/BK[cXA#PMvG1K3`Uh>8nUiJUotNn=Et@r1+<l{@23|+c'Auhp#]'tb5~C6M%CC
+c v5jirxt?uy3t[.t<T5GQs JUu.rB]@p&oiu,t&nOM4&"]3hU2rTikJrxt?3t[.[#6!np
+P{b <bT1S010+JMjDq2-qxfi$3,%q})" &>6c uL&,sefk8n?vEzctG+PFHiBf[Zf$ne$)
+-5WMKCuA]2&3n+r$+<l{@23|+c'Auhp#GQ>sM[9c\ddVa<u}u>i9L^*^Xw(5Y4E!`L*^<2
+mF@]Y5^Z.1+1d>mF@]v*J^t<+<L[Dq2-XDr$j!Jbm6`M 8)jQnMlU&eOpUVvXW6tPJHiDH
+><Gj3=)80+Mj<Y/]"Q:]mrOn,0O-DxZl.EA=#5ol6Yca5.uA:uStai!Fu~]|uFJ\P(7F%?
+6)2G5H5Ju2rBmP"5EeTPa_G'9;$.=%>7c @:itfJ/^t[PhFMt]MO!'mKR-8e+0]@gr:/u7
+9uqaVc(G8*nVbe=uDCTAt8mFf}[IG/W|5T(G8*@nsL=Xu9(XCwJmJt5?u9t$Dl<jb}9WA 
+[8Dyn@'nYo2L@6%?JuZGj<hT!l'7[?!CM:T6_mh2&?oKoI+yR?X4fc-b6Y&7'P?r5xL#2V
+h:icnLQ{VGN6nbb[.%`@H0Cgsj!g($(ETA]Agrqf%!SHC3k0CgCah6<Xp.RY&v3X[7fOtM
+iX5KBn>0?pt{2j>c9+mUR>Q`LCBseCX*Y@mgDpC5up\x)&SnQ5*aFo8\jyWF,?I&Q0V0m_
+s.3:%.m8`L`Th>8nu`mGioro(;f(;@0q D(m*fVm$0L4TQf(bG n.b6>-(BS3BQNHi'kr(
+K")`e4-2lI'"@0!5i!pbJ) sWqe]]]I0rJq3czgF\[?F+=!PqIDSmL9p$45^"3K6!oiR'J
+(eZv.v56,bcHCX#%;D6j:y4gpnD<H >S#:+=-Nke^=B$5aoR'"/_GlUw6!iKrxS~3xtslc
+3H )u`2P@6nH_}?OgDN4^dP?(HK=$F 6#`\n.u1K`X9<4FNH?S+=l{`XZ}AB[8<qTFIF 5
+L"<|V&;4g3=R3lKv?NjYWDQFc^7CWft7[^O22Vh:.HMX:K6d.^`j89J2 sWqe]dD7CWft7
+[^O2mq*i)0BR` u#qA*_)0BR` [;hfk5K?-{1G1)fQnYueoW+kDeb5uiFqp#tR$-n/C5,G
+f JOi!J'cO^A%=3vGmPE<+^^h|@YZ3[#6jX7,ZCDRoVQ&HrTfihw]W\GqpmXW>(G8*h@?U
+\O[qg&5LIU`/:uY2jF8GA ite3ibJbk4[ZEZjhd3m6qm0>Z8o\rIbe:Re2]JoJ0WUyVaQ^
+5=Tk$3,%0GYoIx sWqe]dD7CWft7GM#(.WEd(#%!u~J)J^hbsKr.+<7&c@4D`2`&::k04&
+A5VX'E5>[Z<eBYmLd{8Gt3ZJ_,tZ`EJVt<c<4D]?p&Tnjgrxt?uyMf<Y/]"Qehb|9Wt30`
+GmD.\J?|NM A&CTAt8b[(70kYoIx sWqe]dD7CWft7GM#(o8j@'(%X*_J\h@?U\O[qg&5L
+o;J%Ul<.^W*&4@)40+Mj[l>QTGs@:t"nRziqfJ/^o[*TX7G'[da4>0?pMV:896fh[qg&(7
+!l@:!l+#+B'?kP,,`4 I;xBnB2Vlf}u6hy7Xr$PO$W19@ JQskPJ$W19@ =]DCDqj=^":.
+<v*_%!\A[$;-&R[8(qk7K?-{1G1)C+][^z@oSDAcE{V Q^!\elbsUo[fAU[8<qTFIF 5L"
+e%A1ZmpGflcmiV\suF7u>X,Wi@=R@A"g!mStbC?ERA\QsWrljd>F^C3|+c'AO"[$Ar.2_+
+FhB*"NM4T6+yZGp%iTJb_nkuQS8AsXMDJKp|O^WL\U,Ph|CWd_ceDV91YsOG2s?$0|jKp1
+'6L,MI==K?PS]MCRtWt1*!%qNk?8Qa;4g3T=&(')%bo/ZIp%iTJb5>u,iS'HZkrJC"DjoI
+@23|+c'Auhp#GQi~#R71/R8<[:K'D])[kCKC5I?UDj`Li]5.o[q}8MA YLe3dbSbPob U[
+iFt#qv;^2Eb_U[ U=+D{v5H \uuFCut[U%=Vh\+ rS8MA YLe3dbSbPob U[3P*]T&nd]B
+p&0J``m6On,0O-p$iTJb_nkuQSn7X$I6olh+t3_e Pb?&x[>AO[8p%iTJb5>Tk\u[$JUot
+Nn=Et@]Lgr/I6m,q>BmF@]v*J^D\6?:t=8a~:Ruzp!CUtWgl5#XDdVa<<4G <C6BRFtgXy
+T=A?exTneOutp!CUtWgl,ztc"'n65=9RiGIdB&IUQ@Hofs\wuFd6Je Q3U-Gcr_rPGOC7|
+Y4jF8GiV'{idD:.<u|p!CUtWgl5#XDFx4-H`3=Ed+/@1Dhg&rxoJ#XSJ6B18g4Bm[Zpn!h
+Vc'hW9v5A`B=b|9WU*hw[,t<12gou[uiJ^t<D%50K+k.'{U{=pA3[{eO2\ukicWuo\rIdW
+Wf@]n?9cK*iUh\.sJiNm*^L2Dn:v:wMj*^]StIYUcAdZOcS03}[Zhfs-Di`LUihso$DS9p
+i$Y(r(o0ZIQFojYs[;!CL"e%A1Zmd;>8IkIFEBZ>j<4h'AAF;Cceg)+v=El|fl>X*ENk0b
+-a1b^[2jkPnE7%'tX7tt)kDgg&rx]Hgrqf%!SHC3k0CgCah6<Xp.RY&v3X[7fOtMiX5KBn
+eCX*Y@mg3GP9StI8W)U&qfq^0>e#>5rL<dToJ?)20+ivTs?U3vIT.bblVffjn"n+@tpd8n
+eyE G&H".{]\t3O4p&:IZu[leO9WDCDqj=^"J>)2pkYNkj-[:-RAA1nA:)@ZX7G'[da46(
+qymCJDNo&~\@<,Ddj=2vO~h.?>Who2ZIQFojYs[;!CL"e%A1Zmd;>8IkIFEBZ>j<BJI.)n
+*d)z,8Q(h>cmIv7jBR[cQZO&b+W{0Gb'+yfDN:RoTYM9T6qY>0?p'pnC.^ I;x]ikw15h|
+0t1SNQiVWD]2FP?R'6<|V&;4g3=R3lKv?NjYWDQFc^<(8`qAs(Di`LQ(h>S]#P#(`&`:Oc
+S0v4mFf}[IG/W|5TV5FM[4)}%qNku~TU1Pu,iS'HZkrJ-Lr5/WRQLBV[0[5RGgi^Wuo\rI
+tmB5jxI{*:1*tq(T8,B&DA6];<jXrIr%I*-1QdI*7{e@d3Ivg6N4I'\[eQQLf5>!J0/.r5
+W?Z&]<BL6IKt[,0&ANWvK*t"\q.q?An_f%n5?0.l"O7"A8K%mme$`EGy7G.bu;d#4TdVWf
+@]n?9c%Du1kH`EGy7G.bu;qPn=?0.l"O7"A8K%oO]'D2g&rxt?uQ1*J}EL4}P8S_`YJH$:
+,&J}j'dKua4U-o@+(cMwoAWu/.r%I*dHpdB5*:qJc2VUFMp$90<;me]8V_jy/.t'r)m#r5
+RZu.k6dK4Tt&`7\YmYfEPs[m];VI-]pGt?t-4TQcc|4TW)`Mt>aTk1:/J,usS_`Y]p*N8,
+dz@<54"-Q.`Yp.B5u{*:R#rch?g1Lr!S@#@-b|TRh3W@?>CQ6IhjCxRo9T6vPO@.<^/m%k
+RanN*i$$Y1EaJSa;uYuYDhC5'5&-V~S.U%NDKO^d#2QTOeS0I'`+6~JlJl?1Otf*s;@ep\
+0&ANWv0"PrUmUm=A+|1RJD(1jUtLYd2>Qv(,D#g&rxu0p%Zk(PNQ8JjMm$cm('X7ttjL!*
+JfR)d5<(8`qAs(Di`L=Ip%Zk(PNQ8JjMLcT%.$,@skt^2DkA\8+YJuR?X1QAlLoziTJb`S
+4j'AAF;CnPRwePS2"5^VFbVwi;;/@RYu9Vi$i8Cx@3uk>X`e^>a"-b"BV:i;;/@RYu9Vi$
+P?GfVEMXLP`U=3D]-W09h&Wuo\rIf%mr6Yca %<wta2D@6n(f#tm6Y#!JuR?X1QAlLoziT
+Jbu~eR0nP4 |?;CQ6Ihjo$RAXVm=dLgJ>]\AV?a%=US.[qg&5Tu,JT8d-Vl65.lr?0TT1P
+Tk$0,% 7$kaJRwiTPdGg.C:-,Mbci`\suFug>=msPMHidHU1+<Ap ?$k iJuR?7sT:8zO1
+],CRtWu:G&iB`ev/h/fVJ[3A5DmykM+C^'FbT=&(ZrB,.$,@skt^2D@6MWKOv+fl>X^Cdu
+r<3]5I3u8PQGKq6\:+_R9d,p_e-}Gkq4BRoX/%A}&l72S%Ng97XoMU8cn/A3B9-.VI-%%w
+(\DNE?Z>]2FSk^SU#P#(`&`:OcsPgqEtQxX190[cr;-$[H<+^^h|@Y+$H|Fa`=7G#O>0.&
+]ME.TVc*.%QL6@Z ^]9;h/>],Wi@=Rf'-YndoI+yR?7s%%R_E=aZBK[clu!{SJ9aI5;|oW
++yZGQFojYs[;!CM:T6_m2`=/E.\@_a/afP=> rWqE=aZBK[clufl>X^CZs#Z.N@H"g$>27
+IFZ/,_h`h]7t.H:3i$crg)q|[B%Pg*+;7u>X,WCZ=d^b13>tWRW|-$pG)DD-]8;d#v0~NQ
+VcK*s!+<!PSk\K`4nPDKgqi>t#qvfihw]W\GqpmXW>(G8*h@?U\Oj!JbU^5QBnANWv0Oh.
+ihFT`=Fp:;6\:+v*eT0nP42rEXg]+bMjYF2,0+BA6t%?idD:@6dbMi*^qThp]WFqsId3m&
+JD5>O;`U=3E.$~N$bPo[Jp^~0P$Jl/0x')j`WD^S!Xr:+jr\R_=WDhSnY:3I'EirMkspCD
+Zu[l! gc:4);!@!|0ahe(Hb(#hSZbCTzE~K4kwCS<{UomO)Do8G}&lm/JDmbTVM9T6u}Ts
+LIca1*dK4T\Ns;EjHrM[9c\dEW+Pn+LH#!itt*`EN"Sg$7,&Dpmhu,+]J\dzB{V/fmd{64
+L[81FsnD4rI~%p5>*Q8,J"2FmL&}1bQdI*dhCj@39W8I>=msB5*:@)tZ4Th*Dzs!G5UT/Y
+"Q:]d7o(h.>]8og5p.sW0es$QF0]6Y:+e8ucGgA"t@6+$*dU:<6\:+18&B=}@xJdrGLssL
+flZT$A6{S,/}?3[2?9Qa;4&Rv3r%I*-1QdI*-1JDTUU?VQ&HZ<TP7F$>6)2GR9dS;8#4=.
+?mfjeTn5[LDz@39W8I3FV/aH]WJW0)+PC TmRaI*J.ohr5S;gVBhpA<7I"8I3RV5aHW3t*
+`EN"Sg$7,&5!T>qpNYt<1*U\L18V10"]&#]SFsH>th<Z/]"Q:]d7[r>Q2k+JM:DyTo`*H-
+bJ6z3>%t5>*Q8,iae;t#JOS{I*Y}iv/+JD.=/vnPmtr5S;gV`F($+J"/&#*Pe:k$pA<7^W
+*&4@.;c".<-,"Q:]d7o(=#tMYd2VM_%anEM+A&(2b(#hSZbCTzE~K4kwCS<{UomO)DD-(c
+Mwd!tie/2w$=27uf3R"]Q.B5R`I*Bfpnua4U\Ns;Ej]g1G%YhM9V^]mVG#$7,&damir5Ow
+43%CQ.nAB@DA6];<jXrIr%I*-1QdI*-1JD.GJuZGj<hT!l'7[?!CM:T6_mh2&?oKoI+yR?
+X49Vt[G4 EHZCFZGj<%=_"O(@ni?<yiCW&#.b2([#17gbf)w:4NR/eB5Dqm};eOgrfp'Ep
+W>C"U"i!heP4beJXE]:+O~beJXE]:+P*beJXE]:+*'O6!^[39aQ2)dDKVia&u7q^beFT65
+);P9JMDOG!q-A<\oMP'fgbKf9,Z*Sk%bY1j?AB5<]yX0Cja/BK[cr;+~.nJ\Fxt/e`Gx`^
+r/C? ]Z&]<n &DfF@?8}6KX8r$?{*lv0Y@h(f+ZF(;uPA{HFDE,S]OJKn_MRVU'6:_h>O8
+JgQ><eToZF(;uP,F5 H'`lm64PS*MmUs.?Adfcq`tNm+[padm7'*PmdN+Vr+Mk'YRX9|TN
+8.Vm$08}Dh*8iOsYW|)`Mk`1Q{*Q>H(@OznT`Y4P[",N""<XeSG #2n>%$3vl+bYCIPHX?
+uSk/uO f+c$9rd$Lfybdh@rxt?ZV(U>Hi!s-B@CKABf_]S7~dG6]#l3vS2n!<x!UKCd73L
+H/i!%>/N8nT'Ep(ZDNGIi!%>/N8nJM3Od:3LY`Tp<oeS3=JuZG%!3vl+bYrXma&DfFU4W2
+@zmyt{h~"VY14Pkb15h|t8"aqIR_W5J4JXFPmA^__^jGt7uQIJOfS0b 2H@6n(%Bk6RAXV
+m=dLG*AHuARG@{-9JJA&;%I\K4u}p>o [k*]>|g3l_1m$y3vl+bYCIeLXM@zmyt{h~*><,
+I"a/BK[cr;%Dl\/*_<?X]TtIirDnhV30Mdb IwWj\{gtc)C\*^lbIE*^bh=uDCH-2J>C.p
+kE59o[s7,/Fp#2n>:YggAB G.l;}Ee3=/^c{-YNDv4EfMi-KeC`2jI]X5?>kezc@5^A EL
+ GQnMluRQD/2f5:uig,9q`ZGo\rI)\.{iPFa`=pd=l1_(Qo2ZI%!/NndT%Ep(ZDNu7U0.M
+4I$($5%}'G?HE31 6AIX<{Hr(0(Ju`F|U)Ed4SZA &o2ZI^Z!Xr:=\;l!>Eg3=p? Eu7W6
+@J }h5NHj[:)Jp`w<2CEkfSJFd*b=WqbD(b?pH-$<Ue:h1NHj[:)m?EX")<XeSI\K4u}Xq
+6(*@-JZI:i)'0k<h;Y$u]&,h4FJyCKABf__cIR.bblVffjmsVwL9A@d^JknF7Br+WXO4m>
+QYu3ePr%;E@B::mr4PS*Mmpnk;T6l U<tGQoo>)G@A<McIW19_#lAD)40+r/]S-Y@mDp1P
+/(De2-`6-Y@m3?hB5Kf_qi;4a[e]mL3O'6 EkQFZeS*#>|Q]1wkb15h|nrk;T6l U<Y\Tp
+\OeO>7mrR>re=4M['fgbT'9T6vHG<Kt{h~"VY14Pkb15h|t84+<{Hr(0(Jr"I_!idQf+EL
+Fsdwf8.M4I$(O@ez7|3voAd0,sn(2_/(u6;p6o%]i"j#Kx7)Yxqe0@0tbhRpuQWbM_+;:,
+U#s|7/_^-*,_`T.8"q+N3vetKx7)Yxqe0@0th.-DhGb|9WFc[oOdS0q[p,SYV;<{Hr(0(J
+1d>E?>\j;$n@RA*4M/bjW)8isNWb.-3?qkjJ=vDCMR9,Z*Sk;8p= Eu74o)s>|g3l_Y-sa
+[hiRo@GPE]:+ ]R9n!TVM9T6u}m{90%*6W!%.<mteC2D>kZoivZvFAXgt/;p6o%]i"m6Tp
+2mnyW>\^'lU]]4:39?Jr<Q%c6|h.RyORt%^RH31mH2Ywqe0@0tlbW1m{90%*6WAER>Fyd:
+>7Bg[8_Tu2Dt1[^S!Xr:M\<)Y-hv7=Kvt9m(O6m*LJ"F9oTYKubNoh`pm6^Z--VI-%`Z!@
+.<s:R_=WrV9hi^Jf3=H/2J(m*_tFbi.<mt_x5YJ~<c'5gK[z@3R7LSPqR;s>rW$3Y1Tptg
+9?\w<i]TtI`|;Mr)WbM_+;[m2e(TQn4+v%Y#+GMyo[@=u:@if_"TuRZ~7t-?hGb|9WFc[o
+C?9H=A67Yxqe0@0tsIRAXV8hW*d-3=BiTi[neO@:tMD/Eb(#%!u~A&'"#0nDQ`0OQg%@Tf
+ZF(;uPm'arN}I6)W>|Q]lbk;T64.<,PY3()|2tRGN%<),`Vn:9b :R5CV^'mA}&l72v52r
+6t&eBa5>>kezXUuNuQWb.-D0tWu:0`ukd>q.A<*=^S--VI-%`Zt/;p6o%]KD CP|mGs/-Q
+r;sIWbM_+;[mEa7~t/s2G C}00ukd>I\K4u}'6gl*qX8r$?{*lv0Y@h(f+ZF(;uPA{HFDE
+,S]OJKn_MRVU'6:_h>O8JgQ><eToZF(;uP,F5 H'`lm64PS*MmUs.?Adfcq`tNm+[padm7
+'*PmdN+Vr+Mk'YRX9|TN8.Vm$08}Dh*8iOsYW|)`Mk`1Q{*Q>H(@OznT`Y4P[",N""<XeS
+G #2n>%$/N8nJM3O:oig2o`bXzP\8-S@'Ybh^DX&A]R46Z#l>aupKw7)H#9f_Yei(c>Hi!
+s-QX&?]WAL\.1M\p[kJ}I"?m8}$$Y1TpFyt{h~9}/\c{-YNDl&bYCIPHc*3=mtR>Fyd:>7
+Bg[8j?`A27XMs9 2uf*G$y/NndEf3=/^c{-YNDpnJX<Q%c6|kQp,;9iJ#ueyid-),_`T.8
+"q+No2dWbslzSmPBr;j#0}6AYxqe0@0tr(TJ,LufY#+GMyO;_pm,:/^@X&A]J,H&dwf8.M
+4I$(O@_\2Y8yu7;p6o%](A)40+dYbs2lBam66 Jr<Q%c6|h.J@m'ZV0+mLVDaQZPit^\CZ
+Tr.M4I$(DU_QrQrk>gi$Y(.Jn6RA*4M/bjWO`G.8"q+NidJbU^^\C?D3Q_&?@:R7LSPq0a
+-so2ZIF"#-'9\CY<_x5YJ~8/avN}I6Tbgm`A273|4b$y/NY/kRFZ?=Qa;4&RkHu2Y#+GMy
+`lm6`<g DjgrDyjE4)Ti_2gNu2Y#+GMyo[FZp>/**_#URlV!jymgSYV;<{Hr(0(JU`Ozbh
+gCZvFAXrt/;p6o%]i"o@^o@3R7LSPq[leO=vBg[8_TJ']BfOma&DfFO.2JSx+e:0RcNn2p
+%>3vuNcc.o#VR9=}1BVQ2VfMj'saVK4C^S--VI-%SMp.c3>5SMp.J:<{Uoh*uKf{'&&\`3
+[X`Ot>aTA/]w`#Yx5IO4j[#K<XUCEp(ZDNu75PX8FxBaJ3;`+$P;5OW}Dn5CTi'zDu1[5?
+rVO><YeSI\K4u}YG.JX`A``G.8"q+N.ApGny(G<,3Ls:R_CYYTDrr](a(T4)<{Hr(0(JiD
+[Vr>js_\Yxqe0@0tsI_R8n&T`=MZ)(c=u8;p6o%]i"WDu'Y#+GMyEQd%NE=[m6@aAi2^<{
+Uo,n)60+dYbs.FmtR>1Dd:tM>)DCR?X4@]n?dnE=@-b|IgCFp= Eu7U,[ZN[]#u2Dt\f]0
+[.2JSxH"'EX33{3~#FFW`=is;4Qys>Ej]gD:g&rx1|kb15h|t8n-*VqTK3t'9?.kJ\X0?I
+uH@25;u9e5IP@6dbMi*^qThp\XBhmzDKViJ[s+J(G~'EX3V~[Z]0*]:07hA k6_;r(h}7=
+u80`d:@:Yd2V"O7"A8GmCV6IKt[,<yiCW&#.b28SFq#2n>p/Mi<)Y-mzDKViZ7J']BfO]Q
+[.2JiNib;4Qys>i^M;VX^zetZt9Vi$gvD:g&rx\WD:WJ?UWR]0?2[2H"oA" n|G}i;;/@R
+Yu9Vi$gvL(dwA1nAUtPCHi-1Qd+<!P>6]8CRtWJ/usS_]p*NqTRZk4dKPh+R>chGM;VX^z
+n]mt6YcamVAE*2SluKdxD;2Ir;tmB5jxI{cO>!J0/.6YN,OCrcE<mzQxX1QAlLoziTJbmb
+TVM9T6u}Ts$3,%SZOBHi`dib%>X3V~jy/.]@ZX$A6{G`g&eTM4Q-dwbk4D\N]4XUo{hL9V
+_^>=mscpM4Q-g,e|0bP4d,=uoNG}'E\AV?a%=US.[qYX!zSZbCfL5T*QqT:B-36Y#!\Lr(
+h}7=J-us(Trho|-Yd(tiJ\5#lrTe:FM3Q-CV:uibJbm66 U]5LM80ad:@:Yd2Vrm J!mYz
+5uVIX0[&GY!W^}^|8S,WQ(Ng97r9A((/R[G\t_2DkAW|s*ilg,rx)DD-R?av-5+B'?kP,,
+`4 I;xBnB2Vlf}u6hy7Xr$PO$W19@ JQskPJ$W19@ =]DC/}%FkHijC7[DJru([kj=P_GO
+2J>C.pkE59o[s7,/7>T@/1'HEb*\Gmtf&'^S--VI-%v0`gEVrH]PtIJfjDjy<{Uo]?[qg&
+(73vI~3~A '"Cpt/ijC7ov.j:0X)U+bQ.$KE>QTQf(bG"0BMI.)n*d)z,8p$iTJbg`p*jI
+_+Ja6X^^iMWuo\rIdWc<4D#u_"XRtf!g9MU&RSNg97r9n{&0=//M6m,qnrW>[ZB{s"JUu.
+rB6Y#!J%ZnSl]@fO@RufsyAB^E+*u6ZJr!Nk2J>C.pkE59o[s7,/*^<2^W*&4@at.$&@fR
+-,A -9*aV:[Z4qZyDLVia&u7q^beFT65t6ABXDE;e>I_-J!G9Mp$iTJb5>0GYo.=E\5_&}
+(cS_nCG<k3Zn+/av.$&@fR-,A -9*aV:[ZEZ?]hy7=Kvt9m(O6m*LJr6beCqRoD_h_A05]
+7.`;OcS0G%t-PhFMABtKFZX7G'[da4>0?pMV:896fh]\a0Pmv481XUO^et*QqTgO$3,%DA
+$ <X/M6m,qnrP{r0T5GQs JUu.rB%8J%BxmLd{8Gt3PhaH*PD9h6JX2J(mn+]@eCD;@'Du
+1[f oVFZHv(/h7JX2J(mn+]@n%]8[.2J(mn+bei!ZCFap#tR$-n/C5S.[qg&/^o[U_p:'"
+/_Gl=c.T.hfCY08ct<s.^#fi5TXwrQqFEjs}G}b .$nH*Qrh`-3~Nm<)fZ5$O;n/ZI:8n/
+A3L3\A_a$vPM$|&,*d/j2E@6]#tb2YpKUj%]/_ufH \uuFCuU\u [kADtKFZX7G'[da4>0
+?pMV:896;]DKVia&u7q^beFT65t6>_ml'BDu\f=a`TJSi!p98?5=o[h<^KH!uDM1G'r;]D
+X#o\<St/a]ZrY7`< I;xBnB2Vlf}J+^qL^`T@-4$u9r1tE@)@#X8EWmzDKViJ[@~k6_;r(
+h}7=u8a}(@d4@:!l+#+B'?kP,,`4 I;xBnB2Vlf}u6hy7Xr$PO$W19@ JQskPJ$W19@ =]
+DCR?B^?vK0+ '7C'&lGB<ye[k]hSH3CFm"^D;e`ihEL~dwA1E8Z><qTF=B.72sfUdi3y13
+O%_-B7-.VI-%tf@&?p&m-~@ h3e?DmSIT2tG1Oj)Dr%Qh_ta%zTFe:9_,8+o[S^~s:8Sit
+=B.7HI<'jA k>BK"]8;d#v0~NQVc87pgI*`dEV&|&#o$g:rx(s`=my2O@6-GnMB@o[E9Xw
+!zSZbCfLd##:I!hZ-Ghy7{>yQm9|_Y(l\ml{R-7.PsKymCXZ-%ZA]4DMW)l9)\J7UW\xhF
+[aOxQ']4IrW)WD,;(o!$n|I[K4u}4I1|kb15h|t84+k/kO`,;t<u;+h/J@TnQ>EL)`;d*I
+W`hUN4I'd#*%EWIK +WB3AWIE\S~m$tj8VudJATnK/DaANWvjyq`Z( o+cdY,=JGg",hja
+8/r,p/gZn%rVC`00Gm3=nB]A.qKUCqa/BK[cr;!`"~Nn:n]{udJATrK/ Q]$D2?6X}kO:'
+Fc:;6\:+-K-Ke>I_uf:W+EA(+~ ^.<E\g]<eTo`*H-bJ6z3>;BNc<IlA<_FsTneO<EA6<_
+FsHlQ0-3/tnw,',I]luFN`FU[o4r9RtF8V4YTiXkbLY@mgqY,*:G?igY8/8rECtW',m(AI
+LITvH 7Gf+X)4rfrd7b[Y?q;YJ3I_Q8WQdS%rVQ.Q?[qg&sz#:k6_RX|P?J>Vfh{[I!if`
+`49`<63LYJt*`EDLYMUWcfPK3GHq;d*I-6_8o\<SQ]ORI23=;BNcFUuI@226gq7}sECF;i
+QO`4fmqZ)70+sh7{o2Re,Cpe<M<63LYJDNW)S0+j;Y2GQ8*aFoqcWI4r:LH:i$Y(-%(oU`
+6,:K4 Vnn0<$*InTm673i^8TJhe)d-Q<sM3[jsANWvUWC?EQb+39qkN FS_s4yf_R67}gY
+8/]7uFN`FSmA4yf_tLK/fkHoE.pgG88J26%|8SS&DLW)/Ld",}1fQ8sG9FudJATnK/I23=
+i <d)djsWF8q9RtF8VcjE `Ll@)\Z':iQO`4fm8v_]4yf_-?m_Q9sM^f[q;z:k\j,hUWC?
+&U>'!`7G-Gcrs@Q.Q?EL:k\jNJ3GWIE\I4`^gD,H9Y<6^W80i^8TJhe)d-Q<sM3[jsANWv
+T6C?J6Vfh{[I!if``4Z!Q@ELb+39qkfj8TtF8VDitW',m(dL+Vcys$Pvrd )WBq`j<k9nQ
+%im(dL8K+~I2]\n"j)e, iWOR9dWa<,$tm1b-t8gk5nQHlOfS0DNW)_pWjfEoV@|Bq5>pd
+oVuQ8hs~Gm,Vcz%be+<eJi+ym:Fa<C6B7+.C;QNc<Ke:Fo3=;BNc<Ie:EV1g<e)dHu:k\j
+qZ)70+sh7{QT8V8lJhe),=pe<M_Yl0)\9F\.d7NG<fW3Dn,:,F5Dm_8\'zm(T<pT[q;z:+
+1_5+fNDM=d tC@QS<Z/];QNc<Ke:EV1g<eTo>uQjforxt?uy@f*<1ZjsWFQ*rVQ.S}SZDh
+`L:nEch*-TNH"O<G)iI6A \.d7NG]'0)7VW#'1)h1ZjsWFQ*rVQ.S}i 7{UP,hJ3WFR9&Y
+YN-EiPt#A&<_FsTP9~gqmt-Jq@Ox8nECtW',m,AI*<1ZjsWFQ*rVQ.S}sj7{UP,hpY;b<2
+3LYJDNW)S0+j;Y2G`'g <`FsmA27f_,:5Dm_Q9sMS{i 7{QLpT[q;z:+1_5+;(&Z% Xn3S
+rLb hFB&R9&YCx+~,}tm1bQ8`4;bqzN FU_s27f_Tx d+cQnm$tj8VN5A%)<O`H|b+39k%
+UWC?9++~I2I(]\n"j)e,I2 _tL%im(dL+Vcys$si7{<OTn]1uFN`FUmA27f_WOR9O"<Ie:
+EV1g<eTo]4,hEI:k1_-6_8o\<SQmOR:o)40+sh7{?j2dU^-ESz9m,&,}tm1bQ8`4;bqzQU
+ (WBq`j<k9nQPt_O4yf_e)8K+~I2IT]\n"j)e,I2!,tLPt_O4yf_e)8K+~I2Q0Dr`Ll@)\
+HujsJ.UWC?1#i2m6lH<_FsfJHlQ0-3S|Lc/Kcy,},I]luF5'9R-+&cm(QYrd )WBq`j<k9
+nQ%im(dL8K+~I2I(]\n"j)e,I2 _k#N FSmAW@8q)40+h}7{?j2dU^-%Szoc-ZNH"O<G)i
+A.UGeO<E&;:+bAfmC?&-Q>*aFo8\IfR6/uhy:n,(O|8n,~.n5'9R_-P?QeDLS%DL'e8We*
+,=ZWJGg"v)Ub-3ZW@A9V7*Q]7.q}si.6O|nR85]7uFN`q`)+]seiA<_R805/BaQZ]'I"nm
+sf/s3IS@XLFx<^7,q}siS{orV^qZ,*O|X|P?fz,hT6bYfmC?,? m+cQnm$tj8VN5-%N=me
+q><M)cfoid]x4YkJCaft)$h(1hb+Hnb+EKPAfz8Tj|WF)40+sh/s@v9H_]27O(WFr/R_X~
+T>sF5(:kA?g:8h.=RyLC8)9{sECF,:J3WFm_C(/ZN^FSICT?-%iP4xf_-Gd"o8DqT6C?Hk
+T?-EiPt<FN[o+T.nJ\*R)_fof!]xe*FQJEWFu|50:Gtn`a'e'G5>pd.uQ8sGsF9FS&H$*I
+en]|T#rE!?rb6s[ZWSOdS0I'd#6u0O`6n=%@:EicJb,Ujyq`fE*aCIjxSBRFAPI~Y\Z6AO
+Z/]<9/\J[&`b%O(\DNrljd>F^C`qo[Tve1WD]2FP?R'6<|`p%O(\DNrl>(9@[+[&Oj<pTF
+LBV[0[<CGmAQ[c2[h:.H""$]Z[ H*q'(OGVsZ-C\=d^b13kb15h|h,>]ithy6b(#B'u"gf
+E:>0?pMVv*_~BisjABkRv"G]O%0O!7s!XOol57o[TT0-3Ib](7 [t[ItGu*[GmeE(&U*lI
+O6 =X8iwixkb8F[:]XqvSoC]sf7{iDDz]XivHz:.b?3:hBNEF`p$]:\Qqv2f&[m(>f-,d"
+]Nn%3Pi~8nQ_s$nz4xf_`6gPW)p]ZO)<]f1]<)Dk\~C?ipDz]X\hX6A/)\o<723@s-4RXE
+iwci0}4q3f:+\jEZUWC?IdUSB5gAGMT6C?k6Cgf_sIC_2Y/a?r<+DkT6C?::]ZF[0y1`Cx
+@3O-Q5UAY@mgu,dvUH]'gXgf<[OA: i^S/QPh9YLQ'.85J5J,AXK<cq~JU7`:ei^S/QP[$
+<c+xjW[q[uhf]RCVGb@-R&qF<;^uBKI.)nugsRTrlIO6KHuHhC/hb $|iAUT\Ru [kEh`V
+me'sA "Nokq@iBJOi!2s@;G{O%0O!7TTD~E$L++F`]iwdzBuXBl9)\Bo]XivdzDg-7d"]N
+:8RfDg[*U"S`_fT}-%iP2l:k\j4qetjS:0TF\h<#q8OxrhVc)_IVDsjG^fV{T=C]Xk7|iD
+Dz]XV{2g&[m(>f-,dN]Nn%3|i~8nQ_pYg`DMW)J7sf7{k&sF/+UHY/h{7{tO;AOz_u:a^Y
+G8rKTNC]h{7{Eh]gR?Q`qu;W2GmL8OcgfbYMJW0)8JHz<62GmLAxrfYMWDXVXVC<<VOd;o
+<;<;0yI8gq`FS/I5Y6)3W`tFtG9,fX<62GmL8OcgfbYMJW0)4MY6T>qp,7C<<VOdY8Cb_e
+<ZOd;o<;<;0y1kCx@39W_e<ZOd;oo8ZPiw.FJu_,hJ7U>'uxGN>0?pMVv*_~BisjABkRv"
+G]O%0O!7s!XOol57o[TT0-3Ib](7 [t[ItGu*[GmeE(&U*lIO6 =X8iwixkb8F[:]XqvSo
+C]sf7{iDDz]XqvT<NHFUZN&UmBiqD?BmmXEN-7cy]N:8QmDgetG"]gQ^-)org`IrW)J7Xk
+7|k&>i2YE7C<X2iWCgf_]KivDzC<:7b?39hBNEF`p$I&:T]ZQ>A|IcGMT6C?k64xf_sI4p
+dKXLn{26f_`6gPW)p]g@E3?C_eX6iW26f_TTD~jU8nHzXv)3<;gF1]YFb|gf1p?rYH7q@:
+O-SWP7]'5F5J7d:ei^t<JU,=8+YLqGrYe,nj<esntGBUrfYMWDmL8OHzY-)3<;gFI5Y6)3
+Js0)AsrPYMu"u>1:1kCxCF]Z<muk>XI\K4u}S ,W!V/Kp%YkR6_?<1]v.MTA;C=Nqu]9gl
+QlorDqUSg@n(dMs$2HethBidC_>iDA3>e_YwDx79?dduq|'/m(rf2H:+\jIrW):oQmh;id
+26f_pV>wb=3:mgnksF7{Y4j&RA:0Xl.f]/8-.Ad"o8DqUWC?Xk7|U`/7ZA]4IrW)DqZWVc
+)_D1J5.[iPJc\qVcbJP{D=Y-T6\xhF[aOxNDF`rfgPg9>xb=39mgIRT?/7iPC_r/mA3{I~
+p{;he/2w$=27ufeNRA2pr~u1nXapiU[4ugdj4.<{kE>.MXI}K>-@N=+Q,IQ`C?,)u'nXap
+:fJirG@wZ@`Ot>0K[&`Ot>0K9D]w`Dt>0Kr-[9ugdj8lsxf{MLIBv%nXap/;t]d,CZ\^'l
+8`\j]4o`90)HIOsMWb$c4gf_hF\".MEb9q>yJerG@wBx<{kESc`6.MEb9qOz28iJ#u,@iP
+idrzWb$cresMWb$creW)ZWAn<{kE>.EPtaf{MLIB[6ugdjo)[6ugdjd>bsB&R9Q`7sjX[R
+9a\=/haA(-Gml6.Lolf]!V+S\5E;/1hqSJ/_TJ8Q2b=/p.f{JchM41dY2w$=27ufb_:]l]
+4MlNXi%}*7EW#=-52tTiH/bJ6z3>m$0v0X@eNE+a!glDDV>xSL"lQE_}\mFx/}V0T>d7t-
+XN&5iJ#u?sO{]sH~r#nBXKOw]sH~r#`,e:A4e#I'Fl0d iNH'z'fcXh9fMO{2h2kKxmCXZ
+7?>LD3XkOwNDFlrf1Zg:>x72FKe9ItT?19iPb^I'3DSMfz,hIX3DtNb^+TPzZ=Ve)bJ7'%
+r/9%-HXiOw]s19SzQe<4p,R+PFTP5{Fa<=+_ZA8vSwf_s1WYf_hF;A)ZQ^1YW*ezQ|#5Rl
+V!A?\j8v.*s19%W*ZW?l,H'%r/9%k$mg:?dp,}Y6TpFQ(KSG[M72%p sF2bl6JR2pdWDTi
+O"<bVkuWuim!WRJ4qPrYrY;^#R]S*_I;i/m6J&Fq3=RyLCXIFx/M6m,q>B3L%,-5<fTs&3
+7 FK_sSxf_TxU9QS<D7{U`LsEY7 3FtN.*Tx\CA0O{8ns1nBBu.81fcrA<O{8n.2W)/Ld~
+,},I'%IXW]Qn<D7{>ySgZ=UDEGX'Qe<D7{4Ojoe'C?Bu.8Y6TpdWa<\T+TXiOw]s19SzQe
+<D7{4Ot9bfC?m :g5&X'EYm\%imZIQ<7ey.!<Q_YEI0aiP%icXs$C97}G:HZ_ISps%+TPz
+orfSO{5+N]4kfy+TPzDg'%N}Fle9.!R'F[5#"(gc/IS*Mm[9J:16dY;8#4=./]OhH$MJ!`
+9Mj[Q;fXb75iB(.::~t=7ud>_xY@:dYL/ECx</^W\KA5L/'1(GYMowEQU>,hN FS_s4yf_
+R6DLW)/LdN,}7,Qmor;HOzX~fzX5r$Q>2k.90fgo`F($PAY:3Ih{7{b=3:hBrx.9cyRcsj
+7{3vhu]wOiEXeCN`$1]'0)7VBVYIeR26f_;AOz]3uFN`F`mA27f_:R]@h&Tar!R_Is;'e:
+t#V[L2Dn,zd"2C>O\jOdS0IsW)/tdNbs(v8n<3F=t29?ChX^[e0)7VBVYIUW4g9R26f_'e
+mBQY7uk-Y%e-<\TogPW)/t>wQ]Z=Ve)_fsOdS0gQW)/tcybsh6p 4qUGOiPC2m.90n<de6
+t#l1L/'1U*Hob+39k%UWC?j|l4/*shV.T>q4Ox_UEI:+\jNLFU8l2I@6q;Ox_U-%(o>9]@
+sJI12\5#p>/*h}V.bL`G($O`Y:gQUC,h\~C?N}FS8l+zEV<RAMYIO|-%>EQO7N3@tN26f_
+?Ci$Y(-%>EVt)_o\$Pk&,'iFQLHo1Z:+1_W`GSmpBe)>*QjU2j<2s~:0);,+'-XZJ.'~8>
+DBnXK?RUama_cc:)I3CFk0uKCM72N_+bn!/DCx</]v`M@-4$u9`'mq-$4O4^&3etlG)\J7
+T6C?s%d!T?Dhp-I&gBR6g?'emBo7h{7{rE`$mq-$C>U_]9fok!US4k;h_HEL:k\jNLFS8l
+n)Q.g?'emBo7h{7{&yY1J&p;N^MvF\*8QP@3DWXvT>S0\;S+u1A{9|i^<XeSTQrW(\Cw</
+3LJqhZ8^mH8b EN}uS1mU<,"3I1s5+,5USI'k%9F_YiMC_9+G~<u9+jjJ,3RO~n%Iqb0Z 
+Q@EL_HJ1\zj!1cN=H~WQZlFcWLK=7NJiUC]Pb07~bv4XTir%,cq`WQ_*.J,UEE`1TsX?)v
+evhy[kd7^W.JC+9UJX\)azU[ZcLN`&mq-$C>XDFx-KsrTfT3q}&2T#osYkR6_?iN1mU<,"
+3I1sH>mH8b EN}3I:G3n\~q4QR:p-?:))CiRj$r-XN.7_(.J,UEE2Ce,sDN*O|Mejg^L;e
+`iVq:Gg:P&owIqWOUGeOmF@]Y5Tpd#`'mq-$C>m ?h,Go<p]j#- WLFcWLK=7NToc)Gz26
+V]rx_-.J,UEE2Ce,>gV],"@~s%IbCG?6X}kOfSX>qJ)ge6sd_o/j90#->ve9FohBXiN+SB
+fzeO[reO:Sm:2ME.j(L^O,n7_!OHHLCFmrH:qA=1/]Oh$CE.ojFM-JiH8$bnfTh1,XVc#(
+(#f9Gl([pyfleOTQR7mi;"W=OGmjk;T6+ym:jF8GYxDx79?dduh[SIT#d7t-_RDd!z@:Di
+-`q;Ak_]bX<*3Lb9>55?u9f{ND')7F[!az]WT>d73L-$3|A '"r?f{JchM9V4qU<g=P&ow
+Iqb0msI"i!p+Mi<)fZ90t[?40'sHHd:T3n\~q4%~TomtMj8i.=mtp,Mi<)fZ90t[?40'sH
+Hd:T3n\~q4%~TomtAB]l*]:07h.MolF]`=j~l_3|o<gOb07~FrTr*ah.G~b .$nHWbuHZd
+S.Ic4BXE)viZsdN*eRf!azk#mzDKVi`13][6^zY(n%g?iW& )~evhy_[Ts*abh=W3LJ)Wj
+6t@:Di-`q;Ako<bs]WT>d73L-$3|A '"r?f{JchM9VhCsDHdP*megOb0mtI"i!p+Mi<)fZ
+90t[?40'>kjql_3|T6;>&!TsmtMj8i.=mtp,Mi<)fZ90t[?40'>kjql_3|T6;>&!TsmtAB
+]l*]:07h.MolF]`=DxHeO~ovDL7%8%G#Tr*ah.G~b .$nHWbuHZdS.ZPpSqJ)}e6XiN+eT
+f!azk#mzDKVi`13][6^zCR3nUS:]&!)diZsd_[Ts*abh=W3LJ)Wj6t@:Di-`q;Ak)'Z'Yf
+3ITiFyQ>r(]@fO@(Ty=ZjXg^GzhBsDN*O~megOUCM`_pe`hw7=J-G<@6G`;ziX>gjq+~3Q
+T6;>I$jx(7rEFZeSe`hw7=J-G<@6G`;ziX>gjq+~3QT6;>I$*8rx4"A '"r?f{JchM9VC`
+DkHeO~n&DL7%mzI"A J6mzDKVi`13][6^zY(ovZNpS%~)he6Xi_\TsO6jgJX2J(mYv\PdC
+tiI;:T3nUSq4%~)diZtmI"A 9e>X3>5<j<5m2ft{h~uICM72N_+bn!ZODz)<.WmtE$L++F
+`]Fxv$HfJ4Wj6t@:Di-`q;AkT2dke,u.rB?h,G4F9H26f_'em,QYpVQ.pfjs1LiJ#u`TiS
+;Al@cX2.SBoc:figPtI%+Vcys$si7{1dp_\m:ik)#6RlV!<{2LVgZ|mUH}WOXDFxv$N,J4
+Wj6t@:Di-`q;AkT2dke,u.rB?h,G4F9H26f_'em,QYpVQ.uSpTSpDd!z@:Di-`q;AkT29`
+Gq-CDs8J_]%jm(IQItW)S|sJt<QosJKwmCn0RA:0Xl.fHz*7-sY4Tp5PUBk5Y%Po=[irNR
+_ISU7nqtFo5;J.hZN4:^,KT6C?N}F`8lsF8lsNpTT=Dd!z@:Di-`q;Ak)'9fGq-CDs8JrP
++Tcys$Xn7|1d:i\o:iUS#9RlV!<{2LVgZ|mUf[WOXDFxv$NBJ4Wj6t@:Di-`q;Ak)'dqe,
+u.rB?h,G4FQnDLW)/LdN,}jw- tqjs2EiJ#u`TiS;Al@cX2.SMoc:figPtnj7*Q]or;HOz
+CIUSnT:uUS#9RlV!<{2LVgZ|mUf[WOXDFxv$CA<ZBau>rB90-(<F'CibW1t%3G*]5'D=7*
+XJ&5>O\jbY3:WQ]vCHUTj&![dQf+.MTA;C=ND(P;,r3xQl2I,5tC%imBIQItW)S|>ms%d!
+ZQf/?5u5f{ND')7F]SCA;g<23LK"1`YJ\KJ^t<Wb&S.3NlDpfcJ"Tn%>U^]9+Tg@N5/7iP
+lG)\fsj&rD-J]\5{Far390-(<F'CibW18ie^m+:/ce5(7 3@k%UWC?m_Rmpdsz2(iJ#u`T
+iS;Al@cXhBORd-.<mtpntEZ~&3U>8v4xf_'em(QYpVQ./Mj#QlZ=jyN1ZADs:oQ]Z=l;)\
+fs,c\zj!<N[]Ox]s-ESzEYVc)_q~8VS&Ia5{Far390-(<F'C4MDs8i4YTitg:!Qn2I,5tC
+%im(IQgRW)S|XOt=m#:gOz5+T#DhezgB;BOz5+:+1_k4\n]r8/N8/7iPA<)\fs2):k\jg@
+e)l7T=Dd!z@:Di-`q;Ak_]bXR6<ZeSkH9|Qn2I,5tC%imBIQItW)S|>m`2HmZQC?DA&1:i
+4SJ7UWC?&cmBQY/MsDp,QZ+Ud"s$Xn7|rE:'Q]Dg9F_YDhKxmCn0RA:0Xl.fHzigQS#Mgc
+eOuNrB?h]M |tq90-(<F'C4MDsj[;c3LRyU)bQ.$nHWbuHZdS.Ic4BXE)viZsdN*eRr%[k
+j!=VT@OQ<ziCm<JD_hc*GzhBXiN+O~me3O5DZ&RAFyE#Bo+3ZdS.I'`[jqtmI"S%`XELsR
+Qi_]TQb94stcc:1diP\uXUDp`LFZ+ QEUlt28/_YuYI&`[U<OC_pe`6F?30'j'4secf!Qj
+b94stcc:rEp,_ZuYI&`[U<3GP*uKZ.o\<S'5gK4s9RkG_ru|Hf1#h.d;3L]\r(h}7=J-G<
+@6G`;zetXI\y,!3}UW[^I"3R(7_:J']BfO@(Ty=ZjXg^G"C_DkN+P*n&DLjxeT%@o2m8Tp
+>m(cMwoAWujypnHYTrHot}r-K!7&P9r!sen%v#N,m_3{]PR1OdS0ZdLNq[gEu|8VS&`XEL
+sRQy0bH>(cMwoAWutc8/I%UC,hpnj#4sWYJ1eCl7UTuL,'S}oriqd3b|9W=B67kH_RuYiF
+r-P?-uAD=LeS]vqZE[g]+bK jypnc4]Ws JUJ#;`sRp,*IZ+iv9uJeh2rx.9#Z.0r+K!WF
+`YkHbeh68hotm8Tpfq`.ikC7[/eW.lpGny3|o<Iab07~FrCgelazk#mz[fN[t:nX`LoAWu
+\z]P_M7~G#26V]r(_[0O`6eOt-G}&lm/JDU^uLm`_\TsHot}s&K!4Nen`;9RUq]sgF8tW*
+9vJeh2rx.9#Z.0tmU^gFe)l7\{uLm`d-i!p+-Yd(ti`2UrpVuQ4P9RUq]sgF8tjyeCl7\{
+uLm`S|oriU<:2H@6^H%Ov mAq6iXUSgF8t(A@+mrJ&3~Nm<)fZ90t[?40'XM\yla3PUW[^
+%~U*UlM`_pe`A8'"r?f{JchM9VC`DkHeO~n&DL7%mzn+uQ[k<zeS]v1G%YhM9V_^Urq73O
+q`seovv#NB*<mlq6iXup&Oe*GxDj.-)40+?4"gm"XUudQZ/uJ{k%:x-`AFp\1G%YhM9Vs2
+T#r*4P9RUq]sgF8|IxS&5MERXWQz7}faUk]/uFd6L!tD/6N=gFsIUq;Ablk#Tir%Q>JAWj
+'Eu>s&K!4N]S\IqpmXP{5OERXWAjivBhs-\/[q;z<u;+U>uL- ubv#0d\R9_CM.MmtQMr(
+h}7=J-G<@6G`g&G]4pU<,"3I\~q4I"*8rx4"Nm<)fZ90t[?40'>kjql_3|T6;>&!TsmtMj
+rcF[eS]4VI-]pGt?p,*IjwtmI"S%`XiPupfc8tjyeCl7*IERsRqye)GxDj.-)40+?4"gm"
+XUudfce)l7*IERsRqyB&o[H%&lm/JDk4pnm^_\TsHot}W2p-*IUBn"k8,hpns$K!1`fuC?
+g.Uk]/uFd6L!tD8/?juwCAIdpnm^d-=u.Mmt>zt/DNVi`13][6^zCR3nUS:]&!)diZsd_[
+TsO6jg`.ikC7[/eW.lpGiTP&n%g?b07}G{4xpWmtMjrcF[eS]4VI-]pGt?p,*Il9G m+q6
+P?]sIhNB*<mlq6P?]sIhNBm_3{]PR1OdS0ZdLNq[gEu|CAm_q6P?]sIhNB1#rx4"#FFW`=
+EYsR&NUDJAUD,hpns$K!1`fwk.,hpns$K!1`fwC?g.Uk]/uFd6L!tD8/?juwCAIdpn,}d.
+i!RMFy:8]o\K`4XzIh_skHe(D'2M0+BA'Eu>W2p-*I+Xit3I]PR1OdS0ZdLNq[p,*IfskG
+pnbse]0JW`1#d:3LtO3=-,OhJyZesTU+tP+$*`rku(\H0S_"-5\G1cRcoS9d'oe@,8)A.W
+mtjhs s.^#fi43[6^z@oSDgIeO3LmteCtFXyMd81*_9+26&c8WW*)zKtQ`gYG"C_DkN+FS
+)}:k\jM`/LdN,}?lk]WRrV)giX>gA()\8%QmoruQ_oChf_4Xhw.;mtTptg9?MjUImSgj8G
+%jrMgPe)bs,:`!9":dC^c.G"Cgf_b039e_rusi7{1d8gEUQCgAiWqK)g>O\j[^Oxr(b 'e
+m,QY4R2^TiFyeSTQrWfibXW3%?,UUWNLWQf_P(a%8oiRP&n%g?b03:P*/7iPaz'em(QY/u
+py;h]Ola3P\zq4Ox,"dNGxJhk#T6C?UGZ!FxeS W]$Fxp>W><{UoRTV-^Kt4Wb&S.3NlUA
+]T-%)20+BoRQs>.s;}>^ml/*[0iQJchM$!b-`tgCS/A@9)26gq`F($PA]'0)7VX,Dn4XD3
+<{Uo24pO@tZlYhTptg9?^CIR]I+/ y?#O6RApd-'_ekmR#0$/kRLdt@HD[NBQ(F\eSuNrB
+DqT6C?sf7{_ZJ1-'cy2C>O\jIbXRl9)\&SmBT<n%Dq\~\xpV>w723@mgd!h9DkT6C?sf7{
+4OER&Sm,2&iXid26f_;AOzH~tN:.QmDg\~C?XK:ob=3:mgSpZAiXCgf_pV4MER&Sm,T</6
+iPid26C\Dq:ob=39-'d"]Ng}DkT6C?Xk7|id>xb=3:-'dN]Ng}DkT6C?sFDp:o723@mg>;
+o*2E:+\jg@]SXRl9)\q~ZN_le:1LiXhBid26f_]SW)ZKYfe3db>-mrTpFQUhqsBxMNO(@n
+:{=iSTlM@+D@k<QIaIZ,(;/JFF hH!e4'rPc7sd>3Ls:;^%4itr\;^b+J0*LFo[oS010+J
+XM].<i+J7,g3;B1d(oJe0)*]]Oh-<rMj&::k76fsC?t``EJV.6T>XOl;H{tN26>i5!u?<L
+[]U^808r26&c8mN5XPVe-sY4Tpr%qZ]S.M:wdE,}?l]M |tq90-(<F'C4MDsp!R>FyjxFZ
+eS>7mrTp=2eS.G]\<mkY=1<z/MS*cCbA,Ki@/}K%t/ijC7u?rB]DX#o\<SC^(c0+D+@'Du
+1[`5nPDS9pi$Y(g=1G@6h6M;VX^zgvT3a5FEd)KC^$$A6{G`! R9EX-:(X7R>%^ASrmGTV
+M9T6:v:vTFs@u7Id4BXE)viZsdN*K8Lo.k= 2kukd>mD&Dsssfm io7TEd5<T@9{[8(q*f
+Vm$0L4e`hw7=>9t/DNViu>8mtw=@OCC$iy=VT@oqo{-Yd(tiu?8mtw=@OCC$iy;4Qys>Ej
+3=hG n[nG22$uT?RZo!^AGnED(tr<#SZnCG<t<kJG"P~Ng3q"^t,gB/]>0?pt{2r]|F{du
+r<l&`g@9G{P~Ng3q"^t,It/]>0?pt{2rO.eR0ufQMX ?Oort$9m8=xoN=#tMD/m"`F9|,T
+mnVO6ODN;5i"OpbCTz,mnSSnVlf}@!CVa`8Sq<ehhU@IGm:KMCIct"sh!g9MU&rsbeucoW
+lLozNn=Et@\[G][42jUzNY$A*`Gm86"N@#"O7"A8v0H{/i'FX7G'[da4b e]N-@]Yu@]n?
+9cK*^tA.dWWfDa3}2n&lq6l8dWWfDa3}2n&lq6VbdZWfDa3}2n&lPut!pn$k'TA3C6\J?|
+sgm~SK<fpm&N8b*b1X8C:+<wjWTPDilC`:-ulWY8n%ZN:]&!)devXiU&D~(*#1+1K%&!D_
+t\WYO[XWUS]P4B8%Fr4xV]GmG}DjZqO,\.u[I<:I3n\z[^%~)h(yEh]gJw4-H`?5)z aGN
+s.8Sl48O05_"-5Fq]:_wQ{!(@K$W\<:x.ToI*ZX79E#-TmD~5PA8KrQXLC`qjSuK&,se;`
+de/gc}?9/>[)m/`yi;?MaJ"Jo5B!Vl${qPd1WMPbY2]X:E]Z2oPb0(#UbnfTh1IEF3'6ej
+'GBZ'J?rCVGb#()lZ2QpNg3qc?.%QL6@GMb}n|ZPTB2VBo@'p/Vk^b0_b;8S]hU*BB'sA~
+JWMlZP:]qL)ge6sdN*i#^B`Q/}THGtpA=hW{[{0r;-Ga8c5H/-o:jn>F[rhfcmly.(KuG2
+d}6iM h|VJ[m)LNQ3`9\fp9PVGN6pk 8bC;3bn#hSZbCPv8Sq<ehhU@IGm:KMCIct"sh!g
+9MU&rsbeucoWlLozNn=Et@\[G][42jUzNY$A*`Gm86"N@#"O7"A8v0H{/i'FX7G'[da4b 
+e]N-@]Yu@]n?9cK*^tA.dWWfDa3}2n&lq6l8dWWfDa3}2n&lq6VbdZWfDa3}2n&lPut!pn
+$k'TA3C6\J?|sgm~=us.90TQ/A,UaeYo^x2kiTbPJ?;lbx<;et>gU<,"3IUW;>3vi~04&B
+6Bv*,"i?s#8})":y4qDkHeP*meIq7%o\o{iU?M(#B'u"rYTrG]C_A(+~3Q1skQE9upH:qA
+^J3u!Cn|p&Q(b2Q @JGm:KmcD>IZ-b"1`v)/BBUr=)h\56:8Rk&:3Ei~K!bP!O,{"QKN^q
+ta,9q5WBS5?PQe^S>\?{d)K^\A^{L^$uh4d#7C)xljR-8e+0</D{TkD~E`+/@1'+OGVsZ-
+rklF.LU?.oe5.t_eg-oE&03Y>.-L':GdPH<+,bLanzOegd>k2OE.e_`.j(7BG0A@N@Q(E;
+[6(qk7K?-{1GqiqgpA$/FE\D&v72:U11O%\*FLG&Ecc.Gz4pA(+~3Q1sX8=$:1TF&\OGVs
+Z-j;fEG]C_jq+~3IUW;>_"G8j<@8'~e?_%s;.s;}=}(I-V^{WL*cRaG\EGZ>=xDCR?B^?v
+K0+ '7C'&lGB<ye[k]hSH3CFm"Kq7#DIA8Xfo[c#A1E8Z>RGBZiL-dD)`\?9Qa;4&RkHG"
+hBXIN+O|n&gOTTU?9T6v[:]XqvSoC]sf7{iDDz]XqvT<NHFUZN&UmBiqD?BmmXEN-7cy]N
+:8QmDgetG"]gQ^-)org`IrW)J7Xk7|k&>i2YE7C<X2iWCgf_]KivDzC<:7b?39hBNEF`p$
+I&:T]ZQ>A|IcGMT6C?k64xf_sI4pdKXLn{26f_`6gPW)p]g@E3?C_eX6iW26f_TT/YPI+0
+NSsa<'\PUsqwAImL8Osw,]7;$uDCG1ukBU4R`LS/=|;]nB`P7=o6Cb:`9hJtJtcm.}-nG1
+@8Vire1p9|tW`Ec?Pb79t{.#>8:yfYA[9+rWrYR9c?Pb79t{.#>8:yH{A[mLu,&>VhMU21
+3Xv!1:IC`LS/=|;]nB`P7=o6Cb_eSQRF<oukC}H"if-dD)`\?9Qa;4&RkHG"hBXIN+O|n&
+gOTTU?9T6v[:]XqvSoC]sf7{iDDz]XqvT<NHFUZN&UmBiqD?BmmXEN-7cy]N:8QmDgetG"
+]gQ^-)org`IrW)J7Xk7|k&>i2YE7C<X2iWCgf_]KivDzC<:7b?39hBNEF`p$I&:T]ZQ>A|
+IcGMT6C?k64xf_sI4pdKXLn{26f_`6gPW)p]g@E3?C_eX6iW26f_TT/YPI+0NSsa<'\PUs
+qw@|mL8Osw,]7;$uDCG1ukBUCA`L($,5[zW;fNJkN[h6gFUAi't#5:Lb-al&:)eVK%OI*@
+gZgfrQRY&v3X[7fOtMT#X)8irWrYR9c?Pb79t{.#>8:yH{A[mLu,&>VhMU213Xv!1:roWO
+9+:w:wsx,]7;$uDCG1ukBUrfJb0)8JA_8AVguX'!Z7XW4Mi#t#5:Lb-al&:)eVK%d~*=0+
+7V*\6A&pq.X/Bj5R7dbu:v:wA`8AVguX'!Z7XWrKA[9+:w:wsx,]7;$uDCG1ukBUCW`LS/
+=|;]nB`P7=o6Cb_eSQ;o.WY`uA]2]5;Jh2K#^S--VI-%`Zn%ZN:]&!)devXi2s4IS*Mm@>
+D{mX1Jg<q7Ox\RivDzmX2C&[m,>f-,dN]Nh_e[dzj}:NQ]DgTQ-EiPUSn%E9-(:3iOY,sf
+7{tO;AOz_u]TE3jNfX:.\ygPW)Da]XivfXTNNHFSZN&UmBiqr-U)D~,GczsGnz26f_`6Ir
+W)p]IbR`:cgbDMW)J7Xk7|k&XKjG^fI5:7\yDMW)2s?4*\6A&pq.X/Bj5Rh}e5gfGF[zW;
+fNJkN[h6<;%6u0u>s<9<NV)khfnBuA'.0es<JU,Eu'&>VhMU213Xv!1:*9JpJt*d6A&pq.
+X/Bj5R7dbu:v:wA`8AVguX'!Z7XWrKA[ug@2sw,]7;$uDCG1ukBU4Ruaui5ILb-al&:)eV
+K%OI*@rEu,ce.}-nG1@8Vire1p8+qtrYu<,]7;$uDCG1ukBUrPu-u>Js#/;DauT3Tvv+(\
+4anTt#Q6=|;]nB`P7=o6CbP6mSn}tC9<NV)khfnBuAe,h\QTS1+jPI+0NSsa<'\PUsqwc7
+:v:wA`8AVguX'!Z7XWC<SMfzeO>(DCm"0vC+s1]/r k@.LV`(#9l^B\m@JGm:KMCIc3Ao<
+l^_(N*/\l3dWXia^J =\ie-dD)5QsH\xla3|T6q4%~[pYVGU`s9I#3ufDMVLO,\.u[I<:I
+3n\z[^%~)h(ySnirD9VuZ.v'j~g:P&ovDLb07~bvTTu__VO2dKh}*{<,D{On,0O- t[nG2
+2$?vj57B1J!qi?00v!\@_asaEV]GR6dtjSuK.a,"1I4-"zgciv+zN/+j`uo[Tve1h]s5;E
+$BS_hU,AG3\<:x.ToI*ZX79E#-TmD~mHE9Je#&t}XzBB'sA~Zg'^=Tqb@LDE@vn_Sh?UQH
+fVde5OZ3[#JMTP/A,U< [rhf>X^C`qo[Tve1ce7y%w[PNkB;-.VIX03Fh\Sx(`#1'WA49p
+0XZ1&[H)dU^x(Q#V<=`2JMf(bG.\d-=E;}^>\m#YbnfTh12Be,Fo26)`ev7|G{_ ZD |/R
+,m>B^W'S#QJ~e6sdN*KEM@<Yjx<X/]k{@RVXTiFyYz^)$9I~hT6[(')devXi@ADk8Z3sTi
+r%v5Tk`gv/r$2r@?*8``m6Tp+Vd"2Ce`9W27f_b03:SMH|,5N}FSrfIrW)3\b+3:k%\~C?
+9+-HXi7|D_t[',m(3{\~C?fr,h_Q27f_-GdN,},IN}FUrfgPW).7Y6Tpv)`_4PeES2$GEe
+3=mt=_E|(Ss}ZrM80.3IUW;>`ciWQ5RRuTK*mI \uc?)1_``5*q`b4C?.]W)t=,B7}D_t[
+OTf_&tf_WO9RFh_scX,}O|<23L`G<XeSkD4F9R:.Q]9|-wY4u1Y2?;aaa&6z3>mtP=0MB"
+!RXah(j/M74~oEVHO.O|n&gO[;2E,=U%TS"U3sTir%v5Tk`gv/r$  .<mtp,)zU{P|##`u
+M'd?d4Gn1.J~e6sdN* :g=Pv[?J}r%@@kDv5?f*8mmbQmr !o+ilJcAJ\j7:1__UpT)aJ7
+lvQY<ZeS0)R9Fys1$|:}8NL\@Ja^B/m5_"(V`ZmeIq7% -C^8Khj`YI"[;plv5/r(okKU_
+,cq`3DWQXDr$:EmrTANj)n20E.TPGY$uih7BG0A@n8#"#gI`[hat=U<"BbaG6U;|\@hJ7U
+>'ux+zm:uA<q11O%\*gMG"qJ?SiWmGIq3AT6Ozow]?tpL3@:'~l&u`uhsR)g(yr"XON+K:
+J}3n)+  Zu.X`wo[Tv$PivTs_ug>oEiWhFir3T_,]ClKl;\+o+6X,lKU#xv*_~7~"6u1C`
+l3kNkGP&":``tLD/TA-)7O11O%\*=CJ_4$dx_e6@:+`TCIJ: sWqe]dDV6j#oAM+A&PZaZ
+KT:0&TKG5cuA'@3^uk>X^CZs#Z.Nf.-YndoI+yR?7s11O%\*`&!?7t>X,Wi@=R@A"g!mSt
+bC?ERA\QsWrljd>F^C3|+c'A6iAF2y&lGBCFZG@Bj:k[&p!1;-de/gc}sm%?g;[IG/BGa/
+BK[cZ#]<s9 2uf[PB1Yoh"`M@-4$u9O&')7FA6Tgk!-'cy2C>O\jNLF`ICT?-%iPjr-'dN
+2C5')[XEr$ub<5m,:/XJ&5:+\j7N3@WQQj4rQjf/?5''m(rf2H:+\jgPW):oRfh;id26f_
+qW2H>O\jrCl}AIUGeOt+;BQn2IU>8v26f_'emBQY:`Jh-?V)^K..cyo8DqT6C?Xk7|U`/7
+ZA]4DMW)lyDq\~C?nQcfbs!e.<p?N^MvqgQ>sn0S%Z8@(>V\3I+^_ri9<NNP^k\mEWY=mg
+e1m6,Gt+5v0( ;+DAb_z+ym:N)<f[]>w-!O|\R,cq`N ,yQ[iSN5A%5(T%D8tW',mBdLDO
+W)8iS&2&>O\jDMECVcNDFS8l.=-,Oh.JR>,d-8GmK6Pl[{?|Q(qgJW.6hy:n-!O|h.rh;^
+Gi>"i$Y(BZ\~#??j]M |'t.3NlIUhZ2H@6N8&ecj:uu4-@1fN=pTJ1:xG;f$R%t=Qo7.V)
+^KiINS_ISUI]hZN4uKnX#ROzH>i$n]]p&eF_rfOdS05O/ iPidb|9W_^Ur]E[qg&ELn-rc
+OdS0I'5P.}>E\{OdS05ODUANWvf$ILOfS05O.}>E>])40+tqk4_Rr1h@rxt?K!tVUqryD2
+mzDKVi9*Jhn(4Sqz_QUr5-n-d-hbic%>X3V~9HUq_VuYIr5P;jS\oCJ%r!QDV-^KiINS_I
+i+b|9W+0h{VbCI?]Xl.fU'`*FO>qe]q+&"tx$V)Y5gj`2]=/eC8G=fhC8G%j_ZChm_AID+
+tW',9tRf?6"g@eHtiJ#u?SXl.fp"?hidJb,U:x,H5Dr/UDfz,h_QrQ5Nfw5N;jsI_RSwDd
+!z/i<F'CWPQl2It}rB2O@6sM5(-Lm?o7)40+K > \j]4OdS0uSeyNMD0tWJ/s1*9@+i$n]
+]pr1F^rf>gi$Y(&ehArxt?K!i'E `LEYn-m>o7D/ANWv:xj&I(Q]OcS0uSeyI(p\[q;zn-
+8itM>Xt/ijC7EYt}S&b9NMtc:a-w_:]2*]:07hHmnmJ}WU9Rs1A0u4-@QV<Z:8);G&"T6[
+dnE=sa[hQZ)E8u+zm:m(@]Q-Dp`LA5NAqk.r6%Far3/l<F'Cs,Z~&3G`g&,c:x?kn v#8|
+B'dSti`2q6?nQOELn-.7QVt>Qo7.V)^Kt4'u.3NlfrV_o|.j:07hRq5MHwt}sfK!WU\.]4
+U*bQ.$XrpTJ1f$1dcrupoXJ}WUJ6q`s-Wb.-D0tW',mBdLDOW)rcZcS.p.76]3uFN`FSmA
+hqFa`=eyupAj)40+Xm7|U@rbZcS.q[gEu|8tsF*9idJb>g[.nv4S)_9fd>o("(gc/IS*cC
+bA,Ki@/}K%t/ijC7u?rB]DX#o\<SC^(c0+ov.j:0X)=Wu9p!CUtWgliWbp$"\Ljt n[nG2
+2$rp8;JxGM!zSZbCsysfm io7T-LA(+~!+X&J:aftLo:j@ kJnJlj<_+nEp/Mi<)Y-21L5
+lkQ{ QErt/ijC7D+@'Du1[`UCIJzNj0b$D4"Nm<) TR9U,BB'sA~Iv"_pjonGQ-:(X7R>%
+@#Kjtr<#SZnCG<t<Ut?;\@_asaEf(&ToAlVl${ _uc\~O"=)h\56K+.!@,0I?etMD/m"`F
+9|,TmnVO6ODN;5i"OpbCTz,mnSSnVlf}@!CVa`8Sq<ehhU@IGm:KbxJa;;dVbQ.%??oY[G
+0Or(A((/D#=d^bg)*ie6`EGyY/q.(CQ{,$_)=Ye_]#JM6Y&7Rkv%ljBR-nND2XpKNSHgO=
+<euj1_R3tx6gM h|?SZon XfLd.V7vYMN tACgm_3{EX<RW#DnJpJtNH<Ve:Jc#&t}XzBB
+'sA~Iv"_rllF.LU?.ocR#$im]:rJ9sZu8cnFBBt[,9q5WBS5?PQeqF*_hPNyYtHp[A+G,3
+DT'~OGK >0?pt{2j>c9+mUqeA.<_1><;gFgPYMeR)G8A($!jAGnED(oKf-h]s5;E$BS_hU
+,AG3\<:x.ToI*ZX79E#-Tm`*jsbc]0`so[TvO[uDt4*gFP26V]=#>7DCm"FL'$a&^cmYVO
+6ODN;5i"OpbCTz,mnSWr;3b6HEK7A1-YlRL~dwA1cVWDshm~oE04_"-5lW5@-]mFlC'"/_
+Glhn(7t/[^O2],.q?An_POme@23|gbsa$18}&"?T.lBoi\`AVGN6dPK"FE\D&v72TGs@bD
+4Cbi]W<{k5DX.7(I?UZon XfLd.V7vYMN tACgm_3{EX<RW#DnJpJtNH<Ve:Jc#&t}XzBB
+'sA~Iv"_rllF.LU?.ocR#$im]:rJ9sZu8cnFBBt[,9q5WBS5?PQeqF*_hPNyYtHp[A+G,3
+DT'~OGK >0?pt{2j>c9+mUqeA.<_1><;gFgPYMeR)G8A($!jAGnED(oKf-h]s5;E$BS_hU
+,AG3\<:x.ToI*ZX79E#-Tm`*jsbc8kg5 n[nG22$rp8;JxckhyN*i#WD21L5TQf(bG"0ju
+4~JDk|$k'TA3C6#>bnfTh1h`*yuNt-)\e6Xi2s[xeO@:Yd2Vrm J!mYz5uVIX0[&GY!W^}
+^|8S,W%|+o@j'B6iAF2y&lGBCFZGS5?PQeqF*_QyFb26)`evDIsL5DLb-al&:)eVK%q[7-
+g3q81b(oZumw/*PM+0NSsa<'\PUsDNmen}^m=|;]nB`P7=o6Y8MeolQ(b2Q @JGm:KbxJa
+??/>[)m/`yM_Pl[{?|9de4p$RLO3@NukBKI.q.k.DX.7STuH&,se;`de/gc}sm%?oCbW<y
+4H=`Pn&)]E#~h4d#7C)xljR-8e+0h+.M(X7R>%@#Kj/we,M&=JQf2nPb0(#UbnfTh1h`V%
+[&p5Vk(d1)Zu8cnFBBUr=)h\56:8Rk&:Q#`V@JGm:KbxJafFePX=ijo$sw,9q5WBS5?PQe
+qF*_hPNyYtHp[A]I=H0BKetMSZnCavIx\/X}AeosZI u[nG22$rpMp3IT6Ozn&WyndRA7s
+11O%\*`&!?QBOzme+}^\/?utc@Pb79t{.#>8:yjsN jw*LFo[oYV/MQj7.1=PAfz8v%irM
+IrTxBoWvT6C?l3)\9f_YZ>DMW)l9H;&Q9tQm9|uo8SYdBB'sA~Iv"_,N)`e67|G#dEkBrR
+pGG,S+XWO.O|"Z^~'1OGVsZ-[,5tm!Iqb0Z ]<:0&T+g(X7R>%@#Kj<j"_6mD]Ys&j72DC
+"42mUzNY$A$:Su/FpG=hW{SSTYC%m(a'pYc7Uo[fAU[8<qTFIF 5L"<|V&;4g3=R3lKv?N
+jYWDQF\w^eB$-Y+UOh]1]S^eB$-Y+UI6q?#P0(uOJT8d-Vl6foq?#P0(U/j~`% I7V7^05
+_"-5lW5@hxFx^s8.Vm$08}9}jy:IGyI;r>u^*AGbrJWb&S.3Nl\hJwiW/=iPird_bsN4Dh
+`LDxRi/2]\S*ORQ>j!/=>Eih?}1_W`9RDxtaCF!`AGnED(oK%LivTs?UC^IdQ]jf5KDA]8
+C?DAIdf_osWJ$!Hy\gJwiWo}p$[xqZiwm,o7WJhUW)jgsIW)S|9|CM`^i'av@4Di-`q;Ak
+DxG&H"3@:Tk&Oz,r0-uAp%Zk(PNQ8JUHIt sO--;_(2jkPnE.l[z,P-a->H=EV`jfU;Lde
+/gc}sm%?]A?;Zofc-b6Y&7g0Qd_sTs*>J-S%hd_"SAYwDx79?dO@p&:IZu7|C^Idf_h@D:
+9+hFKQi"3X)"tS6ws.X?hUiW*Hid/=iPHlp'tCH"3@k%IV3BWQIfhZ2H@6]WdORcixd_bs
+ciE gFk"H"3@tNs-Fd8l-Ht]A#'eivTs?UC^IdD0UpqZES_,TjtJHlp'tCs-Fd8lW*:oid
+/=iPCGUp];_|C?9+e*hg_"SAYwDx79?dO@p&:IZu7|C^Idf_WOM,`U4j'AAF;CCEG!EV`j
+fU,I'tX7ttjLnwlI'"@0thu*QI;-7+.4(X7R>%@#KjRjYl]7^eB$-Y+UI6Q?QgIcA :nQO
+IHhTg(RA:0Xl.ffXuKC\]8C?Dk/~(oidUSQE]4@IGm:KbxJafFuKC\]8]Pc:]SS*Dg_Qs.
+pW?UOz`6_u)`fs4rD=)40+ivd_RcixmBAIm ]ZnmitmBo7EPIV3BWQQnJ>0QN}p&:IZu\y
+4q]3f#Ptjf5KDA]8C?m_o72EiRXVDsRi9|]7_|C?sB]SS*RefzK'[xMX`IiS;Al@cXiqn,
+p$F`U)_u)`9f@:tLD/m"_%.LYy5uVIX0[&GY!W^}^|8S,WQ(0ePDSJ^|\m=3dk,BZ.rS?=
+iWmGg?3AT6Ozn&+}_)p ]'tbtaj,nOGfRmtIsJ/Kd"h9[bOxlbIRgRW):oQ]$GY1]X?Nsg
+<'v+_~Bi9HhBk&]p:!_YkQv2WM_l4qIXWQD=qx T::]Z`%mqX/v Ihe_CGEPetUPCI)'r"
+WN_l4qIXWQD=qx >::uzcx35GN'bQP@3DWl:FQDB7I:H]Z)^3LJAU9kOh<`M>$7{v3[jOx
+QgW\(7?jc~;mO<[ 2sC"nWbehZ_Mmt8eIDIds18lh[TT\[<PADD=ELiRj$r-XNS|G~C_K+
+hfq>38217pI~Vj;^@A1b,j`GW]FZE3[n-yE"Gm`^r/C?hh@9eSW*@AUr2V_ohmeJ:.+/Lr
+s>G%CF'dQP@3/"W)4~fPCDA,)\N{cr[4-v3@astLK/;`JSebV<j#hPi'6{F`\ ^}:-qyf\
+4i#y1bc`IJhgDaSuOfo}?PW?7|hvjY-&H|nI*DM(S{7%CIR(0VB8Y"bjucmvf_TTban!!)
+e]mL3OKE`STp7~`c@:g~^K.1+1^xta8moR'"/_GlsYRY&v3Xj>jX:)eVK%[5&qDC]Gqpr}
+Q\hn.%??oYp|.}-nG1^F^{T3Tvv+>2uK@2N47o6+2GUGD~m 5;,Z; B2!Rf-ti7Q`QjP>-
+<2W} bWLp_\<kI>FD{u0?oC:u7*:"(O+O)b&a 6$iO1me,sD\xla3|T6q4%~[pMPRkr6j-
+N/BN5yhxZC]XT3a5:8n/A3L3A`8AVgd'hUhenBuAu<7Q`QB(0+BAX^`DCIJ: sWqe]uu&>
+VhMUi{ti.#>8:yB5UGD~m 5;,Z; B2!RjQti7Q`QTz0b%Z,T41kPB2Axj}bl6JR2pd@]uk
+8S]h>k/}%FUrI}gj%!SHXht59<NV)khfnBuAe,fxO6U&7~%#*0$1Y1]XTAfE'rVcfEbeIi
+I:L]*b/g7_ToX>qJTrG]C_A(+~3Q1sr(ax9Et6p17'17V(P~QCEWAE$k/Bn7^%&)d}Ks.(
+[;D~b}n|^tta,]7;$uDCG1uk]P")[5&qDCbl@6dbDB"42mUzNY$APN+0NS-[?V@7Vire1p
+,j`Gi/U%D~m 5;,Z; B2!Rh?I^ab:)SJ>\9UJX\)VoeHVU!tre7v^xivMi^|&N_h6>%A's
+Vz:Gg:Hd:I3n\z[^%~)h(yFAD\6?a@PmBJ&,Nzgd>k]Zc@Pb79t{.#>8:y*En1/ft~.#il
+t#16,T21L5TQf(bG"0cBPb79QxZu[6fOtM(wQP@3DWWOGN-(e>?.#L@T+dZ[oFa_@0YL`m
+uAQ(E;]X?{*lK%]Zivd,;Rp=N^MvV0[zW;fNJkN[h6gFS+u1R,5'%,ADu|mtEfL2cAPb79
+t{.#>8:y@#r$<'YCC@O;u2)~`m_PO2u|7~`cn|Dz7r`*Xb*#0Z;<r5RY&v3X[7fOtM(wQP
+@3DWnVbee]+~"QP3"(gciv:0TF^=&xa)m1XsIkd,qH_?R#'6a+W>Yu(`qI3821gdIjsiTf
+T3rd7v^xivt*_`fTt84U$0( '|MvKjL)\hC\T"pSC\c.Gz26l3+~AKJqdk,B*^%!Aj+qrs
+-o 5'b9efLbALkI}(KFAD\6?a@PmBJ&,:f8yd-#Z"(ZJiw[q>QD{X^59Lb-al&:)eVK%s-
+5mGfl=:)SLXLiw^BPI8c&g>*a%^[/}s_ncDV[5fOs,:IsXO{v+flD~EX1g@wO+W}:RMCpn
+3P1smm:i&! ?u|G]26((YLOY[dZ->7NZA~\)e[fj_~7~"6u1C`l3kNkGP&":3s9dU&$PkH
+G"CgeEUT," ^uco<DL00<2]hq^0><ZKYi"3X)"pZC\c.Gz26l3+~AKG\Y\uA]2h2f>?fI5
+l=U<M(YVE;PH]dplu*KZi"3X)"pZmFZNOzov+}^TN*/^V]#yql@=3At8tCsJ\xla3|T6q4
+%~ U_&BJI.q.Gj:ok0j(" 6m`Z&)?W>6#L*)cLeYN-,ZfP#$@=Fr4xV]K12sTi+Fj+9^A~
+SI]J/'&~)q>d;-MCIciWqK)}e6sdN*i#+<l{@t[8jF>5QKJL&-gi<\"am[!Q'uGM8FH(st
+K&JM-HNe#&,`ty,:O3`UF\u#F~6>DN`R6T=n*f;U,3_/<,aS8'FHK))IFv:;6\:+r8'x?r
+\<`*U&d>KRi"3X)"tS6w/XA(dWXia^J S2$oufuhOxmegOTT+h':Gd%=ZuSqW^O[uDd$3m
+8KOxmegO.Ff->],Wi@=R@A"g$>27IFEBZ>j<@HGmZkTQ8SD/m"_%.LYyKK+ 19h|oC\1R`
+@ ?v)@Yb2V"O7"A8Xfo[c#A1E8Z><q$$);?! q5c.0(X7Rs*:Ga<fHSH!zSZbC[ahfT.9T
+6vEd6];<jXo&:)ke^=B$5aj-M;VX^zete_6FI}s<d&tiu?8mtw=@OCC$iy;4Qyn]6TG`UT
+D:WJhf$HPN;F"(a5hUnTU)^zgvT3a5FEd)KC^$m*JD.=Rqv+Fp:;6\:+v*UAOBQgpYg+F@
+I8]dCB]drgE3h_^XXUkPqYpTrPH&I8BTrPFO>YETXOjaW5S|h9cj]pgBOzCI_e8v_-h?pK
+ENuL,`X%Gls}Z0=\3W^S--VI-%K%ek7`c~H<CU30ZGi|\ki|IC]dD?jGgEEg^B85toUkmc
+]1e)njm j#D-7|1dZ=Q@hCIcH'ZIC\8ena:o-?XGrgg=QKg-3uI~r}Cja/BK[cr;j)(Omm
+S)k4`3FR[o>Q2kE.%)Rsp%>8/Rk4(-?Uau+0M+/>o: 6=>bf9HG1d}G22S=/p.W-/ve/2w
+$=27ufl5;<%aM`GcV^MO@hN,8)l@1Yb1KB0SX>8m&n,)S=&UfyNLlv2&8Al@A.PF,h*WT]
+l03>-'N/Q`bJ72CD8WA5#GEX3%\>Ve)bQ^T<=U\jQ/2jaRTP,h*WA2/sk4')f_#))R<E:n
+.jiP+/J;;?2c6G5/XjN&mOidl4dlQ/Q)k"7q')HkPE0X=O763F-'N/&UdiQ/WN`2bgC?7*
+.jiPl4lG3>7q')&cdC2C798WN*J,F*#GJ=;?%vdi]4-^V\t$2H3%\>Ve)bQ^b2&$diczfq
+&$7\o-XkOw8nhF&,83'),)r<-^`,OdogHk.73xI~[6]O&oH]0um_T%Ep(ZDNu7)\qB<D2r
+AC>LQn<D7{TOS{orDqAC\j+TPzZ=7&",gc^xFOTGjE-)u,5JE`bl6JR2pd7[Km2V^Ue>WD
+>s/}%F@=tUBLYPi~kA0&*"ugmR6hgc ]s!s.^#fiEdfe`4U>b^FbdlGx>l:eTQdLdoMR)a
+mzI_Y&Q`qoFh+D7}^YXUrWfs?i/[b)C?]drQ`4*3Hu^O%aW*jGh>tFfLd^doMR)a`mm6Je
+`;H(t<<K>mD/jao:#O]rrQj >X_<85E@h_tnUkG}>YBqgmJep$Ukec;y>m%0Y1u1p'EpW>
+po8+m"7D!`dQ; FK_sNicve)Va8}5$<Vjs_IC(/Z.>W)jgT^,u?l/1I3I'cO;>Ji/t>fKY
+Pzor=:9ur(BS*2tE?i]M |+`iPZUSk`lm6j&_RA%3AmQ2&iJ#uNbC?]l3)9lTNeO,eq`E?
+Zt&3tqn!uQAZ*2dEs$QoG~GzQ^k3CBpW1`qT=e\jh&eOj#BK6IKt[,0&ANWvja.Yj)I8]d
+D?JG:um|f#r%n,+<L[?\3L4#D]-W09h&Wuo\rII_m:tcpYH$ZIE\nm_\fejxCBlr[L<zeS
+:UT:8zO1],CRtW_dZGu*5Be_D1_ltcGxus3OJy(F8*k#Ti]pdwLr!S@#@-b|9W>m.Yj)\k
+i|>Xk:W5_\fejxCBlr[Lh&eO,e]lT?t8n,I"r1PhaHhbDrn@*emzPM6\#!rEQ7D:7*tcGx
+JhtLZt&3p-_fsFru_-8n]q\{jxhwp+-'j{h>I$A =/eSZ?TpqfZ'1CkQ=1jH kJnJlj<_+
+nEp/\@V?a%=US.[q:YA~.$,@skt^2D@6K%up\x)&r"ix4/IV +0+eEs}G}S5?PD8-,#nt/
+0S%Z,TtqQ,*zj;9x,I!zSZbCsysfm io7T-L$sGxI1W>6kCA6}%0Skrt$9R%`Uqg?{*l&e
+QpB^_zu}-::-,Mbci`\suFn|DB"4cB-b!$keQgX1QAlLoziTJbTU`*U*BB'sifcza[uc9a
+!F8but,:8<tr_&?I#>bnfTJ?Z-oTPL<TU}rDpm6>l|K"GM>0?pMVv*d#Fydur<l&`gUn3{
+cZ7C)x!?u1I2'nZ3[#JMTT8wmxSUnCavK:5HW0?<\@_asaEf-KIC'nZ3[#JM  <#`83Edw
+r<^h;3Q]rqNP+Xtc%AVL4C,3bFsy/zN"uZM2T6JJ-HA8Kr((ZE=xDCjW^Be>E2+yjIB~M5
+B(.::~t=A/+/FNTGjE7s^xs8 2uf[PB1YouOJ@p1rB&52GDAIeV\iY[/paN']&@)k.Q$g^
+J0Iv7f')T>204r;><TrMqFSp=Ddv/qdZo4aEVsHr(/TUd>4'A5VXI~m Djo{/|o:%+74+C
+&l\wZF$?.1V<s0Dgn_j_gEVq/R-&AF+59)]wLKEn?=0y_JE=>W%l'u+zm:u0R"@|6)eZ8G
+4yf_s+JUu.R"fbBZYI*]N`FU[oQ$R:njN-.0h9&%.A[$,+Y(Z>PN.2QE>E870D&;4aE.5O
+;LshJ~?=0y_J/gZ1"uO&m7@]OkXLEW6tq[e5<\5<'+m,AI0+BA6tfpT6Y:JX.6d"bs2@Xj
+4F*g6GfKoIN-R;h\Q0<S8*v!V^.0Yb,+S=N8citA0W'1rQUD8cNti Rw&[H)YJ*&_KrCqe
+JW9!CA1=go%>bK3:i#dbSbPo\nBZYI*]N`FU[oQ$R:g{&%<A?q87YE>B87;yU>PN.2QE>E
+870D&;4aE.5O;LshJ~?=0y_J/gZ1"uO&m7@]OkXLEWj<Oc_tB?jWVR"ub)A1ReG\@sbJ\`
+Je/C_ej I8aT5[1$'-XZJ.5P!YKrDj.hB<Z0&[H)2c=/eC8G*3Y/mwW>UWC?t``EJV9!CA
+<(eZ8G4yf_e]V^q[J~#G7,v!9aWLul_PQEtJ&-;0*3uB;><T\etRel,AbUoZdVNH_/1yA8
+KrR9r!;^M_YFt.Xy-E(oJe0)*]QCh~YM*]N`FU[oObY=:^87;/\etRA(,Vrol{R7fb5OXj
+9)o)N-WyV`K ?=0y_J/gZ1"uO&FpGlHLs}5;,P1`Y/mwW>UWC?t``EJV9!A;YLJX.6d"bs
+7e<^=/87;/I2*gY*C5*g9RHm5OXj9)CA*gaR9-rf5OZiSW?dR~h3LU7R^S3uY{Z6]<v(J@
+p1rB0_)`X:%3r"s.^#fiEdfe9-4xf_-+fw,hUWdmMRnVD}4aQFNEfh,hFh+D7}rEH$/>QF
+NECL&D^O%aW*I2tb9B7,QmDgP?,h?lq3b;FbQyjHgE.Asd7{k&;?CD&DevmQ6hrF]YRhcm
+72;|_YA%3AmQQY2tI~E`(#%!u~o D1o|I_)vgLJej$D1r_s0Dgjao:j'>ME _l;~p-iPtb
+pYj'IC/v]rrg.<mt72=X]F@ P="#<]i{I8E ZGjhW5]jD?JG:u_*ZGCJ\j>uj<h>E?h_<N
+i{\ks0j}]xrg!e.<u|taj,nOUtY@EIt9C'/Z.>W)jgT^,u?l/1I3fd9-=;/K>fKYPzor=:
+9uCI&D;Hr,AZ*2tE.l6%Fa<=)Zp]lB\(PC6\N,=WL*mCXZ35k%bOAz::m:j&_Rl0NAmFSC
+j}C'/Z.>W)jgT^,u:7mrQMj!BK6IKt[,0&ANWvuLG[Jhjx4SpW*9qT=e.Mmt-::-,Mbci`
+\suFj|gEI#3RJyU)5L$>,%J6RGFyBa4]QH'S[j/Z-8p2:\mrTP2VC!TV=Ddv/q>th>LUb]
+8S3>k2:TT:8zO1],CRtW_d?|s~Je4.jao:j'I8pWUDsFP7HioSdAt-G}i;;/@RYu9Vi$n]
+s@d>s2j}p)>\k:gEI$W6_\fecO@cYvTpD3SZ#P#(`&`:OcS0][=3]{CB]d]2`>85I$r1_[
+I(cO@c=LeS]4dwLr!S@#@-b|9W>m.Yj)\ki|>Xk:W5_\fejxCBlr[Lh&eO2kjshUN4uSG 
+us0lP4rb?T,GsMiPtme(4D,nWLiffJJeU)*a`6D:7*tcpYuQ_oZu&3E"_lsF,oY6TpQ`b~
+9x+{g/_e?AdJ3mEvH_CFmrj&p+-'`1I(jx4Slr[LC?DA2Ir;PMr(86+>L[7|@+mrTPpTD:
+7*ut3OJy(F8*tLZt&3tqoruQBS*2QRfpDrn@D1U"*a`6D:7*_.h?tmIJ?V,Gj$ICpW9`d>
+3Lm8?;d>>7k0.FY`OK2sRGs: 2UnUm2VpKt94#D]-W09h&Wuo\<3SZ#P#(`&`:OcS0kI5K
+Dk"9u1s.:Xk&`bdb8QFaqRTd6 Fa\]ers$N|(%BbI~3~de/g]7&U33t80S%Z,TtqQ,*zj;
+9x,I!zSZbCsysfm io7T-L$sGxI1W>6kCA6}p[IqTT@idC8htM.Yp? E5G5FE.j`r=H'i;
+;/@RYu9Vi$XG`NCIJzNj0b$D4"D]-W09h&Wuo\ByDh!z6oCqa/BK[cr;j)FK)IBam66 EM
+cZD%C~KrmCn0'tc|s$N|spXyDd!zj$FKW)jgACDAlZbmTT`*U*BB'sif#:)Yu7SD"lQEuS
+8UPXsOGv^s&\OGVst_ F6h5I;}KLfp`W#&Q2utg`BKI.)nug-LeT0ufQMX ?Jqoq+g':Gd
+%=r"nU?<\@_asaEf-KU"AlVl${ _ucP4F|dur<l&`gUno7?<\@_asaEf(&TsAlVl${ _TT
+@idC9u.T.hA>[cu^#}27_Pr/ho5%)gPbT6[7;2'K('NQ mp/?2)z aO;E<uA]2Q_mi2X^U
+IzsA<3W} bWL-<&,,.^Ue>E2Z>Fa#2n>#b=X_%jTixkb8F-LCt`3`&+rXbtAsmOM<TrMqF
+(e9Rg4byBy;?\}@)k.%x9^:/)(UTO8T>204rsfi[[/pa4MQH'S[j/Z-8p2<^4-"zgcU?VQ
+&HZ<TP2VANER>-2]n=aE0Qh|B6jW(40Zop*`N{[$s0j})kcq-s;~KLfpuL9\r"95>0b^dR
+3mEvH_CFk0Mim!T5Y:JX.6d"bs@6dbMim!bsL2T~PoIsW)U&7(m"u~&nN8ukSD8buDHk,U
+r_,;V@4FtNV]Y)C5roA0.BnlbA<S/@E.5OZiSW?dR~h3LU7Rqf0>7u<62k+JfKA[6)eZ8G
+]BW)p!u,t&-nP9"/3h+Jh}OyGm&,&;_lPNV>C5*gY*4FtNqX9+o)8W6JnSK #G.Ag@NMYJ
+=5-LWuIs^Bu~^ZAsH^?P>,%l'ud9a<)A:ck0^B)2ITd_^x6o%lM{bC/5o:agN^C,uL]qrJ
+E?D/fSRsQ]0b%Z,Tj'a@2v1Sg4fQ\AZF"uO&Q(qgJW9!CA1=go%>bK3:i#dbSbPoC5[xV/
+mwW>>`f_e]&,QFu<;>,TtNA(,Vrol{R7g{Q0Ltq[o7N-WyV`h]NMYJXP&e;z]B5OZiSW?d
+R~h3LU7R^S3u46I~*]QCi';'r';^=/1_uK@25;,Phw;'r';^:k1_1GXjC5ro7&R3o7N-R;
+fb5OS%fpv V^.0[$,+S=cmuhO8bLtJq8<agCI(,Z/(A??6:Pj.Y>'@&!m9uARG]|$!M[J~
+^O%aGN,;t+sprS;^d'+VrxIrd-$2j[#Ku1J@p1rBj)1`&;0aiP,GS}7.T`?7M{UGhC<6Hm
+-`e)+VRxA$1_ens@;u%jdCs$0Ve*+VRxl/`$4XuLWk+UmSo7sfOy_uqX1cN=3+0!en5BY6
+N 3Ds-N48BS&O7SF$ofwi|>X,V@"f_-+S=m_%jdWF'@" rR9tctaj,nOpO9Bm"UktJ-Q-,
+j$>MWC^KHhOws1'Z1d$SY1u1p'EpW>_>/6qT<DBam66 EMCbY*]'n!/Kr+I_d>>w1dpW$+
+Y1J&E`(#%!u~o D1o|I__l>mp[#O]rrQj >X_<85E@h_tnUkG}>YBqgmJep$Ukk)ZQH=S)
+j$ICR9Fy:8J>Avp{s(@X;+^CXUjah>k55BH"_zk!uL]1hCQk7}_:chD1o|I__l>m:ecm5B
+H":up_hCQk2tTiv)J@p1rBf%<_]oJ,\^'l'/f_ECeJQU/u'X4YCB,V.]'e/C5lcXs$.\,z
+1dN=-ct10lP4J2RQV-^KY9OwH>F1i/81+>7&.k6%Fa<=)Zp]lB0|X8F\`.d!+V:@/[b)C?
+sf![dQ; s$QFa.i`L/KlI2d73Lm$H%i;;/@RYu9Vi$Y(gBF@>MlrTe5LeTUpM4&"H>mr_[
+A~.$,@skt^2D@6-GsBG[H&>Mlrl}URF\U)5LeTUpM4&"`6eOI"c~<(8`qAs(Di`LpDo84l
+(U8*jxCBpW1`qT=e.Mmtp,\@V?a%=US.[qg&HoXOr'I_1+P4pT\zW)_\fejxCBlr[Lh&eO
+^W\KUI8cNti Rw&[H)XIFx`.FOJma'G chq=_!D)74?WOkRFFyZXA~.$,@skt^2D@6j$]:
+`RXUF}_zk!uLH<us3OJy(F8*k#Tir%o|\@V?a%=US.[qg&pKRGp/_fi|]:`>XUr)86I$W6
+PiaH=W3Lk2:TT:8zO1],CRtW_dZGu*5Be_D1_ltcGxus3OJy(F8*k#Tir%o|\@V?a%=US.
+[qg&hCd>s2or]Yh>]xCBpW\ksFSzHiY}],Fx`.qZ_-8npdUDsFP7HiY}o~-'`1fejxCBlr
+0A,U]luF5'kDW5_pb}9Wm,tcP9[0o\rIu^]3SQXLFx`.FOJma'V'T=NlSaD)74?WOkRFFy
+p.-Jo~ou-'`1I(jx4Slr[LC?k6m+j_?S,GsMiPtme(4DRTZ=RAFy:8H:]8V_JyTr5L$3,%
+J6hUN4uSGxus19P48hHmOfS0d"]\']_:o\rIu^Uk={ihJbU^Eao:8i3>mtR>FyCQmrZ6r$
+Z'Fxd:[reO3=!$CqRwav8 :U11O%o}!\]@86.::~t=HF+/+S5Lov04_"hP:8@pJuW{ bWL
+Jy&-,.uTh+>]G #2u%t}FOp#Vt]|dwLr!S@#@-b|42QfX1QAlLoziTJbu~tag:D:eEE$p_
+p$ M`LOK/C+"cR'0/C5ls.C?]lJbEfd:]4`so[?A2mM.uBSD"lQEuS8UPXp8X'Q?L(dwA1
+u(t}FOp#VtQpMT3{_cfi+E\kVYH=4xA(`k' [1S?Z.]<n &Dsssfm io7TEdSZ#P#(`&`:
+OcHEs=Q\sYZa(Pf)]]dwLr!S@#@-b|Igfl?54DX<'mA}&l72`_+h`gEV<R'5r6O%[WZP,"
+>fKYH&TeC?]lP(Pof0?5__+h3:k%0]`62XB@`lm6id@IGmZkTQaauk9a!F8but,:8<tr_&
+?I#>bnfTJ?@Sh@N-Lu..k4P/!EJSC"-7':RO8Fv54G'nZ3[#JMTTNMF|dur<l&`gUnH<P~
+Ng3q"^t,\o/]>0?pt{2rQpiP7P.ToI*ZmmVeH=P~Ng3q"^t,It/]>0?pt{2rO.U"AlVl${
+ _TT@idC9u.T.hA>[cu^#}27_Pr/ho5%)gPbT6[7;2'K('NQ mp/?2)z aZ&AO[8G\m 2X
+^UOhE$6]1$'-XZJ.0WPbjEmi2Xh:^K!Xr:L{.k?RpEp'EpW>Qp]%@)k.%xgLJ0Iv7fYEtA
+smOMWsndlW1LXjiY[/paN'WyX2O^et7[:/)(UT<EDlhbsKl8Cn`3`&::ej;8#4=.eC8G*3
+DQX^t.Xy-E(o(c<EU>PNV>C5*gY*rD5OS%fpv V^.0W0K #G.Ah9v!7[lAuh<E'/rgl;YD
+h@m6u0R"AI6)eZ8GChf_e]&,QFu<;>,T\kPN<TI2*g9RfKoI8W6JfK5OLnR;g{NMYJZB&e
+;04yUrS+[e<12k+JnSe6<\5<'+d?bs2@XjC5ro7&R3o7N-R;fb5OS%fpv V^.0[$,+S=cm
+uhO8bLtJ;B<]h<NMY(UWeO@:s~ixkb8F('dWF's=2rE$L++Fv3*`YFA%O{5+N_C?Q`CK&D
+F7')UGhC<6%jcX]NNEfh,h')SF$ofwi|]:9-`$W):79%S&dlMRNF8gE4CbR;O7f_-GRPDg
+P?,h?l0Rl:fqi|I8,VAC\j:7')m_%j-0RxVYn"]3<R7 FKrfIr7|TO@hS}7.A5@" rR9tc
+taj,nOpOX)FPPK5+d%NEs1OR\m'l%)f_Je0dqze_UQ<RE.Cb:oqaVcuLbViQ#uM_nJ5B0]
+qzP*h;.@D}ZG#A`*r;]3(>>g6$Pn_bZG,q?lEh3=Ed(#%!u~P>6\N,k5Y%.Jn65BSM<fI$
+jx4F_.>EjxWQI"A p7dM4Dgi>5^H%Oj$>MYEoy3O9H_]URF\hFe)tm3t>LM8&"`5;t<uf6
+hCA;<fmzI"q\p,]1r$-#eR%@Eh3=s2s.^#fiW6j$]:H:>Xk:h>Snnp]xrQ^Bl}jsD-p-]1
+_c<MqaVcZQbWiQ#uM_nJD1[hjhW5]jD?JG:u_*ZG1Ho"5BH":up_Jej$5Be2D-ezD-]jD?
+JG>YBqY(ZQsHg=ics@ z.<mtE$L++F@=J>Avp{s(@X;+MjNbC?]lBdrdSh:imrTp)HNSPA
+gm>55?<`7{_:3(dwe,G -Q-,5?J.>i?{O;Z7G/>XJ4Wj6tj$>Xf_EC].TA@#gXD-)z+Jg<
+1+P4[k<oeSt-P7cmNi#ARlV!6t7A\j>u1BtMd~9p_Y>BrFW3R;ZV>v]M |*_.@W)jgT^h1
+BYB@m_fKWYU\M4&"peqh\^'lu=<L)Zp]lB\(200#t/19P4J2/t>fKY%?'0f_ECeJo31<10
+X8F\`.d!+V:@A5Fh+Dl:&Q/C5liN90!wD#$3"hnT.;mtQMj!%>\AV?a%=US.[q;zXOla\z
+cO36JyTr5L$3,%p\eOI"t/B#.$,@skt^2D@6-GsBG[H&>Mlrl}URF\U)5LeTUpM4&"`6eO
+I"t/B#.$,@skt^2D@6s=G[UQ$:,%pW\ksFSzHiY}RAFyH&6tD]-W09h&Wuo\rIjsC`_\UR
+$:,%_8ZAC?pW\ksFSzHiY}],FxjxJXS[#P#(`&`:OcS04nP*W2PiFMusd C^U"5L$3,%4-
+/<`6eOI"t/B#.$,@skt^2D@6-GsB3{_.SzHiHl8/Ozr(n,jsD-_\I(cOcfC^[h.emtp,Mi
+i;;/@RYu9Vi$Y(W2^;SzHimqPM_Uh;I#W6PiQ8g>A;=LeSj#%>\AV?a%=US.[qg&Ho8/I$
+4o$>,%_8>E\jsF>E:Xo:uQBS*2jsD-rc=2eSj#%>\AV?a%=US.[qg&pKRGp/_fi|]:`>XU
+r)n,I"r1PhaHZxTp]p*]BL6IKt[,0&ANWvja.Yj)I8]dD?JG:um|PMr(86+>L[?\3LEL5<
+dxLr!S@#@-b|9W>m/zj)I8]drg`>XUr)n,jsD-_\I(cOcfC^[h<zeSj#%>\AV?a%=US.[q
+g&hCd^s2j}D}_lE\nm_\feH:>XpW1`qTqY>LZ%],FxjxM;VX9U'~ZdS.uSG us0lP44P4-
+ZG]ph;+=,;XGRGorEQtaf{'&N4\KJ^.6D}ZGC?]l'+@-i.Ik4i(.S7T#GzoAWu6tZ4=\3W
+n(3GeRelg83muL3{ZQH=_-h?p)/6u+oZ)ENSPA#9`*\eG/>Xo[ZbS.o5'FP!3Q:Gr%G \x
+e[5Be_D1U2pKG\tbNwuzACdSti5'kDgEQTp"<yeSj#;4Qyn]6TG`g&5Le_*eM:Q--@XGG\
+H&>Xlrl}\yF\U)ZW`Mt>aTq5R_%?,UZQRGorRoVjYv>b[+c9L,qqFo:TjXg^8GreNm8 Ts
+X>t-3{>Lmx*`mz]3ecs@3muLbVJ|U&`WVgskT<m-727"ZAbglzJD\E@>n?U]m`3GCB:Ao:
+s/or]Yk!p)>\]d\{qi0_]s^zn]u(5B0m>'mr?;rl]*Fxuc/s(9;BN?mF3#[,f/?5R2!l'(
+@-i.Ik4i(.(,rER8FyeC>55?'+@-i.Ik4i(.S7T#cfRAXVe5f}\wuFtF9?Mj,@t&%=,UAC
+76W<f_P(]a4WQ b4VY+C%+oH7'$iaR&"P3bJFo`$tLC'/ZueCM72N_+bCF;9HZbf;>bc0V
+Vd&HdWF'@"V)^K..`:\&sXIS0<08qzj<r@7S&0M|MO4LZ~&)3(#G8+4@')e,sdIKf1?5u5
+f{ND')7FflVRq5O7V]O1A.73,qRxl/`$5{Fa<=J>Avp{s(@X@PUGoVR8FyeSJCWj6t&0@U
+qO;^b+CK1_,"p)emWB;?6g3'#GM`Gcl40Qb1g?N*)S0!5+iJ#u`TiS;Al@cXS{Qx.2b0g?
+[kO8Xkb:FbT\h`C'/ZN^[1DV`!*D$'9[_Y]a4WQ 7)$il=-]*6hZN/b)&":]+~F0`$k#\^
+'lJr\qVcbJP{1b-\<EN*XIAB(;;BN?mF3#[,f/?5''@-i.Ik4i(.S7n"_ m6TpFyk9Y%Po
+-_J"Mi&:#TFo[ocf8%?n,P)Sqs_O8F+GS=,3F0.2T"q4,!\"#ARlV!<{2LVgZ|7_4N7++|
+F00JND&WSH?7M{sf![dQ; s$QFa.i`L/KlS|m$W-/v&8$iHy?g,3%cdi&)3(')e,sd& i,
+L'mCn0RA:0Xl.fQ#%+;@N*T^O5A.73,qRxl/`$5{Fa<=J>Avp{s(@X@PUGoVR8FyeSJCWj
+6tV`cslhW>N r<IrS|OR8U4"r,-oaR+G)SXj+C)xqsb2q4,!F0)cQ":o]M |[8]O&oH]0u
+m_,MS=l38#L :+T`bJmQ6hb>-$>fKY\fRA#oh&(F%Qfr,h*!I&R#@h%c$i<EPl${Hyl4sd
+& 3(O|c['e/C5lYxDx79?dO@H|N6mOsd& @U&R-00Z^O%aq8#8RlV!oq,WL'],")!DrE@|
+Y0TpFyp>/**_&8dwJQ.6sd1c(oQ,H$n";`qs_O8F+G)SXj+CS=e,sd& P3!iU`Dd!z@:Di
+-`q;Ake)8{UA7}O+:+T`bJmQ6hb>-$>fKY\fRA#oh&(F%Qfr,h*!I&R#4LZ~&)M|MO.2M{
+mOFo`$b0,$a+'e/C5lYxDx79?dO@H|N6g@N*0_ND&WSH?7M{sf![dQ; s$QFa.i`L/KlI2
+[Y<WeS3Ls:R_%?cldoJQ.6(9-H,jO|Gm^BnKO(m!6k%'l=SC6}qr7'Oth`(97&:?h+5|Fa
+r390-(<F'C8QM`_Qb0P'c[-%:@A5Fh+Dl:&Q/C5liN90!wD#$3"hCIQOP+_]9!3qq5-]M{
+6o0D8Gl@IqN+8)l@@t#rRlV!<{2LVgZ|7_4Nm!,!Ge7[28F7')SF$o&WT3Dd!zfP<z/A=U
+A\6&8h*9=#3L5<TiFyjsmz;FT:8zO1],CRtWGL>Mp7dM4Dr$n,I"r1PhaHZxTp]p[.S[#P
+#(`&`:OcS0d"4oU"jaReHiHlXO)^mzf#r%n,+<L[[0Fxjx`.B$.$,@skt^2D@6s=G[UQ$:
+,%pW\ksFSzHiY}RAFyH&'E\AV?a%=US.[qg&HoXOr'I_1+P4pT\zW)_\fejxCBlr[Lh&eO
+I"t/Q{X1QAlLoziTJbjSor4l$>,%pWUDU1h>tmc64D_Qh;o1m8TpU,7FD]-W09h&Wuo\rI
+jsfcjxP>6\8VpNRcoruQQjg>3mJy(F8*H:>Xp\eOI"t/Q{X1QAlLoziTJbjSor4l$>,%pW
+\kU1h>tme(4D_Qh;IKF]eSe`Vm2>Qv(,D#g&rxt?pTCAEL8/+>,;sBdLGxusdLC^U"5L$>
+,%4-/<`6d>3L4#Nmi;;/@RYu9Vi$n]s@d>s2j}p)>\k:gEI$r1_[I(cO@c=LeSj#=VdxLr
+!S@#@-b|9W_.=4]{rQE3h_tnUkec*emzPM6\#!_:Fxjx`.B$.$,@skt^2D@6j$ICkDgE^Y
+ZGsJ5BU25Lq`>Lmxf#6Y8V:XNy[0Fxjx`.B$.$,@skt^2D@6j$ICkDgE^YZGsJ5BU25Lqk
+>LmxPM6\8V:XNy[0F\eSe`6FI}s<d&ti`2I(jx4SlrTeHoZAr'g=1+P4pT]1W)9vJerGLs
+Dq`LFZ+ >2[:G/eyFoTnUDX;G\tbGx>lp[H$ZIi|>Mt G~j]gEADIURAFyH&&lm/^i;2jX
+rIPMr(86+>l{d C^U"U,RhHiHlZA)^8%JerGLsDq`LFZ+ >2[:G/eyFoTn\kX;G\tbGx>l
+p[H$ZIi|>Mt G~j]gEADR>FydB3L\sFx`.<meS.Gk2.FBiI~Y\OKF[kQ=1>,O6\j!^AGnE
+`::+JrW{ bWLJy&-,.tfg: n[nG2k8-%5I;}KLfp`W#&Q2uto0ZI^Z!Xu]uY^BH!fUj)%>
+\AV?a%=US.[qYX!zSZbCfL5T*QqT:B-36Y#!1A+JPMS )20+G|_]>=O5J73~#FFW`=UiPC
+Hi-1Qd+<l{EQta>'c~ti5'Jydz>wPBHidHpdB5cOPs0b\ReOI"t/Q{X1QAlLoziTJbmbTV
+M9T6u}Ts$3,%SZOBHi`dJ#fki(Sa[q;zmztmB5i!]w1G%YhM9V3R(G8*0~(OqTeMp$B)AN
+WvYkV6jy/.bei!m6Tp\o'l%)Y2\^'liq)gp]h~ O=+]v&\OGVst_28u6SD"lQEuS8UPXp8
+X'Q?L(dwA1u(t}FOp#VtQpMT3{_cfi+E\kVYH=4xV],"!w9utUM7d-@:Hs/}PQNM8w\J?|
+v*r(d'<(8`qAs(Di`L^qT3a5FEd)KC^$u21!'"&0IuJ?)2pkib=VdxLr!S@#@-b|42ti8m
+tw=@OCC$iy=VdxLr!S@#@-b|Igfl?54DX<'mA}&l72`_+h`gEV<R'5r6O%[WZP,">fKYH&
+TeC?]lP(Pof0?5__+h3:k%0]`62XB@`lm6id@IGmZk)FLg86.::~t=HF+/qY5P<wif@IGm
+Zk)FLg86.::~t=HF+/qY5P3fZ3[#6jv0m,^WBJI.q.kN:vU)AlVl${ _uc_cO"=)h\56eE
+WVF{dur<l&`gUnfb/]>0?pt{2r&e_lO"=)h\56eElKFydur<l&`g@9G{P~Ng3q"^t,DO?<
+\@_asa !9utUmW0|fQnY6X:+hf-XNDp,5HMEqOPl&vm(_n+[si(?DNsUUbNj# @B])AO[8
+TI2V^Ue>JWCpJRHFbl6JR2pd7[FHTGjE7s^xs8 2uf[PB1YouOJ@p1rB&52GDAIeV\iY[/
+paN']&@)k.Q$g^J0Iv7f')T>204r;><TrMqFSpXpndlW1L#T:/)(UT1Z2GDAIeq7]"@)k.
+i<r6beucR=LC`qZC^Z.1+1d>uN<Lq3Ox5+>O\jczCF1_*P+JD1UWC?Xk7|3vN1cmZ=,+Xb
+>B87YE>BuDHk,Ur_,;V@4F*gaR9-oIbA<dgCNMXbIKUr<$XmK @"bL:Pmr6tN8/7>EbAFd
+_s1ZFo0dsrCD&QmBT<?w1_1GXjC5ro7&R3h\&%.AW0K /sm"u~V^.0h9&%9^WLujO87AuB
+Xk.>g}NM<b_p:x9Ush<Xp>W>N mJo7h{Oy2h:c)cdqJQiQb<Fd:..Z(o(c<E\ePNV>C5ro
+b19-o)cb.9W0K ;?R3h\&%9^m"u~7[A6uDXk.>o976YL=5-LWuIs.<s:;^b+3:tN]AW):7
+QK7}qt*[]Oq7OxNDm:AI+r.?[$,+XbP4ukSDcmuh_P&:_lPN.2QEtJV]Y)C5UrXpDNK ')
+bLtRfM.BnlbA<SiZm6Jf.6sd7{U`?w\jcz9|)cdqJQiQb<3:-'S)OROLY=:^87;/\ePN<T
+I2*g9RCHK ;?R3fb5OLnR;o7K Vxq;u~.2NbtNfM.Bh^NMY(>`R9tgXyVZ)_J7>`f_-+IC
+m_AIqOfi-#dN2CZKC?Bn;?nSK #G7,v!9am"u~?g8bu@N1Xb>BuD;><T*3uB(;Ncr_VeY;
+?w-L<VChUrS+q;Y2?;%#U;7(WLul-^&:uB0SQFu<Hk,Ur_,;V@C5ro7&;|HmrfA0.Bg}NM
+XbIKUr<$XmK @"bLu<:-5=o[`\?9)z<}h6>]]v]\a0PmK)PK<b0R7}tO;A)ZIV,;S}7._K
+XirB]irg9-.2W)J7C67}k&;>S{7.l@V\nWE>h_.@C47}tOq7)^IVb11eN=qyl2fqj]gE.@
+(9W*J7sfOy_uqX1cN=H`q4nSE>nmR;O7f_`61ZW*p]7(W<9RbfN)W]_&ZG<a;=)Zo<b=F]
+p$&#9^qzN j4Iq#L<Xucs.^#fiji9|m"*`J7Qs&Up-(oCF/Z*2W)uLAIm_U*C\Y6j<h>U`
+m-72>mP;\m'l%)f_hCA[m_U*rk;u^C?|J5Qs&Up->\WC^KHhOwH&/>CIigjCRecm5Br_;$
+:8]q\{8PFaqR)Yp-/6CIigjCUHcm5Bro;$:8]qrQ8PFaqR)Yp-4[CIigTmRhcmD1r_;$:8
+]q]28PFaqR)YE"/<CI)'<,t-kA0&*"ug*GM:&"`5;t<uf6Je0dYNr(_[HmH&\k_[8mr%b 
+m[rfcO;>TQR7!l_`ZGW~gqUC]pei:U/zELfs_[[Z^Q>\lrXieCd6L!jz[)W|gqUC]peiZu
+=4jxWQI"A Fm>MlrXieCd6L!jzgE;}Cxel>wn s@RF]pCIjxhwjCUHHiY=\KFZ+ ]qrQ<T
+i^G RpI%4omJZVS|sFGjX>B7*2o /*?4"gE"/<<bG|Tr,cjy>L3>D3m_uQU%eOt-XnH&ZI
+U1=3jIj}tbs$p.ZA4mmJ\yk!ZQH=Lr6 2kj{h>+mdQcHFI]q]2!Yk0I-:uO>/C+"cRj{gE
+o2p+iP_-h?]x\{j IC18k W5pUrPn(]1j ]:`>XU3HZGjfj}]xrgs!I;>YETXOjaW5p-]1
+j ]:n(rPX>]2Je3mTir%/|0<X`5d]lj \kC?]lj I8f_EC]j\{W)[0j_W5]jrQj IC]lj 
+ICf_HB:u3>H">Y3BtNic5BH":u_*ZG]rj`gEE@Cb]jrgj >X]lj >Xf_HB:u3BH">Y3>tN
+ic5Bp-UkG}_zk!H"PKj`gEE?o:]jD?ZW]jCBp+_f]Zh>_-=4>]E _l]Zh>_-h?ZUH%ZIC?
+_<85Ozj`[))^`mm6u1p'EpW>(':K9DEZg]8G>m.YiP/J]SFs.j3e/<lbW>>LM8&"GmqW;h
+rZR_;%:8J^YAAAX^mg;#:8J^YAAA%,Eh3=k2j(" 6mv0;R(<CBcm8ot%9?Mj-K@o6&XPI"
+!Ok0nrW>D3j5O:U&W4R;ZVTLTPSGDd!z("(.S7H|\enV5.$>,%cm8o_p'y/C5la`L,3s4S
+T>204r4SlrXitAsm2tTiFyp.8+Sh,Cmk9|uor/PhV]uSBS*2Jsm:TpI|&y9Rbf<EVbNG:)
+]M |$!$'9[TNeO3LWNu21!'"&0IuJ?)20+I^)}8/+>l{uQQjg>3mJy(F8*H:>XJ6TiFyH&
+6tD]-W09h&Wuo\rIjsfcjxP>6\8VpNRcoruQQjg>3mJy(F8*H:>Xp\eO3L4#VU2>Qv(,D#
+g&rxnyCAp7BS*2I"W6pU]1jxCBlrl}\yh~RMFyjxJXS[#P#(`&`:OcS0d"4oe_pKBS*2js
+fcW)_\feH:>XpW1`qTqY>LoZ>[3LmtmzQxX1QAlLoziTJbT}k!g81KP4_[I(s9S'g>3mJy
+(F8*s9S'g>A;=LeSI"t/B#.$,@skt^2D@6-GXGH=H&IClrl}\yFdU)5Lm\rPH:>XpW*9qT
+mUrPH:>XJ6TiFyH&6tD]-W09h&Wuo\g^o8304aqTeM*eFsI84-ZGsFSzHiFjI84-/<`6eO
+3L4#VU2>Qv(,D#g&rxt?pTrfjx>LM<Q-U1?u\jsFiPUQqo>LmxPM6\caUQqo>LZ%],FxeS
+e`-\:-,Mbci`\suF^p>\ZaRiHimqf#^Q_fsFP7HiFjI8J6TiFyH&6tD]-W09h&Wuo\rIjs
+h]I#rm1+P4pTD>7|I$r1p<pYuQAZ*2jC*=_:FxeSe`-\:-,Mbci`\suF^p>\ZaRiHimqPM
+^T_fsFSzHiFjI8p\eO3L4#VU2>Qv(,D#g&rxt?pTD>_\IF(U8*H:]:W)_\fes9H<us19P4
+p<P9?\3>mtp,Mii;;/@RYu9Vi$Y(gBF@>MlrTe5LeTUpM4&"H>mrTpU,;:T:8zO1],CRtW
+J/H:>MELXO6[8VpN.WiPtmn!uQAZ*2o0m8Tp]p*]BL6IKt[,0&ANWv:hc.C`PiFMus3{Jy
+(\8*tL3=mtp,Mii;;/@RYu9Vi$n]_RgBI#4o(U8*H:>Mf_jxCBpW1`qT=em:TpsF2kCnf9
+(7t/<;3Lmt3~#FqbjO-XpGt?n,I"r1PhFMUQP.gB+>l{EQtaf{'&8nG}oAWu:htc3O:htc
+0lP4rbo|hL9VrerQu^n!3GeRl_rPE3feE3o:jG[)F{:uoZuQrb2knyW>j<h>OyH>fq0G+#
+J"TnQgs>rWfiuA+bf`X>I"j8j}I'Tbh>p)iPD}_li|]:E3Cbm>A@k2;CIu:.qaVc:h.]Tv
+']3voAWutM7FW+:Gr%^:_fr/3/ZGi|\ki|IC]dD?jGgEdFbaWOJ6TiFy];VI-]g&M*oAWu
+JyTr5L$3,%:a:Xo:p,]1cOcfC^m:3{>yJerGLsQ>Qgs>u:d C^U"*9qTqY>LZ%o~hL9Vre
+gfD-uzG TrX>F?I8]dCB]drgE3h_^XXUGlJhtLTPrW;^E.D/7|_:nS(3%Q5!:Gc~titFCD
+uk%pnKg:1mU\c*D-jGW5jGh>^Y?|mxUk=s0.r(&sbgiP-Q-,+eC]0],"pGS~v+7!t;1me,
+n'F?>X]dCB]drgE3h_^XXURWO.8ik$TiFy8f(cMw0"?|^F@.sMeltmc64Dl^rPH:>X&-XO
+6]ca\xk!:hFu>Xlr8IH;>Xf_s!]S.M:wT5oshL9VURs1Qjg>3m:htc0lP4pT]1tL:TjX1h
+v!T}=3UsmtC\T"s6H<tbGx>lp[H$ZIi|>MmyMjez>55?R6]Y=3\j>u`2a1a!gC\x?20'*_
+BT`]fH2Ce,G UQs1G \xe[5Be_D1U2pKG\tbNwuz3u7vA2W3KxEWGII8%p\y(>Q,s>e*K%
+V[DgT"n!4lp-n!C[U"JeU)hC4.jao:s/'Zu`bgB&DA6];<jXg^nk^;4[qTeM_Rh;I#C^(U
+8*H:>Xf_s!]S.M:wT5oshL9VURs1Qjg>3m:htc0lP4pT]1tL:TjX1hv!T}=3UsmtC\T"s6
+H<tbGx>lp[H$ZIi|>MmyMjez>55?R6]Y=3\j>u`2a1a!gC\x?20'*_BT`]fH2Ce,G UQs1
+G \xe[5Be_D1U2pKG\tbNwuz3u7vA2W3KxEWGII8%p\y(>Q,s>e*K%V[DgT"n!4lp-n!C[
+U"JeU)hC4.jao:s/'Zu`bgB&s%F[eShaM;VX^zY(gBFAI8lrTeHoZAr'g=1+P4pT]1W)Z7
+$A6{S,/}?30'tqn!uQAZ*2I"4omJ\ye[&AXO6]ca\xk!:hFu>Xlr8IH;>Xf_jxo|90<;F^
+0d>T3Lmt]lVI-]g&M*oAWuJyU)5L$>,%p7pY4l(e8*s!]S.M:wT5oshL9VURs1GxUQs1BS
+*2o03~G`g&uAJ1v(3{:Gr%^:_fi|\ki|IC]dD?jGgE3u5DJ6eCtFXy]a]2W)jgrD$)"hU[
+X>m*JDu>1av!N#\jC\UCs6]q\kX;G\tbGx>lp[H$ZIi|>Mt i tm-hO9\k;$:8pDENV[h;
+ACFM`=>2[:G/e9Fo)gXOJA)}ZAF{PKF|>Ym|I_U"JeA;`YSKocdA3LEL6];<Wu#~hM9Vut
+3{Jy(\8*UCU1h>j#D-PiQ8g>d>Gx]suKnX#R,G-:pGt?Rcg>3mCBlrl}\y=sihZcS.o5Y8
+h;u_or3O:Gl_rPE3feE3o:jG[)F{:uoZuQrb2knyW>j<h>OyH>fq0G+#J"TnQgs>rWfiuA
++bf`X?C\5#P*h;^X85^YZGF}_ze[5B[h@<myEb-a4z-'s{fLfHD-[l^A@.Z4=\3Wn(3GeR
+iPg83muL3{ZQH=_-h?p)/6u+O:d-=W3Lmt\nVI-]g&M*oAWuJyU)5L$>,%p7/xXGG\F*I8
+lrduD-p-rPX>B7*21bXGRGorEQtaf{'&8n:TjXg^nk*WHuZAlarPPF6\8V:XNy[0m*JD\E
+UsC]m:feUCm`3G:hm|*`mz]3ecs@3muLbVjx=lJ)Wj6tcmD1m:IQ,c$!$'dfe,3|G`;z+J
+h5.m)kFsTnc*nk*Wc0D-jGW5jGh>^Y?|mxUk=s0.r(2p&p*M&SI}XkgBNiX@bWP(^zCRuk
+%pC@g:4Pp7ENCB:Ao:s/or]Yk!p)>\]d\{qi0_-s@+(cMwoAWu:hc2nkPiFMm+\ye[:UdO
+4D_Qh;Oy\R]4=ZJshrCG^E@.s=]q\kU1h>IZj$SzHiHlZAh-G~oAWutMn}]1v(3{:Ig:^:
+_fi|\ki|IC]dD?jGgE3u5DJ6eCtFXy]a]2W)jgrD$)"hU[X>m*JDu>1av!N#\jC\UCs6]q
+\kX;G\tbGx>lp[H$ZIi|>Mt i tm-hO9\k;$:8pDENV[h;ACFM`=>2[:G/e9Fo)gXOJA)}
+ZAF{PKF|>Ym|I_U"JeA;`YSK9mHBmrTpo~-Yd(ti^p_fs6Bv*2I"H:>XELZA6[8V:X.YiP
+3|#FqbjO-XpGt?86I$W6PiFMH&I84-ZG]pp4en4D3EZGjaj}\x$:,%m_\yF\U)>u[6ug[O
+C?Z&FxeS.=mt?;Gy&lm/JDk44SpW*9qTeM_Rh;I#s!s)Wb.-_+,EeCtFu6?h@XC32MovhL
+9VMj:N.Yf%B56utcGxI'H:>Xo[H@4S4-ZG)FNSPAGmhL9V\yqg4Sr}r9*`mz-@XGbW=uih
+ZcS.r0pT]15#$3,%4-/<-s@+mrTpU,Lm^F@.sMeltmc64Dl^rPUC_ruJnX#RE@N4\KJ^Jr
+'y(.iMe;3|G`;z+JQnb9nkUbfmtYI,_zP&gB50(7qLjGj}I'E[-a4zi#?00'Qnb9nkUbfm
+tYI,_zP&gB50(7o23~G`;zXOJA)gXOJA(F8*WOp\eO3LWN$A6{G`g&5LeTUpM4Q-s6S'g>
+3meThFYw5IDISj`$;tVUd#(3%QivX>m*JDu>gWD-/tIZj$P7dXMk][k!b3nkUbfmU1']3v
+U3p4EN4Sm_\ys)&sbg(oQ,s>GL>X9RUQs1,%\9VUZQH=F*I8n)1bXGbW=uihZcS.l6rPe{
+CF:Xo:l4rPe{6YN,H|ZA,qo4m8Tp]pVI-]pGnyrPUC-@XGG\TrZW=ZJshr1?IrWj6tQp0G
++#]W:Gc~titFXyh;?is5]q*9R{%BE"_lN1gB50WF4-/<Gm40j3j}I'e)C^o|-hO91`,"pG
+ny]1S%4lp-8+B<6u>mp[l4rPe{CF:XNy[l];?20'b7nkUbfmU1h>b3nkUbM4&"qz>L9d,v
+@-mrTpU,Lm^F@.sMeltmc64Dr$b8nkpU]14X:I(cMwoAWu:hm|I"H:>Xel_8@5u:@if_Hl
+usNTlN9|blZ>Tpr%.emt?;Gy&lm/JDk4CBpW1`qTeM_Rh;I#s!s)Wb.-_+,EeCtFu6?h@X
+C32MovhL9VMj:N.YPOB86utcGxfdH:>Xo[p,JEmA\ys)&sbg(oQ,s>GL>XK$/C*ej$\kPC
+_Uh;ACJ6-:pGt?Rcg>3mCBlrl}\ySIZ.RAFyjxM;VX^zn]*emzPM6\caIZ4.eThFYw5IDI
+Sj`$;tVUd#(3%QivX>m*JDu>rB?hs5]q1`R{%Bp->\p7ENCBo[p,^Y_fW4k8;CIu[o^A@.
+-GN=gB50WQr}r9I_)vXOJA0dh.G~oAWu:htc3{:htc19P48hk$TiFy8f(cMwoAWuJyU)5L
+$>,%p7/xXGG\TrZW=ZJshr1?IrWj6tQp0G+#]W:Gc~titFXyh;?is5]q1`R{%BE"_lN1gB
+50WQ4-/<Gms1,I:htcQYpV]1E[-a4zi#?00'g<d>l7rPPFnTuG_`ZG,#IZj$SzH|ZAbgtL
+:TjX<Ss5]q1`qz>L8#s5]q1`qTW?4-/<-s@+mrTpU,Lm^F@.s=H<TrHoZAr'oko|90<;H 
+8kTPrWt7_Ra1fFDziWZcS.%?T}=3&DXOJA8lofn=D1*'j3j}fde)C^0]r(pfF*I8831dXG
+]2W&0XfdP(^zY(h;?is5]q1`R{%BE"_lN1gB50WQ4-/<bhhbFT`=&:XOJA8lH;>X&-XOJA
+(\8*e)C^0]S\J>TiFyH&&lm/JDk4CBpW1`qTeM&AXO_Vh;rD3OBo+3ZdS.4nU2mtjsD-4Q
+pWJ`rGLs7|m k4;R(<CB1#CImrTp<oeSWp]2Fxjx4k9R4xXkA.&UT/Dd!z^H%O("(.(,G:
+Y0TpFyBau>ue/s0<s[3GTiFyp.p'EpW>kJr@b^nu8%?n,P$sGxI1W>6kCA6}p[Iq7%8%p\
+DLU&P+_]:"p-emWBiMnOPm$zG \d%#W0N+P*k#hy& [Zi|UFi I<fa'z8aM\G[U=VYPmiP
+fG4.IKA(8#G#CgXDFxeSt-j UFi I;fa'z8aMX3OiMnO%b_lqT3{>`l3+~3}IKmyW-/vfd
+j~r@7Sq[3{iMfG4.Z>qTPlP.n&oWN+P*'_^YnKO(ICEOI0+ifK4.iMHi)}h:nOPm7~o;gO
+b0P.Me2sRGFyeSsxf{'&t*I32E@6k5Y%Po4F5!6tN8XPVeCI1_,"p)emIt-G>fKY=[irNR
+_I(JqzQA7~G#CgDPUWgP[aNE:']M |$!$'9[_Y]a4Wq@>w]M |[8]O&oH]0um_,MO~n&gO
+i!4xXkA.&UT/Dd!z("(.S7n"_ m6TpFyk9Y%Po4FSMu$<Lq3U^UM3Gi#l}W-/vfd-G>fKY
+=[irNR_I(JqzQAiPsdN*0mND,{T>k#]A5{Far3$)"hCIQOP+_]80>y]M |[8]O&oH]0um_
+,M\kq4%~A\&R9x2F_pDMKxmCn0(3%QfrM`X5FxeS^W\KJ^9!0dsrXyVZ5+4eFo[ocf8%?n
+h<5|Far390-(<F'C8QM`C5V],"c9-%SqDlIKh{![dQf+0G+#WO9R4"r,\~!xdQf+.MTA;C
+=N+o*7V`N+P**BT7Bz\~oXA.&Q/C5la`L,QQ4R2^TiFyeSTQrW;^Z<mT58R6gO-G,bO|Gm
+^BnKO(IC&c/C5lYxDx79?dO@H|N6k!hy& 0eND,{T>k#]A5{Far3$)"hCIQOP+_]ZB]tDd
+!z@:Di-`q;Ake)8{rfb0P&OW:+1MiZrv[a#8RlV!@o6&8h*9TJeO3LmteCtF-nP9c<8G%j
+oJh{1c(oQ,H$n"rw-G>fKY=[irNR_I(JqzQAP.k#hyACsfVbND:7D0\^'l@(@X@Pm_^CnK
+O(_|C(/ZueCM72N_+bCF;9j|hy&!A<&R9x2F_pDMKxmCn0(3%QfrM`X5FxeS^W\KJ^9!A;
+qO;^b+J1>`m_AIQ8P+_]=5!`dQf+.MTA;C=N+o*7fp& 3n*L28evCgh{b=-#>fKYM+"#,m
+?li{UFi >x]M |[8]O&oH]0um_,M)vZKq4ABsfVbND:7D0\^'l@(@X@PUGO6=2eS3Lm$Q7
+.M:wT5WfCZtWrWR_%?clmP58R6Iq-GQ[7}3vj<r@7Sq[%aMZH<>FlsGx\dP.n&gOb0P.'_
+U`Dd!z@:Di-`q;Ake)8{)gevXi[lIr;Ab=-+2(iJ#u0$0<08qzj<r@7Sq[%aMZH<>FlsGx
+\dP.n&gOb0P.'_>y]M |[8]O&oH]0um_,MO~n&gOi!4xXkA.&UT/Dd!z("(.S7n"_ m6Tp
+Fyk9Y%Po4FSMu$<Lq3U^UM3Gi#l}W-/vQCiPfGM{k!CDPmMTH<4xA(8'G{]AtLC'/ZueCM
+72N_+bCF;98*&!)h4e28evCgh{b=-#>fKYM+"#,m?li{UF8O*3MZ3{>BM\G[U=fi&!)h_p
+;>&!A<#rRlV!<{2LVgZ|7_4Nm!Gx4xA(O>l9NA-'2hZKf/?5J*L-KlI2[Y<WeS3Ls:R_%?
+N7mS58R6gO-G-CO|Gm^BnKO(7++F*'h:HiM{k!Hi)}iZhy&!3n*L5+iJ#u`TiS;Al@cXS{
+Qx3{\~[^biq770&STOh@C'/Z`0a1a!e)FQfa'zN76l4.Z>qT%a_lqT3{\~[^,#G]4xEQiJ
+#u`TiS;Al@cXS{Qx3{\~[^biq770&STOh@C'/Z`0a1a!4Xhw.;mtTptg9?Mj7+P;c<8G%j
+rgDMS|OR8U4"r,-oh9+F$~W0Pm$zpY4DA(8#G{rvb0Z!KzmCn0RA:0Xl.fQ#%+fK4.>`V]
+bhq770&STOh@C'/Z`0a1a!e)FQfa'zN7k!fGcQor\l8FM\3O>`V],"H>4xEQiJ#u`TiS;A
+l@cXS{Qxo7N+)v(yT7Bz\~oXA.&Q/C5la`L,QQ4R2^TiFyeSTQrW;^*<PCPo+Uh^[bCH1_
+,"p)emWB_cfi+E$sGx*2MZo7N+*'ZKq4%~[p#ARlV!<{2LVgZ|7_4NWK,#H>]Ai!4xXkA.
+&UT/Dd!z("(.S7H|E.I0+inSPm$zG \dqT3{>B8'p\DLN+O~OW/L>fKY=[irNR_I(JqzQA
+P.k#hyACsfVbND:7D0\^'l@(@X@PUGoVR8FyeSJCWj6tfpqs*[9+4x&cQL7}3vj<r@7Sfp
++E$sGxI16}p[4DP*h@sdN*P**BU`Dd!z@:Di-`q;Ake)8{3m>`l3beq770&STOh@C'/Z`0
+a1a!e)FQfa'z8aMX3OiMnO%b_lqT3{>`l3+~3}IKEQiJ#u`TiS;Al@cXS{QxG[]Ab0O6l9
+NA-'2hZKf/?5J*L-KlI20N)?.WmtJ&Y\Tpr%>Q3L-4-,,1mz;FT:8zO1],CRtWGL\ks619
+P4_[I(H:>XpW*9qTqY>LZ%RAFyjx`.B$.$,@skt^2D@6-GsB3{_.SzHiHl8/Ozr(n,jsD-
+_\I(cOcfC^[h.emt_[J'd)<(8`qAs(Di`LpDGx*FM:Q-sF>E:Xo:uQBS*2jsD-_p3>mtp,
+.jBL6IKt[,0&ANWvq`P>r(I_(\8*H:\kC?pW\kU1h>tme(4D_Qh;IK=4eSI"t/Q{X1QAlL
+oziTJbT}k!g81KP4_[I(s9S'g>3mJy(F8*s9S'g>A;=LeSI"t/Q{X1QAlLoziTJbU^U1k!
+j#o8PiQ8g>d^GxusSogBjuD-_\I(cOSVgBjuD-rcF[eSj#=VdxLr!S@#@-b|9W\yP.h;+>
+l{uQ2CXO_Vh;I#W6Pi0wXO_Vh;o1m8Tp]p[.S[#P#(`&`:OcS0d"C^U2U,UKHiHlZA)`mz
+PM^T_fU1h>tme(4D^P_fU1']@+m:Tp]p[.S[#P#(`&`:OcS0rl3m_m$:,%pWUD4mU25L$3
+,%I\A[YvTpr%r(-b:-,Mbci`\suF5'_8>\EL?vM8Q-?[ZIC?pWUD4mU25L$3,%I\A[=LeS
+I"t/Q{X1QAlLoziTJb?HZIhKdO4Dr$86jEj}tme(4D^P4[H>mrTpU,7FD]-W09h&Wuo\rI
+jsh]I#rm1+P4pTD>7|I$W6p=pYuQBS*2jC*=_:F\eSj#=VdxLr!S@#@-b|9WURP&gB+=l{
+uQG us0lP4_o3>mtp,.jBL6IKt[,0&ANWvq`:hmxs@B6*2jsC`7|I$r1_[I(cO@cYvTpr%
+r(-b:-,Mbci`\suF^pZAs6B6*2I"W6_\fecO@cYvTpr%r(-b:-,Mbci`\suF5'_8ZA]pgB
++=,;sBRForuQGxus19P4rb]*FxeS2mBaDmt6ABu|.=mt_[$A6{S,/}?30'tqn!uQAZ*2F?
+I8p7en4D1Ctaf{'&]3uFd6L!^n_fr/-)v!U^5Q:Ig:4Pp7pYs/or]Yk!p)>\]d\{E=rdNm
+8 TomsF?I8n)F?>X]dCB]drgE3h_^XXURWO.[l<zeSI"(cMw0"?|^F@.sMeltmc64Dr$pT
+]1jx>LM8Q-U1=3\jCV[6ug[OOdS0ZdLNr0pT]1Q_v+:N.Yf%r%1me,IZ4.uL3{ZQH=_-h?
+p)/6TJuA+bf`X?C\5#O~h;^X85^YZGF}_ze[5B[h@<O;?\3Lmt\nVI-]g&M*oAWuJyTr5L
+$3,%p7/xXGG\F*I8lrduD-p-rPX>B7*21bXGRGoriUYw5IDIANWvYkV6:htcd C^jWo3Y8
+h;u_n!3O:Gl_rPE3feE3o:jG[)F{:uoZ>$[:G/e9Fo)gXOJA)gZAF{PKF|>Ym|I_U"JeA;
+`Y(@m8TpFyeSI"ih;4Qys>GLI8p7en4Dr$pT]1jx>LM8Q-U1=3\jCV[6ug[OOdS0ZdLN4n
+p--@XGG\Z-XW>Ls~UDn!3GO|gB^Y85^YZGF}_ze[5B[hA|`]fH2Ce,G UQs1G \xe[5Be_
+D1U2pKG\tbNwuzACfrd>3LJqU,Lms{pBQvs>J/W6_\fecO36:hc2nkPiFMDj<{Uo]?[q;z
+<u;+XOJAj^o3nmu(iPFoTnc*nkjGW5jGh>^Y?|mxUkh~\)@>n?T<m`3O:htc3{>Lmx*`mz
+]3ecs@3muLbVJ|0aH>mrTpU,Lms{pBQvs>J/W6_\fecO36q`>LmxXEB7*2jsD-7|SnuKnX
+#RidJbm66 5=qk>L2]tMn}]1v(3{:Ig:^:_fi|\ki|IC]dD?jGgE_!h1.m)kG$TnmsorC[
+U"JeU)hC4.jao:s/'Zu`bgtL3=mtQM1G%Y@%_yFV`=pd\ksFSzHic'nkpU]1,::hM<Q-C\
+_lURmk]1cOPspV]1W)9vJerGLsDq`LFZ+ pDENCB4-ZGA|5Rg<d>W64Qe,FoUQec5Be_D1
+U2pKG\tbNw-*v!N#\jC\UCs6]q\kX;G\tbGx>lp[H$ZIi|>Mt (?Y\TpFyeS3L@/(cMwoA
+Wu:hc2nkPiFMm+\ye[:UdO4D_Qh;Oy1Gtaf{'&]3uFd6L!^n_fW4pU]1Q_v+:N.YPOr(1m
+e,IZ4.uL3{ZQH=_-h?p)/6TJuA+bf`X>I"j8j}fdTbh>p)iPD}_li|]:E3Cbm>A@9ed>3L
+5<TiFy8f(cMwoAWuJyTr5L$3,%:a:Xo:3O]P.M:w>_i$Y(.JC+5K]qCBU\HoZAbg=u.Mmt
+_[$A6{G`g&5LeTUpM4Q-s6H<TrirRAXVZJo\<S'51U*ej$]:j8j}I'(@ILF]eS,eBo+3Zd
+S.uSG us0lP4^:_fU1h>G Dj<{Uo]?[q;z<uf6JvEMo:8UUQs1,%jwD-0ah.d;3LEL6];<
+jXg^nk4Q:a:Xo:3O]P.M:w>_i$Y(.JC+5K]qrg,::htcQ-pV]1(@QT>H3Lmt=LeS^Wos-Y
+d(ti`2fejxCBlrTeHoZAr'9uJerGLsDq`LFZ+ i=fEJeU)\kU1']ADJ6TiFyH&&lm/JDk4
+CBpW1`qTOwgBI$X&`Mt>aT2H@6^H%Ooin=s@3m:htcAIO;?\3Lmt\nVI-]pGt?86I$W6Pi
+FMUQqo>LmxSluKnX#RidJbm66 \DVUZQH=F*I8831dXGbW(@@+mrTpU,Lm^F@.s=H<TrHo
+ZAr'9uJerGLsDq`LFZ+ i=fEhC4.^0_fW4S|g>A;O;.7m:Tp\OeO^WZ.FxOmF[eS3=c"3=
+Y`)Em8`lZC\8(6C@#>bnfTJ?AtPM<TU}rDpm6>7'JxiW@IGmZkTQo3b16JR2pd8'Km`Db!
+@:Hs/}PQNM8w\J?|v*r(d'<(8`qAs(Di`LFp:;6\:+v*eTM4Q-dwbk4DkMJVt<ilg,rxYD
+4QJy$:>ahGM;VX^zn]mt6YcamVAE*2iBid<:G}oAWujy/.r%m#6Ycan`B}(A8*B&o[R>Fy
+H&'E\AV?a%=US.[qYX!zSZbCfL5T*QqT:B-36Y#!1ANm5I?UDj`Li]r+C!0Irho|-Yd(ti
+J\5#lrTe:FM3Q-CV:uibJbm66 U]5LM80a<23L-4dQcHFI!kdQf+4jiP/J@6TTqfo|04_"
+hP:8rdA(+59)sM,#5v^@Sr8r#u0~NQq^q8cj]JO*:x)goqrB8FMXfbM{k!sdN*P*k#hyEg
+Lr.k,oo4ZI^Z!Xu]uY^BH!fUj)%>\AV?a%=US.[q:YJgfsuu'?AF(hH$6tD]-W09h&Wuo\
+Bymz;FT:8zO1],CRtWgdhe$HPN;F"(a5mz;FT:8zO1],CRtW(e>g6$PnT'Ep(ZDNu7H')Z
+c#>5^H%Oj$FKiai_V'^KI)7RFT_sA<JQ.6>fKYH&TeC?]l=uT3sn0bX8EW-:(X7Rs*Q>5J
+;}KLfp`W#&Q2utZshR n[nG2k8>",+'-XZJ.43%WswUrT}=)=Q+Ev3q`?;\@_asaEf-Ke_
+0ufQMX ?Jqj|7P.ToI*Zmmfu^XBJI.q.kN:vCA'nZ3[#JMTTNMk!7P.ToI*Zmmq@^WBJI.
+q.kN0,3}cZ7C)x!?u1rw/]>0?pt{2rO.U"AlVl${ _TT@idC9u.T.hA>[cu^#}27_Pr/ho
+5%)gPbT6[7;2'K('NQ mp/?2)z aZ&E;uARG`Uh>,"i?s#d)E[`\?9Qa;4&RUr3OiMnOPm
+$zW0%b_l[^%~)hiZhyEhHr/}%F`]r$UAY@NDFSU)*6YF-%>EbA3:k%eimV:ch}7{U`/7iP
+m(GxHz;u27f_-GS)orfsY3?;TF\hY@-%>EbA3:k%eiOh(\T!DnUWC?(O4alA)\J7\~C?&U
+-:Z=<aQmZ=A03Bk%>BXGFxE.n`;X27f_-GdNs$HnU)I5<V:k\jNLF`_s\e)<1:roCwXk7|
+c~h\.@dNh9[b)`ERj|m6QMA|ICNbFSrfoX7|TOG[CU<%4yf_-GS)orVcH=CUXMgQW):o/{
+iPWRF}CFZ@<R&Sd_"3gceOchI%YMJW0)8JHzY-T>qp,7AsrPYMJW0)C<<Ve:t#(M/<CxX{
+Y8Cb:`YD7qY#Y8Y8SW4[Cx@39W:`YDmgu,OARh]'0),k=0YD7qY#uiuiQE\h<Ze:t#&+0y
+1kCx@3O-SWSz]'5F5J,AXK<cq~JU7`9Di^S/QP[$<c+x<QJtJt8b_e<Ze:t#SX>\gq;aW`
+XVXVAsD><eu0@2CUWlDndbQ Q9g@YLt*`EVzWlDndbcrh\YLQ'UoUoqwWkDnR6F\d:@:it
+\u^{0&]Gl[h'L(dwA1nAm,+D$~pY\lcQorC3*'e6sdN*P**B<,G #2n>RQBu4R]'DMW)A~
+CAbL39tN4xf_-+:I:`YH-%>E763@k%P4Qgg@.@cyh9[b)`ERh:m6QMA|4hbL39tN4xf_-+
+eTWDC<<V&Sm,3{C<Y6UWC?&cmBIQC6(O/<lA)\J7IKf_-+ICR99LQ_pY.?cyh9;BOz2hW0
+A~gANbFUrfgPW):7U)8SnaXMT>/7iPX!Ri;EOz5+_pC?Q`:Xmrj<g+W1DNW):o/{iPWRQf
+9B.Ad"h9[b)`ERZ<QhYb<cRfZ=A03Bk%_c)<1:]*Cwh{OzkQ=1/]mVW0DndbQ Q9W0<eu0
+@2PtquWkDndbcrD,<e8S:w:wfYY-)3W`XVXVAs\zYMJW0)\u;u2G9+rWrYR9quXLDndbQ 
+Q9W0<eu0@2fXY-T>qp0{ICgq;a<;<;0y>Mgq`FS/I5Y&T>qp0{]*YMWD9+:w:wchh\YLt*
+`E+S7`:ei^S/+j7`X+Dn:v:wchD,<eu0@2n`WlDnR6nxn}.=X!Ri]'0),k=0YD7qY#RF<o
+ukicbPJ?\-)F[:'mA}&l72-L$sGxI1W>6kCA6}p[DLb07~G{rvTTU?9T6v[:4Pn!YJA.)\
+-:8+.Acyh9q8Ox2hG Hz<627f_-GdNs$HnU)UA<R:+\jNLmJIQ\o.<Ry-)or.?cyh9q8Ox
+2hG +y7dX+T>-EiP7`:esh7{U`/7iP72c~D,'0m,o7h{Oz2hh9Y4?;TFI5<K:+\jNLF`_s
+*3-:UH<bQmZ=Ve)_ERoq7s9s4ci^Cgf_0~]:NbF`rfoX7|TOH<3=m$SY*@A6)\J7IKf_-+
+U">J<V:k\jNLmJIQC6U2>JY6\~C?&cd_s$nTjGS{Yb<ab=Fd T]$Fxb+Y?b|gf<[W3Dn:v
+:wChgqu[uiA5YH7q@:O-Q5UAY@mgu,N0SWSz]'0)7VdvUH]'5F5JmZ9Bi^UmUoV|<%2G9+
+:w:wchnj<eu0@2cgC_<esntGBUoI<e8SrWrYR9quWkDndbcrg{YKQ'.85J5J7,dv9|i^Um
+UoV|XMDn:v:wCVWlDnu9`EQ9W0<esntGBU]1YMu"u>1:roYMWDmLAxCWgq`F($0yICgqu[
+ui(\/<CxX{uiuiQEI5Y6T>qp,7AsrPYMJW0)AsrfYMu"u>1:]:YMWDtFtG9,n`WlDndbQ 
+VzXMDn:v:wCVWlDnR6.85J5J,A=0YDmgu,N0SW/6Cx@3O-(L/<CxJmJt9s/>CxX{uiuiQE
+\h<Re:t#SX>\gq;aW`=/=+tMD/m"`F9|,TmnVO6ODN;5i"OpbCTz,mnSSnVlf}@!CVa`8S
+Yd\KDxJm)i[doxNnV 6)5*p=:');j#.3dQo:n^ ;16=0=Qb\A1'Z7!^BrCl@U<Zu`so[?A
+2mm!mFlC'"/_Glhn(7t/[^O2],.q?An_f%\dJU`% I;xBnuE[k5H3usk3}+c'AuhONH<[4
+2jUzNY$A*`Gm86"N@#"O7"A8v0gz+x?L.l:8n/A3L3MjU&&%a<=Ua<fHSHv4lxGx[42jUz
+NY$A*`Gm86"N@#"O7"A8v0%x_lJU`% I;xBnuE[k5H3usk3}+c'Auhgfl9dWWfDa3}2n&l
+q6gOt"\q:-MZc"Vf*._pJUot<(l'0g-a8)o;@23|gbsa$18}>buSPKSvW<-%jD_+-dlj0i
+<btIfa<@q#$k'TA3Gz>STQDilC`:i1OmXWeifG8FM\G[*2MZo7N+O~owoWN+[h^q m/R,m
+t84#T6C0Vut`u[QDMT3{_cfi+E\kVYH=4xV],"H>]Ae]e_p$]7;JJ@uxcl6i)}j|CDPmiP
+fG4.UW;>&!4/>``lm6dca<\TNj# 2ti~kA6>`B.6(X7Rs*Zg'^=Tqb@LDE Vh4d#7C)xlj
+R-8e+0</D{n-oYpxq]0>2ti~kA6>`B.6(X7Rs*Zg'^=Tqb@LD]Zq@d!5re1 fQMXsrB(;f
+cLgcivqp0>9w%# fGNs.8Sl48O05_"hPeCh]s5;E$BKW2?0\2/]P=H0BKetMSZnCavIx\/
+X}Ae.<mLqe7v&(7VKUi"^cE[_m^4NeBtdDFI hH!KZtMSZnCavIx\/X}Ae2\<22]E.e_`.
+j(7BG0A@N@Q(E;*#0ZfG/Y;Y2GUl`*H-bJ6z3>Xo<ejE.=k24&A5VXTiO"Y6T>:umrTP\K
+A5YDmg<:3LELKRi"^cE[]/U%&%#V<=`2*)"ku'%CHmM{6l4.Z>qT3{>Bo^FZeS:U11O%o}
+!\$luf9a!F8but,:8<trQxG[U=VYPm%#h9+F\k[^="3Lc".<mt>`gqs9GzS5?PD8-,FFr:
+A(+59)sM,#5vk=VUiMHi8FMXH<*2MZo7N+[xd7^W*&4@-:(X7Rs*Kx>_,+'-XZJ.43%Wsw
+*gV`PmMTG[I1lsGx\dP.k#hyY[J&3vTioZ<ejE.=k2TP',;v2GUleOj#@IGmZkTQcCfGN-
+Lu..k4P/!EJSMl4FW>6k4.iMfG4.P4,"AKR9r%&\OGVst_a'ZJ&%#V<=`2*)"ku'%CfKcQ
+or\lM{k!Hi8F8'G{]A.Fk2:Rmr>`gqs9GzS5?PD8-,[S5J;}KLfp`W#&Q2ut,M$so8rBM{
+6lrfcQorgOb0i'm6qm0>\z`so[?A2m#9PM<TU}rDpm6>l|K"8`M\G[U=VYPmiPfG4.IKA(
+8#bvs}Gm.XXo<ejE.=RqVQ&HZ<?;:fi^Jf3=ml/*h}YK^T<[eS:U11O%o}!\$luf9a!F8b
+ut,:8<trQx3OiMnOPm$zW0%b_lq43tTi]p`so[?A2mM.uBSD"lQEuS8UPXsO-\G \dfi+F
+)v8*+FICl3+~bX3=c".<'n;v2GUl&\OGVst_a'ZJ&%#V<=`2*)"ku'%CHmM{k!nOPmiPCD
+%b8%G#rv:RmrH:qAU)BB'sif[rn7b16JR2pd8'Km`D6uI26}p[4DlsGx\dfi& 4/>`l3= 
+2k<2^IUM]'uNqe`-;t/@Cxtgm6p,04_"hP:8@pJuW{ bWLJy&-,.uT8{rf8FM\fbcQ6i)}
+h:XiN+hwm6p,04_"hPOm6C,+'-XZJ.43%Wsw*gq[%aMZH<>FlsGx\dP.n&gOb0=sk0:Rm:
+>`gqs9GzS5?PD8c"V<&%#V<=`2*)"ku'%CfKM{k!CDPmiPnOPm7~p\gOb0oVFZ4-H`G}S5
+?PD8-,tM0S%Z,TtqQ,*zpi;:n C3W>6m3mP46lrfb07~G{rvb0h~D.c c-@:tMD/m"FL'$
+a&^cmYVO6ODN;5i"OpbCTz,mnSWr;3b6HEK7A1-YlRL~dwA1cVWD'<qPH$!^AGnE`:,M/^
+'FX7G'[da4b e]N-@]Yu@]n?9cK*V\qnq<#PRz3uoRO6u2hybci`'HZkrJC"_cJU`% I;x
+BnuE[k5H3usk3}+c'AuhZ9)7o8@2EV5_&}(c5Ao[PL$|`&$~N$bPv*+r\kJU`% I;xBnuE
+[k5H3usk3}+c'AuhONo7qnq<#PRz3uoRO6u2hybci`'HZkrJXW&T?>.lBoi\`AVGN6V]dZ
+WfDa3}2n&lq6oWqnCNT;$~On784=>`u,iSX1awAP;Ci+pbJifB+727m^io7T*[O~].Jwg\
+.%QL6@oU]'2liTbPJ?\-)F:yU>VYPm%#o84D$~h9&!)hiZhy&!A<GN!\?%9[r:H'26fA7U
+s,u",S$sGxI1W>6kCA6}p[Iq7%8%p\DLU&U*irD9Vut`u[QDMT3{_cfi+E\kVYH=4xV],"
+H>]AKCd7S2LCBs'@&!Ei]g`ML]JN<M11O%o}?:/>[)m/`yhj!-Z2QpNg3qc?.%QL6@X>iw
+f$h}k\m&@]Ei]g`ML]JN<M11O%o}?:/>[)m/`yi;?MaJ"Jo5B!Vl${qPd1WMPbY2]XmL@]
+So*&!Mn|p&Q(b2Q @JGmZkTQ[&p5Vk(d xD_A9D>DjZq@d!5re1 fQMXsrB(;fcL<Xdbm6
+On,0O- t[nG2k8IEF3'6ejRRls!Qp" ~re1 fQMXsrB(;fcLE9XDQ_X4oloK_vQ{s;,qH[
+CFRoVQ&HZ<lH<_FsY8>zM[9c\dFxT%]'uNFZ/M6m,q>B3Li YL^T<[eSt+9?]BYMp=R9Fy
+cqiV@IGmZkTQ/;myb16JR2pd8'KmFJ6uU>VYPm%#o84D$~h9_"rC-$[H<+^^h|@Y>w810'
+tzVN6ODNDfKRi"^cE[]/U%&%#V<=`2*)"kcUf#Un3OiMnOPm$zW0%b4aX8Gn3=mtj<U)BB
+'sif#:)Yu7SD"lQEuS8UPXp8-\o84D6}+F*'Z<6mCAA(oZflT3a5:8n/A3L3EJ*O`=q)MP
+#i[d\e!^AGnE`:K4%aPM<TU}rDpm6>7'JxucZ>qT%aMZH<\d%#W0N+ M4[d:t-Gm3='n;v
+2G*aE.:T11O%o}!\$luf9a!F8but,:8<s7Qx3{eiCDPm%#W0%b_l[^GnnQ:)@ZX7G'[da4
+]oPB@.s_6gM h|iM n[nG2k85YM{86.::~t=HF+/+S5LJqoq4DW>6k4.P46lrfb0KI*=Y4
+TpjubccfiV@IGmZkTQaauk9a!F8but,:8<s7Qx3{eiCDPm%#W0%b_l[^,#bX+y[8(qk7K?
+-{1GqiqgpA$/FE\D&v72:U11O%o}!\]@86.::~t=HF+/+S5LJqoq4DW>6k4.P46lrfb0P.
+'_g7Y\J&3vTioZ<ejE.=k2TP',;v2GUleO,eCZKRi"^cE[*l6},+'-XZJ.43%WPt*eq[Pl
+$zpYC36}p[4DP*OW7t@:1d`8 I;xBnm=m:jM(?ljBR-nNDU+BB'sif#:)Yu7SD"lQEuS8U
+PXp8eTm,+D)vj|fGM{k!Hi)}(yg73vTi9Lg5 n[nG2k8(,rhA(+59)sM,#5v^@VUiMHi)}
+h:fG4.einON+P*'_Oj`TCIJ: sWqe]dDd?^e0_c?e&;]&R4!de/g]7&Uht*dY*5enSkFL]
+N.uqu1\eqT3{Z>VYH=U=fi&!)~/@X8=$t-Gm3=i YK^T8Wg5 n[nG2k8(,rhA(+59)sM,#
+5v^@VUeiCDPm%#Gx\d%#W0N+P**BOj`TCIJ: sWqe]dDd?^e0_c?e&;]&R4!de/g]7&Uht
+*dY*5enSkFL]N.uqu1U>fi+E*'oqC3*'8*&!)~4eX8Gn3=_VO2Q8\w`so[?A2m#9PM<TU}
+rDpm6>7'Jx8`M\G[U=VYPmiPfG4.IKA(8#bv+y[8(qk7K?-{1GqiqgpA$/FE\D&v72:U11
+O%o}i$r6A(+59)sM,#5v^@3RQp%#o84D6}+F\kVYH=rvb0P&$L X<mOmgd/Y<&2GUl`*H-
+bJ6z3>i YL^T<[`.2k.9WmDn5CTi9Lg5 n[nG2k85YM{86.::~t=HF+/+S5Lm!+D$~pY\l
+cQorC3*'%6Oj`TCIJ: sWqe]dDd?^e0_c?e&;]&R4!de/g]7&U33t80S%Z,TtqQ,*zj;Ts
+d#6i)}j|CDPmiPfG4.*LX8Gn3=RyX4!^AGnE`:09o;b16JR2pd8'KmFJ6uU>VYPm%#o84D
+$~h9&!)h/@)?JsfstT!g9MU&RSRIG6A@PHSvW<-%H"S5?PD8-,[S5J;}KLfp`W#&&'uNt-
+4G6}+F*'h:Hi)}Z<,#3Q>`::Z)r$o\FZ[i<aFsQ0X4!^AGnE`:09o;b16JR2pd8'KmFJ6u
+U>VYH=I1lsGx>F6}&!)h4e)?JsfstT!g9MU&RSRIG6A@PHSvW<-%H"S5?PD8-,[S5J;}KL
+fp`W#&&'uNt-4G6}p[rBcQor\lM{,"3QIK::o^FZHv(/,;CZKRi"^cE[&R*dY*5enSkFL]
+N.uqQA%#h9+F$sW0%bMZG[rvb0P&Me7t@:1d`8 I;xBnm=m:jM(?ljBR-nNDU+BB'sif[r
+n7b16JR2pd8'KmFJG&-K*'Z<6m)g8*+F$~o8oWN+)v%6!1Y[)EY4?4:fi^Jfs}k1Y%Rj]'
+uNFZcqiV@IGmZkTQaauk9a!F8but,:8<s7Qxo7Pm%#W0PmMT3{Z>;>&![Z8SDC"42mUzNY
+$A_UI~thac)X/)bFfL&\OGVst_a'ZJ&%#V<=`2*)"kcUf#Uno7Pm%#W0PmMT3{Z>;>&! ?
+4[<2^W2V-:(X7Rs*DQt60S%Z,TtqQ,*zj;;:n C3W>6m3mP46lrfb07~G{]AE=u98moR'"
+/_Gl=c=;fdO,56C1PfT6iq@IGmZk)FLg86.::~t=HF+/+S5LJqn C3W>6m3mP46lrfb07~
+G{]A)I=mk0:Rm:>`gqs9cfiV@IGmZk)FLg86.::~t=HF+/+S5L7++FICW>6kCAW>6m)g_p
+;>&![Z8SDC"42mUzNY$A_UI~thac)X/)bFfL&\OGVst_28u6SD"lQEuS8UPXp8eT76+FIC
+W>6kCAW>6m)g_p;>&! ?*q<2mF@]So2V-:(X7Rs*Q>5J;}KLfp`W#&&'uN,M$sGxI1W>6k
+CA6}p[Iq7%8%p\DLj[t<Q\hn.%??oY[GZVW3(#JMfB+727]N`so[?A2mh1N-Lu..k4P/!E
+lun,:v)goqrB8FMXfbM{k!sdN*P*k#hyEgAmZE)>)tJuZGj<hT!l'7[?!CM:T6_mh2&?oK
+oI+yR?7sO?Lt=J$pODkh;3g3WD]2@JGmZk)F6`SR/w?on2amHi@n6}mHrB3AZ>$oW0Fc\d
+/mA(dWsdFbCg)`_phsCxRo9T6v[:QM"}?K8`:YduBNGsmRVR"ub)A1cVg)#n[Ke=R38 sC
+`*Zc(#N$KT2>#>bnfTJ?%x'OsA'!%}'r[+Pyc\orC3/LlGaIRO&U$|9|qy:J)M6X:+ s>9
+*-8L?E\\rJ5of'Eyq';2L$\92@j/+zm:/--nQ{,Z*~tEm<upP46lrfcQ6i)}j|CDN+O|n&
+gOb0KI5Hh9+F\kqTPl$zpYC3l3+~3IIKV]kQqeJw8*+FIC6}+F$so8rB7%8%G#26A(`oUn
+o7PmiPCDPmMT3{_c[^,#3IUW;>Ehs}5Kh9+F\kfi+F$~G >FA(8'G{4xA(kN:vCA6}p[rB
+8FMX3OiMXiN+*'e6sd2rI~Upo7PmiPfG8FM\G[U=q4%~)~_p[^Ef-K\kVYH=>FW>6m)}n 
+DLb0P.owIq  )><,mD&DfFeDAyNai"@9'~RL[/eoPb79=F#E;-?9Ot:~oN6TQHWu/--nQ{
+,Z*~I"(@!$CqRw7seUPVp%:IZufS=>X*K6SI)' H4N;fNP+X[FI~"UO6fbSI)'h994 z.r
+r Z6G.Bu9"[cNw";)=GX,MIfOnG[7*11O%o}fA_ug>]siWjXir3Ttag:D:DkqHp$Uo?Ug?
+5Khuq@q80WQT.;AGJq?|=E`2m_E`,r<Wbnuc_yZjJ.(}o#m,Gx\d%#G \dfi+F)ve6sdN*
+P**B^n<muk93\HopQ|k8K#^S--VI-%5OG \dfi+F)v8*+FICA(+~3Q\~[^kRqe?{*lK%mr
+4M<K&Sm(3{4M<V:+\jNLFU_sU>dwUH[eOx5+>O\jczorquWkDNW):o/{iPWR<1^W2VC<<K
+:+\jNLFU_sU>)<1:1ki^4xf_0~ICbL3:tNCgf_-+:T>DYD-E>EbAFd_s\e:Xmrj<g+W2DN
+W):oRforq^3{rKY-UWC?&cmBIQC62YBToIgp;AOzQg[$<aRfZ=A03Bk%_cd7,eczrf'/m(
+o7h{Oz2ho8g+X*IsW):o/{iP72p[g+:dXm7|U`?w\j8om|fl>JY&-'S)$GY1Tiq\9<NV)k
+hfnBuAe,I%Jb0)8JA_8AVguX'!Z7XW4Mi#t#&+JS#/;DauT3Tvv+Sg4[@6db.}-nG1@8Vi
+re1p9|tW`Ec?Pb79t{.#>8:yfYA;tFtGuh&>VhMU213Xv!1:>M;gu>u>,U[zW;fNJkN[h6
+gFUAi't#5:Lb-al&:)eVK%d~'Z0+mLRY&v3X[7fOtMT#h9tV`Ec?Pb79t{.#>8:yCVbWR6
+nxn}.=PI+0NSsa<'\PUsV|c8dbQ qY9<NV)khfnBuAe,g/Jb0)u'&>VhMU213Xv!1:1`Jp
+Jtcm.}-nG1@8Vire1pXKryJUPI+0NSsa<'\PUsV|bWdbt#,]7;$uDCG1ukBUoI8iR7UoUo
+q[9<NV)khfnBuAe,h\tW`Ec?Pb79t{.#>8:ynabWR6nxn}.=PI+0NSsa<'\PUsg-NyS0qp
+9<NV)khfnBuAe,g{tV`E+SPI+0NSsa<'\PUsqwc7dbt#,]7;$uDCG1ukBU]1Jb0)[zW;fN
+JkN[h6gFI50mu>u>Js#/;DauT3Tvv+Sg/6X~RF<oukC}H"if-d`;v'Fp:;6\:+J~n C3W>
+6m3mP46lrfb07}G#CgA(`om6_x5Yv*eOH{Xv-'cyGxHzY-T6C?&cm,IQ4GSZ4[A6)\J7\~
+C?Q`iPmV9Bh}7{U`?w\j8oXCFxE.fXXvT6C?&cm,IQ4G2YBTCW]'IrW)A~rfNbFUrfgPW)
+:7U)\h<R:k\jNLmJIQC6U2eO^CX!8/h}7{U`/7iPm(Gxn`<%4yf_-GdNs$fLE3e)h\YLVc
+)_-:?rYD/7>EbAFd_sI2R99LQ_o8.?cyh9[b)`ERh:X!9~sh7{U`?w\jNEk!X!UJ;EOz5+
+_pC?Q`ecWD\u;u://{(o<,3>m$RY&v3X[7fOtMT#r+uE@2Ptc?Pb79t{.#>8:yH{[oqp,7
+u'&>VhMU213Xv!1:>M`LS/=|;]nB`P7=o6Cb>D9dJtJt*d6A&pq.X/Bj5R7dbuR6UoUoq[
+9<NV)khfnBuAe,C_uF@2A_8AVguX'!Z7XW\uA;9+rWrYR9c?Pb79t{.#>8:yH{A[mL8Osw
+,]7;$uDCG1ukBUCA`LS/=|;]nB`P7=o6CbSyrxJUPI+0NSsa<'\PUsV|c8rVrYR9c?Pb79
+t{.#>8:yH{A;mLu,&>VhMU213Xv!1:]:Jb0)[zW;fNJkN[h6gF>J0]W`tFtG9,A_8AVguX
+'!Z7XWrKA[mL8Osw,]7;$uDCG1ukBUrfJb0)u'&>VhMU213Xv!1:1kJpJtcm.}-nG1@8Vi
+re1pZ=rwJUPI+0NSsa<'\PUsg-Ny.7g\gf<[*\6A&pq.X/Bj5RX%'^0+mLRY&v3X[7fOtM
+T#Yb,q<Qd>.GJu/<o}Q|k8K#^S--VI-%5OG \dfi+F)v8*+FICA(+~3Q\~[^kRqe?{*lK%
+mr4M<K&Sm(3{4M<V:+\jNLFU_sU>dwUH[eOx5+>O\jczorquWkDNW):o/{iPWR<1^W2VC<
+<K:+\jNLFU_sU>)<1:1ki^4xf_0~ICbL3:tNCgf_-+:T>DYD-E>EbAFd_s\e:Xmrj<g+W2
+DNW):oRforq^3{rKY-UWC?&cmBIQC62YBToIgp;AOzQg[$<aRfZ=A03Bk%_cd7,eczrf'/
+m(o7h{Oz2ho8g+X*IsW):o/{iP72p[g+:dXm7|U`?w\j8om|fl>JY&-'S)$GY1Tiq\9<NV
+)khfnBuA'.[VUnUo5CLb-al&:)eVK%q;T5Y8nmA_8AVguX'!Z7XW1st*tGpCRY&v3X[7fO
+tM.=c9jNt#QVqY9<NV)khfnBuAe,I%Jb0)8JA_8AVguX'!Z7XW4Mi#t#Q6=|;]nB`P7=o6
+Cb:`dsgfrQRY&v3X[7fOtMT#g@qsrYu<,]7;$uDCG1ukBUCW;gu>u>,U[zW;fNJkN[h6gF
+UAi't#Q6=|;]nB`P7=o6Cb:`dogfrQRY&v3X[7fOtMT#[$,sg\gf<[*\6A&pq.X/Bj5RmZ
+NwS0qp9<NV)khfnBuAe,g{QS.85J5J7,*\6A&pq.X/Bj5RmZbs:v:wA`8AVguX'!Z7XWC<
+0m<;gF=|;]nB`P7=o6CbZ@SI`T($JS#/;DauT3Tvv+Sg(o5H5JPM+0NSsa<'\PUsV|bW:v
+:wA`8AVguX'!Z7XWrKA[ug@2A_8AVguX'!Z7XWC<i#t#Q6=|;]nB`P7=o6Cb>DdsgfrQRY
+&v3X[7fOtMT#h9QSnxn}.=PI+0NSsa<'\PUsg-P;S0+jl}RY&v3X[7fOtMT#g@tW`EqY9<
+NV)khfnBuAe,o7t%tGuh&>VhMU213Xv!1:]:WOtFtG9,A_8AVguX'!Z7XWrKA;mL8OA_8A
+VguX'!Z7XWC<0m<;gF=|;]nB`P7=o6CbZ@SI;oW`XVXVu'&>VhMU213Xv!1:]*Jb0)8JA_
+8AVguX'!Z7XW4M[hqp,7[zW;fNJkN[h6gF\hSIY8nm.}-nG1@8Vire1p?r9dY#Y8Y859Lb
+-al&:)eVK%OI']0+mLRY&v3X[7fOtMT#[$,q<QCMm:R>`U9/+yLOEK>-2]tS[(,NJDctQ5
+8S!lAGnE`:,M/^6}mHrB3AZ>$oW0Fc\d/mA(dWsdFbCg)`_phspbNmt_B$2mUs4F6}+F*'
+h:Hi)}Z<,#3IUW;>&!A\j<=A8$2bpBGQTIM-KvMv:x\HopQ|k8K#q[%aMZH<>FlsGx\dP.
+meIq7%8%P<e"p$]7;JJ@uxcl6i)}j|CDPmiPfG4.T6q4%~)~4ekQqemL@]>:bP!OTUD~E`
++/@1'+OGVst_hNNyYtHp[A22 ;o5B!Vl${qPd1WMPbY2]XG&GlHLHn(/TUD~E`+/@1'+OG
+Vst_hNNyYtHp[A]I=H0BKetMSZnCavIx\/X}Aen|p&Hw(/,{"QKN^qta,9q5WBS5?PD8ml
+D>IZ-b"1`v)/SIT2ir.c(1`}uAdwr<l&`'i2<N0rR9Fes}+zN/+j`uo[?A2m?vj57B1Jm=
+34KO_+`wuAdwr<l&`'i2<N0r)>JuR?7sky.NM3Fh[?,.!UVN-%i;'sA49p0Xt{F~6>DN^@
+\m@JGmZk)Fmg3G:Gg:1mA(dWsdFbCg)`_phs<j^IM-KvMvF\SaTYn0A@+~3Q\~[^kR@tR9
+2eR9#v^*S7C3mr |'r.\.1i(dYue27l3+~3}IKhhT=&.:Rmrv20/%,r"mL \ucTk`gv/r$
+  .<mtN FUe9\R;z:+\jq4Ox,r?lceA<)\J7UWC?:Lq3Ox]s/7SzQeIqW)/LS)9|CM,K\~
+C?p#`LA5)\8%RfORS|7.]o-%>E763@WQm q>Ox5+>O1_-6Xi7|>y/{Szfz8vrvW)]JuHN`
+FS)}_pC?fr,h_Q27f_-GS)9|8r'em,o7h{OznTHlgRW):o/{Szfzd7t-v5ePkNK'I"TT0/
+(okKFZ/]GW]^VHPB^{n:A@+~3Q\~[^K2\y,5.otsv5d\!:u1^34PeEml7| #o+-@N=NRC?
+TCf_TxpT)aJ7Fl8lJ/&1W*]JuHbtC?BI1_CI&DA*\j'>f_Tx0TiPB]1_Fo8l-H+\iP4 0+
++`iPSdORS|7.SEor7D1_-6+\iPB]1_Fo8l.=mtv53BKEv)7| #<XeS[@ky1'qe?P$;@=Fr
+4xV],""XU%NDKOJov5Hgf_TT'F)` -YijyC59RFh_scX,}O|CI,Kb4C?<97{G:U+S0mS3{
+lvAIm_N3f_=;7{1d_fd7t-v5ePkNK'ng !.<mt=_E|(Ss}ZrM80.3IUW;>&!!<:R72`r`R
+v5_N4PeENm:E /Yi,;3DtNcW,}?lDf_QFi:.5&FKQk7}rE8eO{i?s!(sW*-jW)8iS&mQIQ
+P{9|Tn:XmrS/d7t-_RUyDMg9R$<Yuc<X/]k{@RVXTi]pGnKC7I,. t'r.\.1i(dYue27l3
++~3}IKhhT=&.e]eD!:U%eOv/@?*8mmdc!:u13B /X8Fxs1$|:}8NL\@Ja^B/m5_"(V`Zme
+Iq7%8%%13s&S it/3J /u+v3lkmrEf=[Fb >JqS&"UEeez&Ae`9WFi)}3F=w&DA*\j'>f_
+Tx0TiPB]1_W`s%H!@67A\j14(o?j8ZO{]s35WQ7*)ZER3FWQUGeOv/@?*8mmdc"32rTi]p
+GnKC7I,. t'r.\.1i(dYue27l3+~3}IKhhT=&.e]eD!:m=v%*i3BK:`SRt$GEeez_R0TiP
+cWs$+a/6k4U+S0mS3{lvAI9RFh_scX,}O|<23LmL=1eS*E@{d$#%;-Yz^)$9I~hT6[(')d
+evXiN+ ]XD+X@Iu|ms`a`Rv5_NrN  tKd Va0]/6i2m6S/d7j#^D9;IpQ>snB(Vs`#=S&7
+`=&~5OcEp2T22t%x(&S=SU^30&]Gl[EdZ>Z6]<]SE.?!04_"hPeCYNkj-[:-RAA1nA:)@Z
+X7G'[da46(qymCJDNo&~\@<,Ddj=2vT#XKo0Zif~rch?cmGt<y=]Kl6\:+?v)@Yb2VS5?P
+D8c"Ja\k8SD/m"_%.LYyKK+ 19h|oC\1R`@ ?v)@Yb2V"O7"A8Xfo[c#A1E8Z><q$$);?!
+ q5c.0(X7Rs*IvsP3{3~+c'A^Q--VI-%uk>X^C3|+c'A[nNi[#NQ&~6X:+Q(mc&DfFj):/
+tFQ\sYZa(Pf)]]T?kOE9_x5YJ~oTS^YVR@d#+VXIH}gRW).7hYr-h~OzX~QeOcS0oY7|?j
+[])`ER_n;bN4]3T?.2Xi7|j%s&S{7.Rfor:g+vQ.g?_YC`WFJ6ANWvIKf_S%oW7|j%p[R#
+t=]SD:g&rx.9XII&gB8RS&gOW)p-D-4XIXT.I'*D`6p:/*XmV/T>d7uLJ@p1rBsBR:/KdN
+s$h~Oz5+iJ#upd-#dN2C_pC?QngOW):o/{iP?zT#3G=w_^1oqzC5Xk7|rEC[,VN}F`_srw
+W)/L>fKYjh713@-'S)Z=&5>O\jNLmJIQoJQZ7}o2h[- ?lDf\~C? rR9]pdwLr!S@#@-b|
+9W%jd_s$h^,'?l;=Oz]sovrC/KdNh9[b)`J7\zEL_nmtcp_R,'I&oZ7|junkXk7|jEh+d;
+j#BK6IKt[,0&ANWvN mJIQoJQ./uXi7|j%s&I1'emBo7h{Oz5+iX]pk"r%m#jsQZ_]rwW)
+pUrfgPW):GIL=\Js=g\jrnI~3vu*90<;F^mA]2hb0~'"&0IuJ?)20+7,/{iP?zP?t(4ker
+hyOz5+iX]pk"+~hyOz]sULCIA?3Be_%@m8fr$^Y1>s/}PQNM8w\J?|v*QgX1QAlLoziTJb
+d9<(8`qAs(Di`Lv*uKC\2-mm]\H?s- 6@6h6o}iTJb]RCRtWEjd::U11O%o}snpj,}5L^q
+L(dwA1u(t}FOp#VtIhUOZ}ovg?)c_n7~G{rvTT@idC[khf/IS*cCbA,Ki@/}K%c~<(8`qA
+s(Di`LJtfsuu'?AF(hH$i;;/@RYu9Vi$etZt9Vi$gvT3a5FEd)KC^$if\suF2t_T!^AGnE
+`:[,*I`M\[grU*BB'sifqHk@orK"GM>0?pMVv*4ser7P.ToI*Zmm[*ov+g':Gd%=r"XO3H
+cZ7C)x!?u1roTrAlVl${ _uc\~O"=)h\56eEA@m|SUnCav /Bbhr1(Z&AOZ/]<9/r fa<@
+Ew)g/)bF$JODkh;3g3@YQCU3.W.hq.Sh0&Ok';qPH$!^AGnE`:[,*IgTs&qmq<#PRz3uoR
+O6u2hybci`'HZkrJcB:emHlC'"/_Glhn(7t/[^O2],.q?An_POZAmFlC'"/_Glhn(7t/[^
+O2],.q?An_POk"dWbQ.%??oY[G0Or(A((/D#=d^bg)*iiZ`EGyY/q.(CQ{,$H>[4U)Cpt{
+M3,N/Autc@e&;]&RE2j`&qqP(DYLu?C@.0s\MP#i[d_(?Iej;8#4=.eCs&/KdNX)Dns!8S
+l48O05_"hPOmuDCA?vj57B1J!qi?00v!\@_asaEV]GR6dtm6b=<Ze:Jc#&t}XzBB'sifqH
+k@orD>IZ-b"1dzoE&03Y>.-L':GdPH<+,bLa:Fk0C_<IVk)_q~rYT{k"<_h}Oz\R7v&(7V
+KUi"^cE[oK8/rmlF.LU?.ocR#$im!~o5B!Vl${qPd1WMPbY2TP*&4@3~de/g]7l[`KiPv%
+I9UOZ}ovg?)c_n7~G{rv.Fo6ZIQFc^<1!UnESeMT#i[d6_AF2y&lGBS9WKS"6X&7kB QNP
+VGOG'R0~NQ+XQ(lBU<Zu`so[?A2mrpW2I:UOJU`% I;xBnuE[k5H3usk3}+c'AuhHgC`u,
+Is sWqe]tTABJqGkqAG|7G.bu;qP2&u,Is sWqe]tTABJqGkqAG|7G.bu;qPIct"sh!g9M
+U&rsbeucoWlLozNn=Et@,+_)=Ye_]#JM6Y&7b1/mRQ\Roxk;;37+mC`[32>2NVVce>I_l=
+U<ADiv.MEZ]GR6$4Zu=GG <C6BRFr!4hN}F`Y-T>uH&,se;`de/g]7l[`KiPh]s5;E$BKW
+2?dd5OZ3[#JMTP/A,UFjs}[a<cFskA6>`B.6(X7Rs*IvsP_'>\?{d)K^\A^{L^$uh4d#7C
+)xljR-8e+0</2k>M<_Xm7|u0u>mvsH<drwW)olQ(b2Q @JGmZk)FtSfc_m^4NeBtdDFI h
+H!KZtMSZnCavIx\/X}Ae.<-,"Qeh^B3|de/g]7l[`KSzuqI9UOZ}ovg?)c_n7~G{rvE=u9
+8moR'"/_Gl=c=;fdO,56C1PfT6iq@IGmZk)FtSfcs7mt:iG"rn)}>Ml_sHN*P**B<|>7DC
+R?B^?vK0+ '7C'&lGB<ye[k]hSH3CFm"Kq7#DIA8Xfo[c#A1E8Z><q11O%o}snpj7hC`/^
+?fiXc(h;Fbrn?=7%S [^#zqlUr59Lb-al&:)eVK%:dr-Xn7|QT=KQf2nPb0(#UbnfTJ?@#
+4sZt'^=Tqb@LDE Vh4d#7C)xljR-8e+0CFYxBB'sifqHk@ORgA?=_M\zOzZAmFoG^[N*/i
+A('vmC5PJS#/;DauT3Tvv+A59h?Y:Ok=6>`B.6(X7Rs*IvsP_'>\?{d)K^\A^{L^$uh4d#
+7C)xljR-8e+0CFYxBB'sifqHk@ORgA?=_M\zOzZAmFoG^[N*/iA('vmC5PJS#/;DauT3Tv
+v+UImc;HOz28<;gFc@Pb79t{.#>8:yro_]rwW)8iYp8r)G8A($!jAGnE`:[,*IhUNyYtHp
+[A+G,3DT'~Z2QpNg3qc?.%QL6@flhf.H(X7Rs*IvsPV~:Gg:1mV]dZhyM(=JI^S%Vb)_&S
+d_,},I9HYw5I.s>EIGt]A_B=b|9WU*EL_pC?O(F`0dt]D/m"_%.LYyKK+ 19h|oC\1R`@ 
+?v)@Yb2VP=7E(AQ{FNCFZGP=7E(AQ{S{?=TPprG2RQ=|&8Q{Qi?STPprG2Y O&<+JJpA]!
+q?#P0(U/jN`% I7VQh^^2jkPnEXpBB'sifqHk@OR3@YPIT.bblVffjn"n+CGY Qh3m^g!T
+Vx!zSZbCfLNM6l4.P46lrf7%8%%1Q)rBs)b'/Kfp&!)~4eCI&D7 3@k%P4nTHlgRW)A.3B
+7qrfoXX=%zJ7IKf_V\7|U`/7ZAC4_|Chf_[a)`+xICN}F`Oc)1h9>y/{iP\dC4rogPW)7$
+/z>E763@-'S)Dg_cbYFdOc)1pY;HOz%{_lrC82Oco7WDY J>8J'emBT<?w\jNLmJg{DkIK
+f_V\/LdN2CZ<]t?w\jC4_|rwW)WD5,Z<Q(WU)40+Xm7|?j/{(o1dN=8nCgf_-+1`-6hyOz
+2hh9G:_QChf_[a)`+xtNrvg9N(5+_pC?fIW):oRfh;\dk)\~C?h{Oz%{_l7N3@7qOco7/L
+S)DgiM\dtRCgf_V\S(Z=Ve)_&Sd_2Cj|A<3B7qOcsGXn7|N)k!I1,)7qrffl<O]wiMb|9W
+Chf_S%gOW):7CA1#qz8JCgf_-+1`-6Hi_s1Z-6hyOz2hh9<O5/,5\~\x[a)`+x\k7N3@-'
+S)h;*2p]-+dND-IKf_V\[0NEF`:./{ZAC4N}F`:./{iP*2+xk%IKC\ly2CZ<^mgPW)A.3B
+7qmAIQoZX=%z3@k%-'S)Dg>BI7gD;A$o+sICD3XkX=NCmJ)1h9>yRfh;*2+xICoLVc)_&S
+d_2C8*N)k!_zgPg9N(%{_lI`Xk7|b=FdOc)1h9U`/7iP*2+x7qrf-GS)DgP4%{+xIC&cmB
+)1RcDg>BJ9IKf_V\7|N)?u\{gPg9N(?u\j]4gPW)ly2CZ<)`J7-'dND-IKf_fl>yRfDgIK
+f_qW)1pYk(Cgf_[a)`+x7qoIh{OzQ'iP\drC-GS)Dg>B\jrChF;A:E+vICnQ:oRfDgP4%{
+_lrChb723@7qOco7WD2iW07$N)k!I1&U3@7qrfflG:ANWv\~C?9RCgf_-+WQfr,hN F`_s
+*3fs+TdNs$fLTxlps$fLTxA%3Bk%>BfuqZXn7|b=FdOco7h{:E+vtNrvW)7$Oz5+>O>LfI
+IcgRW)A.3B7qrf'emB)12CZ<]t?w\jC4fIoIXk7|N)?u\jNLF`:./{iPI1N}mJ)12Cj|Vq
+)_+xICnQPE)1h98S;jt]Pt/KdN2C_pC?&cd_YbiXrvW)7$>yRfDg>BET_pC?fIIcoZ7|8S
+J9>B+z8u2I@6[e)`Hub+Fd_s\eWUfr,hN F`_s*3fs+TS)orVc-B,IN}F`:./{iP\dNLmJ
+2&Z<A03B7qmAo7XkX=%z_l7N3@-'S)Dg>BET>O\jC4fIIcoZ7|N)%{_lNLF`Oco77|U`/7
+iPrvW)WD]t?w\jC4nQ/LdN2CZ<Q(tR\dC4Ol-AR'rc]T^eB$-Y+UI6q?#P0(U/osk-K?Vu
+[6c?R$VfU9j~`% I7VQh^x2jkPnEQ?'uX7ttjL ilI'"@0AU t[nG2k8h`P?]C?;Zofc-b
+6Y&7g0Qd_sTsj~Cl,I:WMom^TVM9T6u}iMnOPmiPfG4.\~[^kR/KL]2f7 3@_lChf_[a)`
+ER>O\jC4N}mJ)1h9Dk\~C?fIIcgRW)WD5,Df4XhQM+_W8}4.\~[^,s?lN0/7iPm(,},IN}
+F`:./{iP\dNLmJ2&Z<A03B7qmAo7XkX=%z_l7N3@-'S)Dg>BET>O\jC4fIIcoZ7|N)%{_l
+NLF`Oco77|U`/7iPrvW)WD]t?w\jC4nQ/LdN2CZ<Q(tR\dC4Ol-A,I\~\xhF;AOzNDmJo7
+h{:EEP&SmB)1pYDqIKf_fl*U/xSz;ot]PtgOW):78l2I@6;EOz_U?w1_CI&DQ^gOW):7CA
+:L]o/7iPrvW)7$U`?w>LfI-GS)Dg>B\jNLF`)#h9>yRfDgIKf_V\sHXn7|N)%{_lbYFdOc
+)1h9U`/7iP\dFdrfgPW)A.3B7qIcoZ7|N)Q'k)\~C?fI)C[$7&N)k!I19+-Hl};HOz5+9{
+]7uFN`F`mA%jmBIQC61#qz8JCgf_-+1`-6>wRfDgIKf_V\:o/{ZAC4&cd_2C/1>E763@O\
+o7/LdN2C_pC?fIIcgRW)7$N)k!A<3B7qOco7:oRfDg>B3BtNCgf_[a)`+x_|rwW)7$8SET
+>O\jC4Olh\V]7$EP4XW`Qn+SdNs$fL?Ci$Y(?w\j,hIKf_-+IC1#qz8JCgf_-+1`-6>wRf
+DgIKf_V\:o/{ZAC4&cd_2C/1>E763@O\o7/LdN2C_pC?fIIcgRW)7$N)k!A<3B7qOco7:o
+RfDg>B3BtNCgf_[a)`+x_|rwW)7$8SET>O\jC4Olh\V]7$EP4XW`Z&]<fc-b6Y&7g0O"<+
+JJpACGsj!g($:WpZk-K?Vu[6c?R$VfU9h<`% I7VQh_32jkPnE&4'oX7tt)k'*OGVst_`&
+Ig[omrGQP=7E(AQ{S{TrosrVJh;i-8H15g1]kb15h|t8fM8FM\fbM{k!XiN+ ]Dk`LVj)_
+Hu_pC?3?qk\nN4/7iPm(,}O|8nrvW):7rfR6:pDfN F`_s1ZhQrx.9dNRc7.Rforq^QY8j
+S&+SdNs$Hn8lW*&38*TOQY&4_pC?&U4aW`9H:.;=Oz2h,}ifJb7@3@qkN F`_s1ZS\H|,5
+\~C?Q`Sz3G-'Hi_s1Z-6hyOz2hh9<O5/\eOdS0oY7|?j[])`ERZ<-t1dN=VZ)_ER8*1diP
+%id_s$fLQkiS2I@6;EOz_U?w1_8nm+PugOW):7CAm_T<A%3Bk%>B;jt]b|9WChf_S%gOW)
+:7CA\.,hN F`_s*3fsC?7*/{iP72:enXE `LVj)_Hu7 3@k%Sw/#N=VZ)_ER8*1diP%id_
+s$fLQkiS2I@6[e)`Hub+Fd_s\eWUHt,5\~C?Q`Sz3G-'hyOz2hh9<OCM!`AGnE`:[,*IQ~
+3{_cqT3{>B8'G{rvqiN F`_s*3;hh.ihnLQ{VGN6nbb[.%`@H0\nIt sO--;H=EV`jfUWT
+/e:8sT^cdC.}#,8}8t?YTPprG2#*O#<+JJP!#TbnfTJ?@#4si#Fx^s8.Vm$08}9}:IGyI;
+Y sHQd4(*sSyEp(ZDNu7C6W>6mCA6}p[gOb0KI]p&*7 3@k%Sw, ZW$!HyQ|H<CgA(9h_Y
+&*>O\jcz9|8rrvW):7rfTxEI>O\joX7|N)5+_p\xV\:o/{iP\dC?&cmB2&Z<]t/7iPrvW)
+7$p[;HOz%{+xICN}mJ)12CZ<5,>O\jC4mJo7Xk7|b=FdOcsGh~Oz%{+x_|Chf_V\2g?qN-
+%{_lrCR6iS2I@6;EOz_U?w1_)_Hu>G7*Rforq^QY&4_pC?&U4aFo8l-H]N[q;z>O\j,h\~
+C?Q`Sz9m_Y&*>O\jcz9|8rrvW):7rfe),}>{N0/7iP72G:N F`:./{iPA<3B_l://{iP\d
+NLF`Oco7:o/{iP\dtRrvW)WD2ih98SfuOdS0gQW)/tXi7|TOQY8jS&+SdNs$Hn8lN5?w\j
+NEUK3G-'>wRfDgIKf_V\:o/{ZAC4&cd_2C/1>E763@O\o7/LdN2C_pC?fIIcgRW)7$N)k!
+A<3B7qOco7:oRfDg>B3BtNCgf_[a)`+x_|rwW)7$8SET>O\jC4Olh\V]7$EP4XW`]luFN`
+F`mA%jd_s$fLQkm?PugOW):7CA:L[])`ERZ<nU\dWUQnqYXn7|b=Fd)#h9[b)`7grfoXX=
+%z3@tN:.Rfh;rvW)7$p[Dq\~C?h{:E+vICsB;AOzNDmJ)12CZ<]t?w>LfIV\h][b)`+xF`
+Oco7[0NEF`:./{iP\dFd_sChf_V\S(?r763@-'S)h;I1N}mJ2&Df_c7N3@-'S)Dg>B+zro
+oX7|N)%{_lrC?Ci$Y(?w\j,hIKf_-+IC1#qz8JCgf_-+1`-6hyOz2hh91diP\d-+>wRfDg
+IKf_V\:o/{ZAC4&cd_2C/1>E763@O\o7/LdN2C_pC?fIIcgRW)7$N)k!A<3B7qOco7:oRf
+Dg>B3BtNCgf_[a)`+x_|rwW)7$8SET>O\jC4Olh\V]7$EP4XW`DAtW',mBdLoZ7|T7Q5]4
+gPW)A.3BO\o72E_pKGV\:ob=Fd)#RcZ=_ngPg9b<FdOco7jg723@-'S)h;\dk):7RfDgIK
+f_V\7$p[k(rvg9N(%{_l7N3@O\o77|U`&TmBT<?w\jC4mJo7Xk7|N)%{_lC?&cd_2CDf>B
+3Bk%-'dN2CZ<TktR:.RfDgIKC\WD]tNDmJ2&Df_cI`Xk7|b=FdOco7WD`7-+S)DgiM\d7u
+oIXk7|N)?u\jrC-+7qrfW)WDCJ&DQ^gOW):7CA:L[])`ERZ<CJ\jC4:7]o/7iPrvW)7$U`
+?w>LfI-GS)Dg>B\jNLF`)#h9>yRfDgIKf_V\sHXn7|N)%{_lbYFdOc)1h9U`/7iP\dFdrf
+gPW)A.3B7qIcoZ7|N)Q'k)\~C?fI)C[$7&N)k!I19+hcrx.9dNRc7.Rforq^QYm?PugOW)
+:7CA:L[])`ERZ<CJ1_k4ANWv\~C?9RCgf_-+WQHt,5\~C?Q`SzQeoW7|TOo7S|9|`:[q;z
+_pC?9RrvW):7rfB&9R%imBIQ4GWQ7*/{iP72:e)c;ht]04_"hPOmuDCA7++F*'8*+FICV]
+,"c9S%oW7|TOo7d-tLD/TA-)7O11O%o}snpjGxo$^%d'g3,Wh|t8Q\hn.%??oY[G%Q_Y^K
+@.+c!g/('#iq2V$e"Jh,?>Who2ZIQFojYs[;!CM:T6_m2`=/E.04_"hPOmuDrP+yZGQFoj
+Ys[;!CL"e%A1Zmd;>8IkIFEBZ>j<)}%qNkVO[m)LNQ^k\m=301E-Em#H XXaBB'sifqHk@
+j}ib'HZkd|2w$=27rch?jD kt8_.8nJtfsuu'?AF(hH$Q^TT/IS*Mm[9J:\Agru_s.^#fi
+4sP=V`SkULR84Lh[W"_Qm[D-QEbJ_X*H7,qrVb<bH|[a<c$ Y1]X%!SHC3k0^BVG ob\.\
+d-=E;}SS0b%Z,TIfCFk0&ngqtZ`Eb.YMi?t#+pY(T>S010XjYIi?t#+pS=gqX>FxBa7@YL
+q;\Q,cqke'\x4X>y-?N=19iP`$W).7@-i$Y(19>ElJ3>=w&D[,C?m fSO{5+[,C?9+:Sk0
+^BEV5_&}:5,88<B(.::~t=7ud>NE<be:dbSbS+]'Y2u1?h:\1<_nELiXH{2/j|+SQj]TD:
+7*C`q`IGO|?v]povo0_*8n?s>M?}e4hYq|h^buR6?S,G[%-$:iFqC_jwIGhup+-'I:4qIb
+UO:]r-h^a|osh;o}iTJb,U\zEKiXCFEciXl_D-s14hEQo|`:OcS0l6h]p,sHS{j)p[qJD>
+s1Ick#TiD/SZ#P#(`&`:OcS0oId!gB)giX]pk"l_D-sED>_MT24k$Qk6_R]3T?nrh]pTD-
+4Be2?z$SOzsI_R]3T?nrsHpTIR4Ber?z%4OznTm6,GQ([V(6aJ&RA/+/\'d-<TU}rDOlG[
+]Xjsbcd7JCWj@"gqBh\z.5Yrr1gA&:uHh[W"-_5O>MR5@hK!IG<KXju}CgT>20p.bA<Zm^
+m6TpUD8.;@J~IG<V\>r1D>QEtK:aW"7)t9["8/;@og76YF\D&e<7`%tL.YQp7.:\q|Xn7|
+<OZ|n%[h)`fs,c\zEL>O1_,UIGjwIKf_R6X6EW8JZt&37,/{iP?zO^H|7 3@k%\zfl]p/7
+>EbAFdrfg@_Yro[Uj!:/R4oW7|j%p[1bN=/7iPUP8.r,Xn7|U`?w\jI'UO_v*HX~:^igZt
+&37,Rfor:g,'?l[])`ER_nfl;>Oz]s?w\j4k:g_^)'`6[q;z_pC?9RrvW)p-h]d,osm8\w
+?TS.[q;z4=e2UP8._YVZ)_ERiXnQXIH}gB[Y]4?TS.[q;z_HT2_v*HqzN mJIQoJQ.Hf2/
+IX4qEQD1SZ#P#(`&`:OcS0+US)or[(8/_YVZ)_ERiXnQ>wRfZ=A03BtNC_jyIGO~VZ)_ER
+>MCF&D_pC?IX2/*<>O\jbYFd_sC`tArn[U<z/M6m,q>B^WUL<bFs3=WNif\suF5'9HrvW)
+p-sHS{7.Rfor:g,'&#mBIQoZ7|j%s&eyp[IJ?VS.[qg&ELb+Fd_sro8RS&gOW)p-D-4X\~
+C?N}mJIQgBrLoH@us%foo}iTJbU^7N3@qkIKf_N4?w\j_v*HqzN F`_sC`WFV])_ER_pC?
+IXUOI'4qp\D:g&rxt?/KdNRci Oz8nrvW)p-h]S{7.Rfor:g+v&#mBIQoZ7|j%h;ey[&QR
+<Z/]<&2GR9]pdwLr!S@#@-b|9W%jd_s$h^,'ub:gG"rvW)ezs&p,sH8TrvW)p-XMS|i Oz
+r(b ECSZ#P#(`&`:OcS0+US)or[(7nu/UPmc:n/{>E4Se2?ze47(/{iP?zT#H|_pC?pWoV
+FZHv(/CrmrE`(#%!u~rQ9-'emBIQoZ7|U`UL]sDd!zHB&QmBT<?w\j8vCgf_-GS)or[(:!
+)c9f_YSw?w1_enCaR;/KdNs$h~Oz5+4cJ7\^'lk3:'RfDgIKf_-GXi7|U`?w\j_v1oFo0d
+qzC5IKf_!e.<k2ECSZ#P#(`&`:OcS0+US)or[(7n_YVZ)_ER>MnQl};HOz5+_pC?r/2&IX
+2/UG5LU2bYFdp$?r763@qkrQk#TiD3SZ#P#(`&`:OcS0+US)or[(7n_YVZ)_ER>MnQl};H
+Oz5+_pC?r/2&IX2/UG5LU"bYFdp$=0763@qk\{tL3=hG0~'"&0IuJ?)20+7,/{iP?zP?H|
+7 3@k%\zfmcfVq)_J7IKf_n(IRs1Ic4XJy4.N}mJiq_fNLF`mAnmrcF[ZXA~.$,@skt^2D
+@6N8?w\j_v*HqzN F`_sC`WFQ87N3@tNrvW)ezs&p,sHI1usG['ed_]N>M&cmBdLgFY[Tp
+qf9f^xAN)>Eho9j@ kJnJlj<_+nEp/\@V?a%=US.[qYXi;;/@RYu9Vi$n]E$G&H"`m`Yp]
+\y/LoOTk?TS.[qYX@-b|$"Z6]o`so[?A2mrpgBj=9xFc:;6\:+-K-Ke>I_uf&ob)+G)xXj
++CS=V],%" 9utUM7rch?^K!Xu]uY^BH!fUj)BK6IKt[,0&AN<{DC"4cB-b!$keQgX1QAlL
+oziTJbh7o}iTJbujWQuV._bl1Qp(`:Oc(%Y1p,04_"hPOmuDrPtr_&?I#>bnfTJ?@#4suR
+f$:N.T.hPmv4;B?;\@_asaEf-Kek0ufQMX ?JqhZ7P.ToI*Zmm&53(cZ7C)x!?u1&oek0u
+fQMX ?Jqm^7P.ToI*Zmmq@F{dur<l& '1AoT(S=#[rh2>],Wt+C@.02{$s'TA3M@blEs-Y
+nd0<8aed';ROsa9s(#7uNhHg_- n[nG2k8h`:iR!_'=YTPf(bG"0%@3v,+LB[,LBV[0[v3
+8QS"Nm<+^^h|@YA myb10>h&[IG/W|5TCFqnq<#PRz3uoRO6u2hybci`'HZkrJC"P4dZbQ
+.%??oY[G0Or(A((/D#=d^bg)UtC4?\.l:8n/A3L3MjU&&%a<=Ua<fHSHv4VbdZWfDa3}2n
+&lq6A-S"98iDG{E]-Y+UqlkH)X/)bFfLB^_zq9eh0aYNkE,}QE5EC1PfT6Yo^xH-bJ6z3>
+9B.CS)DgXVXVfIYM\~C?t[,9q5WBS5?PD8c"JaI8?vj57B1J!qi?00v!\@_asaEV]GR6dt
+m6[zW;fNJkN[h6<;8*YLgQW)e6gfGF[zW;fNJkN[h6<;Z<<ch}OzGmkA6>`B.6(X7Rs*Iv
+sPH<]:_wQ{!(*56hcEI_de5OZ3[#JMTP/A,UFj^H*&4@3~de/g]7l[`K_fut,Me_I1+rU"
+4Ee_\decCg&MA\)>JuR?7sU#,N7Od{3O>2NV(u(Ra<VGX0a4,P_<(<Q{uM$2;+$0BG\8Qa
+;4&ROh';qPH$!^AGnE`:[,UT-kGx[42jUzNY$A*`Gm86"N@#"O7"A8v0Q$/m'FX7G'[da4
+b e]N-@]Yu@]n?9cK*flmGlC'"/_Glhn(7t/[^O2],.q?An_f%*2S Nm<+^^h|@YA myb1
+0>h&[IG/W|5TfI_9=YTPf(bG"0%@3v,+LB[,LBV[0[v370S 98iDG{E]-Yl6b;/mRQ\Rox
+k;;37+mC`[32>2NVVce>I_l=U<ADiv.MEZ]GR6$4Zuo9j@'(%Xm:/3YN?w\jUnUo7%YLgQ
+W)olQ(b2Q @JGmZk)FtSnkIFF3'6ej'GBZ`cuAdwr<l&`'i2<N0rR9cBPb79t{.#>8:y*3
+YF;EOz28<;gFc@Pb79t{.#>8:y\e<ZA63Bi#Jc#&t}XzBB'sifqHk@j}h]s5;E$BHt$l*s
+pK05v!\@_asaEV]GR6dtm6H:qAQ=\w`so[?A2mrpgBj=;:oqWC1Hh:c\or7#p[Vb1G4e)?
+JsfstT!g9MU&RSRIG6A@PHSvW<-%H"S5?PD8c"JaI8tfr%fM8FM\G[*2MZo7N+P**B<|[r
+hf.He>_m *6!.Nf.-YndYsU!a&ZqpGflcm!NN'hrbP;7i"OpbCjP>FYdBB'sifqHk@*=fK
+3A_c$oo86hCA)`Z<d[XiFcrv@n`+1Pu=I^)jmKnm76&! UJqh:hy`cYo#=bnfTJ?@#4s;X
+h:nO%bMZo7PmiPhy&![phf.H(X7Rs*IvsP8,\e$opY6h^xPliPMRo7FcCg)`_phspb,K[z
+W;fNJkN[h6<;h:A<3Bi#:v:w*a6A&pq.X/Bj5RfK'emBAIE7YPm Q(b2Q @JGmZk)FtSnk
+IFF3'6ej'GBZ`cuAdwr<l&`'i2<N0rs%#ZbnfTJ?@#4s;Xoq6h_9Pl/elsGx+DIC)`iZ7|
+p\]?tpcj.}-nG1@8VireR1fb'emBAI5H5JJg#/;DauT3Tvv+7+p[[h)`9f?Y:Ok=6>`B.6
+(X7Rs*IvsPH<]:_wQ{!(*56hcEI_de5OZ3[#JMTP/A,U+oJw'4OGVst_`&IgW1iMMRH<+D
+?LcQor6hrf3A\~Ozk#DIsL"1`U/}auu,u<4G$~h9`cYo#=bnfTJ?@#4s;Xh:nO%bMZo7Pm
+iPhy&![phf.H(X7Rs*IvsP8,ToX>C\T";>mHoWa^Yo^x2kt?9<NV)khfnBuA'._trw:RJo
+Va/tdN9B<6kD4F9RCgf_[a)`;ht]b|9WChf_'yd_bsS%oW7|,GN}F`rfoX7|<O^xrch?2L
+:3N~BB'sifqHk@j}YNkj-[:-RAA1nA:)@ZX7G'[da46(qymCJDNo&~\@<,Ddj=2v*0>!G&
+RWZ(]<9/\J[&`b%O(\DNrljd>F^C`qo[?A2mrp!<Oi]19/\J[&`b%O#[1SNQ^k.LBmpyoD
+_4\mFP5xV\]?0[<CGmAQ[c2[h:.H""$]Z[ H*q'(OGVst_`&Ig3S3~+c'A^Q--VI-%uk>X
+05_"hPOmuDKIN6dZnOFc*2S VYH=%~?>7%S [^#zqlUrnojYn90 :yv5C6l3kN:v4.IK  
+?U:O11O%o}snpjMnrDM{6lCA6}p[oWN+P*Me`U=3de/g]7l[`K*qV`FcI1)`8*mHC3?\b0
+Ry;>mHoWa^J sR9<NV)khfnBuA'.[ZUnUo5CLb-al&:)eVK%[e]DgrqZ8Sl48O05_"hPOm
+uDKI_m^4NeBtdD_+,ZVwS6K >0?pt{2j>c9+7_uoKUi"^cE[oK"Y8|?S8FS"qT_'%a_lOz
+n&+}_)N*?\Rjv%A_8AVguX'!Z7XWP4_u;BOz28<;gFc@Pb79t{.#>8:y\es1,JUWNL8uW*
+p!GQu'&,se;`de/g]7l[`KU|[&p5Vk(dqi)Y5gj`@KukBKI.q.k.DX.7(It]!lAGnE`:[,
+*I-]Gx+D?\cQor6hrf3AUWOzow+}H>>_uSPK+0NSsa<'\PUsC5N}FU[oS0\;=|;]nB`P7=
+o6.-pY[h)`DQmLofRY&v3X[7fOtM.=AK<w,IOn,0O- t[nG2k8h`%4hPNyYtHp[A22 ;o5
+B!Vl${qPd1WMPb\m]<#YbnfTJ?@#4sfFX>C\T"q4mFgO3AIK[RYVGUp;N^Mvqg=|;]nB`P
+7=o6Y8n&[h]Dqpr}9<NV)khfnBuA'._trw:RJoq\/sS)ReXLv(&>VhMU213Xv!bKEL4e<2
+j#JbbKFdmAChf_qiN F`ICgRW)A.3BWQR9jubcd7sxp!CUtWglUCbY3:qk\~C?p\i(Sa[q
+;zmz>w/{>EVt)_9f_YVZ)_Q^IqW)/LS)9|CMc @:D/m(a' e[nG2k8h`%4=EJ_4$dx_e6@
+:+`TCIJ: sWqe]dDV6j#oAM+A&PZaZKT:0&T(DO>uA'@3^uk>X^CZs#Z.Nf.-YndYsU!a&
+ZqpGflcmiV0gPDSJ^|\m=3dk,Bt`Qw^Z%aS fimH\l3AP4dZfG_9N*/\l3dWXiFcrv@n<w
+jWj(" 6mK%]ZY^:x_]4yf_-GcyGxqWIQgRW):oQ]orWC]r?w\jNLFS TGNs.O$JlYFv47v
+Triv:0qSPDfb-+WQD=QX4D&U_lQ/WMD=::]ZEV9XU=Q/iP721do~iu*2Bo]X&38*TOh\fm
+1c$SY12Mp.#2r+fLoICFS|G~#)W0:7oICFS|G~DzZ>iv &Y1]XS+u1<Vv3q`)1o8-JhG+/
+\k8oJ9/3FoU)sz-#>w,G:^cborVc3\=/,Kei72[&WFnS+/\k8oJ9/3W`:aZXqZ2H8*,Gei
+72[&WFCH,K:^cborVc3\cLorfs*U9B-wr"QpD3_Q:/qSPDfb-+WQCF:oqS:6rf82QK&48*
+TOh\fm<N6pOMrfQoD3PbELZ<5,Rd3Ge_I|Q\6>rP4Ek%SwQe4D&U_lQ/WMD3Hk#)W0:7oI
+CF.7EjK)EWQ>]44E-'Hi-+IC,)8e-HHi82CA&Ufs6?CAQ`tR>F9+UD>z7*qSPDfb-+WQL_
+I%C6ro\mJ.)41JcLorfs*U9BnXHiqWIQd#2)cL5(8*TOQY7} #gc>kP5cr[42;R9`'mq-$
+lwnzv4T?EI:+>LnQ/LdND-Z>czDgN mJg{[b)`Q^4Dk%_c8ofqQ/7uQK:pRfDg8J*2J7_c
+8ofq\m-GS)DgPbiPWR5,RdfzNLFS:.[])`Q^4DtNI1Q`WM,):7qSIQrE82QK:pRfDg_Q*3
+J7_cQ/WM9+jy-'>w[]Ox]s-E>EcbnQ%im(IQgRW)PEfbos2E:+\j6?rP4Ek%Swfz\m-GHi
+_sI2,)8ecj&A:+\jbY3:tN*2-6hy7{>y/{>E8WfqCah{7{,Gei72[&WFX}EYb+39k%IKf_
+82QKQ?,c:^cborVc3\b+39k%IKf_82QK:p[]Ox]s/7>Ecb9|8rU=NE?u8W;fP9EIb+39k%
+UWC?,)WF7*Q]or;HOz5+8*\oiX26f_#)g@qXIQC69+#*W0:7oICFt=2H8*,G9H26f_'em,
+o7HkTxA%)\ER_pC?,)8eXSA.)\Q^4D&U_lQ/WMs%+Tcys$Xn7|*UW03\jsPbJ1P42h,},I
+T6C?N}mJo7CFiRN5-%iPVq)_J7P4nT+/jy>BJ9/3W`eEEdQ^/Khy7{>yQmZ=l{G8N FS_s
+Chf_82CAs%T=-%iP+/tC*2ER9{nX>FQn4D&U_lQ/WMm N;-%iPVq)_J7P4nT%im(IQoZ7|
+*U9B5/&Sm(T<lps$nTPE,`rGN;-%iPA<3BtN>F:L]olp*SW0:78lN5-%iPA<3BtN>Fs%+T
+cys$si7{*U,%,IP42h[$WFX}8,,GN}FS)#h9>yQmh;>FQ`QXoWX=5*_pC?L_I%C6_|>Gs%
+C4Ol,`Ub-EiPPt4D,)ICQ`WMCF:o/{iP+/jy>BJ9/3W`&cm(T<A%3B-'Hi82rf-+8e83rf
+#)r+fLoICFiRq8Ox8n-+tC\dtR>F9+4Y9HT.-%iPU=,cT6C?N}FUrf4Em_QY&48*TOh\fm
+\n&5XJl{s$fLTxEIb+39k%UWC?,)WF7*Q]or[h)`J7/3t]:.Q]DgPbELZ<5,Rdfz,cT6C?
+N}F`rf4EWQm Dqei%im(IQoZ7|*U9B5/b+39k%UWC?,)WFL_I%C6ro\mR62t9X:.[]Ox]s
+-E>EcbnQ*2ERb+39k%\~C?,)1`-6Hi82CA&U;h-6hy7{>y/{>E8Wfq,c:'Q]DgP4]sA%)\
+ER>O\jQ/Sz3GWQL_I%C6ro\mosm N;-%iPlG)\J7P4QeDLW)/LdNh9qXQY:pb=39-'Hi82
+CA&U;h-6Hi_sI2,)8ejy_QOdSoA%)\ER>O\jQ/SzJ>N FS_s4yf_828V#*g@qXIQC69+N5
+-%iPA<3BtN>Fs%qZ7-Q]orq>Ox5+8*8r26f_'emBo7Hk8lXSA.)\Q^4D,)\kNEX~Qe4D&U
+_lQ/WM9HT.-%iPU=,cT6C?N}FUrf4Em_QY&48*TOh\fmrDT<EI:k>LHk_s27C\7$TOSoVZ
+TjtJCgf_#)r+Hn_s1Zt]*2+xWQ&cm,T<VZ)_Q^4D,)\kNECIcbDgPbEL8**U,}\qA0)\Q^
+6>rP4Ek%Sw, tNCgf_#)r+HnrfC4s%IrW)Q>cz5(8**U,}<Q *Y1]XD~Tgi|::=:leFQDB
+Oas}7?W>`bCE9UJX9&m6jFAG;tj$o[K'n)ng@AJq3L:I /Ju=:mDXfLdo7p&-$[H<+^^h|
+kd=|;]nBFVGb213Xv!`I;I[7i2dbi8:)@ZX7G'[da4[zW;fNm.oEDBG1ukBUs,JU$=cm.}
+-nG1@8Vire<[am4Xi~ciJW95V dD#%V$s>O$Jl^k\;XD9e!F8bk*BC`]\miwt*_`fTt84U
+$0( '|MvKj6SgBX>C\T"qT%aMZH<>FlsGx\dP.meIq7%8%P<30]IV:kj8Fk%,8%MY4i~@6
+1d`8 I;xBnJz#/;D6jp)uO'!Z7XW^}q9X/t``E".m"-$[H<+^^h|kd=|;]nBFVGb213Xv!
+\Efr^qQ^miZa!e[EP|X8Gb^}q9X/1$'-XZJ.!h[WR~g3d?<TU}rDJG=(sX>*uk8S]h>k/}
+%FUrI}gj.J,:Um@8'~RL0$s 3OeCug&>VhMU213Xv!irMkspB(;fcL\xbcB.E{V tabe]W
+eCug&>VhMU213Xv!irO]spB(;fcL\xbcB.E{V _,bh$"Eh3=m$5;,Z; \La+dK$BOkI}!p
+ONI}>!EdZ>]XTAfE'rVcfEbeIiI:L]*b/g4hFsTnX>+D$sGxI1W>6kCA6}p[DLb07~G{rv
+e]%$/Bn7^%Q42h#&'q-vs|0vlbi9L^LJ+FIRQ$GG *GS]XU&ZTv(&>VhMU213Xv!clOR`M
+S/c@Pb79t{.#>8:yI2Q`h~dbi8.}-nG1@8VireR1I%C6XDEW6t?NNB?s+/"`#y:gToX>C\
+cQ6i)}j|CDPmiPfG4.T6q4%~)~4e<2^W\K5ILb-al&:)eVK%[e>wbv)W>df8Et,3ER&,[7
+]F)W>df8Et,3ER&,[7r{i!ZC5QLb-al&:)eVK%V`c8@6dbA_8AVguX'!Z7XW_cNE]Cqpr}
+9<NV)khfnBuA,Sjy/3<22kVU/f71/y%W!@M(XN:Gg:1mW>6m)}n \lM{k!Hi)}_p;>&!)h
+$UY4jF>5*d6A&pq.X/Bj5Rh}>ya})W>df8Et,3ER&,[7]F)W>df8Et,3ER&,[7r{e]eDEV
+]GR6$4Gg.XPO+0NSsa<'\PUs4Ft``E5ALb-al&:)eVK%V`sHCIp!u,uG&>VhMU213Xv!cl
+orVcU&`*%>Gd,}I;L]*b/g4hFsTnX>+D\kVY%b_lfi+E$spYDL7%8%G#rv:RmreCug&>Vh
+MU213Xv!bKEK%6FAD\6?a@Pm_s8Q`Pi/F@D\6?a@Pm_s8Q`Pi/AD]$v(&>VhMU213Xv!N7
+]Cqpr}9<NV)khfnBuA,SjyP4]Cqpr}9<NV)khfnBuA,S_|\ei'm6u0?oC:Xz8Ot|oPiK2E
+e,Fo)cn 4D$~pYC3*'oq\lb07~FrCgA(o^FZk9nZ.}-nG1@8Vire<[r.Xn)zdk,B*^%!iR
+OJsWQ\)vdk,B*^%!iROJsWQ\[xJ}l_R-8e+0K.gdu_9<NV)khfnBuA,S[xS0\;=|;]nB`P
+7=o6.-h9TOAI0+BA[zW;fNJkN[h6<;8*TObV.<mlr97Q8K7Tl.@Of=\zC\T"m`C3*'oq4D
+$~o8rBcQ+~H>4xV],"@vR9tg9?A`8AVguX'!Z7XWIKN}i#ar9Et6p1WGeBKs21hAar9Et6
+p1WGeBKs21*Ct/3J:8Rk&: R:Rm:[zW;fNJkN[h6<;'YJe0)PK+0NSsa<'\PUs4F&U4auK
+@2*`6A&pq.X/Bj5RnS:7CAXDEW6t?NNB?s+/"`#y:gToX>C\cQ6irf8FM\fb8FMX3{T6q4
+%~4/1s<2^W\K5ILb-al&:)eVK%[e>wP<30]IV:kj8Fk%,8@8DW30]IV:kj8Fk%,8@8ob[l
+>Q.YPO+0NSsa<'\PUs4jf,?Nsg<']Cqpr}Q\hn.%??oYp|.}-nG1^F^{T3Tvv+qE3821MF
+`MS/V/u'WQrs#PRz3utw9<NV)kE/pGX/Bj5RIveN:)WP0+BAX^`DCIJ: sWqe]uu&>VhMU
+i{ti.#>8:y@#r$Q\FKWOR9FQ*]QH-O\4KsD/qPiP^}0G`L<bTo`%mq-$Xs`muAQ(qg^K!X
+r:;jOmFp3(k]l;jYn9fp1h^u%]N>;%I-96(^smTfT3[mn!2jt?9<NV)khfnBuADk*elbR-
+8e+0g:(.REaZKTp&(7it2lt?9<NV)khfnBuADk2-lbR-8e+0g:(.REaZKTp&(B0+XDFx;i
+<ze-lAKsNMGfVE8cg&o+6X,l6 n?.cB[lTFQDB7I(6I$IwWj[zW;fNJkN[h6gFuK3t:8Rk
+&:3EL9>//('#iqMk].J7Wj[zW;fNJkN[h6gF?U3v:8Rk&:3EL9>//('#iqO]uF"$<XeS^C
+PI8c&gsoTfT3!k/.,j`G4ZHK-p?~4u-p7vuk8S3>RymiZa!eEo9UJX\)OwpzlEFQDB7IeS
+jjd,=Teud,#Zuk8S3>u|c8)w(Nc=9dt#sf_`fTt84U$0( '|MvKj6SgBX>C\T"qT%aMZH<
+>FlsGx\dP.meIq7%8%P<u20MQLJZ4$CG1@@RP{QCEWAE$k/Bn7^%Q42h#&WmWWm1!l3vSA
+8e5=*"\n(_[DQVQC[-O1@AI~3vG\=8D{[zW;fNJkN[h6gFc9t4O$Jld1s+JU$=cm:)@ZX7
+G'[da4[zW;fNm.oEDBG1ukbum$hd)-nTjS8nr =@ r=b8No?5B86@;'~tz<V!.o5OnG[]X
+s8 2uf]hiv;aOmFp3(k]l;jYn9fp1h^u%]N>;%I-96(^smTfT3[mn!2jt?9<NV)khfnBuA
+Dk*elbR-8e+0g:(.REaZKTp&(7it2lt?9<NV)khfnBuADk2-lbR-8e+0g:(.REaZKTp&(B
+0+XDiwDzm1Lw?9OtsWsfs>^`rD',N"^|DV1W,j`Gi/U%c*>5*d6A&pq.X/Bj5Riv[Zk.DX
+.7ST2ESKdy:<\]Jw=uhC>5*d6A&pq.X/Bj5Riv[pk.DX.7ST2ESKdy:<\]hUi!@o::]Ziv
+^BPI8c&gsoTfT3!k/.,j`G4ZHK-p?~4u-p7vuk8S3>m$5;,Z; l\FQDBOapzlEFQDBe7`y
+8SsLpz8Q=Vh))Ho8Dzs.P;3p0|PDSJqoq8I,Vsr;I,(@0 /y%W!@M(XN:Gg:1mls+D$~pY
+\lcQorC3*'e6sdN*P**Bt/@{,bu6H(fnB`a%+i,Qk0bj)W>df8Et,3ER&,:f8yd-#Z"(gw
+ivGmD.RwLCXI#ubnfTJ?8{)goqrB8FMXfbM{k!hyN*O~owoWgxZ'GUB-[8]2)Ft7O'/xt~
+F~[Rgr:4(>6Bsgm~u+YvK'd3-8(X7Rs*-ZG +D/iW>d[CDFc*2S VYH=%~?:b0Ry;>mHoW
+a^Yo=,]v]\a0Pmpn!Q'u=+aS8'0rr'V]N9G16>(')devXiN+ ]`lm6QMm(F0@dMqcn,ZBN
+T 2tdk,Bt`D)s0M/T3Dn+ym:%!kT@nmwi9L^k8QAMT3{_cfi+E\kVYH=26l3+~3}IKuATi
+2mS~0K7UPmp0S5L6'1OGVst_X>FxE.TP96$<Q8@y,bij/.aA>2VE.v%Ct{F~6>DNOiRFEX
+eC]O.q?An_Y8,SY4Tp+Fj+9^)f`ra^`R?n+/"`#yfXX>C\_MRy]P3A\zOzH`%~^3N*/u_+
+B|>02>A<@VV SA8e>&nq3Po<g?b0,$F0Swc/4Dg9U%eO*#`ra^eY#$/kt n)&+Jl^~(HFs
+Tnc)G"C\R}:]mHO7)`N_Ozqy]?J5KQi"3X)"pZC\c.Gzbf;>+|A{TiAP[8TiFu h#z3f/(
+T:0]0;; ,3_/AQ*2C\tL3>ml!Q'uGMeC(z^R%a5R6k^ 2}M&,E0ahan=R#2@U&eO3LE\g]
+R2c?Pb79t{.#>8:yUP+Ej+TYa]Q=SKoKr99!T;SKBvOn,0O-p$(Cc=9d?N/>[)m/]~Da_9
+uH^d 2.w-3Bs(5WT8c^wMUKZtM%*>7Wz>0?pt{2j>c9+mUkW=|7Z@'#BfpE|nE6@@FJ`<2
+3Lmt8FH(stG"12A*q]*_,&TyI6XSm6Tp)8Jum:TP\K,`ty,:Y=Y:%Ce!#$/knzPlp0qSv-
+tz:p'5&-9As]8U(0Jumr)d`ra^$xqPPl&vm(_n+[siG.$xkTky,Xty,:Bf5TeEeE2w$=27
+f??fI5deCqmrj<kC"b$A%\@\?!D+)8]sXhMU,?aA'SF#7;h\Avp{i>bVRF=Q\-!}Gn+^&x
+nPWDTidS,iVV43;?;~hT$bHmM{6l4.Z>qT3{>B8'Fr4xV],"c9TTeOJCWj$]@#$xS<<f9f
+?P2mY`Tp&UOGVst_Qw3OiMnOPm$zW0%b_l[^%~)hiZhy3vTiEX8F.Fk2.FBiTiqhZ'pb2V
+pKUj%]/_#TbnfTJ?@#4sfFs;^CFbAB`+dcMRu}u~pA kc_7C)xb r`4MinqHk@:}h>70nH
+,jR>-<i@[)bAK;N<@JGmZk)FtSnk7h0'mF#u>auS/Z6}:yPO@.kMBJI.q.Gjez.*`;[,UT
+\:e[fjs;@eI~^EH!uDM1G'<E11O%o}snpj7hjMm$dVO4t!0.)`u7u<^e#2+{':Gd%=h#qx
+DXc"Ja\kZFNAfZ9VKCp*ttD'nFoK5|t=p2?AcLdd@:Yd2Vrm J$>27IFEBZ>j<:.aR^cBN
+?RNZ1.bC\8:Pj.l1WD]2FP?R'6<|V&;4g3h]7t.HOhBB's-*\7Qa;4g3WD]2FP?R'6<|`p
+%O(\DNrl>(9@[+[&Oj<p);NO[#eH,8FNCFZGj<W{:RBX?%Ga sg.-s/`@ cnM;qO'A,_h0
+EQ9xky.NM3FhQ(9/&TA4>%Z-1F1Bg#>s8$XDeE:.V``k=4U'J+GcBGPYi>50j=jXWD<q$$
+);?! q5ct69hU&e19bU&:&h>70c#^}f=6kaC@:Yd2V2pRsQ]6u3z-I??oYQGOC,ZLrHCCF
+m"qWDJB).::~t=A/+/FNCF9fU&$P`]C\TTTS"5t,ZQOzmeK-YVd"ZQqZWb.-3?qkrRd!>i
+i$n]&A:+\jj&R$7|k6DS9pi$Y(,"hy7{@+QLk1SIuI<q);TS<,W} bWL-<&,);D-NZA~n;
+eDhy |u1)de6`e@9FrOxg=@@YPv%nX#ROz_UaEDMW)iR)(A4>%t7Fu :u|7}FrEfEcR}[^
+!z^~J4d#ZQJ?)20+>kO(FSU)Z!21bH\*r8ml TucO|n&kMkG/eA(#vGgtIk/-#PIS )20+
+G|_]4yf_'ym(AI]lCRtWJ/-G>gN}FU8l'zm(3{SBuI<qTF\R1$'-XZJ.0W%W^B\mW}:RMC
+kIN*/\eEeDhy |u127m$3{T6 +Yo]w`Dt>aTW)/tW0bA39WQs%byh|h1ue)de6`e`Y%~?:
+TTj)mGDL NZrU_,hicG9ANWvjy\n]rDd!z]WCGp[-#cy,}QV/u2C:+1_>'\jhfcmlyhucq
+_e*giC56n/A3RIB&.b-~j:>F;~-96a('?:W)1neEeD!*u1hC7|Fr`a<jCHtW',m(dL/F2H
+@6]wA%)\t!,bINd#>ii$Y(-%>EE#m>QY/u>gN}FS8l@;;~-96aEd(vmmq@)[8%!}t,ZQOz
+#{GgtI/s>gN}f_R6=YJs=g\j62Q`fH=He7J>)20+>kO(f_iWQS`VW}:RMCkIN*/\eEA@9L
+\j[^!zt,ZQOzmeK-YV/M[4ug[OC?9RTXiM26f_hF]SR6t>)70+gDcjE :o]M |>km hE26
+f_hbWMfr,h-'cy,}dIRc7.,GT6C?]lX}uI0eGl2$v*7}!}t,gB3A/qeEE$Fc?c[;grHo1Z
+4=p],bG<l~TVM9T6n:/r_eiqJbU^8vs1rff/?5rR:.H:&QW*ez- QV/u2C3DWQ.ziP^Y--
+VI-%t7O'/x2L@6XRQ@j!U_Dd!z]WciZUdmh9]TB&m_fK0VSzOC7|\o]<FPHk$l9Jndv#eU
+sa5^&}ZU-q?B9blmflSM3u)"5OmF TucRv"5t,?2(voO<f*\/j!$Vg8PTsszi'5P?U"(79
+Q"3Qqk0mqzrD+QJwR?b~i@La).3^!sNIa2G+CFm"Rx&~c~?9mb.xtQ+zZGQFojYs[;!CL"
+e%A1Zmd;>8IkIFEBZ>j<BJI.Nk(A[+OH8<+yZGQFsnLgJMf(bG.\d-=E;}QII6(S#V<=`2
+Q(bxh|h1D(9vu93J\~K6J}+~^\2r]|dYsd |?O5*]vj_qYilg,rxYD4QN}F`mA4yf_k#7;
+h\AvCVg&rx.9]N,b?lq3Ox]s/7>EihU_Dd!z@:o^@z[5]O&oH]0u]W7%3@P*-E(oQT_][Z
+oFOeN"^|DVouiTJb,UhBWM9R4xf_'emBo7>i#rRlV!rqZrWz.MTA;C=NVzo<gOW)N+FU0d
+nTazosZIj<Rv':u|D)Hwit/ _eh~hyLem]lY<'150XGdCF9fU&:&h>70K%+~ ~u1)d'xmm
+FUC\[;grHo8jRp=YJs=g\j62s%d!>ii$Y(iMmQIQrEf/?5,Lm hEmQo7Ps8jS&rBf/?5,L
+m hEmQo7Ps8jF__sm,ZOo\<Sfh5|FaQrQ=>uSFZ=7&,v?lDf;_)_J7[z1.ANWve_2e?hO{
+h.*a/j2E@6oyV^A.1_qzC5SForfs5|FaQrQ=>uSFZ=7&,vINcBdZOcS03}C5SF9|_YW;Kz
+mC-O,E]l0V>EN-9mh2*a/j2E@6oyqY2H3DtNOcS{Lc:n]M |SXpT-#7}*UR#d-usp!CUtW
+gljx8J:.0RiP72CMQO]4dmh9fm5|FaQrQ=>uSFZ=7&,vR'iR>];~-9Q\G\PvkIN*/ieEeD
+sd |u1hC7|Fr`a<js~I|id,ym67;h\AvCVg&rx.97(Q]or;HOznT%im(IQItW)[08ee*+V
+cyYbl;)\&SmBIQDOW)&3:k\jNLF`_sRmfzsFrujXQ'fH=He7J>)20+7,[]Ox]s-ESzQeDL
+W)/LdN,}1fN=-%ZANLFU:.Rfor[hOx8n4xf_-GdNs$>l9+jyhwGb7r7!?N2;s&Di`L&:Q^
+DLW)/Ld"h9]TR6/u2C:+\jbY3:k%\~C?DAJ5\^'lJr[xMX`IiS;Al@cXiq& mB3{UWC?9e
+r,>lN FS_s4yf_hbWMJ6i~;aI-96Si0&ANWvC57*Q]orq>OxX~H|\eDMW)/Ld"s$Xn7|@+
+o*V)^Kt4P;3pt@f{ND')7FiOP&/7iPsd7{ADUG,cT6C?N}FU8l]Tk#i~;aI-96Si0&ANWv
+C57*Q]orq>Ox`6,b1fN=NDFS_s4yf_'emBo7>i#rRlV!rqZrWz.MTA;C=NVzo<gOW)N+FU
+0dnT>gN FS_s4yf_hbWMJ6i~;aI-96Si0&ANWvC57*Q]orq>OxX~H|\eDMW)/Ld"s$Xn7|
+@+IDf1?5u5c8)wu;CM72N_+bDg8#RforIqW)0aP9A%)\ER:k1_hQ=sRw`V=3E.EIH :r^^
+h|,Y(Q96#O9=ndB/.::~t=7u>X;~-9Q\G\Pvpn^[N*/ieEeD!*u1hCX=`a<jRqd fqk!*H
+W`_QA`B=b|9WU*RHsJrb&w?pQHX%9Vi$Y(&*>O\jI'jy9F]7CH&D>O\jIb4XHZjy9F8rCg
+f_n(I&/FhQ=sJirGLs7|*52f%nGdi.iU\suF9+Cgf_n(I&/Fqz\~C?jq,oJwO\[dZ-h1Sm
+t<sJFb26 7u|X>EfEcR}[^!z^~J4S%IaECfqqZZ~Dq`LEYb+39qk*H>'\jUl]9OdS0/Mhy
+7{`+8eF_rfc@dZOcS03}T6C?Ibhw5P?UDj`Li]hy7{`+0]t]D/NZA~\)e[fj_~Ry;>!|t,
+3JUWK6J}^yN*/\hhCxs0s.^#fiu_Yx\PdCtie/2w$=27ufb_eh&"P3bJC4Png65^%lQ)T<
+SKDglJidSwf_ekUaNDlvT<EI[jUDCL_^8pb^4kfyqZ0$TtY!H|\eO8f_/ue{T_EIBS\jI'
+fw,ce'C?r/WYBu:p+_iPHlO*r/9%-H'xs29%qXT!]0`Ai'avnr*/N_C?V])b9fGqs}.Lol
+MD&"^S--VI-%`ZH_SoA(&"3(e'qT3`n/ d+rX7m(XfLd,T[zW;fNJkN[h6<;#TuK@2*`6A
+&pq.X/Bj5RC88jJqJtuO&>VhMU213Xv!_h]uVZJ,9{Fo0dE.dR5[#6W|oS0V%WSW0b%Z,T
+Ifo5 6+DAb_z+yY6Tp5HIbXIFxuc9<NV)khfnBuA'.\)FO C\v[$Le;}Gi(;cLOCLu..k4
+8S.=mtQMN)lvIQO*Q(O)N}lv3{Tir%=|;]nB`P7=o6Y8!i,GczlAaI6B-~_ O8Aebl6JR2
+pdWDR9Fy/}/Md~Gx3=mtH:F6j<RnK80V%W>":,.];~KLfp2iUGeOt-Gjcf?zO{8nSoIXfw
+C?5`[b?n,He#_vCK\j+TPzorfSO{nT?zb6t''}R7p,mRo7'zq6r~1ZW*:o+_SzJ>9w7 3F
+k%')f_J.&QFie9Q|d.TTd>m,CHEPP?2f<N NP|U{3&+]oI\&\uCRtWJ/G<@6G`;zet>gV]
+,"3QT6qT3`n/\ =PBk21P4I9:I3n\~q4%~)dEW#=-5[meO%$-5WEr:RL1=@-b|9W.MolF]
+`=DxHeO~meIq7%MZTP nNHmyf{JccPV9o<Iab07}G#CglsGBf(AjBnQpg6v/n+ \TT*g:J
+t0uT4P  g}jtt+9?f3=|;]nB`P7=o6Y8me;H3vTi&y?pQHX%9Vi$Y(&*:+\j7N3@WQm ;H
+OzH~tC4xf_N4n%]Zos>i7*Q]orp]@)QL.8?l[]:CD/J5\~C?b51L7 3@tN4p]lCHbA3:-'
+j#gB]TR6:pQ]DgN FU:.pR_88ehc-#j#gB]TJ.gRW)&3:iih<NnXtmYZu1;hI-96Si0&AN
+Wv8J'em(o7Xk7|G:N F`e9gBpWOx]s-%iPhBk&]05*:k\jqZsI[/8eR7/uhyX<]25*>O\j
+l5SpVZ)_J7USj!\nl;)\Q^p,nk>i9+-Hcy2Cb+3:-'sDjfWMDAQ\p,nk>i`2Chf_N4XODs
+.7rGuQU%eO[V/YB/[8<q);p)$^#BRz_!,AV{N9KTco_eODLu..k48SALoYD(]/,zug?dW)
+1neElK38:TkNkG/el3 %<w7,JerGLs7|1d8g&U/C5l_^CHA.1_qzN{DqiR2I@6XRQ@j!@*
+T/Dd!zn(8e&QW*S|>mfr,h-'7}R%7|?jDf\^'lU],c:'O{CIE#ZK8e-H]Ni(Sa[q;zmzU^
+pTg}]T5{Far3>wh:mQQYk1SIH|\edm,}QV/uV'^Kt4/KD-Fh8lEXDO9FuoSM3uT-ZFNAJ~
+etX=EfsQ?=(vmm]\3A -?UCx#|RlV!D1_QT/XODsd-ciDS9pi$Y(r(7-]oH~tChBL'mCC%
+T/pTmcnk>i1#qzC5sF.6INcBdZOcS03}9HHlT?XODs:o]M |>km hE4pDA;fCI&Dq~8VB'
+s%byh|h1D(9vu9Id3AK8`Sovg92r]|dY!*p GQ9HA_B=b|9W)~_HJ1\zj!>x]M |[8Gn0M
+=ZirNR_I(JsHHd:TA<fr,hUSI'k%YfKzmCn04coEn^90-(<F'CXqn%g?iWAC\.!}dQf+IH
+hTg(RA:0Xl.f;MetXI\ybgosPKS )20+G|q5rPg@ECJ5\^'lJr[xMX`IiS;Al@cX_gc*Gz
+'aQT/usDeys&>l#rRlV!rqZrWz.MTA;C=NVzUS:]C^O:d-'y/C5loN?P9`<{2LVgZ|7_4q
+U<g=(>to]DX#o\<SQ,Ias1rfZO!xdQf+IHhTg(RA:0Xl.f;MetXI\ybge)l7I&gBhbtJC'
+/ZueA[${J]\qVcbJP{I:O~ov/C,rdIf1?5u5c8)wu;CM72N_+brU)giX>gZ&5D?UDj`Li]
+b3r-XN[0r_f/?5u5c8)wu;CM72N_+brU)giX>g9e_Yjn]pZADs/L>fKYhf_"SAYwDx79?d
+O@Ic4BXE0]-s?j]M |[8Gn0M=ZirNR_I(JsHHd:TA<p\i(Sa[q;z8%]oXOUD`6rhV,^Kt4
+P;3pt@f{ND')7Fnt3P\z]PSKH|jsUSI'tN=7!`dQf+IHhTg(RA:0Xl.f;MetXI\ybgB&#|
+RlV!rqZrWz.MTA;C=NVzUS:]C^O:pe]DX#o\<SI$+Vj#gB:a@+o*V)^Kt4P;3pt@f{ND')
+7Fnt3P\z]PSKH|_HELiXE :o]M |[8Gn0M=ZirNR_I(JsHHd:TA<;g>'L*mCn04coEn^90
+-(<F'CXqn%g?iWAC[8<qTF]\@dA@^`E=PHMTW;X08SALoYD(]/,zug4q)`iZ`ekDGz%~?>
+TTj)mGDL NZro9ixkb8Fs~[:eW.lpG](r$L(dwA1nA?~qM3'e#0SN,)Sm^stTzG'KM8khF
+0V7}_Z5-7 3Fk%VtQeO'IX8B-HPzDgHZJ;'%IXW]Qn1YW*ezQ|UC5.js')f_-Gd~h9/v N
+74-6>fKYhf_"SAYwDx79?dO@O)U<c%cvWO9RhF0V7}_Z5-7 3Fk%VtQeO'IX8B-HPzDgHZ
+J;'%IXW]Qn1YW*ezQ|UC5.EWTn$YrqZr,o/yN,lv3{e'C?&R/C5loN?P9`<{2LVgZ|7_b_
+:]l]AzfreO:Sk0WbuHPjV]F\?=Qa;4&RkH4?'%U<,%*0N_fI+GX7K>+Y\LeOc|neR8r%%!
+SHXh59Lb-al&:)eVK%;E]>qpr}9<NV)khfnBuA'.0}mvn}^m=|;]nB`P7=o6Y8sj7-VjVe
+CL1_ciE2";19bCL`-*&,,.1$'-XZJ.BQ'd33KO_+E<4XTir%Hoq@FZeSA`8AVguX'!Z7XW
+9{8n+ySsndShA1aK&T#&R+Y*5enS)D:cmr?;);N_C?IX2cI;EVN_C?R9Fy*h6A&pq.X/Bj
+5RXmT42V<u8T9q0X@eNEL]d0<TU}rDOlXLFxp>`%Sxf_.<mtqm0>Q?jE$V,|&,,.\'ENAF
++59)sMfld73Lb!lZ8}b^V_A.O{5+q@:g]nqxKHl:C'/ZueA[${J]\qVcbJP{I:c4l?1ISL
+J>XkOw8ns1k-'%r/r~f/?5u5c8)wu;CM72N_+brUP2bIBs0bk4C67},GlJUPJ,e##ARlV!
+rqZrWz.MTA;C=NVzlJXIqI0|X~RF\O$ngc/Y:-RAA1A46]Hg8FNVVcq`\^'lJr[xMX`IiS
+;Al@cXiqqK)g(w_"m6 |+c5bF-7;h\AvCVg&rxt?nX`LoAWuUS:]C^8#G{4xA(6i:8 G74
+r(nX`Llr;,etXI\y,!3}UW[^+DX7K>+Y>a=<3L5dF-7;h\AvCVg&rxt?nX`LoAWuo<Ia4B
+8%FrCgl36i:8 G74r(nX`Llrf7G]4pU<,"3I\~q4+DX7K>+Y>a=<3L5dF-7;h\AvCVg&rx
+t?nX`LoAWu\z]P_M7~G#26V]6l:8 G74r(nX`Llr;,iX>gjq+~3QT6;>+FX7K>+Y3vQpg6
+v/n+ \TT!@NHu|Ul"U``.<s:BE&1ugA[${J]\qVcbJP{]Nla3P1oU[O5\1hf.He>_m *6!
+BR[chQB-/,`!_m2`=/E.04_"-5lW5@E5Z>g|;nbxJaB"U"W@Rv[^mFIq@n`+ts,]7;$uDC
+G1ukQD,cT6bYfmC?_+J4q\/shyl8X{J>8J26&c8WipJcbK39P*-E(o1d8g&Qm(T<n&hE26
+sf7{\oh';nbxJaB"U"W@Rvq4+}a_Yo_ysxf{'&)_Hu5^V)^K8x+/]l0VSz9mCM,K@-dlVq
+7{&"hArx.92C3D_lmRT<W;KzmC-OL]jfb<C?1#W`9R:.H:&QW*PES{9|,v?lDf_QT/)aJ7
+;_k4C5PKS )20+G|HlT?)aJ7EIiJ#u7+H:&QW*PEd,e)VaA.1_S\H|iJ#u7+qSD2Fh8ltM
+4_B'Iv"_h2Sm9!3AT6Ozow]?grd!fq![dQf+IHhTg(RA:0Xl.f;M:+\j;>Oz6lSKQe]1[q
+;zb+&L8m-@D0tWR7T<BZ1sqzN FSrfgPW):7'e/C5loN?P9`<{2LVgZ|7_27f_7%3@$~AB
+\.j!Jb,U7qe)+Vcys$Xn7|*U>w]M |[8Gn0M=ZirNR_I(Jh}7{&!mB3{O3d-W)jgrx.9hy
+7{>yRforfs5|Far3*AGbrJWb&S.3Nl<HQ]orgOW)%b,r?lDf;_)_ERD1tWR7)11bN=-%iP
+Vq)_J7EIiJ#u`Ti'av@4Di-`q;AkA5)\8%Rfor0@-sidJb,UT6C?N}F`rfrCf/?5u5c8)w
+u;CM72N_+b'*m(3{\~C?LS8iS&)1R#[0o\<S[]Ox]s/7>E8W!`dQf+IHhTg(RA:0Xl.f;M
+:+\j;>Oz6lSKH|\e8IF_rf>gi$Y(A%)\ER>O\j8o!`dQf+IHhTg(RA:0Xl.f;M:+\j;>Oz
+6lSKH|\e8IhArxt?7-Dffj,hN}FSrfgPW)PE:n]M |[8Gn0M=ZirNR_I(Jh}7{&!mB3{O3
+.7o4)40+>{N0%{qz_Q27f_-GdNh9fm5|Far3*AGbrJWb&S.3Nl<HQ]orgOW)%b,rR'7|_:
+]2uF9+'em(o7Xk7|TO:n]M |[8Gn0M=ZirNR_I(Jh}7{&!mB3{O3S|m$[hOx5+>O\jQ/#A
+RlV!rqZrWz.MTA;C=NVzT6C?V])_MZ0`i2b|9WC(/ZueA[${J]\qVcbJP{N_FS)}>O\jaD
+qiY}ZIc@dZOcS03}_Q27f_-GdNs$nTV)^Kt4P;3pt@f{ND')7F.4cyGxCgf_"pQT/u2CiJ
+#u`Ti'av@4Di-`q;AkA5)\8%Rfor0@-s_:uJH \uuFCuQ8bY39tNCgf_82-G>fKYhf_"SA
+YwDx79?dO@DNW)N+F`)}bde)VaKxmCn04coEn^90-(<F'CXq-%iPXi7|+F9e,vJwZGj<hT
+!l'7C'&lGBGdQ(9/+y(X7R]4\;Qa;4g3WD]2FP?R'6<|`p%O(\DNrl>(9@[+[&Oj<pTF.J
+,UBb&,^B\m=3E.5/S].g&I.0DC.~o:aElIjL:)-cU$_obh\zECZ>fDLUps E\bGn(YO+E;
+-~D:ML3I:Gg:PliPMRo7Fc?cb0Ozd\HY3tTI2><yNPN[$Ali+D-nNDd"VabArN5{Far3Vc
+c8Tx`Dt>aTW):oidJb,U4F&c/C5l_^CHA.1_qz>B9h8rhF[aKzmCC%&QW*:7rfWOm_C(/Z
+`0\e(FOz5+D1tW',/C5l-,ICHt\eQzm?IQ]4[qg&,cC53&js-':p]M |D1Fh_s\eSQfzNJ
+UK/#>E>]PKS )20+G|RpV^VcH|iJ#uEYZ<,sIN]4i(Sa[q;z8%ce:u!`dQf+EL>GSF9|4N
+h9QTQ?]4oXV)^KiIb<C?&U4aX~H|iJ#uEYZ<biEC5B?UDj`Li]>w5wFar3Vcc8S%T<Y!Z.
+ZIc@dZOcS03}8JJh-G>fKYI'fqb<C?m_\eSQQeZVA.!`dQf+-#7}TOo78i5|Far3Vcc8e)
+fqb<C?1#P977h\AvVI>BDsMH<mJ(sR9<NV)khfnBuA,S\kbYC?R>`UI?-5$fS+((*Db]p|
+>CbYh|J?iL1me,Fo*2S VYH=%~3B/ql37|M)gd0}rM#-27Glr8m~L\h|t8/sHi:.]M |r/
+WMNCf_e)4Gk%\n0VSzH|Z<29Z<Y 8nRp=YJs=g\j2.k4ANWv8JrPf/?5J*Rp2&3DWQQj(o
+G:>BQ`f.?5J*Rp2&3DWQQj(o>y]M |r/WMNCf_#)W0PEo7.7?lqS)1h9R%.7?lh:mQQYm?
+IQOfS06@CAm U^Dd!zn(8e&QW*S|fMA[:L5wFar3>wh:mQQY:`rfk#\^'lU],c:'O{8n*2
+J7>B;jqzPbiP\dWU;gqz\n0VSz/#>EihJbk48J\d-+V'^Kt4/KD-Fh8l-@1`]sDd!zn(8e
+&QW*&38**Uh9<O_Ylp2CZ<-t1dSzH|>GSF9|-widJbk48J*2Q^f.?5J*Rp2&3DWQ&_4a]s
+Dd!zn(8e&QW*&38**Uh9<O_Ylp2CZ<-t1dSzH|>GSF9|-wU`]3uF`2HmS%2&3DWQQCiP%i
+/C5l_^CHA.1_qzP4h.5|Far3>wh:mQT<lph9V]-B1f#2W07$:e,v,I#rRlV!jy\n0VSzH|
+Z<h/5|Far3>wh:mQT<lph9V]-B1f#2W07$:e,vdIs$]Si(Sa[q;zmzN;Q5Ul#ARlV!jy\n
+0VSzH|8*QTlz2C!JdQf+EL>GSF9|4NW0_pC(/Z5%9HT.)aQ^4DtN\dWUm_+0\kC48uWPm_
+CHA.1_W`J6s-ilg,rxYD8UHlnmV)^Kt4/KD-Fh8l-@1`nT\d-+V'^Kt4/KD-Fh8l-@1`]s
+Dd!zn(8e&QW*&38**Uh9<O_Ylp2CZ<-t<O_YZ>dm,}o4]Pi(Sa[q;z8%qST<pTJ1\^'lU]
+,c:'O{CI75P;3\!JdQf+EL>GSF9|4Nh9ILf1?5J*Rp2&3D-'HirfC48ue*6ACAfIQk8je*
+fqb<C?\.]4c@dZOcS03}9HPtuQ:n]M |r/WMNCf_e)C60m8!rfN4Dd!zn(8e&QW*S|fMA[
+#rRlV!jy\n0ViP+/\k&$4aW`9R*2+xIC1#W`9RT.)a;hS\8,+[oI\&;48*N)k!+/\kC4_|
+T/)aQ^4DtN\dWUtF@tR>`U9/g5[Y/fSYmR$SbTh\Zt`Xqs"9\5:Pj./TuOA{qb7qq|h\G'
+CFMb+YKG#2VF[xdo@ G[9d?P2mm!mFC3)`j|MRG[+D\k$oh9mH3G:Gg:U%:4T:.LbCbHM;
+qOPl&v7205_"-56a*3+xICls8QM\)1o83G:GGj-Q_a,Z$?LafbgCUmUoC5t1Q%S1+jHigC
+UmUorDgCt<JUL]qylUn}9(qk+tAFZ/]<9/\Js8 2 M$f0o?p[c\EP)<|OG^"T CjOU]#$=
+!X&NXw1sA6Cr([<B6Bpc6TVm`$n|/EoEtzF~6>DNSUhj)"9w%pZ1':s*R*E5n_]2#2A"6"
+CZUBipWDg|ib `WB7ad[BsB=3AaZmVoTgqh7"hNn^R--VI-%B,4(Db$;c~2w$=27.?jM'P
+0~=vDC\QKa'GTQf(bG<JnG3ADbd{X=#PU~\{+4Rs`S]0RsBeL9Hi'kO/YVE;eC9+lZojUe
+G'[d941#RL&~6LT: 6+DAb_zag E935_&}:5,88<R`scL&N+1X\'Z3B&;f5^;]bfr ?A(H
+lj.c9?RzOhRFcBPb79t{.#>8:y`;SC7E8d-~I9?U7}nGi!m6_x5YJ~V->8Pk?^nGs1Uf$Y
+UIS ;T^dM`2s-p_a,ZOJ2>Qv(,D#g&rxt?T=&(ucky \tLNV[#cn+q:-,Mbci`\suFJ\X2
+L\`S2}5D((Y4ea"<=_<`^dehdZOKN"^|DV0v'"&0IuJ?)20+XU#P2{43)4Tb$Ylr 1Z&AO
+[8<qTF1P(ui^26f_]KS`P6[eOx5+:k\jcz\O>kOU<bQ]Z=Ve)_ER8*iDCU<627f_-GS)or
+fsY3]XivDz]X>kek<_b=3:e_DzRmW0'0m,o7Xk7|TO3{Rmg@.Ad"h9[b)`ERZ<<3D{]Xiv
+Dz]XivDz]XivOE: 2G>O\jDw]X(U4aVk)_J7IKf_-+U2D~]XivDz]XivDz]XivDz]XivDz
+]Xg,:e2G_pC?E%Z><q);TS9I8nSL"lQEU38PeM4x7AYFUMmgflT.9T6vf%CWCw(;W*Da1,
+*7A6O{2h4=1,1^A6O{2h<ED`1jY6AC\jczXCiwDz]XivDz4MgVBh]XdQfb`4&oipDz4MY6
+&Udi^qivDz]XivDz]Xiv/E9|i\D`]XdQo7J3SFGN]XivDz]XivDz]XivDz]Xiv9o4ce:ZC
+fDLUA$[c7 jWv4b5JAU=VYj"6}+Fk1+I*'hZ50Z>&)H]MhfbM{mO50>B8'Iu83Fr.2s1sd
+N*k1&$)~[,JArvTTD~Qp]ucR6iH\Mho7%bEXPo%#oH*W8*+FN_JA>F6}qr*WoqO7tcDL7%
+jo&$)hm^50IKl3EPN-KE^qJwse%;o8-]s1nO%bEX%dMZrn%;G V^EGPoiP;<J"Mho7N+EV
+N-O|bJ50IKV]]v7&8%oK*W%6cc:G]Z8wj&lsGx&ntcrBM{]vM|k!Hip-qTPlbJ50Z>VYt$
+%;GxbfJA26V]EGN-P*qy*W_pq4]rb1`gjS5KIrMhfbM{EG%dMZJ"Mho7Pmk"+I)vXjj"ls
++DS=tcrBb0]ub17}l@*WiZC4p.q4%~IH83%1Y1s.N5tc\lM{EG%d_lA$p.VYPmk"+I\k&)
+H]Mh3O#GEXPoP.skPFme<Dp,[^,#J$83G#`$s1Xi]~&wEeo9j@ k>BsL<KH{>x>DXGEW6I
+X%]NUAtRCU/-Z=H?: dSfb.<2QCve+B5C=N}3DRlW0<YE#Y(4MKE>Q4m&Z"C9U$$P=A>sY
+OQ[dt_Qw^Z%aS fimH\l3AP4dZfG_9N*/\e,Fo[Ud7jaBljwu;LgNz,5+rM^F.dlqT+EN_
+VYHx7[X8EW9K@H,]9V('snDlTTeOTQR77s"hjw97dZH|SI>\OU7M?&:,tcG.dZ^x=n3$n=
+aE0Qh|thWDTiTC,p>b+WCtU]'g"/%/74+C&l72JX8d-VNDfp2@I921v+Sg%+ilt#D))0_g
+T3K%9sORm>sB:J)M6X:+fjplJhn{kJt2,]7;$uDCG1ukcba<bj<`;(K X8r$ mp|q8q8cj
+lA h#8'`8KtL3>mlDpKKfk.M/\-8Gm21GpSYhUe&t4WbB;b?pH-$F_/Cpf90dWNHj[:):,
+5&n!90dWNHj[:)[md7t-_RiMs5WbB;b?pH-$tMPd;e3L7v7!?N2;SV#P#(`&`:OcS0v4[9
+m_GYAC@7At[",h'a@7e*o4bf`NciXR&vt,V}S(X'GxOEk!Sn(nrrm;J&-p_a,ZOJ2>Qv(,
+D#g&rxt?ts90dWNHj[:)U'qhC5j5RARx&[_"T3o36IkUUqg0?jdpGxCUIc&QFi TJ6TiEX
+7;h\AvQ$X1QAlLoziTJbu~v%CM>,0Wtj8mr(?iDftef{\8A/s?Q\J68BTU1PI8B{4NSZ_f
+1H*7oOdAt-;aI-96Si8npd.M/\-8Gm21GpdBVaF3<{?9:Po[DBZ,#Ren`_S}h3O8JgQ>@A
+PbfH=He7:.e'H|ewfb0~UB1H1`5++]oI\&\uV_1jqkAC\j9lor:'dpbsTxoc=1`.K4uVuY
+uY^B)SU~r8EnBSrR:J)M6X:+mqRYL`T6,TJhn{Cbe+]@qpmXheuiBUC=t 4o&ZMN;3&R1b
+_>@7tG]|JY#/;DauT3Tvv+qX0>0bukeO3J)4@HrC90dWNHj[:)U'BKGb19ueCM>,0Wtj8m
+)_N{tqf{\8A/s?Q\<(eyt0f{\8A/s?Q\o[FZE#Ql7.lGYw^RU!i!he>"'&9+3=k2-+V[Zq
+T8duLr!S@#@-b|9WK*=\Fo3l[l[6\%=P&DN{[6m_GYAC@7At<9#Ku1CVd^O:f_0~I6D3AC
+1_oOdAt-;aI-96Si8npd.M/\-8Gm21GpdBVaF3<{?9:Po[DBZ,#Ren`_S}h3O8JgQ>@Af_
+=W3L7v7!?N2;2Er;@=e*o4bf`Nci?m9R/C`NS}h3O8JgQ>:onOv/90dWNHj[:) R&2+]oI
+\&\uV_N}3DqkmQ(9W*PEAy,)V[ZqT8T=8|cW-`UANEJ,#G9lCMmr=xmrR>API~Y\Z6E;R>
+`U=3E.EIH +m5v,^WR9e!F8bk*>FFq#2n>SrOUDnAC\jDwX#W0O9f_-+BsX#X)O9f_-+N_
+/BX+<cdph9q8)^ERhZjSDz]XivDz1,*9e:]VivHzY-&UeJDz1,I8bLF]_s&o:`]ZivDz]X
+ivDz]XivOE: FsDz]XV{XMIs7|TO4Li~Dz]XivDz]XivDz]XivDz]XI5Y6-'RPor=1n=aE
+0Qh|VZE;v5l550ei;<p,VY%bEXPo%#oH*Wh:N/_I6sCA6}qr*WZ<,#`&,)3I')tcIq7%EX
+N-P*h`50IK::]Z8wj&6}p[-]s1fGM{]vcRor_Os1CDPmbJ50_cVYt$%;G bfJArv7%jo&$
+)hm^50\~q4]rb1K12VGNupq5*Wj|;<p,VY%bEXPoMTrn%;o87'jo+IIC6}qr*W8*&!k.&$
+4/')tcgO7%EXN-O~h`50)+X8iw,Kp.qT3{NRJA\dA$p.VYH=?gtc\l8Fl@*Wn -]`,6s4.
+lN50T6;>]n7&8%t(PFn&Iqp-[^kR;a``ZCFa#2C3k0PN1;I87bp[q>)^dQfb.<2QgL(tdQ
+nj0%m`1*ICBqrLdzorqe1>BW4NX#s$(>W*S`iPm6s.T&W02sRG6q%l`n!Xf>i'BG0 SM_!
+E[ckdWfG3A_c$oo86hCA)`Z<d[hyFbTn7}p\Gis}>tZ7j#J~Pc0]l},8%c$iHy?g,3F0&n
+P6H``$TT`*/XKLRW0$@=lX] %~r-iZ2rTi2m.9Oh%Q_YRO'sV6/Rm`A:D>1j'aF#2;p-fE
+/ho:A'l1VR"ub)A1pCQ(F\E#SEDTN?Y=J+?!(\4\&ZMN;3&Rt-,]V;-%8biDnnheuiBU4N
+o[u,GyKatnY.XW1j(Bu`%374+C&l72e)pOheuip/*]6A&pq.X/Bjv3_PO29egq<\"a.<k2
+`dJjJlJl?1Ot:~Pc0]L]`Ur$eR"<=_u9f{\8A/s?Q\Bni;)w$>`TS}h3O8JgQ>7|A<Ji1f
+Z1(;uP,F'"1NJY1fZ1(;uP,F3vTiixm+fK^4.M/\-8Gm21h1LsQeFZ:H7!?N2;SV#P#(`&
+`:OcS0v4[9m_GYAC@7At[",h'a@7e*o4bf`NciXR&vt,V}S(X'GxfXIcg.!)k#TiixZ6*w
+7GX7G'[du8f{\8A/myGnbfC?danb`MS}h3O8u2tL`$W)`MS}h3O8u2F^)}E.\@V?a%=US.
+[qk*iQLrf*kJ<{?9:Po[DBoaRN7.lGYw^RU!i!he>"'& ru|UlK'1fZ1(;t/U&bY)at!.M
+/\-8GmA_&cdC]N.M/\-8GmA_((@+mr2M+]oI\&c\<(8`qAs(Di`Lv*K"1fZ1(;uP,FI$/t
+]NuMCM>,0Wtj8m5+W<eESr_f1MUBdwj}Sn%+rrm;j&;aI-96Si8npd.M/\-8Gm21GpdBVa
+F3<{?9:Po[DBZ,#Ren`_S}h3O8JgQ>@APbfH=He7:.e'H|ewfb0~UB1H1`5++]oI\&\uV_
+1jqkAC\j9lor:'dpbsR6U'd>2kE.<:jv ~TXG.km(8DN\6E;$*SHRbW 0]]:UA'eF#2;(Q
+#V<=`2kB>Ft- FsYsfsfm F0KOf@a(SxgH3VEv$,27Te=|&8DNR4U)V#Jhn{CbOUbhdbCR
+)0_gT3K%d~*=dGpOTu2zM1T6W?kDuRga`_r/9<NV)khfnBuAQ0LCO@rcF]eCib `WB<{?9
+:Po[DBoa0|ZuSvr390dWNHj[:)m?>fk7RARx&[_"T3T8J,ekRARx&[_"T33w&h?pQHM:<Y
+eSm,fK^4.M/\-8Gm21h1LsQeFZ`.p-DpKKt9!g9M)z[8m_GYAC5<,"mSo7X#EN<{?9:Po[
+c?-GRPDg<{?9:Po[c?W)8U+y:-,Mbci`\suF7u2L,1ueutf{\8A/s?Q\my_TiMs5WbB;b?
+pH-$tMPd2t`_m,Yx^RU!i!PI_\bgC?v/CM>,0Wr(o2sfOyuKCM>,0Wr(!$=u.Mmtk&q`E?
+NV[#cng-N4uSWbB;b?pH-$e^Hs\ep590dWNHj[:)rd+4t1=\Fo3l[l[60y.niPWRr:RL1=
+Q^k3<{?9:Po[DBoaRN7.lGYw^RU!i!he>"'&UGK*1fZ1(;uP,F`c+/V[ZqT8T=Swg@5 8+
+c~njU2W0rc&w?pQHX%&3X%Rc(?W*A~C=D3AC1_X~RF\Od>>7k0.Fc"3=ZE=xB/[8<q);6o
+M{(;"k/!-&AF+59)sMflT.9T6vv!1j<I&SFiU)>ke+<_dph9;B)ZERHZB8C=bL)aERXjiA
+CU<6bgC?&cdCs$HngdivDz]XdQI%CwXkOw\RivB8CA7AFK_s&oipHz<6.3W):o.jiP72qr
+E9]XivDz]XivDz]XdQg/2FipDz1,ICbLF]_sdm^qivDz]XivDz]XivDz]XivDzX#ULDn@"
+f_Cqm"p6pYgqSB8et</s,}Pz9|)Cjs#GJ=')f_-GRPZ=KzmCn04coEn^90-(<F'C-faR&"
+cXGx`$W)0ai2Ohg{nkYV%?/B8Am,fK.2W)I2cf72\=Ve35tN`$W)ezib@0o^@z,NS=V]35
+P*=U1_-sY4QFc^69?!au5ZI!Lb-al&_-V:(@dn\ui20"'sNQ+XE I-nSNIga2X=/n=aE0Q
+h|VZE;v5l550ei;<p,VY%bEXPo%#oH*Wh:N/_I6sCA6}qr*WZ<,#`&,)3I')tcIq7%EXN-
+P*h`50IK::s0N5tc\lM{EGPo%#t%%;Gx?gtc4D,3q;%;W0%bdiJA\dP.skPFme<Dp,[^,#
+J$83G{`$s1sd2ri~,Kp.qT%ajo+I\kA$p.fi+F_n6srf8Fl@*Woq-]`,6s3mlN50UW;>]n
+b17}t(PFowIqp-[^kRE9Qp]uM|k!;<p,fi+Fk1+I\kqTj$ls+DN_JA\dVYt$%;o8O7tcIq
+7%jo&$4/e'JACgl3EPN-K8^q:wk-+IIC6}]nM|6l`,6sCAls]r8GMX.2s1nO%bdiJAU=0S
+p.[^,#q;PFn&1Ys2XiN+_n,) Vn|5KIrMhG[&ntc4D$~t%%;Gx?gtcC3*'Xjj"W>6m0Ds2
+Hib0]ub1P.bJ50T6fIj&V],"rpPF"Z  gc/IS*Mmqgv#Yq;E)ZFsI87bp[q>)^dQfb.<2Q
+Z_1;1^7 FKe9nk/LRP/2sB-AtQ9oBuC<p-B?rLdzorqe1><kCV8lCUomB?rLH:I8`2bgC?
+AsCABqrfH:I8UG`*[(gr*6p]\hqo:h`oZC*FNH!1,jM-c90^Ilbsh|J?8{?=M{dZnOFc>F
+)`8*mHC3?\b0Rxq4mF3GIK[Rd7jaBljwu;LgNz,5+rM^F.dlqT+EN_VYHxbf;>+|GeiU=Q
+-V.$dZ/lr,:JpeS>8z"*Y1TP&B=_8dg&ba4zT>q4PAmgoW81!.gceOTQR77s"hjw97#yf6
+=>'O6]e5m;O41:bCL`EBZ>J&b5Ae9dSW(b-G7OK^6p%lM{bCPv*];fNPVcb 9E;]iR";pZ
+X/Us0v@69WiDnnheuiBUC=o[u,VXt$7-l@q>CH\jZP-'_>G.km(8DNPrJpsJ<'v5e{.}-n
+G1@8Vireonjr7X,rCxYI!@R9EX@B5E5F5FZc7yXZcLSIaI@:t-g-_e6@:+?PH6UFG.J4a`
+;/0r]$r$Q>sn3yn WC>3%|_l3XQMS@a"_%'yW}8S3>-,""&e&eQp.J,:ueSG:1VS"ub)A1
+cVpiP8U+V#[zW;fNJkN[h6gFU+uF+}t}`Eg+dLpOTu2zM1T6W?Jq -AD[8J&CV?rV;X0/g
+_6em3V1&rM#-27Glr8m~L\h|iM*`Ln]V.CXi>v9U)co\rIF]h6>]^WT=.LbCbH^L7R*9f`
+eO3J)4@HrC90dWNHj[:)U'BKGb19ueCM>,0Wtj8m)_N{tqf{\8A/s?Q\<(eyt0f{\8A/s?
+Q\o[FZuc/s]NuMCM>,0Wtj8m5+W<WJFx;iI-96(^D]-W09h&Wuo\rIsRRARx&[_"T33wm<
+fK^4.M/\-8Gm21h1Ls`t5NZ=J!OUQgh94/7j`cZxTp>95pNn:8n/A3t;WbB;b?e]o^O7f_
+S-g0Je1fZ1(;t/rcIr7|Je1fZ1(;t/m>3{j<BJ6IKt[,0&AN_~\m#PU~`_Yx^RU!i!hei-
+.gN=bX=ZFo3l[l[6\%.,!euc5Dv/CM>,0Wr(3vN}3Dqk<{?9:Po[c?-GRPDg<{?9:Po[c?
+00H>mrWSr:RL1=i;;/@RYu9Vi$n]po.M/\-8Gm212;XOr)jD?r&DN{[6m_GYAC@7At<9#K
+u1H{mACVU)*6p](t -@+mrea"<=_EY5_&}fa.M/\-8GmA_A(O{`6T t[f{\8A/myh/;B)Z
+taf{\8A/myRYorFNSV#P#(`&`:OcsPfl.$KOv4[9m_GYAC@7AtI\4.e4nk/t]NuMCM>,0W
+tj8m5+W<eEposz.M/\-8GmA_EL0a>E`^S}h3O8u2tL.2W)`MS}h3O8u2 8,rm:)EY\)EY\
+Z6AORG`U=3E.dVGi(;"k/!-&AF+59)sMflT.9T6vv!1j<I&SFiU)>ke+<_dph9;B)ZERHZ
+B8C=bL)aJ7e'C?Q`bJRkg0.AmSo7sfOy2hoHE9]XivDzmXW0T>7?\jDw]Xqv<$.3W):oSg
+orVciAdzUH;E)ZJ7@"f_-+S=GN]XivDz]XivDz]XivDzC<<V&SmZ3{]X\h<ZBS\jNLm<IQ
+SFGN]XivDz]XivDz]XivDz]XivDz1,roCwsfOy<2,WF=I8YPb 9EfhHo1ZN_C?j|qY;Aog
+XkOw5+[,C?&c/C5loN?P9`<{2LVgZ|7_&oP67?\jq4)^O<d-YGh;YU%?/B8Am,fKSwf__c
+l}&3nCC67}U`SKZ=KzmCn04coEn^90-(<F'C-f<EN*Fl)}0a(oQTU'8SjUj}o$_RSw7?1_
+ENHl-`r~<E7{U`=U\j3Q)4oM?P9`7+qr<D7{&!dCbs4X:OFqtI/s,}d~,}OlEIXjU]19>E
+bA)aJ7h6tzA[${-`<EN*Fl)}0a(orE=1n=aE0Qh|VZE;v5l550ei;<p,fi+Ek1+I*'hZ50
+iMN/_I6srfM{mO50P4,"`&,)3Q')tcDL7%EXN-*'[,JACg::]Z8wj&6}+F_I6s4.mQ50Z>
+qTj$ls+DN_JA\d%#aRj&lsGxbfJA4xV]EGN-P*qy*W_pq4]rb1`fjS5KIrMhH<&ntcC3b)
+j&ls+D_n6s3m;?]nM|k!;<J"Mhfbb0]ub1P.bJ50\~fIj&l3+~rpPF":Y1s.N5tc\lM{EG
+PoMTJ"Mh3{Z~JAI1,3q;%;h9+FS=tc4DP*skPFk#Xij"A(+~J$83G#`$s1Xi2si~-KEVPo
+MTq9%;GxdlJAI1ls]r8GMX.2s1Hi)}Ln]vM|k!(9s2hyN*_I,)3Qe'JACgl3EPN- ]GNup
+q5*Woq-]s1HiM{]v8GMXrn%;pY7'jo+I\kVYt$%;h9&!k.&$)~N_JA4xV]]vb17}oK*W4e
+X8iw,Kp.fi+F_I6s3mmQ50eiHip-VYPmbJ50P46l0Ds2fG4.lN50\~;>]nb1P.qy*We6sd
+j$l3kNE9Up`$6s3mNRJAI1b)j&6}+F_n6s)gXjj"lsGx&nk1+IICA(j&A(+~q;PFk#C4p.
+;>&!IH83!=gctab5JAU=VYj"6}p[SCtcrBcQEPPoiPN/_I6s3m#GEX%d8%Iu83Fr.2s1sd
+N*k1&$4/@"tcgOTTD~Qp]uM|k!;<p,qT%aEXPoiPHip-fi+FN_JA>F6}qr*WoqO7tcoWN+
+_I,)3Qe'JA26l3EPN-KE^qJwse%;pY-]s1Hi)}qs*Wn _Os1fG4.;?]n8GMX@hp.VYN+EV
+N-*'N_JACgV]]vb17}oK*W%6<,p'&5s2Hi)}bD50_cA$p.VYH=?gtc4D,3q;%;o8-]`,6s
+)}qB*We6Xij"V],"J$83p\Iqp-q4Ef]g:wk-+I*'bD50>BM\J"Mh3OZ~JA*2MZ.2s1fGM{
+mO50Z>0Sp.;>&!H]83p\1Ys2sdN*_n,) Vn|uKl550ei;<p,qT3{mQ50_cqTj$6}p[7'jo
++I$~aRj&W>,!`&,)3Q')tcDL7%EXN-P*h`50IK::]Z8wj&lsGx&ntc4Db)j&6}p[_Os1nO
+PmbJ50iM;<J"MhG[bfJACgV]EGN-O|qy*Wevsdj$A(`ojS5KIrMho7%bjo+I*'qs*W8*+F
+_n6s)gXjj"6}+FS=tc\lb0]ub17~l@*W_pfIj&V],"rpPF":Y1s.N5tcC36}]ncRorSCtc
+\lcQEP%d_l&)H]Mh3O#GEXPoP.skPFn&<Dp,;>&!`-,)3I@"tcoW2si~-KEVPoiP;<p,VY
+%bEX%d_lqTj$W>6k')tc4D6}qr*Wj|(9s2hyN*_I,)3}e'JA4xl3EPN- ]GNupq5*Wh:;<
+p,VYH=dlJA\dqTj$lsGxV^EGPoMT@hp.fi&!k.&$)dN_JArv7%EXN-O~h`501sX8iw,Kp.
+VYH=&ntc\lM{]vcRor_Os1fG8Fl@*Wn -]`,6s4.lN50UW;>]nb1P.qy*We6sdj$V]kQE9
+Up`$6s)}bD50>BM\J"MhG[?gtc4D$~<Ep,fi+FS=tc4DA(j&V],"q;PFn&1Ys2hy&!IH83
+!-gctab5JA\d%#l=*WoqSCtc4D$~oH*Wh:N/_I6s4.#GEXPo7~Iu83p\<Dp,q4%~`-,)3}
+@"tcDLTTD~Qp]u8GMXq9%;W0%bEX%dMZrn%;h9+FN_JAI16}qr*Wn O7tcoWN+_I,)3Ie'
+JACgl3EPN-K:^qJwse%;W0%bjo+I)vqs*WZ<6mIGMh3{;?]n8GM\@hp.qTN*EVN-P*bJ50
+T6fIj&A(8'oK*W%6  Y1>s/}%Fm:cB<gN_C?I\QkVzsHX&/xXGQ&/MRP9|dvor9v-@XGQ&
+<Z.,<j%jmZT<h;/KmSdLC^WDN lvT<gB>y.j>EpN:c`:T dKo7U2g01,\kd7qx<fSgDg>L
+8[e+H;: HwXOnUA<O{8^P6H>>DHwXOnUm6oJ1{8+4/m`jsD-eco7pUrPS-g0?jX:ShgB&y
+Y1j?3VEv` `ds#/gL2fU&~]86eU>$oGx+D?\8FR}qT_'%a_lOzme+}^\N*/iA('v<2]vo*
+e1X3TiEd[},q)[2E<yNPN[FcO&4R<0tqWy&63ETi+zM^F.dlqT+EN_VYHxbf;>+|4N@"::
+k0Rv`p9;S-0.qGiZN*Ix2FV]*Pe:hyPC"<Y1Ti2m.9Oh%Q_YRO'sV6Z].~?mF2e8=+G0Vs
+["J.6]e5m;O41:bCL`c`WDTiQ`LdNz,53ft7^"19I9-5$fVG-%r$9<6@:+J^D\6?cm,Kq;
+7-Iu1\e*h9<rTo-^`,%jH]ItS|Z=Yf V`R6q%lM{bC%ki2@9%#*04-"z0`<e<?*gY1J& 3
+twt}t}FO3(5g6CbX&*ukeOU.$Y[?t<WbB;b?pH-$e^\@3p(\Jr1fZ1(;uP,FOzbXuSCM>,
+0Wtj8m.$B|u3CM>,0Wtj8mGm3=k2m+fK^4.M/\-8Gm21h1LsQeFZ`.>75pNn:8n/A3t;Wb
+B;b?e]o^1YW*0%Z=uLCM>,0Wr(o2sfOyuKCM>,0Wr(dGGxciAn.$,@skt^2DkA8SX3!Qv0
+`[S}h3O8JgQ>_\S%>fJf1fZ1(;uP,FU`;]Bb]Xivposz.M/\-8GmA_Qlg>)cjse'C?v/CM
+>,0Wr(o2sfOyuKCM>,0Wr(QTpV2&((_:FxeCib `r=#PRz3u@:e*o4bfJX8$dph99pj}Yw
+^RU!i!PI:o.jiPYw^RU!i!PI7|Sn2Vi;;/@RYu9Vi$ETDh6In0po.M/\-8Gm21GpdBVaF3
+<{?9:Po[DBZ,#RKTDw]Xv#UlK'1fZ1(;t/U&iv_ubgC?v/CM>,0Wr(o2sfOyuKCM>,0Wr(
+!$i!RMr%eR"<=_EY5_&}fa.M/\-8GmA_V])bJ74Ms-WbB;b?e]Z)Ve35s-WbB;b?e].}iP
+,EQ(X1QAlLoziTJb+zTA&(u}v%CM>,0Wtj8m^T_f_rs9S'7.lGYw^RU!i!he>"'& ru|Ul
+K'1fZ1(;t/p!jsD-,:N}FlmAYx^RU!i!PI:o+_iPYw^RU!i!PIS|g> :Z&RAr%eR"<=_EY
+5_&}fa.M/\-8GmA_A(O{`6T t[f{\8A/myh/;B)Ztaf{\8A/myRYorQ=c^<(8`qAs(Di`L
+Q(:0#$v*K"1fZ1(;uP,FjEj}?xI\d^VaF3<{?9:Po[DBZ,#RKTv):u`^S}h3O8u2e]Dzk&
+AC\jK'1fZ1(;t/rc<E7{Je1fZ1(;t/ Q9ed>]vo\=1`.2k.9Oh%Q_YRO'sV6Z]dtkq"ni?
+_T0`,ySG[MOjRFFy9b]E7/Y+VIKz1\X[G.km(8DN35[z,Ph|nrdk,BR67'joN EVX)3Gic
+Cyu(*GNH6f-YNDd,lz@]AEYKX^5O<,3L 7twt}t}FO3(5g6CbX&*uk\u[$;-<(R~?Zn"Tu
+k50GQvdtm6?;$$-K-K-K<u8TrR:J)M6X:+Y}1Pg4,Wh|h|H-nE6o<cT:.LbCbHM;qOPl&v
+72s.&)C8YTN EVX)3Gi#Y(J&o2m<TPT=.LbCbH^L7R*9f`eOU.$Y[?t<WbB;b?pH-$e^\@
+3p(\Jr1fZ1(;uP,FOzbXuSCM>,0Wtj8m.$B|u3CM>,0Wtj8mGm3=k2m+fK^4.M/\-8Gm21
+h1LsQeFZ`.>75pNn:8n/A3t;WbB;b?e]o^1YW*0%Z=uLCM>,0Wr(o2sfOyuKCM>,0Wr(dG
+GxciAn.$,@skt^2DkA8SX3!Qv0`[S}h3O8JgQ>_\S%>fJf1fZ1(;uP,FU`;]Bb]Xivposz
+.M/\-8GmA_Qlg>)cjse'C?v/CM>,0Wr(o2sfOyuKCM>,0Wr(QTpV2&((_:FxeCib `r=#P
+Rz3u@:e*o4bfJX8$dph99pj}Yw^RU!i!PI:o.jiPYw^RU!i!PI7|Sn2Vi;;/@RYu9Vi$ET
+Dh6In0po.M/\-8Gm21GpdBVaF3<{?9:Po[DBZ,#RKTDw]Xv#UlK'1fZ1(;t/U&iv_ubgC?
+v/CM>,0Wr(o2sfOyuKCM>,0Wr(!$i!RMr%eR"<=_EY5_&}fa.M/\-8GmA_V])bJ74Ms-Wb
+B;b?e]Z)Ve35s-WbB;b?e].}iP,EQ(X1QAlLoziTJb+zTA&(u}v%CM>,0Wtj8m^T_f_rs9
+S'7.lGYw^RU!i!he>"'& ru|UlK'1fZ1(;t/p!jsD-,:N}FlmAYx^RU!i!PI:o+_iPYw^R
+U!i!PIS|g> :Z&RAr%eR"<=_EY5_&}fa.M/\-8GmA_A(O{`6T t[f{\8A/myh/;B)Ztaf{
+\8A/myRYorQ=c^<(8`qAs(Di`LQ(:0#$v*K"1fZ1(;uP,FjEj}?xI\d^VaF3<{?9:Po[DB
+Z,#RKTv):u`^S}h3O8u2e]Dzk&AC\jK'1fZ1(;t/rc<E7{Je1fZ1(;t/ Qo[dAt-ciE n@
+`[S}h3O8JgQ>_\S%>fJf1fZ1(;uP,FU`;]H>i$Y(gBo2T?t8[9m_GYAC@7AtI\4.e4nk/t
+]NuMCM>,0Wtj8m5+W<fr<WeS,eQ^,T<{?9:Po[DB/!iP`$W):oSgDg>L)\J7<{?9:Po[DB
+DV>L8kSwf_-GRPorA..8?lX:cx2Cb+)aJ7<{?9:Po[DB/!iP`$W)pe90dWNHj[:):,0R7}
+U`=U\jcz;fW`&-ZA,E4Mk%C<mJURWUQn<D7{jEj}lG3>qk:hfu=ZFo3l[l[60yqz3%:'\j
+Q:qzU1g0junk:o;=)ZFsI8N}m<dL4o8u@7e*o4bf`NciR6_qb}9WSxf_'yFi0dW`Ti1D>T
+t-d:>7m:RNAPR>gzZ'\2hf.He>_m *6!.Nf.-YndYsU!a&ZqpGflcmIv]zNen@b`0DQ$cc
+WD]2FP>qUk^[G8*?NH!1,jM-c90^Ilh90]Glk8h`\kC\T"m`g??9_MUS:Eg:1m$KY4j<;3
+ZqrBhe0dM*m;Xc7s:4TF^=&xa)rpE@JcJhBB`]G8q`HZT.oHQ.Q?qglrl}o7Re+BAp\nuF
+ugTZ/2]|ZAo0)40+Eb3KqkIX4qfrCaANWv$c7~u`[(MdOdS02p)et!4k$Q_:@5u:@if_pb
+>GtMYd2VB9Sr)?=FVS"ukR kC/o^13( jW;}hTOmuDT<m`3GIG/\U<mcl^sHFbTnX>C\:R
+-*e>?.#L@TtS]j5AD3\<kI>F^CVG?MnO[6AJ#}dA;2OhI]S%g?d~p[G8C5)B8*W):oju4D
+8jb|9W)HO}u+UPMC[0o\rIl#C?`Yro[Yj!JbJseHRcj)[&QR:p)40+Eb3KqkIX4qDp`L`T
+mndLp/D-k#ANWv$c7~u`[(MD7|>y8Sn?.cB[`:OcS0I'oJcxgB)c_nEK>Mru2H+]oI\&\u
+CRtWJ/s1D>sEIc_MT2_v*HsIRAXVm=dLQ\9/g5[Y/fSYmRg)D/lCNm7P@7/"?iX/!*h:Ew
+]UUciZWD,GI S%g?d~p[rCQWdLPkQ8or@=u:@if_"T/L2CiRJbk4u'TZ/2[*7nr|)70+Eb
+3KqkIX)#H>i$n]apf_J|oJ@}9+2eP4pd`)8ousf{'&)_J7Z:9Vi$n]]pU9mc[(X/?nP?H|
+>Mr%7-:\q|h^g2["8/_YU9BXIGWF\.Kis)Di`Ley&A>M]p?v5(_nfm_{US]p&*>M]p?v5(
+_nfm,h\zqwIcR6_q>?S.[qg&EL_HT2l5D-s1D>n(sH.6?l:\1<_nfm]p&*>M]p?v5(_nfm
+,h\zqwIcR6_q>yi$n]QLMLW*pUh]d,W)[0]4uFugTZ/2]|ZAdEh9k"b|9W)HO}u+?z%4Oz
+X~2f=/uk.He>i6h7Oj]16p%l`n!Xf>i'BG0 ^xW|Zr)FtS2CU<n$g9Hd2/)`>MdWhYG"C\
+T"m`@tGNm 5;,Z; J:]z\7_^!<re7v.H:3A\6@`70&5v.z2Ze2m`flQ>4O9Rs14hh[g2:a
+1<_nfmT=Q5HoqTt<b|9WRq2n)eHu>M-pG:\nuF`2sx3 >EUS7mr|)70+>{k=FvmAC`WFp\
+[qg&,c$c7~ju[&R#[0o\rIcpapf_sEIcB&s%&w?pQHX%9Vi$n]]pZAjss&HdT.4k%2*U%n
+Gdi.iU\suF5'IXT._{T2:]q|h^al-+V[ZqT8t]2D@6n(:gQlh_G"C_jyIGhwWRr:RL1=@-
+b|9W_^rom'ro)g_nEK_nZ!WFr:RL1=@-b|9W_^q64hh[+v?l:\1<_nfm]p&*4=e2UP8.I#
+2/m_ro8VRqg?9w]o?v5(_n;bqz\zZ WFr:RL1=Q^U],c\zqxD>e)l7D-[!8/r,7-N0ZAj#
+s&3[_nfl_{*Hk4HZUOqZh^g2["8/CMUSMCQ>j!Jbk4u'TZ/2:i+vo4)40+>{k=FvmAC`WF
+J6ANWv9H)GO}_U?v-p_:o\rIcpapf_sEIcB&,)V[ZqT8T=.2XISp?vCF&D>MH{4q*<,5\z
+EKiXnQrn8RsFIc-GXISpEI_nJ0IGWFm_C`S@fz8S,WCZhw'rdwFhn_]2q<bQVr[6'P[ g2
+ TD-2{>je|n&fld!q\XNSp?v5(>MH{4qj|V^WDr:RL1=@-b|9W_^q62&b5h;p,IRs1D>n(
+sH.6?l]oov_XT2I'T.oHQ._]Pug?_YC`jyIGtArn8VS&p,IR[!X/UDBXIGWF\.]4&w?pQH
+X%9Vi$n]]pU9BxHZT.4ker?z:)_^*HW`9Rs14hh[g2:a1<_nfm]p&*>M]povj#[&U^k"CF
+QO4kerrnrLg@d~p[<Mr|2H+]oI\&\uCRtWJ/RpoGShU9mc:gr-h^g2["8/CMQO4kerrnrL
+g@d~p[rC/Kb3h;p,IRs1D>n(sHS{m$:g1L_nJ0\zqwIcR6rd)2%nGdi.iU\suF5'9Hrn9w
+:\q|XNI&oJnch[,'1fcrUPBxIGtAC_mZsHI1Rpl4D-s14hIX2/r/Ice)q\XNSp?v5(>MH{
+4q9+tMb|9WRq2n)eHu>M-pOzH>i$n]QLMLW*pUIRB&f_ECtWJ/q\F!\j_{)'>'\j,c-'_8
+o\rIcpapf_sE2&\.];uF`2sx3 >EUS8.h22I@6]w`DmndLoJQ&_qb}9WRq2n)eHu_n;bX~
+H|qTt<b|9WRq2n)eHu_n;b)_fsh2>]^C/Hf!)#IV.bl6dO>8<-Jbu;cW+7H&t=A/ET1p2^
+=/n=aEsT 2iL_"$<7U]h&~]8l[5@mg3GIG/i?fe4c(h;Fbrn?=T"m`3GhujS^BPI8c&g@,
+p/oepW`vuAQ(:h&D>MH{4q+>,;SzJ>\nuF`2sx3 >EUS7mr|)70+>{k=FvmAro8RtMZNo\
+rIcpapf_sEIcB&]luF`2sx3 >E?}T#9m_YU9BXIGBQ*2\m:i&D>MH{4q:L]oQ'fH=He7J>
+)20+r/h^Q\h_G"s1Ick#7q7!?N2;s&Di`Ley?z>M?}etj#p[IJ&y?pQHX%&3XMcxoJ3PIX
+T.I'4q3?tNd^>ii$n]QLMLW*pUD-B&f_JhhZ2H@6]w`DmndLoJQ&m?o7)40+>{k=FvmAro
+8VF__sb}9WRq2n)eHu>M-pidJbk4u'TZ/2[*:!r|Qo]T[qg&,c$c7~ju:eR%7|@+i$n]QL
+MLW*pUh]d,ciE `LEYJSeHRcXOQ&rdOdS0/ME^3KqkIGWQfrK"rGLs7|u`,}B/[8QFjEuG
+V"8S4_&Z"C9U$$P=A>sYZ<A<oY`:[,CBg:HdC`)`_nRx:]FqqJIc3A:Gg:N*?\:R-*e>?.
+#L@TtS]j5AL;BB`]G8q`HZ)#_HUSbYFd8lTy>BMKQ-C?If2dP4&2Dq`L`TmndLoZ7|o2)4
+0+h}Ozu+UPMC:o)40+h}Oz_UA%3Bk%IGWFfr8vb|9WrwW)uzXN@uDAtWu:3 >EA?3BSMQE
+[qg&MLW*/tS)OR:oidJbbKFdmA%jd_s$h^,'QVZX=ZJs=g\jIe=/J(sR9<NV)khfnBuArY
+gA'ed_bs@6dbA_8AVguX'!Z7XWIGjwIKf_.FJuR?mioe187uo)Tu2z@ @BIQ'sa4C:'dA4
+s*Iv85Toc):emHoG^SHdT.Ozk"dWFoTn7}p\Gi2\E.lj;e!ahc_.tYj#08v!WDQlb9h;l4
+sH/KS)9|nXnR/t2CqTFN8lsNEI*2,EmJZOo\rIl#C?O(mJAIDAtW',d_Rcj)h;_ob}9Wrw
+W)/thyOz]sUL-sU`2H@6[e)`Hub+Fd_sro8VWP9Hm+ZOo\rIl#C?O(mJAIDAtW',d_Rc7.
+/{iP?zT#9m)cJ7,FANWv$c7~?j/{(o@+i$Y(?w\jkG\z9_cm_R]3uFugTZ/2[j)`Z'Ds`L
+A53BqkN mJIQoJQ.8jhGNV[#cng-Wuo\<SZ|ov[(8/_YA%3Bk%IGWFEL_nJ1IGi#QL_f.M
+:wdE,}?l9Dd>pcJi#/;DauT3Tvv+?se4A<3B=wo4ZIj<RnC kE>FVS"ukR kC/o^13( jW
+;}hTOmuDT<m`oG_(Hd2/)`>MdWhYG"C\T"m`oWa^n|ciJW95V tTE_B9I(%0o5OnI]S%g?
+8Rrn_]rwW).7,Iq`lrl}o7Ql+BAp\nuFugTZ/2]|ZAo0)40+h}Oz_UA%3Bk%IGWFp\[q;z
+_pC?9RrvW)p-XMd-hbrx.9S)/2N=?w\j_v*Hi2E `LA53BqkN mJIQoJQ&8j6d7!?N2;2E
+<E[])`ER4cfs,hIKf_s1Ic4XIGjyIG=w8Wn?.cB[-'9*rvW)p-h]S{7./{iP?zP?c7p[j#
+[&_ <M`:HoD1tWu:3 >EEc>MRUZ=Ds`L`TmndLp/D-,DANWvIKf_S%oW7|j%p[R#jgrx.9
+S)/2N=?w\j_v1o>'ihJbbKFdmA%jd_s$h^,'INOfS0oY7|?j[])`ER_n;aci8En?.cB[-'
+9*rvW)p-XMS|7./{iP?zP?c7p[j#:eo2-p_a,Z9t,GN8?w\j_v)'qzN mJIQoJQ.Hf4qIX
+2/2^9+JihZ8^i$Y(?w\j,hIKf_s1D>B&]luFN`mJdL+VS)or[(:!,v$]%nGdi.iU;?b+Fd
+_sro8lS&oW7|j%[&rCoGH}oJAJQ(S}orO\N"^|DVouiTJb,UIGk%IGWF9RrvW)p-sHI1s1
+Icn(XM_pQ&fH=He7J>)20+b7[&j#p[1bN=?w\j_v*HP9?v]pk"h+cjAn.$,@skt^2D@6`Z
+ZA?hZ|ov[h)`fs]pZAEf(&d_Rc7./{iP?zO^8,/{(oGgX{W;r:RL1=@-b|9W_^%jd_2C>M
+CF&Db+Fd_sro8RcjA<3BtNrn8l4YN mJT<ZA1bN=?w\j_v)'k4N mJT<ZA1bcrA<3BtNrn
+8ltMHl&y?pQHX%&3h}Oz_UA%3Bk%IGWDA(3Bi#WRr:RL1=Q^4\:'QObYFdrfoHQZ_]C`=j
+8Wn?.cB[-'9*rvW)UB7m_Y&*_pC?IX2/:L]o?w\jI'C`9+jy8JrvW)UB7m_YA%3Bk%IGWD
+s%+TS)Dg\zfl,hN}mJo7h[- QVWEr:RL1=Q^U],cIKf_:`+v?lN0?w\j_v)'-6>w/{>E_^
+1oW`&-_pC?XKQ&/uhyOz]s?vnQ&A_pC?XKQ&/u>w/{>E_^1oS\pd.M:wdERc9Hd>@:,W^U
+tYUN2Y=/n=aEsT 2iL_"$<7U]h&~]8l[5@mgg??=_M\zOz?vdWXI^SHd4qTkX>%~?Tb0/m
+XDQ_miZa!e[EuD>tUkUl@Guk8S-DN=U9mc;HOzX~?cetA<3BWQ:L-?6e8V\j4r)B8*ci_R
+]3uFugTZ/2;JOzh.2I@6;EOz_UVZ)_ER>M-p\o:iMKQ-qZZ~Dq`L`TmndLoZ7|o2)40+h}
+Oz_UA%3Bk%IGWFfrCa4FD=)40+Eb3Kqk\~C?J6ANWv\~C?9RCgf_s12&1#,Uq`hBrxt?F!
+\jb^Fd[o];uFN`mJdL+VS)or[(8/,vj'>5*d6A&pq.X/Bj5Rh]buDRt[',mB3{IKf_F^mA
+3nANWvN mJo7Xk7|j%:eU`Dd!z@:o^@z[5]O&oH]0u[%ovgOW)N+mJAIfr,h71&SQlm?AI
+)8J}p$90<;F^8lHsuSPK+0NSsa<'\PUsgA_]Chf_s+JUJc#/;DauT3Tvv+?se4A<3B=wo4
+ZIj<RnC jl>FVS"ukR kC/o^13( jW;}hTOmuDT<:]G"qJgA3AIG/\U<mcl^sHFbTnX>%~
+_:U%:4TF^=&xa)rpE@Jc'edfK%nQHl+V)20+>{[])`Hu>M-p_:o\rIN;?w\j4pP=Z.Ds`L
+A53BqkN mJIQoJQ.8jS&oW7|4Oe2UPBXIGWF9+cj_RHiJ.ANWv$c7~?j/{(o\oQ@HoqTFN
+rfOdS02p)eHu_pC?HtqTt<m+ZOo\rIl#C?O(mJAIf_e)VaQ>4kO\QeoW7|j%p[<M5/de/g
+]7l[`K(oXM3PIGP*ZAqJIcT"[^=$r+kH.}-nG1@8Viregf[&>w/{(oB-[8QFjEuGP<)?Yb
+G.kmIiK4op?P".Vu>sNZifqH*_FsC_/^?fiXc([&mFg??9_MUS:Eg:N*/iA('v<28or =@
+ rhmJa/Jf!PK06v!WD`so[?A2mrpW2I:UOZ}ovg?)c_n7~G{rvtLCGtW',mBdL+VdNs$XN
+Q&m?PugOW)p-D-TxA%3Bk%IGWF`2b}9WChf_S%gOW)p-IRB&9R%imBIQgB8RN5?w\j_v*H
+W`DAtW',d_Rc7./{iP?zP?/#N=VZ)_ER>MnQ%id_s$h^,'<Q8rm+cPnQ)40+Eb3KqkIKf_
+WOQnd PkQ8Z=Ds`L`TmndLoZ7|dGPkfm-DDsANWv$c7~?j/{(oOzCI&DQ^gOW)p-D-TxA%
+3Bk%IGWF=/J(sR9<NV)khfnBuArYD>'ed_bs>(DCm"]c5AE8?S=n8zHB+qeF_%\7onP97t
+o)Tu2z@ @BIQ'sa4C:'dA4s*Iv85)diXdWhYGzqJD>3A\zRxZ}n%g91me,ajn|ciJW95V 
+tTE_B9I("Mo5OnQejfrxt?m#l#C?Ib)#>'ihJbk4u'TZ/2:i,'o4)40+>{k=FvmAro8Rk$
+ANWv9H)GO}_Uk"-p1dN=ov_XT24ke2rn8Vcj_RHiJ.q`hBrxt?F!\jkGIG=jUT]9OdS02p
+)et!4k%2\o o[nG2k8h`:igVs&HdC`?fe4XI3HIG:Ig:<luk.He>i6s"(\=JRVQAU38Q\L
+pIoeIPA[Q(I?-5$fS+((*Db]p|>CbYh|J?@#fec)s&Fbrn?S_MT2OzZAmFoG^[1me,Forv
+@nGNm 5;,Z; J:]z\7_^1p\<kI3[,5]luF`2%jd_RcXOQ&rdOdS0/MhyOz_UovR#[0o\<S
+/{>E&D_pC?IX2/\.j!JbbKFdmA%jd_s$h^,'QVQ?HoqTt<m+ZOo\rIl#C?9RrvW)p-h]d,
+sMZ~Dq`L`TmndLp/IRWOm_%jd_2C>M]p?w\jg@rPg@e#[&j#h;?kP?J>S5?PD8c"JaI8UI
+n$oG3|IGO|ZAqJIcT"[^=$tMYd2VB9iHj}WD*?NH!1,jM-c90^Ilh90]Glk8h`\kqJ4h)`
+4cS Z}mdl^D-3AIG/^e,FoCg)`_phsjS^BPI8c&g@,p/oepW4[>.EdTxBB'sifqHk@*=XM
+3PIGP*?vl_D-_MUS;>&!A\k6HlOfS0gQW)/tXi7|j%h;d,hbrx.9dNRc7.Rfor:g,'o4)4
+0+h}Oz_UA%3Bk%IGWDp\[q;z_pC?9RrvW)p-sHd,e)+VS)Dg\zEK_pC?XKI&gRW)?l:)4S
+errnrLgPW)?letUPBXIGWFm js4D`2HoD1tWu:3 >E&D_pC?IX2/\.4rD=)40+Eb3KqkN 
+F`_sC`WFfrh2>]^C/Hf!\zNT*./)?Pd{NV[#[~8S4_&Z"C9U$$P=A>sYZ<A<oY`:[,-lG 
++D/iW>d[CDFcC_/\?fetX=%~?>T"[^#zY4,Gt+._KToQ`KRon+XU05v!WD7*_ZUSJ?0QN}
+oI3PUW[^29U>$`,%DAtWJ/q\F!\j4pO\9mCM&D>MuHA[${J]\qVcbJP{N_FU)}_pC??f%4
+G:4Iutc@Pb79t{.#>8:yU>bY3:i#dbi8.}-nG1@8VireR1IQItW)p!u,uG&>VhMU213Xv!
+8aET_pC?t``E5ALb-al&:)eVK%fp>x/{(oB-[8QFjEuG%12Z=/n=aEsT 2iL_"$<7U]h&~
+]8l[5@q[Fb\d$opY6h^xPliPMRo7Fc)cev7|G{%~_:U%:4TF^=&xa)rpE@JcJh `re7v#=
+bnfTJ?@#4s;;oqrBcQorC3*'evXiN+[xEZ>BD36Ujv,NICl3+~c9S%6>CAN}F`8lr!P;3p
+t@f{ND')7F8~rfb03:P*?w1_nT,9q`lrrCOdS02p)eHu:k1__U`6[qg&MLW*/tS)OR[ >G
+r+kH.}-nG1@8VireR1I%ItW)p!u,uG&>VhMU213Xv!8aEP_pC?YeuA]2FP?R'6<|V&;4g3
+h]7t.HOhBB'sifqHk@or l[nG2k8h`:iBqS5?PD8c"Ja5dQ(h>cmGt<y=] a6!BR[chQB-
+/,`!_m2`=/E.04_"hPOmuDCAQ(h>:ds,IvsPdL3m8KC`/^?fiXc(h;Fbrn?=7%S [^#zZu
+o9-CN=U9mc;HOzX~?cetA<3BWQ:LsERAXVm=dL`KZXo\<S/{>E&D_pC?IX4q1#\ePkfH=H
+e7:.R4gOW)p-IRe)+VdNs$XNQ&HfT.4k%2@+i$Y(?w\j,hIKf_s1IcB&`2OdN"^|DVouiT
+Jb,U\zEL>MCF&D>O\j4kO\n":gg2:aa|`6qf%!SHC3k0A_8AVguX'!Z7XWIGi#m68Sn?.c
+B[`:OcS0I'+VS)or[(8/_YVZ)_ERiXnQXi7|>y/{iPUPXN?n%4*U%nGdi.iU\suF5'9HCg
+f_N4?w\j_v*HW`9RrvW)&3>O\j4kP=fz;>Oz]s?w\j4k:g_^*H<2]v=|;]nB`P7=o6Y8OW
+<Yp.90<;F^mAI*BM6IKt[,0&ANWv9XrvW)p-sHS{j)s&N*mJo7XKI&oJ ]ucN mJIQoJQZ
+/uS)oruQ@@R9Q`LCXIEWh6%K+c[8m_GYAC5<,"S)Z=Q@_v\zNLmJo7Xk7|rE90dWNHU&=|
+763@s-WbB;b?e].}iPduLr!S@#@-b|9WS2oW7|j%p[1bN=/7iPUP8.r,7-Rfor[h)`ERiX
+5(_n;bmm]|:^`^S}h3O8u2WOEL_pC?v/CM>,0Wr(o2Xk7|Je1fZ1(;t/ QZ&1Ct]D/m"_%
+.LYyKK+ 19h|oC\1R`@ ?v)@Yb2VS5?PD8c"JaI8Q(h>:ds,IvsPS'G\PvgA?=_M\zOz?v
+dWXI^SHd4qTkX>_ J4S%g?d~p[j#s&?kO^2fTIQ5Ho+xV[ZqT8T=nrIRsED>_MT24k%2*U
+%nGdi.iU;?4cHu_nc)[&j#:eQT6@7!?N2;2EgP[&jsh;HdT._v)'2h%nGdi.iU;?_nHoiX
+l_IRs1IcWOgDNV[#cng-Wuo\<S:\q|XNQ.u{XN3P\zEKiXru7m7!?N2;s&Di`L&:_nEK_n
+fmkGIGO~?v]pk"rum;A{.$,@skt^2D@6`Zk"_RovqJ4hIX4qeEUT-#[*mdoGH}gB :J6q`
+7q7!?N2;2EgP[&jsh;HdT._v)')_p]Ho+xV[ZqT8T=nrsHpTIR4Ber?z%4OzCIDCXMt``&
+Igd^3m8KC`/^?fiXc([&mFg??9_MUSOzowg9?OI>]Gl[`K_fZFNA?se4hYGzC_O~k"l_D-
+T";>o2ZIR0k8h`:i>-BmXzovmFoG_(Hd2/)`>MdWhYG"%~?Tb0/m_+jT_R&*>M]p/7Sz&:
+_nEL_pC?`2q64hN}F`8lq6D>'ed_,}rGGM7*;]I-96Si8n&:_pC?IX2/m_%jmBIQgB8Rjy
+\~C?&cd_h9:aq|h^al-+V[ZqT8T=.2hyOz]sk"CF&D>O\j4kP=n";HOz5+_pC?r/4hIX4q
+;gU>]9&w?pQHX%&37,Rfor:g,'?l[])`ER_nfl;>Oz]s?w\j4k:g_^)'`6[q;z_pC?9Rrv
+W)p-h]d,osjUQ%fH=He7J>)20+b7h;p,IRe)+VdNs$XNQ.HfT.4k%2>y-p_a,Z9tS.[q;z
+_HT2_v*HqzN mJIQoJQ.Hf2/IX4qEQ0}'"&0IuJ?)20+@=[])`ER_nfm,h\~C?IX*DenVq
+)_J7IKf_n(IRs1IcTT,k\~C?IX)#qzN mJIQoJQ&N,F`_srwW)p-D-n(h]@@YvFa<C6BRF
+cBPb79t{.#>8:yro[od7+0V[ZqT8t]2D@6n(N;?w\j_v*HqzN F`_sC`WFV])_ER_pC?IX
+UOI'4qEQ+]oI\&\uCRtWJ/RpoW7|j%[&1bN=/7iPUP7m,&dNs$h~Oz]sZAU^?v,oUbW;r:
+RL1=@-b|9W_^Chf_'yd_2Cb+Fd_sro8VS&gOW)p-IR4X\~C?N}mJIQgBrPoH@}Q`fH=He7
+J>)20+r/Xn7|?j/{iP%id_s$h^+v?l;=Oz]sZArCgOW)/LS)or:gg2["MDI2s}.}-nG1@8
+Vire<[bv.<d{Lr!S@#@-b|9WS2oW7|j%p[1b]|ov%~d_h9:ar-h^!<u1%jd_s$h^- ?l/{
+iPtm`aRpX1QAlLoziTJbu~N mJIQoJQ&u{XN3H&cd_h9:aq|h^!,u1%jd_s$h^- ?l/{iP
+tm`a.<_VO2R9>95pNn`TS}h3O8JgQ>N+F`rf+TdNh9[b)`ER4cfs.M/\-8Gm21h1[b)`ta
+f{\8A/s?Q\3?P*2>Qv(,D#g&rxt?7./{iP?zP?H|7 3@k%\zfm]p/7>EbAFdrfg@_]ro >
+u|K"1fZ1(;uP,F&!mBdL=\Fo3l[l[6\%bYFdp$90dWNHj[:) REQD]-W09h&Wuo\rIN=?w
+\j_v)'qzN F`_sC`WDEL>O\jNLmJo7XKH}oJ Uucv%CM>,0Wtj8m,"dNRc[:m_GYAC@7At
+N}mJiqRARx&[_"T3!%=uc osZI<qTFIF 5L"<|V&;4g3=R3lKv?NjYWDQF"}bnfTJ?@#4s
+jJ>FYd2V7I,.h3p*$)u'<VY3FqCFXMt``&Igd$3m8KToMSFbTn_H1ml3DIYP)40+>{0R>E
+75R\7.O{%{t]4_inqHk@:}h>70mg3GRvm`l8dWForv@n<w,IANWv9H4xf_-?\.OdS0IsW)
+:_WO9R%im,IQoZ7|G:fjj!JbbK3:qk.r>E&DQ^IqW)/LS)9|& k4\nuF`2%jd_RcPwZLo\
+<S/{>ELjS|7.q3Ox]s?w1_8!os)40+h}Oz4JdERc7.,GUWC?N}mJQY7%uo:ds,IvsPQqG\
+Pv3I$qmF3GH[%~3B/q_+jTQLHob+C?7*O{2h<MnXE `LA5\j,hFh_sW@Htb+C?7*O{2h<M
+uo:ds,IvsPQqG\Pv3I$qmF3GH[%~?Tb0hs<j]tDh`LA5\j7S3@=w&Db+C?N}F`8lN5/7iP
+72Y#pd[q;z>O\j,h\~C?&U>'&D3D-'Xi7|TO.6JwXMt``&Igd$3m8KToc)h;FbTnIr3A\~
+Ozk#DIYP7*]o-E>E4SO\&ZOGVsZ-Deb03:P*ZA%~)~evaje)+Vsd7{>y/{SzQe/KdNh9:a
++v\q&5b+Fd_sC`WD`so[Tv$PFsrvW)HeT.;>&!4/S@H|,5UWC?N}mJQYQ?7N3@tNC_WDs%
+h?cmiVN"@eGhB9iHjMWDg|\/)FtS ]D)9vrV4h)`4cS :]FqqJIc3AUW:E+~H>>_uSPK+0
+NSsa<'\PUsoIIRoZ7|ilCxRo9T6vv5sGR:uQ:n]M |r/D2IKsf/shYr-7-p\q>1bSz9m_Y
+:^!`dQf+pW-#2h:k&D_nELb+k)*LFo8lWP::RwoG>;(#qsXnk"+~3QIKfr,h\ztZc8)wu;
+CM72N_+brUIcb03:P*?w1_nT,9q`E?b|9WrwW)/td"bs`6OdS0gEa|`6_(-n_a,Z9t,GN8
+-EiPUP8.u/UPmcIqW)ezh;p,IRWO>{JosE2&qHR_cAPb79t{.#>8:y4yN}[x-@6%Far3_8
+q6Ox_Uk"Gj-Q-,[%n%N;n&[hCJ1__UDd!z@:o^@z[5]O&oH]0u[%n%IqW)N+mJAIo[5;?U
+Dj`Li]r+XV-D(ojUtLYdB)2mrp!<h2SmnvXMFcC_/^U<mcl^sHFbrv3AO|n&]?tp*a6A&p
+q.X/Bj5Rh]s&h~Oz]Cgr/IS*Mmv4pY.?tmU^Dd!zn(hErvq7?hZ|n%N;k#lGCF1_S\H|U>
+#ARlV!jy:'EQUW,hIGjyN _|4ym_QY8jTU/YhY\W0&mQ;H_n7~G#rvWO9RC_s P;3pt@f{
+ND')7FntsHN*FU)}_pC?fr8Sm+j_OcS0oY7|?jQmORJ7)40+XUMdJ7Gz;^I-96Si8n&::k
+\j4kP=t(4ke2sd7{U`ZAj#s&8h]xu_pTD-lZ/*PM+0NSsa<'\PUsIs'eA\:aL*mCn0H;l7
+)\Hu_noV;#:8?set&AevA<fuC?HtiJ#u`Ti'av@4Di-`q;Ak?setsd7{&!d_bsi!JW_+iU
+Jb]&n!:w:i1_^trc=4d3E[oK"YZ.1FgXs&Fbrn?S4Be2c(p[mFIq3AO|k#DIYPjUI[K4u}
+rQXv_QrQf/?5J*ECA.&Um,q6IcRpoW/LQ/7}R%S|m$U^Dd!zn(hErvq7?hZ|n%N;k#lGCF
+1_S\`tm6HZ4qt_A#'eh]G"4xA(9h_YU9BXrqZrWz.MTA;C=NVzIGO~-EiPhyOz,r,Iq`hB
+rxt?pYIJD/tWJ/ussG7{o2-p_a,Z9t,GN8-EiPUP8.u/UPmcIqW)ezh;p,IRtLNV[#cng-
+N4+US)or[(:!u/UPmc+SS)Z=UDmc[(:!,v@-Jod#gBjD2jt?9<NV)khfnBuA'._^rwe]_R
+Dd!zn(Ro-E>E?}%4&!I}Xkk"]pl0]pUM3G=wL*mCn04coEn^90-(<F'CXqk"+~d"GxrvW)
+0a8nRp=YJs=g\j62s%c@dZOcS03}rQm+AIIfhZ;aI-96Si8n&:PAA%3Bk%IGWQm_%jQlIq
+W)p-IRR6_]4yf_-GS)Z=UDn$[(OV7|@+RwX1QAlLoziTJbu~rQTr`g@9q37(/{iP?zT#fz
+,hIKN FU_sC`WFUGbY3:tNrvW)ezs&p,XM@AQnX1QAlLoziTJbu~rQTr`g@9[]N5-EiPUP
+8.CM&DPAA%3Bk%IGWQ*<:k\jbYFd_sC`tCrn TfrOi`U=3E.*Dn1:)Y+tAZq2NdZco.t$|
+<F-/W}'SI&Nk(ADN^@\m9/lZ&u2toE>0<<"*Q6/TQL jd2$|U; I$+G1/>pH$/Q(I?]Gl[
+`KU|ZFNAUIn$l^XMFcC_/\e,sdFbCg)`_phspbJi#/;DauT3Tvv+l@]p*BZumw:I@o,b@!
+[8UJp"snpj-No:+WXM^[HdC`)`>MdWFo4x)`iZ7|p\]?grE:_x5Yv*I8<K_pb^`gm69Hb|
+9W4yf_'yd_bsS%T<l0)\ER_pC?:L;=Oz]sZA<MnXCGtWR7Iq[aCJVt)_Z'>Mi$Y(/7>E&D
+>O\j4kO\ocZGo\rItmj})\9f`:u_Qob9h;/KdN,}OlpTHob+3:k%IKf_R6Q?,c<{UoRT/2
+P_J>ANWv_QC`tCCgf_-Gd"h95|Far3*AGbrJWb&S.3NlgSs&N*F`)}:k1_,r?lDf\~IrB&
+f_hbrx.9j#:eU`?w\jNLF`rff/?5u5c8)wu;CM72N_+brUgAb0Fd)}>O1_,r?lDfIKXkd-
+W)pe]DX#o\<St/sG7{o2m8h6%K+c[8m_GYAC@7Atl3NAtNYw^RU!i!he>"\jIr;Ato90dW
+NHj[:):,q3Ox5+>O\j4kP=c7ib `WB<{?9:Po[%Q8$2F_puSCM>,0W1G[CC?XkA.p_.M/\
+-8Gm"h8nCgf_-GS)or[(:!,&:-,Mbci`\suFugYx^RU!i!hei-[4m_GYAC@7At5Dv/CM>,
+0Wtj8mkQv2WbB;b?e]a!:pet5.4qu'CM>,0W1G[CUlK'1fZ1(;(cS7J><{?9:Po[%Q ,AD
+h:Z']<9/g52@[g2];.9%P(?ket4MerjVrne99e sP7kkofMHT4dA(3eX9!N@K6achtp2T2
+]@^#l$-/3mVr&OO%]~R$_\'oT:524q8cK6#sN^D?pA=hW{i9'skk\@V?a%=US.[qk*>F.+
+`;[,*I\,e[;_iXdWhYGzqJ2&)`_nRyq4mFgO3AIK[RYVGUp; Eu7gFW2q[gE5|Far3_8NC
+:7Qmb9p[>w[]]t80)c;hCIQOJ1\^'lU]>uh{b=Ho_HUS,cIKN}WFf_B& rR9BM?rV;X0e]
+5%)gPbT6,TIGh7M+_WnssHN*O~*B1dN=U9mc;HOznT4coEn^90-(<F'CXqk"+~d"GxrvW)
+8i8_i$Y(l0NA8u'zmBAIgDb|9WChf_S%gOW)p-D-B&D3ANWvjyrQm+AIs%qfUl,h\zEK>O
+1_ENTPu:,]7;$uDCG1ukNajyIKmy?hZ|By\^'lU]>uUWC?Ib4qfr5x2kI:4q9H4xN}8uW*
+m>C(/ZueA[${J]\qVcbJP{I:4ql3)\8%/{(oADm cpRAXVm=dL,/@-i$Y(EIiX5(>O\jNL
+FUrff/?5u5c8)wu;CM72N_+brU4hV])_8%QmOR8iS&T<Dl*L>'\j];uF9+s1gA-GS)Z=Ve
+)_J7\^'lJr[xMX`IiS;Al@cX_g\z[^)`8%RfOR8iS&T<k#Cg\.C?tqp!CUtWgl5#4qf_tL
+^H]0!B8NYx^RU!i!hei-sdVb`6.M/\-8Gm21R[DgUWgPusf{\8A/s?Q\Q]IqW):oRfor:g
+,'FC2H`pnPRARx&[3v!D&!:/['`OS}h3O8$A.piPCgh{to90dWNHU&Kl&3>O\jNLmJIQoJ
+QZca<(8`qAs(Di`Lv*.M/\-8Gm21GpYw^RU!i!hei-:u`^S}h3O8JgQ>2sv5CM>,0W1G[C
+uHCM>,0W1G[CUlK'1fZ1(;(c(,r"XWn% \(@rE`Li'av@4Di-`q;Ak?setsd7{&!d_bsW3
+SiY8nmoM?P9`<{2LVgZ|7_C`O~-EiPXi7|qtiZuauithc8)wu;CM72N_+brUgA7%3@P*?w
+1_*Pe:o'h.>],Wi@=R@A"g$>27IFEBZ>j<J>0Q<)8`9I5});D-R?B^?vK0+ '7C'&lGB<y
+e[k]hSH3CFm"ouMx>wNu[$>c9+::mco{/*2}$=27j;>FYd2V/Z2]]Oa]\H[6Gn0M=ZirNR
+_Ii+Q;]O\/J. 7+DAb_zQGOC,ZLrW|-$&,,.qxe"\t)u_!'SEG'jkk>:&8Q{3K)4m[Dp[3
+Gn0Mgd+xchZ^Y}.~F|skBLL]'G[,5Z@q%F,Z(Q96#O+6<G.F#t)Y5gj`s>2_=/E.?5E;Dh
+M&B[)0V64O/jAtRWP(/+aAR#g6bfX$ZZr:?K9as48SD/m"ou.kdt]\_RixUn.kL;D\D:6U
+jvOirf6Kfr0&mQ0]&PnxckoTDL3AUWhsYN)?k*=YJs=gB $]R5W<M)M_+;QC,cT6NLWFf_
+meDp[3Gn0MQB[^Ox,"d"bs@:Yd2Vp]KVuaU+JFe`onHsb%\H`so[Tve1WD^S!Xr:!`_JR<
+ZVDqA.)\ER:k\jIb-GdN2C:ibA3:mgIRgRW)UB5+:k\jZONLF`ZNr_Ib]Sn(>gIDZQC?G$
+2Hhd_"SAiqqK)g(wTo$YrqZr,o]Wb03:P*/7(orEqe/|^jR<ZVDqA.)\ER:k\jIb-GdN2C
+:ibA3:mgIRgRW)UB5+:k\jZONLF`ZNr_Ib]Sn(>gIDZQC?4#)4oM?P9`DxHeO~OVeRMGIH
+hT&G>kl3)\8%RfOR#Lgc*7NH!1,jM-c90^Il=.=[0Q!jAGnED(Xpn%AS8zC@^y)yiX7|Fr
+%~?>7%'t<2]6=ZJshrTP\Sl"*AGb7/hCsDHdi#,9[rol1h'H?nb:+y)60+BoRQs>.s;}V&
+r:RL1=#7SI$#(;:5aoB*-nVE+GMyDx/Lsd:n-!O|=#[rh2>],WCZ@/Ab]{m*j'uc@,)BBF
+U(BB'sifi@pki.a1sWA; xTX.V;}(`<ERtG\@sS;^4q(A6"(D@aZBK[c#lawKz1\ru+5Dj
+-WEncL>*.Ub0Sv[`\7Qa;4&R#\lE/zoKflcm4A&Z"C9U$$P=A>sYJ,%Z<O11O%o}0K&Pnx
+ck#v+F/iW>d[CDFc*2S VYH=%~?:b0Ry;>mHoWa^n|mC&DfF.mp/em<G.a$>P&T>-%iP4x
+f_qW/Kcy2C>O\j4EN}FU:.RfDgeiA<)\&Sd_2Cn q>OxNDmJ)1g@Dk\~C?h{OzQ'J1\~C?
+HkW):o/{iPU=C?N}FS:.QmDgP45+:k>LHkrfDMW)A.3B7qCAN}FU:./{iP*2ER:k\j4EHk
+_srwW)lyc\Z=A0Tg7m_s27f_q7Ox%{ER:+\joX7|N)5+:k\joX7|N)]s-%iPU=C4N}mJ)1
+1JZ<A0Tg7mrf'em(T<-EiP\dk)T6C?Xk7|N)?ubA3:-'dN2CZ<]t-%iPU=C4_|Chf_qW7#
+p[[hOxQ'iP\dk)UWC?HkOco7PE(dW07$[&iX26f_V\7$p[[h:C+vroT=-%iP4xf_fl>yQm
+h;I1gD[aOxQ'+rroT=-EiPU=rC-+FUOcsGh~7{b=3:7qo)sfX<Q&tJ26f_;AOzQ'k!UWC?
+Xk7|8SEP:k\j4ECF/LdN2CBtZ>Casf7{c^DgZ>bY397qOcrfsi7{N)Q'tJU=C4CFU&U?1^
+Y|`#*Df).w0YX]'@"/8#ChC\lyOx]sNDF`:./{iPU=C?&cd_D-:^\j]4IrW)Vc)_+x7fCA
+gDq7OxNDmJ)11J8*U`NDF`:./{iPU=4Ek%-'S)h;U=4EtN4xC\lyRcorDqUWC?h{OzQ'>E
+\jNLmJ2&8*Oz]sNDFS:.RfDgei\dCah{7{b=FdOc(dh9Dk\~C?h{OzQ'+rk%-'S)h;U=C4
+D3h{7{b=3:7qCAfIXRA.)\&Sd_2C8*N)5+&Sm,T<?w\j4E7q_s://{ZA4E7q_sT/?w\j4E
+HkOco7h{X<%z3@k%-'cy2C_pC?fIW):o/{ZAC4f_XRA.)\&SmB)11JZ<]tNDF`)#1JZ<]t
+NDFS:./{iPU=C4roT=/7iPrvW)lyN'?u\{DMW)l9)\+x\kC4_|T/-%iPCgf_qW)1h9U`ND
+FU:.RfDgP4%{_lCah{7{b=FdOcfbV\sHD2UWC?h{OzQ'iP\dtR:.RfDgIKf_qW)1h9U`ND
+F`Oc(dW07$[&iXrvW)lyc\Dg>BET&Sm,)1W07|N)k!idrvW)lyRcDg>BET&Sm(2&Df>BJ9
+-'cy2C>O\jC4fIoI2E:+\joX7|N)%{_l]4gPW)A.3B7qOco7:ob=397qCAfIV\h]DkIKf_
+qW)12CZ<5,:+>LfId^s$2H:+\jgPW)7$/z>E763@O\o77|>yb=397qCAfId^s$2H>O\j4E
+7qrfW)PEfbW)7$/ziPZUDMW)l9)\+x7foI2E:+\jgPW)ly8QJ9-'d"2C>O\j4EnQ:ob=39
+-'S)DgeiI1gDq7OxNDmJ)11Jj|ZUgPW)A.3B7qOMsG2H>O\j4Ef_fl>yb=FdOcd 2C?q\{
+DMW)l9)\+x\krChFq7:C+v\krChF[aOxNDmJ)1W0WD5,&Sm,T<?w\j4E7qoI2E:k\j4EHk
+Och\DkIKf_qWlx2Cj|id26C\7$8SJ9-'cy2C:k\jC4nQ:ob=39-'S)DgiMI1D3sf7{b=Fd
+Oc)1[$iX26f_qW7#8SJ9-'S)Dgei\drChF[a:C+vICnQ:ob=39-'d"2CZ<Q(tR:.Q]Dg\~
+C?fI)CpYDqUWC?Xk7|N)k!I1gD[aOxQ'+rICnQ:o723@7qOMo7WD5,&Sm()1W07$EP_cCa
+sf7{c^Dg>B+z_|Od(dW07$EP_c>uh{7{N)%{_lrC-GcyD-_cC?D3h{7{b=3:7qd^h9q8:C
++vmJIQT?-%iPU=rCW)ZWl9)\+x7fd^h9qX7{8S3BtN:.QmDg\~C?Hkfl>x723@O\(do8Dq
+UWC?h{OzQ'+rr_T=/7iPrvW)ly8QEP&Sm,2&8*8SJ5-'d"2C>O\j4E7qo)2E:k\joX7|c^
+DgZ>]4gPW)A.3B7qCACF:ob=39-'d"2CDfZ>Cah{7{723@7qOcrfD2UWC?Xk7|N)Q'k!:'
+Q]DgIKf_V\WD5*&Sm,T<?w\jC4CF:o723@-'S)DgiM>FgD;AOzQ'+r7qo)2E_pC?HkV\WD
+5*&Sm,)1W07$8SJ5-'S)DgP4%{+x_l:/Q]Dg>B\j\mhF[a)`+xF`Ocrf2H:+\jIrW)7$EP
+Z>Cah{7{723@7qrfflU_NDFU:.RfDg>B+z_l:/Rfh;\d7uIC2)>O\j4EfI)CYbiX4xf_qW
+)1h98SJ5-'dN2C8*N)k!>FgD[aOx%{+xICCF:o723@7qOco7WD]rQ'iP\dC4Olg{DkT6C?
+sf7{8S+z_l:/Qmh;I1CFZWA.)\&SmB)1ENZ>Casf7{723@7q)CYbiX4xf_qWWCQ(tJ:.Rf
+DgeiI1CFjgb<3:7qCAnQWD5*&Sm()12Cj|>FgDq7Ox%{+xOlrf2HBtiMI1CF:oQmh;>Ff_
+hFq7OxNDF`OcRFZ=VeTj7md>s$2H:k\jC4CF7|>y723@7qOcRFZ=7&OzQ'F\0dX8EWs-Wb
+.-q}Fc7Z#hHqm.@aW?ei&A:+bAfmC?_+.Gml/*m"`&/hC>=cIp/|5a[bbF[O0roj*l\8:P
+,HkBS"7}m trg$C?18g*bn&J/JaA\m2wl&Z6n;A@D>7;h\Av^Q\mr$P/,muy\EBSGW=UA\
+3S,]W|QaD_h_A05]7.A`(5nKmrk-K?Vu[6PhSE5Q5HI~M~r6h/fV?p/]:8sT^cNm-nct\[
+pkO;<Y`.s8 2ufZ7C0$3"hJ_[#1\1bC>=cIp4iU{=pA32|[zO5r@dW^g2jkPnE.lW=,pf%
+r`PI@uW+Ts_SGmEc*8$$Y1TpH#@66 n?.cB[EMI0A?Ts$YrqZr,oq[N*FS)}:k1_3I)4*D
+$'oQ;#I-96(^j$UFsj\Rl"*AGb7/U>[^Ox,"d"bsBh6cA\6&[kU1$YP="#d52k<2^W2V2p
+66ah!F'VkkjL[R9a\=/haA\Q7v&=N.([QDS@2t+]oI\&sXOiRFix4 0+p-emoZ\Ol"*AGb
+7/U>[^Ox,"d"bs5{Fa1RC>=cIp4iU{=pA3@J]d4Wq@Boan4coEN>4FA()\8%QmORKxmCC%
+f\[GsaIS5a[bbF`tqi\^'l\DBSGW=UA\3S,]W|<|2k^t<m)?D-R?X4JGPUkDQgE\t/J=EJ
+SCGtS5?PQeqF*_2Zh:#Z8i05_"-5lW5@(8#8GLm!Gi26)`evoT<fJ%@7u:@iE0Xp+7/t4H
+$(R#/Khy:n,(O|]C[q;zb+&LONS{[:Gn0M=ZirNR_I(Jh}7{&!m,3{O3pUDp[3Gn0MQB[^
+Ox,"d"bs@:Yd2Vp]KVuaU+JFe`onHsb%\H`so[?A2mrpW27t>X.M,p`uo[?A2mrpW2;L;.
+8"C`/^c/:emHg??9_MUSOzow+}H>ijo$p$90<;memHO5'Qqcd&aD8HC`jy\~C?Ht7 3@k%
+\zfl+TS)or[(8/jdqY)70+7,:\q|XNQ.7},G\~\x[!XOUDBxN mJg{[b)`Q^g?_]ro_]ro
+8ln)sH?kT#EY>O\j+TS)DgHZUOI'4qIXC`s%oHSpU9n$[(XO?nT#;oW`9R%imBIQgB8RW*
+&3>O\j4kP=3G-'hyOz]sk"CF\joX7|R%iRtS+5X~BB'sifqHk@ORI:UOOz-VW,IG/ic/h;
+Fbrn?=7%S [^#zZus=+5CINZif@we9XI3PV<P$oIAJA(3BP*ZAqJIcT"m`gOb0={oNLwWO
+S5?PD8c"Ja1`ntIR3AIG/i,sg[I:T.hshYG"%~?Tb0/m_+T~iM_;.M:wT5Dh`L&:_p\xN4
+ZAj#s&S{9|_Y&*>O\j4kO\3G-'hyOz]sk"CF1_S\fz,hN F`_sC`WD7*/{iP?zP?fz2W<H
+Pf'y*4M/nvD-'emBAI[8'6QS@JGmZk)FtSfcXpovmFoG_(HdT.Oz-VW,IG/^8$G{%~_:p 
+GQC5pcYw5IDI\nuF9+rvW)&3>O>Lh[gB:a1Lb+Fdo)h{Oz8nC_jyIGjyIGWQr/Ic[!:!]w
+/7iP%id_2C4=:g_^US_v1ot]rn9w:\r-h^gB[":!Y#fz,hN F`_sC`WDf_N4?w\j_v*HFo
+8lWPm_PugOW)p-D-TxA%3Bk%IGWF/a@w\0R";2%c6|[%n%[h)`Z']<9/r +5Dj-WEncL2>
+#>bnfTJ?@#4sjg>F@+b''+OGVst_`&IgA[UIn$AS8zXuUL#yqLD>3A\zRxZ}n%+}_)N*?\
+H ^s#Z8i;~hT$bDg4Ber#4GL?s(wqLD>4Be2hYG"Tn7}G{rvtL4_&Z"C9U$$P=A>sYJ,%Z
+<O11O%o}snpjP9I:UOOzULdZhYFqqJ2&)`;.8"ro?=P(ow+}H>ij\u.M:wT5-<Qj]T[q;z
+,5\~C?IX*D-6hyOz]s?vX{H|jsIKf_n(sHS{OR[0o\<Sce?z:)_^*HFo:.;=OzH~4qf_-G
+S)DgHZUO+TS)Z=UDn$[(:!5/>O\jqZXNnkh[- \q?net%imBg{:a1LjsIKf_n(XMt=Xn7|
+,GIKf_n(IRn(XM.7<Q_YQ5bYFdrfoHQ.Q?,cN}F`rfg@8VcjA<3BtNrn8R-H>wRfZ=UD7m
+8r'ed_h9["8/CM1_S\H|js_QChf_n(IRTxEI_pC?r/D>osm ;HOz5+>MnQHloZ7|U`k"X{
+dX(5/$m1QvLSPqoII&oZ7|AD[8<qTF#ZCT6IKt6A\B:S11O%o}snpjn/flo)Tu2z@ @BIQ
+'sa4C:s0+5X~BB'sifqHk@%H1tWXR _')yj|MRfb3A>BS"q4mFgO3AIK[R^q/L7(J%@7u:
+@i)40+7,Qm=0763@-'S)or[h)`+xk%\~C?fIoIfIV\sHsi7{,G\~C?&cd_h9V]PEo7ZWWD
+CJ!`dQf+IHhTg(RA:0Xl.f;MZ<,#d"GxrvW)p!*AGbrJWb&S.3Nl<HQmorgOW)%bO<S|7.
+Qm=0763@-'S)or[h)`+xk%\~C?fIoIfIV\sHsi7{,G\~C?&cd_h9V]PEo7ZWWDnUL'mCn0
+4coEn^90-(<F'C-fh9&!m,3{IKf_s+P;3pt@f{ND')7F.4d"GxCgf_M{bhB&m_PugOW):7
+CA:L]M |[8Gn0M=ZirNR_I(JfK4.UWC?A(3B(B<OjD;K6O?iHp(0nP&A:k76fsC?,)=wo4
+ZIfDLUps E\bGn(YO+E;'6QS@JGmZk)FtS ];Loq6h_9SO;k9 CA[RVYH=%~?>7%S [^#z
+Y4,Ge2tkf{'&%{_lJ?0QN}C5*'evhyQT/uL]fb'emBQYhf_"SAYwDx79?dO@C5*':k\j[^
+)`9fmGO5'Qqcd&aD8H'fmBo7Hk[oh2>]VS"ukR kC/o^13( jW.L,p`uo[?A2mrp!<VxiM
+MRH<+D\kOz-VW,>B'v,"^\N*/iA('v<28op$90<;memHO5'Qqcd&aD8HRqIq-G-CO|5+Z<
+]D[q;zb+&MTOVZTj7mrf-Gd"D-_c&$Q^oWX=5*_pC?L_IQC6_|I2s%C4Ol-AUb-EiPPtgO
+W)/LS)9|8r\dNEUKEY7 3@tNrvW)PEo7fIQkWE5,?q1_k4\~C?7*/{iP+/tN\dk)4Xt]\d
+-+fG-+IC,)8uR7S}7.;=Oz2hW0S|DgN FUICT?-EiPrvW):o/{ZA]4IrW)7$p[DqIKf_V\
+h]V]S(9|-w1dN=EI>O\jQ/Sz&Z/C5loN?P9`<{2LVgZ|7_4yf_b0Fd)}Z<biZ>uA]2FP?R
+'6<|`p%O(\DNrl>(9@[+[&Oj<pTFE[/%A}&l72+yZGQFHc-5$fS+((*Db]p|>C_vMw(qA4
+s*(5FsC_/^e,hYFq0iWXgUh;a]_MUS:Eg:1m$Kt/._KTj,4r>.oN8^t_f{'&t*S}m$:g1L
+_nJ0\zqwIcTxDh`LU)=ZjX[R9aKlfH=He79)s12&f_n(D-:`gB:a1<_nEKiXH{2/m_Pub~
+h;2^9+s14hh[g2:a1<_n;b(Qk6b|9W)HO}_UZAo0Ql+B7&jD;K6O?iHp(0XzZAYZuAg|3V
+Ev` `ds#/gL2fUp*6Kfr&~]8apT<m`oG_(Hd2/)`>MdW#4GL?setoT3G:G+~H>3tFE-rK{
+?z0?Ju-*D-jhRAXV8hS&g?9sZ|n%[h)`;h-6!ZV[ZqT85F)20+BoRQs>.s;}V&r:RL1=?s
+etq5D>s1IcTx?cet?zT#H|4=e2%id_s$h^,'O|-so2m js4D`2[qg&MLW*pUsH8he*(5/$
+m1QvLSPqoII&oZ7|Y\uAg|3VEv` `ds#/gL2fUp*6Kfr&~]8apT<:]G"qJgA3AIG/\U<mc
+AS8zXuk"#vC^T";>mHoWa^JX95V ]]gFS6`Ug5k1=ZJshr-Q_a,ZOJNMDh`LU)=ZjX[R9a
+KlfH=He7`0ro9wce?z:)_^*HFo:.]o/7iPrvW)UBXNA03Be2s&:n/{iPC_FUrfgPg9_YUS
+7N3@-'S)DgIGjy\~C?XKSpk"]p?w\jg@e#p[U^/7iPrnm+o7Xk7|b=Fde9:e>y/{iPC_m\
+XM/LdN2C_nqxgAn(IR[!ByIGWQm_PuoW7|j%p[1biP%id_2C>M]p?w\jg@_]Chf_[!X/UD
+BxIGtACgf_[!n%:g1<_nfmC?1#`6d!Pkfm2I@6kEFvmAro0NFo7Z#hHqm.@aW?IGjyIKf_
+qi8JrvW)Q>4k:'4SP=EYiXH{2/&cmBT<?ce4?zP?J>\zqwIcR6\2hf>XVS"ukR kC/o^13
+( jW.L,p9f?P2m<HG#Ox,"^\7{&!_:7{&!_:7{qL2&)`;.8"ro?=:R+~^\1mA('vr(=@ r
+^#Ur`vuATI2V\nk1=ZJshr);.48C#|%*6WJ.+Vnlh{1d>E_^*H8nm+cPnQ)40+>{k=FvmA
+C`WD;gqzHZT.>7q,P;3pVbIGO~-EiPhyOz,rOlG[WJt)`Nt>aTj@;K6O?iHp(0nP&A:kbA
+WUf_n(sH:*-?6e8VihJbk4IGq`\zZ Ds`L`TmndLoJ@}9+S&g?d~ib@0o^@zrTIcb03:P*
+?w1_CIo4ZIfDLUps E\bGn(YO+E;'6QSW}Zr)F.4^\7{+F/iW>d[hy,giPHi?S9gY!,OIC
+[Rm`Iq3A\~Ozk#oTc?WL#Ctb*q>.oN&A\eHA<{Uo]?MId5;]6T6o%]k4N tCrve)h9V]c8
+ci_RHiJ.ANWvolF]`=7G#O&h?pQHM:C58u4xf_;AOz%{ER:k\joX7|N)]s/7iPrvW)7$U`
+?w>LfI-GS)Dg>B\jbY3:-'dN2CZ<5,>O>LfIoIsf7{b=FdOco7/LdN2C_pC?fIIcgRW)7$
+N)k!A<3B7qOco7:oRfDg>B3BtN4xC\WD]t-EiPCgf_fl>yQmDgIKf_flU`/7iPrvW)WD]t
+-EiP\drC'ed_2CDf_cbY3:7qrffl>yRfDg>B+zroC4fI)C[$l;)\+xmJQY/u7(Rforq^QY
+7}Je[xMX`IiS;Al@cXN6k!sd7{&!d_bsB&J6ANWv$c7~U@o78ie*+VXi7|TOfbTx]0`Ai'
+av8|rfb03:P*?w1_ci!NdQf+IHhTg(RA:0Xl.f;M:k\j[^)`MZo7[l8SR7\2hfcmiV=XSS
+E$Ho]\5H=X"@i:-9(X7Rs*E2Z>fDLUps E\bGn(YO+<z9aSM_!E[Xp-VW,eioTC3)`j|MR
+G[+D\k$oh9mHDL3AUWOzow+}H>3tFE-rK{50QL jdf@:/FS*Mm@>E^I0Vt?9BSGWi]26f_
+q7OxQ'EL:+\jgPW)ly>wQmDg\~C?Hk'em(T<?w\j4EN}FU:./{iPU=CaXk7|b=FdOcnjXk
+7|c^)\J7IKf_qW7{>yQ]DgUWC?HkrfIrg9c]Z=A0)\&Sd_2C8*>yQmDgIKf_qWIQItW)ly
+c\or[h)`+x7fCA&cm(2&oq[hOxNDFUOcIQDOW)A.3B7qrfIrW)A.3B7q_s27f_qW7#>y/{
+iPU=C4&cm(2&Z<]t-%iP4xf_V\sHh~7{723@7qrf-Gd"2C>O\jC4_|27f_qW7#p[;HOzQ'
++rICN}FSOcfbV\sHsi7{c^Dg>BJ9ei*2+xICgD[aOx%{+xICN}FS)#[$iX26f_q7OxQ'k)
+UW\xflU`NDFSOc(d[$iX4xf_qWWC2iQjDg_cbY39-'d"2C=/bA3:O\g{[bOxNDF`Ocrfsi
+7{723@7qICItW)ly8QEP>O\j4ECF:ob=3:7qCACF/Lcy2CDfZ>bY3:7qOcg{qX7#8SoZqe
+W#@Yq.s(KCA/NW5~Zg193k;E:E+vFU_s:/RfDgIKf_qW7{U`?w>LHkW)ZWl9)\&SmB)11J
+8*U`NDFU:./{iPU=4EtN:.RfDgIKf_qWlxs$2H_p\xqWlxh9q8:C+v\kC?D3sf7{b=FdOc
+fbW):o/{ZA4EF`_s:/Q]Dg\~C?HkV\:ob=39-'S)Dgei\dCaXk7|b=FdOc(ds$2H_p\xqW
+7#>yb=39-'d"2C8*N)5+&Sm(T<?w\j4E7qrfT=-EiPrvW)ly2CoqDqIKC\ly2CoqhErvW)
+lyc\Dg>BbA39O\dLs$2H:+\joX7|N))_J7IKC\7$Oz5+&Sm(T</7iPU=C4_|:/Rfh;U=C4
+_|:/Q]DgIKf_qW7#[&iXCgf_[a)`+x7frfXRA.)\&Sm,)1W07$p[hE26f_;AOzQ'iP\dtR
+:.QmDg\~C?HkOco7:ob=39-'S)DgP4%{_l>usf7{b=FdOcfbV\h]Dk\~C?h{OzQ'iP\dtR
+:.RfDgei*2+xICgD[a)`+x7fCAfIIcT?-EiP*23@7qrfhF[a)`+x\kC?fIIcT?-%ZAC4fI
+oI2E:+\jgPW)7$N)?u\{DMW)A.3B7qOco7ZWVc)_&Sd_2CDf>BJ9-'cy2C8*N)%{_lCah{
+OzQ'iP\dC4roDMg9N(?u\j]4DMW)Vc)_+xICf_-GdND->B3Bk%-'cy2C8*N)?u\j]4gPW)
+ly2CZ<)`J7P4)_+xICf_ECA.)\&Sm,)11J?q\{DMW)Vc)_+x7foI2E:k\jgPW)ly8QJ9-'
+cy2C_pC?HkflU`NDFU:./{iPU=rCECVc)_&Sd_2CBt_c]4gPW)lyOxQ'k)-'S)Dg:^\jrC
+XRA.)\&Sm,)1W0WD]tNDFU)#W0WD]tNDFS:./{iP*2+xroT=-EiPrvW)ly2C?q\{IrW)ly
+c\Dg_cCah{OzQ'+r\krChF[a:C+v7qoI2E:+\jIrW)7$8SJ9-'cy2C_pC?fIfl>yb=3:-'
+S)DgiMI1gD[aOxQ'+r7qoI2E_pC?HkV\WD]tNDFS)#h98SJ9-'cy2C:k\jC4Olh\DkT6C?
+Xk7|N)k!I1D3sf7{723@7qrfflU`NDFSOc(dh98SJ9-'dN2CBt>B+zroT=-%iP*2+xICnQ
+:ob=3:7qCAfI)CpYDqei*2+xICnQjgb<397qOco7WD5,:+>LnQ7|>yb=39-'d"2C?q\jNL
+FU)#/xiPid26f_qWWC)`ER&Sm,)11J?q\jQ/3:7qd^h9DkUWC?Xk7|c^Q$k!-'dND-ei>F
+D3sf7{b=FdOc(dYbiXCgf_[a)`+x7fICT?-EZA4E7qo)2E:k\jgPW)ly2C=/\{IrW)A.3B
+7qCACFZWVc)_&Sd_2C8*8SJ5-'cy2C:k\jC4CF:ob=39-'dN2CDfZ>>usf7{723@7qOcrf
+D2T6C?h{Oz%{+xr_T=-EiPrvW)7$8SJ5-'dN2C_pC?fIflU_NDF`Oc(d2C=/\{oX7|c^%x
++xr_T=-EiP*2+x7qo)2E_pC?HkOc)1o8DqT6C?fIW)WD]rNDmJ)1RcDgZ>]4DMW)l9)\+x
+ICCF:ob=39-'dN2CZ<Q(tJ:.QmDg\~C?fI)Co8Dq\~\xV\2gh:ZUgPW)lyN'k!>FgDq7Ox
+Q'iP\d7uo)2E>O\j4E7qrfflU_NDFSOc)1h98SJ5-'dN2CDf>B+z_lOdfbV\7$EPZ>Cah{
+7{b=3:7q)Co8DqUW\xfl8SEP&Sm(T</7iPI1CF:ob=3:-'dN2Cj|>FgDq7OxQ'+rOlg{Dk
+\~C?Hkfl8Sp[-#d"2C8*8S+zr_T=-%iP\drCflU_NDFUOc)1ENZ>]44EfIfl8SJ5UW\xfl
+Oy]sNDFU:.RfDgZ>C?&cmB2&=/\j]4IrW)7$8S3>k%-'dN2CDfZ>C?,)F`OcRFOR2sI~]P
+.M:wT5S"0K>(d,-X"q+NHmRpDL-GQ/7}il=*2kBa,UqHGt7pa4l&IT!"NH-rLrPeB[ 7Rs
+G\-/uN_=3G,FkBS"7}SnSL17SYE=%FWEa.$uBi6c('?r-p_a,Ze WDTiHG0<stT#1^Y|`#
+*Df).w0YTYB^_z&d c,f*dal8 3Bsj!g($JgM2b6uyu.m67"V:[zO5r@FxEV`jfU=Z8D9b
+UsJgAHXDr$^K!Xr:Bq6cA\6&rZI,VsW@7pa4l&oz Qb?&xaTPI@uW+?>ft`% I7V@7+<0U
+K$YoJY$P)ln+m1[pJ}r%@@::mrE!`L&:NO[#cn6\4#r,tVZ6s`c8)w;An DLW)N+FU[o>7
+fA(F%Qfr,h&h?pQHM:H&n"`%Z7s`c8)w;An DLW)N+FU[o>7fA(F%Q;g_U]0opa2;;t-Gm
+3=m$u[5[BjM%ee*lVr(#N$@ii?5ZG_kA=E*l1B;~$V s;bI-96!w^}\mEWidJb,U*!I&J;
+h6tzA[${-`G 26f_b03:i#C'/ZBRe(o/[+c9G'9;9c9Z_Y]a4Wq@Boan4coEN>4FA()\8%
+QmORKxmCC%f\[GsaIS5a[bbF`tB&#|RlV!7pa4l&oz Qb?&x sm8=xc i3WD]29/\J[&`b
+%O#[1SNQ^k.LBmpyoD_4\mFPs&R_TYM9T6,tk| 2`-)GYzEmBS[c7 )CD-R?X4JGPUkDQg
+E\t/J=EJSCGtS5?PD8mlfl.He>c2'{,";<?{[Q)kb0Sv/P>tE{(ZDNOig{3VEv` `ds#/g
+L2fU#Z8i;~hT$b1tWXR ^Z)yoqAS8z-jpYGi>F)`8*mHC3?\b0Rxq4mFgO3AIK[R^q^K!X
+r:dC4#r,giNjL2W,-'cy2C:k\j4EN}FS:.RfDgeilG)\&SmB)1r+h~7{b=FdOcI%ItW)A.
+3B7qrPT=/7iPrvW)lyU^/7iPU=C?&cd_2C-?iPA<)\&Sm,)1W0:oQmh;*2J7T6C?h{OzQ'
+iPlG)\&Sd_2C8*>yQmDgei*2ER_pC?HkqWo7h{X<%zER:+\jIrW)7$>yQ]DgIKf_V\:oQm
+DgIKf_V\/Lcy2CBtiMA<3B7qOMo7h{X<%z_lbY39-'d"2CZ<]t-%iPCgf_V\h]q8OxNDF`
+Oco7/Lcy2CBt>BET>O\j4EfIIcDOW)ly2CZ<]t-EiP*2+xIC,)7fCAfIoI2E:+\jC4fIIc
+DOg98RJ9-'cy2C:k\jrC'em,2&?q\{DMW)ly8QJ9-'d"2CBt_ccz)\+x_|27f_q7OxQ'tJ
+4xC\WD5*:+\jgPW)WD]r-EiPCgf_fl>xQmDgei>FN}F`Oc(dYbiX4xf_qW)1o8[hOx%{+x
+_l4yf_V\WD5*BtiM>FXDBte(o/[+c9G'9;9cCd7Ea4;U>O>LHkW)ZWVc)_&Sd_2C-?>EbA
+Fd)#QjorDqUWC?Xk7|c^Q$>E\{IrW)A.3B7qOMfbXRVc)_&Sd_2CBtP4]sNDmJ2&BtP45+
+:k>LHkmAIQT?-EiPrvW)lyRcZ=A03BO\fbW)ZWA.)\&SmB)11JZ<iX26f_[a)`+x7frfT=
+/7iPrvW)lyN']sNDmJ2&BtiMid26f_q7OxQ'iP\dCah{7{b=FdOcfbV\:ob=3:-'S)DgP4
+%{ER&Sd_D-P4%{p]-#S)Dgei*2+xtN26C\7$Oz]sNDFS:./{iP\dC?&cd_D->B\jCah{7{
+723@7qOMo7ZWVcTj7mOMo7ZWA.)\&Sd_2CBt>BJ9-'dN2C_pC?HkV\h]DkT6C?sf7{c^Dg
+>Bp_-#cy2C>O\j4E7qrfXRl9)\&SmB)1W07$[&iX26f_[a)`+x\kC4_|T/-EiPrvW)ly2C
+Z<5,&SmBT<?w\j4E7qrfXRVc)_+x7fCAfIoI2E_pC?HkqW)1h9>yb=3:7qCAf_V\sH2H_p
+C?HkmA)1h9>yb=39O\)1h9U`NDFS:.RfDgiM\dtR:.Q]DgIKf_V\7$p[Dq\~C?h{Oz%{+x
+ICgD[aOxQ'iP\dC4roT=?w\j4E7qOco7:oQ]h;\dFd_s:/Q]Dg\~C?fId^h9;B:E+vICf_
+hF[aOxQ'iP\dFd_s:/RfDgP4%{_lC?,)\kC?fId^s$D2T6C?sf7{c^Q$tR:.Q]Dg\~C?Hk
+flU`NDFU:.RfDgeiI1gD[aOxNDmJ)11J?q\{IrW)A.3B7qOMsGD2\~C?h{OzQ'+r_|:/Rf
+Dg:^\jrChF[a)`+xFUOch\DkT6C?sf7{c^Dg_c]4Irg9c]Dg_c]4DMW)A.3B7qCAnQ:ob=
+3:-'S)DgP4Q'tR:.QmDgei*2+xroT=?w\j4EHkOcsG2H:+>LfIflU`NDFS:.QmDgiMI1gD
+[aOxNDmJ)12Cj|id4xf_[a)`+x7qoI2E:+\j4EfIflU`NDmJ)11JDf_c]4DMg9N(k!I1gD
+[aOxNDFUOco7WD5,&Sm(T</7iP\d7uIcT?-EiPCgf_V\2g?q\{DMW)lyN'k!I1gD;AOzQ'
++rICnQ:ob=397qCAfI)C[$iX4xf_qW)1h98SET+x7fCAfI)CpYhE26f_V\7$EP_cNLFS)#
+/xiPid26f_q7OxQ'FdrfIrg98R3Bk%-'cy2CBt_cC?D3sf7{c^Q$Fdrf4Ef_flOz5+&Sm,
+T</7iPU=\mhF;A:E+v7fICT?-EiPrvW)ly8QJ5-'dN2C_pC?Hkfl>xb=3:O\fbflU_NDFU
+:.RfDgP4Q'tJ:.QmDgIKf_qW)1o8Dq\~C?h{OzQ'iP>FgD[aOxNDFUOc)1YbiX26f_;AOz
+%{+x_lT/-EiPCgf_V\WDH=&Qm(T<?w\jC4CF:ob=3:-'S)DgiM>FgD;AOzNDmJ)12C=/\{
+gPW)lyN'Q'tJ:./{iPU=C4CF:ob=3:7qCAfIflU_NDmJ)1W07$8SEP&Sm()1RcDgZ>]4oX
+7|N))_+x_l:/Q]DgUWC?fI)CYbiX26f_;AOz%{_l\mXRl9)\&SmB)1h98SEP&SmB2&Z<Q(
+k!:'RfDgei\d7uo)2E:k\j4E7qrfflU_NDF`OcfbV\2g=/\{DMW)7$N)k!>FgD;AOz%{+x
+ICCFZWly2CDf>B+zr_T=-%iP4xf_fl8SEP&Sm,2&j|>FD3h{7{723@7q)CYbiX4xf_;AOz
+Q'7uo)2E:k\j4EnQWD5*&SmB)11Jj|>F]lq7OxQ'iPI1CF:ob=397qOc2f=/\{IrW)7$8S
++z_lOd(d2Cj|>F&cm,2&=/\j]4IrW)Vc)_+xm:o7XkX=Q&F\_s:/QmDgiM>Ff_hF;AOz%{
++xm:o7fIW)WD)^$1Y1TPuKnX#RJ%TKqf`-;tE.TP\9BSGWh`a_G'9;9c.O\@/haAD)b?FO
+uTCQ1_p9kBe*Gx17e+9e[a {)M>gW'eHibueW|7n7!?N2;)<.Wu|(E6BUs)/"/MX],")&Z
+;f#O^EH!uDM1G'r;h/fV?p/]:8sT^cNm-nct1P<;(!8IJr$P)lmJlH'"@0th(=&8u(_&ed
+i!m6>z/}%FkHibs#@X;+Mj^|&N\EBSGW=UA\3S,]W|r"D'nF5=TkO#<+JJpAA89!q]onU_
+=|7Zt;8qD=myml \KCd7I"aoB*-nVE+GMyeYMGc9L,dD>9fA(F%QTiAPR99LlZ!0G+?%px
+ L/QJDNo&~T: }?#t[G4 E3%0ci.-}+{V[Zq>b[+8Ss~/E@w\0R";2%c6|D^(\)uh&(F:J
+8d-~m=C(/ZBRe(o/[+c9G'9;9cYzEWGSY\uAg|3VEv` `ds#/gL2fUp*6Kfr&~]8apT<:]
+G"C\_MT2Oz-VW,\z'mlbsHFbTnX>C\:R-*D-<{Uo2498S&p,IR[!X/UDBXIGWFWJo\\suH
+Zd(#N$5~+[oI\&;4iR+1#=bn-[>f_QC`FSrfg@d~s&eyh;?ke4UPBxIGWDm_q62&_QC`m\
+h]eyh;?kP?;oh.4k)B8*`6[qg&MLW*k0#9:K116liJQS2X<HPf'y*4M/nvD-.FJur_:J)M
+0 014hO%kd\gIW%Z1dbHo}0Kmg3GIG/i?fe4c(h;Fb6B)rh]G"3t:Gg:N*?\:R-*Oh3R-b
+P!Gk]HR6TTnEE'J.+VD-jhRAXV/?@w\0R";2%c6|]w?w\jI'4qD0tWot`LoAM+A&%ON"^|
+DV<BN0?v]pk"nQq5Ics1gAR6/uXIShk"-pQT/uXIShA%3Bk%IGWF9+=XcjiV-dpA9dqr?A
+OgI]+VD-jhRAXV/?@w\0R";2%c6|]w?w\jI'4qQ]OcS0oI^[ir6zKRi"!b.[crA<3BtNrn
+8VW*rcd!Pkfm2I@6kEFvmA2MfG@IGm5}A<9+S&g?9s[])`ER_n;bW`Z/]<6p%l`n!Xf>i'
+BG0 ^x<y9aSM_!E[C;l_IR3AIG/i?fe4c(h;Fb6B)rh]G"3t:G+~_)N*?\:R-*Oh3R-bP!
+Gk]HR6TTnEE'R6T<sBWb.-dP(5/$m1QvLSPq/MS)Z=?n%4,G]luFGy@6G`a`0R"g7!?N2;
+.1>wZ|md[(8/)cQ^gOg9_YUSI'UO+TS)=0bAFd:.:\r-h^r-h^- Ubk"H{C``2Chf_N4?w
+\jl5IRn(sHp,XMiR["ByHZUO_vUSI'C`9+R7/uhY1Lb+Fd:.:\q|XNQ.e{s&?ke4UPBXIG
+tCCgf_ci?z:)_^*HW`f_B&;gqzN mJT<ZA>w/{iPC_jy\~C?h[g2:a1L_nJ0\~C?h[r-XN
+Shk"CFo.ciiV-dpA9dqr?AOgEY,5mguPnX#RFa7Z#hHqm.@aW?N}mJo7h[a|cib|9WrojH
+DxVX`so[K{RHm$[h)`J7IGWFf_tLm+cPnQ)40+Eb3KqkTAn>043vV*0]W`9RrvW)UBmc[h
+)`q~4hN}F`e9[&U^ov_XT2NLF`e9p[j#h;?kP?fzh2>]VS"ukR kC/o^13( jW.L,p9f?P
+2mQ}^Z%aS fimH\l3A\zRx&Inx_gUShsFo4xTk7}p\Gi2\E.f"7@G0[_\7X}kO7SE|X{Z>
+HA<{Uo]?MId5;]6T6o%]k4N tCrve)h9["MdQ>j!Jb3|[6^z@oSD!CV[ZqT8R3p,D-[!8/
+u/4coEn^90-(<F'CXq-EiPhyOzlbsH0`X~H|4=e2Z6s`c8)w;A_n7~QmoroW7|QTJ8jU^B
+t],NJD-~?k#wQ(fpJ$@7u:@iE0Xp+7/t4H$(rCN;XPA0fuC?r/IcWO9RC_mZDp[3Gn0MI:
+4ql3)\8%/{(oG:4F)B8*hbrxt?F!\jj&+1#=bn-[>fJ6ANWvIGE42LfG@IGm5}d?hg_"SA
+YwDx79?dO@IsW)N+mJ3{IG(7\on `[=|;]nB`P7=o6.-r+si7{ilt#tY,]7;$uDCG1uk&9
+ER:k1_uK@2*`6A&pq.X/Bj5RnS/LS)OR`MS/c@Pb79t{.#>8:y>GN}mJAIZ/]<6p%l`n!X
+f>i'BG0 ^x<y9aSM_!E[-eG +D/iW>d[CDFc*2S &InxN6k!oT3GUWOzow+}H>3tTI2Vn,
+Vj3Whzi6<NEgVt^)<MDfjhRAXV/?@w\0R";2%c6|]wl05(4eForfC40mqz8J*2ER>O1_mv
+Dp[3Gn0M&7_lq4Ox,"S)OR^g[qg&s!^I@.+c!gNO[#cn6\m,Pu4Dk%\~C?m_)1h9G:N FU
+:.RfDgiMlG)\&Sd_2Coq;HOzNDmJ)1h9[bTk7mrfoX7|N))_ER:k\jgPW)7$[&VeTj7mrf
+-Gd"2C_pC?fIIcgRW)A.3B7qrf'emB)12CZ<]t?w\jC4fIoIXk7|N)?u\jNLFU)#pYq>Ox
+NDF`OcsGsi7{b=FdOch\;BOzNDmJ)1pYq>Ox%{+x_|rwW)7$8SET:k\jC4OlsGXn7|N)k!
+I1,)7qrfflU`-EiPI1f_B&o;o*ciiV-dpA9dqr?AOg&:q~JgrGLs^KVwL~_Sqa0@fj,cUW
+NL8uW*PEo7:+_Y&*8*>yRf9|Blan4coEN>C5*':k\j[^)`9f8rm+cPnQ)40+Eb3KqkTAn>
+043vV*[h];uF&8_l\w6C&ZOG;8]Mv(c8)wu;CM72N_+b'*m,3{IKf_M{*@QTqgtp*a6A&p
+q.X/Bj5RHm'em,AI0+BA[zW;fNJkN[h6<;h:A<3B=wo4ZIj<_s!pt&H#sE4!\[m<%Re8 n
+[nG2k87so)Tu2z@ @BIQ'sa4nELwWO-~D:MLT%;k9 ?=$|Gx+D?\8FR}qT_'%a_lOzme+}
+^\N*/iA('v<2/FS*Mm@>E^I0Vt?9BSGWi]26f_q7OxQ'EL:+\jgPW)ly>wQmDg\~C?Hk'e
+m(T<?w\j4EN}FU:./{iPU=CaXk7|b=FdOcnjXk7|c^)\J7IKf_qW7{>yQ]DgUWC?HkrfIr
+g9c]Z=A0)\&Sd_2C8*>yQmDgIKf_qWIQItW)lyc\or[h)`+x7fCA&cm(2&oq[hOxNDFUOc
+IQDOW)A.3B7qrfIrW)A.3B7q_s27f_qW7#>y/{iPU=C4&cm(2&Z<]t-%iP4xf_V\sHh~7{
+723@7qrf-Gd"2C>O\jC4_|27f_qW7#p[;HOzQ'+rICN}FSOcfbV\sHsi7{c^Dg>BJ9ei*2
++xICgD[aOx%{+xICN}FS)#[$iX26f_q7OxQ'k)UW\xflU`NDFSOc(d[$iX4xf_qWWC2iQj
+Dg_cbY39-'d"2C=/bA3:O\g{[bOxNDF`Ocrfsi7{723@7qICItW)ly8QEP>O\j4ECF:ob=
+3:7qCACF/Lcy2CDfZ>bY3:7qOcg{qX7#8SoZqeW#@Yq.s(KCA/NW5~Zg193k;E:E+vFU_s
+:/RfDgIKf_qW7{U`?w>LHkW)ZWl9)\&SmB)11J8*U`NDFU:./{iPU=4EtN:.RfDgIKf_qW
+lxs$2H_p\xqWlxh9q8:C+v\kC?D3sf7{b=FdOcfbW):o/{ZA4EF`_s:/Q]Dg\~C?HkV\:o
+b=39-'S)Dgei\dCaXk7|b=FdOc(ds$2H_p\xqW7#>yb=39-'d"2C8*N)5+&Sm(T<?w\j4E
+7qrfT=-EiPrvW)ly2CoqDqIKC\ly2CoqhErvW)lyc\Dg>BbA39O\dLs$2H:+\joX7|N))_
+J7IKC\7$Oz5+&Sm(T</7iPU=C4_|:/Rfh;U=C4_|:/Q]DgIKf_qW7#[&iXCgf_[a)`+x7f
+rfXRA.)\&Sm,)1W07$p[hE26f_;AOzQ'iP\dtR:.QmDg\~C?HkOco7:ob=39-'S)DgP4%{
+_l>usf7{b=FdOcfbV\h]Dk\~C?h{OzQ'iP\dtR:.RfDgei*2+xICgD[a)`+x7fCAfIIcT?
+-EiP*23@7qrfhF[a)`+x\kC?fIIcT?-%ZAC4fIoI2E:+\jgPW)7$N)?u\{DMW)A.3B7qOc
+o7ZWVc)_&Sd_2CDf>BJ9-'cy2C8*N)%{_lCah{OzQ'iP\dC4roDMg9N(?u\j]4DMW)Vc)_
++xICf_-GdND->B3Bk%-'cy2C8*N)?u\j]4gPW)ly2CZ<)`J7P4)_+xICf_ECA.)\&Sm,)1
+1J?q\{DMW)Vc)_+x7foI2E:k\jgPW)ly8QJ9-'cy2C_pC?HkflU`NDFU:./{iPU=rCECVc
+)_&Sd_2CBt_c]4gPW)lyOxQ'k)-'S)Dg:^\jrCXRA.)\&Sm,)1W0WD]tNDFU)#W0WD]tND
+FS:./{iP*2+xroT=-EiPrvW)ly2C?q\{IrW)lyc\Dg_cCah{OzQ'+r\krChF[a:C+v7qoI
+2E:+\jIrW)7$8SJ9-'cy2C_pC?fIfl>yb=3:-'S)DgiMI1gD[aOxQ'+r7qoI2E_pC?HkV\
+WD]tNDFS)#h98SJ9-'cy2C:k\jC4Olh\DkT6C?Xk7|N)k!I1D3sf7{723@7qrfflU`NDFS
+Oc(dh98SJ9-'dN2CBt>B+zroT=-%iP*2+xICnQ:ob=3:7qCAfI)CpYDqei*2+xICnQjgb<
+397qOco7WD5,:+>LnQ7|>yb=39-'d"2C?q\jNLFU)#/xiPid26f_qWWC)`ER&Sm,)11J?q
+\jQ/3:7qd^h9DkUWC?Xk7|c^Q$k!-'dND-ei>FD3sf7{b=FdOc(dYbiXCgf_[a)`+x7fIC
+T?-EZA4E7qo)2E:k\jgPW)ly2C=/\{IrW)A.3B7qCACFZWVc)_&Sd_2C8*8SJ5-'cy2C:k
+\jC4CF:ob=39-'dN2CDfZ>>usf7{723@7qOcrfD2T6C?h{Oz%{+xr_T=-EiPrvW)7$8SJ5
+-'dN2C_pC?fIflU_NDF`Oc(d2C=/\{oX7|c^%x+xr_T=-EiP*2+x7qo)2E_pC?HkOc)1o8
+DqT6C?fIW)WD]rNDmJ)1RcDgZ>]4DMW)l9)\+xICCF:ob=39-'dN2CZ<Q(tJ:.QmDg\~C?
+fI)Co8Dq\~\xV\2gh:ZUgPW)lyN'k!>FgDq7OxQ'iP\d7uo)2E>O\j4E7qrfflU_NDFSOc
+)1h98SJ5-'dN2CDf>B+z_lOdfbV\7$EPZ>Cah{7{b=3:7q)Co8DqUW\xfl8SEP&Sm(T</7
+iPI1CF:ob=3:-'dN2Cj|>FgDq7OxQ'+rOlg{Dk\~C?Hkfl8Sp[-#d"2C8*8S+zr_T=-%iP
+\drCflU_NDFUOc)1ENZ>]44EfIfl8SJ5UW\xflOy]sNDFU:.RfDgZ>C?&cmB2&=/\j]4Ir
+W)7$8S3>k%-'dN2CDfZ>C?,)F`OcRFOR2sI~]P.M:wT5S"0K>(d,-X"q+NHmRpDL-GQ/7}
+il=*2kBa,UqHGt7pa4l&IT!"NH-rLrPeB[ 7RsG\-/uN_=3G,FkBS"7}SnSL17SYE=%FWE
+a.$uBi6c('?r-p_a,Ze WDTiHG0<stT#1^Y|`#*Df).w0YTYB^_z&d c,f*dal8 3Bsj!g
+($JgM2b6uyu.m67"V:[zO5r@FxEV`jfU=Z8D9bUsJgAHXDr$^K!Xr:Bq6cA\6&rZI,VsW@
+7pa4l&oz Qb?&xaTPI@uW+?>ft`% I7V@7+<0UK$YoJY$P)ln+m1[pJ}r%@@::mrE!`L&:
+NO[#cn6\4#r,tVZ6s`c8)w;An DLW)N+FU[o>7fA(F%Qfr,h&h?pQHM:H&n"`%Z7s`c8)w
+;An DLW)N+FU[o>7fA(F%Q;g_U]0opa2;;t-Gm3=m$u[5[BjM%ee*lVr(#N$@ii?5ZG_kA
+=E*l1B;~$V s;bI-96!w^}\mEWidJb,U*!I&J;h6tzA[${-`G 26f_b03:i#C'/ZBRe(o/
+[+c9G'9;9c9Z_Y]a4Wq@Boan4coEN>4FA()\8%QmORKxmCC%f\[GsaIS5a[bbF`tB&#|Rl
+V!7pa4l&oz Qb?&x sm8=xc >(DCR?B^?v5ZVIX0[&Oj<p);t7MEFhqPRYTYM9T6E-Z><q
+TFIF 5L"e%A1ZmpGflcmiV?B1"&lPu7s>X,Wi@=R@A"g!mStbC?ERA\QsWrljd>F^CMvG@
+:PG'8=n:6IMo`_\m=3E.H,aZBK[clu!ML~_zh~E~M9$p@C\sNj# 7uT.9T6v%D0!]L#Ffp
+E|nE6@OU]Wt3`em60QeX#=ZjN.J+8Bq1<[nGA+[cKtEW$.)yFdEV`jfUfWsrFIH!^seO2W
+7Tsx,]7;$uDCG1uk]P^eB$-Y+U1&RL;3Q]m-'"@CAh+?mKH!5}t=p2?AcL@tDxixSLY8Y8
+t59<NV)khfnBuA$K0!]L#FfpE|nE6@$JivH#,rtYR7`U=3E.D2aZBK[clufljD kt8\+A/
+-9cR#$im7T]Qf#QL?U@+k&1diP3BI~MxHw* ;%`2_/=E0rgT?U0+#j0!]L#FfpE|nE6@P6
+]WsJK6d7A$Tz&[??&'t7Pdl,Y8fXb7A1!Tk0(<3smIk-K?VuVyqPE,p!GQTiE0O)q[9<NV
+)khfnBuADkG6d);37+B,.bVG-%d%.%`fcQQY&[3v6o8Fi)/}7Ys.U+t%tG({5ILb-al&:)
+eVK%A{b?:RPn&)]EO*]ME"AHUGeO,e[zW;fNJkN[h6gF8.Vm$08}<`^d(:DNV(TP!#MY1]
+`$iE-[8`a`Vs#.1j\hER(c5H5J6+A`8AVguX'!Z7XWq2ej6l8y("'u96X Dej%bp4XTi9L
+A_8AVguX'!Z7XWP=7E(AQ{YAG30Uh|5y2k"'$|C<Iq\U;8QAM+7R&=HzC;k&1GJpJtL6cA
+Pb79t{.#>8:yl/U@MZQs0$/kRLdtiL]sOLd-9Wo4ZIQFc^/%A}&l72+ye2,iVV-L-8GmM_
+Pl[{?|*HDyr1WMER[0hUS|orTk>#0WQgls!Qp"D"CnZu/LiroDitQ27}0+9@:Po[%)+DAb
+_zC_isk)QL_u`5* CG\jFed:M$S+ip!bnS^)G2+07jivtOBgq2ej6l8y("'u96mUiZoEdb
+6Od`p#K{rDj/^cPbX)p&u5kMqeSCBk!^=Eb25%,1scYHG30Uh|5y2k"'$|^M2jkPnEnFu$
+(IZu=G^WX4Xo59Lb-al&:)eVK%s-=EOC78W@7a&=NQ&3I}A4oOO?>$0WQgls!Qp"qo0N]W
+p'dpgfgfu5,]7;$uDCG1uk- -8GmM_Pl[{?|*H]Wp'9e<63Lm$RY&v3X[7fOtMiXnLQ{VG
+N6d8=E6X:+Qs<+K7Pm,}-8GmM_Pl[{?|N{]NE"AHXVXVn4.}-nG1@8Vire1p3l[l4GMQPT
+s@>hDxixSLXLFxcq.}-nG1@8Vire\{fc-b6Y&7R;ZkM1T6-QX7 8+F9|:Po[%)+DAb_zC_
+\hER(c5H5J6+A`8AVguX'!Z7XWh1O8m*34KO_+4K\iER(crEFZ/]PI+0NSsa<'\PUs4j'A
+AF;CXzfXb7A1!Tk0(<3sVzq2ej6l8y("'u96X VwIVe`u-u>$M*d6A&pq.X/Bj5RMzHw* 
+;%`2_/=E0rC0k&1GnTm6?;*\6A&pq.X/Bj5RIV.bblVf;_V{N9bC#)`*0YGg7_l/U@MZQs
+0$/kRLdt7Zs.U+t%tG({5ILb-al&:)eVK%%_qp4 V*J.H)ZkAefD_uBofrd7^W59Lb-al&
+:)eVK%s-=EOC78W@7a&=NQ&3I}A4oOO?b(4K% -R@)?W.b(IO<p&4!qtrY1xJr#/;DauT3
+Tvv++?mKH!5}t=p2?AcLV~IVe`WO`L\0hf.H:30+2}$=27j;>FI\K4u}h1O8m*34KO_+cZ
+] JwRpp$rxp%9SW*S0Atb?:RPn&)]EO*<$H#ERiRJ8ihVD3GJd8q:Po[%)+DAb_zI1isk)
+QL?U`8uK+tO|@6Q?&[3v6o8Fi)/}Rd]WriWM2_[1Jw8RW*S0d7,c-8GmM_Pl[{?|P4]#hU
+/Liro\itQv7}0+cjNHU&+G,3DT'~h9i\LBRpp$sMp%(wFouI<.]vscBtVQ,L$!O&,Zg+Dl
+OjmL+7mKH!5}t=p2?AcL;WH#K(>7Iq\U;8QAM+7R&=fX]Qa^Fel.U@MZQs0$/kRL9iCrup
+t(`em60QeX#=ZjN.J+8Bq1<[nGA+[cKtEW$.)yFdEV`jfUfWsrorH!^seO2W7T^Cl}RY&v
+3X[7fOtMiXnLQ{VGN60$.b&0iOlM,W.k8`a`Vs#.0I]Wp'dpgfgfu5,]7;$uDCG1ukGzsk
+8b#bfpE|nE6@\bER(crE7sd>^W59Lb-al&:)eVK%s-=EOC78W@7a&=NQ&3I}A4oOO?>$0W
+Qgls!Qp"+i(7ivH#mSn}Crue&>VhMU213Xv!QZ&[3v6o8Fi)/}M_p&4!QT<ZeSsx,]7;$u
+DCG1uk]P^eB$-Y+U1&RL;3Q]m-'"@CAhcwNHU&+G,3DT'~bsiq][0c<;<;r5RY&v3X[7fO
+tMT#U!i!*36hcEI_C4DxixSLXLFxcq.}-nG1@8Vire\{fc-b6Y&7R;ZkM1T6-QX7 8+F9|
+:Po[%)+DAb_zI1\hER(c5H5J6+A`8AVguX'!Z7XWh1O8m*34KO_+8O\kER(crEFZ/]PI+0
+NSsa<'\PUs4j'AAF;CXzfXb7A1!Tk0(<3sVzh1O8m*34KO_+8OO:p&4!qtrY1xJr#/;Dau
+T3Tvv+cwNHU&+G,3DT'~Nwp&4!QT<ZeSsx,]7;$uDCG1uk]P^eB$-Y+U1&RL;3Q]m-'"@C
+AhcwNHU&+G,3DT'~W0fW_uBouaui"6PM+0NSsa<'\PUs>$0WQgls!Qp"+i1`]Wp'9e<63L
+m$RY&v3X[7fOtMiXnLQ{VGN6d8=E6X:+Qs<+K7Pm,}-8GmM_Pl[{?|>BO>p&4!qtrY1xJr
+#/;DauT3Tvv+cwNHU&+G,3DT'~h9Dgj%bp4XTi9LA_8AVguX'!Z7XWP=7E(AQ{YAG30Uh|
+5y2k"'$|C<Iq\U;8QAM+7R&=CUC;k&1GJpJtL6cAPb79t{.#>8:yl/U@MZQs0$/kRL9iiL
+]sOLI23=Ryc?Pb79t{.#>8:y*ENk0b-a<MnGA+[cKtEW$.)yfXscBtVQ,L$!O&,ZqufV_u
+Bouaui"6PM+0NSsa<'\PUsb(4K% -R@)?W.bST\cER(crEFZ/]PI+0NSsa<'\PUs4j'AAF
+;CXzfXb7A1!Tk0(<3sVzq2ej6l8y("'u967_VyIVe`u-u>$M*d6A&pq.X/Bj5RMzHw* ;%
+`2_/=E0rC=k&1GnTm6?;*\6A&pq.X/Bj5RIV.bblVf;_V{N9bC#)`*0YGg7_l/U@MZQs0$
+/kRL9iO>p&4!qtrY1xJr#/;DauT3Tvv++?mKH!5}t=p2?AcL8,s.U+8iJcB+[8<qTFIF 5
+L"<|V&;4g3=R3lKv?NjYWDQFsn!g9MU&n.PZ&2c?9dbFPvM2WL9E#-8Q+zZGujm)iB1QX[
+(HK=$FPN;F"(a5:8n/A3 G'A@d[8<q$45^"3cB-b!$@ZX7G'[d 3#`f8B^_z4\\A?vljcR
+5JmJu\/GgFJU%Au./xqPiPU(uTmH_7WSO#<+JJ$u^~e/]JO*<6dJ@:!lPi&fp}?.1"U{rs
+#PRz3uf'+ u65FRv?Y\*jiFb_kFFu2'|DNsu$-n/n@u$^?o[pl/njq-2?DTPprG2hhCxp=
+ Eu7.eJlqHd1K%5J?Uci.xU&XWunFt*f0+7V$45^"3K6!oiR'J(e6bHgN?h|*^QLIk\/X}
+Ae5QTA[]f*Jv3Jpn*WO>2si~ixkb8FcB_N/"A}&l,GD3*R0_!~gcOyHg$Nli-&#Oi=EDW)
+spRYh?>]\UQa;4Q]ZVJ+b^S'N8dc7(JM8te*b3:o>y2PGkui#}27*c)zWCqPlsu3_l `m)
+.|6ULM8ir!Jm/W4)unQ_K"a:_No2%Jukd>HmECtWrW3BC5PH-t$?,%IfhZ2H@6v +}M>Hg
+\.C?+>,;SzL 8DNN=cG'8=*DnD@YA"-c^^,.>2c{-Y8nhF5%A?oIplP/Qh 2^tm>kFN#ji
+2jo4.mJu'46Z:|a5FEd)KChn.%??oY5YL#r6u\/GH28q/^>%dVr{TK:E`V?>Z(5lU#rqNP
++XNM A&CPMFEO:u2kHc(mHW[It sO- .<we2,iVVHG+PEVh2Yx[z1.=&N:u2e,)[cBdb%t
+6Z:|a5Uw6!s%7G"1fA?f+W27c@WMk+DX.7(I:yX3.v1RFQkG50(FY4>z+bHFk.Z.=\A`B=
+Z,&>t/T#pmc)[zqp!LPi&f[Hn.PZ4hfRa4r8'x8K:+[z-r2j>c9+bjgF.$9;e%HFl_k*qO
+i!m6^yq3*aX7uAtKilQVbNhzK$oi5Du\uF@2cG!QC7!q=EWG@}UF23PDSJNVtA/@a*.%QL
+6@u[]P%n ks Uluxs1c4KC^q]z$!M[J~c?c~:<6\:+]or8'x?r::m:PHrYlcr96eHg#9 s
+R_soGnn:eh@fV unQ_or5MAW*R2A;|e%sQ)\c00o.nZI]<qgkw15h|Hl6aHgn_<auw+}M>
+Hg9++~o@s&_UMzXurqNPq^A((/JsPL3n>}KZ2r*#`+ pABj|c?^=nsftQdch`[8Tl U<-A
+kFq^0.sZH9uG-Jv%L>Hgh/*uuARGq\jfrxnyFefJ*Z;j(^8*sMZ~Dq`Lui7|$FqPB&f_6\
+8V1_!jPi&f[Hn.PZ4hfRa4b$;GG'8=\DQa;4Q]ZVJ+b^h\kD*)-< EGSdG`W%pIr\/kIgf
+\{%p_>EVh2tstGGzl15D:8tMdC@:!lPi&fp}?.1"U{rs#PRz3uf'+ u65FVzS!rEFb\n:E
+k!dW]F?L\*\z:E`V?:\*uTFbuGo|AS!~oA[7;2&R:s"nRzJr%A(At/`[Ozd[9"sj!g($ =
+YoT.9T6vpo7!P?<+uku@p!8jA7oX5Qh5G"*f0+7V$45^"3K6!oiR'J(e6bHgN?h|*^QLIk
+\/X}Ae5QTA[]f*_kc*_~li[ld7G^A&qld1K%5J?Uci.xU&XW]Vlai(t#Kp8DNN=cG'8=*D
+nD@Yt7O'W@X0i(&xTP/A,UlPCb'",]BRhCJ{tcAYXDEWNk:bEXh2Yx[z1.=&N:u2e,gAu#
+tW`EPX#$fN#cZj8Xa|4VDG*R0_&wrM>aK}<+,bLau!Dk+^!WZ4ov`XJA0l<2]v7Epl`&>'
+[:cAdZ>",]r(1pkFO|A`mL"y+=-N@Zf'+ IRVnL3n;/rPvT6A_;fEU]GR6O?XW<)RVSspm
+c)_~li[ld7G^l15D:8tMra]D,wNg[`v)i=Jiu#tW`EPX#$fN#cZj8Xa|4VDG*R0_&wrM>a
+K}<+,bLau!Dk+^!Woi5Du\p-P3U&`*.cJlq|d1K%5J?Uci.xU&XWunG}*f0+7V$45^"3K6
+!oiR'J(e6bHgN?h|*^QLIk\/X}Ae5QTA[]f*Jv3~pn*WO>2si~ixkb8FcB_N/"A}&l,GD3
+*R0_!~gcd>*[n}c2n=MLqO&R!gZ4n%5MAW*R2A;|e%ZPuxP(J+iE9]1R:eqLo^f>U<aN5i
+uH-*iPJ{c/5%DbWySspm3:P*A`M4qO&R!goiD3f_u#!$qitN.Y'V0~NQQ>2)PDSJ;yq63B
+C5PHY 3G^0CadSMHP(@:VE-%,+LBrCu\o_Ea!~kMH,t #EO3I2*]6untftQdU)_kHoS2N1
+tzQiB =8us7|$FqP4XIBqk0.&-s`->d!HF_RdcJKU1Jvd#`[kgjqr{]4uQ$olj=zKZrb=4
+cqH;i$Y(dc7(JM8tB[*2k4_R]3uFtF)`1Zc?R%7|$?,%f_'+6Z:|a5Uw6!s%7G"1%P7Jf'
++ e&:<6\:+]or8'x?rJqHGU1!Ugw.{ut7E>j:8tMJyJtZtr:sqB(`]Y8Cb+bgATPrdutui
+?SsdOj<+ukUpUo.dJlqPd1K%<;gF7EEa`->'@?tMYd(HK=$FPN;F"(a5:8n/A3 G'AV:qP
+iP^q:EG!8q/iY d[R[^ZA}\e:EWMd[R[G[c|4F/i>%Z<d[r{TK:E`V?>\*ZYFcuGk(c(#}
+hL@9VE-%Ug%]/_uf*bere]utFc?[;ib\.%`@"J?Oh=?{*lK%+b4F:8tMra]D,wNg[`v)>2
+n 5M@6O-(HK=$F 6#`\n.u1KMEqO&H[d5>,bsXB(;fcLK#2LA&U~QJc*_~li[ld7G^+Pm^
+R-v+Jt_+Q==r3u:y,_P*A`mL"y+=-N@Zf'+ IRVnL3n;/rPvT6A_;fEU]GR6O?XW<)RVSs
+fKu#j%*13vI~=HQ5J(\/@>PMS \%9;myCbWMlci(t#Kp8DNN=cG'8=*DnD@Yt7O'W@X0i(
+&xTP/A,UlPCb'",]BRI2u\p-P3U&`*.c8Z`+>'[:cAdZ>",]r(1pfqqKo^u,5w,277.q^^
+,.%2r=[GJ+b^;_g3DS#L:8Rk&:qC\{N[&>\DZ>uxs1c4:Rk0'Al}m^R-v+Jt_+Q==r3u:y
+,_\kuxJb0)Ac h1[ x.bfn[Yem))c=9dbFu;Rjk_R-8e+0uxirN"KP9?CAu\p-P3U&`*.c
+N0UK<+uku@p!8jA7oX5QR_o7spryJU*{&)Vf'H??Q2McI.hn5%A?-ond]D!eX79E#-sliX
+7=#/>2Z<lck*qOi!m6^yq3)@X7uAtKilQVbNhzK$oi2au\uF@2cG!QC7!q=EWG@}UF23PD
+SJNVtA/@a*.%QL6@u[]P%n ks TKuxs1c4:Rk0'A`QsrB(`]*d/jAtRWe]gFJv3RPNS0+j
+M5UyL45ZL#osNo$BVL_N7/DNPJ8e`!i2<N0rUs:0=nC%`V)hsRPFbi.<hGN#ZY2ko4h'i(
+Sa.Rb8ucBU>}qLo^u,5w,277.q^^,.%2r=[GJ+b^;_g3DS#L:8Rk&:qC\{N[&>\DZYsp]t
+4CGms}Zpt|UR<+uku@p!8jA7oX5Qs I`u\uF@2cG!QC7!q=EWG@}UF23PDSJNVtA/@a*.%
+QL6@u[]P%n ks I`u\p-P3 QGNE`(#%!u~PHQhTYM9T6EIn;/r_eTTd>*[n}c2n=MLqO&R
+!g/)G *f0kPDT;-}BR\euxP(J+iE9]1RfqqLo^f>U<aN5i,_)vcB$2li-&#O>28*qLo^f>
+U<aN5i,_ICu\)zt7\TS<C%`Vm(3{PN(Ec=:-&~\DuT7{qLo^f>U<aN5iuH/<iPJ{c/5%Db
+WySspmFd)}cB[;]9hfd>M dwA1m $QliW|<St}Oz(llj.7O|Z^iXql+AW-hf-XcyN-@]u9
+5FuoEa!~kMH,t #EO3I2*]W6Y68s:IGyI;>%-?v%+}M>HgUGN:_Udc7(JM8t\+_cuQOz(l
+ljI2,^m:@=,:q+:]QkHmmA@=,:q+:]QkfKd^`[8Tl U<-AkFq^0.sZH9uG-Jv%L>Hgi0hG
+sE3BPHQhpmqo0.sZH9_kaA@:^IeiE `Lui7|$FqPB&+>WF:iigb|9W@=,:q+:]R\Dglrl}
+QYPZ#$fN#cZj8Xa|4V.qdl!c=EL\#iSZbCci)$c=9dU$uTqL;i`b2\J _>PrqMd1K%<;gF
+7EfJTPrdutui?S8Ir,d1K%<;gF7ECG2ko4uTu>_(PrfbTPrdutui?S8IrfTPrdutui?Ssd
+Oj<+ukUpUo.dJlqPd1K%<;gF7EEa`->'pon}iXN#jiEXh2=\uk.HOhBB'sRoTYM9T6E-Z>
+Ac h1[5M7E(A"22mUzNY!^=EL\@JGm:KMCo5^[A}hC-2:emHtXe@-2kF/^i0hG@nJqHGqJ
+3AnWk-K?Vu`c<jFq#2n>?^n?qNd1K%5J?Uci.xU&XWIBO~A`mL"y+=-N@Zf'+ IRVnL3n;
+/rPvT6A_;fEU]GR6O?XW<)RVSssHso]t4CGms}ZpDL`+>'[:cAdZ>",]r(1p]Xu#tW`EPX
+#$fN#cZj8Xa|4VDG*R0_&wrM>aK}<+,bLau!Dk+^!WD^3npn*WO><YZX%pC`:8tMra]D,w
+Ng[`v)>2iXJ{`L($0q D(m L'ACG=lBv$Tli,qA3J]9Epzd1WMPbv'Dxb,5gre)}sRPFbi
+.<hGN#ji2jo4h'i(Sa.Rb8ucBU_>qJo^u,5w,277.q^^,.%2r=[GJ+b^;_g3DS#L:8Rk&:
+qC\{N[&>\Djiso]t4CGms}Zpt|c@.%v!ujH ,E[fGkUstZf!J{`L($0q D(m L'ACG=lBv
+$Tli,qA3J]9Epzd1WMPbv'Dxb,5guHn+`XJA0l<2]v7EEa`->'[:cAdZ>",]r(1pkFP*A`
+mL"y+=-N@Zf'+ IRVnL3n;/rPvT6A_;fEU]GR6O?XW<)RVSsEbc0_~li0aX8tbtaj,nOsr
+H9L~dwA1m $QliW|KB>Q3>lju>spu6fAU<aN5ire)gcB$2li-&#Oi=G]*f0kPDT;-}BRC`
+u\)zt7\TS<C%`Vm(3{PN(Ec=:-&~\DuT7{qLo^f>U<aN5iuH/<iPJ{ ,?jJum:aZBK[cqZ
+MCqOg)YDuY7|$FqPR67}sEnQJW%AC<g:1m>%:ius7|$FqP4X]V_Tdc7(JM8t\+\zuQOz(l
+ljI2uG-*v%L>Hgi0JisE3BPHQhEbHuS2twAY[8?4$45^"3K6!oiR'J(e6"'S5ZL#1U2}$=
+27jsf@?fI5u2kHH9&8<|[rtp'BDu2ko4uTu>_(fHlgR-v+XVXVNk:bEXh2tstGGzl12a:8
+tMJyJtZtt|c@.%v!:w:w'B`Qt)B(K(o4ZIAc h1[5M7E(A"22mUzNY!^=EL\@JGmZk)F/)
+G c|C5Tk8dS"/"o8QcHm?S\*>BS"ob2aTkJv^]A}>}mHtX_zhskD?^_M:E^h2jkPnE[;gr
+jD kt8=LQ5`'>'[:cAdZ>",]r(1pq\soryJU*{&)Vf'H??Q2McI.hn5%A?-ond]D!eX79E
+#-sliX7=#/>2n `XJA0l<2]v7EfJTPrdo.DS9p'9A,u|\EiMJ{`L($0q D(m L'ACG=lBv
+$Tli,qA3J]9Epzd1WMPbv'Dxb,5g,_P*Ihc>ADR9o>7!UG<+uku@p!8jA7oX5QR_H<*f0+
+7V$45^"3K6!oiR'J(e6bHgN?h|*^QLIk\/X}Ae5QTA[]f*8dc2_~li[ld7G^+PdM.%v!uj
+H ,E[fGkUs9?3mPNS0+jM5UyL45ZL#osNo$BVL_N7/DNPJ8e`!i2<N0rUs:0=nC%WMlak*
+qOi!m6^yPrfbTPrdo.DS9p'9A,u|\EP4lbi(t#Kp8DNN=cG'8=*DnD@Yt7O'W@X0i(&xTP
+/A,UlPCb'",]BR*3c0_~li[ld7G^+Ph9EXh2Yx[z1.=&N:u2e,C5*'cBdb%t6Z:|a5Uw6!
+s%7G"1fA?f+W27c@WMk+DX.7(I:yX3.v1RVaH=kG50(FY4>z+bHFk.Z.=\A`B=Z,&>t/T#
+pmc)[zqp!LPi&f[Hn.PZ4hfRa4r8'x8K:+[z-r2j>c9+bjgF.$9;e%HFl_k*qOi!m6^yq3
+*aX7uAtKilQVbNhzK$oi5Du\uF@2cG!QC7!q=EWG@}UF23PDSJNVtA/@a*.%QL6@u[]P%n
+ ks Uluxs1c4:Rk0'A`Qt)B(`]*d/jAtRWe]gFJv3~PNS0+jM5UyL45ZL#osNo$BVL_N7/
+DNPJ8e`!i2<N0rUs:0=nC%`V)~sRPFbi.<hGN#jiEXh2Yx[z1.=&N:u2e,HFc2[zqp!LPi
+&f[Hn.PZ4hfRa4r8'x8K:+[z-r2j>c9+bjgF.$9;e%HFc2_~li0aX8tbtaj,nOsrH9L~dw
+A1m $QliW|KB>QqJ:]pm%=kH5%DbWySsHmu#3vr8Bs0Cf+N:lbi(VG4CLgKT9?4.PN(Ec=
+:-&~\DZ>ux:Rmr1MPDT;-}BR*3c0[z6YHg#9 sR_o7spGn3=U\J+iE9]1RkFFS)}cB$2li
+-&#Oi=JiW)spGnn:eh@fV unRhor5MAW*R2A;|e%HF3BP*A`=]>\DCej:<6\:+]or8'x?r
+,V0.&-s`->1fQ82)ENlj\kDkT"m`3GQJHoS2N1tzQiB \euQOz(lljI2,^mJ@=,:q+:]Qk
+CHpUFefJ*Zfu/"W0pUFefJ*Zfu/"h9jumLV^56WUi0EDsE3BPHQhpmHoS2tw4,unRhK"a:
+_NobsBsE3BPHh/>]!zPi&f[Hn.PZ4hfRa4b$;GG'8=\DQa;4Q]ZVJ+b^h\kD*)-< EGSdG
+`W%p*3X7uA5L5J=J&*`->'pon}iXN#4XX7uA5L5J=JQ5J \/kIgf\{%p*3`->'pon}iXN#
+>B`/>'pon}iXN#ji2jo4uTu>_(q3*aX7uA5L5J=JuYmcR-v+XVXVNkkCt1B(K(o4ZIQFu0
+VNSE7YZjcc*Z0_&w72T:N+1XA,B9-.VI-%7I#j_f 6No8S(!'umjRk5i+y'46Z:|a5FEd)
+KChn.%??oY5YL#<@11O%\*1Wp[mFim/e>%iX-2kF/\i0Ji3AunG}3ttsd[H98q'pX7tt)k
+]=tpN5os!-j?'{ivH#rxWB-K-KM_/+0,.2,=BF>8 G'A0T:n#$uY]PE"V}qPAh`Lnvl;l;
+:Ia&5ta4;U:Je`9WusQ5o+6X,l*d;fNPVcC"4qi0G]rdU)Jv3JunG%uG$Q^V=Y0TFn+DK%
+]WsrryWB%,QTnxl;+ZT=[]f*\[USDW3nIB:T`VToJv3Run"8so]t4C-sG:YP`so[Tv$Ph5
+G"Dv-8:ec~HFQdpm-4kF=wYx(HK=$FPN;F"(a5:8n/A3 G'AV:S5?PD8ML9??=\*iM-2fq
+mH9=^xA}*3S /"h9mHtXe@-2kF/^i0hG3Aunp^GisQS"pSQc/a:8sT3XDDsL&5iR";^H/x
+]Wp'o[8O:w:v%)>7@8<D8Zdl\P n.bA)U]&(t|Dkj%7elk\kt[;`&e&eG&#-"`$>P&CaiW
+s!q\-Kl~'q cfL=|&8DNu79@TrN:QgnSA~>G>%8*c~C5U2Jv3JunG%uGo|tX4omm@2b3e%
+MRu}irlji(Q 4R9eY#NMNMDhb,5gf%4F>%oq9=4.QJ:Pm#Gx,^ICi0ED\*uTA}>}c~HF`o
+J{tcAY1#H13hde/g]76e,_:I7-c~rD\*Z>/"W0A~\e:X`VToJv3RunG}uG*GJuR?7stZ/Q
+bH(V6HT:A~nd&;DN@ZIk;HYZrvEtCUNS&~Z0TI(*f(d11SQM_}\m9/<*hMh[6[2]E.#w,|
+UL/f]0$WFZ?r#o1GV7j#cnq_Sdh6!N#`oaNsnR7nq)6Ip2Q(E;BoX[X4C:k&1G@6n|HneM
+uWVXoAoHVHI~m Z@n.FRI&1.,?it\QO5:)du%)>7@8fnhm.GA#YBu1%dnaU!n.PZf>Ls%I
+:yTsX>C\T"M@uf*b0bZ4n%im:PUKQgh}A}4y>%(y>9dl\P n.bA)U]&(t|J1T"m`3G:G7Z
+lkcRXpn%ZN:]&!)devXifW_k-4]X\*\zZ-me.R3QNg(Bd4'@aq^*5Yh3G"uTZ8Dl@q%F?M
+=nmOJig\EtAhpN$?SxM=;8W{(Xn\$^ODkhKC[FT_h*awG?OnRFtcnK9*W%_ds!fa6QX$3V
+f'+ VG#R*sK)X),_#gEu#`S<GtpA=hW{Q!EW$.)y/!o:RVpdsCp_Tipc%dnaU!n.PZf>Ls
+%I:yTsX>C\T"M@uf*b[mM 9qo65YL#M1.,KOK#mg3G:Ig:1mr>u\O?]~\mFx6?X$GZUw6!
+6X'&5g5Qivs.O6cAPouFXzNMNM3R!V!@"/8#3Ttaru:Emr,GI aI`9Ld0^'gZqL\B[nEM+
+A&(2s|bHhhcd]/1?XdLdnDM+A&hrn9g(AlCYPHSJNVT!>eaSq*pnROr%v5:Ig:1me,!*u1
+TomsC\T""5EeCFmrFaO$ AnA.}#,27]N+41Rp[c|ZPZ-ovtXe@r{UlobD3my@2b3e%MRu}
+irlji(Q 4RZ&EWXD9Kg5I\e"%o9;Vp(#N$KT0\ L$fqP&H[dqz9E^(\m]o%n kTA&(\DUS
+DW3nIB:T`VToJv3Runbxu#H(nvP/bi(@_j\mh>32KF!'+ &)VfuV._bl1Q`8 I;x-9^^,.
+uA]2FP?R'6<|`p%O(\DNrl>(9@[+[&Oj<p);qB;QG'Q(h>0Z2PK5&tqP/k\CL*X4/g;.?k
+7e:JjXm$dVDi8B^~ZDE`(#%!u~PHJq^bk~jqDS#L::mj'"/_Glhn#:^`K=jYBljwu;4k'A
+AF;CegljcRiFu$>ot[5F3wPKfe`~m6j<)}@"[FVi2%IXqPlsJhuTu\t\R#&Jt{PdSCl8\H
+K6bRo|Zk(PNQ8JnD<,99HB-[79f+@!k~ 2aZ\=%O<0WMm|_nA1N!&%a<.6.%dZ&jobdBcz
+'t/_M2,NdZe!M!_zS9mms"Nl89lkcRo45LId"'u95FN|k@on'DPScAPorcUp_|!#ug*ber
+K%CFm:j<4h'AAF;Cce\H:u+/,Z`9%B'sbfcw\9Qa;4&ROhRF4k'AAF;CCEQdt"u*QI;-b6
+JmM*T63ud^aju#'|DNoY/w$KVyqPls;Md[hyFb_kFFu2'|DNsu$-n/n@u$^?.zJi/zE-oY
+#5W|Y8Cbdl\P n.bA)U]&(t|J1nFu$^?<Ham<j27CZG6d);37+mg_c0O*d6u(VI^3RT6o2
+%J5+BaQZ<K8%rD,*IV.bblVffj-3ZWfWsrFIXqto%~)d/z[KM@`UF\E.*DNk0b-aAri?-J
+%WQHk7"`#yACE?>+c{-YND7sd>*ENk0b-a\mC\&4mFqh9<6@&7Q@meQc4x)`oN&k'"fa:E
+Gj[7;2<(8$3B(5u85FN|^o:EG!+D)`e67|G#Sl'|Zb`S6T:+59+<??u75FN|m>E`!~:3?P
+V<rJrY$KSdh6K4!o$-<9 hv'eyFo0J*dlk(>38T6q4_ J4hZs)=EOC78W@:GQdjr:Ihz,H
+%6u85FN|^oUlrE:n+FA(+~3Q?u@`IfhZs)=EOC78W@:GQdjr:Ihz,H%6u85FN|^oUlrEpd
++DA(+~3Q?u@`[8p,Zk(PNQ8JTo-3?0Q?me@2PI-r784=l5dW`Q6T:+)zmJ@tu\#}27GlS'
+M@fWsr]`XpmH4X)`dVhyFb4xTkIBlmt./zh|qU(;f(fKsr]`=uuS?uj:h|&K9c<;gFSCBk
+!^=Eb25%,1sciX4P$Ku85FN|QB[^%~[Z<ge6iV?B1"&lPu3I:GQd265D$Ku85FN|^oUlrE
+pd+DA(+~3Q?u@`r/R_N4IvCwQ8[_tm\mfc-b6Y&7T=m`3GA*]pg=fVsr]`Xpto8qtC)g+}
+3IUWo2%Jg=rbDMg5nLQ{VGN6e9FoTn[_tmC\nFu$>ogSuRWSMTN*O|n&IALMez>5,FqGYJ
+8Ub4pVfm8.Vm$08}DhT"m`N2jw:T7Zlkj9Vxp^-43P7{Fr4xh/*uXDo0m<P=7E(AQ{iQ1m
+N5Fbb4Rx,?^\=YA_9";CP2rqNPN[nKX=3thf-X.$W-TkO5uf*bbYjR-2^[PlOzme+}^\e!
+#}hL@9VE-%Ug%]/_uf*bbYqi]zL*X4/g;.t@tGM@9qo65YL#M1.,KOK#mg3G(7PMFEO:)[
+e6sd?O`54yCZG6d);37+mg3G:Ghz,Hev%@u85FN|^oUlrEpd+DA(+~3Q?u@`tc9?b54{]'
+8[seuQiQnLQ{VGN6e9FoTn[_8qUW2)t:Jm'cGJ5DnUk46ib07}G#_kaA(vuk>X,eCZG6d)
+;37+i;s?8K?'\%tchkMrCT/A2}$=27j;>Fj#?B1"&lPu3I:GQd4pu,JT8d-Vl6ClR}m _(
+,He6-2Ir3AV_dZ`Q6T:+)zmJ@tu\#}27GlS'M@fWsr0snt3Aen-2_(Hd/^DkFcC_)`e67|
+G#%~?TZ(5lU#rqNP+XNM A&CPM+JADsLIDFGA49p0X:w:wA$Tz&[??&'t7Pdl,nmg:1me,
+Fo0J*d6u7]4qDkHeP*meIq7%o\r\?hid?B1"&lPu3I:GQd4p5DY U":^8sT6,?3QV_7]lk
+cRXpto8qtCU)osIaiWqK)}e6sdN*P*'|=eUT]94i'AAF;CCEg:1mcjr-G%i[8r\z,?3Il5
+QdCgr>u\O?^oUlrEpd8qtN)get>gU<,"3IUW;>[v ~o0Ql]T8.Vm$08}DhT"m`Hljy:I>h
+cjGzb4-3IrQ?OWuf*b0bs=G%UG4r8_qLTrG]C_A(+~3Q\~o2%JukjtnLQ{VGN6e9FoTnpT
+mF]!dYm<RYL`,N,JiX-2DM3Al5dW&/?Tu#'|DNoY/w$KqL?v[c[d_b1mO;cAPo;Ld[I23A
+iRc(G"C\R}:]mHDL3AUWOzowAS!~oA[7;2&R:s"nRzJr%A(A`+hGP['"B=NPJsJt%_naU!
+n.PZf>Ls%I:yToX?C\T"M@uf*b0bpZC\c.Gz26l3+~AKYP9Hm+8m*ENk0b-a\mC\T"m 3P
+DmuR,HiX&/Toq58q1st:JmbjjRf!I2sM,HJ7O~n%ZN:]&!)devXi=zKZrbqh8.Vm$08}Dh
+T"m`Hl/^Y ?LQ?ov@2PI-r784=A*dW&/?>Q?owl^_nA1A4I0C\P(rqNPN[nKX=AB5IMkO;
+?YftdWfo3AUS:E^yHd/iA(dWsdFbCg)`/z?/JqM*T6JR6X^^t8Jmbjqi]zL*X4/g;.t@tG
+M@9qo65YL#M1.,KOK#mg3G:Ig:1mr>u\O?I::I3n\z[^%~)h(y<wQn]T8.Vm$08}DhT"m`
+Hl:I>hcjs&G%b4-3IrQ?OWuf*b0bs=G%UGWJ:oqLTrG]C_A(+~3Q\~o2%J`6HoD1G6d);3
+7+mg3G:GsEWSG]4Fp]-4DMQ?n&N2(BPM+JVyp^-4nkG"\n4rjqg:P&ovDLb07~G{_kaAsM
+Z~o|Zk(PNQ8JToX>8qUSgZ:PXJuR,He6&/Ts;?VyqPAhgSuRWS-4o8G"4pDkHeP*meIq7%
+c0#}Y}RQ4k'AAF;CCEg:1mcjG"8qo<QcC_Tk[_mFqh9<6@&7Q@n&QcCg)`oN&k'"fa:EGj
+[7;2<(8$3B(5u85FAEpDQc?=Q?dZsDFbhBc(Gz%~?:b0Ry;>mHIAlmt./zh|qU(;f(fKsr
+0sRX`O'|2VGlLeg)gf1pBF>8 G'A0T:n#$uY2Ee,FoTrX>VwqPAhgSG"hBXIN+O|n&gOZr
+bL2X\n^eB$-Y+UFsTn-3Ib;i3nU>Qg265D8_G#7)O<cAPo;LsJQdrP3PiRsD\xla3|T6q4
+%~)~/z[K];^eB$-Y+UFsTn-3Ib;i3nU>Qg265D8_G#7)O<cAPo;LsJQdTrZ>etsD\xla3|
+T6q4%~)~/z[K];^eB$-Y+UFsTn-3Ib;i3nU>Qg265D8_G#7)O<cAPo;LsJQdTrosIaiWqK
+)}e6sdN*P*'|S;J>,>e6PK2feC,~O`<KXEfc-b6Y&7T=m`3GjsQdhBqZU)[_>w8sUW,?AK
+5IMkO;_yTsXLetfo_MX?)viXhyN*O~owIALM[0fc-b6Y&7T=m`3GjsQdhBqZU)[_>w8sUW
+,?AK5IMkO;_yTsn"CGIf_MX?)viXhyN*O~owIALM[0fc-b6Y&7T=m`3GjsQdhBqZU)[_>w
+8sUW,?AK5IMkO;_yTsn"CGjqg:P&ovDLb07~G{_kaA(vukjtnLQ{VGN6e9FoTnpTmF]!dY
+qZ?SQ?meQc4xu,JT8d-Vl6&/?Tu#'|DNoY/w$KqL?v[c[d_b1mO;cAPo;Ld[I23AiRc(G"
+C\R}:]mHDL3AUWOzowAS!~oA[7;2&R:s"nRzJr%A(A`+hGP['"B=NPJsJt%_naU!n.PZf>
+Ls%I:yToX>C\UCM@uf*b0bpZC\c.Gz26l3+~AKYPN}h7nLQ{VGN6e9FoTnpT8qo<Hl:Thz
+,Hevf!&/0e*d6u7]k(:IgAn%CGjqg:P&ovDLb07~G{_kaAs1R_N4IxCwQ8q5tm\mfc-b6Y
+&7T=m`3GjsQdhBqZU)[_8qUW]4,?AK5IMkO;_yTsXLetfo_MX?)viXhyN*O~owIALM1nuA
+_Tfc-b6Y&7T=m`3GjsdWClR}m _(,He6-2Ir3AV_dZm<RYL`,Nsq/zh|h|?p(vlb_nA1A4
+I0C\(@PM+JVyS!rEFb\nOzn%g9/eU<dZhyFb4x)`iZc(#}hL@9VE-%Ug%]/_uf*b0bJ ZY
++".%dZ&juhui+?g-3lf'+ VG#R*sUs3I:Gg:1m%,u85FAEj~g:P&ovDLb07~bv<j'fZOfc
+-b6Y&7T=m`3GjsQdhBqZU)[_8qUW,?ISA 5IMkO;_yTsn"CGIf_MX?)viXhyN*O~owIALM
+p-/*&3t)go,:V_sICFW2;FM3,N2De,Fo_Q-4ZOm 3|A*Qd4x8_s'bxJr%A(AI^3RenfosM
+Hd:I3n\z[^%~)hiZrc"dC^tL.Ym$ouZk(PNQ8JT:Jg#%._r{Jw^~0PZ@S0TYM9T6E-Z>QM
+m(&De%N/1X'J8$jH>Fj#?B1"&lPu3I:Gg:,Hn @2PI-r784=7 mHPt/mN5G[8qP4dZ+TIC
+Tk[_mFN2/^8_G{8qIK)`oN&k'"fa:EGj[7;2<(8$3B(5u85FUO^o:EG!8q/iY d[Hi3AiM
+MRH<+D?LcQor6hrf3AT6Ozn&+}_)N*?\Z(5lU#rqNP+XNM A&CPMfeOMk0o>cHN[1.bC5I
+5JMzG@:PG'8=n:6IMoXW:Ig:1me,FoTnX>C\nFu$s$Q}3OiMnOPm$zW0%b_l[^%~)hiZhy
+_"ZDj&_R]3^eB$-Y+UFsTnX>8qeif!+T:TnP,Ih:+T\k7*rfQ?meN2:IXj,I4et:Jm4hGJ
+5DnUU^QgU)j~HiM{6l4.Z>qT3{>B8'Fr4xV],"H>_kaA=W]vHoD1G6d);37+mg3G:GQdU=
+Ul7*U)fj8sZ>7*CAN5o7,Ie6&/Ts;?8sIKr>u\IQntJhft`3-4o8G"I;ls+D$~pY\lcQor
+C3*'e6sdN*P*k#rc"d@+k0m+ZOfc-b6Y&7T=m`3G:GHjJh&4Gx8J-<\m&4W0,IZ<Qh268_
+G#7)-:oXfWsrorXqto8qtCTrosrVsMPlMT3{_cfi+E\kVYH=26l3+~3}IKh/*uJ6I~Ql]T
+8.Vm$08}DhT"m`3Glutm8qiM+TU2fj8rP4Qg\d:Xhz,Hev&/U*[_7^lk\kV}p^-4nkG"\n
+gZ+F$sGxI1W>6kCA6}p[DLb07~G{rvZ(5ltL^I2V_x5Y6i%'M:hmC4Q(qg8.Vm$08}DhT"
+m`3GlumF%iS dC.}#,8}8t_c:ECEFccUorQc\d/m8_Fr8qUW:EXjFcb4/mu\#}27GlS'M@
+sp/zh|h|?p(v7]lk\kV}S!rEFb\n:EpZ6h?=M{dZnOFc>F)`8*mHC3?\b0Rxq4mFgO3AIK
+)`/z?/JqM*T6JR6X^^t8Jm4hdGkB#}TF_!6Bn_n}(w13Z7 3#`(:XR!QuwT=n!3G:Gg:1m
+e,Fo0J*dW6(eHmM{6l4.Z>qT3{>B8'Fr4xV],"c9<js~]s:^T2p$Zk(PNQ8JToX>C\&4G 
+N sIQdI1N5G[cUor%i_l,?3Il5QdCg8_P<uf*berjRf!I2sM,HJ7:IpZ4D6}+F*'h:Hi)}
+Z<,#3IUW;>&!4/?u@`[8QMm(&De%N/1X'J8$_9\m]o^eB$-Y+UFsTnX>8qei-2C4TkfjmH
+qh9<6@&7&5o8Qc*2S 7*rf3AA*dW&/?>Q?owQcrv3Ahf-X.$W-TkoU@8VEX0P(Fd0Jt:Jm
+4hGJTkn"Qc?S;iS"qTFb\d$opY6h^xPliPMRo7Fc26)`ev7|G{%~_:=yKZ3ooN&k72&d c
+,f*dW6(e`+hGP['"B=NPJsJt%_naU!n.PZf>Ls%I:yTomsC\T"m`3G:Gg:fVsror-fG \d
+fi+F)v8*+FICA(+~3Q\~[^Gn>S]v,cq`WQP=7E(AQ{iQ1me,FocUQd\d7*Ic3RW@Qf*2-:
+C4U2[_8qUW,?3}A*O>cACB7fk(:IG!\n4rY `7MT3OiMnOPm$zW0%b_l[^%~)hiZhy[v ~
+o0m<j<s7 2$q4=(\@VfmOiRF4k'AAF;CCEg:1me,+T/^N5_',Hj|-2\mt"u*QI;-b67*CA
+TkVZH=8qT6:EseFb7)S ,?H>qJ?v[c[d_b1mc/IHbCbHr@g90`*dW6(e_4WSRyWJFcI;)`
+n 6h?S8FS"fimG4D/i6}p[+}^TN*/^V]dZhymHIAlmt./zh|qU(;f(fKsror=vuS?uj:h|
+&K9c<;gFSCBk!^=Eb25%,1sciX1me,G TnX>C\T"M@uf*berck6i)}j|CDPmiPfG4.T6q4
+%~)~4eYod>4kD=IT.bblVffjX>C\T"7*TrVZ,Ij|+T_lTsqU3{7 p[N2:Gse,HiZ&/A\5I
+861Ls=G%UGWJWTtR)}n C3W>6m3mP46lrfb07}G#CgA(c2#}Y}RAIXhZs)=EOC78W@:Gg:
+1mN53O7 8s_c7*IC3RluGxN k!&/Toq58q\~,?c9JrPLBxpDn+4XIfQ?QgoIG"U=VYPm%#
+o84D$~h9&!)devXiN+*'/z[K<zp.?hid?B1"&lPu3I:Gg:,Hn %i-:rC&4o8n+PtiP+TIC
+8_Frb4-4gPQ?*Bu85FUO^oUlrE,HJ7:I[%etHiM{6l4.Z>qT3{>B8'Fr4xV],"H>_kaA=W
+]vHoD1G6d);37+mg3G:GQdU=7*U)fj8sZ>Ul7*CAN5o7,Ie6&/Ts;?8sIKr>u\IQntJhft
+QdU)?sUTqT%aMZH<>FlsGx\dP.meIq7%8%p\IALM`U9KQ_9T1Q,3fD=i)yW07td>*ENk0b
+-a\mC\T"m`PtRy7*?S&4pYQc>FTkqU_'=YA_9";C:\fH_9,He6-2Ir3AV_dZ&/_:so/zh|
+h|?p(vlb_nA1A4I0C\(@PMfeOM?YftdWfo3A_h$oG +D/iW>d[CDFc*2S VYH=%~?:b0Ry
+;>mHoWFc_kFFu2'|DNsu$-n/n@u$s$.zJi/zE-oY#5W|Y8Cbdl\P n.bA)U]&(t|DkT"m`
+3G:Ig:1me,ajJrPLBxm!+D$~pY\lcQorC3*'e6sdN*P**B<wm:UP]94i'AAF;CCEg:1me,
++T:IfH&4pYPt:PHj_sTsVZH=b4-3IrQ?owN20m*dW6(eI^3RenfoXRWT%#G \dfi+F)v8*
++FICA(+~3Q\~[^AX!~h*d;4kD=IT.bblVffjX>C\T"7*TrVZ,Ij|+TU"qUIQ3R7 p[N2:G
+se,HiZ&/A\5I861Ls=G%UG4r8_k6Qd4.eifG8FM\G[*2MZo7N+O|n&gOb0P.'|=e.Ms2Z~
+o|Zk(PNQ8JToX>C\&4G N QgI1N5G[cUorn+%i_l,?3Il5QdCg8_P<uf*berjRf!I2Q?`6
+-4h]n%4D6}+F*'h:Hi)}Z<,#3IUW;>&!4/?u@`Yvj&_R]3^eB$-Y+UFsTnX>8qei+T:TnP
+,Ih:+T\kUl7*rfQ?meN2:IXj,I4et:Jm4hGJ5DnU8qtNTrj~HiM{6l4.Z>qT3{>B8'Fr4x
+V],"H>_kaA@:,ecz,iSs&)C2.tP(o77td>*ENk0b-a\mC\T"m`PtRy7*?S&4pYQc>FTkqU
+_',HZ<d[m<RYL`,N,Je6-2Ir3AV_dZ&/_:so/zh|h|?p(vlb_nA1A4I0C\(@PMfeOM?Yft
+dWfo3A_h$oG +D/iW>d[CDFc*2S VYH=%~?:b0Ry;>mHoWFc_kFFu2'|DNsu$-n/n@u$s$
+.zJi/zE-oY#5W|Y8Cbdl\P n.bA)U]&(t|DkT"m`3GeRg:1me,ajJrPLBxm!+D$~pY\lcQ
+orC3*'e6sdN*P**B<wm:k&4FD=]O^eB$-Y+UFsTnX>8qei+T:TnP,Ih:+T\k7*rfJhQ?me
+N2:IXj,I4et:Jm4hGJ5DnUk4QdU)?sUTqT%aMZH<>FlsGx\dP.meIq7%8%p\IALM`U9KQ_
+9T1Q,3fD=iU%n&fljtnLQ{VGN6e9FoTn-34ETkVZFc8JS"7*^x,H8*mH%i_l:EhzFbb4Ry
+dC.}#,8}8t\~:EhzmH@8VEX0P(Fd[UJmM*T63ud^ajnFu$s$gSFcUG:EGy8q?\cQdWfG3A
+_c$oo86hCA)`Z<d[hyFb4x)`iZ7|p\AS!~oA[7;2&R:s"nRzJrPLBxt >|6%<*R~-Vu;u>
+6_X$GZUw6!6X'&5g5QFsTnX>C\T"m`3O:G7Zlk\kV}eifG8FM\G[*2MZo7N+O|n&gOb0i'
+Cxk0'eZ9fc-b6Y&7T=m`3G:GHj&4Gx8J-<\m&4W0,IZ<Qh268_r.G%7)-:oXfWsrorXqto
+8qtCTrosrVcQ6i)}j|CDPmiPfG4.T6q4%~)~_po2%JH>k0TP9~*LXwP*8\r.,*IV.bblVf
+fjX>C\T"7*TrVZ,Ij|+TU"qU3{7 p[N2:GseZV,IiZ&/A\5I861Ls=G%UG4r8_8s*'n C3
+W>6m3mP46lrfb07}G#CgA(c2#}oS@t[8QMm(&De%N/1X'J-9_)\m]o^eB$-Y+UFsTnX>8q
+ei-2C4TkfjmHPt/eN5fb3A7 p[Qc26Tkq5mFN2/iRQ=|&8Q{Qirv3Ahf-X.$W-TkoU@8VE
+X0P(Fd0Jt:Jm4hGJTkn"Qc?S;iS"qTFb\d$opY6h^xPliPMRo7Fc26)`ev7|G{%~_:=yKZ
+3ooN&k72&d c,f*dW6(e`+hGP['"B=NPJsJt%_naU!n.PZf>Ls%I:yToX>C\T"m`3GeRg:
+fVsror-fG \dfi+F)v8*+FICA(+~3Q\~[^Gn>S]v7ND1G6d);37+mg3G:GQdU=7*U)fj8s
+Z>7*CAN5o7,Ie6&/Ts;?to8qIKr>u\IQntJhftQdrf3P_hqT%aMZH<>FlsGx\dP.meIq7%
+8%p\IALM?\2kBaQZe-Y@,"&/_t8W*ENk0b-a\mC\T"m`Pt-4C4N5H<8J-84E:TfH4.A*Qd
+4x8_s'G}b4(FPMfeOM_yTsn"CGIf;iM\3OiMnOPm$zW0%b_l[^%~)hiZhy[v ~3t=j.mm$
+^D!XFnl4e&!qNIjg>Fj#?B1"&lPu3I:Gg:,Hn Qc\d:EnPFc8JR}7*CATkVZH=8qT6:Ese
+Fb7)S ,?H>[4c?R$Vf*.oN&k'"fa:EGj[7;2<(8$3B(5u85FUO^o:EG!8q/iY d[Hi3AiM
+MRH<+D?LcQor6hrf3AT6Ozn&+}_)N*?\Z(5lU#rqNP+XNM A&CPMfeOMk0o>cHN[1.bC5I
+5JMzG@:PG'8=n:6IMoXW:Gg:1me,FoTnX>I"nFu$s$Q}3OiMnOPm$zW0%b_l[^%~)hiZhy
+_"ZDj&A<D3G6d);37+mg3G:GQdU=7*U)fj8sZ>7*CAN5o7,Ie6&/Ts;?8sIK5Dr>u\IQnt
+JhftQdU)?sUTqT%aMZH<>FlsGx\dP.meIq7%8%p\IALM?\2kBaQZUM<K8%,>sI,*IV.bbl
+VffjX>C\T"7*TrVZ,Ij|+TU"qU3{7 p[N2:Gse,HiZ&/IdAL5I861Ls=G%UGWJWTtR)gn 
+C3W>6m3mP46lrfb07}G#CgA(c2#}oS@t[8QMm(&De%N/1X'J-9^T\m]o^eB$-Y+UFsTnX>
+8qei-2C4TkfjmHPt/eN5fb3A7 p[Qc26u,JT8d-Vl6&/?>Q?owQcrv3Ahf-X.$W-TkoU@8
+VEX0P(Fd0Jt:Jm4hGJTkn"Qc?S;iS"qTFb\d$opY6h^xPliPMRo7Fc26)`ev7|G{%~_:=y
+KZ3ooN&k72&d c,f*dW6(e`+hGP['"B=NPJsJt%_naU!n.PZf>Ls%I:yToX>C\T"m`3O:G
+g:fVsror-fG \dfi+F)v8*+FICA(+~3Q\~[^Gn>S2ke6,9P=7E(AQ{iQ1me,FocUQd\d7*
+4.W@Qf*2-:C4U2[_tm8qUW,?3}A*O>cACB7fk(:IgAn%CGY 6m)goqrB8FMXfbM{k!hyN*
+O~owoW=zKZrbqfo|Zk(PNQ8JToX>C\&4G N QgI1N5G[cUor%i_l,?H~3Rl5QdCg8_P<uf
+*berjRf!I2Q?`6-4H=U=VYPm%#o84D$~h9&!)devXiN+*'/z[K<zZXfc-b6Y&7T=m`3G:G
+Hj&4Gx8J-<\m&4W0,IZ<Qh265D8_G#7)-:oXfWsrorXqto8q:IGyI;IfcQ6i)}j|CDPmiP
+fG4.T6q4%~)~_po2%J`6`*4i'AAF;CCEg:1me,+T:IfH&4pYPt:PHjU)VZH=b4pV-4IrQ?
+owN20m*dW6(eI^3Renfo;iM\3OiMnOPm$zW0%b_l[^%~)hiZhy[v ~QR[1EW,>e6PK`4g 
+[_PAoy4h'AAF;CCEg:1me,+T:IfH&4pYPt:PHjU)VZH=b4EK-:IrQ?owN20m*dW6(eI^3R
+:cUTWJWT%#G \dfi+F)v8*+FICA(+~3Q\~[^AX!~h*d;j#?B1"&lPu3I:Gg:,Hn %i-:rC
+&4o8PtiP+TIC8_q}G}b4-4gPQ?*Bu85FUO^oUlrE,HJ7:IpZ4D6}+F*'h:Hi)}Z<,#3IUW
+;>&!4/?u@`Yv_[fc-b6Y&7T=m`3G:GHj&4Gx8J-<\m&4W0,IZ<Qh26D38_G#7)-:oXfWsr
+orXqto8q:IGyI;IfcQ6i)}j|CDPmiPfG4.T6q4%~)~_po2%J`6eO*ENk0b-a\mC\T"m`Pt
+-4C4N5H<8J-84E:TfH4.A*]pQg4x8_G{b4(FPMfeOM_yTsn"CGY 6m)goqrB8FMXfbM{k!
+hyN*O~owoW=zKZU%Z ]<iw^BIR.bblVfQ5B[KRi"3XT-8SHsW2;FM3,N,~et`E*\;fNPHZ
+i[mGHl/i8_Fr8qUW:EXja^!iAGnED(Xpn%g9/eU<dZhyFb4x)`iZ9^TFtpA$Tz&[??&'t7
+Pdl,nmg:1me,Fo0J*d6u7]4qDkHeP*meIq7%o\flgrHoD1G6d);37+mg3G:GsEuQWSG]4F
+-:DMQ?n&N2(BPM+JVy5DJ1:Tl_3Po<g?b07}G#CgJ6q`hBnLQ{VGN6e9FoTnpTtm8qo<Hl
+:Thz,Hev&/0e*d6u7]JitBTr4rjqg:P&ovDLb07~bvsMZ~o|Zk(PNQ8JToX>8qUSUlgZ:P
+XJ,Ie6&/Ts;?VyqPAhr>n+pdC\_MX?)viXhyN*O~OW`U]o^eB$-Y+Uq^?=;i^y=YA_9";C
+:\XJFcb4Rx,?^\,HiZO4@JGm:KMCI:/^DkFcC_)`e67|G#%~?T,Dcz5LBF>8 G'A0T:n#$
+uY2EelFoTnX>VwqPAhgSG"hBXIN+O|n&gOE=_cJ4q\Z~iRnLQ{VGN6e9FoTnpT8qo<n+Hl
+:Thz,Hev&/0e*d6u7]JitBTr4rjqg:P&ovDLb07~bv@:j#?B1"&lPuHn/^Y ?LQ?ov@2PI
+-r784=A*dW&/?>Q?ow7Y05_"-5al_gRy]P3A\zOzme+}^\N*/iQ=m(*e13Z7 3#`(:XR!Q
+uwT=m`3O:Gg:fVsr0snt3Po<g?b07}G#Cg2^?q5*D=IT.bblVffjX>C\Q?n%]!QfC_5D8_
+Frb4-4gPnFu$(IJ-3R:G\{pSC\c.Gz26l3+~AKIfhZs)=EOC78W@:Gg:,HetCl-8g@JhQ?
+meN2:IXjfWsr0st:G%sMrN3PUS]P4B8%Fr4xV]h.-DDsP=7E(AQ{iQ1me,qZTr]QQ?ovn+
+N2:Gse,H(yu85FAEpdX?ngG"4pDkHeP*meIq7%Z'RQ4k'AAF;CCEsEFbi[mGHl/i8_Fr[4
+c?R$VfU9q5mFN2/i<H11O%\*O5Ic3Ao<l^_(N*/\l3dWXia^^B`)+Jg-3lf'+ VG#R*sUs
+3I:Gr%1m$Ku85FAEj~g:P&ovDLb07~bv+y<yh}7ss%=EOC78W@:Gg:,HetCl-8g@Q?men+
+N2:IXjfWsr0st:G%sM1mjqg:P&ovDLb07~bvhbnLQ{VGN6e9FoTnpT8qo<Hl:ThzuQ,Hev
+&/0e*d6u7]JiT"`3c*G"hBXIN+O|n&gOtL*DNk0b-a\mC\T"m 3PDm,IiX&/_ZTsq58q1s
+t:Jmbjk3:Ig:Hd:I3n\z[^%~)h(y\oQ@[_tmrC`&g [_PAoy4h'AAF;CCEg:1mcjG"i[8r
+\z,?H~3~l5QdCgr>u\O?`1Ts4re,sD\xla3|T6q4%~[p];^eB$-Y+UFsTn-3Ib;i3nU>Qg
+26D38_G#7)O<cAPofWUlm`pdqJTrG]C_A(+~3Q1s`68.Vm$08}DhT"m`Hl:I>hcjGzb4EK
+-:IrQ?OWuf*b0bsMg:1mjqg:P&ovDLb07~bv(vukjtnLQ{VGN6cwG"8qo<QcC_Tk[_mFN2
+/^RQ=|&8Q{QiCg0GKUi"3X)"nt^[\xdYXIFc26)`ev7|G{QR-)utSCBk!^=Eb25%,1sciX
+1me,FoTrO5cAPo;Let>gU<,"3IUW;>_"rCr\q>ib?B1"&lPu3I:GQd4pY U":^8sT6,?I'
+3RV_7]lkcRnFf!k4g:Hd:I3n\z[^%~)h(yj%>5,FqOYJ8Ub4pWfm8.Vm$08}DhT"m`Hl:I
+>hcjGzb4-3IrhFQ?OWuf*b0bsMg:n%3GUS]P4B8%Fr4xV]Gm[U=[s1=EOC78W@jsdWClR}
+m _(,He6-2Ir3AV_dZm<RYL`,N;Mde/gc}0JpZmFZNOzov+}^TN*/^V]#ym syMk9qo65Y
+L#M1.,KOK#mg3G:Gg:4Pr>u\O?I::I3n\z[^%~)h(yOj=QEZiZ*DNk0b-a\mC\T"m 3PDm
+,IiX&/Toq58q\~*at:Jmbjk3:Ig:n%IaiWqK)}e6sdN*i#`;g ;?PCoyQ9Cg5D]O^eB$-Y
++UFsTn-3Ib;i3nU>Qg268_G#7)ERO<cAPofWUlm`pdqJTrG]C_A(+~3Q1sg=rb=4cqiV?B
+1"&lPu2>#>bnfTJ?)<.Wm$^D!XFnl4e&!qQ,2Y=/s1=EOC78W@lumFqh9<6@&7&5Gx8q_c
+:ECEFccUorQc\d/m8_Fr8qUW:EXjFcb4/m<H11O%o}0Kq[Fb\d$opY6h^xPliPMRo7Fc26
+)`ev7|G{%~_:8hQ_Jydl\P n.bA)U]&(t|J1T"m`3G:Gg:1me,ajJrPLBxm!+D$~pY\lcQ
+orC3*'e6sdN*P**BOj=QRGIXhZs)=EOC78W@:Gg:1mN5I%3R7 8s_c7*3mluGxN k!&/To
+q58q\~,?c9JrPLBxpdX?iXFo)cn C3W>6m3mP46lrfb07}G#CgA(Z)RAIXhZs)=EOC78W@
+:Gg:1mN5I%3R7 8s_c7*3mluGxN k!&/Toq58q\~,?c9JrPLBxpdX?etk4g:PlMT3{_cfi
++E\kVYH=26l3+~3}IKJ6I~Ql]T8.Vm$08}DhT"m`3Glutm8qiM+TU2fj8rP4Qg\d:Xhz,H
+ev&/U*[_7^lk\kV}5DJ1:Ig:n%4D6}+F*'h:Hi)}Z<,#3IUW;>&!A\Yvj&_R]3^eB$-Y+U
+FsTnX>8qeif!+T:TnP,Ih:+T\k7*rfQ?meN2:IXj,I4et:Jm4hJ-3RIfT"m`4D6}+F*'h:
+Hi)}Z<,#3IUW;>&!A\[8QMm(&De%N/1X'J8$j^>Fj#?B1"&lPuPvRy7*?S.l[z,P-a->rC
+3AW@dY+T\k:EfH_9,He6-2Ir3AV_dZ&/_:;Kde/g]7apckdWfG3A_c$oo86hCA)`Z<d[hy
+Fb4x)`iZ7|p\,n:3uS0QeX#=ZjN.J+8Bq1\{I"T"m`3G:Gg:1m$Ku85FUOQBMT3{_cfi+E
+\kVYH=26l3+~3}IK2^?q=2p.cp_RCIW2;FM3,N2De,FoTnqU,Hoqn+Pt:XCE,I8*8s>B-<
+DMQ?n&N2:ThzVyqPiPfYUl`3X?etFoU=VYPm%#o84D$~h9&!)devXiN+[x=[cqFS#2m]b2
+Sv#d,"jg>Fj#?B1"&lPuPvRy7*?S&4pY@2PI-r784=W@dY+T\k:EfH_9,He6-2Ir3AV_dZ
+&/_:;Kde/g]7apckdWfG3A_c$oo86hCA)`Z<d[hyFb4x)`iZ7|p\,n:3uS0QeX#=ZjN.J+
+8Bq1\{C\UCm`3G:Gg:1m$Ku85FUOQBMT3{_cfi+E\kVYH=26l3+~3}IK2^?q=2p.cp_RCI
+W2;FM3,N2De,FoTnqU,HoqPtk):ICE,I8*8s>B-<DMQ?n&N2:ThzVyqPiPfYUlm`pdngG"
+U=VYPm%#o84D$~h9&!)devXiN+[x=[cqFS#2m]b2Sv#d,"jW>Fj#?B1"&lPuPvRy7*?S&4
+pYQc>Fu,JT8d-Vl6+T\k:EfH_9,He6-2Ir3AV_dZ&/_:;Kde/g]7apckdWfG3A_c$oo86h
+CA)`Z<d[hyFb4x)`iZ7|p\,n:3uS0QeX#=ZjN.J+8Bq1\{C\T"n!3G:Gg:1m$Ku85FUOQB
+MT3{_cfi+E\kVYH=26l3+~3}IK2^?q=2p.?hid?B1"&lPu3I:Gg:,Hn %i-:rC&4o8n+Pt
+iP+TIC8_Frb4-4gPQ?*Bu85FUO`1TsX>ngGzU=VYPm%#o84D$~h9&!)devXiN+[x<zp.?h
+id?B1"&lPu3I:Gg:,Hn %i-:rC&4o8n+PtiP+TIC8_Frb4-4gPQ?*Bu85FUO`1Ts4re,k4
+6i)goqrB8FMXfbM{k!hyN*O~owoWrcqf:gig*DNk0b-a\mC\T"m`Pt-4C4N5H<8Jp[-44E
+:TfH4.A*Qd4x8_G{b4(FPMfeOMuS1mJ1:IUTqT%aMZH<>FlsGx\dP.meIq7%8%P<[0EWq`
+hBnLQ{VGN6e9FoTn-34EN53{W@Qh>F5DN5fb&4h98sT6,?3QV_QgrvnFu$s$r>n+3G:GUT
+qT%aMZH<>FlsGx\dP.meIq7%8%P<`U9KQ_9T1Q,3fD=i)yW07td>*ENk0b-a1b4ETkVZFc
+8JS"7*^x,H8*mHqh9<6@&7&5h9mHN2/\8_G#8q\~:EhzM(#TbnfTJ?7ZU>$oGx+D?\8FR}
+qT_'%a_lOzme+}^\N*/iA('vciq^%BSdh6K4!o$-<9 hv'e9FoTnmsC\T"m`3G(5PMfeOM
+4F6}+F*'h:Hi)}Z<,#3IUW;>&!A\Q(YWqg:gig*DNk0b-a\mC\T"m`Pt-4C4N5H<8J-84E
+k%:IfH4.A*Qd4x8_G{b4(FPMfeOMuS1mJ1:T6i)goqrB8FMXfbM{k!hyN*O~owoWrcqf:g
+ig*DNk0b-a\mC\T"m`Pt-4C4N5H<8J-84Ek%:IfH4.A*Qd4x8_G{b4(FPMfeOMuSrN3PIf
+T"qT%aMZH<>FlsGx\dP.meIq7%8%P<[0EWq`hBnLQ{VGN6e9FoTn-34EN53{W@Qh>FN5fb
+Jh&4h98sT6,?3QV_QgrvnFu$s$r>n+3GIftB)gn C3W>6m3mP46lrfb07}G#CgA(Z)RAIX
+hZs)=EOC78W@:Gg:1mN53O7 8s_c7*3mlus$G%N k!&/Toq58q\~,?c9JrPLBxpdX?ngG"
+)cn C3W>6m3mP46lrfb07}G#CgA(Z)RQFQj= k3Gq5BRL$N+k!WD_Tfc-b6Y&7&OG 8qiM
+-2rC3AW@dY+T\k:EfH_9=YA_9";C:\hzFbb4Ry,?_),H_p(3`uo[?A2mQ}^Z%aS fimH\l
+3AP4dZfG_9N*/\l3dWXiFcrv@nj<k/%dnaU!n.PZf>Ls%I:yToX>C\T"n!3G:Gg:fVsror
+-fG \dfi+F)v8*+FICA(+~3Q\~[^GnnQCxk0Rpd Q\4j'AAF;CCEg:1me,+T:IfH&4pYPt
+:PHjU)VZsHG%b4-3IrQ?owN20m*dW6(etqngG"Tn4rls+D$~pY\lcQorC3*'e6sdN*P**B
+JuRw-)S*C#8FVR[T3sevWD_Tfc-b6Y&7&OG 8qiM-2rC3AW@dY+T\k:EfH_9,He6-2Irt"
+u*QI;-b6,?_),H_p(3`uo[?A2mQ}^Z%aS fimH\l3AP4dZfG_9N*/\l3dWXiFcrv@nj<k/
+%dnaU!n.PZf>Ls%I:yToX>C\T"m`3G:Ig:fVsror-fG \dfi+F)v8*+FICA(+~3Q\~[^Gn
+nQCxk0'eZ9fc-b6Y&7T=m`3G:GHj&4Gx8J-<\m&4W0,IZ<Qh268_r.G%7)-:oXfWsrornG
+f!k4g:1mls+D$~pY\lcQorC3*'e6sdN*P**B_:EWeC,~PA<K8%,>I'Q04j'AAF;CCEg:1m
+e,+T:IfH&4pYPt:PHjU)VZH=b4-3IrhFQ?owN20m*dW6(etqngG"TnMS3OiMnOPm$zW0%b
+_l[^%~)hiZhy3v=j.mm$^D!XFnl4e&!qNIE?Z>p,Zk(PNQ8JcVdW+T/iN5H<8qZ>:EHj?S
+&4h9mHN2/\8_G#8q\~JU5:WM&jq6N2?\XpBB'sif@wm!mFC3)`j|MRG[+D\k$oh9mHDL3A
+UWOzow+}H>QR-)utSCBk!^=Eb25%,1sciX1me,FoTnX>C\UCM@uf*berck6i)}j|CDPmiP
+fG4.T6q4%~)~4e)?[$.Xs2Xno|Zk(PNQ8JToX>C\&4G N QgI1N5G[cUor%i_l,?3Il5Qd
+Cg5D8_P<uf*berk3:Ig:n%3GeifG8FM\G[*2MZo7N+O|n&gOb0i'RMr!R_N4J$CwQ8;?to
+\mfc-b6Y&7T=m`3G:GHj&4Gx8J-<\m&4W0,IZ<Qh268_G#7)ER-:oXfWsrornGf!FosM1m
+ls+D$~pY\lcQorC3*'e6sdN*P**BC^tL^I2V_x5Y6i%'M:hmoX7td>*ENk0b-a1b4ETkVZ
+Fc8JS"7*^x,H8*mH%i_l:EhzFbb4Ry,?_),H_pJU5:WM&jPu#TbnfTJ?7ZU>$oGx+D?\8F
+R}qT_'%a_lOzme+}^\N*/iA('vciq^%BSdh6K4!o$-<9 hv'e9FoTnX>C\T"m`3G(7PMfe
+OM4F6}+F*'h:Hi)}Z<,#3IUW;>&!A\Q(YWqgER_p4i'AAF;CCEg:1me,+T:IfH&4pYPt:P
+HjU)VZH=b4-3IrQ?owN2_|0O*dW6(etqC\T"`3MT3OiMnOPm$zW0%b_l[^%~)hiZhyILqh
+`-g [_*Qi^,=oXuRiQnLQ{VGN6e9FoTn-34EN53{W@Qh>FN5fb&4h98sT6,?3QV_QgrvhF
+nFu$s$r>n+3G:GUTqT%aMZH<>FlsGx\dP.meIq7%8%P<1nuA?4TF?{Uw+DM^agoQ26Q(qg
+8.Vm$08}9}ei-2C4TkfjmHPt/eN5fb3A7 p[Qc26u,JT8d-Vl6&/?>Q?owQcrv@n t[nG2
+k8;Kn 6h?S8FS"fimG4D/i6}p[+}^TN*/^V]dZhyM(FOI|6uX$GZUw6!6X'&5g5QFsTnX>
+C\T"n!3G:G7Zlk\kV}eifG8FM\G[*2MZo7N+O|n&gOb0i'WDYPI~h{7ss%=EOC78W@:Gg:
+1mN53O7 8s_c7*3mluGxN k!&/_ZTsq58q\~,?c9JrPLBxpdX?etFo)cn C3W>6m3mP46l
+rfb07}G#CgA(Z)RAD3G6d);37+mg3G:GQdU=7*U)fj8sZ>7*CAN5o7,Ie6f!&/Ts;?8sIK
+r>u\IQt:G%Tn4re,HiM{6l4.Z>qT3{>B8'Fr4xV],"c9=W]v8.Vm$08}DhT"m`3Glu8qiM
++TU2fj8rP4Qg\d:XhzuQ,Hev&/U*[_7^lk\kV}5De,FosMPlMT3{_cfi+E\kVYH=26l3+~
+3}IKJ6I~IT.bblVffjX>C\T"7*TrVZ,Ij|+TU"qU3{7 p[N2jw:Ise,HiZ&/A\5I861LsM
+g:1me,HiM{6l4.Z>qT3{>B8'Fr4xV],"c9osm8,GA*sFX{\K8llX<_C^G6d);37+mg3G:G
+QdU=7*U)fj8sZ>7*CAN5o7,Ie6id&/Ts;?8sIKr>u\IQt:G%sM1me,HiM{6l4.Z>qT3{>B
+8'Fr4xV],"c9=WI"W2;FM3,N2De,FoTnqU,HoqPt:XCE,I8*8s>B-<DMhFQ?n&N2:ThzVy
+qPiPfYUlm`pdC\cQ6i)}j|CDPmiPfG4.T6q4%~)~4e`6eO*ENk0b-a\mC\T"m`Pt-4C4N5
+H<8J-84E:TfH4.A*]pQg4x8_G{b4(FPMfeOMuS1me,k46i)goqrB8FMXfbM{k!hyN*O~ow
+oWrcF[s1=EOC78W@:Gg:1mN53O7 8s_c7*3mluGxN k!&/_ZU*q58q\~,?c9JrPLBxpdX?
+C\T"qT%aMZH<>FlsGx\dP.meIq7%8%P<1nuARG2mt?5|^E@.5WYN%Cc_FIMCq:ehKH*ENk
+0b-ab3X7(V(XJum:P=7E(AQ{I1M&BS-.h[c@PoJu*dlku+Js%Au.JsPLBxfZ9VjX'l?U:O
+Pn2%t@'V0~M<Hg864(JMuQRj 4Z6Z'n#dk,B 4#`[MhfU?]HO*q[JQt0fIkhjqDS#LgGj)
+O]5'o[p$-gbwKC:xG'8=iqn,p$P*X4/g;.`,,)"QSV`TkgU<t/V)?20'`aHrc tLD/m"_%
+.LYy5uVIX0[&GY!W^}^|8S,W0gPD-Zs9Jmp8JcPL3nPK+JiDu$s$Q(h>*d6u[)) RXVEeu
+$xjFm>-X9%(\jVp|L/6MAw'JZqL\B[By-r`@H0^%rqu\ZR[&O5@%ksY,2uAX(!S=C5=c(_
+c?Zz.~MFZ_+6\=:S94`jfUj;p1uD5F_#D"=uM+4v3fFvRYVE-}BSGWa4$3#aQJ=j^z&(T:
+IF8csT3X4&uM5J86@;2!.z6UUV)r^VdG;2R*19^vkd")L{co.t?M#$e8ZHWLtt)k*#uqtN
+Jmp8h]Nee}pDu\ZR[&'6UfjSu$i*h]Nee}pDu\t\[&'6Uf)rp(7"+W27O@6n,_L'1?PH?`
+=~$V9d.1CT-r`@H0^%rqu\j:[&?uSSuO*bG^h%#}< *a6uoEh=*u^qsror_nICAb"LIW2>
+p2Wyo[+kD]dZ=zM+cEg)D/+j&H[dAji?kd")BQ9%@vkU6Bn_It%"Jxr_-4eTU{5n`eJjM*
+T6=eDC\J?|NM A&C 5tw'|DNV8R0ul*boAtCJmRnnmu$STnmu$s$Ry/Zo[<fk=6>`Bt<8S
+l4i ;I;_d3[>'|`hc/QD`UQ^[fauWN[8FE V"/ JsY/zh|aE@:,Wt+5FRv^dcr5J+<?? 2
+'b9ePvFd@nh/*u?6"^6mmC5PX7G'C'&l72]| ~Ef[7;2&Ru65FRvY*X^5O?OpEu\?/nH,j
+DkixJcu.t}h1i'!"'QPYue_l `c_'t/_M2,Nsesfsf/zh|6:lkcRAF[8qPE,7h0'rk0WUy
+&1iiO1,u?q/]RydWM&=zKZFb*[%!Rkv%TPf(V';4&RkH#}`d`Q6T:+r6u\/GW}V0v Gg^s
+sr]`V~S.\xE"t[qvq8>%A\$+>&5yt6ri"d+{?V^^(<Q{l4l;l;_nA1"uPMFEO:`UcAPo7h
+0'rk0WUy&1iiO1,u?q/]RydWmFFb3ATkhsrccE'la@Pmt!f$.%)iStbCfLZY5l)IoN&k72
+Jr%A(ACvYI!@<wJg%AC<thTf_uBoBA-K-KITMY-N,76>]| ~Ef]a5`&}NQ8J:v:v[7;2&R
+u65FAEuA5J86gBs;^C-K!G9M@BL'ctfjePmrFx^W?;/]RydWmFFb3ATkhsrccE'la@Pmt!
+f$.%)iStbCfLZY5l)IoN&k72JrPLBxYEY:%C=Iti5FUO^dcrirH#@6JpJl]/GnKC7I,.J~
+/z 0FM!|9MVGN6uYuYuY#}27f7sror=vEdZ><qTF[Rt_%goYU'8rIC<{8|h[+y1~.z6UJK
+( &RRw?Yb0Rx`S2Su,JT8d-V+Ur"Gi@-6:?P'}?Uh=&3jsWFQ*E}sFnQHlQ\7}n anjw@o
+s*+Ph|.S1f!0Vg8P^+iju$^?ZnetMH_Za`o}7"[cr}DLtL$OdG;2*Z" 72WpS![^mFEae=
+`e#|]8%tbCi7hs<jX/]<0JJ !bl+[F_Hns3AenMRFb26)`evmrap/\RQ=|&8Q{AYe}`E*\
+;fNP"t_[?O(#;,R~M*=JYn,G_Q8W+~k|pVfmqZ-#O|iMMH_Zs`tmoT`:LT_!Wcm_0U-]O9
+MA[V5n-a;aJMWO 38NYh>",]W-j0uQc_azr Jm'coDs&l"EKJMJh_ 0&V8/gQlrPq*sF5(
+I"cQhyN*hw@9UCm`E}sFK.`U0JJ !bl+[F_Hns3AenMRFb26)`evmrap/\M4?>TT[Rt_%g
+oY_qp GQ>sM[9c\d]oJM6Y&7$M@w5H5Jif`AVGN6nbU^56Bn:8Rk&:cu2m>c9+mUqe\R5>
+WM&jPuq+]@qpr}9<6@&7g05(JM:R</$];RYNeRfJe)I2agqi&kMia0;AY'&!Ts$c _?mZr
+O,-UdZU'U?rPq*<_i^8T8lQd/-0mBj=uM+tv0 -%/YoDI4b0msapK8'zD:+jNP\9GSo2ZI
+O5@%a)sbDFB$pDQc?=Q?dZsDFbhBc(Gz%~?:b0Ry;>mHEae=`E*\;fNPHZs_mFqh9<6@&7
+$3_*=YA_9";CKM'zD:+jNP\9[RYVE;8JJhe)b3TD*a-6>w1dQ8k)j0E!e}MH_ta`o}7"[c
+=(CM&DMpbDCk$\K^;CWCtz(X&n7\akSM&Z'GJsp38z'9A,.5el)Zc0TDUlmDI%OzGm*]6u
+nthbj%TD$[I([VsIhsJ?"sGlUNXLM<_^rQeNQdrf[TsI5(f__MX?)viXhyN*O~OWu2mrC\
+$2I  _ucW)1nM4_Z_^mr`a@:(5`+K{q0hmd(jR-2^[,HS pSmFZNOzov+}^TN*/^V]dZkD
+TDOz56)`h+ N?mZrO,-UdZa_Yoh"^K.1+1d>% On78W@j0e5gfGFMZc"VffjXLM<[ZUnUo
+o}k;;37+WQez2"1GX79E#-m&TQ/A,UFj^Hosg3.}#,8}1uMi`MS/c@R$VffjXLM<0Omvn}
+3biRX1=|&8Q{Ck)!Je0)PK-r78W@>G$CALUG3Hj?)9YNmg&2fsWS&M'GEN,A[fGknbQ*Gj
+adqi&kMia0q7Xn8stC\nmD\x,!3Q\~`S56M4 U/vhT7U&jB=e^FeT"rE@@R94[1N84YN3I
+C5m_4XI4f20IJ !bl+[F_HnsS-Trosg?b07}G{2pmi[SkQM)ifN%A1/&Y48tU`D%<fe:7(
+1d8_QLL2M;m>-X%=L+l9;H`7os4Xjq+~3IUW`S2SM4 ?/vhT7U&jB=o(h.>](5`+K{q0hm
+]AGNsj!g($:WG!EV`jfU,I'tX7ttjLnwlI'"@04(eiMR_'Pl/mW>dYHi?SM{k!7|Fr%~?>
+7%S [^d[kDTDJU5:WM&jq6q)dWm<RYL`,N(FG}[4c?R$Vf*.p3qns~,]V;N6eEhsJ?"sGl
+?xH >S8oHlQ07}acjwWFm :')c>G)8r l"ELh+2Pk'0+hT7U&jB=R7/uK\;CWCj0(X&n7\
+akSB6wA21uO[5n-a;ap38i GP|2p/k,@[fGkFZ)gf_lzH<^*tm>wUCmDIQ:Eo^5;86<7`7
+k!j0E!e}MH_t^+sJhsJ?"sGlUNXLM<_^rQeNQdrf[TsI5(f_;iJ9j0toU^rNcQ6i)}j|CD
+PmiPfG4.T6q4%~)~4er(TkX?0imi"_t,Ozg=(Dr r0Tj`g@9I7e,k|pVELI"Rp$Go/2!.z
+6UJK( &RUP?YTPprG2nUb[.%`@H0\nIt sO--;H=EV`jfUPmRyVYFcI1)`h:MRfb3A>BS"
+[^mFIq3A\~Ozk#mrap/\M4?>$2_*(Dp^kMM)ifN%A1ofDIYPjU4&A5VX_Tq.(CQ{Ck$\u0
+u>hQsa$18}9}tCs_T5Y8nm$~On78W@>G$CAL5H5Jif`AVGN6Y-5,p3U&2k>c9+,tk:DX.7
+STd7CHT;A_9";CXz56t``E5AWM&jPu4Z1NMi3\<;gFfo2@c@R$Vf;_h+s+JUJc8d-V+Ufs
+B|)!G:XVXVWJDaPJ-r78W@j0ilt#tY,]V;N6Y-5,p38ih7<Xao<ICx1D1ZFoUG )WB$c#z
+ch.x)zTii|nU>wjxe<AO=uM+tv0 -%7a:Wh:j!nU@)pZ3@k:+I$~pYC3*'evXiN+U2$c3R
+Z (E%3I!_ 0&V8/gGrS1g:WS`gv/:pQd_]"G3s4Inkk~Y@]'SlSw3Gen*<G*O5@%a)sbDF
+B$Znn]8q:TpZ4D$~pY\lb07}G{rvucj0(DG}^*kRM)ifN%A1/&Y48tU`D%<fe:,EWQ8qRl
+(\1E.z6UJK( &RV{-;3P_hqT%a_lfi& )devhyt/F!ATe}k|KI'zD:+jNP\9XDXJtR^*<c
+i^9u9{Tnj~I;n4(4`+K{q0hmd(jRI2Q?6l)goq4DP*meIq7%mzapO|56M4 U/vhT7U&jB=
+o(h.>].+4'J !bl+[FT]uO]hsrFIjS`% I7V,#^Te!#}Rvu H(]Etp(O1UTC(RRMJa%As$
+QF6#6=lkcR[x ~3tZeP(i)5*m8O5@%a)sbDFm/^p[^qJ?v[cu^oW+kPM+Jn%o>%J--AX(!
+*t8$j%IHbCsy[^O25IMkUQZY5lTT0&0R&w72qii#ZCJePLVq'uX7ttjLI2q?#P0(uOiSX1
+awAP;C%'mFDL3AUWOz'|/Wsjp1DTsL1 C+2P1&.duD*boq,WL'LZcA^=AV!~Gi?5)z[|J5
+d:(5`+K{q0hmjnGInU+DA(+~3Qhf-XcyN-@]u95Fo=Ea!~kMH,t #EoSIQ@;VE-%,+LBrC
+u\ZR`S'|K3s&+PPvT6=e)'Y4i~u$(I_42jkPnEftO"<+JJpAf}2@)~)GNQHZ\nIt sO-`N
+GyY/q.(CQ{ld^[\xdYXIFc26)`ev7|G{[t ~mF57*"/Aut"+e&X3blm;*_6uJ>Avf1f7sr
+[~o2%J\RNj# ?Q\YE/=uM+tv0 -%7a:WG!\npSC\c.Gz26l3+~3}hf-XcyN-@]u95F3w>}
+KZ2r*#`+ p3tk%hf-XcyN-@]u95F3w>}KZ2r@-A%-oNDm=[p>QuL*b:g/l:8sT^crElH'"
+@0th\q:-MZc"VfU9osk-K?Vu[6U)Cpt{M3,NWU/m:8sT^c98iDG{E]-Yl6Hi3AiMMRH<+D
+?LcQor6hrf3AT6Ozn&+}_)N*?\Z(5l^L%=M[dPK"6(qyY/[mHsc@%d@-i.G)r6u\t\o2%J
+\RNj# ?Q\YE/=uM+tv0 -%4j4)enfo;iM\3OiMnOPm$zW0%b_l[^%~)hiZhyqL?v[cu^oW
++kPMfen,o>%J--AX(!*t8$j%IHbCsy[^O25I86UpZY5lTT0&0R&w72qi=wf+>]R=?PoHu\
+C3.M'`, UIS%o2PU/Z_+?IRo9T6vcB4C(\[+P,@%ks0WUy;f05&B6BUIn u\j:v)`% I7V
+kRc?^=r'ba.%`@H0q?#P0( Z5<MkmyO.<+JJpAlH'"@04(sj!g($KH*]W6f#('X7ttjLb[
+.%`@H0q?#P0(U/It sO- .Eh^H2V6(qy'}bB(XRXVE[{Lzdh_%&x@0, e8X&F{19WC5MA=
+D>(IHWCFs8R_V0*)9\u]tG/zh|JnGkQ!<6u3_l `m).|6ULMkh*1$>=Uc10"q%(;f([`uH
+&,sefk7v&(baO%Pr<6KI(5`+aQ@Glb_nA1u(hy7X:dr+ri"dQa[v$ %Jbh@:,eQ(67]p=T
+M~W@-%'9bTVJSEQGprG2Q(F\Ba$M6`A+v(ui#}27*c)zWCR0Jq/z 0ov7"+W270A\R7v&(
+7VkE6>`BH +\I;*4@0l1@Glb_nA1u(hy7X:dr+ri"dg77U,pA3"uAD[8qm0>E;uA]2hf$H
+5KQx,Z*~a2qPiP3l[lbE4C#z<w/$S9XhH`-h3St~F~qX0>){iy?B1"&lPukC/c03u`:hjC
+m>-X%=L+A.DCR?B^?v5ZVIX0[&Oj<p);l+[F;4g3]/+Y/kEGZ><qTFIF 5L"e%A1Zmd;>8
+IkIFEBZ>j<-IM'mxs"ry;EjLSJE'Z><q);6oKs]xN6K61A0]D_>/-}2>!|^&HoqTmUH!um
+E:V`BM#3#i>uh> MeG@!e5A1BUU(p\W|h?pn#hSZbCPvE`Z>UJFX`;nVs"X_b].%`@]etp
+mtrUn+A-#vZu4^alA5+~,}o@,'R'/tRc2U?(*I$MCMYxW^]Y;JUo%BH2EV`jfUN+/\_+?I
+uho)HqozQ|C!LK?YTPprG2`+G&;YTo?DTPprG2ls+}^TN*/^=IG\p; Eu7Y@7{rSfsq8Ox
+]s-%iPY*DNW)jG:hI^s2sFD1::RwuQS{8[U_CI&D3@FtX^2f`bnPap6S\%9;8$tc^Wo|H$
+o^&,h7CS^ZMj\U9_3(ZQHyMCe.i|0mqzC5uLpd]3Wu4rUGEd3RO|Eh`^o|3Gp^Je00uk:d
+>w@-rFt[gJlI'"@04('pX7ttjL^?N*/\l3#v<wg4>].+D)Vu5I*epDk-K?VuqlUrPCB|nU
+b[.%`@H0\nIt sO-c1G"C\R}:]mHDL3AUWOzowGi>SmD&DfFW6pZ;TrZ)}o"E ezgB:aI$
+J3Id-Gd"s$h~7{61EZ>M763@k%T6C?>%A6)\mz6,jTf!]x_^>mtoI_k:o=j' ZR9q\,*O|
+nR@),~?l/1E,^0*a$MnXK/fkMLM(AsRWP(s1Fyidp)ec]jE3H3)7mQ)"OU]d0Oh7Y)mo2(
+ek0JH}_-mT)"J0jGN|\U9_m~G]UA@uoiD}hx.;-,7(E@nmp+tR_-`58,L6&4_,ZG]loJE 
+tQ1c$MCM&D_,XUiX>lU`j`[)]lo*E tQUG,jJ7WQn4m6upuL1mp7"_t,]\g=^:UlE\ _uc
+jaC^j8f!]x_^>mEh`^hEFok'jyuLJFid]x!<ucZQC^j8f!]x_^>mtoI_k:#qAA[8R0]/;J
+Uo%BH2EV`jfUWT'nX7ttjLfoq?#P0(*$etX=?L4BS [^mFIq3A\~hs<jX/]<<6J@(#u:un
+GGsj!g($Rov%J&Cw8s/^:8sT^cWJlI'"@04(_hIt sO-M[^Z%aS fimH\l3AP4dZfG_9N*
+/\l3dWXiFcrv@nYP>s/}%F5R,VO~.0W0SP8bmxR7fb82_]\e<?-,IC,)tC>F>%m"h9fmTN
+H<<z-,tC4xf_'em(3{gWczZ=Ve)_ER:+\jVi:8o)h{Oz]s-%iP)ZA6)\mzUkY?>ytoUkE\
+ITH'p_E@JG^yE\r5E#k.ZQtsM#::RwuQS{8[gAWN0%-B?l/1E,^02)$MnX.;-,.nugj0Qv
+.Rb8r@Uki|e_s@E3G^>lF}V1i|U;hCjIq's/M@c 2%(tE4A Z8;|eJD1UA@uq{H$ds2%t@
+^X'dBuS@ego<4Lali=i|0Ph7n^n%OeUA@un8]Ye#2%>JE3cN>:WzFxtbaj<*^W&*]jrQH%
+J5ZQk6)6S.8Vf3V_]Z`6E@pe6,_<J7QPX~3T\epKpeG]_<;(EDhsg^gZR2/uI2S-rfrWXR
+_x_^ixsKo<`?kxid5BWDC)mru|JeT"s6"8u1>mC^j8id]x ?u|pK1np7o|j'jyZQ2skJo=
+3GESp]Je`>o|j' ]u|hC1np7o|j'jyZQJG_zE\!xu1)8g;^:]4E\I(]\sIs@`>hE]x!6uc
+D{C_j8id]x_^>mtoI_k:o=j'_y)8kOK'tOm`_w_ttctm]3E\sJp.k!ZQto6,k:%{t,]\XH
+F?D3k:r0E#p]pKJGZUE\s>E#jzD{tprh=]Bg[8R0k87UJs5KjR`% I7VQh?=TPprG28_b]
+.%`@H0I;sj!g($%"G +D/iW>d[CDFc*2S VYH=%~?:b0Ry;>mHoWa^Yo2,[8<qTFIF 5L"
+e%A1ZmpGflcmJW?AG_rp?z8}th;}Og]19/\J[&`b%O#[1SNQ^k.LBmpyoD_4\mFP^A'R0~
+NQ+XQ(h>lF`:8`0MQLFVnGf!)"?UpE/<6e8VDCD5VuGKD\6?B;'{X7ttjL/h_+?Iuh>X^C
+Zs#Z.N@H"g$>27IFZ/,_h`h]7t.He>/<2}$=27j;>FD/D5VuGKD\aJA<'{X7ttjL/h:8sT
+^c?RBP*RnAf+msGi6\SR/w2B'n]CYV:(Yx2VZ_O,gY\=#(N}?pTPprG2_&2jkPnEGuSlme
+1CevDIsL"1PM+0NSsa<'\PUsDNs+JU$=*d6A&pq.X/Bj5Rshp GQtA+zZGj<e=nujD>F?*
+(#X}BE&1'eGJsj!g($Jg5:WM&jq6?CTPprG2RydWM&=JD9@:,WF=^q2X=/E.043vMYlpfl
+hJ7Unwi9L^bYT<G:EV`jfU1ne,ajYo8rJhe),=pe1b8gk5CFMKQ-hfhJ7Unwi9L^bYT<G:
+EV`jfU?</]'n?UZoJsR?b~Dq2-Q(9/+y(X@{,32V'Ys*8}MWRk_C7\/l:8sT^c98l'0g-a
+->lI'"@04(:Gg:p GQtANyt_,Nav9EjlVx5DD+h6Z6Sln&]?ivDzZuXB/td"2CU>$`,%s%
+'^s*8}MWRk_C7\Jift`% I7V\SBheR4x[Riv<jX/]<]5;J3e]Iko0]sMQdq?#P0(U/3Hh{
+FbMCivYoC]_Q8WQdr /scy2CU>$`,%s%'^s*8}MWRk_C7\Jih6OKFbmc$P]XivDz<wk(m:
+,uQj+B7&uolF`:8`0MQL]mnFf!^g2jkPnE7e3AFqMCiv?U:Om 85)c;d*IENm+,uQj+B7&
+uo>Xie-d)r>dq#(>_42jkPnE.lMZc"VfU9?DTPprG218PDr;C%6i@nD+BP*RnAf+7}G#AB
+`+ts,]7;$uDCG1ukQDbY3:i#<jk2COYKQ[!lGHp\7~sECF,:jyft]9^:5n-afl*!UPb^3:
+C5YkV69g8rRpd Q\q[EI*2<MgArb'^s*8}MWRk_C7\/l:8sT^c98l'0g-aBs'pX7ttjL$=
+A^_aiIPlhs$=A^_aiIN*/\BnhuJ sR9<NV)khfnBuA,SN}FS[oYV`.g *NT).JX`IL3R<s
+Z,&>faW+ZcLN[u*aciPK3GWI4r4#qzF`B^;;(<k4DRq`T68TcwL!3cnTHlq\Z~.7Qj+B7&
+nXaj@:,W.%o}Q|$x/BHQO:?YTPprG2RQawAP;Ceg/a:8sT^c2%18PDr;C%+~^TU%f?,s#}
+e9sda]]Utp*a6A&pq.X/Bj5Rh}/K@~<wT1hfhJ7Unwi9L^bYjR`% I7V@73|2n&lq6?CTP
+prG2D+$2A^_aiIN*/\c/5%fLV!O|n&bdYo2,`]\m']s*8}MWRk_C7\Jih6OKFbmcIq@n]X
+ivp&GQD39RjrUWC?:L-?6eN,uIbWJ?QB@z,bEFfWUlG:EV`jfUPmeP)cevDI]XYV:(DCD5
+VuGKD\aJA<pd-4lI'"@04(Rv[^mF$P]X_,T~ciPK3G2[q`PbbY39WQm cp_RHi;_t]Yd2V
+K1n7_!OHHLCFm"bHJ?QB@z,bEFfWUlG:EV`jfUPmOzme+}^\DtH#3hJS95V tTVw"k! re
+Q(v,fl.HOhq0hm-YCY>W^UDypEDqP=Q2T3g[<\rM7v>Xie-d)r>dq#(>_42jkPnEft`% I
+7V6m3AT6Ozn&]?grd!uTP;3pt@f{ND')7F8~b039P*-E(o,GN(Sw_c2)qTt<^R,jNwt_,N
+av9EjlVxJ8:I+EA(+~@~9HJhe)>GD5VuGKD\6?B;pDIqWOk6HlrEIrW)/Lcy,}Ol`DBpf9
+E!D8o^+M3`=jD5VuGKD\6?B;pDDLk#_Q8WQdlB`:8`0MQLFVXq&![Z!x?%9[1Y1ne,mF9A
+F1@-WKSA8e>vgSpe8q5DlsDLb0O6.7JwZGj<hT!l'7[?!CM:T6_mh2&?oKoI+yR?7sB8-.
+VI-%);D-R?7sXX)-[+hE>9c{-YNDJ~a0!yNILQWK"Q%l,TKFe4\OlJ0g^v[9M)V?OG'dmy
+Hq!LcmTZ Idk9I\\;=`$A+eE_`fTNR&~+y/<o}Q|UI]o(0_42jkPnEftO"<+JJpACGsj!g
+($:W^yN*/^V]#y`+nm:k]Ogr^30&;ed3+fgS,I-:3Po<gOb0Z!]<]5;JI;jt@bpDk-K?Vu
+8s/^:8sT^cWJlI'"@04(o<+}^\N*/iiuDz<w,I5Dm_4X 38NYh>",]W-enHqa~?)(#X}BE
+&1'eGJ8_@+oHg:P&n&gOe]mLezFo*<Yy]<<6=;(#u:unGGsj!g($:WG!EV`jfU,I'tX7tt
+jL>g)`ev7|G{ijDzZu-7tm1bnU!Z7G>xch.x)zI6d2*U:`>w@-rFt[gJ,IJ7[ :I3nUW;>
+3vS25,e,I2[;hfICU H}rMdCgZgFQd TR9Y`pnI&ItW):oQ]org?'emBo7h{7{Eh.XhgNS
+21tIkJG"Dz]XERiRj$r-XNS|"9gc)6s2>}]Os1_]C`m_U*UB &Y1u*$)21tI[9Gn0M=Zir
+NR_I(JsHHd:TA<]vCqP5cr[4gpv5\z8khBk&]p:!_YkQE9snS1ZN_vELT#H|Bo*H``ZCA=
+n&-$s"M/T3>:9UJX\)>79UJX\)eMm697#5hEb;68YgO,ugJv<XB :=/tFME3GF-tN+KM>Q
+QjV#7a#zT'VQ&H<^3Yo$W*-jTw<fI$tL.Y(?t28mMBqOg)r=`_NDFSU)-ya~:RR(AK`l5N
+9$0OW-jwr%WM_l4qIXWQeE>=YC[l]pDhp-I&gB4Xmg!*[;=[(&tzWQ6`Hgn_iN(FbJeu:)
+[m=[dB@#r$Q\<It7O'/xs}7?W>`bCE9UJX9&m6jFAG;tj$o[K'n)f_[;`STp7~`ctLcj@M
+#rO%CV8K9ahIZW7td>@#r$Q\FKd8.5+Eo<A')\N{cr[4-v3@astLK/;`JSebV<j#hPi'6{
+F`NR`LBpf9E!D8o^+M9&FMk#GfT;m]W$IT'sCEQ*ruH3#9jw^dc9+9X*, AkBTCLA+dP;m
++\3vXWr&C?eEVur*C?hh`Y4P(or"Tkn!!)tL.Ym$5;L]^bAsJq^~0P/52}$=27du9I1QL}
+R"pd3O/z)GY|369d/>aA]_Nen@b`0DfUPU8S^IQH6B7N/lnUM&ivGM('s*8}MWRk_C7\:W
+G!C_A(+~AKbIJ?QB@z,bEF;LQh)gethyN*(7ue/Y%[>p@-rFt[gJFcUGhspD:i>w@-rFt[
+gJWTc*Gz26V]Gm.*YhO,ugJv^nrEHdO~meIqKChfd>^Ce>E2FtTGc^#%H2m*oEoU+[!gi;
+s?O$Jl^k0rMls!#O@x/h-&Mls!2X^Ue>E2+ym:SA8e5=*"cUoKs*8}Q$GGYJW3)k'Ys*8}
+/y%W!@!|(A_4=Ye_u;QI;-b6WjRyWJFc4pTkG]qJ?Sb0Rxq4mFgO@nj%IPewfxB]Q]ZV;@
+j$dp\=#(V{J8:Ir,[9iD1U)8if_"8Htc@|8_topG&R_YG4P=6S_cW4)zet>gU<,"3IUW;>
+o2[6iD1U)8if_"8H-`E"Gm0J,[LeN|U/8|DW__bo(@_dbos1_S6;:WG!\n]Pb07~bv4XkJ
+I'1_Yy]<9KFtTGjEmi2X7IDF3pEhl=a_G'9;9cNo[$'PnaScN7L2,!1$'-XZJ.`[&x/_Gl
+(;"k/!X1uL3VTOjEmi2X^U\m9KFtTGsn@;eDE2FtCFH-D\6?a@PmmU`K0&S}!R;v0/o}Q|
+?s+/"`#y0bH28q/^8_mH_7HdTk7}Fr%~?>b0'mYo,;5Dm_fn@+,&?l9{WIpe<M#=Nn]qQ;
+=r3urLjF>dD5VuGKD\aJA<pDn+CG_<`=c*&!)h$Ut/s2Fo*<oOqehJ7Unw&+Jl^~(HGJTk
+n"Qc?S_MRy]P3A\zOzme+}^\N*/i_+B|_x5Yv*.Mj?*8cW9-ECJ5USI'WQ9RH|WQOopTfm
+8TUG,jfs]9 )WB<sZ,&>faos$lBuS@=[m6r(77Qg_sMR+TI2;'Q:]s8T;(qzWIJ1iRFasM
+Ck:J=]_cQFbNhzd5^W,ytm1b&-I"]\r&$PuhY#H$V4Gomqj'Q=*aFoIWZ_O,gY\=#(N}^o
+Uli|U<,"3I1sr(p/m`$lh( GP|cALf77+\f`g>Fy/*N=8\>ytB_-P?]q;(-6l}tm90]b"U
+0uFoPt`3fmqZ,*O|8\k69FlC`:8`0MQL]mXpto8qtN_-et>gl3+~AKQnuQS{N1rNQ.Q?.M
+j?*8cWe)7(tB8VcjPK3G,>J7ja8/'As*8}MWRk_C7\k(:Ih:j!If_M7~G#26frv)Ub-3 ]
+WOJq3L:G"40`u5RGFQTGjEmi2XQ(&+p\(bN~s5"$&Z;f#O1$'-XZJ.X')I>$X$BE,R$>P&
+`L^DT8=;W} bWLETFtTGjEmiflp:i9L^LJ+FduJa@-1e#&'}=2t"7?W>I~F1@-WK+iq2[B
+P[;Ld[m<RYL`,N1oe,sDFbhBc(Gz%~?:b0Ry;>M(ERZ9EWUP,htC3GEN-qo}Q|UI]o(0I^
+3R:Gg:P&n&gOtL26f_lB`:8`7Tl.@O+"Vyp^X?C\_MX?)viXhyN*O~OWiRd;D{q`C5m U^
+-3rG:`qO3821W\JA0j#9NnQE^}:-qyf\4i#yrCPFPxheDaSuOfo}?PW?nWAUv%U/6C]pZk
+[xMx]q3b@6\SC,2P]7GnPq&p;jQS+U.nJ\Vs@8;nR,lz0`,5jyGfT;m]W$IT'sXzq9$lgZ
+8cV<Vqp^mtVwVjbj/mo}Q|UI]o(0I^3RGfT;m]W$IT'sXzTpoVhdDaSuOfo}?PW?Fx[o]P
+b07~bv4XdcI"1_Yy:iigWiVjbjHl.i,u>rpDn+@t1e0U`6hJ7UnwHqLW^oUlm`3Go<Iq7%
+Z'>-S}(:F1@-WK+iq2[BP[;LsJg:1mjqg:P&ovDLb07~bvR6u3fyG  TJql=G  TR>ix^B
+U^_U:^1pY W^o{Q|C!LKU/X>qJTrG]C_A(+~3Q1s)?en]|UD$Gt,4+O~K1`U4&]IV:kj8F
+qu@5(#e*Ks.+=1t"7?W>I~F1@-WK+iq2[BP[;Ld[I23AiRc(G"C\R}:]mHDL3AUWOzow]?
+JA-CsrTfT36bm6[k<WE# 38N@#r$<'.8mt(^m pG&R_YG4P=6S9}rF(^C^_WAs^`ns&49~
+Ka2PADQ}2PIL^50&;ed3+fgSWT-43|o<Iq7%o\dAD{&@_dbo?)(#X}8Ot|oPAcgSpe8qjy
+GfT;m]W$IT'snPUboVCGv%U/6C]pZk[xMx]q1`lb3Po<g?b07}G#Cgfrv)Ub7~`c.<@?eS
+W*@A[8?4TFjEmi2X^U*[" $?272?!|&=`3F#:I8#!8e?E2FtTGjE>F,e^Ue>u"[8ml2X^U
+\m9KlZ\wXXdt,81IP?]Wh6<RiX70YFBZE;HZO~80]Wtq*W4=8%-!uRflp:i9L^LJ+FduJa
+@-$8,ZJ0+FnvRQQ`min5aEsTOiRF.]o}Q|?s+/"`#y0bH28q/^8_mHIa3ARv:]mH3G\~Oz
+me]?tp*a6A&pq.X/Bj5RsH/KdNbs@6dbA_8AVguX'!Z7XW\zbY39i#dbSbhNrI0$T=Y:e3
+r`,E5Dm_CGD=Ql,CnkfqXR8qcj5(1ZqTW?9RUG,jJ7Tn;o@ArC9/'9A,SzU)B]Z_O,gY\=
+#(N}^oUlrEpd%;%~)d(yt/s2Fo1coOqebOJ?QBO)b&a 6$7]/lnUmFCG)`etMRFbC_Tk7}
+G{%~?:Rjv%A_8AVguX'!Z7XWUS7N3@i#dbi8.}-nG1@8Viregfs&h~7{il5*m 85Tn/3Ds
+i@_REIM:&"-6.nj|8bA7oXQYF|9t);s>^``'DBVuOk$x/BHQgRuRWSJ1JAOwmegOe]]|T#
+WJ@A]$EWj<U)q^:J)M[+8Ss~ciN[t_,N'|MvKjL)O;?Y.l[z,P-aBsen-2_(Hd/^DkFc/W
+A(dWFoCg0GgFhJ7Unw&+Jl^~(HGJu,JT8d-Vl6QJdZI23ARv]P3AUSOzme+}_)1mdPv-RY
+&v3X[7fOtMn}I&DOW)p!u,uG&>VhMU213Xv!ir>xRfOR=JZ9^W\mEWZ_O,gY,7uYGg0qnt
+P~mif}2@c@R$VfjnI1rHFb\nOzn%g9/els+}^T1mV]#y5HF3@-WK+iq2[BP[;Ld[QJdZI2
+3ARv]P3AUSOzme+}_)1mdPv-RY&v3X[7fOtMn}I&DOW)p!u,uG&>VhMU213Xv!ir>xRfOR
+=JZ9r$%!SHC3mr1l`7e)e,t#Sx@+gAWNpe:k\O,cWI"),I5D9VtNe9Cl:J_YnR@)h:Dk;i
+<?cmPK_3l}85Tn-ADs>5D5VuGKD\aJA<pDn+CGlsDL7%o\FZ:8oBfq]WT>qp1\`7XL8gk6
+]Pi^Z6Q`+Stm1bnUG8P93Tjsjyen8s>yTo"6WT9R:Xk%mg1u-5tmG8SjpTfmWSHo_,Ngt_
+,Nav9EjlVxp^-43|7{FrCgXDr$T!@+h:<ru0@2^RWuJ1>G*I1pIP&5,55Dm_Q9rfT=G:P9
+./?lDflr9jH:s%2HY 3Tfo`3Z>iXWSX^fzqZ:n+>Ap_Q>q&Z<)i:[I!if`Qh]s3I`6'c74
+<W]I.qKU1_nkfqXRO|iRDklrl}T<^B3X2CSH"O<G)i41IRT?dGs$]S'c74<W]I.qKUr@WT
+ZWO|^K3X2CSH"O<G)iI6S-rfT=o2E0:K:.BGa<')8 UH,jJ7mgF^rf]b-5X2\>@]#TW+-<
+ERFs(o@+N|Vd.;io'H5jSzrPCHgDH.0dW`e@HlQ0-3d!it,yOhI^jK@#]<;J7uMWRk_Cns
+JhQ?6lb07}bv3=Y`5qDCRwmi2X^Ue>E2Mia06\:+e8a/b7EYT[g=e@E2FtTGjE>F,e^Ue>
+u"[8ml2X^U\m4&]IV:kj8Fqu@5(#L1N9k4hvgb@=2kE.LJ+YKGjY>F2kE.?)(#X}8Ot|oP
+AcgSqns~,]V;N6nUmFCG)`etX=qJ?Sb0Rxm`@th#D+E3Z>>zD5VurV#%5F?OO?^o:EG!8q
+/iDkFcTnG]%~?:T"M@=J9x=]u9^+-X=&N:-joH\OhXBiiRm(ezl'%:,G5Dm_Q98l-DN=)?
+fo`3hXJ1WF#UNn]qQ;=r3urL0$rnk4Fy9tsECF,::ca`*UNwt_,Nav9EjlVxp^mttj?gTs
+G])c$Ut/s2FoUGM+5,If[;uH?hTs-3!*ucZ{:IQd_s?h ?XDEWZ_O,gY,7uYGg0qnt3Aen
+-2_(Hd/^e,XIFc26TkX>ij5*m8^Z!Xr:dC]vW&0XK5!ogPeOJCWj_,`6J1taUXBhm 85)c
+U>];PMH|,5]lPM"6,I_,`6uKgXTtHifj8vHlQ0X>Jw8^N|Vd.;io'H5jt;iw[ZF}G2Df0Z
+% Xn3S]Wo:it0OW`9RHlp'WFn4CG]8];PM"6rG-JN=8nHlp'WFn4CG]8];PM"6<Q8rHlQ0
+X>Jw8^N|Vd.;io'H5jt;iw[ZC?D3E0:K:.BGa<')8 ED*emCnDiMA5* ;GG(Dxh?]TA da
+fS\ebK4 Vnn0iqZHDsb!W)0%7NfM'-p#NnV J-p'O~h.jATvT<dnLB.3P p&tNs-7~QT3]
+qT:BmrTPQ5*aFoHlhbD::LsEH;Zujg5K(zfz,h]lPM"6k8_RpTuKgXTtpTfm\xifHlI(p'
+k%taX{3Tjs/HNHY/D\=d tnKf!E s*iw[ZmKnDiMA5* ;GG(pduKQRM;&"@6.<k2GYX)n.
+PZZBTp2miT5KDA2-<?Fs8nm+CHUp];T1J>lrl}CHUp];T13GWQip:uMK&"@6TTeO2k@A<M
+sECFQ?)?_HELT#3G_Q_^UHax*UEN)G'uQ;=r3uq[n(8dTOrn4-rn>7oGGjN1[;.6>w-?:)
+nXE2,A[fGk:ng&`3hXBie<+yI2("tRCkjz)ENS q.b6>ebUGM+5,2^j<^vf=qN@5(#EJGK
+D\aJVq5DG$_&52hZBi\z2%&M[VHcMC4]Boe<lZ)"J0DOW)ezGzn$j'9VtC?a[ZuHtce1UN
+WuJ1Z{ /5+@A<M-?:))CjsWFQ*TG.I=&N:nK5(3Lc.Q_O$!g=EL\U/$me@ap6S\%9;8$mr
+]is"TjE\0'nkHSa~+yOhI^jK@#]<;J7uMWRk_Ct9gEH/j oL82tRe!G"mcA-Gjeh0JsHZ6
+_"BsS@/Mcyh9pWiB5(I"AXqH$PI<e_TBc 2%t@h~7{tO:`iDFa`>`=XLkz%:iDFeh6/+nk
+HS!>okj)D+s!TjWuJ1Z{K:uHU03H\W:8 .nTunZ~eTTnCHeEl+ezT-,_IVl{%:<|3LY4?4
+TF\R*3NH!1GeCFRwX4]5;JI;L]*b/gbjjR`E*\;fNPHZUG:EGyC\iWmGg?3A:G+~_)t$'Z
+s*8}/y%W!@!|(A_4=YA_9";C:\Gy8q/^U<dZ>gTkX>%~?T(v?U\Ymsfl?iie-d_h6>%A's
+AEpDQc?=Q?dZFohBX=?LT"m`gO@nXVZ_O,gY,7uYGg0qnt3AiR-2^[\xdY>gTkX>%~?T(v
+?U\YHo\e8SUG4r9+K0fk.I=&N:C@gAn%2Nm 85)cfoCFD5VuGKD\aJA<pDn+H$QPg=:P+~
+AKu|50:GgA"Y3s_T]5;JI;L]*b/gbjjR-2^[,HS m`ZNOzovg91mV]#y5HF3@-WK+iq2[B
+P[;Ld[fo3Aenc(GzC\R}m`3G\~:E]@J5d:mD&DfF.mu|NTVxn.PZZBJ&EX\rhUsM[/JwgC
+D`_Q8W+~g@]TQ0/ul}]ZQ0V0WJhUhb5K(z1EP4iQN5pTfm\xf#cgfS\ebK4 Vnn0k3taru
+E3:K:.BGa<')8 H#J7ta,o1fN=pTuKgXTtDhh?]TQ0V0`2m,fKN4pTuKgXTtDhh?]TQ0V0
+9+N5pTfm\xf#cgfS\ebK4 Vnn0k3taRUorDq/HNHY/D\=d tnKE b!j@TvT<dnLB.3P p&
+tNs-Z!^M3X2CSH"O<G)iivrgp%=l\jmKnDiMA5* ;GG(pduKf_tL>p&Z<)i:[I!if`?U@+
+upC?;gBk*2Y2Tp+Vtm1bQ8J1_,nTHlI(p'k%taX{./?lH:upCks#d!q\iw8Wf3qZ,*:GZu
+Q>Ulj!o}]ZQ0V0m jGTvT<dnLB.3P uSjfD:]l%B@+N|Vd.;io'H5jt;iw0OBk*2tUX=r$
+?K."^^,..Xk2TPDiUp];T1Y:3I,Gq`\n:wih:(5/qTqY\n:wih:()cfsp#-J6e#!0+::mr
+Tid#fqk!1oFo8\tC8VN5[;t<,B0mqyWQt+NTVxn.PZ^nrEjZ=9\%9;8$UH4r]d4MalUIF|
+e 2%nzIRgRW)WTJ1jye<^BGXVElg`K0&jtnvi9L^7Nk(:Ih:j!U<g=N*i#v/:pQdrP ]tL
+ FP|q[,*O|m)/D'r#PZj##4)as)G'uQ;=r3u3=]dfu]p_[TC=:\%9;8$X=etc,>:Wz\zi|
+UA@u]W3aek0JXM/LdNGxUGmDJFe 2%iUk!\~C?FMsMjf8iAO?|s;h`o~Q|Q(@z,bEF^oUl
+WJpetjU/G])c(yt/ePFo*<mmj)e,I2RpkNkG1nFMsM@@=/OmE:t4D/Rwmi2XqH`#T4bC/5
+o:aE+h>,]htxM3,N/]jP?=]Xe>E2FtCFRwmi2XqH`WTRjEmiflp:i9L^LJ+FduJa@-9mE]
+-YV`gb@=2kE.TP?|q)Q\X^B\n_3He: y9]CV?rV;X0D)'dI&nFQST]Gtrp?z8}thQS?(=~
+$VN1Lm>b[+%xRM'7t&E_Rk&:sC8Ss~lB`:8`7Tl.@O+"VyS!98l'0g-a->^[,HS pSmFZN
+Ozov+}^TN*/^V]#yk&iGu((3DB_1,EjWM)`A_e7(7*>yOjHiJ.:cQP5+:GTNhJ7Unw&+Jl
+^~(HGJIfftQd)}et>gU<,"3IUW;>IL^50&;ed3+fgSWT-43|o<Iq7%9frl m+c>{:59UJX
+\)WXasE=sw4)LgEK?BA\%\&OR7be(v)?,[LeN|U/8|DWR2be(@R7besI?)(#X}m4%rntft
+QdU)G]4xV]]CXO-*;l@y2^Z_O,gY,7uYGg0qntsMWSpW^}:-qyf\4i#y<MeSGj\nK"ebV<
+j#hPi'6{3=(oqLTrG]C_A(+~3Q1snT@9eSW*@AUG`*^30&;eQ schkcHnFmrFx^W?;/]Ry
+dWM&ERZ9f'dC@:D/D5VuGKD\6?(A_42jkPnEftO"<+JJpACGsj!g($P-n%g9/eU<dZhyFb
+4x)`iZDIYPi~ixkb8F[:]Xgs_~EL:k\jNLFS)}iXVq)_J7T6C?::]ZoLbDT3u?po3P>y]O
+s1_]C`m_ Uu|,co<p]j#- ?lSn$KEe]gq>3821tIkJGz8^IDIds18lh[TT,ko<p]j#- ?l
+Sn"YEes}:)cYY2]XS+u1A{&YQP@3/"Fx]gm:eMp)q4 D]$tbcx35v O.FSU)-ya~qi:TR(
+AKHt`m5N9$0O_Ulb3P9HhBk&]p:!_YkQUqW\(B?jI$fqk!US4kfs]9:] #`TN|cr[42;m7
+'*Pm *WB0!t-.#R7FyOJ9>EN[nv)Ub7~`cucFx)g -v!^BoPa.F4Dj#%-~^zUl8S]hS+u1
+A{)ZqfN_8F&Am(>f9UJX9&dM)Zh. GP|q[H3#9jw^dc9+9RdPsheDaSuOfo}?PW?8!hv`[
+Bpf9E!D8o^+M3@asoM2@e&7rs*/gfj, 8jWjNB/@9$0ur(3bO~kQ0,4R(oGg0.el"3u1mr
+3O :ukZTdR;8#4=.2`onu.u>-6hy1ygotZ`El8gj<\oju,N@<V<?+x>;</U.<f\YqpmX;X
+YN9FYNgAYMbLY?<fW3<fCh<fe:,E5Dm_Q9rPCHIfe)itR_(F9M$>_YnR@)h::!L6:hMKQ-
+d7<Yo$\OX>=OcqlyTG!p3~0ss'9[us]kC/uS*gt3Ju;3kF>FD{21L5TQf(bG"0cBPb79Qx
+Zu[6fOtMtCO$Jld1@6db;'JSfstT!g9MU&uV,]7;$u]bs><'\PUsdJ4Xi~ciJW95V dD#%
+^ls>O$Jl3`AF+59)HB`jdEcq_eODLu..k4a<uAQ(E;]X?{*l5Os|Y?*#0Z;<r5RY&v3X[7
+fOtMT#W\(73vO~*&4@(B<,D{2MVU/f71/y%W!@!|Xq8s:IGy4pDkHeP*meIq7%o\pli9L^
+LJ+Fdu,8?GW[m1c^P(BE&1%?M[0tQ$GG *GS]XU&ZTiwA_8AVguX'!Z7XWP=r3'ruZR,p!
+u,uGWQrs#PRz3utw9<NV)kE/pGX/Bj5RIveN:)@vGN-(e>?.#L@T+dZ[oDa_@0/b_esiTf
+T3\HMUJ}BjBC`]\miw8nr P;3p0|PDSJqo^EgXn=O$Pv^40&;eQ schkcHXp8s:IGy4pDk
+HeP*meIq7%o\@x,bu6H(+S[.ih-d7dDFU&^xQ^7s^\=V]-+>Cfa0pTH7M8k1utUfrq$+uJ
+WDi~*`6A&pq.X/Bj5RIVV"^}q9X/DPmLd{R2hd$HE[5_&}(c*f6A&p;8_-`N7=o6Cb9UJX
+\)QRgeTA2VFE-rK{Ns^"Zx#~JMYF Vre7v^xivI[K4u}i~Dz-p7v^S.1+1L6cAPb79t{.#
+>8:y@#r$<'t>4PO;u2Ts`g6'A`8AVguX'!Z7XW0!t-.#gl1_bhucP*kQjrbcv)W*@AGN]X
++x@%gL%!SHXht59<NV)khfnBuAOVcr[42;rFABmyQ*LC8)!$n|Dz-(e>?.#L@Tqc<I4um1
+Hcjjd,#Zk`;^<z$@soTfT3n|4tIteN:)tM+zjWDzu0?oC:u7*:"(O+O)b&a 6$ntftQd)}
+et>gU<,"3IUW;>3v43]IV:kj8F15#&'}Y"hh@V0|ufuYW;)Ei"ar9Et6p17'17@R#R9#`*
+0:K1GT]XU&>XD{8JA_8AVguX'!Z7XWUSbY39i#dbi8.}-nG1@8Vire\{_lChf_s+JUJc#/
+;DauT3Tvv+l@,o,IQ(IaYMbL39s-JUibYK'1mBiqt#&KXwgqfl8S8o1?iXbfBN-*BHAwWz
+9e!FOiG[2M<;gFqZ9<NV)khfnBuArY_s27f_s+JUJc#/;DauT3Tvv+Dx/Ld"bs@6dbA_8A
+VguX'!Z7XW1snT^Bb3X+<f27f_@6dbRl<fsh7{s.JU70YF]'rCflQ>e 1L0a>1NESdi.-}
+;~KL+yjWe;gfGFu'&>VhMU213Xv!_hEL:k1_uK@2*`6A&pq.X/Bj5RXM/LdNbs@6dbA_8A
+VguX'!Z7XW)+nT^Bb3W2<f4yf_@6dbC_<fVk)_ivt#&KXsgqfl8STy2V>i(;SfTISKQJS@
+0b%Z2ZUGD~m 5;,Z; B2!Rovc}RMrJMZX[tscx35a+t[cx35!(`'mq-$lw!ibAm$hdNrTp
+)J?rIteN:)Q''*&bQP@3DWtL+zjWt*_`fTfjhJ7Unw&+Jl^~(HGJnU8qP*n%ZN:]&!)dev
+Xi)zdk,B*^%!Ajrpt_B$.^n_% A"Y4RG+VPI+0NSsa<'\PUs/EuK@2*`6A&pq.X/Bj5RXm
+p!u,uG&>VhMU213Xv!bK9`8r+y>g<fe:dbSb:"YNi?t#&KXwgqfl8Ss~:v:wcj.}-nG1@8
+Viregfa|@6dbA_8AVguX'!Z7XW*LuK@2*`6A&pq.X/Bj5Rh}8hcj,9*HYNB\mL9pW3<foj
+u,N@<ICxnQWDI~XVXVm RY&v3X[7fOtMn}AJ0+BA[zW;fNJkN[h6<;(yJe0)PK+0NSsa<'
+\PUsDNWOm &,T#<f\Iqp,w<&YNs JUb;Y?]'rC;a:cRwmiZa!epzu$i*]/#q,ZJ0l'p$Z1
+07v!WDj?n=O$Pv^40&;eQ schkcHXp8s:IGy4pDkHeP*meIq7%o\@x,bu6H(+S[.ih-d?"
+9bH'*BY4>sEJT;A_9";CXzilt#16,T[zW;fNJkN[h6gFc9t4Q\FKSKXL9Kr =@ rsXu\DT
+>W^UDzoB*Dn1:)(ZCw03v!WDj?n=O$fLn=AB` Nvt_,N'|MvKjL)O;U/n"CGjqg:P&ovDL
+b07~bv)W>df8Et,3t&[5O,#5On78G0XDh>TA*&4@u*Q(b2Q OergMiRk_CiglM,Wj'W|+b
+\Xsr0sH2UGWJHe:I3n\z[^%~)h(yo2m<qPAhpD4X8_qLTrG]C_A(+~3Q1s>T[rh2>],Wi@
+=R@A"g!mStbC?ERA\QsWrljd>F^Ct]#hSZbCPv8SD/m" f,TKF:)H>E{(ZDNnP?~F6Gh&V
+<=$Vh`RN&J`"ekIBk<@XEBZ>Z_O,gY;naGjR`% I7VQh?=TPprG28_b].%`@H0I;sj!g($
+%"Gx+D?\M{k!7|G#%~?Tb0/mt 9WI;itn\Jc0)nyDq,gfsYVbPJ?QB<67aXp8sU2os4XW>
+6m)}Z<,#H>Cgl3h+>]ie-d4]B'O3?YTPprG2nUb[.%`@H0\nIt sO--;H=EV`jfU%bS fi
+mHC3?\b0Ry;>mHoWa^pb,C>gH#endb>-]Op&I;pBGQZ_O,gY;naGjRfoftQd4.iMfG4._c
+;>&!)h4euklF`:8`.++pgSlI'"@04(en`% I7VQh?STPprG2Y O&<+JJpAC3)`j|MRo7Fc
+4x)`iZ7|p\]?grqZ,*:G1K@ArCl#VD>",]W-[ UDqd828sjy[ UDd[*UZ']5;J3e]IV:O;
+U/Z>m<PEQgrPrW/mJ9_]?jCB6}+F*'Z<,#3Q\~[^Gn0.J9Tr-3 ]uc[ \km`4XS"5, /uk
+>XYh2%TC@>QjK%G!WM/,"W<XZ85Or+si7{U`-%iPc\or;HOz5+:+\jQ$k!IKf_-Gcy"3gc
+u_O$JlYFv47vTriv:0qSPDfb-+WQD=QX4D&U_lQ/WMD=::]ZEV9XU=Q/iP721do~iu*2Bo
+]X&38*TOh\fm1c$SY12Mp.#2r+fLoICFS|G~#)W0:7oICFS|G~DzZ>iv &Y1u*$)21gdd!
+]4oj?v;/au.M%BaUck6i)}j|CDPmiPfGA[]$c5m$hdo#v5K"[xMX`IiS;Al@cXckorrB8F
+.yhGUN>zm DqPbJ1P42h,}8UJ5PbELZ<5,RdQe4Dk%_cQ/WMUGd!2)js7qCAL_I%C6ro\m
+osL_njHk_s1Z-6Hi_sI2,)8e!f.<k2:yZXqZ2HcL5(8*TOQYWE5*cL2eh9*U9B8r*2ER?q
+8W;fenusc8)wu;CM72N_+b,OICls+D[h>zIPEW&3cL5(8*TOQY&4n Vch]fmrDDqei+/\k
+8oJ9/3W`::mrv1`)8mhFqWT<lpTMo7PE,`Ublp*SW0:78l#*W0:7oICF.7iFI|Q\6>rP4E
+k%SwQe4D&U_lQ/WMD3Hk#)W0:7oICF.7I&hg_"SAYwDx79?dO@4F$~G 1YJ  +<,^Iq)[4
+YBu'hg+ycyGxDz2Mn q>Ox5+:+\jQ$iPVq)_J7T6C?+r_lrwW):oQ]$GY1J&upeilG)\J7
+T6C?T;)?n iuDzHk82CA&UBo2Mn Vch]fmEg3=]\d#or;HOz5+:+\jQ$J1P42hGxDzE?*2
+Bo]X)6W0:7oICF2sTiixWV]r?w\jNLFSU)lyTMo7PEG[DzP42h[$WF\QTA)?'Y5U<6]hq>
+380!t-ncpDv5v5X>C\TTTSm` Tuc:Gg:  uc2qELh:Qj2IcLorfs*U9BkU:v3meR_R8n-+
+tC\dk)/3KTv)_R8n-+\kQ/k)/3en_R8nU=NE?u8Wfq"5Eev43Jq`-'Hi_sI2,)8ejyP4kQ
+v2Z~Q>czZ=WF2i9BgA4PD=L_njHk_s1ZKT5HW04QD=m q^:6CA,)WQ$K  t,v5Fu>F:aig
+Hl4GtNI1Q`WMeEEdh:Fom+:/qS:6rf82QK2t5TD=L_fb-+ro\m4Xq`-'TMnjfIIc\o4X -
+mmK*g:1meEeDFo :u|X>C\  u|TS-@Ds_QU>&$_l8ofq-@DsPbJ1P42h,}EjK)hZ#)r+fL
+oICFI2TnczkNv2Z~Q>cz2eW0PEQYPnX? !2rv5EdUC]9qZHnrfrC-+8ecR$Gt,d#T?lps$
+nTPE,`C`UC]9qZHn-+\k&$;hmm2qW04QD=L_njHk_s1Z:c #t,kJ4PD=L_I%C6ro\m4Xq`
+-'TMI%4GtN1YKTv)_R8n-+tC\dk)/3:c6i >u|HoQ^4D,)\kNEnTTM3O -mmK*g:1meEeD
+Fo :u|X>C\  K+d7@#r$Q\eRHr9UJX\)eMpD`_8n'em(2&j|VqTj7mIC4G-'hy:EJ5IKf_
+#)W0:7Ic\oosnQWDCH763@-'L]fb82Ic\o)mYbA03B-'Hi_sI2,)8eoth{7{,GIKf_#)W0
+PEsGCIiRfm,GP42h[$WFCH763@-'TMfb82oICF.7rGZVQ>,cT6C?N}FUrf4E:L[]Ox]s/7
+>Ecb9|5/&Sm(T<lp*SW0:78l)nYb&58*TOh\fmG9_Q%jm(IQItW)PEQ-&4:+\jbYFdrf\m
+os2E:+\j6?_]\etR>F9+RqDLW)/LS)Z=WFnSHl6ArP4Ek%SwQeDLW)/LS)Z=WFCH,KT6C?
+N}F`rf4EWQL_I%C6ro\mR68VRpDLW)/Ld"h9qX3[b+39k%\~C?,)1`t]:.Q]DgPbJ1P42h
+,}G<PbiPWR5,RdEY+x\kqZ7-Q]orq>Ox5+8*8r26f_'ed_h9fm\niX26f_#)r+fLoICF.7
+UbA%)\ER>O\jQ/SzQe/KHi82CA&Ufs+Tcys$h~Oz5+RdJ>N FS_sChf_82CA:LqS:6rf82
+QK#Mu1hGci&A:+\jbY3:tN*2-6hy7{>yRfZ=l{,}UbNDFS:.qSPDfb-+WQP"g{#*r+fLoI
+CF3\jsN FS_sChf_82CA:L[]Ox]s?w\jQ/WMgD[aOx8n*2ER?q8W;fk4N FS_srwW)PE,`
+,I9HU=Q/iP72G:N FS_srwW)PE,`UbA%)\ER:k\jQ/fm6?CAQ`tR>F9+\kqZh~X<%z_lbY
+3:O\rfHnN4?w>L&cd_2CcL2eh9TO,`*Wh98SfqNLFU:.#%g@V]sHCI3\=/bAFd:.qS:6rf
+82QKiS[bOx8nrvW)&3XJ7&p[fs\n7&EPPbELZ<5,RdJ>UWC?m q^PDo7PE,`<Qr,WMNCFS
+OcI%+Vcys$si7{*U,%O|nT+/\k8oJ9/3t]+/tC*2ER9{8rRpDLW)/Ld"h9qX3[b+39k%IK
+f_82QK:pb=39-'Hi-+IC,)8eJ/+Vcys$Xn7|*UW03\js7q9w[]Ox]s?w\jQ/WMQnDLW)/L
+d"h9qX3[cL2eh9*U9B-wr"7.,GT6C?N}FUrf4EP"fbRpDLW)/LdNh9qXQY&4XJl{s$fLR6
+&4:+\jbYFdrf\mJ.fqb<397qCA9H26f_'emBo7Hk8lW*3\cL2eh9*U9B5/jsN FS_s4yf_
+828VN5-%iPVq)_J7P4CI\{DMW)&3XJl{s$fLR6&48*TOh\fmrD/K>wc^8k26f_'emBo7Hk
+8l-Hhy7{>yQmZ=l{G8PbJ1P42h,}G<N FS_srwW)PE,`UbEIb+39k%UWC?,)WF7*Q]or;H
+Oz5+8*\oiX26f_#)g@qXIQC69+#*r+fLoICFt=WMNCFSOcI%+Vcys$si7{*U,%O|nT+/\k
+8oJ9/3P98n'em,2&8*>yQ]h;\dcz8kCgC\:oRfDgPbEL8*TOQYPFfbV\iRq8Ox8nCgf_#)
+g@qXIQC6s%4E-'Hi-+\k&$;ht]26f_N4lp*SW0:78lV]:oRfDgPbEL8**U,}Ub-EiPHl4G
+,)\k&$;hW`K+d7RO&JoaA-+,]/;JUoPMd7E8jIH>HrSlTps0g U`q4%:<,D/:_:1?j?>dr
+qu24dY;8#4Rc5,>kcv>:WY[ (7>9oH*MBWHz7-dMU`4rO;K j<*2+5+6^i@<tRA)SY rQ(
+qgs.dLU`OzAza_GM*#0ZfGhZDk1<4MHsG$qgc=Y@AzZ8rnk4h+8w&T'''9cu9Z<~tRA)SY
+j|>FHs9UJX\)Ct*R0_7T*OnC<L=]OScr[4-vTii|.z9$TCU&Ed4S4[oO0,mtng@AuAm [A
+!xb]\u,5W{o?EC7t>X,et+,5fJ,At/hkMrCTaZBK[cAj?%Uw.g,uImUBre`Ba2Q+bUh\*l
+F2YtN6@.#O'z }OhRF.i,u(L_4WSRyWJa^Y/]XO.t_,Nav9Ed&Xp8s:IGy*2MZH<>FA(+~
+3}IKBnZ_O,gY\=#(AFpD4X8_+F$sh9+F)ve6sdN*[x':s*8}MWRkQu;LQhTros4D6}+F\k
+[^%~)h(yf)dC'L+Mt_WYiHV5S!rEFb\nhspD:i>'(#u:unGGnU8q$~W0Pm%#o8DL7%8%P<
+Hed.`:nVs"X_8s:IGyU=VYH=>FA(+~3QIKc/;ns)8}\[65:WG!\nqT%aMZfbb07}G#Cg5a
+DCRwmi2X^Ue>E2Nr"fGai{)>6lSDcE\HhcNS21#`u.3V1LD}s*oZ/I7RT[6uIPTGjEmi2X
+Q(F\E.0LQLJZ4$CG@/]<;JOI"ftFm<Nit_,N'|MvKj6S1LH2[4)})GNQHZUG:EGy8q?\cQ
+dWfG3A_c$oo86hCA)`Z<d[hyFb4x)`iZ7|p\]?JA-C[jOx8nCGZWPifm:!hJrI0$o8ny.7
+F3@-WK+iq2[BC.7ftQTrn"CGY 6m)goqrB8FMXfbM{k!hyN*O~owoW_p?*(#X}W^LX^orE
+,H-:H=\dfi+FICl3+~3}IKfrd7'>s*8}/y%W!@M(Bxe9I23AiR-2H=+D/^6}mHrB3AZ>$o
+W0Fc\d/mA(dWsdFbCg)`_phss1UNb^39-'WH5*Q>XL8g@+:dCMD5VurV#%5F?OIQt:WS-4
+3|_hqT%aMZH<>FlsGx\dP.meIq7%8%P<?\ie-d4]B'O33Ienfo;iM\3{_cVYH=4xV],"c9
+hF:`s,@-rFt[r58q:IGyI;ls+D$~pY\lcQorC3*'e6sdN*P**BrEqebOJ?QBO)b&a VD(e
+_4WSRyWJFcI;)`n 6h?S8FS"fimG4D/i6}p[+}^TN*/^V]dZhyM(ERoncp_RSwnRk4X{fz
+hJ7Unw-v@cpDn+4XIfQ?Qg4.iMnO%b_lq4%~)~4ed:r37v>X,e^Ue>E2Ft)<+dnoU#H$MJ
+;8W{0pojGel=:)6Mu{eU9w2si5i.uyeUmk2X^Ue>E2m1j?\=#("_6ms%rpt_WY8Q^n<d;Y
+$uNwt_,N'|MvKj6S1LH2[4U)tA,]V;N6nUmFCGTkj~MR^Z%aS fimH\l3AP4dZfG_9N*/\
+l3dWXiFcrv@nj%IPewfxB]Q]ZV;@j$Z&]5;JI;L]*b/g4hGJIfftsFjY-&H|nI*DM(I1n)
+3tiR`[Bpf9E!D8o^+Mp-ORWTk)GfT;m]W$IT'snPUbi'HiM{6l4.Z>qT3{>B8'Fr4xV],"
+c9sMH3#9jw^dc9+9,~I3OJ1n?k0ycdjR^gtAjF3y]f]&i|O;j|AG'vs*8}:d(QVw-;3PiR
+nw%bMZH<\dP.n&gOb0SQn"j)el%.o/m<SA8e5=*"\n[2ih-d7dgI0Y.co}Q|?s+/"`#yer
+jR-2^[,HS gZmH4D)`oq6h_9Pl/elsGx+DIC)`e67|G#%~?Tb0/mIUB},9I S%o7m`XR4Y
+gD\nCa4]EN-qo}Q|UI1#7Yk(:IG!\ngZ+F$~pYC3*'evXiN+[xNLFSZN]5;JI;L]*b/g4h
+GJ5DnU8q:TpZ4D6}+F*'h:Hi)}Z<,#3IUW;>&!A\s%d!q\ey0%nkfqS-Qkc!\/j'-df#"`
+4)enfo;iM\3OiMnOPm$zW0%b_l[^%~)hiZhy_"\m]<9KFtTGjEmi2X7IDF3pEhl=a_G'9;
+9cNo[$'PnaScN7L2,![6:CSL"lQE_}e>E2FtTG8S^IBE&1%?M[osoLs*8}Q$>^Ctej/d!G
+VbPBG1>Fie-d_h6>%A'sUO^oJU5:WM&jq6nZmF8dmHY%d[c\dWfG3A_c$oo86hCA)`Z<d[
+hyFb4x)`iZ7|p\]?JA-CN=8^WYe<tL8V@#r$<'.8mt(^G:_Qj_ (WB0!t-.#R7+~rpAB8o
+<PoKbe<*ie-d_h6>%A'sUO^orEuQH3#9jw^dc9+9N`J9*8`6^}:-qyf\4i#yrCe{Gj\nK"
+ebV<j#hPi'6{q;ezbssMH3#9jw^dc9+9j|fd:RpZ@=\SC,2P]7GnPqIsG$A[tq4)LgEK?B
+A\%\ENrQ$|G \dfi+F)v8*+FICA(+~3Q\~[^Gn(&tSc_7C)xb,5i(%`3t<rNe]]|01Yy o
++cIveN:)Y"TpO=qZH3#9jw^dc9+9,~iS[luSU/6C]pZk[xMx]q3bg=jZ.f,u(LI^3R]fU^
+P#pepG&R_YG4P=6S_cP=3Qi&D}QgTB3}=zJiebV<j#hPi'6{j$Xvg=U&B]Q}AWp\hJ7Unw
+-v@cpDn+4Xtq4)LgEK?BA\%\EN4S-9o8[6iD1U)8if_"8HtcAIY `7^}:-qyf\4i#yrC:p
+o^C3W>6mrfb07~G{rvWOu|m{ng@A=/JXS1r%rNTTEd4S4[O/`U4&]IV:kj8Fk%Ja@-1e#&
+Wm>NG O$ AXkW3)k'Ys*8}/y%W!@M(Bxe9g dWQJdZ;tS"Q$RyVYFcI1)`h:MRfb3A>BS"
+[^mFIq3A\~Ozk#DItcZFb=m$hdR&TjB]t S+u1A{)Z>HE3[n8S8lrP4Y9VtNI;'Ys*8}/y
+%W!@M(BxeyI2Q?Qg4.eifG8FM\G[*2MZo7N+O|n&gOb0i'b]J?QB<67aC;QdTrosrVM{6l
+4.>B8'G#CgA(9h5/t!S+u1A{)Z>HE3[n"}Nn>2S}tR[kb=m$`$mqX/1ero.'FME3[n8SoM
+2@e&7rs*/gfj8|MRU&oU?e0ycdT<G:rMQ*GjE7CvFM(@R7be/mo}Q|UI1#7YTon"CGY 6m
+)}j|fG4.UW;>&!A\D3Qz$n_"F/@-WK+iq2[BC.7fTsn"@=\SC,2P]7GnPqeOazQ?sIjY-&
+H|nI*DM(.67~3v_hK"ebV<j#hPi'6{3=4[6l)goqrB8FMXfbM{k!hyN*O~owoW8iudFxTr
+KIJ}oIr%rN[;eOudmrng2skJI'I7((JuH-D\6?a@Pm_suD`:CK&,dP>RG O$ AXkW3)k'Y
+s*8}/y%W!@M(BxpD@23|2n&lq6nZmF8dmHY%d[c\dWfG3A_c$oo86hCA)`Z<d[hyFb4x)`
+iZ7|p\]?JAh>l9FQDB9#eP1>J 9UJX\)$l/4]di",9,Fjy$>,%gDtPUG,jJ74]Nwt_,N'|
+MvKj6S1LhRn%4X8_8s*'n C3W>6m3mP46lrfb07}G#CgA(o^lI`:8`.++pgSWT-43|_hVY
+Pm%#h9&!)hiZhyQT:p5 ,j`G>$MQRdi|o[ f+cR_X*5,o[q7380!t-.#9~J9d2Tei|o[Q7
+^}:-qyf\4i#y1b;l@yXD_ =N9k0xH2E75(FM:RD~oy$lVyFZi!b]J?QB<67aXp8s:IGyI;
+6}+F*'Z<,#3Q\~[^ryRhY!0LTJhJ7Unw&+Jl^~s#gSpe8qjyGfT;m]W$IT'sXzTpoVCGv%
+U/6C]pZk[xMxFZ1_QgIchgDaSuOfo}?PW?FxA[ls+D$~pY\lcQorC3*'e6sdN*P**BrE0,
+mtng2sXW5,el%.YYu1@<UC*=r"p/n!"V[khf/Ye>E2FtTGjEf>,s#}27Gl/"k]QfZulGFQ
+DB.(;~KLfpQhB>,=heS;(@f(,Yb]m$hdX<9e!F&(ENFtTGjEmifl/YOh[;BDa%^[`.P)0l
+goBh<{^H4QPx-*e0<\p#7td>0MQLJZ4$CG@/]<;JOIsWQ\gV.m/vo}Q|?s+/"`#yerjR`E
+GyY/q.(CQ{\Tn"\Nos\Nj~BgeiMR_'Pl/mW>dYHi?SM{k!7|Fr%~?>7%S [^#zZu><mr_x
+5YRFpc@?R7e`&ig`,cq`P4X~lps$nTPE,`Y6J&?2EZ8AEP_pC?&cm(QYpf?hOQfbTxlps$
+nTPE,`Lafb'emBo7h{7{rEFZp.-hO9>02>B]s=K~fL#sfgv55DDkgF]To:it<72GeEQP*a
+FoCGIdIf?Ck&6)iXZHDsW6J4TTTS]PCbC~eE&EjsWFQ*njitrgp%8u8_up[/hUhbsIJh1u
+W_9RCGUp];ifPKQEuK>wgZR2caa< (tTX=r$k8;CQ}A:i?<#Ul1SM>"mugEdiWXVDsh?]T
+XODnTT,k5Dm_fnsIsM^f_uL3Q;VqC6NaH!7Gf+5&]l%B4/7NfM'-p#NnV DgIdfr]Po:it
+Xw*TmmcrPK3G\n:wihZHDs[*P?H|iRXVDss*,*,Ita`3?U@+k&togX4Tta]P"7u1PuuQS{
+cf`3?U@+k&G:\n:wihZHDsp_85L6S}7.]Onmit_t8WW*Q>uK>wgZR2Q?J1\n:wiho}858b
+N|Vd.;io'H5jiP5KD3p\'c74<W]I.qKU\jJwhbD:DAId5D;gP9*&!M[;10X8r$ m+cZWAs
+RWP(CIFMtR8hHldO,=h]3:J9rV$PuhY#H$V4Gomq%:1d^MQ*rV-G["tC8V8_[%FUtRCkZj
+]5;J3e]IV:O;rlrW-G[":IG!\nmDrn+D$sGx*28%Fr4xV]h. GP|2p/k,@[fGk]qtSGCJ9
+Tn?sm,rntm@6_^_zCa-%l}85)cQ:5+I"gDpG:onQmAFN[6tC_yCaR6/u3Jj<oM`3[)T#4r
+:L@2R7e`&iF_8\tN8Vcj;R(<\AD\$Z4)uLn(I]gDZJ]5;J3e]IV:O;rls0U`GeJ9Tnn"CG
+9V_|tcezjeU`MS3O>BM\G[26l3+~c9sM&s7\/(T:6seb`M3Q?|1pq}R&J?fwon;*`7JegD
+pG:oQdTrZ>Y(sJ`MI'I`gDPlMTo7PmP&meIqb0SQEY@ArCl#VD>",]W-?|4SjQ*U-:o8Tg
+5,H7J9_]_zfd4Lal`T.8U,-T){I"a~HlsMWbi{LESU3GG9J9rfQ.Q?W&0XBLi:)5H2tbez
+s<XR>_D5VuGKD\6?(AoDp+5,oLtR3G:c^}5,:I[%FUtRJF[6jy?|1poLtR3{iMfG4._c;>
+&!)h4e`6W&0XBLi:*VH2tbezs<XRT5W^o{Q|C!LKrls0U`GeJ9TnXLjYU`-4h]3:J9`>he
+pW[)T#GeJ9)}oqC3*'j|XiN+O~*BrEkGroG Tnos3@J9TT_>5,:TQd_smrezjeU` 'rEK'
+[6:IQdoITg5,eEjiU`X>8qroeNU`E\rq`a4XdcoHg:,H -m8okFZlJ`:8`7Tl.@Of=OM?Y
+R`?=R`?SR`_9OK^Z%aS fimH\l3AP4dZfG_9N*/\l3dWXiFcrv@nh#Y`4PS*MmF\uSYxFZ
+I$+[tGm#U>fbR64Dk%_cQ/WMR9EXYk/MCD/LS)Z=A0)\fs4r9RQ%SzQe4Dk%_cQ/WMPbiP
+Vq)_J7T6C?UGeOJA7:;LG'8=GM*#0ZfGeOj#cAY@,"l}85)cU>];>[ihUSQeuQ[/hUhbsI
+hb5K(zfz,h_QrQp%tNs-fmqZh>]TQ0V0s%+Ttm1bQ8J1_,`6_unUcOSVpTJ1_,`6_u`7uK
+gXTt:^,K5DDA]8];PMdXfS\ebK4 Vnn0k3tNs-oVcp:uihZHDs,+FcG2Df0Z% Xn3SsM`3
+?U@+k&@+up8he*+Vtm@)Zu[0Jwe)2CjstNs-;b<?`:Ho\eqZgE]To:it8Wg:,GD3DA*e$M
+nXHlQ07}]Oo:itQlM;Q-C?m XUDsh?]Th_]TQ0V0m o|cp:uihZHDs,+O|mCnDiMA5* ;G
+G(EYJ7taRUZ=iXHlnmitrgp%WFE0:K:.BGa<')8 JihbD:DAIdDA*e]spTJ1_,`6uK1biP
+>p&Z<)i:[I!if`Ul];>[ih?}ihMk7|U`8nJhhbD:DA*eR{VqC6NaH!7Gf+`1rgp%hwHlnm
+m XUDsh?]TQ0^L3X2CSH"O<G)itq@)Zu[0p][0JwWO9HJhhbD:DA*eFo/C7NfM'-p#NnV 
+J-o:it)hZ'Q@Ul];>[ih86)cdQfS\ebK4 Vnn0k3tCH"J7IVJ9taW*8i.=mtta`3?UYL3Q
+_Q8W+~g@]T-DifUS3TU>j!86L6:psECFiWk)cO>!k&6)cjH;upCk:Jj<TvT<dnLB.3P p&
+[xF}G2Df0Z% Xn3Sn(]ZA `2m,:/sECFiWk)cOcf]N_uL3Q?pWuKgXTtQ5'c74<W]I.qKU
+\jp]_p>q&Z<)i:[I!if`pWuKQR7}4/7NfM'-p#NnV DgId(o4/7NfM'-p#NnV J-ECUpOR
+I23=JqECUpj!o}]Zn%m`qYjf5K(zH|,55DDA]8];PMQejfD:]l_|j!86L6iSN5HiQUI%p'
+WFn4Hl-Gtm@)Zu[0Jw?CN|Vd.;io'H5jt;jf5KEQjstCH"J7tanQ>p&Z<)i:[I!if`j!o}
+]ZsJiw0OW`9RHlnmitrgp%WFf_ciE s*iwIdp'WFX^J>q`C5m XUDsh?]TQ0X>8oEC]8j!
+k)E ,+6+TyHi37-'r+iw8Wf3V_:osE`3?U@+upS{Dg/HNHY/D\=d tnKH;upm=IQT?pTJ1
+_,`6uKG8/HNHY/D\=d tnKE s*iwIdp'=l,K5DDA]8];PM3GRlVqC6NaH!7Gf+`1H#p]_u
+H?upm=o72EjstCH"J7tanQ>p&Z<)i:[I!if`pWuKT5eiQLUl];>[ih86mGnDiMA5* ;GG(
+pd?U_:p]jg5Kfr,c5DDA]8];PM3GRlVqC6NaH!7Gf+5&]lf#bs-Gtm@)Zu[0Jwe)]N'c74
+<W]I.qKUr@]ZITp'_|s.7~QT<ZeSpUlL7(sECF,:tCH"J7IVJ9tanQcOSVeiE ,+6+cj:u
+ihZHDs[*Ds,+6+e*q\gE]To:it8WsN/stm@)Zu[0Jwe)2CjsWFQ*njitrgp%rop%WF+>,;
+iPHlEC*e$M8rJhhbD:DAIdDA*e$M8rrPqZgE]To:it8WjATvT<dnLB.3P I'p'hwQLUl];
+>[ih86mGnDiMA5* ;GG(pdJ1_,`6_u`7uKQRF\eS9WmrEh3=-,.nj|8bA7oXQY,"["SBQ5
+]48TI;Qnh[;bh7n^RAE/%,AkFMtR8hS&)d;dJ9r$XRP?QerV-G["WFn4?)(#X}BE&1bl?G
+;zJ9r$n(4X8_>y?m)hn C3lsGx26l3+~AK&c'GJsp38z'9A,I0[6:Ih_e,nw:o?m_^tcez
+jeU`DJ8JJhe),=o8Tg5,oLtRQ%>L,:uLXRjYU`;aqzTFcf`Mnls>XRk4nQsw;pp)62/ Q8
+Z>P?Qe)ENS q.b6>eb`M3Q?|1p.Zo}Q|$x/B-VVyJ8uLXRjYU`-33P>G;zp_Jer/sAXR+D
+$sh9+F)ve6sdN*0mk4`bnPap6S\%9;8$_zI'^l5,:Th:3:J9pNtRI%I`W4HyMCJs<Q4";*
+3wr$MgqZpd90]b"U0uFonRtRo7,',I7vA2 4#`;-F}[6:Ih_$KNit_,Nav9Ed&Xpk6`Mnl
+s>XR8qtC_yI';iJ9r$n(j'J9pNtRnbs>82+F$~h9+F*'iZsdN*0menjiU`X?8qk%r$"\t,
+I`W41n8_>y?m_^_zI'00en]|tS1mY 5,I"!>u1_zCaT"gZU`_[I's2*U9Yr,Tk5,e,fo[;
+eOKD=[cq!N'7+q:;GbeClz6'2Gt[;pp)62o`>$Cp_u8S^IBE&1%?M[osoLs*8}Q$Jj;h>Q
+I"D5VurV#%5F?OIQnt3AI43Afq3AnyFcqWFb\d$opY6h^xPliPMRo7Fc26)`ev7|G{%~_:
+p U_F[jH k>Bt-v,RAE/%,Ak,VQ`>E8WETRdH|1Z8*&yY1Tpd#T?[;I1,WNg[`9|P*[W\U
+9_YxFZI$+[Q,RU,Ch]3:IfTxU9@usMRAE/%,Ak8_>yhvN[t_,Nav9Ed&Xpto8q:Ih:g^k6
+6i)gZ<6m3mT6q4%~A\&c'GJsp38z'9A,I0f!D}-:IReP]x_^>mQTuQS{cf`3os3@I;MCU^
+uSY#H$V4Gotbk4= ie-d)r>d;-7]k(:IgAj!:T[%FUHB:uUTVY%b_lfi&!)~evhy3vkJG%
+Tnos3@eE]|U*-3IReP]x ?fr`STp-3!*.FBi[8QM"}.N7c?!hW2kQ,Cj1DO`Y:gQ+ym:SA
+8e5=*"\n[2ih-d7dtvcxge.m/vo}Q|?s+/"`#yerjR`EGyY/q.(CQ{\Tn"\Nos\Nj~Bgei
+MR_'Pl/mW>dYHi?SM{k!7|Fr%~?>7%S [^#zZuY74PS*MmF\uS=BXm7|>yQ]orFZp.-hO9
+>02>B]s=K~fL#sfgv55DDkgF]To:it<72GeEQP*aFoCGIdIf?Ck&6)iXZHDsW6J4TTTS]P
+CbC~eE&EjsWFQ*njitrgp%8u8_up[/hUhbsIJh1uW_9RCGUp];ifPKQEuK>wgZR2caa< (
+tTX=r$k8;CQ}A:i?<#Ul1SM>"mugEdiWXVDsh?]TXODnTT,k5Dm_fnsIsM^f_uL3Q;VqC6
+NaH!7Gf+5&]l%B4/7NfM'-p#NnV DgIdfr]Po:itXw*TmmcrPK3G\n:wihZHDs[*P?H|iR
+XVDss*,*,Ita`3?U@+k&togX4Tta]P"7u1PuuQS{cf`3?U@+k&G:\n:wihZHDsp_85L6S}
+7.]Onmit_t8WW*Q>uK>wgZR2Q?J1\n:wiho}858bN|Vd.;io'H5jiP5KD3p\'c74<W]I.q
+KU\jJwhbD:DAId5D;gP9*&!M[;! <X`.qZRhWJ8e6)e*E0,:>G*I=Fie-d)r>d;-7]tQ\n
+rEWS%#G \d%#o8DLb07~P<:o=]R6qY,*O|:^m,rn@),~\y8Tmq:oEDrq<M_Ymi+S["tCtb
+:o*Is<F!;2Z,&>;VI"G$tbezs<n(ngtR3{iRFatRJF[6jy?|4SH7J90d`)Vg-ebU\HXeQ,
+h[mt@6[ZhJ7Unwi9L^0bhR3:J9HB[6:IgApGezQdoIs>82+F$~h9+F*'iZsdN*[xJH7:;L
+NtB[;:,#["eT`M@~R0]/;JUo%BhR3:J9HB[6:IgApGezQdoIs>82+F$~h9+F*'iZsdN*0m
+enFetR1m8_Eh`^heX?8qk%r$"\t,I`r/1m8_>y?m_^tc%:r"sB82C^Q?]s_[I's2U`_65,
+ /d:iBm6b^J?QBO)b&a VD(e_4/+^[/+_(/+H=(aG +D/iW>d[CDFc*2S VYH=%~?:b0Ry
+;>mHoWa^Yo.=el,iVVTiJy<uChf_'em(3{TiQ`mi-hO9Uw6!Y+3~-8Gm t.b6>*w&pX{5+
+qTjrtaRU7.sE`3uK@)ZuE"*2gXVV0X5'1NP4jf5K]lifE P?I22pP41m(obbdbWDTitcNT
+Vxn.PZnz4&A5VXTi]pPM<K8%cePK3G4FDA]8];4q-6tm@)Zu[0p][0Jw1uW_9RHlnmitrg
+p%WFm ZGDs,+6+ot7*sECF,:tCH"J7IVfuPi0wjstCH"J7IVJ9taX{3TU>8vJhhbD:DA*e
+R{VqC6NaH!7Gf+`1rgp%hwQLUl];>[ih86mGnDiMA5* ;GG(pdJ1_,`6_u`7uKQRS}7.sE
+`3?U@+upS{Dg_Qrgp%WFX^J>q`C5m XUDsh?]TQ0X>8ohFhb5K(zfzqZ,*O|Dhh?]T-D$A
+,%f_ci:uihZHDs[*Ds,+6+cjidQLUl];>[ih86)cdQfS\ebK4 Vnn0k3tNs-.u>E\{qZgE
+]To:it8WjATvT<dnLB.3P uS[/hUhbsIhb5KEQjstCH"J7taCF\j]b-5X2\>@]#TW+5DDA
+]8];_|];%BOz5+Q^uQ[/hUhb5K/a7NfM'-p#NnV J-o:it[ZqZgEcj:uihZHDs,+FcG2Df
+0Z% Xn3SsM`3?U@+k&@+up8hRquQ[/hUhb5Km_>fN|Vd.;io'H5jt;h>]T3R=w,K5DDA]8
+];PM3GRlVqC6NaH!7Gf+`1rQp%tNs-tRs-7~QT<ZeSs.J1_,<bG$HlQ07}XJDs:i]74qG*
+4F]lPM"6UbpTfm\x_|Pi\#_uL3Q?pWuKgXTt^B3X2CSH"O<G)iivA\m|nDiMA5* ;GG(ey
+E b!J.d#T?pTfm\x_|PiQ8DgIV"1,IjytaX{3T,5/HNHY/D\=d tC@k&IL]d-5X2\>@]#T
+W+jyta,oO|H>N|Vd.;io'H5jiPsI1_H>N|Vd.;io'H5jt;jf5K(orEFZucjf5K]lifE et
+e,l}_8Jw1uqy8JJhhbD:DA*e-6_8hUECId]lPM"6\q&5qT,tr+iw8Wf3qZ:nsE`3?U@+up
+^f'c74<W]I.qKUr@_8Jwk#_QrQp%tNs-fm]b-5X2\>@]#TW+]lifE p_]ZA 9+S&qYgE]T
+o:it8WW*Q>j!o}]ZsJiw8W;(t]m+fKci:uihZHDs,+:GQ`jfD:]l_|j!86L63]qTFN:.n 
+]ZQ0V07*U`pTJ1_,`6uK1biP>p&Z<)i:[I!if`pWuKdEs$2HjstCH"J7tanQ>p&Z<)i:[I
+!if`j!o}]ZsJiw[Z8vJhhbD:DA*eFo/C7NfM'-p#NnV J-p'k%IVp_uKdEh9Dk_QrQp%tN
+s-fm]b-5X2\>@]#TW+jyta25U>,c5DDA]8];PMdXfS\ebK4 Vnn0k3_,H>k&_:JwWO9HJh
+hbD:DA*eFo/C7NfM'-p#NnV J-ECUpOR:osE`3?U@+upS{Dg/HNHY/D\=d tnKE s*iwId
+p'O~,rY6TpjubcN1pTfm8TrPp%tNs-tRs-fmPi0wU>j!86L6Q?Ul];>[ih?}ih86L6S}m$
+XUDsh?]TQ0pf?hsE`3?U@+upS{Dg_Q8W+~g@]To:itoJit8W6]8V\jqZjf5K(zQeuQ[/hU
+hbsIhb5K(zQenjm XUDsh?]TQ0^L3X2CSH"O<G)ir/iw[Z,c5DDA]8];PMdXfS\ebK4 Vn
+n0k3tCH"J7IVJ9ta,om:TpS0eOkRFZ:8]oTjDhS|./?lFt8\tN8VlC`:8`0MQL1!ntS-U)
+n"rVcQ6irf8F8#Fr4xA(Z) o+c7,sECF,:tCmq:oQPnTmA+S["tCtbPEfzmI7}35J9HB[6
+tC8VkB_/QAbNhzd5oHFy[6:Ih_els<828sk%r$n(j'J9pNtRI%I`W48iOmbD H'AV:8&?m
+TsJea~?)(#X}BE&1bl?Gm,rnk4`M3Q:c^}5,:I[%jY*UMZ3{>BM\H<Cgl3+~c94XdcoHg:
+,H`mv/@6Ts-3IReP*UmmpOezg:,HERI"r/p.5,eEji*UXE8qk%r$n(j'J9pNtR \.FBit4
+^I2V`bS=!Rh?r'GtP4mgA-<_G{CFH-D\6?a@Pm_suD`:CK&,[7]F'[s*8}/y%W!@M(BxpD
+\Nn"\Nos\Nj~BgeiMR_'Pl/mW>dYHi?SM{k!7|Fr%~?>7%S [^#zZuSqpTfm,HHu1ZQ:`6
+;b-6.nugj0Qv.Rb8<JeSUbZ>etFa`>Gtl?`:8`0MQL1!ntJhft5(3L_hjh+I$sh9+F)ve6
+sdN*[x`STp-3o8!<u1tc3G>GUTmD@@[8?4TFjEmi2X^UVG9h'{DNoY>$a%-8?VbYm$hdX<
+9e!F8bUT I.uMF`%mqX/^Ue>E2Ft)<.Wm$$j/Bn7^%Q42h#&hfGKFpO$ AXkW3)kI;L]*b
+/g4h_4/+^[/+_(/+H=(aG +D/iW>d[CDFc*2S VYH=%~?:b0Ry;>mHoWa^]ss"/s,}V_]q
+=v*IlUFQDB9#mr2NQTQ?]4"}NnqE3821W\Fx`$@~2^QzIsa~E=7Sl.@Of=geWTpW^}:-qy
+f\4i#y<MoKr%rbheDaSuOfo}?PW?JA[YWJuRH3#9jw^dc9+9N`J91_`6^}:-qyf\4i#yrC
+PFGmI;v%U/6C]pZk[xMxl@U`*=k6jY-&H|nI*DM(I1XSGnU=VYPm%#o84D$~h9&!)devXi
+N+[x`Sh`7~.ToI+[!g`JrJfkX?Gn`^K8@A&c'GlUFQDB9#mrAUQ=^}:-qyf\4i#y1bfwO=
+pepG&R_YG4P=6S_cgDU&oU?e0ycdjRf!^gtAGCJ6GfT;m]W$IT'snPIVeyc,E3U(i}i]c,
+sMH3#9jw^dc9+9j|8.U*o]2NVy)}IL<77ajRf!I2sMH3#9jw^dc9+9j|I':Rh:@7\SC,2P
+]7GnPqs1bs;iJ9GfT;m]W$IT'snPUbi'fG8FM\o7N+O~owoW8iudebg:`cZ>u10,mtng2s
+kJI'I7((v!WDRGFQTGjEmi2XQ(&+p\(bN~s5"$&Z;f#O1$'-XZJ.X')I>$X$BE,R$>P&`L
+^DT8=;W} bWLETFtTGjEmiflp:i9L^LJ+FIRtSJ?fw,8?w>RG O$ AXkW3)k=/ZX]5;JI;
+L]*b/g4hGJu,JT8d-Vl6Fomce1c\dWfG3A_c$oo86hCA)`Z<d[hyFb4x)`iZ7|p\]?JAd:
+D{q`C5ft8S?)(#X}W^LX^oUlm`3G$qGxI16}p[Iq7%8%P<:oQ]DgZ_O,gY,7uYGgopXqto
+C\T"m`4D6}+F*'h:Hi)}Z<,#3IUW;>&!A\s%d!je<4J@(#u:unGGD+h6Z6+D$sGxI1W>6k
+CA6}p[DLb07~G{rvh@d;D{q`\nWSI PBcr[4-vp-P#:+=]OScrIreN:)nWUbh\X?&!tS0`
+!J7G[5&qDC9#?r)h@y&2U>K"ebV<j#hPi'6{q;ez)ZX~QH6B;MsJr%H3#9jw^dc9+9j|8.
+)h[,hw)Zr(H3#9jw^dc9+9j|8.)~[,hw)Z7]bK5,o[lI`:8`.++pgSuRu1U/6C]pZk[xMx
+FZ*8r(H3#9jw^dc9+9d6f_e]jY-&H|nI*DM(.6X?Gn\dfi+FICl3+~3}IKfr`STpX?K2pe
+?h\7<PoKbeHl.i,u(LI^3R:G7Zg0*Uh.lC`:8`.++pgSuR1me,Fo\dfi+FICl3+~3}IKJ6
+;trLMg'8s*8}/y%W!@M(BxpDn+3G:G6i)goqrB8FMXfbM{k!hyN*O~owoW8i4YXW5,el%.
+t,ItG$Tr ><rp.K'n)ng2sHGel%.AA[8%!/Bn7^%Q4sI@5(#e*Ks.+=1t"7?W>I~F1@-WK
++iq2[BC.7f/lnUmFCGTkj~MR^Z%aS fimH\l3AP4dZfG_9N*/\l3dWXiFcrv@nj%IPPBcr
+[42;<P(6:5k0#9NnqE3821W\FxTB8ioM2@e&7rs*/gfj8|TCU&dj8c+1Xq8s:1TsB]nUY/
+F|OJfwB]p\hJ7Unw-v@cpD4X8_8s*'oqrBM{k!sdN*P**B_:EW\w8|TC'8s*8}/y%W!@M(
+BxZnetI2us4)LgEK?BA\%\EN4S-9IRhgDaSuOfo}?PW?JA[ogZtopG&R_YG4P=6S_cgD3v
+eifG8FM\G[*2MZo7N+O|n&gOb0SQn"j)el%.3su*3Bel%.o/ZI?4TFjEb~sbDF&l\wZF"u
+O&B:jWq#(CQ{^VG?G"iv2X^Ue>WDj?\=#("_6ms%rpt_B$JL6Y&7A~!R9xurI~F1@-WK+i
+q2[BC.7fToX>C\cQdWfG3A_c$oo86hCA)`Z<d[hyFb4x)`iZ7|p\]?J5j@ kt8aXRP(yA4
+s*Iv85U>VYPm%#o84D$~h9&!)devXiN+0mBbeCm_O5;JoT(S<b(}A4s*IvHE)coT(SGms}
+lB`:8`7Tl.@Of=OM?Y.l[z,P-a->^[,HS gZmH4D)`oq6h_9Pl/elsGx+DIC)`e67|G#%~
+?Tb0/mIUB}:Gk0?)(#X}8Ot|oPiK;Nd[I23AiR-2H=+D/^6}mHrB3AZ>$oW0Fc\d/mA(dW
+sdFbCg)`_phss1UNj&!$(=t28mj`&2Eba_@0j}V^qZZVc 4D`2XL8g@+[%T#rEbHJ?QBO)
+b&a VD(eoDG"UGWJWT%#G \dfi+F)v8*+FICA(+~3Q\~[^ryF4@-WKR0%wntftQdU)j~fG
+8FM\o7N+O~owoW8i`7 )WB]l&TQP@3DWY!0L)?JSebV<j#hPi'6{71m6[kM@c 8c+1Xq8s
+:1)h@ynUY/,"O6;l@yIUbQJ?QB<67aXp8s:IGyI;6}+F*'Z<,#3Q\~[^]DXO-*;l@y2^Z_
+O,gY,7uYGgopXqk6Qd_]oN2@e&7rs*/g;_3Lhwfous4)LgEK?BA\%\m6C?-9sH[9iD1U)8
+if_"8Hmrc7cQ6i)}j|CDPmiPfG4.T6q4%~)~4enT@9eSg:`c!e.XJuZGZ_O,gY\=#(UP^o
+It sO--;^[2jkPnEQ?O%<+JJpArVq?#P0(*$n 6h?S8FS"fimG4D/i6}p[+}^TN*/^V]dZ
+hyM(YVE;E$L++F`]iw<n-LjyUWC?&cm(3{Hk_sChf_-GcyGxfl>x/{>EbA39KE^qta7Q`Q
+<bv5+zeTDz-(Hi82CA&Ufs]98kU=NE?u8Wfq2.X8iw]u,k:^cborVcS|G~DzP4\Riv#)W0
+:7oICFS|"9gc)6s2LcI%C6ro\me)3~L_fb-+ro\me)3~2Mh:Dz #gc>k9UJXYFv4HoOcrf
+QoD3PbiPWR5,Rd3Ge_I|Q\ZV&3XJl{s$fL)mYb&5n Vch]fmG9PbiPWR5,Rdfz-@hGHl)4
+W0&3n Vch]fm\n&5XJl{s$fLTxlps$nTPE,`&{t,d#2)js-'Hi82CA&Ufs\m-GHi-+IC,)
+8e#*W0:7oICF.7+H7fICd#2)cL2eh9*U9B)cmz`)8m+/tC*2ER9{8rU=NE?u8Wfq]44EL_
+fb-+ro\mR62t5T]vciid*2Q^4D&U_lQ/WMQn4D,)\kNEnT+/\k8oJ9/3W`:aZX+THi82CA
+&Ufs6?_]\etR>F`2OdSolps$nTPE,`rG4DHk_sm,T/lp*SW0:78lW* !n|:0TF0Ghdo#I|
+2]_Q*33@7qrf-+FUOch\qXT<EIMvk!WRnU+/ICQ`WM,)-'fGoICF.7TQT<6zEPPbk)/3t]
+>FL_IQrE82QKiSqX&28*,G&UJ7>BJ94Xt]+/ICQ`WUL_sGCIiRV]&3?q8W;fW`2Y=/sqTf
+T3FrHr9UJX\)eMpD`_8n'em(2&j|VqTj7mIC4G-'hy:EJ5IKf_#)W0:7Ic\oosnQWDCH76
+3@-'L]fb82Ic\o)mYbA03B-'Hi_sI2,)8eoth{7{,GIKf_#)W0PEsGCIiRfm,GP42h[$WF
+CH763@-'TMfb82oICF.7rGZVQ>,cT6C?N}FUrf4E:L[]Ox]s/7>Ecb9|5/&Sm(T<lp*SW0
+:78l)nYb&58*TOh\fmG9_Q%jm(IQItW)PEQ-&4:+\jbYFdrf\mos2E:+\j6?_]\etR>F9+
+RqDLW)/LS)Z=WFnSHl6ArP4Ek%SwQeDLW)/LS)Z=WFCH,KT6C?N}F`rf4EWQL_I%C6ro\m
+R68VRpDLW)/Ld"h9qX3[b+39k%\~C?,)1`t]:.Q]DgPbJ1P42h,}G<PbiPWR5,RdEY+x\k
+qZ7-Q]orq>Ox5+8*8r26f_'ed_h9fm\niX26f_#)r+fLoICF.7UbA%)\ER>O\jQ/SzQe/K
+Hi82CA&Ufs+Tcys$h~Oz5+RdJ>N FS_sChf_82CA:LqS:6rf82QK#Mu1hGci&A:+\jbY3:
+tN*2-6hy7{>yRfZ=l{,}UbNDFS:.qSPDfb-+WQP"g{#*r+fLoICF3\jsN FS_sChf_82CA
+:L[]Ox]s?w\jQ/WMgD[aOx8n*2ER?q8W;fk4N FS_srwW)PE,`,I9HU=Q/iP72G:N FS_s
+rwW)PE,`UbA%)\ER:k\jQ/fm6?CAQ`tR>F9+\kqZh~X<%z_lbY3:O\rfHnN4?w>L&cd_2C
+cL2eh9TO,`*Wh98SfqNLFU:.#%g@V]sHCI3\=/bAFd:.qS:6rf82QKiS[bOx8nrvW)&3XJ
+7&p[fs\n7&EPPbELZ<5,RdJ>UWC?m q^PDo7PE,`<Qr,WMNCFSOcI%+Vcys$si7{*U,%O|
+nT+/\k8oJ9/3t]+/tC*2ER9{8rRpDLW)/Ld"h9qX3[b+39k%IKf_82QK:pb=39-'Hi-+IC
+,)8eJ/+Vcys$Xn7|*UW03\js7q9w[]Ox]s?w\jQ/WMQnDLW)/Ld"h9qX3[cL2eh9*U9B-w
+r"7.,GT6C?N}FUrf4EP"fbRpDLW)/LdNh9qXQY&4XJl{s$fLR6&4:+\jbYFdrf\mJ.fqb<
+397qCA9H26f_'emBo7Hk8lW*3\cL2eh9*U9B5/jsN FS_s4yf_828VN5-%iPVq)_J7P4CI
+\{DMW)&3XJl{s$fLR6&48*TOh\fmrD/K>wc^8k26f_'emBo7Hk8l-Hhy7{>yQmZ=l{G8Pb
+J1P42h,}G<N FS_srwW)PE,`UbEIb+39k%UWC?,)WF7*Q]or;HOz5+8*\oiX26f_#)g@qX
+IQC69+#*r+fLoICFt=WMNCFSOcI%+Vcys$si7{*U,%O|nT+/\k8oJ9/3P98n'em,2&8*>y
+Q]h;\dcz8kCgC\:oRfDgPbEL8*TOQYPFfbV\iRq8Ox8nCgf_#)g@qXIQC6s%4E-'Hi-+\k
+&$;ht]26f_N4lp*SW0:78lV]:oRfDgPbEL8**U,}Ub-EiPHl4G,)\k&$;hW`K+^q&S4w21
+Y2v1o~A')\BoeilG)\J7T6C?+r\k7N3@tN26f_7eICoZ7|U`-%(o<,3LUtI%ItW):oQ]or
+iUcP1DXJl{s$fL7e_]\etR>F::mrK'8*>yRfZ=A0)\Bo:^cborVc9v$_W0OLfb-+ro\mTT
+eOv/Z>bYFdrfDMW)OLI%C6ro\m7eCAQ`tR>Fg.6d zTTD~Tgi|::=:8or =@ rPMfegeWT
+-43|_hqT%aMZH<>FlsGx\dP.meIq7%8%P<rck>>FHs9UJX\).?XwMU t+cIveN:)Y"TpB]
+>*I3OJu2tc3O ]my3Bel%.o/jY]g%!SHC3H-exe9gfGFN <I<?\Iqp,w;Y;(e:dbSb:"6+
+2G0+BAIK$N]'rCe1m6YG<fJe0)*}7!:yU>VYPm%#o84D$~h9&!)devXiN+U2oUQ=*aFo8\
+tC\nWutR8VEX2_I4f2CHn4I;C)QOXL8g@+[%4c$M4n)B8*.<TKgV3PFqo9:0TFT3a5:8n/
+A3L3A`8AVgd'hUhenBuAu<7Q`QB(0+BA21L5TQf(bG"0cBPb79QxZu[6fOtMT#int#16,T
+[zW;fNJkN[h6<;$UrEE9,Gt+._KT.p,7KcjX/ft~ncdbU'0b%Z,TIfS:v+flD~mhr97QnA
+r90`@ bVJ?QBO)b&a VD(e4)enfo;iM\3OiMnOPm$zW0%b_l[^%~)hiZhy3vSA8e5=*"\n
+[2ih-d7d!CU&8So:p&-$[H<+^^h|kd=|;]nBFVGb213Xv!`I;I[7i2dbSb./[4(qk7K?-{
+1G5MLb-aVPH$JgN[h6gFS_XLiw^BPI8c&g*fW6-J,7nfjX/ft~ncOCLu..k4 I.u,grM1'
+'-XZJ.k:<n4uR]v+flD~Rm9T6v-Lk01yNe#&-KhfM*,Z9V4gO~\K5ILb-al&:)eVK%]WA 
+`'i2<N0rDk0`S^TYC%up[kZP\K5ILb-al&:)eVK%]WAL`'i2<N0rDk0`S^TYC%Zu[la`TT
+eO^CPI8c&gZ6pz\5!(+zk0a,+rk0h0)Ho8Dzmhr97QnAr90`@ bVJ?QBO)b&a VD(e4)en
+fo;iM\3OiMnOPm$zW0%b_l[^%~)hiZhy3v43]IV:kj8Fk%Ja@-1e#&'q-vs|0vlbi9L^LJ
++FIRtSJ?fw,8T| "jUDzXDYgQMc^g)bB=Qj1u$s$e9FoTn7}O{,"7}&!W*N+f_>LFhU)7}
+C_b0M@7td>A`8AVguX'!Z7XWP4]Cqpr}9<NV)khfnBuA,S_|>Gt``E5ALb-al&:)eVK%q[
+:6[od7t+_`fTfjhJ7Unw&+Jl^~s#gSWT-43|_hqT%aMZH<>FlsGx\dP.meIq7%8%P<<Yp>
+/*PM+0NSsa<'\PUsDN'e[pMPRkr6j-8Yto[5O,BTa%T3o;@x,bu6H(fn`>DBVu(\py-$A\
+XDqg=|;]nB`P7=o6.-h9ilt#tY,]7;$uDCG1ukQDk)(lJe0)PK+0NSsa<'\PUs4FQ`h~m6
+u0?oC:Xz[;.6tm1bY TKMLM(AsRWP(s1Fyidp):XpZj'jyZQJG4oTJhJ7Unw&+Jl^~s#gS
+,IJ7ZQWTJ1uLjFp^rBM{6l)gh:fG4.P4,"H>Cgl3+~@vu|JeT"gZEh`^o|3G_hE\ _ucja
+C^;ip_hC`>"_3sTi2mt?9<NV)khfnBuA'.IdItP(BE&1%?M[osoLs*8}Q$Jj\)lai9L^LJ
++FIRtSJ?fw,8@8obU&TSk.DX.7(IoO=1*h6A&pq.X/Bj5RHms+JUJc#/;DauT3Tvv+7+p[
+fsikt#tY,]7;$uDCG1ukQDiP723vI~*]oI9{/3o}Q|?s+/"`#yerjRfoftQd4.P46l)}Z<
+6m3meinON+O|owIqb0i'm6`<g =|;]nB`P7=o6Y8meq>3tSA8e5=*"\n[2ih-d7dtvcxP&
+BE&1%?M[osoLs*8}Q$Jj\)biCquz,]7;$uDCG1uk&9DQmLofRY&v3X[7fOtM9(_]*3DQmL
+ofRY&v3X[7fOtM9(IcC6[xd7t+_`fT;_@A<MsECFftTGMLM(AsRWP(s1Fyidp):Xr,p.pW
+hC`>*G:5D5VurV#%5F?OIQntE33R>GED3~_hjhp^4DlsGxI16}p[C3W>,!3QT6;>&!A\u|
+JeT"rE2rkJG}Tnn"j'K:v)s@T"rEJFid]x ?XDFxBaJs#/;DauT3Tvv+l@]pOW30]IV:kj
+8Fk%Ja@-1e#&hf>b$k/Bn7^%Q4sI@5(#e*Ks21*Ct/3J:8Rk&: R:Rm:[zW;fNJkN[h6<;
+*<Je0)PK+0NSsa<'\PUsC5_|1ZuK@2*`6A&pq.X/Bj5RHm_s>GXDEW6t?NNB t+cm"85Tn
+j~JWp38z'9A,I0f!D}mzI_Y sJ5Bk:s)p.i'N[t_,N'|MvKj6S1LH2UGjhG%\njhG}_-6m
+rfM{6lCAW>6k4.eihy&!)hiZhyU%Ed3R:G%/t,]\g=WSk)uL2rkJp^3G_hE\ITs2K.<Yp>
+/*PM+0NSsa<'\PUsoY/LAK$k/Bn7^%Q4sI@5(#e*Ks21hAar9Et6p1WGJGhe7U1:k]:)c9
+ucO|<+,bLa ,<2s~.}-nG1@8VireR1bV@6dbA_8AVguX'!Z7XWei72P;`MS/c@Pb79t{.#
+>8:yI2Q`(oY4TPfE'r+XF3@-WK+iq2[BC.7f:WG!I;8_+F$sh9+F*'8*+F)voqDLb07~p\
+gO:RmreCug&>VhMU213Xv!bKEK4elbi9L^LJ+FIRtSJ?fw,8@8DW30]IV:kj8Fk%Ja@-1e
+#&hfIMo[=1*h6A&pq.X/Bj5RIVV"^}q9X/DPmLof-$[H<+^^h|kd=|;]nBFVGb213Xv!lU
+FQDB$VJe0)6)sx8moR'"/_GlsYRY&v3Xj>jX:)eVK%smTfT38j@7db;'JSfstT!g9MU&uV
+,]7;$u]bs><'\PUs`&mq-$lw8h.=m$5;,Z; B2!Rh?lj\kGf@oJbYF3IIteN:);QKFtM+z
+m:Fa#2n>WV)EmbF0a%bA^}f=WLCRGU+<&FV+r:RL1=qE3821AFelEVrHRY&v3X[7fOtMiX
+5Kc/.%QL6@X>0=.TM  siv0O]SEZrHRY&v3X[7fOtMiXD:c/.%QL6@X>0=.TM  siv0e@6
+:RmrWSYuT$bM!R&eoN6TQHWuh!M29YL fH=He7brm$hdNr0Lr(so9?A`8AVguX'!Z7XWta
+GjTP/A,UFj"<\?>0.&]M%BD'tO9?A`8AVguX'!Z7XW_,GmTP/A,UFj"<\?>0.&]M)&tW$)
+Y1TpFQ*]QH-OqI3821#X><9UJXI6pv;a_}Ik;aOmuAQ(F\/]e>?.#Lk_S+u1A{)Zk`bUm$
+hdNrTp_@R#[*UUR#'6uAQ(F\p>r97QnAr90`@ bVJ?QBO)b&a VD(e4)enfo;iM\3OiMnO
+Pm$zW0%b_l[^%~)hiZhy3v43]IV:kj8Fk%Ja@-1e#&'=-vs|0vlbi9L^LJ+FIRtSJ?fw,8
+RjQsR$'6o[@x,bu6H(fn`>DBVu(\[DQVQC[-O1@AI~3vG\=8D{[zW;fNJkN[h6gFc9t4O$
+Jld1s+JU$=cm:)@ZX7G'[da4[zW;fNm.oEDBG1ukbum$hd)-nTjS8nr =@ r=b8No?5B86
+@;'~tz<V\IqpBMExi?`%mq-$/*-&Mls!0>v!WDi~/ES*Mm@>D{2Mqc<IYlQ)JjJl?|=E`2
+^Rb\K;<E+[oI\&f?S+u1R,U&c*>5*d6A&pq.X/Bj5Riv[Zk.DX.7ST2ESKdy:<\]Jw=uhC
+>5*d6A&pq.X/Bj5Riv[pk.DX.7ST2ESKdy:<\]hUi!@oGN]X+x@%gL.J,:Um@8'~RL0$V+
+r:RL1=qE3821MF4Q`'g =|;]nB`P7=o6Cbup)yX79E#-Tma7Z2'S#QDxb!ia`6g =|;]nB
+`P7=o6CbZu)zX79E#-Tma7Z2'S#QDxbyJb!"n|Dz-(e>?.#Lk_S+u1<VsXq=3821(e)As|
+#a(fs|\"kI>F^W2VFE-rK{@#r$Q\<Ieu@"r$Q\eRjjd,=Teud,#Zuk8S]hiv5;h\Sx5=Ma
+ QVuZ_O,gY,7uYGgopXq8s:IGyI;ls+D$~pY\lcQorC3*'e6sdN*P**Bt/@{,bu6H(fn`>
+DBVu(\[D8O8a2k[mMPRkr6j-8Yto[5O,BTa%'%R&I}@U ,jUDzXDF\r5RY&v3X[7fOtMiX
+(FbJeu:)[md7^CPI8c&gs/5mDCdv<\KFtM+zm:6t?NNB6t(7ps>Cie-d_h6>%A'sUO^orE
+,H-:H=U=VYPm%#o84D$~h9&!)devXiN+[xMPRkr6j-8Yto[5O,#5On78G07IIke]>TD{H:
+qAqe7v&(7V2Lh>*]>dq#D>O6RAEYSJNleulj\kGNnU8q:TpZ4D6}+F*'h:Hi)}Z<,#3IUW
+;>&!A\uARGcBCBn}ftQdU)j~HiM{6l4.Z>qT3{>B8'Fr4xV],"c92\^th2>],Wi@=R@A"g
+$>27IFEBZ>j<-IM'-8?V)@D-R?B^?vK0+ '7C'&lGB<ye[k]hSH3CFm"FL/&A}&l72+yZG
+QFm(BDb4m%5@q53]1lI^'y/C5ls2Jg<QhndYPh;biCbfGM_Q8W+~Qj9H_YDd!z@:R7Gh1.
+lrR#2@[l7tT.S>&/QTuD*:nWg3=R,DO-3fFv12A*q]*_,&Ty>K=~>J#LRz_!O(;I"&>rh>
+[h(#EzbS9u'"D`>5fKUB@uTHuD=S&7`=AyceUw0H0ci.-}FvrJ3UD@Rk&:.^IRN#7/DNoY
+MSa`Vsq<0_h|4(uM]2@z,bm.^pIt sO-`NGyY/q.(CQ{\TDJYPg2o.i9L^9K/l:8sT^c98
+iDG{E]-Yl6hya]Yo8r26f_e)b3pe1bN=)_8otP8V;(-6Qj+BWFDs`L`TmndLDOW)rc]b-5
+X2\>@]#TW+J8SBuI]2FPk.my]Wk5E4Z>j<)}@"[F]H$ l'kw6&MC@W'~Gmk~ 2Dq`L^RSc
+0Tsy%?Q.eW[a8S,WczdiN2ctJal4G<CY-7tm1bQ8szWM#|RlV!<{(RhTAF*2nW&RilWD$y
+/B-VrIn+$PZuhR@4);HuqTt<]1uFugTZ/2?>9q(:I|Mj8VBkFY[okI>F0MQLFVjS`% I7V
+\SDJ<w,I5Dm_qYeyS|Ri2UjsES;hG*l~BDb4m%5@8,3]R-9|)cjsjyft=[dk,B?3sM+~^T
+p GQqklrrC>gi$n]apf_'ym(AI[8SA8e^FpDk-K?Vu&!?:H 3hjsWFQ*njQd[!c(Q>jaT/
+"6,Iq`T6C?m_qYr0Qg`V=3E.$~On78T]>9llkwVE@9$-,%j|>F,WCZb)'^R~t!Gi>6@xZ*
+/ppHO4B_,d>>i$CR@n8^9erpI,W[:-Bn$*SH=-RZg3UPS \%9;]i\na]Q=SKoKr99!T;+y
+GTD\6?]6/}I]k3eT[UYV:(,kf]2dP4:nidJbJseHRc/^,xO8`)6tWF\P3<=w$C,%m 90<;
+F^mAoJ)40+Eb3KqkM&,E0ahan=R#2@7|dG,}v#WD$y/B-Vh?M*%3_42jkPnEh6/?ut]6k8
+Gv3hjsWFQ*njQd[!c(Q>jaT/"6,IM&,E0ahan=R#2@7|1dQ8UlU,uI$y/B-Vh?M*%3tqSl
+me]?grdMPkfmDkANWv$c7~?jQ]ORez4D8jYw5I.s>EV4];uFugTZ/2[jOxRX9|uoMWRkQu
+o:6TMd?YTPprG2A(#vZu-7tm1bQ8J1ft]9^:qZI_Q\V0m ?hQ]9|)cjsjy;iU>(f8*+yE.
+:K:.BGa<')8 hGH&J6ANWv$c7~?jQ]OR.7JwZGj<hT!l'7[?!CM:T6_mh2&?oKoI+yR?mi
+RhTYM9T6rzJh8d-Vl6EAZ><q);6oKsG2!y^&76&(96J<*e/gO71:0]D_>/-}>*c{-YCYG^
+UNelsP2mM0$tX?^T\m3i]IkofS-3lI'"@04(Fqmc$P]Xivo$rL3j]IkofS-3lI'"@04(Rv
+[^mFDL@n`+ts,]7;$uDCG1ukQDbY39i#<jcjPK3GHq;d*I-6Qj+BWFDs`L`TmndLDOW)rc
+ )WBq`R$5,tC8Vov f+cZWAsRWP(_e?j4S>EoHORqZZ~S|8[_9rnr+=3tRQYQ?,cmJQLS}
+qd82t/_VfdT"8[_9rn,%?l`cuc[ UDm` Dp\#ANn]qQ;=r3ugan%.VJ9oIa|HlhZe),=ZW
+_Tnl3\jsrDEW.7:GoHj}`YrnpY3GHq -m 90<;qi\^'lIQ;gt])t>dq#C9Qdq?#P0(U/3H
+Fqq7M&ivYo8rJhe)d-Q<sM3[U>$`,%DAtWu:3 >ElJ)\Z':iQO`4;bt])t>dq#C9Qdq?#P
+0(U/3Hh{FbMCivYo8rJhe)d-Q<sM3[U>$`,%DAtWu:3 >EA?)\Z'^M3X2CSH"O<G)in{a|
+osGVD\aJVq:Gb\.%`@H0/WD+h6Dt]XYVQ?*aFoqcWI4r:L-?6e8VihJbJseHRcTSrbd!Q<
+sMiQjATvT<dnLB.3P rX@}s%3j]IkofS-3lI'"@04(Fq[amFA-#v]XgrqZ,*:G?igY8/8r
+m+cPnQ)40+Eb3KqkT6C?fr=[dk,B/Kmg?CTPprG2ls\NBhUWhspbJi#/;DauT3Tvv+m!q>
+Ox]CgrqZ,*:G?igY8/8rm+cPnQ)40+Eb3KqkUWC?J6qk4F9V9+@;0MQL]mT<G:EV`jfUPm
+eP26Tk@u`+ts,]7;$uDCG1ukQDbY39i#<jcjPK3GHq;d*I-6Qj+BWFDs`L`TmndLDOW)rc
+dMfS\ebK4 Vnn0<$*ICIYxBE&1'eFs/a:8sT^c2%A(dWsda]Dz<w,I5Dm_m18]IfTx:^MK
+Q-];uFugTZ/2q@Oxh. GP|d";ftRnj,',IT6C?9R26f_'em,QYS}8[_9rn,%t1_VI'T"!T
+_o%jm(dL+Vcys$si7{<O)c;d*IBkiDY(-%iPsd7{QT`V3i]IkofS-3lI'"@04(Rv2%l3#v
+]X_,T~pTfmWS,hJ3WFm js4D`2[qg&MLW*/td"bssM/sg@,CUb[;t</sHqr/pdG84FN}FU
+mAW@Q*_c?j4SUGdcU`X?8q=],KjyUWC?&_Fo8\If?Ci$Y(-E>E&D:k\jNE9muoMWRk_CiN
+WSIt sO-M[Fb26Tk@u]X=JQfuQS{R%,CpeG84F)B8*hbrxt?F!\jb^39=wFeG2Df0Z% Xn
+3SgaMd:o=]J.S%_SI'sM3[b+39qkfj8Tj|[ *9enmLezg:,HYyQ@ELb+39qkfj8TtF8VDi
+tW',m(dL+Vcys$Pv8j@;0MQL]mT<G:EV`jfUPmOzme+}^\/?utc@Pb79t{.#>8:y%jrMIr
+e)s$@fZu-7tm1b-t8gk5nQHl2dP4[/o\rIl#C?O(FU[o#ANn>RQOhZ:a*I-6hy/shy:n,(
+1fQ8H<oH8+r,Hwr/1m#*II+Vcy+Vndsf.6O|X|P?2fU+S0DNW)N+FU0dt])t>dq#C9Qdq?
+#P0(*$dVhyFb4x[Rk0uT&>VhMU213Xv!,UT6bYfmC?&Up&GQ_Q8WQdS%rVQ.Q?HoqTt<b|
+9W)HO}_U-E(oU`[;YA/tHqr/pdG8N q^N jw*LW`Q*_c?j4SUGdcU`X?8qhh&A:+&De6lG
+X{3GWI4rj|H @6[eOx,"d"bsosRAb~\=#(N}3I'pX7ttjL^?N*/\l3#v]X=JdY,iVVkJ[9
+]O&oH]0uMBqOg)Q|7{U`-%ZANLFUIC_*^?hy7{>y$_Oh-EiPidb/39E?4xf_KCcfPK3GHq
+;d*I-6Qj+BWFDs`L`TmndLItW)rc )WBq`R$5,tC8V:!=]_cQFbNhzX)d[U`7~HsW4e62%
+.:nOh{7{>yQm9|_Y(lrCQ9/mJ9_]RG5,WQQ]s/RA:0Xl.fm?CHl}QYS}qd82t/_VfdT"8[
+_9rn,%?l`cuc[ UDm` Dp\ m+cZWAsRWP(rX3Pd>U`i'>:WzPbNLFS_s4yf_e)Va8I,;J3
+jyd>U`WUQ]s/RA:0Xl.fm?CHl}QYS}qdXRr)HwgDC^,:J3WFD=S3BoWvT6C?l3)\Z'&U'G
+EN,A[fGkY-et=.tRh\MdUB@u#-U^-%iPlG)\fs,hN(8,rD=3tR-AT9]aYxDx79?d/ 8g,7
+SzfzR.5,U2dcU`:XQdhZ[;0&mQ;H+}3I*L-sv!WD$y/BHQ\g8qsj!g($%"mFDL3AUWhsDz
+YPp; Eu7s2RA:0Xl.fY+rqZrWz.MTA;C=NVz7{Q]orIqW) QQ8*aFoqcWI4r:L-?6e8Vih
+JbJseHRcsj7{o2 38Nm,-rJ9rPQ.T"[;I1,WNg[`9|S"5,O~qg82T7D+<Tfh[bOx]s-ESz
+H|1ZnP,=?\tRI%.YJ98l-&p).MTA;C=NdHfqce,}1fm4PEr(HwW41nQ8H<oH8+_YK1u2?j
+4Se, ik#!\7G>xch.x)zn{G"RF5,[x\U9_+0&cm(IQItW)S|7.Ps8VtF_]RG5,8u-&p).M
+TA;C=NdHfqce,}1fm4:om|qpXRg>8TtF8Vh[00e`9W27f_b03:=w-,.nj|8bA7oX<$UTZ=
+rn[$%44Oal&:5':+\jbY3:WQ9R%yP9nRZGrn:c2<E.=\irNR_I> QO8N1_W`.'J94.S25,
+U2-3[ @A@-dlVq7{Fr4x;gukcm)V>dq#C9Qdq?#P0(*$dVhyFb4x[Riv<jjA kt8p/.MTA
+;C=N< oN?P9`<{2LVgZ|7_Ox-%iPsd7{!$,:5Dm_m18]IfTx:^MKQ-];uFugTZ/2q@Oxh.
+ GP|d";ftRnj,'1n@ArC9/'9A,Sz/mJ9)gm:PE28h7Y)W;A0)\ER:k1_qzC5fj8[_9rnr+
+=3tRQY:,i{<{2LVgZ|RZWNQ69|CMd2*Umzqp82C^,:pYhZP7H| -t/_VI'T"!T_o#:Nn]q
+Q;=r3ugan%.VJ9A[BuS@6@-Gcys$si7{1dN=+QQ.rVI&.YJ9Qk:,i{<{2LVgZ|RZWNQ69|
+CMd2U`ecmL:oXGQ*rVQ.[!@AU+S0DNW)N+FU[o:8=]_cQFbNhzX)4r>EoH?r*IH~MC,UJ.
+T6C?N}FU8lS&+s*<fo>YoHUHDXj<[9]O&oH]\!,hP}C?9+</tRH<0.J94.:G?i`c`:SC7N
+OxmeIqWOuAQ(h>cm,y?VSjSI]J/'&~/%A}&l72ag ETnY:>4auM*n/RVIm`-2d59RK[2A 
+Dl%QOjg{\=#(N}?YTPprG2RQ\Roxk;;3b6G:EV`jfUPmOzme+}^\p GQ`bXzpTfmjF?m/1
+E,"0G<$c#zch.x)zTii|p73@k:qw$PQD36UA@u2lU^-EiPA<)\mzSiD+<TQ]or_wmrj'$p
+/BHQ\g8qgDX<]lcRhyN*hw@9:Hl_TTEd1pp73@=]-,.n9+>p&Z<)i:[I!i;U,stm1b]de*
+Vac(eRR2`NH),MNg[`R5Fyc>/LpWB]Z8;|+}dk2%t@nTsf7{>yQ]or2NBuS@DNW)^;mDJF
+e qdi_-df#"`FstFcwk4*W+}3I*Lr(Tkm` Xu|50O|>y .uk>X^CZs#Z.N@H"g$>27IFZ/
+,_h`h]7t.He>/<2}$=27o`]:JM6Y&7H/CFZGj<Q]<C=%'OkkN"bF95`j?N]i-Mdj9e sel
+0J_y.MV`(#aTacZ,(;/JFF hH!Q o:e;2%G3RPU-50:GX{cm5(qTRZVqC6NaH!7Gf+`1k(
+SBQEMLW*S|6YcaTPpr'rPSQoi|9R/m<{(RhTAF*2nW&R1d&-<u;+h/6]N,n"f%Fo >iuWD
+UJ@ur&GLTks0BgeRTnIz/bGbhwo$m+^C`=fm'lQWbf@$VU;biC)]\ec^L!3cCIDCm"T:VR
+[}[}"b7>-q=C roM_!5Z@qAG'!I!MCpA=Z&7`=&~(>Awb?E=PQ&)]EO*>ZD{Z8Vw[.p4s/
+Fo4xYK4F1NP4^J3X2CSH"O<G)ij'uR8hsx3 >ElJ)\fs(D8*k1K?^}KCUijF?m:l\jd[RA
+",Gb(A8*3]b='ym,QY7}^@%Oc-B|*2rCv2C\*8DDOjg{2%G3WuS!j]mKe1b;RyQ$g6_$%3
+Zu.Xp?N^MvF\j(fd=A67i&f!UN,huL-##ZnptL8V.=`G<i-"#Znpk#eTRpd Q\q[EI*2@)
+i$n]apf_'ym,AIdafS\ebK4 Vnn0m56 )qtoQR<ZJXE :%'5gK_pTsd!FQE`FS+ P$pe\m
+&5ev#u8kAC[-fE-pDa1c&-2_YkV6o]j'5D:L!#Vg8P=B67i&]xh[JhhZBZ;;(<,UtC>l_Y
+,r?lDf%KNS<M'5gK0a.Wo6ZIj<\TO5`.^0i|A(+~3Qk/X|cmapf_'ym(QYc)4Dt&!ghd"'
+u9mqr(I{W)?\Yw1%Zrbm4Dfx-&_U-%Sz3GcUL!3c5+qTW?u|eT`(2[UWb^Bh /p&flcmp}
+eh#$[ddM^xhe<D'fm,27ite3O^WLdmco*pJC T6hcEI_j[>F>;7Z@'H2^WdahyFb4xTkuR
+?O=2jH'(%Xm:]yW4ZcLN[uUl4g9RtbDqYkV6Z(P?QeI%q\si/sQ'7}i{D3?2"gAVIfR6<Z
+JXYT:$'5gK_pTs/LQj-$p%`Ll@)\8%Q]OR<YJXE :%'5gK_pTsqZ/K>wQmi S{cf`M:/'5
+gKrcQ.S}m$kA-'#ZnptL8V-Hg@cjPK3G/F,IN R_S>&/QTuD*:nWQ]3GC5?2"gAVk:trG8
+(:&n7\^H%Oc-`>_\sI_R28MpbD.6g@j!m_0eW`9Re9VV0Xd6L!3c,rm:uAQFkfU<&)A3Re
+G\[6Xi:pQmi 5!q|ALCH13\'89*X8-q!2=FF hH![j8S4_almuny3AJA%~?:b0Ryre@}YP
+4I6m,q>Bt-)6YM^D%Oc-Jhs!/sp)]4ZcLN[u4r:Ln N;-E[j1bQ8JeT?.JX`o2,'rGFZj(
+<fFS+ P$uRokcp_RX~BoWvUWC?A()\Z'\Nhf.H:3+FM+/>o: 6mn0 BZ[c\Ee^,8]5T:A~
+'R0~NQ+XWJ0mhdgkc9@0YLWD9de4Ja`OQ{s;W|cs/%A}&l72`N\mFP^A`=Lt.yH.dO:<6\
+:+,?o:X>uSI1CFR?7s11aw8FE-GKD\aJVq'uX7ttjLWfq.(CQ{Qiq?#P0(U/3HFqMC=JQf
+uQS{N15+`7CG>\j8Hl_z8Wf3\UO5`.pDnZe1)"uko)i9L^7NJih6Z6>71DevDI]Xiv?U:O
+?jQmDg4F)B8*hbrxt?F!\jb^3:SMuI$y/BHQr=n+?CTPprG2D+h69uG#ijp&GQ,F5Dm_Q9
+sMI1-@N=-EiPWI[8SA8e>vpd-4lI'"@04(Fq[amF$P]X=Jg<HlQ0-3mj?hQ]Dg4F)B8*hb
+rxt?F!\jb^39=wFeG2Df0Z% Xn3Sb<osGVD\aJVq5DD+7e3AFqMCivDz]XYVp^qgQUd Pk
+fm2I@6kEFvmA-,fr=[dk,B/KsMQdq?#P0(U/?0h6Z6ijDzYP- tm1bQ8`4fm4OQjqZEI*2
+@)i$n]apf_J|[NmKnDiMA5* ;GG(nbMjiR>]^C4EMQPTs@OiFzD\aJVq'uX7ttjLWfq.(C
+Q{\TO#<+JJpAM90n?pDdcQoTe1$=A^_aiIN*/^DPsL5DLb-al&:)eVK%q[si7{_"R<uQS{
+N15+`7CG>\j8*v&pnQP+:glJ)\1Z<u;+,s4QalmunyftFo4xuAQFc^FI hH!jY3[dk,B/K
+H2EV`jfU=Z$~On784=^i2jkPnEBP*RnAf+MSa]BP*RnAf+7}Fr3talmC`[=|;]nB`P7=o6
+.->wQ]OR=J&['GEN,A[fGknb2Nm 85Tn3G]Iko;HF}Mh1mA(Gj`^gD,HYy]<FP*]LN\;PQ
+&)]EoJfl@y,bEF^oIt sO-`NGyE]-Yl6g `% I7V\SBhr8N? ~Fs26[R([c=I-\]%~?>i!
+pbJi#/;DauT3Tvv+A5]pMeYV&4jsWFQ*o7nyQd>Ljxft,htCWIm n+-:6+cj_R-%Sz3G_.
+=[dk,B/KH2EV`jfU=Z$~On784='pX7ttjLT-6YSR/w2BA(#v0kPDr;C%+~^\[kiv<jN5pT
+fm8Trfrk8]cjpK85L6S}7.Oz,GT6C?m_p,TxA%)\Hub+39k%UWC?9++~nw,'!^7Gk5nZ)6
+o#pKn+qY,*eRmzHm_ztc85jd8bA7oXg/D}N4A%)\Hu:k1_FoHl_ztc85sMnQl}85)cjsp^
+fm=:\%9;8$eXpKMj]JuHN`FS)}:k1_Gm`^gD,HYyh'\=#(N}uSZ6(amFe1sda]Dz]Xivo$
+hFS%_O4yf_Tx:^MKQ-];uFugTZ/2q@Oxh.ovDj`Ll@)\HujsJ.UWC?1#t])t>dq#nDf!^g
+2jkPnEcQBgO|n&]?iv<j:!sECF,:J3WFcz,iVVK*9-jrUWC?m_K4-@1 !J7G:t,:ENp]Rm
+/up)4rUGEd1pnU$Qo/-HQ8sGnQb|9W4yf_S%:6-Gd",}QVrd3j]IkofSUlG:EV`jfUPmOz
+me\NDJ]XYVT"pTfmWS4O9RjrT6C?:L]o:^MK&"k4ANWv$c7~?j2dU^-%SzZ. o+c7,Q]/2
++ZO|nRn+j'm_^C`=fmv)Ub-3uR@@9H26f_-?m_Z>o\<SQ]/2crWRA0)\;hH>N|Vd.;io'H
+5jSzWO[8QFc^FI hH!jY3[dk,B/KH2EV`jfU=Z$~On784=^i2jkPnE$2A^_aiIPlhsVG9h
+'{T<[^M&(Ec=I-\]%~?>i!pbJi#/;DauT3Tvv+m!N;X0l;CF1_?U:OsECF,:tNtPWIK^;C
+WC4#_U>Bj8%im(QYms-:,IT6,hT6NLWFm_Q9sM3[!J7G>xch.x)z3`e<HlQ0msn$)"3Y;z
+F}83Fr4xpWoVK'XS8qS3uIQFu0*zS/K8Pl[{?|Q(@z,bEF^oIt sO-`NGyE]-Yl6g `% I
+7VAX*RnAf+MSa]$2A^_aiIN*/\c/5%fLV!O|n&bdJ sR9<NV)khfnBuA,S9H26N}WFf_H 
+3hjsWFQ*o7oBQ<"079Q"p.qiC5F?7*Q]9|TnU,QeDLS%DL'e8We*,=peG8"tNn]qQ;=r3u
+GATBqZ,*eRer2%G3Wum{PFmeIq*8r(p/m` Dfrhfcm$1&Fb\1?#&7uo)i9L^7NJift`% I
+7V6m3AT6Ozn&]?ivo$8lJhe),=perC:`m+^D!Xr:Xw6@-Gcys$si7{1dN=+Q;XR:hd_"SA
+YwDx79?dO@)[:+\jq4OxRXWNQ&C?9+)J@ArC?hi{IfTx[;I1,WNg[`9|5Dk:fdX<%44Oal
+qE_ctc:'jxi#>:Wz)S@yJq3L:GGUh>9*j|jy/F?l!$e]]|T#rE!?rbd!T?[;I1,WNg[`9|
+iP`M[Z\U9_:]>xp+4rq}$P.AE3uTe5\R;z:k\j[^OxGm`^r/m)Bl)v,Ape1bO^@AIfhZ F
+P|=;\%9;8$P#j UA@uHbj|E?e82%YE^VGth;FNmAoN?P9`<{2LVgZ|7_Ox-%iPsd7{_"ib
+%\]pckhyN*hwv/:pQdhZ00uk>X^C*[" $?27>+2]]4gtZWo|6'@2R%V0T>kI>F0MQL]mjR
+`% I7VQhq?#P0(*$dVhyFb4x[RYV:hpnIHhTg(RA:0Xl.f;M+}cyGx4xf_-%7hfJnRZWPi
+fme,0%nwi9L^7NtQTr6jb07}a}RpuQS{1ddk,B?3H24xfrEZ_Qt=4xf_'em(QY7u@2\SC,
+2P]7GnPqTzdj\=#(Rw*$$U>ysECFft0LQLFVjSsd_o05&B6Bnb3GeR7|S~BE&1'eoDG"j|
+$s%~)d%6QTiS>],Wi@=R@A"g!mStbC?ERA\QsWrljd>F^CZS#hSZbCPv_|awAP;Cmo 6>7
+@8qyQH.M+@WF\P9b)CD-R?X4%ba`RiG\K6Fv( 1=h|i=my`K@78}th;}Ay'R0~NQ+Xk~ 2
+#0On78T]Oj<p);de$|+F^?gX\=#(dS_yp@GHsj!g($Jgotk;;3b6G:EV`jfUZ7>7\ODJYP
+m 85)c\e^\WuS|Ri2Ujsp^;b1T8gk5nQ#u8kAC[-fE-pDaOyiMly6 )qG:j<EYlrdu>5?9
+9q(:I|Mj8VBk<O<?FskALQWKet[U8S@;YdBE&1RpI^jKnqq?#P0(uOiS`AVGN69@sj!g($
+ebTn3HVI9h'{T<q4M&DuYPjUPtuQS{N15+`7nRHl_z8W;(qzC5F?7*Qm9|TnU,2f4I6m,q
+>BI"U_exf!s,/sg@g^-4UbQ5J14F9VG$/a7NfM'-p#NnV J-I([v8vrPrW8q2I@6kEFvmA
+4yf_WO+>7&_Y:^;zTs3G:TmrJ3YGsM\O/LQj+B7&5/js/HNHY/D\=d tnKf!P+jgrxt?F!
+\jb^3:SMJ>q`9ysERAXVm=dLIT]t'c74<W]I.qKUr@n+c0W)[0mDnDiMA5* ;GG(pdELW.
+_p>?N|Vd.;io'H5jt;r0AW)40+Eb3KqkUWC?p\hFrxt?F!\jb^3:=w1_Bk*2Y2?;%#U;:g
+QOJ1J3ft8v4xf_e)l}n+rOQg^LSc0Tsy%?Q.eWm3V^qZr0I78sTycgR2p,:XD3(zfz,h_.
+*a$M`:HoU>Wu3QFoj^+Sg@cj`35)nU>p&Z<)i:[I!if`Ul*!U`:^;zTsD8tWu:3 >ElJ)\
+9fTFEZeCm_BDb4m%5@8,3]WRV0T>uH+9,PIfMC7tnXcOPsF\ukMWRk_Co46TMd?YTPprG2
+RQawAP;Ceg/a:8sT^c2%18PDr;C%+~^TU%@uZu-7.nj|8bA7oXg/D}ciPK3GFoD\aJ\7/}
+I]jRp)m`3G)+r(p/m` DuA]2@z,bEF^wf=VS5D9@Tk?0h6D`huYot.9?<Oe:>w=/&D(Z8*
+R6jhU?Dp`LEYJSeHRcPw_qe:4D4FibJbk4u'TZ/2+ZdI]Np.90<;F^e94D_Q_c8I,{,}tm
+1b8_4N,E9Hm+cPPsU3VqC6NaH!7Gf+`1rQ[`j!Jbk4u'TZ/2+Zo4Ql2IqT,t[4ug[OC?LE
+ecfS\ebK4 Vnn0k3tC=o\jI`E0:K:.BGa<')8 JiS-1_]smCnDiMA5* ;GG(pdJ1DMANWv
+9H)GO}4JR#jgrxt?m#l#C?&_>'1_W`uA]2FPHk$l*spK)>mvi9L^B9?|s;^nIt sO-`NGy
+E]-Yl6g `% I7V1Ht77/KZ3I'k\RBhr8N? ~Fs4x0GmC`[=|;]nB`P7=o6.->wQmOR=JRG
+q\,*O|>B?>QPH|\e^:+Td",}eR:U8rH&5D(z2f4I6m,q>BI"ewT/toI"S%rVFoIfos+>Ap
+q`WICaJ8WF7*?jgYe,pe\m^M3X2CSH"O<G)ij'uRrbOdS02p)eHu:k1_nTm68ttImcJhjx
+4F9R(\8*R6uSZ~Dq`L`TmndLItW)_pm,/D7NfM'-p#NnV J-_z[ZUl*f1>P4qYWb.-3?qk
+tNQk]a-5X2\>@]#TW+_.*aCI\jI`/HNHY/D\=d tnKpKn+AI`2m,e:4Dm?nDiMA5* ;GG(
+EYsJh+rxt?F!\jb^3:i#:uZXPi\#[qg&MLW*/td"bsW)<Y/]"Qeh_RX|T#k6CF,KUW8T:X
+gD^D%Oc-Jh?C@n8^9erpI,W[:-Q*U1XRFS+ P$uR3[\e8T_]:/'5gK8i@7u:@i7*,G5DQn
+!lGHp\_SX~"6QN./1fN=pTJ1YkV69gL6Q?Uld"L!3cH>?igZTt-q:)L6iS6]8VQO5)ZgP?
+QedLQ<XRrkQ.FP5(BaFo12A*q]*_,&Ty;h;(e:Jc%\QC4ral+y@-N|Vd.;io'H5jt;I_A 
+DAtWu:3 >ElJ)\9fd>tMYdBE&1RpI^jKnqq?#P0(uOiS`AVGN69@sj!g($ebn:&I!~mg?/
+e]n:&I!~mgDL@nD+Rjv%A_8AVguX'!Z7XWEI:+1_?U:O=]_cQFbNhzX)i|Q=*aFom_i9L^
+B9?|s;^ni|ls3G)+r(p/m` DuA]2FP*]LN\;PQ&)]EoJfl@y,bEF^wf=VS'uX7ttjLWfq.
+(CQ{Qiq?#P0(U/c)5%fLV!O|meGin:&I!~mgIq@ndPK"[zW;fNJkN[h6<;e6lG]@grqZ,*
+O|>B?>QPH|\e^:+Tcy,}eR:U8rH&5D(zH|;d*I-6g@6]ca,9/HNHY/D\=d tnKpKMj[0o\
+rIl#C?O(FS0dW`[8g|\=#(dS_yp@GHsj!g($Jgotk;;3b6WjIt sO-BpeRn:&I!~mgDL@n
+18PDr;C%+~^\[kYVR@s: 2uf3>G^VE[6fO:S!^7Gk5nZ)6o#pKn+qY,*eRmzHm_ztc85jd
+8bA7oXg/D}N4A%)\Hu:k1_FoHl_ztc85sMnQl}85)cjsp^fm=:\%9;8$eXpKMj]JuHN`FS
+)}:k1_Gm`^gD,HoOR>>q'~t.Lg3f@AgX>5j$X^]wtoQ*uQS{i|9RH&k:tr1biPYg>",]W-
+mvSi:^,KT6C?O(FU8l+~j#JGpkfmqZgEcjpKj'5Di[s!.9cyGx4xf_WO*<jsWFQ*p,JhjN
+R?.Rb81__\k(hwm+:/ikJcbK39P*-E(o1d(ot/s2Fo 2kQFZN<pTfm8Trfrk8]cjpK85L6
+S}7.Oz,GT6C?m_p,TxA%)\Hub+39k%UWC?9++~nw,',IpFG,213XrmM:&"FOG2Df0Z% Xn
+3S]wtoo0)40+Eb3KqkT6C?;gs>^`T3TvUbHi\@/}r&#:Z?Z6]<3i]Iko>+'~4npdBieRn:
+&I!~mg?/e]Tnf?,s#}e9sda]H 3hHu,5UWC?&UBk*2\m>M&D:k\jNEQe>fi$Y(-E>E&D:k
+\jNEZ.Ds`L`TmndLItW)8iB}*2?hq3Ox2hG8u'nX#ROz4JJ2hBrx.9d"Rc7.Qmor+XdIh9
+h?b|9W4yf_S%IqW):7B&)40+Eb3KqkUWC?J6)40+Eb3KqkUWC?3?k%o|]DX#o\<S+F9R'e
+m,o7Ps8julMWRk_Co46TMduS/+lI'"@04(VI9h'{T<FI3tFq6\SR/w2Bl3#vT72V"+i^7s
+?YZon &DfF.m]d/}th.#>8:oB 8J'em,o7Ps:`e)l}XU8g]7uFN`FUmA%jm,IQ8KtMm+,u
+.n9+HlItW)PES{Pw7}]osIs@8]S&njE en]|T#]p`6K/<YE3?|mu&U'1'G,U_Q8W+~p),j
+-67(Qmor+XUBS{cff!]xS.R6/up)C?Psu3tc3O5D9V=]!`7GN8pTfm8TJh`>`=nRHlRpIq
+W)/tsd7{TO.6eR9FN5l0)\ERCE75Tnj^8bA7oXk3tCeW1>qzj<O}8n4xf_-+9+udJATrUl
+,jYy o+c7,sECF,:5Dk:@.G98J4xf_-+m_W@8qZUAsRWP(uS0$jGT:EIb+3:qkN FU_sW@
+m_s/b|9W)HO}_U-E(o@+i$n]apf_S%IqW):7B&9+S&s/%im,IQ8K4YkJI'jxtC 2`6HoQ^
+uQS{cf`3nR%im,IQ8K+~tm@)G937XGforxt?F!\jb^3:=w\jj!JbJseHRc7.Qmor+XdI,}
+UbQ5*aFoHlS-Tx&*:k\jNEH|CE,:5D9VpB]DX#o\<S+F9RjrUWC?1#qz`dm6ieHlQ07}XJ
+8g:4o16T@7Vij]1LP4h4M*ucV<RFre3j]Iko>+'~4npdBi'pX7ttjL$=A^_aiIPlhs$=A^
+_aiIN*/\Bnhu<j GP|=;\%9;8$eX1>jsWF8qat9EjlGYVE6qJiE3Pom`DLe]]|T#!Trbh?
+cmly34KO_+E<TxBE&1RpI^jKnqt"\qJM6Y&7fuc(5%fLV!$qM&(Ec=I-\]%~?:P(J+Vb5l
+)devO4t!pnRY&v3X[7fOtM9(RpDL-GQ/7}ilo$Hr/}%F`]Fxs>^`T3Tvgd )WBeCj|6,Cx
+YkV6o]n+=9\%9;8$eX\IqZ,*eRmz^C]zcyL!3c`6fmqZ/K>wq3?h+w1fQ8JeQ\!lGHJ6WF
+UGd!itR?.Rb81_C@?2"gAV5D]IuHN`FU)}:+1_Gm`^gD,HDDTQ[;I1,WNg[`9|]d-&tm1b
+]dN5:^,K5Dm_]YQeDL+}tmtj:.'5gK_p8W?69q(:I|Mj8VBkFYHlH'\{ZcLN[u*a-6Rccf
+]pcyL!3cnTYw5IDIC5m XUFU+ P$JGI$;h$Mjd6,R7S}7.sE5(<u;+,s6+cj:um,6 )qto
+r(WQn4^B_\X~./t1s2FocwL!3c]sK1<YE3?|mu&Un|K/;`BaENV11{<u;+ryG%Yg>",]W-
+mvi?HlQ0msr(j<>|m(6 )qk6CF\jV_:o]o-E[j1bQ8JeQ\!lGHJ6WFm ZGQ@JeQ\!lGHJ6
+WFU+S0IsW)N+FS0dW`ELU>>zpB9/'9A,Sz1_<u;+ryb ioJcbK3:P*-%(oOzGm`^gD,HDD
+j<EYeCm_BDb4m%5@8,3]WRV0T> CP|=;\%9;8$eX\IqZ,*eRp]#z-nk4v)Ub7}?2"gAVD3
+hhaj+yEj.XRyuQS{N15+`7X|EIsJX{St7.Oz,GT6C?m_p,TxA%_RA%5(PAfz8TtF8VN5I^
+jK:)eVJ8+>7&j<TvT<dnLB.3P p.JhtLb|9W)HO}_U-%(ogZ_yp@X/BjB}*2Z3#~u26C.W
+o6RAmi!H`A!-MQPTs@OiFzD\aJ\7/}I]jR`EGyE]-Yl6^g(Dc=I-\]+D[R6YSR/w2BA(#v
+0kPDr;C%+~^\[kk0uT&>VhMU213Xv!cl&Ae6lGCF1_?UZon &DfF.m]d/}th.#iCT}[;nv
+/*E"<?-"#Znpk#eTR?.Rb81_jGT:pTfmjF?mi{D3YkV6Z(P?QeI%+Vd"DOe)l}kAm'6 )q
+k6X{Bvq`H",WNg[`9|Sz.JX`ILA U+S0IsW)N+FS0dr(p/m` DBnTi^yf=kDTX#=Nn`4g 
+2M<dFS+ P$uRok9/'9A,SzE3:-sECFE3/vp)2)<u;+h/8/)cQ^o77*Qmi S{cf`McxL!3c
+`6fmqZh>cj`McxL!3c`6;be`9W4yf_b039SMfz_rHmEWI2,WNg[`9|Sz.JX`ILA U+S0Is
+W)N+FS[oC?myj)e, iKCd7,e5Dm_V^ez0%.7j#uRCkm]fKl^N4-%Sz3G4#-6hy/shy/KQ/
+S}8[k5nQ[_/}th.#iCEZlr8I>p&Z<)i:[I!if`ja%@@+i$n]apf_'ym(AI>P'~uO'!Da$C
+,%GZVE`S-Vm:uA]2FP!$Ld[ie Ksh3e?J33RCV6I8d&JOGVsZ-[,5tQ(3i]Iko>+'~4npd
+X?+D)`e67|G#ijo$Rpfnc]`:SC7NOxmeIqWOv/A[${J]\qVcbJP{N_FS)}:k\jaD?CBa*2
+7(DfD(6Ujv,NA(+~@~m_oN?P9`<{2LVgZ|7_27f_b03:$~T5pT[qg&MLW*/tcybsECtWu:
+3 >ElJ)\9fHB2]S5?PQeqF*_QyN*O|MeiR>]^C Q6Bi BOa%D)mj@6Di,/M1'ai%p!o|#O
+@xqz8d-Vl6WD$y/BHQh3M*%3_42jkPnEft`% I7V@7PI-r784=VI9h'{T<FI3tVI9h'{T<
+[^M&e"5%fLV!O|n&bdYo4n9R%yENsw4)LgEK?BA\%\g0az0LQLFVjWn9;9,#@vQnuQS{\o
+e \=#(hM_yp@GHl3]@-DHiItW):oQ]9|MWRk_Co46TMdU/sG6ib07}a}sI04&B6BQEsGnQ
+FoTnOz8^tngX\=#(dS_yp@GHIfftid34T6q4ABs%90lZIp23NQ>Kh>E2>kI^3~h3/IDm'U
+?rat!w3*>"A\l|-$1vgoo5Ong{\=#(dS_yp@GHsj!g($:Wb\.%`@s;CNT;$~On784=^A9u
+FrSln&]?tphODzYo4n`YoN?P9`<{2LVgZ|7_Ox-%iPsd7{T7(l7(WJ]t6\8V1p`7X|BE&1
+RpI^jKnqsMWSFI26l3rum#85Tn3G]IV:>Z'~4npDIqWOk6HlrEIrW)/Lcy,}Ol`DBpf9E!
+D8o^+M3`S@BE&1ZdI^jKnqb0oUcpPK3GFoD\6?]6/}I]jRsd_o05&B6Bnb3GeR7|S~BE&1
+RpI^jKnqsMWSUlFI26l3beR6`V=3E.oE u#[=_Kl6\:+?vo4#/GeGdQ(9/+y\7Qa;4&ROh
+]19/+y<<$Vh`o=/,A}&l72`Z@WL(b?68fpLC"uQE`mmd>7q@(C?K=\a_;/bn#qr(_S eAv
+eHK?BE,d>>-^@"0Umm?oC:79#OQ(I?jtV8'uX7ttjLI2q?#P0(U/osk-K?VuC^R}q4mFgO
+@nsL4[8vH"3hd3+fpDCGnUC\8#G{4xuAUJ]oX`b].%`@H0UGIt sO--;_(2jkPnEiWmGIq
+3A\~hsDzH#3hjsWF8q,{.nj|8bA7oXg/</tR3C]Iko;HQhrf_T3Qo<Iq7%o\@<tR1mnU`a
+@:Yd2VbTT8dnE=pFG,nS)DYb2VqPAhpDk-K?Vu8s/^:8sT^cWJlI'"@04(US:E^yHd/iA(
+dWsdFbCg[Rtp1dWV_&jTu$(I4)iRI24BXE)vethyN*P*Mev+fl>X^CIR]IkoIM#jSZbCe+
+@!e5A1m`H(FN5re8 NNP8c[F[\Ojrf3iq|ndRQY XW-4!*.<=,kHr-si7{U`-%iPXI/LdN
+h9[bOxkQ=1[9&qDCr\`_n%iuDzk&\n]rn%:g1d$SY12Mp.]|Dhp-I&gBe)3~4O -<,s~(3
+DBr\@=o^@z[5]O&oH]0upZqJU)bXEWgd*4QP@3YLv5C`QXZN_vELT#H|`mjSqG0->gIXjy
+1oqze_4pK+>Qb[eu:)om$)21\US+u1A{\OS+u1A{Ted7RO&JZTNALQ=9(#u:unY1d TZ?i
+lzjFnl;i&  e]$-?5pOD'u1w6m,qY=G3gq7~;V3YYNr(rb=40^r.Q\$NliW|nEK*&Sm(3{
+;tMgU&-ybwKCJ}R(@~8$_Zmt8eIDIds18lTU\[<PADELiRj$r-XNI2e9"5@@[80,s_8mMB
+qOg)\g0mN^UVT3AE[8RN`'mq-$Xsr8'x?rqeN_8FK0fkS+u1R,d6^WboWi]qi"v/e{W*@A
+Jq3LO~K1rcQ@`{'e'sg.PvSCZ\>yOjRF`'mq-$lwR:<K6jhBb/39'aQP@3;nF`MQrc )WB
+u'U/6C]pZk[xMxmA&nJcebV<j#hPi'6{R,lz_ooN2@e&7rs*/gfj+}oVpG&R_YG4P=6S9}
+8!cWe)fxb6RjW\79Gm:xmvf_TT7Vm~f_[;J}I"1_mm3Bel"3rb=4cqJW#%G0chucGgA">J
+E{(ZDNSURsC##e-nk4G ?u2n=cFMSI>\LLE*'6fKO,@iVt*uQ(F\,[LeN|?Yft#v]Xn{HF
+D\aJVq-;3P\z[^%~[pMPRk_Cnsftl_3PT6q4!"@:b[68YgO,ugJv^n:EG!T5uO.+YhO,ug
+Jv^nrEHdP*megOP(m4]*;JUo%BH2UGpS%~)d%6f)>]^I2V^Ue>E2Ft>!5yZjj=jX)yb,5i
+T:`=;I[7=FmUfEUNE.]8\;+6J}BjFuTGjEmi2X=/M[Rkr6j-N/BN5ygW.mml&+Jl^~(H_4
+=Y$~On784=en-2_(Hd/^DkFcC_)`e67|G#%~?T,DczkBDyjE^fJA-C[jOxN4N4]sHiJ.:c
+QP5+Y 8Ot|oPAcZnetI2Q?lb3Po<g?b07}G#CgEQd3+fpD4X8_C^8#G#Cgfrd7I L]*b/g
+7_To4YTkosl^^[\xdYXIFc26)`ev7|G{ij50Qli 7{,G\nXRQ:rPCH9+7Tl.@O+"J-ftQd
+)}et>gU<,"3IUW;>IL<7'eDeftQdU)G]4xV]rx2H9(ib-df#"`G$UGWJHe:I3n\z[^%~)h
+(yrEqe?l+/"`#y;Md[I23AiRc(G"C\R}:]mHDL3AUWOzow]?JA]s:^&DQ>XLP?;o4]EJ;,
+sJQdrP3PiR>gl3+~AK)^Jrm:j<mi2X^Ue>An!R_4FTGbGj%m sD]tj7Q`Q?EST6uIP!g[W
+R~Q]6uIPTGjEmi2XQ(F\dk,B*^%!Aj+qno<^813XrV#%5F?OO??Y.lBoJ]8d-Vl6g dWfo
+3AUS:E^yHd/iA(dWsdFbCg0GE.pbD;YTE2jN50QlRaj|AGm /<fwB]?k+/"`#y;M`7-4I&
+hgDaSuOfo}?PW?JA[YWJuRH3#9jw^dc9+9j|fdP(n%ZN:]&!)devXircheDaSuOfo}?PW?
+Qz2P3vS@QH6B7N:WWY2;jzAGO;j|AGIXjtV8-;3PiR>gl3+~AKUGEd4S(oh(dC0MQLJZ4$
+PtOHX\6I'|MvKjL)gSFcUG:EGyqJ?=iWmGg?3AT6Ozn&+}_)p Ubd!Va:ooBRerP9BWQQ(
+<4'eGH5DnU8q:T3nUW;>o2h{7{_Z6>%A'sVzp^-43PiRsD\xla3|T6q4%~0ehQ4k9RrPrk
+4Y9VWQqHR&J?fwon;*QhTrosIaiWqK)}e6sdN*=wDCRwmi2X^Ue>E2NrhlGakQbDM*n/RV
+SG'I?r/"g-12&9"/8#B(.::~t=K!-r??oY0V%W>":,tcG.2h^Ue>E2FtCFH-D\6?a@PmBJ
+&,9EkH,7uYGg0qH28q/^8_mH_7HdTk7}Fr%~?>b0'mYo,;5Dm_fn@+,&?l9{WIpe<M#=Nn
+]qQ;=r3urLjFFlD\aJVqp^-4o8p+4rjqsdN*huv/:pQd >XDI[L]*b/g7_/lnUmFCG)`et
+X=?L4BS [^mFIq3A\~hsr`F_#2n>`_.8U,-TY+_Q=8_^J11oqzC51oKTcfPK3GWIJ1S|H|
+&S'GEN,A[fGk8lQ,mP)"u;;pp)62o`CGdSQRQ9(FQEos3@(zfz,h:cQP]srNQ.V0 38NYh
+>",]W-FxTBqZ,*O|FJ`>n[>:Wz<{^H4QPxc`tmSipTfmjF)g>dq#Xnto^Wli3|T6;>3vkJ
+Calz@@&c'GJs:&;#-a)k413Pe<S%Q9_sX=]lsNI1"=G<8J_]YxFZI$+[1d&-ng,',I5Dm_
+Q9rf]ZFzD\aJVqp^-4o8p+4rDkN+O~OW:osECF,:g98/8rYwFZI$+[1d&-ng,',I5Dm_Q9
+rfH%*Imvi9L^7Nk(:Ih:j!If_M7~G#26frv)Ub-3 ]WOJq3L:G"40`u5RGFQTGjEmi2XQ(
+&+p\(bN~s5"$&Z;f#O1$'-XZJ.X')I>$X$BE,R$>P&`L^DT8=;W} bWLETFtTGjEmiflp:
+i9L^LJ+Fdu,8?w>RmF'*Pmqg?l+/"`#y;Md[m<RYL`,N1oe,sDFbhBc(Gz%~?:b0Ry;>M(
+ERZ9EWUP,htC3GENq5_S6;k(:Ig:\x,!3Q1s5+:+\jO(b&a 6$ntJhT"m`IaiWqK)}e6sd
+N*SMJ>I~s./s2CU>Ca;iENm+@#r$<'I3XSAD 38Nsx4)LgEK?BA\%\ENN-i+jY-&H|nI*D
+M(S{:Lry[9iD1U)8if_"8HtcAUGfT;m]W$IT'sXzq9,PX~ d+cheNS21W\nW$lQTqYuQH3
+#9jw^dc9+9N`P20L_hAs^`nsJh*88~NSo[:g>wgKuRu1U/6C]pZk[xMxFZ*8r(H3#9jw^d
+c9+9d6f_:R3nUW;>QTu3mr3O :`6HodQ;m+\QTp,,Af9;HsJg:;KR,=u4SEJ;,sJg:1mDk
+N+O~OW0%9$&9qt#%5F?OO?_yTsX>qJTrG]C_A(+~3Q1sX~n"R1UC$Gt,&qUD$Go/m8]XCa
+9RrPFoI;d.`:nVs"X_C^T"pSC\c.Gz26l3+~AKu|50O~kQkG4Q(oh(dC0MQLJZ4$PtOHhl
+6Im:PBG1>F2kQ schkcHjR-2^[,HS pSmFZNOzov+}^TN*/^V]#yk&iGI|9UJX\)WXasE=
+s}:0=]OScr[4-vTii|9e@2\SC,2P]7GnPq;Aj$o[@t97#5'd4)Qzi/I)OJ0aI3OJp-HqLW
+U/n"CGDkN+O~OW?\]v>KWYe<_W6>%A'sVzJ8:Ir,[9iD1U)8if_"8Htc@|8_topG&R_YG4
+P=6S_cW4)zet>gU<,"3IUW;>QTu3tc3O :<2v/Fx)g -Jum:j<mi2X^Ue>u"0 BZ[c\E/h
+RJrJMZG"3m*$E5FtTGjEmifld>^CEV z6J17k]_XCj3n>i4^Bo1sA6>18o4pl3CFs.]z,;
+\z;>rE)G.Wax9Et6p17'kaA+]wKnuis~ciJW:J)M[+8Ss~/u%W!@!|XqmH4XTkosl^^[Pl
+Ozovg9N*/iA(#vqlkH.}-nG1@8Viregfr-Xn7|ilt#tY,]7;$uDCG1ukI<k%T6C?t``ET 
+@+gAWN"/^s_%B|eCCuJ8:cQP]SFsHlQ07}hJrI0$o8:e_Y)_ja^JSc0Tsy%?Q.eWm3qYmc
+:XjyS|2f%KNS<MrD0$o8- ?l_"K\;CWC9H^RWuJ1S|H|9fTFB_qPE,7tgAZJQ`uQS{WJ[ 
+:gQOXL8gU`-3,ItCfJcOPs/uI2S-rfFo9+K0fk.I=&N:C@GyTB@y,bEF^oUlrEpd%;%~)d
+(yt/s2Fo1coOqe?l+/"`#y;Md[I23AiRc(G"+D)`iXX=%~?Tb0'mmC`[=|;]nB`P7=o6Y8
+n%;HOz]Cqpr}9<NV)khfnBuArY_s27f_H ezHlQ0-3dMits /s>w+>7&#=Nn]qQ;=r3uWQ
+jGFlD\aJ\7/}I]jRf!I2HBMhN*O|OWu2tc3G(qGg.X-,:3iD%)74 X^}\mEW+iq2[BP[^o
+JU5:WM&jq6nZmFCG)`etX=?LcQ7|FrC\7%'tJp/y%W!@!|XqmHqh9<6@&7Ra?SftdW^?\x
+dYsDFb26)`iZX=>_uS[zW;fNJkN[h6<;etA<)\DQmLofRY&v3X[7fOtMiXk!\~C?_+B|_Q
+8WQdm+:/rDV.,>J7jDPK"61f8ggAWN:oQdV0m U^6\N,^B3X2CSH"O<G)iI6S-rfFop\'c
+74<W]I.qKU1_o8m`JhWO3e]Iko;HsJQd)}+}3I1s<22kQ schkcHjRQ6u0iSX1=|&8Q{)A
+enUG:EGyqJ?=iWmG?/b0Rxm`gO@nXV+iq2[BP[^oeP\n:EG!+DTkG]qJ?=b0Rx;>mH@t`+
+5TLb-al&:)eVK%pZ>wQ]OR`MS/c@Pb79t{.#>8:yhCVq)_DQtKR>n!XfLd.Vmt?9QPU[`F
+($Zgn]@)h:c:e,k$8J*<G*_QrQCHgD-36+CJQOXL8gU`3I$MY#pTJ1B\*2,E/HNHY/D\=d
+ tnK:uQP5+Fsp\]b-5X2\>@]#TW+:cQP5+Fs;gH1cfPK3G:cig1?dk,B/Ks=G%\nFI26V]
+Gm3=hOtP\nZPmgu,e'0%nkfqsMDx2Go6,G8JJhe)I2?CA[:JsEH;r,fthF-36+CJQOQh]s
+3I$M8rJhXRM:&"FOG2Df0Z% Xn3SHBs%2HryE3:K:.BGa<')8 Ji:XjyiRidSOfzB__Q8W
+Qdm+p%FlD\aJVqp^-43|7{FrCgXDFxe30%D-YTJW0)?9g&`3Z>P?T#_rN5Q5*aFo8\tNe9
+^gc7R2/u2CqT,t4-IRT?gZTtnR@)h:Dk;i<?nXHlXRPi0wjs/HNHY/D\=d tnK8s>y)d@+
+N|Vd.;io'H5jSzrPCHgDc)os2EqTFN:.j<TvT<dnLB.3P U3_se:m>IQ>iN|Vd.;io'H5j
+t;fthFc)j@TvT<dnLB.3P 4Z9VtNe9rc]b-5X2\>@]#TW+:cQP5+Fs3?tN>p&Z<)i:[I!i
+f`Qh]s^TOR0%7NfM'-p#NnV 9|tC\nCa4'SMfzB__Q8WQdm+p%FlD\aJ\7/}I]jRf!focQ
+hyN*=wmr=x"G@:^I2V^Ue>E2Ft58$ (^DND^#y,ZJ0l'U)ECFtTGjEmiflp:i9L^LJ+F/ 
+RJrJMZ:7urI~m 5;-5$fh`WDI~'zMvKjL)gSqns~,]V;N6nUmFCG)`etX=qJ?Sb0Rxm`@t
+h#&M'G,U5Dm_Q98l+zsDp,QZ7}sEH;r,HV,)eBap6S\%9;8$?hTsCHIdZ~s"a_U`M 5,2^
+"tNnEY,5q`C5Q(4XG$$!J91uW_j|FN,WNg[`J-S-rP_D3Qe<+ytmU^gZ__,=nkHS,)6+l[
+)"rXU)2OOjD+rJ[hOx5+iXUNE\0'nkHSa~+yar9EjlJ,nm4'p+Q/5,qxU)3Hh{rbqZE3:K
+:.BGa<')8 Jin(tL>p&Z<)i:[I!if`XLZikz%:rEU;]o`:nVs"n5:ujIE>PGrnSlove1b;
+9_Y#BvkJ><\OJ1:ca`*UYy o+cm"?hoq&,ngQd.8OlQ5*aFomq]cQ;=r3uXRFUh6j[2n/k
+,@[fGkFZGuB}dStmtjUGM+5,2^Z8;|et3l)?h7n^A<)\J7US4gQnH;Gneh0JXMoli?4Aal
+EY:+\jI'e_RpsFs@4Y$!J9E=F*D\aJVq5DG$_&`=J8Z~eT4pD+,z@vk6.*YhO,ugJv`0rQ
+U.H%^}Q/5,qxTr3Hh{m=Pure:GY#Bvdc>7\OBv>{oGkNv"50Fq]srN4Y$!J9TTkHZ7iBre
+FS00en-KJ9h6/+!*s!HWG$mc8dk&Hk!>U%d>I L]*b/g7_/lnUmFCG)`etX=qJ?Sb0Rxm`
+@th#Y`4PS*Mm@>t-E[-a#IZjN.d>^W\KDxh?XODslkm`Q]uQS{cf`3uK1bN=pTuKgXTtDh
+h?]TQ0V0+>7&5/,55Dm_p$,{E.:K:.BGa<')8 ED*eH>N|Vd.;io'H5jiPD:DA*eX~H|,5
+]lPM"6,I_,`6uKgXR2uS/s2C,5]lPM"6,I_,`6uKgXR23],55Dm_p$,{E.:K:.BGa<')8 
+ED*e)_ERdQfS\ebK4 Vnn0k3ta]@'c74<W]I.qKU\jhUhb5KJ6/HNHY/D\=d tC@Zu[0Jw
+F^rf]b-5X2\>@]#TW+]lf#bsS-VqC6NaH!7Gf+]N>[ihn,AI9+6]cam6J&7*sECF,:tCH"
+fsqZr0iw_ts.;b<?_YpTuKgXooQlm$]ZQ0V0m 85Tn?U,G5D]lifE ,+6+cj^Y3X2CSH"O
+<G)itq_8hUEC*e`6'c74<W]I.qKUr@]ZA eW4Drt:Emr\7fT 4#`XjTitg9?s.J1_,L2Dn
+2@U>,hta`3?U\oM<Q-,hta`3?U1dSzBvtojs4DrtK6d7^W[;.6tm1b8_Ojjn]p:!)cjsjy
+enl'PE2f$c#zch.x)zHmG$WM:7tR*&tR/+rn_ 7(=]R6/KQj-$rG]cQ;=r3uXRn]@)oG\O
+B]Q(4X$!J91uEMOmbD H'AV:Bp:ca`*U)?dk,B/Ks>^`r9XUp?]i83tRe!GzmcA-Gjeh0J
+XMoli?4AalEY:+\jI'e__]_.n]@)oGGjv,Ub3HgBrI0$rn`a-G.n9+m+8m+ztm1bFMFt,W
+Ng[`J--GBii&\)fT 4#`;-1H@yt+^+-X=&N:XuTps0k$r$p.WuJ1Z{hw)V>dq#Z0#~*GsM
+5(\SpKhSqXn(jv\OBh)+)?h7Y)n%)uOjD+rJ[hOx5+etUNd"_8_"BsS@gAGuojU;@u]w-%
+iP2liXk$r$p.WuJ1Z{hwunFxmcnZ@)oGkNv"50Fq]srN4Y$!J9TTkHZ7iBreFS00en-KJ9
+h6/+!*ucZ{eTTnCHIdZ~ /d:iBZCTP2VBo4G&Z"CoKfl`*O(b&a 6$ntt"u*QI;-b6rEFb
+\n:Eg:/eU<dZFo)ciZdigf,7uYGg0qH2[4c?R$VfU9osQc?=4BS ]P3A:G+~_)1m_+B|Ti
+d#fqk!1oFo8\tC8VN5[;t<,B0mqyWQb5uRCkm]F+9VWFn4Yg>",]W-:cUTi|UA@u:d^YmZ
+)"rX_sChf_ft`3pWB]3%]Iko;HsJQdrfs0XI1nV]h.8_N|Vd.;io'H5jnuS-[YF}G2Df0Z
+% Xn3Ss=b rV_Ss(8}\[65k(:Ih:j!U<g=N*SMn"j)e,I2sM@@&c'G,U5Dm_:B&D&35,Q*
+^hMLM(AsRWP(eOp)rE/KpWB]<sZ,&>;VngG"0jh7Y)ov2NBuS@ZPP#\U9_C`N}F`U)n"3@
+k:qw$P]P]r/7iPTe4rH7&2dk,B/Ks=G%\njh@.g>:P+~AKIfS%rjOxUI]o`:nVs"X_to8q
+tN_-jY>ge,Xi8iudFxTn"Vt,s2FoUGmD2rHGe,Te4rS3XLqg?l+/"`#y;Md[I23AiRX=C\
+R}:]mH3GO|owmOn}&+Jl^~(H_4,HS rEFbC_TkG]C\T";>mH@th#Y`4PS*Mm@>t-E[-a#I
+ZjN.d>^W\KDxh?XODslkm`Q]uQS{cf`3uK1bN=pTuKgXTtDhh?]TQ0V0+>7&5/,55Dm_p$
+,{E.:K:.BGa<')8 ED*eH>N|Vd.;io'H5jiPD:DA*eX~H|,5]lPM"6,I_,`6uKgXR2uS/s
+2C,5]lPM"6,I_,`6uKgXR23],55Dm_p$,{E.:K:.BGa<')8 ED*e)_ERdQfS\ebK4 Vnn0
+k3ta]@'c74<W]I.qKU\jhUhb5KJ6/HNHY/D\=d tC@Zu[0JwF^rf]b-5X2\>@]#TW+]lf#
+bsS-VqC6NaH!7Gf+]N>[ihn,AI9+6]cam6J&7*sECF,:tCH"fsqZr0iw_ts.;b<?_YpTuK
+gXooQlm$]ZQ0V0m 85Tn?U,G5D]lifE ,+6+cj^Y3X2CSH"O<G)itq_8hUEC*e`6'c74<W
+]I.qKUr@]ZA eW4Drt:Emr\7fT 4#`XjTitg9?s.J1_,L2Dn2@U>,hta`3?U\oM<Q-,hta
+`3?U1dSzBvtojs4DrtK6d7t-_RDhp-QZ7}rDpdG8"tNnEYfoL/[!I2EX-a#IZj##4)%.e@
+R?.Rb81_nkG"TB\U9_C`]d4MalUI]s/7iPI2sMJFe \=#(dS_yp@GH5D8_k6*WiXFoCgmy
+j)e,I2sM@@TQ[;.6tm1bFMhZZ01\5ZL#gKc`tU^+-X=&N:XuTp50enFa`>Gt,WNg[`R5`3
+X?qt$PI<e_1>h7CS3nSPD+g_s&Xn7|8sjyr$E#ek0J>kN}F`)}ngr-c10LQL]mjVn9;9sJ
+QdrfH%^}]PT";>3vdcC\ftkNK'XS8qjy!3u1U07}tB >freO.Gf->],e^Ue>E2Ft)<+d4u
+e\>~^20GTtQI;}QII6(S#V<=`2'*8e`8Ld[iilE2FtTGjE7sd>^CEV z6J17k]Jc%AC<G!
+1cJ QpU[8,PM+J9|:Ta{6LS9@ E\*l$r/B-V\7Qa;4g32o=/M[Rkr6j-N/BNa%nuRQr!#%
+5F?OO??YftdWfo3AUS:E^yHd/iA(dWsdFbCg[RtpWN-FiF50'zMvKjL)gS,I-:3P\z]P_M
+7~FrCgl3Gjs}/u%W!@!|XqmHqh9<6@&7T#m`Ia3Ao<l^_(N*/\l3dWXia^]s=,]v:gQOTj
+2fHZjtV8p^X?C\iW& )h(yU`[aOxH~L]*b/g7_k(:Ig:Hd:I3n\z[^%~)h(y@+R(@~q}#%
+5F?OO?_yTsX?qJTrG]C_A(+~3Q1s`6-ybwme&+Jl^~(HI^3ReRl_3Po<g?b07}G#Cgfr[0
+EWUPjf,9R0]/;JUo%BH2Tnc)G"hBXIN+O|n&gOWOR9r!#%5F?OO??YftdWm<RYL`,N,JS 
+pSmFZNOzov+}^TN*/^V]#yk&Y7j&-CN=TJ0Ghdfz )WB0!t-.#J/lz[k8STP9~<P(6topG
+&R_YG4P=6SJ.lzY)T>6YblEs5a[%SWE5^o7*QZV#asi!`[Bpf9E!D8o^+M\)<=hvaz-e)^
+bh(vH>k0H~jtV8-;I&3RiR>gl3+~AKBqY"0L/u%W!@!|Xq8sjy:IGy4pDkHeP*meIq7%o\
+k8COWYask#GfT;m]W$IT'snP+~9`i^1mM4OCkhKCT(N2d6ABv%U/6C]pZk[xMxey)ZX~8O
+t|oPAcZnetI2Jhus4)LgEK?BA\%\m64P-9IRhgDaSuOfo}?PW?Fx[opSC\c.Gz26l3+~AK
+9er,Tkn!!).Ff->],e^Ue>u"0 BZ[cdM3mEvN%h3/I`AVGN6O"]fhODzFtTGjE>F*#>df8
+Et,3,^2n&lfKn{lj*:_e)q>df8Et,3Se!RTsO(b&a 6$nt3Aen-2_(Hd/^DkFcC_)`e67|
+G#%~?TRjv%iee;s1UN@<q)Q\e@CGmj$)21OlSwiMid$1,%9VtC\nCaftHcL]*b/g7_tQTr
+n"CGjqg:P&ovDLb07~bvs1_S6;:WG!\n]Pb07~bv?C-,.n`2j_`$mq-$;63=o[Q7^}:-qy
+f\4i#y1b;l@yXD_ =N9k]ejRV_cw;!@yO;;l@yIUUD]oX`8s:IGyhBsdN*i#USTJ8|MRj[
+O'b&a 6$ntsMWSpW^}:-qyf\4i#y<MeSGj\nK"ebV<j#hPi'6{3=(oqLTrG]C_A(+~3Q1s
+nT@9eSW*@A\.=[uk>X0MQL1!H2EV`jfUWT'nX7ttjLfoq?#P0(*$etX=?L4BS [^mFIq3A
+\~hs<j]h]\a0Pm@>D{YRIhjyUWC?&cm(3{\z7N3@tN26f_TTD~hcNS21tIkJG"]sDhp-I&
+gBe)!,uc9HhBk&]p:!_Y1G(wkKE9lGFQDBr\`_ovQ=rhsIp,QZ[!2s9XhBk&]p:!_Y1G%4
+kKqeT3P|</D{0!t-cx-3,j`G>$mqE9d?Tei|l3 iCqs0Q\FKui('m(3{;tMgm>U*-ybwqi
+KEJ}R(@~Htc0G"RpZN_vELT#H|`m5N9$0e_Ur(WM_l4qIXWQD=U< &Jr'dQP@3DWd8.5+E
+ 58N@#r$<'.8mt(^R]j|AGu|50O~K1u2mr3O :ukFOhkL'lIiU&*;}G_5DQ(E;0!t-cx35
+m7'*Pm,bcy]NS+u1R,Rd36Z& o+cm"pG&R_YG4P=6S/3+R[6iD1U)8if_"8HP#[WK"ebV<
+j#hPi'6{F`MQheDaSuOfo}?PW?8!QU9?&O>aR(AkmyGF)g`m@9I%1_oO@<UC$Gt,ePG  T
+uA>sRoVQ&HZ<_TiwDB"42mUzNY$APN+0NS-[?V@7VirerQ'ruZR,`MS/he$HE[5_&}(c*f
+6A&p;8_-`N7=o6CbDZmL9p[]CtYIWDGN-(e>?.#L@T+d$eoCGel=:)@7oeOCLu..k4a<uA
+Q(E;2MVU/f71VUO6sTrT#%5F?OO?U/n"CGjqg:P&ovDLb07~bv)W>df8Et,3Se!RA"]$iw
+DB"42mUzNY$APN+0NS-[?V@7VirerQ'ruZR,`MS/V/u'WQrs#PRz3utw9<NV)kE/pGX/Bj
+5RR_I2]gQ>u0RJ5iRS&+GCpG'ruZGAbl6JR2pdK?RUQNI6(S#V<=`2LCtM+zjWDz_x5YJ~
+qc<I4'A5VXn4.}-nG1@8Vire1p9$0OGm)g4-H`0dX8iwDz6t?NNB6t(7psns&+Jl^~(H4)
+enfo_MX?)viXhyN*O~OWu20MQLJZ4$PtOHX\WBWK)Ei"ar9Et6p17'17V(#QYyiw[q^qE:
+Je#/;DauT3Tvv+p$K\oMbDT3[mS0\;T3a5:8n/A3L3A`8AVgd'hUhenBuAOVcr[42;XDiw
+^BPI8c&g>*a%G\?|q)g2W|'^QP@3DWnDr"n=a-uAQ(E;2ME.oM?P9`r8'x?r-KQ(%?Gd,}
+I;L]*b/g7_:WG!\npSC\c.Gz26l3+~AK$k/Bn7^%&)d}Ks[h^qYf]X=|;]nB`P7=o6CbA\
+u57Q`QB(t``E".m"-$[H<+^^h|kd=|;]nBFVGb213Xv!lUFQDB$VrEE9,Gt+._KT.p,7rj
+jX(3DB]'S4v+flD~Rm9T6v[:]X)6s|Y?*#0Z;<r5RY&v3X[7fOtM(wQP@3;nn(@|o[v24P
+Oot59<NV)khfnBuAOVcr[4-vG|0dGmhf1_7w%#U;Ut$G3si~Dz-p.MmaXfLd$L*d6A&pq.
+X/Bj5RIveN:)VL%9ADel_PO2(oEh]givciJW95V QQEW#W+Ik0!97u`*Xb*JqclAkWS+u1
+GA"L><9UJXd1K%CF]Ziv7Sl.@O+"GJnU8qP*n%ZN:]&!)devXi:+if"=Hr0+5[8 \AD\bX
+a-5is.6Ycav/o|uQ1m((t/d#PkQ8ord PkFM >t`uZquI,Vsr;I,(@0 /y%W!@!|Xq8s:I
+Gy4pDkHeP*meIq7%o\pli9L^LJ+Fdu,8?wW[@BL'ctt8sfPcEWAE$k/Bn7^%&)d}Ks.+-u
+s|a+ 8^tiv:RZG2M,5[zW;fNJkN[h6<;etA<)\DQmLofRY&v3X[7fOtMiXk!\~C?t``E5A
+Lb-al&:)eVK%q;QRQ?8S4p<fA6)\ta`EDp<eNcF`p$u,N@<KCxnQWD,GSjDkAC\B&T14\'
+;|W} b7t^xTAY8nmsw,]7;$uDCG1ukI<k%T6C?t``E5ALb-al&:)eVK%]W'em,AI0+BA[z
+W;fNJkN[h6<;(yG:j<l4<%YNT6C?0+BA9FYNIsW)ta`EVb<bi^I1nQcimZSpSKZ3b=d|DV
+R*Y*5eQ(E;mhn}3bJS#/;DauT3Tvv+j~]p-E(oJe0)PK+0NSsa<'\PUsgA'emBAI0+BA[z
+W;fNJkN[h6<;$UG:j<l4;XYNUWC?0+BA1oYN;EOzp&u,N@<ICxnQWD:LTFZOO8d}:4dpco
+9_SL"l)=:c]ZFO*]QH-O\4KsGzm*96t@awgHuTA{)Zk`uHA{TeK^@#r$Q\FKL l;FQDB7I
+eSOo[$`%mq-$c^#TNLcr[42;uAQ(E;_Z6>%A'sVz-;3PiRsD\xla3|T6q4%~[p?Hj%..tc
+"'n6B*SI]J/'&~iqA_*2t-ZY_\Ts &3v5T)B8*W)4Q)B8**8DDbaB!6t?NNB?s+/"`#y;M
+QhTrosIaiWqK)}e6sdN*i#ar9Et6p17'kaA+]wKn:RZG&BJS#/;DauT3Tvv+Dxp!u,uG&>
+VhMU213Xv!7@DQmLofRY&v3X[7fOtM.=@~:L);iRYKDn@6dbCg<fe:dbSb80YNQ'7ud>Jq
+Jt8rA_8AVguX'!Z7XW*HuK@2*`6A&pq.X/Bj5Rshp u,uG&>VhMU213Xv!bK9_8r+ysD<d
+2G0+BA*LYNB\mL9pW#<f8S+zm:5H5J,I[zW;fNJkN[h6<;(wJe0)PK+0NSsa<'\PUsgQs+
+JUJc#/;DauT3Tvv+A5,o,IQ(g?YMT>S010T%<f\Iqp,w;QYNWDQ(I3^H2VFE-rK{lkcRZ0
+>s.^n_% DkBAKhtM+zm:6t?NNB?s+/"`#y;MQhTrosIaiWqK)}e6sdN*i#ar9Et6p17'ka
+A+]wru:RZG]X=|&8Q{nv,Di@t#16,T[zW;fNJkN[h6gFc9t4O$Jld1WOQ(ucuiFz<fe:db
+i8.}-nG1@8Vire\{0mueA{)ZGm]gQ>u0RJ5iRS&+UQs>M/T3cqu;'!Dan-L m\tL+zjWH~
+L]*b/g7_:WG!\npSC\c.Gz26l3+~AK^q]s<=s1$/f6d50\D_>/-}]Mc@4Dr$>}I$3R -Gm
+K)2dP47{I$2dP44PhhO-d#Mi^|&NMj0NkQgR,7uYGg0qH2UGWJHe:I3n\z[^%~)h(yFAD\
+6?a@PmBJ&,a}Cq=:j#X1=|&8Q{nvs+JU$=cm.}-nG1@8Vire\{0mueA{)Z,rY6QMu0RJ5i
+uV5F>bh>Zgiv^zc9t4Q\".i^ddK%CFs8I,Vsr;I,(@0 /y%W!@!|Xq8s:IGy4pDkHeP*me
+Iq7%o\@x,bu6H(+SaLAP;C)kY4G\-("Q:]uz,9q5WBAN4aA ,bZ{G~sk8bH'n_"wonu\O?
+U/n"CGjqg:P&ovDLb07~bvtLs~u$(I4)enfo_MX?)viXhyN*O~OWh=Z'rdh?cmGt<y=] a
+6!BR[chQB-/,`!_m2`=/E.JdaZBK[clufl>X^C 1cmkQQ\U2TYM9T6t<'~?+)y73R2!-20
+,[Le[+G ?u2n=c)@YbW^LX?YTPprG2nUb[.%`@H0\nIt sO--;H=EV`jfU%bS fimHC3?\
+b0Ry;>mHoWa^pb,C]rp&UGS0\;j~]WfqjNo$.*+ppDrVQ?Qg)gj|fGM{k!hy&!)~%6JuXM
+OC^nIt sO--;^[2jkPnEQ?O%<+JJpArVq?#P0(*$oq6h_9%a_lOzn&+}_)N*?\qiS0CGit
+n\Jc0)fq]S;xfuYVUC1#npQ?QgTrj~fGM{k!nON+P*n&oWrcI@d.X`b].%`@H0UGIt sO-
+-;_(2jkPnE;i'vX7ttjLfG3A_c$oh9mHIq3A\~Ozk#DIYPm 85TnBv`bnPap6S\%9;8$?j
+4Sm4PEQg_]?j4SS"5,SMBE&17a:Wh:qh828stCI;S"5,jy[ \kVYPm%#h9&!)hiZhy3vS2
+5,:IQd >u|hZiPFoUGd[U` 'JuZGj<4h>dEwv#'U0~NQT!`#T4bCe+p1l|fl>xZ7j#v*U?
+uiUH,_Bo4]X8BtujU>bY3:tN26f_7eCAN}F`rfDMW)OLrfh~Oz5+:+1_X8qg?Nsg<'v+2q
+n iuDzPbJ1P42h,}?lSnlpTMo7PE,`?lEh]gIv@;qSPDfb-+WQD=ipqW3{]XQ^4Dk%_cQ/
+WMD=::]ZEV9XU=NE?u8Wfq]98k*2ER?q8Wfq]9DwCFiv V::m:@o[3XA:hZXB_rqLn)k=[
+Js''8~)goqrB8FMXfbM{*@Y44I,j`G<bv5uTP;3pt@f{ND')7F8~CAW>6mA;]vs!k/,FD3
+L_njHk_s1Z8!o)L_I%C6ro\mTxlps$nTPE,`rG:fZXqZ2H8*,Gei72[&WFCH,K:^cborVc
+3\cLorfs*U9B-w<,t-K)EWQ>]46?rP4Ek%Sw, r_6?_]\etR>F:LqSIQrE82QKI3sI4coE
+n^90-(<F'C-fh9+F$sNwk0iCI|Q\6>rP4Ek%SwQe4D&U_lQ/WMD3Hk#)W0:7oICF.7Ej3=
+utq`:']oQ'iP+/jy>BJ9/3t]+/tC*2ER9{8r*2ER?q8W;fenm+T/&*XJl{s$fLTxlpTMo7
+PE,`>{c^8k*2ER?q8W;fen`[i'av@4Di-`q;Akm!GxU=VYm> {TTd>M2JY;hm"`_)?:+\j
+Dw]X4EN}FUrfDMW)OLfb'emBo7h{7{(co8[h)`J7T6C?::mrs.Ho'em,o7h{7{iDj^4Dip
+Dzc^5(8*TO3{]X4E&U_lQ/KAd7]v:wCAN}F`rfDMW)OLnjHk_s\eDwGzqT3{]Xiv*2ER?q
+8W`km6j&-K_lrwW):oQ]or+wjy>BJ9Z>DwHk_sI2,)U"ivj^\l  UG^xN{crIreN:)GNv5
+v53J:GkNkG1m$Kr"FuTn &r"`_I"\oUC]96?CAQ`tR>F rJqh:Fom+:/2dg@V]sHCI#Lu1
+m,:/2dW0PEsGCII2m+:/qS:6rf82QK1oK+v)eDQj2IcLorfs*U9Br,Hn Tu|HoQ^:6CA,)
+_|>GUGms?h,G:^cborVc#Lu1*3mz?h,GQ`EL8**U,}C`  eEv5TSfiI#hZcim(h9fmTO,`
+EjK)\oT"-@DsPbELZ<5,Rd`tv/?h,GP42h[$WFnSQj2Ijs:^N-k!WRnS!*2rv5ToX>EfEc
+T""5t,3J:G #t,kJ4PD=m q^PDo7:7QK4RD=L_njHk_s1ZKTv)_R8nU=NE?u8Wfqm`:6 >
+u|HoQ^:6_]*3J7SwMa3O -``v/K*r%Z~Q>czZ=WF2i9B6pCAeE:yig+/\k8oJ9/3:cr%Z~
+Q>cz2eW0PEQY2t`_*3mz?h,G:^cborVcI2 :eEv5ms?h,Gei72[&WFnSQj2Ijseim(h9V]
+#Lu1m,:/2dg@V]sHCII2)c"Tt,d#T?lp*SW0:78ljyei!*2rv5ToX>EfEcT""5t,3J:G #
+  <XsqTfT3Frd:@#r$Q\FKGMv5:/]o-%ZArC'emB2&h:m(2Cb+Fdo)h{Oz8n*2ERj|WRCH
+8W+z8e-HdN2C,5P45+j|WRnS>F&cd_2CcLorfs*U9BCMbA39-'hyOz8n*2J7_c8ofqQ/-+
+Hi_sI2,)8e-HdN2CjsP45+?q8W;fW`ELQ^/Khy7{>yQmZ=l{G8N FS_sChf_82CAs%T=-%
+iP+/tC*2ER9{nX>FQn4Dk%_cQ/WMm N;-%iPlG)\J7P4QeDLW)/LS)Z=WFCH\{DMW)&3n 
+Vch]fm<N]wA%)\ER_pC?,)8ecj&AXJl{s$fLTxA%)\ER_pC?,)8e-Hhy7{>yRfZ=l{,},I
+ei72[&WFX}8,]oA%)\ER:k\jQ/fm+Tcys$Xn7|*UW0iRDkT6C?L_njHk_s1ZW`L_fb-+ro
+\mJ.)4W0Q>,cT6C?N}FUrf4E:L[]Ox]s?w\jQ/WMgD[aOx8nU=NE?u8W;ft]%im(IQgRW)
+PEfbTxEIcL5(8*TOQY&4:+\jbYFdrf\mos7*Q]or;HOz5+8*G:PbELZ<5,Rd;omm]|8nRp
+DLW)/Ld"h9qX3[b+39k%\~C?,)1`t]:.Q]DgPbJ1P42h,}G<Z>8vU=NE?u8WfqqZ7-Q]or
+;HOz5+8*G:N FS_srwW)PE,`UbNDFS:.qSIQrE82QKt>7-Q]or[h)`J7/3-6>wqSPDfb-+
+WQ7*Q]or[h)`J7/3t]%im(IQItW)PEQ-&48*TOh\fm<NW1Q>bY39O\o7/Ld"D-Z>cz8krv
+g9U_?w\j6?_]\ek)/3t]\d7uQK:pQmDg8JU=&$_l8ofq\m-GS)DgPbELZ<5,RdfzNLFS:.
+[])`Q^4D,)ICQ`WM,)ICL_I%C6ro\mossf7{,GQ`J1>BJ9/3W`UG,c:'Q]Dgei&A:+\jbY
+3:tN*2Fo8l#*W0:7oICFiR#*g@qXIQC6:L]oA%)\ER:k\jQ/fm+Tcys$h~Oz5+RdJ>-'cy
+2CcL2eh9*U9BnX&A:+\j7N3@tN*2fsqZ2HBtN FS_srwW)PE,`UbA%)\ER:k\jQ/fm6?_]
+\etR>F9+TU,k-'hy7{>yQmZ=l{G8P4]sA%)\ER>O\jQ/SzQe4D,)\kNEX~QeDLW)/LS)Z=
+WFnSQL-#cy2C8*>y[]Ox]s/7>Ecb9|)cfs6?_]\etR>Fs%qZ7-Q]orq>Ox5+8*8r26f_'e
+mBo7Hk8lXSA.)\Q^4D,)\kNEX~Qe4Dk%_cQ/WMELjs7q9w[]Ox]s/7>Ecb9|5/b+39k%UW
+C?,)WFL_njHk_s1ZW`7*Q]or[h)`J7/3t]Hl+Vcys$si7{*U,%,IT6C?N}F`rf4EWQgD[a
+Ox8nU=Q/iP72<O8rU=NE?u8Wfq,c:'Q]Dgei&A:+\jbY3:tN*2Fo8l#*W0:7oICFI2:.]o
+-EZA4Ek%T6\xV\:79w;=:EJ5\~C?L_I%4Gk%SwJ>P4%{fsNLFU:.;=Oz8nU=Q/iP72\ol{
+2CcL2eW0PEQYiS[bOx8n+/tC*2ER9{& J7\~C?L_I%4GtN1Yt]4xf_cim(*SW0PEQY.8 %
+<X[)SWAq&M"mZ+O,ugJv<XGEn)_ud7ePmq]iRatRN*J9TTd>E8Re5,)`cvM)n{4&A5VX[ 
+iXBXHz7-dM*UGmqgc=Y@Az/-fwhZJ1(7o2,KQ(<C=%RZt"_VQ/9qW]E%Z>]yfchZRy14_X
+:*Fc<C6BmA:ohC0|=,tRZ6rnPA1;4MHsgDMdK j<5YAfAf!3L__TQ/9qW]Q(=3sqTfT3W#
+f@?fI5d5.5+E 58N@#r$<'.8mt(^R]j|AGu|50:I /t/ePG !;=u-L$]EQGh1B&SMvkt_y
+^y\mF\E.&d8A.bGp"`#yAC\6Qa;4&R$=!XqyQ;"kT3Bib_APGWBfn_!v=es/;EjLSJmO^c
+FFCFs8Q;8Ant3Aen-2_(Dt]gJwdk,BOCU/n"CGlsGxI1W>,!3I\~[^GnMSRkQu^orE,HMZ
+3O>BM\G[26l3+~c9m[i9L^;MQhTros4D6}+F\k[^%~)h(yf)dC'L+Mt_WYiHV5S!rEFb\n
+hspD:i>'(#u:unGGnU8q$~W0Pm%#o8DL7%8%P<Hed.`:nVs"X_8s:IGyU=VYH=>FA(+~3Q
+IKc/;ns)8}\[65:WG!\nqT%aMZfbb07}G#Cg5aDCRwmi2X^Ue>E2Nr"fGai{)>6lSDcE\H
+hcNS21#`u.3V1LD}s*oZ/I7RT[6uIPTGjEmi2XQ(F\dk,B*^%!iROJ"ftFm<_Z6>%A'sUO
+?Y.lMZc"VfU9n"Qc?S;iS"qTFb\d$opY6h^xPliPMRo7Fc26)`ev7|G{%~_:p Ubd!DOW)
+&3>GD3lrrCQZrj4Y9VtNI;9+7Tl.@Of=gepe8q:IGyI;ls+D$~pY\lcQorC3*'e6sdN*P*
+*Bj%;n6<:WG!\ngZ+F$~pYC3*'evXiN+0m:ck07Sl.@Of=\z8q/^8_mHrV3AeiMR_'Pl/m
+W>dYHi?SM{k!7|Fr%~?>7%S [^#zk&iG_R-%iPPtg{:!rD0$o8ny.7'|MvKj6SgB-43PiR
+nwPmMT3{_cfi+E\kVYH=26l3+~3}IKEQ9("{FsUGWJWT%#GxI16}p[Iq7%8%P<ZWUBp"`;
+nVs"n5QdTrosrVcQ6i)}j|CDPmiPfG4.T6q4%~)~4enTm6_Z6>%A'sUO?YftdWfo3A_h$o
+G +D/iW>d[CDFc*2S VYH=%~?:b0Ry;>mHoWa^]ss"m#?h9{rDpd<MY#W^LX_yTsXLetfo
+;iM\3{_cVYH=4xV],"c93=ued>^Ce>E2FtTGc^#%H2m*oEoU+[!gi;s?O$Jl^k0rMls!#O
+@x/h-&Mls!2X^Ue>E2+ym:SA8e5=*"\n(_;$Xo4~fPXy8Ot|oPiK^qJUotg3.}#,8}8t/^
+8_mHrV3AeiMR_'Pl/mW>dYHi?SM{k!7|Fr%~?>7%S [^#zk&iGI|R(2PT7EIN;j|AG+iq2
+[BC.n}sMWSpW^}:-qyf\4i#yrCe{Gj\nK"ebV<j#hPi'6{j$(o8s_|oN2@e&7rs*/gfj50
+[xqT%aMZH<>FlsGx\dP.meIq7%8%P<pepG&R_YG4P=6S9}rF(^C^_WAsQ3^oG:rM^WGtE7
+Cv]d(A_dbos1R&;,QhTrosrVM{6l4.>B8'G#CgA(9hr,p/n!"VrbF]dk,B*^%!iROJX\A4
+mw&+Jl^~s#pDQc?=Q?dZnwFcU=$oGx+D?\8FR}qT_'%a_lOzme+}^\N*/iA('v_u\YHo\e
+CaJ8g!5(8eU`g]rE&,9("{I^3Renfo;iM\3{_cVYH=4xV],"c9-Gcy2CQ schk\aGN5DnU
+8q:TpZ4D6}+F*'h:Hi)}Z<,#3IUW;>&!A\s%d!q\ey0%nkfqS-Qkc!\/j'-df#"`4)enfo
+;iM\3OiMnOPm$zW0%b_l[^%~)hiZhyo2ZIQMjEmi2X^UOhP|>^e\>~^20GTtQI;}A9D>bT
+3_BNV`@Yc`DB<.W} bWLETFtTGjEmiflp:i9L^LJ+FIRQ$>^Ctej/d!GVbPBG1nv&+Jl^~
+s#pD@2PI-r784=I43Afq3AnyFcqWFb\d$opY6h^xPliPMRo7Fc26)`ev7|G{%~_:p Ubd!
+VaQ:nV1>`6fmS+u1R,d6^WboTxEI2_`bCE9UJX9&m6N*J9i!&3',tS[kHcL]*b/g4h4)en
+`[Bpf9E!D8o^+Mshn(@|tq4)LgEK?BA\%\EN4S-9IRhgDaSuOfo}?PW?@")hZ'`OBpf9E!
+D8o^+Mp-ORWTk)GfT;m]W$IT'sXzh`X?h/@7\SC,2P]7GnPqs1P9PmMT3{_cfi+E\kVYH=
+26l3+~3}IKmyq@ezdur<VP9agH0_O,eyP9u2)8!!tLK/fkS+u1R,d6ngSK`DBpf9E!D8o^
++MVc)}o2[6iD1U)8if_"8HtcAU$KOjQH6B;MsJQdTB3Q=zJiebV<j#hPi'6{j$nLg:U&B]
+nUY/g=rcheDaSuOfo}?PW?p'Ct)p^YboCKbis1R&;,sJQdrPheDaSuOfo}?PW?JA[YWJpe
+pG&R_YG4P=6S_cW4U&?sJiebV<j#hPi'6{j$4[6l)}j|fG4.UW;>&!A\UG_>n!"V8h3>t3
+ePG !;ucJATr >h.dC0MQLJZ4$CG1@@R#NRG=D(?02d5.5+E'|MvKj6SgBBhenBgiRBg_h
+ePU=$oGx+D?\8FR}qT_'%a_lOzme+}^\N*/iA('v_u\YE;@"r$<'>HE3[nlhFQDB7I-[3@
+e<E=fJHlS-rPCH9V8u7Tl.@Of=rP8q:IGyI;ls+D$~pY\lcQorC3*'e6sdN*P**Bj%;n6<
+Ton"CGY 6m)}j|fG4.UW;>&!A\s%dM`'mq-$lwfvFxOJ7t=]e)fxh\O6-*,jq83821W\[$
+:IQ*FyOJ7t@2\SC,2P]7GnPq;A3=o[@tqHQ;8AiOWSX3O~[WG:<WQ,beY!0L]sW^LX3Ien
+fo;iM\3{_cVYH=4xV],"c9hF-_)^Gm/r%W!@M(XN:Ir,[9iD1U)8if_"8Hmr@|8_topG&R
+_YG4P=6SR6W*U&j~`[Bpf9E!D8o^+MTi*=+F$sGxI1W>6kCA6}p[DLb07~G{rvWOJq3L:I
+`o5NroI"I7=]mru|r$rNTTEd4S4[O/`U4&]IV:kj8Fk%,8Rj]&n 'q c;A813XrV#%5F?O
+IQH2[4)})GNQHZrHFbWMFcg]mHlxmFC3)`j|MRG[+D\k$oh9mHDL3AUWOzow+}H>ij50o:
+q73821W\mr(^5 ,j`G>$MQRdi|o[&,Q>ELM:Q-CaJ8:cQP`6UI?s+/"`#y:gtQTrn"CGY 
+6m)goqrB8FMXfbM{k!hyN*O~owoW_p.++ppD4X8_8s*'oqrBM{k!sdN*P**B\o>MqO3821
++dQxTjB]2^`bCER(_e@~2^0!NGcr[4-vI6G$OyTpB]2^u'U/6C]pZk[xMxNBd6AB$KOjQH
+6B;MQhTB3Qasft<)8%(6WZask#R0%wH2UGWJWT%#GxI16}p[Iq7%8%P<ZW;@3=o[?e+/"`
+#y:gtQTrn"@=\SC,2P]7GnPqeOazQ?sIjY-&H|nI*DM(.67~3v_hK"ebV<j#hPi'6{3=4[
+6l)goqrB8FMXfbM{k!hyN*O~owoW8iudFxTrKIJ}oIr%rN[;eOudmrng2skJI'I7((Jum:
+j<mi2X^Ue>$1A^_aA1A4cz#%3qp)/I,j`GTz0b%Z,T41?h8NJ\LYO8 A=:?Q9UJXFSbl6J
+++rC2X^Ue>E2+ym:j< (@k&,IEe\i@4ET>NA$1<fG{CFH-D\6?a@Pm_s8Q`Pi/tGm<?{+/
+"`#y:g/lRQ\Roxk;;3b6WjRy,_S Wj/m+r/^6}mHrB3AZ>$oW0Fc\d/mA(dWsdFbCg)`_p
+hsr`m6^Z!X\dr$0-YP/7iPA<)\XEr$k8;CQ}A:i?<"Ul1SM>"mugK*3Rta`3?U@+k&YL V
+uc_Q8W+~iroJ,'ifUSI*H"J7ta<_!>u1TouKir!+uc8JJhe)l}@)Zu[0p]3\iRXVDsh?]T
+sJ,*6+e*+VirrQp%k%WF\nf#T/"6rGjr7X  0+R9EX7vA2dx\>5.^q'&NB?%PXv4Fus-J1
+_,`6_u<c!.u1HmQ07}]Oh_8/]74q<?j<TvT<dnLB.3P I'p'hw^Y3X2CSH"O<G)iivA\UG
+?U@+up<d ?JqjsWFQ*p$tCH"J7IVJ9WF9Rs-J1_,sInQCGUp];>[ihk)PK"6C`UpZPkQ0,
+l}85)cU>];>[ihUSQep$tCH"J7IVp_;b<?_YQ5uK@)ZuuRS{Dg\nf#T/"6G<4FQnp$tCH"
+p];bFOG2Df0Z% Xn3S]WI(ALm|nDiMA5* ;GG(DxgF]To:itIdA 9+l{@] $uEkMFZ:8]o
+TjDhS|./?lFt8\tN8VMTRkQu^o,j-:3P_hqT%a_lfi& )devhyo2 38NPuuQS{cf5(I"gD
+WN3\3@cUoH`3Je,)1f^MQ*eMU`jhoM`3fm2o/k,@[fGkFZtRjFoMg:roG _yfdQ?]s_[I'
+s2U`_65,jy?|CBQ=W&0XBLi:)5H2mqezp)5,$p/B-VGJQnh[J1uLn(4XoLtR3O_hGeJ9)}
+oqC3*'j|XiN+O~*Bk6;R(<\AD\%;4)r$n(s/*U:`>'(#u:unGGQnh[J1uLn(4XoLtR3O_h
+GeJ9)}oqC3*'j|XiN+O~*BrE0,[":IQd Tu|JeG$Tnos3@J9TT_>5,:IQd_smrez]xtS2r
+HGJ9U)-3IRePU`E\rq_8oJ"UYYTp<Yp>&+Jl^~s#pD\Nn"\Nos\Nj~BgeiMR_'Pl/mW>dY
+Hi?SM{k!7|Fr%~?>7%S [^#zZuY74PS*MmF\uS=BXm7|>yQ]orFZ:8TFW&0XK5!oX!o}U!
+i!#TZj##K`;CWCtNcOHkp'=l&DjstCs-J1_,]sHi;_MpbDt<ey4DH:upjfD:]l4qnTkD4D
+g9C?((0+Q(F\p.-hO9Uw6!Y+p;N^MvF\jx5K;Y)~,55Dm_qY[/hUhbsITxpTJ1_,`6_u`7
+uKgXR2/ul}XUDsh?]TQ0Q?]4];PM"6\q&5jsWFQ*njitrgp%8u6]caHlnmitrgp%rop%WF
+n4Hl-Gtm@)Zu[0Jw?CN|Vd.;io'H5jt;h>]TA 9HJhhbD:DA*eR{VqC6NaH!7Gf+`1rQp%
+tNs-tRs-9`CM&DjstCH"J7taCF\jqZh>]TQ0V0s%d!VaQ>Ul];>[ih86Tn-+>w@+upCk9)
+cjPK3G\n>[ihUS1EP47{,G5DDA]8];_|];PM"6,ID39HJhhbD:DA*eFo/C7NfM'-p#NnV 
+J-o:it[ZC?gDci:uihZHDs,+FcG2Df0Z% Xn3SsM`3?U@+k&@+up_oHmnmitrgp%WFf_j@
+TvT<dnLB.3P uS[/hUhbsIhb5K3?tN:.sE`3?U@+up^f'c74<W]I.qKUr@ZGDsb!ci:u,K
+5DDA]8];PMdXfS\ebK4 Vnn0k3tCH"J7IVJ9ta,o>{sE`3?U@+upS{Dg/HNHY/D\=d tnK
+>Yihn,AIQnuQ[/hUhb5Km_>fN|Vd.;io'H5jt;gE]To:itoJit)h9f<63LixrQp%<Vezl}
+85)cU>];4qhQsIf2qZjf5K(zJ>_Q8Wg:sI6\cas-$B8r_]s.;bG*l~nDiMA5* ;GG(DxP?
+U2VqC6NaH!7Gf+5&]l%BrE-JDs_Q8Wg:sI6\8V\jp%(eQeI%p'WFn4Pt]a-5X2\>@]#TW+
+IVo^jGTvT<dnLB.3P I'p'SB3Gk%/HNHY/D\=d tC@k&fak#/HNHY/D\=d tnKH;upC?fr
+d7t-H;upjfD:]l4q1pQ8pWuKgXe%+Vtm@)Zu[0JwTxpT?U_:p]jg5K(zfz8vcOSVeiE ,+
+6+cj5(jstCH"J7tanQ>p&Z<)i:[I!if`pWuKIJq\gE]To:it8WjATvT<dnLB.3P jhD:]l
+_|j!Mk.7?lce:uihZHDs,+O|8nEC]8j!k)E ,+6+otQl7.,G5DDA]8];PM3G:7H:ZujgsI
+EC*e$MnXcOcf2CU>j!86L6&4J7_QrQp%tNs-fmC?E0:K:.BGa<')8 _^s..uiPidHlnmit
+rgp%WFE0:K:.BGa<')8 ED]8j!k)E b!-Gtm@)Zu[0Jwe)]N'c74<W]I.qKUr@]ZITp'_|
+s..u>E\{qZgE]To:it8WjATvT<dnLB.3P I'p'hwHlRpuQ[/hUhb5K/a7NfM'-p#NnV J-
+p'k%IVp_uKQR/Mtm@)Zu[0Jwe)]N'c74<W]I.qKUr@_8Jw1_5+jstCH"J7taCF\j]b-5X2
+\>@]#TW+]lifE p_]Z3RSMXLFxHv(/,;_Q8W+~g@]To:itoJit8W6]caHlEC*e$M8rJhhb
+D:DAIdDA*e$MCMQOUl];>[ih86`:HojstCH"J7taCF\jqZ,*O|:^ihZHDs[*Ds,+$A,%f_
+ciH;upCk:JsE`3?U@+k&@+upCk:JXJQ@Ul];>[ih86mGnDiMA5* ;GG(eyE b!RpuQ[/hU
+hb5K/a7NfM'-p#NnV J-nmitrgp%rop%SBRFFy@63=KJd72kjsF`\nCHX^H|e>,=o8,')f
+>d;-ntS-U)n"rVcQ6irf8F8#Fr4xA(Z) o+c7,sECF,:tCmq:oQPnTmA+S["tCtbPEfzmI
+7}35J9HB[6tC8VkB_/QAbNhzd5oHFy[6:Ih_els<828sk%r$n(j'J9pNtRI%I`W48iOmbD
+ H'AV:8&?mTsJea~0LQL1!hR3:J9HB[6:IgApGezQdoIs>82+F$~h9+F*'iZsdN*0menFe
+tR1m8_Eh`^heX?8qk%r$"\t,I`r/1m8_>y?m_^tc%:r"sB82C^Q?]s_[I's2U`_65, /d:
+(aue/YOh[;BDa%G\J')|W03Ih{'/j_>F*#>df8Et,3ER&,[7]FI=L]*b/g4h_4/+^[/+_(
+/+H=(aG +D/iW>d[CDFc*2S VYH=%~?:b0Ry;>mHoWa^Yo,{tm1b8_?j9{WIpe<M#=Nn`T
+H),MNg[`R5Fy-Ho8r-TjE\j]@x,bB#pDn+4XQnQdoIp+qT%a_lfi& )devhy3vdcC\Q?`6
+`gv/:pQdrfI&$oh(>],e^Ue>E2Ft)<t77/VEX0E=7I_AFTGbIteN:)d2<TU}rDSpEgQI=j
+9UJXI6TGjEmi2XQ(F\E.0LQLJZ4$CG1@k]:)XB=C(?02d5.5+E'|MvKj6S<7d[g dWQJdZ
+;tS"Q$RyVYFcI1)`h:MRfb3A>BS"[^mFIq3A\~Ozk#DItc:f&DQ>8|TCrcQ.`&mqX/<PeS
+1>nTHl_* 18N@#r$<'.87~oKbeQ_Y!h`O6c ,7uYGgopjSI2us4)LgEK?BA\%\bK5,%,k6
+jY-&H|nI*DM(I1n)3tiR`[Bpf9E!D8o^+Mshn(AItq4)LgEK?BA\%\ENCB-9sH[9iD1U)8
+if_"8H`%3Q[xuSU/6C]pZk[xMx]qI8MY3OiMnOPm$zW0%b_l[^%~)hiZhy3vO.J9AoVl${
+A&V O-@)J.I7myj)((h( GP|`&mqX/<P:Hbisw4)LgEK?BA\%\&Oot=uJiebV<j#hPi'6{
+j$)pC^E=RN&JOA_yTsi}eyc,sMH3#9jw^dc9+9j|8.Tso]2N8s:1U*Z(`OBpf9E!D8o^+M
+E"<Knie]1>8~0k]sW^LX_yTsXL`OBpf9E!D8o^+Mp-M`,IJ7GfT;m]W$IT'snP*Wo\rVsM
+H3#9jw^dc9+9j|nl)zoqrBM{k!sdN*P**BrEkG4Q4[9Yd>e~FeUC*=r"p/n!"V[kkI>F^I
+2V^Ue>E2Ft>!a%Zx S-d/}5a[bbF0DAF+59)sM#O@xbT3_BNV`@Yc`DB9KndB/.::~t=mk
+2X^Ue>E2Z>%!/Bn7^%Q42h#&'}=2?=A>`h.2XwMURFr!#%5F?OIQH2[4c?R$VfU9BheRTn
+4E)`oq6h_9Pl/elsGx+DIC)`e67|G#%~?Tb0/mIUB}I~s./sm^_cb3;n6<k(:Ig:1m6}+F
+*'Z<,#3Q\~[^h/[bOxH~L]*b/g4hI^3R:Gg:PlMT3{_cfi+E\kVYH=26l3+~3}IKfr4r_8
+Hc]GtcWYiHV5BpeRTn3HeifG8FM\G[*2MZo7N+O|n&gOb0i'=W]v:gQOTj2fq`0!t-.#_d
+gD[l )WB0!NGcr[4-vp-rEn(4(@"0ON4[;t<O$Jl9&g0U`369ek-Y%h`Y@3=e,+<AF2y*p
+=R9k0xs=G%oM2@e&7rs*/gfjs.U]q4%:Q,GjoM2@e&7rs*/gfjs.]%q4%:Q,beY!h`O6[l
+4kB'gKuRu1U/6C]pZk[xMxFZ*8r(H3#9jw^dc9+9d6f_e]jY-&H|nI*DM(.6X?Gn\dfi+F
+ICl3+~3}IKfr`STpX?K2pe?h\7<PoKbeHl.i,u(LI^3R:G7Zg0*Uh.:a(QGH5De,Fo)coq
+rBM{k!sdN*P**B@+R(_e@~?k+/"`#y:gk(:Ig:1mls+D$~pY\lcQorC3*'e6sdN*P**B<O
+r,I8G$TrKI`Sh`mtng@Am8e`]|UD*=r"H7Tr >h.dC0MQLJZ4$CG1@@R#RRG5 fPCDk07S
+l.@Of=geFcUG:EGy8q?\cQdWfG3A_c$oo86hCA)`Z<d[hyFb4x)`iZ7|p\]?JA-CsrTfT3
+6bm6[k<WE# 38N@#r$<'.8mt(^b5>571EN0cCxATd,$|$2nv,APcgSWTX3eT\IG:<W^Ybo
+nV1>Gm[U4kB'gKWT-43|_hVYPm%#h9&!)hiZhyILqhTA\KNBj|AGgqX>0iB&"N")gk-_E"
+mS&+Jl^~s#ZnetI2us4)LgEK?BA\%\EN4S-9IRhgDaSuOfo}?PW?JA[ogZtopG&R_YG4P=
+6S_cgD3veifG8FM\G[*2MZo7N+O|n&gOb0(FQTu3tc3O ]XDv(mr3O ]uARGFQTGjEmi2X
+Q(&+G#$A7OIZ!"NH-rLri.]q0b%Z,T41fPL^O,n73uj`mi2X^Ue>WDj?\=#("_6ms%+q4u
+v I~'zMvKj6S<7d[m<RYL`,NZ8>7\OMS^Z%aS fimH\l3AP4dZfG_9N*/\l3dWXiFcrv@n
+tcR>ixm+CH_x8m+zXIOC^nUlm`3G$qGxI16}p[Iq7%8%P<:oh{7{_Z6>%A'sUO_yTsX>C\
+cQ6i)}j|CDPmiPfG4.T6q4%~)~4e`6-ya~me&+Jl^~s#pDn+3O:G6i)goqrB8FMXfbM{k!
+hyN*O~owoWrc9>1z28Q schk\aGN5De,G )cn C3W>6m3mP46lrfb07}G#CgA(Z)>-iSAD
+'zMvKj6S<7sJg:1melHiM{6l4.Z>qT3{>B8'Fr4xV],"c9?C.M]\dMVa_x8W+zXIt`0&t>
+uHnoh6Z6>76i)goqrB8FMXfbM{k!hyN*O~owoW8i.=ml&+Jl^~s#pDQc?=.l[z,P-a->_(
+WS/mlsmFC3)`j|MRG[+D\k$oh9mHDL3AUWOzow+}H>ij50I~s./sGx'ztz<V#=NnqE3821
+W\eT1>)?IrWjQz2PILhgDaSuOfo}?PW?eT1>CxATd,$|$2nv,APcgSWTX3eT\I,cjyGfT;
+m]W$IT'snPUb9`QkTB3}e<-eE"bh(vH>k0H~d.X`8sjy:IGyI;6}+F*'Z<,#3Q\~[^ryR`
+j|AG+iq2[BC.n}ftsFQdU)j~HiM{6l4.Z>qT3{>B8'Fr4xV],"c9s1R_;Aj$o[@=\SC,2P
+]7GnPq3Qe<YM:GATd,$|$2YAQ:nV1>sIjY-&H|nI*DM(t<jFQWO)b&a VDY6k6Qd_]_^oN
+2@e&7rs*/gfj50hwfous4)LgEK?BA\%\ENCB-9sH[9iD1U)8if_"8Htcc7cQ6i)}j|CDPm
+iPfG4.T6q4%~)~4ebh4XkJI'I7hhm6_Z6>%A'sUO?YftdWfot"u*QI;-b6gZmH4D)`oq6h
+_9Pl/elsGx+DIC)`e67|G#%~?Tb0/mIUXSEWUP,hE?a_@09, GP|`&mqX/<P^Ybo+yEV1g
+fwB]p\^}:-qyf\4i#y<M^YX%Dn$2(Qa< Q_hAsQ3^oG:rM^Ws [9iD1U)8if_"8Htc@|nU
+Y/F|oj@=\SC,2P]7GnPqs1P9;Lj$O;1np\`*q~R&;,QhTrosn+rVM{6l4.>B8'G#CgA(o^
+/,_dbo7Sl.@Of=geWT-4IR3R_hqT%aMZH<>FlsGx\dP.meIq7%8%P<p-/*Vc]qi"`[Bpf9
+E!D8o^+MG|TB<eToc)R")z(D<L,?fwB]p\^}:-qyf\4i#y<M^Y,y'|MvKj6S<7`7-4I&hg
+DaSuOfo}?PW?JA[YWJuRuQH3#9jw^dc9+9j|fd:RpZ@=\SC,2P]7GnPqs1P9PmMT3{_cfi
++E\kVYH=26l3+~3}IKO;I2`^r/rN[;d7I L]*b/g4h_4WSRyWJFcI;u,JT8d-Vl6Hi3AiM
+MRH<+D?LcQor6hrf3AT6Ozn&+}_)N*?\s+:pk04j9Rj^M)`AR8 n+cIveN:)CLm|(^Oj`$
+g 8|TC_poN2@e&7rs*/gfjec1>CxATd,$|$2nv,APcgSWTX3eT\IG:<W^Ys m#tmpG&R_Y
+G4P=6S_cgDQT;Mj$O;1np\`*q~R&;,QhTrosrVJhM{6l4.>B8'G#CgA(o^/,_dbo7Sl.@O
+f=geWT-43|_hUlqT%aMZH<>FlsGx\dP.meIq7%8%P<p-/*Vc]qi"`[Bpf9E!D8o^+Mp]2N
+YL3IO|-n3v0hXx8^WYe<k#GfT;m]W$IT'sCEm|Si?s+/"`#y:gtQTrn"@=\SC,2P]7GnPq
+s1azQ?sIjY-&H|nI*DM(I1833v_hUlK"ebV<j#hPi'6{j$4[6l)goqrB8FMXfbM{k!hyN*
+O~owoW0anTv/e{g:`cs}ciO|8Ot|oPiK2Ee,Fo)cn 6h?S8FS"fimG4D/i6}p[+}^TN*/^
+V]dZhyM(=J/.S*Mm[9J:V{W}Zr)FtSQBMT3{_cfi+E\kVYH=26l3+~3}IK`laRRP`)dc(5
+Vuhr1(YEY:W}Zr)FtSj[>FKdhf/Ye>E2lZIp23NQ>Kh>LU7R\8E;s\$18}?;^j^[DzTGjE
+miflp:i9L^LJ+Ft]txM3,Nc}#%Sq<veCCC&1m:K'E.7Sl.@Of=\zC\T"m`4D)`oq6h_9Pl
+/elsGx+DIC)`e67|G#%~?Tb0/m_+B|_x5YJ~oT(S0eGlk8h`R!3OiMnOPm$zW0%b_l[^%~
+)hiZhy!$&t[1q]@=ao( aVRP;|;(0eGlk8h`o^7sd>n'&+Jl^~s#pD@23|2n&lq64XTkos
+Qc_9PlRyVYFcI1)`h:MRfb3A>BS"[^mFIq3A\~Ozk#DItc:fp.K\$.u4,FE@N42p@o[3EN
+fJHlhFAO*2@)gAWN0%h]e,I2/r%W!@M(XNJ8:IG!\ngZ+F$sGxI1W>6kCA6}p[DLb07~G{
+rvk#R0%wH2UGWJWT%#GxI16}p[Iq7%8%P<^g:8=]J.G^sfTfT36bm6[k8SoM2@e&7rs*/g
+fj8|MRU&oU?e0ycdjR^gtAc_3t]f]&36O;d6ABIdR0%wH2UGWJWT%#GxI16}p[Iq7%8%P<
+p]_(V_FZi!_L6>%A'sUOrl3Pen`[Bpf9E!D8o^+MTiM`,Ip]^}:-qyf\4i#y<MO}GmI;v%
+U/6C]pZk[xMxFZI7MY3OiMnOPm$zW0%b_l[^%~)hiZhyQTu3mr3O ];gX8EWmhi9L^LJ+F
+IRQ$*J>TtMD/av9E]?GNsj!g($:WG!EV`jfU,I'tX7ttjLnwlI'"@04(eiMR_'Pl/mW>dY
+Hi?SM{k!7|Fr%~?>7%S [^#z<wjWj(" 6mK%]ZY^:x_]4yf_-GcyGxqWIQgRW):oQ]orWC
+]r?w\jNLFS TGNs.O$JlYFv47vTriv:0qSPDfb-+WQD=QX4D&U_lQ/WMD=::]ZEV9XU=Q/
+iP721do~iu*2Bo]X&38*TOh\fm1c$SY12Mp.#2r+fLoICFS|G~#)W0:7oICFS|G~DzZ>iv
+ &Y1]XS+u1<Vv3q`)1o8-JhG+/\k8oJ9/3FoU)sz-#>w,G:^cborVc3\=/,Kei72[&WFnS
++/\k8oJ9/3W`:aZXqZ2H8*,Gei72[&WFCH,K:^cborVc3\cLorfs*U9B-wr"QpD3_Q:/qS
+PDfb-+WQCF:oqS:6rf82QK&48*TOh\fm<N6pOMrfQoD3PbELZ<5,Rd3Ge_I|Q\6>rP4Ek%
+SwQe4D&U_lQ/WMD3Hk#)W0:7oICF.7EjK)EWQ>]44E-'Hi-+IC,)8e-HHi82CA&Ufs6?CA
+Q`tR>F9+UD>z7*qSPDfb-+WQL_I%C6ro\mJ.)41JcLorfs*U9BnXHiqWIQd#2)cL5(8*TO
+QY7} #gcTA2V@o[3gpszE;Hl4GF`Oco7:7m+)1[$l{2Cjs%W_l8ofu6?rf-+8e83:.VXh]
+fm<N2l2CMvk!+/_|>Gs%\m#)s$nTPE,`\ql{,EP48n-+tN\dtRI1s%6?rf-+8u#*pYfs\n
+7&,G_cQ/WM9+E4Z>qM3821mfqeS+u1A{TejSK*Q^/KcyD-_c7N3@O\rfHn:.[]TktJrvW)
+&38*TOsGCIiRfm8SfqNLF`:.#%W0PEsGCI3\=/bAFd:.qSIQrE82QKiS[bOx8nrvW)&38*
+*UpYfs\nWF8o*2ER?q8WfqNLF`:.2dW0PEh\fm<NnX>w,G9H26f_'em,o7HkTxA%)\ER>O
+\jQ/SzJ>-'cy2CcL5(8*TOQY3]=/,KP42h[$WFnSHl+Vcys$si7{*U,%,IT6C?N}mJo7CF
+iRDkT6C?L_I%C6ro\mR6/Mhy7{>y/{>E8WfqqZLbnjHk_s1Z-6hy7{>y/{>E8Wfq8v26f_
+'emBo7Hk8l#*r+fLoICF.7Q./Khy7{>yQmZ=l{G8N FS_sChf_82CAs%T=-%iP+/tC*2ER
+9{nX+/\k8oJ9/3k47qCAm N;-%iPlG)\J7P4QeDLW)/LS)Z=WFCH\{DMW)&3n Vch]fm<N
+5/b+39k%\~C?,)1`-6>wqSPDfb-+WQ7*Q]or[h)`J7/3t]%im(IQgRW)PEfbTxlpTMo7PE
+,`&{t,ZYQ>,cT6C?N}FUrf4E:L[]Ox]s/7>Ecb9|5/&Sm(T<lp*SW0:78l)nYb&5n Vch]
+fmG9_Q%jm(IQgRW)PEfbTxA%)\ER_pC?,)8eXSA.)\Q^4Dk%_cQ/WM`2%jm(IQoZ7|*U9B
+8rRp4D,)\kNEnT%im(IQoZ7|*U9B5/b+39k%UWC?,)WFL_fb-+ro\mR6CAm [h:C+vICN}
+FU)#o8q^&2_p\x-GS)DgPbELZ<2i9B5/Z<Q(WM&cm,T<&*XJ7&p[fsG9Z>NLmJT<lpTMo7
+PE,`\qA0)\Q^oW7|,G:^N-k!WRCHN-k!+/jy>BJ9/3t]4xf_cim(*Sh9*U9BY#n"8e&Qm(
+)1r+7-Q]orq>Ox5+8*)cfs6?CAQ`tR>Fs%6?rP4Ek%SwQe/Khy7{>yQmZ=l{G8N FS_srw
+W)PE,`UbNDFS:.qS:6rf82QKt>7-Q]or;HOz5+8*G:_QOdSoA%)\ER_pC?,)8e-Hhy7{>y
+QmZ=l{G8PbELZ<5,Rd;ommN=8n26f_'em,o7Hk)mW0/Lhy7{>yRfZ=l{,},I:^cborVc.7
+,IT6C?N}mJo7CFt=WMNCFSOcfbRpDLW)/LdNh9qXQY7}G:PbELZ<5,RdJ>_Q%jm(IQItW)
+PEQ-&4:+\j7N3@tN*2fsCah{7{,G:^cborVc.7,IP42h[$WFnS>w]oQ'QXDLW)/LdNh9qX
+QY:p[]Ox]s-E>EcbnQ+/tC*2ER9{nX%im(IQoZ7|*U9B5/jsN FS_s4yf_828VN5-%iPVq
+)_J7P4CI\{DMW)&3XJl{s$fLR6&4n Vch]fmrD8e&Qm()1r+7-Q]orq>Ox5+8*)cfs6?CA
+Q`tR>F*<Q^/Kd"D-P4]s-%ZAC4Q`QXgOg9U_/7iP+/jyP42h,}*WW07$\ol;)\Q^gOW)&3
+XJl{s$fLosHk:.qS:6CA,)WQs%DMW)&3cL5(8*TOQY7%U`/7iP+/jyP45+9{5/:k\jqZHn
+82CA,)WQ9+ !GN-(IoDB<.v-ihb/39e_U=bY3:tN26f_7eCAN}F`rfDMW)OLrfh~Oz5+:+
+1_X8Fx5Sr+si7{U`-%iP\uPkBi:^cborVcOLI%C6ro\mTTeOv/P4]s/7>EbA39e_U=Q/iP
+72Sn)?8*(cW0:7oICF2sTiv)>GN}mJo7h{7{(cr+fLoICFOLfb-+ro\mX&MJ!u2ri~39]d
+TUd>@#r$Q\<I813X'+'GlUFQDB9#mr2NdGfxB]myj)el%.3sdcI"I7=]oN^tH-bJ6z]h`M
+CIJ: sWqe]uu&>VhMUi{ti.#>8:yGfl=:)s,JUJcfstT!g9MU&uV,]7;$u]bs><'\PUsdJ
+@6db;'JS#/;DauT3Tvv+A5,oY62ME.lj;e!a'REn??[2&qDCuOB4B).::~t=%#o5OnG[]X
+%>Gd,}%?@}`lXo8Ot|oPiK^qrE,H-:H=U=VYPm%#o84D$~h9&!)devXiN+[xMPRkr6j-8Y
+TO!RA"]$iwDB"42mUzNY$APN+0NS-[?V@7VirerQ'ruZR,`MS/V/u'WQrs#PRz3utw9<NV
+)kE/pGX/Bj5RR_I2]gQ>u0RJ5iRS&+GCpG'ruZGAbl6JR2pdK?RUQNI6(S#V<=`2E\YRUU
+dIK%CF]ZdQ,iVVQpEWT(bM!R&eoN6TQHWuUNc*>5*d6A&pq.X/Bj5Riv[Zk.DX.7ST2ESK
+dy:<\]Jw=uhC>5*d6A&pq.X/Bj5Riv[pk.DX.7ST2ESKdy:<\]hUi!@o::mrj<c?WL#C=+
+sXi5K^Q(pbk`Q$EWo3OnG[]Xq~I,Vsr;I,(@0 /y%W!@M(XN-;3PiRnwPmMT3{_cfi+E\k
+VYH=26l3+~3}IKmyM\Rkr6j-8YTO!RO$R&I}(KFAD\6?a@Pm_s8Q3c %^tiv:R=:,eQ(W|
+NO[$^,srorT=m`3GO|)a8%O{,"7}&!W*\ymQ3{O|g?N*$KOjRFcBPb79t{.#>8:y*3DQmL
+ofRY&v3X[7fOtM9(Ic\os+JUJc#/;DauT3Tvv+m!TMAIR9r!I,VsW@+iq2[BC.n}ftQdU)
+j~HiM{6l4.Z>qT3{>B8'Fr4xV],"c9.<RymiZa!e[EJ+Vb;2<(s?!?o5OnRFtg9?A`8AVg
+uX'!Z7XWT67No\@x,bu6H(fnB`a%T3o;@x,bu6H(fnB`a%T3P<U&d>A`8AVguX'!Z7XW>B
+DSmLofRY&v3X[7fOtM9(IcC6t``E5ALb-al&:)eVK%q[:6A;R9r!I,VsW@`bXzpTfmWSEC
+)G'uQ;=r3uj$eTD1]d4/_hE\I(]\sIs@E=7Sl.@Of=ge,IJ7ZQWTJ1uLjFp^rBM{6l)gh:
+fG4.P4,"H>Cgl3+~@vu|JeT"gZEh`^o|3G_hE\ _ucjaC^;ip_hC`>"_3sTiFQ*]QH-OME
+0n?p[c[d>yS6v+fleOTQu:,]7;$uDCG1ukNa_|4yc/\=#("_6ms%+quVA{c.\=#("_6ms%
++quVA{o^kGsoB(;fcL@@]$v(&>VhMU213Xv!cl]@qpr}9<NV)khfnBuA,SICQ`h~dbi8.}
+-nG1@8VireR1fb-+i#m6u0?oC:Xz8Ot|oPiK^qWJWT-4H=*2MZ3{>BM\G[U=fi&!)diZsd
+N*[xd7,et+._KTDF*RnA&k'"_z!<re7vd>JCWj[zW;fNJkN[h6<;e6lGGj0LQLJZ4$CG1@
+k]:)G]0LQLJZ4$CG1@k]:)c9:Rm:[zW;fNJkN[h6<;OQ`MS/c@Pb79t{.#>8:yU>czOR`M
+S/c@Pb79t{.#>8:yI2&U4a<22kVU/f71 JP|q[,*:GG!k>_/QAbNhzj{G%>l^Yk(I2`>n+
+j'k%ja_"'xMvKj6S<7F}f!foHBidnwpeI_ls+D\kfi+FIC6}+F)vevhyN*P**Bt/s2g:WS
+`gv/]3m`4Xk:!?u1_.g>WSpWhC`>"_3sTiFQ*]QH-OME0n?p[c[d_:05v!WDTi2mt?9<NV
+)khfnBuA'._^Chc/\=#("_6ms%+quVA{c.\=#("_6ms%+quVA{o^kGsoB(;fcL@@]$v(&>
+VhMU213Xv!8aDSmLofRY&v3X[7fOtM9(rf-+i#dbi8.}-nG1@8VireR1fb-+[hd78or =@
+ rhm5%fL-X.$I_"Mo5OnRFr!I,VsW@`bXzpTfmWSEC)G'uQ;=r3uj$eTD1]d4/_hE\I(]\
+sIs@E=7Sl.@Of=geWTJ1uL,HJ7ZQjGp^C3*'oq4D$~o8rBcQ+~H>4xV],"@vu|JeT"gZEh
+`^o|3G_hE\ _ucjaC^;ip_hC`>"_3sTi2mt?9<NV)khfnBuA'.IdgRP(BE&1%?M[os7dtv
+cxP&BE&1%?M[os7dtvcxi'`YqJd1WMPb`aCquz,]7;$uDCG1ukQDh~dbi8.}-nG1@8Vire
+R1I%C6[xS0\;=|;]nB`P7=o6.-pYq^AIR9Q`miZa!e[EJ+Vb;2<(s?"hh4)H.Wmlr97Q8K
+7Tl.@Of=geWT-4H=\nqT%a_lfi+F\kfi+EP*meIqb0P.OW<Yp>/*PM+0NSsa<'\PUsDN'e
+A\$k/Bn7^%Q42h#&hf>b$k/Bn7^%Q42h#&hfIMo[=1cqAnn_7n@X?!LLh3oE$PWNet5i%x
+a'Gl'dQP@3/"1CAF+59)HBV[Zqcca_@0Tg0b%Z,T41$~@#nS]89b7F,$nS^)G2+0Gjm<M_
+CSVE;FM3T6T:)f" $?27>+-8p2X:Ss+a/!"}#zZ3_#"b${@#nSQ,rDj/^cPb#\D] zTX-T
+;^bn+y%Up3Q(=3cq.;PO+0NSsa<'\PUs4jf,?Nsg<']Cqpr}Q\hn.%??oYp|.}-nG1^F^{
+T3Tvv+qE3821MF`MS/V/u'WQrs#PRz3utw9<NV)kE/pGX/Bj5RIveN:)WP0+BA21L5TQf(
+bG"0cBPb79QxZu[6fOtM(wQP@3/"as.<m$5;,Z; $TheB&r8HktSH#i{EKuBIteN:)L!'V
+QP@3*=td/F,j`G>$7{sXq=3821+dZ!2q=//MS*Mm:x`*Ct'5&-:v[7#~96S-=C(?02bsm$
+hdoc3OeC]OPM<fFsTP/A,UFj"<\?>0.&]M%BD'tO9?H#YF]'qJd1WMPbC\O2d=kw5iH#O<
+(%kQFZ/]e>?.#Lk_S+u1<VsXq=3821(e)As|#a(fs|\"kI>F3L*aoI9{*^a{KC;JQ schk
+\aGNnU8q:TpZ4D6}+F*'h:Hi)}Z<,#3IUW;>&!A\$k/Bn7^%Q42h#&hfGKR&I}(KY\)EY4
+2nh:u_9<NV)khfnBuADk$3@4-dhfOC`MS/he$HE[5_&}(c*f6A&p;8_-`N7=o6Cb9UJX\)
+ijt#16,T21L5TQf(bG"0cBPb79QxZu[6fOtM(wQP@31$s<JU$=cm:)@ZX7G'[da4[zW;fN
+m.oEDBG1ukbum$hdNr0L:cRwmiZa!e[EP|hHJdPL`V/}ht:)2GNucr[42;)3>.EdZ>>z/}
+%FUrI}gj.J,:Um@8'~RL0$Zg0^@D')N"^|DV1W,j`GB(myqJR_cAPb79t{.#>8:ys.oV2j
+>c9+mU$XBH\A<,Dd*eh.rhR_cAPb79t{.#>8:yH#o\2j>c9+mU$XBH\A<,Dd2-rxhsm6Tp
+I};0YlQ)JjJl?|=E`2^Rb\K;<E+[oI\&f?S+u1A{)ZGm)gBaJs#/;DauT3Tvv+Dxb!Iw\/
+X}AeiWAA1'2}f+uKAB>kBaJs#/;DauT3Tvv+DxbyIw\/X}AeiWAA1'2}f+?UADM,2sTi9L
+r =@ r2w,j`G<b4uIteN:)"17u`*L#7f`*Z+2q=/eS^CPI8c&gsoTfT3P|'*\XS+u1A{Te
+K^Q(pbk`Q$[-Y{2q=/eSMj^|&NMj0NkQgR,7uYGgopjSI2Q?Qg4.eifG8FM\G[*2MZo7N+
+O|n&gOb0i'kD\=#("_6ms%+q]>-o-r7vGm0LQLJZ4$CG1@@R#N9#`*0:lbi9L^LJ+FIRQ$
+>^-s-r.M(@<|2k<2]hGTs.9<NV)khfnBuADk$3@4-dhfOC`MS/V/u'WQrs#PRz3utw9<NV
+)kE/pGX/Bj5RIveN:)@vUGD~m 5;,Z; B2!Rk"lj\kGf@o[3gptZ`E2>Bc?R9UJX\)QJq^
+n=p\\<kI>FD{Fa#2n>Gf]X+xk01yNe#&-KhfM*,Z9VYl$/S4m5`M 8)jIveN:)i"G TPu:
+,]7;$uDCG1uk]P%BqLd1WMPbC\O2d=kw5is.O6DyTQu:,]7;$uDCG1uk]P)&qLd1WMPbC\
+O2d=kw5iH#O<(%<2D{2Mqc6KZg7ytvt}I^?@t=d6Je Q3UsmTfT3amUCk.nZ.}-nG1@8Vi
+re\{JwP(<+,bLa:F@[=)#i!h]WA Dpk6nZ.}-nG1@8Vire\{hUP(<+,bLa:F@[=)#i!h]W
+AL`L PGN]XQ^miZa!eEo9UJXYFIksiTfT3$BOkI}!pONI}>!EdZ>?;TF^=&xa)0!t-cx.4
+Bz0!t-cxBhEEm1.iBzm1!lv!WDi~Dz'zMvKj6S<7QhTrosrVcQ6i)}j|CDPmiPfG4.T6q4
+%~)~4eY/m `Fi'av6ZHgn_Jo);,UERX[p,(?V6R5A:i?\>;{DdPKHimq]|r(G% :o[v2EI
+*2Oxr(EI*2I"[;(%Qp%>Gd,}%?@}`lXo8Ot|oPiK^qrE,H-:H=U=VYPm%#o84D$~h9&!)d
+evXiN+[x`SBE&1%?M[os7doQ;`;eOmo[@x,bu6H(fnB`a%'%R&I}@U ,\oiw[q>QD{[z,P
+-agXp!u,(ZQE=|;]nB`P7=o6CbA\u57Q`QB(fr^qQ^miZa!e[EP|s3IEs)q)<'k`]0")[5
+&qDCGq4tlGFQDB'1\XP/Z[Qmh3W@0!t-.# [K"IteN:)cY#T><9UJX\)$lv!WDi~/u%W!@
+M(XN-;3PiRnwPmMT3{_cfi+E\kVYH=26l3+~3}IK<(s*KajtO-%F;U/(T:0]0;f+uKPhFM
+K)3~5D$Kbbucq`lrl}3{q`lrTe 'Je5Fl}ouU!i!#TZj##ivudlrTeX>`aJb5FOhr&I,Vs
+r;I,(@0 /y%W!@M(XN-;3PiRnwPmMT3{_cfi+E\kVYH=26l3+~3}IKc/\=#("_6ms%+q4u
+XDqg\R5>WM&jPu[uS010r5RY&v3X[7fOtMiX(FbJeu:)[md7^CPI8c&g*fW6n+]WT>hS(F
+JrQ>V/)3>.EdZ>?{+/"`#y:g:WG!\ngZ+F$sGxI1W>6kCA6}p[DLb07~G{rvX0o}!._T(%
+*mW+>02>A<@VV ta+<l{v2G}Jh(vO/u2m,cPcfGxm+cP36 /uKJlceiV3l[l'*??&']Wu4
+cP36:GK.uFJl);mvr97QnAr90`@ ?s+/"`#y:g:WG!\ngZ+F$sGxI1W>6kCA6}p[DLb07~
+G{rvP(BE&1%?M[osq$(CQ{-5,7MeDaG\-("Q:]uz,9q5WBAN4aA ,bZ{G~sk8bH'n_"won
+u\IQH2UGWJWT%#G \dfi+F)v8*+FICA(+~3Q\~[^bi@:s~u$s$pD4X8_8s*'n C3W>6m3m
+P46lrfb07}G#CgA(Z)AOYnuA]2FP?R'6<|V&;4g3h]7t.He>Ve^)o}MxT=8z?!0rQ(h>cm
+Gt<y=] a6!BR[chQB-/,`!_m2`=/E.D2aZBK[clufl>X.M,pav9EjlVx:Gb\.%`@H0mce1
+)"Dz]XgrncJ9%ZgZ\=#(N}2CnUk-K?Vu0kWXR a]b0Rx[^M&t!pnRY&v3X[7fOtM9('em(
+AI<wT1hf#Z8i0MQL]mC;Qdq?#P0(U/3HFqq7M&ivYo2,[8'6QS@z,bEFfW-3lI'"@04(Fq
+[amF$P]X=JD9@:.M,pav9EjlVx:Gb\.%`@H06B)r^CU%3HalDzH#3hjsWF8q9RtF8Vov`F
+t>aTlZmHO5'Qqcd&aD8H=foNLwWOSA8e>v\h8qsj!g($ebTnDM3Ah{a]p&GQtA@+b'GKD\
+aJA<e9^g2jkPnE9gY!,O[R2%&M?>Rjv%A_8AVguX'!Z7XWEI:k1_?UZoJsYvSC$x/BHQO:
+3I'pX7ttjL#4GLm!Gi[amF$PqlkH.}-nG1@8VireR1/KcybsYo2,[8'6QS@z,bEFfW-3lI
+'"@04(Fq26)`evDI]XgrncZI'6QS@z,bEFfW-3lI'"@04(V<P$?1e])cevDI]XYVQ?*aFo
+qcWI4r:Ln q>Ox4J1bQ8`4fm_([4ug[Osn^LVwL~_Sqa0@;_]o-E(oJuYvSC$x/BHQO:3I
+'pX7ttjL#4GLm!Gi26Tk@u]X=JQfuQS{R%,CpeG84F9H26f_-?m_Q9sM.6\yu0nX#ROjS"
+0K>(d,-X"q+NHmDOW)rc`7Mwnwi9L^bYT<G:EV`jfUSP;k9 @nA(dWsda]J sR9<NV)khf
+nBuAR9DL-GQ/7}TODtYPg2tS+5X~BE&1'eDgft`% I7VAX8z-jM&N+/\l3#vqlkH.}-nG1
+@8Vire<[[]>w,(O|2hij<jX/rq6K;gdk,B/KiOWSIt sO-c1Qu;U#u&!?:b0'nDzZuR|9T
+6v`_@=Di-`q;AkJt[xMX`IiS;Al@cXckhy7{&!m,AIOopTfmWS,hJ3WF 38NYh>",]W-J3
+O~qgXR`7DKZ8;|8AbA39k%UWC?m_fKW?Q8]qqgXR-t,GuLWb&S.3NlHt>G37WQm__Snlu2
+?jrQT"R%"9:*]M |[8Gn0M=ZirNR_I(Jh}7{&!m,3{O3:_W%mj90<;E=Iej=;K6O?iHp(0
+-o>w[]U^80)cO<`U9/1?p)e?bV\HBGWxB2-.VI-%(Z#1m];'e:)k/}5a[bkoq|_TstZcJF
+%BCfL/E=Z>'6QS@z,bEF;LO&<+JJpAf}2@)~)GNQHZ/a:8sT^c&InxckoTDL3AUWhs<j G
+P|q[,*eRmzfKl^Bh9)kB_/QAbNhzd5^WliRpsF1>h7-}Q*mP)"J0rEIrW)/LcyGxTB\U9_
+27f_j8Fa`>s +5X~BE&1'eDg;i1pngp+&Inx#+&!)d%6t/ePFoKGv)Ubc)/L 'JuZGj<hT
+!l'7[?!CM:T6_mh2&?oKoI+yR?miRhTYM9T6rzig`AVGN6_2\m=3E.]3+>PSHstSM0]c7t
+>X^C-&XgZ*.~aA%nNWRKK?^}E=:{S?SL!gUC@uI]<{7+0'LrM2>#0W>tll!Qp"+ih?TAD+
+nF.j4%JATn;aQFJ1lr/ 7NfM'-p#NnV J-_z0O,U$c7~1dM4Q-2kkP/f*p-J]dS&?[Yw1%
+Zrbm4Dfx-&CI,:YkV6Z(M<&"enUtm` \]U8S@+b'rV$PTw(W_4ok0&D+h6OKTPi7I^Zrs=
+/sp)4r/a0G,?,rtS4UfxX18Tj^ZbLN0jt]Yd2Vm('('9!s2z+P0YQHpr'r/JNN12g*`t\U
+O5p^Nen@b`[O[So3bf#q)Y5gj`lw^xq~$PTw,[m{:p+~Q/R<nj+>Ap/HNHY/D\=d tnKpK
+Mj.7E^3KqkUWC?m_Ph0wX7ttb\W7m,H$QOFU_sJU<QhndYPh;biCRVsj7{1d&-<u;+h/6]
+N,n"f%Fo >iuWD[0A#I;MCeVOF?YGuS.2%&M?>7e:8of4n_+ZD^Z.1+1d>E^83-"#Znpk#
+eTTneO_.YfZcLN[uUl4g9Rtb:''5gKrcQ.:pq3F_12A*q]*_,&TyQ>7}oqFL+ P$JGpkfm
+A*;;(<m66 )qtor(k%q`i#*v&pX{:^EDS~bye)Va"/79Q"ZdLN0jCIBg[8QFHcMCeV&=F}
+83Fr4xls,G.CE^3KqkT6C?m_Ph0wX7ttb\W7m,H$QOFU_sJU<QhndYPh;biCRVi 7{1d&-
+<u;+h/6]N,n"f%c\nel2_Rme%1]=7t.H$]lj+D-nCY>WuLN(k5UWb^D*Zu[4RCNB/(";^B
+1`FF hH![j8S@+b'rV$PTw(W_4jFmKDL3AUWePJhZr.Xp?N^MvF\j(;YcxL!3csI\OX>r$
+E@C~YkV6o]n+Q=ELjsUWb^fl8TtbDqYkV6Z(P?fz,huL2H<u;+h/8/5/U>8vJhe)D}-67(
+\Ha]Q=SKoKr99!T;e)7(m(6 )qtokAWFb5VV0Xd6L!3csImz_tm,[p5n-a;aU>jh1gO^.7
+?lDf%KNS<M'5gK0a.Wo6RA">qPPl&v\wZFJe7$J?UWb^qwT-)(8cSFQJ5btf4\LN\;PQ&)
+]EO*7ttN+5X~D+nFd`jRmr0&A(dWsdFb`6oV]'JsZGj<)}@"h`]/#qEusaDF&l1loj7c?!
+\G:SB8-.VI-%8j*DJM;hIVs_Y.7qb\h\oKsJ7BG0A@S=dP:<6\:+s78S,WQ(pK<GbZFh]4
+kw15h|8l]/Ftk5WFQ(=3E.043vMYlpfl#Z8i0MQL]mXpb].%`@s;CNt{M3,NWUIt sO-Bp
+V<P$@vD+h6p GQ_Q8W+~h9hO,C?lOz,G_.*a$M_yMwnw)"3Y10H2G=mc$PJuJ7%ZgZ\=#(
+N}`1Ts3H#6GL$X>91DevDI]Xiv?UZoJsYvSC$x/BHQO:uSWSIt sO-BpV<P$@vD+,z^\Dt
+H#^su;[0A#3e]Iko0]sMQdq?#P0(U/Le3eMG9vFr>7]@ivo$rL`7Mwnwi9L^bYk3eTTnLe
+3eFP3tFqMCivDz]XYVp^qg_#\uu0nX#ROjET);.48C#|%*6W,PuA[0A#3e]Iko0]sMQdq?
+#P0(U/Le3eFP3tFqMCiv?U:Om 85)c;d*IENm+GpCVt+f{'&)?k*2V<HPf'y*4M/9!tLYd
+2VM_Pl[{?|Q([)A#3e]Iko0]H2EV`jfU=Z$~On784=^i2jkPnEBP*RnA; ;.8"[V&Inxck
+O4Z7SlJ+Vb5l)devO4t!pnRY&v3X[7fOtM9('em,AIYP_Q8W+~h9hO,C?lOz$?NR+mj'p!
+?hQmN1^D%Oc-jNLwWOZ8Vw0#GJnU3G*Lukcmly34KO_+E<jNLwWOSA8e>vgSlI'"@0th\q
+JM6Y&7Raq?#P0(U/f?,s#}-!g[2Cc/Qu;U#u3vVI9h'{T<[^M&Z7ijpbJi#/;DauT3Tvv+
+m![hOx]Cgr )WB<sZ,&>faFz9tsECFft.L,pav9EjlVxm{PF-VW,oS3G)+r(p/m` DuArg
+6K;gdk,B/Kntq?#P0(uOiS`AVGN6nUk-K?VuSn-VW,huVG9h'{T<[^M&(Ec=I-\]%~?>i!
+DzYPg2tS+5X~BE&1'eJ-3RFq&LnxckoTe1sda]Dz]Xivo$hFS%_O4yf_Tx)?2_<{UoGik.
+m(O5'Qqcd&aD8HjsUWC?uA[0A#3e]Iko0]sMQdq?#P0(*$;.8"/XBnO|n&]?iv<j:!sECF
+,:J3WFcz,iVVK*9-jrUWC?m_K4-@\+oj)\foPKg;r Wb.-2^_}E.Xp+7/t4H$(R#/Kd"bs
+tL@+b'GKD\aJA<pd-4lI'"@04(V<P$?1P(me\NDJ]XYVT"pTfmWS4O9RjrT6C?:L]oTJ.M
+:w_ paFS7Z#hHqm.@aW?EI:+1_]sA%)\HuCEftj^=YJshrIvQ`0K>(d,-X"q+NHmDOW)8i
+@;,WQ(ls!Qp"^|G8'6QS@z,bEF;LO&<+JJpAf}sa$18}>:b\.%`@H0n:&I!~&Pnx)1AW8z
+-jM&)zt77/KZ3IT6hsVG9h'{T<q4M&/@utc@Pb79t{.#>8:yjsN tA4xm_AI<w,I5Dm_V^
+ez0%3\MpbDt<AW9RmA:2[]OxCIjxft+Tcy+Vndsf.6O|X|P?Qe (WB<sZ,&>faFz9tsECF
+E3[*A#I;MCeVOFU/50T6q4I"A u|50:G`bosRAmi!H`A!-MQPTs@Oi[/A#3e]Iko0]H2EV
+`jfU=Z$~On784=^i2jkPnE$2A^_aCc8zC@Gj6B)r^C[k6YSR/w2BA(#v0kPDr;C%+~^\[k
+k0uT&>VhMU213Xv!cl&Ae6lGCF1_?UZoJsR?b~00?@2^Q$EEZ>'6QS@z,bEFfWUlG:EV`j
+fUSP;k9 @nA(dWsda]Dz<w1njsWFQ*rVQ.mkU>-)S*Mm*h9.t<26f_'em,QY/u7h4XXb8J
++yhyX<]rNDFS:.QmZ=l;Tgk!-'cy2C]oNDFUOcPD7{rEflIHhTg(RA:0Xl.f;M+}cyGx4x
+f_qi\nQ79|-wr"Z~ m+cZWAsRWP()o]j4MalqE_cj_T:D+<TFwojZ@l}C(/ZueA[${J]\q
+VcbJP{QB[^Ox,"d"bsE=j^=YJshrIvQ`0K>(d,-X"q+NHm+VndsfS{ORu2tc3GHq -o2ZI
+'6QS@z,bEF;LO&<+JJpA?CTPprG2,sg[QBhshyFb4x[RYV:hpnIHhTg(RA:0Xl.f;M+}cy
+Gx4xf_-%7hfJnRZWPifme,0%t=+5X~BE&1'eGJIfft#4GLL`N+O|Me^g:82dU^-EiPA<)\
+fs8S'eE}09fGg;1mRy/2[(A#3e]Iko0]hRn%_c)h;.8"hqhyN*(7<Ouo>X^CZs#Z.N@H"g
+$>27IFZ/,_h`h]7t.He>/<2}$=27o`]:JM6Y&7]dcCaZ6U`Su'Y#HiW[:-fr8SD/m">d(c
+ RRK[2A FnK6/+0,t(N9Hifj2_h:cmiVq2In>+]h"bMTa06\:+e8`.Ig<{7+0'Lr]Fkw15
+h|0t/Rf'q#(CQ{^VE`Z>j<@HGm$|cLWD'6QS@z,bEF^wf=@}pDk-K?Vu[6)})GNQHZ/a:8
+sT^cSf;kiPU%3HalYo8rJhe)7(U`@+WQD=F?m s@,*6+S&rVQ.^LSc0Tsy%?Q.eWm3V^7t
+'5gK8i@;@+b'GKD\aJ\7/}I]Xpb].%`@s;CNt{M3,N/-lI'"@04(#6GL$X>91Dt77/KZ3I
+UW(3H#^s:4cePK3GC5G$9V:L]otogXR2/uRc2Ub+3:WQI"8s<+G <C6BRFXK3QXw5D>e</
+^W*&4@UP,htCtFWSQnIqW)S|cff!ni-:Fc12A*q]*_,&Tyd17(m n+rOQg3]Q:./j#U2hF
+1uW_9RH&5D(zJ>q`4F9VG$m__'7(XJQ@J1J3ft]b-5X2\>@]#TW+5D4#5+U>Wu3QhQrxt?
+F!\jb^3:SM1EP4>F>7oNLwWOSA8e>vpFG,(7_42jkPnE.lMZc"VfU9?DTPprG218WX\j3t
+VI9h'{T<[^M&Z7ij<j GP|=;\%9;8$eX1>jsWF8qYtSC$x/BHQh3M*%3GJ]d9hY!Dg:R+~
+@vu|50:G`b@:@+b'GKD\aJ\7/}I]nFf!g BgV<P$?1e]Tn$QH#^se?>5WQDn.<>}N0r0Jg
+rGLs^KVwL~_Sqa0@;_24U>(f8*8^i$n]apf_EWLg-5(XVQDdZKD3tWDiLg-5(XVQDd:_WO
+9+-@UGqf,c\nk1qZ,*:GJdrGLs^KVwL~_Sqa0@;_24U>(f8*j@TvT<dnLB.3P uS0$rcPi
+0wiRJbJseHRcix6zKRi"!bN{[0o\\s&STvBBMY\^4IQR.8UB>F[rhfcmly34KO_+E<jNLw
+WOSA8e>vpFG,(7_42jkPnE.lMZc"VfU9?DTPprG218PDr;XZ-VW,hu#4GLm!bdh6e!5%fL
+V!O|n&bdJ sR9<NV)khfnBuA,SN}FU[oYVF\jsWFQ*o7oBQ</uRc2Ub+3:WQI"8scjpK85
+L6X6n XfLd.V:a;YhGk':I</^W*&4@q`4F9VgD-3Ub>B,:jy-'#ZnpWO/Z,xO8`)6tWF\P
+3<_Q_^tG:.'5gK8iq8OxpTpW5)Q^!lGHfr=ZJshr$68rhF:XgD^D%Oc-1uW_9R8\D=(zQe
+uQ:n'5gK8if3qZr0d2o:?2"gAV(zfz(f8*N4>B,KtCtFe9^g'c74<W]I.qKUr@n+c0e)q\
+0$:oTo3GtNb|9W)HO}_U-E(o?jXJY(iXWS=/h6>].M,pav9EjlGYVEa|jR`% I7V@73|2n
+&lq6nZk-K?VuSnJ+Vb5l6C)ran9gY!,O0G1Gt77/KZ3IT6hs)"mC`[=|;]nB`P7=o6.->w
+Q]OR=J&['GEN,A[fGknb2Nm 85Tn_sMwnwi9L^B9?|s;;KF}c>Qu;UGi)c$Ut/s2Fo 2uk
+tN+5X~BE&1RpI^jK7Z/l:8sT^c98l'0g-aBs'pX7ttjL9rY!Dge]n:&I!~mgDL@n18PDr;
+C%+~^\[kYV:(DCYvSC$x/BHQh3M*%3J-3RFqDz]Xf?,s#}-!g[2Cc/Qu;U#u3vFq6\SR/w
+2Bl3#vilo$fJ`/[6ug[O2W<HPf'y*4M/t<si7{*UT5:^$C,%)40+^Cir6zKRi"!b.[crlG
+)\J7fjC?J6lrZ+o\rIl#C?]v6C&ZOG;8]MWOm_%jm,IQ8Kul=W0Q)r>dq#Z0#~*Gt:G%G=
+EV`jfUe"5%fLV!V<P$@v,sg[QB(3>91Dt77/KZ3IUW(3,G8oX^mgflYVZHHA_Q8W+~]NnR
+Yw5IDIN FU_sW@Q*uQ0$3\Tfg>);.48C#|%*6WJ.ItW)PE:*XJM<Q-]b-5X2\>@]#TW+5D
+9VJ6lrZ+o\R)X4&STvBBMY\^_TEI:k\j&$Fo[o(f8*2H@6kEFvmA2MfG@IGm5}A<s%h?#Z
+8i0MQL]mjVn90NsM\OO#<+JJpAM90n?p1qWX\j3tV<P$?1i!$=A^_aiIN*/\Bnhu<j GP|
+=;\%9;8$eX1>jsWF8qYtSC$x/BHQh3M*%3J-3RJA6B)r@ee,hyU%Ed1p#*o/ZIj<*26hcE
+I_7t_yMwnwi9L^B9?|s;;Kd[Wfq.(CQ{Qi3Ar8N? ~#8GL$X0kWXR a]P(J+Vb5l)de6oT
+f>,s#}e9sda]Rjv%A_8AVguX'!Z7XWEIb+J0*LFo[oYVR@s: 2uf3>G^VE[6fO:S!^7G>x
+ch.x)z3`e<ciPK3G4k,5tCHlQ0msWm7*Q]cf]xXSFS+ P$uR^fa]Q=SKoKr99!T;+}tmtj
+:.'5gK_p8WN5)_U>]4ZcLN0js<Wb.-Q]T<pTJ1YkV6o]j'D=9+f3]Z./<Q_YQ5Uld"L!3c
+X~3TjstC=A67i&]xh[1u-5p)2.$MnXv/:pW*ZcLN[u2)YyFxX8F\cqPK3GC5G$9V9+H&5D
+(zH|\e^:+Tcy,}eR:U8r269R26&c8We*,=peG8=o'~uO'!ol2lqT,4/HNHY/D\=d tnKpK
+Mj[0o\rIl#C?O(FS0dZC#~JgN[=+d>tM,Wt+5v0( ;+DAb_z+y?|b'GKD\aJ\7/}I]XpmH
+f}sa$18}8t)`t77/KZLf3eMGSP;k9 @nc/5%fLV!O|meGin:&I!~mgIq@ndPK"[zW;fNJk
+N[h6<;]oA%]p80)cDQYPg2>]^C Q6Bi BOa%8S@+b'GKD\aJ\7/}I]nFf!Fo6B)r^C)ye6
+7|G#ijo$hFml90<;E=TPV-^Kt4P;3pt@f{ND')7F8~b039P*-E(o_"l}U^Hi2V\nuFugTZ
+/2]\Mv n[n#F'a@+i$-|:3-(3Wde$|C(s~IHhTg(RA:0Xl.f;M+}cyGx4xf_SKfzMId5;]
+6T6o%]cl&A:+bAfmC?uA<q);`cG+j[7c?!h>E2<{2L6>Xda.)zk&e_K?RUekR$Vfjn>F.M
+,pav9EjlGYVEa|jR`% I7VQhq?#P0(uOJT8d-Vl6$=A^_aCc8zC@Gj6B)r^C[k([c=I-\]
+%~?:e]n:&I!~mgIq@n_+jT_R(lrCQ74qcLlG)\J7T6C?`2Mwnwi9L^B9?|s;;KQhJh9gY!
+,O8$Fr4xIU o/R,m.2I2Q01oe,mFQY_c8W.M,pav9EjlGYVEa|?GUTrEG}6B)r@eA(+~@~
+fr=[E.Mia06\:+h3e?DqGRD3dK^xX}eRg)Fq]U'g,3ITP\hdW[X^B\`]\m<z9aMWRk_Co4
+6TMd^oIt sO--;lI'"@0th\q:-MZc"VfU9Le3eFP3th{Fbq7M&t!f$DyojGQq`v%A[${J]
+\qVcbJP{QB[^Ox,"d"bsN4+Q,}pYe24D5'Zg8g=W0Q)r>dq#Z0#~*GntsMWS&Inx#+&!)d
+%6G:TQEI5':k\jbY39WQQ(/Kk{@RVXXAC\/]>E?yb'GKD\aJ\7/}I]Xpk6QdJh9gY!,O8$
+Fr4x9eCMDCR?X40m"}#zQ(`6Mwnwi9L^bYV~S.Fbijo$rL`7Mwnwi9L^B9?|s;fVs;^Ca]
+Yo2,[8<qTFIF 5L"<|V&;4g3=R3lKv?NjYWDQFc^/%A}&l72+yZGQFc^/%A}&l1lIp23NQ
+^k\m9/+y<<$Vh`o=/,A}&l72`Z@WL(b?68fpLC"uQE`mmd>7q@(C?K=\a_;/bn#qr(_S e
+AveHK?BE,d>>-^@"0Umm?oC:79#OQ(`6MwnwHqLW^oIt sO--;^[2jkPnEQ?O%<+JJpALd
+3e]W@nl3dWXia^pbI8Qmp$GQ'6QS<6'eVw-;3|en#4GLDx)ziZsdrb`7MwnwHqLW^oIt s
+O--;^[2jkPnEQ?O%<+JJpALd3e]W@nl3dWXia^Dz]XgrqZ,*:G1K@ArC9/'9A,SzTrhZoV
+6K;gdk,B/KntQ?`6hZc*Quf`bXb07~bvuc[ :IQd >uA]2FPs&D\aJr{'U0~NQT!`#T4bC
+e+p1l|KeT: }&jQH@VA$)@o8GTmcg4.m;j:y:I"4<XZ8`Zn%q>Ox5+:+\j:]>yRfZ=A0)\
+`mZC@<-dhfo#K*et]Viv_uCHEPetUPCI)'<,D{j&EdiRj$r-XNS|G~H~ :X8qg0Ghdo#`[
+i'av@4Di-`q;Akj~l_3|N{k0Y34I,j`G<bv5gB,z>gIXjy1oqzKE^qlY@;]Os1_]C`m_U*
+Ib  ]$O!UVT3iE(3DBBt0!t-cxBh0!t-cx35R9FQZ}SWE59v+7]a`:nVs"eLWD4IMFd7Oz
+Tp50:W3]79X8qg)-R:pAWyH.bJ6zODYGn(3{7a<cG|[Yhf/YIoDBYKJ+b^'{v3DsT6C?>%
+t>[k/"gl(@r"Ra5'o[T<n%/K>gIXjy1oKTJ}R(AKmy8eIDIds18l\kg@  uAu*$)21gp5%
+A?O)4j;!k|@3AtuA_Tc5m$hd)-MBqOg)<G;Y$u!j7GsmTfT3;m3Le<\4rF(^t/s2G  Tmy
+3Bel"3[k:x);k#oQBd-'%WaTI^_*\m9K&TQP@3/"W)4~fPCD2]T6C?IteN:)CLQ*be-G.n
+9+oM2@e&7rs*/gfj+}AkGfT;m]W$IT'sCE3]asus4)LgEK?BA\%\dM)Z@6\SC,2P]7GnPq
+W];>QU9?<%ACR]N`(Jt/W^n!!)ucbDn!!)e]mL3OKE`STp7~`cK%CFm:j<-IPb=Eoa%A's
+bfB6-.VI-%(Z#1,|%[QCU3Bib_APGWBfn_!v=es/;EjLSJmO^cFFCFRwmi6K;g,[LeN|^o
+:EG!ij:0ur'6QS@z,bEF;LQh)g;.8"C`8$FrCgmy6K;gdk,B/KntftAT8zXuMdN+O|Men/
+On]19KFtTGjEmi2Xb @WVIX0B[kbA+]wp3C\nK5c^Ue>E2Ft)<D-Rwb~CZ:{ST8QBr*HDy
+Z7Y&\zNA<Ve6jVq5)gPADxsN50HZP*:"tnWDj?\=#(`;SCLJ+F/ RJrJMZXx=\:8TFV5"u
+kR2]=/eC,7uYGg[|#Z8i/lnUmFCG)`etc(Qu;U#uqL?ST";>mHDL@n`+ts,]7;$uDCG1uk
+I<jy\~C?t``E5ALb-al&:)eVK%:d>yQ]OR`MS/Fo9VtC\nV/hR=Ie$>5e/0%nkfq]WO|pT
+fm8TtPUG,jJ78uh[l^TJ'lQWbf@$VU;biC)]jsjDni4-QZc!VV0X9+UG,jJ7WQD=2^%KNS
+rCN;hNrI0$QZ[!8i\Joju\ZR8S(wrhQ>*aFo\n]9d!Q<rPCHgDWSm U^SwHifj,h:cQP5+
+:GY#[;I1,WNg[`9|e_\I#Z8i0MQL]mXpto8qtCtbLd3eaKb07}bvucJATn$H3sI~'zMvKj
+L)['A#^p:EG!8q/ijqdW#4GLm!GiC_Tk7}G{%~?:Rjv%A_8AVguX'!Z7XWUS7N3@i#dbi8
+.}-nG1@8Viregfs&h~7{il5*m 85Tn/3Dsi@_REIM:&"-6.nj|8bA7oXQYF|oj6K;gdk,B
+/Ks>^`O6_yTsXL]l9hY!,O8$FrCgmyj)e,fo[;>Q2kE.e_Hn-5$fh`WDI~'zMvKjL)['A#
+^pJU5:WM&jq6nZmFCG)`etX=?L9gY!,O[R[^mF3G\~S>Y88Ot|oPAc'6QS?Y.l[z,P-aBs
+iR-2^[SO;k9 @nDkFc4p)`e67|G{C\Rjv%.}-nG1@8Viregfr-h~7{ilt#tY,]7;$uDCG1
+uk]P]r/7(oZuSqpTfmWSHoQ^4XX^8\U`s9,*6+e*Q<rPCHgDWSn4HlXRPi+RE.:K:.BGa<
+')8 UH,jJ7)c4/7NfM'-p#NnV 9|tN^R*aX~[/A#3e]Iko0]s=G%\n&Inx#+&!)d(yY4TP
+8Ot|oPAc'6QS?Y^B[4U)tA,]V;N6Q(/-^[,HS pSmFZNOz-VW,'k,"^T1mV]#y5H'|MvKj
+L)['A#^peP\n:EG!0iWXR a]iWmGIa3AT6Ozowg9/?ut=|;]nB`P7=o6Y8n%[hOx]Cqpr}
+9<NV)khfnBuADkEP>O1_?U\YeO4'A5VXTiD7J8S|T#qp1\`7XL8gk6UXBh9H8\$38rJhS-
+rfT=gZTtH|fo`3Z>iXWSX^QEUlCa+>Apl~nDiMA5* ;GG(pdJ1>G\{[tS*VqC6NaH!7Gf+
+X)J1>G\{0iW`OjpTfmWSHo_,?xb'GKD\aJA<pDn+CG,sg[&7,"3I1s<23LmdS-]1gt`F($
+Zgn]@)h:XOYf3Ik6PtqY,*:G,&g$L/Q?Ulg>H;s%2HY 3Tqz_Q\o]48qf3qZgEDklr8I>p
+&Z<)i:[I!if`Qh]s3IH>N|Vd.;io'H5jt;r0I7:Xk%mgWOpBQWuQS{rEZ~2_YtSC$x/BHQ
+O:_yTsosLd3eaKb07}bv.<mt?9QP]Si^S/Vurk4Y9VtNsq3GId8JHlQ07}WI:oTo9M$3CM
+&D1>P4Q=Qh]s3I$M8rUG,jJ7mg1uW_:LXJT#HiQUU1VqC6NaH!7Gf+`1\o]4[tmKnDiMA5
+* ;GG(nb@)h:Dk9gnX1?jsWF8qq`H"_rMwnwi9L^B9?|s;;KsJQd)};.8"hqhyN*=wmr=x
+"G@:^I2V^Ue>E2Ft58$ (^DND^#y,ZJ0l'U)ECFtTGjEmiflp:i9L^@-9aa@Pm'O95t@aw
+X6v$`*FO*]&Z"CoKfl`*FOpSj#&j&9j Lw\tV?a%+0)<.Wml&+Jl^~i)LwWOS!dC.}#,8}
+8t/^8_mHLd3epZM&1nU<dZhyFbTnDJtK l+cm"85)cQ:nT,9US4kfs8TJh:XjyZ{WFt+^+
+-X=&N:-joH\ODhP?rnk$HSG$q'Mg7t BP|q[/sGxN1rN8qR77ucePK3GFx>qch.x)zgD3:
+o6E=)G'uQ;=r3u3=_&\YmDJFJE:ca`*U)?h7Y)n%)uOjD+rJ[hOx5+etUNd"_8_"BsS@gA
+GuojU;@u]w-%>E4SBodStmtjUGM+5,2^_QMwnwi9L^bYk3tCea_-?NcbU`Sf;knu@}D+,z
+@v9+s"Tk2%9@h7M$5,eE`^\YBhdS@)gAq("\iAjiT-4gk6"FQQomq`n(e1QJkQv"hXBieR
+\n4qhZ 'Y4>zk07Sl.@O+"YtSCpDQc?=Q?dZ#4GLj~#vC^4BS [^mF3Ghur`.Gel,iVV=\
+`.o49{f'+ >O3LE\\rJwhbD:X^mgQ]d fq5KDA2-t]cOcffq5KDA2-Fo8l]LUl$`,%`L2r
+Ti#vNnQE*aFo\n8S4pIXWQQ*uQU1_]?b8Wr!F!;2Z,&>;VhZBiiRm(ezl'ezaZ*U)?!J7G
+cm_RnT,95Dm_eME2,A[fGk:nm,Z6_"h1SxUw6!np,zoV`FH),MNg[`R5\O50>yjxjarI0$
+rn_ YrSC$x/BHQh3M*%3J-nm4'p+Ge,)J9BP8zXuMdZ7SlMEc 2%nz3Pc.lZ)"J0DOW)ez
+G"XNFUpNE=>:Wz\zj]_%BsS@/Mcy]NeCGz]s_[_.n]@)oGGj`VTp3HI4("tR2rv1e{Tn/L
+J1:ca`*UBbHGD+s!J6)\9Y\Vd#U`2%9@KEJ}oG\OBhiR*HoHK.F[Gus}ci4AER;.9%E='6
+g)Lr!SLcE1Z>TP8Ot|oPAc'6QS?Y.l[z,P-a->^[,HS pSmF3GV<P$gA@nA(dWFo[Uo,#6
+NnQE*aFo8\WQQ(Ias18l+~tm4-I&_FQ/mkl#VD>",]W-Z~eT\n4qhZIPkzezaZ*U)?!J7G
+]wQ5Ho\e8SUG^\M+5,(z;oEN^BQFbNhz5&9VtC?aTsB]Q(uQeyCljzQ9rP_DQ/V0qH$PI<
+e_TBc 2%t@h~7{U`oveq]xS.rP_D@~I %ZgZ\=#(N}`1rQU.H%cbU`Sf;knuAJD+,z@v9+
+s"p/2%IPS-rP_D ^WOt[_R3QFqWM2s5Prn>7\ODhP?rn`aCqk07Sl.@O+"YtSCpDQc?=Q?
+dZsDFb)c;.8"C`[R[^mF3Ghur`.Gel,iVV=\`.)FNS q.bV^F\p>/*ivrgnkitsr3G,G5D
+m_qY[/Jwe)+V_8Jw1u-5irrgp%WFn4cOPs:pcePK3Gta8k>p&Z<)i:[I!if`j!MkU2VqC6
+NaH!7Gf+]N>[ihMk.7?lceE ,+6+8_Zu[0Jw1uW_5D9R:.ceE ,+6+8_Zu[0Jw1uW_:Lce
+PK3Gta8k>p&Z<)i:[I!if`j!Mk7|>yFaG2Df0Z% Xn3SHBup/?7NfM'-p#NnV Dg]8];%B
+@+N|Vd.;io'H5jiPD:DA*e)_J7/HNHY/D\=d tnKE G&[omKnDiMA5* ;GG(Dxh?]T3RSM
+fzPiFM3=k2PtuQS{cf`3?UG:_Q_^H#p]uKgXR2/u_8Jw1ut\m+Hmp'WFn4HlQ0X>hUcif!
+E s*iw8Wf3qZE3:K:.BGa<')8 JiEC]8j!Mk0%7NfM'-p#NnV J-p'SB1EP4uEkMFZ/].n
+9+Jhe)fo+ysDp,QZ7}sEH;r,HV,)eBap6S\%9;8$?hTsCHQ`5,M\5,#jJ9E=%i'G,U9Hm+
+8m_dZSAsRWP(nlI4("tRoki?,9:ca`*U$MTNW&0XK5!oXa>9gAq(Mgmj6K;gdk,B/Ks>^`
+O6uSeyoltj?gTsLe3e:d3vFq[a_ BsS@gAGuojU;@u]w-%>E4SBojyjarI0$rn3tv1e{Tn
+nkI4("tR@@UG:wtRZ6>7"4u1?bTs3HfqsI?g ?R>\O>Q2kE.e_Hn-5$fh`WDI~m DjE"NP
+#,p+6KiU;/k]PbOhRFr!#%5F?Oo_6K;gd[m<RYL`,NWURyWJFc)c;.8"hCoTg?3A:G+~_)
+t$I<L]*b/grz+5X~mHqh9<6@&7Q@dZI23A\zOz-VW,o<GiTn7}G{C\H ez3=QpWN_lC`m_
+Q9rPQ.&4@A<MsECFlz/s,}o@)\W`E`?W8`A7oXm5jF8vjyr$E#>tch.x)zTi4r)pBuS@gA
+E3H{MCirnh4LalUI]s/7iPI2RpsF1>h7CSIDgRW)c`k4H;ry+5X~BE&1'eGJ5D8_k6s@4)
+V<P$/Eg=N*i#@9:HQd >u|50:Gr,)_mmpO3Gg9"YQQge`*O(b&a 6$=S0QjS-2^[,HS m`
+Ld3e]W@nU<dZFo)ciZdigf,7uYGg[|#Z8i/l8_mH4X)`iXc(Quf`G]3t:G+~_)1m_+B|Ti
+s: 2uf3>RqO$!g=E7'm:jF>5]Wnmit(]Cw\OqZ/sirrQp%WQ1NP4/sirrQp%WQf_4Xk&q`
+lr[L! <XeSm,CHEPT#3GWIJ1WF7*=]R6uQS{36D=h3SxUw6!nplzuEj0Qv.Rb8<JeSUbn"
+3@k:_%QFbNhzd5k4g:HyMC4]mzSiD+\tU"dr2%nzIRgRW)WTELI"2QBuS@ZP7N3@P*rNI&
+AX'6QS@z,bEF^wf=@}pDn+CG_<`=c1Quf`bXT";>3vdcC\ftkNK'XS8qjy!3u1U07}tB >
+freO:Sk0^BXIE"NP#,p+6KiU;/k]PbOhRFr!#%5F?Oo_6K;gd[m<RYL`,NWURyWJFcTnG]
+0iWXgUGz3t:G+~_)t$I<L]*b/grz+5X~mHqh9<6@&7Q@dZI23AV<P$gA@nDkFcTn7}G{C\
+H ez3=QpWN_lC`m_Q9rPQ. n+c>{rDV.D=:Ls5,*6+S&rj4Y(z_3QFbNhzX)J1eT1>h7Y)
+ov2NBuS@gA'emB3{:cUTE\_rMwnwi9L^bYjRf!foHBc>Qu;U(wC^7%o\K'XS8qtC >XDqg
+?l+/"`#y_qMwnw3Aen-2_(1mDkFc6B)rXMa^T"m`gO@nXV+iq2[BP[<y9aH28q/inUmFLd
+3e:dM(\ydYFo)ciZX=ij5*m8^Z!Xr:dC]vW&0XK5!ogPeOJCWj_,`6J1taUXBhm 85)cU>
+];PMH|,5]lPM"6,I_,`6uKgXTtHifj8vHlQ0X>Jw8^N|Vd.;io'H5jt;iw[ZF}G2Df0Z% 
+Xn3S]Wo:it0OW`9RHlp'WFn4CG]8];PM"6rG-JN=8nHlp'WFn4CG]8];PM"6<Q8rHlQ0X>
+Jw8^N|Vd.;io'H5jt;iw[ZC?D3E0:K:.BGa<')8 ED*emCnDiMA5* ;GG(Dxh?]TA dafS
+\ebK4 Vnn0iqZHDsb!W)0%7NfM'-p#NnV J-p'O~h.jATvT<dnLB.3P p&tNs-7~QT3]qT
+:BmrTPQ5*aFoHlhbD::LsEH;Zujg5K(zfz,h]lPM"6k8_RpTuKgXTtpTfm\xifHlI(p'k%
+taX{3Tjs/HNHY/D\=d tnKf!E s*iw[ZmKnDiMA5* ;GG(pduKQRM;&"@6TTeOUn,ho<:g
+1dQ8XLP?&Z'Gk4WI")?lrEk1;C&r??&'H2*<TJ.I=&N:C@gAn%2NBuS@gAE3H{MC4]ER>O
+\jrEpdtmi?LwWOSA8e>vpFG,(7I^3R>GEDSR;knuAJe,XiU&Ed1pnUk4K.F[=+Kdhfd>^C
+e>E2FtTGc^#%^\"0Vr_w Pb?&xaTDV>xSL"lQE*(C8aJb`G+)zE@FtTGjEmifl/YOhg6Uw
+0rQ$eeljcRg/Qd[otp1dWVnuu$(Ifsft]@0r!Y^}&UF&SA8ei1L~dwA1pCQ(F\dk,Bt`A#
+%?M[0tQ$*Jv+`*O(b&a 6$=S0QjS-2^[,HS pSmFZNOzov+}^TN*/^V]#y`+9XJ$UGp-H{
+L]*b/grz+5X~8s:TG!C_DkHeO~megOb0oV=1eC,7uYGg[|#Z8i/lRQ=|&8Q{g?1m,sg[I:
+/^XD?L4BS [^mFIq3A\~hss1.G]\d!fqQc7u9{Q]Dg+iq2[BP[<y9as=G%Tnc)Qu;U%4C^
+c.Gz26l3+~AKdafxO6?l+/"`#y_qMwnwJhUCm`Ld3epZ3to<g?b07}G#CgJ6;tOYe6,7uY
+Gg[|#Z8ik(:Ir%SO;knu@}DkHeP*meIq7%9f<62kQ schkcH.L,p_4WSRydC.}#,8}8t/i
+,sg[I:/^XD?L4BS [^mFIq3A\~hss1m6]XHo\e_Zk{X/:LseTfT3fx7~ADqHR_CIgqms6K
+;gdk,B/KntftsFAT8zXuMdN+O|Me1no;m8 |+cIveN:)nW+~O67tH:R($nqt#%5F?Oo_6K
+;gQh_]TsosLd3epZ3to<g?b07}G#CgEQBa&OR7beus4)LgEK?BA\%\U^36YEmg3GW=o[c#
+W7,FQz$nILhgDaSuOfo}?PW?O~0L_h6>%A'sIM%ZgZpe8qjyjyGfT;m]W$IT'sXzTpoVCG
+v%U/6C]pZk[xMxFZ1_AW8zXuMd\yla3|T6q4%~0e,rt1ePG  Tfr>Q2kQ schkcH.L,p_4
+=YA_9";C:\g:Hd/^,sg[]N#xqL?Sb0Rxq4mFgO@nj%Y`j&-C8g:E)C?hb'rV_SaFjRf!Fo
+)c;.8"'b&!)h(yU`[aOxH~L]*b/grz+5X~toC\T"pS0iWX\j[h:]&!)devXirc9>*S28Q 
+schkcH.L,pI^3R:Il_3PV<P$/Elb3|T6q4%~[pB@Y"bh/u%W!@!|?xb'GK5De,G 4p,sg[
+]NGlC_A(+~3Q1snTm6_Z6>%A'sIM%ZgZFcUGJU5:WM&jq6CG)`etc(Quf`G]3t\zOzme+}
+^\N*/iIUXSEWUP,hE?a_@09,N5[;(pQP@3;nn($l_"l}=Z0Q4]EJ0AH2UGUlWJSP;kiPh~
+sdN*i#>9.8O6O(b&a 6$=S0QjSI2JhQ?lb3PV<P$/Elb3|T6q4%~[pJAWjQz$nILhgDaSu
+Ofo}?PW?O~0LCxg:(D1#LB!$Cu,>.8O6uRH3#9jw^dc9+95'FMWO+iq2[BP[<y9ahRn%4X
+5Dv%U/6C]pZk[xMxFZ*8Qg_soN2@e&7rs*/g;_3Li#sDSO;kiPh~XIN+O|n&gO(@rE0,mt
+f_00:cm:_Z6>%A'sIM%ZgZqns~,]V;N6e,Fo4pTkG]0iWXgUGz3tT6Ozn&+}_)p Ubqfiv
+_R/3nU,9b<39mg&+Jl^~i)LwWOp^X?C\_MX?)v;.8"C`8$Fr4xV]h./&J/i!7Sl.@O+"Yt
+SCpDn+3OO|n%ZN&Inx4\o\DLb07~bvS-W\(B_Z6>%A'sIM%ZgZuR1melsD\xAV8zXuOVN+
+O|n&gOWOR9r!#%5F?Oo_6K;gd[I2t"u*QI;-b6WJFc4pTkG]0iWXgUGz3tT6Ozn&+}_)p 
+Ub`*IVS%_'#|JM.;,I0!t-.#J/*8GmN1\KnbtmYJ3I'6QS@z,bEF;LQh)};.8"C`8$FrCg
+XDQRJ8m8 |+cIveN:)nW+~O67tH:R($nqt#%5F?Oo_6K;gQh_]TsosIaiW0jWXgUbub07}
+G#CgEQBa&OR7beus4)LgEK?BA\%\U^36YEmg3GW=o[c#W7,FQz$nILhgDaSuOfo}?PW?O~
+0L_h6>%A'sIM%ZgZpe8qjyjyGfT;m]W$IT'sXzTpoVCGv%U/6C]pZk[xMxFZ1_lb3Po<Ld
+3e:d3vT6q4%~0e,rt1ePG  Tfrd>r3=4cqE2Ft58$ (^DN\6:Pj.l1]/9GE]-Yl6A=p*]6
+TAjEmi2X=/M[RkDH6Ut@p17'Lbc"Vf3Wv+`*O(b&a 6$=S0QjS-2^[,HS pSmFZNOzov+}
+^TN*/^V]#y`+9XJ$UGp-H{L]*b/grz+5X~8s:TG!C_DkHeO~megOb0oV=1eC,7uYGg[|#Z
+8i/lnUmFCG)`;.8"4q[R]P3A\zOzme+}^\N*/idPK"DrB]tc:f0.s_cxB_\nr M/T37u9{
+oqo|M3Q-WuJ1>G1pnU_L6>%A'sIM%ZgZpe8q:IGy6B)rsHU%G]C_A(+~3Q1snThF&TQP@3
+DWY!bhlZ/*fsYMeRLwWOSA8e>vgSWTc*Qu;U%4&!)d%6C^h@#:NnEY2_0!t-cxQw$n_"l}
+C`8o<P(6Oj8Ot|oPAc'6QSrl3Pen`[Bpf9E!D8o^+MTiM`,Ip]^}:-qyf\4i#y<MO}Gm6B
+)rsHU%G]C_A(+~3Q1snT@9eSW*@AUG`*O(b&a 6$=S0QjS`E*\;fNPHZTnc)Qu;UetoTZN
+Ozov+}^TN*/^V]#yk&><k04j9RF`j|V^DMW)?l+/"`#y_qMwnwJhT"m`Ld3epZ3to<g?b0
+7}G#CgJ6;tMge6,7uYGg[|#Z8ik(eTg:SO;knu@}DkHeP*meIq7%Z'>-YC[lO(b&a 6$=S
+0QjSf!Fo)g;.8"4qXD)viXhyN*O~OWI2s}/u%W!@!|?xb'GKTkn"@2PI-r784=iRc(Qu;U
+etoTZNOzov+}^TN*/^V]#yk&Y7j&-CN=TJ0Ghdfz&/QP@3;nn(AI2^eC,~YFmg<x9aMWRk
+_C7\:Wr,G%6B)rsH)ye6sdU%DJYv?;=]OScr[4-vG$MQj[qYR`d6AB+iq2[BP[<y9aH2UG
+UlWJSP;knu@}DkHeP*meIq7%o\k8COWYask#GfT;m]W$IT'snP+~9`i^1mM4OCkhKCT(N2
+d6ABv%U/6C]pZk[xMxey)ZX~8Ot|oPAc'6QSrl3Penf!`[Bpf9E!D8o^+MTiM`,Ip]^}:-
+qyf\4i#y<MO}Gm6B)rsHU%G]C_A(+~3Q1sbh4XdcI"1_9Y<6s~/u%W!@!|?xb'GKTkn"Qc
+?S_MRy&InxiqM'He/iA(dWsdFbCg[Rk0^]Dz_r\Ysz0GhdH,8k^x#|JMI6N1N4]s)?qTt<
+UG,jJ7Tn2f+iq2[BP[<y9ahRn%4X8_qL)g;.8"'bqL)}e6sdN*i#[6A#I;jt@bpD4X8_0k
+WX\j[hq4%~0ehQ#:NnEY2_0!t-cxQw$n_"Arp_6K;gd3+fgSWT-43|V<P$/E,"3Q1s_uov
+N4d6ABqH#%5F?Oo_6K;g`7-4I&hgDaSuOfo}?PW?Fx[YWJuRH3#9jw^dc9+9d6f_P(n%Ld
+3e]WP(ovDLb07~bv4XdcI"1_9Y<62kQ schkcH.L,p_4=YA_9";C:\g:Hd/^,sg[]N#xqL
+?Sb0Rxq4mFgO@nj%Y`j&-C8g:E)C?hb'rV_SaFjRf!Fo)c;.8"'b&!)h(yU`[aOxH~L]*b
+/grz+5X~toC\T"pS0iWX\j[h:]&!)devXirc9>*S28Q schkcH.L,pI^3R:Il_3PV<P$/E
+lb3|T6q4%~[pB@Y"bh/u%W!@!|?xb'GK5De,G 4p,sg[]NGlC_A(+~3Q1snTm6_Z6>%A's
+IM%ZgZFcUGJU5:WM&jq6CG)`etc(Quf`G]3t\zOzme+}^\N*/iIUXSEWUP,hE?a_@09,N5
+[;(pQP@3;nn($l_"l}=Z0Q4]EJ0AH2UGUlWJSP;kiPh~sdN*i#>9.8O6O(b&a 6$=S0QjS
+I2JhQ?lb3PV<P$/Elb3|T6q4%~[pJAWjQz$nILhgDaSuOfo}?PW?O~0LCxg:(D1#LB!$Cu
+,>.8O6uRH3#9jw^dc9+95'FMWO+iq2[BP[<y9ahRn%4X5Dv%U/6C]pZk[xMxFZ*8Qg_soN
+2@e&7rs*/g;_3Li#sDSO;kiPh~XIN+O|n&gO(@rE0,mtf_00:cm:_Z6>%A'sIM%ZgZFcUG
+:EGyqJ?=iWmGLd3e:dM(N+/\l3dWXia^J n-]Ws e{m+a`@0j=,yo8/us_nc,9,Fk%E?cO
+nQI4S-rfFoj|O'b&a 6$=S0Q?HUTrE,Hc0G"hB#4GLUIGm26l3+~AKpBo|q73821MF5'o[
+`&g 8,i^_[Mwnwi9L^bYjRfo9gY!rU[o[^%~[pM@J7 38NhG&TQP@3DWY!0L)?jsGz7*m6
+[kHcL]*b/grz+5X~k6Qd_]oN2@e&7rs*/g;_3Lhwfous4)LgEK?BA\%\m6C?c/G"hB#4GL
+UIGm26l3+~AKUGmL4P(o,lY6TP8Ot|oPAc'6QS?Y.l[z,P-aXIC\_MRy]P3AV<P$gA@nA(
+dWsdFbCg[Rp-<oE#QlWN-2OlSw-%iP7Sl.@O+"YtSCpDn+3GO|n%ZN&Inx4\o\DLb07~bv
+S-W\(7_Z6>%A'sIM%ZgZuR4Pe,sD\xAV8zXuOVN+O|n&gOtLWi(|T78Ot|oPAc'6QS_yTs
+msqJTrG]6B)rXM)ze6sdN*SMXLEW+iq2[BP[<y9aH28q/^RQ=|&8Q{Qi?S_MRy]P3AV<P$
+gA@nA(dWsdFbCg[Rp-d7D{q`C5I ab:)Tyq53821W\eTbe+yEV1gI&;Z2G["A#3e]Iko0]
+H2\n&Inx4\o\DL7%o\@tZlYh?;=]OScr[4-vG$MQj[qYR`d6AB+iq2[BP[<y9aH2UGUlWJ
+He:I3nV<P$gAP(meIq7%o\k8COWYask#GfT;m]W$IT'snP+~9`i^1mM4OCkhKCT(N2d6AB
+v%U/6C]pZk[xMxey)ZX~8Ot|oPAc'6QSrl3Penf!`[Bpf9E!D8o^+MTiM`,Ip]^}:-qyf\
+4i#y<MO}Gm4pDkSP;knuAJA(+~3Q1sbh4XdcI"1_9Y>XKdhfh2>]@+b'GKD\6?(A_42jkP
+nEftO"<+JJpACGsj!g($P-n%g9/eU<dZhyFb4x)`iZDIsL1 2}f+_~X?)v(wFv#4GLYEB|
+YPi~ixkb8F[:]Xgs_~EL:k\jNLFS)}iXVq)_J7T6C?::]ZoLbDT3u?po3P>y]Os1_]C`m_
+ Uu|,co<p]j#- ?lSn$KEe]gq>3821tIkJGz8^IDIds18lh[TT,ko<p]j#- ?lSn"YEes}
+:)cYY2]XS+u1A{&YQP@3/"Fx]gm:eMp)q4 D]$tbcx35v O.FSU)-ya~qi:TR(AKHt`m5N
+9$0O_Ulb3P9HhBk&]p:!_YkQUqW\(B?jI$fqk!US4kfs]9:] #`TN|cr[42;m7'*Pm *WB
+0!t-.#R7FyOJ9>EN[nv)Ub7~`cucFx)g -v!^BoPa.F4Dj#%-~^zUl8S]hS+u1A{)ZqfN_
+8F&Am(>f9UJX9&dM)Zh. GP|q[H3#9jw^dc9+9RdPsheDaSuOfo}?PW?8!hv`[Bpf9E!D8
+o^+M3@asoM2@e&7rs*/gfj, 8jWjNB/@9$0ur(3bO~kQ0,4R(oGg0.el"3u1mr3O :ukZT
+dR;8#4h9u_9<NV)khfnBuADk$3@4-dhf/#_>-V_4c=0'#O+0GjTn^xQ^qY9<NV)khfnBuA
+rY_]27f_s+JUJc#/;DauT3Tvv+Dx/LdNbs@6dbA_8AVguX'!Z7XW*LnT^Bb3W2<f27f_@6
+dbRl<fXm7|Je0)sf<d2Gj|^fFOH{-'BHo50V\B)-B(.:f*WDi~t*tG:M*\6A&pq.X/Bj5R
+XM/Lcybs@6dbA_8AVguX'!Z7XWo<q>Ox]Cqpr}9<NV)khfnBuA'.0e-6OhU9<b.Ccy]Nqp
+h3<RYN-EiP@6dbCg<fOd2fE7j<jvNASd^wO8/(MF(Q#VG(CF]ZubuiQec?Pb79t{.#>8:y
+4qN}FU[oS0\;=|;]nB`P7=o6Y8ov;HOz]Cqpr}9<NV)khfnBuA'.0K-6Ohjn<_.Cd"]Nqp
+mX<%YN\~C?Je0)h{<d2Gj|.6,I>5T/SKZ3b=d|DVR*Y*5eQ(geTA2VFE-rK{Ns2vhUjsb7
+EY)Pu=[6'P;T4u[6'P3L2u,j`G>$7{sX`$mq-$lw$@SO>\9UJX\))Zk`sfTfT3amK%CF]Z
+O(b&a 6$=S0QjSI2Q?lb3Po<g?b07}G#Cg<(5<h\Sxnv&+Jl^~i)LwWO-;3PiRsD\xla3|
+T6q4%~[pMPRkDH6Ut@p17'kaA+]wKnH D.RwqY9<NV)khfnBuADkDOmLofRY&v3X[7fOtM
+.=AK0+BA[zW;fNJkN[h6<;%6G:j<fn<RCxuH@2;AYLDn@6db4x<fOd2f=/t2tG:M*\6A&p
+q.X/Bj5RsHp u,uG&>VhMU213Xv!bKDKmLofRY&v3X[7fOtM.=@v:L);_HY@]'Jc0)sf<d
+2G0+BA)+YN7q)C.Wu4u>-6PI+0NSsa<'\PUsgAs+JUJc#/;DauT3Tvv+Vj]Cqpr}9<NV)k
+hfnBuA'.0K-6OhU9<bi^`LS/gPYMT>S010O`<f+xOlfzd7^CPI8c&g*f6uB8jW?!9bH'C[
+0+%0h4)H.W*aoI9{rV#%5F?Oo_6K;gQhTrosIaiWqK)}e6sdN*i#ar9E]?+:u;H(+SEp0U
+j'IJXDE;Je8d-V+UAVj<`LS/V/u'&>VhMU213Xv!ir!$heNS21AFj|3[<;gFY2gqtZ`E5A
+Lb-al&:)eVK%s-5mDC7I=kHF;.H2PE@/&~6@oUE9,Gt+._KT.p,74lpG$)21QNtA.#iCf$
+!je$rc7v^xq~#%5F?Oo_6K;gQhTrosIaiWqK)}e6sdN*i#eYn=O$fLn=AB` _g6>%A'sIM
+%ZgZWT-43|US]P4B8%Fr4xV]Gm0LQLp Mx5>*"cU7cIkH ]gjt2@c@R$Vf;_]DqpBM9)A_
+8AVguX'!Z7XWP=r3-$lwm=2aWX=KsrM+V?AeWOR9FQ*]QH-O5MMkdP^x]6TAhS(FJrQ>V/
+)3>.EdZ>?{+/"`#y_qMwnwftQd)}et>gU<,"3IUW;>T7t._`fTt84U$0( '|MvKjL)['A#
+^prE,Hc0G"hBXIN+O|n&gOP(BE&1J@0Q"_6m> JL6Y&7i&ZCqm0><ZkI6>`BiQh.r,BE&1
+IGMZ[,rD't?rq"Jc%AXq8s:IGy4pDkHeP*meIq7%.{_>-VI^c>0'#O+0h+<{*h6untftQd
+)}et>gU<,"3IUW;>dGED8zk(qO$!6IcLE9R>`U`6Mwnwi9L^0bH2EV`jfUWT'nX7ttjLfo
+q?#P0(*$etX=?L4BS [^mFIq3A\~hs<jX/]<9/\J[&`b%O#[1SNQ^k.LBmpyoD_4\mFPs&
+'R0~NQ+XQ(h>cm!N9) VT3p\kw15h|fj_~lLoQ--XZ)-[+.g,uImUBre`Ba2jd>F.M,pXM
+OC;Kd[I2q?#P0(U/osk-K?Vu8s?\TPprG26}mHrB3A>BS"q4mFgO3AIK[Rtp8]ZW_,BvmL
+/&]rp&1cH1^s#Z8i.++pgSWT:XGyUGfi+F$~h9&!4/\~q4o0J9%ZgZ;naGjR-2^[2jkPnE
+Q?O%<+JJpArVq?#P0(*$oq6h_9%a_lOzn&+}_)N*?\qiS0CGitn\Jc0)fq]S;xfuYV[)A#
+I;d.(04)iRI2;iM\3{>BM\H<Cgl3+~c9@:.M,pXMOC;KO&<+JJpA4Xsj!g($:WGyEV`jfU
+WT/m:8sT^cVYFcI1)`Z<d[sdFbCg)`_phs<jcjPK3GenK/fkMLM(AsRWP(_UI'd2*U-:I&
+_VI'/mJ9[o#Z8i0MQL1!ntQ?`6hZiPI2S-Ic_VI'/mJ9)}oqrBM{k!sdN*P**Bt/_VI'T"
+rE2rS25,:TQd_]?j4S=]DCm"0v72)K1= LeGp1Aq3lF1%F>,?W3J$ (^DN\6:Pj.?d2]nq
+b,&xEh+i;<_!B2-.VI-%RD'{a{'{LrB[&M9chqd1=E')F#!S8@IYX1)(abV%79=f9u6.<6
+mD'ueB,7uYGgop4CB'c'\=#(T9RsC#'6Fh7)X+nC.c%I20/Rf'42Qk+&Y6FaO&B`NP#,:5
+nGV`)kdv9I1Q;.H2CFJ7%Z^QlMYDM-KvMvp&?f+/"`#yJw7Sl.@Of=[9A#Hfd.eMLwWOR0
+%wlbi9L^U'#Z8i0MQL1!rxh3>]0MQLp Mx5>*"\n(_[D^3gr@y,bij%\J]4$CG1@@R;FjW
+pT&HBsf/WV#PU~at9Et6p1WGeBKsbOJoq0eh.K'xMvKj6StoI<d.t|)r>d;--smJ#uZuSq
+kj-[:-RAA1Xk\K^R%a5RJO^ZqTU%msW.^Er36KmYO5)xpyehJokJ5t7>-Y-oG _ c=Qu;U
+n GiU=JA6B)rHm 8:cbe:RmrSA8e5=*"\n(_[D^3plJM^Z,W+iq2[BC.Jy:d(Q5Fav9Ed&
+W[?6@nh#qxj-B#nd&;DNrTR_RxVYXWPHH/1Yg=u1r@2V`0MwjCqA,!JK^Zpltsn1N"78,P
+/i=ISR;k9 ?S$|s$PF-VW,(l*mC`(@Y4jF\=#("_6ms%+q]>RtJIPHH/b7,7uYGgop:w.+
++pXVSA8eS[rFdVDItKJV4$dx_e6@:+`4g Fbr:'&qP%!P91n`G4W$][/A#2XIu8U*Z/^ts
+ut3SA&%m8a'vYo9hY!,O?\$|pY*W;.8"I2K7XLABXDFxdk,B*^%!iROJhl?)sQ56jH&;Q 
+schk\a5LXMOCUm@z,bB#fx/Z[Ro,t'p11!rM#-27tE9?dWfG<;c?4'/3g=u1r@2V`0MwjC
+qA,!JK^Zpltsn1N"78,P?LZr0nWXR G[3tZ>JA6B)rCH QUGO5U&eO0MQLJZ4$CG1@@RF1
+kDt{F~907Sl.@Of=usUI1#JlMWRkQu9"^Ma]Yom\^%d'g3,Wh|nr/*/\6}:y*[p?4Di#Fo
+42Qk5p.MBFaoh`!RqPqmv-%B<0M1Pr4F/i=ISR;k9 CA[RqTIQc>Qu;U8*!$4X(53vTi@{
+,bu6H(fnB`a%lB`Rsbm~R@O'b&a VDuR4]B'uY$x/B-VR%FdM&=Je$EtQxX190[cgP>5?9
+M{Us57jHfGA[e,pi:b!/YvSC$]@#&-c?dWut5L:J(97!V`H=_ c=Qu;UZ<#z+FICtcLd3e
+V`c888(wbhRjJI@?.*`;O,ugJvo+58*"BL?rV;-%MGm*ioro(;f(;@Ba/xD+h6[kJ5"^6m
+D]Ys&j720Ku5g|\=#(`;SCLJ+FIRQ$>^oYGQSA8es+b'*^%!iROJhl6HjWpT&HBsf/WV#P
+U~at9Et6p1WGeBKs-zu+a~4CYp?c+/"`#yp]n}-vq4GND\6?WPS'/Z_+B|LJVQ2><yNPVc
+eCm_6hv*sgm~cQGjTnP/m+f,#ZSd0KGea%4Cu,K(!@'$VGW?eioT*T;.8"U>hsHis1#4GL
+m!!"4X(53vTi@{,bu6H(fnB`a%&|u`l*U<<w/q%W!@M(sIrYR&sd3f]IV:;gd^'l?U1Na@
+;8T:.LbC;ABaFo+DK%t~F~6}3veR8'FUn1Lwd|(53rk]U<u``^KjN\;3;_oqGiPE-VW,iM
+oTC3tcLd3eV` QUGO5U&eO0MQLJZ4$CG1@@RNYJoq0eh.K'xMvKj6StoI<d.t|)r>d;--s
+mJ#uZuSqkj-[:-RAA1Xk\K^R%a5RJO^Zfi3veR8'FUn1Lwd|(53rk]U<u``^KjN\;3;_j|
+oT*T;.8"I2[Rfij%,sg[QB(FnNaji!m6%!/Bn7^%Q42h#&Wmqi%<qPZvHZL]*b/g_sY8W^
+b.gf\=#(QV?q^Lp U_%>M[i;=Q-VND2lS~$oufl?U<+F[hm`HD-AKb<zdlMI[,#&ljmFv%
+*eX@$,+PCHa^r`#4GLWK#x+F_lA^8z-jNwPQ1oO;<Yp>i9L^LJ+FIRQ$>^.xts*Zp?N88O
+t|oPiKUp<67a:v0MQL1!nWRwhsr`u.H(S[I6LaT6J2WjmFn>.-lj*#8*3veR8'FUn1Lwd|
+(53rk]U<u``^KjN\;3;_8*M(o,&InxckorGi*2ERSR;k9 CAK7XLABXDFxdk,B*^%!iROJ
+hlA3kDt{F~907Sl.@Of=usUI1#JlMWRkQu9"^Ma]Yom\^%d'g3,Wh|nr/*/\6}:y*[p?C3
+[xm`HD-AKb<zdlMI[,#&ljmFv%*eX@$,+PfK_9?OA^8z-jh9M(%b_lJA6B)rfKA[W7$KAD
+dP`?0/R0k87UJs5Kr`*[%!\A[$;-&RanFTp#tR$-n/Xj\KS'2%D+i!5*LJVQ2><yNPVc(5
+ueo)i9L^@-9aa@Pm_s8Q/?_2T~BE&1J@0Q"_6ms%+q]>YETI?[+W/-t5\o+4G(SA8e5=*"
+\n(_[DFkkDt{F~907Sl.@Of=usUI1#JlMWRkQu9"^Ma]Yom\^%d'g3,Wh|nr/*/\6}:y*[
+p?4DXDt-nKE.J*%Z^QlM8#tvF~kDsRf-%nNQ9!?=Zr0nWXR ^Z)yn *W;.8"*35[gA0`<2
+^WBE&1%?M[os7dDF?8sQ56jH&;Q schk\a5LXMOCUm@z,bB#fx/Z[Ro,t'p11!rM#-27tE
+9?dWfG<;c?4'(lC^JXI0);@(b'E1skQ+55?=sQuTG(b,+[&8'tYo9hY!,O/iMYIQc>Qu;U
+OQPQ1oO;<Yp>i9L^LJ+FIRQ$>^RxJIPHH/b7,7uYGgop:w.++pXVSA8eS[rFdVDItKJV4$
+dx_e6@:+`4g Fbr:'&qP%!P91n`G4W$][/A#2XIu8U*Z/^tsut3SA&%m8a'vYo9hY!,O?\
+$|pY*W;.8"I2K7XLABXDFxdk,B*^%!iROJhl^PplJM^Z,W+iq2[BC.Jy:d(Q5Fav9Ed&W[
+?6@nh#qxj-B#nd&;DNrTR_RxVYXWPHH/>FXDt-nKE.J*%Z^QlM8#tvF~kDsRf-%nNQ9!^x
+?OA^8z-jo8Gi>FtcLd3efp!#4X(53vTi@{,bu6H(fnB`a%dzJoq0eh.K'xMvKj6StoI<d.
+t|)r>d;--smJ#uZuSqkj-[:-RAA1Xk\K^R%a5RJO^ZqTAIe,pi:b!/YvSC$]@#&-c?dWut
+5L:J(97!q[_'?OA^8z-jW0a^cQor*W;.8"*3$1rB@to[FZM[Rkr6j-8YTO!R1,u,a~4CYp
+?c+/"`#yp]n}-vq4GND\6?WPS'/Z_+B|LJVQ2><yNPVceCm_6hv*sgm~M{*@C^JXI0);@(
+b'E1skQ+55?=sQuTG(b,+[&8_lhs5*V<P$C5?\$|h9j%,sg[&74a5[gA0`]Cplv1:\s,@-
+rFt[=@srp11!rM#-272C-9i@[)bAK;N<2lI4>7\OO5o,58*"BL?rV;-%MGn/ZI$y/BhqM+
+rJj-8YTO!RO*<w)f>d[M$!n_^%Q42h#&'}h=q^0^HY!W:wX2!Q3M]IV:kj8Fk%,8?wqm%<
+qPZvHZL]*b/g_sY8W^b.gf\=#(QV?q^Lp U_%>M[i;=Q-VND2lS~$oufl?U<+FhwFo42Qk
+5p.MBFaoh`!RqPqmv-%B<0M1Pr4F[RJ56B)rHm@nlsj#,sg[QB$+rB@to[FZM[Rkr6j-8Y
+TO!RO*u`l*U<<w/q%W!@M(sIrYR&sd3f]IV:;gd^'l?U1Na@;8T:.LbC;ABaFo+DK%t~F~
+6}3veR8'FUn1Lwd|(53rk]U<u``^KjN\;3;_oqGiPE-VW,iMoTC3tcLd3eV` QUGO5U&eO
+0MQLJZ4$CG1@@RF5kDt{F~907Sl.@Of=usUI1#JlMWRkQu9"^Ma]Yom\^%d'g3,Wh|nr/*
+/\6}:y*[p?rB:Rr%faj=t4+5FlbeP'sWm~`RpoV%+^&lR#H<_ c=Qu;Uj|oTrBs1#4GLWK
+")I10JGm3=ax9Et6p1WGeBKsb_Joq0eh.K'xMvKj6StoI<d.t|)r>d;--smJ#uZuSqkj-[
+:-RAA1Xk\K^R%a5RJO^Zfi3ueR8'FUn1Lwd|(53rk]U<u``^KjN\;3;_h:oT*T;.8">G[R
+fij$,sg[QB(>nNaji!m6%!/Bn7^%Q42h#&'}u,a~4CYp?c+/"`#yp]n}-vq4GND\6?WPS'
+/Z_+B|LJVQ2><yNPVceCm_6hv*sgm~cQOR1n`G4W$][/A#2XIu8U*Z/^tsut3SA&%mclor
+GiPE-VW,P4#y+F\kJA6B)rHm0dffM@[ld7*#>df8Et,3ER&,/{t"MhHg=K_H6>%A'sk%gf
+;nl2n}i9L^8j/x?6H ez"^6mD]Ys&j72TQe*MRu}q:eh%b4ag=u1r@2V`0MwjCqA,!JK^Z
+pltsn1N"78,PIC[RJ56B)rfK_9)yZ<]t9hY!,OICK7XLABDPkDv-U:p"`;nVs"ZaqOj-B#
+nd&;DNDf:R\J?|NM A&CEZrH\NBh(5h#JQ4$dx_e6@:+$Xf)>]0MQLp Mx5>*"\n(_[DbI
+<jMTRkDH6Ut@p1WGeBKs.+h<q^0^HY!W:wX2!Q3M]IV:kj8Fk%,8UMdF54c?_2l6&+Jl^~
+s#XVR0%w<;dk,B9mI3mF]?J55;*"BL?rV;-%k5CO3At8N]HgM[@|e,pi:b!/YvSC$]@#&-
+c?dWut5L:J(97!q[a]r`#4GLm!M&PmELSR;k9 0NffM@[ld7*#>df8Et,3ER&,:fm>*Ylj
+?Xq6#%5F?OIQ<;9(N'Y8BE&1,v_dFbij5**]%!\A[$;-&REZ1g)`u7bI4C6m[om`HD-AKb
+<zdlMI[,#&ljmFv%*eX@$,+PfK@ntKLd3eV`a^M{]s9hY!,O(BnNaji!m6%!/Bn7^%Q42h
+#&XNqi%<qPZvHZL]*b/g_sY8W^b.gf\=#(QV?q^Lp U_%>M[i;=Q-VND2lS~$oufl?U<+F
+[xm`HD-AKb<zdlMI[,#&ljmFv%*eX@$,+PnSa^r`#4GLWK#z+F_|A^8z-jP9PQ1oO;<Yp>
+i9L^LJ+FIRQ$II.xts*Zp?N88Ot|oPiKUp<67a:v0MQL1!nWRwhsr`u.H(S[I6LaT6J2Wj
+mFn>.-lj*#'YC^JXI0);@(b'E1skQ+55?=sQuTG(b,+[QC/e=ISR;k9 ^x)yh:50V<P$\n
+ 8:cbe:RmrSA8e5=*"\n(_[DbI`Rsbm~R@O'b&a VDuR4]B'uY$x/B-VR%FdM&=Je$EtQx
+X190[cgP>5?9M{Us57jHHi[om`HD-AKb<zdlMI[,#&ljmFv%*eX@$,+PHm?SZr0nWXR fb
+@nlss$PF-VW,P4"(I10JGm3=ax9Et6p1WGeBKs.+u+a~4CYp?c+/"`#yp]n}-vq4GND\6?
+WPS'/Z_+B|LJVQ2><yNPVceCm_6hv*sgm~M{*@C^JXI0);@(b'E1skQ+55?=sQuTG(b,+[
+&8_lhs5*V<P$C5?\$|h9j%,sg[&74a5[gA0`]Cplv1:\s,@-rFt[=@srp11!rM#-272C-9
+i@[)bAK;N<2lI4>7\OO5o,58*"BL?rV;-%MGn/ZISA8es+b'*^%!iROJsW=IF{D\aJ0&W{
+kj8Fk%,880jWP\,beV\=#("_6ms%+q4uu`l*U<<w/q%W!@M(sIrYR&sd3f]IV:;gd^'l?U
+1Na@;8T:.LbC;ABaFo+DK%t~F~ls3teR8'FUn1Lwd|(53rk]U<u``^KjN\;3;_n GiPE-V
+W,eioT4DtcLd3eq[ PUGO5U&eO0MQLJZ4$CG1@k]m@*Ylj?Xq6#%5F?OIQ<;9(N'Y8BE&1
+,v_dFbij5**]%!\A[$;-&REZ1g)`u7bI4C6m[om`HD-AKb<zdlMI[,#&ljmFv%*eX@$,+P
+fK@ntKLd3eV`a^M{]s9hY!,O(BnNaji!m6%!/Bn7^%Q42h#&><sQ56jH&;Q schk\a5LXM
+OCUm@z,bB#fx/Z[Ro,t'p11!rM#-27tE9?dWfG<;c?4'4Xg=u1r@2V`0MwjCqA,!JK^Zpl
+tsn1N"78,P?\Zr0nWXR H<3t_cJA6B)rnS QUGO5U&eO0MQLJZ4$CG1@k]m@*Ylj?Xq6#%
+5F?OIQ<;9(N'Y8BE&1,v_dFbij5**]%!\A[$;-&REZ1g)`u7bI4C6mA;e,pi:b!/YvSC$]
+@#&-c?dWut5L:J(97!fpM'o,&Inx8`'r6lICc>Qu;U'Y*mC`(@Y4jF\=#("_6ms%+q4uu`
+l*U<<w/q%W!@M(sIrYR&sd3f]IV:;gd^'l?U1Na@;8T:.LbC;ABaFo+DK%t~F~lsbsT"k>
+UF">=W0Q)<`&,:PHRyuTJyTt0RN"m!Gx_ c=Qu;U8*M(PmiP50V<P$4F(BnNaji!m6%!/B
+n7^%Q42h#&><sQ56jH&;Q schk\a5LXMOCUm@z,bB#fx/Z[Ro,t'p11!rM#-27tE9?dWfG
+<;c?4'>Bo^3G*)d!V#'613@woKKsHgt"v1"`.(6X8I\e/m=ISR;k9 rf@n6}p[*W;.8"\e
+(FnNaj(@qlpgO.B)]x;JUoPMJ5"^6mD]Ys&j72[Vj=_+Ja6X^^nr/*mJe1)"GmPEkj-[:-
+RAA1C6"%`T3i]I@d(#g)Et,3Ubk;;37+>%a%_&T~BE&1J@0Q"_6ms%s\$18}Qe&+W3E;8>
+QLmui9L^LJ+Ft]txM3,Nc}#%><sQ56jH&;Q schk\a5LXMOCUm@z,bB#fx/Z[Ro,t'p11!
+rM#-27tE9?dWfG<;c?4'%)C^JXI0);@(b'E1skQ+55?=sQuTG(b,+[QC'nYo9hY!,O/^MY
+I%c>Qu;UM_PQ1oO;<Yp>i9L^LJ+Ft]txM3,Nc}#%><sQ56jH&;Q schk\a5LXMOCUm@z,b
+B#fx/Z[Ro,t'p11!rM#-27tE9?dWfG<;c?4'(lC^JXI0);@(b'E1skQ+55?=sQuTG(b,+[
+&8'tYo9hY!,O/iMYIQc>Qu;UOQPQ1oO;<Yp>i9L^LJ+Ft]txM3,Nc}#%><sQ56jH&;Q sc
+hk\a5LXMOCUm@z,bB#fx/Z[Ro,t'p11!rM#-27tE9?dWfG<;c?4'4Xg=u1r@2V`0MwjCqA
+,!JK^Zpltsn1N"78,P?\Zr0nWXR H<3t_cJA6B)rnS QUGO5U&eO0MQLJZ4$CGLkc"Vf3W
++d4uu`l*U<<w/q%W!@M(sIrYR&sd3f]IV:;gd^'l?U1Na@;8T:.LbC;ABaFo+DK%t~F~W>
+GlTnP/m+f,#ZSd0KGea%4Cu,K(!@'$VGW?Z>hs5*V<P$\n@nW>]r9hY!,O0]ffM@[ld7*#
+>df8Et,3Ubk;;37+>%a%dK54c?_2l6&+Jl^~s#XVR0%w<;dk,B9mI3mF]?J55;*"BL?rV;
+-%k5CO3At8N]HgM[fb:Rr%faj=t4+5FlbeP'sWm~`RpoV%+^&lR#fb@ntKLd3eq[_')y8*
+j%,sg[QB(o*mC`(@Y4jF\=#("_6ms%s\$18}Qe&+\XplJM^Z,W+iq2[BC.Jy:d(Q5Fav9E
+d&W[?6@nh#qxj-B#nd&;DNrTR_RxVYXWPHH/\di'Fo42Qk5p.MBFaoh`!RqPqmv-%B<0M1
+PrC5?\Zr0nWXR o7a^M{k!50V<P$C50mffM@0amCk:('d3E[Vu5I*etK%=M[i;=Q-VND@v
+^EH!uDM1G'gP>5d^T-2%o[*Ta@;8T:.LbCfL$*JrGTD\aJ]s'7[X$!n_^%Q4kAo$0LQLp 
+@m3Xt`A#%?M[osh="/>gn@0LQLJZ4$CGLkc"Vf3W+d4uu`l*U<Gb+iq2[BC.I8mF]?J55;
+*"BL?rV;-%k5CO3At8N]HgM[@|XVXVmFn>.-lj*#*<C^JXI0);@(b'E1skQ+55?=sQuTG(
+b,+[QC'nYo9hY!,O/^MYI%c>Qu;UM_spn1N"78,P?\Zr0nWXR H<3t_cJA6B)rnS QUGO5
+U&eO0MQLJZ4$CGLkc"Vf3W+d4uu`l*U<Gb+iq2[BC.I8mF]?J55;*"BL?rV;-%k5CO3At8
+N]HgM[AIXVXVmFn>.-lj*#'YC^JXI0);@(b'E1skQ+55?=sQuTG(b,+[&8'tYo9hY!,O/i
+MYIQc>Qu;UOQspn1N"78,P?LZr0nWXR G[3tZ>JA6B)rCH QUGO5U&eO0MQLJZ4$CGLkc"
+Vf3W+d4uu`l*U<Gb+iq2[BC.I8mF]?J55;*"BL?rV;-%k5CO3At8N]HgM[fbu-u>Fo+DK%
+t~F~6}P;1n`G4W$][/A#2XIu8U*Z/^tsut3SA&%mclorGiPE-VW,P4#y+F\kJA6B)rHm[o
+JmTt0RN"7+p[GiPE-VW,>B'v6lrfs1#4GL7+P;PQ1oO;E:dP`?0/R0k87UJs5K:vq@R&sd
+?r0LQL\,J5"^6mD]Ys&j72[Vj=_+Ja6X^^nr/*mJe1)"GmPEkj-[:-RAA1C6"%`Th>#Z8i
+0MQLp Xqb].%`@H0UGIt sO--;_(2jkPnE;i'vX7ttjLHi3AiMMRH<+D?LcQor6hrf3AT6
+Ozn&+}_)N*?\Rjv%\@<,u54G6}+F*'h:Hi)}Z<kRA=8zSPr\Zso9kA0&*"ug^I9@6@:+^q
+.J,:m]F0KOcAR$A1nAm,+D$~pY\lcQorC3 ],sg[?pe]r%0`<2D{YRQpEL:k\jNLFSU)4E
+k%\~C?&cm(3{CF/LS)Z=A0)\5bHF;.H2PE@/&~6@X>iwGel=:)ujkJU=Dw]X6?rP4Ek%Sw
+H|BoPbELZ<5,RdH|`mjSqGJwcL5(8*TOQY[!Dac^oriu:0qSIQrE82QK[!2si~`&0-Hi-+
+IC,)8eh[,zHi_sI2,)8eh[]KWDDy"=cCED8zZwqO$!6IcLgc>k9UJXYFv4HoOcrfQoD3Pb
+iPWR5,Rd3Ge_I|Q\ZV&3XJl{s$fL)mYb&5n Vch]fmG9PbiPWR5,Rdfz-@hGHl)4W0&3n 
+Vch]fm\n&5XJl{s$fLTxlps$nTPE,`&{t,d#2)js-'Hi82CA&Ufs\m-GHi-+IC,)8e#*W0
+:7oICF.7+H7fICd#2)cL2eh9*U9B)cmz`)8m+/tC*2ER9{8rU=NE?u8Wfq]44EL_fb-+ro
+\mR62t5T]vciid*2Q^4D&U_lQ/WMQn4D,)\kNEnT+/\k8oJ9/3W`:aZX+THi82CA&Ufs6?
+_]\etR>F`2OdSolps$nTPE,`rG4DHk_sm,T/lp*SW0:78lW* !`RLg^pJ5tpWy&63Ei~ci
+?lq)<':oZX8S-+\kC?fIIc4Gf_fl*UW0Q>,c>BETUGQeC3_|>Gs%C4L_o7PE,`rGVc&3Z<
+8oI1Q`WM,):'VX:7oICF.7*W1JcLDg_Q\e&$_lQ/WUQnC3_|I2:LfhTO,`*W2C8AJ9/3W`
+UG8SHs9UJX\)Y2qM3821+d<#v-ihHlDOg98RET>O>LCF:7CA7*/{ZANLmJT<lps$nT:7QK
+PF2fRdJ>\~C?7*qSo7nQ:7QKWE5*_pC?L_fb-+ro\mR6:pQ]DgN mJT<lph9fmTO,`*WEN
+PbiPWR5,RdJ>\~C?m q^o7nQPE,`<Qr,2HjsN FS_s4yf_828VN5-%iPVq)_J7P4CI\{DM
+W)&3XJl{s$fLR6WE5*cLorfs*U9B8rRpDLW)/Ld"h9qX3[b+39k%IKf_82QK:pb=39-'Hi
+-+IC,)8eJ/+Vcys$h~Oz5+RdQe/KHi82CA&Ufs+Tcys$h~Oz5+RdJ>N FS_sChf_82CA:L
+qS:6rf82QKI3Hl+Vcys$si7{*U,%,IT6C?N}F`rf4EWQgD[aOx8nU=Q/iP72<O8r*2ER?q
+8Wfq]44E-'>w[]Ox]s-E>EcbnQ%im(IQoZ7|*U9B5/&Sm(T<lpTMo7PE,`\q&5:+\j7N3@
+tN*2fsqZLbnjHk_s1Z-6hy7{>y/{>E8Wfq8v26f_'emBo7Hk8l#*r+fLoICF.7EjK)T?EI
+b+39k%UWC?,)WF7*Q]or;HOz5+8*\oiX26f_#)g@qXIQC69+fmU_lpTMo7PE,`,I9H26f_
+'emBo7Hk8lN5-%iPA<3BtN>Fs%T=-%iP+/\k8oJ9/3W`9H26f_'ed_h9fmG9_Q+0tC*2ER
+9{8r26f_'ed_h9fm\n&5:+\jbY3:tN*2-6Hi_sI2,)8e4Y-'>wQ]h;\dk)UW\xflTNSoA%
+3Br_oX7|,Gei72p[fs\n7&EP/3t]4xf_N4lp*Sh9TO,`8UJ5IKf_#)r+fLoICF.7Ub-%iP
+%id_2CcL5(Z<2i9B5/Z<8oU=NE?u8WfqNLFU:.2dg@V]h]fm<NnX>wh:26f_qW/Khy7{>y
+QmZ=l{1bSzQe4Dk%_cQ/WMQn4D,)\kNEnTHl+Vcys$si7{*U,%,IT6C?N}mJo7CFiRDkT6
+C?L_I%C6ro\mR6/Mhy7{>yRfZ=l{,},ID3HkN4-%iPA<3BtN>Fs%+Tcys$si7{*U,%,Iei
+72[&WFX}`t@9DfN FS_s4yf_828VqXIQ+Vcys$Xn7|*UW03\cL5(8*TOQY3]b+39k%IKf_
+82QK/MD-T6C?Hk_s%jm(IQgRW)PEfbe),},Iei72[&WFCH,K9H26f_'em,o7HkTxA%)\ER
+>O\jQ/SzJ>-'cy2CcL5(8*TOQY3]cLorfs*U9Br,m#Dqei%im(IQgRW)PEfbos7*Q]orq>
+Ox5+8*8rU=Q/iP72<O8r26f_'ed_h9fm\nQ@,cT6C?N}FUrf4E:L[]Ox]s/7>Ecb9|5/&S
+m(T<lp*SW0:78lTylpTMo7PE,`>{h:26f_qW/Khy7{>yQmZ=l{1bSzQe4Dk%_cQ/WMiPHl
+Itg9c]or[h:C+vk%ei%imBg{;BOz8nU=czorVciRqX)1,}Ub-EiP%imBT<lp*SW0:78l83
+CAL_I%4GtN1YW`&cm(T<&*XJl{s$fL)mh9;BOz8nU=czZ=7&\ol;)\Q^:6rP4EtN1YW` r
+qQTK;kYpIxa`;/0rGN-(IoDB<.v-ihb/39e_U=bY3:tN26f_7eCAN}F`rfDMW)OLrfh~Oz
+5+:+1_X8Fx5Sr+si7{U`-%iP\uPkBi:^cborVcOLI%C6ro\mTTeOv/P4]s/7>EbA39e_U=
+Q/iP72Sn)?8*(cW0:7oICF2sTiv)>GN}mJo7h{7{(cr+fLoICFOLfb-+ro\mX&MJ!ucCED
+8zZwqO$!6IcLgcTATp"=CqP5cr[42;m7'*Pm *WB0!t-.#R7FyOJ9>EN[nv)UbX?K2u2mr
+3O ]uAYnFa<C6B]1v(WQrs#PRz3utw9<NV)kE/pGX/Bj5RheNS213xFq.XPO+0NSsa<'\P
+Us4jf,?Nsg<']Cqpr}Q\hn.%??oYp|.}-nG1^F^{T3Tvv+qE3821MF`MS/V/u'WQrs#PRz
+3utw9<NV)kE/pGX/Bj5RIveN:)cYQR<ZcqJW95V dD#%ZHc@CBoNa_uE<VFssiTfT3W# V
+re7vd>mD&DfF8w2ke/lAKsNMGfVE8cg&o+6X,l?9BSGWqE3821AFelEVrHRY&v3X[7fOtM
+iX5Kc/.%QL6@X>0=.TM  siv0O]SEZrHRY&v3X[7fOtMiXD:c/.%QL6@X>0=.TM  siv0e
+@6:RmrWSYuT$bM!R&eoN6TQHWuh!M29Y^Re'o/lTFQDB7I(6I$IwWj[zW;fNJkN[h6gFuK
+3t:8Rk&:3EL9>//('#iqMk].J7Wj[zW;fNJkN[h6gF?U3v:8Rk&:3EL9>//('#iqO]uF"$
+<XeS^CPI8c&gsoTfT3!k/.,j`G4ZHK-p?~4u-p7vuk8S3>RymiZa!eEo9UJX\)OwpzlEFQ
+DB7IeSjjd,=Teud,#Zuk8S3>s:#%5F?Ot\#Z8i:WG!\ngZ+F$sGxI1W>6kCA6}p[DLb07~
+G{rvX0JX[#1\J[%-!$7U7Tl.@Of=[9A#^prE,H-:H=U=VYPm%#o84D$~h9&!)devXiN+[x
+`SBE&1J@0Q"_6ms%+q]>-o-rc"ehR$A1(;FAD\aJ0&W{kj8Fk%,8RjQsR$'6U<-rbC0Vlb
+i9L^@-9aa@Pm_s8Q/?R%R$'6U<-rbC0VK1qfo\=1*h6A&pq.X/Bj5RIVV"^}q9X/DPmLd{
+R2hd$HE[5_&}(c*f6A&p;8_-`N7=o6Cb9UJX\)QRgeTA2VFE-rK{Ns^"s1JmuII^ab:)2G
+0+BA#9T;lIFQDBe7DVJ|Bj"Qre7v^xivI[K4u}i~Dz-p7v^S)Spyq8pGG,nSS~?J"n7/.a
+$>P&`&mqX/o[3OeCug&>VhMU213Xv!irMkspB(;fcL\xbcB.E{V tabe]WeCug&>VhMU21
+3Xv!irO]spB(;fcL\xbcB.E{V _,bh$"Y4]X)6s|V@=C+|uVuY_yZjJ.FoSxh)bsm$hd)-
+r(so9?A`8AVguX'!Z7XWtaGjTP/A,UFj"<\?>0.&]M%BD'tO9?A`8AVguX'!Z7XW_,GmTP
+/A,UFj"<\?>0.&]M)&tW$)Y1]XTA2VFE-rK{@#r$<'k`bUm$hdBvEEm1b]a,+rk0h0dCK$
+95V c#m$hd)-k`bUm$hdT8K^Q(pb^2Ik;a<zrb7v^xivH~L]*b/guILwWO-;3PiRnwPmMT
+3{_cfi+E\kVYH=26l3+~3}IK<(s*KajtO-%F;U/(T:0]0;f+uKPhFMK)3R -GmK)2dP44P
+hhO-d#Mi^|&NMj0NkQgR,7uYGgop.M,p4)enfo;iM\3OiMnOPm$zW0%b_l[^%~)hiZhy3v
+43]I@d(#g)Et,3ER&,/{;mqc4A/-#,27[lMPRkDH6Ut@p1WGeBKs.+-us|F0>:&8DNAC=]
+]ZANR9qh=|;]nB`P7=o6CbA\''4w21bks!8Sl48Ob}ICb 9E?ao~qAQFp.g)%piGu$s$pD
+4X8_8s*'n C3W>6m3mP46lrfb07}G#CgA(.}_>-VI^c>0'#O+0h+uT*b:g:WG!\ngZ+F$s
+GxI1W>6kCA6}p[DLb07~G{rvqiTK;k]tIxa`;/0rY`i~*`;fNP8Ji&jS8nr =@ r=b8NIY
+4bITs_Y.pzib!$heNS213xUUq>3821#XiGc2==d"o4fjS+u1R,KH`[`%mq-$lw!i/.,j`G
+>$MQv+flD~'zMvKj6S`[MwnwftQdU)j~HiM{6l4.Z>qT3{>B8'Fr4xV],"c9GMERX[p,(?
+V6R5A:i?\>;{DdPKHimqsRg:@@my-L6eca!:p sjdwn=O$fLn=AB` _g6>%A'suo6K;gQh
+TrosrVcQ6i)}j|CDPmiPfG4.T6q4%~)~4elbi9L^@-9aa@Pm_s8Q%5Y4_TDaPJ-r78W@o]
+FZE.lj;e!acBCB^]ZPmg]7")@:AtX^"<h4)H.W'~MvKj6S`[MwnwftQdU)j~HiM{6l4.Z>
+qT3{>B8'Fr4xV],"c9GMERX[p,(?V6R5A:i?\>;{DdPKHimqsRg:@@my-L6eca!:p sjdw
+n=O$fLn=AB` _g6>%A'suo6K;gQhTrosrVcQ6i)}j|CDPmiPfG4.T6q4%~)~4elbi9L^@-
+9aa@PmJ>JL6Y&7A~!R[Z^xgx\1hf=W0Q)r>d[M(e_42jkPnEftO"<+JJpACGsj!g($:WpZ
+k-K?Vu+F/^6}mHrB3AZ>$oW0Fc\d/mA(dWsdFbCg)`_phs<jX/]<9/r 0kM*8U&nS*Y~MU
+q4BRN~EBZ>[0A#3e]I@d1LH2EV`jfUWT'nX7ttjLfoq?#P0(U/j~`% I7V6m?=M{dZnOFc
+>F)`8*mHC3?\b0Rxq4mFgO3AIK[Rk0d#kw5i-L$sGxI1W>6kCA6}%0^VLd3e<b]Rgrp*p'
+EpW>hgD~hcNS21tIK*Hk]Kiv#)g@qXIQC6m_U*6?_]\etR>Fm_ UGNb}uL+0tC*2ER9{_Y
+\R+x\kDw2McLorfs*U9B_YkQE9sn`VlpTMo7PE,`?lSnlps$nTPE,`?liDQ']S)6*j_>-V
+_4c=0'#O+0</D{i~0Vr.Q\^qv5E?26f_7e_]4yf_-GcyGxqWIQgRW):oQ]orWC]r?w\jNL
+FS TR9r%d#]p-E>EbA39e_j^4D+rtC*2ERoqlxTMo7PE!u<XeS-L\k7N3@tN26f_7erP4E
+k%iM\uPkiPc\orfs*U#lY1Tp:yICoZ7|U`-%iPc\2eh9*Uo8lxs$nTPEG[ouW= %u]&Tnx
+r`paS>8zX !3GN>sM[9c\dqg=|;]nB`P7=o6CbA\u57Q`QB(Bn:Guz,]7;$uDCG1uk]P")
+0Zr.Q\o[`LL]JN\mZ'n#dk,Brn$~@#nS/j_ekmuH*b:g:WG!\ngZ+F$sGxI1W>6kCA6}p[
+DLb07~G{rvqiTK;k]tIxa`;/0ruAPKfegeWT-43|_hqT%aMZH<>FlsGx\dP.meIq7%8%P<
+Jo#:GLtcsK9^,MFj>TD{H:qAE9,Gt+._KT.p,74lUL4itz<VsXo{K\oMbDT3){eusiTfT3
+!konAX.^m,GYCE9UJXd1`nkH@"r$Q\FKL 'VQP@3/"asK%CF]ZO(b&a VD@=b'GKnU8q:T
+pZ4D6}+F*'h:Hi)}Z<,#3IUW;>&!A\3fVU/f71VUO6sTrT#%5F?Ot\#Z8i:WG!\ngZ+F$s
+GxI1W>6kCA6}p[DLb07~G{rvP(BE&1_uY~MU@-9aa@Pm4hZE=x.KJuJ7%ZgZ\=#(UP^oIt
+ sO--;^[2jkPnEQ?O%<+JJpArVq?#P0(*$n 6h?S8FS"fimG4D/i6}p[+}^TN*/^V]dZhy
+M(=JD9@:Yd2Vrm J$>27IFEBZ>j<OcrgMiRk_C\m=3E.oE u#[1SNQ^k.LBmpyoD_4\mFP
+JmM*[]5MVJ4C,3bFjP>FYd2V$]I$]ekw15h|B6jWiU)w$>lrR#2@OdHE@JD+2j=/E.dVp*
+js4D!s&ZE.Z>j<BJGb19$pKtO+,4<{6`8VBkh{UgHio3)d!S(!8Ib|_=[q-k(Y@{`^mnAI
+Q(9/+y"qMTb3/5:R+[oI\&f?IHhTQRJ+b^'{I~M~gK8YIyM~`DCm*2nW&RAD.Z#g<2RJpd
+oQiESa.Rb8dR3m2c=/]PMXL2HiW[:-hfM*`N&1q]OcHE=GG :;6\:+sgm~.<ml/*/\6}:y
+*[p?c?0J;UqTeM%@3vTiFQk.MYHg8FNV>K=~$z\MpIjs4DHz* /-aASgf6p,Av 7)jLz2>
+dY2>hIJc?BK4p4r7n^9^\=t]s`fleO^Cp9 Eu7lsD*$WAN,ku?Y2-%>(5yNPHgBpANWvBF
+MYjA*aal8 )Ha?_N(3t/3J:8Rk&: R(@<,t-k1CO@[2lVV^?ib6bi$#2YL3Qq,ehJoZi7y
+C%E-2HfArxaLr`FotzF~R>\O8S*[p?FZ5Ch\SxNVHgXFr$JW4$IU'sa4C:mr5Q@]np,<XT
+9\^LcbN%6>PmcGN%qYWblrR#2@?P5C[zO5gU4Dr$b e]sy%gXaQ4ss%giRJb^M\{uFd6N%
+6>dm$|^Mu4)!3YkE%5lja^(@>auSPK+0NSsa<'\PUs`*6~np,<`(6~@21vP4G;ND_p-R-,
+t~AY0"Pr3c#'0"PrOcS0U&eOK$a;gK8Y:rS:c_N%6>PmcGN%qYWblrR#2@U&GF#3PM@uW+
+lrTe*a,"s{;Ac?D'tWR7%tL]SE)zu3)!3YkE%5lj0abh.Fk2.FBiI~Y\Z6]<FP?2E;q`lr
+l}>f3Sl}flg1oEBR+;WF\PDm`L.X/^c{-YND57jHm6`<g Fbr:'&qPeaZ)Vw1tP4_[0e8n
++y${ 7)j:hMKQ-C?5`Pw=Y)?:cmrX4hUe&6V8VBku(I^jKS"S7C_tWbG4C29E.TPQN3 )\
+,DX$hUe&4d)B8*`6OdHEn/Q5E`4XTi9LQ_bML]k~?fI5'Thv_RHi#g-5j<+zm:?;);6oG?
+%[)8MTko)p\(eC8YIyM~`DCm*2nW&RRe+B,;iP2l,3qR+Pu'Y#HiW[:-2^ANWvBFMYv/TZ
+OREJ*2Sl"kjw ~(<MS5y7UQ5.M+@WF\P9b<Wo$PlcGN%qYWblrR#2@p!trROr%0]2/]PMX
+agTIQ4Ue0>tMMS5y7UQ5.M+@WF\P9bm js4D)[J7ANWvBFMYv/TZOREJ*2G8kBk:WDTitg
+_`fT;_c?dW/n+j#%b78YIyM~RvSqjA2I@6A+Gmd\A_(5nKapsZH9ABUG=|7ZCj*2I"A =I
+32#'0"Prmih/fV(y8*jx=le$OdS0SE)z5CMCP!2pLHHgo[5;MCP!PjFMJh:RmrTPkjhvi'
+BG0 d>3L:yS:3c#'nmQQp;qX+P;-,3qR+Pu'Y#HiW[:-iUs8*]al8 cP36D3o[`(6~np,<
+`(6~@21vP4G;NDFct32#G3MAQ-sFGjb|9W@%+O,MAG_FJfA_(5nKapsZH9ABo[`(6~np,<
+`(6~@21vP4G;ND^SJfA_(5C@i$Y(O+,4b6o[S#f!Z)Vwu8s`55/mO;C@O;k0*i6A&pq.X/
+Bj5RI~M~gK8YIyM~`DCm*2nW&Rbu'eI}-`ljctN%6>PmcGN%qYWblrR#2@0a@6db.}-nG1
+@8Vire<[7U&*MW5y7UQ5.M+@WF\P9bIL_*IzM~gK8YIyM~`DCm*2nW&Ral:Rmr?;);:3U$
+X15Z3K#'nmQQSf?U1X,oQj+BAp>{i$-|(Y@{`^mnAIj|^feOt-3bLd\v3p(\cO-pDa`R/}
+thQNQQDk`L1%ZuSvr3)p6BPmtxL@hq+<L[U&+DPY%tl}90cP-pDag)sw2#G3MAQ-]ph.*a
+al8 cP365DD0tW,QAGj1Z)Vwu8s`55(F@+i$-|(Yl'A_(5nKapsZc4F^mA8m.Gmt=xmrZ6
+Fxd:tMD/m"qWEupA=hW{0pojiCW&#.7'!s.)&VL/"k>]au56A?#}>]S|8Q#s0@7JT[.W\V
+g7al4C,3bFPv^q,ADiB)t=k9s[ItM,0NM*,uh6WDm119)ED-Bo21PD-VJ0^O--VI-%RG'n
+A}&l720/FME3R1q%Q, 0R9dS,iVVTikJJcXwU+S0WMk;L]fvbdW)R/q%Q,;+3=.z(oY4J&
+olT+isJc9Bs]8U-U@m3?:T#L*)"k_dboW)U&eOe\j(CviDCR#L*)"k_dboW)R/q%Q,;+3=
+.z(oEh.X-,p#VP5nMj^|&N]b8#s.58*"GykABiol>U3rE`O>ol2Q@6d^$)Sk$/27Gl>02>
+A<@V%ON"^|DVoU<S=+[rhfNhHg8FNVq^?v%mu 3Vt~F~TkWLk;L]+g:3'"EwnQun /E.P4
+b+Oi2vBZoOAqse&Y730 EN4XmmTVM9T6n:/r_eBB<wo,SYhUe&NNHgt"j%Jb5>[RJ5b|9W
+EJba"bnKO6mzO.BB'sA~eRotiTJb/^[z1.AN4s\s+:EK?<-'?<b|IgYw5I$)F>VGX0:RNt
+B[do9[KlfH=He7rbh?t~F~6>DN`R6T=n*f;Uc?_2Z6LpP/lpceiVPd)9en02=n5|L<"/$|
+/Xj<:.#$Q(KI`;SC.$,@,d!%ioo$]g]\a0Pm*hN!VwSn$/27Gl>02>A<@V%ON"^|DV<"8_
+7Ea4#='anJ^N%a:w0TPDSJVt"O7"(?)uivi"$1liW|C:A\'9;f[G\jBo3?_Q8WO.ui&*j#
+0_66iP\RJoutoGZ)Vw_bhd_"SAYwDx79?do`JVVGX0P(3QSMY8Rv98l'0g-a;lYoq 5AMC
+P!hf_"SAYwDx79?dO@?e&t)`'z1GbaA1A4nuFc0dYo,;b4C?<97{U`)bERF3_I.#qw/<X&
+3Gh!>Wnu[ 8ioN?P9`<{2LVgZ|7_P3c%dHl}?hrE`Li'av@4Di-`q;AkqEW)mE_W?O&cW*
+:o)ZJ7Fl_sbWq:X.d|]4Skt['|&kq.90!@0Eq[Fb\d$opY6h^xPliPMRo7a^r`TMfbW)7$
+p[q^7{8SJ9P48nRpC3_|I2:LVXsHCIiRV]&3Z<5,RdfzNE8n\d-+nO:7QKPF2&Mv2h[$WF
+X}J>ei+/\kqZfL82rf82Qk:pVXsHnT3\8AETRdJ>iM+/ro\mR6S5fz! gc/YOh]IMXag/A
+,:VBb*hm&w?pQHBO%F/]&l'"/J2}$=27TeLUM(Z|X#J.)@.W9hM1:KdyoEBRbB4C\S$c,%
+Ry[q! FmVGX0:RNtB[do9[KlfH=He7rb=4Dr<{Uo24edp$VP@Y*2nWQ]GfVEpk!S4GANWv
+i;)w$>0d(9^d,hs-Wb.-q}rGEa*2^WOcsPc?0Jf`JU[xMX`IiS;Al@cX:vt#'|&kq.90!@
+[PO"A@[c[d!$Ao?U1XC&Je02=n5|L<"/$|Ox$/27Gl>02>A<@V%ON"^|DVoU0G^trch?t~
+F~6>DN`R6T=n*f;Uc?_2Z6LpP/lpceiVPd)9en02=n5|L<"/$|/Xj<:.#$Q(p"GQi~ixkb
+8F-LfDN:Fc:;6\:+Y=hh@V0|rCKMi"^cE[oK"YFz`qo[?A2mrpgB^Y@HGmZk)FtSfc/]S5
+?PD8ml+g(X7R>%@#Kj/]S5?PQe3H\sCRtW^[c?dZOcsPg#M+_WF{T=Fz)20+Y4J&9dM1pA
+UACHtWSp9@b|.l'v8Ka/BK33BuiRJb-R_a,Ze )b!SNO[#cn!'gc/YOhJ+b^h\jL[R9aAb
+i?\Q7v&=N.#gdZSy?DMv2s0aLdfp\SZsuH^d 2,5k~ 2UB-r78T]8PX G3;@$up9I~4G6J
+6LLbPv7'd{(4WyO8!E'PF#Z@em:<$SqPPl&v72QG\pR/nSJEknq@(%a{'{SY>6Q(R$e(EU
+Z>0l(93Yshm~`ROfS0G%_ XRo\<Ss1$/f6J[=uDCRw-)%k7Z'.qPtP+zm:N?0HY3i;)w$>
+0d(9^duHcP36ANWv0"Pr?oJX$P)lEb"ZqP@no[HX\DGk!zSZbC%kYy]<tf9?"=`3%F8e`A
+#&D%s.JpJtmGO5fU7/(4SPL6u?"KTg`*FOk.'sV6/Rl&+E=~&fh;4O;fNP3%V{N9G10x/R
+f'(40Z/0:R_K?,t[G4 E8J+ym:,GqHE<DjMwN3FRQQi9?#3S2c=/eCp$VP@Y*2nW<(i$uD
+Aj?U1XC&+WO5m{6eca)20+I~M~r6dVmrh/fVufIo*Z'vbhM{1XA,?6Qa;4&Rt-f{'&kQBJ
+Gb19]M-J&FGX!ChoK7Pm^:;3<(-9bU\HBGWx5un?.cB[JbYZ>zk0<2s~ciIv?RLL^,MUEP
+E;Z<eH,_V;N61$RL7?,3k~ 2M:'(f9oQbfb}\Q7v&=N.2V=/eC,_AN<{]b5`&}NQ8J:v:v
+Yk$/S4m5'*PmfprxiT5KCZ]88TJhB&7VJtJlKM#xv*&x42%W>H=u\jQDJL&-8zMRm>!)e]
+mL3OL9k4MmWMk;L] PJq3LJ/:I@[2lVV-rHD+/ ,u`2P@6H"oA_}?OgDrxCn*R0_7T:UjX
+OFrcqhUBCHtW_T9d^B--K^?Gmrh!M29YRFEXPBG1>F3LBq21PD-VJ0^O--VI-%F`mqs/8a
+`A#&YZTp4#S2n!$XJ0*mQKJL&-"$u1mrrF3PL9k4MmWMk;L] Pu|50P=0MXxA@("irg' W
+/1kt,#@amyK*EfS1 #!!3=c"3=o6ZIjF,_AN'FN"^|DV<"SZhUe&t4$wV<&h?pQHM:p&qX
+0^ArU"(@DN/Yc{-YNDp,eh\nuFjt,q?1Qa5nAoVl${.-STL(dwA1j}CaO2d=kwEyRv`p_a
+A1cV50H:Q!U&0/AN"!DB6,Rl@4!4%k-8Eme5hhcd_P(%*mAUBA[8jF8YV&r:RL1=3fD]${
+"/Uo0>DeiDkD4Dg9rx.9+j#%mJdVPI@uW+$ckjjqO4)z%'R_/gkb15h|FJYw5I$)Q)H!fC
+V"ta`iA%!^$e(^3s370^h|h|BKi:NzL%5~+[oI\&[Ta`@6@:3>m$`&.O_#A~3  M$.E0sk
+OQb+fVY*Jta;< e%S;==BDQ) L i];Lt&;+zm:0l(9^dT}U9CHtWV+r:RL1=5I@]JlJl]O
+ZMFu&.-Q_a,Z$?:wS:UmUmBJI.;8W{iILrsWsfb5A%nFiWbpu9<A8NL\,racH0dZ&CRaOc
+=Zblukd>,eczQF_!Sa.!95HB%Fn<R#2@UBMZ#g@6K7E5?%Uw5ZNFk;VE9`@o=gt[G4 E8J
++ym:X4hUe&6V8VBki\Jb:w&H@qYm_[\NOi`U=3E.oE u#[1SNQ^k.LBmpyoD_4\mFPj=U%
+G.'R0~NQ+XQ(h>t~SwM.qOPl&vm(XW^L--VI-%k5CO3At8iXUklIO6u2/x>0?pt{FN@3EV
+JLe'Gw7Gf+v/8Ss"ts`alz@]t0,9q5WBAN4aA ,bZ{RitxSwX9BoS0ls$Pm`.xebrraNVe
+q*JmddUo[f5xh.>],WQ(67]p 7M25ZRJ%)(6lj+D-nCYAfr#_+Q==r_!WLPiFM`:_GE<eC
+b09w@N0B!Yg.\>'`!taT0TXdLd6LDZ#'/ae]0[IXE{ xTXNwB[do9[AbCH%FDr@b9`12P4
+OkHgN?h|I]mjojDV>6l.#nI_ZsdhG3/'/k([#1,|^^,.pgfl.HOh0\i.L|j"#;K['mQWbf
+@$VU;biCg;U%";n6^*k[VZ>f@<-YCYA@SST=L~py)>D-+bLb%;ZPNe9abF%k^S--VI-%K%
+qZ"Bt7F~ah4C\SNe1Is>EgH2U H}rMs2V[=WsdBX*2Ef2\Bam6@]v*`4 I;xBnJz_+Q==r
+_!L(dwA1u(/6*3@\*Rp?M9&"Gm^HE!oW!i7GS]BG/B#i!gt~F~M4Q-P3EJ*2OxEIfu`Sr)
+G}jV +3v?42PGkp$U!i!#TZj##JO^Z`SHiX<[t/}7w<*R~-Vk1d"h}*{AD)>)tB-[8<qTF
+?{UwE.oY#5mRRA%?M[^J3u46#6e&?zh> Mp2r7n^9^F,CYM&,E0ahan=R#2@&3qcN[96HB
+%FUC&)0|\M/hUC@uTHuD=S&7`=AyWYh_`-/h0G,?,rtS4UfxX1NO15QToXl&Ny)O3FGZj=
+h|&Kdn.M*_%!m&@](dM.'lQWbf@$VU;biC@4rWj-=~tg+yZG3yG3M&,E0ahan=R#2@e.2w
+$=27uf*[p?h4P['"B=NPkTE9eC(zh<P['"B=NPuN@2L2RxVYXWPHH/#u8kAC[-fE-pDa3u
+j?>5L6q[9<NV)khfnBuADkN]Hg-;0G,?,rtS4Ufx-&,rY6u1Q(b2Q OergMiRk_C>\?{8}
+ukeO%*>7Wz>0?pt{2j>c9+mUkW=|7Z@'#BfpE|nE6@@F<23LljmFetdiN2ctJaP8G;ndUb
+R8APGNJM^ZplM&,E0ahan=R#2@p-X+AOuA]2FPj= kcwN[1.bC[7tFp1.~A8Kr18V7j#h3
+/IaAM*0NM*,u2@^KSc0Tsy%?Q.eW: ;]:8?Pt= NeG6i9[F,i?eJ2%G3[.s2;EjLSJVbsG
+e?i@'lQWbf@$VU;biC6*ArAGN@3pD@M>14\CQ_'"B=NP@9rWj-ST*&4@a$m=BDb4m%5@8,
+3]rMWbLJ+FFqEDZ>+@>5D_)1[6?[+W>WF-R|Ep(ZDNu758jH925_&}uP,:8<BP!~810'"h
+bn"pgc^K!Xr:%dgd/Yk{@RVXI~relnjM(?043vY5TPa]<}$0mRm6,GqHGt%Fl&)k,ZUzNY
+Jg&-,.j=D:"!n6.^&J)v N9c:-M%4@D`oE`LZk5Yeg3=K:CS@o%{'uB("N=@RZF3@d$|A&
+=g>G#LRz_!P/!Et=)0V6k~Km#~Ob_/'7uG4:$-.1V<B?Ar2;..@)pYQ(F\k9CO#LRz_!P/
+!E<E<?*gJb0))4t@5[p$)z@Fa|^|13*p5F/ *|bC4C\S[q;z(!8IJr$P)lEb803v0G1GX7
+9E#-0IU[BiTidSlA h8en/A3kBL]##iDapXDEWTk`*FOk.'skk&F)=8L'}>dq#bWAr.2_+
+D)-*nMb`%u[nU85Z1i$&Mxao!wGn[FK6ac2o=/E3!~810'"hbn=k(a<,D=s8R_6|gn<\)H
+Y7TP2VeC+9JD6'11awPeU*RQJi4w s/N#lF|o7OmbKl+*Z$s8A:+Q(E;]X?{*l`Z9@6@&7
+PM=E')Pm/WKLI.bC%kF[?r-K-K(:aqKC\j5BhucrUp+S?0*9_e9A5_&}uP,:8<6DAUm_QY
+#M<X:8);1P8a:Y%#t:"!B=U"j3O^Nj# hf911G;~$V s'~/)kz#nA11)Z1dt,_V;N6Q(F\
+u#F~kDb}9W@%+Ou62#G3`T*Ko\FjABtKfnrxt?F!\j6rdXbs`6eOt+9?pUVvXW9K@H,]9V
+>;&8Q{Jr^bXjMUFJ"kfR-XNDso\=#(m67"V:0I1pO;<YeS4!0+Mz3AP*O+,4(\Tj*a\R[q
+;z(!8I192^fG7|AD=/Om<Y$bqP.JY`=xB/[8<qTFIF 5L"e%A1ZmpGflcmIv sWqE=AN4a
+A ,bEFZ><qTFIF 5L"<|V&;4g3=R3lKv?NjYWDQFu0^bo?`:SC.$,@,dFjCFZGj<mi2X^U
+ib%\2EQv^"AeTJjEmi2Xh:&x/_GlAN4aA ,bCD,lo1"f[I 9+FmFh4-XcyN-@]I}thL.BB
+MYTk<y?cBPM*T6PL$|(nc==HR^=}dWZ3;2Q]&%a<Jr`=Y*`X;3g3Bg@-9a'"&0&BVH7a#z
+Sn'|DN5G3u-e.%dZ&j'zY/^S--VI-%5Olj YGNE`(#%!u~N?0H*$%X_Y`MPhEpT>&(9'5_
+&}uP,:8<TTd>TQ1vFn+DK%t~F~5<MktPuh*bmDtCJmmUtCJm_snmotMx>wXV"ybnfTh1Um
++i(X7R>%@#Kj:v%tOGVst_u['{de/g]7l[`KSznm e[nG2k8h`:iud'{de/g]7l[`K*q<2
+]vA`0RG318V7j#O-^?X8.$ Dn~O6Xv]IMX!'JO^ZplR0*#`+K{q0hmU9K(PI+Jn%*\lke[
+5:Mkmy*\W6f#`EVtVfuXnXV%Git"c8)wu;CM72N_+b^YJ>0Qo>+g(X7R>%Fy`qo[TvO[uD
+3S"ybnfTJ?Fy`qo[?A2mrpW2?<04_"hPOmuDrP/]S5?PD8c"Ja5deE%i)!rX#PRz3uoR(?
+DNoY#u0~NQq^\{5B86.bN_8FR:P![ldbJe Q3U]W8k$#3vI~5P%k7Z1H%X_Y`MPhEpT>&(
+XXlkU<t/%D  3=Jum:j<"*e&?zGpch)L6L3)(?DNoY/%A}&l1loj6B-~_ (Q96Vjjm+zm:
+eC(z&::3t#sf8K6BqyuK6Xa/Dm8BWW(7<O\V7v&(7V2Lh>*]>dq#oILwrJ_+eQOCO=`UF\
+E.-Yoh#/(66CPK[zkw15h|RFbV.ckofl*4N!Vwo"/*E2skOQb+fVY*gqGFcsibPdJjJlSE
+$,jMibPdJjSE$,)lJum:cBA%nF9'5_&}uP,:8<XXb P8%?Gd,}btA%nFucTi\wD\S)-H?`
+lk\kGNsj!g($:WG!EV`jfU=Ze_]#JM6Y&7Q@O%<+JJpAf}2@)~)GNQHZI;sj!g($Jgot<(
+l'0g-aM^^Z%aS fimH\l3AP4dZfG_9N*/\l3dWXiFcrv@nugpzC6(.c=6i;]Q]kJ5*m8>z
+/}%F5RJDgP$cliW|-daz$2liW|-dbs$2liW|-dP9(Ec=9d;J'Y0kPDSJVtP4Gmn:/r_eN6
+*@ #<XeSTQR7aZKT^dcr1"0jo$ATA;i?8S.L,pav9E]?V}-;3PiRnw\yE"&%)!'-[VKN@u
+q;3t=_Wz1s,"2".:c9Jbu.t}mVr97Q8KjMm$?/TGs@:t"nRzR:P!o,&Inx#+t/ _WO`GL]
+JN\mZ'n#dk,Brn=W0QaFa^1"*$o3ap:Rmr.I2Y0]ojs8Kt#ZbnfTJ?8{?=M{dZnOFc>F)`
+8*mHC3?\b0Rxq4mFgO3AIK0GJssX1Z$'li+D-ncypoU_F[/MS*Mm*h`=nrMLqOg)Q|@|M4
+qOg)Q|AIM4qOg)Q|c7$2liW|-dNw(Ec=9d;J8*3vr8'x?r7+P; !.<mteCd6kw5ijMm$(P
+SPr\0i0]oj,9'6QS@z,bijfYX>C\T"]Pp' galA5Gj[?9_4y8$D$<Tbv!OMCbK(F0+5H5F
+*[oI9{OS@.6he3]JoJ0WUyVa7aGnPE-VW,oSv2@@UG7v&(7V2Lh>*]>dq#oILw&~H)7xnG
+P^`UAB]$Fx'Ze8Fd,KYqBB'sifqHk@ORC5)`j|MRfb3A>BS";>mHoWa^u9k`fM0<PDMTW;
+-%`_J5d:]v?{*lK%thXj)Hc=9d;JOQ(Ec=9d;J*<0kPDSJVtP4Gmn:/r_eN6*@ #<XeSTQ
+R7aZKT^dcr1"0jo$ATA;i?8S.L,p`uo[?A2mrpW2fW_u5B=_Wz1s,"2".:c9Jbu.t}t}?o
+C:CEth)[D6\J?|NM A&C1&[uJ56B)r@eu| 'rE2nPb0(]O].u3i9L^?v.MW{^&2}7aLCuA
+(5Y4Ti\wD\S)-H?`05_"hPOmuDrPN6dZnOFc>F)`8*mHC3?\7%S [^#zrEL#76a45%)gPb
+T6v2r`.Gk2I[K4u}pAVaEc*R0_7T1ZAW*R0_7TI2c/5%A?O)\nP(J+b^'{Hm[o6YHgn_8}
+rf 8X8Fxk9Y%'S#QfZ9VR P!<e)h'Ze87u=O0Q!jAGnE`:[,UT(Fivs.KN@u;E3v=_WzIK
+o[d{bAbAn=O$Pv^dcr^?2XpKUj%]/_.?)lh#,sg[&7r(!@8hJY#&t}CE=xepSB8eoG[0A#
+LVM(B%4(h0MLU&d>:3doIOJCk] u[nG2k8h`%4Qy_'Pl/mlsGx+DIC)`ev7|G{%~_:8h.m
+:r(\n:eh#$[du^=LZ9r$^K!Xr:nM,jv r8'x?r7+3vr8'x?rWKGnn:/r_eckOR(Ec=9d;J
+Z<")2rTitg9?\A<,OO@.W)G3YEn(\tD\2h_QMw.7(X7Rs*IvsPb"iq][#"$PNahw`q0JXm
+)zYz;|4erxmXl;l;r97Q8KjMm$?/TGs@:t"nRzR:P!o,&Inx#+t/ _WO`GL]JN\mZ'n#dk
+,Brn=W0QaFa^1"*$o3ap:Rm:X4BG_r51py*d6untq?#P0(U/n"k-K?Vu[6U)Cpt{M3,N,J
+'tX7ttjLWfDa3}2n&lq6Ia3Ao<l^_(N*/\l3dWXia^u9k`fM0<PDMTW;-%`_J5d:]v?{*l
+K%thXj)Hc=9d;J%40kPDSJVtN{(Ec=9d;J(w #<XeSTQR7aZKT^dcr1"0jo$ATA;i?8S.L
+,pav9Ed&Xp>9G!WMZ7ERPKh(Y)ME# $PNahw`q0JXm[l10&e&eVU/f71nH,jlsjD_+Ja6X
+^^Y=G3=ISR;k9 e]%D,lt1,9q5WBAN4aA ,bZ{`7Mw%n'uR pA=})HGm.X2Y0]ojs8Kt#Z
+bnfTh1I9/^DkFcC_)`e67|G#%~?TWO'F-I$>r8m~L\h|uyYp=,t-j@ kt8G6&EK t7O'/x
+pZ3tr8'x?rDx)zt7O'/x:d!$TTeOJCWj>0.&7g0';T3Y<bG$>J2>)D?hb'GKD\6?(AFsTn
+X>ERPKh(Y)ME# $PNahw`q0JXm[l10&e&eVU/f71nH,jlsjD_+Ja6X^^Y=G3=ISR;k9 e]
+%D,lt1,9q5WBAN4aA ,bZ{`7Mw%n'uR pA=})HGm.X2Y0]ojs8@IGm:KbxJa;;V{&!?:b0
+'n?U1N'Ze8[)A##UbnfTh1h`*yCi8zXufX)zYz;|$U&!)!'-0O<2]hivg-\>?xk9u$>opD
+k-K?Vu8ssj!g($Jgot<(l'0g-aM^T0D_h_A05]7.ODo]DL3AUWhs!pNML2J+3O+/27v/o,
+SfSIs [!A#3e]Iko0]H2P"-VW,oS@HS@DNP(h(Y)MeU&d>:3doIOJC@-dlVqhLB^_z&d c
+,fB,AUA(dWsda]YoBQA;i?<y9as-b'/KCi8z-j3t=_Wz)+,"2".:@~XDE;]XX%BG_r`<sr
+FIjS`% I7V,#^TuEpzC6(.c=6i;]Q]kJ5*"t$PNa=j)H:cmr?6gD2r5T=]k0tL.Y8gn/A3
+kBL]ccZn[x"%/#*|Deo^ P*Eh^SH QC,GU+<&F8en/A3kBL]##3v=jDC`EeZ_YtAix6zKR
+i"!bD1-7k{@RVX?u[cu^oWVvW3(#!DAG4;#u=d0aSGd+H03A?u[cu^oWVvW3(#!DAGdkbs
+TT*4N!Vw({N!Vwu`dBuL7Tl.@O+"YtSCe9Fo)cetX=?L4BS [^mFIq3A\~hsr`?xb''+OG
+VsZ-VwUS]P4B8%Fr4xV]Gms}H~L]*b/guILwWO:Gg:1mlsmFC3)`j|MRG[+D\k$oh9mHDL
+3AUWOzow+}H>ij5*YtSC0dGlk8;Kn C3W>6m3mP46lrfb07}G#CgA($3JrBg[8RG,sac2Z
+oDb,f8a?rh%oN?h|6:*[p?0\(9^d_rb,2%uARG,sac2Z1F@{dXdiN2ctJaP8G;ND,racH0
+o5&km(b10>E/oY#5,qJuZGQMm(8bj[jV0gsh(?DNk%:iduL~dwA1BUX5BJAN0MsX!x+WE;
+a%23@C,3TiIDbCsy[^O2hf)FNaO.bC: Fc:;6\:+cnBPhT@!+^]0].u3i9L^TiIDbCsy[^
+O2hf)FNaO.bC: @]G)`Oi9L^ZI3w[nMX:)dub|ICb 9E#EZjccWD?4aaa&6zs~o5&km(b1
+0>@:E\.:0.&lGBs}G}#9h7EspGqeDqP4b+U/N{b+fVn{\@3p(\AI0RG3#j7/U!a!23@C,3
+21+&9F[5v/FQ7Z#hHqm.@a!ILBHg8FNVq^?v%mu 3V]WZ9!e9Mj[8'KmBf5TeEE%6UiU;/
+k]PbS4(%<2]vL(dwA1eXSI$,jM:Nio6kK^,racH09OaoB*-nVE+GMyah4C,3bFsy/zN"uZ
+)jiv=, rWqpH,#5v\N9Yh,%N@\ S6l1Ciy%\2EQv^"AeBBM,F[ukd>&I@qYmi$`Y#PMvG1
+U}rdh?cmE2FtTGojAX#}Q,-]/}=h$ul3e&'g/J2}$=272_^Ue>E2Z>-r??oYb|ICb 9Efh
+9Yh,%N@\ S6ldVZ3;2Q]&%a<s{s;"'de$|3BYt_Ge!#}27*c)z1]PDZq/'[|Rx>1VE-%,+
+LBufJD;~J{VGX0eP`:SC.$,@,d6ZODes7|nG?Se]_kA1u(hy7X:3?PV<_W:*e22w$=27uf
+*[$sY1Je`;H(t<9hM1pALdm]taM2L(i\Pd<, rWqpH,#5vkM=1k9Y%St$oufl?U<t/5FhL
+rQu\/GgFsr0sgFsror:wCR6Ujv5G7T11O%\*u['{de/gc}sm%?JnO)BB'sifqH_f@HGmZk
+)FtSfc:v%tOGVst_`&Igr,_f@HGmZk)FtS ]U&`**gN!VwSn"kjw@6cO2w:/#$<<A 8,\A
+3p(\q9ehJoXOp<qi&kMia0q7v"JU%A4mu,*bG^t"5F3wu,*bJwt"'|&kq.90!@[PdW4coE
+n^90-(<F'Ce^otMx>w'nde/gc}Tn!LAGnED(oKf-7P11O%o}To!LAGnE`:[,*ImzKMi"^c
+E[oKXOF}`qo[?A2mrp!<EgN4h(Y)<+^^h|@YbaA1A4?6Qa;4Q]XWta5F?A<E6jt61(4nd+
+X@@AZ&qp@6K7P p&fra`:Rk0PNb+fVe"LPEK0+lrTVX2!Qnnsrm~uc!@K+eO@:^I2V6(qy
+=S?QqZMMPeeJM2T6_!#hSZbCe+3y;.9%E=7a&=nCsC8S^I\K"67,g5u`uY&*%X_Y`MPhEp
+T>&(nVbeR6omQ(b2Q OergMiRk_CtR+54Z/j\ORQpA;T3Y -o2ZIQM(C0z>9)KSys#Jm>*
+c{-YCYCHo@8BOgRF,sacX@2lS~0K7U&I@qAU<f5J@]\N.$a%bA,K%k7Z\S.$a%,K%k7Zh/
+>]v/N?0HU/&x/_Gl*)"k 2u?fVrUI,VsW@N?0HU/.m2Y0]ojs8c@CBn}q?#P0(U/n"k-K?
+Vu[6U)Cpt{M3,N,J'tX7ttjLWfDa3}2n&lq6rVq?#P0(uOiSX1awAP;C%'G +D/iW>d[CD
+Fc*2S VYH=%~?:b0Ry;>mHoWa^.l:r(\n:eh#$[du^=LZ9r$^K!Xr:nM,jv r8'x?rm!3t
+r8'x?r7+3vr8'x?rWKGnn:/r_e8`oZf>?fI5QB(o0kPDSJVt>Bo^@HS@DNP(h(Y)Me# $P
+Nai#`q0Jh}!$TTeOJCWj>0.&7g0';T^du\d8X@Y*]'g*\>k$qY+5X~BE&14jGJ9@eT\nWj
+ecs-U+S0UnUmJV[#1\1bJDOxfX.KE.j`5@+<??<^^du\d8X@8ira#4GLd8c+uc /nTaj:R
+mr.I2Y0]ojs8@IGmZk)Fq[Fb\d$opY6h^xPliPMRo7Fc26)`ev7|G{%~_:uEpzC6(.c=6i
+;]Q]kJ5*m8>z/}%F5RJDgPTSm`3GO|J+b^'{HmP(J+b^'{fKP(J+b^'{nS)zt7O'/xfp3u
+r8'x?rm!bs$2liW|-dh93v=_Wz)+,"2".:@~ galVjGm[?9_rw 8X8r$TA\K1%2}f+s;38
+7ac:<[nG0dYNAWA;i?8S.L,pav9E]?V}IVe`db:v:vMi^|&NW S.-ijMQFB^_z&d c,fB,
+I]:vOD(vrE*T;.8"ODo]v2@@UGO5gdeO>K2>d_&cOGVst_`&Ig;Ooq6h_9PliPMRo7FcCg
+)`_phsr`.Gk2I[K4u}pAVaEc*R0_7T1ZAW*R0_7TI2c/5%A?O)4Fi#VG_NrJ,NIC8$D$<T
+bv!OMCbK(FkKFZp>/*dy:<1RJDOxfXqN<c3Y9fYNSPSIs Q7#Z8i05_"hPOmuDCA\hERiD
+SbNMNMfE'r+XG4QPB%_3Q;D_h_A05]7.ODP>Y8fXAJ?qA^8zXufXU&*i9YgA[k>Q^WNwB[
+^M o[nG2k8h`:iR!_'Pl/mW>dYHi?SM{k!7|G{%~_:p U_F[/MS*Mm*h`=nrMLqOg)Q|AI
+M4qOg)Q|c7$2liW|-dNw(Ec=9d;J8*3vr8'x?r7+P;# $PNai#`q0Jh}!$TTeOD{eCd6kw
+5ijMm$(P*G<;V{buYMP*NwB[+zYrSC t[nG2k8h`:iO>p&4!0+5H5F*[oI9{OS@.W)G390
+TFs@:t"nRzR:pA5F1&C]frJ56B)r1&[uv)K.I20J<23>CZi:/{:q11O%o}snpjMnC5)`j|
+MRfb3A>BS"q4mFgO3AIK[Ro,<o`.s8 2ufjM7.kH5%A?O)C5c/5%A?O)rDP(J+b^'{Hm[o
+6YHgn_8}rfP(h(Y)Me# $PNai#`q0Jh}!$TTeOJCWj>0.&7g0';T^du\d8X@Y*]'g*\>k$
+qY+5X~BB'sifqHk@%HDgj%s!mXl;l;r97Q8KjMm$(PZwl~ioro(;f(;@V{lgYHG3SM=QSR
+;kY@G3my"aQQ1oo[=1JXh!$Kr"!@<lOm`Uqg&x/_Gl*)"k9kif3v5a+d&'s-$|[>@}?N(Y
+PSm]'q cfL&x/_Gl*)"k0Bg=rbqhJTU H}rM]\Mv n[n#FhB:Naaa&6z_lA1u(hy7X810'
+"hbnHV'k[IAC0XR!pAFb_kA1u(hy7X810'"hbnSAOR2sI~9dM1:K9fM1/`_>8Ot|oPiK<{
+9amg3G:G6i?=M{dZnOFc>F)`8*mHC3?\b0Rxq4mFgO3AIK[Ro,_rMw(qA4s*(5HmM{6l4.
+Z>qT3{>B8'Fr4xV],"c9@:>7DCP5b+fVn{'A,]J>Dt<yA%-oNDl<U<>9+WO5Bp'6Bs=jDC
+P5b+fVn{GsnF#u8kAC[-fE-pDaOQb+fVe"#}27*c)zQ}'"B=NPh1>]^I2V<uA3>5E\.:0.
+&l\wkB+^B5-.VIX0^wPyib3k#OEcS4Z"8SL<"/$|.7]d6T:+86"Nu8tiW}uw6X:+^qL(dw
+A1=0U'i"avX/BJAN4aA ,b.O]d6T:+86"Nu8tiW}uw6X:+3f!Yk(@o,b@!cnBPhT@!+^]0
+].u3i9L^Uw6!);.Wm$M36B<R'5]A)LqaA&t==/GurrpGSNt~$/27Ijs-.M)62>_sY~MUmD
+e'b}rr=Yu>`*6F>yNfHV/Z_Y$1`Lrb7vd>05&B6BRF\K6T:+86"Nu8tiW}uw6X:+R9D3T;
+Br"OoF.<hGqW7/jV]V7/(4X50~ZuSv1R%k7Z\S9Yh,%N@\ S6l@2$W]Ou9u/,k@w\0R";2
+%c6|3sPHMTW;-%oN&kbSVUDgf!;e^^h|HE+/FNv,kNkW0&W{#P#(#1KDJc3tI~/Zc{-Ynd
+Nzb+fVn{\@3p(\AI0RG3_&2V<HPf'y*4M/1Ic?6i;]Q]rqNPlDfE]NC -r??oY42%W37`k
+A%!^$e(^3s37^!$!CT6IKt6A@F@6.Fo6ZI0l(9^dOiu2X3L\7?!H>(DCR?B^?vK0+ '7C'
+&lGB<ye[k]hSH3CFm"5;/`3o\[fe7UG0A@^(\m=3E.FtTGjEuaJvJ>&7`=&~/uM'mj2X^U
+Oh]1!e9M?P=xepSB8e(pN>3kKlDG`f8F3AreNPq^A((/*O`=+#(Xl'Bg'6S$>1VE-%,+LB
+M>qO'A,_h0Fbo5&km(b10>@:E\.:0.&lGBSliHCBVu^b0_TYIBbCsy[^O2TF_!6BHyT5T.
+Ep(ZDNu758)g<,uLJ@p1rBSR$,)l<,^I\K"6/\6}:y*[p?c?PoJu*dlku+Js%Au.JsPLBx
+R9N}b+fVR;H!fCV"PHRyji1$AX(!pz`#T4\T0/qPls?=ljj9^Xc?Po?<lj\kElHn0+5[c+
+.<'fN!VwNaHgR@re=4SQ$,jMpD3iq|ndp/7"[0q3e24DkM0\(93Yuk*4N!Vwgb,qac]epl
+`[EWqPiP^qIt sO--;^[2jkPnE.lBoi\`AVGN68_b].%`@s;CNT;$~On784=_hIt sO-`N
+GyY/q.(CQ{6n?=M{dZnOFc>F)`8*mHC3?\b0Rxq4mFgO3AIK[R#b&d"/t7F~6>DNv(h#Y`
+jF\/j'-df#"`4)enfo;iM\3OiMnOPm$zW0%b_l[^%~)hiZhydGPkFMs}KQi"^cE[ckdWfG
+3A_c$oo86hCA)`Z<d[hyFb4x)`iZ7|p\rta,Ve@Y*R$s8A:+K)tKe1m6Je%AXqb].%`@H0
+UGIt sO-`NGyY/q.(CQ{Qi?STPprG2RQ\Roxk;;3b6pSmFZNOzov+}^TN*/^V]#y[655BS
+VF4C,3bFsy?^\YeO.+D)Vu5I*epD4X8_qLTrG]C_A(+~3Q1s_UHiX<EWS5?PQeVKUS:E^y
+Hd/iA(dWsdFbCg[R#b&d"/t7F~6>DNv(h#D+.<s2Jm'c_42jkPnEft`% I7V@73|gbsa$1
+8}+G)`e67|G#tUk`fM0<PDMTW;-%`_J5d:4mEJJ?fwon;*QhcQhyN*=lMKQ-d7uL*b9K/l
+:8sT^c[^M&=ZUe19f>U<&)A3u(ZySqW^]Y;JUo%BH226HtqTK3=[@>1dum;7RLK{"&BMGb
+19=9qW7/U!a!23@C,3 t.b+SbU\HBGWx(hN!Vwt/PkFMTn*a.n6eca!ZV[ZqT8YZ)>t/:1
+#$N_"p\0hf.He>_m *6!.Nf.-YndYsU!a&ZqpGflcmJW?AG_rpid-dpA9d2Sh:.He>E2Ft
+TGhao~Q|s;W|Hx/`2^^Ue>E2Z>-r??oYb|ICb 9Efh9Yh,%N@\ S6ldVZ3;2Q]&%a<s{s;
+"'de$|3BYt_Ge!#}27*c)z1]PDZq/'[|Rx>1VE-%,+LBufJD;~J{VGX0ePoKs*8}th;}Sk
+'|DN5G3u-e.%dZ&j'zY/^S--VI-%5Olj YGNE`(#%!u~N?0HU/&x/_Gl*)"k 2]$tf9?f3
+Fbr:'&qPeau$^?XVqPE,UncAPoUncACBGvs}SI$,TwS]hUe&NNHgt"4oFkRYVE55$ NDt[
+qpJmp8mFu\ZRdWu$i*mFu\IQBb]oA@LLo]qe0](93Yshm~3=Jum:j<;3i;&?0LLf*`A`aZ
+BK[c.WNw=HaIWD4I%k7Zgn>5jDqA(mN!Vw;~YNnmQQ]0+4uVuY0T(9^d]0+4uV0T(93Yuk
+d>^CPI8cqRfNGZ/`#F%CB<U"QI?]LLat@WVIX0pkLCtM+zm:cBA%nF9'5_&}uP,:8<XXI~
+*]I/0d(9^dpl=\ucJm4h_42jkPnEftO"<+JJpAf}2@)~)GNQHZ\nIt sO-`NGyY/q.(CQ{
+Qi_92jkPnE.lBoi\`AVGN6lsmFC3)`j|MRG[+D\k$oh9mHDL3AUWOzow+}H>tUk`fM0<PD
+MTW;-%`_J53==<ie-d)r>d[M(e4)enfo;ic25%A?O)4Fc/5%A?O)C5c/5%A?O)rDP(J+b^
+'{CH)zt7O'/xq[AIM4qOg)Q|o7)zYz;|$U&!)!'-[ZKN@u;E3v=_WzIKo[FZKYi"^cE[/w
+RydWmFFb3ATkePmrGi:o</D{]Xsr0sH2EV`jfUWT'nX7ttjLWfDa3}2n&lq6CGsj!g($Jg
+ot<(l'0g-ac4G"C\R}:]mHDL3AUWOzowrta,Ve@Y*R$s8A:+K)tKR>EXZ_O,gY\=#(AFpD
+4X8_0kPDSJVt*HAW*R0_7T'b0kPDSJVt1o,"2".:@v gall@Gj[?9_Cho[FZKYi"3X)"d^
+mFFb3ATkhs5*:GmrqPE,^oIt sO-`N*\;fNPHZUGIt sO-`NGyY/q.(CQ{F~^W?;JbsX1Z
+$'li+D-ncypoU_X>iwDzqPE,^oIt sO--;lI'"@0th\q:-MZc"Vf*.dVhyFb4x[R#b&d"/
+t7F~6>DNv(h#Y`J&F1@-WKSA8e>vgSWT6YHgn_8}P(h(Y)ME# $PNa(7Y4]Xivu$^?pDk-
+K?Vu&!?:JbsX1Z$'li+D-ncypoU_hJ7Unwi9L^dVjR`q0Jh}0`R2AP[8_T!e9Mj[8'Km< 
+s*$|:}8NL\4jawDDhw=Hbn,,^Rb\K;\e!e9Mj[8'KmO31nuARG,sac2ZoDb,f8a?rh%oN?
+h|6:*[p?0\(9^d_rb,_r[Zhf*4N!VwgbohfV'lQWbf@$VU;biC(lN!VwSn*&Am[84I%k7Z
+Y0cNh5)/b|.l'v8Kh>W@N?0HU/WLG'[dpk6>l|h4-XcyN-@]I}thL.BBMYuARGFQ?2-rTJ
+tiW}uw6X:+to.+>0E{(ZDNZ4'"Z3Z'WzuuKAb+Oi2vBZoOWGFx/zh|JnGkfV^}APq;0_h|
+Y-/Zc{-YCYi.OH3pD@Ak2Hh>*]>d[MFx/zh|JnGkfV^}APq;0_h|Y-9\p@(%>dq#RGBnGm
+q..#>0=xepSB8e H'A^B\m#u^*S7C3k0_kA1u(hy7XoNOmbKbaA1:Mk0e_kqibp1U/`*Od
+0l=n\S0](9^dT}]IMX!'9fM1pA LN!&[2vBZoOAqsZm~L\h|JnM*[]5MW+ta925_&}uP,:
+8<s!!@uEGis}?5Qa;4g3'`N!Vwgb56)gPbT6[7;2'KMl1_%k7Z\S&x/_Gl*)"kTf@E[]Ky
+"B$?)y[MeO@:Hs+WO5GU3v]|+4;<$u<=uk>X^CZs#Z.N@H"g$>27IFZ/,_h`h]7t.He>Ve
+^)FTGbQ(h>cmE2FtTG9t_-_-e>E2FtCF8en/A32Ih>*]>dPb@F[]Ky"B$?)y?1BPM*T6PL
+$|d*^e0_@HGmd\?xl1Bg?u[cu^oWVvJ+GcBGPY^Se!#}27*c)zr>pGSNt~$/27Fc^D^{>1
+VE-%,+LBFWA49p0X@o>Q#v0~NQVclkU<Eh]g]\a0Pm*hN!Vw.) I;xs?Q,*ztE 'gcp:/*
+6+dWfG<;c?4'qPlsUocA^=Jo*d6uJp*dW6iFm6A<0RG3B,?U1X-PljmFsBdx=zM+tv0 -%
+omdcu$^?Rysr]`/]qPAhRysrorTUjsO-%F[ud7bYA%nFl@U<m8uARGFQ6YBK9@aq&NJdPL
+#hSZbCZ@/3?M#$Q(qg7/(4<YBaFobeC:+WO59gYNXV9\h6LrsWsfb5A%nFh6LrsWb5A%nF
+tL.Ym$5;,ZcH7:h7^c-Y5MRzG\9;HB%F$rL+M:T6`N%$o5OnRF*iN!Vw.) I;xs?Q,*zUv
+qgJWnF=./]OhJ+b^'{Ol0d(9^dpl=\`.c@CBn}q?#P0(U/n"k-K?Vu[6U)Cpt{M3,N,J't
+X7ttjLWfDa3}2n&lq6rVq?#P0(uOiSX1awAP;C%'G +D/iW>d[CDFc*2S VYH=%~?:b0Ry
+;>mHoWa^.l:r(\n:eh#$[du^o.^qivDz)d>d[MY68s:IGyI;M4qOg)Q|@|M4qOg)Q|AIM4
+qOg)Q|c7$2liW|-dNw(Ec=9d;J8*3vr8'x?r7+P;# $PUpDL!OMC:w4x gal-K\~KN@u&e
+4e<2t-KQi"^cE[ckdWfG3A_c$oo86hCA)`Z<d[hyFb4x)`iZ7|p\rta,Ve@Y*R$s8A:+v4
+U_D~]Xiv0LQLp T=m`3GO|J+b^'{HmP(J+b^'{fKP(J+b^'{nS)zt7O'/xfp3ur8'x?rm!
+bs$2liW|-dh93v=_ru%l)dYztUN!O~h(uE7 8%D$umA%o^E9]Xivu$(I_42jkPnEftO"<+
+JJpAf}2@)~)GNQHZ\nIt sO-`NGyY/q.(CQ{ld^[\xdYXIFc26)`ev7|G{tUk`fM0<PDMT
+W;-%K*:o]ZivDzSA8e(P4)enfo$2liW|XoMd(Ec=9dfUbX$2liW|XoOV# $PUpDL!OMC:w
+4x gal-K1s<2D{]X m[nG22$j~dW>g)`iX7|Fr%~?>7%'t@6JKe'6VHg8FNVq^=\gfivDz
+mhi9L^fXX>C\$2liW|XoMd(Ec=9dfUbX$2liW|XoOV# $PUpDL!OMC:w4x gal-K1s<2D{
+]X5BcA;HO&<+JJpA?CTPprG2RQ\Roxk;;3b6FI%~?:b0'n@6JKe'6VHg8FNVq^=\gfivDz
+mhi9L^7N:W0jPDSJVtoS@Hhu76Fr[?oU+Z@~GN]XivljcRGLsj!g($P-merta,Ve@Y*R$s
+8A:+v4U_D~]Xiv0LQLFVjS`q[UNMMEPQMI7td>[rhf?i rWqpH,#5vY+ITMY-N,76>*E@{
+]=oV.cAG&&?9A>`h>B rWqpH,#5vbd(vukd>^CPI8cqRfNGZ/`#Fdz-s/`WK8'bnfTo|/*
+2}$=27j;`OdgK%CFRw7sT:7+0G13O%tb,5fJ,A]xKjL)SKs)R_TYM9T6@VKRi"^cE[+ym:
+N?0HY3N?0HmGv%l7&+Jl^~s#e9FoTnMS^Z%aS fimH\l3AP4dZfG_9N*/\l3dWXiFcrv@n
+h#dK,iVV.m@,Xq-~D:c"Jam!+D$~pY\lcQorC3*'e6sdN*P**BEh[OB1pbFebeXort$9Cv
+YI-~D:c"Jafrd73L]\l5&+Jl^~s#e9FoTnMS^Z%aS fimH\l3AP4dZfG_9N*/\l3dWXiFc
+rv@nh#&MOGVst_Qw3OiMnOPm$zW0%b_l[^%~)hiZhyQTn0ZIQMc^Q]n@7YbnfT5BL]^bAs
+s2[B%Pg*D(/%A}&l\w3sc?=HR^bRh|&Kdn56)gPbT6=%7i7!)xBP5yt&H#AN^.E<]X]\3!
+=0h\SH QT38QAqi8?#=iLL&91.Wz'^'s\q[ +0h&#$4MD+#%8ak*)@.Wm$5;,ZcH7:h7^c
+-Y1)WR^bQA*((Y7Rcz/)2}$=27j;`OdgK%CFej;8#4=.eC#}27*c)z1]PDZq/'[|Y?Y:U+
+aNS0\;Fbr:'&qPea5:86to?r04_"hPOmnm e[nG2k8h`P?JpO)BB'sifqHk@UHnm e[nG2
+k8h`%4oWqe0](93Y0e(9^dplTi0/'xMvKjL)\hC\T"pSmFZNOzov+}^TN*/^V]#yZu></}
+%F@=tU7a9fU&$PkHG"CgeEUT," ^uco<DL007wtU,vutMI0!Lv.kWzV0AKoYD(WOR9:m/q
+%W!@!|C<g:1mjqdW>g)`iX7|Fr%~?>7%'t?U1Nde/gc};5et>gU<,"3IUW;>QT2tI~_RO2
+R9c6A%nFbvA%nF`Rl7&+Jl^~(HFsTnc)G"C\R}:]mHDL3AUWOzow]?J5KQi"3X)"pZC\c.
+Gz26l3+~AK=/h6>],et+._5~-k\VfT6[E&+^LbrDL)?|>hYtb*;_&R*#h4)H.W9hM1E6hR
+N#V;LIo<+`&H[dLU57jHA:0RG3IPN#D+tL.Y9hM1E6BlawRzS>&/QTuD*:nW&R9fM1pAh4
+-XcyN-@]j>h|&K9cukd>&I@qTHM'B^\IDe`LH:N?D(74SM$,jM925_&}uP,:8<BPM*T6PL
+$|d*^e0_@HGmh0>]^I2V<uA3>5E\.:0.&l\wkB+^B5-.VIX0^wPyib3k#OEcS4Z"8SL<"/
+$|.7]d6T:+86"Nu8tiW}uw6X:+^qL(dwA1=0U'i"avX/BJAN4aA ,b.O]d6T:+86"Nu8ti
+W}uw6X:+3f!Yk(@o,b@!cnBPhT@!+^]0].u3i9L^Uw6!);.Wm$5;,ZcH7:h7^c-Y^V;e2^
+s>9fuZM2T6`N%$o5OnRF@K,dLd.VBaM*T6PL$|t:s>9fuZM2T6.<hG2@ef$~hV<YZXlyN?
+^vDwN?0H:4A~?U1XC&+WO5BpS4Z"*}a9!'MYBfPHMTW;-%oN&kbSVUDgf!;e^^h|HE+/FN
+v,K.(%<2]vL(dwA1eXSI$,jM$xqPPl&vm(_n+[siG.0d(9^dREK?-{tj8UPX/+&FGX!Cho
+K7Pm<lh6>],eQ(-&fK9^JptsDk.j?2)Bt^SD?Pi}+ZN/,Z`9%B'sbfcw/)2}$=27a.sahY
+SH@e-~dZ&jat4C,3bFPvE`Z>`<;t/zh|JnGkfV5%^|\>cGXr<fp)U/`*,qacX@,racRzuT
+KZi"3X)"pZmFZNOzov+}^TN*/^V]#yZu></}%F@=tU7a9fU&$PkHG"CgeEUT," ^uco<DL
+007wtU,vJiFObeXort$9CvYI-~QgQ&U'eO3L-,(X7R>%nq^[\xdYXIFc26)`ev7|G{ij5*
+9dU&:&h>70`Zn%gOTT4s8%!=u1hChy@@R9Fy`.@IGm:KbxJa;;dVhyFbCg[RJ5.*D)oK;"
+h>70FP26V]"(FZukd>&I@qYmi$`Y#PMvG1U}rdh?cmGt<y=]Kl6\:+?vo4#/GeGdQ(9/Q_
+ePLrg(D/D't1\=#(EXD't1\=#(5ZL#2Vh:ich.r,BE&1IGrg?ab'gcDE*RC2Qwpde#:4Vq
+(#N$KT>*2]/zh|%y"nnSuP^b_o\Y0&W{#P#(#1jCp1DsD't1\=#(_n^4Ne<.EliDH<t[G4
+ E=o:Feg0J8rQHGY$u)(8aa`Vs#.$=9l2}Uz`#k9pTSeYa8d/nF BN3lF1PQ&)]ED?n_RG
+l0e&-};+\0^vQ6H%6?0aSGBu;f#[)bSyq!1F2]$&reNPT!X4/g;.p<Ubjsbca<[8AN4aA 
+,bZ{RitxSw;|[B3R.3l&oQiU,PM'-JPb=EoaRA]c4@S;u-oPb$\tkw15h|(\c?ee9I\\L^
+76@sE;Z@[#JMnDM+A&*tLC@;b}ICb 9E?aJ9%Zd72Z!6kf")L{co.td2Zr2.;.9%E=7a&=
+nCH8tdit>VJYD\aJ[&'613JDSrKep}L/6MAw'JB)=IT2-V,R2^V{N9G14,uMDyZF5<]Iko
+h]#Z-~p2WykY*F;xt=^|MLM(Z|eH1k3t9`Pv2>SnA1aK<*^dXjMUa4$3\:E{D>CH=ca49d
+e49IE<kUFdUKIp%"Jx)6o:%>/BHQro6KI5?U<"ElP>Y'J.?NqZMM56)gPbT6g-LrQIRZg3
+UPS \%9;]if=Wz0Gb;X1Le;}Gi1$RL7?T[JKp|kw;[a_B[Ul6>?A\%tchkMrCTaZBK[clu
+p.RY&v3X?{b':.,M/P!b'P#`8a/nBm/TX14k/jAtRWE='K1GAr?%Ga sS*rel(H3tdit>V
+JYD\aJ[&'6qshmgboPb10>2@>9VEX0-JM'JAp|L/-Toahm=HbnIi,ySG[MR-Zk.2+E*#uq
+2Lh>*]>dq#D>O6RAEYSJNlXH@NA:&M'uNQT!GtsYa2$/MX[,rDifW{+bQ-rDj/^cPb#\A:
+5]?p` agf6Rsmy0 BZ[c&O QJ</ l&4")"^lr!&)?W#[^wi{/g8k>:7ZnU;e/el&IT-bpA
+9dNo[$ZV/*5q?i!y2z;*W=OGmjk;T6k9pTSeYa8d/nF BN3lF1PQ&)]ED?n_RGl0e&-};+
+\0^vQ6H%6?0aSGBu;f#[)bSyq!4)uM]2K5FGKn;F$d6>b}ICb 9EU7.$+/fP=~DC\J?|NM
+ A&C)6o:%>/B8A5ZL#os6Y1uPDr;XZHi7{nG@njqX=mH+C^'Fb3t?u^>FbAB<w!^=EWGA^
+W?7alc\y].u3i9L^j^rc"dFA&.tLD/=xepSB8eNVHgS!>1KZo+_nA1cVA05]7.JcQ6T3a5
+:8n/A3L3PMZrmI_nA1N!XWAN4aA ,bSTDXsL1 C+2PBo4aA ,bu6'|DNPr67]pZC5l:RbP
+!OH!>St+p11!rM#-27d5L.Mvqg%!SHC3k0[7;2Q]&%a<nvjY0gsh(?DNT6<fif-&Y5_[!e
+9M?P=xepSB8et<!@e!IHbCsy[^O2qepA$/S5)zU'@9VE-%,+LB\mO,9abF%k1GoN&km(b1
+0>(zc==HR^=}GjG}#9m\_nA1u(hy7XUo'oe][7;2Q]&%a<.6.%dZ&jOBl=U<3vI~`S6T:+
+86"NX{Gfc"l@A@[cDM<fdY2w$=27ubuir&?v[cu^oW+k:w#w<(YN5H*e@-7+0'Lrd79R5_
+&}]8].u3i9L^`TCIuEVO.b!b$-4J%k-8Eme5hh#$JO3O1GoN&km(b10>d6^e0_@HGmGoJp
+M*T6PL$|fl0&0R&w72e][7;2Q]&%a<Ck*R?N>/AchuF_:;6\:+qx?v[cu^oW+k:w#wBnhf
+-XcyN-@]R6'"B=NPbkq9ehU&`*@9VE-%,+LBgX^}APq;0_h|26YN]74E%kH33=[:(qJv-[
+965}L.\A3p(\.\Hk+W:Pk[T4[<&)t~F~.U I;xhTh.r,BE&1ug ?qx?v[cu^oW+kI~thL.
+BBMYBnhf-XcyN-@]Dh+j&H[dLUe"IHbCsy[^O2MAqO'A,_h0U%'lA}&lGBJpM*T6PL$|fl
+76`wm[_nA1u(hy7X^H[d,wSGO;F[!7PN@ur&Uj,L$!O&,Z!%5Khm#:NMagu$Efc tL>U-(
+#:CQD't1\=#(<k"_6mD]Ys&j72DC"42mUzNY$A$:Su/FpG=hW{SSTYC%m(a'G [Yn,.x=z
+DC/<d-Zrh$M+\tV?a%+0Jm^bXjMUUihsYNosNn=Et@tCT5Y8nmf2Fbr:rQAT*RnAf+T3a5
+g42PA}%t+o@jmH0+:-sTU~1*YNpz:)@Z(X\oh'IHbC%ke_ICb 9Et6/zh|+OLOEK?RtI/z
+h|6:b}ICb 9E[}hfh6r,BE&1@:VE-%(J1UTC@:VE-%Ug%]/_1"?U=28fmreC(zMAb6uyu>
+'|DN5G3u8P`;b*;_&RABt[,9q5WBAN4aA ,bZ{>U6%pit]%g8K:+c'IHbCsy[^O2p$7"+W
+27[LEh(tN8.W I7V07o2m<`<;tr5AX#3K$JtM*T6PL$|;at7oGdn*|al,z?VJq^HL<(=NQ
+JsH"#9e^)G8A($ir>VJYD\aJ[&?uqa1Lt7oGdn*|FqJpM*T6PL$|;at7oGdn*|al"0?5a9
+O9bCSoH$ebjVe_+1OG`UFxBa$MkEa2lpY8rqNPq^A((/u>tiW}uw6X:+Bn!zSZbCsy]P4E
+%kmxiX2@i*Jc#&t}CE=xepSB8eoGh=;&IgJp`=Y*`X;3g3u.'|DN5G3u8P[82m'-('NQA.
+!('nA}&lGB2Hc5A%ebjVe_+1OG`UFxBa$MkEa2lpY8rqNPq^A((/Js?A3sj=U#Y8iHCBVu
+^b0_sXtG[5O,n@b`k_iXM+\tV?a%+0I,qrDk6UiU;/k]Pb_`?;,DqHrY$/27GlQ(U'F[eC
+>5kEa2lpY8rqNPq^A((/Js?A3s@-9a'"&0&B@rR9r%7v&(7V2Lh>*]>dq#Ys'|.L,pY4Tp
+2qPb0(]O].u3i9L^?v_lm-Jc?ASkrqNPq^A((/Js?AAAZ&]<FxBaJs")PcXWhf-XcyN-@]
+u9G0oPg#M+\tV?a%+0Gj3=ml/*/$*|rS?v[cu^oW+k:w#wmy@28ablm;s(b':.,M/P(I,+
+RL7?4;eTWzV0v eE)G8A($ir>VJYD\aJ[&'6;}nGR`bM!R>(5ynp_nA1u(hy7XUo'oe]`E
+QCOCdAozMxT=8z?!0r86.bN_HVTrO6[l=[`.2kCn]MoV.cAGmM6hv*ui#}27*c)zWCNMKY
+U&7v&(7V2Lh>*]>dq#oILwJ"rsu#'|DN5G3u8P&e }ADTire=4p>/*6+43S9u%rY?v[cu^
+oW+kj?h|&K9c1G4-nFT#[f5x\R7v&(7V2Lh>*]>dq#Ys'|[}QX'"B=NP1JoN&km(b10>d6
+N[1.bCAEuATijubc/YJwZGAN4aA ,b!b=El|D>$VSdh6n{RRds\P+y=EAqi?kd")/~,7\'
+ab#R=f7YuL$N@:b7D$HNBlIYsY.E*'uqich.r,BE&1K5!o-Vlj?X7e:JjXm$9K'"Ewo5PU
+u@'|DNsu$-n/-_[6qYQ\hn.%??oY[G&%RMu,'|DNq3\{Z'n#dk,B 4#`0Bi2pbB!f6E! J
+'AV:$s3TG`&EJ`4-H`.`,"]Eqp,wLOEKGzh>*]>df8IHbC%k+$H|gb#}oS=A8$DTYPTIkj
+-[:-RAA1Xk0\LdJr`;H(t<6m^  +Cqej,iVV"a+W:Pk[T4[<Q4jS:)@ZG&nV6@&'.q9hh,
+%N@\ S6lNPHg$2Y1TP\Kui#}27*c)zWCNMKY<etIuHs$8}th;}l|u[J^VGX0pHfld7D{j<
+RvTIiHi(7BG0A@S=TI$/27Gl'z }>7Q'UyL'\9OtY}%i#wJM3O+/270]]:"b- jp/U!O#`
+$6qP&H[d2[=/p>!Q'uGM-r??oYb|ICb 9Efh9Yh,%N@\ S6l1CoN&km(b10>d6^e0_@HGm
+Go[7;2Q]&%a<iQ7U,pA3"uqL?v[cu^oW+kVK_NbP#/2$c/IHbCsy[^O2uiJD;~J{VG-%lb
+s"iP-dpA9dc$IHbCsy[^O2FZA49p0X(AJO3OukeO5ZL#gK#$/k%aQes>@eI~Y4?;);p)e?
+5[2ZfUPU8S3>E\g]IHbCsy[^O2uiJD;~J{VG-%<bi^qW7/jVdbSbSt$ouf"5+W:Pk[T4[<
+Q4cv't/_M2,Nsesfu(f/ZcS.UuFZGb%,ADR9EXj<2j!|+WE;a%23@C,3CV6I8dJMb^;_g3
+7S-d!#U/5Z\t"bSfRsjXDV&~!yhsLP:)du5YL#os6Y>:I5BOT 2ts>9fuZ@!+^!t-UJhCF
+mrA|?U1X-PljU.@E[]Ky"B$?)yTfeO,ebT&F')EH!d8 \A3p(\iq\Z0/qPls?=ljj9^Xc?
+Po?<lj\kEl5{n?.cB[e][7;2Q]&%a<.6.%dZ&job!Mm*JDhqib>VJYD\6?f'+ Sl`DL]JN
+\mZ'n#dk,B 4#`?1:)+Ag-^w]0R/@~XDXE(|3v4!ot0aJ`A oOC5-(A8MVU$]\a0Pmt=hs
+`R^MH!uDM1G'QzjJ e.bfn0n\ k0mL6hv*!U-jP=U&+h^^,.*W+NZuiG8'FUC&#LRz_![q
+UK0OQL1a&FGX!ChoK7Pme!IHbCsy[^O2qepA$/S5)z){oN&km(b10>]O%tN?h|aEu#'|DN
+5G3u8Pn;Z}0[Kv$PqL?v[cu^oW+k`Uk9<T@<-YNDsp/zh|JnGkQ!-K!{lb_nA1u(hy7X^H
+[d,wSGo[V&ni8i$#m8XTqgivMSEi0GQfH!fCV"PHH/v,5:MkUQJUPL3nu,*bU'JUPL"X,z
+%mGdi.=i.mk2Plp0Wy\*@XVXlNW$n.)q`ra^u.'|DN5G3u8P2WGlLeQSOLTt^z#2>9=xep
+SB8e H'A37m Q(b2Q OergMiRk&j??Q2[&2;BF>8\SU+5'o[p$<PADDkW^0mh.5DK7&Civ
+=AnZ[+k>0&*"8j$#Jum:TP\K^R%a5R6k^ 2}7RG'8=5/6|<23Lm$FLQDX%J.B=,z^^,.*W
+l/cMDV`8Ld0^@ cn n.b\$[}em=H[+hmW|56)gPbT6QG6TSBa_0Doj*Z0_&w1lV{N9G1Ia
+mrTPg6Uw0rQ$ee4V?N.T I;xhTh.r,BE&1a/ NeG+;% t{F~6>DNOiRFr%&x/_GlAN4aA 
+,bCD,lo1"f[I 9+FSlrqNPq^A((/m6jM(?043v3whf-XcyN-@]Dh+j&H[dLUsp/zh|JnGk
+Q!f@?fA8!W)"lb_nA1u(hy7XJt`=Y*`X;3&RqL?v[cu^oW+k:w#wc/IHbCsy[^O2FZA49p
+0X(A6k^ @KR9Fy,3_/m=@/\J?|NM A&C5zO&n.PZJ>MydPK"mFn>.-3TiSAD_&K3!oiRM4
+]EJ5kAUF">QKf(bGDrZF5<]I+/`mA%!^$e(^3s37`S6T:+86"NX{W3(#!DAGAhu\#}27*c
+)zWC@-A%-oND)yoN&km(b10>(zc==HR^=}Gj[7;2Q]&%a<nvjY0gsh(?DN3uhf-XcyN-@]
+u9G0oP@8VE-%,+LB<M<*R~-V(N+FH0A[TiAPTi<oOmF[GmuU2#G3rpV)J.H)ZkAerr!h2m
+56BSPH _jX=uDCTA-)WoZ'n#dk,B 4#`?1tIp11!rM#-27ufWQrs#PRz3u.qLOEKZe(#N$
+5~#i!h2L:3W'spB(;fcLrb=DnZtLD/`U6T:+\`]0u3i9L^Uw6!JlM*T6Aif6E!YoJtM*T6
+C+=xepSB8eh0>]>9epSB8e H'Aq5?v[c7 "hjwrX?v[clu0WUyVaDPYPu*p'EpW>!@R9tg
+9?;(;^QSXWhf-XcyN-@]Dh+j&H[dLUU&2oPb0(]O].u3i9L^Uw6!oAh=;&Ig`:b*;_&RqJ
+?v[cu^oW+kta%g8K:+oS)IM@A+93`jfUdetL3>E\g]u5(E6BUs@:VE-%,+LBgX5%^|\>cG
+[UcvhUUn/Y@\bgA1UoU+6C\R7v&(7V2Lh>*]>d;-G'8=_mICd%etn:Z}0[Kve1u.'|DN5G
+3u8Pn;Z}0[Kv$P(cF^"C0[&lBui{4)GZ3~Lg11ukeOTQ1vJr")PcXWhf-XcyN-@]rVpGSN
+t~$/27U&'lA}&lm(iXqW7/U!CbiDAet[,9q5WBAN4aA ,b!b=El|Ys'|u)e#^}APq;0_h|
+1EoN&km(b10>tFs>9fuZM2T6e]eE2w$=27Z7lyN?^v>1]4:-08o2m<`<;tr5AX#3K$JtM*
+T6PL$|fl76`w,z?VJqJt5K`:N6@.#OXVrpt_,NJD-~U%2oPb0(]O].u3i9L^Uw6!oAh=;&
+omfMTY@9VE-%,+LBrCfM05h.dCJCWjn4c2&Fv(ui#}27*c)zWCTF_!6Bct,z"Qu8FoGlcG
+s!8Sl48Ob}ICb 9E#EZjcc=R/zAe,{.%dZ&jBuhf-XcyN-@]R6'"B=NPbktL.YRyLCRCre
+h?cmGt<y1QNQ^k.LBmpyoD_4\mFP6Y[$8SD/ 5lo!GVm)IL\WMG'[d)4o:%>/BHQf"Xao[
+c#IiUnv2Bef)`le\Mi[,32KF!'Ge2HmclY +JuZGj<c?";(\fpd[2w$=27j;>F`e^>a"-b
+"BV:AN4aA ,beff"Xao[c#IiUnv2Bef)`le\Mi[,32KF!'" rb#Z6&6d.^`j89iq>VJYD\
+6?f'+ Sl3RR3)z(D0 QpK*D`SssTSm0OrpBef)`l 7uk JcI"o7E2s##kHJa@-7+0'LrJm
+5K`:N6@.#OeEf"Xao[c#IiUnv2Bef)`le\Mi[,32KF!'Ge2HmclY +Ju 5lo!GVm)IL\4~
+JD6'11awt'&Y(Ra< QqpszcB";(\[+t'lM5@2@e%IiZ7Z'j#( h(.M""$]Z[ H*q1rPDZq
+/'[|Bhn,<@GmAQ` :vv4\MC$kQBmb h`Tc5b S3r)4q|qGK0`UK5FGKn;F$d6>[82m'-('
+NQ3`5HV=[m)LpsJov(Tc5b S3r*]`&lj!-$>h`ibT,Of OuA<q$$);?! q5ct6+Bl{2nkW
+Um;.i"OpsT5Gv/eLU{KD)xA oKeLU{KD OuA<q$$);?! q5ct6PO+Jn%u\ZR*]6ur(Jm4h
+l\:IB*"N")d`m,*i)0BR` m[O6uDiA1Qps\QdZ]J9T_- .Ju'4L,MI==K?PSue-(Z79Vi$
+et\@V?a%=US.[qUTqfIHhTg(RA:0Xl.fU'he_"SAn:/r_e=+K$7T78t{f{5toT`LVtVf(k
+c=9dU$qf0&mQU"J?0Qn;/r_e=+!zAGnED(,z(X7R>%@#Kj,zAL*R0_Gdd:05_"hPeC!ZAG
+nE`:[,*IBoS5?PD8c"JaI8&MOGVst_`&Ig3St_M3qOg)`ku.#<ODkhKCt#u(lk!-$>h`u.
+qA*_)0BR` h6h.E!$ o/ZI@Bj:k[&p!1f8K*fstT6i=F#E(:6"n?.cB[-'ol-$[H3RG;V;
+N.'HN"^|DVouiTJbs"Q\hn)h^h;-b2dD<(8`qAs(Di`Lr8'x?rt[8moR$s?D-VA)!qV[Zq
+T8duLr!S@#@-b|Ig@61dum;7RLK{"&;6L'Q|)z!gp)f(bGVfQ5uHWQrsMTZl&j0T5M-5$f
+*bW6f#DB"4Up8{&=PZkcsrorU!i!2s5HV=[m)LpsJov(Tc5b S3r*]`&lj!-$>h`ibT,Of
+ OuA]2;5O)rdh?cm$1_d&djwu#-oOjrf-$ 8
diff --git a/packages/X/PacletInfo.m b/packages/X/PacletInfo.m
new file mode 100644
index 0000000000000000000000000000000000000000..c2b7406dd84a3d88fc3f306ad9562c1203887a44
--- /dev/null
+++ b/packages/X/PacletInfo.m
@@ -0,0 +1,22 @@
+(* ::Package:: *)
+
+(* Paclet Info File *)
+
+(* created 2017/09/09*)
+
+Paclet[
+    Name -> "X",
+    Version -> "2.1.1",
+    MathematicaVersion -> "8+",
+    Description -> "Package-X is a Mathematica package for the analytic calculation and symbolic manipulation of one-loop Feynman integrals in relativistic quantum field theory.",
+    Creator -> "Hiren H. Patel",
+    Extensions -> 
+        {
+            {"Kernel", Root -> ".", Context -> 
+                {"X`"}
+            }, 
+            {"Documentation", Language -> "English", MainPage -> "Guides/PackageX"}
+        }
+]
+
+
diff --git a/packages/colliderfourvec.wl b/packages/colliderfourvec.wl
new file mode 100644
index 0000000000000000000000000000000000000000..a519d0e4574939c4e438924b8a1edd7fbed87cc5
--- /dev/null
+++ b/packages/colliderfourvec.wl
@@ -0,0 +1,73 @@
+(* ::Package:: *)
+
+BeginPackage["colliderfourvec`"]
+
+  
+  Print["colliderfourvec by J.G. Reyes v1. May 2019"]  
+  
+  ek1::usage = "ind. polarization vector" 
+  ek2::usage = "ind. polarization vector"
+  ek3::usage = "ind. polarization vector and longitudinal helicity  eigenvector"
+  ek1c::usage = "ek1 in collider coordinates"
+  ek2c::usage = "ek2 in collider coordinates"
+  ek3c::usage = "ek3 in collider coordinates"
+  ekT::usage = "transverse helicity eigenvector"
+  ekTstar::usage = "c.c. transverse helicity eigenvector"
+  ekTc::usage = "ekT in collider coordinates"
+  ekTcstar::usage = "ekTstar in collider coordinates"
+  Epol::usage = "four vector using ekT/ekTstar/ek3"
+  Epolstar::usage = "four vector c.c. using ekT/ekTstar/ek3"
+  Epolc::usage = "Epol in collider coordinates"
+  Epolcstar::usage = "Epolstar in collider coordinates"
+  gmn::usage =  "metric tensor"
+  Gmn::usage = "metric tensor elements"
+  MyPair::usage = "contracts two four vectors"
+  Cov4::usage = "covariant form for a four vector"
+  vec4::usage = "four vector"
+  vec4M::usage = "massive four vector"
+  vec4c::usage = "four vector in collider coordinates"
+  vec4Mc::usage = "massive four vector in collider coordinates"
+  Begin["Private`"]
+  (*pT = p*Sin[\[Theta]];
+  EnT = En*Sin[\[Theta]];
+  mT = Sqrt[m^2+px^2+py^2]
+  y = (1/2)*((E+ppara)/(E-ppara))
+  En = (1/2)*(e^y)*(m^2+p^2perp)
+  Eta = -log[Tan[\[Theta]/2]];
+  \[Theta]=2ArcTan[E^\[Eta]];*)
+  
+
+  ek1[k_,\[Theta]_,\[Phi]_]:= (1/(k *(k Sin[\[Theta]])))*{0,k^2 Sin[\[Theta]]Cos[\[Phi]]Cos[\[Theta]],k^2 Sin[\[Theta]]Sin[\[Phi]]Cos[\[Theta]], -k^2 Sin[\[Theta]]^2};
+  ek2[k_,\[Theta]_,\[Phi]_]:= (1/(k Sin[\[Theta]]))*{0,-k Sin[\[Theta]]Sin[\[Phi]],k Sin[\[Theta]]Cos[\[Phi]],0};
+  ek3[m_,k_,\[Theta]_,\[Phi]_]:= (Sqrt[k^2+m^2]/(m*k))*{k^2/Sqrt[k^2+m^2],k Sin[\[Theta]] Cos[\[Phi]],k Sin[\[Theta]] Sin[\[Phi]],k Cos[\[Theta]]};
+  
+  ek1c[pT_,\[Eta]_,\[Phi]_]:=(1/(pT Cosh[\[Eta]] *pT)){0,pT^2 Cos[\[Phi]]Sinh[\[Eta]],pT^2 Sin[\[Phi]]Sinh[\[Eta]], -pT^2};
+  ek2c[pT_,\[Eta]_,\[Phi]_]:=(1/pT){0,-pT Sin[\[Phi]],pT Cos[\[Phi]],0};
+  ek3c[m_,pT_,\[Eta]_,\[Phi]_]:=(Sqrt[pT^2+(pT*Sinh[\[Eta]])^2+m^2]/(m*(pT Cosh[\[Eta]])))*{(pT Cosh[\[Eta]])^2/Sqrt[pT^2+(pT*Sinh[\[Eta]])^2+m^2],pT Cos[\[Phi]],pT Sin[\[Phi]],pT Sinh[\[Eta]]};
+  
+  ekT[l_,k_,\[Theta]_,\[Phi]_]:=Sqrt[1/2]*(-l*ek1[k,\[Theta],\[Phi]]-I*ek2[k,\[Theta],\[Phi]]);
+  ekTstar[l_,k_,\[Theta]_,\[Phi]_]:= Sqrt[1/2]*(-l*ek1[k,\[Theta],\[Phi]]+I*ek2[k,\[Theta],\[Phi]]);
+  
+  ekTc[l_,pT_,\[Eta]_,\[Phi]_]:=Sqrt[1/2]*(-l*ek1c[pT,\[Eta],\[Phi]]-I*ek2c[pT,\[Eta],\[Phi]]);
+  ekTcstar[l_,pT_,\[Eta]_,\[Phi]_]:= Sqrt[1/2]*(-l*ek1c[pT,\[Eta],\[Phi]]+I*ek2c[pT,\[Eta],\[Phi]]);
+  
+  Epol[m_,k_,\[Theta]_,\[Phi]_,l_]:=Module[{m1=m,k1=k,t1=\[Theta],p1=\[Phi],l1=l},Switch[l1,0,ek3[m1,k1,t1,p1],1,ekT[1,k1,t1,p1],-1,ekT[-1,k1,t1,p1], _,Message["Polarization Does not exist"]]];
+  Epolstar[m_,k_,\[Theta]_,\[Phi]_,l_]:=Module[{m1=m,k1=k,t1=\[Theta],p1=\[Phi],l1=l},Switch[l1,0,ek3[m1,k1,t1,p1],1,ekTstar[1,k1,t1,p1],-1,ekTstar[-1,k1,t1,p1], _,Message["Polarization Does not exist"]]];
+  
+  Epolc[m_,pT_,\[Eta]_,\[Phi]_,l_]:=Module[{m1=m,pT1=pT,e1=\[Eta],p1=\[Phi],l1=l},Switch[l1,0,ek3c[m1,pT1,e1,p1],1,ekTc[1,pT1,e1,p1],-1,ekTc[-1,pT1,e1,p1], _,Message["Polarization Does not exist"]]];
+  Epolcstar[m_,pT_,\[Eta]_,\[Phi]_,l_]:=Module[{m1=m,pT1=pT,e1=\[Eta],p1=\[Phi],l1=l},Switch[l1,0,ek3c[m1,pT1,e1,p1],1,ekTcstar[1,pT1,e1,p1],-1,ekTcstar[-1,pT1,e1,p1], _,Message["Polarization Does not exist"]]];
+  
+  gmn={{1,0,0,0},{0,-1,0,0},{0,0,-1,0},{0,0,0,-1}};
+  Gmn[m_,n_]:=Module[{m1=m,n1=n},gmn[[m1,n1]]];
+  MyPair[k1_,k2_]:=Module[{p1=k1,p2=k2,x1,x2,x},x1=p1[[All]];x2=p2[[All]];x=Simplify[Sum[Gmn[i,i]x1[[i]] x2[[i]],{i,1,4}]];x];
+  Cov4[p1_]:=Module[{k1=p1,x=p1},Do[x[[n]]=Gmn[n,n]k1[[n]],{n,1,4}];x];
+  vec4[k_,\[Theta]_,\[Phi]_]:=Module[{},{k,k Sin[\[Theta]] Cos[\[Phi]],k Sin[\[Theta]] Sin[\[Phi]],k Cos[\[Theta]]}];
+  vec4M[m_,k_,\[Theta]_,\[Phi]_]:=Module[{},{Sqrt[k^2 + m^2],k Sin[\[Theta]] Cos[\[Phi]],k Sin[\[Theta]] Sin[\[Phi]],k Cos[\[Theta]]}];
+  vec4c[pT_,\[Eta]_,\[Phi]_]:=Module[{},{pT Cosh[\[Eta]],pT Cos[\[Phi]],pT Sin[\[Phi]],pT Sinh[\[Eta]]}];
+  vec4Mc[m_,pT_,\[Eta]_,\[Phi]_]:=Module[{},{Sqrt[m^2+(pT Cosh[\[Eta]])^2],pT Cos[\[Phi]],pT Sin[\[Phi]],pT Sinh[\[Eta]]}];
+  
+
+
+End[]
+
+EndPackage[]
diff --git a/packages/helicityvec.wl b/packages/helicityvec.wl
new file mode 100644
index 0000000000000000000000000000000000000000..0dddd7555eaab2b11ed97c3667ade99658eebca6
--- /dev/null
+++ b/packages/helicityvec.wl
@@ -0,0 +1,89 @@
+(* ::Package:: *)
+
+BeginPackage["helicityvec`"]
+
+  
+  Print["helicityvec by J.G. Reyes v1. August 2019"]  
+  ek1Euc::usage = "ind. polarization vector in Euclidean coordinates" 
+  ek2Euc::usage = "ind. polarization vector in Euclidean coordinates"
+  ek3Euc::usage = "ind. polarization vector and longitudinal helicity  eigenvector in Euclidean coordinates"
+  ek1::usage = "ind. polarization vector" 
+  ek2::usage = "ind. polarization vector"
+  ek3::usage = "ind. polarization vector and longitudinal helicity  eigenvector"
+  ek1c::usage = "ek1 in collider coordinates"
+  ek2c::usage = "ek2 in collider coordinates"
+  ek3c::usage = "ek3 in collider coordinates"
+  ekT::usage = "transverse helicity eigenvector"
+  ekTstar::usage = "c.c. transverse helicity eigenvector"
+  ekTEuc::usage = "transverse helicity eigenvector in Euclidean coordinates"
+  ekTstarEuc::usage = "c.c. transverse helicity eigenvector in Euclidean coordinates"
+  ekTc::usage = "ekT in collider coordinates"
+  ekTcstar::usage = "ekTstar in collider coordinates"
+  Epol::usage = "four vector using ekT/ekTstar/ek3"
+  Epolstar::usage = "four vector c.c. using ekT/ekTstar/ek3"
+  Epolc::usage = "Epol in collider coordinates"
+  Epolcstar::usage = "Epolstar in collider coordinates"
+  EpolEuc::usage = "Epol in Euclidean coordinates"
+  EpolstarEuc::usage = "Epolstar in Euclidean coordinates"
+  gmn::usage =  "metric tensor"
+  Gmn::usage = "metric tensor elements"
+  MyPair::usage = "contracts two four vectors"
+  Cov4::usage = "covariant form for a four vector"
+  vec4::usage = "four vector"
+  vec4M::usage = "massive four vector"
+  vec4c::usage = "four vector in collider coordinates"
+  vec4Mc::usage = "massive four vector in collider coordinates"
+  Begin["Private`"]
+  (*pT = p*Sin[\[Theta]];
+  EnT = En*Sin[\[Theta]];
+  mT = Sqrt[m^2+px^2+py^2]
+  y = (1/2)*((E+ppara)/(E-ppara))
+  En = (1/2)*(e^y)*(m^2+p^2perp)
+  Eta = -log[Tan[\[Theta]/2]];
+  \[Theta]=2ArcTan[E^\[Eta]];*)
+  
+
+  ek1Euc[kx_,ky_,kz_]:= Module[{magk=Sqrt[kx^2+ky^2+kz^2],kT=Sqrt[kx^2+ky^2]},(1/(magk *(kT)))*{0,kx*kz,ky*kz,-kT^2}];
+  ek2Euc[kx_,ky_,kz_]:= Module[{kT=Sqrt[kx^2+ky^2]},(1/kT)*{0,-ky,kx,0}];
+  ek3Euc[m_,kx_,ky_,kz_]:= Module[{E=Sqrt[m^2+kx^2+ky^2+kz^2],magk=Sqrt[kx^2+ky^2]},(E/(m*magk))*{magk^2/E,kx,ky,kz}];
+  
+  ek1[k_,\[Theta]_,\[Phi]_]:= (1/(k *(k Sin[\[Theta]])))*{0,k^2 Sin[\[Theta]]Cos[\[Phi]]Cos[\[Theta]],k^2 Sin[\[Theta]]Sin[\[Phi]]Cos[\[Theta]], -k^2 Sin[\[Theta]]^2};
+  ek2[k_,\[Theta]_,\[Phi]_]:= (1/(k Sin[\[Theta]]))*{0,-k Sin[\[Theta]]Sin[\[Phi]],k Sin[\[Theta]]Cos[\[Phi]],0};
+  ek3[m_,k_,\[Theta]_,\[Phi]_]:= (Sqrt[k^2+m^2]/(m*k))*{k^2/Sqrt[k^2+m^2],k Sin[\[Theta]] Cos[\[Phi]],k Sin[\[Theta]] Sin[\[Phi]],k Cos[\[Theta]]};
+  
+  ek1c[pT_,\[Eta]_,\[Phi]_]:=(1/(pT Cosh[\[Eta]] *pT)){0,pT^2 Cos[\[Phi]]Sinh[\[Eta]],pT^2 Sin[\[Phi]]Sinh[\[Eta]], -pT^2};
+  ek2c[pT_,\[Eta]_,\[Phi]_]:=(1/pT){0,-pT Sin[\[Phi]],pT Cos[\[Phi]],0};
+  ek3c[m_,pT_,\[Eta]_,\[Phi]_]:=(Sqrt[pT^2+(pT*Sinh[\[Eta]])^2+m^2]/(m*(pT Cosh[\[Eta]])))*{(pT Cosh[\[Eta]])^2/Sqrt[pT^2+(pT*Sinh[\[Eta]])^2+m^2],pT Cos[\[Phi]],pT Sin[\[Phi]],pT Sinh[\[Eta]]};
+  
+  ekT[l_,k_,\[Theta]_,\[Phi]_]:=Sqrt[1/2]*(-l*ek1[k,\[Theta],\[Phi]]-I*ek2[k,\[Theta],\[Phi]]);
+  ekTstar[l_,k_,\[Theta]_,\[Phi]_]:= Sqrt[1/2]*(-l*ek1[k,\[Theta],\[Phi]]+I*ek2[k,\[Theta],\[Phi]]);
+  
+  ekTc[l_,pT_,\[Eta]_,\[Phi]_]:=Sqrt[1/2]*(-l*ek1c[pT,\[Eta],\[Phi]]-I*ek2c[pT,\[Eta],\[Phi]]);
+  ekTcstar[l_,pT_,\[Eta]_,\[Phi]_]:= Sqrt[1/2]*(-l*ek1c[pT,\[Eta],\[Phi]]+I*ek2c[pT,\[Eta],\[Phi]]);
+  
+  ekTEuc[l_,kx_,ky_,kz_]:=Sqrt[1/2]*(-l*ek1Euc[kx,ky,kz]-I*ek2Euc[kx,ky,kz]);
+  ekTstarEuc[l_,kx_,ky_,kz_]:= Sqrt[1/2]*(-l*ek1Euc[kx,ky,kz]+I*ek2Euc[kx,ky,kz]);
+  
+  Epol[m_,k_,\[Theta]_,\[Phi]_,l_]:=Module[{m1=m,k1=k,t1=\[Theta],p1=\[Phi],l1=l},Switch[l1,0,ek3[m1,k1,t1,p1],1,ekT[1,k1,t1,p1],-1,ekT[-1,k1,t1,p1], _,Message["Polarization Does not exist"]]];
+  Epolstar[m_,k_,\[Theta]_,\[Phi]_,l_]:=Module[{m1=m,k1=k,t1=\[Theta],p1=\[Phi],l1=l},Switch[l1,0,ek3[m1,k1,t1,p1],1,ekTstar[1,k1,t1,p1],-1,ekTstar[-1,k1,t1,p1], _,Message["Polarization Does not exist"]]];
+  
+  EpolEuc[m_,kx_,ky_,kz_,l_]:=Module[{M=m,kX=kx,kY=ky,kZ=kz,l1=l},Switch[l1,0,ek3Euc[M,kX,kY,kZ],1,ekTEuc[1,kX,kY,kZ],-1,ekTEuc[-1,kX,kY,kZ], _,Message["Polarization Does not exist"]]];
+  EpolstarEuc[m_,kx_,ky_,kz_,l_]:=Module[{M=m,kX=kx,kY=ky,kZ=kz,l1=l},Switch[l1,0,ek3Euc[M,kX,kY,kZ],1,ekTstarEuc[1,kX,kY,kZ],-1,ekTstarEuc[-1,kX,kY,kZ], _,Message["Polarization Does not exist"]]];
+  
+  Epolc[m_,pT_,\[Eta]_,\[Phi]_,l_]:=Module[{m1=m,pT1=pT,e1=\[Eta],p1=\[Phi],l1=l},Switch[l1,0,ek3c[m1,pT1,e1,p1],1,ekTc[1,pT1,e1,p1],-1,ekTc[-1,pT1,e1,p1], _,Message["Polarization Does not exist"]]];
+  Epolcstar[m_,pT_,\[Eta]_,\[Phi]_,l_]:=Module[{m1=m,pT1=pT,e1=\[Eta],p1=\[Phi],l1=l},Switch[l1,0,ek3c[m1,pT1,e1,p1],1,ekTcstar[1,pT1,e1,p1],-1,ekTcstar[-1,pT1,e1,p1], _,Message["Polarization Does not exist"]]];
+  
+  gmn={{1,0,0,0},{0,-1,0,0},{0,0,-1,0},{0,0,0,-1}};
+  Gmn[m_,n_]:=Module[{m1=m,n1=n},gmn[[m1,n1]]];
+  MyPair[k1_,k2_]:=Module[{p1=k1,p2=k2,x1,x2,x},x1=p1[[All]];x2=p2[[All]];x=Simplify[Sum[Gmn[i,i]x1[[i]] x2[[i]],{i,1,4}]];x];
+  Cov4[p1_]:=Module[{k1=p1,x=p1},Do[x[[n]]=Gmn[n,n]k1[[n]],{n,1,4}];x];
+  vec4[k_,\[Theta]_,\[Phi]_]:=Module[{},{k,k Sin[\[Theta]] Cos[\[Phi]],k Sin[\[Theta]] Sin[\[Phi]],k Cos[\[Theta]]}];
+  vec4M[m_,k_,\[Theta]_,\[Phi]_]:=Module[{},{Sqrt[k^2 + m^2],k Sin[\[Theta]] Cos[\[Phi]],k Sin[\[Theta]] Sin[\[Phi]],k Cos[\[Theta]]}];
+  vec4c[pT_,\[Eta]_,\[Phi]_]:=Module[{},{pT Cosh[\[Eta]],pT Cos[\[Phi]],pT Sin[\[Phi]],pT Sinh[\[Eta]]}];
+  vec4Mc[m_,pT_,\[Eta]_,\[Phi]_]:=Module[{},{Sqrt[m^2+(pT Cosh[\[Eta]])^2],pT Cos[\[Phi]],pT Sin[\[Phi]],pT Sinh[\[Eta]]}];
+  
+
+
+End[]
+
+EndPackage[]