From 9a3771c53a308cfe7d3e1548e4d596c0c57c8829 Mon Sep 17 00:00:00 2001
From: "Reyesrivera, Jose" <reyesriv@msu.edu>
Date: Wed, 9 Oct 2019 14:19:14 -0400
Subject: [PATCH] add packages directory
---
packages/FA2X.m | 31 +
packages/X/.DS_Store | Bin 0 -> 10244 bytes
packages/X/Common.m | 1767 +++
packages/X/Dirac.m | 1058 ++
packages/X/Documentation/.DS_Store | Bin 0 -> 8196 bytes
packages/X/Documentation/English/.DS_Store | Bin 0 -> 10244 bytes
.../Documentation/English/Guides/PackageX.nb | 3333 +++++
.../English/Guides/SpecialFunctions.nb | 473 +
packages/X/Documentation/English/Index/_6.cfs | Bin 0 -> 736477 bytes
.../Documentation/English/Index/segments.gen | Bin 0 -> 20 bytes
.../X/Documentation/English/Index/segments_f | Bin 0 -> 41 bytes
.../ReferencePages/Symbols/C0Expand.nb | 2117 ++++
.../ReferencePages/Symbols/ContinuedDiLog.nb | 1655 +++
.../ReferencePages/Symbols/Contract.nb | 3598 ++++++
.../ReferencePages/Symbols/D0Expand.nb | 2019 +++
.../English/ReferencePages/Symbols/DiLog.nb | 1331 ++
.../English/ReferencePages/Symbols/Dim.nb | 1000 ++
.../English/ReferencePages/Symbols/Dirac1.nb | 974 ++
.../English/ReferencePages/Symbols/DiracG.nb | 1371 ++
.../English/ReferencePages/Symbols/DiracG5.nb | 1673 +++
.../ReferencePages/Symbols/DiracMatrix.nb | 3072 +++++
.../English/ReferencePages/Symbols/DiracPL.nb | 1093 ++
.../English/ReferencePages/Symbols/DiracPR.nb | 1092 ++
.../English/ReferencePages/Symbols/DiracS.nb | 1337 ++
.../English/ReferencePages/Symbols/DiscB.nb | 1816 +++
.../ReferencePages/Symbols/DiscExpand.nb | 630 +
.../ReferencePages/Symbols/Discontinuity.nb | 2888 +++++
.../English/ReferencePages/Symbols/Eps.nb | 1295 ++
.../ReferencePages/Symbols/FermionLine.nb | 3799 ++++++
.../Symbols/FermionLineExpand.nb | 3045 +++++
.../Symbols/FermionLineProduct.nb | 1088 ++
.../ReferencePages/Symbols/KallenExpand.nb | 569 +
.../ReferencePages/Symbols/KallenLambda.nb | 910 ++
.../ReferencePages/Symbols/KibbleExpand.nb | 586 +
.../ReferencePages/Symbols/KibblePhi.nb | 1492 +++
.../English/ReferencePages/Symbols/LDot.nb | 1878 +++
.../ReferencePages/Symbols/LScalarQ.nb | 1040 ++
.../English/ReferencePages/Symbols/LTensor.nb | 1649 +++
.../ReferencePages/Symbols/LeviCivitaE.nb | 1223 ++
.../English/ReferencePages/Symbols/Ln.nb | 1193 ++
.../ReferencePages/Symbols/Longitudinal.nb | 1283 ++
.../ReferencePages/Symbols/LoopIntegrate.nb | 10522 ++++++++++++++++
.../ReferencePages/Symbols/LoopRefine.nb | 7833 ++++++++++++
.../Symbols/LoopRefineSeries.nb | 3844 ++++++
.../Symbols/MandelstamRelations.nb | 2586 ++++
.../English/ReferencePages/Symbols/MetricG.nb | 855 ++
.../English/ReferencePages/Symbols/Mu.nb | 1325 ++
.../English/ReferencePages/Symbols/PVA.nb | 1304 ++
.../English/ReferencePages/Symbols/PVB.nb | 1694 +++
.../English/ReferencePages/Symbols/PVC.nb | 2244 ++++
.../English/ReferencePages/Symbols/PVD.nb | 2648 ++++
.../English/ReferencePages/Symbols/PVX.nb | 1262 ++
.../ReferencePages/Symbols/Projector.nb | 8122 ++++++++++++
.../ReferencePages/Symbols/ScalarC0.nb | 2801 ++++
.../ReferencePages/Symbols/ScalarC0IR6.nb | 1949 +++
.../ReferencePages/Symbols/ScalarD0.nb | 3410 +++++
.../ReferencePages/Symbols/ScalarD0IR12.nb | 1316 ++
.../ReferencePages/Symbols/ScalarD0IR13.nb | 1774 +++
.../ReferencePages/Symbols/ScalarD0IR16.nb | 1502 +++
.../English/ReferencePages/Symbols/Spur.nb | 4425 +++++++
.../ReferencePages/Symbols/Transverse.nb | 1386 ++
.../X/Documentation/English/SpellIndex/_i.cfs | Bin 0 -> 611643 bytes
.../English/SpellIndex/segments.gen | Bin 0 -> 20 bytes
.../English/SpellIndex/segments_13 | Bin 0 -> 41 bytes
.../English/TextSearchIndex/_0.cfe | Bin 0 -> 363 bytes
.../English/TextSearchIndex/_0.cfs | Bin 0 -> 206321 bytes
.../English/TextSearchIndex/_0.si | Bin 0 -> 365 bytes
.../English/TextSearchIndex/fields.wl | 455 +
.../English/TextSearchIndex/indexMetadata.wl | 62 +
.../English/TextSearchIndex/segments_2 | Bin 0 -> 136 bytes
.../English/TextSearchIndex/write.lock | 0
.../English/Tutorials/AdlersMethod.nb | 7700 +++++++++++
.../English/Tutorials/ArgumentsOfScalarD.nb | 1874 +++
.../English/Tutorials/LinkingToCOLLIER.nb | 1136 ++
.../English/Tutorials/LinkingToFeynCalc.nb | 2240 ++++
.../English/Tutorials/LinkingToLoopTools.nb | 1343 ++
.../English/Tutorials/MuToEGamma.nb | 7175 +++++++++++
.../Tutorials/PairAnnihilationUnitarity.nb | 4500 +++++++
.../Tutorials/ScatteringLightByLight.nb | 7090 +++++++++++
packages/X/Kernel/init.m | 32 +
packages/X/Lorentz.m | 933 ++
packages/X/OneLoop.m | 5252 ++++++++
packages/X/PacletInfo.m | 22 +
packages/colliderfourvec.wl | 73 +
packages/helicityvec.wl | 89 +
85 files changed, 158156 insertions(+)
create mode 100644 packages/FA2X.m
create mode 100644 packages/X/.DS_Store
create mode 100644 packages/X/Common.m
create mode 100644 packages/X/Dirac.m
create mode 100644 packages/X/Documentation/.DS_Store
create mode 100644 packages/X/Documentation/English/.DS_Store
create mode 100644 packages/X/Documentation/English/Guides/PackageX.nb
create mode 100644 packages/X/Documentation/English/Guides/SpecialFunctions.nb
create mode 100644 packages/X/Documentation/English/Index/_6.cfs
create mode 100644 packages/X/Documentation/English/Index/segments.gen
create mode 100644 packages/X/Documentation/English/Index/segments_f
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/C0Expand.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/ContinuedDiLog.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Contract.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/D0Expand.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/DiLog.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Dim.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Dirac1.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/DiracG.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/DiracG5.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/DiracMatrix.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/DiracPL.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/DiracPR.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/DiracS.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/DiscB.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/DiscExpand.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Discontinuity.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Eps.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/FermionLine.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/FermionLineExpand.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/FermionLineProduct.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/KallenExpand.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/KallenLambda.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/KibbleExpand.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/KibblePhi.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/LDot.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/LScalarQ.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/LTensor.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/LeviCivitaE.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Ln.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Longitudinal.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/LoopIntegrate.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/LoopRefine.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/LoopRefineSeries.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/MandelstamRelations.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/MetricG.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Mu.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/PVA.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/PVB.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/PVC.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/PVD.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/PVX.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Projector.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/ScalarC0.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/ScalarC0IR6.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR12.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR13.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/ScalarD0IR16.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Spur.nb
create mode 100644 packages/X/Documentation/English/ReferencePages/Symbols/Transverse.nb
create mode 100644 packages/X/Documentation/English/SpellIndex/_i.cfs
create mode 100644 packages/X/Documentation/English/SpellIndex/segments.gen
create mode 100644 packages/X/Documentation/English/SpellIndex/segments_13
create mode 100644 packages/X/Documentation/English/TextSearchIndex/_0.cfe
create mode 100644 packages/X/Documentation/English/TextSearchIndex/_0.cfs
create mode 100644 packages/X/Documentation/English/TextSearchIndex/_0.si
create mode 100644 packages/X/Documentation/English/TextSearchIndex/fields.wl
create mode 100644 packages/X/Documentation/English/TextSearchIndex/indexMetadata.wl
create mode 100644 packages/X/Documentation/English/TextSearchIndex/segments_2
create mode 100644 packages/X/Documentation/English/TextSearchIndex/write.lock
create mode 100644 packages/X/Documentation/English/Tutorials/AdlersMethod.nb
create mode 100644 packages/X/Documentation/English/Tutorials/ArgumentsOfScalarD.nb
create mode 100644 packages/X/Documentation/English/Tutorials/LinkingToCOLLIER.nb
create mode 100644 packages/X/Documentation/English/Tutorials/LinkingToFeynCalc.nb
create mode 100644 packages/X/Documentation/English/Tutorials/LinkingToLoopTools.nb
create mode 100644 packages/X/Documentation/English/Tutorials/MuToEGamma.nb
create mode 100644 packages/X/Documentation/English/Tutorials/PairAnnihilationUnitarity.nb
create mode 100644 packages/X/Documentation/English/Tutorials/ScatteringLightByLight.nb
create mode 100644 packages/X/Kernel/init.m
create mode 100644 packages/X/Lorentz.m
create mode 100644 packages/X/OneLoop.m
create mode 100644 packages/X/PacletInfo.m
create mode 100644 packages/colliderfourvec.wl
create mode 100644 packages/helicityvec.wl
diff --git a/packages/FA2X.m b/packages/FA2X.m
new file mode 100644
index 00000000..63d5f7ae
--- /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
GIT binary patch
literal 10244
zcmeHMTWl0n7(V~@!c05RDYq`yU8qgLl+p{g27zsN5f)0?uq`bYDYH8RoiIDI?96VV
zrKH|Myzq!A>WeYPAU^nj81FI0gczenszxF{7!zMiG(k;_5BQ&RX3KULipCI0oU@tp
zpL72IKj+Lh-#=&0SwaYOWYlItf`kwOFDhjTvs)ypr&m$(xh?Zh0{RnT5tB5MWYn+{
zMb=(}hk%EGhk%EGhk%E`y?_9&*)$22Tza{OfQNvGz$60n{Sd^9%8)C^xMZ&m%-9wH
zWhpkZgk{_ZFrT0+L#`a-lDT4^eD?sZE4W(>;O?joQgf6cSB`PX-3f4a0`AD*?ofb@
zj($OAP9VgkmwO0!2oxhg_wE7-<IX*azr6i>+_2)Pqv5m>uN5~~!V)1fNQCGlO%#&I
z?e_Dm&lgzFL~9EzGuXd|=K~J<Ip~jL(Q|^Eo>24mJ>x@m%JsY)PZ_%HG&Ow<zLL_i
z@)?3qAymw)cqle#4aFSA$=DrAdOxjoE6!ltE%#WKF<DmPdvtARK%N`6Oh?g8EzO*D
zRYQ{leY&YyLmgJeRBhHzj4K2|6vP3!W@MyoO+&Dyb?s<FaHMT*Q$uiVYuo6kDAd$7
zZ;BpDo){iEIeKcGLWeIV_XS3(czrTIhoxz-QtgBh$2n8?Y0Qix&9Q`)OtEhJDwp5E
z+RlbKjK0@$Fka2UC{|QTGo|g(?K^f#1M=)FBGi>~bj!5&XlWbefLvuGs?mgHcBeI}
z?@L%lCTZFOa&<y65*b5rw06UY>BAbfRoRKOWf<L-t<!Gy_B+~fhw6${{rhYy?Sxrp
z{W|u~t>lcY?bfhUJ*!2qYg-2K!mOIb%j)i5y{2t*c%n+Ko-NIl=J#cFTaO!B?~txK
zgL@S_p_!^~9@&Qv&UEy{x|SBJ;SsUNRFWF=@-Of&669K;KNHuFWpwAn#B8~`YROW+
zbU?+Cc3CR*QsvhLk!hAM_51fzO*pM#t_lJlyxzZ3log@J#@pg84N{{h+hWgAWDy^#
zS!xwzRqQpCxMuLCb<zew-YNEFIkLQQqqIq=h6b@8A7~QiZL^WLg#7-4bmUIOcDhoU
ziL<(l!_)aja8`S%u3c5>oWxqj1I%heD|nI3tTxodYa#~!64HVp+DQ&!NRN;+WSqP}
zE|N>+4e}xRgiMgD<OlLI`Gs63zmh+|2PIGj<xmBFsDpY~0V|;eHp3POK@@gCC+vdV
zupbV<K^OoPl3+p#j=>O&!Nc$<JO)q0S$GD{!L#rpyb5o_yYL>o50~K!xB?UKC42`z
z!cXuUpP(-nF1vU=m&5N^nl29PtowrSoxKgSw{71R-Ej{y`<q#m&U5C@n_m;GTe+%b
z{R8cjOei406prT8l09usG)BN2!8q~#3l=U~yhIB0A~m(+g~5^wB6$WSp)j#%!9ssv
zdEh<)=_d24R3E4mF($aKKF}ZtvTuTR+qgO)$t4&GBCEEpkpglVl3rld4Q-Mnmts_K
z?WWDBEl2)yZATcjgvO`%FA4lHxkA22^8N_~DO(A1khIH?w5wn}61E*8uoWJJF6c(e
z#-Nu`R)IJi1p|p|!EqRdlQ0UW;50k|Pa$>BAa%!)y3fJ$@DjWX=iwE&02kpBya{h1
zncsnr;8P^>w*~a=%n_GMxHdg~lU5|6W*j_4|Eh7>RXcJgYxN&krv~$ui2l#%gr*6k
zY%FaWmU#rNXegGGow$mpaUIu)QLuhLj{5xXgekW9>(>;;logAVJy|$N9u(_3uif~d
zSU-95x71I$UB0^z@oi_}P4Lf=;o^@NxL$B8BI#ncO#Lj9D)#Ux1s)RVW*<lfj^dCg
zdLKql_s@}=A3eU$3jDC@B@Y1)0S^HW0S|$@i9iYOJV?*~x8DB$|GPN_uWt_l4}t#}
z0Vs{cA{{u1++MqIKJ=_Th}R*!XrgvwTrwBTs0nRn$MIO9$MNjM0o&ZO2Br_Wc4J&J
ccl2ZKDEVprUH>zHoospge{cW)|K0!p1?qcBYXATM
literal 0
HcmV?d00001
diff --git a/packages/X/Common.m b/packages/X/Common.m
new file mode 100644
index 00000000..baab25de
--- /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 00000000..53cb7ef6
--- /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$+ywXDTB2VQsg6L*#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<M3>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>mcg4RQqy_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>mcg4RQqy_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
GIT binary patch
literal 8196
zcmeHMU2GLa6rS(4h23_cTR?mHy%%azFa=5rLW98VpHL{F;kLB=NZEULr5m=p<?h}V
zC?z$T7=t`wiuz)VF^Ug9fIso?!I%(Ze2^NV5g&Zv#l#nX<Aa`=*;}F4J`fXwVJDgS
zX6DQ}Gw19#yFIszF|_8*4UEMZV+vJ{dIdHAP`I4eq7n;d$_PRFjM>a*gPo3-%{WD?
zqlqX2Q3Rq0L=lK05Jli#hyZ=Fc~NHh?n`OZMiGc2a9>7%zaNrRIi^CKkSJaq)QA*-
zu#~1np+4mSLMItwD#QtiLX~XF>;a)F!W08io#aWroG=yQghZ*%Ak`Vdoe^dz5WACJ
zQY>dkNsQVk0#O8tBfxX_xvYb^>^O67&)>ZaN%&>jN_F+0qEN4Bb!OBb&NyQAwal<%
z`$0p)4a7=H%jV2glyaqfUistcL2oo27(w1|HFAgfsM`nzGhx5S^PK6vkvU*nqXYV)
zHqQ+V+qH5+*)}a&a-`38O>eZ-%e$s8?4+eYQB*}8(5uJBnm5)b8=E$b*C)rCH#O8J
zH#IenkE=>`?S^fg$A(Uy89O_EZc_Nc5WY%Sr5sPUmx{e~{E;^4W$dkjm){h;RLd*0
zdD^bdUAy;a1Nwpya$w(ZV0*5Az{>fA1A3)TPIqQKw>xKXd0*CZ@<XmapjTxLC!2SS
zz-n=vw0*{+xk^8q^Bkw!^KEYCV1Hnp3b?FD)PKnLazUFg)^C%2xk}Ib)_#kO+9Osw
znf7(4m*-b6TUq<?`i;%o+ome@ss#%dY1$!*pBvau*jBE0)HZ{`gNC2AT+?=s_l?-T
zopG!l*BG*@;H&D?0==p-zBs;A(QB0ce8xVRw}aEd*76l`?TAS`?e$D<&D5_ds*tQ&
z5sx3{lD3>ht*I!&j8+$4qw0pz<C9x*re0g8>b}}@f*!KmYJ=9K=%(817#YivQ;%p{
z6n&4{HzFe|C%0<blq%G#{aJ5li2U)z&O1`^_))%dm*EHdhAo#)b&a;?zPHn<4suzG
zY4S6vHHD{NlUgmi;$$_c202pc`?Q=jvUb+Rj<FmYV;9&YdzoEfZ?kvUC+u@}gWY7e
z*pKWd_AC31{f-z)P=-0EL>#rK!)mNSBer7)Qs~5PbYU;{<1mikC<b6+2rh<k5~G;F
zlXwbG<2hW!^SFc;@Cx3<`}hza;bUCGm$;58e1-3D3qRmzdB9kK&3g-;NW?FMGj2Gs
zIlQy6i?gtK=dPWdyYFE(e?4DP_<;wjleKHsHg0~jW%}vQc<6WV@^&hUCoIV&NLL`0
zVEj~k@sg#>mTQS#qN8<cw%ei4<-}8_mM&frPpnEjq!7h)In?SB6)N2WDXUA=D~cWy
zX4kDxXnF~;Ulqfqjaou4Bcdx}xTRUs^isMBQo3zBN#_vfL#u6Chsv*`&i*B7KV#R~
z_e9t~z=)<5SV%-&Nkm<X%|y}`w4(!$VIR7QrfKvFni|O91RNr(hf_F%vlz!YJcDO(
zp6Ggk=sHPseGxC=RlJ7R@dhsA3a;W^yhjB70H5LuBJZ~|DBCrIvNww<JCe@1j^`dH
zNrC8hDn+BajzEdji1YlvWA@+w@7ivp5Je!0!2c%#C~Z%-x6*lMd$aOfJ4y8zRbKeI
x35i058j+3@igcWC`X7eWPtsDZlL~P{BF#|w&wmK``%ls6`yYM(1qbiP<}bKwGK2sC
literal 0
HcmV?d00001
diff --git a/packages/X/Documentation/English/.DS_Store b/packages/X/Documentation/English/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..1f12f992e09c9e195280dc361c28d30c6d152d22
GIT binary patch
literal 10244
zcmeHMTWl0n7(V~@!c04~Q>b>icA?gSDbNcD4YX|AMJSZeuq`bYX=itacEaq;vNPKj
zN=c0xW0XfsQ6DhI7{mu305#qo)Pxx0gH#DdeDH-A6HUCw2mQ~P-DYMxZB2}VWKMI=
zf9Cv`bN>JTX3m~dLI|{_<$6Lwgb)rZrJ{h1N1=RLXOuu@<Uyo>`h+ON?9hyOOfzCL
zr2PRu0)7Pi2>223Bj88iZioQx*|c!QHuYOS0)7Pi2uw$Sejh?uDGg`ngiYC}0~>Y(
zK$?%ktY9C{0Zb>9q2UajuqjhToA&7eGOCa{Vt}oV{16pK8qUxOo7(CGY;^*enIUsR
z0X948g_t;juuc8ekANS6nGv98_d>Fhq=`!8obx+<m9}DC^Cv4z*(DnrF_W3I{<T<A
zQ%$R`?gj+%@(T(Va9j~rw6N&W=#ViIwInNTwn?eO^r=g-hGLn1w_#}0eJOT8RYv;7
z@^(YFBvn^ZOj(r`6gkqX>asD?W~6o5WOkx9gX4IP?-wh^#+o+Ph8h|-jn{_8nl{zd
zhBh@ejgRwOMRk31$3Wubsj<`JXC|2!1TvoyQffa>x973v@=+VCkH(Eel1T(^MrQEM
z;dVO)fj6=-_$nI%zNlDODD3LkwR?}yFD@EJ_x2?%)zHlYO3FmqFP54Zl8(5cccm1{
z?~NN;I-#5WVp&|$;%QB?lvYiPs;3kjD>dUOL({qpQ>A7O_F2lPMR_w=eTPgVWwkS7
zeJa|wrNp$U>{rmJI;=#{v?&6Asib20s_KU}Y;0<2pDGp07A-CpghLoz-BORKN~&i>
zm93$Jk{MTYS=9%7hgDOJX-c;)C6qESd46h<SXLTb5?scKRa{>>rk+Tv)=6e-#mb;?
zM8=u+8Zxyei&r?FaaOMk1`ktCdrHAp<~U|Xs0ps+MTzS+(JgzVR#?xACf|J=Az)8c
zFEnzZ%=c(gOwsJ2hlMSixQFi@wj*l~ZWWrjGN|SIFog;9$7C~a4+n!s>CByyY3)lY
zI<D#(PEUQ0;HnN%UaKtAHStwhY*dBU*j=`=s&JkC#N*Djf;5l_=_CUrMaIZkGD%({
zm&sM~Ci#$jN^X!_<Tm-9{6u~wzmeY|0C`XVg-{AXsD>I?18boHT3|bbp#ye9C+vm&
za2SrjQRoL55}-p8PQVCEz+><@JOR(bId~4v!}IVmybkZcd+<Jd0N3DixDHeB1$+ay
z;XC-*USJ@L^}Sh7Yzn_1bz|Ke&b-fobF*N1=dPU{yYFHw-z>2KeBb>Qq3X5k8a8ih
zoz8tu%3Y{*0+Hp{h8BZd7E%oFQ^6%mmn~l*RQ4bkmC@PW4RHa59XGXX$<kou>dFT=
z1ej<)3N@9*JiY}sucoq=<HP_nyM9BZAm$<VdG^@2QK%FP5at|v+|ncnVm`hHHn+J2
zxrK=MjMa8w2Txx{k^Do*enPI3ZxOD406~xz!(xQ#Dun4e*o+Wug$V3`M_?axAxNXp
z!$2xQ432|_P&Hr_PQhsyhcoaLJPpqvSkEF@ClRbKz>Dw-yb2fLHMj(q;R?J3ZzFu)
zg^%GggznclfbGly?5$kDCX7f#PFrz8zT9?U0h4wCI$_9j@{>c(kNXeQfJ=Wkn$k5x
zAH;F`5*3gRqO)ys)N##Cx5<lGo!g{C@*dqJ9Ui*2$l~Uu?nrs$$f4_zAqUr$pW*>D
z?94$<c1p;8`~h<eYYMAQ;@EZ(i3}oj{#yd`1r=z?nXfr@UH&z%Do5Qp<vl!}M}7uM
z=ahFvrR4%HhZK=0Nur+`{>_3>coOBDK6~o8eC2yaXS40$qo+NO{Cdi{eBvi?TKs9&
zjUJ5>3w={Ck15RP(5&A5h#F4s=FxWfnHMXWe?EuD+b0|80_R(y!}q_b;fg}u1v&?h
zQAlG94D?^cC}_D@4oE2F^xQ+^9{mP+c<RdQ;*YL+N6?YW?7rb)%aOl1q+B^Gr<;LS
z&T_t0RLU=Y1ny`A^6c3|^!|Ux?EnA2qiggh_aop(;NOh^<VT{BHk>1SQII<wy=xC)
z9l%Npm7B0BQ^AH^$0KFe@%TWm<Jolyj@4nG73_y;2kC@Ov4`b9|7QTZ^6}6A-d9%s
T`G5K{Jm*)N<7E23KmY#)ZHgoQ
literal 0
HcmV?d00001
diff --git a/packages/X/Documentation/English/Guides/PackageX.nb b/packages/X/Documentation/English/Guides/PackageX.nb
new file mode 100644
index 00000000..5aa9f536
--- /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 00000000..a412cdfd
--- /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
GIT binary patch
literal 736477
zcmeFa3vgsvTIZ*G&OP^$H*db5N~Ka#N=l_3r7As2^-xxpx~59g(^A)T*Yu;hrn|bT
zrlysx%2KOTl9<J;4VVFj#lQf&uwDj3Y_NbA28dm=2G%x@C1ME-%!1e9*w|RZ!Y+0M
z#v68o4dIRT@4KmbbyrtccULn5_Dw1CzVEr`eBXDz*ZCi>ueW^8xqS4{XK!|UTUI*S
zytUoi{NZ1a&9`oSU9_nePDe*SbFg`IsJD4LIvP9mC$f3F)9GzK<@GjqqRrsgzm(0J
zx4Kz-r*r$d<?ifuyH{>~&a!V`|GL|jy|J}(+j4epU%9=z!@keGb=}gtw>p-6<I2r9
zWc7v>yZ&`ouHC-fxqaih<-B#}+KubCE%(~i&D+;+-nL9{e|+cm^=|k2XL?)yTUXw=
zesxQ3-8+#dd7tfYq1@lxxN`OSjXo2d&}aXOQVDxc`NkP`)mar+H;iNRW2-rph<&@I
z28=2>ww+aJ^$Dfa2~}1Fl~*~HRTK8_S;}+m@6+nL?ef6CH>IKfpe@@~9;cL)t8J~7
zr?p+MFDuWExptt8(#lb;`o~KBgi<fqT9xgz`ejS`s-|YuDQ=%q^IV-(8TM$le$+B{
zO8qr8skSrae{B^;e$2}Z{k*ww;knbQU+-MG;$MDE`B$!7yvXlW=c<nW^;LcO@>TDu
zeKme@=QXu+iIdg*d_wix+m|j~dQDyWw0d=r_qnRB$&bSds~oyCYpcWFs=Iovebrog
z%|3qKeVJ>Y^VCs0uaxVljBPDFXOb8E+QmzK#;I_zQAt;;1TU<V!&_5@4%K99!@AKb
zphkbhQdiWtwqv%ZmZM6lsYQN0UREltL?!r~S>RH|`B`;HB~&$2-pf}1woVQGrrNxz
z9H(U4v`Sv?Y&*7>h&i0^s84B6g`TR_+OM!So1t!OWe@XC7lW6T_RKN;GUajIS@+Ua
zHK<>-!(~SWJM|08oY%*bSz?aXhO+3G6B}0JQVe@oT2$LKm6q4@LgU%oe5mxFTBo#5
z>;2Bw#Zg_>I;M2?^2%64@5{nn%^oF5Hk6&Vbp~=$O7C%Sx1gT2_vdfw_Wb@W=agPn
zZ`3d7W!pE|A)_m<g1XM{tW-+gb1Sc_&M|dav(MK3I%z{yWnM;U+X*OL?nH5+`x-CW
zIz<z4^OQ2#w4X0H3EM56k5iY1i>NVYK<T&}*xs_z$Lw}Xsb#IqaLV!2t`w`)n$`*X
z+UsgB-aW;g`>EZWJ%806RIll_wdKVElTPpsSrgi}?Zu7i-`~^i_R8X({fcVomTnZJ
ziVnGsO(W=jWwl#<f&FEro>Fh9Z&j)+#3BFNG&j_;qC)i@7PVYc-)hm`F&>(P+|@BQ
z;7j!*M*Wnn{+Y!^uKJuktbS8gis}oNx(RVjt8cd8mDf~D&8WBFlz(f%Q5Drtf3DRp
zDD@jUIrzJ7YV3~^>Crz6KBbFp$zG-*t=E(Zu5w*mUkt-Rm7b(FZ9A^rS}mNj3lM>0
zv=dLL-TjrC1BcSI={;Sm7aM7_(z0#G$*Dm&oCc@vd8LczbUWEe==}>+wlW2{jJ=Sf
zqxYQkeFNLf>4XaX+K5W8thmQ(r}U^QC*T8KmB;H?oRewfTwNVjuFGD?g@bWNm@5?>
zOQ^=c&sY}+Rqd30%3fJ-oVNSzl6_h?PwC>gt-ORD)#EfmIi}lTJEUmGRKXvy2lXK2
zW0cQ(hK?JfaJ1Q_%a<=&+cBr#DY?pyJMP$3b!n{8Zs{;M-@fJ#(qd^d=<Q!yR_)`~
zhEDGJ;k83*wxHM7_xGS1<z7y{rq)lX4dbYK0TJbB_mocVdTK%I<hTQkDZii^SK9S4
z8)6KVE~#aEr#YcU)taiWuUl7^GZwrThES=_szKgW$Ed}M)C}da^+M_Pnmw+bHB^LQ
zuioFS)voVfFJ@G0ecah!FJHFoIL+W|--cOf9~jlvo^70xh+?58_8?Utc?1pXK6MVu
zJNAH_&i*<_e#$BrS96sgw&wFMIZ$C-AJfMj=<F58v*+7f@LaPTuFkY;^HlHHo*fnk
zRlo5x4PD7NzOs*{_u#@kyS=A7d(QTT+E6=V<>azzj%_H*et{R7RMR}35>4=5r6{~R
z|7|H>f|A;H2>-KabzYrOL(q;>lyax2Q%+66%qgVge?(183WacJS^c4<e&0&=|Afj`
z|0k6l{1fiiJhSELX#~&MDdi8^C+uT-+{wTwZ_(lHU)T@#^s@WhDc$yO*emBxDLA%0
zNIfQBSFg4=^vY3%1er%Joh+W;UpH<X@-dD^s4ML{W<pKq342*t1tgovg%ruejB=aG
z4jO$30p%L#tjg(zR}<Ry#-+FcM8Z3`%8BQ=mB?{Vy1^-=oT1+s&JX+zYpDNA)=MI<
zbKYx+8|k59dUZ7vIpe4~Jv?ad@7a5fRQLY=b8EV@rq=X0Ldyicr&G2QA|X6Pl{}3)
zqOWkZ(YCK<X3E!J8d2MC+1su4dcQi6xT%T_?yE=WT|!lOO}U7*o5sr~Op1nxhxBL~
zestm#mIiY@gLE<~4~sf#^~k_x_u8ImtxTvSrFliQn`4bKcZ+M!-*R{6Z>mc-ZO^``
z7oT;`*U#6pH+`?LWkqd_lAv^kf5?b?^FjI`>U-<*T^pEdZS`?78y|f6VApzy!P(T%
zOls&bJ!=~gO<h{@o-5}N`PMVKyrDvO)9-hyM{Vs-tHYWabNo15cCmvL)5xQuMrX(d
zjZXHZPFDMVJ4;7u0_oKD_t$J|JYHaxYMoGiH*NC1v>9zhJ(z?xwp4ahd>yClX-i=m
zI~Jo0(Zj_v&GnY=o}8g0^PpY?8GW?wPpEj@9ZK6NNDsEzg$CYhd3Y5`OWa@e4?ioq
zw+>*<!Rge{LTYGkL}mSSGVc#BW#wJm0UcM_3$|X|-`_JZ;GXK!S#wmEbVB%}|1%;u
z&=~gjU)PqrVYOeO1A0lREcuVaLUfz@Q1;}SYH%VQipi+7gTxa8XS1wVFGh9y3KBU#
z-(AnBd~t%q88xa8!A+gzMD~IS^4hJq#<=~|tgUw7Q*HPP?I2GRQ^}4W2_~*MsCnLx
zbx$NEqE&f~{4?2sRX-UTx<KB}Ez?@jv;9gx@(F1#3g=2?jk3Kc6{rmYw2#&?JkxbJ
zha*VpQ0@nzDBIXBdV$C@o;6)*Z`O5rk&TP`Ij!@_E%S=%S{=(0!I@mtTl1lgn*kN*
zj?KgUsFw4d6PPh`a_O{PY56BzecU7~q2F+=s`fl1PogY{DMb;C$OK-Le-u@R!ZeFZ
zYfdOtSbUZeLZHopu6B0z=&Z)|x>b!S&p2_^PRi>Abo7*#iwDh|v;ExggnFjYdYQ{)
z5rt;lE=t?Iza^E-rBbC-s`A|M*-^E=f!syndODaiIvEv?r?Ti1nPynYI(BkWS@l{?
z7gSx|QiQFi>C@wf4Ba|ni%xjBvAw?rJ6&^ErRM$N@&v7xO&ej-sc_{i3hbMFM%0K}
zGu2A6pw1(SoQyUFXSma+8;5iP=C$=M8f4q}6Uw-5V=FWUs?Qn(Ed;{ic|4Bh<RO7O
zQ(XKYCxnn=dL}>rVXn1YH-*BC`sC|`ONT{)_=xgGhws>Wws@>IWOAtcI#EL7fV?XU
zTExhO+J%>H#;iKJigFSd8=`_ClorbsIsxPy1`WMh^t${YhtRD#C62_87)FlJUq;oy
zm0}NZg<K?pE}hTU2l`*|bfv#!;_iS*e%I8qz9=X&x=)XlAQ+R9HusQuTYh15Tu+Q*
zS<pjaCh-)OTz1fQZG*0$QLDmKDdz0O{COT=>xS<Q7NEYA+DTq-jiUsmM-(jLhSK;L
zDtVpGcsXw0zEIoK^Vv$-YRv>A!GJo-8*Hc;?di`@T0Mr+#U-{?)H-e#;EHlt$DM+z
z#@yn1tJ_D5qqMocyQVtrg&>5DvRuatsQnw*lx}^`6pvG2ArbkYqfsB&M;eQxw@bO1
zIJLmWN~@U7H#2mWefoy(@>RCg4TS}#^>)WK`+hQ+g1r42UD0N9Kz02EZ%JDsg{a_<
zD_tF~$huBb+irtLx$dZbS<Fo7A-tGxA~_Y)-CZp4jH)1f5eX*e)`slFA?i{@;gP2C
z9lfC3Evz*}b&}GVxJjeph_rE#+lVXC<T$WYI=2y6#@{KXOBlgr3|t;&qc1(zUaGB7
z&5%&u?<9gZ)$XQPzc6r2RViDe=#DG?7E@~2gvl|~4b?<*qV_n$n7nj%I;ddnZFY0q
z)j=s0<q_RO+ePH5{-h8VttR5tdqxy3N~mHc;i%AtN^wNE?2DDs&?qmURep5f2dwOc
z_5vjl;XObf!tLb0QBaFUH?|e^zj;betvB)<KwoVH9FNoxPW#9gDT^!-J7EhB4yJ~N
z_^W5Bh;RTY?wXC*ZZk*u<Mb%fxUTNT?9M6OJgvgjViq05Nhzcmtw-;B9@Q^?TYXGk
z3`VQ*1g9w~1Wo0p;B+hp?ZDsMQM3$UBWXo7V?RajQmcHAmCq=BTKC8&fCf}X+g?Gr
zl>s}OU#5x`dT(^8MymRB>-Za_H{&5QDD?&lL19Y3Pc%_<q7P?L2;1%-C@qu+e#ojF
z#dMc`7S8bU!v*Ad^m5J%)ny1_l6LRMqCwuY-?X=1sCFh)kfYFp+FwMGP-Cq*&R?+S
zZ(%Z_R~gQX`V4d^9k`*JvgtWo?V^>Skw=A4YA#i+K?ghl?VYmWN?{!uwDqA(ZPsk)
za18?9(@j4d@jY`m)^XqP6KcFXp<KUse!V)P+#F(3`b=4LhIceP#+~s~n2Xhpso&CT
zY8Yaq!VvHxDVuceZnsspp6=XIi_3NzZyU7(r8#0zI%<PTb};sDxwrgVj+j%ooG$9P
z_Fdaf(~m262%SDK$31lf65pYwi^wajhNtP!2c&svR^bh|PbUHkXUM2R$wyqo<scur
zHR%KwO6U6Q42==!v@{|=zT^0{K8Q%nFV{)LlER&I5h-1AOwgxOi0o(8xL@%5bdFcg
zaA9y5ddtvdKWq1CFGExMXj#M3Ilz2_e8bmX0)Iog6budibE}VjTX{mI1)BU57<I=G
zvRW_FBeN7y&a}SaG!|*W5&L<y+b4x~xREz4HkO-9s0<Q@f>Cd@9fzHkNFaNlS@{-g
z1M5lY0o-uXd$`bSf6?(O1Hp*ee@(rvU*l!ldi4x`nC__V$M+?@nKY1tSioemcMlA7
zZl0z3a6sX6>lx_0aAcu>-fCG`xfsI1l-{N^^p63~FVWt4x=2r1pef{y_9u(eJ2(mA
zYADR&VX0Sdnl-2Qp+CV(K}qF<--VA88&^&)n^L7jVq$Lar!C7Hpa2bN7sv=(6M<{u
zs3FLOQB~J=9COPlJ%`}%)W@ooAK;1!ZYsjsKp=8!O>25_)FTLl{>|~6Y-xZZW@B|8
zJ33hXajO%<9c)_N?ub1+hRAmPc@53l2|c0nDZ1BcYnq<-?4CXoQ(?m$rlDxuSnRUy
zLq6z)+#Yt1^9VF?<;Juc5|Wco3ZouX1kW;>W@F&Ttqrqbs9d;IZ=kgV)2f*;c5Hta
zZNJzsZavt~sip~=;aJ|Zp}b_jzNK3yH=vuNx{BVebn#gVKnJT^c^x!!Ud{2tm!*=%
zxNm2Fb!KI$Hlz}$xM=@LKU~Fn4=X9BCe9<wvtBzLG!`@r9VF;N=px68l@VoD=?Dw4
zDqdfa95%d)v2CCTYA0!UlQ-3nYiGo6;S(tI6AnR_2XBo|L=z?PAXjVsUsSp37p?PD
z8lCjGI+J!G`y9H<%ve;B7&LM=kKs#1v6yyooFuZ{Nlq1O!+Xd{5vFzqPn9DN!!-ew
zvCxRpE%=&Cg#TGsr_Lt|lbQZ2t1W#zXqakvDtd+-=HTNja+BV<BG=#jnmb3LU$h@N
z*`x-?QbUWF)Qy^d{TiBcePteBqeg$@i%Ny-gn6u5k;p=r*1GK2EiGc-R$Cq4xOuca
zQ6=gBk$};gM&EHgm92+!elB{~gs%H(9*F!%*7n1hx+q!-J<x%)Y;+V`O-Fl{Q31rk
zYNYPy8E8&!j=!7Iq;bJZv86Mj5qmFk@b2<9QVU`_!BeuT%7tdGa<whD?BY(Ln~8c6
zUaQDkP-^;aq(9usW5Q)Ujm$Gk8NY(F)5Rv9ps8RHTyvPdwik*R&}*517I$O$&PqHb
zzW-REv!(}BEZx~q(VyG#`|J@si#4eTFPEgQ;;u+N6`UykEo)6prOlL{_Z0ONOBS#{
z@#vbUY=Nzh=AZ7!p*9yAyx4oHm>s2L_&=4(rw78AHb`=~K9!*YgADJ$ws3$L?r;tt
zH#UcKaWZBC^<q4vxq?qn4UK%CjtJb3r*3*yKB2Nl<fWvtk(XB1oJYH5%g5e~>IXVE
zu|qMG=$wCOIhFB`C(}cAh|r{Qv>&k@s)gI2VK6a7Z;KW-g%gC%&0Jx;Gqv*ch8Ilg
zNxk!yy+5L#r&V`%ts?FOZpP!quYl7@+BPCiGnK0LVQ~;Pk%kpRmmlM04jv$qRxaU%
zk$`fUEncc-<&!8Z15RL<#%4|<$-B2Xp{^^lIMGADg!fHuM^obL6nde?7mBkx%l`g+
zq=yH19?i_|e)Ih97K)mi6}yTq8Ba2-5bA_T5AG2Co0(iA?;lxEfsnolu{}N9CTc(}
z;$4^-QBUb$zb`=YNHB_SRI1Gru}_~aT*DfAngrDPWm`NNV%$k5Eo(R>X-u|olnTd*
z7hYU`sY3tl{NNWX<ou51izXaTI*4wn59+q@maq^Ol7{7C#O6fd?3z1}j0K%Fo1Yjz
z<Gz=9{pyD9^!0n+z&UXuiVJEJCd;Y<Y?)MFwD9=$(*gOg_X=+{;h?Um?-EyGw50x#
zMTx#XCbV@WU;9H-8~GixG`oW<Jcslgp#QgZAB8g7P$(3z1n(qogt%Z4(Miok>v!r@
znpD~rXAIN>GY@7)(}U+Xd3XAkvu5ii3K;cB;74p_xz^A+!afo6tH4ZW%ceqr3952&
zILk^X#$`z@qFKrHH}y@`#I5zHh3oEH4$3GGytg-j@yC)YQH$fwxKms+kk7n7r{-I;
ze)#IyYkBw8;<~<eGgfcUi?#A%FKU1uLKmNTJ%$^;?jGTeCP3Hchu4Av(9`oNXvOGb
znaT=2vdz|rs_02*0K$jD7Srd5P1xb{l|6*Ovnt&Vo7+3vR#3;XL(6rK;7zi!>8hiK
zHEutvN8H_UksA{5bP35I6(^w)t#8?gl=~b-!h`p1;_{LLHlOK}FdvGlaVF`8MVIw$
zqHF`oO;RrU-Mr$25e`M+3|a=UH>U}!(U#(4JBQ-b{|~Kd|1Vnsy|h6`cj4^`$5>Td
z=IeDATU50!Hpk-nRekw&BwL1)(hz-9s{;OBZ-lNLe#cU*mrZk%I^rG$Rdfe1!?Pm?
zWetnPDcsm*J?rW)J*URdO0*U;wS8P9pr%e&v%2b0z;+6u`5CpJJ|v-!#%d?&8hyUC
zv_k|@hl4s;i^cV{&e?uk<7e^*+@NcDyrhtEAX)(gMg^f;DT*c}5?3RIL%TaTGuPB9
zy%t-EyV)GRo;4zri{kjdvqWnmN~7g|+IoQCTtAykX42_X1c;1D;txE(-s{Z7w&q$i
zkQ#Od4p@SK!vB~)6Gj(JEp0+v0Ajo2a1quLIfdVj@V2AJQ~jsxi@JP6l#=?VlwT_@
zQcE~-@^NTm*<QAjhq!+++XoA47l#|KYqE;CAq<Jo4bmKzD3=6Mlo~5+t#R2&zqK09
z9JwH`+RFP~rOtMOve7x|Analex0cBIQ2f0~Xak`oFQV+GyGciqZ(21Us}fG2ap|D>
zA<Uu8RkeD)_qv(VB-U&IdlQW0y&5Li8CCtLl48=)Sq|Cs+T7kIi-A(3<-<?dTfMqA
z2n=dOgt-|>4;7^gk_uIDnbf>UplFkBOe|AmO67)xrZ?1^x;+)5aV{#9YCIUxGZbc7
z2tSO+ixk*b|4d0(xM(L;g@lULn3D*Q=__cOMPBw6N`I$P{a4oD$j`W5u9|W^0#=T3
zD{<BG@;)W&k9+8=jv0dAJo_jCN$J<mE+{XTa1LRY4rYso5dof;<i|Y+Yx&7%ZTa^K
z51eu5kY{u3oGqIoi3T7E>;Yby0KQWo=q154Jqa1R{_G;m5OF<(p$@^i;@{!1{`@Iq
zJ!I6c$Rdyc8+|E#1)3Tsc+z3{i>20j>y&Q!3+ni;Cd5sPmMx^dba(PGR2Azn5=wHJ
zlwI-@<+<u#UzbujCN>zyF+|DeFy*71G+j~PK&=k<#|pFu6Sy3Qs^4#&;+gY<>gC><
zbnQX+6jvP8otJd}2JP2fpF{z|YiZ{LVt+c0JB=dheIW)4#`Qyd6AH($2(&()pFTzW
zULh9Y{c(9OB1q8og1zfs@f7jh;!&Fj{MkM|Vvil7CL?#F=VQ+wjh!9U8@3zO8;Yaq
zbKb-`zhA`}fr2?x#<K8r=!+&N9+MI_DJ4kNFymm(@HhvGhr~zYC({@U+8?&zrD?m*
zf0XAL`xsiCE-rVswzs=J1cO3Lb2wsxMjx?9=}wh7KF~%}!ivL&WgosDovNWd!G@U7
z36f-B_36Ryw{CDtSYnIb9+3;DiyNP&U`wZ5dx%(Y*5!Z%j>Rm)?1%p)Er8RgWYIzg
z)S-IykFDa+PoXc^YF_;Q0Tqfx3R6kE=|nDreurd%wqeJdyos34)##aU6HT*JcnV%i
z(pF-hvj@V-s#oZ15E}^IL8z(s(P`0|*gHlc!m)v`Kpyxe*ae9bZ1H?}kAOjz6aE^(
z0C<xaGM@xR7ke)9%us}$8tr>Y=niM>P~|^Y+1hvD7+IDhOL5U``8c+pN}}EzXw-?q
zb{`>es+7Dcdra?nyF0fi06}jzk>>XHh$DKs_yWjQ5z7L#C91g+G--dUQb*KpSn6AZ
z9C=%67qQ73ALpUpZL#y0EcFj8tP-pP7|2(3IOBh_)j!ed$1I9!)W>Mbe<==x65;qC
zxA-}XgR!YrdE+JZ^$49`Q{JTdU8Vj=slTr>Bj4y}$Nu|7w*EbFzqPFT%wSEK0Xsvl
z7JXbE6ZaYkPg{d#P{P89Pl`&#<B3VvF5=)-g{nleW6fBA+oyoyjfTM0(X|d)X<m*d
z@%8lJ?^@O%sUNYJyg7tK<BA%NwAnmoM(sD%l`C))ayvG~8A<NtLNa2sOa7ZQhTIEt
z<?!IoTjwYm-2?PVReI|3Id9Z#Ue@c4^~RdA=Emb`q#(`8`C=tCxDvUS;OW#R7hIVe
z&&5+JmpZ3L2?#FdmgB8u{c=QJLgWZX$GJi6`B68UP`>M@3ly6kO?;Kmm7IGt(;(2*
zbMV(q(nA%8v6H@w2BFX}i#XXJ?m?KbPdp%amx3^R!4j`P8U`1~lDIjGL3S=%J0)_W
zYTH-YTlaMy?xNVyTheWbnlD^U071MsGx<5(%{XCk?5bpS#6)Thg(HR*d45Fi7Ri8&
zyKlL(b#UO$=6z@ME<m-BeS}9dxl}fvN@un$-<R6P@e~Vm($VP>3QwO($y0>OiiC7h
zrWC{H1f^_t_SEU{l^}7lU?yYz@x;m4kEmOfTWV)fJjczkR@lU|kiyl7Yi5$C4r@Pv
z0(7z|oL%kHi#c~<AXl9*>#Y&j@p8e0le3#Un8#1Ax{_P=Y1KSkjR%QZ>E|rcEo$qx
zaL7KhtOvtowbPpRVx&8@r#48lO4kC7gD&Spf-yjN(RwZEaVV?MwX|n%O}_7ZdPgIA
zjn2HYEyp2-hkS$}<$k?Sk7K0ExpO5Aj}vR~bZUsdPZ&SzpKomU^lQQ!@V!1p_fi-r
z{i@}+4wZJu$TO#dHNTia<xQ#EDq11CMD@kI*C;iqK<qyfF>D17sjEJv#>s(6r~;bD
z&syrU;vrRYlpqEV?MG#n(y<c6zSDv~zAOS7J^p7UGWZSo!C%z*;XknJodEBwpG}X^
z9pz~<G2vLEtjZ9xK2^S@)5R#*q5YB^-kC^ExFhBMr4jUlR((XBB7I^4O>e^{F~gWK
z>4bQFd3Gd9VygAY1f{}r@WO@XQwTNpQ~HHZg&DXaOuJ26Etb4tM1^zwWcQXgmX(TB
zZrGSdovZp}u1!Lwv>eUh)-e-Uh3oe>OlQl-AM;X1MIpvs1z&D1V;xF=j;jEHIxc0x
z0YJDIONL!Am`6t>if1sBU)im9Ub5KGdHf&bji8orm79YJPE(<)BPt-LDmX(ZQXB;6
z6mstgd*v08`)6abRA-qN#>b1+GS7M}=BYf^{<m17ukpO1Jkvf@q8-xeb54e1WI$F2
ze^;%aQ`Ry!q>$R6>qZVDNx4Kc$s3ytq)e}Zd`v-7^!PE9COC)3!K30yK^x=9c=4Q&
z%bI#C7t)@*Mw~PWRFRZpMGhQJkKSFndAUJACuwNV^icmI@i#ocgM=U8RX2y5f~X@h
zP#%bc)FKhQh5W*L8N#lwtkLVoRCg~PT*isoN1g<QC!LmVkv^Gtg{ae9LO3Bev*q8U
z`;$)C!C1xBE#*!o#fcGdBbw!W@#r}$G&>Qa94ceAuPUovIpSJ*KS&<I>5LktpEoE@
zg&34?BX$WJ;Y$)N|5$bjZOcuDk(&TRv4HAh@FS7+lC2%$Rg2^3J`MCO(YQsry4c?s
z6)b3K<Zd<7<tSZd*fmF@ycFI66_rQ%s7JJJuc)?}&o9mERaaMyCclqbk4NSNK6>0U
zQrp#r<w8CwK7^r$aEgmO$BNylS0{-l_ZC~V8<tn1GBkbpJdJ7NE)v}*8OLCwmVUxg
zmm>8UQiCrp+jb6Bhz|2h7Ccq0{))92c;!%);~AYI>EgE(=TlK+E!nvonNUR6D!*?h
z?1o1kOmZBT&uu<^D4O)<Q_AO7X;kl5NIwsV-54yBeo>p$AdhPpQmSB`ar^TY#+HOI
zmeluIBZI%C3eYCqCYq#A!y#Uv^#nR7ZJ$Y?Yf&rQ+D5B7IF3!4pzqSLqMjT04(x+D
zyzO+!Dx8<!;WyRu`gsZ#R4UTN4N&s%0{z1{5i48|l=0K*<UtvIE+f2+d1b3fNq|Tc
zq=X_ad`|k@$ly<^;(g_Vfhb>$U;^cfo~sX@tA{rqd}JS?YYFejlXCq@olC<dn{z5>
zr((nNeCy%WRV!$XsxaU@bX-4|N#{r_S1CCh<8aU#3%h-iRxX0K$D_RtLe_ixddGTO
z^8NO6h1Kuum9?JID-sW3#lPH1e1yGkQI;hK1oa{@_?gtui>aYa>z<ut-ROzFw`I!6
z)wGdq$27Sz$Nd-%XJ1!D-nhFx8ETo~GNj#Hb4Wfi4YU$6Knd-O8!w~FB730So;0Ok
zhx6y^{r)+<--p_QtJ?1u&!&pJy~1Y1prHx)ekQ-PbKs<^H^x;%w3(asR(G6+!D$iF
zpP2dVC*|InB>D}tyX)vJ5nS#B<|!#$Xo;R7RYXb<?#0b)TumW_Xz7FtUC=GSS8%PI
zz|DIi#v~G?q7P2?Ki|HJsXEiNN;m@QwNOf%cZa#6Sd>;39o>U@SsaEYP$~}1MDpFo
z5_TZQ1rE;=1tHN{#vn-i6oJF@9AgO8@zh4ju2DnMACr~JTQ58G(XQjq<x%v6X`*6{
zkSKw3g-(&Y7-?aVGc3C}+UaFzC8Aq68N_=bqE5OjO0D!r?s(d?P7!2xE!=Bi5oMK(
z61Trc9yF{QoFoGc_YS#oGr?lG-qEeb`95Vir1dw6tFI$V!z_C4AZ<u$0<SIVoPz^E
zcs0O{E;YxZ-4dET2?cs&;8Qnn^PVu|c#ye(iPL9GdJZl#H-4&wIT#<u;TR4hU?~v-
z(G7&A>bz4%9Z3zXkE`9q`g7a7%%VOd_co-^7SC_)cQmnV&-907sut0a7^E=rAs>kv
zBk1k<32ZDojo6iOA>}BJK6-Et1w{0CQ-j|vJq14U+yv?UvG_!Ee4KA#8wx>fjvO8Q
zQ|l6^rTbmFd6Ltjlj;yI)Pj$M_eKIQR=!b8LAuiDFjQYqk;pEP-9~!6tELe~#HOjJ
zoidVplODRtJN-R1Kky^U3#xW8W3WKcdjfT`L@URi+F8J6Uus34_4)*nW7I5~DdBX2
z&aJ}EGRohrkFQHF-dKM{FNF<j-#<<#kL%U8Hwmit7F&f2(BXoOIF-OVAE6&eBSt4k
zh+aO@<&uTLznw6N@_6-`#pg6BOL$=&Jq%TyG*CkJLXY8B$JTdF>Gg2Nbs26W{0;4A
zr*(tAt7}O6G{PYS2BU79!{`rK_VrULoK`65&?x=ik+Q$rb=_C9wOV~ZAyLFj*VEjD
z6)EVQMK+>hM~{m3Ly58^b(qcer;3v%NM~Q6wXdpIUsG4C`&`w#rjn1V<2b3pv@aUS
zy%Y*PNk)9nrv(v4R-I5GxfbM3@t8<SkRVe%Rb8F6cE@!R18se0f2%bE?MwV%NTr-H
zjnhfB$!nWxlWXc)o~|W>z_=#e%UD6qz%>v#zw&C4p1|*Tx)fEYaB%Ofq*tZKB-|_k
z45<V54`v74a?MYU%^(lxNXJnC$x@D)cC$=nLW^ffL__tf_iMc*Itc6BUKTh46@x^A
zq|&1{19<4QCD`Q6^<VUGgUWyMu%zHjtK?O3a=k3EJzOTD{^GYuL$dfDxQZmr(mC?k
zCGhlhbA$i4g<GpYtu<)MbSs!Aj25%@djvw7bw+0*%7V6F6R{#_a~Iu*aY(~^{tKtn
zigEFc=x|i6yl|miJ8i#c=3?=Doa7Y|s&>*ll)w&uQO!9+3DJ=vqhE$!O``|Bkd#9&
zsuvjK#bs`E8CFE3Rur)Bn+erstjq{(i&7$?{>cO*YOX}5Gn58vNQ9QS5sGr?%3N%O
z$CCHL?QQ$c{pA_LV@bb>Y)IE}SSvHd8=2;11OP+x5OXvs!<aJSl1BDP;G1R=`ozs4
z5*&t{D4&$97}2|QHYV<Ls+SNZHACet;cA_aId*+!;2Soa4H`>1V`K42xdgGEH**k>
zH_sRbHqG;x)t>nj<?);sGpE#i`xJ6{KJ@gc4DnFOb864sQ>`T;8U~+162mA-8fJ;Y
zjU|obro>UNQT$Ns=vHc!Y5=)G!aL*Vq{o+!N)Wn1Wua$a7*^$XEV36Y@8fYha~pr?
zM23Xgg>h@Vq)It+Y<$8ro1|(ytHK%6K-EA-kLYKlOTy*&A(jI=e#adm)}Z|I4lHhz
z)qXfNbaWG)@*rmffwR~~tSn+->Aa`6i^mS`leTn_LGwtVqu|9kZ92N%?6MAt8vKAH
zSV@FjyooRX85=wV(InDI`tL~Qsqq3<)F^JtZM1}oN_UdY<^<&7sU7TybdhYXvK_>X
z?X`%(h{z-4NM2Z3;!{5U9vO@v?hP4TA|IZ_X8=yB;@oEp6n%793S)lcR{dscXy6;g
zO;k-WlyRH{494a(T{oED!4?R~^rrl{<IA>qxs-chcv&4unzUhb13RM<$m{D9+2IX6
zNIo7Vb>nxEp-qZF`t#%iFrMQ`FOmd}`e8YLd_nosygL%<65ri5)t=PmxL)iuuGOD0
zme`uy_n?_WJk;c#L8*Nz*+hiW>&s(Vgz)>2@$#W&iQ|b;#D)Ch%6IP{Q<8J12hZxM
z;H2n=WvFySRj;Z=8JL(RGgo{}(LE2IN?V1ac8NSoVuj>_dm^~RwjxeIzeZz{Z7Pb9
z6q9NlED?kBBNNgetbC`nX2uDYVEY#RAuJ6=1gyK|HXBcQ63x5sNobFlVbY!`IzvSB
zUBByT1|-IzeOdIHGqr&^f~R*guJ#*m#Sk3i&(R0V;3?u2qMm!05Y!B`);>=21#^bh
zqBB)AOk3B)X@Hlax9GBq<6>o|Bi+m#x`+7l42>`Tm2g<RZkV~4sMbxry<w-zIh5bJ
zsjo?$C9{DfS=%^KAq%@tlrwQOb2WEEDn|=FlI-B0y}gQ!Y;M^FSrR<x?L0VLPU`Jp
z%`?gVlc`c8RUXaGAM|lz-|E(kANn`+j@@Cf;px&-<bA0u^*2HFGStq*8eU#<&L~Bs
z@;mrB)sO2#13#<J*;9_a!syin@?DnIK^}(Bh!Dn!@$fh@TjC{Jw-=)>=M;WiJ(HP!
zep;WR+oe?`vMf@t)9v+1$vw3xVFTQJxKI+3Vi}F`v_%Ap!<9S^8j+v}4BqI!7G*TZ
zYe)y{7bGsgU>_=g>tRf>b6JLRC!@^q=!-EexL#2u2t}!8&|m~`Lxg|ilK3PNz{1%y
z+tLi_(o+a(YS*!^dI>-8KR2xFwOKNJ(lfq`2SO6gYPK^#!=M=<Hj;;VZ$f>Nc^D<W
z2-7H2V~j53lOBbp%AsS(tu@<S{lZG?HY)7%R5b2wMi-G>g6xYfNg>1nZDr)~46?yx
zD>0|qN#4{HaKy3SjB+gc;DKRGSu3R)HWp4>@{7l=k~VrGa@NOne>P>m0l!Jwr=Cgo
z-{-dI`h&iB-aH9!itis<ksNr)9|0Jc+2Uu?hY%7HuASr*-YZ&Ua3nM*N@`D5m}7&-
z{3|$^RFSTnI3FdX<=NKamf$*nG~c-HDe(moO2Ta%uREF8XhJ(=t&|ua;33;6Lh*dF
zM-<Xgbykk*mJ}*zZ>ZJ{<uAFdnxx~At<`GHkZXa4rY01lx0Hl=w-?mP{wXyHk@60m
zP7+b}Rrw?amm^p4X`~EXc(>j}x<y?8WEJg}FF8Y^F|ry-U5Wa!PkJ;Kw^*nb`xlD~
zD%~_U>>F5tLj+K%S|aDD!~^JoTxm|(^A5y}VPz*}1d1?8nbZd7%+u#|cXjn#Z)nx_
z>Ir(aQ??LOW7{0(KEVtMHTpE>DH4+l58=}vWesPols@K|&L%}l#%+u&9)$#C^b(!L
zHM&&Xv#XvP;&wn8g_0%uh-BwV+lU|4=kmGo+1BdpV|Wufeupe>QWxFf%5Z2g!Z$vU
zC9iLT$NHvS%r+=Cqs(LXQE_%cmHi=x35&>=W!a9#zN(hUbkZZlf^zF)Vw7g=rk-NV
zC2rOYdxX(-8wngwlIi7iHt4dxI?LUW3CkD@sRJKTt0xpY9oNrSsC@C!(o8x}Ds7lY
zEyt-nP5?lXRSS}}43%jYx4Q(%l}&nE*u1LRZQZ%3^CNoe64C0j1LAUv;r62);l^eA
zo_8sxI)-5h<(60=ON~bHs5+_B6}_^(g%ga_55%ct3QVvjgKWi#EFV|Ob$3hl$ho~e
zL?)?RoFyC=$JU*XoFP|9H!a?IhQUV1ByuQ`$UNu6=ZV3;W2J_^i~k?9UQ|vJQ#bhn
z-GiAsJXZ=F)phJOScbk@U!Xt9=F57_QSE735#AvyNgop48iW%LvrAkx3_gN;96w5E
z4)l!h91o1E+Iu9HL3i)I9Hf+`Qk(dWgOJEewpgxIYs2-i-JND*YG(Gx{NmD9cl-Fs
zR(s{l+100?vDVK&cj1MXE?vC#>g6l?`u-c8CsKg_|0Z`^>29O^6{{1yv$<(DyRN^x
z38{6eJz|5_c9eqLgx<C`{T<!u^vG^cVKzmCw;fU5uBA7%?vY=oM}Paf`ueU=AP06j
zyE}t);Dfl~#QLr35K~4(X>Vbug^RwGoPhJ>liw=qS1(&vEYdl%gpKU1bZUHXuv(Ut
zeF~TASav}*7bT_N)fcxG^@_IYTU+~E-F#=4QP*@k)8J(6-=^(ahv_;x-Of@+k+ikd
zwa#p<>1|)HOX#Osskz<etC(ro%GMz@W-e`s`O=y~pL3kf=2mSB>uzy>1SFS^DeFnK
zw7-oQK;2~ci@HI2;tnsgyS=}^HKNvywX?guwOgyY4P3{b>TI@~XLc!tcwQ%Y-I^I2
z3kxQ=w%OVA&ur^AhDl$2qqV-tc;V#!4i_bp&9O0E!`TzIOd20sF|Es$sb{)1Jv^ei
z7ya$s#caK-pH6RgH+Qyo_w_}}y1!oUjE$<PB7Lt*svg2>KN?7Y=hVEV_Vw85UZQ?6
zM0Sb#Ab2*S(n^+zs1S2>!{$i$lJD>ApGN!B4Lrl0fbOx;F#9*%n|A)P$-cA|J?*Go
zk>95~lFGe_P4Y2a^Siqzo2I$DwS_y7n~^hJJ;>+A0fIE<K?~_j>*)+NENaV|((NKy
zswmH5-AI3YFM)S9ojp0DH^Z*g-L|%Nt?n}&x+;upMo(5RBH=caBz^97R`bXG`I(*F
zEgX=cxgja!Cv*~nlm_bR&DA{ar;9$-d~z2<UC$^rbCWo^{LPq;fl9)j?iQi$PO{wW
z>?|#X++z=yhTaWlcD7fKZyi6rf5O%$)T~roYu44n)s?rD41C&s3f-xaG|e$Ft?y_H
zR4#Alq0_{8pk$gzeMbxXQNr|u=sSF55tY36Au$E+xU+r(rGB$MHn!TVnKVYKCJo5n
zZbB3I6V}70pMK_Pg3epySTB<dz!$Dba^G?7z-qKV(K>b$zU3KgCe+Gv)W`*`U+Ank
z$CtK}yY+$S`~-zrrq)jC8LoDVX@d=`*ENdV6trTtPR{r{kZ>FGMd{7XnZ?Fgv#MM5
zd^4vp4r1ExSG_mteM@SgBHuu)PUTu-jj5Vhf?D!5y!Lk}LaaY!bvJi+cWH^Onr>J8
z*=P_Wr3_~_H;Y*vWNRnLxGn2BN56?Gvc7q~W}d5>3l;N1*}POFFIDY#_A3igkI{01
zG`a51HcT)qM9uT}pBX#LGxo93AP;yc+E1*6+!fPZ+48$F5(O*GH)-)?9fu^=_7L~N
z^`?7k_czg<W4%UFoG}ue+uN3{I}Ir7(h|-66DS@*5}#mbUNSEP7lRAI3&Bg9qTRYl
zcS2FM>v)s(mL6_4n`^on&J3vLmiwyCk9CdvYIi&B&d(&9x}J8k*LS-cYOC87H^ZKO
zj(hMzD^IDV5eN`7c1o{Y&vLg-e-4GrA91PY6KZSgw%*;{x>VmI>3wT=PhbD6Jv;T3
z>O@rpt1ciewLYh2;kX$jbI)Djq<8l_a2yOZtxvwOt=*+V+zk*bb@GjOHYSM{6VTzZ
z+5}$)PVvK;))o#=F0N&S|9N4d`Yr9kVv*S5ME*Wvbh1ALo$Mz-C;LTn;kgUoKm30J
zo$Twf)h~fg_B&4yo$OtZ$pUEpQNU#Qg8TJw`CH!&m#p^86GSEx1hubebTR=a+kZ@S
zvd>Gzx5wh|2c7Kie+YE4e|msU_HRKa`}4;{C;J-2Bm23>#3OqUSnaPAI@#WX=w!j-
z@%IH#mVe&>WncP;0Lt1Q0HN%u4}ehiFF+{!(*uMux<h~FVHjl(M=0BSQW$0J4-HcG
zoq&}6@J9$zw(-&v2Pr#%DBClS0x2Vn87-RlnD`GxKS6tDcp0uroXnB}N1iMCg&ITA
z5Qh(04Pd0A#EBXxmx5^_Ix&}`65&Atx-M6_SRDLC>mL5u)|f;9xI~ol4F6FU3BN?D
z9zZ{vt}cE}p`Yy)?%|(Z#}l-RlkYD6*{3DA<t(Tk@>%4(ya=p9qo@fKHP#~lG_0g|
z0HFB=f*{RtQaaS^2Y^63*WCS@gg{&LYa?pvK?t-C7-(4e@4!G4J-EDM?xCPz5DEE+
z{VHxk%o!Zx5;nudNhCR1q9JmmE~r}JSRpeU0jJd%g@)Hs65g<cfK8K72WzvL6OKBr
zF)c~y=_5ubxq4za^^8OL?$Nt=SMe)LVlec`#r(_gN`X0;piH7CFj~G6soA~T$U%uZ
z%FUXQ$5aBCq=~B0M0G7Q_zPC1dK1L9)t+DY4mukN1lfGC$r!=|bT<6L??7~0PEcjZ
z1H`u3ozJN3Gc!AlF6m?pi=ZZ4kk?ebqL=(ZQzS*7@(Pw)3fL|J;R0|*d3g(7kC+Py
zX&A}!UfyK!6ya!rpp<ITepI#t^ft452feL*7rqTyAQ1!!!104X;H_bIsUL1Eu3)JQ
z*&|RCy@zrr5(ylNydP0XBx%ws7Ej~`UXz$00eAAM!U2NU48j6bi6jYzxAyK#K7fG2
z@nBmYDV^JF)%7|R|8_{Y$m<h5Qwk?fL5$co`De6>ygQUaqk(_Ry;&tJC8ZtgpQ@Cf
zCt|9SOJ}w^cLC+16l6D_CHX^cv|uNDh;qDKItr&sT$R?vi6T@Jm6f<#6hBdVwzMeF
zb31K)JX;ayxp6N^o|BX4Whj%(j9)H#Jt>LUk_<tUYQnWHR@-E*b`OLuyQ>)+|NcPe
zb{+(w6E=8%ODdU<5a_Dl*FA@QFZC}Z-m6<`mfJ;W98$Mg;+-56c`u6}jaraM0*u4~
z$%u+l;&P?w{>sK9;p`^wz}cN0RUaDB4p(Cj(C+L*5$zi5efm=ZX%~MRqFtlJ7-W!6
zp`k~O0{p6i+w}<-!g(T|gaCU>FSJWkSPsz%;{xWFcu`MWM$G^lh?Jr!8Bv1hOhU;3
zS*1%e#r~JlmA4)PHt+Z&Ve{(i_!m!^spPKJLY@ua{sDc4WJdjlIOrD3`}?>brQipw
zDyfOQgv6LoCU_;;;)Nawpf^6y{}M1)DbmSDc^`u_MEkFsfF!;9fb?)5;}?{4)i`DF
ziys<Eufgz)IkmnA2H=BOdUl>PgS>w~n%>R`ps2jfh+QQ~8oepP(<7l@px?T|e)};I
z^<se7GKNybcS>O54nXxD2C2u>7+T-^xS43I3Em+vNqk`S8WE~q^C7T$TRWZov65o&
zkDmk%yVlw~+ig~RxO!xoew@Stks<E{)&r7${az+))PcnAOAd`W_d=B28@(8I@&I%X
z>{0ru2Qc^A2cUZ=7gPkgw_0DVyQYs!cS9-!GK3My4B<sHRg7-}B`K(1ut>p5C&$oC
z1%9tRl>~CHm@W$jA2JKs??nK7e$X+U001*dSxJCWbO(hGe0fjdXD!a0>9~!?V*1G0
zVUrw7s9A(EXG)5>$rkk@>0qW&GyNo*j_Do}AL#E*iDbfV58&{vbm(Il+wqi$5JY=S
z()DBDH^7IYKZC?4gGWO_;>(RzzF>Jy9wb(6sx-js<U-EQ`i%&kZ+}^(NjL^NLc1fx
zRyIT>A}w7vo&j6tmfF^vefj{TPaLTYvNGpeKw>QZg@wa~Q)P+R7U%a}pguCNrDJtX
zXCt=0ySRACKLG2KJTMoi+X$>rksT5?--gyV(gW*rKMY#m7p;8$v@*a-^>i-m3W4hb
zw^HExMpR?j7ESa+0roAH2fp-S0Q=4~&ge4|-Dur}R2TGoYv-1J2WlVrfdN<>z2R~p
zbO7$^F!0HBfF;w7vaUsHML$8W1;)li;|8JGS?XN@+P6oB>I0yC3;9_P*~iHf6WG4`
zIoPm1AfriieHkTqQt4(pin-+jU`<MTr3c<e!rhwc?#v_3TcoRN_nPZgvgUI4;$8SY
zl?Ln^mecQs-M6f!L86pwY*75#K-Q@8IQm#49b*2-NHCxGGN;x2wi7$vc~30A7W{XA
zzIia@_-)eAYmC_&71Y}daw8&48AFNc2VftY2;dY0<H8<}A7jp*2#(+X$QT9O`S;=Y
z$+nXyAErv5xup#0mE}kadmEtNg%5-0H=-{PHGr-e5dfrLY=ltk{g{4d8;$OU9wT#|
zxPU83M+BVs6KExgzJlia-q?QMb{E@k@o|v-W>$$2%5bQmxM2G&zCUokFTZbazaRV{
z;C?@8bpZDxuDlJr-y7P1@Ynb#;r)KndKA20CukL?+{c3V!$OMC{V0A9;Li&;A3*qH
z%8EM(e|Z4@+|7e@?U5eBA2Sv()DQDmg!X~PPEI?9r`|-gtTG-)5dNMBz~A2n;P3k_
z8CXVuzHz2;2jFkfmjEgGbtHUB5yYp&g6JTZ`RxFI5UPOtxiaQg3N2r7HKAEdlG$97
z1Xh6q5EN=jg|mr)jcD}Vpp_n#=N@<6xD3)p=LJkjbR%Wo2maTZ!MDJby&}l{r6}*Y
zh+OHN+mkTwcEO#yMZci`jYr_{vyIyN^|#cuK+yk!kOBQtVzlB#5Ku5MWr#~ULI8{*
ziowpaPSf|dTSqDVdx8Lten1ewB01XRS22mkf?6V#c8tmbU`<qYUuJfYw0B9bK+lNY
zCTa*Q4Mr4-y)jl;mJ=AVEcwtfdJ7A%C-J23<&ZgCTzEg=fac?-8Z($_L~6-6J2~@V
z5CTUSJxi{9063tDN$$59E8!g3>a&-#DSsefXsQzd1<uTq@=L8h3@Gpuo%?|T_xJAt
z1!`~tf!QE4{sX`SHcxA22zflHKx*E<p`JKc;O5gCCfLxDV{$)SV5gW)YH%bY1{NED
zhCQ09SYu4Tq>IC%Wa0|285s{>(cI!0fEXB;*Bd|}{wC~y87(VL0P!L)a!>{=h#o9{
zAYH3oEmUs`@L)ysdL1w}>s>$x>9;%?#4uSte-Co7eOi$V8cgzt$HX2yyt7Pt;S)w5
z98pi{Kp+VB@#e@#Qh5>awJ|`Rx{>!+cp}A7*!ze9EV>Bq1FDR?Ig4_J`Y#r1pWOz+
zP{a~7!o`?Ba<0I*L?3EdaB<}#2E|K_-~B{z6m0dJUa?Z;+0wuZXC4k(7(Ee!g)wQ6
z1JJ_OM-N)~M}QW7<ql{eCM}?akPX8S$n}%lC`y9A0<cI1CqQ!t7@}o8U##Iz;?*cF
zcnWbGc~&w_@-x(gl)AGZf;=;mF1KtlkNp`L5q46b#A15$E}9`4?AzfAai|;s9P$hq
z9w-AAMM1(<IGriVXvC5_i4pnLKr>u(9}mxPCHvC#)+Tc9VW@^ZJVO$UbvF<^!ycL;
z8T%xtMR<lgPY%xz+PVQz-SZ8^4qyVGB&6Z5JSL>!lB2Nq#Lki=@_cbR9ss+XGx;fD
zDnt=(BH<%uw}2AGj}0e^ngBh*wZeNMvDhmfZ!=stEI^3+B*nqrj|4)j&Z))${NWgI
zCc4>LVt8@(0zioSeIouO{hwQlqf|r$_lsCrMs&y?WTy;lj`l^G3tQtd*qMv?mje=y
zpbtjsh-{IQWE=G^hc7L<e-=SIkf>hC4E<dzU3>L2jB+`EVBB9*>1%}I?*K5~#b4Zc
z2mmACLE&u`%mc(Ip2YwUy`-y4^yL79alSOWyQg+~2#hi_+yMsT6Tx3xixtmbPxpLC
zlApM>KA@8C4#C(j2#jrr9cxos?g0qKN)Lk3VMvDVb{_@9*nEj>SpmZ!IW~z1A(adO
zMwB%XLi4$200jaKfG7%sKQTCEsz7N@2xb{GxwVWCnV_;X=!~6k<^rCaORcWnI?G%T
zK{cB7=m47$9M0&n-~gd9dVoC5XPBYia=m!cMRSRhDo+xj3{zs%*d}zFZ#G(Zm$Z3P
z)rLVb&3ZPFEx4vYh!CJ<|9<?&CHzQ&;Fy-w$VUP=k`W9OM1&s^6|WV&nM2njp*oO9
zWKM~Y!TmytHnBPB)}u~|%Os2;R4F|X^Ix(h9UL^tERX3*yHxukr1*JDQUP&qpteU?
zks_O<t&qK}y6#AF&=>T!GW9L3n3ajR<VN%ju<o(qEUFMS9?9xQ07+IO7|G2y)sw=J
z`~z?#|G{5M97(Ogk&NbPgFx=VNXojuSX|PFX``7B04Dh#KM^p=11!nzdx1#?kO#Cf
zMDQ{h_(wrw3(3SRYd}&57(R<b?VV_n9o&wOk0yBoLc4<|Sw}f-AD~Gl{c#~h!IH#>
zq{5D_y{zxzNsa?22~S37l70jx$$+M5+rP?y<44VtWHb{c_4!>M+QXEbhI5IQh~gK0
z?gC2UwTl#N4n7J{@^4u;D2Lu6={5>VigNzJASGw&)&C`elym@;)Owj4&7l=-P{$$I
zlI3U~vyT>6@_%?@xRQSdT*>eLn#Gm;wfBoF`8(<kuH-j?EBV{tN`CKO1g_-o{iVj0
ztQ|}b)e`tfRG7*Ec4P}9+)2L+f+UlB)T_*2?dmkHs6dmdqt}N8K2lW)&Rw{w+)f?u
z3B&v8xsgo+Kr=AdjgXUISP}-2ba+wgTnU5R1Cc~ziGPfoE9q`Ihu^!)ovnidcQ)@H
zXC>Mv8iuUjgN~FjAry3&z2*bJNWLrf=0ou%7eUKGw*_C4A$bBX2_ggrxfXcI7O(ag
z0F!S;0FyF@ulcJ4FxfG{Bfk@1vb{in{4W|~@|PHR^GAX)Sz@A)#r1S?b{P9QtO6G0
z*YXlJ!W~PN)dz!^#A<@fMdbs%>fsQR0K;PsNy3vrOgiQ*TOZ$f7{+8baNp9~(v3^r
z!sDP!ri*zKIe|q{4BkKHq$K$OIVoeF`vF}9>tT)HB`E_qqfpCrKrmS5!4XD_UXv&o
zPZF*}4UspObukl$i>LC1iFX03ToKRc6G5x|=kJDAiEU;&g3bsUM%*9Q4E>T1apW^7
z)FKmrd8ZV-2H@S1WmG~T1nsT&7W@c~h7EQl%K6*jD+!;;3kRS)ir+Vy2}1}6tSfBK
z;;2rqOfV7BI`c)#;J0_cS7J3Fr55t@jHjXmy9XeaeS$YErh>Sbap7aLVcoFLjYflm
zCx++mKz#C`BV^XeSgQy*gY+YDsL4oXF@|Mb>}CNcaTs1C$k^ygtR>Y@vj1vs=wDkY
z@V4*bW_E(^mLQ$usG}4DKF*sYB=ay@csZdd(qwv@Vt6Dc`;TrhApKETn}=>nCf=iw
zHkTfXwAp3uh{ocPL<DOA(&mEHt+)~Cd`M~(6X|$nrgdjnrv=D`Odv-cMb1Q+Mp_cX
zmwmiAbs{bX7HU-HSwIntP)Z_G%H&FmrSem>=L81~fnflpq$8?UvQsPQtuk`6H5H29
z=NHF0r-4YH0qvI?ql8C|@(u{kfyagLJpNHZc#2=;u^>EcRjvMakAvX(M^7BV^LM`1
z5j_9PuQr0`69(`+u%#dk86DkoQ3!YRA`uS&cwUbHJg-HeOaDO_&+fx4xt>TRsBss^
zb1XPO@obcP2`Cm*umR&~b^uyTt})bCFtU0;o`8Pza6B=>VJV8{EfvlH<GFfH?I&mH
zh;pb=9}Ld3aR<$FoJ6plYan@UUdvvPnG_$6=Xnd^5t2D_fajTDN&>os$H4Qv&=x$;
zP7lv>C9FRJ&l3;TL-9QKqI4@k^h^QhiPQto6C^%Cw5bh)ih38+Q}5S?K~bp_V5GY2
zVCIpqo*|jMt*|Pi7JBi>$AI-b8Nqrc+?5`zXL|~b8eq?%9@Ws$Y5b4m!Mr=HCos}E
z<u>sAjjCPTX~<oX%K&Rpj@UtN9#WKSQ%8?imeG^#WD1Rk(;WIq8Dts=%I8UNkszI&
z6Lz+&0L>VuXDI6-kUkenU{1xytzt@#`z5T3S)W-*LuNI-i}`8l^cO&WCI?%)i=ci+
zn4c&8#YJ(?yCdp?QeVTspWpPsfj@ur$pU|l#q2dzb-!xBpZg$x(yH$U{5i9~zbm;-
z^!tMR83BK`{z8C1nQ`Mm$j`Q<U?sOfuA#tZ8ju-;zgyNH6N1x>sgJN|N&bKr{g@3H
z?L)vnTM}<OY&Tkqz~Pbo7{PyD(3jf!0REF%mKr<&^8o!!ucnRPB899LSF3=xWq}z?
z_Cf{N9Az*8YZJf+fbx28P&!;j&I@cAeI|0nPRF<>XIutWd>Y{xj4M9ijrvcIEA)2J
zzM24mGLuag14AEg9oKaat49>gSTy)ylu1<36(w@RZx8&FDNu<hp?d{@{WOSdD`ux+
z{vf?7kf2x9<Klt-nWPWhj|kdgDx`aepbKjBE*xmg^H1p!d8~j_R#5sYAcESzB8vSU
zN}Dt6f;1jy)<J>@qIl0Scfq$?%yJH}piD=aW?DKK%3enN=5YrzrHK7|7SMY3_i6Rr
zc6s36o6^vK&@Z%C+JC7qM)!LlqxJhRMmOxs+E0?^%Lso-W+0k(4`&o_=lw9F7$f#X
z>G<Qqj3zh440&vr(Wh)Z_7?;-`jy9r8a)JoT+1=j5@4gybbR|>niRG5z8BGL9=04X
zA%~(f?nfKldk}5ZCv*lj!pSZF>?7eu#{_P4pI{f0{0Ua2<b}yVMiMfR8JKw}Y%rtP
z?lXmB58#ZpmXdkKPH_w~SAw>!9`dN9_kWbgqi!`F;f{tgcacZy6>J!gP9Fds-MO&y
zuE?V!8@e_mxf3~5F{;yv+sTsbN=QbEA=#n_LOOh;0KhagfjoLo5Yn!xe{>+E=LCe*
zR?XHd+RL(H$gALxGKrZj&y+>PCrhAWqeNMg+G;30sv0EMK5KtaEYf0QLZ$s;V>m-N
z9h`l@NE?sDB5iH}*rv|7+wVXl-QPf016ku1c@&$Eg-4p5)A!Iw{g&UNdy^C^U5<cB
z#pc-cJKNorr0X;GsuAi=dy!#y^KXMD9gmPnNqw<^0|}P|ofP$ZRHbLq^;Wv^aDY<r
zUx-%?%9kI><r5~5Zx-1n>(sZnh8|pEb}~Dj$_}J5IWb1WmjpbnoI`4{8`SFpU+=*+
z;vph!O!5}|v1mp@JmhEPy*@Z->CYX2mi919t=9Yj#GZhb;^opI^STg~6U5RsBW`Qy
zNd0(B+)`$NbpdcrMxdpUUxd`hsFtFMa!9N&6D9HxJtms3afmc69D>R8v;t^U%Rpw)
zyU;&CGL6Pu-G^i<=$|9GWA6%M8nK{^?n!{lBz-nA5d9xdk0e*%krkmx!^lI%igSH%
zg{E6(!hl{vCdyTWrOe?ZJ^V2Hhs4s5d=QyyE#Mv()gqX+(MWBqs*iJ6W?+-cBnQ9e
zDl609r_?uD7+yF8Ny>VWDR;hLC8~eZ%GLf*rG~yNgA>d3Q3~Xnd*G|td}WN+l`i6w
zR71;Z1+&4F@B2*t$FR-^;8<JJj19#4j!;?knX!P$ihyP%j0kd+VBtVINThr;0}D6f
zT_W$*LU!)q@U2x6+fS?7qu^V!C^8_o*2g^6?h|hyHki~8YrXYo1|HV&pY^h7Wai(9
zC#ceh6F4}nh9x$^n)K>2@v7X0{sf;I2V}&%%r-3kN9;aYCuB=58BPp-HdXx=D^>d^
z*8S+Qx8wq5T@no0cc90TP6--hx<tsBSpszZ5VL7L3P5%p_}EtZE`Y4Qw)X&r>;nk0
z5nn`K?~NdP9R%5XDO?A-a<AT~gnQVsG9#5}`R@rM+w5NNw#Kq#vXI*HHW*n)P-L02
z=n*Kg-R@sL6xmLgj3zt6^NPci$?eFW5hAA=^-Qvw>xtW-ggWBZNQCM5ZUh%AXtCRj
zHe|Z--Xh7^J;D^XD@nPL_g?aWkQ9<%BiUqXG+Wxe12X&MFlJq!v<9Yx5tvzF0fCv#
zPBC6EW^?37cnY*xycGrrE0E3{%``23vO&27eGPE2YhcZ8MqslVnwLyivJ&ubFz`FV
znFXfSv-9Loac{_szGuiJ9~*V{-9cwNcTi`Kf*pO2lHUt;_8nNWmBns-m65{Gd2{w_
z40hIz;O~V-mKpdPbq_G-lS820x`=4s0vR<TK!{Cb<DK+ahwMKnPr@Z;COZmFEt6s)
z*$}OA9s*N3G|@9*c=|{=PY#3vig=)ca751MJGzqdqYVx-7X+)46e(Gb*<^kyQ@oNI
zSbZ-nT%Zif-Im`ro_@7aT-y2SW8r@3{bAv@KLi#oD4B0;Ztm*)U`Fpj+U}r4JODGQ
z-*`CCC@7ilf;GB{z}W?BRNsd=YKhMGK9^K)D)&@Mpz&nsY`T7!%-;du1q#*Dy~6F2
z6m<`McgNc80ifbdiXz0l%iryr3B;l&$s9I!5PRRa^UNm#FWcEPPvkythaZk=;ECM%
ziQMF!ZSh2I`}8w+8}vgE(Gw}kM?)S@q-ckk=!7wB3=p?~rf@AH5OIc-+ZJmE#e&IW
zBnO;L`L)pg`H!*}ION7GJe`b~ketEjH_e(vj?rPsFy|60`eu_%L3ZO>eA^WXu<04S
zE)PJazt<|@!JNz4(dqJIWHs7!ZHs*2-f>`t<$lqArkwsLAMib@pXoSDahFMIaqN61
z76d62vU)X%12>j%E#q2ly%1C^#+A^I$?y^<T6eU?A$GFjndm^`aZW0w{K7;osO5r8
z82uE3-?jptZX8d4ul2v`W0mY?%CF;|N-}u|j$=GjUJyg6La;HA?EFX!On{hA!Y&Ec
zGIW~MO9~*ixhEL`G!%IK%y7eO;gA{SJMA)WubaV+@|Y>hwLoK;fkL>3xi?(98P|T}
z|5BkJdJdx<&}VGM|MtF_6qM<DV<A(a1<c%d_kY-*^#LgGV@y^drm*~%EQFPH2t$qM
z(w-2`!LKrT=6D1@MOmMB4`*!at+Z`Hyp+>;$FQwFZ^c}vgvNl;G+zX|c?Gw4QO1Mm
z%#pjRvv=33+Wjr-5b5M*QNBpS`Fp&$R}DRkMr8xJ?~VaC=8QXO+vLqOLxaBELN|tv
zNm8l#apo|vV!Z3eQ?W$cw{#ds*LJ?k;r#wFq6i+EsMM(FG|ZHV2g50XXU6n-Y<f&M
z#tx5J%l@ItFv)K$5yV2q3R>SG)3K8&G{ig@@n0pc4_)?%W5)l$(#)2XVGNiw%!~Eh
z-~@A|xwAz#@BPn~ITot#uqJZOvvXgx{@D5vJu(vdLn-2WPTehLv$5p2TW<Wfm470%
zU=-K>gby{ugD+wt`%f_!Duj?O*fDbZm5bI~z}+HK8QG;w6S@KKDMtpAOy~t;14%1W
zexhr6OiqmbAc~s#GezauGZn@Lkf2AMQgYiVGfFT1fPCr4v%wB{QvZ_0xXB23OaB(m
zl0*z&1;mFK;@>zk<N6n@ruRiF2iUJ$k*|WUCnb|4?m2&IRYmZmY%jyyu#hdG&GJ7|
zKVwbB7$X;$O20(|!G1Agex5n_Voa->1&CSyQ~OBrm{WFshMCFpUVm5-e#t(9U;c*r
zAuG&<1xzC#jo<PAl}8;M)PK%ogZ_hm*L*wm;NLkv;~!$;ovNQ^Ch4~y{ff03i~X|o
z1?y-m_J;A81}s`KA8a)hkK<v>M&Ey`(*4PgPfpoiFr#MhWiyqj|6?Y+<Wq{iGcm(B
zID{$x_tuonl!m>XWtyzFhG0$$Y2DdmZ_#7=!bfZuNcF<ab#T3U+h&nWuzLry2!%Um
z8tcKWJkJ$X{@_OZe0^}RA*7T$Sif&AakrRsZ1D$6Z4wWb`W@Sq2TE<;wpqNt)J9Ui
z4vIzh`QTRS?WOLQJ_{%{OS&)1Cg9mUTKNU*XhHugl}e@lPyL@UJxOf9heTr4c${I!
zNOdHCI2bV9Z*B<1RV*Yo#0WZA&EW1M9ob?)CKfj0i2A@n7EjO)qKULDCN34s2AR6q
zkdOA>>o^a&f#?Q?Nwpq+{{80wqQm(<ii7;Kh4tl$8o_@>Of>0kNV=2xm>onBY6yW=
zvcLkyY$8}=uJug+@$i#)6p`;i)?TGUce3<blUzv%hOUpYV3n~czbG_BG1+E9M1Exg
zXjz!DuXkF6sMgy<EwPW&8C4tYzI!rJS0j7HV=I>-z`<tXeA%60q~BNR(f^6{cdcKv
zj$BngO4WU*{cV<+dER2y*Kbz+mg5AL{%@TrL>?U}T?c}`J&bw;h<l8WdXBtwW&KU-
zzftU*`6g>vTQBNojy-SvJL|ic{M0hPt<4`>{{^3y*6OL1vy<gm+^Se5>)BF{EA-D<
z){vF8ULUl+flXONbL=fRnWOD134WN(j|E|juER3Z`<d_kd|Gy~<a<9>A#<>D)w=e*
zboye?{~Jn};ZYg&J?e+8|B7dG&c8#~wC&%pzM`x}>xZmhehdJczpnouD|+GJ*VX@F
zJ<WO3v7feLCj-lACaguzn)c-V(MWIr+4{U?rTC<AuzvF1YU$qU7z&Ox6t`kk%N+^p
z@esM9tcCbYJSTGjWC}lRWw{+Ug`usur8Zd&L?jd}^<@>0TTU=VM{ZeF;bJuqvHt)L
z49gm@YLGqot^B9?FIrYu==}%N;Eh-{`5Lph?HRXXS<DK~SqJ}~+|IMm*kquo#iWA0
zf5&>o`mZTUzxPvkJkTi>?U(g3mV1oeujOU=PVs-%WDiZA%nkc1xnD!kvnHfY=%=j#
zowVRj{VMes3pyu%T~UEeXUfnRYvNh_7}cfjHWxK~6~W95WT@G_Mn4?2vl_?Ka?s+|
z(cib+B<(HF;B3xQ+z!^Jc$-O=TEM#H4Qw^y`~(Hg#QubBmE<r}Jw@MWK@VA#henkt
z$EaWH>FOMk<p-=Ua>t0~KY@qH`bNu6bMTuZ(xQFjRH~Y9AyZ4WWK1rLY{>F)(zBt0
zaY`hlE(<40Gs?p1RBugI<9An$v2G!!>>soyKld^AdU}kLt2~&fC>0-^f^yvxe0is>
zW7ZqbUdmVr(SIVnmb?f?V7VTQ$F>6vi8k)|M`P%D-)xOkeqC9ae_@?}<>fJ2AeZF<
zQXpS{lN2EQ)K4BT%ayxD|4o(sRdc<^LUO9S9)utLNX1e(p+mWi{QR`kG;-5Y|2yKr
ziaA!`S?F%DAnq}+%Zj}aSb=W^q(S>}w7%c41`J_2lyDFMpdD6Z{!~#999lV|CS_fk
z44r)b%hpQhSP9>vuML@{QH3k12R7|ekb)jChEVg3hce8Maw<W>8c+0>M#sZ?ezH(6
zXQ9;G;Zpt(Gh0~%jj=0vl(Lw2<<QW~@UUfFSgytM(#?)ji3}RCoM;PtlM?4GS!KRI
z$N!0`%Zt4A+S4=fe%|&F|DS=8z`nN%NE<8W#fGF>sA3pR1RJV@EdNFrFEu^%t+F9h
zG$bpKyLFV?y4KfEwK(I`-)0?24^y+Y^@G-5vyyzQevW3Xvlb)#Ap-UMjDhbhOU{zt
zJWm;p_4Bba-!3~?jCI7?gw3tc8ns?VbpBDaTN~?{%wGESLpS~6NbD=UGwq_aVX6O@
zw)X(DqS)4kpH-pr&S7Tu<eXv1IST@US<D%a$9Pm!JbF}yoO6aD=O8%?5+z5;h-6U7
zL5br3)*eti_q*rb=lh<&_wMfM>Qr4})vC4LwW<fWF3iV1i;hRHBp%<uMuUI%I%lbf
zu^H%$Dqp%_tYC5@H7@NS(Cey!r_lzpy0O0MqtfxlyT2p<9szqfV+CzgiN5>$2PoRz
zUz(nauTADboXtd*$NzCAfwE~DQH20L)&wo@Pn1>~ZXSoWgaO}w+!o*p8;?-io$P&$
z5(N4{UnFY~HPwx>p5-zY^Qsc9K$Acdaf7;hm=6RVorf>L9OR=NG~UeAMBF$OqYu&E
z092GX2V>*NUUENPp?1@crs7ugND-BE2FH0J0v%A*B8lb1GW0~`1pIc9>77er7b@}*
zC@|}wV=C*~M1g#3ICUdlj}JmZkN^+~pAvs~QT(OH43X-1r%M!FWno8E1EqZpsxhKk
zX24^u*INV8Q|TAY-2-mrxJT!y`065jRGE9$e0);jonsX)i^LV;g%2VhgVFk_syV7S
zeaGl=##dQA$kaPvT_IMBJ$#rok)~_O4cd9fiQo7x{TScGN78TFEk0JPV|&;Uz7fZx
z4X|IPHs1(^h8eN(V1Gs!mH9+N^Ncg%wLS8P9Byc_m|9xnvtWxAKhjYACGOGiFBTU)
zV>N!$vt1j3x6RaEStD1-?`%4$Q8n5q2eYYcoEW09@nRucM;lph$=gVNfo*0zcvs18
z2)3K}Su^<}VtVl*Y&u&gXNlJqNpS{KN{X3`EfC2AP?-<QZpPun0mcs$w1W%eU`QYM
zV7f)cT7T&s?4|E`H)fqpb^IA4X)UqgG?&<R&dc*1bl(@>(i|E=!|3VH=Nd~P)i7d`
zeaS|m7Kwl^vH)C+OV%h9Ur-}8BP=GfA?&C~uraIhc2T=_?W}Z61q_oF`)$q6h^Ojv
z*hp3`^8PS#`8@yVN(}=^ab?OJqoOa`uv!VPHp(ALPD-NQGB@W<g#xIRo*IOTc_JIh
z=hGS*$hK1D3^(t?g8uh-1|$T|U~<>=q#R<r1l<QOEPS6@&E#3=GFE|T(Ps@?!;!4z
zwYB_s^nSrd5;{|&*&T{qSkUh#Kdg&mytTrKWm79PFX~VFYd)V(t%X>hipeZ2Yd?@C
z{Y6su*zTmNuFR~gM0b@qcMW$|Lip7-WV;G8GSX-8a9R@RSot>+QQzEX#!c#{`s#d~
z{iyEnMCT*bEaId=_rqbP5nYq=5~LPrU=~(#46{%Rq-ZGtD=RT8u{~o?#`x_Ne=5Dt
zvoOiJ;QPq^a5ynPsY!(|U(T0sYdW0D)UHOosU>C+x9@KieTO!Q>*bOYtG-u@VnEMB
z_f^tfuh~KqFRMwCQ}X?7$tml^YWW~IWh1+pD?ZuH{l0)ZQfUl9Mz7veGuaCITKUlH
zK3kzmd~($n!Z`yd4q}wLwqY8_=p6OJ;3)JpwQ!sq{ms&X2~7k?aaprLJ=|Ih55>LX
z4JXIh-Vu};Lz!uAc)6x#o^t)srYn2t<p)Ed1@us1EPaCYwTKJN^68ohLVL^ffVB&e
z6-&<ZR1pL@KCC4b!CzDnxIIrI3M%zEs>^~6JZR}PDKD`?TE)zaikS#fV)=eV%~@J@
z^#G$68r7{1mO{8OM05)mRv^2h#~8P%IE3vocxb5laH=_z>i40R&w1|m&8Cl-Hx7hI
zk}uGevRlSCC}EEcCV##^{_~c<&}C|w{xS$-Yt|wz7QLVZ1pz0e*;?A)f=0Y`offl}
z`DS_76kfPN+rgssJCi-|MUs#E9!m&8PP{|**Z0WdJRiJ(#)`qmVfS)$oBP-+Rhs3G
zp>?#63h%2u0Nr<v$%`qH^@_<ohO4=&jCUy8jPvi!rHqsSC5Hl(l<>K`;Z(}-Q&xah
zz*7$OV7Uvae5DvFQ&cXG^3u!?uFBmarc!KMYUA9W0v#%lup4~qbheI7z}Vn}cWy<u
z7r;`nFTh&p@})?0*Nys-XFM@T(D-U{pJwvBkX<y{F@|cMXUqBTyd9{0SM(^(GO->&
z35JgOG>iS4vx@eyV+0=)$tBERU$l0KnBTGoAmxz>^yDBAzkQ~7<7dR|M0-Ax*aM2_
zO(t(S3iNNbmR@I|W~osPI9{ciG{n=<Fc@aUEXEeQ_29#j&zQ;mjQ(Pfah-Ld+45&)
z9@s~G#`(9*HII20QX4jj{&tQ|8RyO9-$+hnhh>@HwX!|wh&1=5o7K(1!mMxHa+{U>
z_dA1JCw$l0D*plbNT2iueMR%Oo-%7lPG>#YlijK1RyJPAbY&q%g9F$c&B?GQawpL_
zq7Mi9$}sffx~VOe7Xrp?$X~-!b8=0uVS0iEW?1dM6<QG3)+sWf+*rD1=$TH6lcB%v
zn5WocCKC1Ju%4W!hYkHC>kWAW&*XEd6ZPgrA3PM6(=pJ;lBYICc_nT(3Jk-tjFlL{
zW2vm`>*>YlU8l`6y4RcS_11c(qin%HohG+aT-pY4TaKh!5IwHIARZ6d3Dv(Y$Fccj
zPGIH_dU|TW=L-bJa=$;|4+a8VnP)rO&&xZ9glCm-+OWN8x?aMUA%kxxER7k>{@ID<
zk^2nWK&R*exqDgtPz0T<E^H|cHFsrS&pDSmH-1n2cG+xTdV|iQaVO8m*&E_c(_(D`
zvuDfkt`Wv;r;Bk-en)L&i_gdFTlghc{tZ4Jz=o|ne=X&mbdJg?kq+($n_W$~8QJLc
z6wjQ~B5T<*%d+e3;%WCU)4r8gQa6}w<R1G1EfPP|0;F*lrGCDR8m)}m6tu5M(N)_^
zKeEF{*Vv#hw23d`C((_3yv>Sz`8RW$HAWxmYf`~I%yx125w_0w$1yg;>`9>+au=UT
zn<#e-p~8)qN43;N>;};yZMc1lo#yRCtG1f!J9%3h#d-&fZDb7eZnu|d+YCNTR=h9a
zmzY|Qf^QYnU9qo%K3T^D-D#ca`Z1@sMnk3Vv~9+Bh_6%YYwG4qW5={_#P{y{$0@NJ
zPn@0fz;yAz1zICJ+WQ!F=Y>n{{p>2y2Km<2v<BCCH@V5G`1e(Ep^;H|if3jvJ;U;v
zw((B~QtYW?G!aq@>=vfP-Hc4}JIn2BqF4N2ZMEnY-Yk!%H@L-{_V85f;4bU~0A1kk
zS^MqL@!JEZvbxg%8W5kEH&nZ!jo_(=c^5Zt%zGHW^31g^%QDM_txzT)xFcz)&SzS*
zQlo1oOJv_$BlHD$Nvo@-h!<ZAxt9BT&}!|=V`4dk5a>gjiCWG=`K?@SU#Es?;EpPZ
zRCtdL@xBSpBDPBuE*IPRuWXx~Z*=kPpvG!hr*{-5*eJG$c6q{y;f$^j7kFmK_{uv)
zf2x`AaFQ6x?gTdYd)o2EbUV@~{s>#@znmm53pqki&$OPNRcWg{GwiMEyLSbuws$Wy
z4?<>=%-IvmtvWrmD!XV8jnhZkCwVu~`sdW)ITI;153Un!4gPR2Q!?}$@HGNSyONng
z*n(jsBnPlc0D1^Et9N&RNGR9u5Vu1lqa3@c*;-U1#?`nJV>PT0pg|CY<0#6e^ceE`
zsPjf8XT(LN_RY$~3D3X=!pZ;P0X`+FgsuhS!T)9-g)U-);Vgug5Yj109+YWNRzh;9
zpiGcxMrR%We|$)q1*KM&E0`9EDZsqt@UM+$8$y{BW2aseUDYTW+^<S+DQpU;e~30Q
z`+Il>6NNDqtPT{Ds0bZ$K-2FUOGi;G>J}vfh2$2}V%$@@DaETGEMyIZ^}-~~d6r{a
zPQ@rpv$>sMHF4GRx1;n|Gb)N07^qZMw_;$fvRK4H6NYIdRPvxXLY?Iz4TsQD!Q&r3
z1for7pLDpFg6<Z%2(=2PX;;~1DoHT*P_IEMp?0c_Ros6*oq9Ljs1Q+^174>xOKlY#
zG8%`7=oczX7DB2L{@3_u*8Xqfm3$8U>YopO*|Fl70X(331JaD03S?_vv}jVZ++)3&
zK9{PPRn+S-R#!Weor1N3>+#$0<B4J*$AHOutP_fHJkHywQBJ(npzFZoCkkl?=`tRR
z=^>Ts5K2;1G6H%NlZ>Y*y*V-)yci^+kXb9~ieRsXAwzbHJG(CI*>e6Ssy0CkiHmrE
zTmUMnTtZ5?$Q420MoAcEylMhi{dg(kaM}(|CTjdsF?zT1nuUifAWeFMT8ua31#ba$
zs>)+7+#cnst8@ZUv{t0aRR=>}80!NS2+(l_HSsqVR1wJD|Jy)5RJa*X6(a+<^jk;{
zNQjb!V|^E@JhXi<S!!!G!j)yyFiQ+-BfcG&0cB)>1yXwHB)ZTd-O)EKWNG<XRa&&8
zT9?S}N^$4vjS_YcY+ISH7OX*}&rT`ID4{f$vXIBD^{R%dnvJ5i{<1?+sYo03NTEeh
zsa1CCFUG;sBWF3dj|IF)H!3hXtpKt>Q7fbe8%V?%Ple92g4;oa3&}-oL?r6Fs-##k
zkvcj^Kb6NrOXKP?Sg)(>RTsce5)@KZFr=a!cKBG_kG*8g%ild#DFKcVhiOh()JRok
zih3&g8O;qmJDMt7q2BzL9~z&CBH=(AqL=;WE2C%s$LHy!+^VfawPBgcqX6W|Fj+xa
zMg#bK<(h)!fk>#lKy^mxA`+TM&R+lA^8*#c_y<tcx^X_uuxmu=QJ%dQ%^+ato=}kD
zxc70OHZe&T#8}bxXT`$TZ@{lX#s*dmVYQ&$LAI#!+sR093EL%oK!JnAI?DMUXR+jl
z%fTdf7<g9va*@fPu4;>-`%CbFe>=YCs=$AL$_<kOW>jk`o#b+s3|I5JgVG7Pd|n&4
ze-L_%{7|(}(vT%{U{Fy5-6(IR7qTF{wQ$yJ;7r&BH3%e<>QnBVj3O9eb&DL1aT1&e
zY=#1w0A$?j0wiDaIaS;ufFYdi7Jj#=YA}Ea7$h_ZD6(Y0xpXw(Q7=VIB)V1EMks^m
zDR^nck;)i#s9+1xXjL_%5gyFb9IdBnr|1kOsfv~(Is|l@$o&XF9j2xmH9X3HF+4(`
z|3uY<fEraZCK|&*@6d=r7G(sVi@Z=zQ+tJ>$NWo4iK;d$Y6SBpl^6glq4<ZI0$Mt3
z)S`$XvO;O*1mHqK6kzgRU=viwVzRO!>6S)ZAdqaN_)uX?3K}7!vR8+qLlK#@2uQ4Q
zzpAID`0j)<kXQ)ceaa>hXn7<><B6q}D_pv}NH(SwcA#rfs!tK!R%;#SR&}$<G}IvV
z4I!^okQG!&b%bI@Hwaip^egaqFUY*=%V1nu8mHJ193`pC1Mr#%+zVQ;`es;YK>L8F
z>OmJ=ejrA9GQq3S5yRK4vH{dBbQ4IddW2%5RNX2EQ%(?iN_Oia1@;=zZV`7|xiaWP
zNk){Ws1H=>`(uL^qK^KIkQvIv+d*pTp)lYa*~TnY>YLK<$?2$7E6NN~LYEU(ZJx{c
z=njdACQNmN(c5q*Dp7Qc0#palBNY>YMhbTV%A$_$x$e$Yckhp$RCxm|NNIKl<4eoN
z1<kc-hJ>y8VT&MTn%f;4tHWE2`Xn{KS;&KW5=||OgrS*KCsg`O|GfuEXe_E+&<Pva
zQ6iKXjv(8SxA-uyof6(eb>ORnl@c#4*gxDC!W7$2O0c@n>N0kM(6Ls5WeR!-d{C)2
z7_CQ@Im~YAOaiV7)9H9?sOAFVhw1_5Swbw!<KToP*^<f4I8-6{aQyG&SF{U&d<)Ns
z@-|UY2gMR7moR+Lj>>3XA4-ijB|I*wN5Q)lH>3d#k9QT}3(#ax$$?L>pvs0c54`}8
zcQ6J*n}7})zP|{QbYPk`mEZUnR8!R;(fuJYXncQ!Rgoe;R6D5{|8xg(U8i8kBfF8S
zDY@`k!LvzOij{UtXvg>|w?}^-1AngyTt!8T=$@@|82y(s>Vi8LRYWa4gNlQXK?}U|
zD-WAzUDo@b7=&>IucsQ&UGTsUgc{nBa%UeK0O$qA-WI5VjqCukFB}DtvM}ry+$Ru;
z6_mx$9+HK?T6qDZ!a+4$Y*kXZ>Sy6lPPXGXE*65c8Z0i5YEgDRR`GA>i}KSH1E;(l
zU<W{>st@Q7S!}duq#065A8xCS%H}^0knc)!iP)&>66d0Q6+lgYFd*flF?ea|eNn9$
zO7m`P>3yhex_TiNmE)y+ieff%G4B<F;buNEQz`hl00N{mpvD!rnuCYZBW3WRhp8d9
z(HE$%y7NW^??#orwe(!{y((A__e4|kzrP0)#N#GZb+j`z{!?Bi6f6UofOaCX)X7I1
z23={U_O|YQAqLtSWkseb`lNY9RhLr%Ldya&<Jo%@j)!eHSZzqW@i}NZ=y*WB6$QW>
z)Mzq}gJ!s4QLR`fBvvuZ*?&1w^;RWFRYMdB4$v}Xv<Lk278Rpb)SBou$RHfmfzY*)
z8@43LPg7D#h^3|DDQJJ{Q2?aizyuqHY5{?~N(}IS(KBk`ri^D${+8lc6?YY=Sw<%h
zB6J{FEC-4pI6S#`O)rP<ZeCr$>%3aPhXNw&X+uu!Bn$~+|9yO(g*U7PqC-^|HNHUp
zW_d>vYmb>YkO*)9%8h;L7pZ;e7nSnQ$On}TxK7nk6-EId^QKUvT09j$O@QN34^cJl
ze;^`$aN1zYKz2~HU?GL<1D!Oe5|X8M!F$4rhM}^eFhHbuZuF*T2V)Hde6t+PjY_F4
z;uIOZyH%Eoii)c@{IQ9?PaUbcrHGy?VkCGi>IDcvbR3I%2PHg@xOgkQsDMGK4>g*G
z5gN)2d}kDFi#I}E42qBJ!kuXU{%Gpdn@r}|ka;ggHYMi`0V9Mrs3b(kTu1<#CT14q
z;pvp(Iuz}n^Kn*pCbQ?%;2z5_go$RW8nHf49=aP;B@`D(UUX~3BJt{_r9@W46wP>1
zbi~2#8Efjs|2)_<qrA7LywASFegBiCq^r+htaRregsIEmgUw{I7K7L7d;dHB`%``&
zFaX9fYHD?*)zDD7{`!B(&EQJ<-hU%7sBWxzSWT=!ScC$i!koWehFdn_ak(e~&9SWK
zlA>vqr90op7E8Qyrh(e~U5=Gmx|aPjSZH!56OuM3JBtGE8LDGPBLTypYJn;ytfXeU
zz4tHy$PIYXMmd1Jiqced05X`6;!eX}8OfGL@29_W$Ez#DPaPAaXf`*JWn~RxLqj|i
zWo<)sVaut(4~pf6jT(9jOQhlvxzX6x-Xi~01y@sD6F{-(n$o@{76E}0ED1e{3fe3g
zH8&BpKw-1lbM4TPU@A9sR4{ple`*^Y4hGT~v+Jm97^~VCf0$eigQMzV)k-*EdWuDf
z4y{q&<wu<X4u+38ptpgLy64_>1wIBtpjr+fY><zE&Zu0_Q7xhc5be_OL<kbplTqE3
zxB)d5oARa+XJpjYwEJ);u25s$D2+-e>IlMyQGrS<RKIBRXvRo7Vt{8+6d9oah#|)8
zswV(BLy^D{AArzmr-X*!X&5G{!L$s%B6P!;qPPcokpG9|Vr1aI_gnw?ROFp%7ysu^
zMPpV_L6Kkr;iom6M<(V)lyQh7$TKJmSPEc-z~+DziL(VHDu138srQ~u6iIre2WBcp
zc@{nxuY|SrosAMj-g_JYjz&tg(O9Bl4iZpE*n>*Ju@+|VL-pa9BM}|KzXt(aR}xNS
z*q<RV&Ujoj622xu3{?<3>b+rw=Z-$CwFL+x_$u|@=!Pl7=sRzR%<S&#;R@#N>+cCB
z{qg!gLy!<dwf096)YRN}lW=bsBmcW;@OmvJO4hvKW*MwkK?QB7=24N76-7{85TH1C
zj0)V1af$J0HxNCQ{*M8rpf%PSX$9&AxR(ron5(@HO~pW-!mu7?4mcBp9hmq;f0LUz
zXtK=h2`E{S8uvl|^<P8EzTE{T;J-hErUJ)3$}nG9Ik?bS!K4;-56N{wB!m?3fU4-I
zTqt(%)^K23*#b9&{-_)Z2BC_ix_wKiS(vnVOSU6F+6IV*sy_}I5g>)S4gvs@2EjlK
z$Opy(F!^A%5oh~@iaSuk0>r5_Fw^mSA;iORboML9@PZQsP5?}lGVnzZgZ=-X-;hA;
zp-2ib=OaMxoc0j7ZQ@606}iqaIRM~^4zvq!Bl<@_&FW;dI%g(-C(SQ8?<>Ybzq68@
zSJyIk=6s-J*gT@M057pm7(Yv^#W$io>tR~A^q**gTuCxFJq6w&>)b+)3}RZ0mbAb;
z$ure5kwtgcJQaoqddH9Bn^<?&aGAE6uV77<Q^Q~7Whc?UhOO0l8A}7Z>?(u!Fzx<!
zd^I1z=J33<MtN!Tnd}(LQrLJG3;I|j9izkaU^+`;S;6c<Vv>17TPF@O)>9k9Z_DcP
z7wxFFMTCp_SgQ4nSgJYBdHK74LedFuo^>{Uu;`$VV1t=4hnBOnt#}mcX`Zl>cKS!^
zzD@izPde*zvXV2CCW{gAk1VBD-_va%4EC_^&89toc^Lt9wyzVv#LlsS{A5a3_FE*-
zRv%3H+x2Got5f3UvEOMNH;nFNPoruB6k>rkFw<{b6{g#WvEAMuU=p;5a(43x?BVsI
z%nOMXQy1G-30bN3G95#Qa}=r{zlMBmslm5;pa?*XnXC{KOLrHEMM;e-e)@8Kzww^k
ziDb3Kd?YIfH)#0kTZvUGWXc&(a+?**+VdzgD`qt%JvkVChF2!9z^ou&j-dCe7VGci
z%(M;5NN`-{Qg#3U0MEC~h>IJ~owC7BWHvW59yT+6p&b~q3+Q|sR*z(X1~|e_RGT11
zf3@7#NDl>D2ToIL@&gmW>djztX&slvG~Y=Nrml3HY-hZF#6R8IYb7LQPtmcNXtjs#
z^j8|B=Q%x%65DMrG!6vjnk{CFL7uB<Rl5zKL;BiHbNYhBe2Y=~5%~Mqt$oddy=g%5
zOg1=q4(pGKvyBZ-aN6i1J*lAxNdKvnmi<M`t)NxA($O{V2Nr_i8hs2}JR1u}B(Q~c
zsRqy34Yes<K5DNePZN15d1Ij3%e&;UjF?^Cv7Ypeu_!L)nZ}OuqkJ#>ByKK-Xv47%
zqx@`Mfe)8;bGOp?m^D^|eqtD(>y&vY8b6bb6zfgbS8OUfMC-Ka+F>!825aBj8{>QO
zZrUbY3`^KzY-e-jKwr}zZQnMT7N58|r#C;F(#7~e+hhOpD9`L5u7vkEmKm`8e#@Ld
z<3vN&q#Fx*<{8(_UlMLaRyj>p#Tk9YM7_ZX8Y8BNRq@s!`gB#O^?q$S*#orw@z#=1
z>>enr7t*otA^yO5f6h4WE^#dhzW$A8t8rLNU_XeB`U?4r+>vTMf5F|PFB@wleINLN
z9}nMPd+2K|uqLtyu(`!-w<}O06ITbb&6s29$Mw~Qd4td91I2VchTrmU)0eQFe4D-n
zCR)5aczQ25h}Q6-w3{!4l75{rlg834{Q^|P`FWMcp~>`QtLb}6P3p%g7roJo>eZ^*
zVwmjCDusvA7*-TBP6j{gz<uHVKr_C6TlS|p?41W&G=BVN{i)m;d<$<ngcY*|(5k$*
zQZ~gSmlz${NsyrfG?I#Xhs%6Lk;g9a!g6IcQ1#lQd2)YBSwzX%ZqrvYKkN>@SvDmQ
z8ALVmQ&&=9N?aSc+W*8f(M>Owm$XBCq}G>>GB5a7ChwxFl#&_WR&F!)XdUDV=*H91
z(&{~w6Wxv?#~#9d5`I}PL9P>>s6y=tT279)9Svp$ywYlZhEh{glc&&N=cM@Z7uKCB
z&xGWb0H>3E^`6uf+M|JFnE7)>+6djZfhD~=j@pXH8&o_4^>9bgq%8~Im)vwOd+=wT
z)LlFg2%RGLF)d*{Z%<V>vpk;Wl8reVOf~9M<K9<w8UHOHmPrMA8(5lkr#<ri7Y>@0
z!q)-KSzv?4f5-Yjt6!(Z=k@cC(K7(e*u4p$31S_g2hVU@Gk{yc-CtY+lL-e@z1cZH
z6hVMClJ_Uxj&7@Oo8=A{gga7VVqy=9uM*CRBp|qgX-OBcKB8UZb@TiaSbnck9sg`P
zM$MM6Zfr6Tf*9v5px+rEM1^h0sJ{d@4iC--t_b~yHW92G27&)L$KOh_;=d+7&|0RA
zrqvS0Z_(wP?$n60QWCU^UXkn-=@6fS!45$om!N-SLPxIyCg*WE<?$<LmyK>Wlj(`A
zBV0LW873FCLM%zovkV2v3ma(+gNIln1|2Vi$*B+va6rIxzonIhzdTH0=eD%_{x9ws
zCYxViYbo3}u~r-K3IF1JD2<~Q|Df(*+`)8jgq&4;I1uH_ccant(~7NYo}1eA@PXhM
z){XB-m`5e4!$tSxt;n;jY#dz`Us+@6Afux^qxvmgtR+vPj!s7!z<041ES|w9rd$pO
zyw^or?`l0Z)h?D_(^E~`(@T}_?7#D@Vmoqzv^(jkQR1ml`fS_u&oX|t%)*T4Gy1b#
z5p82w+mf<{z6rFYKH5Cj46U8_aGW-Q>IN{~isl$QNzd0;sZ9mg8A`y+|FXeU?2z~9
z(C<mZE5rYGHhTD%OManj+vCY`hB19Tn6xN{DIVI0Shy&(4gGynx@+35;1tRVUj}O>
z;3QW%#v>40jVHGia23`SrVVTzSYnUb#EI~~NBph6%k2a-%kKg(vpYRu-Cg4D1}x8=
zQ1d@x^7@k5iBj>&ZArI(RBslU6=6OZ&V-uYW{>KzwO)U{H<`;Q+bXBKVC5<Kvva7t
zwS;7EsvvYqfpLd;PBFJY=YcDXZovYED+0Q$eviqj(l#<7Uxv_Immhi!K((65^yT)m
z7EqBZxaAHVr;z(PAosdg2CC>U#OiTx9)q&m|2WpVSkJ=-O;!;y&nXaA`PfKVe51oF
zj%O`j?FO3Ilb%^l`dYS5q1a3`<V{Qi^48ayCHnGrgIP_9{((hl6s`=(L!6S*1sWCE
z;9%UraFRQc(3{1^#d^w27H|EtWi{b`M6aozVKFW0ebkllCbOuD<(Sn%_Nzu(+;3FL
z9a|98<YcBzm3np{ALISaN-SaL>Gu8ag$I)7VdW9b<Y|7G0<{xH1ln!6f%#(7tn4hK
zGwKpAh-PISaLBsZhxEiAEJ=EePp?SU&6oru+{~He&w9~aGbd1_|Hj7iGT~3lg!|Ag
zn$28JIoB9o00EJf`6$<$DWf@kA+2JDKMk5rAOL`r^jDn%<fRT(kFMW=WkSJ@2&|A>
zNB4p!OrgD$99vrFvs`YpIPTZCa+Q`U5b5KNE-V;4!p>5x7v|EM0$@JqfjD6>Yg#``
zIyK}Ga?RwGK6mMQj348-Fwhz<E%Ki3Z49g&ARd|@`%k<UOnhOcOBEx@utHH1bijU~
z6ER@J4do<%-ntB|p%6Lu)V{KR)YJc1hZoYDiSB7UwJV!OX6giCZDC=xya6(um^cVd
z&#|mz1Nh%uHU9X$S+^qZ#y8P&dSX8fqPWYV)<XlS17|OOa+6v^P~x~fW1;VLKmJKI
zPb49dP%b<MivJIbsnMOY)xIdbsy!8>kI&8+OxZE<lX>CGx*xw_beo~YW27Drmurbe
zhJnI>gc#WXh)xpI?LT+%3X5VH0)q7DK7->RzVs59IIAl`F1QQ(XVRd+gvv!pI0XjH
zclIW9Sa?1ZL3iH(8|KnG{|w*`2pFSp0O`6XY(Y!{6~%wO144$<*TR1Q6r)Pw&`4Vi
z24fa&gKXS1{qsajh+h-2@v$)8O=F&b=tfQ<sK>plpKNF*@GrP?;*W?tHL#+vrBvsz
zL82FZs4_9i%WOn+V*z(<Z2*+WIus@7@c?iF8D>5YG@KS@x3@!%pNE(Yyg52=rh75o
zh14%z3nQb_nI4~r;qd?Et-)u?51<!&Q`7T&AbnvtsaC}@;yUZB0f^W|$rY|EDeZ?0
zqcr9Q!G$1k2HVEB(+2FzcBV^-*Timn7he^>fUZSu(mLx@X5lNrw}P8QFFrov@$QUF
zW1aOj{1QLL)&ckbRU~D+eU^6>CHiW`q%TX@OY>qb@bpb=g|=NZJ<QMXeJR&OG1#vu
z);e}Tu2QUNo5WsXn|U$PB`}xQ>SH)xvE5o#tD-er3wdT~$3^e3@L!Mx?k?h2yO;1J
z>BWJ_JVW;`R!a66T3^>G8f3&hl8R~RpLi0&mG#;bR^Zn8d5W1qsoh=M+@8d_Fqh(8
zdD1k?li16ywOt*4*_YJi?ND{VEyax%69bFl7i%ZwIO@#X>6O|+PraQgYeNJ~jh3*4
znC0Y8HfNFn`!GEf!aiu|DMr)bd{_rZ67xRX?!q5$d#a@AZRk9}1`Sv-c%7W`RjS|J
zc4kf3PG&sKzPQZXue4x=!I&iOz(8L!Qr)%_^xC5sYiQ*Zm32Filq{eh4K|Qj&$cWf
z%vI*?Pg6441RflxIgNce#ewAAT9SF3C*^O3jZ(0Y|FbZNay9u%80Pu88F~q8-Jb8`
z+rhYhO*t!YUA3YS0v3ekGniw<1QW^J8OF1n%zF|a!(uFSpOvZ>J)c*?-G#o?DL^f(
zq)<5KABj&TK6;0Ld@8XTTgKALJebo5%;<UwuJhh-4`QHQB@i)L?^@NYE_|7GAa<t+
z2JCm7m|&`t5O~089PCH`7O{-h0J%Arc@|M0N*cj@_5bC>4^ZANHYmQUv(&B$?PnG<
zpACd@3@%FR<5`oo#&eUvl`{4l+Z1Jz+Qn~=?r&LUG5It6^SnP8b8@^iE8I4IF55{P
z`9}ICbeXl`i}^FtQC-KS{c{h+te~&ypgs;b-z)m(Hz+2?JT3du`bdfdV8INo*IsQf
zMvQ}&S~f^oMk^(($n{(Zl!M#E{in3m%y*xeXrIu1OYP~5J#HOUey~{5R*}>C8uwo3
zzVanPeoxj|1(IzWY}}g~_oXdjt?X_zxIuM}@hVrS%2)KY*S}KV%U4rSvqP_jJ#mq6
zFs?z^sTkC<UjIMDHJr!J3AvT8FKw!$<ldZOXC=R#V;}WYXvfT{(%hysdVVJrGqwGZ
zXAC!%XlF!8<YI6$Z>O0v-Ql)O0f@KA3oa)kxu+*Fv364Rq`xP%M|V>i+9}PsG&5~W
z@Dl%t^Hkn+yextdQa={ko%FD!hgLI~Q;KHJPw1%S9^S{U`~z=~o)$QO0uDsaTP}Cp
z4O}|QSRRV3(!!6&EC(0VjxIXk3A`A-@2^tgezR#O(TD#gT714x#GWxGz{3pez%J4e
za0f~68@a{|I6%<*!h%N+hujxS<x!|)@s<)v^>7W6DpTL9`?Jrr(w<3ese{m8*ecD8
z^H#xS!XP8&&ie4(Js?A8Vg3MTE18OYEC{A2RY|Xu{xY*XQmcZt`|mLy_cFQ!YS(UE
z`*6;B{aAPapYI)H|E==L>~5O18KQz>?;QKL;4HmZbN2I$Czg7xD^9C=t9h$>efVn^
z>74JQ3q0erF@*<%e_xaGVSDl6X`b;|Ql>kSnEd8kS_!$_I(9^U&0Nn1d<7|y;HCt7
zIX#?KxzbDChlAb)e+Gx}Z+KRUa|~0w&wx^MI&>mO0Gt>srSr0U(QYiAd9aRcA+5Di
zTDM91Z>C9mIv|o44C%Ckslg<4KjVcA&$Q%{;A+ZgFM?gkEaBg3`V3*0xSi>SafBJO
z$TN##u1nZB__rC}?+Ab2er64n=F8#n7UUrQ!;XKlWsYM;V|@-8E%de0x-8AZOuwy+
z1e`WyT-Vc_lpD5j6LJk<jL^-$8$YtZz=%`KTnD*ptR6gSSe>{rU7F_%vz;&}Y36w0
z`^xfn@|iy{u{7DdA&g5*91~){6m2ua&VX}9JH~$&bJ-I4yJsfGp}7;}PI)r4+PrA3
z)o!@@&~m*k4b-M3d)NDp$^P<zsR@-oENa!4-3)$9>z&sIP=C89rbYEzG+4eknfIb#
ztt)(a?m$+fMhVaY-G%3<0d5L>+hE8x?a|Esk#@x0H{a|nx{84?2y1m(8;TMg!9JSC
zf0Bc&Hnd5elyhCyA^AO9%5E6LWwU3VeEQvS?779%Epna4#Z|Zh6RXSY5_>Q`$1(!3
zX3=VXh2`!5_xQawB6c;{uRXLUa)nOwBO-SsjfgAPdI8n$Wwj`#SIQ0M+h{a?v+0wY
zAa=jfqZ1*&eBzyT=6O#y`?mJxQe{zEkuK<GB)Lb>H=>_WOmQQ5XUd$)>+BZ&CB?o)
z|DrEnIwr@{cz4z@c1G(;BiJSs^VjUj#QH<|0qWp7CQ@$d-#8z2()I*ifBKB;fig{+
zB*D>bLx|Tg9D&h_0Xsgw+wBe2cv03D`cuYM0n>IY(d{-SdXi=igC(#7lM`j-0^Tl3
z-4H16lC_1tn>)!$$-G)&Rjh8#JvX;^6b|;z4_ur)OxC0T%N!Ju17JU&-Vu!ZKB<?G
z{+2jwim!wi>=qLZafpc-BmgKnD#bY_RvThHssC0c`bzPFr<<jM!)TE$N-Qy&iAG{J
ziO0paQk<6%IE&v%jAi0VYDY)xh#h5#{*I`)hD2{6hU?-ragw=~dsmp^CW+mUBkJ}R
zL$u>!suZUU(ME{znizw2V~Lwyaexhq`7!bNZ)0z2G(oIMTp9XVYxQOiHVfH)6c&+l
zFvNOd6Z4-5<!Zyl63=>RERhSS#qYk2o_1`9m2GcN$o@9rh&9YxXFNB?h_=G+A2E(=
zhuCeI{Pb1&fU3eG^4YOg<u`uhT2f1=o3ImHC$uZ_EGtOtOP*kI#z@O&1c%ZteFAOI
zwX{Xq#ZaKc?#?mA#f0A@x4F;iL}kXvRaAc~|9o+{z+XbJO-{aK{VjkI=_>YvE0tUy
zQ#)RcWW}Da!WzT6@E>?Pc8YBSmFh=z{Z(QhsvAwUl85l0ykywkrYGzfRC_-pi&tq^
zd>6YTZH{mLVDfZ&Y%#2o-#Ek;@*iX`8sVBN+R~#xYG=F`A)Rja!43Osv6eQmWxg(`
z`zQEdd4z8e1LTivkdaY$YtR`^oy_OE>#0YKm)G+bzsekk>YI7hS<G7$)bQ_fx7a0-
z1^dklj7|pEvRY|gdg_gFo+3)xO6Q!SIo3lJUVgaP*e>448%!TBu)69)69zgbtc`l%
z4*8Sl%U?Mm4~y1Df3&~`PinpBvkxcm*ULWAp58wMh4gd1*$88&Yq++CjgKG5rVHvw
zD@5%B;=ZM{KorwveKlH92i^~+PiI)mVKkY2be3+j51#pGE4AoB?Tw3&p?+#~rZzO0
zUR$HTbD2hqV*NC8@8&Da&f+L6TQ5*Aqn~z;tKo>Y*!wlVMw_e^;yb<uhGSdAR2q~s
zB5tpCN=~#^YRd_;yC(JH-+}|b##f1Q?PyU#e|TfiN1<e9+6%0{Fmg`qYn|182N>}j
zdsIHWNxX1MKKuL!{k1pQgEOfs(*`jy4(7T$_*-$C*-uR0M~$b@9DNaqx67WTVeu@v
zkvRZPM$VHQ$~I~mhC`;-OT6ysNY9NIv3)cEQ-;t2{yl$R`$kL1jkx``Hj4N-2Enj)
zB3JYMVwUa0R*9?j@9`b%5pu0|p0yF(WG6b2opM#KF=C58?`eNgOrPE`%DOvK)<Kqb
znudoqi3)*WS7(9f6LNQ>{?3HZ6gYER1BW0JAd{Sn-x^w_J$c$k-mO|ktuuT4ptt&X
ze%?1SFi_rKp;(;JO7b%=&?EVMsB_9f*eEUIFITVg*&B;!f^t3(!LP>C<zB1buvXLl
zG>X&9Bv)z|*)>W-ZY5K_NQ1es6So(L8Nzplh9eJlLKdDqiErbJ#4&2J7joPE6i&H+
zDfew+`>5Qzk3IFu0KN_k%niOqv=b-LR);xddqkQ~&fR04bFKECpn>9oJ>1(3wy`Z{
zuukM@b(Gq%c`(KHry0QXB<d-mNb3o@m?Mn$&0Os&nA)CzYRa|fHk$mz?r%@k*K$2(
z2Y<iv2n(b&`-6uUupcNtF}I1akX6bJr&p}}D|LY+ejmiu#&DQC&t#jp^}Ddvach>a
zZV78Ev$oJp>d9)awDLw!>vAodKmJw+>Oil(Rtyd}cQ6zN<6(_gG5@*zzd!xTD+8%S
zEJMwH@)KBG*XaZ)`Y_g(@8L^mH+5(K+Dn`1Fq;C_zXv<YM)Pr2Kkpg-gE@{;MzAs7
zUm{uW9g_ROF5h6uy<@tuE^I>luGmTZfEdSnh`nMct@X@_eR4d6?vwOy*<SrPU5aK_
z_UX7ma-|$f|5_)$cyUVHB-(6lrk`mu5Xq`b2|c54XP_lu7=SK^a8~?8-qOBFNfg##
zxGb%X&fT5_`{NYXJ`e|lBG4Kb@P>v)_zko6C8ICfkb4a|oU{W9R1#C!Oz{=_OhPQU
zMx2HAabQepJE~c=TDi(q`ucZ7cDTFHNjj*ND<~-V9yM_q^<!h8U%kRV|AF^Ji2|L!
zgSC9@?N;Dtzl__<a$~&*po}i_+78w@C)WF^=Kh8zg_<ws+B!p=Ff@pWwfJF7qP=tt
zbd`g1hQ};Uox$HIQ~UK_eU-Y4N^@8-Gy}c(4r4NvU?loYUQxMcZn$Q8`qL2_ioQ1U
zENe%n0-;b`YI=Iy*ZhU^;?;$Gv^Yp-#31nv+v{D(I?}h)pYOpV#>m~YT0P?TJC7JC
z`cdX3JmSpVN9^N`y2}T4@nvESs?+cMdv?$}A3(U()R*tVBSy)cv{F6dw>yt05q&80
z0v_@6-A9y&U9wo~Xddt`g+5~=4dLJ8#)<L(ZOAJsdZxX*H2LGiV9LCT8!z3x@eseS
zuWWLFuNJGQm;8+%Wk<bpSzG9@d-Lz`h!JuJEm!ZpdFS23L@&xbhe!N)_YuRyck*}H
z-rVQy%pO|_Wr}9DOgDni=>Jn6!xnnCKv^)4H|$6imWe~O3=T?~ZiBHw(;>jnH*Kpz
zo7JWp9{_okmGv3(YNq!mvJ&)we$`_d--1)f*6oqJFs1OpCZnkE)i-ZNTn>;__x=lE
z?Cv=Gl9m4o@pqWdQ*5O1B=!sK6GJ47@a0QrHDry4)0Ow>49ub1Xmo+yWHZEV2!cJ$
ze4damqg=2v+$TIgfK4@uxyv1JEl8LgY(u|Uu>+j(bd0Ke@Ew0P(c6dTI0<XSF=w7$
zv0uz=Xzj{Q)`u8#*!XbMwKBU(^Jjly!8hFRK9l=?oz`_)-=F>TQ+ew}<+HGwD|3Kq
zeDvHEh!BhEps1Qw5j^mAxmlmY%50-yViCPM2i2_k5^EPbz!$K=R<kk*m#9Id3YAOP
zXR(uLzg%Ff(4flYztTojx&Hh&{xhu;+hoQ%Gx%JYMY6L9J0s~D4RiH}@$WfmR^_or
zAF2F7^PM!7&vp*dNNvBYxek45JAX!^jb=L&z1~_Hs#D@JeZH#$J<yjh8lhic;!GT7
z3)(Lc_iIipu%wm7+8VeWqdF9;vxx@AQ2Yl}?+(MT2Ojgb@}B~9Oe@SSyV|$b>@3ga
z|1)zV^L;r-EcZTwCfK4U%RFIqrx{e=KwCUU23lkCLyn2om^U(Rt6*91HW5}<5SRi=
zSAu_F76IbXm9-imM;;fu>T=t?tveUm|KY+#7!r54w!%XAu$V@N^kHm<aSmG6XIsN%
z7-SwN%v|G%mM4YYR%p6U!s&#}-=RPQIe{HCNb`AqC%vDRzELC`4Rxej9#8Hh8WnFC
zRsZ_Oj3ecBeLi!oNz7bEnVaH{!F>9rcnf6A-@vuhSVZ3hi{{34p`!Sc+BTpU#z5B<
zs$ToTz389Yz;yymQy~hbnWVq6$XjV9>gz&lFrBnU(>(9S#0R>_E9_hSm{FlGRT%^N
zGEB^;7FAwpyf|iRXlwF1(OX;W`6{L@Gxh@_^n=BgBilw{U0_{go%#CszF-hvs(40L
z@6UhX<IELSMNslMZH{a(nUcSv=^RxYqq287Uo5-${?<dHm40DdGEa)>v_%_X9HBPG
zN~&|oYOC$${p2%w{o(iIYdVa`7xVL{QT`?FT45cJoB?K|bwBte7^hg=oBZuH7TB$?
z2wu(xO7O+&tp%)u=!5REE!A)W)u+>aaUZlOvGZ&A;}R>rxgep|evv)N++;T=zKq_`
z2+D7kI@@}Ocvr@r7$HaT??ee3&O3;0Vyu@vvY8&ZZ6-JW>|ngBgRM-Y=ke>bl`j#$
z$-1%AS*r(QckosZ#ExLCn#XqFtzL;;!dorUnjE1ER<)peU1sid{nf29-QB{K9qvKF
z{FK#{Pz7q=jNFvQ6zNJehMMU4#&QR)&eXD&-&b!SH!dW6Z||2QbB<{<%oRBkol^;P
z(Do058^jhXVO~XvDTSSZhLZV-+Uo&-HoUl!f()ZN1BoYC8aqN+U4?6_%*#7KOTufZ
z>UZ%^RBGCZT%*}H)+{*%gU(u=t@|g^NBz0++Du~rhkKMm?s3j*<DJFw{;B8&kJIb(
z(8`MjQd0FVm$SkKGrh00dau>v-Kb-Ft)W@V==ItBwf^$c!E%SOgTMMzJ$*Uscg#n$
zhx8NhtcXA}eO77AgZkjom{(!tA3gOixP{Z<*-hL(jUN(|cpve-=nDToB{b4`CilL9
zbe_ZaMz{EtG>3Q8dTT4p?5T0>!Si*nU9J+|*?r7IFMWO2{}^0CVEOCOe?6WkmP<<N
zru_`Zack&O@@YOc^c_9WC%aAukw2FTPhkKs$!ZT*K<@B(dTNg74fd*xGYp!PgW69t
zO8k9~t^MGg#s<Kz;9zg_W1@Pq;l?ttKy1`HnZ3a`ZQ&dE7W(3f`JKqxOXb$Eq952~
zpAY_BMp2#1e7x)|2k^C!$PZ;k35yo^$8ZZkW%kK#bip%R@2hRs7KjqNgt@00Z(o+F
zkIdA*W7bj`bBX1Phl)AB5m2Lv$&&2hj1Fs4;<~Y6;v$p)eXU#87}<e#dydg5AUl?T
zH{TT79zur7+mvClH6Om?PO;Pr{Pk1jY;Rk!)AJP{B6_oStipHRjci)@fevDt>_S&l
zK}o{hSyDfE1ez_|vi7Vi`zra-v0#>pMgD8U`0B_uTH)=MVBfO9#57Mv`&__(G%ICH
z;y*fvcyAEHZxV8<O`(kTGH;~sqqkNudn~hah68fZfpv4Xdp}*sr-z2}%U)ZyMXAH%
z)-!OaWf*pRjL)POUJt>EPS_ej^iF#qwXP6+2t7yIVQ6&QLbbb{?ZzNtoFLCA3q}ZH
z8i3(GJOh)pXkNIJfu}T}=ln2jkuH&JrX-fvtC3}s?(;hoNc2&h&wdO3r?kA9?~qn4
zlF|a#d-8!WH$3%-X;o;M_}D%oh+ddNkEVRZw!@+hUayR$f|_TMp6=Gj6@k5t_N5|3
zJN?_>LUEAypCq~&`V0Fh=e6eagp`9cuYV@gcWu!c_lX(o8<L&zkh;rw;ur?`3*1S_
zkL@(l+7UFKbl9v=i?o8Wx?^0F@kU1uPtD;=nt}!`lUL<_rvpF4lc2ctyUJBMs^nQ4
zy}-p#+-!?ximjewiJe5*1;JB++3|<9Gjf;rsjsXX)=bpl-1)RpyuT0vueLxFd3#cs
zw%%cMiKPq{J=h*&4upFXWxBT?6xwwMyH|Ogn@%793~My|aCvyAmE}1B5j}W^A%U2c
z?Agn-pN*nne7dt%dzHrnP2$5E!s@{`5$<r~062<?y2TCP7*p%w=f(Lz^jaUnY7HPZ
zfV1j8FV+Z-g80SbtPgvC^p_C5*XC0+Kdy3s{T>Ri@b{J*SAY1U*c&@Qemc&W@5;Wd
z?S>foB-<r_rqh0Tja2R}6h=T>9ca{>s%%R>Aor-z-CXKLd&F3}qGx_`k&f}vv?NC)
z!#(KEa42w5TP1(-J#qm0uAQQzD0p%LOTOf+^>47ITPJBIeM2{d)nq2Ou5xRPWqnTx
zNjy33!F|>~&0qCctc&}{Qqz{ZAwC>M_YDkGt?=A16p{9DIZPu?Hmswo>!>hX*1!sb
zVDKPXGxGR8zGcuxR-pByr=r3)wfRr#WjnDed>psJm$Y!6qAMD>shGADF;yiuvw$rO
z**-8hhUUX)>2LX3cS@|T#p^S(7A2tA&C1Xr1gum!gfR4j&&1{s#J^5!*=L?%l(345
zK6SyPR@_V~IKb*9<aLol#s4x@LwIVs65(eaqdS57Fvjc1tnQ`6ZZMiS7Sv(QiE6-`
z$Nw{mTuMybPfd=niXTUve>AE)ocnsydX)7%6XR64L-Qm}W$XDZv4(#ou8U2q4PiW1
z-&+<#u?pcQA^SZKoX+$0ywmt{5R7n*U-=4*ZEjGFLA>Cw^OH0lYSBPTyG~jc_8qm;
zR<W;ugzLh-5;Jsu6`X8ZQGLMI#zYZu<1jk<l#d|SN=OD$lenk&4{#iRY?wSmh46_M
zfToIXpqxTps8DkJ6TsvU*+&88erLbKOCX;a#mezVAOI`jf5FSmBmT}x$+H^cor{n^
z{21{SLc1YPGi@KnuIs?3YhYh14)H9Yv=S=X1#qa7dCe)4=nv>VOLtX_l+ZIWM)zxv
zTu}HreFgO2ZDNe$#1?7{YT!3mGJ~AZ%jy9#6RWKi)$;4LtUZ=jdut~3(a%$*Pjfm_
zhV~v{!5=4qnaWCTb&y{WdsEhG6eHiIr%9W|)OcnK=<`mDY#v38YX_lM9Jz|&50jnK
zXa%3j=SO<c1?O7gBw)KDvyiE0sPYU^d7wAuV0aW&UJ+kAQ1b`4rd`RG@+yZlZMb|8
z)X=+_@)yEgZKXc4Ahl9vaz_Y1W?CosW#*r1JaU^QFG}8EU0|oIAH`|9Z12(EnyNq{
zsRf}qkw?9)cRHiJxA;MbmD=+Kq78IebH%@g@ul8cttN}%qVeMs@$LEV%}Q8ew3;J2
z##|CN*g8+fuQULf<+3{<<G)CuVSIF4v+RLd?&G;HuAydcAEt-evPH~O@jK%i_ZYrQ
zjNqNb4hWRjx)$Zy!6#nc<LKcI&Y+l-pV>y%KY`pI_T^vpAofB4C<nth9d=9)Tf$rq
zyGm6)BmLQFvyEM#u|*Gs;rU+jy;NeIrz%gJq#Fb`e6FwInrMLN=E|+A4YYc*LDYlq
z6a%aV3qrqWzp|F&-ACvLzET_L%R58g19Dqqwzxn0xw;=dKayI1GQm2=^k0l}b9nL)
zs*7=U2R4x&nhtql@T9Sftq#qPOri4z_(k`&&@#w3=JT%9vfP78_OeSh?+eM>74yDf
z&OrLwHA{98Kgu_H=oc}BsJ-2}Ah(K@Vv=}us^?T-r}xPUSHvve4eBCH-MxVB8_mC?
z25tNzw=lO{d$F6|vf<loAo}6A#&TZ)zLG|<TeO?iKa51Ze;m5tQS8ZEGA%1FYc{y2
zYnDLh6rE+Yo36qPka<}@^1ZPw+r-tnlo);HO<E7p^p7+S#rWwdqm5Or{1Tc%r|8Gv
z^!QI!(|JdoJ0VxVrl+uG+0f7SUe9bmwL3tBxu0%$tAG@TK#7&=AB4D`{srlsATCTu
z$Oxx)=Rl37rhXjVzD;r(dmRc6b1EEOf`>?kPd5#$BrJ(smYqVrToDI90zS9_HiaBZ
zq6HoIQpByFg@fT@@Zdkf4$c_{&SNYL3PxH=?v^T#0P_J;0!tYrxWOZ&4Hhw#vlfAD
z5pSPlB*5!F`6ltlNvr)n&C~R7@(dXPKuxKkd(d-D?>Arkm)Uw2nPWhU%+D$pdtzco
z&_%De@<R5yX1p{~YEM6%a>RP^mgtvJ;#%j;PCg|En+03VzC8AjK3{ealgTLoA+ZYR
zAF^D*3z^_O8YWPZ`I8bj!&X;0RQ2OiHF`GW&#?jfbCS}bRl#`u{Te0ac-q3hf%`{O
z8zJhHM3hGBlbvj|$g7Y*FRn5Ye<H0HhsRI#jp*5`(IXgsQX^W(JMnyqY=U_$9oMLR
zY^5cn_d)-JS1MP3%CV_Kg6cuum2LkH)zNseFTur|(T~F`Eu?oQuo;c%C8|Z{?~KNS
zO>+$dC9-RHr1Luj$9ksOl%50@Jpgxe8W0_;@Z?P@=mUZa_CxPdEDAC}MTjynF7UYO
zX(?{qQ$88a6U1slUl9s9?bQ>a_lM{&2QGNt(_A>?*L<+6cAh481civNtAW{?`ODVN
z+yhS#n%SPbn1s``w{XnTNN0Gq{S&e^sX56JWPbv2BLBvqSigQfF2xrQrwv8P2jOhi
z=Xr_d2;H`->hHnTMNMa!pFHnVdk&87wj?N;tN|Rk8HQ(Y57Pez*@HPf_Q&yClv=mg
zO5VrJlz+XpF7)9Tx=dryPMXgZFV<blf3e5wCsAP&fUvQ8%VNqr#*bnIlcg`9v0|m)
zwE%OdJWWqN;7ni@Ldd5Cl;C}+^a)NNRtv_I$&DgCF{uT45_Ix6x5*vvz|s)j`|a3d
zh*!Sm_HPt{ddpcMQ%ho6TqoZ%am|e1^whM}wj#cS{S(Z?QmT8>NG+<90tIo+hv(2w
z@HzMDM7L))9S1DnS8g^;uNyu`naz&_#J7U`56VgZg?A|WO++zs??qXK$NqphCng?%
zco?FRx^+u;HKJmYB>+wwF?|z6!Bo3o4doBRL=jOO@}EfLGImv~sX5C-k@++?!Ml#U
zqeaAghO|1$)vj2~;ar;nv5Sq&V!Fs044?zRH6xEOy!NyRWDg|Y6II}yY7y0{_DaQ=
z#<79=_E1=48MGrAa$N(qez1`@1F^qw`?#4gKli$5QOw^mx&f{6b}#ncXzHTB(~+Ik
zhO>+c&p+{Q?28l0-4@0=*Fn4Pdt$jatMw{*TIQcM_5y*4$t^~U_ClnG%z4%%Y4mZ}
zTIW2i1$tsE%|sVIfMDjHQ+aHZX<0=F?!frj>u_^i3gpMY?XO6F<^hzStta*xluL6M
zdy6$=kF!R=^JBWvY&M-k$<UMyih}y*D^P!v=qnb3M^Ui;{cr)RVExl6@+iBg_>T2p
zJGP+LI7q1_?2K4u?N1nrvFx;%p6sI8@Y$KHS@KkBCvQ>439$v0JlU7GHL`>DMb1-i
z7H&0~P7{P@0BDHIqP^BryYCxwpgop$dZ+u|{_Hp7*+!Uwhw^-|HB9jxWM%V514f%)
za~{-}POMXJE+*F*Kq7vEOiJ%c$@XOFDS}^DxbO2oU*rvp=1||bo4Y?SBCy;8$V*|$
zk1AtmgPq3~xZI}L{;K4ECOnNLuskDT!-7eda9Z(SBG~rQd!ELw4W@Ll?RhG~Ww>l$
z{l>!)h8}=d1+*1y2{4a%`bc1U*;(tQQ88u=T-t<0NOR$rXNITyFf;bcIC}xmGi@+T
z(b!~7k3*YFGEVY4f$#3dEEjr$Cs|K5e!Uymz>Ff$@EU6|lE5!&l?Xr$psVh6^wc4`
zBIsdA0{&NwyZJ8)17tFji{oHEJ3zb!^EdAURfjUbyNB_ohqC8gjf^JkfK%%QrHgS%
zpdZt(-1}zr(S;B&{C%OU`LBZbK5QV}WMx}atCV_>?PisIeOya0czOkP1R3=(Z&1cM
zYOt8cNO_*u+{CNFaqVusVSLD6F0CiI=D_KJXhK2E_vr9((i4kp)%6L6QJ&u9wiWP2
zM#0Munj}Rm_id}kAH(Z8cbs&TlexZz$PyS4N4GK94gpce@>w~fHO5B=n1ER2?((08
zTF`%ewuy<lq9QNDmqqP;kvV_<cER&Aydz@4Mg`z5gIh2da$v0K;1JV$Lju6z6TEhH
zUR|wq`5?>>0Te4N8nugr31(Wrr1)3pHuQ#AO9;lqy)bn+tS%kRi}fF<zR4Ueec{a4
z<s3yH*nx@HNLEIFiz$P&YTkqop<}dNn&TPGJ|+3AV?1+ryA^%sG$xV~uCPWggd0|?
znYS0*d>2-E55rraXWt2DR7P2>Phveq#%M!UZ8?yJ#V(;=ZT)ALaS3o+y)PLXf$;#~
z%rwvg8~RzWy6!5r{a)xCzR%oC=5}FBQ~*aqYYrWcGP*X621XAuEbSD)CR%?UO<_Nc
zZj&*a;Te9c+qoMyoWJ`FJ<iZ4X?m)jo@M;NOZOY^94{1lhMtvcoV&CCiiOICay?0&
z%Z9uTmoIuOo)p1;GfX}8cpM~RU;CaDOT%Z`+Jt5BLF~(FFem3Am07DDq{7MQJ(o~_
z_AA)&N7fr_sGG4o?t4^ZMdmhwxQ&le*Anw<W2SLgQM}vKH#jad#Cl?I&S|zFm%{ZX
zL5&0Fq4IZ_+uana`E+qjjG*bX!*dke2X%x8QY^jb!&(NxZ0$GTE6}g^5<a=Y*aeH1
zUG%pnJf5VMdYne16+4Alvr}C!KIu6qjB#XE`b;c^B9|Ay8bQHdZ<vKfus<2Y$bZP4
zIGf!4dD0Rq@toO(Vk=k?KTIl;)XZ613Hr@zLJVM#O+M){4-wU0#OG2EuuA$jB<xT|
z!WXW%G_ixri~_F>visaD-FTcm^e&Wi01wXtyoGItD^J2iAMJs725~VB<MohA@*7C<
zPWm9D)X?n+S*ZeUI?c}9Nwc%;G-rOqj9P7_#mCZ9U=Rsgz=%xC&cd2p_;Orad|X_)
zGDQuvBBu&m@m9C0Se3PkW@WRAQ$%m)m93)XI{BFEsfJY*CkhZMa_)bk9o1Dp@6Fl*
zukLfFE}`GWdYL$mhFBses1LOywrwG{KE>7mp>vwLTEi?V6l!MeHoVbEZySG=<9r~q
zH;7wKS6K74`YJSv=E7H`|FzRb2L|b-xJ93j&T01O1-Y4z)gN_Da=*P0{MG&4#a^nv
zApWB4uC>vIipmc>`&tjVUo7wzy|ly{rVY{c$(BAtTOOVyU%O@wa{l>)d0g!0>osEo
zJ1sBD?c#*LFWVZYJzA+;y^(UW_A?~Lt@$gS$@Kq`_8wqX6wCYYQ{6pz=FFU&H=ND8
zu!JS&Ac%+v5>1#<%vrCIjDmom0)m2I00cpTiewNGQ9wX2ph!l<hyerY_x9OE^j^Kc
z`+vUOGdcD2bf~U+>#dtxPNqfrer~2cpRITW3wXgDC8edq=rb_BAEcknqH)>}$_lYp
zAH$ErsD23c(Pjk&kBhC!ugYMf-)^=F@Aozh=2JB76I$%m9Ygh&>srHiSm8)|%~U=W
z>InnN2|Y22)PmFAHa}Hbyc{WQ(zWx|*Ssy-^l#I@(+!P>Q|09?Th!_1gc~#-ZBC${
z+0|Q=QPu(S?P7GA9M6E^8~=y+tNJV|3v2fcS68tYAdRS}T}!)_tt{~{v>v<x=-lsL
z!BSs<K#cS-=}rKl(BNcWsHJ=*AY$k4x8@5p9W`qlomu}uh)y?9e*`7VvD6gU;b6<)
zmkmg{QXQM$E^QX&pK;1B@z&x&RD5^VGqJmukiLln{E4F5Yl&tq=<D?G5v6U`H}_)}
zy%;Dn0wE3s0yTF%!=?LtnT}~QKgaFesjGT^&w;E}vvTDUYE~Ay$sd9!Y`UNh$9+Qc
zdDnE4oWjb7DGEh%$o3LfwCJ6=8$9Y|=h~Tg&cFJh0}9g*q(pL0hnMW#*ihk3K#t_D
zk?+ts8S-zzh_dRO+$Oh{CVyAeS`<2!2f5I(EYWAeiUaj&`L&=-uQd%+{%2=KupZ#z
zYUtK=uM=9ZPoP_~Q6!A~+ao3Iw^Q$X0d_MR-kEH;fZ72!Vg96u$3c`;p*TNaWEXqM
zSZ?r@+ENmUC#dc+1X;wNraf#`&Y{F;bc5Y)gSyuUP$)xf3+)0JTB<8-*$9O1I;1Ud
z-lOj+lb4!@H{f2gR$Z2Y$*1~nr6neSG6sWTkW=y}U=LWtzJVq5HTE8Kuk+cw@UwK^
zqp%w6)gMeQ77y76l<$nM#Fu<JxVg8BsmcWM-l9s@iZxYwvm4pzN+;Hdb!9EtSZLkh
zVXQzrBX$`A-w#DNAl8I6XJehGN=rLT6Z>N8%pqPEcs=W9-L^~NC6%Y&vkIOv!`MaF
z6jwH{cqvu)uszZIL`(~Q#&3gq7Yc&G)C4i;zNTIms&~aZVs$u`<?o{=7pj4dnfBP;
zMwefx!ebfGgyt8jFH*<zu)cvx>byi3s;hXPCuy*<gq0WeXw{@wqT6<8Ow@chWk<iK
zHU9H|(Tw%pH$LwpaG$Tx&#fpd%oL7DLtcK8*zK$?USl_PVLjN@@@4S59RCA}EhAP6
zO%EGM>=_0dC#z!R?0igDvN@tJJ0vcFSa=^~`zHjOR`L<8;OwXLc*Yh%LcfDONbEG^
z-*APkCN`O|K^(RakfO641ouuhLcJRrez<+GPZ;}MolOkPJZIhX97SK_b)IE=L-iIK
z+iADnc7gI3wbs_D6T}X$P0w@YF+iZdV#VjYNVyyNH&9f41cmg!I(Azx7SNjLI}pm}
z^9$ag{qRN|LO%jV@mRF`X+x<vX{Pcg0=>|tS981SE#*u0J7QA6+r-nHrqe18q(_@i
z@XhWndO{fpQu>mT$}@{gdx%iFw4V~KSS2>5r?Hj3&y<hZJ<r2XF$eE=%TQ`OhyHcX
zg@>S}PR4fvPlS*iqnzOw$WNv53dIM|T>vwZ`z7l?npT(I@Cm`Z)@?q3D<9M9)az_N
zP0(}n9G-9Is70o@{9_}DO}$91N&;YFOy=qo(zYjB56Nx6meomkrI$Pd>1!@Kt<J4)
z(tz2(L7aAL@nK`YR@$dG&FdRVUmmSEDvI)&ZbqqE3#9Ev;}~n3yO^I_(r_Zk8fpic
z)w|;bqsv4g${&TL=Rs=mD2?LH9%4P;p!$6t<r&XA>(=sdtml5T+m-nR_s&7oji>lr
zHWfC{%cj$<-_am`)5W*$pk4rb4cDL2e`CAYA!Vq#6l%aNuy0R?T26v9+YII-L*H8K
z)%LBwEg4APCvu<4Ep0y7d)4|0{04KxCUr1>38<69e4+T1Z&W{o7UH)3_GbSBPRW_i
zm<OC)>Tl4k9fam|0n};Jsp0(%SFsM0>Eed*CIk66FS>yrF_TSzRo$%JCWc|m*J>17
zqJJ-T2>rJ0jvKRILAv+B;t4Zws`I##eJb6fEK+(Xxw<=-Ae;x)=V%wdA0le+D{7B1
z^<JxthR_YOSnyNrAjNI}rIm>p%-3$Z_b6{l1r3bvSy2n2y1fGHxl_3W?z9sW$Kgk8
zx3e38_%WASp<SEAa>_~zDu?l+^fo(g)UGJ5H%1JypMvF?`c3Ab23sc{VY}$8+J`AE
zO>I*_*y4QWYzE{JJ?L2A%+k32Whio%vt?TK9VVfPdKReI-<`MMfZd4p(KeqFPT;(;
zrj^1YCfXx0nwnuh=6ju9us_QtsmWSeV$ao^ZDM`(uNm)IuXoy0ZXE#g`Qvm*SC3HR
zu`m?<Kza|*21*6*cyYz=Y`US;ZZ*~YNZSglgIX&XDzSagrGLv>4`)9^hwW^E-k#d%
zPoP8$7nhD#4x=k<g0KPa&<J+JOp&n5i$hwUI(OvOgIA^o_<a>9{67^S<wP(T!!v$W
ztYv`*pr!kaZBqGSugL|G9^Z>Y%C0!=PmZN6G~Jmc4#C3;nvO^58)yqC2Xb8!mb^QU
z(HRuKbP$Ketc<2d=Ze#)!9n)Aj`{?YMFE|L;60B<DY2S=E0*(T#n<9B_JJVpfU-@!
z;KB>1@XcZ(A1K}uQ^eZP%f`EUaH_TgV7Nno$UDIa)|+f2|5P={8~gNbp$EdzI@h@F
zF)F_mfZbY&f;-(`7;WYB8Sp=w5gH|lezg^V(dD#MK{G@zu!jM-f)=J06+`;?ic#7}
zG3zj*X4WA!jsD%D%dA02qCuZn<PGF>1ZO(~swmumUWR4285-_8$@>c7AIMi57L2Cd
z|5&;W=+X}NX78VY=xq~JzOby-E6Aw|BpTMruL_V^x8t4do7N+vyo%z9+82Pu?`*&A
z?V#Epsc<(0+FIL&ZoVEJ<McWLgZ-eu9Q`YN2vZnsw8WbnR6zMp?sfDWf@G{xs5QAr
zU<41lpgpa&X-er3WxkSs!3NHr2H<NA8w$uUxISQ5bv%RwBly3zo6V^M#8}4@Vl*{>
zn|m`bavMaiN7j(X+svi1tH;r3keDo{x?TIH4jXGJFX%>Ey~f@u8!3*$cK&oC9-W&z
z#9pUev?xANxT*!6xYfz@6j$+CiVqg1KUTf!J!Y#@M=j5}mk=9w9>{w#s@YuegqmCl
zSwtH`M!?lg`1E30VVt_;|GeRH7O9Mscxiu``6cPy0p8J@8NVB?UZfZKE>`+n>}`Mv
z)_R|@Wjw#AxcGB>jkxJ`XAhsM-13VtnXM4ZX)^Nexm1U_Xd@n@v*z;iw~D?`^7Dp@
z8<vWX+;^1PZ9YM-TlzJc$Cvpyb$oOp{a{>qZ)x{M;o0b5vW0N9nL<cj236%UM0qW~
z_W+c=qSmHBXnlM)09S{U&9Hq>fOPx>GT?}K3#QU%sn0sV`3}PM`D^wlj9$m-%+6!j
zQRDP}T|S0f|8S~ld@)*xVl~fu0}!9Dl_Ru-+HP0x{#mcPn8t`9)MRVGm>qqUrFLnf
z5p3Y^nuMQJz3$`G;xKhy&5XXkv9XHU>DFP?_!D;5z5R^c^p37Rh~{Fpv4E$*DOaba
zy|6CNI~#+WXx#25+l&b$+l-li(_%anG=YxW4iqgY5$GIAM#*VBYyv7&1f|t`%m1>N
z%)ojNM<g`^WjqSL^y%|JGxapry=1~yH~XJyw}@uz$wz2LqNHj9)hgcV=WF!yX2v(r
zoeeVUSk-Q|8$!Tkb_3Hgmd-3GYy5rKIci)Mn}$*IVQw^fk4nm#|7<8$`$@`3I)A)+
z91_PXq1{Z%9ACL_C0|nB;X{<S(bo-BwzGT1PUSQ9zB1h2<Uf6Lvd4AJ(SMDgPLuJe
z>kcvpJcdT2;`FbwXyiF;q^7|IV?9lT%ieVHxV?#upc@|%Lzr^yE5NEI?aLR?eq*;j
zBWO2SV}1;u$S?FpEq-U$O#z-C<V>`i4%lC^(~m}`deuO@rO|^fd#WV2J7AE9QY%^M
z2N3MfoUf!8@mXSppO+Lbfa$ae>!O073q<WHZs=yru;BA$<a?kw=;VfqoO69QD^pG1
z6V%hU1!z5|UiSYo#f*g-oI4BJo&(C$nlI&48I7m%eu{O8(kf}SX)&5En@h?|q&J#P
zYP&0ox50s@lVTN)108N}#i)2fQR*7Cs-}_BEVGy^PuYOB(X*n>yS(rDPtrKW9j^J~
z2wl9J0EG34PEU!;e%Dsg158X)yzLy2j}fpdDitM<sPlQ}?d-}$W_>=Jw9#6juUX1D
zqcn0sy-=;ZA=DNcCaqq@0;*ql03=ardEOZk;AU3Lp`kFkD^70oT``PbqF4<(e#j~n
ztFgo*H3iH_v7QHsK%F}j%~z1SLQF^G0Ht%V{;zaIYp;P#X*_$JUmu@G1<{XL+(v+!
z7%bqsNYoB>-vOXsIFampYn|t)e{P31+QXpPTW)K!sh|FcvVtqWrfa);yOxfU0H#5`
zdOCD9A1Kp+YVC8=c=0?xhET(bFA#>KyCQgg*&yX%1S`07mT^pNvYVuRzv?HkIb!~z
z)q=d~d<z^yRdBHQf|_=|a4=mmgW?Bx@pGUjs@QH^n%)_PWgpJsQT>{241*--9orRl
z$qRifS{Vy@8P$D(#~XfOhsxZ%kEo%&p3W>(O<s2+Rnq40NvY;Fdk?1*yzI-G^P1Uf
zs7@Qzj3s|1+E{biM6uCc&vU5hZuHOllUZryV_~T9%yL7PXDd$Ju}te3s(Vp+d&LNX
zix+e&fBkjw)eh#z|KVWB{|x*K{!ChM9t<!EEs@AtV`?GX58`70y4JO{o^@^D^~j2F
z1Jj_Z7%=(JWot^5UMAiM3;=*OqFT$$09GGZ)a>#IOjOtgk26>)B=MW1wF^X{$yT8e
z$BBS=cdT9vB6&;6X)GgGfie(ke4LIZ3hwnFngzKf0<$8Xo}6%rjw!p2ZCfviSy3yX
z=k`LP5aJoYBs_w8;>*+%VZyLeOH{MqBETT?gM1LTmM_2xG06v4^F7KvSIQY<+i(#c
zt5t8^S-r@Co3ENuF-~WBAPJEgGY6_Y1_LoEt#OXX-b^|ypr-^#Qv;iN451AW$V?uK
zlpxjc;Aa^jw*_c@VU7s8-9i5d5_%Ka5(bqfnCrok%2<I+qg+u>u2djBxB;#Oc{Q4I
z1|m2dmlSuIOavtbsix8#7Lfe21sR06Kw#Ow-&LZq?m&-#+ebAm7I&KAM7>%wc^1SY
zX}x9Crw<6}RXUdiuI&nPJ`Q6CP(t8vkI7USAleOwko3j?J|J=&d?aPkkX)7&B9_K?
z7deO<5{=*m@VcmT82rO4T|@W|hTz{eOs$d|*kBRxlxRV)OoAK&#D1)}V_6={$Xo}#
zLaAS_gu&|o^^})=p%q|#0c9ti?)an2Nrye96_SKsHE*wIcwMM~vkE2<`YLH;7|8SF
z$8=#7LV?1kA=Vxsr9c*{l&5PJI8kxH2KBYho&!BF&&Qj{L^A<;>6*13f2_R+0S-kL
zmoT<ITXtokXU{Rvt2)`d`zEW$eVc?&DU`gWN}x7JOcdZvIsZ<FQa38uT468(vyuoS
z+(!0?7~YY~8MG8NcX^2C3_^b`UgYT?Q7%AtEt7O@%S|Uw7(}CBUdI{NRKI@+C*ijN
zvn*Rbit%BbfTF-fre-;o<aaffpl)fo)@=#E?-awT2x4yJ1I-797eME6J-%CQL+Mkq
zsR4ED`s7KlxM&x^;hXBn+5I5>uf)^cC?0&V9<N)S5`TGhQnt$M!EYkvReA^l-Gl^4
zfwQ}&;f3U(`8C_$F}+v!8-_xA{R*Hg+fl)KR9Bn=$t@x)Be*rd;aEo$$x?<U1-T(B
z6cf$zJ(MxIDr5Vg=JT7=h4K_xDDan$%UdB3F6s;>WT`xbe@FjMwe5SPrlv`_GJDs*
zZzm9Tm3@4wP()BlR0#DzVt^-FLC{9b<>TSqlwEcNH!czlWP@A`MULQ8XOF;7N`73>
z7@*c+RT-_ox&STOUX8UdVJvz9!D9)7hgkOXRCeAXdz(;p{t!l0loKgBv-%rP0i7)%
z<mGi#4(yti&qYD8Cf<kFK+WpwumaVrE(H5@As5AEn)vk8Du&(@S(^kD{UGQ=zor*w
z=LO)KMre=h9Ne|27%Qn#E^;tkud}B3wH->Wo9Z2?pE8s{rG_s@qDY2<!Lp=gdkSiY
zG;@k@O<4uKdv<#x3QBe*R&yXxv)%k3E?CFbu@`fvX*<Q^>=~cEgUoliwZuOk1J)<3
zvF1W*7Hlv(U>_8q0;8tWl{V9<Y7syG{MO~a8YSz+g}vswzbIh%f{N3sd)G=cy2c*I
zwu^$2b#!&#iv~0g)V|a%+d&;`C!XZRN9dlo_M)=M?h_6JCzw-EfO+fgSM1}XXsA-$
zzTe%m=!Vz%wZY%$hHFQ$ZX@vFeuXpUVSeEVYnC;KUv`{g(Fdq+>V0-vqj}z7?LpSz
z)5u8nx&sC0JVwjQDE|leGCfUAhp^GiJUv#Bn^)8Uh(3hLoyML|F7}?%QpFX)P+oCi
zQBi&D{XKlTbTb`E|Ein2mVT$M#_Q}&F;1<Udv<6;WIDvM`m5q=nU$Hrtb%nIxD4cX
zZBf`<Dj&g+Nr8sDC^(M><j10**a;^Ka&pt@oK(CZoSPc~WmPm9iALhNGgI+!EF1~v
z#S@AAXmkiqEE2KbSnM#5WoC)oh(8ty_`{+2W6~|}E9-S|w~S<ilsc;jb^B4R&0FR`
z{wq@&1-~`gJxBoN=6*@%!vh4muwC$%pJ@!F!RBOTgg9h;AT}tI%^#qw{lnYp_77w4
zD(oT_UBg9G)xQ&Rz9PH+Tz37N?7aK8BoFKohU;@(BkuTI#Y{kFZro8`_u}%&;7bYR
z57;Gc+DLoVm-we*0iP@mA{6h85~V}aZ`j3c#?$#tTUo6aLQ!+kN_yI8HjZ7GyDIQq
zVxoE!K(G(P@3A@Fui^+FOvf^VtPhMiq_x<~o@CFLeU|@==zQ_VT>Q$tK6L2@YIfBK
zXrh|5Gp7J;`HNCnzr11l_U+oXYudW)JgTTuTE9`_#_ig*Y~1+b*P#s`A(Rb<@__wn
z?z?O({y&J0X1A<UKBiApb$RGGV0d8ZR13cM=DX_e#!99ZEN731pT+xH|JiJzyPU4r
z!`84H7xTmDL>?Ch#4D`$7lUfe$91Hl!&3RB^frW=$8{1NH|4*~fDS&vSF=XD?4jc9
z(t<_&5$&k*sk+vGm%5pCc!Tx$oOfHo&Y8xq+`)6txPT>U#cFRxKc(bs<T;B(&Tk@T
zE6aI<|14hPbH#D7k$tAN0_kd4tyG>Rj>r{L8Tbii3;(qf_!nG+#5I^Uvbx<l&ot`u
zzY)m!QXg^J$S;K=_Cfe!A;v`qHE>CP|GCZz@`e-Kf6H_y=!0Rs12fVsT8~EoZ`l$9
zFZieZ2y;SoJe^@*UX(dNr<dIXeks||wgk(G>ZA_Q53GMj<FaJ{!Pn`EW_k&nY_r(v
z#8-~U&pK9##-dQzp}Gs4k*eRE=DvkUIR;<Aq?cA}(=&erx6XIaZh3IG-Oj;`_c$}w
zL(%yZ73Z{0Hp{EfL(u#w7waKaPe;6q)>FqxBs%Tn$~7aI{vgEaWAL!Emq1BzAAgaq
z4j(5d$1j3w6^w<Ocx(h-hwlR8MeaPd8%^Wi{@p1)l-TYil!p51O$HqNNif8J1)lp-
zTj-|Tv7n*-+Y!aPV9Wp81KH6;dcnUBC-Q4X6CY8R0cK^d(k5!tfrz)`K>GTxbI-P6
z({i(OEw}_Ib{Wd@EgH_s>io++2a;m9oX1&Zz1rIoHPoS-=v)j}B=20ZW|;zd;C)uB
zWy|*MBW6B+EnBx<PW5qZ22(`VGzBXPaPrj))VhmG^9EDSE3w3GX6=LN>uu`yqP~ia
zXR#TyFrz$4&+?h{r7@pR5?j^f;0WmVZf=b^Z8>N?8}#1<_n6(<GyElbI+OFXo3k?c
z7;RT)dSzYORF0;~$~INgzzzJM_y`=->rb|a6Cv`v0>0cyc`vwdc+Ii4W3bwJ14X~#
z16H$gM=ga>d={(S#<wW&f@M9fYW?a@rPQl_cEvVjJluZoD*A}8D6hLFzsGL+ApSjF
z)iskhN(A3!M}=~XMyl_^YvN1(vy%TR^c(%R^Wn-CzC;XBcCxp@gYX%&A@w@7_%&%(
z>8s7dbY<VZpP2p1cZ9Bb2sWaz&TLvwldXreYu@&+POUUMo_`CR(Wi-(?yLUY&>?J4
zXP0guJFU%D^qtCBM*h=2&=D)R7EEMYmArS7rw!&mfs5f`^+WckTKj2dJ`58}@ITiX
z6WZ=Rqz=|zqzCL1-tnCAY?ZQ97z>qGLm;Kgkv|Qs6u_yJSQ^SNXg1HR)1~O<dpEHQ
zhS5q>pKJgLF`BM>i4}fmuqNlfrYvBq;pBBGzhfzV&pTSY-4=vzXf&Ocr@n%PJ9c%4
z9+}%(`zO;U?jRg!w#|IlJU|ot>w}x4KpMD>;Ttm%{pa4GCr70CX)p36p<IZN`P$pc
zCa)EEGY*<7{7=|$DcJ{W&opO8&XrBd8x)qeX;Zs?{bmhME2(#OdF}eeO{%({Q~&gO
z%}U$UEx4$>s^!_utA_Kob407-tj%uTrq`pQPS@q^vMEm2b>4oOB%Y_wl+X3&#ajPr
z|1h!MIAV?mJ;4}$oUav!)yJ4OCvtUoF#BG4%>I<mjBHlkrb7mb!Et`^J8-akD{??-
zHid5iJ;f@vjUNZQ+cf()Fh#|q;F-UVKgU0!tN%5XZB$yVamN8G{4EvTQ0sBjtVV4*
zKZ#O36JMmDsAwsxcq{xk4Kt3Sg?)?d5#Ln%_>WWOs9(9~s8`06Fnq6E<&q242iZ63
z;?ms1=9B7+sVC{p=q#=E&g3ujv=h4s7DI3rOs1li?Z07V&ANTfs@#1nQZ^COWU-be
zlnn>^WD<Q)cG^VNFn1bEgCA&*tCQ%3+%eP%ytP`x(+3$dAt^m6HX%%z+o;!6_7Rn_
z9Ivl(ZqZ08ZMB!(KUdVNU#uKv&BY>^JT6(QJSv7mx?QP0OqT?^zly=cRO&T}@8GlH
zGF^W($%?y_JuI|qL)*X<aZ`SNubaQte@27*idcm#c@EB#Us#3h!3XNrd5X?@kP1Fv
zW$%DLFn=ghdpNVrYp>4aCtD9?Blx9*tm4s73=a#=(`RZE%|(2lSj+a%^f1g!5Ms8`
z8}xi?AA5~8?b38JK!R(O`%ilTyqhQZTN-3T-m=@ESijIXc)ZS}Cdo4oGr!qEy<@x?
zeUm+)FQbb`s599EpoIuL2*GTXv)?y@;$!$T^oB9Rs+)YCfNPncJ;i;|8!rADy5bq|
zf%w7tjpr-BA@=4BnpE)yup85rF4bni->Ff@jcg(6-qX}b8U;JTC^(ESXUmnnN*~xq
z>-I0Mi+I8Z;VE?lBqBY&qt`HedQlujGr^7}80^x2`L$ypq+_okJP~hFwGKV;B(T4~
z#<b_W&F=TsyVgE&LM`2IKN6i6-OuVTr0ZfA-CjE|iB@?>*iv3}NBKw|IOt?%c$o>p
z+obq^R=nSJZz6vt@P+Xx1M|W{w7b8H1?o<7FNX5wQ{_{WJFPEhBp<4cV2=fdiDk-u
z<)FUXzSTK|EPR`mif2(?Ixk^GCFhh}*l?P1_iT9n*i)JP0Np%<8kgL8_XP*(jMIm)
zr-GCCZ)(5SXqoXVp9I#!pGma-EFnEF7lqZwgyTFGegXcx9|GkTQeo7$z%Pm*j;afW
zGminofRQWwt9>9x9!#u1n}Y(|MF%hm<2YMY5ll_aZiKcFN+@VR?&ab_t>Gl#_2K;o
z;IBe_9;n_83=bs_ubf_HcnRWXBlawVyBy-R5g-^C^5&Pw7>~Sw&qvgxajKOYzjy=C
zg?J9eq0cgeOo5Tm!r%!}Wu%7R<hBK1q=IWME%S-o9A9JKMZSA5f?~zc1+X-j0u&7o
zfjEKW`eaJ;9RF=ekO`?6=R4YbMx7B#38AU*roEXstLBX>vw8($B{+>$K)(kq2GXY>
zCKzE%3a&EXWB5>LkQjd#1L0Bz9WE1jav)xUdx%_u-YI)qUVv?k+SQ`!CC7lB_(jN8
z=yvk3iq;oHdKFHTP+(vcOg9|bA?!jl2}E!C5f~g9R-L)fh#{{qrbLGI!jnPuglA*1
zpNS+MNbF332rY8g#d0=?A?xs#LPtm%VwWJ295U|}XfgSD4WJE_-yyrWN8a&bIlETQ
zjzKSp*OaqPm^3Af^aCBPA)F4BlTac-0fXQ@P&9VIYyc81(+%4w^p$d@4-=h)g2*hq
zp-@^O#YjLqETE}lybI1iQN&tPOjVe!f=y%&G;s_9t%AgLED}75tx>oiV8_IM$|i^}
zBWi~j8SDYXffS$!CiWhgc<~X)cCefB>oC2A({YLkuNTJCI50c=^cBLu=>s$!ZYes*
zq!2zGHf9XVQ&~eloKSOZenhCCGsR6Xj;dL?MXFKcuiKx?XKS3Z1}w4Q8Fp~5#c-&}
zL+p*`vN1^N>jCUr4Yyq^ej(7&vNF{{ZXc}PHHINh2j@>!Z$W6~plHDiKvR4({wazo
z0(g{oNZcoX6x-RTc95q)K#X}CK(nEBcB&U+!19X-JoyHyhTzA%>?r`D;>3E@XUG6~
zIP@a)+$ywMGK)d>EZ_4JxJaNhBXXheA#4h?FQ}(+*Vjil#D2sl|CKqn**p$%V;)D`
zz=Yon_0C5@v~*NkW<wXstr*ib@&DYnRQ=C=GetmND^;U56sz0<3-5=*gH}-Yu+Im2
zO70+d=3EvGp}g>5^&;RRs=ezMa7mYudGH$G62(%(vU(eQDj;2!uVkM5boR+TtDqXM
zKIWV}Cf#1LXV*Qs@}HLtrS(EDgn2M7Ix4}os?c2UYs|oyXE#z&0_IGpU8bl@?DTEx
z=peuP_GSF`E9R@`0twOdHYLVka9b#0B#GXGSpQ%6;EHkV7?KWh{|1PH18sU7lVG6T
zg0^cY{x8#dTSuYy0)4Sib|GIrFqY6S&egX+z>9~_6-O*3#W6VDslPyGVNe~;ihBEh
z;qNQz8Ok)}llbFo4b4)O4-|DH#DTz6%SyooAnlLDg0AWWTs4qLALPk&vSaQ#=`_n<
zW}UU}-|@T%3{gW_Ued4J-L6^o_~*)c)^nNuJ)398pCT2pTE#$EF8eOkY8gd(#jorz
z>%E2be9-r;a!icm-C?q{9|9BVuk89S*ksF0I59JADG|Vz{r-U81d=@O8*bN1o}T}D
z_R+7%N1x!C03JP<<)<9wu67-=$G=hDWIb2v$Ju+V=O?V^5qpICoA{Ak@iqI|_J^+d
zQ5mZI#QJ>7mdHE2&3b;t`mW|sZZYi=&ZfW{(F@+r)b<FTr6if12KJ6A9u&%cC(pLJ
zA<PP52>y~z?EzY??;*vGc%AK-|7RBWFM=*}Y!Ku#S?9T!(h>edqB9*;Cglgl(=2#Q
z4CT}KHh2*X6<fshFqLPYP{AND81-4et>ZWuz}47M`X!ga_bq#$w9*}h25%YKEb=zw
z`zKaJnnl_gGx>mnytwpz>U_;g_DJliQS2*YD0C;UYGagxRJu-_(cwwx9;ec8{zt_Z
z%3{!cEz!3zv;KJ2Xuv3R&%6BqO-9}0G{e{2na$Q}CwwbGXY;ms%ZD_`{UJY4xYT`s
z?Nz@i_#MG5&fm^HPF>KvYzW*vAEO!kkb3?tK;oNoiMa<5jOiPMNb16V)>!7G=SUtJ
zdl<%=F>^bPoe$=O8YdC|-@AyI(@plJIWYF`&LJo0V>ZcdX<f#kh0c11^qR#>>s3BS
zc@;%pa?EzAm~9XRm8HMQ*?O^tvxf+u5;C3AdN;up0e_N>5q>5oR|7R``WZnTr*>ny
zqw@!{-(Hj7Ud?`cH2=B-n?&`;@7`6M^*+A-PNtryE&#E3379_<F6<+o`n|EocAN<K
z6rq^SRos;LMDW@?C_qZ8=-(=5*fs`9nl_zYb4RknCyUNpc!$LOcUB1<io9R#|C-t!
z#@K8Gk&{FDhlB4Yx8*h%5FgB^`=5e@eY*Dw>*amK&+%rlp59nKz<V7~=b{l{n%M5$
zyM*sFcZt{RU(9D{GzNdSa@N1zJG52211`k?JPXyweN+z?*iFXQStg1+kU`jJWQ^(T
zJ~H#jR}B9`#mnOvbvMp#Lv`~w$ooUUBPkCfrrb6`rw_(~{`6vUtGYp%2Pf%6biw%-
zoWFryO)e47AlS#&+y;|_@2F#y*=n6J%GcTieLkNkt~!?6Y?Anaz3CssM$kBM;U4Cc
zf5LXh7mIiKYB5;7?I^wC&H$tT7=Z*nBDRWN+r<SRdCh{!1HP|mpl`Dnsa$e(=dtE7
z>q9z#LCk63CQ#M^;R%ws8y>PY!#v*XBo9unC#~{mVU`Hz<y4E{5(XHO0OCuws{7d+
z5%3rN7Ph*ow>-+<5D)X8_&Skewrf2IzM6B<so|`lX#FV-eAYmd0{6TVTd6gEg9Vl-
z73FtLhRer9cn7w+`Y?QlH>VeaS!B9x9kxHzR)v+H;O}uFG_qg>wQun`0&wx8f)7R;
zuv<gWC3P0@zV|)}kk&nuX(3hCo@i}^RP=~34T|Wb)4%pzJsY$ePR;@Ti#{+io3$8W
zp8jlNjCjB)|IsiC*8(mrmVgk1G;r_@q1R{}e;4#()0FMBM$(I&sG%2o0tU9CuW-hZ
zlk{Tm@eU)E&fEENv5rP4zw!7Q*bT$)(TAREnWNYxl?x2m&|qDhWAiWbexZ`1Dq1Lg
zsREQcyjJ!L%;w6q$K=``Iorizi_tG@JEGf_i7ERI!jR(17JL?S+CVPrnz=Ef$imVa
z7*({d14+Hfxrp^r4YomLC$i<Q+5<U&;G7Ql<xNt-l2hY<yn{&}5L9u9$s-;1u`kUQ
zN&gSD*Y~V2(rmN^#PmDT?}Lq_>|F;V_5|XgtwWSCi@`-3BgXP6h%aN__fl#GqJEs0
z9L+wbWo4<mo97*5YoUJKj5;(@2FVf|NsJ+Y%`V@-Ouunl=&p8z?sWR9{zi$}piFK5
zBz0-Egw9po<ul>o-w)_{pbRz$uuY7$jj3dO2Gpg#ivr;~L4?Hd52p45K2~ec`I@J}
z_h>SuA48$Jq-{{U%;X53r8ceav+qaD;h=8&CeST&s8*%cn*zb*l#Qh|52eJcZ?=RD
z{Yg6WQL>xo^j=H6^mzhB3kMWHbv3mu;P|Uq>LI}6JYSJ&H*0c*n{-BUM7$cP)uPtt
zDp&B*J)jkQ4e>Fw6CluepWN4(7Ee442x@2qnO#inT2tMxMx*|~cT_MR3Qw-DX7#!z
zicgT34cd>ADTu$ttsFV4j=u$-k1&{*N3+i;=DO+1X8|``%0m&D?h$&Lbx^eRB%$}u
zn%b}8b7p^{|3GiTf1|Q~gBI=EcWB$PdFxKos6m~whK(C{Y}c}?aog_Q4!Ulk+uVyA
z!JkcN#}T)Z7vEe88fnmWpXaHaL*7{W%jOm7^Y#2|VoRvA;@e`**Ir}IC#v^Mp?Q2Q
z8x9oCTkLB)^t?Z84NgUB7k7Q5B=n4I1|UgW1czf^E%e`}&$^cThb9Paa_|E>Luy+Z
zJO{|~Y|x%xuuGIc33}#Owg(#g_q7$yJKFPXs(n206#Ev&fS1gJ)b<szHCE6r*x2W<
zRXe$Z3Q9xEnO*pZbL~BD3wt;p!om>S@23G6Q{6}EYzTB{Q_AzVz>WMj+5k(yO&#gH
zzGqNxfOX#m!g`PN%SFQzg`<cD+-iNvO40Gm!WZd`*6o^K`Y%fDqXrF%>z351XxeZc
zft~In=5;1$hR5<uoKC-pjPHrMrZaTTIyho2LrZn_?I)=HSysZd6Rs8HEaSv{yv_~E
zcD^3gk8^uYgFLzrxMhM*%M3mcl>N_RK(&C~vXudCPRcyC4CuqJI2{x%d-c6$77Qlz
zp|%&WPC!=c?1id`!cRf~AW#b|!bEu>9I_uHr8)c{NjVDv2?%~COI5H15_o6nYU*{I
zX2Myo{Chqk0QlX-)P&kMzM@cKV}<@1xQ~!Mz{o-&gq!MF)&$IUsF<AqI22?IKT7t5
zM?g7n8dL?xcxC<faaFyBy({bAOzZQF$ZL$+(?FFVqf+{F+C)kdDx!21jbb~1{@o~3
zcZ{Xt=CdTxs{`pJ78yz2%haURm7xp|^!D5N==hXkq@?{NooNvt4P3)BOt}sUEmZ$+
z;Y8i8e4Ra$5Mg0ECktZTGQ>M&7v6R`IUCfo+YjRKeaND1T>zH~0A)y_2lC-siv|I<
zJ&-PKOtH?0O^|yP6}E2Lgv#S#I=gpyE)RmSzzR^&E6C0AA^0$>sAc<G_!`)o&1Ur|
zXE}BB*QWlKM>z!{#P&#oAhd{DB1kQK26V~|z{n09j2dXnlMj=69=d7Slkws7vjU5m
zlA(r|bgelpLLV5Q6ktEWR*e^^TE$;tRqBn@6)hZY0b;7V$Zl{isX&**R_3pI2%ui`
z0qk`!Mt=#UOs&7BX1@_kN^}uk@|F$oL%I<w`w(>bI*Q*&H+M%t1Rd0aI_bxN7kZvi
zU6d2+Ng57d6Gm}+_=bQasUa{2q3}|>6kS3_#5l^3ZKyJUyM6;QzPF8$?6_iJEKFcB
zeo7(WgU`JjM3}1j5(>I$I@6$!#oZ0WJTs$6$NDrG^MOm+>Z4%+kci2u6#-pB9PsK4
zwZX%EC}t)lx>O<3a2eb;gFHr&`+<w5#&p(|bp6jjzLJrDI8JHpb9OChC-@As9fM#t
zKtr>dgHJ)sg`*{aeF1JzsFIQgVYDFMdFwektWoS!_A37gJZn+S$9*r6i@~)oPxZt4
zS`g^ayzj$oE(_$Ddqi*0FWtO4nCDY<AdDkLrDX+hH2r{HGT&lrP31Em+#s`Bxqj39
zUAMZi@hI+-k@|;}e1g>C!<#vHw*WbMswh*=)Is<RJ1FB3=$Ypuu_kaXu;PtIwHsrC
z-UL}&2UC5NUrA1(K0}uB75r@@w4TYstMXSeWYZo`X)V8dX?C>I4DAx=Jp3~N0#9+J
zOsBFu{uIIvQLPMB3e*YUEl>!ddI5Gr#+yP2b37IrDfCx03$Rf_W|rC!?1I7y17|3W
zG>pTb*MJ2QV{{11*|6F*TfmY^|7L^-#sp~_P+Xj^gD&^KTm;nvS|8j2c1=9%AC}PD
zA#^U-sW1nuMTG@SCQVh`f4bu2{(ri1Ec6sWa|lFThHo2g2$){=A07ZT4p28x=1Gkq
z)O7;-K*0P^grk^3Q4mIP^J&z6skJcL>sBe8c~t54-a<lr6i+RJ-!w{*OecO&Q))Ke
zPbOT>n?N!^xFR0FB+Is@VP;@b<x2am(7qw0w4&l8VZtSHg1RKTjr-$4z(;cgg_1dj
zKYS$o{<J2~!4Z5pd8)J-OI(}umBX3v<%6P6K?TJYvL8n<m&_!n#S(*unI;cHdns7d
zCwv}u;bTMU0Jur!jf9iQI72RiZ6h)jatR@=<TLOv%mKqj1Y(5otyyZw6}kI=I46Yq
zjuL@qArmA>3Q{Uc8#A$@<CCGpRv$o#gh~$(!$0rASNyL#kbpm~-zve8$Y|_AY<T5*
z45crS#iq944@$hJgFIYM4ln?Qhi9UfLajpP;098|%T*t7nN>pZslou<OtD>n<aCh_
zMV>4<x+u>&m|J=|N*KaWJ5Xc81zc5=P|{hv6w)*hhSFt0Nr4(ozXt#Nknt!qc~WBz
ziXWsGD*#8<l*3w7g*4nQYYjdffPyj!$OxpP67^aU&jTign*9`PK$-)@BI+PY0e*4@
zX$>8zycm2!_?{^0`1le+_&;rAFb*X{Ny>!}C0M$rU?^G>v@V6a#xd2xgg9IB&qz@n
znDZb8<0}$E+M~&N5eh-XLB}d;G)kl{LH-D+jW1yUCMyG1V~*rzOEe0u#Lglh8_tJ>
zj5SPXDU{ZTp<Huu2x>r-JiH!miM!)ykrB=))ptkkfqG8jdbN1D-Vi6s5O4BiskE=Y
z1W-YFWi6)~sEhikNHwZrJD!x{6+f_a2=t~wBEi+Ck|`^h{QR;3LGy`sK+(uHkjR98
zTh?sK!i+B`FoKom;{&7m;VVku9Nx>12gnaq3xNcYKgb9qL*YQcq2<LjQ2xs}-{@8W
z*zmz$Y8+ZId288d{juhQ`Xgk7CAJn*JKR(L%MyL^Up_--X9f}G<WlCi3~-HtEpE!z
zFfM$uL(q}bx=3<$wL?7|j6}H5$T0Q>>@whJke@`2Rj&xuua;s}=9*9u4{aliJh1l&
z*o0~tx&_&r76?G@5qt@?3NNn)@LEa?S&J?|7t!E#Iv<}8x+Wlfp)tlMK+VK@0MK2S
zkf6Z{A-B*4$c7MEj)TZ?*?FCu|79b;`b2p2{vRj8-t>Q+f*9ub>av;AD1u=M1}fnB
zF!ZnuWjM@1Xent1g={#Qqds=4O4}j$!XSjVsRCfzI00eGhCNEal7;O+NL>uuTpppD
zm%j{A644$}yJ22Hro-zT<wONFlw4{I@wv0h>iseZIwF+g{&Im13*SeuP#y}Ig(3^}
zh^%&KV?el!rhv1U;)B5KBcEG@T*eY22}%Mgl7e<z<*2~fO$BgCSQ+3If%Xk%4>bFr
z6ay#}EMo-4KM>e*R*W*rc^bgYNKnRzL1X5FkSP-i(itQbb}Xb`HviQdkTaO40|pL+
zE{=kS0dq)V*lijx8^Xf)*CUyT1@w)YMl)4YN`j|W(@^cz<9R&Y!bxESE-Q&;DVn8Z
zkWLL<n)JmBfjLZ$ie*Vt;PxiPo*2Xj)Sa{}LKw&@=<-qaWy^u~Ov)HoWmJNflW&O+
zE?*N6=<MsF`lHRl3*iEh?;vg$Y9!S9cp^h~;w=IysKfz81>vg!i9r=+4j8-;@>F&g
zKwryd6d8?MgL?q&HJUnnRXOVj6An<boZ~wphw(*Qnytm1x(_V@`X3ZK4(9|k7+3|3
z43YpT21@~B1XghuTq0#RR9BRQ6jVFevyk4C2j#Jv!?+gfF$KjJxr0<y*TW#nCj!>T
zVP~`rq!P=rq|d~^Wjbhx3k}n+88Ml2vLKL!?~ON;>6iKrSR_wv)~#NLR|MMAdT0xz
z&?BUrla+dqS;)9L{7&8np$LifL^EcLMr#9&Z+!+!B^u%&;2UTFG-ZyIJ}kh{%h6;=
z<1yY14V-K}@%`|JGUyjEq`e(VE5uHuN48rMFOLcU0S-H`Em$GJ@Ws)Sc{n56!6NLB
zg)R+oA7uw&;o~7+<yV$1CK4+XjDaJ1N);Afq*@jhcvVm>(+8M&z0>t1gb_Fj!Ps{T
zGm9V%qs@~ubr_Tuj4z^BndNw1+~*|Bq+gnUZJ$haC-9gcOO$ZUvQl;(vMkDyqxw;!
zO(vy86^aHZ4gS)ZmUq)zBS?j6CA3=UoQrv7UN^-tO;w4>YwO{4rHBK+1@30|!`=$V
z6TIJ<$Doo=B8aaAfdqyj&ou&~6j@N<p<hL~LL^+~FuE0Fa?L7o|BoGz^5rpPL`{c;
z8_56|*|X(`L0|Q!_3Az7J5f2Z-Ih&P<-lVTVWbT$FFUuPmxo~y&nUrXK)K`a*_QP9
za!t1LxFv2=bLT&8)$GhYc@<Lpr=v*4pSEhw&66KllWkhIU6W<w-_~UmDP=QCqvL^V
z8D(2oy5iH(XhJX$etZqI{PrWV>fuBvGtmU2Ea4BkvMcz6Xv6U-VHt%hYCtx1=v}gM
zH3#VyGzPNRp4#Qdy4;2|gZ2|Pj=vs;|4#LB-2iqS>xbpz&@AF6_zbc~ku`xMDcQYf
zDda9ZPYM}wT|Qgx%$}wpz1j1!B^w1)7G^9^ShBmb4G3-yr<!W&ax77;(PE>uM=K|V
zC`h>)Br`dO826u{bJ2|85`CR~E|1`<Tueons3Y1M0=NgF5ZV{8hyP_Xig7+(2g!W{
zFXkc?FA9CB)Q-^0=--h*yhaJ`fK0$gug(o545I_tjAsvL+eG=^*;mHaEM`W05mZ%8
zZv=IV?6OhoU@Au^UcDyUPz-ss5+qlO(vZJFO^Py(rd(zqO!0r3qg_P%CuQ&KBc%wP
zZ4<JKY^gv#W)Chzk$^uTI&qoRcpxMmG=y+gg+yl}>X-#73sO8j7I-_6W;_jLsQS}Z
z571C$<+rJo-DjYoSuameSYdXK9DE$lfIKVRaUhT(wg`HIfBTa#3TdsM19=<{v#J^l
z2hiC@49Fg`8b~1vx5Vg1f?g0>_U}eAwQ<saj%4=A_xX#E=fj(-@EnluD8ku!JB)l}
z=P&2Apg|<)LF63zJIurXb>0_)CQU8SHB^G=|KqiJbONmoN*e$r|7Ctf_9)OUIOm_{
zow7%P5y3gNvh(VDnvlw{3o;qz)$9Lsi|YO1th-_WXV<;g%jOQEkI1YlM<*bM5Y>wS
zB0^K{ZRg7759NjGp{YTwfNM;4S;<>L5rIOLRgZCGp@8ggU&z_a+@h4|QCd)BAm|<1
z5)h@CC}yT=YnJL+982_bP6+B#8TAB!A9MmYXV1qu@RflxzMR#ZSmc^W0(xOk&bk<(
zVPuy;Jpv(|-&e~Bk*Cvu&W?kgSvOCsekz(**^O!rY8XD6jxGf{5Dhpl&Ba$#eH>$9
z2Vt6R2oH)xqzm2Ae9jG`xT3fSR@#4lq7HNj<Ow7P6;LJz!Y>TK)d@lujzLMjzePoH
ziD_5*9Vl9agw8;OK=%V;WCV>j!FQ|p9mwP|;?t?)sDiTJIdx9hj<~7x&k!67bO`Xe
zCA^xYE8kBGWZ$wJV<)NIkc|X}M1NgElKAV6lP5&wP**}(YL=>r+knqZ4t>EVDwBdC
z9a>qW9m6>cg&^kt=ei0Vn+%I>;$|mTQTg$<a;L1-C$IbSx*YK#AvW&U7$`vuv5-NI
zBb91W)r3r}S(+HRAT798HX+$K+1X^ATC;G0^t;D7_McasY!b2ov;X}Hgd@&AI}g5M
zp!CgWUOfB`skTg2ScfElMfKJwps}QQ#LXJ<2y%XQdzEC?lLr8x%F0hp&34^?xS&UD
zr%-)wp$Uc5it$Kxav|X1hXzPa=#>A*EgLo>{BVt&u=S7E{o9#RK7>qwo-sSK;ZTO3
z+|JI5&<UdtLT6@aD(<WSnkMI{dWzJ-DI78`4Q0Nf@<Z^ZUSw|Ja~=I-DiWGk;HFEV
zjIb@M6ZAdzrnw)Zuworvv#2W;?}#zJn#mbQxp}%8wW1>8dIgS==as1iS~OT3bjl+w
z4X-ROS}z`m7X|t_Wo4;?kP`$Kelo{VY9;f)6$)i0!pGQk^2}P$VMU{r0k0}$cL<0~
z;e%Yn3oXes36?Jd|C$5zsA*d!RQ9U?;L&4t#{WC}o_aucn68>f`4{zos|XuJE+T9K
z;2b}UZ^PD6dI&~REMU#X-m_)cLhK!cC|x4}+uZ|R0PjQ7F8tHm3hf^Gw!A`@;-pX2
zPDgj4l>40MeU5&M=|prt#$%EQ#5B`rbZS;3f2@^;3UkL%-q&KE>e;(!QnKz88Au(v
z5r9+WP!7Vrmz(ORJ3e2+bbOJd1JF^xvwf-Nq0J1;nZ;LXajo!Fc9zs+r<t1<t$!*%
z3v2Q-_s{uRDDzXVv~(>R&iD;~(m2~(PHM5kHBVR4dYzg)2Idi&Yz8s@f-k*^2tC<6
zMlPde0>@`?A4Ve;rSX7c2>9HqSNK7ysP1Ihd>@FQ;c>N(=Cl|hexaU*nQpj{GS|l8
zW1>fkOj92Q<B&TKuzJXMhmhy#!DNS=S=8qqvqaefFxn!DA1BiuNA7sUB3#7^^&({r
z_kr#01g|}V2GLmNZ8hx@%LAzaniBmA*v+G!iRN0>UDHVV|5%Ovu~r;;%Q5XIZPl^m
zK-v&$2n|_Ys-I~GeIeN0wL;gmV{X8W1X_l+v)tnA^Gg4ew^gU|wx}j=i)41Hb$#53
z1~Y!WPJ!R3n>@{U9_=;U|5XRu{$$_v-~|o%)L1>eZcX+EHM=@{YqC|Z$z~H-E3-Iu
zh|26TWUnbu$4uu6+pv7jj|_zxsFvKmnsa?@Atc64l%7jHCs5Q<#f>rHxZB}8w}cSU
zYy~18R3%l@Ud2OTVGjSo7tk{_mA?#DwH@@1$a@M1GoR1zN>!2SVq_MM<0dt$-XCj)
zvFSEc&gjglQPnQi@>Bh6pAioFe1@;U@1e4VJTuVXRQ7CT$pYj?;mO>97$;S?h;WZx
z{-oZ`SOH-leGkx_K26Ed>(%6o>B)Ra7uHm1S@N<~9Mu|vrX4#<MQ$;&Mbj<Iw#_RH
z+j8w$+<#;AOPFEPW3mkzT53bwYoluky+<QxB}FHIdCGG%FJC}G;sfcA8;$?5n)+ic
zlgOm{`9NZr^xzA*jU~UJLVqD1m#{MO3wYMeku?<C&XP}SfT9~J+v@-(Y-1pgb%XyD
zbdu=SlIZEm!;fkcw8KuUnfV3?lRKH8^TX7^T*6K_r|}ES9lV#;cA&QBkLb^rIxCpF
z9AqDFi^uqH{7uo}^2s2Itlt2@BKCdoOL0`}h`q<&;4kx!#TYi3zo0ZfYF@g4lxNv&
zI1@dswwn-|?_F~94LA1~Nnfg8>8}B2hSqpE$m*tP8|Y#Eh82jL^bDJ#Ee$`x-vr&~
z=jNB}xVJI5(wz-l&3g8+(tI753K#Q+v*;Q9SJpDv;uu|<fH{9R4FbymQ3=M=?a%Dh
z{g&2~2@yaEF^e6TRb8qmx}UVXXW<|EsymWeH-CgRY%!T`->WugdRR1DhyWJfQ~Pb~
zN&S1}lj3KRPbdfI^_cT8EmM~gPqEK{DL8BxgJ_1iR#|{=*5$%S5aR3uotK5W@1gzX
zFntP}O1D(>-^f<-X0v(vW12<tM2q=!Har5sB^dgdSR)=$s@|Z63&irQ??M#a^(*fC
z<^eIrmQmV{s{4Z4Phym%eU<YCAIWCxFX=PI5`X_~irIWR{Q|VX3h}#gLDPnfDytea
zXxF-J@5}R3!2qxnWszVnFOm~a#A5MiD91~TR1*GRC>RK&TlfP#{h`Dzf5;1ZelHmc
zhf{$-I2a736H64o9rTy9wCc7Nm2jeT``F+pIp>JR_vE!Y!6u6vuW--Z!w_Aq@V0Qn
z#dHK!`hs}dhB*bd7rn}r*Qv#7wo;#&*u?%-ac}(>*(2%}hSSTA+s~6-+^t?!<pVIJ
zw=#@K@_kmP&qVryW&#N*_GVU5y}NQ2Qg0lZNOk`;l7opAu`;IR6m6C)tk2MI#&~?e
z<Eqbqb;6V)pDJeP5UpIPui)XGkr3pTpO~DVo4_oOa{uc*jiYJ!?#VgoA;x@@O@yFF
zl<npv#$445c~NXYns2^062w_QGdVvG#39g*7XH_HK90t+kB^~L9Hq8FUQ|#S_enLH
zib=Co%QMh$8qgU+(iKWR^nM7Oh;I1$?71Ex#G<8JQVUgmVxbMS0+Oi+IT{k^!VKs=
zrIM)B*Txs`-`P>XR$`lts;_rF?m)lnK|cv40k<{Cf*>F;z%-+AAD)aM4n%x-+yc9%
zL#ZhN+c)_mytKGp^q-$(Nc)PE=#T<v9gz%thLZ^?fSN-EOHyS>-la)_0rCQcr-kmf
zqh$yK<q3?3ps?Vv>cNEO*wNZXyu*V6fq)VYc*&H~ln;%%T@?)KW}ob8ueb8Ppz+bq
zfKe<Oi4U~^@d-XeOq%KJYxsG+QC|0}lL*1*(6#PR&pWK__V_&dl%CGnq<qF-auy;|
z-2!S9X?{Q~Of|W(qQrXEOuoSACm}JF8PW%76^feD5wZ${6xkC(VUblcai8BgmI){>
z5N^mGR1x&np@64D@>d}|s`>-keDW;%ozM2ogdzoo0(GAjQGl2;^yf9xQja)3)4^w4
z2BjeKe6qIDNyoMV>AWcNkf>L_kR8>3Qg6vwL|eoaXU#EjGbd|tkl6}NG~%L3)e3A7
z0eagX^Slzz10jgILWMyjW<{W9k@kuIID4&HUdU=$z9?#V(C>jR2mc^Nv2%TzW;q(l
z`Cal1G!}ti_0eP~?Kp^Dj&M}AhLBV)98ugzZ9RouRSrs-Gm_*bJ~y69q@syPghg=E
zG+cusEWjLRD%CDwb-cg1i<#><o*wd_yfZBO;iTtpE6;ChQM%+oXa@32ZhO%G6EHf+
z7T$1m!u9)uX&1y|@s>fX<|X86gG@3#GPou08~QZQjBh40-eMR)aL-{lfS-rq4s>rL
z(Xp}>p)T5Mp-|h7*W|P|jNjE$UDwOzi|(uLbf%A|4{U2^&Mtkdc+kFk7+UDXnlYX>
zT5A2`5jlGkUxEC61B)+F&U_ZZUDkxB&<=35E_7eBM^uyy6~U3DPg33zYQ5h$f_xay
z3hM=3t2GW{i<Wu}p*SW`r0gMDC%ifvnLqiG?q(K{oV>CH%m7WPeo46UxS{1PWd7VW
zw!h^&e4El)&mY3HPAdEnwcaWi!Hm><ie6^{h$y#_-eE6U9cP4{Q8Byd-Hg@z6H6=G
zMrQg)t~EKN>LqQp<R%vAvN3Mu>_>z93b*Ty6n)3BVDr^VtJ%z`x07iV!}$r)o6HfT
zgx>Ht>!UZ`jY!ja<1e{)+M{4+^QV{dfyO+ccYxw-qcTG&c-Wk3>OTu@F@mv{EfstV
zfVO-kXP*amS_6p>V_W>zL~V6u6ukkr%<CQ#i+Jaa{8zD_&j*9SCiX?v?{vAkpPD=a
zo!&IlBp7rFVk2}L5Y-GA(jbxO+G-5b7pNvhZ3JOOP!nL{|9Z+GfdH{}o~3}R`MDbk
z!~;IfLw7ExKz5Eg3Yl4=kW7S;QLg>t%mj*9AUnyPE|TjQA=3?lJW-3PG3b+LvVdc@
z{^Rtp3va(9jP^-@lHyRog=4|o@>s~lpe*caA?`*4srY}~#h33GLDP*_-#38~>VTkM
zL)^V^DA56-XG(@csh3~!oVgZ(xND2Ds+EZX=uzq^A+Mq~R?-=)t<U>CkNfrz_kEs?
zQ#DAFHhF3GF^m~X9jG5d1zw=2wpv)EZL$43ZMV2mEiBf)P)pWpMX9{Y9nowM(XIL*
zSfHS^HI)Lj&@`ID4FIvP{E_Nlb`B3K1z;gVBtTzOQ_x_+a;)*^DcL4=o#Ob-d<6XK
zg9fny<Wsam5|<$$DWJt@ZuHS}bwAiKo<{T=p@xAExl8lqpd*flvW^SVO91w0Qw69E
z9}(URa!qe>>Zt0sOSoFX8!CvD0KHCJ)5n328wwr|Ry+v9VjvXhFqdP<@1QaCf*K+{
z1zosx`N9Ep7)YQ(tYf?@%Ygs@h%HzCv|57RG)GN_T&d@U|2eeHum(bXsG>JUCzVpv
zaa2*LHY$gJ5>~=N%MeAN6ajOaVM4-iJw2%hZ8bL(v_etavrPv?+J<XFain=cjJ!fl
z%z#50v^$ELqvM<FmScJ@c)v1w|Iq7_*h=2dRd)lC>$<UA)hn*!s|uHS2_xT)i!Uh{
zu!5n}VgWCfbOK@9!!UIPv8diszXF7atUlEexston#}b-26(aCFr@3cZc$=Ud5n;ti
z`vUJ(N0W)hH5egt(_AYSX$0Re%m_3|9QwkREnu+L8W~2|8b#Iv%(QciwCzM~yG-+8
z9BKP78IorsUsZApTS-O$Wl^pLs>7$KgD3+K4xCXvXiCth`(Vga5pv6R{2N5*ZprKZ
zs0^i-Mks?hupJC1UulC7zBh`i7ji-na!}2^P~O$~X(d1HFV;$C;fsXPi~1Bk7TC^_
z2={4cQ=SnC!FzY=dA-lcNzRhiDNlWYqP`wR{k~~?KG#r^O4F__M^{#ko(UwqNUXq#
zhC4qByJ+UtmidN=h^w;UNCwe6yh??+3`#F#ho;DBA>G*N{s;IC!YzOsh8sL-p-lUI
z);>~#xlAcH3xN-SY7iO@i~~VBs04w%Q9THnu#>~0%hP6KZYgz20O|v=Z_8X^f>8^Q
zdLaiLXt>C$E?jyC?>O-Wuvfz{VVboOT0;@0k%3a#gv+owjo=9c|49?-U+~AbRDDhL
zffQC#E+S0!kLL+Drq;4{5}d6t)<^g6*PKXDha^>P9du!9#(&m4=)k2Gq9o@9)-%jn
zOxBl7Zw~)emcEFU9)$NDD<8`)1EzDnddk`}A9`_w!bxSFDa#<e_~0VsM|*?8FAVDf
z5m9__Z^PT8BFZ_c5dNSW_3I*mt-jLq3zeDcxKcNZX&e2urjBB#D*gZ2B-E7c5J%xI
z%@*!!II53k@Ir&1SKcN+zo?|BsOVy3d^z{!NAmMa3a|sAE7jXV>2kfU3H+EpOQRop
z2vJtBHUX$u$nn`^r<3X2bS*8B4P`0U&v25!gn)hy(R*4{LTv9@iEtxWwhl`XKT2xm
z&kOOlJEgb}kK5{n5}XZ&3u=_{Cs{<*>IWUw&kKqZs!t7eO+`x0gy+JjP+cGl-nr~C
zB+~(fovQ=d?igUcv((&_Xyfsu3H*iv<_w@B{&!QwMSs2U|J7#EFdYBGUJ*+F^<HRX
z{|CzjEDwKUy6}QL>F|Q=`>6c?w+*Az&(l`+c6liCb~FG3BR=<^3>JSeXkgHTA>;pP
z)9`Q?pfqGt4=aEVwu0HLFt0S84CD@@B7j%*TA=w=^|M;rvC8__8Jd;-6)BeIS?Mwj
zafj;jo|W}0ZbP*+5ItM|xeRChv4tQ*fM{8AZuqh>h`j0$M4k!tEZWK5Rrg$0zkTyo
zEt|Dz+357{QyEw~8h{$*kg-zf@EiE>3mWgs-1@pGzNY8h%itQglxFZj)Tl%6f1Ni3
zK<6LmuC?YP{CHq89g9uOQX<b*uK3Dm-=?a?)8+kpjAym4?l6HGJrJHoPey%fpwHq-
z;Ix7UoGvNM9zsI}QJ%wW>VwS!Fj9$_fu%bkO)?3<K9o&9phIywpnXs(u}=`@6axWO
zVy)zgA6OEV<pE+TEgxtwWLuh@4@A#C#}{Aa8w#i3;0e>QJ>M2KACwD8H$d;HdGCgY
zvC75tQLJ<t-LwGFVV7~`v%)}-#xUj8T)&a=tK$ibJ0gEJ6Gg^haNrqWY=${i7ZZiK
zu@vGLkffUD*lql3FyHU`!Dtx@cCgbCGg=x6M?#iSdPmAh<pf+mI{Hn3qh*3l5C)ux
z-)m^6V|ui#qQb;UWvN^!O~G%}7BS#A!?z(24;n^k=(1ch)qgGT(`S!);R{7?xD{g(
zjY}Ni3a{bAQ1h;5iQ<O$c<1Gp%nIkt@qb63@rP*RNr%Wws$ORBm9no=c=xp|)a3K{
zPVW(Al`^UJEBTM;pBP<-vM)1}*tqbApb@%w3hh#4?6}cvabz$Z_Kl=n`bv7=?Yxpk
z*;D=Z-Tx|BfA+8?$_n?Qy#j%E_tUD#%{%l(fp(t<rqBXshc-dnr7R`o6)5f&@h8M#
zaHh;tcB{K9%2p{k)8LVL#PCgY#=@uZ5Tx{%*f#eIWry|(8wTgCNBC-W0-FuuksUNa
z(D;JM94>nBQ%TZ;)&})c{ZZOWQ^j~H`UakQM^BE!r(zH>SRG;9nLCWTA9>w=6W<s^
zK!E->fI<iysqE+Vy5u7a@Fb<rLUV%iJimS~v4{DWVkV1?);7|9l;X$&u^&_)tIX1I
zBJz$GUcg>erf4sl^Vs7?tJlpf^eul50m<GMPb&-k*Dho0`1|~w(mNH<E4)&!R46T$
z>#6C$s{vhPp|a(gd8W|>_D}Q#ZjJmKv3(FaAkBnD3eqo1fRum5E97)Fud@^R34g?U
z8}Vo$@9rey9?j_(gh*oo>IE}f7~#XJ1zo#(kKN+bQRrgFk?14w#h}ZC9$8gh07HBT
z>2ZT46j1!Jp$vAQ+o3^Gva?bE?bB*9Ead=*T9TzfA`ZU?{=yeVm<2Q7vmjy?AZo2<
zMvcCDiE0-)Rxk<4)C@QwKdiQpa>71vae09y%<AvoOE~!jmaL~_)H_)}S2%u%)GX{l
z>g=Ltpab{ZjD3Kz@+M+F<kj%RdpcN=H6<5<?fG^KDQXHeXhoEeor?G;fotB#OIhW)
zh?-`kF(9z5&q+zBK#lAN5p2x1>iKLdWcx4~Fp+3^s#<EQ%|%Mw&UJ_gGf-K91~XkK
zgMvW_upnr$ZT~}%UYd#KYLy}&K9)3u_z1#n!w)-$VS;7_YojPXrRJwvmpl)y5Xh8F
zdyD&RnVRDC0p_!F6SL40h!-Ft8f7WO$dZj~j+O}~?L-VNW5<}CzmFWpxhN|gZWX5)
zFw(>REug#?#?Rn};r}0dZyjaDmG%qwv!(pFpVRK%bklU>?gXMp1VWV9L?$|!NrF41
zaS84b+}%A`0wf^`4g(1ULP7#DzF!?6GxOf}TlcPSee16K$35Lur>f35CA+G2?fpDI
zNi$9nJ4N0zBp_i4P6s+Z;3^<534oynxHejSKZ|;)@%CPTj|ZC*yoLy`gh1wMh=o9s
z!z~^#N{mfpWVoR17GR|YBs?|}+saroV<t0}lCcnZO*BP)p#P%1B=e9{cOhHi1r!_c
z3(X18yY2-S%5|&F6>q!P?H3ndz*+FRMUnwma$U&$1H53TzvbsJEB(*w>tC1S|MX(L
zeU=4IbB=wQM^Z-Klj+sd(z7yhv(kH$uPiAoJtHSOE4_s#jaU7N`3S+Px=4)ah-P}B
z@8<88jm(hK9Ag{QnKv6-(Uhd*XpSBC61in9qKWbObgn+GAiR{@z{vJ11!*}QQ!De0
zXU*14TQ|R>dBaA&)s$Y46i88Ib+0p+lNCeqV-XC7_|+s(BE=8Hl0_Oyd=X2@ie-j^
zF(@=Ty}8j$Z|jCutTOK@#RQrI|Cw%qep_1g+J*O3=9P2<c@%=T@p0r&lO+4;49Q%>
zeoh0Xsyl8zj}dk-E!~ZWF&@_LyGnc0!xeQK*RNO61kdF56B#TH%N#?!V`Q5zD8=op
zqLiyz@Hgh3$Wlj%b#%b1&F1U02U>Q1bqf7$iR&9(yX1DiE8En6e4$pmP9NwIwryX%
zsAhSs;`7X1G>5a^w2ED(h5V@VpQg9kqd6r5wX|=kq6eEtOZ1;1Xf=+d_F!vKhmN93
zI2u9FNof{Z0@UP}q%;nFMvpcPL7x59W{cVVp&#iad|x}Tyh`{W70p2=WDt)8T_Y{e
z81_K#oH`ec;3X?{zcY0M1H%Yv@^~f3$M$Fy&1CrnpIWn%m!$1xcRFOsHmXy%RpiNO
zY+!Uae^2a{gTy>B&NGnSL#WdE0bgenr#HQ;=@2M2)~R@|;<@^-7JKTytR9nJ!Vcs`
z9XDk^*#cmjS(H0kAI3J(P%Zzl`tFKN)+G9lZ&N-<8KrDxm*kqrQMS?d5r1<NJvoZX
z)`?4Mm9Z9{+mjhmCa(A7PNgS1!)y}ZKDauJ*3Zcu)-OtFr<7;<XS`k(&Rt+M@$@jR
z;qltcHiCGz`2bQ{uGPjWMMHrKSP{GgvimspaV((pG`ZtN3oEkt9=0RA7|-ZEFv;0T
zTJ;&~m-OHfk)53yC(iOJ_qw#dFNbW;R9XVM>|BvOFZdx(Z{({?IY@PEs_YHN-(4;H
z%eNQi*4xZx0vDOrZU|e$I!Akm&Cq<U;IO$K#+NG3_ffJ=@n4eP<<51158<#ngZ&d{
zP#lt3N98E-;!LV_SdOIOVrXchbxpRjtXW!zNvska(;xVw+F(UPetRN3V{*TiPv&PA
zp5z$qQ!wf)Y8B;`ToD*uqgiaWa|ZugSuwn86r*X4(m1j3OZRWI-RQ%=jPx~9hV!mf
z`V}ge!A`L)?2G|%z{h@+`$ZcF5?Ip=BU#HfpIidc_AD`$KBLq;UzWB`IqT}{{hdab
z-F$o4X~!F{j)YxL*=u`Ie#7Kbf9uH?ive_4oO45dLw0I8OMU9;R?k2A5p!01vPt7*
zMt_J*&F5?BNjJ3A>m8)phn(*@A6B2=!k(@JBI9x8I$8$kK+Z^Go{qk5t}0~>Ac3hs
z7mak+S8K{9lN~dx<`cz-xeYqr`Pkn!(2MWW--fad3$j`+VN;<E23I})6YXcSDCY~=
zY6Bkye*7d@=X`{}wGc(f8lpD+l<imVg@4v)ewnq;$@-d7hVXh{(@O_|4O>coYq3r3
ziJe?P2iQ#O6Y4ydK8N|z*HHT$WY+nFmk);^#VH^G*0D>pOO_tj8t<h0x~*Z()xOPv
z{-8C$w(Scs4QYt^{9`r&7r{RMBYQt(nRspr{CVc#Z#`Yoho_D}p6Ykr8#*g;Ap2Ii
z|1{<QLKE3pMSRKRxxhkLswn+<PittD+xiR>T^C#pRsis6w%*P<UEu9ku#S`YbBFkv
zw3fYDPqZ_bgjtr&p{n98)vWDOwdJg~nx#IM{(xEzMw`fC<<_G@gStHcr$7yZK;jmf
z;&R<>$7!IEg%`3pz}8QoLOd6*Av$ZBN#OtzAqdhaPy3|99^R*1u;fK54^AW_&0LHR
z_lS+;3uPTaBmofun;(GWkRl&}UYVCWAdIS%Vz?gz0HZk;N6aGxq#ah=K>AaP*d##g
zSq>}Kq~C@(B;#nRc^J#Hit!*xK|jgyF)!rKES3(4X(8&WEI`Av(KE?LLMz8)%>ZOb
za`+!fiFI|m)x}I*Na}U)rPN2&CLNv)A_S212sW{txKWwGy{UjGK%~7m;;H7<-&WY8
zwtBq=t?L{MU@(o<V6}sEZ-nJWSXri(X(&lby7|BxriPvkqN(x#MBRkFze#KlnG3*V
z%0uguC7%P1JOk_ZAbu?!Be?(zs2Z%|?Bt3MWP^=Nan7Lvcs?RTgK#&{A!q}D0f6JR
zY_bE+5&#D{4|to$%yKS&;DADW4V<8cSTHuhByv&r7><w+QN=t<UCP?=_IKkn<c+r>
zQYd~K3x&h6F|yztBC><fLECMF4o(1xH=Gp}5koX2n){-E&TCWPS%6>pal-4Pxx>}q
zX&`6;P$v-uqzMmj@jj)TWX}7o6W|4!GEFW;pdR9RP+UUauGKO~%`3WnHcQz<?qB(R
zP$C<Swisa5pp$^{fOm;^r2YW31(1bgwtN^!N?R2RV?@nhNdp+95W8#{^8a!1a#Usi
z&EgqCfn=9$>TIvXVXp)tU*a=ii-0j#e2qYKBDi8<ajs(rxz3RTR!dOYX+4nRnINCO
z;Tq3WXek}FVa-yMBgAEMUXbMkSz|2jbUgy(haC@e#El>_@kJYmrocH&7(i&h6GMqX
zehj@E#{$|$?V6$JY#K=iwBXTaj!!Qn&j+;B#)#th5lEEp=ygpcYJlk>Yl|8-Y3oCd
zK%+><U8kj?CQLDXHO*o(&x$(G?lIs-ZvytN(1Xkn(C7nzG(HPnIZi!}PDlPLK4Ab>
zesjs~iBbv1BkZ(PAiHrJ+M0P90DATqT8N-Qpv^`Iu_5S(iUFa1`_N%c=s+OTA!^3o
zP2FiXHklgGoo?H@8aK^L@IHumS_7kpuqFWniIFW<XcvnQg-;?AG`S?G2>LXydNX@k
z1{mz^<Y_I%2mDh+B&t3oU9;4P5!CJXD%?~zO9@K!Hz%&z#j8*rYAp|T7fUh9!K$pl
zDgHUk0)Q4r*}l^m=>i~g=?0TMIcx<K{`&hIA%R<~vDH7&vGGQ5Q8L3}L)-zr3vw0b
zmf<|wZ@D(eR27atpjPDy#{H~UGX(lIu}Cyyo7sJjzl+?wP@y{nK?n(rhWBww!0x~v
zX(%w{V{xGu%!Nz?K<5xNW6%H2kIG@*w>VE+C$B*Xxe9GgK<Mp}4+Cl>Q4{fZq@#q_
zCA<igY21k(sc<4jgpu+Eg2VtL*=ZmFkQwg)RTy+lAd-v$RvsqG+a-p$2RRRTPGVC-
z$@`(@nrVf;qR@VFxjn}y8nsi^5%*<6Sl3b?L>^epn}d#xh)5$NuB7Hu^l;eYLBPZv
zjz*V3J`!tJ-V{>+CmljAhg=F}nl$v8t=hP6U6;t6{TVa-@K#S@n%8#E_PT&^K!t{8
zwdL`4K;4_+bZW?+WCdYZ<buK$au1r@WXMce8t53{efgkdsB)i8psy}qdy~t(B2<DE
z<N>4joT}Xo2850A^>l0jKyuKN<JU~TW+ZZ}JXDe5^>ZbKo1RuR?b=&4;$xqk<`Qa1
zv$S@0SJx8?B!>gvBcZkfLGma%5?-f&3=)4K{*Msv+FK&*T>+&C_Z29KEM`3M-oYwQ
z4u@GYHe4oG@gG%>*L3Y6&#z=|V)fOSKSxzd8|%%7vzq9sbM!~;vCORtA-K9oin+6!
z)%M?q3Sun?(g+A!wOvS`uq2l{oqKATE<DOz>xJorxv@2eOy>+V>|5S{4a9Z^T|(6v
zb>5ut;7SB(4AsG{1#T>`!M*4~s`QV}PyYaEL=WN-sMA4m^wuzZ#(1hIl8-m9`1ezl
z0?i#m344=@b&$4$Es|tbR#vJ^l`rENo2&apaXMz>OYYD#M}sB}0Yvv3$q1jD<|0%*
zxU29F`zL^J?0*%A#H6rH!jNuyT(LK+-JZ?qS`=}#dJCHidJ|KzIcG4x{3W#!{#xQ?
z_kEL4ms^(R#l`GY@_pg#$5G=r(mr8G@4b`Ov;nGHhcSaChLGi`&6Sv;MF0Sgcvh0d
zQk`j@h^J65H$}Ot+*#d%7;&-A%FS}e-7%)cOtFCS!61s+L|Y}t=M;WK@~vE)AAkHL
zrD?E_ObYl_9~PmTXP-DdrXhpy=NHVByX?ml3L2Ivcp~4PMDz!fy4R+Lc>Ngpy<Xdn
zP7h?mpk6Oce#Q38fa0iuDn(&sP}QwppS@cD^|d@2;ya{{u+JxGbI)Y3iP#U~v^h_n
zfrv|kT1(g;>UL!~U#>x^_zZG1E9luNircpoz5wftxojiNq7kqgw4ilLPJN(ENxFo<
zUwATfZl;@ZCA}b5L*Zq-RGZ)-1|>)FqY_Etsd)OV1fW7M=+D-h;(_X)$F~l>)wBZ;
zPIH~ry$~<F#~wxP(fjfO{fOOJ#(q<GDpjz`{fOEgfv(CLdiD?XJ?bIQgZ8T?B0N6z
zi2wqAXldQvyDOBn4>?9v%lsJVhUqxQ8qOQ^qrpqiV94UdmF10OxopZsX?bnFn*S`7
z>u~N{MQulmo-E@!dDrumYzMU+DgK~poB2HE{aSQ*tC#Zj0H&=69B+ht_I;X3o6J9G
zMes*%{s8>na3+@8mD*tDX&pm_mOEWq$?o*HJR>v*q(_E<p7eQL;b_uYGX2OYPe4UI
zf`BVoz$!Xl!JYasL+p$r52}ka1Gof36;Y=bk41RrAwm=OcpCtyq>G5^hLSy)?&dRg
z!qo5RhX;TTwh#hCXk&nrfvXmyTp5)rxGFMSVo5z4h~MWGt-VL}xH>jNf;r6}a`AvA
zLounB2Wl1Kx5%3ZLoKT#BY>bHoYF(dplL|8xt$yK`@<>z&=pi&J5hCo;iLgpk`9M=
zv+KLkaMqth&YKsI<C%VF#yG=QWb$x+QT4e3#%^-`PUdD?k5Wza=jdulyvnMTnv^O~
zRn4-isk;7q5kc8tS5vddRo90H9iBVDqg&&+uOfgzR=`*#0_eC0)aew^?V9Srw;z7y
z5>Kj+N=H%39Bybh#UeH2W6jGdI)6xBSf0voanO&pSbEbG#s166dKp?`?)vtmJ=YY?
zDf~GaHfgS_0BoehE1G4%m6`GXv0w`U<%EA5Caol)rdE=Gd9aNN6K~H~>lm+TyouOe
zC^hKC_HxSq*0N;--Tv!~i`FZ`$owVhnpG69Wuj?Un4<?pTQ-hYF-us!3|Nq*aPtTt
z2QHq$w-PVl;Lzsq3SO5tgqZ{vwRr<xi8)?}ce1^wAQBPbj>VMb&k5!zaG{O(Gc_wY
z*_-M{3U3?brn$3|1F1gDRNPwV47Rt8kI;cZOVSI~7dM!aj{mYK=&|e%JSq4*n46S?
zj{`52vYDt)lmIf)<#p>XrTVWAC&*hxzmt90q4?eWD?z>vV66r6pL7{F?^5==x<eVp
zSHWebEi}^U+3E3`WCEh;x9`=@kfrvJ8-NP=kwjJU3!4f>yU$J3BHc-%r3#1;gW!I<
z;o=A-X8lguHog$GP}@=BG^J;3MEGqmb8LW<<|z4>4^cU7GH>9nyvofV*(j#0B)|#&
zevJpMyFK37!narYTiMTHUmz4t^!<Q~IVqSe4f}H3MP_cGQupBz3L(nex&cU-eGK0W
z83x@I%<j%OaWARPw2f$6X;~PSQI;<qLbW-*aLAWwSQ$P)ei`;1p=g#_<O^XY=4*Uw
zVWQ&=JI03sRpHEqZ1&Abd)EHL`M`g~NYs7!N|{wn#~CQLFuj&}W9uZ4%F!DXoJDQz
ziWWA!&<QdlD758#8Y=0wW8qYK6y>uPnU!f`EZa;k{KU<x>?HL>L+&n*cfJTVvhU)c
zHyQ~ex0M{sRz>yOhYd_}-PHQ~5Yq95KceNVAX2ar>+@z>)^E(pLqKD_>WzJ)M#mxv
z({>X3g^t;~AT)ayR`MxglGs8o{mg%2yD6bSWPyMd;!Y^fqOq*wF99S*@8c}N0rScP
zbH0!XR+VA)6fD6#SHsLx*GVSm3kmb~D12SA1n&}-oWl})`!$x}`4mgzBkxF-f~BS$
zhL*HUa6BRtLNg7PpdVoP?r{sF_c4oyHcPNt$^;F{n)Vm14%qN^Oqj)W24d~TaeTpi
zaxAuM%)+FjdofFJ%H!$&_-e;vMf$JUsI{3rZFa%TBo#k;3KQq>ZU5*felm)l!*5PN
z;|_0&*!MV`z<2CNtljL#@zY6Mg?x5`A<vQV6;nq76@fh-$JNL1)>EjH@u6cT3d1W`
zu>lN$O8X1GejaS;D7GR4xd*Ac`A>DZ9BS|KFW7+YNiPEcn<YTP!)LZh&RUAh8NP~y
zFq4nJx}OHyKO90=)A9E9GZ(NfM`Cy5XXh3-d-Q7{kE%dh`vUKq&{Z0O>3yha*h*yG
zw$mv7ITSFb%g<=5t$^9xxxi)T)uxD%l=TDhY8P+k)sEozHSHhQJB+FISkrPEh}rM?
z*QhFwx_{HxiyrjyC|a0!OxXdJ%2qn+>H+^+$69__tmM<gMX`asI)|q$#6^<)9&5jW
zir!9s^o}3QskG2JiN+{T?qLfldl0X$74$;R^Wjji4~14zy;_g9>3UG7Zy_c&!aEbZ
z>3c}ioj-f@L_U(Jcp)p<LtiTC**W_}&S&g2)IhVQi4AhTM=fias6=NYO{bufbN@Gi
zxG~8dSo8e5N$gRy2M=f8fCgGWwt;e5Jz6|N-t<TvLY4j<{Ho`s32J{eXRi9#$NtbJ
zmY0*3l~*I@Yl5N5F)A-A@K<lWgEh@aZr*St*H(Kj8Gl{I&x=KfSf3RuS+^DX0X`9^
zt2t;%Y-0m>FGAwV=*O$SPX+py)Z|m@6+Vn0{3Y!QHTkKaFa7G?MB8QN3F{lFb-pgG
zpXF6$1?zg>lS8@VshKf5!aR!D2sBTbRls6EZMai!Y9xOL7WTJ@NCIw$bmMO+Y!)7<
zQS=Kjzc>bp+C^JmO8$lla}{v^{j5!D51w=ui^%x}eQSKJQm1vakKb8VJel1N;Lehx
z<ygnB-rtO@gVE2ZBKov!_wtjEspLWTNJHJUh}o7&D^VCFcmJD9(jeCCOEi7~Bfp{j
zp-zJ3z0bW@U!pkHQ?oDi)-&L>v5EEJU-7|g5gbY2Pr(Lqx5p2FBa|%kJdtu<7MJAP
z);o<F!FFfee^^^}?0VQ$z2r*+l)J8Grr-Ba-J{ewvs3WaM3*5XkO`fVHWnn*;kIG@
zH%6N+)QaEz1@(lN(y>S%IIlfBSvK231BGuNI}f+ko(h|4%%-bw-Eu)b@f^>r4`v&u
zFI^?Oee^}P`i|9u{O9$Q?&3F@QUy}LSmFN?_49n_j{O0E?n$0mdkp=~$GER%4?%O~
zJ>l<eq_m+&=p)bFA=Nk~d-Lh^IiHz$K^MKn7B}>$i|QZYRTL}u1}27w*>|#Xxz>lt
z<!;^}Q<(|L<^{CUKQ-b$t!$^BJZZginKqT~DK6X0-pKm{{kzae-iJzuiPc7b^<&TC
z{GbR1#mjrBtUe`rJOF?C%4V@h9~N0e(a=EH;E0Doxi(^27vl<C;n4j&p~98k%%lP&
zE={j>+E@>hAI0^Q>i$#>hr{zxS@c35cp5`&F!>wZnVYwsdaF}1Jk=&JZ<ps!Yai38
z^j4y0*bC9qk~+2P)@e7^x}c9h<9#6;#{Lisl+FCkH)17QwBu+q-(V?~1;4Vd<WTxd
zKjl41k0ym@gr~_v=5yT%cZb@Sjr8>vtK><!h%HjSwpNNh?3`nk`qxD?E%y{HH{)J6
z<CWt+AHthHbtm233W<)D{N8I2_1-~z7@eg$LC}NOF;A=D8shy$YV+VR;w^)h8SfnI
z&Uin^x2~`0^T^7;j{r`r3ihIRU|W~>F`JvRgB=JgOldSM53~<fI)U%!ox1In-|~C*
z$*po7+8rAL?->KlyC>pNd}q^%G}2qRg6(mQ2ACvJ(Jk{E)~vEG8x7y+U8n^wvxjo;
z@K-DbUFCrXY6SF*_pqP4si1ZZbrvAk>3U^`Q7yL=$mvL|+`W#i(LRj!&^@)cr+MDa
z+RxpE14QQQdB;E&x=uUcA-;zd^pW$evvE1YjpTuwSF==?uVX(t5*b5cCD0Gc#UM6_
zdI>Cka6G-7_|`N^ngys1buBEMO9fZB`Wo~~Cu<Sl1yww&bpoAT1+XHA3QGNyol4$&
zJ3Z7E^e{!qCb!!gXxg!uYLy(N$Ut_2&JexOn~lVUG>s_HT}CxrFgRHNW>eB<CaJHU
zL;J29)@Pu0_E8yRH?OnYjN;v#B6#~m!Kjy@ItAIKR|Q71#7UDSt>-M`a`GTHMtmTj
z_<=SlYiX)DK_BoPctV|`uYhYmnm$jtD6X;%a)YavbWEXn-eY139hMz-80&c948B<F
zrC#(@M%q*)wQD?!1(yZB7mJLh`=h_o>nru-VI2K0RSr_KJ+&we9GQ)z^i-)Wo}Wrb
zpzSvCJI*qt{s=K2;XGt2+)6K`+`m`VImnD$1OpntU8QDN*PGu&1soT+Gf6E0Sccwp
zTv6{7OIUCd%j^${g*&Lb#@i{lziib^TU#;>GCqi$fD`7jmDr$FU_sFd&t=jktK>R>
z9RFN`8U;;fNzTUfqMN+!q2(RX`w((ww1j;JRs;mLoa#_;>6Y-sh_`n9DDsxjX<oBF
zBrUaOpk?7pY9|~G{IBMd9p|lCKOW&-$MrNjyqj)i-VW~mL9w9}Sp?{WVvdr-MND18
zX8c>YwBldU(hfyW`kwRc6pzHCo)&4<?4!O$`fuE7u^XP8J)!@sj^g@Au>cWm^#WZ3
zEUGQi%8o-+Yc(k7fVf})8WVsAeF^k}O=Rw2RP96g1fV}s6YzM17r^habvWxn8yDQD
zJZKRR_v%wra({xj_q=!s4Y#)ta5kma0M)<OE~N0Q^AOCgzgczeC2Nb}y2c!-K>PUW
z#7pQp-veP<Xm_@yGtBSzY4@XiPHO)de%N3J6VtP@YUNk^np`edU6<=Um*YFgtd!bE
zdR*CvgIolp2Xbrjw&c<U#gk}u0x|akPI^0__^W61pyqv4nyAB*0jVRe-y8D#p0k4$
zgISzEvyX>^;c!=b)Yj>6;9rCKt9}GKi-Jg@Jh}&0rXR&%Uo5u7cZaxgUn{uk1pV#b
z@_dSDIqu%Q`1~X)1X52)Qkw%|OWo{}sP@ol^%m_0WQ0*XPO<U%K7iWlE#k~gDnW0S
zHj<OSZoGg#W5MwNTqTw~jv~?@K<NxBf_irR6f5V0r2A_{S1~f~q@5<|H*kM{$;p_i
z5^@NXPxa_2tmft(=b{?<3*l_iD~*X~MQdxgM<S8w1nS*sGz&+<(Rw(m@t2}Evs+T%
zTRVMU<w_BW#3GUOQCRPTG&4Z{tgOr&`V<_a?$8B>Pop_aCGSD)mhyfHt`-M2`fz@w
zXiWpzrx0uaK-#ISL@*k1KoMJ0EyrCZ(_cv+fqqu8a#DO`i`^oMW~Z6Pii!#lgVx|`
z4?sZk8%vpk5HLGv8?+=MNg<dg)$IreVT*0BHXQy-H=sDgpXA%P^CFCq{QMh;VRP34
z-3NWCHVBP-Ttks{a(t#5Pc0@L98&oQ+Sm4$cOji+coC>UQVvjVBrg#3L5RlA`B=~t
zLAHoV11>6<0)_{91EgwhzP%zL8*}q>FS8iJ%<zVM0hwxFK>3{t6+Sf{`@sPLu~m-i
zG7MFuX68dO(Kni1R(1ke89zSU9eHX;EnTZFO%H^-q~-t5|3`46<%2f<-+$`;U-Ee0
zM{17RQcKm+98<x`vR-TcNEKPBsn8~nF*psy#NEvFF;^i|E14b0xXhfbGfGk7|0)$Y
zK-tBT>~{ow?>Lg&(hZa*VnPl?W(4>VuGSI19|kT6w}BnNm9Hty^)`rQ|FLvBMQz!V
zAQF<${lq!XKtKy9SX?6dII8cc=SW481Y!yQ@hhc2VqvHWtLec+e@Ldqw*l2hc&h*R
ztIFh1Xu}I?1q#G`Z*Rh^bbC^x!GOI6pxc4vwGyR)3<WYXph4P(_wXtQv(8p=1d<7u
z>_0z(ja1s7AGxJ1tzpM~CB}}KK>ONU6%~n>Aq@5bsL8NtTYzpi>25?0?W7F*1A1vf
zy^ciB63wpI>w{E?OwYfKz47VtIK?Pkq=|GYlexG~57`=l*bpu=C%`FQTaO#yGZjz>
zT$>cTIgd;`qG!0<5%b4;Uu35M&xhC)5<50c$Ib-}a$kn1Cw2ouysXSU9e^ZN3pqm=
z16Q7;%Z-pg&oYN&#dxWT<AANn7vKHSSay~m#}-{j0ytZ5yr%ToV>KL<c7=)mB)^mc
z)x=r=vV-fQY7dWM_U7O+EqgIkf2QVf2T}hOk3yAWSAm$xy~ygfexJE~NNFQaWRKnU
zJJ?)dU%-%FkZ%kCzMPKdms4-?YhaR)r7|s<|G~=M<r&?1`7l0Rn-4VrbskNLxCXIz
zEp>>xm9{#@tM3>?<%$eLdAZY@kC?r21h2lWTQAO|uJ%TE&@}YP7Se;g0cp8^hv*H`
z-~dW`{&P77FqXFstLfjDLz6OASghaa%IXG>VAIwpju>~3qba;67%Ixm&wNP*<@()$
zOsA)He=2r(({g+nwSvL4{N#+r$wur4eF=!{r`!Y4ikhoUMF;R>s{G2TqLQh`QDrUv
zKwGBW_f234wHo8%o-bJANn9Qfay*y4gxo9S-zJNSDWYPk5M^Q(|516+LLkL+7Pf3Z
zz!JTk?O<b!qM9uImW_=g8O<r{5I*b7&ImSAW!7{9oD%0=bCNcWct3W9^|I=vI2}en
z@Kl%E<wy+%%vA2H9`bp^sj10Ufk;b)ut~5Wr=ZkPBx=;kON`Y@O3SnyPq6pgtjkPZ
zl3xPwRz~(kj?ob`9<#Tj)tL9YJ$jD-1X=_2hT$U3?EnN|w9>8kS6b-0Id@o2qF%mf
zbW&dD-qrkwvsR0y%^xgl)}Nmh6-(IcK<)3ve)b*pQ8pkZ@G<*T9+zW<agz5@_=TKN
zv`AcylLrsD4vJ5bX1RW5O~2qLqwNMz=3buBvTxY?D;1TaQBtE~y{OpEn(E)v40R@u
zHV2}6lH0Fk?bqjgm{-)ONt0)5)TsApn|B8J-dq-%Af^J#wM(ppeegfQ6aEUl(W6L{
zx<6!&0Tf(Jp#YHLy|^c~9-$dWDCEQi?Q)HlPS-ASdY0x_D|;aH?JcVk&oF@>Wx3BF
zR)ZTOeE4>}#^d!yTp{OiyEmQa+b-Q`-d%=W)K%%3%DOb)&hERw?_R;~oy?y)#JBop
z%PC@vJQZH3ev~*>PQziRo|EJBL5NuuRjy#&6us+YsXXvN+DW79?_xyeBuB)5!U`W#
zm&v|jo=1J3e<fz}q2dbxyGLamwP|ybKIA(gN^lzBqnR`$uho5ZCPHuVBv<}2fGHd0
z(f}U}ZFk&V)wTeB^sY8S;b-!C(4Fs6#$0G;O`<c(Os#wg8{%E;d2ELG$az|?VjY(n
z7XUiggJC`!99c<=%r#=JxWTG`U0csbJ2$zz(+WN)G(vm_#9iIJ2pe6*>W`xVopD4L
zudSrjiFc-?H)xU4n^M}QbefxZ{~2Qt<t`G9J_|3T7rIleSKqk5itgKO>|*(|*=}u}
zwH}fWm-%#gfggf!eqT1$$Sf&v^<X)9c}3q*QLXcQuuM%c;6$3PC+VkH)>BCkoG%Y-
zqZUd1Sluibkxmkwe%F?v9q}=pH@~D~Vz}s_XRI*-CuI*d)Er4y&EiSoJlloHZViXl
z9iaNv)Oa2`jmPN#ActG1-5LHJD(V-W*qeKa?FBGvx-!AF(Ywsp;9kpi^Ih^o%036k
zeqZYHV3!AX(W_~fjP300Da`XRq*c}G3q5<(J%~I_;!nM~1F|uH&5_1nK1PSw1?_=G
z%sBB0Tgzu63|6{@9R$3&FSS`GRsSgYuDOiA6baQh#8*;->!>LD@^^v#{0XvRJHcq2
z&AxRukJh<CyLs>61$0-gDzoUccxR#d>{QvL*<*ldP1Xh?ecNR_b$+r+9l(nFh32p#
z-grEzb6`Rh2CZM-ZwikJ41SY9AF^6_fpInzr=d7h|DTiYn@fy(|N7K)IbR0@BZG@;
zK!0FG3#4K#lg=ldmxb3CxB?J}P|lN;b_-t~v(e@G@*#6!Q8j?vcg8?(`AT*}(*hc3
zhI&DDdn155h#R8b2bQ~5WCukyh{$LbnMKg!0Z_XqQWq}Bn4n3btJ9bx01hh<;@UFh
zUpw_b-Q`gftL#`-2!wN1dRFe6zS8Vllg*%I`I<kLZ_@@{!pMe@5O}X3`~u)?LXhD-
zLMIAJ3wUU1sYyxE)NEvQoI>8!EE<l_rvh6M2ROH~@y(GMEvr>4f4%7)En7CdqhUiI
zV$v0AG6bdd?M$twmMH~rveMccQ<(OqzKD=-)vctYl$22OMpjO>+%A@`#Q!tlC*yEr
z)vaFeP_^8$hrujD`_*P2K@9^>(?91Nx(!~w$t;5A40_361lXE1Zoo5aH1pl1y{Om~
zvC8W<0>h|Iz1q#&O=CKAZyZY^RH;1D<utSMpIa(E=Uc@P<+Z6<efWImSXS%FnM54{
zGuy-}>esLTB^yE);hS)te<CKz%dF&gUXYhkv>wDMK##a`1%h4iiPg84%(%Ve((Q?!
zv^98@ZGsGI{F|EyX`=D0FSXc-w97c^)O;)bqMQbAWeHm?Z@9|3rS?~T=dGvkrej%O
zZK77C>=a~9;A=Rdu*+c=JV6`J(m+m4wY82?O^7S0uR|8@C*7+;N*hj!4BE=NG8OG^
zmd$3c_*;gpmy{)aD4?X&P+p`UE(%mlq8Sf~ugawLESBoj%ThI@k|F3HGL2lXqax9Y
zN+S^oe9fKdx(@cbI}>aW+r90-4*F;gBahfl7Rxk&NEey*_Oe59EwQ{vNqlQXx_)bG
zY4)yvPO&t5lNGjzm}#bZ)M{xStu$8YSj@9hJ(@Sx1oc|2rdnZqPeQt$=mm%-)Ab93
z{uQ()pz~}2(yoEugiF9-_xAPRB<^ec396ReEcP*jN<eHstwcm;5~bZLDX#ylj|>QB
zs;16j@wY5{Uo*k;cALp|*%Ze2wlw=@$!uV;bbB{dj|LrTHDv0^*wbWtPyI;c0nMve
zvpEbYNj2P9?2TmuC8dcZYZZAQ8)k~Tw7mEc#PU4=+uH@1oEhJF>()V7U>6`pfx$7B
z2REdA$+A$0)&65Q((NKk!<HduRT^u$n72h?d1J0t+vxF#R&;9vkP?R~+AqxXX5K0o
zh>OIxWfzWJNWm%GJB%ia!+aJ1zv*_N=&!<|<C;D;;LQDyIdhBR+pU#+^YAw^<f1((
z*l>!yVKC0QYcUSjkeK(z(j92?^C*rLJ_qP<iaWIY_`YPMd)#XLs&W2#(cqqqUpSx^
z#c4&(@jOsP88`PqXGU>+%jM`b-rV*kT$J`k-CDL{&fz77Q4n8uvNS^;hX+OZJ=2mi
z;}?MI*73UFo@$q*YWgN{{~1|)Ln%23Wb|eh+rna7S!^4NZD+9=u;`vEw(=)V%H8IV
zu!36(U#4ryw?<!my)h%bKM03?;jy@jy-W25(z9dCh3tq}!|uK;`t!b6*xTRbvs~vq
z7I@K^r@e5PPqkB_k=WBIuBl>_wJ_$XJ&lcW_B7LO`otLb=k<Zy)DqEX7W1BTJUt2>
z_WmsAN40v2YapMbI)_s&-wpWZWlV?scxSQ=79N|!en4!Eo`q%JesPAc5<jKZ+a-sI
zV+u(1w91(~%}89va(4@=H%PotJ@klf$Ll_l5c)yf4^p5IbdZSD*aoE*@}%i5Z%p$y
ze}pWDi=M#=Lm<nOMSxe3FEeunbloNzK-Z*Y0yLGCb&_sP%#lI+^<t9!x;IuC%#J3;
zrw>sJ1Fkm}hA}}{4HvnbJ5A>|<e%%cN?j%Kzd~m*-V2@8e8t{79f2R66nPVICN)W^
zirFZsmc3%A8*cwK%MCjpCnb?`C+O5m`Pd0@<h1y41gRyWFiuLf>RARLYWCjSG<5eJ
zfKtGM!j(CLlj{lC_{d~%(udLs4qwF6kp38<K*Q*QW-AWYjIYWrmR2Z|N)!qluzZQp
z8dk6rD|CAxHM5YlLs-*Y0%&tAWp21;(m*GL|A8MuTh#p=^#%x!`fCV0Q9*od9;~D3
zb1r9Ae3v|bf!Nlq&x_)pdl5Tpf+Oziecc_l_c}mbp#pEX!2&S6&y$u$9T(d1aO|K!
zFjA$CRO{(<gsVOa)q!DX(tzaTCJpCuK%Q2_?r44-v4j<DEC{3gIIjfxJv-5@9}vn=
zD3u^;bzK`ktu`3d?_I5Aea|=2Dn8tHTUw}&rG8?qXNdU7)fW_;$@Dv$gpaQ)!<C_;
z)z|V06wSJU!Z1@i?;3+fbd~y>d#h)kagNPqrRchDfrcbp;K3onU$L#`Xq{octB~2z
zA~0E^98-suNy=flOrn7jpk095?q?t)bUh%{1&pQG2<=9Ynkxd{!uLJE)w(D^w-Yd7
z44Nneya+9x__QV-fL0bZicrpX>YG02-I*Eqk7Q<y^G#)jJ6JiDWp^&BpVleoBk>Td
zRcW(Mo~R;cAyNS0sAQL~V!uIw?nI9mHHH#>r@CF>V)#w1>-`&a$2ue-rm~zM*bBLV
zBT8}jjpA_U+-Mt|{H}-vzd`pCB8V^3Kj>E|@ET4W(0k-fad)QfK)~VreJl|gW@sWf
zeia#YXb0TfFIh^yo~=g_*U)R}<)|Vj!ZncG-9ftl5qy+_pq71+4dxf2_u<$IHxt-$
zK&T3i>GmH&YA_^#wioorq1g-!zb%1^*2S&&xZ??CZFN`3M1y9}`BX?CAP>I|G0K4D
zNCSdP2in-y$o@~;6i^hvn)@%VDSpcl3E?C<&1Zm<Ml3@@r4vz<?lzSY0+SFHww+Ks
z@o}NUi%3#N+y*6A#rans&2@VOg|P#Gi{S?uTA1I*8zc0?WCTmQ1k$m}eSq*lqzDl$
zFdRXrcV;D9h)>Ce_L17Zz4dNS$1nhv%}tcdZ6lIZdh{RBuD#(QC4p3J1YA-+#&O(I
z@t?4zhP?hQ&{BO4(&7+46e+nlQg=W57btfp19aEa9xHJHP@dxg0nRl=R=n<oey=Av
zE7`wQ_x2`#*Xb-PB`X;e_<SHRoqqx_U2*)S6YxvZMqdsivqVW&lx1jE{NtKPUTGwc
zW-Dlfe}O#98xE!e`oFd0T7zk1f@$<IZmOhYo)T&Ih4F>rt#vBw;NI!f`tif^teiqk
z`Ei}k6MU?b&(`=c#^)2CL&izTzhiuh#&?qazmM_Zl6P?qGVIBN7N2O~I^fOuB0~9Z
zll+ndLW2KJd^+R56!9zRe6u*9+CASY!6&Hv34WGYJ)-<qf~_hR7<)C|3pVonM?&+n
zhu~;b0O2!$0YU+%v$c}{>gHbpBXo`rXMGZfn#kXeSJk7m*j+M|O4n#=jk$Cp82zVc
z*Ms#Hqs(*e5!@I6&BMuJt{fTa?g&4Fu)<Fi-p&dJ@>)IVB<t`2QlKnUJk`pIWv7jy
z&V9*S+=-ldjmdwJ{lN#wxxAP7#QiQq&Wt=G%w}C?vbpS)er!`-gO!L<JoH%p4JZcw
zLien}6_aXgQx3V8h=QT)fSy}&Z$Fw~`I_}-%hY*FdWTn*@@FqoN{b@74C?+i=Hu0=
z!7ABpEh0y69OF~?0I`rwXG7^@)`Kth4W>fWQlmt})zb5xxnBv7q%Kwbkh6D)RxnRA
z`{O+KIPnvwkAXUyE_dVJYS%3{t5qUxW&W8guu|Tye=Y~oF#VFN*z13)H)SUc<p+=>
z{o4ey*$P~jt`D{6Mk>b@BLtb%?)1L;I|y2Z_s(bc{N}SQpNHo?ShsCI#4u(88TK*?
zBeX<pV*S;VXo(C)j`J)#=<2SIq1@b@+#X7+VXn#SBl?{d2<x~Sd_C;ZLChfUIY3@v
zrs(KESD{(54>H0S(qTm#B{hPlz81`lGp}un4?lD+!u^qia9m~&H`LQYBdC?tBG&2@
zwaBZ;AgeS@DKW{JLXM-rCUp2K1d9BMyvXRP*cXEW%>d&&QEx0yZV;=Tx|Tr>_mViq
zw=?HoXbTJpxR*o7_pk}E1}GOLqmoh=Q1Z2;Lr83=X2ps^{pbTx`~_=NOP`AedN9*n
zoY=Urm6+40y$xZrUwLk~8yK<T{HAy0G^%XpkR}4#7=wiiC<=OjcArp<w`@UFw|{{V
zgxz$f<$~@61OPqwDwcWfu6(Q99pU9oYu87QuztOUcL9!Ty3At7)2ozU#j|O>$lJs*
zl<xS0TDF-;i`fP3JlhIx-Ex4FKT15vrqa7KmG6|(GA|naAQ*4~kKNhUr+jnLtdvdK
z8M%?o0swIpee9<6=V^g8PoKcFsn|)pmT+x>xMLLGsju)p{73W>gyQ#@zB^CQr=dCd
z+2a7$nJ#wo&y6`*a}xKkW7;OyC`a?j!kM#LER$!=x-aaC_6&Z&2P?g}@c|zZ{(&K~
zsLbZ=7pNoknN<EvB=Ib(;T}zsDYgW0svp3(`~#7yLBcUkET@8k1G0y{2s(e~tOohX
z<}SLx&RZ8)54G+J&|#({8T{N?K2DzGyTxc(({r93RCcrE^SHGB-~}rZZ^(<XieRZ;
zzwD9g?oWbyW!|r{yWVws;07BKng?sp{<Jc*H)V<YqWOzHmtEI;vX&q5TrIu%UEO)}
zAygpU#WkO+`CP+S|C;y232Nxpiu=(V$ELv3v*HjVgd5UotY8n+pREq22V33Mr4PLZ
z?L&l%-uz9!>~`mk<S(+!#1sP%KMe>!2Y`M02}mK$p|QM^G#-(9OKJ3^>Qe6@fmxXa
z9?Ksj-PO^@uJR0VNqsIn_%4Ihjrg-M2g#6`Li!gNvTu${d&e8KqEA(!9_UWNf+4JE
zne|y%8HZNZSaR0eESB+JM#_tQg*+E0E{?api1u^KFSz`XRpw~v&F*S8gz|BKmCsc^
z*WlH65rS_3aIFhbe|4?Ov+sJmmv)0M7Y*VEJ&~0RvNBG&X9u#-MCyk2V@KSRSI|yC
z1JHPI0j1TUa420CqSY8exCytczd99hHHJoOwU>WG`n480Yf&>$4l?4(|Fhu4_B545
z$vcn}Tvr{1XxjR#JMjJD|D17Fr)FhXJd<b|Qn{M3pPKz;FFQdKwNFe+zU;W9Or*1-
zp0g9a6rl~aEr+6Hk;m=5zvE!KPCfD6BLIWWXX_Ehj(eseL63H86SA$LfTPlKkzVkm
zMjY(|<<KWgB*<lx1KF_d)Q^L38b5$*;0xy?|9THus|9GLbc$yeWSz4|u#PRr+9dLd
zb734?oV(Sczz;BuJ;h3EKyPLu?Z?G^1#Q>`JaxL!L(D@<nay*q=btE^W315%bAO~$
zjq{EvAW@h1;``(yyR|mA<q=!tq2%tQXQ>hXTA@4887c63R0C6JMYcb0XuW8M=&8N5
z*C^?2c^9b}za*E8VkHa7(T}-Ku*hyc1$eQi{roF!ufuSRL6mj3EIO!;4V`p(o=&fp
z-DnMjUqYOvf#i5t9}T<Ncg2Tk->}c2eIk1kcqnJN%=Y-2RZ(wmclrQSO%B~G$OJ)u
z5pTf9^FemQ&;E<?E&OM(fxj<)6x-R~zjIw;TRc^U(z#ma8<dKt*{b|%H$Vi|N1*LD
z(ajGL%7q>%eX{Xa?l<n7MSuU9h9P3QjQXKcSWV*~#8+DHD%&PMOLp`o2&F&}xK3rw
zYBeer6jn5C)TGmP(F@?E_vx&Ev9Iv$^U87d&p?-ZtJoBhC&h$N534FV7FR$ll6J__
z0-h>3x_@Bx1blNJUEn)#s~!wJG#kz8OUe~GllZRk0f^?ysnLG0^q<O}L)rb%=JVu<
z>@2)73`bCpdj?R8_C?9{QJL5I3$tzE=Tp<rU%M-eRo)4X=tN=<1)UFc@@KFE0{S`j
z|I_X!9sHR{9pVN5c>Apy1E2Lb!3yel!%5}Ou!=hv>tEn!N7?6~z}57GEmk*34F)n-
zrv3F-V4q%#wP0O9d;*fnehuSnxWR_-55d--Nul&=Q^XmnY~B(6xewY1)4jBrex&uT
z5qTd4e$bDx4eaqYt&gC8W!aKHAnn1V1ya)x078;khus;{m@1Z`QEX>5IYM$Sw2+~2
z#mF6>@WC$=tR@Dm2@?PCKEoGb8y6ob|Kr!&*;)I=kXEs^Gk_gPMynmkTCY1v-Ahpy
z&@Qkbaug~tx5U%YR)YaA)a6E&`@hVGQ+#T2R7;HiL&_eShPCvZpCQTR02dD%MxYmR
zMt~@&>@@k1zNU~5x**`V+D1M0AZ_{tjYR7K*m9(a;{fwPYAr7V(ic+yK#A(MhY+KD
zJ{i4<2gOqMwzdX=NaTYd@`{!L@aQ-Qln18mk!@f1g}Ykpb*;8B3KCZ`)1R3xW9e#o
zCg42BNv!~iJVj|$7@Mph46Uh9HfI5*7;&P40pEJdfIcfmAlrc<$>azM!h296u@4f2
zVwybDhlo6yg8&R5^Q?KjY9dM!BEg<z4E#aikEo^BwNllrp@p=CS~|AthvnXb;xZb4
zF4?5L>oLnHLsp%sV^KJGD_{+r1VXZ!&4N<PH~jtS#fp1+Q}thfz;R#U2*)5`sRMS8
zv1K_y3N!-PQ_KKE8-@ddZA%6<G!(_HNgxT(BLbuZ)c^|I&Q;qqXOtH(8=zfz1KU6>
z2ATr^4n)lC(~B|OqC5a^*pyZr8L4ffwH$W=wGuKZgxd%o`4F2cLal<nDM$GsW`|OW
zzhff`P6A-dHlx~pf!JxYO!2}ZdjfALD7&{FpB5-#{1_f70G)u7k3Qs|KY*AFR)Y_0
zv^m9pj2<9pq=aALBap`Zw!q;30sGMtVPVA17<+XC%7E7yM{Cox59oLKo7k<ckUz^+
zMd#CIi+d-r)evo34j#g{Vjb(LOrhsbAq6&$Mmi?DmWl;V^RPO~JB!bgIp$_W5|_at
z{&W8lZ`(2KgliUuQUV_&4vV>rzV*LCW_3iejNO1R{Zs72?Y`gj72-iqz6T({My&lg
ziL{ix#AxuZPfd^YE3~x#m%rRTGj<d>@O5bI{m%Q#k9be9$?e*%L???eK=M6-*w9J!
zscDYq=JS){Lq1X*6N_;N@5ytQO$P_tf(kPvG<h^JBkv@D$B;g_yL=6Ae@2YLqiwKs
zC*l^t$qz&&&+z7^ZsUKyMk|ufsfTF<Ot&vu^)6`25A>Eh;6^kW<{2e=dgcR$8p><u
zzSpeTqSN0W8cy<+_q3&={l8YlazB@*Eo_jgmef7Wa(4o@eO6iS-O8%v522~7%?vmS
zG;i^hJV&qWkQILS=d{#0of}us=xcb8cWRiK(}zJRd9oY^Z<LV~od<oAUE<#1O0ALf
z(kBQ`O^1g5M1890B}ee3&aJf4vxHxRL*yy|tyl41Ag8%T{2^CqiEpS|gT0K&Y$Vjg
z9)5T{`!V2H>?&?Df;NR78bfOxY1*?BlqH@!(93tAmw(RK=1s9RMTXPttQ)XEf8@i$
zQO<43QKa-2xF)465~tZCRq9u2hv8s#><^7Z#E*3gB)<7kAoThX<&&7@=ws3#pzVpB
zW!u?&>M3U??bUaSlF!iidj6#R25sw&f&5GAXk&);BXYcBX>|BBFT15PHUWX@@AQs6
z9Gm$Wdf^8#79yLE46{YX4n<o$fdJnuZ4@1pqoiDEi-+~KTO{YW%#F85=9A+$m_P1e
zik?^njGLbJ7V_WfSnIIzz!>obKQ3y04hgnpu203C+J+qWKpN}q=H3)KP2JMw@voF^
zRE+-IO5WjfXNQB*0uExUJ_<l}8<z4J^gnu|Q&MXHZSmX?1&_-YkyzY|sKYg?yIS7A
znLa^J)^VLIYZt1=;1HNj>amNwihqF{F1CTKw63ui?)x4+n*Ly6&E}EbxXEs)14Fqc
z2p>vhHM2jvAlI@5mVXzL_7f4d*w3%RxPhoCT?MFb6Q0K!zldh`N_ekLh4tb=N&bT@
z?_%^js_|xSU&?%r^GyXi*+$o4wixQy*QntrfH20fCA!=|``yEswu$FuR{^Rt9nsAQ
zJS&eVCGK8P0zeP=U5J#Evyf7Oxfw`u01tf%D~HXfCYs;^0nGQPW;{O_P^6qguAJ8)
zLUaEi(P1j@)L;B%omfnhGz2`{_;nTykp1-GAVQ=K;0R0Rp?&=&fP#Y^z4;(|`Umw(
zAj89@KuKM9z{ho}JDsdIXbGp9Ly@*jLa09vn%G&Xl#8$pWNi?!*vx+dWMPi@L0sl5
zAf?VvxVEux(NArCQi6!k6^c6hJsmH^At=QYIKLtJG=q<f@-tei?X2Ske%}h#VKTP?
z9N)*Ed(7%MO#raiXfd8(O&(xsl8>2wW<0`}!?`Q3w{cAGmig8uXh%$=iDDPq$r^O|
zl#Ao=xljArJy0wT{RY_jac(_0RA5nuE8?}w?icxIs0?S&{rB%=J<xbP56c9GfD5k?
z(_b?5Y6v5GC6uylV{JTl5IF{5jhUi9%#y4`B;CUQHsse7wT%GUW)MQa@N~do10FNP
z6N}+CI*4SbOblk3=%O{ZA8L4U=56}tWaB@luIbW~<<C!)u@V)HnsI2TA^^{_^OdIA
zdzk30h#A^2hVuh=zg`sIRmcDPt}gU^Z#O1*v-S>nV)uf>A<IDOsU*K*HP|j!DLpmu
zfh8uSRNU<4iXrqS7>j60^!DL-enW0HtLRh3bwE5lT$H2k9;21_k*V8^)bF8YGa8M-
z#i6lDLs*T+e=;_(?TLR_jn1VXqrzT%UE)qQ(z^}oKfoW_Ngv5M-pR&lzMj68S$CB#
zrFxBLyZTZ4_3$T2A1|)4ot_uRMI65Q3`p;B#&K<rdB-t1NvyZV0GGi>(Q>^?eB<37
zef(j>s6!ZlJVZ(mEei~`LaF_ZP<4D74+rkYbO3|z)?m+rdW^U?=MfC{ckR#Z0XWt8
z@9od*_1NpR2YdPLcl$H@yY{>N+uPf-zhln_G1#BEZw>Z7#`h2V0-R-hf9-v?2ZXHu
z+%A0g;_I^4qhYY;?e!rnA79`5yr^Sxz4kA_zl8pJnzt}pm~GPyu#J$yuiG-G?WcOT
z*PhI4a1!!Y8*%xb(A%yyI{&0JEV~<uaZR&>m9=|?zGM@417u;rwhV5CAXDq$Fn&ky
z8h<1>4=kM#O4IZDEW{`Gim~zl`ai9&vD(Q`I<)QVEWOx+JvyHX&Iwd3wAu9=O?NEk
z_s(X29SNH1KZ(j|G(-P<HCq)stF22t1+aK`|432V<+*TACI@?)taBf>l2rE;(F;l(
z`VylGX{0J;0H5z2OT`=I4Cw}Wt-t!555mNZ9hLLxAEsJpK)41HYIwQO?wzH-!fbC_
zKX@6u>q4#agz|6S!1vU_mJ)z&$ua77o_mUxv7utL_=bB67xS|qJd72mM71h$jGF#L
z&5uT!H+Ijb75)X0Q+R@m7c=BjEqbT?f>7t==$#v=(*OkYV<qi7KGXOhfyy(0iJD2_
z@#ZJ)cUJIM`m)Q;50swzI5C21|0=HNjq5E2z-@(V2Yo8nKtFYr^11OXyM`?eQd&-m
z_A&3tI?6{GN9E57q<-d6;Zw;6<&=z9?q0;!yMAX2c|Ua~8VA*_JCA}px1BAbzYer!
z8%I1(e_@TK75UY^=QYx|u<EZJlD@k;-_T1hC}IGmI}We{(aLZa-jQD;*WooP7bPFI
z?tjTd!{_mEs}AEq6E@uE_(Sax$;LWAC;LlvHp$5XscYePWg&>+U@x&=e0J_xe#6_H
ztwwfuBjvVw?B5uIHUEPln0uQcn4goLonMg)rKH|KaMdU-^q1de2#(^~8qZ}w0N>L;
zh<=n*?^h-7`K{FK;YJ6j7e{JtEcr%L#05W^FW_yYc2^y(e6r|_=pmb^wU9i-)ARYr
zJjw`t%_4WUdf9-W>o{bIb~{d6BN5+vX1cODbu7QazoBJ(k~kozWtAR9bLm8q*<?Gr
z`vPybg55QlKXHg3mks#|<<Y0m*4Z3*y^(VoqFCBCvIa8udgg0t%_R4BvIa3XwE70)
zT6S+_zD>+G#dvcay)+w%$~F8Kv*j1AvdO@2pMehNGMb*Xhy2Orr-pXt4hntGpWeXo
z9ST^I4FULS=v?HTYno#fXzWa)#FZZQnMdouSEG6Voj6wT3!Xd+g`5mliK!>bjbb$`
z!Q&Af{Avw;BC~_%ceAgyU)J40eW*^AD9f)jwyWD|m+Z2{?{s(LDTvbqFhnr;Fizu%
zJP84t7~Z1@0HtAR68`-7JQV+K0Mqsm!qN~vwSVWwkc_!7{!;L10Pn&0AKc9GsSDG7
z4tH>T&x`N1yDxgyp`=-&0|ah*Q1*5x?;la4R!_7&+N)d8uo*;pe>6@$AlF*N91c-%
zO70~-4Ro@DVzRu#)`ymOe&92xOTYAs#wEu{V_4`%{q1kr2LHOed(wOI$EF|?G$3^j
z0wBHUwf@EypgIPHuiL38UHgHh*6odFc1Ga?XJmJoUf6A8>|K^QJ@HfCbgE;rb`E*(
znK-S(LM6TV5Vngi^3|*}CuKAHiuE>9E~Xz2jWTAZ^q13=l)Zo^>W}UO+Hf1KG)9I7
zJHnG`6WT6=*<ST>^dqr`KYgB+y)*{2x=C;W<c<A{*<Jq6d0YPscBg+3f84(jEXJq$
zqA@s^eT1;=c=r(hWIjhec|sncbDno;3qRw(fM;Nr0sgnT^fmse6vrse9A}P@XE|$w
z?lwGuKnKEu7SwTauoDpTGSOs&tlM2kps=BF206^Ze`O2MleHKaQ7%=&gaKV|$hm?w
z0V8|#9vQz2jgeg87YG87j#fJ&JnU6bf%qu;0H9?dY$N^-wmJFOUPO32>;S%UbL_<<
z7L0R($W<>c`Xg*1u`drJ<igf#VkU`7hE?uEB*n*$B6Q?qvkkCg*fcD$SaT?JNi>}8
zUs>!v`vA6L(qx5o<_ie(;)`H<WB&HOLxe;4IpQWJb~)4DWj{LUz=+u;usXk5q3D40
zA0w#neCq&OKvWTQ0nvW5dF%MfFd=&32y`}pM4D(}@54r{r;%A*;2?B1LAAH}q&;~S
ztHC28YOnbQj@QYa=kkobZZ;L)3ZNcD5YVW?w22;`y{h2|hr;+otI0<Lq=Ba0WpoQ}
zE~>{TBG6#(!jM~EDzs;Qx-|pQyJCBOI>J(3iKnJ1jqbNT`=0Y9@e=Z}J|27bzQRsO
z=F2@u><{A>{T-2tIz&|G-Vd-RI(Mem$Y%FcVYe0Liu_50$IsxyS5f?`$hFTqQi81q
z+bdK0(N59J6f=F8k$-!JeS-}-SoAvUr^dPQ1*u8ypq8qrp-P=2QuiL~syRa6uvD)X
zB4~Q361H`!7|(V<p0PKceY(aRA2|I0MA*_%F58S2?{C#C%g)Z?T3H18QjlWvb1e!_
z6OWo(SSK@@w2<oh%0tau9$y$&Cy&^pv~2WsPQz19J%~CFP_3yb*CT*H%p|!PZ&PSD
zvRf+<-u%w^Cg~bov`%pC`}7gmkEQh2yXst^jD5-^ZFSmx>b(^WFVF*WA4IHn6T~L9
zV<fG25QLmX8cGUCH-bUBfvB|`g6f)tEE;=NL4XK$3LHXiKnEOyxghWccElS90=Tr`
z;V!M_zOvV^=%4D5t?&+gJvT3JgB*tk;3(&ZNynov9plR&)?Fpi&UzC5@9Td{3E)Qf
z|NQ#jvV;FWZv^4{gapAcFsvExw_lR*L4v&y^${*_d(NJ@^?v)iN&=n(x0Z>UUrCS&
z2`av6_fr*+?QqutT*IK+2#^b!0^}5;oh>D&BTDN*s?SSKkWZcQkTVa#dl8C~P%v!_
zjeobptt+PP)*NX8R6C~2XW~N)ehg^>#An0w=7ZtuRfAq$AW^FWXld1FiB4#;=hg8$
zy#YNxKOe%K5+U+n-TIXtGZChLS<aM<RHiw7xiZ5-F2=Svb$dJ-%frJ_Gn#5fSrYiE
zmcxpI@0j3BEYz*URKt^7=8#FIDvh*yaQtxw336n{okFD4u*1WSveXnW^!6-|BOw+F
z!%;evWQgQsz<8x$;wUJMX8`_*Ab3K8StFTc^K>5%MS>ECX}FQJS2PHD!X+ZXn;6yo
z&P>0G)V|5VGKu7uw+W{vI7EUH7H}Psuxn6x0+~2>C~hqw&pv&~?mCO>DISlVQjNND
z@Iw#SZKjE!R$>Ba&YX0VkC{^LN~>EN!sJjfZ0Pg`)wFyFtA)ZibO^B{oe91)&O35D
z@jtFa+)&m|*Hw3FVldgq3y|CNnQo8t`?VqyN-PNqt`#_xI;1xr*jG<VYxM4&P}Xk<
zoAOjZ<8-5#P>*vht5!O6@;vngcylf*C$o7orADsqiaDk3gQyz>2AvL1uG?vs0vvDw
z&5lRfQK5tA2c{mhQ$g7)E6lcuoM7?6Fc#X7fMtQBrkR-Y`3f7|QN(K^aZ>?<p9m6U
zNj@1eLRhcI6Vxh8z^rxn^b)n8AXwf6x|WJkEbGGQn5Akg*Oj5wi53MDLn(PK9j4k^
zaX23=SBH<|!fwHMf}Y?BC`O{Al%XD18fa#Mx1})4B1qSgmI>myE0E;#S=^D(E+9)1
zxZiE+>A+s8{)B2pQQRbU630|Z5^(15D&cs@d7X&m1k@BWUrmMHu5ena7p-3fJ~DoX
zguVo9!Beb!4W3~zE3&|%)9|_FQxbh1J;jl)r-C3My|DDv@vnQ`YN9h=@oFlBsKB^`
zond0B5>702$6^V^sUj)Y&&wjzrbQqI1A1`#fKP;tcfOMBv7f)V1MrXBiJgN1X*Llo
zQasFzgj6>$m$tEbKm?;|imJvCSF~?TJ9#2NXS8#7BG87VA&X<9*$lYLaEu^t0PdKX
zYdF*DD5_a2)03>g-znWp$aY0>MJ5}7-4}anBvw;f!Nx3$M<St!<@cpP)U+^Fq7B1R
zrF6T<@Afdu$NXLohX6-{Hz7TV`Aks+^B0*7kf43HC`n#;2PuXNm~Yea!!F2QRGL)_
zOaizwyKEOOe`0cKN=}}`kz&XQN=Shh8vYd}0dPUkEyDi7lyG`NMs7l8UP4xWLUuty
z4)?gY^tnqj&}f6WfY0WSD^6&cVekcFnX2jyD3NG1Nw0vvnV!m<BCUm&6A3>P$v!m<
zhbpPo&TQE{m;<8~<Nu-UE#S1O*0%BYUTf{%Pxs6`&-5@%5yQ~ZB_Sw^sCX2_j&nps
zJ$jUG>F(|>5$Wzu5djGa!JrZJyVf&cocDX<_x*qWXJ&Wrz1F?%b;osyP%ZL!TsD_@
zwki1j$qIPS4DvdFkd|!ZC@2XA_iDncbFZ#=9WcivtDr=}E=bZw=z$JCJIyk4)D!_?
z0WSz7Q2-nO@XKLdV31)mjzqwao`VwzuOq3tz_|gLDI8(`9|H11piHa(p@Nap0HKu)
z&bv^8o~I=yHVLwl2!U{UGLajjW!nL#6LbYeExSrG!2c^NA+YgivHwU2lvEqKMMYj(
zYa&D-qQx`~1;gepr;&)HY0xe`mLv*t;hF^wE)*c}V5K1(D?aDYN+PSF4$=zBmH=l<
zX}yM9^)`chP1YIB;%2CPZoz-JA=?1Q;4G|e`Ey(3Ih_dXf@pGKP?5ne$0}^ca>`lV
zjO2tuh!rRPBM~jr0RKnWoz22-heL~bk({A{8QcT|mfuSJj}jm(<C)HEJ1d~Od^u$y
z2%wiC64{A=7p295mXdFgNBGKkMQJrL1Y4_}<@Tuo&mpStBAX5q=0Gupw6f0-wB=bW
z0co{pn9ivM8X7&B42`j<lM0mr4Xuek_JrU_@f`_(BCM=1m@+uMz@L7oEwblk0$YNV
z(_FcNpp3=z;?udoT6J?HrW-NRiS%faA4kBsfw=H6Js$&4>ir+Qi@(pI*+#?L+Jy-$
z^7yfpxHUObu6R;dJZU3W;TI~N0NdgI%!~BFNK`jSJccM0ybK>Yabwtg!~mdCAo>+?
zyh40W#~I>BmXK9B$4-M;lut#&i-&de<+Isi*s;KzM`kUH)RIoBtWyCT-x^H5_=g_w
zsI>OG(GPSn;4VCv#VtIT%>iaMW!hxMNXv0#*nk6vno-FvumgS$XLoQN7|6hUh&#oX
z2e$T`m<4D8a=r-$cN@UHR#_ydNaA0Cmym=pBPbSl>q(RY?=8?3F`$_=@CqEk;=uxB
zhz>Xid2z@?YM{l4+6tV(xIf5P0BqHq!UcFg;F91Pa!?Ub0~`WM0xCP668DDq4?rT5
zRuNe;HFO`wD5P3L#aED9#h+%>^k0FU74RF_8x9Tv6$sc!h`)$b8g##@SvPLZr;=)}
z0tl)m4m@-{yf1Vf?|&z};x_1kM*(mE4J`iI%f`PnaLds*FaF9@@dwml%*%_&{yHS-
zWceZF{k;bWc?n1b7dVPcrV5fNz^DMZ5B)xDhW{%*mJtg7c~)LD{x;<{ykL4XS||*f
z3D>YJ_!t_Y(~6vG;laj1@tXz|i`+F{(&Bdv{6TobrI3to$LOgDhwg{63VPN1>+opu
z3i5~9^2Kv<R#pf3lhiFh?ML^1303Gp^|4ClSy&&#mC<M*>%s9b3a|DMMgU8xMXxn`
z7CNWww?Ss$%}5uBL{33(R=y1bOj9ySw2}$b=FXIrc#To;7BzjgWez@pA7v%}b`9P~
zUf%KKiu?8DrQh#;5)b^QykA_4@OE(@QXPvwrjTzIHz!M?JdK>Jk?$86wFGMcylFrH
z2izCn^FdLf1Ji}fCoCB2$U<T`68xC?HANKw2f)4}5d+}jVHAS5M;37vpE+Kh7`1^-
zFcA2H8aY(itT+LWXt)gKsPF#EqKH{wkVY9sR0nWQp$=if)O5>9CB4bvoP1|iFh3zX
z;-f+eR7eOHh#(R;vT^SyO!#vuTA7Tpsi{PNtDWiy%NUs~yhLDW64LRogv^9Q>{kKx
ziqVG{YLseQgr{!atds-UI?xNrY>TP{`cQNRe3;SAbop9P>rmCCY{OaQ@0_f9?ot^O
z<bwPRDRKto9VeINZ~&ERfL)#+4<=|70KAa-Fq5ImKpZAwdw}Ya@*3(rXKl+WxROjg
z!IAidaGfkO(M&RhcY<7jpF(Bm@1!Dzk22^r1P^wM?}`q6qhR|`yTW&jaE5uYcux_c
zSBMQn2vdRq(tx}16A(|VgSHB0<356AV3oxp7~>Oz^JPC%Zd2p9(6kZb0&5l-3z(7x
z4;!8<9hZFY2fOB9R}5y4>)#LnZ9rLj|L<LhwFiGC^*l;I*rXrZvJuOe`1_V5<VJl%
zRNIHAHE0jbCCV<IZ!OcLECfydcjG+lVFA8Mj+et9t5TYP9TT>oN%V}SSN3jK(@M#A
zv<1}yuh$8A?qVK@d9)!OAL_q@tdQ|~IaQ=g#-{{ZFLV14lZ0&mR8BcU&bO*JZu7}3
z911y?An%<85*To5<oEVcjAe%z8YHq4gU(u}dohWFD9oqGU!vAhG^dUo<STL<qUpqI
z^6|J4+yEqn2R#VPNiiaq8Afust5cNU#1mXnq-qdCerRd&-&U3h&tqMzUO*!?&lncs
zP_TF^9=kLis^CvUE*>fW{<54eg`3OA1rgqfo0er%7Ih?ZQD084Fmcvg2H2Wu7%m{|
z;GF1fO`{H4O5Jmwbz&5P7J7>B`3hR2jTCFePplj7E-qpDHi*a(+TGU(1g`4gL<Ab$
z(984RK<;r@PgF;!lhkWS^8xUR%6l5zm3UJ+@HmbEda=4$?DL#g`Ekz_tuL<DS$h$@
zJ<58UmTOdnmZ>Y*A+}$9qp}0y06R;U*$xGWX?!daFxDcq0*eq!e3zL#4r|r}>+J~p
zRXHi%*{=wYV@1Vw#<q&&4azkdsGinOCtudTBfsUpryPf&8TQ9fY>IkG@!a(QuWu1E
zmuJ}Cj9GMuU>e>-Y>5D!;$?cc7vivYqy1P&FAt*6j3dan(!*)qbURN?i9$NEFjxW<
z)-aHmS0$}fQ0#@e^ovNc5|7exfpq2Ee1P~m3}LrZy(Lqq`boB&l}UJS3OPKk_j*%9
zUo29lOfObA2!6s^Nv}36wUyi{=~~-TIUUd-a$X}n!;d!j7Msa8z$7?}eM1#XhQ(ZT
zHQI5orgD1>Ijg!-t}#9r%?K}3<|Asql;@-AxDDY248n%UOoOuRcB<u5ki!sZnKT6q
z9+N4IP87o7{Dvh$p6bD9snqh1mmWph%jk{1jv*gIn^0C!X}ejv;w__SKFgU_%TppN
zE9$HiaaM6=B_*^6mZhUyMn?K-9?VRIJS+E36s68d^XSPs8J?OSmUzZ+A?@~4Svew#
zP7Mk4@9`lm7l3NMI!1nZTQ~C6aEhAZ1HW!gbS7iZhP>_+Zz=)9v0R||Ha$-Uqq(t0
zg&nDNo}xu7j;B&JDx+0zs~0(~rXR<zqOFD@HYHl=-G?AI!xU&-q`g+_IaRy@Fz!%F
zzPA_IRqRAHAIeu@;s}m(LMQiw=PjXVE%-)!@<Meo&7h|}a)i~_3M;3SsMR`{J%S?0
zyRTs(>+BrOM7}6f16%1S+s@WLEdDrw{m?kKgWDc(`oQ%ML_T!~lOvXU4rPWYGtF78
zM1UH*ih#{eRo&G3i9lc@J&_-#PcXcm;6U|kT_;7TcnG@`WQ&zV_N!EtWl~~LjTIrN
zvJi6Dor>;N>dRE01?#&|<Ev6`N?~@n%#3oGwNUkA2*#wxSw?PU7`*>hzjiffcIf$n
zn*>w}PV{fkF~PEeDb`_XmBC4aji%5;+o;JXYX7?H5${&&2`Pk}6i6c<IOen4r#w6j
zL`UQ;<xPbDX#l%N?XzEkh{S%+M#5g%7zHsPm{U!A-LEH_qu5T?zR<4Vn9ob~)Q+-v
zLC<854y8<RMz=}|BVBE*I!T|djs@o)Fpv<*7oWTrAD3<aVTC8l?4nL=EGwv2e+guH
zfq~S$gshj)=d@gZb5!yjVV|*GXjB(dMv9M;13ro+btK=Dvnaz$Sw1?*5S_o8m0d<<
zi$YXTx=aq`q=CAkle%6B6@|Oe7`u4};zp7<@8vtH!OOD~2KRPvc7&6n-J8Ea%L3*x
z)D2DPNQv?3Dg<i>w-U=nRXk7rn_vW0lsl?2Buv%&@e_Qbm=5s|OhmHJiwi(HM1VG;
zyJIig$LU-4JtZ%s%rBY0A$;Nvk#H&Jb3mUaY@=t-LL4qLMGrcHRlg!S;Y>23R@f|)
zx9bm)*j3A@c}z8d)Fw4y7(0-{{&al4c+COKW5Yhg0VeM>lP~Ef#1Hy(K9+95jg1i0
z#bPMPdwyWPy(|bB#&*!V!`K>QkC{A!F001eOrx67O)+ZeJ6%S3Z+&~R^B3PTzSsAi
z`slfg`W=)e`(33@l5&s@V^2<_S1z(IB>jR?y7U4zMgx%GT5hM>6ZE-=OhyFsEi?uP
zl-quNzfkNTkT`N+A2nS5d?P3)cZ3>Jyvj&5smv6bYoPC5!p_j%wv9^&s}m_&a*~!@
z2sRt-CR+t(1TW<KQOdUSGNb63sIm=t(fH-akzR!QsOx#av^Dj^pc=!kyrvzaw(-LT
zTH|%MJKybo=%u+zEB?>j%Fh%@8>wtl5&1ro>j%)C#!1dG`78+Z+{BE|MtZ8x<MH`c
zaml&q_xT1h*BE}9m$f@8u0z5`InLCyBm7&m3k#ArC7ef8-xw4M=Mtpy4Pc#^bEySi
zwQ|jz!gkYIa~OddHK#}3)QlC;)6wH<<4YO!Z-@p*T<@2dlh~hKRCh7!n6lqF!1&GH
zsBcw&r0Ghlf1T5g^A)b#O=2$h<^IHTH&f1!j&sVWqy?@=8qZArHR+&Zu6SXdmavn(
zFgmCHRFT$bzP3o6opIHipzN}Lq#fcSb-|7HWvN4`3wwHU;)<ZvR~1{;n*jJbXq=4r
zJ%JwLJN_FW^WMK<#onB1t+8%t!+os_0ow#ly{>$TF`X$(*<Q6^xK^qo{lLbVGbs3z
za+M#TA1MzUg9P50(OUY~$m5||h%A}KM~GRX{ZZA?SN%?#j1&cZ59xP2>+HkoaRZp7
z<?1B$iL_`7jaCp;J2@E+a9zLxPBR^wb31DElj0rbFcN!2kxxzI9Xr@T?TonSu62Q;
z(|Gi3N~49M(FkDU9<usyl!;P1?RyN##fQ|_cVyK6P9QMPDthIDGQh|voFOtZ8xG<*
z4Tt(qCJ&{Sr{NciPrgr!oKCvwv!~kk#LcA1+Crss=&1U6X8ntz;Ww_Lfv&ROayaVV
z$m-@;mUP`ev*hRKDi4q56in5+>nC|?cd^998zB5{u*kd$xCEn2&<tcEZFoD))A@Ld
zhG=xuWKq`5UagJ8MgDcf6p7+zp?t@~lW8g99+oLH00obBwXt}}zM=e}9I!{RdTG#`
z%ENbSA>5!-%s!6bn6fv;*SrhAp^P)O`M#%kUj7$)H}NYQ&%U6Zo?tYXF$v}b*CHjc
z{8D8wRZVIZ16$$!ndNq3M>>~uJ877I6yNTfnyTCqAWNfN8MECzGrx1MwvWjN9~`JO
zz%|80mMcr<?5PD-^=WE_->4%Ss`o=Q$s!1*&ogf3tfO$Qq-RHxv{DuxT%;y)xJG51
zIeIMUYaz5>ATR<U=`u;?{sdN9EJD+g-AxtniU@@VgEJhSkYiYh?Knd`!X3+4`Cu7v
z)v(7)c)8*c1etW$NTaVD!EyONoFItcdKhy+#{~25|8>d{xsQ{=5-dab;hO<j32qKg
zf_Qqw`eUPtu!8^l!4FRQzd1=Jd_+biM?z+Ds5ERvAj87Bfs=<Pz(igsKFCfs6k~b6
z$TOE4L0pC#WHo|^nJ5*iX!fHp%-Trnz>Cn}OO{(<3yXIP;6jG61y&oJ7RMBiuuab5
z>6Ge{P6YW0IdPPL8o*5EteKT$KJBiJB<u7SGRlb%e8yGe?&!D6S1dqOitwlS?ZMn{
z%gll_EQ0I`u5vsG!ZVSN4wx0(I+o!pM?8#tYoO7?&Jt)7$tm%P{KRtIf4^B;hj0N5
z(h`A|w0Hs5ev~0Rb$lJR7C#kMU{037|GYl_X8*VAQH15i{y6c64m-m1te_^ZfP0RA
z4bIDH{phvEHEaBB1=Ds=B?FmG@=)o|$18>gW59Bx`7L03Y6b!gbdxDzI~an^_dS#-
zI~8d!_;`S#mxe|~J`tiQki!8S1bA!E`IFImECqDuG7|~v85|tI{FKHQ!QPi(mQHbh
zvWUG}G0;kuCfF&l6Zc7OHMmEl!yn%+2h=0D8=)I9Sp_fza8brn;t4WHZV{|v{Ak>Z
zJjq2sJ$oW*2%&KxV}!v*zGN;uUg^f-GRhDo6V*=mY5`^vK$i&m1r=X8W?=Vt5dnVb
ze>qdpP?cP8dEo_c#cSerAVQ=Q2E(U7k;KWNaLKXJ1VEaVv$<O~%y@RBt6(2_W~8g=
zcGQ97ENA>my?J_WR%L)**Z+;2judBs_Hf!M0%QU60P}z;J}aec$qkg|L~taY5ym^2
zJcWiw;<^5Lf=?w^S|~^;X%KAq5D*71#iDp$EE~r$pBwj$5{we*17kF9Ro)LqFq$)-
z<q@LLiSQ!?&Y)Jr%Pk7LETtG!7VM2+BPx%R7O!i_SfQMY@8G~`i%S^pq6mlJVR2GS
z71kUesm06kPC%B2#WcGdilqEzQhG{x8Gjo%cl@rfM_epm|KI<l2~o(sB)g;B?Z4kM
zzV(0H%S130V`oroSSCa!UK{SZ0N*k`gU1JqD`&Y75?F(O+zn<eDMi>nM@eR&{E&A6
z)qOa{hotZ(ae<U;A(UVB>6$N;#1gpsEl?a`1A=Uv@hS)#7y^X6DvWT@-!LzKsCh6x
z;-Q3{nGOe&%wja8khPf~{w<hv-7b(<I>Y|>8!3s`4EZX@_;`Pree~a!|FjqK&Hl3M
zpEn^Cnd#M<D|Si+5N}oXx&ZJMad`YzDuV7g!tZhK7QQvC&EV@6D1!)#hO-$U9I)=%
z*y`4?CFp>wM206}&-)u8|M7f?a#mQPUD8egeo|0{n@oW-8}L>hyP8vgVNAC`b?Owg
z5dj7wO_*;mBLx$v42x%6@}gLSpf8N&YeRNi@g`&zVo4Sixe3`o#j9oEjIVHo<PNxd
zIgyg42=^qvBtwFpe4!%YJ~d!nmkaU^IfrOLQ8;12M&V3|uYtc)R$~Z8CA(O%$g|0_
z8u8NVOi7XDS;`|NEZ+_O{KcTMNS@PWyM{Iq;t;{&aI&lD%i_(Ih0p_m8_G6LQz-z7
zIz8g^CF|)PSQh}H0NCRyZZt}k6f@}wK*{Bj)+!y)RmF29akDVbgU}IqmGT2Yz$F(K
zu7u*rFlM0&+J+PTK@{TnxY}SU;g+TInIkAd@?HaO#i2`kmRyqGS;HqmzNvf+*t{Xi
zaB4KEV77{{!zV=@&6In?6|dRxgh9D;5P}Ijn8-K{IO0i}sQuF5FGM2KP?WSF99d{6
zaI^9Zkn?DCm{lI+un_f>>eNJPJRlrv@p`RNir<b4jkpw%4=8W%_mPYx$I>4wlw1@x
z2wjssEL9TA1`inu3S;SideZ>9#-*7DCPXxovet72rdCXFGw~afO=0{n9Em~{AL9ec
zh4_+OlL4odJVd^C`TKpp`+Ge&KE6@D8>A=}ziod~@wagTKFu%!!cx5mpH!4ArxO6d
zj)eFlr9v_WTyUwz@0KM*;J%a_<oy}2*#EIm0+mI67Bs_pUR(;52%^*iN*w#*Etue$
z6-c*7^OKzjY$z_8gaIP=jDpBt5E*ks+vBKOECm)o9Dzg7fM5=Na>SHqyyh12*euN5
z56kKT@#h0)CQ7;+cD)Fye2S^0J_U3j`3~@Z|2@PT0l$1Z(j0vM^TEjh$tCnKJcFRo
zMX3#^#w#XHCmRAdZg4*+e69rf#!BM}P-Rfakr`})HWARvlBX3dHwU4mOlM^pWKtR;
zrQ@F&?+2w+HXmpJaZxBKzt780iuWPwNyWr>r;=kN3x&PvG;+5j7cMJ!IS^4iXqZrs
z@t63QWtAn%4=#6!f1*E);X9NY{@5aSxW7{+l+wE>ICvP;!25s5_63wtlmAIY*h2+U
zJ%woi5)g#}Q2@9|N+1GS;Q$A1B|t1~nE4=3V9`Yi6Z9^Q5@kR;Hy}E6wYgFrnD0o8
z^<tqi-kn(_-)fL21j?5HH=Kh7V9JJ;3liJ7LLZeH9Nu_^G^xTN@B@j$NHT+9kGF^{
z8vitk5tCjaq^4mcU-KUec<<7;iM4U(Cbq@fD$s@fu7Z?}ufau&kBht2@HHQ-Ej|vV
z4ZL*nJ<3mdUsI9lW?9(0SPJKPc$qQ^0KuVd=&N!@_AIbBhZd!!7T`fIQd5lM7r-eV
zToJPmRux~hcw79sa<)E>iQmot{uqrQdSnqsJ(E2`z~$q1;x7U9M96zl{?;Vo%rw*w
zH1``x2_^B4q5im}w(Azv9CmqFGRu&W$UdTQ3Zm&^XrfWTWtl}(H9khX(&GxUQyJkt
z#d1b)L8wKzS*bGT|7A%kSn`HsF~ldq0&1obZvp=}M6QtoN=<wpydW&qg(bETB2rlL
z^OTYqV3}Ds3+kUdl>%J>tsWFH6bo4D<;@s)>2eGD4A|sB4JL54qS?XVt6mn&AXov~
z58wd8OT-Xk@~0ua9G?5RS^$AZ>4sTBLZ~aio3ZO=p;M6b?>+Q9T;V*zK4fu`Jq#4G
ze9uyXUk~V{C?@c4qI48Lk(?GkQLzS%_aI*b_LF5)&f^2%<*lQ}b$A+2#~DM#Cy^!Y
ze-I)_L}F0OAg}Ogp+pL02I9M=l>qmIN%&9mQih?h;$uKe^HTAH;th-p<4}tHc&Bk`
zi*-_rJ{YUW&yZ4FUg7sq{CaXpmMz)H$WIKZcL8UB+>ZBTQSRWS=Lt^Um9)}@%#Wlv
z+?eF7#ydmNM{9s8Dquc_poi52he7}VR39gnmomUp3^O>~NG!QDkTLLq<8mGCjC?V;
zOO!T)2e(nC<7B*nF2G@$y`Q}x`}g?$N=R6#sz*GoJW(frHXYv!GA}+xa5;Xm$i)9t
zmLNZf>@0(z^N;SPh6wimslRE&wQpaIi1WVwJ)T&J^!P)t;z?vOfzsWBA#8%F@Gt+M
z@B6Pd1^oyU(0`*g$bh^F2PU{C|NQ@=6X~db`F|9`$BCgL20-4ikbqSI1Hc*nZO_gq
zdzJ7BRNFM$#p3s>6i*U*Ba0yY{-!78RDus@77wNVn9Vo1oe6uJU7~<O(_rO?&_P9k
zy+f7+`K2%r|F^{~h!<26d<uMyxLlPB5QXXG{JEH7ExxY&jbpEK+pVGNi2M$K_JW-?
zS*eU5NFX@88dq-vjgcm+8a)wD1MmrfCc_k|I5I!Jx<7fVdcT5l8E>E<;?O{q>df$+
zQ9D=+?TMVV0N=<N!aqeAb^`W#XEY~VGtpdGNUB6!ADSI>sKG)G#t5)aLJC@VXux(s
z$;7o}T>%<Wyz0ce*eLZ%AH*a8^#(1Tt|6G}kAo4hiIYMvkQE52yD*eN+{hOJ>_MDJ
zo-qFS(38-vU<rj@+8t1CF=}Xn#=cZzRc(bMWnUB$J}#;<OLv2OgYc7gtH%>RQJZn^
zQn}J0s8EB!&JCG}&bw?7Al2}ZbOua9u)W}sa2HT*U~_TU;JU4aJ{90NK0`zD|KWDg
zLGb?hS$}_2NW%a6QBkF#L~@aVYznS6SV@3_5=sQ?z*}ulFdoedBLa*eO2iT_ob~su
zBK6N(Q$<WG|J-${FK@&H<B~8$-XAIdwj4`>VxY*8$`E>^uq1pWOd+fMP@3f&bX9x>
zO#W>)itjF0B2?@5Iq1(gU3{f%AL9q%)Ba^1@uBf6D8L>=LJ2xi^1|^EusDCeJj`bg
zu8(Bh2iO18Z0z@|{xJtzG2Csx--G8*_weU=SO6Z}1Q2JWQCUrbhnpGltD~r&mJ&Qw
z$^|KLP1(PU&pcS;R`x=O!U$FT-wlA{Y6G>NT23C|6wC*iE~iKsg4&F>4s<fmlwgCj
zaduThZ8Ne_ZJE>MlV&5?|AQ&)KhGKHoI0Ql{MTDhSu|+m_=ge+i-C*hA~s1{O}N9t
zT_Bwe`Pn!gcfbH-g=*%09CaMcQYCyD=tuPs2m}j{h)JMTgbmLmFDeI`Gg*La)FMP5
zg40~S0Azqs2m%Cs0?X@QmL9RZeyJr$qXE{*TL4Iq7h&vj8RSO-X8=_h7Etd16%}8P
zK->SHuTX;6YstBwNE-^<8MCLu_I8Q)LN>MU4g+!OBsLm+p>RTfdPFr(=mTiCnLI=_
z05-~xi?s*{JxAWRe`Nm5eTa{P(-Vk$EL8${@S*IExGt9a2Srctn`}C(yG`pLPO;|u
zsO~y-oHOeEk<HOI=tBd29S`l})3hdiKw>e0t>Zaq^>WfqF{O6`I(xSq%<o|d8KA^Y
z2j~^DCH#4t#29mqc2ZnqY=e3c7!-AsNuY-rs|4rqFR5lf<!8`IpHNTwFQ$(0=9ssm
zE5rzG0wAmO-QdSdJCMNAS!eU06<gxprg`r0K_WK7WoH5Wbc`|~`s6A4_!pY*oleJC
zXRF~-wh6(c9k_26pUtQ9^?X74RCYGW_no$Ya?k3|<lah)tYTf+UNFo78+ATa8U^6I
zf$S_Zy!rqIDJ>z(>Fz7W&_2rUDi*S4JCt&*qvcY&+U7ViQ?2V7It6zqP&e@idAd-&
zE1It?A~TM%(qKWpBci2a4a<Gpy0%wuXZ0ba%6`6t6$WcJec`QWrNT^Q5nP18+^xTY
zGP6TRDD|0>Xa?L$GBDPiooEhqq*_b0kFzh>Na{!eTKo<MItg-JWO^jBmD{EK$eC?!
zWHd7}MzVY8jtl)VYfw2MYcUejgq12sesC_;b`FNI#Q%}63kxSVI)-4K-3SY~#g(D7
z!jbMz-Qs|Uxv##?f5_TmCB;f~&@tL$O@XKM2Kf1M>|Odu+i6|a7YA+{Pwf{=+{;W&
z+h8CZWV_ukdoIMr5%j=&AggAm_L=Yxrb(=mX?~$!rLFKsD<#uY6rWOk3o71x29ogD
zU~{_2l)qgpKAG()T$H+*Elu5qK;?mWlpZmAmL}3;b%jsyj!bVmLbSaNi8Un)P4o_}
zBWn0<rUAf$u^muJeEaDaS?d{_8z0L#)_%U4d`0A><N!T_a`ppAGkn6c+g-AI0=$(h
zaG3QHJw$g7ej(6a;sbNBm~wOAOrNgSD0!Gxg>RenJ1XONM@Ol@#n&HTeU#~@<0#wA
zenRBc7uqgmC2dw0+FwT3@onmIUG$E9X<TQAmBGF?qioL!B`qm>Fn0r=kiJ;oqjh%l
zqRAq2wpbhP>@)$Y<@K7zI#9hfWx!AkdUqM)tm(=3lEyloostODob%eFi)gnPt1OC|
z8>uUxa=IYQVJ`vNbz9Wz8;(wgQ~Ns2LyB{gJ^r%$xpTX7Q{dgx?(@bs%1(A$%+yaS
z9n{_#=4*Z3O_#GHdTdGHE}tL%g8xW2Ro|?n^$23`#dkS<hn48!V2%-5ku_QGVi@0x
zJ-mmqouB5%{U`O~>}P&PKd)@#ydso*V6yQKVb!_G*Ha%h%veT~>6|tLiNm@1<@d7#
zY!JIlLs)9sVOFj1)nQb#R<)L2D&tv|;Ao(F7KXl5{GDk$_XI~FcI@3@>S}PvzV%4U
zhK~=`|CY0vALotc%b*o@oI24><td!>fH8vIqQd|@*-53ZgbNT5^5%~szf8eUR=HX)
zkvxe~&Qo%Z*9_DuNN`2km(B3UCQ{8(Y1lm@VGO^b&PY6=?DM_wEsD-bWs&wPgw8N_
z&e-c8nsyLOkSSS-r<4oEFl{q}9F8h!X=yc^=Elbx$hOw9E(pe`nWS71-Kk>jgKBn3
z_jp>*@_12Kaf4D*Q<K-z9LEIZ(>s7$t+ov|T{;2;(z)7bng!3&aF8(Po)l@@HP6>9
z<%4OUdTvp_+(7m%T@$-muugKLQ><w}kupuR@C7cBbG#P2%)3#=t~`&YJCuf;O`~d!
zYjgKYnv%Q;1UIofh(iPfAQYhKn_aA;V1GoN+_R38`zFG2CiB{@{?(w=57Y*TpnzOC
zPNNBx<Tsw-G&fU!hNA~jf1$EOoh@V?VeW<iyG-s;aAA+p@NBEy!MtE^0!IFDN~{|!
z8Hda7!PVF-3@@rb@fwA}?^v0W#Ss8U=r?M14^?6h_&v}8+(kV(pGoCLlK%7tfMY&#
z0ACFPN1X@l4!y&6H~8OURw6n@Tg=1i5?YF=$l~90-L4WbQ<BuGZjtO3=?vlhf`N2U
zPty8=aK(lKthrncyDa|7Sf%1)h)-7-IWgJO`5}bm1^_IWW9m?G%%Gme(5DFNA+*IX
zGpE90z!6TXc}=yH%;|B%L#96b|8UGArPUx*q2R#e8l%vV4#Th%@v^Nxq_3dOLld6~
z8?5+bDInMR2>k@xrCu@Dc;;(6!lQya**v~0wwKPQ?-i?4ceA<3j$cD-m9f?&yg2G9
zGOI2SbJXMw^n=}v4)9y-Ig@AbV`;0yKKB@9sppgyPPI-eE2w3|F7$kr`_t|yT3_b|
zsb^}-DWc^-fVvyrk;YKl$j^8-V+R`%Q`bh+iRs_b@W23k<xb9v>UK~6sJc>FOZ9v}
z;Ztq>Flo8kRynFD5g-wz{+E$kv0*_5c^r}>-AK9m>(=<<Uv?SGaxIrD+g{JK<IvpV
zaZicJ&Iud1n5n&ID9);u!~X?k1$)7GB!DBY*g&}uz%~J3izC0DK)9t-Kv8zdQ3QC+
z|F+_jW=`Y^s<zj;nD``W4Y;}DU*y3I!vBkZ0E@f-%UeLk7)r+@!)#&QkXIJD<z!|l
z+7>9SPio<ZKKclZu-_s9rVMcWK_tXmt)=qj6+(Mi2?^k7$PN)NN|hJUe9#r+V<?8f
zB1C!1zvq?eNZHDS^%*8{P3cN*9r0bwmFzwC^EM(Wf8?e!@FNAB;2=a&iQ=oGy%Et8
z-@Qb(?tKD74GaUMrKO@!a_oFzmJO#@SSkCQ6*jPs-&q1!hq?6LPSOsruVwg}!IJb-
zO#PYso)1~nlY0|7Y)bqec9%zk<zbeHNF$!FUTFze;PeMmoe4=(SU3`PmDwiV_~)yY
zgtNI;LmSRRZ?xzEgjxWxS2S&-Qow4fXGFTN^3F(EU}vvj>V8Gb_T|D9uonVcvr21L
zv-iP@>U#_ji|9G$A_tP~7CQ3dG^G>wh11RK68bb07hXR8E^9$?)_|?1MInq7w?2?&
zsB9F7-z_zBHF>k1b5_mvmDYxWh_xWtfeM1d01bPHIqWiyO*{_<BsH@I*B;~AJ6zjL
zhXI9|245(G1Q1;5t+){Jn&6z06o<vZobbV81qPr##;1ZOZKgYvmQ-Bq^MLRRfO)TW
zlgqoQ44XfWm;(CS?z|ha&Qud$5iy(1U9dDPXDu3JDRxz*GjlBERS=`7Atz1t>}=$h
zswwR>cN5srZTxvL{nQO|5}1n(Fu^Aykp(?kgf+kv4!Z%snNYA=oA(fxC`7@ZN?_rG
zqH6xP<@g(FpW?j2QwOuHWTbXe%t1WPbn;f5-DDAqPkQp*{GX00zyG~fqdHjR_dxG|
z`8)!((|%IwyfOxohqeEpD|_DoWKO5+3UfQ1&wfzJl>j2#GQo*J2pS4awBG&Al|Cun
ztsmBnr4kv#sYEF8Gm-zA=Ea{sKF(GV4T?e4qIw395=2mXIN_s&4GL6}zfTfn#0rv8
zVNH!sGh}8eym)e#gyIQg26tfbZ4i{9D&ieN;X{A={uD{q^8D}>J-7mpWQ&jdV+KdS
z1R1{q<kz3(k(Z4N!Y}skM@VZ@{Ia$WzNEM{qJ`QY`o>zkIwKMJxhF+RBJZGt6T?2+
zP6Jz}m`rv)M97~9FIjM2;6LyFhTm7@NSGB0n$o+DJSKX<gEA8W#43zdE1Az(Uj>bt
z%w$#2@*xTevY5$CQ^Q0`juo)I955)R+d?bOG&g#}FbgKCfYnganU;t+x&PNgli#cL
zIlVuNnr#)UX#%-29mDDEve5o+tIAq!qcl2fm!p2@B%Xl-8iJSojQ+%6aT7t0yIF<F
z)X8z1Z;wJJPnyN9nya((U+}--@1QK=y^~z-<-nr9t#tsX=xNqP{6K?~Qij;0#6mG8
z<(}w=SX2BuA&;a>q_0T7!WL<Rl!o0AG}$Npo|wf3DtFAU*nD-7R96=z&lAJUYe^UV
z>v^qBIzmt9YSqnh&?^G2mD)a~S4enwsD+-nVxD8HaK*Gy{@8VpncmSsar>oq!qJ)S
z&?Bu&I5gh!X_#KRXcr*oG(L}o7E<a_$CoZo^fa=r(6f!5G(FM1R`p-xB7pQs?mrW-
zyxMV!%oiK|Yoiy{0qP#wqYU9cY86JqpM8od>H8$W!D$u??Iv%Uv4ix@2slWG0X++S
zCS=-L1+Wa-Eb{iLcvw?6dPvvCA>V@OP1tOxKDo6k)Os*p$X;Q;G5s~5NPotiFSTX)
z{!kiNcM;>DXE~83?Y5RM*2K&%D&w?aN;yM=3^t9KufIEoLZz5zKK)h#$m9N@n%%&Y
zechM5LQ6F+@mOv*cxU}hy<G_~!1_bV+d+Ww<z#59*gvQ6+q?r(J~mSJ1?*V0^nL-u
zvhfzH%}n5bGf$@8YOe98+mA4KYg1X{>ZSjlvy2DwgXuG1k^GJV!O*+WmeFVLE0isx
zwOL=DS@3-JCZK-bBL6(^GS?_JNHIZ@lVZMQRx*3?!|LpWrHbEYy=jO1sdkdDk=?*Q
zoc?Xa3A(}#0Z2Ts2dO?8E10k0aI$02#B?@8>R}rcb(^9N=h3}vqcRAvQhPJzxqD|`
za8F@;5xSJK`EMywY3dg35?7w4+eSz7W_T}ne$f}_`smkC*QgAm?<>Bcf#LmpJf9?9
z*v>n$T^SPNF|-GOXan`#>?)tHcOv+EL&i;Y5M579feK)o;WO%s_4_N+;nP-Xr>v#3
z3J@8zJQ$wCmqmkq+Fj<WYs9P(y61+ym$ApqZa_6+EcUa=?@d#MdxG#3?GvELHqUaz
z)gBKv=uZu{&?IHCdQY!?hpOM@6|PZ*FX%^)_k=b`TtZ5_6?h@&iX;U6k=jAKoL|j)
z<Nva**<rw;DuYl1<8`)|`g!hhM`v+7*Ba_69L<b*im_0u_v``c#^m@5k+E0btbL_S
zOj;1^DZWyTRqkMSCS#7j1iz-8kvzm5jaG|Qj=d7=iMFSBZm5bhpnDm8gY(34!BhDo
zr@*8E`x6TzdnRaVfn!W`CehgL3{#tOj!&@5e<u2~ez4{7e2HcFhQk?|jEIhH#-?Dx
z5-s?62rmN))m}&N6rYDkmtQE_(P}tdEa6iS7Jf{GHyXzTK^DQ}aUHrs>;pYVUq~KJ
z8_%JN2E)!pB5rcnzz`=T=X$xWEAplOqech6W0AcT{m!mJYqM50G8R~QePrlx=>E{`
z!PK(A19cSvR7Ot07i8r5(_<CVi_%*&pc|_dw665;YlhHw`s&<;`q9X4e$lhueyRK+
zf3<4wSKFU+R5e#?=hdxPxiUCXKcd>RM8;D;dCaShcWQ3s@6;U4WwGkw|8%X$*kJs^
z{r)#@rM=rzyt_hVJUI-3|Mf;v7hd?LE3_0E;|H$JYLlC!jsn5YH|Rzh&SzcCdQ!<}
z5-QecKLHxsbn-X~+Pc9lcZz;tsZ&|{VBn>#<W--x8!b{`u~F5W9Ia7BUw)<;;^3W#
znR>DsN=HKcVVGT^!30B!Qnz;F;q<H#ssU2P=WCB;L2Vtq(~14dsC=8NQ^Zy3%bp!U
z?x~_>gHI;XIbLc!O_Y9#+JT~y^O<qVwZ%B3dFF`B$4iU{=2e-l)Hb{dFw6#cR($UF
z$|=0`3rWaH2fcIEcb#>zvs;a$$*dE(te_*3kp%9)J?vq`z3J6(<SlZ=E-U6PHWDdc
zA5=X`*}L)WM?%RPEY4G%1ysK`7Z;8A%P>Noa?ln6-dB?s(<b0<4HF5Vq)!LJN7>Zq
zZP5=1kDDkknEts$9YT#jQl=*LqSzw^RUXMmR!UdYCQ-V#$u>X+7C8+UU`QviSQllt
z@(;&bn(L^#-O8vj(FYS~E$2<qiy0?q8v9x7WUH0w$_4YIqDd?@+nXHAXulKRY!|FA
zQ`Iiq@siJzmlE?|<nMgXvvVDHz!`cT7%A&?%^u7(_W>|my{OrZHOD5>?58#Bl%iR4
znC9D-so7ms&9&9g94mz8xU6c9^+HP+Y-zKC9a#2G;h#*#RDM9!&I_xX%U-AJgE^oJ
zUAri<PW5cy-mZrG2g1K+5;ylL#*5*x7Ho*#n+|VB%UHtn#@Yt-<h4_ZxkWWPacvGW
z_QBd*#<3;SPQPU9E131O&<|<G`+9%wpO$2gXO8Z|u~!TAH^B9xcU6tehOt5z$f8*<
z`~xj-N3SuMi{9zh4aN9|i)D(~3u2Niam(+zr1eG;fP7nhJh!1$<aJW}tLwtE&3X1<
zZH03meWqWFS=*^uTKS^q-Oc>&6@SbQf=%nEv``P<O5`p*vMyF_Ijh(eJj(kV^CR;^
z|JqLXtV&5A)acFDDy;{IRg};YfZ=(ofPG8+Cjlry8U?mFvtIqXNv)2V3&a(1l-9%a
z9XP-OE0A9~N?XrX0gQa2Z?G~;odJs3elV@iQm491Fh=oT*;Zqx^7KnDz5K7P{KK1c
zEpZaNnNWW@03{~#k^Gswhs{XL8Y#K~o!g=J(Y8c(pxRA}^;f!rjbs!^>v|wzVYn##
zF`@crbd2g;G~et=?-eZusG&qN+lvIg$-FmT!CHUGHn2B3!<2v2{gt%@J{BY}=TJ@R
zr;k!8Fr7AwGawa@Zbjl|?nVCOuVRHlu}_d8h$Q~EKUde%HD|#XK3!W5u+>$@KDx--
zW<A~!EypM)?4`r>^^U2qWNh)be{YiOnetCOkqUofD>&M3K!KMz_TjXMI}ivx^rF&S
zXfNxZL0gc&_;?@}b4WE7A;Hc@;*m^tf~KA-4+xZVD~||mrf@)$=lq5YPBM4fe>(Ue
zVm5#OgHEnYVdf@3%k7k;EQAlZ#6on$x~S4dfo#W{hWJj1jxMo67r5#M5*x`eO$9u*
zxUGw`B>#tVu}cwcJRK}?iJ@9gvBh;0MtspwtS8Y@oK(aHa2PW&o52((=4G6+#mt0Z
zz+`rade=x?7UF;=-W7ehv$waa35Yw<L5OXd^M)>_a?x288<4ak#6?xC5zb#saor;Z
z0C;*qN_YApazLC)UZow?XlbYyeY%M)#jEcPC(8~xPp^#Ofh)n%+8}j{80Q|Nj#rP+
z$2)w#fjMlxRmQp<D|;pOnf<f7_I_^c6BC6!Imwu!on_<H)Q@Jvo?X{lI`dyU&Bmjt
zgV6F{a?Tb2in^-yR#)(nlPD0)%w29q?1atqjp&m!48Wn+@@#cj&NMj8QohYK#N^~o
z(PiMI&MVibn`qpqWR)tlAKnH_Zp+3ySU2#Eb`ieAVzzdjcQ^W|Lus080&e@3Qe!z^
zCYmP<Fe`7-9%;Fb+HZ!pW<1ScYqSe=mQAPW?iV{L^I7TfY^^vhrm1cIR(nKjwD2In
zq3i;Xe-5KD;j+O^gbeEvi><eP<O4&S6QB&eiDvO4sxy|(&_*a_9mGtamt3TCNHBcz
zsaWkVVEC+4au+|2<m@)X?Q_)Pd#XFZbxpi=(d*hGmWdgx=+&uYmdNr}3+N^6$Pi_R
z(9BA?yLpk;a2n-J6U&$j64k1Fhg^?p_3f%LwMn~^qJ;kVmq4xmjt`{Tsd`&EG(xwh
z+<PH0lfR_dFKSKQ8Fo6ja5j^76q4EU!{tEY=~3NH6ZY~_gV=SNL-ijo3%2R?>?@^#
z)mXC&hQl!Ov}P90RkZoStUQv;rdms*vN4?sYXTk1sg~_d2`@*|YW!n~{_Jj4)H60R
zN<U)-#|>{;IP1+sD?PpSI08|(C;b$B1dsM7FxR!rZp52kVP|0q4|Spr{8xOGdKRSe
zOFS=P=QY^D?of#e3#sl2DzYjM<W|ueRbQ!A=E+vA+dNt;aGZ(ZOutKE(C1~Ai+*qr
zX;TAeEV~J`S{|N9Rt`U+XwEV_fOW720k`R1-bHA3dA?ZH>>}}TU$8k<?ZF)V_*U_{
z)=%9IB88Slb)#Z03Z;h1<%3gDEa!HEkd@&4#MHi~qEKSQb(ne~j8lI}uW^SOeB`U5
z=!02_SL^;$-$^wA0h1F+>Os!j@=&@PFQkd|Q8aNbd{fW27|vqPA15nXHb+~+Cqrpb
zPO}B91N&&DlD<Xp)V>BRPt#xVhSJ1#2cNr4dCezq{Sw;zQOY#t@E_HJ&06_u0BF{e
z@4hb9DP^Po$OvcGJr!L8FW-@9Uoll21zTPx(3<b!SM;pM?gqVU=zHTI>$I#+=GS78
zJMW!;bk1H)U0o;nlcgRGeC~R3g6df+cA0-`owk=+-$bhWM~nGMep?w$*Byt%RC;cf
zb`)3xKeAT6X@+CBI87(mZr@TMEzpGEW>zcHOV7MBz+IM7tNu(|9p6~bRDAoXp~h(C
zll{Ka)*={Gmd47=$sKQh3v>D%@iTZGx+uHor<{8UtF#g7E~_J|*?iV?Egg;Zk9Ou|
zM}xPhKMZAWZ4#56+r$a&OLYibR&UQ#yDA^qcj)~=^vPVc2QA=%w??tu`WA)`=?ogF
z)as!$8>8JpnOe=J^3m)LzX}}H-RP8!;%AVNdC6D;&(0_IckI>adOsAB?V_W;h<h)Z
zQ$+`UUChwO;QOyeWi`5be&AEsZS!l?@rjwcS^KVVR&}Qr$D@}#jYf;D{H|EWr+_NH
z@(el<8%|TmJjS*<HqbP%32fI=J6P+qjVwgtcvr2h_S|6Q^*QS6Z*-#mG)d&O*u*yQ
zZ;%8GkM1;a20$yl*ml5ve*F5^^g=@NRd$W}){<5wt!j7Uy=bjT`eWr@DtxQXS*4l3
z;dDBMZWEPkSY?4@hVz8DqgU)f%|+S1$dxdR<W$eM+Ggh<eI;EI{zuAH$Zb5Et)-_P
z4h&}18q{d@{Hyo)_r?ysfI1>kdjjjlXYr|kN7A>$0MHpckUya6FXz+56}Y^fY&nPC
z3+*$)&Lb#-s$Nw0YqKX38HZEdo;-X2wQ?y`;!UjNCVDIh&TR5;CHvF<<~i*QRW;9;
zqsaa21+BYr#yITE>Pi4X*Tx!Ok+zy1-+<ot4&souvzf69s0-io?v#EB4{n{K=DWfA
zHiex|VrgwUGj%pQqZ*@7S@fgg@19Zg(gBfhNL6RzQ(WR_`MYRCQYxkdlim7BxY%lF
zz48s;4tCM3FhaRx4~VU>t}7$8L42~9ixziZPSzmYMYvjDT5b2Ef%Mo9W^!3~p}(QO
zk;fJGRjTZ-?62idiX5c6X3kTO6^+!N?#K7C8}1R#K2-k(jn{^Y9dy+-2G5({<TT)y
z`KL9;Gk0?3y6<H@yPrzzKmmEU)kfZShFNElxCj&WSlZ2-C!D2nqY<32lYg%F0>JS~
z`e%RTp17<{(rSH13G+(KhbHs6QRE*9*6ZAyA42!&n;?k)!jUzOZDLO-u!#CO*1<cu
z6V>Aa4bxtHZbHHuwGl`r?4v*#8|$OU_pUkKxqOmurT>ibSj7Qit@dnd*I{iXY*-yY
zqII2rQE<l8YX8KhIlX6<OMC)#6V1M{ZqhPs6Tb~);U#<`#PD6Q6+XcCXVXaMF0Iht
zQ@uy~c>QV}tx-<%qp>K!L#V6zl^9TvJ)1o>ORP&Pm`j&v5xrZhVISHr0jkm|73$v|
zPF)C@=3g^ly_A5Bkq!oih%HJN@srq&K#tC|PJD8l>b+d}_d1V0wvf7lOl2W!lGbPv
zs{J|9fz5-^+)Mc#S(DFcG<#&G7{Z6JYCQ<WcnAMYe95On)J+mop+nqA9Oc-TbilDZ
zZ@T%5b2S9kMzO-t!FwB-^)Ghk^T_}4L^csUsQrpB%M1x6*({+|(k39<sX#HhkXb=n
ziinzp43X^}Sd5+=#v2WyDrdMOdY2;vVi9O5tujOD@4FFyl9ycSaYSrZ%uC2Fs@a2G
zRA#eLxP*R;^+Y!QXTn^gn0L8(L73|ma|t&~uY+D){^M4!d^#Dg<--rh0u?@gGs^D`
zgjrWD^;)TRueST=Vj8W?5*t~&{tzZj8g){Sflp-;T++v2OIpANKwO*yS_|;GsRtX5
zkb;_L(O;U(pZ5P^=GSsP<*PH2M?dkt_HiJy13ldC;dYOfd+g&tiH^#0!!w0y)c?Q}
ztyr}|^}h5bn=NWM2SdbHP1noi%wU_ePRcdqi2hDpGq-#f*5VhwT6wgi1p#o3-$npL
zxiYCASmm-DotPH@ov}u>uk$Zig`665*$6_TQRW~Y%r4noXrEZm_wdfjYCc<ZQ)(}#
zsx=4jtRIc&o9s(<kMK+vzlw7R51GLhDKFId$7AlEtlmeCy3J<NhiPL83?z=L)I)uA
zE_2K_S82~AS&s9<ea|j&OzZEQN3A}G-nZX8P9-|=9qwC6Io+w3`VDndxA2my!(-4-
z9uWOH;XBZB9|Fnl7-b1fa<55jw-p9~#rk!&UGK*_xMab||0VHPrL%gHe_<{6E`hm!
zpfV6V4vCv+m3bE^4mXh$B$fQ&tB@MXTzI;-Dvk_zfq=v9F77Qzi~UWQqZRY8;}7j#
znZXjq`jI+_lrKbTiNvl+e2-b{dt)2Bj80hsrT+?XK`Mwo(H|T@0AE&qgF?Dp8<ddK
zk80MgS+Pp33%)){S6oX#Z@WP&Tc*r72+Bk76v?2PRpMV2r;EO{741s$J=XqjoguOx
zTPa3S>S<OsDe@C=REyrd!djF`iuA$!S9CSB$~ekeT!9y>KM212Sw>8Oc%14VqE5=W
z5bm0>l6Rz{hM&&&RsBKKTg(<DoKq*kBE68EH#Q(%Xd%0xj@RFwm_3h9v0-$UzT_*6
zrF230g=Xg$6~5iuHPJnWhO=X0CFM>=OR^hXqG)P*dh{NDWxn$I_n_K3Pm7e9VhZ2p
zJ%_-pi?oKX#VM{R9oPbSivIUcaZ;?K+!;8<fd{7;DVpt6n)ehpgtR~p6zlkI?-@1{
z9gS6dHBRw842bjODf-?&#W!LN<xayX_B}Yoc`;Vqpq?~#dM~jF^aE|=n{eP&bWcCe
zFDm=?koyOog&LeY7YBaz;K1?Xk^Rb}{ls0diw-IM#TI_R`z=D{&w)8{B~Ecsxl428
zwfo#Z#n<S4=T5;X_B=SnIWbyYr+#B>_ckyKCL<5dZt~GRv)t1URcdycN6yltr`Q0k
zMrw`J23uLfI`%ug=&l$q>@tr(9nddoz0pwYW;dx?XBs97TlS-_yerer**mr0#1wjO
zk@o5cD&1l{sh=4?vK318@m7n^P)sVn`%tv>Q_XYt@cgRzA7yvdTMrezM2!Ydzcq~7
z{k<Rh+-b2-&U1_+y;)kU1HC^SlfR9iwP^d(V(&clEh4D4s(pE+9}QJYoE5d2CnxS;
z9_<H26&30m!D-Zsl+1wdaXo({Whez&MR!VFvm0x`8$DXN){pGAv*0HEBpRiBlG(@p
zQq{ol*O}6Gsw4O+EwO{%4d#ZTo8YA|%g=%p>6ve67JAn2lrUj_LybUVdD;U5Ed9tI
z9zx|#i!ST{QYM@BRxsKO+iBCqNc(HrS1#`4=QXG0D2+%E0ATv(GAl{<Lsd16yW#>X
zqdQjc(ivr&HeXI<+JCSn=CBb4{^$REAo$q!oHPl}B{~rSQZX^1(OmR41}W<$m7>xP
zogi`^0IXa`g3Kl7EES6BN>DdU0D^|=36Cq_$tVK1)z|dF!zK26PjIg%<erhxJ#ie+
zK~7mS(}o1Q&@4M;qGt=@u<j~<-^(r}KHN<yJWLZ<#cS^E?4co%CHiN%PaRY8YPNi<
zGmrku+mYHl^l5{hg#TvcUTssogHrvDHH9jEPtaN3xFja>9(ci3)2l*q-%)PBqfyia
zOq|Q9?GpN)Ah$2FU-%i;-D+Ey)sHo-UB3DksJiKUX{35pzpfr-yU~btQf{FZ%@V(&
z(e0&58U043j_LxD9M}!b>qqA{T1Qh^n>zn^=gqo3=;^Zv;uz-`#CEC|l<M2zlep?F
z$diDj=YbZslU8X|V!Jk83TXt07<2{^;=#a@q<%mc%cTmp0ZjY%iN+Zq<%KD=9W8-R
z`%;ANs^GZ#)w`~sXh-T&$3xfj=J$Im>%~IQfQx-epPRds>je`j_YU(<z@5(XJ_}K{
zg_Zgos9Y8#ngxlL`FhZXOnZ5g^N~)h+)oKV3Z4&et)R^8WOcw71Y-@-Fc6Te0Y?yy
zIE34<xh|)5#Js<w_22Ax5FlfVtj_Exx?r<uhdzpJF$Rf~{N>K**X^X$^sQM{f90(y
zioP1qj6UUa_?s&C(jyfz@)7q03S3tgrj66mzfh9C3Jw9)nychGIuq0Nihunt)U>ji
zc8j?VCTFgq%z24WE7WdEZ_1lYzQ<jC5V<igSU5bfH<d}+t#yPQ@q2{mgeq4Xk7SnL
zW0^1c;<3S1;-SIEwKl!HRTd&1?hMM$1bZ=!^<GF`rnX$oN9wg#Qy24>@Mt!}DXLGS
z)3gbu!56B$-gsGLRq(ge%VM!Q#@#z{EGOSp^xJyyv+OQA$`)Az_%^;jx()r!SF6lZ
zA6v~Yivi}(R`v1)bJYcuwt|L=V+1qgSlnKd-1O7RWN}aV+}D|UtLKGtDOnrMvC1Ag
zrtQ`bqifr298hBJ@t*2?ca%<II(79eLtpwhy;e~0HB}fUyl1STN%L{-K2WQtp%Da>
z-8k{j^H$t0PIVAwl-rHIx4Q98$|Y!1pHV$mxc=u<H~L}Q$#%iRfrN~TZ_JA|*r${n
zX6~|E(E)l5sZ>|MPBGDfcDjJQwMRM5`vdZ32meA0Qo4Kj^F3%5d#49`<Aj;~#2D}@
z4r8~$wKqX+7~RdfQH$se_#j$D7h?X&=vd6Z8T}UH(OR3HY_45BcVKq@D7|f#x3x1T
zVJrm-G7eDmAq1~w=4CXe%zjk0t9cgG7;zTzUTD2<abr^Q0=vanb&X|xCiaVY>fM|{
z+W6dG?V-uE&`$VXfC$id;Wp>VEH|S7-Ca$oTte$Y3E@hqnn^qtL8B^j0Mrq)Q&`bn
z;Tf)$F4dKFVRfcNPDGzR$!1#h`de*YtTK^Y``A!+-gf~EL!Dtu-pg<47kSXB9dTW?
z-~7?upgysQ-YGmvHHXmGYy*0DyJ<J{`!Y?Bdft^9M^}1bEFH^yVrBNX^yvovuainI
z+N=x}N2rH#$vDlQ8>&3Fk3Y9sJU2pl?h+rXe8o453CaTCLbkZf+6)$L_OKUL@DDo(
z04kc`%WHClefrc8@##~0*{4sh<e&bdqxf_yBq*zPi1$=B@`a+0^4xgGYvr5Ir9tAc
zS;;5pJk0+G)$wN8Zi$1@eO`e`_N{z`>#&<%o*o1$)*rtIaI6p3{QL6HqPt2dyVUgn
z+C0g=r73A+#ih_4dgW-zreD!)QB<kF(w%OZy=b?x+A&bsz)Bs7^x)w)FNh(m{1rA>
z8>hT8!8TTTt^=B91zmKHQs*0U1OTWSn6D-VZGe8am|9i%Q)rmHuUN%kV8SHe7Y
znD0jr>Q$zHTg*pacRwP*zW_>EF9e1@dDPPh9f`96XLoc9&r$g!;a&b4+Db6VjAPVW
z>#WYE;hqs%KW&@1VjX4Pfkt0ispfUmM{xHRHDxU?QXZegfAvcvM(@OnY!`aJ1A$UB
z!?Pnalg>vs`sVV__!o(1S-qR4%X68|l(c?T)=_WJllJ6U+e8=YXm#|C5x3l%z;`_b
z?#pq|fCfg|ZW0fTLGtgyjIR@Wv5AqiRmw6b;ittLlR%|)E$wr<N*`?IgV=oUyx133
zAJ#QCA-2YvCW@X<+e4N1q%4b-DwBOJl$$+B95cI$y^ia=(P28HeB&Dpzuzw`aD)Zc
zv6J>eNoSpS$D6m7E_q>%BCkc%4oIPZ(@zO`4Ql;zFcm&{b1KnWz0i}tL%>^XMd~2%
ztAN8?`w8tJY3qQT{i{jW#V?_G;t@9#Zvb!NOkRot57P~RIdH(}x<gI2Q&Or_lCdpG
zUYjCO4@EuJTcd~ytG-1IA8G+qykL1GMH;S}K(?t(cf<!)H^jv*WIgE;>yIo8q#77M
z3fbp1OC*pZ5$p!T2uv<C$G_hut+S^)lDBW^T0ikTy{wJb+}_V=4j;%)(QUCFdcHD&
zU=E7TVB!#xKu#(jSXrdv!LJit1(W3`UVW9Cu8-#CTuK?H%UI}>N+<P<;}Gv9vJsh;
zS*GZF>F$~Dfm@L>4w#f*HKEwl^yU+9e+VkAHuLEqV0zE9N!D&!pl>mL#n-Cx{8_QW
zeGXix6?V|1;35A+?+42xKR`vf<{cm1tc_DohcEE4>JZNodz*W>@(mnGU$E|A5j}@c
zZyd{W7MN4jhG*CjwdpM2%Fc1E_qdNZulN>QJ0Z6xhd1ibO(yvxH(58{kI!=)Q2W5O
zx;f*ulKy+V9XPrq@0R4#k_=k`FmHvCmmb2O<l&ObE-XionO4l$<>MaA`{F|)rY;=o
z!jcPTk{n)saCmtzC%L-hUuyhVi}wMJya(Zi7XJ!KRl|Ya9pr;(VZvz$uo<pui_yE@
ztgd0bL&F04Jwk?Q@*qVIs$Uvs{1cRm(J640HCjMTJESdC2gc11>uI5S&B&XJ%zzW(
zLe#Osl9*x83UWmWv51z0edEJ@)P?@n=WE@S-C7@Io+xT_k(E5**y0;z9kOnrX78t;
z6}#ED2zeP{+1*$ySLCI>I>Nf7CN>?D;1dZespUI2l>zEDYBWPE_E)R?k0msSsZSLt
zMs);Pg{Zy;Of{}l#Sj2Q22vlJlh^a%41*4^^6C_78+T;M(SH|tXC;qCPq-gJ?6$RE
zq66A2PSGBeXvzv<0hJhOYayso;Bi2Q_mv_9w3ckBCTfSW7sO!XG-{&Ag{%@t9zcl#
zB=utxnARTNlkVi2MoIgqbbmlb%p*7m^Lq1INx7qx1>%2sW5;-EdOW(J7rQ^x2p#kj
z%-mZnILAOD;D-vJ+VS|nmWjP69^f5~4q#6W;gx$8BdFD@ahZFN#vwMdA7DGU<>|{8
znfifHFR@a&&CiK7%0fO`_NALf%A*_o&|rdRwF6(v9*GQwQnQYdS_~CWo-ytyqgjo0
zyv#}Z+_6e^JpED~HFE?rmZGn+Mm@-u!sRrJeJjprd?G@XN>pitc>lfeBm(L397xdB
z-IwqYQ`5L-{qG3{{E07>3siwuM9CciU|T9G<fUb10q-DF3$S*$OfKlpyK@B1{v6LQ
z;E(b{VkQ4ej=?b)ByTFb<deASK4cki<Pshb`e^kUGkO3@b06I!9eQ)+-(1Hje>;_4
zVK^;ksjr;{X_DK*wj+%bwo^MLtohW}ugH`Hqc>s%hlY)wjGb4JH~@jia@a&ddfH>m
z!IF$$MfFnkUaYf#*XV$^v_V_Qih5J_e9BOJ5p7`YQ;D*&lHb3;XDXA@uc*Kn=m=PD
zLU02qoe8l<<iCwxR%>*+I@4T0pt=VTB6vn=bdq1@Ymy|f^KZ!~q4XwvftTBZm7lLv
z>);8^2rs1a3!;q@TXo`F*(v@TuQy857Aw#GMAN)GsN6j^n-JZ$&3b7%D|1wtL%GYr
z`n{Tme$t=b$xBX4UCtMm9`BiGPtoSs+w?aM0)(?<PPORq#8<on@o`6amW%PQMK0#w
ziAfv;t8n%0<g>lwMbWm{SE5Vg0K4Ga#m=gmS>jdxeZpt-m3ZMx)(iNSy=Z|uXN#w9
zi#=k#GMEo#9kdq~u%~nLpU;2!vN6?lFwgZJHU2-8eFuD1#rE}Y&&=t!x8x@G-t<Nq
zA%q?XL8J(Z2nbkE1W^<f%d<QS5ITh3ML>G5(p5k@2!c{AC`~{RR0Kglzcn{Oef9so
zo1EU}%$c%h@3q(N@iU!bo(5m@QLxvn7h{#B{HWt*PUr4x9E%-EH*FJxi3=m-Tfs+R
z*!=-M-n+!Qdw~tr_0_R9!^z6Hy@S01Xz_tBJL8sKy=#ImY`a01&EKhZmrI1W+h@tS
zi!QJ=;<&xqKKh<tgUR;`@^8u2zA@inSH&^2<>1)8+69MI7XgvYp|Q)=*XNT2d2~JI
zJWoIKAJqPyTC;;C?^}!PYsGWZS*xyZEP!3-Ytd>DB!ev&1;GH<aiBSpPm291e3ZU6
zwu@zgZI9UwmC;o3E6s(sz)X4%gNCWGD`~m&wYUAN=+XY{ksCB$9RP=*clG(~18OwG
zF$gi(uZej|k9R#^sON>#;X5H#v+ZPlA}+8VTX`Vo9X1m%lYVR*zhi*d&0gNYKcX}2
z!AV+HdX@B5Ae>!e6IlBZjF&AspYX}`pZV4J=ca_3O-JYUa)TSO;}OQL-FfAPS7ha8
z6$}M&;v}-y_%JcLxr0p#e~C)J+PX#KA}gGm*cdS1=RZ&!?rUwPU)g1v3PQ=xjEmM7
z_C??n?Xs^?7rOUY@6c&}#nYGFjb=N7R$D?R(P*!w6~TL9G9mCkk`W4}29m~e_~9fa
zy&9cAP0CT$Z4QoY)X59MBokPB9jv-==f)5rh1}Un3OJj*;H(1u-X>BWr*R&Nb7<QT
z5NRE}J_jO1kZmJq?KcT>-$JLqp3)HNnh=o=9fS=L3h{xa2n6knul*H!MmL{7py=JZ
zr(Lj~?XR9qo8zcbW2*_E_+ovn3I@@H)D`L#V>@MhB$8@Zy9J#c9ZN7naFd|G2Hu@I
zK)$)4YJr4L5OIo;ME$+euBG+VK(fjp|60pn$g&1dy|0`}00nqrwqUGo>qknB{MV|$
z*Wm7^)<vkYpN@;I>#)G_pP4-cao+dS>kZBuTVSMH4<yNE(fH$d2_+c=c*s_f-*7Np
z)RQMN6*k8N@MM8#+CdHIQH+5R-(nXy!K+gEJpmiTXpQCs8+=IG`<!Ad0r}2}Kg3D_
zj=mY~7CF{LFic<+x>$LN^ba{@fvp#3#L>O<0yQRMK1aL^Qth+B8DceXDz-(4<AQ)K
z56Je4`5~cc<WtULKz3QK`W5_a9556_{{rW94SYHWp*^!VQj;8-vsx0Usl+a#-rVm;
zyjn#2ir&Ca|FB^PB1@G_@B!7Qp&NUJ9Pvo=4Wgztz>+(geT5TJstO_Br3KuE^&LKM
z1a`<At4tw(;(dg;z}71eJ^1Ga#d@^G@rmwuP+}D(>_f~Ex9b%djM_5mX>Wl@tl0LU
zmz)qrXTWx3j#R<oN+t@>0~D}09_yqx$lA=2wYRt5BHK1jPe-#f2FGKORFjq{!-!H_
zq|M`wWzd5py!>HIU*PWtveod?>M}ri?ylA1tZk{j0Gu%yYUnrXu(E)%*NC@KrZTnN
z>OQX>nj*a?J=Ds!30`!_!DQrK3rOav9$&2Li^<E9jMZQrFv%N2Znr`ht9XdgsuCev
zYy$0o1<)GA;+zASZI7C?D7M2;=6*1Ek3L6FN>BPh#J|g4eH*ASDxGH}6*NfHud&h&
z>u3s4I?rEnI+xQ>;43Ezqj5?}U^L6R?-s?nu5eF(xbXh7%u(}gHR_4*QdGov_zx$t
zaQFudAE3=CDXCc0jcRg^qyHLgxwng)>9(A$2oUWx@}f>&f4X_)S+&f&jrlH0`<|{P
zxOR~1u!u9BC-p95BEeM=boJzmooZBRbK0o-4J5O^yww7_#`Fks%5KnL3RIayfd}gK
zr<iSYN9`wygOA-~^#LV_Nvo5fmDE?F?u*z^%6MTrY-avU`*PMP_fO$Z>(gkYcyl}(
zf|g+eT<11H#q+(9wbWt8)Eh`C&#a|I>MqgZmS-NdzsTLQO;}K@``QooWDkKJr|NcN
zGvX*+5&J||);HF8)jDF^YahbK8LQDdpVsEWkB4Qk>>8g&g`NwrsZ@AQvTkfFRrpSV
z-}|4OCz%u8lQ8(P=b<CM!r0TS1#8Ee!iADO$THbh&c5Jx!M9BMQGN+L>n}?C=tDlM
z^rVz1B<V@{1I0bfE=jp%EX0-*dO5TmNxRu><(M@(GLN>g&1Q#(zG4q2@1+kEcsx#4
zet}O~mcLG)P#^YAXcFvuv3+PML;-yf)8XH|S=p!VSMQk&To+(Go?Xh};41Ghv`y=b
z9_`W*#iY<jHdn24tY+Rx;00@bL`|oPCBhbKYdl?zWK5(4+bq>t{cZ9F7N|~uMqR$8
zs!=eLMCfBK=4y_Xjxy3iU{BZ%=r(x1=fL9*Nbhyh?bl#!F`p*&mPSxv>8zR_XJH`$
z_W!zrA@YH|raR;8BZLvOtdAsXg<D5YlAx~uDVY`k!<95y9j-X@7dTL{5w=J6#2PW6
z7xW81g5B9wkaiFBS|<A&jv}6_rXB|!073z4L1##d=)Fbd%JSQLP6#dJOwf|_-b&@l
zC8pPb-M8rh3{3C`S_k~iU~m$0e1cL%Llo-d?2iB&mB0TsI)QUP#q1$v6Bj?g=r|D-
z1RMmec6Wcq;7xalKRAy)YHzOJy^O7ZEfS<Fi<OCJo)HcG&qvF*&WCvV+!nRo8-?+c
z&<G9VRUfQVBkeN4Ej8R1?H>Y;^_XH9silYunEDAdInQC1_)65<&ug#c+6ev5kl#~~
zJc{gJgMmu4q98YHPX3ePjMX%+rj0iAy7U&eOusu`+Po1Ih7z2v)waoh4Dml9J90ws
zT1r)Si|87FQTU6+GzEPCetoE#{wn<CzhmOq|Cl@5(G)D@qC`~Zd3-6HIR5ExxP~}~
zi0+7a#R}NVxM`D7d%%^6sE-DggBiaF4N4teM@}XDBYprea?}u}-hk!W9ugY61!IlY
z7!wHcL;7q6_Z|b23sWz-CsDxk|A-1^$~mA)TE?J7BBhwx!iFQ%x~}lw)G}t-Rhx4W
zdySN5ZF=Y1^9hjufmuul_2<nWjcH!HVeZe^vzpaB$)FD&$muF*a`md1+G7G&=sH8G
z^Y~=i5&V#TwP_za^e^Ciri~;0Q(!RFw-tnB%*3>ZA7+lami3l@ycoq~{Ei=mzMcUe
zqpJ@Cl8X3CIJLPx8X+dt9{~ncXYgnWKTrWm(tkqSK}0G9yFGV-OyfPDt_5*ZO-s^J
z()H`SVmZHZ`*WeCYUx=}%~UK$aeux)%NcP_G?XK7)YD>dr#LKs1?PqqkBu;vP5*LW
zUT`b_Ao4R}G0$X0?MG!#WwlSxdfU5fs`edKTLpFXUe;lPagk;kGvj3#1li(^M>}^Q
z+SINy4;p9nA7$e=mtFB+h?!z_ADlg%f0{#)cB5g88pBU0i`gKcXRq<oVgq;#&QO2%
z2}mq7187bBW>SA@Xu-q-6&~V{S+qmAl@Z3zoM~Uv)9swjlrCCOr3o_FPIC{>uy^k0
zoS^7{WEYJl<y(wrcn!zesI$=qvrzZpi@Z&qkDcM;<oJw7el)|2%^?(9WG4Ddrx^j+
zHz@QS6KR10eX22)Iy%j1jP5?qx6oKrVQmiy%byh*LiS(=NYRzlsvd{6gdRDr8IQ0B
zUIT1&0<mqV*X$UT$?$ACAo0jqxQgjd`DLP?MWXwm)yTe0H!z!-$s!?A(>TX%$yU0R
zY#R`AM1AH{;^XM=sI^3|Vd`R-RywAH-0s0(d@xv)SGAE^)m9Uj$2w+BvxZvTsA1H!
z6#=bOCBLScWy?15jJjqm9Ld32Roh)%KcLpqy>6KHj$3m((!T}t?UDjL=mJYCjMo=h
zI_47)NMI=t(L+(amRXA}RtKJi@R#CkKk!`h6d%X<$2ui`wQmDt^7V~@?R3p@d189@
zHUW3SFl!0hscsa%RT)WbA6=k7;yLc@MFaR$YI8tLWbI~$XQ{)rRq9UB=!rM_p!2>e
z26`IyrO&L(>Q2qvXPF1pCBeCBUwYphV_!(0ndilIK2S6EvCG!jz<cpV$KskT_bAuY
zP3mCncq~RgQ0Xa8I2Y2(B{S(4eY;2t``o%aWr$cUGGVXE&3&6z@Lyn0o^8wDsg2Tp
zGWsg(_%(oX_QEz^KPBaqn51r0zci-v-iU@&&Ym3y9+TagIf3={6m6iADTY~+yOK^@
z+7CjXZ^GVfrA{Qh@ZRg@VztH8;05uwrW472!2CtzHR^c(Tdy~NzWMX5QEcZ>t&*Za
zRIA}$6yiSWB-=bT%5ao%YAwe?Qm}PE`?Hy{0@`5OtnOzkQQX!0o~LQRWW<djzKvH$
zK%Oz6Ita~%&!P;)Vz^>J%F1~tRSUT@6ccL3KDL$c)Hncp^<6dJ0ivNltiuGIW3pXM
zgX<%LY4bM*P{c=Ecczwx&9tO@|0IlfF%$63Q55BjxZf3$q!G`!Lus$(i4qsW3+w(q
zYQreo${-%|3c}eUx}lxo{gwB<-wPFhJF`jHOo}+$H@{nbpzQ!wQa4+Dg6d=iUqKK!
zi|n2{(Hr@<^H$;7k<@A<C<b9#d^T776Q!Lp-asUrf)2LqP*QKi2J;~Z*G#4a5}JYc
z1X>pae{tZEUUxJwBIoVn18%ennS~uQN?*=Qcu!M{DDKa!NTH`_zkx6<3Vb*7Uq#rP
zf_d;<Yo9!xbrPCV>@9M>Dl~7`K)X8Q!J3y;MsZb|9Hs}~K*Sxhs5d3l+D$EQGR54g
zie+Fn%~$NBSRWQU%IstEpR{jCP1!|Nk3~&omZt5t<z1w>V^D;2?;VZY;iq5@HP3bC
z()XgGDrYTMytG%pWIs&TDLE;04PS$M>eRpQD7Y6ZenV|y11O@PQ{&JYFQ-0eREO{p
zz&@6#Q|V?*f8a<)0cO=-%reG>4~cJVYt#jxc337(Dbqx`at3x1cYjuc-Nj0kE>Ll@
zHcA`ThIM4k*m6nvC)xSHhX_fwF~EN;krlHh?5bm2c23KKVpH6=)~Bwmq_<uTv+H&m
z%X+*tA4atmG>EMM6#G2;oV~{~e&M^J(fWzC9?6T2sK-!1pIu0A{OEhI*0=UG;=D3P
zj8QHsU7K#>L($7_gyA!%!G6ka(6b+KmRr#bf2FR$JM4`N4F058B^QlRn&@wpD`ozM
zN{slP^_)p9u`)*V91vaE$9mq4?e}@lE?D#uJ*$5VdXiX#-ZI9z%Uv;pl%--B0L^(B
znQ0jV64=VT#}83bKT-2M+Z?zfpKT%x`dAVBJNua)fS~^-*gT+CVXxp1ro6AEyYMz*
zU>SsLe~wsPmdBpN)DvN9o`7`TlfBADAQRZz3M<c^FWBLPEsX8PaX979Bn$?cv)(HE
zT*64%bk44Fx&8~WrHrjn5$*m5VyB6fbGB65N^A|GXIP4`k++N%t<7FwWSOKL7TZ1T
zXYj!QwIzK8KltwvE%dcz>WcjD_~U!=#eas2$JSsk^8o9-gT-XDer`Qv#4S9a?TBsP
zbQopkWMr(MRjgyNzt$)?OfCY9Xq?CNHXh9Hyur)$3D!-1Heqz$6!!?$Pc5g0jS6xL
zJ5<T(qy)k_kE_A#kCXukC)pflZ}l20N25Oy{7(~L^O``#8xS^i1U=J_ZD*mlEAU~V
zI`oYlYK6dDTBlIL>p=6vbBEk>ISR|v?7=8D)`!&nH?aic?QbKOF)X^ECm9J!sx3)P
zw<-N;n;A;dlk`lzaR{gcq)p#T##f=nOOu+OM*6OVJ`rEj34IuUb{>R)R_SS9^JSsc
zB6k}f<y#AA$eSOdKz?q%HIywe>L>rbKaJ%8vBTau%Rin<`@3?d(pf-8OZo%$*7Zlo
z<mvv<L$g`e-Du>iC8Z35E@%{61x4C&f!-bJx~Xu@IK$@C9(^R7la{l+{I1is<La{P
z!qmJ+XNc;phEUhS9(T-ACcvNK1Qgq~_ld&5WWcsttrPQ&cLB(rBwp$Z`&xhMGL_b<
zH`P(vD40yQ(j5zf_s^g{;p9(}vhUvNUS(Usr?GwFkhYAU64Q7&ylN)F9(xR`sR1;?
zvCVVTUi5Iewb3zOTgc9_h0yVCgZ*$l)fq*_ds)jR^mIu|yZ!u#JMIfU%9eCeTSQZo
z(sFBx^1U;2q1dlY&;SHCKz#+blaO)9862ujj0{9S(Cui}I~oRu>I}7wg2?Q<K*r+s
zsq1N=0OD^XYd3_7;EwjhCbK?6oVk>k*-(AP**vdTPu$2{&HH(7@nXuXVT|Ny^@Qqu
z!t)ik*IEOgt$hgF&bK&R-C~o`!hS&|v>5G0dezL7yurMB%65B-m6x4fFkF0UFE=&{
z>avR05$aFk9SBDE)%=kXrHSzfnELE}T%W<X2N>q3nq>>)`gQ0A4zVG6#T}-Kuk6D_
z4Jvo-gMzI#^uRwl)o>inTWi|Gc*I%z1lJzAY@gxUMZej%Mw3))I}LLDq%YuL49FTJ
z%B|X4y&GIR^_sE4X1>p8iMdN$k#1?b#dO#>KT(&{<0$msv-IF3QEGk3)+wsbn4#?S
zPJ-`rIUlAe6Wm=+U|iGJ_9>d^^K1yL%Qr>w751=Ew32!=02cO|BedJv?d77!cQ&<N
zsX7TYV<K-fn*FK|HQ^q)#2&G?aKuIq0b^fA@y?RG6a>&X%C>rViq&7WFA6`I@Z@zd
zQau$<mtf<&Oy|TA&qBu_174+b;k7=2K_zQKDLa?<heqyh3O%`>Q+;I2#@M~03DxM$
zuj}9-g7;4*bv{RQGL{m1i}#ctKu5P)na5XyXMUABR(tTd=ML}z%4WV)3|1y7eF7`Z
zUyT#SKCN6i3{&7_Fqr&qy#unS<=PUn%zP^0D`<5B<*eFZQZI{Y8TroH9DNd~Zpc|?
zkTV1ub{n93pmh8~k^XX<B)U}UAq%J$6hFT)N^n!0bwg0NI;lxyK(g&_^#<t0Bp9S!
zF!Ak|nxyWCmsbokBsuSdz8)rP*HC^<Ax90oba972md;{&r4_Wn@(D7gq?4*ZT);TH
zPHLpk8!F08s_rFQo#wAMtzC`mxrLMvpWg)v)_dJfR~gH_q8brn0Yv(fL<t3GJAe!)
z*Ly0=@pC!3B1rLl@@+<`!1Rz40a7<X4mqws(d)z$!+6_HjcALVW}!X4w>KPBu2y+p
zxus-x?=8TwH;f%))A&2E*C`$m?+<Vnq87*K9ky_KSooOJCr~mQmW$v9XrJdnOMH`p
zqSXniHxXN(x_{=MP*MBWlFpbA{QRwNv5Pss(i`)E&i$4h3a5szCH-pq0aD}TxIMz7
zTG|w{+L$iIsUXa{1JOzTSoK!yG28ul6l{ygrSYVl0kdO@W;Ij1LQVJ_5|B2Y46joM
z?;O^(Gsd6S{GWH6#shhQ3|H7)&HRb<d(G8Qw-`svMqBA?zL-~E9=wJ2a+qfjKg!dx
zs#MwT7>_<-i1QsWNPYcNa}$D0eM47}fs-QleMmQvn-84i-3BY&w(%#Hi#M-|Ph6AL
z`pv#&OQ`NUAWOK!S7^&)zo4JZm*-LT(>GBxXRwv(k5*Y2#WT#!2sc0Ew-|!1zK59M
z5btUn@+QoU?+qB+NOiSuEc`?Yx5CB$JMh#k1&h?jY!ISPPGoJ`?Xo}k_s9FPEzlai
zwh#cz13+iNFD4?9zO~~^x((;s%*?o0PdO_YPv>~muho%MTrJr$GEXQ^pVDhqsaq$n
zW!H70Bm*bSrPm(%%@`mqQ}{4Hs2vj9Y-}KPc%N!}3sVw4Gf(jw`g&mXhmz4TI0vxm
z?4fj&RCvg@xqm90^xkG2gH>aK?=v_qPhrbVWh+&)^UzV?Uut=I=#k=eEbAQAb@9;q
ztgf4f=3)f%F4g^#-4(+_uRcA1EmtOsdt(xE&nef~Wc$-&=+(tAdyWD~y1==Z{p}hV
z4{7rey^wkC?Z=y4uwN95)sI=VKI}7nNa(u5UoZJHG;!69<iHqnEnrt|`)Xt17gBSS
zI)z&O?sdE$yF=g3m4et{EjJq0aI~$P0l1O<ESsqrMN6q+KX%VCW_xG?hZdyeVARm!
zpCLqzq-WtgHP$fDafu1$WbtRa=z1ajsX(0bnK<JiG|G+Uv-A~zHp*i`TplZ1%K1J!
zaF)G5LJCh;YR$pC$_aWNkjfzNa>d>%|FGB&h8IK&GSy_o2K=lh`72yND=y)>D?ZLq
zHTsu)_YQ!Y#~Ja*w5u=`&Ea1-T+1l3fd+>1OZHLyf{|Wjj`7rh_&yAsbCqMP)@beF
zr)E;dSyl~JkNdI<8=Z}D9yebOFMxG@kg$rcQg&g}Urn%1^+KjSwo=>thYYtfc+r0-
z{0W>kw<x{f3cFodEA?*k)M<Q=`kSrX+wy3*M>*9;zdn=hN55m%>Sy&_4rEqQyPHwB
zlF#54s-er5h)Hmxh%$^XCqg2*fhe`c5cn}oQbNu$`kAg6-y5@hu4X6AcR@EY$}DO6
zCI9<8ItE<ra`ayt9NYP0Q(~99D*&EDg6CZ9N>=8>^f7<OXm?HtZ{WAYsmKLZwTxZ%
zKtXKA8hI{bIz8k|vv+U|V2&?9>u4{C{-wt?I;2%~)HCmBp890zFm&_!K*TGkRjWbi
zFy$B94DlrmbZ^$aW9>U_wtvk(RQv;AY~Bke#ILN9MP#ngGCU<oj{CCXI@j~(rw*dK
z!u0{Nt(BIW+U7l~SG<F!v8uu0$~(MS+pDbkdsN07MRws`@*5=G5S<c>Pni#xrN6@G
zZYdu};k}d{8NgFtn9CsdjAFAPXRmZ$#OUf2Uy-mBF_{y1M!^;cytP>;BaMS1!CQq}
zU<fc4BRsCw%W}+=HX8FF%oAG4Jk{}|cucdpYOjyuD@j>Jwg!FK(^bqCnzaos)EzYg
z+yMr-14^=iREsIS!aH`F3Y4)soXEvCrrTrsC|&xQ<!mdYs%>1$D|oaY|N8{nUd8x9
zoyH7^XdoQ0gK)qC;eZ9g0c$g;wVb^y!_xM0hd(BmV++=bY@|Ex9}LJ&&nm6%(tZM?
z7RIOM3FCA^z?w$&-7Cl_r$JD%T|&(IK1$btv>aH21q{(?93DRyp%lS0vfo$6BJ|gb
zTg}N@>9-_N9yQJ=`(n(qdcOOb^*c3e-L;&aTus4|B7F^f6tgFpFQzPxJwoVqyb+`4
zBn(<n1^Hd6EmD2&E6t3zMLreo=E0&Jj$lztbzlW;JE%>*Zt-f@sTzF}Qz6xj6k{Cw
z1WblmJ2BFi=hd-op_(mFt|H4A?T$$?rT92iyzN*b(x`4Z%cN^zM+o~S0`=o?xST%A
zWmD`SyJcDc^z^LKSOMVK@Pn4{AOE}hb7ND2|KVV)?-u(<R<EwGrG>S)xTs;Rz}!M;
zF)k8lbc(If<e3v35nID%qt{`_kR}UFiG{$=YwKVGgtFrkIlLEewn2E0=<+&2pAHID
z@P`{%_;HQJJaI4ts2DBcM4_-dD;DJ-`{8JiIF}*9c+~uY)6ty4+=5^YAcv<g4uE`F
z-U~r=nTW1q+oos4S}~SKPw0X~`EdK7d;~p-Pg5x332GocUWVzCX%4f16EN)x0&$Fk
z<qFuD!6l7V{JK>vFh({IMNe8}@O!Odkw$)94Qr%W3?Ai{v@au)AV|+4&M8fCj-+;u
z{vq;^rUNG!Ygd!-WLUGIhTyS<NVS5qQehXwDwrVz3wxdSfjgZ6Ie=^lm<|w3<9#uu
z;$G2}Xv*cD>PRGRfNM1nWUH7)$a5q;baHZl!)*f3%Fbj#8N(q3T=9zjpLSKzSPz7P
z$p!&F=&ggEHaJnQP$fS^>F^sw5~*WH1a(rWI}47Y$G~hYGXzjEA%d}ZtZK&Mqxz8c
zS^<Y0F_|shFVlvcW@$noDh{HqL=b*2CWufAcwbaDWCH?HX))MvAU*>u>N3EF!Q#Q@
zrv<>#F2IA1|D0yIi7+YR7t&cKNc|a$W%&#-=b#bBOP&Wgq7i+%-4pX6=~{~32uZ?!
zMeqwz)WesFz-J8JP>^*q8B0Mq#09YCp+tcPp4h!Ws`;aMwM4k>%Oi;Pf%q{x24~3N
zWW0$?G!ux?Qn}XVkF`s50>KH8a{Mku3or2g9DZ6<1bJL$-m(goFA@$VUDEz5o_rK;
zCS)Ms`3AJ`5ycSD?|={-ranZii~i>dCGfaZl~>+nH;;@*=Pvf~@ET-a^bRn{Hu&ZC
z2_p&2NBD_nE8gFSlkoouW^l1UdR1#2a26;FT%diAE~k+Eu+}BekZU>Ca7vLi#;~e;
zF*h=JnCC;!iW;HlD0&5k(zS9^Gf21`@+6qbw5|g0SuAI78O$ui<DDsZ@}qjNs3Ixu
z>J@3(FY^cg<0-M4Cy_)ci9UD}xobt`a%JTyW!!l5p}&uVptJ)Hy59iX@OVYl$&@t|
z9}s9a4a{&gL}o?ad+>^~N-<G4$%{fJSHZ%L{NVhhaJu|FvQ*%gg3C+P0JdZ`MV`u2
zVDR|=s&Buc@X1u**R5jlZ(9mKiq|mtYAjkRV$p&j-j#<E2%iUli2&yE@xjVvdqn|B
zBX?IUrXputl}FTQDq%NPWZ)#gFD@(a90S+kQk}JPLSwu~lCuDh9gN-(0SIu?-O;=G
zqVpL9J78j@)<YHF_&Y>{$YP>OzRK6a;FiQiO1dU4!%L-dbtd9eRIVOC43|_c(z9^F
zpQ}|bU?ko!1mnzQSbj~er$^_KbPlT4=$x@ys6`)9UOpBPOwZ`7HvVDkXi!^k4n*UJ
z)KPv1#7j#<WFxuEsN7zR>LCr(vKNUK)|kp|aE?|Sh^;(;04&iH8~=w3PD6`)Gikpz
z4D8TfIb9eq@eQ6M7~UVTO|zCUUyY4E_mASB`wBmc@p{9h%4}MhTQndvmySShro{3{
zN($x|#0oX*i{M%I$fOD%oh<-gFXvN1LV8eJ%1?@^Q2Tx>CW;<CZus`|xyq%O*~%et
zJh)i9r^XESAsIKIgZi1?n8QM$C2Wl6D6iM7YA<U7t+l>Y;3JsRq(hH!)bp7)-gxVw
z3ABkm;;U@4sOxNgZ=Fu5dEes;cNrV}k+;a{9ovh1InPX>XGU@QB8M`T(-HXCZKC=+
z*=NjpBy>9Ai^xc*pKGT5LhIRM*4zA&Sf$oX>z*(pcpSb2cTbB?PfW?YFEcAS;`M#W
zzH)ET!Wp?S!IZ3w%*<NYcRaTJ902S5*@u}w_gg5f-=P!gMt(~DhU)HN<^txeIgNP_
z(<@1F!Psz|KRzvz5DrHo@oD~qgg{(;TregO3<Q&=MS}iVf54v<jEhT+39jRz??l{O
z9yeCRWt<QR0e4)C$L;rpMoDkm_4b?eEDXuBl%k)By3=N@$wlilpTLy{-tWyuGiZ!D
zH@O#k;5RCRSI8p1osBam(MhupjBVS^TVkSm+T5e=<?i9!vg&zz@jv_l$I;5TEh>8k
zbS6T?sQOAp&VS@`ek{5N^iWvuzLCkrc*Sr!oK7QXcQ_R@3{!_Og$k-ZUu7kz27@Uh
z=oY*ae}i|?6@2DXe7{%#G5nV-<+{3DeJ^$tzv`aGTeR%UUuZFho@?0531^B`?1dvV
z!Yn<@UQOTQ{Ux+R87wB#rnDut&&`u`_e$8^KBx6L(^LB^9bQ~2Tu;M-d4THm97wyU
zL8-YAW5o+<UbQMkjT)6UEUn$3A>3p0Gpp68S+lgXxMs~Rx41Y18^#==3^$ct_R~q%
zp|{@7#>Q=Bed(|=j!n|Eg@JdWnq5f!wVaEdFI@U!^LwTjehqxzR%N&T_fOa;*GX7C
zX7V!L8<k{^a+2>8^Oeaw2N1@*^|+G2g%3{Rm*@zjpPdM#(qvL<Z=QIQu8N`jj+KrR
z;;CxsZ;NBvG<A-4!!v}`@7R6cvrc0~r+w^^_xay?3ACJ{+9{893Jn*LkCe!7JaS${
zwkna;JTg$MhYR;9@gXp`^R$)+D9f*c5fsvq3wmzuP)-Q<v-9`>A$;N~OrNnjojFgb
z`{e(|$n1!~`Q#hk865oY08C`q)mEzK+1Fz_+P9KxI6)PjuiL#204JIWBcZf(wA5l3
zI~GAP@xaHt^V2cYsHN?Rw2Yr%-Fg*Vt+ItJ1xujn42=Qm_whT8C)U$VR=X2|RUL=A
zBnrk){KX-%qaJ^vt|$<;xWYb;S*qLI<hp{0b_U-Gz*j-2iRm(ju=C*G%Yj005>V6j
znFRd$DK;1)aDJp|d`V)y?lbBc%Covp)guAd69?$7StMG1!<82&F?}q|?Y&_evF(O$
z`e5SQ>6Q2!WPgXcaefF^nD2RH3QSTk0?(tgo$L%6(SQ4UOAMC202?Wc4&xIBN4VQy
zp#SQt;E42s-6VYmVnh7f@y87Wr~0=CqGOM=i|j9y!gBDDS~>O@%^rNq%<GnUhuUBa
zycO)ajv!M1W$v=sV3Tx4=Ni24FOrNO|0C?F*)_+)<rQLO=g3)>SCBg|R7uG{hW!m8
zv?Y-<gwN<Q1bE14mQ!5Zs8PU7!hdmt1_!Acu1&@ikd+QBk~lf3a)Ao?SZ?<Fly@kI
zH~`jpwuqmmM}N@!^G{jaEb5nvLi{bCM>EXr;KvxEouc9N=-lK=bLbb=E~;5hLmcP8
z4|JLzr8B9CTV09!!ixY>xa7`z=#J{ssjv_hkh8Q@yxCt}1;4i$l)Y3`-wkf(1>isK
zr(DYjRB`mTY4=~E<U!)4PuV_okFQ*N=?JB*6t~c<uF{IWp`otdX^X9o<uhx|pgRt-
z8m03R?GwQ@c)-i&=N6TxmeI@Q>M;Zf+oP;u$JvMYsNZN0J-A)D?^`jC4g+W1N9+t4
zN9_Z{yG3G>Hc6a;i$!0)gLg~q3x!L!A+(xzn<=_2fRARkS+M1Q3cUMHb+VX|-DM#A
zFn$ip>POwvwg~S4zEV-%WjEAbypIaT5H;y4?PX7ofdZ&Z{2+EI@57^eIsg-!&3aw$
z9Uifj+D@2r*=tWc(W9_$%sFdq<SXl*E`Y`NqBj=-MRSCHpo6xF?!ol2?=#;X?;bJJ
zHB|XUnXFCE&bB{eTSd?0>OFXtRcJW+L*pZ^fgMA$jiN(b>oC`JL+OmDJa-g4tUupG
z%dcW{xVYW8!{MzDPS=a1-(Ah4J@kBTu=@KfX(`O6#g3=(-`J7t(Ha*QxnInf!wWlU
zj;>mL`-A0dsyIlc&iI1h^Cv(+;w@dnS5p@)F6AbB+}=WSKu2QlsM+Q#HMJVewU0%^
zknN7DFE-Zd!~`N~GbsJliHJ_pi*|!Xpr~*YPb>v7D!IRBr5Cu-aV^|gwlV}^7|Q%b
zJ@Okh@WsbhX>fws%axVt5}<07uYo{0$DTV45cC12?WfnC`i+^5=1_KV<4)iKD(t6B
zr`jno`YT;p*WLu?i_LV6-f_$$XX~9*)pHnk4}3@29s2P2&sj+^8j-?#zU7*0Fgv6^
zsX30(F{U{_XQPGYfKn#@1Y53awN=w^R_{_E>Ko^ja=0gkPg5LkWIqVTv;23(7G_<b
zL3(V1@W(*H^z5amnK^2aQ_JNb;0^meVlUin*ljF*5o*S8c98DUWA8mq?OaL2*juxK
zliNXY<JJ6Mwa@sIes`q3k(oc=tv2vv=A_JJ=am!W^jO!#5a#ut(p;-yH!dvnTr;b^
zPmaap8LB2-AbSERBK1+~B}V=`&Kd~5oWrWJFT-Qu;N5zSHZf@t`-T?`b8dkX&;j(k
zlbo0Qv)z}pFKLMVvU_yW9M&I(JI7jefi^1u8u5ty*AdPr1i*V}b|5LG{uryUYgRdo
z3b$B~CG?f0_cP55-)fkNzh*a->-3da$&R`YDw0e-V~HsmKlB^Kh!>O*fCaa3DlOaD
zOIJn~uzP*+FE)ETt+97G9dz}fcJ?M$t*O=-Uw`(Ut8ZMx;U3%g1dn?cMAP|>Gl>`Y
z%s>K5VoCZi^#e}}P}YsKE%EfR!`tn(dinLU@*3Y+P*hZ0uXRrKwt0m$vg;N<@L-*L
zYPZd9QkeN%ZjF+*_3M7fo17L+-sMfpMbn4(i|P-&%lptwN9zsl32Zyc#zJ+QaZMcZ
zUia+uV>lB1*Jp`xbFMbZem#CW|5dDl?fn+04F|!JFhZM7Q*FoDpx{RU6<wvHW{rb1
zNj&ov+{;JBj#BT~0uswzXk4y==xU89x6c(6n>`CS^r_-BAHZJiOWW1bRjys&d6~pc
zu&n-+zZ~X}dM#Sdg`3p}unnYVX7=aRHpRS0tBm&`zWfF=<nK{caL!rfH+7#IZbRIR
z)i$xKlo_6m7GeT>;kBLG%IwTftO43i_=5ZvJgYT08y?7(I%2zBrA7sF5x*q8exu)5
zPDzK}ywEv<2Wl>6ftmx9ZS)I_`=8P*T9?ywBde9N6|OrU>o?TP$&2Zp&x{G6dYA)5
zRQo-wKg&)F^rD|wi|hO_ps~tzW3?E~XV66JGV8w498NVSkn96KWoyMzc2E0p==N{X
zE*O4hv5k&y+r%mUF?+E;EP`vP%{p5;Xom)qq1S^kP2BG}VjnB6@s}t02Wg-4LH;rd
z_T}kNt#^!Vqy_Gn3oo*~+<CmtY<?21KttK*y!%3o(fWrk$E?tQ@a8U~r}F30b^fzb
zSY<}!DSziRkQGj_!NG4KA`GRg=2bpYIUDl>gpMm1sGP^R`z&pUH19T#eg}ISECROA
zl$I;#TX9Ac6Nr~|*&2K%xB%RVo2gOS3xjxqv%NVFwwG(hk1V*A4M|u;N#8kkQ}|Q%
zfqsA<`$$~~5v5EU>X?i{*4O@m&_updd-JjJ)(^A{`E=1d#$D%ZL#?6UY40A_FfHdj
zDpHykm%(0Mt~~QZU#)q&!usRrwc$V}Z7~j+_x7TD%_F$$Bfnx4^(he48Q{?3$y;e?
z-VNob{=4$Ix=D`iHiKg6V>*=d9mFYET-33A7FEA%qxv?xz&c6P!6H_#!v|D1iZ!?!
zScCn%^C<Q`GzJI7a9~5&st99u{NsNqWAzvs3j|6$&*lb8>Yaqp*9QQ(Q|zL9t!umO
zh;5)URa<8t9(OdjhS%K+phL<tW2v5hJ`M5=<VSdwA(X$0dwz1HPjsgr7p}3Y=L6Ms
z)NtM8W!`c0;HNOk^)rU?xh&pDj4v2QO~>-TZ=+`IQ>H^xzgw-9Q7fY)wdP!Enir@&
zj@8Vq<4kbHzs*X|i*||5SK7BeptwiE^<xz~Bua*fDvcXASpt-F?d<IoFJ5`{Rmt%-
z$oN)V2ex#y61&w=^p4c!=X8{$DZd(>he1_y9=gSt&rq`$BDja>AlylTLL-p;(m^XZ
zPIITlOvVlCgdOQ1ro*up%BW;C{FLY*yfd%TVxbMtl3nSsRg%%;<YuIlQH!J&MIY1a
z?Ni%0hjA<xvDZ7KbzQ+;f3Umf+04Lw-mlo}neRFAnpxH$yyY66Ui|{bMj2mFTh~{5
zsAv~8^!}|3q~do!_B~Cb*1p`8Jd!+uf2?*iyT8(T3Gc5Y4&vj%!Tsc&Ma~H{U0DDs
zy}a5*t$TU^sD8ZdT=p&tcXmvm&H4&6;el-P1M*)oYXv(s55G%%DWDE}*cq6;`m+t@
zDwMph+52p*a#KBKO;8R}zuf-eZ9p+@=4-Wy?5Yohh3YKz17oFq5{*y}n?EAptZlEH
zZB$0<v)xM^pZZF*JKqIE+d?{~{-7M8mg8Wt&_sjdz~W5fhirq?f@AEZ*gJ=_ZQ?@W
z61b<|t!!uT+nvMOA7WYA4`+96a8?-#6h<HBSjHUVfoT~}#X05ZEPM22En2T(tNbVU
zYVGCUF&dsA=CG5Id(I*3%5}3W*65{-QM?BOql4@5L5TYR$B<Ep5UR+ndca%`r79F@
zj3dsR1Cfx*3H1NVp-F9_BODSGQ3%*g%r9rJ!pT(xaI$!Vi|4hPtLX%IqICmkWa2xZ
z#WbKf?MH~X6P;aUfP)cl%Mmyhj^IuPPkpGYh$U6wz)tcM-iJGYgSC=_PhJGB9Z!NP
zZ5cz<RK*UhIfn}xxV#aIRO-YLJOkIfSm+d~5l1b@Baq>s^<jC?4Y3q)n800)xA;+}
z*eMg6<nT|1_ZbHqo`hZdg#pSC3uU={+jdOcUHR5UQSB(=?BX<56=n)VUnB-4mW4%q
zQz$kIj~xs}ID=$Ph`K={k3s8*hhat{k)WWD-j=6g8>&YY+D5tL@;L8-tc7+s9joX$
zp_f#_b^whQR!KYqt~<GlL+?*wxKvGxM2$J2*hg+bF@`LA5Krb}6`qa7Sx}e}OD5I|
z(M6;J6yATBjbg|=yrlp{G(_xiMbVIbi0nbUTYc#288BYaMQ_}c_@i>xL(XKdJ7V=<
zHRdg_Vj&Pa5-wM~3|S6cI24sE7iam~V%8I>mI-I8ku(@Zh~3XbQ=#~fh$5ks;O<C4
zDHgCeFy0bpKtYDJx|phCdKLxmJt)N)--!_+9-1zA9JZ!G>j&j1f!asT`DUU<0y#gG
z;d=&De2e2`;?1WZ-<>#KCbQ#LoQZQxgX7bOapZXP@fU@G^LxlZp_cANK5XQk>Coh}
zgedF_D7{or4JayNp5P`T?)J*xq&8Uoclv7?y#wcb4vRUjqX75|WvL-@+{6|{1CiF#
zJ@Wn(UG#;kf?$QJ9r+FXhdeT!Ay_Bpvn#eRqUNy0Vs<k6HTe*{9sFVPTu^<EkZ&3-
zxrb5t5S|gihA?jp-yjrpd&OcY0{S2hFT5yFQ~B76Q{2%L8&#ZPRV*$Od~2YbmwAlP
zPVzlx!p?@MG;V}Fb|Q8vl*p*9@JH+^?8H7mY5SZz#*&Q(5y^-L;S&?*HWQxCKv}eO
z)LmwiA(gFIrkw>_{y*=VsQv4{ox&r}lbU%OLN#*>0e4Od7t9;F3;P@hKf&!mrj6iU
zlpna$RxCVDJ9jwUf=`0A53PctB3uZT8kQB?Q{nzu@$Jmp-_CY>&jsk^D~{Q3ACqpH
z(Jx)+_R7CrHiga#JylIZ1mNb1x1lODC!%$)kIF!bnjw@Q^zX#S>QH;aYdfj0c<SZ7
z7+XF2uGZlOYgp%XXopRp0VS+3zUxd3+%}4zbJwzRsUGks)e#MsRQR+aVmUB#Yk+B-
zfWMdYt`_3ep{hiLa!J1^7MPo9uj8qg$MNh*^z8RGCB)UU=>K<<neJ2Pv7G1J8^st^
zZJ`WT%j1_q1$stR#;WRfQ0aIF*ub?GXNBE?Sg%vHdz`8#F5FkdN8;~E_({@0K*VdV
z-8)Yt2W%eTc9P=V%A2M2qQ~D>zh!NH*9Y+N_8{o%{E7o~N8@?>8(OZBrsoa^y+ON6
ztj$l3>FPX$ow@HO+hkv_E>Q;Z=YD5pHZ#s13ni%%fcK2s?QxrMWl9_&Y`O8Rk}gLd
zeONwvnMn2E(criX*_Ag+n?#RKQ_rzBeT+c>Q?~h?wfWS(N?oax@os(iNxR$k)Esra
z(wBGml^v0HxWL*B=j|bs%|dPN$uSJ>!(4&ancBqegf)fP!?0w+FN(!6pCj33wV8*p
z3o|DrhJGeiz5N)~7H~DU#RA(Fbnk$nX^{_oUev)msI&sGPH6$Mh)+^{OW;Z{neXLa
z@L|d>zFLfgQ!S8C(MM#%a?H#k=64m??J4`wTKz;zl9@H9;zkkWeo7@!NDOD>8Jp@J
zk{5Wixv`ADI$UJuyfuLD2tGN9eG8<|3~^dpt-QkuhAH!)RoO|ayqm>Rbtn8BrW+Hu
ztIi%)G8Ayq7~?y7B*A-wwmI%Y@V#OB`_9uCD_l2+QRyhwyxlzhWpEtZ;M$z(Nxkk`
z$}VdA(@sKqeqk105qa*OqFE4d7lR>Tp7uar=?-S@1V;n{p&9SPh<iVqsms2u!i6yt
zhJ14ll`?ZOjy(<SaizCn;NSZyn%7M>(zYo0&t8fjvElqjTNCRQv}qM?iq8)cnFV=!
zC^0*2kicx6hS_%_B`<T3g4u`4MGiy?TaSK)l#<>Io^kj|#(uZ;$Ev?_O~2o3;?uVR
zh(zZjNEQH1763I`021+aTukv-lz_HvMC(N;0@s-Oc10<O4QA}rj5sIky)N~Vx!i8I
z2V5Hwms=z#&JYy&hzAo8h=Qf)bJb=xn~TFSc@Ld+O=4qjm!EAk4<%?Y6)GmkM2^`1
zYjU46e&F!^ns!^=xY&0p+&8)I8{v6;x_3Q>Y;EybA9a_BN8KA(XZHgB3V5#9K?U=T
z?J$^8PV?Wauf+`eJX`h#fd6NLdP?xVRKJ|<R4#*S-?NI5+Q$iNb1}VRqCNnZS%nm6
zku|bbpeZ6}8o8^0aY>0w=UGs;k=l+LrE`{!j<*^q-y_cauY&Fc7)*VM)`Y)=C&hN)
z;6KHP_ae<mo`X<AH`F@g#AvN7x$dv=Z#(;fGGJcvozFb8D?HD*>FcGA_x$c(0YbxT
zV!X1SKk+lO=dR#o@$;46_-W|%2Ganx%Y9B=1Zo6$Bis}(lq<uP2N!zoOiUW(TFy2*
zE{T5X<FB+hY;Lp<Wxw#Z=`N7(fDZ9p!**DVfhy%3j9HCulgK?b)0P{o8fB4N9BG2_
z0>G#O9CSJ$!Q=V*Ac75j9qW2n9R?bLTZq#DCUGU%(Z200YJxrvJ&z{67B~#SF>H{<
z{1a$yT!SgxcS+fuTvQ#ZL15Mv1D5{xaq9O82gH8%i_NyyzExiqV{9-!Vkgp;Q>U|*
za#<*Yf#A5Ni8&yOAZ0~NlR-+G^QP<ZL1>T<Knb-BSfW}rrvN^@)EupN`%+<-I?cfO
zKghA4H6CttJ|GS!E(|RaNA0zKF&#Aq@LskrVVzq<C!xeU19FiML2G(mxkZa5t!a5B
zt?5@{17**KOtBv-peV8H1aZ%9rS$-TIIpx9IJ%9z`p2G5it;^&0BG>|fPX5=1;Pfr
zSsij)5&Oih9!<`AS3~p++ay)JB>gC-gF9ct=v&uz3(RK8&DlIOfjdEt75BBWEb_ZS
zE13=cNKf}+-HQ1#W-mczwn=_2Spl_`+KqPW$k4H*4j_AH)?PJO88Vtlim(d)3?I^h
zfT=b+sc|U873>*Pxb#c}{1i?1VLRL945MFzS0W3sH-9w3>=O%~I=@P9MCqp@?>f&y
z`@ob#2t$swSpx1nc}o%S!W=<|BZIj)o<3r~=1c*J-qD;g{&K^_i)=fGo|(0Qkq2}q
zVjqF9SIng+PBPPNj8t?dypmtBKcu?r#9c-#k4Dhyl<ubol`^pcj_Q8{q{;FtyOpsN
z{@i9vBja5O7CA#6e>HFX(P%X8=WnW&4q}>1+r?3Q!sGGzA1(E2T}^HcCADs$!#0p?
zHk((sIcCx8Yp5_!>qK7f28u@LUXDTsH^n<m4St&~VaI8b)bT6gHFlD&XdJL7)v2kC
z028~$BEvB(b~!RtTa(f!obmRN98t7aYK7F~L8UvdF#yrA4<asvHiW+?u8{K_(}Ho^
zxjhd-yv^38_Oz)E(_&)Wo{22u5bQOGX27c79hZ)vBP$4ZT7j6}+yXq5SH|=PwUysD
zjFzx67VC6|^N#X$>JZ@z0Hzeg)J)MXL><5O0)nlq;kLoXRr*r72y12adW{-2ZdhEm
zLDMx<JwL0cX3aZGiwkQuZ2QPWw=>mQ*A+Cpry!+PfeNMI`Ame{LD;U2F15MOHHQ9S
z^C?H#06r~H@<v}u*}zoyFXl<@OK=-}$(MN(Tw@~%PwsZaPo~{TUxT6i5_}WBk9;2K
zF|mqon`|8r`qEBzP_a~(kS4dYr|^sp!SjRD47ywD*XpjL@$4hO0G}DFWTm}FaALm>
z@*g-5Ij(Czu^(*nd`H-PeTw=GnAz{#CC<lJ=@8q<8(W+gx=DFC;i24~JIT=-O^2tA
z^C*U6{$oUgh~C7w5gtR@Rw)4bDL3^9AYc>O2`B+xZbMxkXiI-XTED@t2K@6#W-`3<
z-v(D5m~U&qZbJ99Nnb{-8Z;^H@+u{tq1r`x1)0@z>eN0$2$gviz9|&98K#f45H)+8
zY`+t=O-Q3QJCTkLq0W5j<ucZ&jg?^965N)TvugH;lUI9L*(7$Lb?VS|He}b208F6J
zB&b>XW3aUu-*_i<J-s+kt)zU*F2L{ZDyK0@NtXwnI|xP`+OPiv$Nz7MsvoEK5Y>4;
z8-)QaIad?vN#X>!4nT)=2h=B|v_n5hN_YBNMVkkP8jW6{9`o2K@VHc&BG&py&wQ0S
zP>Y&xWzr~&a`Y`6uih9B@xzXan;IYrDwAwM?`fEg6x15zKxGPMR}j_`3QyWE@~ZU%
zrC>qPBYD-{q|vEH;2d0)>3x+f>`%M`cNwKI^Z*GpVe&b{33N-!o#-Y)AyD>_CkaZK
zk6B;{xi(XS`aOIZJhq+Bmd1Ug<Wf_*vrBV2!6&i>AmdQ_5?z;Qs|9H7n&k|)&jaEL
zW<7EM#0c6f2kZ38ljJ_5-rHmmhnf>^9w428<3|n!C<UFe8`nC~hHj!h)VU@Fn^R06
z;R(uWSf>^h1pRdHLse3E3|NM2F_iuhva<lA+|-Y#exsK$TJAvhk^;)uOiesh=_$(x
z`Yv!>Sc#xE&!7^P!VO9`DcKLN44zJgrx8yXMe0+KEa9c`Hrz7@sx(GZvZ%OAtIE@Y
z)XPFSg)9GuuoF??=X^b@4b}i^Pd0xdsmP!q__EcJ47D#qfg)cayvw8`$ZO=9$AD3x
zP=lYT{%>#*A$kr%M_;-KGN8AxHc=t#ElPlE%Nw0&68=zf$XbOCX$_-l@LzQ-fF>N@
znu!5okbeh+4zg-XryXjZN-vQSG`4Z%+7IwXnMJ>&8ZUwudLI=q7yNz~LsW_p;(_PE
zW1s@kycH~q_Vo%#a~Ro{!c!&&mYx#{WZMHerb|v*?wtmS9A6|3Un3dPLN-3Hfp3CD
zQQ|$-!=zRr!}J3@8IKPgB5Fvjy3zBuWPP+JU5Tdz3{;;dZJJmJpTBpN!yJvzS+Mo2
z6(c>UwyNdhHnioGIl%^YW#1FOasDyN$^d>CUJJc>(B|d-0}#VB!=0hJfh|e#G`p+Y
z4tQPoQ|(igM?pe3o__bGdJH#0y@s<3^3ts<=+{2AhVxUFHr+W7KG#z6e|?&_+hlj_
zav(9voTMJWH>EqJ?hbF0CYjo7Y1vs-xr$!d7{Ic?r#V`D#A&;Q!9Ad6i@@-9-lVYt
z1C@H1N??AF98Bs;vXm|0h=`#xjQT4yDP=IHs<hLsv?ZvYa-$rbEs=pLx-HP*q$P1J
z-=uo!{8I%N6=qR&ftFT*W&y!3pb~^e1N4MIYe>zN)N%nb5nX`&86vh0r3!XI(}m$S
z5WT?DNp%Qd70^})C?~Mz_7*U(P)7kDD<=r&a9hAp9en@)<s!gR(F);y0Bhh`|6vJ*
zp9X!IOez3`nvC}=lP2A#|HBox_y4CW--nC|ESunf>fye~0Ynat{_p^3e<Y3*IRI57
zWKju1WS>c%kvL2-F(6IkCeSIC)O8q5O)FDRQxVi!;SD6fQE{nRAp1bPLYYqdL%*rn
z@P0Dka()M-1%x%`eoPL0Dh+W!QP9x=$(45ZLKn#arBU&bFyRt8LCF%`#{Kai_>yoi
zcgP&W4<8Bte_4~~;0V5)JXHc=AWaMDy^S-$f(!+rf+~tFWIv8zZeSbrSR!^Y)8s*@
zJq1{zghNt0;A2A)L1bl_H!^~<3`Fd7<Mz4&O%>49@)>v-=5SfzDsoL?Qsq)ZuE^d0
z!#Q!N?I;m=7BT?|zzl^IBSx&~_+%)t6$elvp$P=U`mcNN760oFB;b$he}HGb%xLUE
zAy(eP$h)U3Hu-|D#53W4z?E+xlDN3x#xqqU40Q&116(u`#8v6>k4^c#g#oawVs`=~
ztczsm|76M0MPZZ^#nP*ygc+)0S2P<~OH?%k-JZpB4VwvowRC7xLaJNQ-@;!x)UhZu
zXxdRE0r~~xQdU;nFj@|CsV36UOKM<Id9l!B8jur6NHtV!MSKO6EUNZuP)tJIZj+S|
z#Q^_urt=K=Dawl>=;MQ;tmEtBmHxMle8@_$9VE+z14Y=7EB4#5?UQj=K=?7vg?JPN
zYwJb=M&OWEQC#Jt+{gzilVw)8u!<^;BB`Tg;c&2(%?JDhRFqxJk=$sJM#%+FJ4!Pu
z4=873xyB?b+g%zo@)Z}yLVJj!hu6a`ad#ZeGW;1z#odv88Zr>h2wEgpuZt692zYri
z7;y3B<t3hqMWJ0j4DB2?rTSHI*u7G;hwCBA2wYdLp|Mh=J40nMWi3;jpy@#if`$|C
zfU*&7A(09Hw5;5er5RsNK!q>Q#}`KZ!&hVu#Y7Vrkgq3&ZOtz82N{86C{X?b<BbIh
zE3Px4J&-hg4rKT{GF~ojgbHi^vF3w<IDp{fct=dFa8LQ?s$9x-`3z*Sl5EI`EZ9bl
z7s>P>IkJ33SD*yOc}Qz@S^J|qQ4?W*Qk+mYGj<L(9S{r2Z=wb(R)p$Sv#=_&O{n<H
zmti4N9LRqYB{$mCEyu%6mL*sLhBhYZ72aO;;JuVs<Sn}XMDD@f&iH;%PQlk9fGj``
z%Z`P7x`_}4@cTs2U`Zp0wirK&(UzrJc3-#W|FDr!aUwV-{*M!3tNOoA0ks}JyKJa5
ziszEj$0P?g^svnqBP~g2E8!XHvjs6QRK&xz!#1A==M0^jDm)Bo$HDGmlR_1Oa$wuz
z1N$vE6D9at{-YYDa}$jV{3m2tf-NQ5S$U&Njlr^kZCIe9OB1c4U@qKWF3@F3zYpe1
zLn*URW}#F^z4M`!0X7?L0cUZF1ERBo9L{{?GL|M<l4wOy(2}bhVpVig0bCsBiF)v$
z5en=jX!xO*BG@J{_shHD!Nf9ANI4IK+c4mj$wzbMAet=`2)Z;R5hgHnwXy@K*zlla
zxpbH};h}(|5Q#81$%);j0h=QXl>c}nBVYkis3xGDsw^b|@yBW+uLkPhM4sEoo`7+=
ztR-+Q)+{9h>D17vN!igy>+uSB6pkx!l9qx`ECdKtp0F%HChRZh^ilX_(}4y}N*P#X
zl!cd*Z;1~sUlTqc(bq-&N27%o!UZDPj(Favk`|l=P==A6cngoJ$qovg02+S$gqfn+
z(VWZvL-^nb742|k)9Z%S6+TI_;^CPH+O7#GA5f_A9g)NMqK(a_;w{~crT{$<iXDgJ
z6j}_dM&uIRt}L(uCJe0NF1SQWZ>X*)2{3BPIw2*RKMu-cm4|UH)`KV$GOO&jbJ&OS
zNtP!F6QvCiobX;eH{N05&ob?3iE|9o?FyoZ;7g!RI`FyiVlw$qg1|fGFPpV1)?p|@
zds+icfe%fAkb+LMEkIr=Au8a#h(E@(2=qs2$Ba#AZ5&J~W=cE~XnA#~l=d{`q?A7_
z;S||uGNk1h@1`K9<Q5(dmoiA$A`YEWOO#d!o=A{vx1_@mDgZ<{?7%jf9+Wt=Drx8q
zE4$d4P{^Q9)8YDr9>T)ML%zzdEE`RvR;HNX8-&wg97eKbVUg5X`KAMIHU&-e1c)Ol
znr1~obR8=@MM^vlG^ZT=IOC8#N9ZVc++41p!yadb;723~Z0blHEQsiXgd&N~<g!3^
z9<ngXqNBP|rA;OUMU|3p<RR43KfBYM?za0?TaIc)^jhf|Pl&wq`&7GWst_sggQO=-
z+Z>)-fECF7pek%DGr_vQ5B!SK0S<uwn+AK5%V~H-F7hD9jh@v)+R;TtXULD+tH^$=
zR_uVFFISNhm0c2UgzF$3VZZz`=&k;;Ua<$gCu&Eu<Fe6f2`-^(aA4KaqjMWH`LIah
z8F}~)D0p0%D4oFML!<3?#f>ZPEEl-xUlwV%uR;R<vKy)R%U0zj>GCUUvQdjRY_f3t
z(|QIjQqH3|+98{Lg3>K49UU23O^5~nSwMdQZQ*KJ_i!RKozl%IS_-i%x`IzAo#0SC
z-H-=O>1u@1h}I`sQS4|8(CW(qdV7}}>v9|N3>r{HHYR^PY?m8y(hW>l4#tB}isV`N
z46;j+Re>WZ(Y<IY<Ssl<iWzcUK1lA2o~9wa(et838wFIBW-RQLyQ3`#ZVtaf=#wyE
ziF%GETMoVn(uO7lT@A9CoI@5f<Sr>)VYggD=!#yVpO(+%0bG@UDGd|G_VRw9$ppv(
zky)U3`Rjl*1;REODdK1GVoux-g+3p$E75Uu@VE%CQ3ZF9nIUsRPDmIA2(lfI9*#DO
z^1Y+4j4gP@#5iJ6S2exHTs#~sdZ=wMvI7QNu_hZ)jC!?PBv%U45W#^lLK#O}E;A6;
z{=dx8Fgh?vfleNkLUgoIh%Ta~0@)iqhz?%BRD<yg9;@Mj5P8rPN=jZdUx;OGLCk_2
zkB{{UYEASN{`j;NV>DD*`E7EeAIv~Yb6%dHu#D&&Ik*|mP&jZ3>k)Jm=o}N>!9V?A
zdE?T|zZ?=d_ytte>-VC!4H%F)WHpdd7H)|F4ogBAiNh!T*TGC7PWsou%qUdSf0Xjv
zcvBUOJMtZcKRR!N!H?|y<vb6{M5*_ZbExt#_y5=VD;PIvY872WC5ZX|yfy<-yrKhJ
zKv7WU{?ojB^r+{*&hLvJbw%fOqVtNo*&&wU))2}tuUP-@H;Oa2V!Y<T*+ApDqS?bM
z7WL2z$WcVaB4VOfP8$ReGWvIv7`SmtAqILtd@d|&@OvOlqgbgJjHU2cP(Q;UF@pTg
zf!tXwLv+qeNi%HdJkd;Rs)>?jsy5A1UGQN>#C5LPr83n8aRqML=m!Q-^a7j&xd@ak
za#nd}zSBe^&=tcO7GoYo*Nr&TC6JlA9W7&AW*_Qox5G(RH(ORb6b-EGNi{p_7(N@E
z>oq7sG~mQEC%&WVKxk<kRCOB!2u1qZ2;HtZ>?28}XQ!vZwELeQs0$39;n)MWcMebv
zU^LJS-A)g>aSTkd+zqnRGfZ0zw;k#hA#pblBhUjO5`bdUO~q0aw;gi13|#r=anwTD
z_568G&=zop!=IrBqFdsoZo&Lkv2@B8)SxiLYZhVvC3}2Sc&P9GX$fiK-yevV14#*k
zsa&ciZUYidIsQe|OqmqOZfH%Bc8uvT9D=C-uj}x1h2Vlb!Od>3qW<G;<xW|#Z(sM<
zbvf)qN^Q7b695fkr0fB{EU8+P3MXV@<<i9H1!=*(q6q=|ukv<(u35N1GL_&Q+h14h
z(InuL|LYZI<+D@arp^tufVqP4lfjNFQ{~qo3}8{QH3d*EDH(CIQbK~PAKktnDPiRS
zps(aou~%-_`41O7ns`JQ?o((*A-ZBr5}lk7^6-x~NKWXN|HmyG;6nJvHFCn%f4uIW
z&Xh7D!~%4V(U}cSwfL9Y(ODMyVRS?2&n!*Foi*Uv<Qz3mk-9jAW2^;#MMssq4{ZB@
zT%RaDcj(tCQ)sSqZ)&dQP@PWaeNg(m8RmYB#Ike))!w66yg3H?YD&r$N=P!*up>r^
zbNN%9M!Gjk%hh6IGyL|d!D7=>H7QgS?+Iu4?|0-?NlFdaV-hY?e3DbEo}3KqlH$~i
zbf=?6mX+@mwoq(!ucuCiy{TU$=P%|Wl4?nkWD`D_k_*HR8Pl{`CStVrh7LlHwI#d1
z<RjUm&>*JPJV{AUJ>nQeFiX4EW2m^9;;-V{K;N1GgR;p2)<*1oXbY@F*gG0AE++$w
zbCarQu8%BR#_hLtwT2AxhJ0I|r%Q>_t!j6n$567JuHYcD>#v#ifbPbiOtM9ppwRte
z6<CtWo%z1B)Gd^_MH!;GY^P{jsOVigFptoX0NyIcbCCF5iODbOc84R*v^xTbj~Q@z
zTsB9jVQ?W-AZp$-T2M>-Ge0vc^V0!N%^H7ZXj)~4COh@QKQc5!W~fo%G_+74&1(e`
z&DM^Mq@~;8*P|<8y{IyiftW-to3W|LVf+~~n~}-LW;9LUr$+R$95cHx;<XzB+#~96
z42dkiI)O)XekPS5o!vEO+cRQ3>ui{*wa-xU8!4MWpdFKDn)*n1^t;vpTmdt}6$CU%
zn1G-G_WwuRd%#IirR}4hR5^85=P=VV(>*ybgdq<(s2DKkgo)2xSJ$+zi6mJ8K~R$9
zoD@_*M6w`R1r!8C1p!6Gh$wQO>H))k`~UX4_x|qh&U95*>I$b$oqEsvKF{;MMecYO
z3A&^&Q20NPXn(31ZxH(%wuA4dX(c0`=hkW>cJWS&0DqZBoh3T*g!;n}AXbF(7X;Pu
zen5*YDYm92e7{WsuYPu6MX0B(8IvKSZg~A^l}iD%WqJ7zYKChezm6*x*|rg}{dUOT
zF8VUdt$Zj|@`uuG{CnvZo-N&CuR!Gney%10nSj=~(AAryI+*XGiIg-&GBF=Y-2i<@
z$!|%KYNh6E0lTtMSHNcrRykYH8Vc7d<mgOVVw9kOHE!tW5Dy`Ss$1q#hKfCnbjZC&
zwx7yhj!5K3BzHBrZ8j1>NW2$`aMM1H5Z%ut@+P!>B2t4m(%TN_0VEs<LUIccoPPWu
zna2Cj^&<5aQZ-tZ&-Q#q5)d9D7{gx9PQv4ScB(8g-GuiUZ?rmWwvDO${09w74Z4=4
zT7^CbPh7y!{7rr@pl@lsFre2Ixklq`d7!uGIdNrG!lGbGz1&<$V3i69a8OGYIZETR
zC8IfB$>gWcKG$CD%Rc9Lwskz?(Rnmu7ouRGsG=JNxHPJv+s0Am>q+uXgB6rJIoqzG
zp+;I|FENV}_!iZzCk=a=fsQFVc^u9X3kq>|B>LNA;<u@iSV8`SmTAdx2gL91C@_|3
zUm8b@>G|2);2@n!st=8PPvftnNZ@t@X$NRy1KoN|t88b`EXE5i5AVE+;0$G!vd)UM
zw~kTd=dnicr!n3}yIRZGT~-f%pK@hir7!=6Z>DdF!M+~EJWBn~u<fjmSi$D<e&YHE
zFaE&yKrcj#`;gnlk<-C-@?rHL=!#n--z(4Q+d=GDD}M(X-t*`up70+FeC4d9d)ZQB
zc6b9T85He2UEQqgjqL!!V4&2gw^%I3^X6}n!^$)4g7^(X=mW706fmRVaB6wcy%6bo
z;Wb_V(RK<c14dc;Lb0D=SXiBzhTd4}4C~33iZS#DWm3s2(gf0>Q>zXwT6Mgp575tJ
z$WVCzok-t~jiW=7KZ-u|gV-oCK|W4+(ON#%SqWC+m)gfjH}tfA+2gN4S74&PLg`N$
zJk9&?ys>l%<s+iJm-sBpU1*@G)0`g07yPK<r8IqCY$sD;V)s^AY3Pozk(p#6Jw)5A
z0SCYBJLH<-^tEUkmJ(e*B<<GuX31{^)n3wCT^*P=jE|?Q)Gw8t{44+Sa;GT>Z1k00
zq(8Gy_+;sUOd=R?KO*Ik;5|+#6^%tA(P${;#14v>4|)Xwf2NZ!@L#?_Vz?V{T*v1m
z0>NOeKM)4!DnItE@EJjW;|r};*YFMktnr5o#|}TfLE(q;A8gsGWy8j`Ejo8T|K_gK
z*n7M$`G<SQ*VI3ol=LHUuqI9*`^H~W*S9Y&d!%R!led!A2k3|D?)VP8rs|C#jn~l`
z(mo_W@K=9mttCcDw<b-hXTr(TLDwRg1GN4F)5#gKj?m3~UgrC=e4D$lZZ@gz0cZns
z!qe->%2dTdPbvHmg8V(oUMHutm85Z#rQ`%166__O5p!c-((l<RHb_jOtJo>gc7*X5
z=p3KWwRD9vP5M~2R0J_J&nT4m&kBq$+jDBL;HGE*md!$Vd<gk#45Jju{U66ktW6Sc
z%OsiR1v=e<x@N-w3^y-Q&ww`yXCERuYOMLLsEe%@F>ict0;4$cmHkiSJgkjm4<A9o
z#@_T&mt_hnqn77vlQ77Jq&q6wRTZ8^*uq?7;2s1J2=D2qNp@q0=<u~Dx&&WU-IkRG
zoDVop!M!dM$4gFyd(?9!6<gQZv8Qe`1>_+OtySIcZSaKQhIZh_ge!p=GR#FNNvY7}
zf`<-=MlT4x0O$=U%!EW1_Kb);@r77%VRiWbd??im#CTR8P66IYoCj{ixicw%H$+lP
zoa%tLm(~R;L|z0-a>ZwaOEil)Tn)ga5iC;I;gC%uT&+es_7hvk?zjnkOHrJ#(B>Nr
zTvySq&Q4zYQo%7YMJ$TGL%|bVLUxg9@(ll%pdlY5iz*uJI)^tL0ztJo;syD-InrzX
z1&9$1k^1xL_89-m{&o2tyuEdz^B^%Zr_E!PmCm<X94y&ag@@5BChAJLOh^d@DId|3
zLH7p1Hn;>lZ>Z%nS7rRd20#u4<hm~2=V8C2pnD*}!jzQt@_Yh#>k0meeHacGL=>b+
zN=N{4rz*?wj*!+{mS*Bc{tV|KN`0O(%}PavspHw0=nh_6@h%;r{UXm44-X)@yU68Z
zbnMOaLWFQh;FaNx70(BQC4Ms9jW|w)<3Kw}8Y%-O5!1c=U;lRN&*joIE!V9unhDqE
z1dxQ!hX}S}6j-vXn=<P9Fyd|E`te`4Iul5mrcVjzK6I2}PTF9**y*N93TXOPrc!I0
z!?QoJ>}VpE2**Mp8p2+av>4xhYMLuZMG>uX{>@&rT+?)vfbZO%0RspYIKKAY_UG#)
zSu_AXguJ3hcl!rW@~o&XWsOEAY@g3f+N#i_EnQ5eV%}tv{6zALz~q7xWLbe0-9ofz
zXQayUok6bw9|yf6xZ$RglC^YhsGE5>lzVB{o}}br+j;sAFSb|ow|tv?bEq<z^t7Cp
zQYY2#c`tJTnM5{`?XtayY&X;frQ34XCx-JGP^3<r5ZCTkmyzcq>&X=MBHQOoHh-!p
z+RWW4M42w$<5HuATuaZ_7IJ-+BG*g-FHX*zO03-ZBvL+$e94_gLzpl3kYZ=v0s8qJ
z;*|eL)%p{Ja!0t?XPTVeKz;c;OkcZS*|*{%B{P)DU8M3Ch<u$?^@>pQrb|lwZB(lH
z5qj`FsDA07ustVgRE){!?KT>6HISyMce&hZl&q9qB&WWn?hPB`dfpi{)ccsxU=F`^
z7!B3#6CLJLwc!s`Zm^t<pi1pQK7}i_6WNVQt7rH`s<i6E-3zw!AB8XfD4U^f=E`NO
zC>trA5tUQ)DZ2K9P+njiS)<;9{Xq6`SOj!Nu!qryu+N|!WQ|q!rk^7RfkEm?dW!zM
z+aSoMoMNBzm0}^AC{L%S=&39tx*vQpLv$pn6By8cMjjmuh`YgLQRIGH()!36i5N(d
zjzAeO_kZ5x3@?#Nt2Pn8EhCr|@JIcY>}7EC27h*pC)L!9v?VDTva5;Szi%2tJ@aP=
zY*Q4<HC5ynaUEgFVJQOl^S9J*YMp=EbI|5NwD?gBA&i407;$q;BLUl-0f!S3#oA$i
zBKqI<V&$2ttJ%@I{l?InebDvEeg;{g*hR!j7WIV>Ft2EUK7bDr6}+Uuh(rN=F4ZF7
zlvQ}nmwZf(E_kniSsxQ-?Tl>qrDBV-sT_~Wz!1RQ33r(~UaF5*SD@VS7gi##q5h%i
z``EOLs^pR){TI1tr;<seA2WILXMp-t#~?)Gy?sQXRHUiR!8Sm8NPny@7c6jKkc5YS
z3WCUC8F(;cMnSCLWfE^4c~qD_4fHhsEodFvz?4Os<l#AZ((gy((OkV+$yIz1#h*fM
zfqNhfT*)w`hbY9GIT^?jBs?;LUqLJecsSfluqM1I<%-|eO0H4Nm1-C+-8|rxm;GiY
zG2t!~egq6*H}l?bzk8lHp&*E?I<6e_G?7IEVg>!uFlr;_+cA1Q%yBfAO>pQxOcnzS
zQ6d+I!DN%9G#YvIYZ)Ty@GnlGcxNSqG>ep_)tXXiGRh(7>MAdW)DlDl(alj6+lNaE
z8d6EX)gxiUF_4WMt+}ni*CYpB^wa`oQcZhaDmb9h3aXT1nwsN6FtJ4G9tI#lQN8`y
z^2gxO*?~w}atf=g2Eh_1SIx7d5Fl~`dNgoZB<Muqrax#n=-5KNEv(ckccL_DGf2Ip
zJV|ID&5<DobuPp14Q9Iliiyc#C&?4S%(47K>$0eY6Eb3#xk)A$@+8s*t6CC{F9sK5
z+gilA<tC~c)Q1uMIdp7u)r?_A45Lc645W6oFsNqOk}{GgRt=FCQbk<c3p5BYT1ZO*
z#3l%^AvjmmFaoKPEg=V`Vfyy-KyNPxEfTaL18uU{Wb+Vm7(}e%MgiP#R9Giq1z`5z
zd3OStzvLyQbTUvTmv6!?3F4&+1kzG~L+23LZ)8tBpT{`6=7KB!W|=whC0<a=fznLa
zx?XL5Q__5!$*!iABymH~8ACiUKNNRDkpeTEyl^%ZX8OTaB`Oc`2ebLN1^`~z5Da5D
za1l}k1j!pdKu_j^UNG+-;C6w&o7fP!tcz{t`7C`r72y<<n(3uL7I@G;IELYqa)bx~
z4<orSJ`svF5d%r<ZSdW`f+4&)O0-T1-G`<LaWk(UV?nb#R9C;$OG3*j>wri%A{v@j
z1A3<5npzB3v<9v+l1U@gG$@-Iyv9g~(owQHDLqI~%Cl(``OavD+YzZo-%0dmh@7?)
zezYoPZa{%;RTozD1%Hn#n&9!mykx9YUrhC-L_bZ{b~JJY&AW@1{{)^kt$c~zLpPIN
z^6z1yjc}(U{aXRbND}p6&Y(J&KD0ULEi342<IY(DANuGpe$a9CLKNN~*7y{jz})qC
z4eL@ww@usg=wjGK{`|0xq`yD+|FKm#TfLFhJIQOZ_4_$s9{euwOlg(<rL=8cUZyCM
z$vg@~Qz>%`LV0;b1z2z)GCfa)1FxmhTr1$Z4|-{`47F$-Dem+!kV%Gh@13}jj3;xG
z4U}YEGH7q+>OheUF-+T))Vwa0u;%}(vL`s*gj^o<EdMZ(^8fh7|LsDr7XY4b-Is`d
zNn+oUwgvtK4M}oy*OYv$pfE?Wkhvizr#S?j{D3~x)d`K=P_qW-X)1mcI3V(-3f)j$
zDlg)fI4rIK{2`$80!YRGKF0CzpMUs&Kh_cZJ=75{`18)t*8VSo9*9}|yQqibvbf0#
zvR5Rr|JUJ<G9OFo+1)|XnHjM#9!=cwKg2rz6bnIT2z|-_7!HA7&ZD{jrs3hqEQA@J
zVd+$HH15xR3tAw4NhwFpIZ3&?osq1p--AFPI{T>-y5pFcDtKst+PSH+e%T<bLp0XR
zCK$3QHv4T3$@PHo(!H^2A^)Bi3(BV6b2JtGUe&p&!Q+qDZ`ZuGWwX{TYdT%|8VH4=
zh50(!uWb{1Wu!`NJwG#6JVP%3#{o7P;PiFmV=|F^tPcq6CvV3+dHvGchLV<DZtP8N
zeUtX4L&+Zd`}i!W5Ar-*+Oc`({uK}0xsW#OK`xy`TC57MAnT%5PsNg19B?mJg)#$B
zP@B+dnd9*Uz6&K&1D&KS_y+Ov6#8{i!fP}JqMrv~fFBS+c%$fvfb4ZWBoDIXP51yw
zk!S&+nqKe(tp~pA#!K*~|IAMQV!uh}Q1>U@G#qOf`-*NLN!vwUp46Pk5?c8#ITbH{
zgY*NNV;&j9l|zMomu#l;+B~0H5JaA??}${if=Z>@X)0Bz+C+fx;oEzaYctF8Z57=b
z#Wjr!{Zb^~wS%}3VYjoB3Tp|tU1C99D|;eo=H&+LpslJO;SdEuGYm&S)aNvDQc)#Q
zQBhCBMx}WvI9)A8?NoJ~>?M`(HR8=y7U-VR@*chGuD>)|nf#C+)q52$aN3mkAPgAn
zvIrRV2_$%HVZ;6`R@i7*EWOZOP7m|J<ToPb!!@U<e<iUW7yOP7XsGQk@%8>`Vu&=e
zUa#~KWx00kQFMUk)3@S7$q;8QU6w)W)bKd^&lA#G`U{&$#zJp?l<&qP<bbirKN6Yo
zwn1lfDLWyKLA9x$c*j>cl+Hoovd`50fexdCi^wE<ywXbyC1M|e%;79?2)?1Y;wARA
zcu{_n96=()HTetpr{X0(SR4|=L|`RINgETNRMy)r@|S`s`jO_WwI;wx^ers=KIj-d
zE%#Cm(lO)+d5aB`=Yth{Oq?Ol3vw(ymw_^fY$65ZE&WGnwmJ?HNc;IpQZ@t3!S~Mf
z<d5)|q_xrk^{L#o%(umV_XcqsG`f$0ZJPiL!SlTN?e$s@qASHx{W<uU`%yZdJuN<!
zHzP!{0?Jo>xN)3(M|0LAMa;+g-D|AA>T*(DeB(ZPbN)SB$#VDzUZr;VIHASUC&^5*
z!^`RVUG!NxS)Icg{k1o8yS{_;4#@7>n^+}f-?PeeZ_wt>5M>@!o*`?*cIjQ|(s9}X
zdj34J%^1QS?>?F>gqFoR{|RYm$u=HY;SX<vxYm5-fc`b@rFA%|Bh@iKDyH$_;+R<L
zKC+4SMNZt^Wwp>U`G|<g6;hSd=6N--3`o40fW@MH$kz%qwHczicuzTJZS;fzcZ3Op
zE5vhPp(8Nq+30*ZF)!90HDc+QFXVhmvNrinq7H|g+hs71ga#BFqK7cL>o~!%TeC}y
zD}G;VIyOj%w|m%WHXrdoxIh+B;S1t~Y_}c=BEHB_ityGz#Ce6N8<zl3SS%MuJX1xa
z(GbA0$NL`oRFJ}FGns}2jIO2>BL6(>3-vmsR5Gee9n?4jy#X`qM>ra$Sj>WYqT_#`
z>fHlF;G(i$rSTe(Fa3jdvpIlBkopPwVH;nkWZ>6#?0lmydakgFR}z}%S;R<^0t3i1
ziSuB7-)OWC0%OMIu$>ffBN_5dkt|(JCG^r<6U}NG{T2fp77>$166puXd`Atvv1RD^
z6$TZNA2}^a^);ytPw;;rH6N3w0n$<I!I{vqg<KvK9Oka!I|2i%8E-Dt2o4*!s0KE!
z3fs}=+Gq(NL4&F1NM1rINOUUSLU|H~FO?T_zu}!tVe$yIjNI4~yr=jf*s*G90!E70
z@aM?+;kXft<eQLfH42~;XPWn9P1y0GgNiN?0{a{R39f!BqwAfgeM;z2;-5(Q>p(&w
zb}j*Z<po@UvQ!|Q1jBTiXq}feNfWF$rwJIKQPvXb$M1QX^d@z9H?5`iHqoja$ms-W
zb8Q!aYZj?;Xcuh>)!rZ)@@op%%P~N%VbY0u01E_R<M{zJhsQ;+f$3L+G>_S5&BCm4
z<r!FhV4RCg)H(PXHKkTZ%)@iAVc1LlT*HRY-z(&QtgdJ8a)jeHH}Y=tDpFALkNie?
z`I&;^O#T$&HcjT`7Zep{@-J3|22(KA5|}m3=7|Co{b0Xm4kE`EB3_n0)=L_z*V%)y
z++<Fy6d`$o7q`A3mdMT*a=AZp+PYHxOSH0()GV*4d#YVM?J50&_7`;Q(y?`$=y#x8
z<_2>m(ZX+qiZUSXiv!TTVWU$B>~iFv%i;Mb^pPw#6HkXj@$ZT3_={s{{}t_xRO6Dz
zBppZ<d@3D|*Ir4}X5}|EE~$C~lvxOxXUEas5)*pX10>Nk&x`;JSM};O%mw&KbOYvj
zHc_v0O?4mgkD3;3Yg^W|gUN91s}P}(o0(s@>%_(1la$}Ln&ghvLLV~!I+|Y2zadB(
zvy#1{K6LrrJ@DG=L!NiO)(-l^-yj6?vvS=-)o-#;i%n1%Sxwi7HTGm9*yzEkAC<g)
z$UFNEpGQ+rio%N!i7r`-z$rS_2)}NnUT{(al=Wg5Qe4ya9osjr?eMhTI&lJ#zAlLu
zAOYGX@jksMv4V9=^x+LQLW+7f+v>Z19r=tLq4z%A_)Gd71vimzqMxvhr0WX$99u6s
z-TuVqWDuWj_9m-KdNC-#fK!D(h@qYR`wJahwiB<u(z2uGy40D1-t00{q;`_p^Dj@_
zIgO4^yvE+*C&Uu|DIeudB3s~bwHj4+xu`{p_Q#Dqyka3}>6=N#BRkkMeKtbE<yyPf
z5UWHoi@+6Qh&DhvjN&oZu!-Wb63sUk3ZI>Wwd>69rMIOSiT!~M<YmNjj!RqeKB2F(
z=kU9SSCht`^44i>2;0h+(x1sed!0BT&A<hXXG5T9_Zj_0-4i%2*CI6t1lDSIYrp8P
z+P@OdY+EM165f{?M{bNCiti^qN!MjWxoVPnO6ur#zNGAuyy%lsu3F=kfPOoT&f<65
zN<F>&EgC5BCsn=PcG7VQnSvaC^HHkxsw5pU6;kFg?bi3GgzjoDGK-aUv13hMLkMUf
z>E8X8=!@i$vK#J_ju77DnmoI}j<g<4csJi3>Na_q6qnu0)9JRCBoHgQd>{!NAQe~r
z*Dmt#Qc~MNcdO3Od7?w1=KC3C@V83F2C_ysTzgT#tc^6kr3weX>O!f&AHFZIMc5|-
z7rC;nKVr7KuJe7XS<9c8)aXX-(O+RyTB)Yf$STwUqiw-t*gMyio}euZPkpSfc!Nt_
zE=L^Y{z6yQ>_yTu@(u)4mr66q(@6ZYlFTN5&)oKSN&VnW;-Bhi_;dA(g<RVQn&Vr@
z!=uP8y~*{1$W^6MzNp6Q`DxN|2E?dsJ!~u@hq&|%&Ge<ef_*rd!sFD3G@r<8a_+T4
zZHwlRSme^`&tU1TA=k>?I-Ddea$lz{CsOs|#^Iu;$rY8IC8$8&JeG96Nt(gS?!EFJ
zseCiJzb}zilJcDGRGvldY;_U34xIJpUDYxcz3lppbO!GMddUWI?rxxT9;z~GH;8(=
za>K{;F=v4Xqg29|gbVh_yu~CqR6^}HQ>Erg-S-2R;zh+$&Cetu%^>V~A{xo>kro9U
zu_pV590(@IPjKHA`emb$2>tv}s9`5XI0uLkF6E%0s`4a}x<646E-vUTHI%iFMAV|e
z&?Wvne=cjaNE<D8RbtV$P3)JrQ`noV<$3+&BeL3RCb?g_=BnWutIb@%?k?^}D%ARK
zL1XiUXn*;0WbfOR3`t9LW{v^1a|VWw<2&j5P|H}$Z@1f5G};Djx~-tC&LX!=RPHZt
zG*_EUzqOu);_La*S7=q?JT^prhohF4-`U~G+vbqRdqK#1j`SWKBY&yC!LNk^w+lHA
z@hqydzLTeK9K(0hsuolDz4zUC_vLd)U>F&uyuiCIXEoPupx3!|(d^fSa)^0ERb?WX
zS2l?t!FRI{AhGb*5u&uXj$F@wat6YEy^gJgBXd7E^{0602x!}vToY+m_A}}1@#)9d
zQ;EOZQPK4@eN}u5QNlI!H2r&KHpuInXfwtqA-CKSu$7_8{~muo^)2(g657fSkmIy3
zJwTBNs${OT21*Z~l8e?$JIQjsGSb(aD_v|DN0n=K)8?R{zk+(F9FUZkn6{NnV#VJ|
z50w^{pJo`%lQEjXn^u%mo#q&AM;4^@*01cz`jrcix<tF6QFWGbydIH_Z?pw$W&Cq3
z_f7W59Bmn`?n!2{{%kcpp+7c-43Q7>E1+j$y{H@cR<(ZsIioCLrH$hC%{NN>+wSLd
zEfoC*k^}JGeM8@gEfJ3mB&*n5v4AWRANk)VLjbz<5>3CSZ*dmWefkpm3lw<&`h@ut
zoggO*D*F+oUWu=qTNkuc+92<pT{xO3-cSk|zg==N*}7h>wF9w^+?PeFW*Bdm9#5uK
zG`gYTT4X<XUw%)1Vhm`;eMsv&XK0<e=JjCLx6DuULpY=gCdDmRNLK;fwIHw(zNJU|
zlkVNTBa9~_^}ko2rqxfmob@8Ddy|%_(MSX%eP8gGt9Q#!{YZU{p19<IK8rSd2~mfF
z3)a&iPG5wuk3c5oiLMv?vloJjAJ7A=9k~!s{%2%R{uAGFs00)Q?s;UB)SrQ%-P_l>
zw%r_Si2Q7E_s4$;v_54V=Rfmd?AqyN{e}D{lP<jXwugtKkJcY4sYZkS@YlY@H}{4>
z+hF<;Ma+->N>`Dph0>)5*!OHdWVd<&{<RvIqk+71wS3b=c2MqyoU&8cAa+M_^+cLC
zp0)al^o5Ay8>lk_$>pP!QLHY}<soA*z5h)z5;;lFpyRX5=rohJe+ykcJ`CbYM`=$w
zPO9mtb@`gy`9x3VKOEQ+nopwkW|BWb3`DSWJv&L)&^`1UHkBRAA0&DrWYveR1!?^N
z`BdAUKL?d>0UyGqaIpi=-raZ&E~2aGbeSKZVol^-i1AAY*-yrgaj`=T%3bbk_H~)e
zKOp)w$LQ@N`0d;19n08bJ$S$L<&)_w^em_t2`VKhp;MSG>&<K#6oXE3Mt&mwH@T)M
zRySm=oO`$evc^6*7!Vit+?sHj1J{Rc445eR6CBx?wP~arc5okR0A-hq1QD!-=U95e
z6{a_QM6O{x#X_$UEl=+YUh!eRk+`u;fBYIQOVEGdrGR(h0q8cOuL9|Mgi#dfIt+t>
zH+LY5O_MOWu-ndZw4gbiB>~G@L@N~$@L*cGxR%B~3P@A~7>#-G*q9%(YGxJEQh?<v
zD9tT}7q|%Cks<`$%XE6VTkK1kfo{3+TO3D*`t>p*_k|}_{)^o1+DAk1Nao%Ny4Eu2
z1J{-?f2m&srkGYneGU9-Zy@};d8vpLT1ATu&kGH;oK_)nWt5gjX(QmW3@Itq*Kh9u
z!~py&prVWAkci~o87Jv>q9b88EulLg4&93}y8uV<gPJAGnUJ)kv>J(syzs9Jb(<|z
zvX+uES?&kFF@kY@xdodad?s8m#3nthNbnxABnlY`FZCKGCUF)}4g>M5j0HZM<}#@w
zB5u&^a6lSHt894(y_j8j3vNUive<gDBS?2<)d)f8p@6}19RY0K?L*?4E~GF$R=gY(
za1u$ExVgX0Lm3RdFz8|FhF&W{D^L#o0yY51HiQ=d$%WuLpHFgevu`%~z?ZIzV)3?z
zdh=6Ta^YdRa4qwyjCVg<(}$fE{C?;$ev4Nz4gqc)_*?iE_~u+dObu{6A{t2l@R)Lt
z2J~oO7U+S9%3$iC$I$)ni$?-u_iq-j<ETB}));fk^mc;oDgT6fQi#;f?h(**IC~8&
zu4k?%HhO%n9fr=>UPd3E?psA=NXh-=(K7@h7$DjSoGZBV91rjS3J5rS^SDM6J$^+h
z`~iJGplKyE7+eF><Y`bg<pdNPLFlqKz}CE^1Ii6gfw&sob-3-a(;t%HX0lT9AO`|B
zS`u($w$r7U2G*Kr#T$G4)5Um}1TQiWX#r1Ar1U^by-F`Na?H<hD4hUaPBn?#i2Dkq
zQXs^$v&aVnkT0%HMSMOxp@CCVx8&SJ3qcXkBo_D+xS0Uv8yJ)9m;z6&QuNP=M`89Z
z9>R;>H~oy@l5G&y+h)IY)$+QQRF0^YL*X02GxJoG%L!i>K#dV+A;5BD<cYR=1rtKi
z6JBUho@OJ6tN7(Qd`Ba|`Om>SY9$wN%_vXGu9UABa!dnt1mC0ZNYxb+lDE}OjKO1q
zLN7;~g|uT?nvO)vu`46Eoqt3T!emfxr9H^aiiF6SM4n~HV&VgPk@bYD46(1XJA$mO
z$Nlq1Q7NfrdUTylR79DK`-={C_N&@M%gfxHE>>|nB%^01e@hX5)c673fqqJ_cwoH;
zz?Kc~lmND#B!LQq%I=k|f+7QC1Qoq{7d?X1_B08mWPh@Xe<v+-p9K*p=UHhgJR*D1
z#RMV98v*#q(JJwFhzlZG&iyv`!*#DP3vMWwo2rG8bO@0vKq|c@+#W&LRY+k7X9V(B
zU_fd%9c6CwSAAbtbKH|S)-2-AG5yob*hvx|Ky3%ThFDVGPMn0(gMvV9$hQHkBA2`m
z@e5EkwRBca5@DH0#OG6$fD?(umV<tay-WY(@Bu4RiEWBy5aG%PUdm{PC)XZCox<5n
z3s}0If^sa}>=2^F3kXdbdeNrOy$$Vek!2}}>Xw9L-3mZq5HV53(J4Y?24F$(VoO0Z
zKQaq@iXhE+SZKv8z+*^1W|RVM4PTpb8QxGHU%_|v`5;%sedPf~2X#BajE3Qwv>yS(
zT&DZZZ{@Y%aDIE^C<5@{*(Vi4xxw>p`NF}RNU%4u%8Y@CL;|@K{8r#+029KnXTt23
zZ-nF+H2^v~r=XGq`cvZiH)NI*iO>#oxyV`04k$jqj#s>|7e(LZd^r(rAj`FF)sEw6
zD^M)(R?Ln?Sqtc4wnDBhr|^Q-(TDaxagQNfy?_|)Y^J%a$d;EfUpw7?o9Om_u3NLH
zZp<V2M*sfOTVLQNnh#V*D}`F?P54k7Z9JNw)6^|+u)t#~z-uJKSARz@G6Nd1F8q*a
z*}>cPH_=>e0%=?!?&{d&kGCuL1H|T}h(Fy_g%U;R{G`ZaGAWS~!wFutRce4&=3_p)
z=yDX_O;=sz)7*eoh_IfHtZ~5DWj`;#_XQORd}P3@lM#``kbze}K8VyiH(w6<yFBw+
z>{^pT{!9rDX@zQ<Jx$~``0tFr?{EQ0H0y?;`0>zKQln73@F{@u+`JJC_=Cx$w9}=i
z^|r4+ON0@GZN{WH0MlT#<on(v22ELczNoKUZK(5xc0;RyK^xeWDs8AYG_Qk1XP(Ya
zk#fmIz7*^QXk?#=MbnZ|fx8vR-mE-jHxjG{W3r1y@b7rHQH?7X|6v1|58f*a1&*9~
zcsrk)gzp!Vs^9O8K#5lae!rFgmoivL;g74%d7Q$icojGc`1K@OAKLM?we+FdM?Pe+
zD1ruR&IE`A9f$QcfJP>xDb&YHp93k|rr8?$s`4#zZ%t9(Bo}>6SCDteeKTdpT}Bp>
zGsqhKHe&c=AlPU?|Cw0oN|B%ZiGE3Q_D}>Ybg_i|4F>Hqe5a7x;ic9dOzH7*GzrKo
z<J-wZu2xT>TMd45qkh?=52Q42iUb0GZ`}_q*K52{%p1KZeFagjHqF-2h06ERa-=TY
zKrT8+H$vm^zGu}}$RrNeSpeDV^#DZgf^IM<zsS#>-Ef*2sx(IXRrmo_tM{WX)yVpQ
zPSsfz9LX70*|=dF(NMH!yt-jC_B;};NrRAXaTmF09-IRO%c%cF?tu_5n!{hB^~UiN
z)c>@&;fa@}CudM)J+8f%^!OVP(A#Uwr=y}<feT}Uq?ajF!O^^prM|9lG;PIOg^}YF
zWYuadNC^2v1W<6-Z%1NDplk!Y2ibr|do}?I?seMu&S%k>O~8v4&A(-+JRe{M`1Uz`
z=nyON1few%^|==US*hZk<sk16G(7YNTo2M=LIzR7oF{UG7XXN6vd<e;0ox&$s+x#b
z8$vAthXETZSNUY0eRU^bU<v~Xn*|LKjtjM6uxT}3UO5sAg*!Jxs1iD(a@dNdK|T}m
z6&`#g5QyXk!hO()jm3i=qiZzKEma8G>9?E~hE+R(SamhX{QGOLYplq4DQ5-Stsoeu
zZ6tOds-N)mdF5odfhxDiwq31LsT4<>wb*N~+D0GTNsuND5TLol?%)E&1YIJi1sDsM
z+d8PNB0+6852{mXP@YMGs@G(78$j;rO{VbNTC_fr)W~!ojGu@$5_fiN*!a#5i9ZM6
z+}x%iH2o~yK3DSoGnwJUZJcy!y=iauLYP?i58QOs4F-~@YDL)==Uaeb_3URHn2-Qw
z;^UD&q$HYcDOnT<D)A{Kac;iRV|5LVKY=5rN)Yz9Sc7KIkj|Z3sosBI1e*Lj0&qe?
zRg5NHV`F6U7BO=wDY)?RY(w(`D-}Tlx;qX8UzuUEawxH}GEcFv2;|5XtTkgT8E?i~
zvBsEV&DpIK_)PdobD4RX6a<PwMUo{VsYn`V&>Vlt0m$G}Qd;7a=LAzOW?G+JXoc?a
zU@z#@z`pcD*2)17-29hCA)n!`@a1BCs5lAegdBXdnl3`rLXH47)38PDtEBc3$N{XP
zv2oHQ+9&%=KSRUQB+zswz|VLRkMLT$Ncm2Bi%o}Y=|v0pCUW1LY<sd0Q1Nq5>`8$B
zeZ+xgCt{IkPzJNTbO#+^pe^Y^#4Iv|KTDC0h+I62!zGqkL6r%7H9C_Q%>~UNzhDfU
zQ?seL0qlZ4(vxq(FT2-RfM;_X*H^Pe6mB|L2aj##A>(qNyO+CPi@??1YuOEkBMJ9u
z)aaa8wa~mext$orky_Qo3l-s~vKGNEgUB)PUql3CeoK+=#*KT9=x*Lr1dx;rh90!Y
z&4++@k()?{)0$E22Jq8}`y)wI=ndR3X5wy_vkMdEv&3`qqex}sUPV{2Zql3e{&7d}
ziE0Ve#U}NQdMfTgrGe@9Xf$_~petz%fX~(BqUmV5e*u3kMD!?%Z5Uq!N$`s%KnnT{
zN@x^c$=~L$(@iM9?Ob2OzJN=|Z(rtf5Ax6@-qRfNBbQ=u6wQrQ%e*zN{9U3KM?lAD
zk!tfb1R6u}oe=UXi<b392r85|jPcB_2e0;*awNB}0wKnA<f3U1lI#J7XoxG`ISl7(
z`DzZ-5mH^PW#^UidVotugu98}0{IdXWaaaMK^lITo@XP~_jx8dm**MZXhwfd&+`LZ
zd!E%3cThf01>4{}XA4HLRT5Smhrgem=RU2{^L)p#G&}NdqUBhs%Ny|~l+Uy8kk5;b
z*XeocF^X+}G%@OlS?yKKT3zJx6hytf4Xx{N<O4!JPjAv`gTMy87(LH?Y95i#)856l
z=E!RNK%SeyYZY5Qiyf)Uu-y2bK4CnFnVm9z^av(~;)lWM3H)S&cZ`0x3Tr!7Muy@<
z^;uYp4DIq{T#zO|Pl3&y2Wl|RbOVEX;5_>^E-%13do@ZSDEAg}PxNqPoV6eOAAw(s
zXyc#BeB(9c4QT>S)cC<WTYrO=>_Z$*a+QSthLZa0kPj7`BEU%HM+X8JvK%YLVlp{{
zubFTfEyeDf%wYW$d!(N(CC|{k^d+QeKSS>ykFL{pFms>5_bCkTWBM0{ln8z4=X4yz
z=vT5;kOV$1deT=sN#J2;C4mp{)ue0|0{c781@_0_*KN1p=N$%O>PHN#h_~lHd^MAl
zZT|PPUl7orP1ebWfF9UK-UDXgTW$^{(~*(!WtgbD`64lm^(6&g*}Yi)L3-aSY^v{N
zfJH7{X&xd!lJ`i_R?<^`vIi@DjkQ&(7m(fL?r5kl39lpVo8Em@w<#L3H!TJCh_Jg!
z*!Ql#guO^e_1m<;N{D%u4H9L?>06}U4}7k)*i~BIQ7EVP@S&1|NAUWcVWTHq#X|Ct
z;C^~d=V!?Q=U3K?JHtxWk)!UX?3918v_>16V=U0e0kX1)encv+_-ETS!e|AT=LI84
z%kXmkwf|M_<(+>;E*qoV{y{K$l9pGei_4pr_M+uuK$L6VxF)CV)yL`iB_&-i{DG+_
z{Bw-nP&=I|4zhRo95Ei9#U<Kuz5+(a3Ooj%(y44Zv4>Lo1J-sI9C+>ffPC~h9ZR2w
zU%mYhs`sn{f6@Pfv`sR$NDr-&4v@v>KKU*BmSjHlw<o8uz(6uP>4ll*6S|yvg5_mi
zD9!Na)#=GYrk;L7o`t8v!y+umr`yrbjKP4w{G=pUxf6kOBhmrzq|O-cvchASAt1TU
z(@)Bz+kP^Kj*Na8n8~lGU%8H+^H47qv%~~zVPKZAA<>Igwutp1;_Aomyj!I~bfXlc
zL)uHtwZ!=n^{e{2KP0`JPCG0uQ_x}3zf<2(W{@M?bv7eZVQwcKdg&J|L!!3*bRzo#
zigq8;mC{tYmhNGWF94u66nxYQp1WJBtSa@=D7I;X6pFk4l(F>s`v&?NRL#;sGk#pJ
z3b;44*hg+m-xxYO(S0%D3km<CU^9sKANpc@*l?rkesU$h>3Jw-9*s`}f8ff7k1r8d
z93ZQ?+lws}W9c^%8wMr*DGcfHexP_qWm*sRgf8d%S{)CN$tAA=q!oHc%YBv4kaB-5
zeH{&Pz{{@ml0F&fWCyVUJktX48~(FzamixxI(eT54rsZfN*0joph&vNy)7kcGZ0Jo
znk~-xM4QOp@<G7AdLN%e3ag&y^Lgzqs!sHai;I=9WeeEn+Eat2m!<W{z_Wu)5A}!#
zH_P84En?v;`%HWp`82efAJM;(Z>woF2=Sz58%XMPgnXM0cE?o2c__{w-A3xSCkdYq
zNOrgWYzkg%bSKFTBeg(=KLSApBd*-0ZDwSrWEtbphekx3lsPb!{Kjm(AFffd@0Oik
z!Mu)q0FmLB(P3Ur<+o|hUd^ef*g!@q-=~9(_R#x!A@I5&vzE?Qub0+E!!tpCXw$Y`
z+p9;K%h6izMYQ1!<Xie#I>v6CNb+0sR7Z*T$re^}LG!^32^PsjZM{2^K3<Ufa`cQ?
zYdi->|0=dvet~`;c!&3prbxT!L1~dWL@c4t+g~8OzmuFP9YqHl*&K80p%a3C<rnEQ
za?_RI4SxXV{ZZ?VNoYQhAY(4+5PzOZpHqL=_zohy%=5a&za-LS@m@^2JN^=tHu`3T
z*VEC_e)P@wG&%_+*cGHf{T=k(yhC(D_*8z^ugiMr-_iQ(*=cs?lS8Ee{F*Tkqu-0D
z^()~Qjmus|q~#^@ojca|i}nk<snKbAl1|36Uve5ytEFIE4q*3|UhhS1-=(GBN-aBV
zLM$cIrO0fyj71Zv+VD>G<M@cQZw4tF&%@7=iXr9zc1V1ZO~AB`hP&>eQ^<7wEB~*@
z+9$no+XYQ%v=mMD(PNe2mR0jOFagteFFK4he#QI=RNjy1MX!?;@eznOtP{%+s$W9#
z{ox+;RA90<@e%?Xe5|wzXon;uTC1vLV5OjTqk4+Nia{Xiq5Dxkibw-befnzB55ius
z#fwP9@!xz+ebS~`f4~9`pyek|4x`hM#BdrRIZjK`mCQjDCOOI=*kxZzw0@qTi9Xju
z;<hLE0=r#YP<e=vD862nF`B?h>$1Y?9s;9%<et5x@hCo=)^=`v!!6xDBMXsDsxO@`
zrW@a}K4QMS(U;lE$_C}VL}yE5X;1k>vX%FzJMrATpni=Oc?J2RY?gSI4Uwifp9ufV
z%yBYH+DO&~4)gB6>OFY9xoo2QtMZ&u&?)bZR^6Va(VM2lr7ovvVnAfH=%rt|HZhA%
z1WGgKO-9y0_2X5!(Cvs=Qa;{S(i<|l47vu=onS1^=2w1ArFN6}JMa{KfYeOV)4=mg
zQsj;Nb2=E@0`L^1rV&-`R0l5_A^2j5Bs7LgmwabVP%ecFEc5{_`T#mK*OHGFcCqwR
zoxZS_i#-ijsVC@ZLwu&brz-@HKKxI;IZ-yt#Qzi4Z6aVSlO6C`T#Z<hpM-9Q_-29n
zG|62KVPX0LlGuVZVaYQ=GX4x|)qzgg%V@Ne^yaN<r$XBId@>czYFWMumorbOkc@>7
zxk<aM_jn^y3q99ysgXJ7I37s>WQ=YC2usrEi&xNPU5A7lzq?|a{_csrzTz(TukLBy
zJ?l|5h|<Kn?739!$&K^3q4rGXqli44sgwBz?-YI@yAZaxj(p0j6QtcLsB{1?hXK%Y
zK&R9<C|T=e<sD12xmLnZXljmvQNZwlhBN-#5nLNdRzk0ZaKE}mChjSC)i-C02)EIe
zBi6Ohythc?Hm{T-4{d~}yvt$5+Cq%wx_y$GskayjcFq>jIKCTF-V-Qp_6QaTxXRrq
zpwHDmdov~(p+tTr)3mhSQ35rKj<!9}!J|jirrxEFmDk}aR{=EkIoiE*(sVOqe~y0R
zrvzbZqF#@C*DyVloIgt@YrKp%<}v0E_`?DBFP`rM2^T!};87L{MIv{4qsuMR#77y2
zTi1tYOCk^FdnMRT5rhl8>XO3rO$2)3<oq~%=Hcs~2>c9J{1$@l6Fhrh1mjVJnD6yS
zdj|z>ltjH72B>FAhhSkXU|D{l>+WG+v9qkfIttZHnzsUE?hCR7^b-YXWG>5Tau=R=
zwL8fp{p%5}xp(0U<rxuZf49$Hj%WWyn7TwAkEy3Q(YDGYiRPsock3Qh@VYZD!8t!f
zNE1RHY)g11S*vV=vO{z#!5Q{|fah_@eea-+o~)Qc3U4Hn>&`m=ipJAKG#Zaa^H)Of
z{T?zTOahrqx`Z4H6AkIY^uC<v+hh{_MezuqczPS5zWBjW?^f1W+(Ks3{v6Oe26obW
z-1TJBKqy5N&}l9zo+jz}=&)5v<HQ_5k)cEd@f(}1<Fy_2wC^A)d<bI0qbz9^yvy_`
z^haq4Vj!G`Q?3~aS)Lg1W#F{4!H|7n_pyD<nyWJ-z=rsc{>%PSb(N%iAz<u&XD-;#
z<|@Uwdm)hKhl!X$KSZdaQkn?9iXMe9GXjK|L~Mi#9V$s)Koo#>C~0AVMkVO)as(w1
zm4N0^-Phw{MOIM}>-~_|Z2|42hJ}9vwZjccBWStAW@nvAxFEnkTcT#>S&r!7+$a*U
z3G`+8M+CF7*Y^>TOXTiKzS0OtL`WP8Bk<=>PbBV>t0ArN?^lNcr>Qoa{Yz5rq<l6j
zceS<#kVg%;x+3{HC8boDpMjHV^dlGbLGnUhx#wgR2?RCc{5q<;fB;juIi=7Beg#p(
zidM)R_j|#BTj7;VS<p@;rV=yh2nVP<1U5{#dbpO+BG*L&0VK(S4-cd$h8K6*84Nmg
z;hz>yBYB?0QwW?P2qojj7r;vf%s(oM`WES8UTLNfhAD(_>YsMjpXKR}WVO{oi9lH7
zWe?&Lh=Bedc9mv4;vE9IE|Mtu?GSn^$5#*w1-(6h(qm%}Y1~7&2I0j)AOrg76n%22
zQhB!<sf}XJZ>y01F7LNh0pY0-W!0lFHh%=U!Q<%32<*(H0~uU?E)EU1hrElZ4*Zc`
z(1*^T-e%JfNIIo>4SWYss}V{1!x+k_SkfxXu*~OqJfGAT#i*>Gc#^6(5N!()NQ3$D
z^uc|AfC3zt80FN>gQx_59GYvm8Sy;^@h@<aAkBxsk;hN;VoeKu^Kg<l4Jen>2ENs7
zHvGL|D~uNbm^4XMyhn~I8GR;pj6Yd2zwsnYv!@Squ=Epwcx7rW;crsz&o-E@H<oik
z!fQA2$pnPhC?}eMx&w}%taN)jd(|5MReFx171R}<6GAgse=0yBUQ39X`ome5+g<^`
z2;o}9p}eu<eS^&!af6!htH5UiKWdpnVeb#-qa&NRXe#mx*dA7MoTc}&CMVcZ^)rCs
zwD-uFSYQ-gZ)%I>Z^%k}o4lBq>%`|7LmEvUnn<2B2ckFq=wR4ikIW<g<sErDnM8ji
zZ<Ff>^D*Swb>bx?s-8xWBzm7T3T}eIpdMZL*h(n*#>*?!OYA29?4n<-d)n?%?YbAq
z9QFci1F3GEn=EUnb`6$WzKi;k8q=Rw<Q6myh4M;s3OeTK@zMHbbvs$)N17_JPCbSG
z;}@jkYt{_Xx{tnA?!)iDX^$fZSF2wsv!Y*+$?S#?nLJp?>zVv2mxl;&S~m0AExdLs
z2hMssa*1AVY$Vj3Em3_r014O9DNx^<Nswql&}_Oevk>+bTu{{b8}M0lgG`N|Q4xuK
z!q^4P8Mc{DVILWtQjTAbaF%g`J}WO0GYXhn8;JyBzzds|JTDhoP?5^AiW;jPZ`7(Z
zFWDlepu{x)NqhL{V|{s5Y1L*(#ufJG7%hRpS$Kq(6_)gexrq*1PrPL|l8@<9o^frU
z4f@HCHyTZcIdyZBq_@b5z#8Dg#`4$!w%BfW$t9QG+2-OsY@cZTE1eT+eMIzT<LD2_
zcRv*XogUI8={2s6;x9{VH~NN$`O~)7!F$X3NDRr{;OtF&%C6haZ=OL)hVtU;Hb%oU
zXoIHmdeWlBPrSumptpz7-H50jgtXJ{)LlDh@3P0<ET0*uf7$sL^e0W5wt4WH2?*32
zh896D{dKxL+Djlw3!RxdgJggwiO=!xqUK8^w2MGvBovy<+~jmPd(3dyLS^>Zp9stM
z4Y7QaDjGGsKYGfV<anG8-@Dvgj9%YZcz^JaMBhB;0rL6%2|H}Pi^m|46MR<k@8PMn
zs_VWcxhv?yR~)0ajNrFyqqi<&kM!UN153nCBtKgfdrsMu^M-icRhsRk_bU3|-xta~
z_Y@w}@9QTW&djh9@nu%dJY|Ul?GfvX+{_~B2lZFJo_}o}22OAnTf@hTTlz*=ZwY<@
zHn5`EHP=ie!}wF9=s4O--c1J3U2GtKQ9S_$$x8BN+3g))BD2L1HdOkQZKQMQOl6!j
zmfV3<^)G`7^#=Jy-l;U&M~}G6+@VnTIB4(DHqZyQ>6??U1L`mm!!hzna3C8+=JMlo
z4_|0)<;POL@>xjyyDPGf_mvOvPCe-YxL{9{=jl#bIA4>8Ksa(y&ed03b8{c)New`f
zlkQW<m-;j8Fx{Z8GW&?FFt~crbvet7vi-3&>}%-iY!dmIF8S#F=KpOf`Zb3D#u*}x
zh*#)It<fZMl3n^P@3xCi5?|5{^eXEmQrMuvUtCsJ)jU7nEKBP}59ZqwNUPAhq-)Md
z+O}|^IWGG6*1$*T^h_o9Z&Kf91B~I)a=V{6s*g9ukb!2s&&aKl#76!y8_Fg*GpO5n
zCCcms{tw~w50jhw@x}D~A!L1dU-le%53sOh&b#{fvaRk<iJ9yWuyuW<f#^C`e@LG?
z$)UR2bb|i}`E&Lxq+7Z_eg>4(dXhDXty6cAQQ&v=CNIcG*n08_fkR-VvWE>My(Qqv
z{b$%?>Evj>ll-EOM!y{Cq^-zCwi2Q}qwQNuuNp?bX0M08NB3hfxEsSoFY=vy&wHZX
ze(??|9YOEE{r=l=ul2n&_-pyX*hX`d(P61HQa&8}nfV3;u6TT%KA*fTKfH%L^zdxj
z5K0b^4{Z(8L5N!{ob}5z(hhlijm!O9gIblPNv0h5ZPKk<qFwp>THR+2M-)nK!Z`wf
zXnM54Af6r(R(IcQ;dg^S5}xMLDPrWG<+J2^Y?g9ylm2$Sde9_Xk_6Rnv2-^q52#6M
z@`sA!kN$-B-aOIzu<5jmt|!rtd2|+y&LL4CTe&)tXh>NKh%X4c@?2_$RmlSDT6tIc
z{jC1uIYXGPargR_U{qxCGsUBc+obU9bQcH%Pbab5mI@$vxb#X$vOy5QmU9M^hL}|J
z2?V_@NYdb~s-%+1SgI5v_F$#l)HxQ(&SwnysVt%5T8~c=ZFF6|7R?5c_FX!6Zr`PK
zYb1oxo5(qk=vQYmxuslRDg%~Vxf0oSlz$?ytNcJzE1AsA4PV;9D6dz1zoAOmPo)Fp
z8@r-ygR(p871w_V@kyAu9vu_HL3rQ(HfO3HTcVC>3GFU)sKG+=w7nbvMDTI0MWUlt
zZqjJjq74|A&099>c-c~_`qU=ondlB$BRcF$ke1Rz-A_`Zq6eCbUi>H;=|SZCqNDaO
z`1+dOIfsyI(I;9@Yiet2dxF0(j~@`@_(1WQ*vTgGMm?Z>2ow~P7D5s+J8>Kg)9l1Y
z=T^OTZq<x)t7^)NYG#q?(Y5R}N$!_UBb;`C-ZhzA^)k8g6LMM}^qY8ByI!QI#*-|D
zh790r@E@Qj%ef5{5(JcCcOqWw(S(4C#H{xXiwfF4VD`YW!YW8`03ZhO1xbS`=zWJV
z1p#cpn9xzcrqE#a##xmb90g4FfBl6EtQ!Ng4hH}L>OW1wk&JDzb#`;_OL&vnSs60g
zIKAw84&c_=b-XSkPTep5KRCd08Vi{I2-27Ur)aY7Ai;tDuV<3B0}O>FgAhmL0w{Js
zP8c$k1cot8Qg2!UTk+gP7JP=RT>qPmavU{O9ME$Ey5G!xh4rt9hmu671gQA|ylFh}
zfTNZmpoM#hXdqONp){-M5PgI3YO(7xmPkWXAOr&)y%q4?YJu@X$)U1=tA%ZlSpp~k
z?+?oE5HTPf0GxxA1=!7i?BD|+Ks9Ozegi<C%*z8zZ#W$qQot9g5S8;1Apnz?9Yc|W
z1trY{=o(hy??a_pqe{UTkTQU#L(|?HkS{<pNMpsTJb-R`73b_XGGRc<G!He4d@DEf
zbMllATJhQQ6iN#})rJx1b;JN}QK{A>3}d@Zwoio<WN!6ulU2V>rJ4LSsYEYY)OaI{
ziy^4kYRc1|0O->}>1BXUkcwoqN<mSMPTW8O4Sa;}(eX`rnQD-@3)gyqqXB9G5*-kH
zLRtlNdLAnlmFVo^LGT`5)CveY0h=S`(FibN-Yj^OaNPlOD5LA(Kj*BmP=DWnY&d|j
zBoE4*){nsC0FBWAG8<>Stnf<I1gRRg<-gL=;%Ye=l&ivWP(eSwxe32-SwOnD(Gs}W
z*0KBoPjWK~l`l`kG^jgJTrrMOwKc$4Kzi~E@DdQFJ|CzMtrPOlBG~2&am|PFk~K*Q
z0R#y=pv0s8at(BCNsh!oyFqUl4>lk~P~TU98Bi>Yz;g63MPr$gvPDfk@>_vYk1|DD
z%H<SPd!WtuhxR4K&?w-ppt|h^dJKBGUMZadBof-j2wr=DFmDi2MIn2iR47Osf>af9
zt~Uy)49r5<?+U;+Nw48?xDrBYDO6jQ!=iftm#>D{2cV_#7`#(xZ_pzZU$8jXsfOeV
zpUS=h(5eL#KfhB#Qcy{laqoF?|A*&gC7nggfEhxb1^3?!C;z9F8TJC|3ut(M{M?P?
zNPqrxRsCuU)l^e>gSdZQg)RHjt2OOo`1@OE+G9dNwa@<f|DR1dh5@I9n;pN&f(iSQ
z+GhL<Q7#uhqO?eqZHFQ{{v+8jGRgq+jK&nh?^Be=&n=94z3%L4G`v2qYMq<K(y-zs
z$vV6G-^_>LX+!kz><08-X2ar-D_t}S=e88^i2ZRch~s*Rp?*Ko2+t#sJuR;;1<p?Y
zVaodLJn?2T{(RcP`txc3xB2*=PFwuTZ1|6-E%2P2J1@LH|2&6`MSni+9GorMRJ08^
zdBUSXP~b03zDe4ISWo6S&R9N@x+-8Ds3aPa>p+ATxu((fn>jF1Sf~)*Jv>^#00a7d
zcG64a1T-&l*x=d5>l#fxR2V!ro;(=uYAl8{3uL<Sn(#;u9C>H{<1})3U=N;oAULM~
z?e>4%#>{RH$UOH3%n1nAd6onQfcSATXatb50A404p*4af0#rHRYETf8(6#~)-YwR~
zybbQfq)PQLzZORZJXYq7@JmoZJdOai2lUZ9C%mMv4@|>%g*F(LOm?kT4%rD$G4Hn}
zn8Hu6IfQnyi+|hL6Fm2pqDjndjW*o#iq$O+1M2ku)1hZWJ!y{g1>eJ76&FmTKPm4j
zbEFe+Kd)dTIo-l`i^Y71x|ZhS6_V#E{}vd)X3I}PC;e;9533D8QasfbqBN_6(BNo@
zNNM&f9fa0(M!1^aN#!NV<5gLK+<HQbc$(MEau3jWfvq(wLHf6NkV^?et8}f}A~Pnm
z+yG2|r^*?Jdl5`S&dbYz{;z}f0Sh0c@h@l`C_--VjCZ`ka8_KqJl-ICv<g){d$fG-
z)K8Fj+B;-3PgUE{3j#{hw5v8tH8J<I!U9)~q}oTekY??b`q?uHt7>i#T=^<zyr%~Z
zT}53N26)g4WV&F+n_g^34S&qs&IjOdJ4WMQ(fDx++UyRp0C?y0*^&aVLR%c-R;8lB
zwdZ{mdgq!}eCRjjd1X^Cd$!eubtUr&jc2^m1k5n%$yFO_9?mq+JJTQlV0a5j&Q@lj
zF3XyO#gSAI(Dn*XIm?M3RaEDfDplDlh*t!_(Dn+lAe}vV<LpHkAf-d22!pkog}wyk
z4RX@F;h#>Uz$>yej-2t1++jbv7=;x{IbF7pJEBU1vj+$UAhdu2(!=Sq1p_6`?6JJU
z@d_#Y34_aT6aNm0F<vJbuTa#-QTxBqmW8Yu#F%QTv&U_kQ+N5F()cXm%g2H9y#p8H
zk+k>Yay5bZNUFf}Uh+v?t6_Sv1>Qxempzw)Ou&(|wZ{6b(xBg!tvC>+$O=-}AF&{?
z3U%iI%cFkw$PE!7s5|y&sFdD8eM+HZZ(|T&sm|^@N9eH3eJDx*u?y1K3INHLv){<^
zlP%4_J{H(1RlXoseTvxTK^i|q<Db*`VH!U|<1dIKY@#^8K4T9Jl{OnokVt(G*&&~V
z+wx<5czQA21)S7Z2!U@QZPwbq@}+Et7*8G_68>6jH}<e4?3qM=vbHR^m4*ir?FR^T
z{S1p{CPx6i7s>Na6o-t1iEzuqP(6HG&-m36_i6G8|A=3BiiWpZ4^Kiu_7`Z`2Ble^
zAK`m>Dd~{&Dss;kY(q+}M+mHC`_6gvBzcpQ`}AXEpcuh7@>vC~;j7@!BOVzfv+SDZ
z^u%Ub1D;~bdHin;!gr|8;j!-nJs#kipl2?SenuhnFytWkZb8k)pHM;_Zv{HjPaY!{
zQgq4wV$@n631$kX6V3ivBj2;UbjJG|K+jHWma<`&hmzjkP4Nz)l2{@;J=il{&QKUG
z3%Jqx7spy*SVu|VlxtMmRoVY?s}kSkRz0`Uf4LbvW|K7X?iLU=BfXsyt@`c1LviH&
z91n8e*?N*lDN;IDCCjA|4j@Lw*$YXKix8dllLDuuU-JV@fYV1BI_`9ZJO{4LNpEMw
zeu^xnB9HjXo+HQDK1#-m9ek+-$=<apDI=t1c2`l9#f2!7W+)wt<U!4}#t1dU4nsa{
z^a{P0sJ2rdbgE?TuhAySJ~qi8=Y{;Vd=-pQP}`+^GTJLrfEm0p4#E)abYIZQWKYTm
zfP!3bc7ul54MI3rdraLDdL$J0PCQC(H6cvoppU5e`vW17CfBZ%y**Z7f8OTTla}2J
zL7nK@7;eMq^gVrQwDo@eUGA_{&J`U#V$uRJJ$c=gKXOranodL0Cid|5{+~#7Ueq^M
z$P)pYu-D78)yd@ggIew1zm_uF`1@oZ+;UJ}d{cRW^buR!MSKvVR-e!*WCr^N7~sB2
zZ+RKN<|V18@hTvpV9dU$eBdmELvXeHgKxL{y*`v}r410S*h!^A^#!0gz5hxt*?}>T
zxj#@Kvtk^9(Mny1OkZlGv|qsO6eqozDSb&v58mw?F0Tg^8Gb3&Q3$(&Jwx5$=uN1+
z9PerH&oC&wLPg98U5q-R_wI<`;h@M<*Guh5T<h|5!PV)4Xu4o(U^dm9MD09Ucw0rQ
zylad0^1p*kOZsZW7n1<(f%-a;(ze^;Ih_Ri5OSARJA;swieoEMB%mu#-uby^ZUfkM
z0WAszdXVDavvOtR$;wE#;@H)sko<+TBKX-2AkZT%I&Rbw2rp|ku4z2+=Q_8NfuK|9
zaq^XT7nbfU<kHwJDm#&5>Idderc|mHsxfH?BKT@Uw3*|G)Qq^jlblWgKf5ZbHvItt
z5tHzyG*3#%xe!E|ST@W4Bb<t~eK7K1(jl=C5c^(|5U;yg_YFJ6>sX-)M!Fg(l7SY>
zwm|MrEFi~;qXi8!-?OhkWP{@eOi0hL!5=1(-v)*aIA(uNE*db*WEl6+(jNc?4>3o9
z1PjO@`Yg2m5ylF_97Jyx@|fPZf$73jD#&IFErk}PkpJ4+2_PDe69D%>we_?TVOOyB
zo^>U1u(Vq+AG>^?)czBBQxM36D-L#QpeSu1EGaI=7T*6K^L55C@AagSBlWj@ox8MH
zFA}@uB$6$QQH-?#zP*%Pz_R%F%HQDcty%3^@Ov#=NZ4Y$<xY|;1MCy}JK5`FXv`bB
z@;Bft6jEkGN5y_c)I8xL^?)y3ln#8N`Jr!dOFx#$&E!DptpWHvAUvI=^VnH7j|DQ1
z?s0i$Av3yEASs`~6aEaDC~^kqIZF|HKN(!cZ+?d?Ed5pVGtSBCx9df^f_$%oeBY1e
zmhp?azo>s9#V;Kfb9wAda?Jxjieb__<idXRpX^7Kea=}=n=Mn=bBwJakS8#vOL+OP
zpA>eGc%K(=>jk^b>7lbPDEq=>-)rm@igH;^{x9~v13;?kY&+-PJ9T?w3$R@JE?cK;
z!=*1EN)r%?%c8^X03+L+nT17SJ{3>|?228n8x?C*4EA1Pi7l3>k!XxDYOFD_{m*;O
zy?5@Noo!&gFaQ64=+14YpZC1y?MGfF|IsEtYL|bM<eMZcUinOq{LonWG~2fh`8SgM
zu_C|hkfZYHa>|(qRwK!fN<QsK`PwO8E6e|o;SYU-?IK0~v%DCA!OoZD2bGkoY_Hkm
zuQKGb<SX&`H|c`HXOi4EBA5GoX;Y^E0XFqAmwW2FY<FJ4F5Ajmr5}?1So*yDj_oV^
z1Ih!Lm)Sp8J}7)c9=7fwmU^yK@SaqDtz3Tr?Abz(v)@QkZuy>+@r706?_h!LEVFh6
zOPz2S8;ZJM{Q9Q6M|n8&Aqhb}SjH2{haLNO=}dVidq8@(^x#umZP9(M)1>9QmFpaT
z%zMJ^IVCM?!3ENrj=$PVPK8=-hcxD}YUg7xllffweeND?`<JnEZ7<08DX&NmOP8^4
zrHAA<bM9bu%FmsDR35YEo}Trj^k@0;v=j5;@|009?$grD50p<8_O<;b`CHrN2s3?&
zvIWys@sxC(;(s9TRi*5<WGHQ(AMsb^@6w;xai_A|ZEs{g#{R6VK9?1bTQC~t)PImJ
zk-wE5wy#b*$$lfd*?oS7FE{@TSfRuMUwoW&<jX91c-Gmj)7gji7ab|1c2iJ`a}d<x
z0TI*UdmMQ3Pxt2~$IOI)`8W9QRbZxnDi@;(XUO+C?uFuTXVU#_uY7673$A-uMOAs#
zpX>`y%J`%71T4EhRFcnh4q2a<;YxuuQ#Ooul3|CFvXWhfz?~n#whn)z!P#Sr9tjPg
zb4VqR?Uj|B#702|Hu51@rXcvu%BikVxmU1x$%hP^{~0@^Y|<E(>=|eGBq8WEOW7fP
zEH7PeN5pr#ZHvrqvpp~zfmpwGUuv6rqEdM9(5dPx5)P8N6ciZN;U)%+Db9M!#Od_I
zcP6uYC7ag{tl@IJ!wN4|U%>{XjvHDt@;9)4Eq`5_R_FQ$OG+LxCcS*v+*!#Z$4^^B
z9uoA=2QFGltMpH3SUP@MO-qU`36>7{MVKeV(1gIBQ~(Z61S1+6<-iZ3ox4(#(-3wM
zk?}K-6z?*AUUU4c>|wIMVd7*c047hGy5t;bLQ+~%b;=2d%5$=9J1a$ysU>MQvla83
zUXspqKPZ1D-2*T>PkMvh&mJqh7RzrBJ6U<#_SLvO?Ag(e*)NtZaonGBzw*?`TU_Vc
z-;!>Dhs#6k!3;Jo%uY$U%>9+*gi}5JdsKFQqbz@3{@nd&*0CoJhy797mC3nFf0g_t
z+g@;HS;=GUUiOl*L-}LU_v0@q{9gLebwm0OsjE)6WmleMd%*r?@}WD~-eG^v`%u2q
zevACR`)>I`=Px~#*JRGGJVkjjf0O)I`QpNh*~qPk)pQMen*A;LdAQ6xsa&L#Zcn>M
z{s&_DZIeD_f66%(TFe&}ING65*DcEJ@J-(=Ka#Rp{=_l;LH0Qg{&3khvFnsKY&(@r
zwzq7PhdeKz@AyF)b%AuE?JA|}cZGkj|G|C*OS_95Hf0ApD|36^PJ8+N_BUL|-<P{x
zem(ECY=$l7?))D{UYdDN%6IPP;UO6K1e|1Pa`}Rz&XyNm&noO${wc>zId1mpAcsni
zyGlAV$L&9ly_d2xZ#%n*+pgb*;3Bo(Nu7&7b6m^TAHM9EbJ$5Rakv#L<7D=o`-9Bf
z;s;^JERP*q=7v)V4_E+K64$v9r98uKk&kq^gAUhRhx;7nbGVLlIB$kN)#2PNInt*p
zpG)6lT!Mi9TkMYHr=T~wS8=#MwmaN#$;dr7$?-z*5U9Hf#$*(1xLvxD-CE$hm7S3J
z7li*9G3j^gE@jHCY|crxUCMjz5nI?rDZd-`bcW+&+3|b1B)NS4Q46kzlsd~l`MAl)
z%{rZJQ8p?L9Qo&X3n%|=ILmbi@97_;+fpvYPB!Dn(_On^e|x^XCFNSh_A3X4;@Fe<
zdG1))d2R$v+X4pcR2gnkI6b2AUN+`n*u9OhRpE?_VU97fa|9c55Su7FpsQeYk@KaK
z*;JO=z<%z^P{!bZUIzeyrEX+Z!&v5dG7L{xiXVJLzAp`*eAb85gV=IEUIP<<k8lG{
z_vdU@``@MQ(p|1slUd=5sjq<qJ<m2Ztqr8?7<M5<wNM3)Wd&sHdljgrv!!>zp6`$z
zksbp?u{@a6rGtvjXY(N(bFxfVrL&YJ*)qlzq%6p(JB<w=1{0Q4_(9qc5(6Ox{wVPd
z+yMS;!fu%bSn5eOb`mUXagg5FP4x3?2Y%jDipz^O+3@pB3d?^{DfgZ!d#VtM^-1<I
zVE$i-yL5q4woCai?JCFn(&Ceop2dni+i~a6=1E_tUd7~3lE1NC>S%abzTf_cYo&3V
z!178q6GY*OjLpS=OJIK(#NTu<6f<ZLk2%l2$8|RQ3i~2E`irE4zD>@1%~5p0$f}#9
zs;61%byE5X^3adutwZwUP@epe>+`e^oj=NN*bn;A@qAjw1NjeR<X}f*o`ZitNYq>z
zUjLGG9V`z{R!*~R8U2v_V8)v^_-i0O_q~d}C?_v~K%QBf8MgZ*c_-v`&_VneB01dT
z$<Q2v=)>)Bd5f~g_NDx;ve&j-zMP$tu~&XQtE1-F%Miopy0WUvF_Z`z<Z_>wDSzbt
zNdD6OrF^n<nY1-?A7Z}UApd|U3D3eUXN|A3VJpI+?SNS68}_LDs&cOF9eMh+^I#YB
zX~vWCF2^p!Gk+`pO#4Ub(;45Ym$3Kck29xCn^Ijj^}dS9ha7Tf;6&SL^7YDVLoUwt
zT*_`hB#}M&r$f*Gq4HS%w?l7Zk083tsfFJpKLq9Ju!5qSQj><fpL#itUpNVz&a)}6
zInKa}{FUppf@9A{Ae$!~Tcmx3=Qy5Xe`kMXhyRhiC?7xm88-e|9NCy%uGIT*K@^be
zn{jAj_D7)35JqNZTHfpnr41BOMv^*)W<SDIct1<he+~H+Q|ah;NjilNh2{Us=j7y%
zxtg+lSC)<6fHZpqJz4*4k#k2?Ud|qurZ-HltDo^}`BvtiI)BaF=jHEGp2G(Jm2x?3
zsGpGEaz7?5p8kn6^B%`NY?JgTdlc?i!3S)cq+1K;R%O2_XZX)V@Ssoe-yac#=yjaS
z^PF-``W9)*{G+z8<}XVAnfrwMD)}V&B(`GJOEBR|rs%ndJpuVRj(b8ZUC892(ILUT
zgJkBUBBZaWQW~gn=y4^M&TsOSWKsy?IBPo;J~)jW32~4+|FQQ>z7#4J<vBzIrGSsn
zlNEwPfc7ObeK^ei3esR$jhKlkrS=h-(2pib5Wpa~3ACg*bJF@;I3mkYSl}GS|Hrv<
z&H`scvj19AFCv@-Du%ZyA_Kz|)&b9>EXZM5VV2DakvVmTR29qyw_h8(hGioa6q>>#
z@*BsbObIdIaPS^NxVUfvG(__i@^#=`*4j@1_vL;JVo*&uO&18M5t0V_DlkUy`opL_
zo#7ewU(P8wF%3k+*!=Pm$M8{(QDa~_{ukz`gWKZ>`<#jqkK3V6bUO0V-BJz$OyTSS
z=z^tO*g`;Eh94ZD2Sui2yO9k^2ct3)KhUoxCCL-AVAruj8Ue#pST{O{WIBcsTbAm`
zcwPF6<to|v4$n(2zay#6nd|(@ISTdSka=k>T-%|?u^rN#c6_pXGFUmp5yj}>;=}P>
zh^3-9JQ5Bp@}~^l3;VN$OSZB}mykl?A}ADa5QWPHPf`3PC#NE^g*yjL#e*tk7ve-h
zIw~AN#!2%jZegwpUJM$4U=9p98AKuh3Gkr^kfbTO`A;K0jt$TQGX-=U6O3OR;G6-O
zJjG@~*O((n0)4o14ohM~11MOrkvzW^s0f^}i~$7uiechcRD$Db;q{=9vVi_UnL*)F
z@DH!(1{aJJi3j*SG>(7^bQ~%MGzzNmSO!S(Q4Bu7G6DMzuYm%-K<_BgCnyc`5#i=P
zp&h#+>WA!3LZp$4sOM9+j&bc~7dtMq-Qaw~c9Q*t%Dcw=nq6;uU)p5<PQC?-&exRN
zZCA?=*zW*=gV2!d#?;rcUrc+@`Bm1pw%<U2`3Lrcbl;E%vev#X?ag>Rtq2i+{yO5O
z-1p@3Z7+dcyT}F~v`=!nS%wc%rquJH?Z3nJg~XhjGk#<)oPdQBZz)zQ9fl=t5xSM$
zxQ~c^P0C7s6^{RUihdKX8CQ4)f+{}G&Xli!LEjtl-OBBmY2VokU=zo-DnUr3K5?!&
zEo~e71oGIo<foOZ!QEfT{$83n>0!w`ZP>vd%KPLaC-1}Q5GN}yA|MCEyDoddaJy15
zWWw0{l&!ErJ5jyXc?t;dC*^xmrd;W|99u=n_@wk9jqcIoe=+nt)|5VV!O<tPmV44n
z+5K1Bp>!*#OrGT3F8@jXv;aY5QcFhpY*WUTeyzOC_8{!_Uu-uN-pfiRPx*``Ek6E6
z<~aT_=f$?S+`nTt%kMds-k-S_wDdOjpKNbseJEAcpNAlvN8SiGro*=)0@lgwdiz1S
zLv~1CX6{4~X!89$)LZkQlyN_tYA*zVI_h0zAC8au`5ybE8!@FHvk#>|<1oBC(`fTO
zGxJ64=ikWhD7);h%NI!h!sdOY{T$b@%bDZ4{I}gtO7|)sN#XF5(g(R|=cG?uc+?Z}
zHha?@^0jQ)_eten%T?Q1-tS<KdIGyG>s6<J&4VNCf$Qw^)|Ql?ujDUWb_+Z7h$EJ@
z|BXEcIh6C~*UB?pNuOcUo$#ab0vtr|MqDDtqA`!KsmZt4%E6k1K6kv~d?#tuzp^gN
z+MYMXmZmghD<Rlo;aK8i#dQL^RXzoFjpIk){7%@NC`wssk)j;@3L;R!IwH@GGY*T=
z)9zraHXytri0fq=l^wDI)c_3M5v4oF;dhN(I{pMU)bAe}_y=3*9(^IpFV8&m_u%%h
zuVL#+_O3ilp6kw1HiH9FN=r&hD$5F7+hKJ^32>-Ya<Ocm=`5cD9P%NnKFF3bK~5fF
zclqHcFWZXJW!u@zRxt_q<r8U=vYSD!@mrQWvUX^de~3LV*`AY~?@pfP%6Fb6UBNQ!
z(>s?R>z`P)Z2G$VvPf#4H|ZbJWUQgw(Zec>Cp-;%pWSlm=%u&FRn=)@=GjU|WDm(H
z7&CGc8_j#P0`?oO5wJZ;chtL6U}!wPVf@(q{1K_xc{7re<b(5a-L<Jo9?quDhN%J>
zejpB%{pWin@R*N)&E6%sn%rH=&CFIlCPk^)Dp%lS4#oBYg7keMZARpl0FwV+9@?PT
zo?x3m{yOZP_ra#W<i93Qm^9m&QG>;sS%BE~OBB#ow!cfml2=U~Hn#}zt1dtsclT}V
zh!fcn^K8Y>vD9BG^FN1p)RsCneQLE_S%kA7Q>sSZC@(<lujJX?V~5(4A+S60&@)+K
z<nYwdFhjfxWPHg?d4AEb-1Ne`BxH4tle1x0FvDGejdo<AJUl0DxLlEwacJ>8+rdkx
zJFk*_veWenQ>wrW>}JYrg!j7};SKB?&t{HYi29W#+wNqF>k;UU5tPU08lA2<vPUCq
zzkfWeCJQDGvkxEQn%QM98KtC*T%vjkT}Ruh%9Q-#W2TRDt>0;L6^&N1M&_nDrKB+>
zE6Z|Dgn5%(JJy*$UC9}@e1d1np+!EtIph__-%XnIBU6fe-%+Xt{-)SBW6sI61r_ke
zOk44iLl8*NX7krg3e`I@s_^L{ky#z?xKz5BUBO(%a`DB?)g>Q)shof8wQN4Y=P8f@
z=n$-fKxSU00vIS#Yh5YH_9B}*>Pk~mvv$epDMLY|Bs(WM(s1Z@vb{YibI5p5Yh!Y7
z?)G>bi<hc68Xb=MiWJx_0+2x^W)7L3G3PU8AC(F9H=Js*%Rz0M4al|EW?%<|Y}Dx(
z0gDK^!<FlB9}cS;+vp^DIzr0JDN45O4a70b9Xlikf#IMx$Ke)tvSgg=U{^7Zj+E?7
zH4|cp@x{ppr(kErnd8pXQ5p7(A$6YYA&0ngb5llPbzjX=u0xo&!sJ{E6X@H<h7Ly*
z&e>^YkQ$X^*G?+54No3kh$vW&!gNTmvo}MEuZ+YP6roS#xS-j(Fcm!F1%s0z=(
z;V|};yP*}dk4b$-a-}$66ovjAlI!xhQeEn3P$g-R=WNe_Xs}Ovib0b7f;<u-xS+?k
z<3t~XD6=6DSsEnMsWz;1Sgy%%ZgSdFQ-{d5)UQDfLr{FZUCM^5N=Dw7I6!@_4R&O*
zy&yj$2XVZTluS?^c1PhJ7@*`YlI;j0m8rn?Xcb(48d7IGgE+k@cATA*Y<~w5^dE4J
zE~0%5eZdC%Jjm5SpcL4YNke31JkCpp=-O7}9Oc9CLinC$!-+;tr2vy6|3h(pp`^i<
z114C>4!BL_J2TU&Wf&7C7bqD+4$V%>%W;)@uZF&F;Tx%GPq~k%el#Db`Zk=%vGy)@
zM_Lu)@IT~uJQJr&rX2c0`uR!c4tpg1a7dKXAW^<5`Ngc!Jf!P)<8NSFN^U|p+UIP)
zvE7_`v2sUl^nBQbXa9}eUNUY^#jnyXb9?|lf|t|xjoNIxN8b2`<6h^nFGEK7b>0)B
z&q|&%q~UDG{p`m4o1J%$d{$wZ(&;$0Zwvb_7ykNN9B&U#PPsP;oFEX9wCo4z%hbE=
ze|PPccR)(L&-UR6c(&WO$or(uC!D{|+#_F<`g+DD=>oRNcDuaIwoN`4yxXDPv}X~~
zd7<-HuJ@(ez)wqa&X!l5Dy@<_3*TZD1@9}P=iHK>)_DiZTz3YJsn~71&c4er?j_d)
z?(=L1ogm#IZDrTl-*Nv|x-+-@QRnqZ-=#dPe1c<$cjxa^>a~L+-bVXQcQ5}#%Aep_
z@hQ#?z#$P&58K4{*v@6)rN4xh>wf2LXzN=x`!#eF!)?S^->=vwaK`#cmWt4RSs#JW
zFWilT>)oTTfXgvUx-8`(*uj5lyCD4*TYLJp3Axv@UCQY=Hsi=AZOfryN&OwpvIE<#
z$fHtH%Z6So-=q}mV8^9zmh#h6Pq8n3AJ8-VdRDku-YX5A4AySQiZLa_79KwCQf50x
zevys%gxQ*9oCdG1%=l1FK7|z?c9f0&M&O7h{$WJ<F$=zzhK);>tA<W`%$7NQNa19)
zX1seoVAMTx-0ODR*n<~&ZE9)B@H6bGpE3Z#*xV6QhYnjlv>=qX6NlC2E-09^!~-<Y
zRItW1{-C7p`4c80a9-XqX*;AJ<bQ$nobfWNdQ>jo4zrJU<+5KXmDjPL)9%i=SUOpG
zN%lzIQE5Yh=P|kRHP>NhvWQZja!AvR$_v>K%ERm-`C(Q)e+ww^`58rNT?GX><#|d{
z>B+3-GiF1Ou=S@YLxwNvuFStnnznjKO-=Gs@)Im~hJDE6QpTulEF(?b!iIacBa#Ok
zeA62L$)vOFZy-$9Zy|MZp3htb7a|z<b!^&{Ukv>{YdZ2gST;hpf9w~CSLVtq@Q+Dd
z<E}anM+n+*^xdlT;giOv=B_;f0t|Z7UOaEa&?)0rJ<6YkPAzKr#hv1I)<$>XoRZPE
zLD)bETON^d?x;(>L^&0E=9|(@EO{HqLX6qUahdt)ZvV5AyhkcO5grWgjN#=UvsOnW
zx#4s9n9OtJf{c^dsVo_;6SiYqRj09kC_`PY(L;x4*-k>_6h{b$BiPH-InIg^RdB%r
zRx4O1!-O$^Wcjd+88~1t<2o3RAVS~{wjedtF*?ouC0n)wI_g#&pM7+;KQkvQEA^l3
zppTTXi1|4@efIn$Wy%Hc5lX7CpM@ZA9?y)l@!p|ha3b8f&fL+r*~cbjX620!y~m2r
zl~R&VWNXWxhk$g#zwEU+pE!O1k@#2WomR>>!u4F9<@yZP3fW)hpDAr&MZc9FaeU8e
zA%On`M=6{klONgNY`fr<{xv)JH|+Avw{4SF*-s)jx-aF=5z>6#1CR+FaaY<AyX+Yt
zu-o5auSt)w)C+J(=wHAh=iMOV_}k%EDwiM%@_Y87o8|jbHnR^v^WP5|a^#ilT-Ubz
z2{*Y%J_928Q84dMr(7ZLW7k1~Qu~2?k?YqfpRs>Rk3pUC1r$}}cC(0G1B2n0fa9I=
zc8Cc61kL*6c=L@7oscHnR(P8PVz}s5Hs%uS_PgY3<acm}=e_0cXI&)CdO&_^*yGae
zZs#ZLlFU0OY}9W1ALPPs<y(@*-455o=W!<KQ09{#ba*q)9)@V~Fy2c+;8B+0hrK{@
z#zoBW3Hv_v5TIb?8+L^&`5g9E(oL-NU+JaW+0TQ)Rlj&p`NDRKa*6G0+k5O?crSqY
zDuJs1SGMO}*Vx{+6~9T*rE4Mn+~$y!PawoShed91evC6RhWp^~xGfF7#usFiu=LZQ
zDv{ZY%OJQcgv4|TOY@bChm_+k=~QX_#R}W3+->_p{-g36+lk7nNuXA~&bUc_CzF+~
z{L#iPus0)Y_?cO2|H+TxJmO=i`CO&>1*zp;`M47xC#sXu!&1sJ$$3<#<QQK7OFYTF
zg-MxN6;I0Y<97MNB>C!L@|iCAj3i}~UHM2>ww1l(e%XB@D}tH;yzDCsRtC}=(#*~;
zWZMbSxUAw^GjC8%$iEvZ*b|iWHLodnweAuS;XAT$&fSd}PlGRffjuW3^H-2kpEK!6
zNjXoEtA{3m45-G=nQ6nW35!XRK)?%u0vaYMFWH<)$-`h^1t&h^uV#ue(T&)tnyLA5
zDjjShl`E?rkZi-YGh40~XK#;zXdPAu5Pv~jAZ0Zex6_Tg_uUXW=ljRmhgUctL%Kqe
zCQDZ`sd$3Dq4;W9dCIQ5?z{p4v7y|>%HT~+>Ak5Bkl;q1+nw?Rvz-qI284(H3#*t=
zeb%twBV5?1k;As8;P{Fx=_<DH3@GuS9fZ{8vn<F?Znj^Td<Wa=NW0bci@Ov*c;u^G
z{+n&;&Ls8X<UNqOC#Bw;f5C`bq=VPJlJutZaN%32jeEvkDeaSPmhUe7M*1jgADqih
zRHB=to9(~LJ}K!W<x7|q7B$zt&KeH;bNYE~)oX0Gqv%4&1#ZqfkNveE3kP%DDX~+N
zK6O2xyzplG^U4jWugagm`xU1=-KOl!*;;rOYlqw<7k}_ahCG$%D;d<Jtfb=#I|Ptm
zGR~pIJKX2sFH8HQXZj-<(NO$RTKZ0Z$@ruE^o_1mE~5VO_jFI+=}Ps|mGV-(bfs@}
z)xS}G`YXU6l>v(aB@2JlUi}Z6MWbGamY&i&@kh^89&9d@O#D5XweCFVRyRqn!JptN
zcNctp*vI4UMM&Ng@;|qo@3;pcZ5~g$O8G>2U!H%dawg81_{MdDbZh2WK&>aTqakv*
zpDn&j+U-8<#H7RL{$=Q|ZQCShlx){S`~6JmEAq;{(y8q4(#;YyAD>Hz5V9Exx0lt8
zbA}#{|CSDI9r_LSmZ}rjA<ZYVyv2)uUVm_RLu*}2@<ptE)?@NL%HM3)E9cohwH@(~
z{PX48Sl5-Pw)V-PKPs2X-$}n6eywZM=rg3Vlt**wI<~OU4@mZpG8dhaxjS{FEALC?
zDaAf3`JJR2<x7>#j*sNCvMyzwn-L5u2NAEna{RKe0ODdg%L<V$k{p$(IJ^jF5kd%v
zXoBuX+z5G?R5Dr`D(#Wvj;CGIt}rKo399?#6#FnK35w5k+m-AxoRg*ORZdf~OA&M)
z3i#)g>uvRSDyK@bu9xOKI&{{IjF;K9L(U!gTgMmJ#eQwuu<VMF*Gi|!+lIZ506M=o
z@)_yqjvo>0r=|UQiu3b?G<Wofmy%w|I3F5@?Jyp=GyP5bBg$s`Md^2^ob7l$`xDH~
z{FhzVvxcwOS;>EM&zSNIG|89Se^9ojojUB-$;D?YFFI~xqwZzpx3RtUFUOp~R(>lz
zrhI^b``o=9@{en?_P{XeUdM+J$xKdN{}HzH%_;XMy$X}9J5pEgWmlI~ou~XDpTN$s
zAGImTccTM=3;!aW!`ySWveJwp$us^{b`2{z4@c@rx$YKei!411u8_VQydBN(SKbWl
zDjg?Hp76GGhokix=08og{bI?nzgJIBy@-u0>3$Mnb{1??Lce#z9&-H4^2sGzl?$^k
zLx3@gfmFU^<Mdd7vB{PIW2Jh4u`<ut;<9=K=qtMfVzT<$n!*`+fU$qT<TLZa<g=uA
zhJQX{>W_}{Uw*>ocg#H<DC88I`w=$eJ~lji{KM>X`8vgYts`@V>Zm@)_B&gnd-}iR
zOQc)noox7XtfcT1c}!^eFESrsX&*qT@l4t!soyF2S*Nng9b4TyM&Ajk-zm~NG6GE7
zz8-&rnlfoq^4rp3A4^T=Dorm)EAEw}Cn#6j8<eLV$DY9%jGcL#+3d{UAugTkErz&x
z881uOhoryE(%)t&S4bJJNZF4`S4tVLO4+}cvVG4$nsXxp=)S}LG5!aZGa>csr1TY^
zvQeihT`x+$Y<KNdtN|{2)3bh?{fDHK9ggIy*kx?&S()-zS<V)DmunCEQ~9rKZ_BSb
zo=Iuilyok3u~XT7Y?HD(<9g{w_>;JvhtEw$N}2Oj1*d#mf><usO0`RGlG0l9Ur+uN
zf?B}Ut!%-A%FL+?)6RB2%g(i*$bL5@Cx4wXLdjEdVfio=*DNJp8I425hT~}{uEY3q
z7M_RWe84<BQQ92bLlc0%5%|kO-Yh(2@uxhb7=;wMI2M=g^OUhXZyN4$;3|`bbeZ_}
z6uT_V)AA_@)}!BrC+#)T-Ruo%A6vFHy(sw#DSZ<gx6PfF_N=o2gbG{xCW9sgAys~h
zSW*Z-`u&94mG^B|fS36TM72*AJdt%J;tWL|AM;_-bE#XC&dUGXeFJ+$K4-{VrALn4
zE+6}@e5UlsC^ADi4^FOUBwe1mS-L9!M&%U-kIMVx2@4;@ITz#WJFc)lY8zL-{?Xyj
zOXVL8zeZWGJ#8zjRbO&`z^-R^<k!6-?~=Zf@5!D%`?n+i2nc-NJ!0?JtMfM}eKcz9
z+qN(5CrPg{_kTU(zS6$<9{8XivEt*@7e^#LSa`Gj6lv~BwnwEi!BBdk9L7Gnjjg!~
zAz99H@0BW2s@_-rBBj5{%IcQxm5xf;DxaJDo-F{c*rLLzNA1f009r%XhfB>RXW9PB
zu4HKsyHw9kIEZg$3+`pn?B>s<A>K)Qq_jxnD)uLqc0|##)7cQkSCcg171xrS)sHwQ
zG)-uE7fUkZ$hLQ-=MixKY*smbDFWJj%W`VM&$>@{oSpuqeN{Tx&7#Yo+j~lS$$c+^
zP~D9Yt8?sCQWlR2oB#``+07rzhb%Z~ZS~O^C$S?U>QlC3E|u!?^4CAbw%JqOm9|Px
zE5{+ESBB#|oV1lS;u<M`C!2T*3!RFEI4O0XZ3jD@9r2dj+WuRR%F7>QwHL74-Dp1I
ze-)&B05aa0<~i~{34tnKmhX{r+^fEq3Qm%iPDsx93P*ln!Ig}t&rUBsUzs`Dox2P%
zT$eXxuX)<}C~PuzI=8Z|$u<7+^m^q@cwV0=r98;4&$tF$!@cfF3-4wPu3bqx^FK?)
z8M}XmM*sKHX6JXqo>yL#cd*Olx^3+H+?#;>5I|*N&TG>0oFC=oIeVq1oa^LB&PQ}W
z3eH&kRN8F6*YN{R)cPdn5AsD>du_*^hCm3{vkR41hMYL+QMvQaITx|c9f-p-aX90F
zLlHkX@3&F_d^SRYF&t2uMUg{U8a81EOTn3#aB^#cKcn<_9zYZ#jFaWx!21lYZmzTp
zw_}KGPa*$51+i`rjs%(*NnVN#&X3h7<>AapC}^QCm9{fwlEez62N7u`6L#Us*$mM}
zS(dcPC9w?YV<Zy4nbOk~aTL3yv|Cm#pwPK!O|ygLOV_!S+nI6@Vl7D@K{J^peU(DL
zKe`dk2$Bp5jXH$9FA)NZa-~Yks0;6)wMkO-?DrMrXi9hjl%P1VPisAdUpR{zYDc)^
zNEOuRAr2&Z0i~r#*Oyh5D{acTRI~#|=*ng3%7qNi3NR;Cks`gQD0e~U>%tO+)M~MW
zk@`X^Ru(4DQYO&rm!Ug$OI>t(Ix5bQt{FxpU&dQ|oNU{Km#Nb8NR=nukMkI8?%Q#n
zBwf$nKZ^s$l@dh#l&^uUh}$8ZBmGqpuVzAYF2-iBmdHl~bv<bnk>g<|d+GThXzg+w
zfW#!5`#LS*W(6Wx%8Rkfpyr*8%4||D;-E^q^+2dBS(y*V;h#6ZkB@FS%{SFAL5xH?
z@{BP?NK|A?OUj<<-^LuI|CeFrH}8J*&1SzH2OYhWr0jrinay@J7OJ!-lK^4#6Y^sY
z9woJWjGB?}^4T53r?_M&zi*Jj>8V4%mqushxcoNP@F@;R_mmp|EWd-0_*2Q{l+yo{
zmIsq&=!bFSq7yQ57ZgO(YsZZnD?9!9ICfx&Q^}T{1#)UZrlZO`c}&6Z57?pE)w%Q2
zGP3djqcSE~lE;n%bNjJ$n&LP|Ivsjh=rP>34`IZ7FSEUa%T4SJ#9@CKVHv(n`gFwA
zhz<ka*9XTw#U4hChFz?6-i1=x9~{p+Paf0ZTyyY}i=;I;`_+M%uCP}F3v5fqNn#G$
zeGJDbz?D;mi!NNyK9kdN;x9a=phZ0eX4O#HDzHn&N6GdPWLYp7CU>(8#FN8WBk!S<
zMs?EhrzicvJ^V7;nBwiMti1e1+x?(go=y9>@QGn3BM9aeoEQ71GVW%aB!SWYnM0xf
ze`dqq&usY9{$a`CPQo7ygWy;VlLqkx(QmbX;sutk>t|>YCC5LzxG-E1>F#Hs=p`Aq
zc5q?j@Fl+P-!EDl_m2_k==~o+aghH|mY!q(+9-0t6%;~%{r-pS@&6Ff;Q;;}U|-@I
zLwx-H{xcN?vDF~|=~J^mSEFLR&fdYM|1XeR?Ds$GT;#kVo=233YgMwi&iY1NkN1e{
zIp2%x725Ol_lf7*+~WG&0&#u2TwK4uhhLfFN^#BDA+GAl;_BNXt~D2m>k-?<b!CpY
zUNT=?A8ruW=e`uz7k7#4>tS(yYr44pZ56*t(m~>y(Iu|K4i(q&JH_>mCVqvqQCtsw
zL|m7Oe#@aM@qCgfPd?>c@qG3>;`+BtasBFHepQr+xE8!7uKvTtb?Ry2dc+mt+I_UR
zo_eFWUU`hT-qtFvZ_MIX+pwF&wOD&T<LBb}>c5NYZ&Jkd`A5a|!#sYqFLsIRj=NIf
zkvzLA)DpC_^ko&R>8@g7pm}Xzb#R%JO<og?c22CQ2nSaM!@>6EVEOuv)>Yv^TX}Ow
zTSZ$Sx+aL9P;;OnK5zM&Xj`kq-YZ%-ZN{O~X3s2Jrp`WmPQy&tjm+w5Z;pmK+9T@2
zd)=-X9qrL@pgHPxHH6ye2M-?YI$OV1X*cr%(QpW2Kb~sgT>WN|cC(nSk>=@c*UZic
zDhh_%P|w^@d(iSQv%53U-eP&RFx=77MU9x-&_Tb!b)gxdb)jfrCLTK4SBIiqEur>6
zD?N2|&S{SZSBC>p6ibhbf~$BHvHQira43it%w60ZXbpr9!`+f#d!!@mcFjZ8!PZDL
z(6%Vpim}5u;AIf~YDRbGb-7(=%Q3;`C?#IFbQ=AjLkpMApq~c%S>|?$a&f${cGp06
zon6SXBphgutP6%CFqv`VPz?N=*AWh?(^htLMfr#??hH1E0<CIn9zyM^Hs@t1dqziV
zYbY4Tu&p(USki^|Ad{FgBeA+L9BK=q)*}Mp7IjWbuss@zqUS0)sV;Av9cXI{G*zi6
zACrp#KyOj;qTuQ-j7sP@-hE6~H-~^w`)YMoN4QO$1#svHN7Pl}jy4q_hLYxWHI+@K
z8&RY>t*x__<^(ga1PL%4(J00oC3LJ(=Z03ViK;6%h#MM`V6Y5R8f;aA`%e4~{`Qtl
z){D}w>WpwlB%&_H$fK2%n+jggNzmO&_ZURL=X9!s>Y;W`3$N}%x1tfMwLx8F0Cu!P
zoe^m7Xy<vUPXGW6C*_Nc9VJ>YckY~-i+cG=@U*0(qm=+j%RMW&p?yZ6wOK`Gqa<UN
z4qr5v&v5)=q&e-}pknpt>s9Rv1D5&Q^}&_mX?6#dsz0Jo^1U@xvJ^l?L*p&?l+ySd
z90E#E4=zVTq8QquHETNQW@=YkAQCALwsaM{r!@mlV6knWo_7X1gW-wl47}-zmM>hh
zAySU}wyySa)l*la7I`Z@RmG~ern+3M*YHlDE4l`dP>uzI6&Vb3v=eEm2!t^$t-*@L
zm6e`Ke|1%rr>e5jSLyRjRs-Q>p>-4S>?^PI_^az;Wre##>&iRAt1AL4BNed(lTDpe
zLjYaNICTnKsIKY=^C=GifH$CW6;RO(DCWRI&>q>)wz8uYAKC)#p-%k^;G&~FSk{V}
zRB7(;5vze?53D7ui!et5>p~GK^VqIHd$g-fT@?zpwor8);SJ?(H&Em{T3LiDViSTU
zwYGMwkML$S$C9X#F04ANu3!sQKyVrjtZc=iTp2`ql(!h23P!OYF&Czi1+u`b3v8q=
z4y|qvM7zR3B(Bwb2`+D(-_@i}Qd>fS)kSKFTB@pLrk`Q~Ge$YFdRp|=kD^*ofFJq1
z%Nv2EL#-X{O>y}+cE>mpu2%s-ZC%j-p+mQ8c_SJHlwxU3sKVQ*uVVh8)W8$G!STh<
z3ayH+QCAag(kkI4>&R-7I>*SrqEat-g~zx<!$sN^zPN_ZScBcGRqfOfIHt?Ba4!1m
zsqhwg&}Tho6^5!*UAV~jRATvrY#Qpu9qmPBVl&c!j5k*wyA_oluMg#5Iy|B|?)gAC
zfmRK@a)e0Wr)^rmCZ@9S!Pv~ydO|qH<K)KnuC`KjZK=9(Eeh|f#B8@!9<M(F2dHfx
zJnlQ;+9tPal3El}gDXsZRO|KLPM#T?>WU)&!cg&w7PUh47E^MJE0FsN6Ey7GdSlCq
zmbDc{UY-)IsAwz_O(<UBMV7WoFB%lWkj(%Z+n|p`la|V(rSc?Bh4yOWWI^AwP8I@j
zVdb=Ulr0UmMro}Yd!%X5rWLhSa!}WbvCP)=qRtiGgW51yZ60ksAem`8XB2gMyrt@~
zEAZ3l)srH*S0pzjZ4gO|I;qp0)U8srsMALe7(2@E^B#mU=q*84rw?znx~V|?`Se2F
zAW{Sg=XTEywg(AL1xbQE4o@7r@NIiBM`VB!jbs5>h=f3tYSB?gp~O;^$RvEguXtOo
zz1HX*eA4ddbD269n`e9UI5o<NAVD5PIB7(Sg(xr7r&EGzy?!S$1GjPdz{tHmg!LN^
zb_TKC5RPjJHG|l4$0#4QK6Z~X&|DJ<M_?W!=tLFTidDTp<UsUmKtKe;Dk!P7@lAKT
z6A*A}eS(*w<Y0GaI0(8TuD2XBgFNMwLo731uLA&L7eIeBq7a1(>JSAMEpKe-=mIid
z91V9hubtg=RH=HD+g<$du6;XiP)$@TIvFEjMMle7p?u<h<i-TG@hY?t=3tNr?TD?L
z_VNYT)CgOcv5EzI&?uXciI@eQRu*3c-7Ll_4C)j_G>AToKekM@l}b0ZN<br?MFv4!
zn~M-{L_yduKwbpZ2q(c+j6djM+Byjl#uo~zRISI47@@_@;ZSF^p-CG~;1#tVKjNc~
zWwej;x-c(Y^y%R{X#kBK4(lpxp>H*$jR_U|+O*cy!Ij|vA7qU~Q5Sat>4cGlXn3`r
zeyzQs1%Scn0Aa7M7*2B%w<I<(z61=`L9I7#ML{}*0|^jMgyCsjr4k-ky@9s`1xJJ3
zCK48lu7f56)QBL*we|}Zj7AMriwD$D3hKsSw$ysl162>O6=Qoi_F~$d#nVze6<czm
z(S!^v1!(W$D-lebC8c;J`rFY7+Enjs^O``2XeZugkJfe%62`43K(#*kJn3vL>1>fy
z?D`r2hy+!7iYjxGDsvhT0AjEf&h1&_j6f%t%+`fXb1hjG=~))_k!6uN%VI6ZVv#|R
zNg8$lcy_ELmXcGP5e{o=gor@enY8VIP^p3X!FK|JmQF)q0=0k#r5DppFJ{n-8KxHv
z^rFG^Vi~<yh8JjnK_2(qV-2>6z(1ZfCDMA@%9UYYGi{H8(7=6YptUvFzPxd6plxMK
zph>Nddto$!ivwtAAQdoPimhozB^DargJx95eQGd1HN-xFZcyv-gS1NyU$S7)oN03x
zo5^v(3LET(#yE7BuL*Wy8LbX-)}xd2%Vl7p@Ly-kDinqpH~{Whtv`UwsQo~AZ(zp*
z;M{2(L33dWdS%_QkN1;;3i-*ndm<ZtDoFtvwx6N`wSGS{qDsJ$E-AqNsL2c_FVuM0
zdhKR1gmE$9gIaHSL@9d4{)?bZnM)}2LW~!tV$3p&Sdr$p30sI}p^$kC7R^+rO<!>M
zl0?`6{4MR4@kj%&`zX>R-y%}e5O$$9)s5J*E^U~~mNB+*@InuDe}x|Ll8cO=r5P<z
zxs2Aqq+q+-)W9?t)gP@eWj-jT^q>7K^JlWByfXD?N>wE;G0AS8E)dd&%HV38Y}TM9
zyzyn|lHTNgCB2nmgBCL1P<vOfr6Dx8V>N`f#uxpCkm3^B*7FDqZ#;!of(q83=C<o{
z(3nJYM&+DE)%t5L9_6^c0k1vY*n2$rEKk*7*MtNkPHbw-g^?g$+!jAF2OxIq3DZ3{
zLO{8xO~$QC__VDPn?2Sz$i8(D>5~+t6J#7nJxzQS6nqIMj7dtQ^CH34AW1X>;SDBQ
zFfmPDuBuBq)BuV2I$FSrK_nIdjS3c~qjeoI39B_e6LL?XCWt`hA#f2;P79Zslf11p
z)D|N0BNB`fQ5(_Lvq2ZAMPLp<)N_%p!3LNa04&{NNV)=1BKy|`)c}gM5DnA=w6m?F
zy>)}y(cIj{WyPjJpw6rbZa^O(`wglPI)Hxw#2|TaU7)p#vzjO$vP{tTfz~p5i8dR3
zQ#(7rt*D$g4TM*QK(S*C!TdFci2W!PoJb32Sk)zg4XtRA#-m`KVmUg(Ex~XpaiM62
z)<BWTn4`7r9qZeP>er>Yt+Ba+c+bS?_W&cJfk6tzC?d5ew#dX=v8ecnmVsef4SqDb
zrVY}`PDov8eo(C%UEfhAI;_tU-+Xj>%0gMGMKiSZ4RovBX~jp^(1t4tiU@f?tUSFi
ztm9aDctBoLWpT6``eRh4-)WVt>gWphU6()(dS&7XnFR?fn!{iEEJ=Kck{C_q8H_dq
z-HGu8H!`;!Alz<b=BSUR0BMYuBngRON+B7EJtG+(iP_M|L1>^h1PMl<r{eO1IGQ*S
zk*pS((W;)p0s%1qhd4ISzPdGN02}CVj)s>vE?g5LBHZ+ZrlD{XmexP_Qh0OMN`P2w
z^3D5x3}@&R3?~ivW?k6>#5p@_Wf{zvlCgitu>$}5aOM9bsytxa`2PlKJaB@_E;wX6
zOI=1f@d_QCIhn4p!rOi|<>s6k^>n34Prmr)^QJGDi-o;72o+;%q(f+JHC9z8Ry6uX
z5KO(0EQ4Jez$Sw9iBUG@wjKaIqYo5%rQe!1gGSotAPiF7km|N_NtcfNbxg~7biTCp
zFA25<Y}LW=hV_u$20?~Ii14A3Q83?@v2lgM^ag6WP*mSsi3Gx~3D#-mvT5@c&YcOa
zetIARY&5ew05x+k^6;*QcNGcoyk2?ZJd(eIo`Il$p7_71!T<+USf(xvt?*WOYSkhn
zB>@OY34z)hy{h&CI*ff=FT&d*zy7LNja2aOP>A5h$jX}s21tVebiEOELp#%!u-0lS
zIHDGzY`@xu>Px8l5-8!Z_ZvC2*0il4Z5*X4iijq~=PahCSjt-AZR+t33B2mUj@Avl
zlUz0E)hoxh1T8`lsJ5vh!6)h~M0lo=$D0mlENMO=Pv>-N0MooW1l6e8))9$<zH0}q
z6$Hg*CTQcf)rqlDq=AU?8N@)+JX*$*=c8#>BiispE5yKv0i`b(R(y*>hFL@}`6MHa
zcqwMj$Xwin>`071Q8aF>rAPHr=rzhh@w{m97%esmMnX%@9z~0<XdN%84Zl<^7=r!l
zL4tw?QKhA+94x3oC{rI0f=hy#_yOU=OAU`=G3?La7<t4{8g14qw6x4po8=2{Grhrl
z#M*3vbZzpH1aoBS1r2`*Ujk84dT|B5w&ATPzXVr5pJ)E8rS|j5(o<3Y=^m43luV`3
zJB*9o9-y1p%1hiHy(JtFs4r;lzpFivi)xG~G^$--M#XyNCP>6S#E42T6#*!pU|OPf
zMTlvfMj7a)UcVz!5-d{3$|$7x*aA#Az_QX;c7<A_Wkl<Vp@8&R+@Js~d%d{E$Yei8
zZ``<OJr=!=Qu{&%*qJQwsf{EpCb85tY^|;P61@S9*dpffxf65P`|?XTjmCWIxea)x
zLUjb8XH8IRf^}<Zvw@CGkRw{#OFj(}32I}gFJblZEf>&_x4o|9gvD6K&QgZuOTxT~
z*8m2Mx4jL&|NpH?kT?*ik};qznMo)PqHPt@jSy7fBrT!M6ic=f_FCMW4cbjE&me)+
z`f#AL6VeGzUV&F_f%PAm_{}tSY0k3td@YuwdGTRNK+f==1e8s}vT4WgYMTemsJ_=G
zpeHKy@A&4^$Sxv$5+ns#hjJ5qNJyvvEUirt$RR=YK{kOChw+qH;wB7s6nN47jsgau
z7kV&pD+W6dgJ{K|ro$j6iUj$IZh)-j=p)grh(sU-#aL^PJbAD5Fer%xMIn!<d!Q8;
z`S><28px@PpP~(d#{j%n2-=^fkq;n#!D-M!5H*TjD{)6mdje96LBY0wE+$A%RD{82
zBu<iez${b?wJK5R{5_FXMk_c!VjjDMrRy_lw5)h?C3f;@ot;2x!bDE37gvqK2nubc
znZ6*KX-(vr5C!#t-XNYDTTvk@;0&P^Pl!!D(P;iJs=|uZu;n0-L_*L^2pIrT>s<7Q
zvj@?N|3y_j1P{f%qRan9Rh*D6hD>56wA^zSFNjGeEP}6xcd2CHXK*VCWM6s`z6Hh9
z2>of$`&KKW5j~Xaedi!lN=kI6F6LuwjeaY{d}O&9C*z|cby|?RmRO9}uMjWeXX!D?
zzL3-oR%31mc(XMDuSNgjWYY(sF6W|COMXq*d$$@>l_wVV@<}wLv2lv%!A^-$PMlQN
z(zFAS?OF?>lKNCyHE!&N@%Zw_X|0`W0!?H>zOfs$zy88|JeLHMU{ClqK-UO<1j;99
z{MG5fV0&Qg+F-b>A=nP{MUwgn4H--@TXpT4p-58qZ9ZE!H=NVtE$a3F`IF_iR(YHW
zIf$@sT9UC8uuHcX&SI?!VKG-w&6z)I!J>K7mdsf&pYv9URI;E$x?tl+jVCSi$_^MW
z8`f|H`G&3;D&3gt2x@`WrH_vAwxT)e8fd$TL!*&^iW3Z*@Gqf-23aX-^NA~SyLya;
zC<4v{Fu7M}%xy1<7FUoVc~otQ!cfyKB<V9y2mE5pRR~o(tOQ_X0Ht`8{1}i5cBPzE
zgmS$()Co)2$eN(g>5I%HP4ABBlvQ3M^3f;++gpsXx;@?ASaFL&upVfK$*Q@q*i^S@
zN>8w%a7v<zV3N?)MjkkL1rUn_brKHN5Zt^}l#dafvx+=e7KYUNKzKEPgM{S#&Rbl+
zFhsVhy^q=4knriC!UR<O6mU<I8Bk##+}^xKZ3gw(0-3!4@lcdA<G}!ZfjtL}Wj7kB
z0-eHOI^5OXPI5EuHHRY*NoI!5?b~`82iaMGJu+NS+k>kC4=|E2k48N*KpKw0i@@uL
z#;Y5S8Df#pg6PIN(3T8JHijG)$?fX;H6gT!Yg;r@+0^`g#sr1w<`txb=~DwEd>LkH
z))=v6)4BoDJ!?IU8-3+KDKLg2>;hX$aZiW^9w+5Bm9=%1l{MAg>grlwo&RV}y<!xt
zFHbW6NK`fk#5)H?^1|WC;(;L1LukvyHq}&kDpA>-iYmPC(K>SpMrKkN!TiWYsAL8i
z>_8A>T~FNTM2F^t_)b@JVND53A8x{;K@iph6lA14L9c)c;WbpI!cPvZ!BEXP$PMI&
zm5di<YGrv9UYL7Cm;sr(y-hv(LkQhK<a{J5%i+l9udS@D@mJS+{GKY0?`Tn5t+%Ge
zgLgI6o~mk}_h@yF+da6{JzB2nO-Bp8rta)_>v=h~)wMNM-pV?^r>3r|&R=yjAEug`
zy1H6ll@~9o>(D2(-s36v`YV0Br(VC-(Yo^5+UhEQ4S6;CYN~4Mcv6VP;cdfRWXHh|
zR&xO6YA$~<%{$hB4&Ye7<cJcpAxZ>_<=&&K2!ISoHy#rMyRX*k@zvF$Rkc+$l^(RY
z%3oLOsjjQ3^TU(U@AcKyRM%AdFhiBTYF}k#RW)AM`g}E*!s@!C{k7#a{@U8wIuDY1
zDywP?c<pn~$HK!F(jE+w0TeoBflgze;?UmHK)j($w+o422n3<nP}zuXi~qqeW0U2|
zJfX>>Unui*`yZG@b#z1*ceORn(mZtGF9>`HC%I)!By{v+W{K-2k#Ot_Ui5rPIyy>j
zmhnW3QA)z1i?|ZF8tH{(h^UWP1zhA41*b~|dQBgUdM&jy0V?OVlh8B12)$8I(^_jN
z)=DDL3R=lEzQ~VmRYa+{UdLq-9~Z*>dR>bkF5;z`Uzvv?(HKxM@wgAwdMaY2@<E^m
z#a>xzr8<uX5>L?W0gv4AO-)V3z|-2?^*_|bO;|lTppn6-(D%=?02=AuV<6_KAQ=@J
zi`GNn7<-5o(>(`-THNT82b6`U2$yr<Dl|p7X+nPDi&2vH4KoEez|2$OTxlH3B%Z0t
zMEQuE`RS$@ElvpNKj9>c9@3J~da4gglux0CYnFgafstfr9j9Y}5*ixgfvme!?Vi)V
ziU4Orsk(t~0gBz2)eUM9hEn^^2d%wPOVT8$-)?n-R*|-yn-z(i+U|ou1IeuGOL`?d
z)n*Dc0PaSRn4HQ6*=OxT0$V>qq1sN~(WN<q5q&@ee;B)lpk;w-iSmO!FoauTIXDfW
z)4`m4G}x(bBHM}l<^*>nNa|Sl@DtTDI~;0h+_-U+HVC6i)lt?Kj-t_B*xC_ooYU55
zqI`%>n7LvOk=1bWrMu;gn6hX9s}MQ#2fpwZhF}sLLP1o{BA6Ej%O=xOuPRlmw6}|+
z8(Q&pQLqKM-Fki2rZjGhRj5%S=6X4Gb^vuxhpBJV@kHR6B{lycl9p8KP%y+Fw7vnq
zeUypeK1vX3N10geqrh`>OPZg6;nulr&9iMTeD#I5-<+nSus@+G0L>VGjmJ0+8_N_4
zEolg0Te<M^pHkMN8}ot9f=^>~KaBaboSJ;+)iwRecZ_H-TDTdp)gVkvynipfvGg1e
zIB4$#T@Xc`J3u)PFG5Io=vE*px|<xc;fqObfPC7BThWd1xM3csJ&WTu`73~>6?7rk
z_GkzS8e(J(XK}DW&DsbDTfil{G@)jk^o5{4u2F>Cpzq-kY2ao6BQdll+(p4KfFpVH
z2st7R=yFJy$caHK1x%9Jmw_9Puj65Ph|)wRtIKqpC+TdML&wkMWX&B@Wbf%;O>VN5
zxuzm4FL()t+jc2O+z=;03dR-sFj>^b41<(-G&J)$^k3utxmz@K=fK-zF~-^N(dnz{
z*r?E62t``qQ4-)D9V=n&F06|%v*t-MCK7;!4HB_!ev(f1+B`0}iNZ#HC3&A8+|k-H
zt+iFH*KQydM^1>F5>E@+Q6Tn^#rYc>H+j>|(PK>se;4BsB?6GNcnTO3E`K43feye%
zzqK@)LF~#Pz#eXwgRILWrhz%KTL17~G@ws$O*Q9d7YM5@8vK@yXqhf^B0&+vy8be4
zNolMtE#JnqJR*qr#g@Ca9AT)i<V_$QFftlC0qb%!7Z<+_jSw-2WrIraOO^1q1F5Iy
zI++NChd!-fEG;Y6Tp5YD7p>_49bz~xqgu^{8EqI)){SeAk8h<81RTl(;50FciM{kK
zEfrlBBVfuCA4;dwQ?AEx!KU1XwwohRkjFgrN4UoG(WI~@{bivcPgG|)qRsTI0JRd+
zDe5Ti<g|?TFp%_+SH;1Pb;Kwl6X1?SqSjSWgi+L8tRUm#=r*ttF&MaERB^APIY%q5
zk&0{jZyQjm&8X~udL;WnU9e#8cWjMew3O8p!w*=xT6`i1agGOT!Gi=r_Cu7q0B=>m
z_u92>9uY#QxDp(Xv06L%`ou4a8jDOtYs)(kLnkizGy)FL28}!kcvD!`l&C(nv%Isy
zU#ucd0+&S*GpVutNPuuWmd|bU*@F){J>1a5a{`(xc}|Fdc)5rb#l;B7uH`7gEm}o2
zP1mGec*Cva$f6}?DNkXg=${GcLIDJlipU;)U*Mz_aIYDW4U+QELz-C8>|hXI4_qgd
z3$*&D6Q@Wwakvsat;Sn3_L&XlB9;+znBcon9HLASV~HesoR<Wt2UQv&CA};NEDpGB
zeRq%A-?Iv%d(``qfp>2JrIDO*fZglAw0IP3iSY!g)FAE5bSb2@2HpRk53db~873f?
z+#vz31MYL61!D1vNY_fvzkqPF5VBm^nvk+fOwsm3No*vv;#~`TDV7*`B%0{~tlo`Y
zm1EfBO&GM#jPX@rOi))3Zay)Q1WISX4eK0Clgd=;Jc<|1>AMF!DHU&}KrP@KFwd7@
zHu@yPxOcZkt(hVvSz;N1x(0SVmJdxLN=X|t5%}%c;{FIOnrst|MxIXE%Ibv>JC<^o
zaV=4L@q`$kAB_^@8O&Aat>3rfS2`X!ys43>w>FO6^|ZhpdH}mY_k$WKP!tsniB?<F
zz8yE1JJ)yZ<p<oYF(T!<HHrJ#<@Ji@THnZ_@{p3HyZWdgMc$k$d8@CoaS!xdFw
zMx?7_!7dRe41m=KNLc{I3^%kNW5XQ)qOi2dJR1O*YJ}HJT)U|sv1&<sZcT2A07}WQ
z?;UufygeGF*P;_4y*7^QiQyN)We{ACE5bg;P$bMb1d|KXp9st)Iy+*qk119wN$o{=
zRnZ$@XESRC89Ed%`otnwMzAwVfrT~RA9E?*Ea7ZE)c2eX=${3P4Y3AStCynw9xEPg
zn}+vdu|g_uW(T3}N|2>gO<Yn*TuFMNIt%W{cTiECusb1IrV|z?L{^l*w0!l_-ahC#
zC?(|(RFEl0j}MfC)JxXB5+%tIktl-f*?FY{ODS4WjyRnID;0y-U)mD27BGpi=Y!eD
zn%mgP<@udn^A>0Ui3yx5>9b{tK(1J9j~0f7&k&6X&5DkC!N?e6#b-+&Vn}W(0K0&1
z(`f21se`;Yuv{J$KVF`ezozN7zAn>Ki=m6JJ~jb7p#T>e<M@QJFT7Ed4-F!y*6KIf
zYI&`@4G<@~h{vsoi#|i*<Y-_mgj{8liT492>H#B3PDdKHNQh#VuM#F|f-S@1g^NI}
zP);6sXdL|Hs$q<Fk3keKjPKM|EHCO@o7N*Dv#i5QtrBUBp%t%a5U4;gv_`7fD_Xf)
zvHI}yx{M(L+qtlJ!xplRqkn^uep0v`C^fOM88Xg96tGoZqlq>(gE9#4OMxu|h}#cc
z0;K(c2ujrDn8F6CXu@KI#3tF{nvRwU#qK4DMAQ!5`-UZup#^nhs$(k7kXzT0po)6n
zQX>b=OMf}^Eyj#{V{sv4WtVFbi~$r0G-%BSX#^Pq^wyMwRWE8f2=N$5d_b0BI=yHN
z&V;zq;!r4rDx6>d7TJhsWUwBBiIM4FO{E|4*{l4XYM;N(=YuI8Y{C5H-b$~pw%S+a
z^H=#`mQ>2Q1)U28bo&S~peOL^;VYM(2xLvjDE1+4^|z^-d`IL*StMhL&)v&wfhTx+
zQFkZLEev;J4dl&BR4igNb14qcbkT%a0v6-pPK-9$;2EQB73xvXdz(WGJ^lX(0IGun
zvPv@9Gr?G0mEY^Hsi~~<;Dms>8gE@KZ1#@!mBXBmKUY<G{l2>XfUJ|iW-Z`^Ca?#%
z@CmmjAo$>Ku&q)Sf;v5W4|wT4Avvz~1ERHhO<Lm!@DkTxNnkV(tgz8Qgm_QbKdo;)
z64FjBR+Qd1-cL~spj<;8lO}0UT~V=E+W{$NXP1aQ+wZPmk^Lr8femP%=%*BfTH{JF
zp%;K{5t&zaM7T3^DK?Jg5DpswiBB5|I4i`6YYw(*XFou)8WEAp42DYtn&Tt^Qgicu
zI=_HZ0XQP1gCca%a}jb-bUrv*^9TuaW(W#~Qk`ER0-!SbYdhIhA{aXb&qL~2IHM&9
zNdjF^K=DM)TtFBN0JEqfaDG6<9S$|E;Dj$Hdy9@OrUYe(<1dKsKBDq3iK!Y;0`?nB
zzK(PNf^Eh6gDBtpwM;$MnzX5+Xf5aqZar6Agk26PAn(>*5b0o`Lm?2c3<=k=7<v!h
z7H9=5H6*~9vF%YK{7pIH8<-$FwpV^If}wao9=a#7A57`>_JYb#1FMMaNCaB2$3M0U
zhp0sO9QR6BM%I8t;X*(HKJfQ+_E0NaV%kG+i6CzNKX^Qhp=cCS2Ng;j$t&KgxDfMJ
zRI6(_ASgPP<TE_V5kSiL05MPOLr<zEjt(J>j9=H$a3zeFvg@_Lf;d)~Q48v}d;kSY
zc@ChBde)z)HGr{&uptbQSJ50qOwoc=={Dp#{F&@?fJ|CC0BVFQU~SX9mdsxudxCdR
zw;BwG>6jhWpgXJ?*N0%rU|7pQkFN`tfH<S;;gQAB;;K*>1~#1m#MlB->|y4Eh+8-&
z3kDpaRRCgsW&?a};J2dN1GSM|0^l5_t;dNDfNQ-Qn#xZ=iqP3%ozbo;UTNYsGPr;c
zJ;KBI1FH%*4*1icTv|3^xI>Xo5Ns_IoNa;LFV(!vBEqb|C`*hQ6@jz6xcz#}WL-00
zfbZ4@ir5L14hdTXso;zh^F}lb*wGNR3w}CUQR@R6XaN^ZIIJrWUW-ELs0bVb6b=$Q
z(sme0e%cPhPtgReFaXf9SZ^X~+hIJ~DHlQGn<i>%6FtB<!%65c6lDx0m5IS?D{t#l
zNEw3_-Kt8TGx9J&Crm;)@-{VW4rtc`VD%x_)`QWTC)iYg36*OS89~{S##7%^IL;<q
zyI=WCfE6bmCJD0F#5!qv1Grwj=D0S{V@v=Iw9)1v2{c+Zu#)v+EmjR$tqDs8!PE{u
zHqZj00*_>18fZjaAwh%r^ab%sC=+_5Y}~KWL*HPIZdMK!n}NZYzVc3_>{(}maXGL7
z*T$P%B`mE14Wjl|nRUvjg#BC$0dC3-;!7A#8z)YXff_ArW7%0-vX-kVdce}!7@QFe
zm4NOrXW>l#+J0?qEFij;K$QBsZ`=9SCJF6{xqQC*OrSr|CJjvX+;a+gESg?MDG>vV
zwi!!_`lvr><Y2#9FdwGnHt136uY9x3(g2%8^I>X|(3^2U?Qc!>GHn0f0~fG^PY6h@
zkRLx@5CvO?e&EnhPDLe}G=OJsbqYmOOp0$QU?5fZTu4Mj&*73_l7`PwG4pF-J=9+t
zv~6c2R0)G_M4a#`QJXOQ9#a01Py?1w{5IA!Jh$~eMx3I9igzI6p-~IHP6bATD+c<k
zQ71X9^Er^}6LcLonxD_sXN^X_fmEXRkz+a|r-36>s*(2SK5NwbXf0$Q)%RK>tl|c;
z!g>-o1F2QCw`bn?ZubG_gMlM$VXo!swY70;B35VITH^|mzSdfAy%@*{=t^n6GjHsp
zO$papzfH3gZ){V>WDmN9J&Q068=6Q0PO_w=EA()LrHm)uSe{0_@4xYbnp-`wsX-Qn
zrf3)hoJPZ_xjJfx#xwST<1#`j&|>ms#|5Lv7wbY?KK%n$r>S$i>!y^ZPY^%E0t6*s
zUG>;MmQxvxmzr}Cgs0ja*a7{cm2gSuwPH?e(L?vNP$5y>Km+$Xb<&uzR{d5B5R}+~
z2yrGTuD2mB(D~6px)1#u9LIDg;K4hN={fZ?bSCuYI3{LrP{-NeNObrU$4BMCOeORq
z`-y@J=^Z-&cQd1i*!e&ZH0bAt#N5pQ5aw`Fap!^P5q^6)+Qag>=dm7^&pnUy;DM?H
zSpL-E=0&g*eY(l@8;qOvhoTsBIpsWfNsIq29_hfIaJVEyMK|-vfLsKC=lLi{6CAB!
zX&{pDAoR3zi9{SJ>!l)@#vmIlf_&8YA0BbICqb>A!Q>b(a?H@<HIS#fNK3U-+t4!n
zCQL>tP08Zg0LT1l%^u!pfyiO19!2Z!^r#4`2BT6a=0w#-Xns6u1}g|oPU(yUW-EK$
zo<ToGR~&mpLPp)YP8__=k5tm!@6~$k2Dq2I+!4x)9poa!t+8hkq8TE?iR1)|Ex!+K
zjHkj-pdbzbH`1l!g84l(e?)Ne^Mmyl;`m_T021c8a3C@CJ~&7izvwj?tl(r}dgZ5I
zj0(LXQ&SW}S@9C**XUN8{Mcc<Ldd9iRRl;&tD1z`0bl`x0cQ=PW#%^o(#JPdl*bOm
zHNvDcf=eRrB5EG~{AQ3l9)9Bh0>tz0Lg6#%NGT}U;5XidH9`6jp<bbR48Z;l;X}|<
z6hJ@dp!Oq55U@<p4Uq)26*|)CCyt07z+xFi%9zI~8x+rjrp7+uQG>wVqlS<Nh$)9C
z%9M{(8dmseOb{M}PLk-W6q*BSAHsbRtm|<&=o#MNy@VP;D-x6{x~T;jL6L}Hktj~d
z05T&ugE$EQMbc6v`#*XU;SY!;i5Z!ri}JbAC7nASXOxP?LxImYjYk?dC|q$QS_^cc
z|CWUW(098+6`pE}@v(2~SqRF7^Fwe%GvXG^MKrNscrG1q7J<TsYm}iz=IYr-n&<A2
z1}YH)ENFV;!j9ohHzFm_IBU~Ih6t_gE4-ArJ49%^wOzX}5_j4NYM=N3V*C(70jr)<
zQlw2J`%@^8`MJXM97dp=2nr-2{wiu&H=oW}<GN83N{*n@&_ThcmF!=8ji<}y(d4j8
zWhX#|kdT^U<R*e^Q<p6e3gAW0@joRH(Vgjl1jN(DuV5%>-Ov|4uoMHCV&DL*_~PV+
zMfCFzL;=POAQRFKtT@wJL5BTq4G(?XU(*S(=xgiWUs-=^kpk*iTCrc_NAP*T6VC(m
z_BVP1pZEb4*Zaf|D7(2e0|DDU=KkMP-vLkmfSLu?)<tv!j6;DVKtmB7rA2{&?Mz2|
z*>S;ehfsKuH7IFFgV?4y_h*>oK;^t96vT;(&1*IY&8L3ahxHf{I^B^>LdjBw+vCDA
zLzpK;$eUNs)Yw)JI?|vN3_2G#f<kE1iC8)_NGA`lHEAd=ah$PvSiSm!F%Hon@Q>}%
zl%khp0=HQ6V=pMS7N8bcQV^}CAwXUuJ(rn-cF{dmC`#(B4(u9<!<+TmUy2E(cgqwx
zjH-(DcM;4z+V~s1-~Z53v3j%(5~Z1<i4mQH{^_YG;v0<-Z3sA12{^3Z5fc`5v$TM5
z`!Pek4>^Uk!ie-aj$(-P_Vdw14}bb`#DJhG)5uw?K%M{jL-~JmNW1?qsO)Db<3SJ*
z8UM<RT(IhTppbzEjzhWsS3~9hIF=!<DJDSH_ccAjd_$#4Agq6+pog&p^prSJPnnr6
zS~iu`Q*x#!ii@G9zqWF>38W)dIrCtJmIn~lUf=8)JCW)4iR0QgfLbt(0T^u4lh5)b
zBHs59BpShOdONl9r<7$UiGcTfLY%B_ka6yLHcg7XGq*n}Hl5dQonlac|5kCdE&}h|
zpqc}ZbcI_r3HAEmN|is&h9g&psy`BG3i?!t&>@JXa`eL$D2SvUe*z0kb;tA;i9$1%
zYJsxJ?2-rK?w(A+7d3AsSY|>}!C7)TwiL`a-D`ogHEG65VO0p(R-C}2Y;xs_lEgv=
zic(HIdo1D}+H6tdfC2{_k52wKM6~a7{Q3`lPD5fuKF8Q42z*XMiup4~J?G;rg04lh
z;O6?Y4JMMgrS0a4gW)J>LluFxRS}GhN9pEL-fohTS~A814J=Z-!iY52Bh)Az9!T*@
zF*kjN*%Btddbn^CaF36u#)*i!EV=h;1g`0`sV&^`(Q4QV0gfs1r?<SONvxGd+#>3x
z<q7m9UbwyGzFL2c58>A-Fm{b!j|=YcR{HATuH*B<Da`K^p|ukwhLJ(}fD==E^Mr{x
z*C`GOp=0fM$Wz{ZnjvZ@H5W`eNgqA@RD^C~!7WEtb(8#vq~bJDMrN&_rg5RqyuLnT
zd(VeGCe;QxycSX(M3awX(B5)?Rc%#mb#<i&-c2=r#P0Ug_-g9#rUo&}YiqooIuBym
zS65aeP<frVy0+Hmt@YF*aQD$(1R}4g^7-mKbyd~X2vbhV02BzfC=bf1gijPQ`)X?|
z{Z-x?6pNVURh6jC<3V9HUccXmsNj`eueZkQtE@fRS6S}!_~1E(nrpn?$|{P0E(Q}J
zd4mzH6K3291`Lnb4y%qwX9ycXs>ov<b+7PM)bVFO<fr_ms=`}^n+1&+ZUn<0fM03P
zfZ;P@0mI4Onj4mLyg`ooK%y~?P29o32^2V%CBcJo#Iy-8{Uv1rbXyP$pno7#`4zVm
z;{wLF{G{m_m1UD*n~uJ7m?AP6{AYY@aJ-{07H*W%X-8oRu9Z@V_|k2>6#bc)NF7@7
z#n58$<R(Z&fs|2*A5gfF5Fbp*P;5n{saTuXB|y8ec+0dm@j*d%AUdAg4#R?W5Qjho
z4GAZopdZCUCBRP*Fm0L@z>kUC81xVdLMR05+GZRrNe6Ruwc#`q)0PQL&&5Mz_Dq|D
za6vE<qIm(tTOhGJg0{gCYbAxs#OBLAa>&yF`lJBde<P8=YWN7iH-UU9P!-CHn|SQm
z0#na{O+E4p{gPU5dDMnMEMuWR;>ApyD0cFR>ZtL{M=md_TwXk$AXBsr8^1T^oS{j!
z^v%Cqr3}j_Oz(;!?!)ws?#AV#CQn|DaLnS379M%|sJWr`wXxT;=vdvd$@4qfgL=w_
zKr}EBIXeT*t-<I-6TKJ9HopVGE6XOU%SSCc+S2mnqnef%k0RxZsrQ;LMhl*2IWAqF
zLRtgDuLB(lt_iFQVXM?3NT;L#A4C<kgjTJB2oN(&`!wG`X;LGI)8DFw+5)Sg(hF~Z
zhe<dJV1t4%)X7hIY2-nnH!cb$06#24M5pFmv249f#|x|k!1Q3zdPuer7lWFg>H%FO
zR3;mBf<efV05u*S4!W#iLwlet)LdrfuZ$J(AJ5I$__#3kSJrcYO!1%xM$M{|u@w%U
znmrr<6&AWW0&Wnugdi*wDxMc1W^a=UDz{YaLFblD=IXSjxgj248py2=V)rKv9PQHA
zP@9w044PwV)A*&UQu^hWV)|=nFk^uw67x)k*O9?gSr7hd2(=xESxyK}zcDj4+9OaP
zt>iXfKXUzveIyGpVLsT<L?7M2u(YB{tWPdbP>t$X87LtF#1xE%+OXN+r=5<ep)-L%
zTO{I4%$1T@AHG+>96%r3_+oJsC_E5uA)zg}ebW=Q0}f!ZhQ&8h978@c(u{;?h|2HK
z4s(U*hd4r+s0liCN(A3ApWhX;-++=8=ObwW{wcz(#kmdu-CvYn+KnucF3_475fUGX
z#IT1lH<%v_!~>H6denOSU>rnT66|X@R~-|>?Ny>{!W~^WbfzPWWoe9(7LH;;6J}lq
zzZI33`+;#M@m7Y04KJ)(C|aEkBRU~z4rFSi)eUE3AsY2JMhry#1&T$v7JJQ}O^B7l
z^J{erb$0KgONyhwDx8p@pGQyd9P2?GFd-NWpa?iEL_3y<%w)Kd0a5km;=>JntxY#a
z1~K_jgRVm}%yB&8L-Y1o79XxoxVXke!@w&utnmn_NaIJW0DQpGbh{6Szxnjm4mgz7
z^9wC7j8ZfR7kX&qLKrIO?1=G3AglmRQou;?gpJr$^_hn`fgd}t+w~tkMuL#lI=_U%
z{WO!hQeX^tMMfydY9t!&!WxG(ubm4kx_I1xRxEO^#U$Tta0?L}kq6Qy80BAM12GAu
zhjHE=XiWk#@+#F8mdMc&4kH9T`O$_zrx77U7&0c>?G<iyQY5x~2~zc?j487URE;eJ
zN1p_m*Mc}MTSoIrCwt1kD~vS|cCjM+!6WydQhu4N@5R8d9w(bP=<S&DX*=>Wsr~K9
z1g2z7Brs0wu8MBWt1z})d;PMAz6jfUOhZC3s4)pfg7__+T7N*hIu$@0ySed%Lc|8o
zzX~^B4*>$7`S_#+Qt|IN)EM5<V*7{xa}<z`Soz(=1VuVS?I@3L|A6LR_xt!Z0N$_~
zI##!bjw6;0ydF%wRvtqOB(7B2qAeRJXYhLX(IxhrMU%LntcPeEY6Ep?zbKCQvFUBR
z%oK>nV<JG}N1&|>4)-8@fEil5$TM9toZ#^Y*Af1}K=1>9Xmh8Bo}*y$0oFPQ86swe
zddY)MSUkZ&DPZid`C;1wAD3{n`=bej{p=EOa@ZzFEJFt-Af5;UB<Tx^w#H&}%n*78
z_D#Hr#)tbrLh9$li4*_;EH`*i7<mvqsdDbSjkxcG-7>)w9~S|oaOgj1IcL@>-~x~`
zqy!WTMkFyqb5Wo*6o4s7qu|+>w{z}XFzuit!DlaTp9Ra`BZ4^CFIom>d^!$_;JkH{
zimBe8e8vA}2>}gdVgW&Hkag+6m|1~PYp@05-^I-Wi8#_nt0!(4Pae`#NTYS;6B06}
z_$-O(CQiZ#;g(-TYzUp86VoJsx(9@Fy0{(Z5o)p}k^rd`l?9Xv2_lG)K_5(Wj3%3w
z47}arS2fyUPC&pIJKP(cCFNsR7|ScRCyQN#(1Ey1@UbfPwaW6@Tzzb_iAOE5Fa2j;
z)NAHNmds+yqQv439|ulF*!dWF7&}<p^s=K2V(0iNiHQ^wF)_Q!$qw2dYGQVkMoyek
zn}D2H(uELEA<%+2PQ~py0=%j^2f?ADkX1q#NGzWY4ON7=L2e0_7&dT=f~z6-3Wtv4
z2G9mcus9f0r?o~pc!53PGDf8IN{P(v^^2KC0l$xpNGvEpu)AG7_EMu&afg==h?1EN
zGHOQ0e(P${y4h7k%ZSxPry__p<E_}kXVV%IAg86VE-w|)%V^KQd<c?dRcIBC?dBa<
zSI2@Wcbg^&k+VqdB+6S+Y20~?I|S9zzWT67_D$);HTA!l)`_cqzo?zW18b&jRtwSw
zQ$;v-eARdy@!iqYiWAWhVF+Xmg){@`8)0}1ae1*$lf|_&faL>%q74Lv7Q!c{lr_y7
z_H(tUJwQ4EibxkErGoG!fE235w9vwqg+{gZsfyJI8{!M8Lln%PYx4DJuL8{R4Tp|j
zq!S#iZPGVGBYBh99QEfOk`POjPXx;5Tj{`3$4=J}(*)~62-meJ;v|68W)Hg;%>3~`
zXZq*hgGDlHG)ZfU9?H~In7$2@cAS%obgG(#=GSN4BEjRwSy6|K?UI(O3G>8n<<P<}
zz^I4Uha%8;=%JtVgRurv5;s8(v{Gm$l3YON#O;MOz!E|;iy?6r0!xKBMX1{nlTb?^
zSjb)U2LOO^Ym6};Lo3aoCo+aNHXEi9Fe2?FNR~*eru(hU*w9Q7%c1gCaTYZ#7W9u`
zm1bsLN9#I0&Y>32kkmDLi!5Y_0Okm|I7|&!vaXJyMk;PYD2UaJI7N_>v`0~2Ov4i!
zsh=Kdal&Z8901oiWXlTJegvbiZj%%`&IG!YoJzta4(hc-yC{JsRx>RCW2u-)Gb&nN
z9fK^>)FSXjiCe7~ZB9GzR`Uk+R<zc$fi^l(OGsdtXsorO2ia)7hJm!2(hg+$OieIm
zy|-4ICO`3@^aKei(^N&T(`YK%oV>?OCa!_EW&o{DJSf&OP1PF%(i?=BT8$a)Iow*w
z`n)A5T4MusEMo+Y&~d1qRez2vLVryIK&{oEO$`&TaDYMVE1Jc5#zc@AS3%-=HWhCj
zJU+m^O@!W;L6&K1QLo^m7i~`419p0CHE&RFbF6i+-$tA8U_8+GHXvHj18sC%4FhR4
zpO3x<q9-CUfWEg@n}#v*p!5WZ_yOr{tW8DtIVg#1;H?=zs}m23wM<j>#()f<)hMJV
z7Kod-1Vtk*G{|P1MgZ*$t|tHyOqA0qMBIa{(+-vm2in(`Rcne@P|jnq>y903qEq8H
zU#<GYb7dNFZ2%H2rQUkp6MA~~zV{mXoG;U$4W!HjgW4;y&^p@hfS8&P55T=anO3x^
zHGMWdt_I$s-p1NAJp(Dz)C2>7duz36iqN8-rJJgb8wjK5-db%c8m06sI&K6Kv>G~7
z=rEeWAH&uFroAu{Ct1-3*fl3yAHpJm+fdO`fqUd?lGuyzx>#kJF`RC8Q5I)+p+%Pl
zQ#A+nlO*xyHj~1NI?%Q<w7LtG>uL}X^I#jmMnKO3jv5AckdEtXRY<8QFfO<aF5H3~
z9;%uE9fuNy+5&7fS0pdyDp7rZwsIQ41cGC4-B1i$#8n8d$(b?}$1k`MV)$2Exe&0M
zkVu#PANJnwN3LwU@4J0<B@J7OEy)NHz<DT4bgk+;?BC5_Gn{rf<jh<`<P1&D<y^Sg
z<P^KB$ug_DnqA!-awrN4kO$c?5I8_$#1Doa3<0u%JR}etL_i*{04IQh1o;;RdGljl
zf;<HIeAn9hoW0LE^`o2Q+$-r0IMr3>?4N6|z4rRG*D3^itgjszYLR(}LafA1<vc7A
zIppMOFiT`|Jidg7!(AD71vbQ<N=GK!H;x~=WUh%HNHHL@aL80niy>UHdHq?)(6=uS
zWn7TELBI%&6<Zpxv5vu|H$~Vc2}+M8L6OKd)1YxpCgT}9=Gbytw#ERA>tGg&JmZj?
z#xaga1c;q%$gzW2#;me4tXwjHsf4WrVKYGL$WS4jV^^?jIT=rV^vxaEV8+3@Y`GaA
zd6P-+1vJK;AZ5#^JV26w!FA0<7?*dVRK&mzr}+k@T(b8n;Eq!$JE~G36tDQ=`aK(W
zT`6c_RY6%OKcc)9`i(y$ZpPmgP{zkvERD;5XT*sqr<AGi7OHLKS!P^kE~DE`u#RQ!
zZ5RzWn7)uxkA=VQ;F}EPzkBzJ8E39sxdJUe>~<FqhPX18-hLdJ?n8EEx8FVFr1m5~
zvLtr*fh=ro)!4(Si7)yt-IbQYeEBWSRI_)*j8?>y9WIT5V=a9*GD}}$<<~G1#xW<#
z%&Iy!7ReO1@nOx{)a<#z^8MtC&u?G9a^ueYd==;?u&}i*zeZ&MIcrG7UpIJsdTws+
zdH9x_s7`8=dT<W6x?Zuf?yr<zSIe)8=j2=O{`wpBj!r$YK0T#J)~CUQ`oH`q4JOo?
z4W6&-mGvE1JYU=3S=u{g?yLm~<qCw%qS5}jN&F)t-y*N(%;hLhnn5@1HE*k?P-`e<
zeV;q$4F^lE39Drs{h1^hX}xzP2S__6mq+3Luyi0-f(o{O(tWXyAkrH3JEO;~gXJrI
zTuNoRyUPFFL;sv~m9+u@y8o_?ss-@rJ6Jl0`&dOVkaRm-AeFWw$^6}Fcb6V5)l-$!
zfjQ$+E?DAe>xLXIi&2;{v898}RRW?L&SKZsFvMQgI&RiGt*>BdmQ82+8ph)iC1kE|
zFdc(vSNh~`l*hW*lrZ{8(DM3WAjeA1f=uZ1m6Z>3VerrgzZ{KupP#^up>bnB;$A%a
zyPWEMoKcO%WhT7PhFoA8$+K4%oOYLR(P&-%*`G73i3VkPE+|=A#Wq*lf!Nw+;mz1`
z@`+DR^E_EnMGe11?8Z1n%jS{$RmE31l!Z--_*Q@t>Y|K6Odsna{&Bn2p;kK4i9gnL
zFZTIM4?Zpf&U(jB5IwO6pQ&W7{MEJEm)`WHDZ0QeS#`@F66O>@Dhe$8E`Lzc93*U0
zx>M9R!@QZb)KqiXiuB~NPjgY;mAmFN&D!cVwQUI`CtoEQTZC9>HO`#N>)cFf?n#%H
z(>FypFeRdlej{>C;4YY}>5jSouz&P^>-a&NK(yH+921|`$Yq{rV@z6`DEX07q6h)s
zn6oK^a{#-Gp?TFNhl_XzHeO@)b0Cg7C!3JRcrcmciJwlUt}Pg$=$BzI%Q!IN;gQu1
zlDpHP75zZm#Gj_K8}gOuaQw7CeAwxK#YrmtBY88=T5+}N6-JLcyOwIOn`AEY(+is2
z{?YAYMJVZwOpDoiH%{ciyWTAXep0`&SLHQ(@r7NOW23k><AJc*u3_0X-)IlE5nssm
z=0*5o1^DZ)-CE>h)*OyU$7UyTmdd2{;JbIobQek8#z}11?xYKcdwdMrNKlq=Ug<vK
zA*ZvNGLA?flghgA3@cn05%JLrNJX;0hbN6g9%!d(@ZBzVtmA?O4#1kd-5n5Zm3Ywh
z7Y+c>`uDA{KyiZ5l{cUd$n@x`({aiM{PocY%qok!fAXhubN_BG$Wnm=7N&|cr^3qv
zd&K%@KBM(*S{IbWTNe!<WQ{^*D-Gr%(C5#(hyBhAT`qX}?g8-t-d%q8)mc1%gIq*F
zY!`~ow*2p_?Kdjk|90Xd?dRS*bAR_Ve$rk!2>So_^6LotrH}J#i~M4mGQZ~R2Uki^
zAi<oU{<>Clpng3^=g>-UaQ0uhE^TXY^qhbN-~Q2`5S8TU`Mw12RJhKpT4P)^O`vbQ
zhW!Opa&Or055E?%ORsVj?w-2CSc<sHjEAs`H|0Y`XxAlg1Os#TOn8BO3PvOy(y#?q
zth|lIM$BcJvC7gj$u$m1faz$(Zsa|bx{`FOC#SX#Bs+&2T1i~a({?hle8%0&AC-1X
z0;5#NbL&O`%B>rl1PC%H+(HQ(zHEByC#LE&m4mN13nnRe&-A-{N6UvgM9C(LYN;>V
zsP5j8N47rpJ7Ji2!YFH3N6w^k7jod1svOz%rW#Rv`^<<-J6&C=#WWjl!6E05!Dls_
z-qNX}oAFYd=*E(Xl|lr6f;W1$R|dK#=U%f7-pbN1Pe5pP)Y!LM+M+OoU1MT!Q%6TM
z=1!8e5${sw>o|5B%zA78N^0&-I&y78GWtT^Q4S<7XX!$Giia9WDz0SGizh0ZS_k0>
zsN|hi`%uqG9!N3vk(aUq+G4)fhgPjdIGD1U_j_H}K%|C&StDS*oek(x4!GMv0a8*p
z10ai|o-sjtrgyRx4oIk8fl01-u~MEEDj#27%+MB3kP~AgnGYH+SVHgG?E^seWTCuy
zDZQ{W*q*sPfoOO@CXl?&f*Q)N@QuH$S%HJ&M!K%m*3;E6#w!;Z<7mSQS8IcK`N$gj
z2eCq?uegjCsdUhKQvTGvLL?6@tkQewt^W*568%Lwt?Z&d=%Oq6%2>g@|04w`V(pxS
zZF!!S1oX`@9GHRSP@&@kPH<Sfm;Ao@s+LF{B+4c2?Ig)LBlei(RiQh=4+USVee3Q=
zA)!uIK0IbWm5-6N)5&Dbcm^RWt4QfVuJ`z6%mV42z<T^)N&;+rVb6*;9tchO;XI`v
zG0Ci?KhZC50n9rfuK7Zq=7+RK{+#*>jMiQygm8>^z%vEf``Mon=8OSsTM+ehHjJ3Q
zq`7dIj&?rcj;g?K)6v5`PMgmvAA%3i%1-V);E?l_EmNMJg7gZQ4ai;DKIKoqud(Iy
zM%(dZYMij|()FLPK^?HZ=vtou<sA0KMq5iy(BzbXx>~pM^LKmQuf@utBi}V0QK#=A
ze<}}L&W3bXp1XRgxGLxr?w|#(I1SVgg@6Zv_GPbl6U&9y5h=)QB#d+v3U%k_Jz<nC
zyMO#s)4~wwwSB0Q9nC@O9?Zsp2itgQMy~GeD@_fV5{J8fm-IFBKhzAmKh+d{<oCpf
zweLCibpPeO!Ex)=y-@q*!K-`5p)I_p3HZxa^7g&FUdtO>WOWu9eyF>sT@Y(~x)%#C
z0N?(zfAO<_(T=x@y7w0&FcvqHA51i`Y#;kgJF68{W3XZKXL_W&`5(~r0Iyz)qtdl|
zl|@0lR~}LvS=p~ap$lXoICYm5-CtOitq?D=Ru+}8F%DYWCv62%zkKYiESPSQwT|?|
zkncxrCDlzIs{JQ6vpY|Z6&OY;q{7XSwmOLH3N&cxb`-+}wpl{RX!&v1B1LlbSH>tJ
zt58y5UK$E;mj40pdhiEK??Y(YM)&^4BO8%@eEUcLJ---=eelZ;{>nUmfnb}hh}Iw-
z8`EG0l_C?Co<*a4^XmJ%tgVR%;C&Z30F!{VPD(;sR_6xK%zyje{3`<V9DxTxZgM+d
zyuqD4JPxM7aQO}oUPW6JlIW`il$7+OCZ)wqh+<7XK_+=bpf0!&_eeEIU#n1rtcX&z
znAPGEr8SN)jzn=aI-y>U-(+N^VQGiqQaou>aJP@{#Ar!9B7)6-ejZ8f08129711kV
zV{8wKowDc&FUwj$!K*KUxQ-|O9B9x9!PiD^I;x1n2&vA1JW9Y;v|u|UJ^Cc4#GSwN
z#H1E}rvs`AEsRR6Q@z9E<_^PT;xVGor)7uZ=M&4=hz%TN3$F_U0rvHPpmh@zYET~o
z1eMQwJSh}3W^$y=&qL@q8({0wux^mR!TpUI3K-#^Uhde+UB0}!y1u!oS)FHz3Lis>
zW2=aB2&lCVD3>9f4vLFOWg0$Fb(m>)8YD2{h_j%tP3R1bywy=9bUlWRYz)VJyA}^6
z8rZfc5GvM&(NSlB*FGU7;1x!N7vk86VA|;+lHF0fv7XFcQ9Ueyo<(lV<JhH}etC(c
zi~wqJlj9aig(S{=UqMn(F68)hjnvNel=muY9JwE^z<q>cilt6&dSMH&xTy?n$IGDy
z+KMf>Y@mE?ybtZf4xG)jr&`5ODL#Fb=Y_1H^oT{QF7th2a~l$Zb=8+D&kp5N(IqqV
z@K@{h^0?`x(h)VjkVc`YuWBR5bnT$1cRs#sz00Pu4gLGh@d?#B^p^ret$n>}oGUNb
z1D_v0BB<{-W=Rv4;~1Nsj4;4gQ8lAv-1;F>a23e4v5WHL>ri{5WTAHy1fsY10wR;F
zt`E}}w7nkiYoSI7Y|+P66H=~&mbGdQA}4496j`|RC!%q!m+C~0VMPQ7ESp5h=<nfL
z+&z5sB4e$udpe1op%DdKl+8Aey88GL0TRS@V4^IWz(A@d3P<KvhifkT-9^)9cr?%+
zUPfnFKe?0!xVj>@jg$oY-f|uu4&F|$3HfT{Dd*gJsyl)u%UN>z@)OWStjOtdE-Vu<
zjL|&tq-MZxn<Tj6(#ES?Vq3;!qz4o2#CJ<dpWDoA#3Ft;=lnv#-PqADosA8z)Y&Mn
zZI+8R<s6WV&(p1K_$k_oScpM8)|ezMjRrqMQe_@(FWd8GY24I3G>~Z~lJ-=W*O{7x
z-=$KfrgqU#kbBi{d{@oYIu?B-ESK_MNTs^f-WX(Rn?k_+_&rjbZrqA#PXo4T<_j&!
z>*uAnp>h}!kCzc>sguCR%Tl;h4{CBJ?od*``k^6!&;NX*AH~{j^Glj3;9*}H24GUf
z8?f>xW~tQ1?>i^6HKngpem89BTickKa?CE@ARt5+{4qr)*^JW4H3LxjGLu(gcZpw7
z=Ift~C@B&&X_sq{C_cM8{%<7Pb8hbQ<d;mU5734#EiIW%^}+sjYOBwzL}M&aZ`2f@
zhAX>u<CNjbZrunb`2Y2{-?j<<yNxDxi?C*|XJp6pidLd|x4^czAvm?qB1oH4eRGwG
z8!WTU>y(y;uV!O~Zm+ddnNqI8<E`|DyOjZAU`)bYzV+~_mEKR~6@D6Ure5QWAx3lm
z0>~0!*`2#?-H0c9(Bpnsa0C9})@@cay6C}`W;Dv=vl^+%$dnT#=~qq@cg!U~4>+%=
zO$rE&J#yIE>x`t23J$FBba()olUW5@rOPM|&vO`Gz?6xO=blu`lrZJ-$iX%PTO_Wk
zd7Y|ZS}O$`6fWc2GF~0~9IRGpms^V#J9JBWA@w_fKr8*^j2e?#Yq~;-=0d$2EBEpV
zQUcoaV5g}qb!OEYH+!19YK{`*hVPAH&WhZKwvC~x**o|guR`}hH8u{$WBR`h#0cYd
zMhD<uXRq!GGL*cHLbEl)lq$|g8K0T2SoUfnx~A;I?6rQeSi?8K-6deCDzzi8ml4<a
zu(s)%>Fey=onN-Rbz^Ssemor~9oZFE%&~_u0t8z)F7ShM3vZ9nyM0<l@Ah}b=vhEn
z=k+rW#kUhSmQ(t58NJ(M8NJ&jqsKOIlu<n735?$4?UMRniqC6yrVET-X|0%r(aQ(;
zT{C)l?{ALLn+#4&X7WHa{;q{zWHY08JMPSJjNXmE^o-tnaf&}LM(_3;Wc0+g7+d%H
zjGnl`hFBSIn$feQ=Cd$*&3d_CGJ3NG-JN=UZyckCBsYf9yImaHr)Knot_g=zw?8*>
zn5y-Q#pund1Dv47OTh38!RXzdn|lyW?TJTrh0z;-DvQ%AkL5Sb>7~Il?wm4s#+|_D
z{kMPnZ7cL9CJsn2;qCB!cV3t6yCbg8aamm6nBW=ZB?bw4<+;J`b&RU*hO`uNcLlW`
zCD%QYD-X2o4LOVAstn?|EUy*h#NTKXg=viQk#S7X0G2awF6X<{|7CrjiYcstmr0~d
z-zekxJ~{3OSJ3#)n019R_lEMtk#_Io>khm>86F=lKJ$w&h3k|>m_R{isGrTeya*K{
z{>3Z@x?+MC=*w5MDdl8*&3%@JR&Xvfn=Bo5NF>5l6n844a&th8Cg6otuuCpDnobXh
zkwrn57CU>enL<>^8RLI>-xES(^n0XC$RlLacoHs5OUDA8G=9c9yBUClObn(O9rYd!
zI*WF7=Q;iaL7A55cgkHAw0}DZ#*_ix>@G4pPJzu;B0bopVJu6EbFII(`hkw1Fqqy9
z^kz~s^b)jt3Au$})N#Gpz59CVZdeeSVnri>L}nOnUb<;uC3*a-uXG$WCxEDfKGJIg
zYncneekNF!!fx7XrszsNkl^GsZk3@~{|?E8+$iGS-O*256sf$GH)gERtdK<(qGcFU
zIHR)FY8t$X+Pn@fSD6zjsXuT7N~tx^5io;m3XxNxt1f%(5=($FPlF{JJtKj|exYNH
zBT~SGlr1ku_gH9}%cRY{G}JApMz)vvlZ2db;EH7Xw?I%M>7N>M;!!iN@^gwi;d6Mc
zxD$e|#hM6hDb_@%fxyO92mpMq^-xA8J>`!-{3{%Y!Y2r>{pA!-(?hwi^h{PGMteiD
zCx5=;s|TXEGdK6o@<0@KL=4K4B7}|zXqvuBJyWD-9<!ATnx2atZRC!Hf*%+oc)U>?
z$8W^A5?s1_XYSI8BT7&$$i4sFe>zR>Exn^<o*3=;F*ASW_lYFa-7oS6!9>ctvDF%z
z%#OU(-5s*|wLUrCw~*p~0p!ZVhlkx~y&}v(8CR!hvYN=3;lGwRtNK2fkA%4V+}s-B
zrG!iNV3nQRnt#NNa*vFo1k$=NFSNKtsw=$5_lJvjyZs|YTKq_9zxKj>Otc~UYZ20h
zcL)8>eph$n_sMU+b4)y;!Y?!gyl;;_@Qz``$IGVN4|}YX*Aiih4s{QT3sN|<6JO%6
z^$_W#xISYZ7eufpT92wQ*xmsd5fw~=UTo5F?hF&b!F?x`=nChJa?y!x$nD(Q7EWF#
zA`;txIUXs?t(@F-38q^lkCjt>i6q`Z>DXaGf|2n1x(QPqf{7kI_zGIHi(VeX-fk=|
zkyU#F;5e5GJZ#%S;siff#j9{_L}K|01A>$N{r7Gt-~0&nz}jcUJ|WFy_uD`I*DI^L
z->h;w>Kpe`g#D0*GL7+Vu(G!Bjef1@m$~>JANF6wD{tT{8O;$pn+M}y79RcnU;N8{
z|1bV@zx9MbAGWB)lC~<_s&%>YfHerx?}&9JO2{;%Oc~BexMw&3+V5-qKU#4(3XF0)
z&0JvLYvHBo7lVN@kigMu)OMf<P`a%kKh6~#ZB;-Tz;LwGaGsa)w5ecZz8fD~IL>kp
zk^W?)3s}8<OR%5`I_piI!sjhQYlK~Qc)V|Waqn<AU==^a=X6D@w~E85WAe9u{LdwF
z>+(nkw<B(r+~9lXxYyZVAd@2d3J-79WSduaO+H38P^Zj`$nBC*xuo135lMht5Kydp
zs0)h<^T;(6Vs4G>8YFSI;y{kR)(#tupg#jq7Y%N(sxNdAQ}8kvF1T_r(kW_4JTbCV
zjp=suJbkJ5!%{_(6+<cQXk`W$r;mw9dCbLp<->4l(tlxmKXh|zZHZvyYfDhh)uk1Y
zPOxEVb@k%;iyN2DU%YhT-1&3o*S-SkD@$Lst~(ouieiUcfcWJHy2^EK5?q@K;z^*o
z)grxpN~FDhwML(GY=7ySzhk;zUB7r?<I?)-#>ETg*H<<!tX*8+xOi#ptJRB3=T=uQ
zT-?|=ck$x-rL_y|8s=AeetzTpg^TNJ7go=&u3zFg13x1q{fS*UjAvk#yg?edr%D2k
zK*CbO7>4e&5UEbE6Q$yx1k!K+_@9xz1K{Z@i|-)wEB8AOPJ<fC;0r}@uJT5`M$)n$
zW*iX#EYLKW(_+W|+WHi^<JO+&8-4R<)rYWLAw64qFN&bgk!8IXQ0{;fAS+~BK?sNY
zOw}JHgV8kc4`askyZ*|DWb<6cqu;y3HT?VvKNP%Rbboz$V@<!#^Xv1i(f0j~iOp`%
z2>76uueWY-TUr1O;1rbjp8d9oTFG|teBu5&k$%>2t*2ihL;8xx0=5RnaAMQj_s^+H
zeQ3oIpkN4g5vRy+BfQl(wcIy->I=5mH_L-#SuYr}ZfP?PzOKec`aQjx6`_Fz{VN7z
zy?qX=8V0j{f1RQ45W+9J7E|o_>KP3+)Cnyw0%cc*M8XLuuCC*iaLVy2JbC~9-r;WV
z8TsWc+55X0g}wLgJw_LrQl=bY6Ah1bdsxwbJv;nI$46Y9_2lrIq=G-&@+X!vUb*3K
z^!A^Wk7tecYQrt7eWp9ci<_-`@BZ{FdlkkVQ?_4)&*5mfzRzuQ2AWP+h;3949B?2c
zhfD$vDER~xlKYZ|7IL=i-NA5l^lqe-Hh?bqD4Z!3`w8?*4sEN9PEs<o3{YFGa)$e8
z%TnMNLpQXG1i;Z!4>`z1XLN5bjSHfO6S^00rgg3|S)10RQCk~f4h<dqaGrih>=WXF
zvs5W2qyU3)E!b?qYc}AVg@HOeTHI7;1y2FJ*-oKah1K{<K-#FvkGq{`oN>F|FCKS~
zI$I80=4s3ae@ELQQIiR*$od;@&fxl4d5%kDA?wn>I4H{*B~FD+tynz$QY<#P!E~2!
zS|1;i9Cx=1KST0oC-}QMSKtq}MktI1EBaV{u>Jmr^VJy|zQt1ngc^Nz-8&=jPZQhi
z_y`6D##>cieq+bTs)%UOu}I{(B`%!63m9X-OP;MQUAlB(b@kGPOB)-PR@T?ni0$gD
zIYWhu=T_F&H>hD?yW{-!)yR}x)0Zgwjbb=7h}ZEBLX=sy07{C#3a94`Tgmt%pFmP|
zW?J)CR}@?b`W`;SAZUxA5?yiTA&%e5_&aAB>@<n(T(fp)%KuqmzJ}(!#cM^2ek0CL
z6^BmJ`hYdy=VWE7)k@~NJA@@rj`D8g9wnhlU=)vD@UibB*m;NN#7J%|t+OmEOKa=b
zvmdNwQR*vu^Og7&6@;s-J)n50j4O#_MU*YoSYsHvSfGN#O(NM$KD8&+e<&iw$uuSs
z(C6oWbM99ST61&%aL&P|UH3rC|6p~yHM4Hx!AgPNHPyy!ijAVzH|yg2Tc!HT_ryDM
zo2Sr$dEKB0`~QA*nj*|VIkVpDq)P`QZR)dDUD*}({p<McMhp*XFK=<Hi{3_LQeGF*
z$&6}BnJzJQUbs>t1Rzx%s!Y_@7{Qz<S-Q=vM9x5vI7Px_-+)9^wl2(Hg@o!!(tc%M
zSHv4*$&De>scq+wn4jsVHev#T3;l6?mt@FBQxeEi)0UIs)#-_dkz5DY+}sx>>>O>x
z8>BeXj46}x<hQ@~TSdU|)*TD|{_At!@9xjfohhFG&AIRY^s67t{ope$+W*$~zV|!d
z`xOrOzwx~voLk|~ug?9NSNpZOzg5zNf{lA;?#e01LQy?XhJXJ-17-LEoeBz^{)jXs
z3LHt2vm1b*-|Bw*pZ`z%|K|uN#g!QM3}{_F9HJJwgCC4^A86U&4O^cdxK5Yvq?99M
zSs(*h;->Npn?G~w?iGEY0l#(ksy?n2b;hdRW21H2QcU(W73yU>u2?UAJIWV7QM4Py
zF@4#ndt~w7#TtkUXPB@}<zy=dwqA;ZKy~H(YRa;=Iy(klsRC<)0g87quRC1++h>i~
zn5e$aOdTm9AQ-F#aH3BaI+92-yTfCt-bWnLgnBB~^6E;#$@(}liJcDJA~!QZsq>hq
z^*?Ws)~|o|$>+CkUisqs=bzEp{HJDm*iGgp?Mj$kDdAXH8*rg@nGeo=M3TEOn|y>H
zSM}qn{ZOCai5^_z0Xq6y=r*NJ#E0q;&@xq^urX-jv^sq=coRG8fQ+<5DJ=oNpqq;}
zt;_ju+Aq0=uOIg?dq{sfIzBiUN@!IwCk~XLvkePEf9N1&n7Hase0DW+OUZ59&@I33
zUe8Sy=+TL?47d+EN7Axp;MUm5ia`*;lJ}I1cxnL3Wol<gstwE^G2Re16hhje)a^1N
zn`mzjIQE0rSb+u_`%ZtT982woUBZIb5LQ{DBo|3n+$VoAxp)Jl2A#tvTxSJfMtv<y
zlNJS3(@J4Rdm}T9I`M&$KABp%XK-ex5_oT%HOyomBW@~(hDhUNWPL3WD=>U$W+RQ)
zVa7CPU=yx(`a3dRoo3gEu?AZSy7fvfO2Tbu(~0IJf+)8$5Hl6z<N(&;mA>n5rV}8%
zPLt+9!95@vr5=U{)a4&f$4c{2?W@{iG5DLQgZWK-j-><8PT<^eYiXvm`@971k&dIj
z9Y>EBH~)U?@3SYRGLrH2>)tL_!onaEjwV@nKItDn#{ky8b!TCX;E5|g(g!s;sGRC*
zb7}2T+C<p;DReiiKoKYB$Gu07*qdcUo|0T3()El5ZPT^coiwJu_@@n{TAH_rn5)=k
z_-D5K39)o~tw*iFmyc4jJzcd4lp`+{t4-e_*swn=e&9cVig)m(Vw4z0gjhOXu9dBN
zE5WfKw2XUG^nRgjzlUA;!^9Se#=}b*7ZUbvYC1V8Ubm4m!PHNqay|P;l7+8V?z5{*
zbj;BdrcDnG%h<kRJBf={Yiy^%tt%~?Oh0`rsM2k|*}jas?Mtb5r1^e?`ca``_^Z%4
z(&nq0Xt#7FgD<5&1k@oEo0Zc$bV0nMs)|!2v=x6=YFMG76N;<55Tqxxp)Rx7&x0?m
z3x(Vo$Cbnr>uj(I^^Q3IAb#Q=!*<%kgboA5KIw(1K5V*n@|2&rA@2~sj_oHEJQ?^D
z4i=-J0^Vvnf;X$7a>+hzflw2P6bsHI^YdG($^vA7+sKiyCp@(9MHoj#pkxvG(!%(J
zmwF1I`C~DC)_tjDkKvIU|D67CF4Rd7z4VL<B{V>cjmw`R1x#~o@MF_?dpi~o>H0Dc
zjVdiK(GLOjek^sB<_0OHRsFW*w=Whx$}p(SZ($arSBZcpVO9%Oz*w0GobBcFR*U#<
z!meAriTeE*0Qe49vbqEr^E91N&FYL8A&mQQhn@Zl1cHJl8Y2YJ?UDO38h<@9*~zFd
z0AFh{$ktJB5IEW1p!106xrZ+bbApI_b#Nfq!{PHiZVH%g_eiQ;%Q}_d8Ej<;iOznk
z{6qDG(+lUHwkn?(!~EDJ!U7wdwl$GA-1fDEdwyZc{GeW~s6}go13;j9IHo}!c3g1|
z2TWnLk3e$X)G)+Ri2|nIS6ncRy5N;r4M7*HDnleyO_NZw`8vK@uPQHVV_pw?;J6kS
zh3zMAaeINo2umjuZSHab)b5jl>E#+k|N3C7KnKeeaeistZT~E+zx4I2ycAUj+91I?
zA>MS_8Q=A}#DNV!E)hjJ$KY+vsJOV0Y=OrFg@#AQXJWrMG9EvX!fN7|l<66AUd@p6
z7~8d>;!QWrHZgG&Fh6nFpRA=Cn){S!lC_N=vo;>ltU`Y+Fq$v>dg~?#AOtcEyeJvp
zWPIis@AU0vc%nB7vFdO1O>Y$QlCYTzG2EI~cwDR2Q)8>~O|?}=9k8zbmuS!n!e<mQ
zJ<0CZN2BAeyYc%)m^UJUHVT_yx=U4chposY;4=gx;6gL#Zi#wClMBkPy8;Mg5+IR{
zG2`u;jYa)Ef82XWZb2kPODv1LC08`sgI`B7Jm@N?Y=+E{m2vWHR@f07PQF{%uyU;c
zorG*cbpKb7@to8iN%kqpXGuIo6DJbPqwQtXA~zLgm%Ad&54jnY^N|>zsoH?uF4_ah
z+$NtySvf}f6~iPjjyfd2L91aYo)tZuYhV(wk4)ooIsGLqM*9!ouOzlQ&_l)~bG01Q
zXw2&Yb9w0)_XCHq4j1=kX`)OifGdQ9`hHdbX(DB^Evw*P_Jd0Y6NQghR*LG>s1*#a
zDb)0urD7AkePsHB6!l&UvzSl7%2AcA<CUTIwkiDiWyfHF@sjpnX&thm=z@U4k*RRX
z1$$tpzCBtV*9gz!3WdrO+u2q_S%q+Fk}S2r#*#K5Ky=`(sxHcrxCAuTMyPHOXDBCB
zg?k)BL~18u!TxbH`Z+t9V&G{(N?h2>7-Bd@toPp+GoiWSLiA<lQ0|=Xw{G&ghaI^!
z+}W{gw}C=br)54wBb<y#7!P%T3dpHQ%<8@Ny>>Cs%9rZ6?=9S0*rpM2DCWRS&a(iF
zx9p`<Zm?!orSg3Vr|7Z-=kigcq)~1#h38oO7@?<y%_?)UONU3^!97=H3U9O+g(iQh
z;zvl+9pM{TJ9#D|O*oDw9y1L{GgY;Q$Bl91?B^r)m2*|F%i4)Nk{>g>v59{+-dG=T
zH(H$|LRKqid2?f9+554LZ7*B*km9DU!p<+3Tq*(iS44wIx;BZy0B*oe&qxJEq&${e
z5`8>I1ATfOc+O22WVcK8NZ9#fxCD7uCC7(jFYeYa(p_#IztWnZEiq@|!uLyFget9k
zAjr&q_<Lf*(#BI9{@U{*0+==|1tDZ|Jf+k9g@QS(f%FiME|fOrPhJ_sh%4?QL%-M*
zLQsnoqU6$QI6t1Th?}Tl+)mIkzb+EZ+=-o~d{mgL%14FKs(e(Kt<WF+<crU5U%ztW
z4qxAx#kF<$&9w#FIBW9c|KM6mOy}nQuet02N((cdDD**QBNaoMfSX^D0-S<Em)m8u
zROud`U^_M~V$mf<RgpvE<d#pjd%n?2aA(}&&+VIc<}RGj&QGOa-T!}nr@^{E*7#m3
zjpxt&?9b3*xX;cB4e#{+8s>ItD;5iXdi~+Px#8>4Wj-XfAVHQdb(=XB)XRAeWv%51
z$63<RVyz^35jq!$;x39o^WTT0;@2tv?%p@<_qmJSRoX9d7R1ITS+LX5(BJGA%ZlJH
zcK1eV(S+ds<gTW6{Wb%|woapvTiFkjsh=ujN}N#@RB6~0d|pR8Hs!QCF-RSbSIpZb
zVEzy&!)cQ3X<D*92Ct1=m>u2Qq4=rgGLKwNl~Pk|epgySc703^jWwWqpXG@TCz^@d
z^)^2)2exe40PgSleFfqo%jzIQHTnXUAJ`4|JwQq@N0VekOtZTJgElV?!s~*aE^K<Z
zu9}4wKLMSfUp!{nxd>x-D2J_1yy58vTn-_oWErl@(Y5|icdP_T&y+0z+xHfnPeSj~
z<0W`2Q1XnWCt<iHyP&6K3#sqBDIe1ZV?YOA$SpRdP;hl+F`TrnXVW;7KcZ&(K!&Hd
zBI(+c9rzu&V2e#wZw+HtbKNj9>xrxl_t%nvPPVDLE#e9`q_DIQ1R0e^Ep}MkTU@m|
zGtH=q?Q%KTFYm9d=EhM6ONQQCPnIyEn_V5=Ui#p|zK#S~F7f=l=gh(D4(?i~QkhrO
zlvK{SXGtgkgE-JKS!pe+1`B`{bb^U^@@yc0(Kz>VUE{LR6(+2Bt?}Ug+6NMMwVrDf
z%LiGm<b>oL3$Gm8_-tCEg#OL4Mypz(xHh`?7{4p&20P46YX_LT?2e;SQiZR9zc0v<
z%&B4VR*J>rS@{D6xU#nt$*z#ALxL-P^XyV!GnYl5E<JsfFFDU|^}r_v!b`*Ik~SE)
zgVM^Dm?GQc|0yW9w%b}%-xMWij)Eu0go!Xq5Mg!s>HW2r+*&9{Vk1o-q+9=ErWLkr
zy5B!$lNW*K3yg|$3l-jDg2gVEy*ukRp%F<Z+tdwMFGUiARkyLB>YHK#4F5{M)pBE2
zyzwH3Ua~}@ZP5zP=@kq7?9W=4fA(iQn4LNP6{bHocTb0H&d$6Z`;r{fZ<G`LkDL>&
zMeliM?&A~krL`skm-;^sr*Wydhsft-GY|#$Bc=RyPG3`3k|N~C#PEcyt73xDWD@gZ
z{!B93><2g9xCDbb|8(qe(rob7KE3OEy{&Ad-hNY@^wK#Vo&w1SOoUNNrZ30VB2hWm
zeb$qQ4fnZ{*v(qBmr@@lg9#wY%7teX$5ZYf;8`ff&sdsC-1ZkRgQc#7x`U1!wmd?E
zc_Aj_tPk2sBm>JvWFuz>RtwEGdN+3sjz?svL*zIj5{0~9`oM>~qi&QLzy*hM&MwBo
z+Q*yW$)LtB6Z3^8Sd69+wxT$(8u)2R%bi0!9<-KroxLO1n@;~x7th)ye7PZ2f6lDY
zupa~)VYaRl2O^*=DJ&Af{)?!ge<6(#uHn7KtG#Cg>j(ilOoYqgVu^ZY4>obN2>)b=
zf?ad}+k>&`Y=PyhK*LM5hX^q+zvf6MDoL;utE8D$Xspd|guFuaG4Ce_7Lsm5vW*3l
zUDU-_t%619a9m=YU4Au`j_ams5%$Qmy+hM@J}Sd;xnd5tM+D3+exwp>c6%;Ae!}|u
z4%b2@;Hz!~n^y9E);*9^nTS1|-6$}!N8D*PohvEOO&E7T6qhdsL!|bj<3WfcAq6D!
z^!O3QGk`-r74j1w`D?*gSrIE)R9jJsVkfCcJk5WCwl*xPAMbbdKuNht#e4#sL+uRK
z;YX|uva2N<4Y^3lf)G7`4DZ|&)DS(7vgie82&Uka3YI(cN&&8j26#=SQEsF@keJM#
zR6<M(Yol4Ye5u7Aa`l2SI7C%=_|Sw_f`Rl$!x#o<5<Ni!P$wg)<eH?jX<bf!Y@WFi
zgL1Sk7hgBez>hP=Lt*qm_fQH3TZtUqZHe)9*PR21fldnL#7^a1x=LaKTGz?%8F~lo
z!#?Jq@x(@BymR-9E4Spdz`d13+P2|daiV(Wce7u~1Z9EOf@G7++WD0Dt;7B6hBm|p
zxSapq<l4<KC#^m+$Z7L92785;Bc3kq<8)N0_jNH9<kA`@E0Zsi5dW~7u4u7X*}7em
z7LDxWw5KUORQ@7;f_7}Q@_2SrMmEWG61RNKbq|k&BqFwN+S-D*NZRK6QmMDHHZ7PD
z1WYlFHqT6IwIKa8H3>Wk_SCRxRv_JWoKlQh;}4BY`%KZJ!5xIvNGRr;BEk=K-eWD(
zVq1?l)#39hJCp%2U6^9%QkzERZ2Shu;eRdOg|2QY1NfIB*g~49>9_HP-4g~Fer<-}
zo^fR>Oy|VoWtRisum>ChiiR}^m{!1F_m*1mC^Ezot0aELLmvlLsY+`VpsQ(P<vX^v
zgB^45{_{%>^2jn)6Ua_L0y#Yw%D8lu>~2JuU&Gcf>Wo>Q$#i3eiz;CO3}O+<rCZH$
zoY5yJSi}vSA*U|h)wlpwcq@r|a-k6YapA*<0gT*VFzrnD00!v}NV=C=Vaz*AXrHzd
z$%a&V#rFf)f(!(EJ|^S%nf15-_)klgV(UN-lNg9&byG-`KS@Sz<H;FGO|~o(qEE+0
z?{04$$mxIk+kgD88Ucbo_>>`p%L|dsDceJpWdodf7R~H&IrbCHZ+v6*kv7i!Ix9PF
z?k?IF;13`;NtZ0t%%D9{y8-BiwBv?<q6Twp%J0!AbViJXbl!CSy4c|&T^bRTV`|J6
zE@0?tmjXTGPc+cYI~7-8DTkx-Y@u<7T61hMco@G1_9F1$VxIj%n260_D6V$uc3aX`
ziCz9=+RmAPJ$CITZ6J*B%flWw_9h(lC;*&)G;V3?fGfad|CF1lfV4v}9nBls4)uml
zg7giwXF=_TYLgMTvPae@QrHPV`}QCG(@IktCvD28`#3@z@$MS8i*kxw47on{34<yN
z$8OnAV_P;=W`Rx_$xkt7Qh!sLh@;3ht9ZPeD?t(l?b`=Rl5?=OU_+{m+FClnMwR>j
zxF!-Z)Z8LKyFRvdc1*maXc#ueptzhV^k$ux4~p17O^q~e-qVkAVqamcp!iWMF;OYO
z!gZ>!Dv)<7q$l9k*t!v^K$eG7dp-?T$DV6-W6zDt(e7wKxI~ZH$gx!pzve}L9aw}#
zt1-Ws+~_>1X(sJ1`lz+@f(T|i$mJe|l{<MHoLNp)Vl0*sms_hVrm^ZgL_9JHWkG?f
zYQ1h<-$(t6d&-vD+AetOg4RS>1PI5Ux?d~qdu;WF@`7coFTUce^9(^!EVDqY*}P6R
zl=*o@C1E4j1#@N7)PISRB)fQyu3V(el^m!&q}Ye?H|f5vw8#&z(){$6RLbt!9;8;8
z3Z(y6I06Z2Zi2ua-c)Ik4XH0{1+@#BoWNhpF`g6kf^UuGhbjCegKuJAWfiIn{#fZW
zqJk^#AO;=_Q4B0jXy_i>&<YfyQX9v8SFx7JLW7RIBX9S=d?+*~^Sb;hPL5j6j-}!_
zXZGou@|}~g2U)9l+2^NDZEI#{Sys1Xz-Me@@=(g=G|}-)SOaWw%8}zNr^4j+CXZ@T
z(?-z~y>3R-gTiyN{Dzv&6qh~1niJ6nqnh2rlM!d*`9_fL3f1DB5A)HOj{;`%yFB+<
zczh0NHNW7QGn`4x4!yWiDIBYw)5}}MOMW(P!zLY8<#a|c2Ix&%w)Du&PULf(zMPH;
zEEhMWmz0@IEOk|@ma)=>7#3Dij6m}+D}BO%+tA0B4;)v~uFBJf&9143bCZ*lF_orT
zL6K1Ok}q-%o13#z{qEX^I?wFi#k$zMDS^x2!RjlIe4kL*jMt0y=j8n@w>D(O!ZVc)
z+I%qzVqV;U1NrZ8%M8B-E=Bc*hmFWIjc#P{KMh(n^UID^r=iPXjhdSUEv75+vMD80
zIhFhjFCEV&5yHuXnS@2JalU$|Z*DE>``&B|EYb9-7x?Xis?ve)XqAF7BFGKd8Sv2y
zu|e7gv-`l9B`26*j9L^%Ob&~O7V{=m2^NO~Z{O8r@7>Pf?z?7DZrpNB1gL=HRQ|gy
z`^gh|K~5v@0neLT)a^AncFI5zwHDWih0ruOH;{~Jhx#*VeicD1-w>tT#8~chgJW7)
z#A!xDS?&kAXupqdzFX<5_B;sRiy=N5h1F1uug?0gcoyHVuoM0QFV#4)xOybVJvedU
zwF)y8l$osw8)iq<#I81_(s+Jh#<@6l%{DK>Q)WIHMlWJ?qvXsDg4X5Qqf`r1SBPR|
z-k)Uojfb@`xcgl9y&sv2k8%s6c2NcyJe@28q2CO57s|cPGwl9_Ay&>uw;*f1rt;wO
zxO2VEx=VG7A~dLO8`Wb*C&r5d6|mR4fJV%!ldUUcQ-NoGUY-VKo0fk}+|ap3T8VvX
zYqoV-fSe8b?&!f&YNcjxvEXuR3jIRXYXDl1#)5kA4o-3&_v*(=6LDFeLPVIo@^Ts|
z#Z_bSUmdkPRW-zKZ;u!%7J$U={C3R~7{~#o(8J`3q-;?mcAO9~()K_s7pcb%AvID=
zSJ;DSYHw_7H9KERU{oNHfOp$QsG@0-9JyWmpB&)H55XN!<Cll03C@0;DK&7bKquTn
z%dd3(aCtdtYkvMOHT=XwlrmgED3q;*BTW*WC?*;92y*cls;HoXlV&DG)!m9&069Ba
zt}r=|q72>dKt1u9Lm@i;8tB<#Ly!{<mIHc<x%@C#o=g2$jeca3SE-DL-6JF^e1+{T
zQzR%r51R}>DZlYgijfz+E?br-u%VL8xT*$I(s{)FZ(Kw}3p|XBSm2C4-_EbdvSZaS
z*LNmLnPtpOm(j=Vh6>sCpUo!e_|DAjv0jX*>7*;&)*rxI{s{3DF9W<{J!EkL67&76
zLHI`tgzz6JdZ>yvQW_!KMfl$LTIUN`VSZI&tO&Ym+>g`UwQ-Y<Y7761G+yp~GXnbL
z#z}?Kb#<}b0=vhEK<(9wQmQc6#nvUhmE*UEIxx#env#{|YT0$Rn=9d!OTH}Qk0lof
zN~Hgi%H}=5l@$`G(g%})H5nLn(&>{=7vDYMppVIN2L{MJLX+no+sOnPj9a^ic$onI
zMi90E+dcq=+0XmL05tz=jAEtZx$Z&$$?P_S<F9TWMu!^=Rv8&9nBbrUD>jfFazAW#
ztC<Fj*%59<DB)<dnjt~JIH635PX*3p5975~;hy0kr2Y$*w`4QKki=HT)3K0T&o=y`
zC?kx}%UJCisz?-N<VIRvE+Z<nF<|-x-V{hIfX-W^6avwk8mWU?5fhx)LiC8^qs^{F
zc<D39Uz)Kam$;>^uG%Q|41OkFbc}RM#eBatysRAAW!+{SLAA?L@Xy+AtUUR$P1&<=
z1NG$Jl9m%8w(2V#>nBtwJLr>Ek|IIznw1RCs4)8t(cezmbmBKR*R4GZsY*B$k@;#j
z_%f}Q-vUWmh$D^O-ta~`T;J%$(ci9J9DQf*@1Fk3Xt*r;?>_zozbqO++i(*T3~(>)
z6Gl`?*6lSStE8=DgUir$bL-{k(LO}iJec|W?H~OK{Er^O<CzCCfBoUu{j)VVdhVrg
ztUG$XFP)<9Iww@`%k4FHlJ+hj?3Fqtd-Ub@s=F$ClX8Ftl0`Tbu0oZHyQ(`nVKMi2
zza~$Iu1Ix{zLq5~-0f<8{h*yplJm+WjIU99Fc|Mk4=oYK=m3SGX%&WW^thxVIOCy8
zevuZCc_RDV26y`Wx?1bN9_XH0YhYi27gx#71PV~eiIOZ#z7%v$(hG8sDssphgq<Xz
zJ3$@&iEd$CPJcnEoS%v3$Cum8LE?x*fXcdP65rbWx#YK9pL0{G;H8^*1|a4ye!zd2
zjK*z~;n%DS@-R1O-&<|9kLTwXeRYUvcGz0v(X;dsQD#Fk2f^$mF|E8!>~&dSrC`Tk
zd91XV@E~2wLnsumY!569&4hhwo;;J5Ahs{Dk`?U^xX59H1_}dkFR2@;YN{Cw&wy$e
zI+HX+V`c>^BI0$?UvWFdBE2fsWzuX7D^3v#s3Gu7f>Fq5x{SMh=6LZTx0eGP+s6+U
z&RA@q*6~9R5+o!pZki+wpo{Yco@EU@D;jv#)If<tUYnhL=D1aMU-aJ4d8`|IR^4Z1
z-Dk1xv$C!sV6jQ1D77t`1sRRaHeU-B4sZ>VTb;whh>DN;FAg4;tnE*Xk&2?PHj_Gv
z&E8Gk-W7YL&_u#fsVWq(h@I{bAMG56Z>k@kh1r}HXRORjrr7|oCf?t1AGa$F3gP!#
z$0C9_=O!Z5F%%HOH(pholr5=rD(1gdRj6dVX_Kp~S?OCI)jS(+X}4J7b@?jDQgJ1=
zFf)z6JY&-D&6LQdy*cMtmC|Z0!*ypW#<YnDvvH$p-LmFsV*DryC1scilTBIU+#4ZV
zgQk&Ggk^djXE&@(v_UGa*@P!_S!*w7vag{SEh9Iv_y&>*VT~Ml+is|Mval2vUvpV7
zG+y3{FHOEh%H7`buueDi)pOoR)dI>}2|X49=Fy!JN+&#rXGt%2EyX@&f}ywz@h~27
z$ZRaw!(tw$n_{*sc9f3_gipf`F#)k==r%|MV&6UV5Z{@Eq6?9*{Z+R1*?>#X$6;8;
zg*-C4HEbVIy+neMqK9QAwIRI#p`dR1jk_|ex*9EV1x&9jlp|zu49b4u+Mz1-R!-Eh
zqU4vMf3|+eijQ02CV&BH=7tSa(Yt)Uf`t<46w4q|5R0%Z2C-TZOLn1!yQ%O+3Ias~
z%lz101~5r;Zq;w2;<OH8!UPÎiIc^9A%JG3QAhsC^&yx#3~zn;ipz~s#k<j;<_
z>-*#^bT+d1%E6Y??hFYdEesT>4&vqIO6MX4u~>FsMF+b0(vPlji#bEb#S}7A;nquV
z%(lI@r@r&QwrnB-ZQb~S5R=2hEqnH<jv^+=e*xy=eiOEpY;EFk2g+eEiPwwlC)%?@
z<Z(_msWqAL3@mbeMc(L@j@rp)R1!kByxa`bFzBsh9u8*>>lAQ4+nP@y>22w1S8PiI
zn!098!xzo&Tc^3`q9?%L`}i7Gy~86?eaFDlnP<`Ukf>qk_b-loP+YP+e$;i3{e~7=
zhycTV65A0p6HO@*3W<AJaA!d==J@M4-+t;R9BSoOYyOO^Blp*5J22xhNkh^!!vK~i
zCoV+g4;`aPVbGcVRlXiu*1Wy!{4J8u0aiup<2V+*d*X*J6pJ(1kHGTDNsr%X)<OyD
z0Fo6%hM(|Dr)d*w!!Z`i7~IZEjT&2!>qGHtrWR`WFA|}HzRsmZ{k~PPxP$aoke4U=
z5$KCjGiGrIjmS4J0MrSmzh--X?G>iB$`MBq_p9`S%MJ;}bF5ucw2dp^WPEScAQnk(
zd5t_hX&A++sjwNUYJ)6Jzje)Yq0(7f3l<}4CQ~bp*lHbeTcoiJ8E+nBlLv4;k%v+3
z;-tNP`}|hf1!t<F=p16$Ju-9g`($sNb?Yj)?Rv;<XC_DTE)K8`bq<K8)sK-kiEikT
zH<v@s5FSLq&DSWNgJ9Ita`!O@nVQBlW=2y`g;MK^pO`exBLE5nCf8OJP)b!QFXVtN
z_tAvFpsj_Lx@%jD9?tRl)$@D3{dO_;?KtC<3L24t-<_ZT?8fIU&%U|a-RTf)pX8u>
z5B6lh_}RZ`M-PK5X&GsrbPVr#BnOmr-CgCFH9b+M_4vhs!h(1PYiSDPgcaO59u7xn
zw%W)0ER$WK3DiBj-WeW~$aJ4npmY(M4_E7)0c-V0arlR`kn7bd1<vX7UizBVe<pE$
zImkGJy;8;r^!2VkDFvPZPn0W^x^cs^lY(GG<2)~aII=BMXF>T!MaN<#wZQ@554{EJ
zB(@NKBrRyw&~9>aO%%373HP>Zv^powdr+%X7MAfUt->sfpqU7bXllfEPt+NjpH`F*
z9SfWFwF-;`G{s!lJoQ#0k@r#!-30bm<uZ8jT%81f=`{eSiy}nrU=J=P2#EmauK!Yb
z`;|ng9qgs@qW^G#5pO6Zh}1#3rcw))1A~RBOGV{UIPuQ_X#$J%?<N&lUxPgj$OI#P
z(^Z*evM9(HRH(V2Q{YfnFmNG>2L=)Vv*+CwtxHluaN;qfJL!}|(dw7d5-;i0Kg&Th
zjktlr`~HnllSP?U7i{abHwJq(qRBq|fUfWu7~B<^-E&yzv$6P(RUDAii;F^fZMGmG
zaP@;sv-|)Q>N~V-VBkqC{bP$aqhe*5t1GH580dpOZ50dv5|B+pjtkV0LfZYE7M^MD
z3}y5*=99ZZsPjiWhccFm)sT|M(xS)g*d4JGL4g%?{Bj6LBjd>}E*84G9SfOHkOxXk
zI;qPtnnSYX!^NH0rF-(JhzTT#$l><YvGRYx59Z`UJ7HW?7Mf@*_tQ8c^uP*TG>&5`
zcU$ZiQ@-5EfZ&nB#K|Dj0KAhyiQUX7jEIbz+PDEWKq=J+H|h&#m~J|pN$!vZOpCz>
znLAnMnh_-m*5)oK2F}vaXF@j0cv223z#^J<&U>s);umfZZH$x@_9rU%JE<z5>P;|p
z9fJH(oN1az{864q#o-mPV4P%~t1A{MZh+yOn69rl+q!X$e5g^0aj?p!!sJs|Zg5JP
za^ojNI#e>h)@6MP9`HO0$9B-_kdM%uV6C-i?Rs0#*xFi`vL&5j3Bz#MW{B!P48Ctj
zN%JObgp>DJ4O5_d<t!uTQp1$VjV>Laa*3oj-MHiRq7il#xXw75S_GaN^&UH*GI)E=
za{bbUsS>ig!G&qEny{gQAC4L6^ha#-+1;6bBO$|cbN}R5lAq>n@_^Mp(8oX@OG`^)
zXmJ#HAi|}Ofj<0sy1Vfh2`?ye^t^?iiAU7G(cL?`vj3>x{fI!LPr64EQfy0nx%~jQ
zle8<STdkRLFHj!elXM6YaLDAGH(wqar*=m9T(QAzj2{i3Z+$Ied^;Ox$kE8d1Rx8u
zc&9u-hm<;}=(qc(=o?^tqh4SCan0*1VBI@&pPb(LE3^@O!2a!jIL!wvL6gkaDf<yv
zKTa(B@AO_-VRUcCIV(1n4K+N>c4Bz8xwWUD{9uLsWe4GH#CfKz;BSaQ<gXNr=#Tz{
zom*HE!iDhOAskL>ok+H5)~Am5$T)f9a((jF^{sofgEs;;Cd(98adZj;{!Tq^COSsA
z6eGh-$T&+5sL1He0s+|XPK<PoH`5E~02c_|j{~QT(pv~=TGCC@=A;E}GM>qf0j(;J
z`f%`;tgq;&`1Z<CU$gOKJi^4oe)g)b7v;*#L&hiW=7>nMt+u<q?EJ`mU>4-3N_eZD
zk}XKNMx0~P4&Vzz?DZXR9`K`htMiyA0AP(fnH>-{hUvTNmMvH7d-h?!&iaiLLIQ@r
z0rQ?q8gItD$F^~?<<#5c^<dRt*uK91j7)%d72YDHeeb#N=#RKw$Zr1AxZ%;Z0tT}t
zjW4fkus_N<36en<dY5|(XYaKiSi<MFidM$*)xr9`g#`|XvPN^URf^ps9NcWf2I6md
z*c-DAdyQgsy}%?E*PQd9H}b&K-Qt<)cRVBOWT>_$GXbiQ^`m%ID3OgdOsVzkXc*fH
zgg^eQHyuxqMs*GPR9VC#ZYU(gv@KLSqQtq{5mlqGvy(|iA;Z<FN8{5UbC2(&K&><r
z0hnI2NjTA}TBt$bsxn&*MJ6Ha>@wN!)Ny%k?oa0GPo2Az&|zF&kkCxf@(09Sy4pM3
z>36>%$LeT1l*%6>W27<?Ry8h$P2xE-9y9A)9OiF-@3(Ft*mWLt7k}Ei^J4ID*#Gsp
z?|1j-=gt(*|K{BHfBMxA=6>)QUKPLfz3=_b_kLw{Y2|Nx?+52r`17lCzvk6`ZSHqm
zUip3ax9+~f_MN%^?1Yj^T06)n|K+bvlTp0Vy{%y7<@|1xL+*&TAsNai$NQ#*gy)1D
zU5RN&70FT#{l&zKc7AgE1{r1MLnh&Lh_4~2WX;T<Nq@F3r@uDK9Aia3AAeuWI94bg
zNV*_M!Ql(f+(^hllAGAYBwm;ypoiiWf@}<63}XlcT;`a_>$?TGGJ>rU6iIfVoAS9^
zPREbF`M#wEHlI7*LwIf`Pew+B^nApdQGUCw(oNGu^R0T)Mdr%J3DH8ZouB{Bx!+7D
zIXCxJ`ZL@p8@pc3YcqLe-r8REZFAba>b1jO{U3j0w!P})q1a$!6$WQcx;RCXO?%dd
z`r3Q8*k$lQQ}J`FbGG&HY->k)g!xC9_gqo%`+xB-`~AQ8)BV;HG!BHfLgH$p=_gW6
zzq_Ek)-U#l0}-pDvvz0*&TG74Ac;oYFMR6GVn4*YLTOWE-g<~HMo2G5uOfk#;!atc
zbtR*BKu&MT?({Nsc1-HAY&%CGX-w;LiH#&~#;Q|%Wy8=`eIocPbc`B2w9g$rVMjWI
zt+qcq`tz_wLhU$^cwnbHO}p{y9_e<%UTe)V<|z~qA6!UcjQIlZN<KL>GLc&Hg-as}
zJ;BU%mnqX+jE*0Uj(SIA(Aj0y6DjEiYe^Ahn8I16T!y~l>s02kwYCJ0w7LX|U0FIO
zY$61~(uH%E(*G`g71(l_l2Rx|y6F%U%#ipw6%<>gVO~Y|UVf`OmXz2tloQi;ld);r
zPag&_8$1ntM}b`1suTk)u&X$TIE@$@2^0a8JAiYz0Pt~hS)p|B%^%_7699RwY3`g=
zcG{sv8u>~@?>6@*7kf{lwbH;caVhfitKdFl1q_@S>vd8(c=}`Q*L|@6`=8IvZC7Cx
zX<6%y5VE(zefAzg=NxTMaiS%)!-@89rgNWG>E70@$32kY?XsT9_+IB2OPk>gOMXHq
zl3$Iir@i;-#?t;vWJQe4+v7QtuETYauoI2%WH;g!F77j#f)Pq+LA-av-jxF%vacS7
z3nS%sai9yWBVKS$TY;nMiQ+vQ4bbjSc6l<q8f5Za{@rco-%No)vh4I{jY~}@(72M{
z9f$figEVPFVr#uK_u)xJ$yhb)<p29`PvuRmh7*tPWG6GP*WSjF@PuvLxG}dzXdM&)
zX0*=#sE9_Z`mweyf|by6n}5QRW_+mVTRU&)gV@e@$&~sG$BqQ9a&>uwfo<vJ=dX4-
zf7(pfzUjlB*-s1cLSy!Hp*;!@okkQ~1qB2!gCZK+plAqB4W<hM<$SukA_;JOs`IG^
z?8fDSX3fB%?!dft&{zEYIn`t)TkGOb?E_%x-?=5O6aw9K<61AREUj)NENjlOCi|}r
zy{Q~)I*h@poeXP1B{AiEfS7Y0P=#?0sN*i)s3JHCbW$X5I2YO~?ge>!v>?=}9TIjv
zs4X2yftdso-U!E=O|&=x2gNszL2<Jy5g#4NwpfSapPiI;Hge9j+S0rnv5Ac_hv!Xu
z$hSPZKr`YGJ!s~u+D)9A{9V^ySYK&-_+fvg)e#VRZ+{%5ytQ8&{8`jNJJClr-Z@ax
zCA>5-uuJdhgG^;*4@$u$N{cTd)o94KOB!=?Iph(h<RMx>-A(xPklf#h+(^BMug{Ss
z9`OVbS}9*YY<-Rhceo`VKAdRe_9s{OgY{SWFQD*}x8@~lF{CKNuTacFr`aVVRZkv6
zGwioo)Z<t4^Mxj0MCUh=%e#F-g$xRJ;jLs4RFk5gK@AwxfYt^ZuNF67YHiN8jv3>}
ziqx^sJQp{Ge?CO6I@`X8*PaYLZ2-Jk7ycY<EFEm{W5a$F9_}VZCEGv?iW|MEQd$8)
zMQqiC{!lp<5GaxYbeI&N(6L$pFlj4cx2Z9@iG^q>7P5ihhpv7WizZ?}+H_P3gE?LR
zw1}4q)Bj;>gAB}D<tpRgUqXF(IiCC);wl<SYl4<EAZs;F&>pN)B75n>p&&IK1YT1U
zi4Qb3Yb6Zco82&VXxWb@UDmZ<R#B}=U0Sw~mps<Hq6_<FLsh+FwOO=czw~ZYz6f76
z-0;==Q#&JTL4@vDoAv5&K*pP{A5$r{h-BMI4u_s3^pu)tTEbfUq$^>rKEYfrHfF4Q
zu^_&D^FRFX!yo?8`T1Y24vRT<b$*Gz)9_bmSGeic<*x9@&pU$yG?v-zHhD4~Jbp1U
zrRZVz5xPDdAe|P`B0&Gv2=^vV2c0u*yD_l7_;9$ZL<roNLw_3rv%;O}q$-Jd>!9D+
zSE6_xxuUhZb=#W1)yG$S)}3;+y~#-~YR^(b{Oz=X@Rz?n;Uw$c=sfK9IThX=y?eIx
z?$NuiIJP;hbZnqQ<dC3|Rh?%qb&6CU(JstdUW`LW3|y?r!LoSm#eQed+gYqj!cI;j
zMJU+dpO+;3>ki%j<G-Gp`z8bQNM_NI?6IQ<OnUTyS@O(&BO;~BE~8|V1*BSIA0&+}
zyiuLkyvxX9QQn!mctY`5wSr{)e=baujKigc`7<~C+SlKc*y=ft=g;Ks<DY^Q%}TIB
zpIH>hjWin3Yly?D-fAz2i?y$p^|@*G7lzc*HeGs1*A<t|8^n#+Kl%p8-WXt<X4t^H
z;xjux`!`e>Z*TduyAKt>Th2nKvDqOgN&6jc*^O_VW<NUa^^X=I6N%xbu-mjWq05>C
z!yg=vlxGNI1m<<SS1Swd-Z7RB_8%wl;~w^%0>rw|<Vhy!B>@L5&1$eoY861tO+
zFtfK8gRXTP(7?>Pc}$+W)~)_A)*yW{4@Ps9i0_B3%l2o}_-k$eX_i_gydOG;44r8m
zW1WDYa&?*c%0`0eO!li}T-M%16HAQPwVNzzxO@~BT*-CSrs7&XVGK`}4x+rK%S^$)
z0w>AiQIsos`|_6bu;z^DU1s$ztsE>7-_NS2X+eK))Or|~nQm$;ib2DcG^CoeB^|q(
z3v{Egz6`2(QSV)BQ#h5pV(gvPE^OXIZq2{f+G%lT+XT8R(Lg0zk5XUwX_mmmJc+qy
zt(Dms4jxK!F#8s;+8Z7phP~l=h-sS;QHPr9A>R-5RR$*y;;&C3EaLi;Zug+o)M_nF
zf(5!hP{Z45?Qki1Fh5@n=b!Xz^ZVG=>67k@ee9R5QNJ^KtN?|~&m_TcqbyC%{=9Yh
z5yD?5h<=;S$ad1X3eY6{+;Mr3+yCzGv~&QN$G))PM9K(`2O24OfVw0*&0yXc3}GOg
z?2LQ}5D%CV5S}b~Jx?JY8`*kdSC$U!GvaBPi#`Tbxv7*rkNU%hm~%sVO0A@!=K&%R
zYJv|~xhH&G(HA{4;SCO7Qk~*n5%NN*X_HCwswwhEgCBJS6EzB$jSKrRx%#vYGdDcu
zal#Je3_CxsNKlgFE+!6n;Zf?N2XMR`Vc&tENnsmF6??D8YDvP9!swSSe)cH$`coq&
zN*OsctET*}lO=PE_z6~8h=%<Ek9-|JgyQ^lSs??Zo0v0@hV@uUz-+6a)nt_t;Kv0^
ztDknkXnZ|I48w*4un%*5`aHC+H#VFRbkYiCBlD-aXkQLjh+&1TUYlyJj?Cv2pV#V!
z7xA2pC+T85N$aG+@hm%*4bSX}9nkEPzb@ETS&3}Zi)vcphjOuO`SrZE4njJA0lxST
zt$za!iUu22wfW|2ougQMo>M8>FJA<*RG?dBgpPX+eHTcnp*Gcy&*el>HX7#U6&S3h
z;7#QtkI!o(FJCb7h|5*j#^*KI7C3I_?KR^O5zY^fVSz`=HVYe`v57D>L3NBa8i^eF
zy$`Ds*?i+i;CqNojVxfykglu8uw(L((r*bo@mazZL6VJs>^#s#cHF(}@AmQs?Hk?w
zM@NshI@=$97`{H_>&C+SABu+)3#XlxkHt^<ryhsM_MwHYGGYD6tEHDu5!%6{r_cS*
z3;*-YE7-Bt(-q$E=Nr;1_3a|Q$F(IV&)a~JuJD&oN+1FR5AA~gSeO+|_bGsOt=D-p
zB*sAC%oIgX+cN!>reiE@zx^-%kwe!m33!yJF@P47p912iHTXKY6fPwvHkgnR&88Gh
zkx$F<b9abzvyXH@fc2dxCg%_!8@mN8fyGVVIoikPY^l|fYRY3!OBxw;Q6$M}P-%b?
zKdRlKwO07Becd@!Ia`?S;UUX|i#hp`y2U~mPfM^x`+EnxEVwtey#??IXzmD#MXigW
zWJltDRROT%MS}EkomdY9<hB?aS%CSG`J1D}>K#d3wb>gpg!HrX*g|qJS7(obENMB#
z;eAAKu<h2<1xaaw;rs8ao%dVsUhV9w2^^h)+TM#o^!5gpk1VDne08zwe@|C;p5D6`
z8@;#id%%~lI~@d|N9K|zDWbarsSvDxFDgH_RPo-A?i{_~Vl<bG@4c%b+(XHB@7*u1
z-+OnPn?Z2ZQZoLYEu{|O>2;iLNv*DV1hF8Do0azlJ~}=+8t!|qo15y>pV(j)dB7Fc
zC*@<)11@gLcR!ZA);a3DPr-xEPQQEfeyKw$YkfAv9dU7!>HPGo62>;McO~X(B@UL_
zPb1_O6uAv~MP7_XeB&}n3lWK}kziTk%(fk2iR>R#O3vKIU&tP|(h-nKc%}0*w(JPt
zXHI-}u=I42QWv+*fl+@M{z|)_T}YBnz&2JP>te>!J=_D-y&zwMF;Jqnn*}9#=SDz(
zS6csM-@DGik{Tp|4d>6nP}$9p)sUAf?sjNSrR>=+{0$sJ0Kv>y%4XzB)%p1i&QKZa
zoO{?X6XdEH));=Jm91#4RPbX$HCl{EqAn49Sz-&{Y7YDpn=c)pf|iga^#HDnH(tAm
z%bG2Be0ep9$(g_$Usj1rHPy|h3jUt!luIpG=0j;-`#%sq&&}P`A3uSEW-!&;2^A)3
z?phsg<v?b-hqSW&@Qo^UL$Vj;zw+c)AD=wgOHw(gc>nQK=ciJ|%bebzQn#GP>*#jN
zRuo$_%lQTIIa9;Dtpo(%Tv>fnI)`wdE+`P<{k>1L5B;cPLkle`Jqh))t~Y0Bik50B
zXNI#FGMnj$=ky@+sPxEwBv$)PxRn?xFc~WynBH!K%iE;uPzF<UmLyOy4|Nm;Fv(3p
z1S)f>PfmF#{2yIZvMX?mrm0TqiBDWv>Q~PD%-1iSGnz`b_g7Z&%OdnH(ysQg*qfmH
zlEp1qxqKNJl1|DZN<dU`LNS$3;*&&a894VHSF1s1CpLP30uEDwu7a5c&XQO%-G}G`
z;n7~cqV*FF5}%V}B4UcfA0A^!#7CAT_Up;y8B<0ryOny)@>rB>*J@kF%`yjP5mTWk
z!@+@hk{cU`y>IO80>hg@Bd!?;43p51W3RGUGokxw>X;nYcnm0!LHD`IGW{4c)Pg`5
zjh;S(*yz?X8~n)!CsH7`Bis1J_2LHF0bB4)$Gwh+GL)@ElzUqrAB=ka;r=!|8sgKi
znK|vceHdIu>tD1d3_8^n3#8&1{Qu}Nh=~!Vv;U%X(CJwY>xjMDB+e2eW=>zxEB%AV
z9fYTQTmH?w$O;&`?wL;;d<7!25LH~#Y%+I_(S<``%cO=TbVpVAPGAU356-Tsu63Au
zq)BFmqO38Naj+RPF@55`kT1pAK4JB0>)kXvj~q(r*rz2xn6c_BlV)as;mZShC{Umj
z{hl7{>^ORXZOl<%>?COcq<msbX_#LVO4}4eF{?mX^_|U*6}$!4IwqQB6mDacU}>^g
zf5~3;^^@os3o5$u@nQc(+#pp-Q{tsb1yf4<))5xVX?c6*UgB={-llXC3%i&yKQF~@
zH2`ioYz?HLfK}E&eaI}!Iex_BprOKvTa?Tk+e2;lM#eaKs$nYio{GsDFy5Pesx!7I
z3OnOeXKQiVqS}O5v(?q4=ZPTp8hLi*DXS7YN#?dby^lyToNF<bBWOE~(wdgXt)Jp*
z;HlkiCuYRIAyqBF13eq|pGo=gNaoVTb7jd&hEgugyf~1%l;sCkEvW)>Cd0QqyFN1}
z6kFZ<EsoasGw!qaJ2>BK)A%FZhV)F$6%vw^tdnm>@$tv4D>v?ZjvmS7)keV;X^7{1
zCemybwFR|&>z_y_{f&enotyjjb745C45QiB=b)#FBoKo3Wl)%<UQP5(NcHQ>CljTU
zH+iZ3ouJCve`oIeNu8nggPi=o{mwL3sB1ma8^Dyk%@7ke_FqR<-e>RM*avC%H@DDV
zM^=tqlHNea!{hi6@u5F_q`>=+Nnqi6SNYf+c6sysGKW1k`uut_WW&7~EtEvimmw7G
zqpH>YT_l)?@L*_6@jR~_or{|*_uspLL;BGOm3U9CCD4>lI{i_X?%U5{G<wB2`I2Gq
z!XyW*#Bb_NTzDS?HglPh1gOdG5Wi@b*zEAAy?rj$zmQH@q)rB;KDlh312yyWl(eUb
zlIV0ekO1)QAOCaS!O#L&6H*Ty$aw8jf21U+05&cdMWenD5)JfyeH!4eA%&r*D~2{3
zou@fdDgVM@^rE5<#z=hPW+Wl~#_=I{+re{?X!r;$0(Yj#m42B$I)*3flKMZzG(VNL
zgG#u0IMHwoW)+G(&JYHsDBBylR&--Oe8rzN`=zs)v9B(jTiIB-aAEz@`3o1$uU*(!
z`$`IjbzE6j&s|zOe{TKU#Y-11t$)?J{w50RvQtybF8Y|&!%s?0V_$nzgVclsXnzt$
z&L2HrUDg|`UxW()jUE#~Rhw^zuxG=4TKjCvL2*uAJZ=y}m^){;ftD_<o?pAPa$$Y-
z;svICZsq*B)r;%r)-J5Au3k8Qab<ON<-+R5xs_EkGOL#^tz29?zqWDy!o`c{S2ixK
zuU)#hb`I#BTUlAZv~lh$qW>_q+C10RFK(P)JHN5MesO*6!liR7YZotWtX{gXdj8V-
zrAzA<&aJMTySTP;>B7dPjSWD*zH;H>>iKo+V`alyWeIGe*Lr(<n2p$Fm=&1YHO(!h
zXJ=ai3ZR)NlElkHU$Daz((oB-5_l8#K%nF@G!>i2`mq-cU1>4)w{%r79ftKkBp!qU
zY+OgxQ}HEt`xj~?C<b=q7}LL`t1RR<-9x2pL`B3X_j-r;dKLv`8Vjib$UYwJb{ch0
zozW!qiU~lvefMIJiMOAy%3RKV!kswkF%`LV8`i!5z7sf1X=WK)!5${k<|zXpKWlie
zL5R%A7Og#A<!u|M_Q#l}_T!kNX)2p#(80JHY_p#~_LIKy#tG~XyN^51deBQyqXef;
z!>FY=G7@e4vnq@Rvg`E*oku8+52boJJOZqVYri@5zr5Y8VlI2~`k?kuGB=3Dn#lKj
zb&cO@;5I>FxW)BS&*iXB7Av{&$5Vnzdc%uXvO_ic;~PRNXqu?GG)krqzVgxMKlwt;
z_{qXzoj$b0_iyaa&3!vp*~W=~{R})w>vC)56g<gK*bPZoXjl|6Mj4;M@7p+#Y`5T5
zI2)_n%HpQ+E8G3)49gp}2ZgX|H*ggtstl>qJN=Ufwn%FSPWK;9<#dT^xj#}g?QZJr
zkM`#u5aW1=n{G1?TpZFxfr^`dGLzR~bJJ#Ec$1&vT1sebZn^27&5`oI{iH}VQ6nL1
zZc%H+9tQ+Z7Nx%OHfTb8AJ?wM)(uIc&WHRl3bQe6(wSLCbGG%20VS93OP8d|5OhC(
zzhNNR1UN%ndD<cy`U%DW^+*LvQIKRzntkgQ<OM5ofPie)l>vIGq6A;Y4-IA%xEHn+
z>zfKX!c6d=#Or@*fXJM*HCsP7S)!=&4vlJqqo)?5i))z8Wb?yhB9Ojl)iO7kpuFIY
z#n;F~tas}RH@tZ}ioA%Yw6b*}i2E}j^UQzi51lPP<MQ~G`zp)5@rHLF>77mTMv8x9
z5f;-28XP<abl@~CM`%!TR|viRLa14wtLem5IjkGUnOj2m3<C}z>>M2Qt!~uGW*T$`
z9T=Ge*$eQG1HIYk#4zBSWLMwWFu~Qi%e93GFwme_gu#L4J}d<x0b-Dc++t`GEndz6
z2D)W{%<xmkcJu+kS*0f-&bJ$P)y-*$LtQz6at%+qZCLDwt<*TOyqr!=)vbhlmTK8h
zBZGR?Jip9+M(bs%O*=cs#{*q)FYJ498%iYIALcu)@L)8IS4ODAE_UGJ?)#UWLoODW
zf7FpejG@9%&QporA+_PHo=j8Vw;>0aQB`1()QaRU<mrSA;$M`v1$-;un;I2#Oum->
zG<mCpn_1EA<+i65$8C0@Z5iC2x@U_XK%wT_Kf2XDgf(-29_)c#E_L@?TgXCtY?mQd
zh!CdX>~^<*v@rjyvvX_MXDWGmyowf*-M|H)Y$TOM|Gbh5&lGY=jp{@is;djxVz~AU
zdxrsuI{FTo!Vyt~#r+XmB<Z|$_ant@fVC@gWCF_K1x#Z3LV3z2qNv9~yLI=9+9Xw}
zZX-}V_QJ!mv7#6H&Rzig9Q654Dvk!YSdnzjO8AE(mLS~@TfQE68I^fe&CXaVWJ}hg
zb-DZw>l(d+8fjE~8MZp4?sD<9#`YF$N*-v<LwlyfotyiAzn}h&>_o!1W>6S=kc)gL
zyu?&aqM=i94N1RayK3Yaa$=Ei3`@;D)p&!X=kh3u1Sy;^72XN%!D;B&&YL)bk{@`Z
ztn}Xs3Su%t%Q_FqIO@JLcjctI;<S2TrvIyd^8IOg;{?~wunXt;_(&gD^>IxfKZUS0
zYLyFAEecdQ>SRK%#Zss3h>J~ri>Xe2Zf+4Zlx+?rYq?MQU<HcCcW4H|EA$;!2fEgp
z501&`4s@`=Fne<DfEWe!HX~K|Wjwg~+Dog#wMthJTBOnr^j*O+c_<>oc}A#IL`R-R
z;@^I{Vu40hI6t0pFGm4A))tKQl1c;54EZ1Ip-{vL8t2~O;$7S>bbD}T*xlnER!_%f
z)K-onL!HdO862YRa?l^}|JQ<t{{kdm3nC7XS>ZABK*Qa^ue-{p#1FK~>QJ8~A+W)_
z#9v7xlPzd<LO?fqkIRWSx<i)!{>44#!YfIuTdZa}`bMB~@?3%T-n{~8M$>WkBmMX&
z{J5$gSHq8M`f<&EXu;Vjdhk<wQ22^trs(auw>54sGFq6DPh%=#yc9|`W<*1fKxuHy
zhfMxn9H7zvKo-6Doqm9!_%=C}4-anpT?*R|{+$wPEF5>UPR!?0OirMa60p;MA+P_i
zX`rV<ziSDSM+O=ur?k1EyK*&_aYZkm?t_H;ufi57mWqY+Ekca6_S1da7<{_<CDVp*
z(%VicmvkS7-K2@9`=Qx^zS!-A5jSU0O(1tj3=7^`Wgb&tZF#cdhMq8^0f`QW2ipE-
zN<PwUR<>nlch}5DFnNVyl+9(cWLTPM7+ryc*gL+~08KUlM>RTT<GVzg-&pNB^_UKt
z`)W5_#lSkzQEVYcIB5&L(-F~m2^!zJ{Ifp?JCfxSqV00amk;O6$5K4GZux4V<kjtP
z8*{nE;PL@%;oQ|o2-U`*d-#YJSQ^6(2LKO}scS*L060+9hro@FNXY$^9h8(Q1UK-`
z`3qW{Mna+vI?(<j{M}KYvBd6gpCeCkGH@~<Jaz$v15xJ8^ysNlDnE>p<}1AidCE
z(O%uklZU<^N07qp`7=lXtIJo*%{@)70V2y=p0|4?$RHdo4I5@Vlv)j?ICYvzF$xJV
zXTnK;s=0yb)%h_=J7M1TB=3K{I@>(&f4x>rRhQ8o509}`X#?W5hxr#z5u+4h!o)Lj
zk!f^nnt1N+aU>IRoA;5xl}rQmc0z!13XCAxljTy;g^Ab$g%CE6Fq|kzSU5{<pk*M0
zR)R5LP!EY1o}v(1OQ)HSOUznsZ`|rF+~1Wcj!v?jtc{Co4#%@AIueMcyhV#)r03^!
zuubp)=ZeSbLZKXT7VP+lD0$k1<Igh`N--<9V5kwdNgHm|-3H1|25Q!EIqB9P%C;@{
zX?IkVkDv3j0n-}}Pti7pL&-BzzVskX<>9BNWecmzNmuz1O}XrC^YXAKN%pOUsqDh6
zZrZZ$=vUgtVGD2dWGIrYn~<UG&Bb%~S4w=WK3*eqUUS_rOzUZ_zkh!%8MV=BKP6jN
zOn-IR{)i8O2{}3(_QB)FUGRo`m@p=tL+n#JLb!m3x=V=#_M}(T&I8tEOb}sOIFMNI
zhh0t#4v-EUl%Jk;Hjw*qx;X1z9UyaY=h03?7_CDYZwnkSBMQlR<omJNYKP-<;moyY
zTBI{h{0YO%5JGqCq#`)(Zk|!(3$d!>XQ-+v?6@+x)9s_@w7=t_XQh}X@j40-L;KTD
z%q}F1b6-0oJucq@@XA0gmy55BK!nC>V$~u0p<4=3!WC>8ql80Nj2pX7pltQN?Y%MN
zC85*TQ0B2K;BXvO`pt@G>tC*V<AAHnb*;G7B3ov>;j+27DK?KN87^NIcOyjKQs$~S
zVz?X2rjsvhWbuuiyB1hES~6~t(`6%)KCz`(1{8{e{Uk?w;$!c7^WDS1J%t@<zLi({
zkGdGgHBdHM_$3UB+<Ue`P4{m2<c^u0P@BF?A+7tY8MaN|Xz9){oilqwO=KM~@PxXK
zS(`C~V+ch3kz*2akw^KFGZaIPB*6ueumpYUYyL}I&1@VI$|-y*&|2I~CNaxFK72^b
zsF-3Ua^_)GLVqUqC&{@!w#x%qwlIIhS{3MTfwvyZ4j(QV-02>DZbAx?t;+9INqGJ*
z0Cwp6^TS8@==%j7B}OTK<rwjJ__e_%#48=aH1$P=5mBv*aSKxjY(W@W%{1cb<KfVj
zEg1#&Ppm4HOePs>)I4O*gjs+9VYDy|@pK599S_zES4T386wN~Zt;Qzm8ks^1lQp6n
z&8^G&+&pumi||{F;~2evfL5!$*BKpkN5p7W<;iBE(t(Y@zZ@e$xmpM%5szI6R`;kp
z4?2&G__vQbyJCp&73sjz4v5or#?L%iSf(+ltILJGL(E3TuWlj0m~0cw1ce5FCY8kS
zp~VQdOH{Ss)11pC|7Uks6sH7Z4WI3lzu}p@(0=x3_t%zrxefF5Mar{^t~eGrv&nZ(
zL=)Vl)RU4Ws2xO-msii<>WQr?xk~&^cQcNvqJI%XnGLAqnLaL=EO|At>#zaQITF!H
z;7)0?g@wT>$%8{82Sj7PK7z2w0?<Os!@+}c@&_7?EIva(kx{s?!{Gt8gi{QLEWgJW
z*5-QDQzvME15kC{0#byi-`4F_xH3oNup1v9D>X_)P{-m@c_8dQMCW3P8byUT0s4Bl
z2R>y`E-)DllL_F3<*ts}X~hJ~qv-A!UqMkfv&z~^Z&Dk|o`orlPym$YpG;d5En%v|
zrlML|2fG%5A9g<4Djy|L(RjG9ylxS0-gEyf+am}8_HcRiVtBVosT^UdJBQ$~hA43Y
zxCyMPetT`z+QcDGZAo6>`I^E}R7T~=jJT+ulxllavhZ-)2qr<NesOUc@k$qQ!s=Hy
zSi1~5cfgKWUgxv0L&pRQJo`XvDsaHEt*-gDTvcJ9#;3t)J)d#1N#85QD88jzbYUSi
z*wc)y1IwT;SOwZvuk8*0t)HyN#1Wn^ic<1aLn1VdjnR-B+lif8k<cq9;wQ3sUyk3z
zJ-}~y%$OHAAwg4Il8z;|^0Opet8p8SZoOEGKkTt5PX?=DCl9bGRD&_*==|pPV;R|S
z)lX);e504`XI!T?q06H-pXWT%f8w|j;f6yG)=9j2pn#=TK}Yv9h#%@xi#>zTSf<<y
zl3h6OGfNa?aoToxR4yQBlmZ+@(BR5i+#*-jDg^S!rfA65Ytl|_YF&}kBeQU&P=T_6
zek>0IYD`|OD=N9YJh)=}YGUW@u+jw;^}2LXC9g@NtdpHhQ-P@PU>qdc<tI8%RLujK
zm2gPGASkdgJs=wdl;MV0Vhgg`1lI@%4MocPc1GOwnp1=0#b0Z$#{gwjSg2Usx<TNQ
z8<*)mTZmJNFi_JUz#4V1k`E7f<^C))U>j~XRY#kaJZ4aQFJ!JP1a;XeKpAz_#nH@Y
zt8Axv$0W`z;{t#-byhilKgVxod;EfIB%p`jDk7&S@S2}+6Jg6Xwm8ke&gI&HvUk{x
zM*Hm{!h%@oKcJan&ZlkTsLr!;Z3{g_(A)SF_*Oldgs4)Dv&SZZH5nFnp5vWH^CXHt
z3B*GyPh4e~I-LoQVsT<Y8(Rt3U=v^f;GZx(!Qg?z$3d`F@J(^|^4IvLrqL1c7Vac+
zT6qnfwDHDma|yW_g(YP7u;q;LvRzcKnw5ye;tH3dFqffcSR~MaL<y|-Qd~;s&}t{L
zd?v-~Z1k|)vn==V0|F>5M8LWaTy<k5Z#fp95iV(=l~DVJ{T1Rd-9%&xs1d9~dQ#tV
zl{D~1Z7Qo>{<N5rgNB_}7O~@7KYfYrZf_~zlO>LyMB5v7D%EZ}9R<4>*G-|<xZ&1&
z)2-nGO$Ok@RZ&|1$7Y9r5BxNHUSX^lq-6%7BmRlv4jctzJ%MJXdP%=!ud~(G{-ax?
zM4>Jf8T2eYr?>9od}pq`0P1IaK-J=Ds2x;Y=D`qjQRukL10vZIlk{7;X+T1J$vp)P
zBuc((9)E+Vcouy=THoRUw(}STXTSBZGwR9MQ)<JuYNI&Yx@v_#Qdw8-fkrQD53L-^
zul~SCzqnZ_wa&Ia#a&~#e_hsd)Q#Rsh*}u5tnY9BuF<jZ^Hl|yTjTIHBgQkFe32gf
zoVHndGDP>??HkS8{g)e11m^@Bki9<+O&Z~T`<HNcQvKS5&jf@!$L4JXKTJej*>MWO
zgb`!Nx$auc;&sM0iwtGtbL*vq0uB)qkBsZLuPy-am7^_6O@7M3K11hq$h|DY0#uvc
z2A|Yi=JapkP0M05A{9+jA!t$|%u2;)nzx%nIqP>U5z#tFfc}$6TdL-)02czVmPOIF
zo?apP)}-=l=89E>)AFaC8n|3&4KQIRJmr6b2Z}i+Z_-5oPjFf<IXu%|QC@#lFLNpn
z(q|$&PAr~sj^hhPK2dNiyh$pM!X&_D&E7W%{5YR10zY>_u}teZuB4M+(^S{u)Qz_f
z^Nuqi)o8N7Hb_eFZ+T66NXd~E*c7khxUVIyeXb?Pfa(ie@f6bu-L$H%NB_D9Z!CpJ
z8VWCWJ7FUwZ73XA)7)L{<IAtPTZ$<5N8kV*7uK{nCTbI)2ZOckW$hUynzP-&=OoV4
zVC7WWB!#9X8g~vV_HgSuZX97lqR);H?eqsjU9Oe^w+NR!100zCzy=>qT8|$T?r?<N
zF%2M14bbd~_0<jIP%}Z{Aaeu8uz*3jSYDeR5Dw%n6&Yn#n6D746&T*wFsetQ03CA|
zxpZF?Hl|Q+cb6V5wFaNAVNAKV^;1G#4ZcLJMUqF|L^9t($hSFl3K2)dFgxrn9uB!7
z7I4#gkP8RwCT-6ksi!Kope-u8&Q)y1V^P*=m=A=${o{XTRR&)sr$X{@>Vkh+G{FLu
zKTf>jW!1c$x2+jY=33fhl84(sz`<YWirdLN7oy%ce|S<I^0?WbkeDO`t3vTh_nfzr
zH-@mQljU#)f%60BSi)FarP}67(XrfTh`0$3!C5RXM-_bygez;ORkyQUIeWrv2pNDN
zz542;*w)-gpe~<<NEFeH+8y?S<4x@#vmg}}KdG4k#=+qy59_RBNaU#vv!<WotEL<z
zQCmxC)00JmTRUx|VD4zt)sWD}f$ZCs*-b2ixu=d=e}@1PG9#dPa-%~uN)+bZDs3Dc
z^!67C!d*BCc)f^U;_S+ICbr8*-YmtT>Rzwg-!(Vb^45j*A`h$Jxdo$OcZ6F9z3vX4
zc4vC6Yk!#B;gnT-5u5u{90<eRWs_HV*j6MHBXA2L-Gu(ghD%}bpQ8AI-@u=+j0HD3
zwwO=R`2jaE5%Xji@$|uEW;bN38yQD0H^PpwV96E|N3RA_=eg)5CD*E}fE-&5o{Ty&
zy8XRHW!=MxJbH#OwCJtT?Q?%0rLZTZG&44{XO`jI_VCVaGw#XW@8Fr?ertQpm9nl6
zE`A7Frug-@rnm-2x3|W_`iZZO{)E~fw)-u}S<>=maP~bOvh*_U1v~!HV?}&%9#@<j
z=@%%{T7AED2geRii5*`D$E8rS+hMslO9uc?2kTK6hpjeqMvatuC7aL6Bxuca5jX<s
zXa6RCYXlG*ju9j%Xn+NNrBmLwfBdg^@9#cYZm*dib!@J_0u_kr@-Qm+t)NCP)<ma1
z7@r^fvDKycrKH&+*tV=jd>C*t+U7<YhGvgajvBrK3Tvl9*|-f%qJo*ARz$K((!@?p
z^rH<Tr6{(lB;#u#W0h?g$up_7Fmq8SIVbFppp-JVm&P$#6s46Ryv`Rk95m1j!Npy?
z&7X+o)+KiHHwti3h<0X7@9BfV`){M{x#_&>L7|CSyP?iPkjs_#s~E4`mFQQ_IFzN;
z?PWe9i|kux?fn)`GUPfW_7A?T<~K~@U`2|7NCn^7gedv03VTeME{2cX!}@ji(rIu$
zBQS2*OO`+15q_Wk#9N|{&8YEH?boM-2?&-eD4FY6(m^D+zp%Uv8Mjy#<pyis2DDJD
zY>LF$hG0>(wC=0ssAFsa&l5z7)vLHZ<Bp=3^<#P7*&DH+a)-p-QuImrXcUepUEt(Q
zd*~N`3tgAYryC%~8NF}p1)ym@V0D~8=c890;8_pkfFn5UWF9#Dc<E0AI3YYaDbV7&
zmOk<Nqm`;_PiT0Zzt+@3v5a=|GamY(5<N!>L0>wC&0A0L;b!FKV(^YJ+?-mfF>|+V
zOpyH7;N>)-D<|XVsN!&?qPRPe>Vl!b8$ATQkzYc*9$oUM<~D6C2)>nr*4O5k+}q#5
zag)riV$9IchO2`K$t-S5>~c*buz4X6o;tz0bj2?v+Fi^6cM<$P!t@4ZY?{F9Hp8dF
z<_ZuLH0C&kPP?I;aHC*E<@_7;6~W)vIdVdv9{WX8=V%FZQH$S_GOe2C6>_vI8PSh>
zk4Voo818oA?h=l*F(gaiTQ}HROv32wgxD;EkMt9w0cG-&0@oivBE6+oC=dpo%Bgwa
zT2*d4Xjfuv7IR?w5;Q^wse3piy)Y;dnyHMS7g<zdP6P5VfjT2P6#zxuX_JprVZ^oZ
zRwbf_NtT10wW9)N_3j$l7hdJe<fJo}(WLqX^C&Z;hSW1~frZc4Q-0v{#Zu;tPpVxg
zcB-uycbbQ%31=A!23PPWPG0mmrEIDdJGr}A+9B}JNL*!{zAzuQx(7|pvDE7}jEo~e
zuIvyf?taO|vVpvr;wT;k8NeGX_tMP9$O`O|aC^dT)`!ipkK`8wd<o2hsr^GobpZK2
z%BXaSM7-m@5mI3M-3lO4#8jv&XymjL6vny6+mwP9!KhFq2U}5bKUvlj^A=&LWD%mH
z()R-)gr$QqFF(K@IerzUBYSBp8;mREcZ%v+T9i(zwW|#xxA5<#yPufUL>E3di8;yW
z9IJlLqcbnKWL!Qd0QYkqmw*<aRSfCpJgSs+_I+1I=RkLIyx-CN2UDq7SSpP_1`^TZ
z#?TwB)^(Iim=n=yVOOzamEkhrL3Br^E|JEL@$a0@w{S}e!xMV3aHDo0<yG~@YTbg3
zL+tDB!Lxo<xbV9%oYx{or>eMow!?f=WShx%&dN3>&!AAaX*|54DEAs{CpunKo7B_F
z#&&9Ln{i5$L1Ta^^}QB7@;7J=+ysAuzO?HRhGF|@A{%`DSsbqp5fc<b9UF#U`!Kyo
zwfm^&sF9}1`~wj>`EaC4i6D_=Dv(HT1B^w$lJNwJ*#LY!s*uW)kH=;x@SJcwjS!0H
zaKa@j#vq6|5Nv@!M*h}UHKJ*yXj8%ZvjQb5aE=?sh;l5%-#8~WmZ|hKMj$`K0JS!i
z(hIZWtplYp$c827QRLr}<FF3MIwa7!)izO_xG>_ajJ~pgZ1jz|BpedRN!#j<k;b20
zkkHG27AYY!^(k-woLH3#JE4}vM`DcpEZx}#?RjYdZ{P-T!azutK?E%cap6Pggedul
z;1?41c$Q4^?R1eN_33w!4RR2}+>~pCXY=GRDW!;Lv@r@z))+9;R6Ni`HHapMf5sZR
zn~0SyPMSh<7nCiu3X+AVH@R;T=`lBS9cHt_$V{?|YY{?JOj<<vT214#;VC9!H{-#l
zQiTVCiDL3h{C-1J6NIL4f4gAz6_J&w7>fH8aRbwqnf~OEg7>Z|4?s2_Vj0u}4r7W~
z5xDlCdoR{2yD6GXpK(jgn%$|jqr@)yvLMS^dUM`kar{k15#P{)D`lhZ-C8KtmPU#@
z#Cj8T@g7@b(!#Y!3huVB_VMW0!h%`s9I<l?<3d-kd#<||%4Eb}ZE)K!?{C<B4(T`i
z3v-Y;L{x;`jO{R6l;n!;NyMb;UP%t{l0Y|5Z_tl_@H5V&X+u@3s#b++#xp6cDq~Yp
zH9yYkY=Y6&vAtG1Ea#vu%K^J@V;P$7U?`A^iTqF@gotrvS>OY&&7Khb)WvdGa8E+f
z+2Nv(r`>?7E<-nWNxrk=fsbj9+(Q=K<N7|406N65BQAtYK1ELjxmLg$j}w<IYl8?s
zl6p^Zst8PXASLOca+FLuKp3*ZXb{_ojT*ZCprZJxl2TzCYwUg_W2Nkw(Wm4`d?6C^
zpNZk}6d8|1h7>9CWHyzefr+S8jzD<O*g#57&4O6H|IA@g8Yvl%fCQHNw>E#Yd7acS
z8>o-$emY{N*D|Kd>6O|kC}Hu)Y>47~rnVJ$Ag`(MDKvDg$>PNc8is%AvkwS&ify6)
z!h@SR)xSe_8$AD#xRm}xH=#`FBx^*WaAM047OJ~<tc-nl<V7|mMQGAw^c0s1g#B<S
zIq1CIEq0_#<V#O|W1EA{ceq{(g&kNN11=v;Yxet`7~TDQTj5T*-|(kw<ktDh1-F?N
zb+PQRSi1$oy?EwTR(yN;&Gjyv`kc`}-M-H?>@zxqu3DI<jF$~T`b8{phE_<b7+5Q4
z6vrKy5HoH=yMu7yAs!R*$}gp0eiN_csj>CWDltKb#B)|yNLVT<H%}ExD>6-QkD-Qz
zp2!an6+@1#lUa%+cs)x7M!bHLu;(G{V#%9$+mrbhxGd*-9aCx?3pV=-|4yrR=uop@
z+r1~41dFu+;RgAQ`H<7`$EW1j9T!A(a%?Er^b-%6Yh#9AF;kD|mh@X=B7_td5=#q0
zI<L3E)`ux2@#ap$*n2AtoPB&T?>;x~98o36ET;P}<fiq6I|pOs0r^H6F*3!SKoe{#
z(+}$ug8_z9O3c11X%!1{2fiu|2bsDdeu|H{ET_?;I%-vjZR>L7flfk^x!><86pm+y
zrcm;W5;Mr%MkcCvy=xoPulz>qsEIsPTVJ{V;1F!znMtL__=yR0=tbntlP6T<xOMa|
zxSfQqwF`7W*3KeRp7=3X;qp}_6C7kHSzWtWhNEG;HRUkJXuVg+Uu6}xPSUS&b9v9%
zzyck5TRj&dt2PBNXp;mnG93U3Jy_F>TXzUk+c~_ta+0a~O!(Yhz^?mxFf+0oj0{qb
zV3)v6queNxs^Ufqf>RG~V+EyE5L{?5VP1R)(03Zj(M=q71?6<psUS7Y$e}uEp~iKr
z&>?}m;Hef~6RyPJj`6nK7dx74aRUsovihl0jI>baHJ8#S6#`Pk?3zVGC!HMgR6G;;
zA{A#2{zqkaEDGtI&ZN#Qxzjb)EG$91hGe*<)&G{$TiiTfp5UC=`5S5m?Q&&Q&CaE@
z`pE7>T{VNH<R&+6@yG!LbR}3N7tqVDDp5Mm1H5qFHS5dTqRr*GJ3*cy+jw$~$i$Qc
zx=g;dYDB|TatAZ~nW!_A4$g8?CCWGuzwCeOhgG<t^185mDe>?-w+uB99blQ8&QpeA
zLGvi`x<T_in)G=^lZK7!EuSZd@%{B*fFOFaqIe9j=L6poB;DH&Ao3*#U*hRkgz#ES
z{rrF|l|0ZMcLdT4|Cu*N(CwEOC}MC@OD7P$xPrLUFZ9V$)_5W{{3@(*5ZoiWqJ%`s
zwy38v_e%Xkjw1_c?;?_-prWsO)ENv&*Q$Ut&tv#)@iW*H7I4_${;v(eJnNFO3SI-<
zF{gdnw(vF*zX+P?5l91$UUv!asJqn^w8dl;-APaVb@M0z?ns#gn;9tebXs2VX4Hn4
zEW#Y5Mam|(CprhSTvgYjFIhepKB6D|o~gPx0d?OlUD3$&KtRyxgjhczmQ5U<$YMVH
za%|-!CY36p;^5W9hSfOue-GsmLxoT_!Ff`9)m{U@CyWyYiV0RFmUI-w+x3PqN<+{z
z$SEsVj&n*usY%G0QxOAwc)l=IQ7Rd_JT03BHyZ?hca1|RE_L`Z1`ln3=u-JtU&ZDz
zOl+{$?=0&W0MR&x*IXnA*lc@J*FbWiJ*<}WwDzJh!hn7}1>Q~In=mnCMyRb0S14qp
zthVF@?Tq%D!lL8p77vpnc=SH8dUIB&32pwW5jaJ<hGT1*>ZBdQmSmM)muyIuOPJFM
zYYc^f)A=ru3XDvK_MLVOLSGrr2au!W39)>8B<D2kMw(qydUy`;5F5$-{3U}8O+k-G
z0Ip(@n4K%rL7bC*qP^cS&He(K3i3dqDJ6<;$Vy_do@hrG@eAf6FbunyXaY-=h8fRT
zq8Pb5x}Kt;4FNLCfZa7FBR#z(nn<DvszY!>hh;dtZ}K<odT}$v4hOp%ZsH;lnk$z5
z1(n^WE04q|3{RDj5+ij`$_!KDhWuU1OTQ*H-bBjs_BZUWD)LN(?f+-*{eI)hvi-ix
zxsE*|V*5G{0whmm!Q&x-acYPDJ|o1&z?gvD;Pr0MB|qSPg-M3u#=VzY`;YXk+?
zNDxc_zXU;I;KnfSO9I4B@{q)^0lx$jAOZ50r{uZ)2LyS^Lx2GJeAn80pM6f9`ax1X
zcjn&irpT&u_St9ewbx#I{a$KaQVi}e1tf1tY5BoY@ffz~;n1h|osAi)X^HLhnmA^^
z=Ay4&9mYsfGry*JXo%H$z=L>9pQPWZ^T_D6&m%2=Ow27k{HU`@ZDF?ex%PKLu6GuH
zEa=Ku;n_6>zS4DHT@IxX=?IAHP@wb-AQl?bE!V_FE`~6vSsC9VYE61#rp2Gy!R(k(
z21Xse2MA3@uqh*o?)NO2`Blp(K+ZT-eU6Fv3$;@DU_S>@QRaUk)tL3IPJNW1Om49t
z&&qsHjy8`wd)yGFfGv`$*^n)wj$!{Pan0XA3~_lzQ^)tafM`0OgHT;o={+F$NaFeP
z&N2CZp0{5&n)kM2^85N|tu5*|Py%!b$A})GYzK|@^XFs}kk$OCFC|xpJcn}LquXRo
zb|b=L3dQ&V|7QNempq3seD6hv^8{7Rcfa~idi-sY?={$<d0clzn#LFtk7Cq2K}6D$
zxMx*OLAk}pJ+{I8LQz#gn@!ah%xn^ht`pi%^cr^X{o(F*2*zxD(AaJOrd`Hb9hbCB
z^t`gxD{okEo=yH%$Ni;7@7*4sdnRdJRz{OTbtaifGh}F~^T+FP+E-SZm)AXGJvuBu
z{lW+=%GO|Wl^p78SCtHy#2jiR?2WB1$F7>ID_5Eu8>=+C;>~oF#%AJbtus87EBfk^
zVt;W(YW?&UUmH7Lbo!?L(7DBTl&(+fJUj+FdC!$aVh{gT<9=J5W6UQKb<s(EI#Ln>
zRTEnLRNrRsqVs&%7`*9{EJD@2o|ltHD~15IR&&(mYbXclC1!h^@i$*fkSi(nZQY?k
zI(h{HI6qjaKR2ZjfTxtN<vn4^dRp#bn?4t?1x78vX56tp3ugLW+AlxASQG=GInI9a
zi6D)Y0il>p6XR^Q2ZNJJnzzqlB>*(6(0Qf5tEBR$r<4{j)}I~Wa36Gf7+gqn?HoyU
zTLjxIqbn`_wQH&xaIJB%7)5kVtPJAO-*~j}@)7yN`TOXDN4*EbH;3(;{cm?4UBt!a
z(M4u|@!|HPi+hhyiIR24+dVjWI@mw%91X4ILg<7hHQjWceOu~=o|Z#5H&2Gce$U@_
z<Az%K6&u777w&d?FN@1}lzMIHh8V2a@>Xlux<<pJ*8X98cnz<yl`gKAt%LST$dj}p
zNECg1#(CLTy1}fz`nm>WHqnbD3oe5_RGI+Vi>fqHdT=-A6*-;?%X!*dKdjRCvq}#6
zkl}3wz*pAEd_1<ZZKk}UL-;TE9?Nznht<>mXxd4mn%^u+evr-c8~H#?UsZD*X7g?L
zaNMQzcil#}9bkPvTKu@tpj20vI9MNsbdK;ts;TDt>AmlhuU52EN@zUO7O|PdJyLqy
zeN3i<%9o_#%oozVT9T>c%vVIRED*E;Oj@|zu<`Z9Qa!|!q_{gPnIzH3%2F%t8u!8h
zx%dZ=tg;IiRy2ZTBml}rY(80Vqk(fynS9L?Ckvk`2QkNNrdiAcCf^t$G0l?*A0D*G
z;}{@UUsZ^Fw50p_EUS8SxCyG+(n4Ij*6aJsz(6#AJ=EUUEJd89!;F5DLaeu|u1tUT
z2$f#$N0~r>DP}JV_P*T7X*^cb-3Uk-QWfkLSe}77rsM$J_+{lWq0u-Wx3a~`V%x+A
zIIN;{`=Kme9O`e~=85YP_fIs>7a<Oq&R7ytSJ*FihxZ7*s*p?rMDMMTVIWhpm7cV;
z_p#VxDR#$WphAUO$%y85AU}s}NlaH<jXtxSipOo#b}_bzJym)r?##hSXK10#+Ov+7
zH4Ek9z$p6~l)0zc4b@QMAP$(K4Zy5;Rvi-#xQ3vRw08z&=`V79u0LL=XeC+DO;XXu
z)zU&)wAlRo{ZOo18%pxHRVQFOSRyZr)DAqJdz#2qy;<^@<bq<5G?XaJxJMhWEmSg-
zrA8Wtp+htRo-I~f(3yuv=#YHuH~O;A+EDD<PR`4!k>C;$Q>&M?Bx4*U%uAsa?F6Be
zV4zK-2l`t!O5&u;;%4@Z7WZHD_n@?;2*M~JRm})VmAta@Q0RV#L_~Q+Ufhx0y$jLM
z5LBMhT8Oy-f3lls^bj~e#F81n+AxGE+Od+-v$kKl*X&~d$zHE97`lY}6JNv@@==a$
zW$&<NIHlK&+5}O5mG38jQGv(&gWI<on|B|4o;yF~VI-KPe*Gtn@BZ_Dg4fEIn@X9m
zS-Nynmu{9WZRyfh>C!D-x>dTA(l1~+{`@|JxcT|dAF`&c{g=oVOS&CD@*F4nzdrYu
zOULls+<*D|r3<^T7miQgJb`R<pO|~xH&2*y_leTUE-x?dMQbx!7$HA`&eEa${(==O
zqIE;HOY7OnmmwE$l0JEDm7j?REi{6$K+;f|=&$k>GN5pQzl$1_o#ioQ%Z!Ga<tbAq
zhAz(EU;z+bpBf0_F=iT9uu;DDT*`X2z0N?s{MUZ(57JUL9+(*Lm*#%d?#<6#NZ0@B
z+>gHc`Y+7=1xcQN@O!`aZ~WfxH<wrc%J2P!%d7nP*XI7BKlT^r{-EHiox1;c?#7GZ
z@aWo#_-$eYF|RJa?jKU&zPk)(x`GcD<&Dv`?YCB{&n~|hb`O6v_y7K%bN4p4{_f_d
zx52sx|L)Gs&+igr^Po+BF8MY7`d`jpC;{8Q`s>|KasC3^Lceb6*Oq?Wn!g~;8F>#o
zJ<jMiFr-R3+h|xuq0OiA%vH|`0=yBCL~7<p><Al#SJ-^|^tk<s7(;0bg(<}ovCE&|
zziWL}=Qn?0tAF&SfwNQuLF453FkF4ze(K*o#hbEEPG|or&KU_p6ZRSMwfIt^47&(X
z$DE^$`QTgWTWUrG)>PC1&-41a{3~owjxm@Ti4rC{u!xFSYkRaN(wmLd$jA0)cRs(r
zv-xoQ^UpMeF+=8MX{;GJyCg~-37Nhm66Se7S<Xnn#tt^$D`X<JavrE=3%_eErlmG!
ziPKf@Uz|+i`h=S|T+9`dN7lVV7!LCw#5%#1UdYS62s|x3P?ic)clCyjL#g$k-R+RV
zpCDLeY7?=`GWY|{RG~c<P>(`a(o7R$SbV;*bOYl@9*0;$5TJeR0l5QaPF(H~7wp1^
zniDJeL|-pHi`o~sVIs`NQs#zTEf2jA#ww=?IkAT<f=0K7FOK^s2QPq<61&EC1n0od
z<+gbHXwW(A_x2vIqM`=^n@aW2KWLH4?uGOPKmXFY-M-JbITDEHm(PV3EV>XYB}8XH
z-0>R(-D<6B<`v(dd9hk0TSR`_ax$xq_yF;2(>I4=oJm0uvj|WRUWL}<)~o{C_6u6b
z=f}`4Yy!o*t1zRH_8#3c`q*4~2&PUQ5IwAx{|>pwc;oo7<=aCCFWcJ7uoxDm+AXA%
zq-H!LpB!cfD0?cTxlxB#Bx+h{E=IRo99(qHpA7Nx7x)TeneV*?&S2XJN^2_BEz4_t
zXVCli6_u{FeU2Ti|61l1C+6dcV|XJiFL<8(Jd#OQiyp>egwf*CT^YFC`>*gEx{>8W
zwI^oi*@F%)<b9h(C%+)^X7bzIV`g+b?sZZ3Y*CRJdFZf*=Qp10Y&^kZ{$^XL-Un>q
z;5#5mR*MIo5|}cH%%nh9R2HVWvYZ;I(1&uQf?x*rF8Fb?uQB#^j!uFRZW86&?6nTx
zz&<pt$4^i_%L!5huT2`76=?QEACO^BS#Z>U4LK^)6m2Z#3Ks5naG|uMVpf0H^TErn
za?191os!(s4Qj3916WiY0c^~(9d?Xq{EjZy8iLYVrVitqC0-7~gnY|rDf^*PVK~tb
zpr^fjCq?*XkiJj?^aTPrzz2!}C^f!uRw5OVz_Ka1LG0B5>_V(nAy%P1DDAi6{3@Mg
z7d9?fV}YwjUpj0(4~1~B8fT*Y7f&w`qQ_>La7ICIRrsa{OtOuCI|QL@tv0R~pKn}9
z6%T<#Ea-IOf*`EIh|e@YSX)%J-zwZd<LvY>4x1-pJeBG>DxTD2f*x;6R4uY1rIFoh
z9S<dd9S<1|C*pN}-MAn%m0oV}C<RN|f><0?shfvdi=hJI+Ni;bFXN`DA{dQmsB<yP
zSAfC=9ZJ7FZ~S!F_``l5+qV*Kc$pwSER+~TJKvPeq9esoRvJ?7p4hmaf4gxZI4g3j
zKBU@5|M<p*7yZ{61&T?1U`L~O6P}k)u4JWjY_laP7PPduKpf_wg!T!(rS)(oqjmVY
z^=8npy^?Vpr70yGDWOZHGvlLP_WG~MXs81T?--!vFPYf8B(lbJ{l0Nw`~Fg39V@+y
z9|}V~Y`bRy#-7gpSm@+{uPnnTghtmTJZ^`D&ITRqfy5VntR)~tq3S~2qa&O*`HQKW
z!GVvfh`6kS8^#6R!_aA0!UtHoY&++Wy4!BODn@rg4Y~sk9BR;wg-EvLMj=q_!8_#a
zh%6Hy@MdZqT3OaM>1}W>K0JxpC2@Z;E?>LW#Q@*8b-b+-m2nut^x~dUCQ?8D@>XDc
zhX{hDha*P}+a$_R8H~7bkCZwsD-JD{M~rdV&d&!?FEL%)_v;6h9jU+hL6ziv9W9yo
ze`9yBS5^o#TKmWF1DMKGo)9V%srx>BD%`RnzIyG$24`0pvgPF|y=C;Jl;_#Iu)|W2
zdSlq?k`d%YiBN^`*zgKLRBzPLeMs<|&g$@X<TkAXD><wk#{BKCHh1pbz5M|0jl#bB
zWu>#1JK72Xw$pg}+{iyUYsS1E4f2iqL<5AHicQ&0QE_=!V>HZrE6eDGmu~QQ)x9(7
zgpngosS%D(<ZP2=G7>M{^wbNuey=wME6uBofmFfVaA&H)A|X<P{hPb76FjTbqRHRM
zrU>#{8f>G!m|mOee_^d@eal&%-qjUjz`Ip1T+*fT3sVbs&$AZO-aJ+}ZT>u3k*r(<
z{(zIkx_sRxq5$h2<+xpktphQDwhGx)p&~d3E(|`_%Hq5hAY7hiA@^jW70{`cnsBhY
zmL8*XfIDD!0B<CqFKk4Rj~hvV{lb;l@N6Sm%xco3nX|)2-k%=gJ{A1G{^v(^Ic1tf
z;+c@>0teCHmn!|A@fJtmmhDCiE^GR@BO%je?4u?<>)L|g%?)Ka;O^+gT~>wpU=m7s
z#C0t>(OHFfJm{9+TDkb88%UC=Ti#6#`6k<1qoA7n(hc7B?&JCS=evU^vIF3z{$!7l
z6mpGiP$fhx_M(lD!!9c$#3kAC_+v}OKI+C@loCFm^yWSmeJ32USkBL%dJmjs5tvZg
z4<l1qSz}a-rIIJQ;PXh+*jioi@%!Fj@Lm+<-XXpm;v8HGXUTMB_wD`mE-<~+*jVN<
zl=XXimm1sM>NTt`Z)qg*x2krlR%sNQ`96`;7MT=l>1`fA?QkR=chE?^=p4LQ!o}oe
zWa^}#K}V$YQLYXST3n^no0=(g;pMOY`OC$}mnTvbZI<#OvVe7*rxH3A7$|Jq^9+8j
zBR3T4K5niCidtA44aiPU7dCVNT-BA!?z2oYzO6Ms<T_r;eATuhwV9J>zp&1Qm}p=_
zizd8VP?zdzt<+PsqoyAKMMwULZp!4Pl6V8&>pVc6LM~>9^Z0Gg4hNe80njJk>jQRr
zbz{2|0>_?1>SvAh%LZ<v{2v)K2L|=E#^CX~12{iBFOMFSq}<jba6rc8XsXXEe6tT6
zw|tcQy86_LTF+Bq9&yl-s;b=;<_EN&HJZyQvvyN7X7V=}=|*X<9S<DAW;TvAc(izF
z<eMshF7qITWu4v60&(1yb55S7H0jtbaGhoqB40INsReH5s0wP%F<hqQgS{17kn)f@
z0JLBVaviY3h963IpX)@qtFA1s2aPRe&|jpOAzohdD!S73$(#~Ogq&%7A8T)B9{0Vo
zlGkY4vO-NY_86(P!@6lpMX!l+A{0)+EY^d=U+{N6GCiRx0lq=Fq&_XdEW0^&%U{O{
zabZ*YZ(5RQx~hLyVrXfh6z}%NTctuH{yzT=GNDRNS1PZ+QkkB`g@iM5xG4U4=uFH|
zlp@_QtZ>9z87Q`ABWs7JkVAuKggvQU1uchrE8{z-hmb3KXt6_C|M@tAVq#bETTXcx
z5BnnTIPorwCu`5JhUpdANb=!l&4)#T=+eMLb8R2rm_zN12Jg!GB;cQRwWTpm0}MQC
zL0u;81xd~AB@<9ppJ&Mv2^ZV~_T#A9$Z}s=D@0q@@qqPBS=@$b9(x@kYY=~xUaoOV
zMaa9I9wr2KZxS8A<AInw&I-#`JW5Ej#EOcDek&(r@vsF$tK~^NY&guq5k|XsuDz=s
zX2tFt_--<Hq8%1G?6HK_y03pbzSH1Coo_9)<%}tae>7tk?3ibg<0kjiDeHzEEz(Y|
z2$KflFH1y_zH8wpwE;EFJh|9bi>L>s15Gd$xhZp8HGcgLxPtYn0#0*`hrd3;{loJQ
zniD_=jF_%LPFth|xd2xEQ5!Xr>s|?JdZ+}sZb9$rfU^#8exVFhEi`wv7J8JY3H2rd
zrG!mopnO%2PE2+NYziRxN+_U(FTo_?)Q&^sD}jWDC9vqs-AJg?{YtnJs2&}rk`cNg
zAIqK4n0qUsagKSk*D&bR+UNMDo@c1gy$%mM`AEgH76q*fHbv6#XLvO5-prH}^k4OU
z1<?jH)}z4X-ypP@2@g}rp!Hm3n2D!>r8_x_rg(GkDVh4WLfO>D_4p|`5j;4e7}<6G
zc5jJS{lizHTX8(M_Dc3CleA+Oius(7<skYKx>{p#a^rGlCj`cVY@1A!jfbZA-g7z-
zYvp2&9o2$%?G59IG($pXW5OG>M~Gv~@d8L#p33LMg=^Qw2FB6i4PXSA2&`y3uYYc2
z^s4$AZG7Q4y&48vx~1`p-&bA?DciEAxHLa6aUw88K2?EWrgIKUQ$(6!=h>SIvOp_H
ztPs2j*L<6WZ|nYzi;Sr2-?V89N~UdCe1k>Nlc~3w=j|Mz(Mp$IMJenF_041Xi;9Na
zvr{FG(R<a1)ZQMo#(Z1RHzlD@L*Sz5Mzv?>y}7!#xF|J}AYgN}#_5wL+vSL+gYc=C
zECq=RJe{A9qYG~m9EvIEMe0;nivb%LG~ku^Fkkc@^-(nAo6pN&W@EEvl{uCuX-@3)
zau6l2WOFqTwrDIbWp{a~I`J~1E+wuf@<N5v9Fb6sqZe<`)|bo<Jn3!;ogU7U3L#JC
z9VcSXV*X4XJ8rwV=$Gb}7);P^Z^F7rg96yl&*!ZUni~k8KPJyJr5R;tK@qoI(cCAU
zOTjVeL@szKKq);S%A}wNgoo-%^%i&m|Ln{FpG({TujK@>9*jO@r=4D+UhJ2jdr%XL
zTR3WZW0DZXav2j^heou}(OTCf%UIyxwQHSYpsi@qeh+`-!perDAFd+uPzs9@7gm;k
ze9`(RQn4$Jt?>|V!*1V>ffhz%+`9TogAmP1;>K_jkl_b^$`>t?7g6ebP-Tl{Yr>NQ
zuNCZxv`|)0cig}yEqKBZ+^M*z-$3|}YeL2c&iVZSz8Li*bvM2d+dV@_JZ}~2RGmZa
z&7;Yb!gN|;rf_T=(~~_-1lNkU2@)m>7lrTOkBsA?PG&J0X)n^H`x0s!6lmZ@6(X2Z
z2_>PbV_y)@rl=&2Jh6l;zDDxix={{$U6z}_7(!LplGloJNmCqPDqK^=;jlc-;(TNy
z;z0UPHMj(zDetIccAfDZW&MIu<C2W_f|$dH_#KxMC$K~lv;HDfflFf?h)6vPU4hJ5
zAd+C3=$eByeHGItycrMoQ>4S4K?Ck-TE(7-14t|l2Gr5g0$EkD$UvuYzmLSk#hmMM
z?Bb^uG&cp1mCu-gOV1`HP<aZ{`4nO?_l@L2b<58qviy*}ckjDj{nKZUpS_IvWqvEN
z_ZEIqB~}J$MP6L^`au^+quc5o;J1({=)!i$WV84fv~cPOYgMov)v01tBk49x;N@T}
zgGhh_Y6w8LJ3HKw&2n(^^zZ4MWH0OWoXLY1ZKQYT_A^i1d#!OqkFYQJ4^T((*Z(|~
zuHw2rW0JJoc7>&rv5&AjN13XqU~k0O1hvsOC}y0=F=quU+32<pRktd=<efAXlHJXJ
zA#pG0bpTN52Gg`%lB;}ZfIVZRswzsl*jk*B)I>%%yDg@}KXXKE0V@0s;WXr}&LhPh
zubwAzHIp+^)}BR;;;VoieG`|WV`9=9BJjepDz!fJvwWg37{(PQYAc*{5e#2yt6Ui&
z-33=@-nC`NKoENt@v#Xr3nsk7oas1YAPRIXx%DmGNG@7_27p3?VP{DGMnfUM<N3xT
zYmoy$9-MIirAaPZX>T{YiZKJ;QlFVe@2w6(iX49UQwNVr_~Q6Gw^nU*X95tgfZz@m
zOTf|>DaJ{FuAI6iEYVJF!6B~eQvkR!1O!0Sk8sf+2-k{d25CX`KI59zTf|<yMBlA%
zUALEM9mAb27kILKKhsz9aGXSNL9h|J!b?VsL8`JkKtG`qCwtm^_tDBer0-#LSu5_R
z_j5bDQ+?ihVs@ps<Vb3tLo>)y8Ky25{^GcGG-0oqTgE1NbI@UfDe;q-4+tAU{IBFD
z+j{0C4WSLe@uVA^v~eQ0R1}JwOD?&JOnJy2EikgWlMDRJqRxIgXgodX91fSj-?*zY
z*UG>Q1!&=R>|U0P6IZu5>fN`4>+H?Jb>Ipx!H?_Gh8C2@ndd6be@{sNTZVVDVHc1S
zKBbMhQr>dsz{OEqPl#K_TkYm-SNK|HgrhPd4&&TWcszq3Uy&uOT;{fY4ld!b+rasQ
z5j^q>%w^Hp1XEl(0|C;y+Y=BqGZ461cf#i`ZAq<>ANAOQ#=9UIKg&5}){3&Ovyz-v
z$G)o@if0n^(vC$Wy-Rw)-td<ZR)xFt$cb7F!Y^|9{*V;T5F~>yfE{rnp9;|ElMVvt
zXv!T#S;UH4r#w2j%7HQB+-Z#`Vn?*~6}W-kH0(YU{-ZCmBKQ6-C`M+^pX|tBM)9%g
zOr2V|Ik_Uu?F%@!+JtyX^g5k78>!CZULTL4%)7p^@VrG$n!!*>FRN!mPD(t-S#{?z
znnHrGf#G}mA#9Fp*=Swl<N?$i90oTo*?8*!ygsqL*p|$Xqy!aSBPwk?Io;!SFd6J+
z1LcC;z{H#hvR=up>Y%|SEX@i9Z6q9kc_S@&uXW&-i_&Q0Gip-0F?p1Df)FNPL_8{?
zqG#&gQvyG6|A(3GlhE6wf|e@MqJyIT(?SlABnE>%LGvmUXXIFYG_eX4%Lt)9BB(Rq
z!*)f}Ty=Mfa#z`0FJnU4@3dsIhcAhSXZf|3w9V8J(yW(mWN{Q_LsM#z1vLmUU5m$i
zJqt*ocXr`T%#cZBe6Zs|Izmn@dqDX>GEMcECkidKpB&{bwU?vTI}YN#_8G=Iz0YKj
zW|(y&WuRdyX`-W3nMfb?c<PyF%a1FO?RbkRyFAA>kyYO_xEe~LHlH+CU$HG2tHcZ2
zH`=ATBtc@uJ<?p0VQ?1*l6Pz>OG%kYmW)Zns3-utUbL+!MonyFUvzp3f#&HTsJp6P
zQheM!!qgD<S3=n6$6c{wM`sQd12a2>38%`xX8(QCU`)Yn1~3@ef1Fv?D=M1iN>a~A
z@i=H7KEK@~;{FZ%Rn|{b{D`_2yP3sHiG=pZN0ElZ!@zf&9&WV{hpoNtgKsM2LHEKa
zL8Fi?e1$TK5^<p(m8VN<k{vPGcz>3|qjvv~^a@&Rn>HeiC61u<zMTh8=I57S;4EmU
z6U=W(Ed`N#fG0qE_a~ox0t#nyhM>HCn|(KPSuyeWvUl&KjZZ<F;~DNs7O2K~^l>|5
z`0GqB^qSm*kotB=Y&@bzL$#d{Kw_c0TtOJcT(g3%|B8v=UH=o-+Ld71irR>bC7rq)
zx`i^0v(D5(atJC`eHQiB>lc0Exuw=>lX~Mw79li&>7Zj<O8q6RSi{3y?I7zSPZaNw
zaLbELZRHe$fim2XE6pcVKEjz-p-!MF6OhTDYi6o3WK$<nfD~8!)DN!c72hvob?8E)
zP`k-yDA$^0$W)F1CNP7QK@SlfUMfmK1HyQqg(&0<U^_J&U-ow1_dWm^>9{ySr}DlK
zf?>S!USLSKGW{1QP(`&6ZfiOlkSCjJ8PGu4O}glJFgc}EFbjtrtZv{{o&rY2>2B8~
zkx|W1EAog#ipe=D7)pI_&XfKAF)0g%ff)yj@n$<X;Ws^Vu2=-96<|!yoqnv+dvbu?
zKG`SPtDL5ABv4)yrN_Tc5PKcBp8;g)#&^H^W8VVr0|zRKMAlt<D?8J*b}krj&-Scu
zG&Qq>pRsfyG<=WhO*IfJ%^g1GcZ5xKJB^lkdC9TG5Wcv5OAIi9HPKlklw~Oq_oz3^
z*n<>ngJ&&>BPF%`$P29?$IkQ4!HMm`9*9#i**sK+Sd83|zU#$j=^iasIP6~y?p165
zgbZr6V`NXmN^pcXIviH9s2|l6jF~Wgci|iP;R21ec#FyLg%1m7GFS27jFvftbxGvz
zu4dkUes_s7%JD9%+FeZQAy(4VL$nYQMD-9d{Rj6#HWDGPcA7$%8oTgcF@0y}fRnua
zY!4l|ZO-Gq*`4q>!17c;P$2tYaUMvaJbTD=3yAKDLKJ*Z#bM4uIpVO*ORX!ez=D7u
z43AItU&>`}#9=ObqKJiD{zmhzd7S4H?`20Xkg%hd%?3F5p>#rItmtD+6{)kMm2Wf;
zQp{Dm;k<ZpL%!zjzLt#FB{Q&??sLCnar7<8)6}vh5FuYaWWs_l&kY1^KYxosN3TD!
zT2q0WiEpTWY|`>vE-tSdMCx{Vp&=NJBrI=<hYR0;h`w2DGo*k(#<s8qmNEi0N&6^z
zv~$tJVSR{<&>J&A^{8>L^Qk<%0xxc-BCR74vW>+CutAAmpFf(T2ZJU9i+=P0o-4}$
z3@c~ZO%FORJkR2ZD@5Vp!fJ5Iw>Ku&r}z#9;hN#F{2E;@zey#>b@3zS-n<f2DCOzr
zUV45~PaB(FQ&6h3IJ_%=6`#v5nhnkd<&=datCesC9zy?Zd)AiB`6JI?gG`}BZo&Ts
zc7g0jC+7S_I)Fpf27lUy{<k@z#^fF&X?UJ(BC=<exQX7BB8`GN$N4G2F&>9gxKFnq
zD;^Z4qKC~N_ClvTw9rer_;0EfSYa3cO=C)_U}`0`I|X*Z4;i~)7{oi0A&e770;xpE
z$!Eh_M<>WZcCtWII*k}mtz4@TP>W`keU%w>4!SKJ<JMLRn0PG|`IdL;kpiZ*4x9pv
zrA)Kew*BnN$#O-z|3MOBGt!;4v9Wy67}t|-i^zwuj_oZR7v5}Tg#(>KXrFMY7!CL?
zidH@;6eY8GV8Q}90V2X^@g2lcL$Tr(_^Gqv*;x=mv%qH{wZe%T+kv3vO^Sf7N3}!k
zLwVcy{si(yK!;^kI!IG%8>j5yA;-Amv9bV0gFF|#&=j~Qsm=5>53J7P*zH0d4tRE@
zYmW)b$_dJp%B8HV2^m(8TGX^sA|w_50q6ZO%x2|N{ZsS*FC)|qV&BmoEJ~GnmyDuI
zTb)-V4-XX)tcxwugT9IBw4_BUU9b-5BXnaD8u=Z`H4TC2;2ERLh?f2b4l|$*cl1%7
zB9;bkpM3JgqOuiS^el8&?B^&X?^B9ET#=OnIOtOayS49{9pgsJM{#xjw%vvE;Pj+>
zVocyRx++(-zTzdPCbicoDno$8=sJ`u4s70CUVwZ^5QCeDQp$A*d3#P$pEu&4ZM&7D
zJ)CzeBSU%W@i_t|#=mgVy#fXRK@)?|n>xLj;ulzZWPo8!ymH|O;1VL~HjzE#Nrd_-
z<gL42xp1RA??NMvuFHScm5hKN@)3lj1i1)}pK#B*#L@caJxiMp@TZT_YJ})*6!1}!
zg#2fH`RnjT{x+Atezf>#k@`DsjR>#Pj@x&q<YIQeP2STEmFPcRP_5ls5SJ&cjWhWP
zH&Ymczc>FA9QFrGH*BH0B=1;WeW&O1R2vpRi`pDCMBGurErqi}%L})g72NK)u)6%=
zhwJMft#5p|v9bQ)m5)AJ`<koGWfClGT-jLt=<3EQ4K|uzH?{-1`d-0Po`pvfj^e^2
z7@(+Gd;^;?hAO1mGKWl~m}gZR^QO~2d^TVUmt4=alS>yQ|4NV^Dp13;TcjJ6Uzf{<
za4M%&q*5agt|aqMh#!HT<WX@`MyWkpl5^X^M-h%1J-ZZ>8U+mO2x|gm969<y_rwP1
zCHih*81hhLYaAKx9z7LV-5Mk+c2F66^1+nu{172gs_#_I^nKn432`<=eGK5XK}^dd
zj7LLAtUL+tqx#VvDNgYb3zV{wva1MVF);y0QKE#%5&xn?o;_YER%meY{CQ`;Bkef5
z(?cgLXf|#SG*T&W0!cz%nK4)b_qLu#r;v<uB%XuEl!iS|7Fr!4Z!F%=NRb^#Bbw!N
zY-KNJaLPJZK8|wSrASH`PKx4Svl(Z2hwWcX$aVcd(dYm^c}J}SDpeg%BsP+#3blEZ
zymG@HHil?ufU=EU7uVn-JXuab<qm{{`}IF-T>teygHka)20B6$u(i~Y1+EozL3Y?&
zGRVWUxfiVEk_#+idSEut^~G}f7G4ewkp47iMvb=`SUldy)%B=JrNaloO?X$Y^;mtz
z<3IFRgY4r8JGcqoshoMj5aVH=drIlU=&Ar~{-UF#dIrb-Q`PB=AwLjEQ`6*(H56GU
zSQCJdZ^2}wb91Cbf>mkC44xJHvB!@^Vz~G0uotwTG7ORor0+ZORnhBNhOiIpgOj
zvo8MaM`e5l{Fic7ebl0}0CxDsB^a!&3{C}oCY9r=GQO&Yo5naWb$%40wvpngI7ZGV
zEPrf23=M-Lx!^0F%3bpbp|-Dg5foY{DcOVNv6Ps^*`v(;szze6M3%{a5?L#)dSnm<
z>(Sx{iIFWsj~9(iL4uM8i6c1SJ6@XnQLNClYhhxCHZS<qt&rwZ3K4B-ii_zLH5_R=
zTf2|!J@z}h7#LKdK*s_PLX9B@WeVQFNN|{MkW+f1$<IzGip&r^DYaXB3`4=<`>yTb
zQJI#Yp(DYIg*y+^T4B9O%Wk=P1=<vo>c$;9eD4vBzePNEX?-K-eQKmZv1fT#PX?~8
z!@B1g#@QZ8hZmzh1>_X@8BA)gIB>}lYbAt@DJ{%9mL=uvNSz!ROt@ZIxwVRoiDmyd
zbLn11#Spa6*X0viYyhvTq6jg(7D5vz;O``G$i*;RMPa(`(FmS!D`|c#ZIE*1u+t#J
zxmTiH(4mr~^~}q{+WMK3ZqrNj>G3QV5;N5Co}Eo;Fjk?A4!luuIgMh9%0PCEaM*eG
z!9U1{Q}n0H(#&V_kz&#P;=($gq*vJnE;ep`sdlStIZWuS3=!|6=FJ;=^XF(A!V2s?
zreN#%l4Cb<{eRYYLwcTuvQK-tI!G89rM>i0;)cX<Jo^@ggEhBQ52n455=RP5m;<Z*
zwflDd!Y@!4?7lrj8@*#CDO)^r@3=4OwEL1i{?#A-apzzC(SHH<bj)Rpa^;}c{2!7%
z9sa9ZF`8xljFETtl-)2FbA_qfF0~EYyHj30uG6Z6b@B(6eAP2_Ux$mzOP)1fzFcjF
z;I-A}g(_l)MPz9Wb!A|_FdtmdOApc_c$^9g%(*q=64M?^y+mi^*juOwTOJMBS4(cJ
za#_Yl1v`q2*poC+jJs}U<nyTU9M;e=r%mg8u`+0lT?kbkJn#C@dNbUMxpbM2>DEO*
zd>Zk}l<8#6-6k+bH8<M3d^bls532dld<I}KAL%Je3!-o7g{Z#;xp-;xmBkihc|elX
zezpk}?WfL&6`H34FN{VX9=DAmg>r+&berc0w4*`70&!oVINaaHyQoySF6~8E%%rdI
zeX)F9^>E2mIDXt@jZuk;Z+tJc?qnBs0aOQVB`>&CFf-J@dvMCyU`h^jx@uzLkX2+a
zqjGa|znUwc=H<SE6ii0>dUklf-%e6|VvUh#jO7>CUK0QrG!DVLw7$~U`z#{&Z&lSN
zzWhI)yLIMLa^6EIDEIg8-8*YNIhBqZsU*kB*neY7$HfNY3c>m4-b*>S(A7M(0HP__
zFV$?P-RGQRXfg&!ADqBKu&B1s4u42WILUmNY!UAe3Go;T;>~l~YR_OdlCU>H>T0yC
zl%5F?eK-l!#sp=fY!R+`*)NNd9;_}t?pZ|Ph0~9HpaU6cc&LdC`Jzga(w&~{WAhpi
z(~Pu(W(&eKW>Ud?CjmADmRsOB!-gZ0dv$xb?_%%dYIb8`&4e@9+I9=zWIyssA0tXV
z86vQ&ON2%q=(RP077B6YDS3r5T%M?KXZ5?g*wGn*JVo_9H|Pa{I*g%9iYt9Y3Bmfg
z21Jfy0Tl{7%P|aU1-OcPli*Sn<~`&M1RTLUtNXR!x`f4~Ou#jbfq}>E<%4A)hF3wg
zXagWq9X{?@o%A#hIW05JEPg!d1>c9l(sh)UDkN%#7K6(2QqZ3oVA1Z?>PJcn&uG}D
zTvpI_h4SB{a9XC?Bs#)>$s)|Q0%xoOXv)!vwf~SOnW)GFXUJ*GjEt%Hhhq0w*^v%W
zFGq!i)%@dKr4S@nGRfZ++GWxGP=ROfy%ZpNkXZ`uP22$xnV2^~8=I5%T*dcl3hY7I
zLLHvy+7yFE&Rby5OZOog{!mCS`eoj@{k{t6O~RTHAC*%V)tikv1lwt$6V5fl-)p(k
z*~a&RENR*`R%hOo?XWLOU=TT=vz|=ZiH$W&Y|yP19y!;G&*IAamW+mDWMZ)$RZPO~
z5r4hBMChdTg(<hhr#kM(&P8mLQl(Dj*D7hWW=KgjQfCB(L~@@NZ#8nXRFpP_4Jt&_
z(*df+cPMJ!BG;PsWKB$GovfS`ds1c5nqXPi5{Af^l`E<iAV-+bce%aycwJRg+?Pc%
zOk@BGoP|DpW<gnAPNb|)ocM;4)@{Vcb^gM4|M9OnjgalAv0I+aY~G<ZNmP(lTn0@G
zt^k0VIr<c%KUU#|X${tG6+UefgNJ>_g9iqUzh&_u#;6Z0f*@wv4VWgqGSOPGh+j<d
z?1}ok&4^bCptoRFvhC<cD~PuUy!M*-ZWu57sHHTeM#?lJmBfx|I+b*$d3BX<ihBN>
zVq0FyAv}<prA9cD=#eJ%Gj^<yMtsK6;Pc(Ct+`ojZ=2p)X)}ZQ`b|kIUN<S5k^N%m
z*|hlh-LL-frN$MLhFtZwgErdZLC|ISbXXT*V4O{JWoPg4hrxba?9@qn`!tkg+-zjg
zwI5#rKC>$N(E_DaSy|bZtD@AZVss-B+w}%-7jP$hys*?14hqwEPJla**;`!MKsCFv
zuyOSRzLM~V&mXR>@?~R@W#?_{Tw~Ec_lz_pWQ$yM>Eg{=kA+E4N+%o=NstN#6=^gS
z1FqwrYe-ZPFUa%(RSB1wOLg(CUBmIg#9&N(Wzi9$>_)zuc$1}pQu32Xd6P7BSO2=)
z$Gw?Pt8za3joG*yu+uzGyj3yJXzKc#cSs7Wa)`)ACXLRXpfktqg6)iYr95Y+q@PT!
zjkPH{x9VJlkWY}HbUX7wiFpT{>7O7u$!;m{uC{p%<XpleOe{{>Dguh`l;f^U9OX3+
zsPc_Fqa4ggu+*k7wU}f-I*Sal<$*5@EgBWEw3IfXB(Tz35@ji>euRgwWs1$MMSzch
zEsMvk;&hq3M<Qr{lgX$c^w}l0ya;~W+wM72aY0ZJC)Cm?353K6C!}RZA$PokkD~c&
zdGdLquWrYpS>>4`M%KBHe3F4=8M9z7C^cRLwUP~zrX`D*@e5tzw%SEriWn)`8oa@-
z-dD&1{6o;vM5MMF&k<AnFSuGF(Wd|~RjRy?8cV7%M;R=$*~phB0IZl~1#r<GYDet!
z_9bXlR;LbjNsDaSs4{6B1GOq5=3IG#B%Hi96zdYp-sdYG(b|2^_tE?8D@U3sB1~{D
z`=FRi9W3c}tLhp(xbnk;_S55*VpJeWsnBX;VMLF_eq(4Ye27qG2Cca?jGRwNzgH;(
z9+9Ow{VLi7M5rE7@ibR_Qr!j=+cn0_m~qkYQ{aFl#z~fP)4SRwahn$R<{Wiu8u;q>
zw@+NZ=q^~Ec+o(q1R2jUAss$n>OTt}y`&bk+}eg;K2#up5GAl{tzGX>7LI0xHCr@h
z;dDj-|DMuT<Z1-?Yyeh%h<hEl$3ITc6QBWl>ATT7YnelTU1@0$A&_a5Zz;buZecF#
z5tk=P6fd8jGP_?ypcVnW{i7999}h`8{tW@(FS*f?<9j)jOQ8M5($l_tO$o#s8~O|3
zDdK&9@rwmjOkiD(`zHr48lRgCQ=y9i!L<*zlWD#Z5F2coxiQv?MihdS3jUQMeV;Ot
zYJ2%4#G(|zGFxrJ%EUHwSyO_dt4NsYQ?S-Cmi8%UVaj7MG(Uh85zL(^<2FskH3GcQ
zeQGCQcPK{?+m1uTBOR8yv!d&JM#hVF)~x(sS;WlULU@d-3&J2uTF|9@NbtH*Z|a*H
z{MlGkn5$hxtkF;mDXkqbGvNk#sce*$!I5vP^rX=BDiN6D$D}ziCcr_{AgzPA#s~eJ
z=<_OB9CIq*P8hS0<0FqFJJ{yw$e|o93;(5#!9K3JC^rZdWbFcamLkT9^HsFEMI5#t
zubVHygq$}KLx?(*U4DV`1@RJ~E#qM|I2|Y2>21w}h8RZmZl4vyxXXLgy)O(@Z;vaA
z=*zB%jWkQFypfp`+7Am(+O2FTbqsn>8h8zwBkskq2Ui~kFn&7Idax~s6OMxC`^UQ%
z@2p+a3)t*?yOfDV6w_V`8N6!3!F&=1AIS7Po~T`4>pO}~E)$dll(16)n|Exxl`rvi
z>|;4ZZ?%XOJPdB&)2mg`9l_5czS>Qcu2@-l5WJ2@#mC)zq`co^&n2^qCNx*nk=V1C
zua565xqk~e{d5~sp1G=80?<;NKJSmQnVMDbSnYb*L+{Pm?bu2>g4Bu$<e{B5I8z^R
zqrP7T6O~a!hK4h=^k!P*k5>AueK>2AJq)jt-OzwWA1<{K+2aXCTE>{v669c#mPq(j
z++B>fEjyb#Cl+i$1}4-%)w|<|mMsau&e|Cz9<yEs@M2_Iqw&zq+G)6ezx<*ytU^!K
zR*Rh0!r;$$8KOA|>PXIF_vb}JPo6+Hii89eN_qlK5II#~_Igx+8ZR1$SZFMv*^7(2
zI4N~wpB}`Vg>!#n``bDdrenevjk9y&^QRV}iUm63;t_n0``;3$Vh+!o0*5dbDSxqi
zl{j6Jvr4S5Bdc|AWH~{nBwH%N8&2%xI9Og?UA_GAeAhk9bfLMf@5&e7TweRwD=Vky
z1#Kom()k^Z5k7qr{@wios{6Kk_Y2pQiO{Gl^L^6fx0i0b1r-T`!%v}kS)>5vHU7rO
zyImq`y)$(Ksq;B<UA3|8E&A|{e%<||QYSmGSEm^suVWIX#f`7E@Ax#jvRqV(H-SX3
z3W`nRk9{?^K%Z80S+(TsvbWN?1#tv6jRgwt+8w^r5Qn!)%k|V{xFPga(~#Us4~KWq
zTlp>K=o*3lJ-;eVh$7M&g+;bgo>=2^(AW$ug-Cgnm&-HMgE0E}bMRW<z?L~9s2gFz
zVz#VZ1nU)T+tc7`!k>sf!X87OY3K>=gP;2C2wIoC!cAJE$6h@PS90?(lU33an2dL;
zLoNfdk{@@zl@nh2VkWlZ#vO!tHt$_xb{p5TFLv83aPs7+a+AARM_7s?Q=`@7D5!Gx
zBV12xzq}ys^`*|3Y0tsy7;MAVVt4057=0%lDpiitR@uekXWQ=jS{-Hi36-{skCY$R
zNNOPR-9PxRBYpn)-mdXR3^;a?-s*>_T5xuB_rCiF|3n0>nAMrPIhSi_j#{jI^c~H-
zor+60<so{r)G7rV6|HWm)h$}h<mYKFn14{kvbniG`BC*+a;|#<NyWP^sfVVy)}70-
z?#XJ^ukHy+cY4c{NB1N-(Ai+0L>D?jF3;gWXJxj~)wuKA`*aZfE5Sk3&$=&uJa_%H
zj-lbn;1K%%{I#hLp${!}J+6tj`uGE$(cv?^^*oNAu?t2LKC&gkryK49%;@I5j!QYv
zw)0&2>|<_2id&pE$^rPxn21NWT$AZax;x|(6s6T4qp>K4j$d~Ml$C32qVYU1&(HYk
zd=RM5pYFjjmEZoXy^l2q+l6j31}rK>Ojd{C8reD@%gu648jCfy3Pc3JReNbLRT7!l
zGy?}Hl@~$A!#7qn&+l8tMCrfGKTYH6s}5pRKzn3o8BBJ@i~`<aYNbG*omhsW0-Or;
z>Kvg|Ha-;(&yc4dkU3HTT|%qCE3WX{zRGc~FNkB~;z{P1Tsr~LW=IMXIoSZ)8bC0N
z==o+!@|o9*w@h?r@eJXgophfvMwsuqdi8a9CQC_x9}!AXQsbNwwuE$U(!+<vkhWd1
z=XsQEWkvEHTXbX?8w3Z%A)zM*c*h1z90cS9qLm<pk70-<`H5k9cn8YZc|w_Sr`P#V
zJR?L)`F+gZ_R6#w@}NMjS?D%iEiT({X2>#LyQVo<WN1(Cz)k`F5t|%`?~kv9#6l>w
z5oZ)2)%dAfjUP2$JzD%JyN&pSR`)5H9KnNzh5c(M$#(kF0+cc~fAC;P5$~J*Z+9PE
z)XQc2eRT2Rw%K&!j{K<w@?wQGll0_gioKv2g!zUMQ)|X7+#e7aGVJ&Ktv7BI_GTLl
z$-pkcvb`)W-=TCnA`pc%kv{xcIaOVw;Zci{%foAdxC6uDsn7b%ow}BfE`IfO0o`b<
zF0T9l@81NxEg~&P_*+ig8@QN^A?*1sMd9M7L)`Ux%(6)J`mc2=$lZgT$cB;MzG-!#
zfZE7V8ZCCBlom8zLr`lrr3Nj<%B$s9n9Pn);VGXeI>_`HhPhJeMJ8(!q(t(NCGLx|
z&vwYGMKrb*W!3cK4j=3*#T{oYMC=)<BaYh7uE9X2O-oujhr`FkwRCc#=Uiwtp862y
z=lNJ-oc-v?&ydK{mf$lxQ~TpMthu>=G#5XIn4*lE2uwsBX*cd-l!dTk%o&GKzF}8%
zDuRI+hm1!UgGkHolac((fz~)Qe?0f`Y57QhFtCyT>EE2nMuNKq=O#YTwf6HD%3|K9
zd%9A}?sjIT(}#E-o-_2o!2MH!b-O07n$hmNKl-oOJvtgaq|t(K7&Ng3aD8lLchZe}
zW9X%zvbJy>c52r#f9B=LS?sR1ek^4j7yO@hOIN7%MM-$C$}hWzfNK6(Ru3w`ehVk+
zaV=ZJ<3k4iv&NFetZb1FP3iDbMKtfylP2)yb~&}*sWSVCt5Xl7>HXAAX}PCo_u~X_
zonXv`n}N<iC{xq`pFOgQcVXcTss8}VL*DJV5MvUz#t~CbkQ7g$@rA_+deYWmw~tes
zoSX`-*4(J9#E%hWJr(;LpiGD;QSCjZA?&K44D0j2_&hwS?JumaG1w0sITC|hpjp7O
z^28YxkcBPdfY5y85dMP1BdA<Y28j3krf24VhamT*z{a@Yo3jP%z`d&9c+ok4-(JFo
z`!c0%ES#(2z)9>v^9J4`iaB}vPN*i`Evdxx=f>{H9?`CVuhBt(fN-p=O;*u^tSTpT
z0Yh3R5zy~M{#$8SB?yrGJ5I@woPoB#^%ao)eZh7><J04I`y~lQlz`Q52JF8**k^p*
zhW)iX?GF51%wx8U4BrFP8IU$pbt{c-BF^6UMEq-7{3x}sj|Jo<`5`-|i8%<bJr1wc
zA6H-<CzX_)&(@U?xs+kE;qzoIS$m(;!9g*pDs?S)Ir*-=u=^(9<R^{iR9QaS^O-@u
z7!<VQCCR%dcjJ#Kww=8p8aeBO_uETh+r@n;2bdTxl)}OSdk!e$SXY$r?HkOc4EUS9
z_+~e=%rxZN-|oMV!6H(SQs15fLdkxaNLVd>ldblhzm)9xOjq+{y1G90t)UCGfn$lu
zjo}S!k$>r~LJ3#m1nF)ee#UZZkR2Tm;C{zuDc~Olq-FS7Sj`BWv@B~gtf(DIv$)<P
zCF8ZcZ*1)lEd(4P2SKfRp|Ox;`El~PQpAd*%=uz>y<bb*A|{8m#!~}G#&0IRTfC*%
z_t1ck;gjL|c3^4YwKM86Q0SZ|ea82S0MJyK6tsX-<&Ej}E$gl{2)TMFy+`A^enXDM
z-o0$MkMQC!Z&u=7pLTjCnnM(iaZ+-!&Y8pu^w6%q1pfe*F2B@x8n69iW#vA}63IuU
z2jH4V2VzsaB^vCNqQ?>7s9Wi_a4-~+_9U=U7b)j5l*aK<@_*&*#--sM%JL&Kti80)
zFW26|>*KV-Pxa-cY`mdUy<IXlN2CTo_=P1b=9pEIK6XFJx`W?iO1coqLrLG1)JCJj
zG}w$AXQ0PuF_6fW-pYo9Uowh6EuG2!WtQd96Lb)M@+<9?<}ZhLXoJ21hy0u0bBB1V
zS$p_Gf|93}ZAA6}#~w?)I|6k(g-o-<!6v5j*-5u6&{&q^?^`wDXTcclgx@s4Mg4?1
zoCh92oRYBsj(#kQF%FS$0I_GnrqN~z(X^xy0qcd=7!$Nj0=L8yOEadt)}AMt&F>76
zoz)T7)4~ke_)eQ%(nHn>yk#cCxcnmeBVVI3j-B3B(6aSlsT3syO7;4>e*%R7=MBY?
z8??<h(4V%&nRW?a?RdI-q-cMaa|xvwm&i$Acd+4nU`G(cv7NsO+nnZ1@A1{5sFk;l
zaB}dFjmDR#-sCk9G6tl+JV&OwfB}OzC^{iXK2dYVR(_+|q3BaoKdk^>v3=84WgsLq
zOkKThy%BI1KKR1CHa*5!9-QrG6dmbeFXqhuf?pIg@dPYT-mi+;P%hvLK~Y|EBzam2
z!-46uBgPrVFX$>tqr2)8fOVHq%=nRD2?qosbrThpQv3SK<;qmUbERDL%%Q?}XSp?p
zBVPY#ck}S*1<H??@c=4_4c!&g=9DT^k(s5JA}Nm^rI-A<R-w*Dr+|4RRPaB}7Rm2S
z9IdZZTqolUq=gRYWWzcdQn<1!@i;7YQX<7}qMk?WM?E5xup^Ge2UXI3<to6W_o_3?
z#G4VdOS#+Q%_`$A**iD7f4T?1QZ$|-r%NuIA!CqPlK)b`{JFXNk!%$j6(un-eTvgD
zQ>YX~rCyzqHGQv&vVYqZWw7SY+K0GJbz!rdSNrkYr>9h!)pQaRX#e~2DHUk2k!Q)g
zQ!|2d=*Q}Mo4-(VwQ;@X;tltJl^@0t5tT<oU3TShA-^)dcQ@YQFGe^5$JvQoaiVRP
zkZy$<LW4PH4$($*k@OqKCpwv;nubI38BAoL*XCsd8`<ybG~GywkR#Fq@?s7UlS|;L
z4hXC%wIEzdLsN@EqnHF|Ovr?bZA?upRnCb%Ny5=d#b~<Lf0zC>CHqZJV|9H+_X)@9
z0mo>9hRO`DI&oV^oo8sjVz3rxmGm`&k-<f5yw0PPMAJZmH@W5x0gL5nXtquW#4`n~
z?sI0x16#_e(+n?9?E|RLEc&iBo327OEE|%1yNPl)Km1Q{)s|2F(FRU*22sQYcm6(F
zmtUQ}$qg?xI4K(FnWBN3$CUs;13aH~x7)O<M{D+F&A(8rg*)s1Wy8K~@I_oqf~5eL
zLlam$<Wh(Wy)9>a#5ZiXaaGiq4%+dKGD>PK)KM+s0CsRED5lgZ!RbZk2vGg3G31{n
z%p~~KWe)si@ch<zrzy>x?+tQ$fd$2TOwemJMlm8_0I>x|-bcycDR(g(I%&G8^4gRG
zDc<=<ytBJzU)Gn8*7>q-UpAJHHu$n(UwDRQW_<$%^sN5y6aW|?XdUq=ty2TKPy-&0
z4d{Ws-F~OX1wLyu)Z+{zJ|23tXH^!6yF8ojhG*6DQsX2%n|k&Ug`RbHl1Ov3Zo;zY
zoN7%ZM9S$5XaPe}v-M5`_DhY__tFi?C%@y15Z9g+)*6BW{EO=t*Fuc~o&+=qjZU#7
zhVy?HHI3OCMs|w|xwUJ^rNSqTS44+Fc7KQ+x&u_q<G0W~D<krf<L@QA;w8u54o5~h
z4RsRktl7TUX@)<bnoh;H_m=NbLRP!vWpnvu+F38xmS3iw^>TgrW!hOZ;|bddJf@A{
zV6qp0vU)NHqT{sP6-;@(H_AJqIH<;@&S<Xtj3w{Hw~aR{I$1A`M4c2HD0EWY_C!=$
zBRcUnRhKi@2E4Q#b}wwO+Ff);$d|U1P3yN}Eh5rKDDhWlldW5}E?WHz<^nxm)n2gw
z&904YjX!L+UcqxvQ?!FDT^v(*+%z6yGr_c#-8UA-bOJk^oy1OKZ5=iiNO?#G0rHua
zRJgBT#f&w3rPCcfa<A8+HUgYH{2mGi3^JjVH*6#vLl^_a$GVosnL4nszqYDiaN>jx
z#T=UXC`e(u)VD4>dDP<FPU98Zo8LMG1N+OK=Vz6lob@fC+KCF<45&G0JAQ~`5K9In
zfDpWDF27>?)9b6X<yYD_elD^N>GH_WQ$DF(ahHS5($-j8J<kYes}|u?xV9dzRX1EZ
z#!$b#GWFZ5wXox+8VaH_$);t8x^91@B7Xn}MY1Wm1Zrgu+pMZ_Q7n|35sjG&qIYET
z;evSP@BE#=QwwpqbLYZ_;5-%Dz_n<HGJ1vOvR}Y`s4wxa9YJ<i$BaJcOgCo7euH*s
zz<E?b_oO|{1^GfwF<&4QWkIr$fz~EUbvYF*hKFp+dMY=*WzXgz%^G2N#~3E^NS|S+
z3*#%czvUtRLUN4DWYI)Zp+uW5#7Z^AzCpp*1Z(9iy-hpH0h2tu5>SbL1hR0NNCJ;^
ziZRAknbBDMwZ+r)VkR;VQ}!-S^|VJ&hR3HqsTqRC{0q6e5J*6q><jCy?OMIUqI<CA
z-r~nAE1ORTeO9UcP@=(saA^7R>e`hnmp@AXZCq)7w0ilYt5?=muU`G|N^|X_we^p#
zetmiQ!?ots4?o&i+h}t8@<*2%pJ509m9|(l>1tV7(Ja$oJ~MIE1%@OFqo{l?bG0sK
zOTCQVB`Dm%J^XH6M@FnwKmZ9pKOn&Q5nyHc{gIzB$aH0O{lm*25wsWn+qisX{c02J
zYJPb2!{*xh#z*T{FM~^0SDPDG)-SKGezbA<qm7S<YYNB|xBQY0O*TJuhKpcc=#&U?
zDZ4@>)WSj#+mI{ONiZYT`HJGE94{*ye*>ZE-U~{pOX~s>_m7p<tlxV;C7?rabSCI_
z*`ofFAEn~aqWo!cWe`8@bC5pma}Yl5b6NIuSISzcvvezyH~o5$B{NC0bUl+X<Mpa^
znO`3{grnU{Hn6f>IoQINp~v~DQo|`P(8^kQuS4ZT`GQ6Ua+YYIh#g!<Sb&e`ho|gM
z1ane<C#UaEp@d_{mxaRZrnz$_$Jd}p2_HcR#YHEW(5u9v{0c7U`!|&`PS_;3iTVc6
z)5#4^iU#YISB%dfp#&23cFedPy~qg6X-aF@7~uEswnX>o$FJU;3Z#P~yDl3_#jZcs
zU-_oOa*pbB#;P5SKfyYAa!f=raVeyWq9PsY*ojICV?@PPIuQJKbzgGCWt9_h_9z-4
zqFDtm%)o2I9?ouZ`0F(jotyg)epGWA<;oKc`iYqHC*sbZXzaSy)wQm!b)Rg!lV^UR
zqi(pn@OxBHhf$d1Qm38{W1FCycKvx-Ej==i@4>Tp$I3u|dV0^|@L({E{7*lgY8Y`o
zX5ItT-k0-m7{z&vBMyL3H(9oHjX!aCAv@2XyAh1|`U3|HscOK?SIu)Z2D`E+LZj-2
zjBn6VR#3L_92t1YVwf5`gsb#l4_<bnhhZ!+Z$1qOR|x5KKFTu;%1d)c{dn|EM!0!^
zTiCPKu@yf;;>*5C^m7->vR5PH$i~H?_N>!7Sb#E{ELQvi%&w=;96LsUEb$Va+MI^v
zagn<f&!$t4*2~cK$f{L=Q(hh*IzNBETB<w`sSp?6%}c7=fUz&(T4&A{NQ;G&5M+4l
z3(a?|h&&4p4#_@j$#Fff%Y}=PH`94+z3YB+uMIcHzR~ga)$;2SY4`nFxY8FE=8{kx
zseXmi8FddA2xm4shh>_Z`;X=(uUzeJ%NI{FI?OY;?53?}vu~>>){nvNz1pgO9BkDm
zKc2gCTGRANAh`ecU!O{FQ+9EMYQ(&yEW+6=(kJJku_uj%U;i@^)SVM3=ZR<rR5BHc
zZOr4LAw2%+5FgC`^PyR0rQIVGPckwTC?kd#P;07dk0*S^OL<K+7gmxWg69cd43C5O
zP;N~jd#NgHTb)VLim2s*H^GD)V-G^>eM$0!)5@Bu^rjkl0eo$WxDfQfh>M{GOYzJ!
z7dv+WznlPfgRlHFy66G2L@i6>geK{b6+njvh<^Sh(8d@Hs9+dD9!S!J9AqQ}Q&KQA
zF5Sm#Dklz+FH*5<+m}TcT+wT!cNjILs4G@MOg|mcnSMKiZ#nBC2k&y$G`3uNvMg;7
zt8t#$aE`_D6mQql=%9TV_J^&*AfhO_;Kv%K@^P%utUO40n0Y#l+dnJnFz_jiO+kH&
zi!j=O_Sdb^_We_>QBx}v*QSZ#J${x^pWWycTHOGTUI9+p%<p{UG$}7%kU&|(qFgiA
ziZ7;9wSw*l%V?!h%m(|hKDn3<vLK<6+KKdJ`I2+}UI%=_e9ldvmnT;>WKd!sT3PB)
zrG_de%9q$zZ9#W597&8n6%!`HEJFnHq&;4HOYW#*bK6Ms3vyRWi_WydvI{@bWlDrD
z#V-k?BDn|;{EP`6_CTnOd!0qexuw_Ezhp1NELt#Fy*73faW39T3t;#+DYEnqBs|iN
z;A|>0j~ixwC`4YM^)66CFsS0@4~58IDQ@5tg~-iNQoyxxW}DdZTULfVQ<Wt4qB87)
zfsT8<!Y0hlHveenWNz*OJcWs%JDvSwLYm$OYxO=A4}aCU-+M9J=8xw-IVBUE9u2(k
z|M=g|)iA>k5fbr)$7}!B|8oAq?QbnAMkX2PR=07-g7!lok62HmgG)E`!O!N#W*6o9
z@Z=dDV}WN@!u-v{LEn0m*=_zpmOE?yLXp!L)j_{^pr`RUBYO92Om~{-Ie71)4@yHu
zm=kjvKi=5As8E>?=2LEti#@n*GINla<Ko_<#fwUTYTOyK2zh%1u%p<6?MhwgKgZwR
zwEu%PnX*;*<v{j*!0oYM=)cNk1MF4v^B0YGKgaN-@C%xCKAFSK<dG6r;sdn|2rEZ}
z_Q|t;FjJEUW#Enp-|xVK4kBilJ=6F@j+WN9AbRkZoeAKksr0}KLwplP&~nu2jS{Nl
zSOYFVSdQEKeex{*QaTxArCyAGN9q|Ibx2O{X?GMxqV0m_h~F;xjO*1RtNQ!<Cr5AO
z9ZOD1nbS*8i@as~ZX_9>Y_1BuQb2esNMvuc^J9RH@{wa;r<>NZXM{QNImC&8h?~*O
zulL$(kVc6sR5-OfSR|;K5E-J{QS7`v?%<iL<ewTcYJQ%~&|ZEqJ02VK#<~C;+Ajoe
z!zMwaFw~6!hbx3>h|F7tfgD$zrj7KKz1rq;SAN*n^&8M@Y}0l;4iHfXI5?4s(N$Pc
zbY_y#wVMejXR=&{dDWLV5EI*-y+2Y3^CeEt55R&>ABVf-=Ul04Ah`5#FX}@)EtoGF
ze-?tPvBVa1hzKnDy~bDgSA2(n^tKlxliX+i5q{jJuL6M-ah6i6MdXhSc?|d^zH6l{
zN0$;=V~@{$FKYT;FpIw)ikuChi6n3)u*3e|Sh}$p)tA)pj2~@fNFu3hW<^pn9H2lf
ztT(7f6tC5l`-t@oI(r$2H(4>whhvGbVeq%wvO%eG95yWn(@q0nCLMdEL2qnYcKilX
z0x?)Oi!bqLv|{XjN?vYk75BGk9@|{LZPz*a<Y})lTltc~QJ(-l_F}*s`DjVC+j>Pg
zpOEa<6;uen7v<B5li5XW)r*@Kx#UBmSG3$kyB!V|Z*)_Qe8|;Cn<A2>9=Fuk$6sx{
z-EAFkbRWMdy1uQ}X;#v*ZwIfR7bF8c%phw%J6LoK35t_2EkXi18OCB>O`v|afFxk|
zZ+rJ1-_=5tTi!3V^l!Ah&n(UX?ajLeVSjNIAUEx17*+M==6!q82U5Lx({A3(Z<=F%
zq242kPdlx46P}7a>Gz<M<gic;Vm1sr(6=uvNQ#3O0gMQO&tAY%QhmjF+u4|g8;!7J
zdFw4%ao+tGeLD;mtemeL7QxOn=CBxvriEnl{=TP$79Kon4?4>8;sskmH9SbBZQ00;
z1Y%S}KjSu$<+3LN>j&%7VTa0!$@LKyw>Kd0y0L(ee;wrw4v&qHBzw29vp{iyJ<DG$
z4Uf^OZ#=&>1Rz9hpc_gI!5v;B2Q`1o=-}|W<UOi%fFmj;4ciBPuBP!6Htzfwsa<A~
z?o<@G1Qh4W$}CzKOWIJ`-ZNGtZLqS<<MUp7ukq;vje60j+jc>&KD}p`fy{ZfkQ=<6
z6g|+M2yd(IiF+Bt>8<Zs>o^FWjJUDnoN67XHwzfT0*l0>Uvz2{uBlQ$yo6fF)?K=+
z#m1dx8Ak3Q=q=11;z>GIx(W>HuH9Ml<|sR3H{nj>&U(BB2rkS#f;g<pjZec+RKEtR
zSm&VI+RFx#8kR@&X&TYUkkS*4Pkn6XTykR(eGTt4wTJ<DBTL>oIqZaXYu3)kSZ#M_
z-EPLQ2@{Hgj@o9jD|k1b+Uo*<s@>eawG&#|%K|{Etv<DvB|sS3!9Xprd;~FBoR#RB
zC|JQb*zrc3IJOQIaD#&g2$k~@erZ-jTI&`#lu)R^9SWkH7kg$ypS5m*IcXeYF~+3_
zV^U{gXC9D&Z*cn%h8c0<Vnh_S5SwmA<(vW#s;gwr?X(V@8Ook3wU6w`Vf*=T<(Onq
z!=?QRoQV^Z$N(o&T3yeXw`>DW1s0}6TSvBQd6)78r>;FwLpsFyY^B>mfKyN~n4!)4
zryR_E4*l_ix!>6G+cVLNi!f8DP~e*Qy=A{)l5~aN7q{+TEOWhZ0u!@oxv}mp{LJj!
zdU3d&ieJaz(;a@xR?bB1ock;vslo8IDO-e?|2!<+j@$C3(EO&F*Y_{2NDwXdD*c6r
zxAbsH)TnQFTi!V3myC?AI^=wO1^lQHG42%%rFMo4vi$1E=a=R;=3$^2fj}lNck`{v
z|Kjs8N+Z73^UbiO6%|3oRw`YG)Cs$+G=)E+CT|xRD{1@o>Ra5L+G1;Ji`#jNiYH7$
zsH%%hTADF8wg6P^QrzYS+!S`qZ2OF0LdF(m3!k{cF}tFs8$-^xeDE*#Dp;8H&dm}0
z2|Vh1TXoVPkTQBdSIWS*qqG{FC`zFZ673(N<hC;&5y!brG$c}tDFR%=#!)i}1tuFE
zt%Yxjr%J9ywfOYFR$A)Wck)_BTZ5H<FEb8v=q2+opYv)}lY72*j-KZ~eLyDfds7Dg
z_TmE(?0XmAMHTJo=P>{F(+8JW=64};c#=YE3ZXlVXJbm`Cgo>E$tD@F5GqG*Yq405
z9LXci8L!bPkns#>gbO==HckpszU1`UkC%LR2l8{fAkCNAyJOA;&bKltvR&;WOiibi
z!=fkyGvi@VJOJ5<`_NY>r|xed@8Up=CDE_jj@rH{iMc3`IZ<MbqGr@L_r~1V8h7Ki
z5-*M-XpkPxA}h?yon{1inrxez24*$M1m+CGiTS0uUsmw`PP5=njXcW9g7SabVa^8I
zRe=nDOX`ey?=<?fSz;B^l&rnnGBP3EuF0JRjY}G*_@PgE6P@NbT=(AmDIWl|_?x90
zp0cCKE*PP@KHD-L*=vkAnouiLLfqs}lu!9s7Ixx=B*j2WZ8E2$t+@k{9E9r29KOB7
ziF1d8<x~CBXXz<e3?8Avmz_D`5(sI$0U>}B^jxy}aAXF93o0foIHuAvvr?Vv3qqaP
zs<Pc|*+K*roRt&>Q5R>rG&^u5aDTCN%XQ{vUomd(@z2_im&lp=q=7$^Kb2f=tYof<
z;|g|Fb-XXWQ7yYB$+5y#&b2?UR5=eEHs!zC9z0&#x?@W+!PhT#n0f-2L;9DOS=44k
zP2bs4Evh(GfyeQ_?*+H%sCH;<`FIU?H5(ypn_}6#oP?lKq$ZRi*Ax?xeI2LiR3q0(
zk{V9>TJg@FP6!sL9g@gCb6Z==W2tP-o@YpPS(Z?%s=OB}-s598CdPns>j}#WDqfOz
zKMmO7=FeAFpit`8$Y!;&ToY1y6ZAt`B&MQnP&VHqb*3!l(X%Q$@)N#r%wv(d_KA`D
z5-e3o)eEsEU>9577T0R6mX{-M!FuLf{UR!@VxxjrV&TlyPw}>t3FW{kS;Tf3Sn}=+
z4S6hj3pys)lSL`hItM|VrP!?OPIm;n_vMzA80AU(;a>cx3!;G4h8kZeaOuy~HuP5Y
z4dt{a%q^Vp7tJd%42DO?ykjX8H7z}gPoN%5FRXc|!}7l6-`@QRpuNfn%pdX!!=Tz;
z?o!B=s;8s5o0eOh*=KTb#9?xt!8looC-o;rWQ=e`uh`wPuj{OikW6OOOYwZ(k$QT)
z46&tjW{z>ZWrk7!=~45t4CGKHuY+Q!SP_<|CIB~PE_E#*^g^yMWcimX%&-6C*MG7Q
zLjt4iupbhXdHuk~LF?oIuQ-t`@&uzO3|%B|8j|r!E>pUNevcyyb2Rp+XL6E<_+PL!
zN(A2-4@#dKq1Ue^YN5LLHi61Vk^=dL9xN2>C6AXg3oIsxI;qb>epaXnt@e<0{&42*
zLDT0i@Lw87Uhpv3oW)YRbx!cLL=$BqZ!%D_$LA7}V7BSTyP_CXJS0jUNdbmV@GZ}>
z=Zy3WtL6)D*0B<08@2U28E%t=p?|!|nR4^mCuQy_!qLD8>yl`46^>>8+JptDXz{q^
zbV&TfZerw3GIjR7+{LG!a9Vw^f`Bp}CpJzNpfoiR?Q9xl`u&o@9@#sP5UfaXP7jNM
z#Ic^dh2Ji$t*D^7He4*Br3+qWJv;*?ES}LwW6M}t7z$Z5co(rjBX<(%E8?H=pI|vk
zvn+d-tE6p-d>T%&(RoD}tH`POl?z#EF8bfKLaJ;5MKpv8s3_}c!A-7GS=R4eqG+n>
zRhKD_)9BQx2n$WDU!5#^)TlW9<$ZFU`O0S{3tbquxiv1^*{XAl>--g+7}?f}uVcL2
z<{z&wK|;rrGjz9?f}c4}GJ4GDH1Y)j1F+Bqz+mF`caetK@YPg}=Pzt@%dnVAeeE?o
zdIcVxw~3EY$9hfOJ47IydA~iX<7zB?ar;&@Zp6gJi>IW(HC>eGu2EbaiHYDQzL*^=
zbG!I!){TSm@%l90IxYf~RM}AAg~!qh6^1Ikim-}!1*lbMbi8A<01B<%?X!YHpwdE!
zj7)RIS;$1VZ3eLyC-l#gS+;}N$=<CRW?i~`Uf4JT`9kWE$Ap*463I@q$H}n*sAA>{
zJKW-)hBv;ce3#D=Ih7Y>iXT=fMpUkLc(HL>@Isxa=KQ%|C^@T+sdoN;%l4B4n!7UM
zI%WAOJu(Kw41$DvWy$*ynJ_xGAw>lLEZ&-*6L*^94++nKGhx}wG=9u6F$onw)LfCH
z9`a*mBJ-aT>_jbYxi6hKK7n}Tlvb!XVkDa*4k&q#%Lj&jI$%7n1-KYan++gNLP=wr
zISc#;z*7-igaNEw^A@z%RT{+Du+c|(>nxAfvhMb_LImMevveg=Uz&ik{<A!)nbk=j
z9KSry#I4`O2pKwlU(*X<oC(M^BV=$TA!mlkmW3W_!gz$3&ok(FAoWbzV*pL`^L1Xh
z8o;qGxopu@J2cc&;Q)z|gZWbth}CBnryt%dOa64jm8@H<+xM^R7Oybz+!?AnYrjkT
zeJvCA-`jo%rDomlTJ&O{&4|+y{cBM1?3*?l#q3))GImvkLAkT{H>H_3>g@Z=G@~QC
zEZ<e5Jn0nfM=a@jU`a7A<U9*L1wkztqh=AYJ!)2~c~yWzf|uNFzA@U@b_vFiC7=AX
zf^KP5d3f<G45@hvt}R%Pt_IlNx<Yjxxr+F3rG1*n1!+EV?-@VlY=##2yI@=rN=0I^
zrLD}veVtFbBmRR1Rwt;9w#L-h+a!=0vG>X_p`d3p$1F#RF~zZ~#1AL=vaGK*r&g;(
z9pepf$__7CFppC+6fc%6%rI++!dCtoL#9%H5X$cfFf0KX4&Z3WVMnrYB`Ji7Sz2?B
z**1@=#tQm&A}cIdhb)sv!@g;|8w>DlCzfX~slk)hL|}8BxKjFd8sGhg|AW|Z*I9kG
z#oLO6Qqx%TlP7IcX28+Q%?S~R6_sH8O{UaN<97}@G|C&`l!QC3y$qcU0#xcns&9Qk
zu3CU8=i|=ZFV+_S=YLql6x(ATAXG@~NzAmc;CGXmW|p`Z+N_v_)Y1k|yNpY5!|;A4
z=DN&i2Bmn;=LR}+Z|`n+O=anF9@tbZVKI_Sr3SSf-Y+Z5OXnvkyKHvG*J^HJc=uqq
zbsDCnk6f@;KYZpdtFL5kZ&3u0;MKY@M+w>L7UFjiIM^N;!O#}afg+64&2WzT2^Oyw
z3US_G95cG}u@Ca>86NbLY0`u9^HkS%XZqwT9(~sbBHGMGK_R5qCyy%T5&59>PP}lB
z0fRAHBLBXM77XP20L8f@e{~b^f)`7vI08!57S8fIL#)u5;g?5N34z9`lzxJJR8SX6
zjs+BwM=@WQQ%()v86T@cxB6K5xOc`GthoCH^Cr!7KqU_K_>o!pU7b?ZcCMYWt1Etw
zHlYuU*zq$dAS=o$ECo(*Wm+s#+h{5%i0W=(BzM|rB4jYXckOkcw()ojLi6y8WK0Mj
zG&Sxl*lpBC_6&@Jf7n2Mq&u2|XluMJJ(UW!CX!r3ZRL49vB36b)G{5VSh$d6Mm2A#
z^+(}X&bp);c$xClmy`tgiD}vgB@lK`Ym9?t5)47KcJc??=NJuDLh@Yo0NRgJPrKkg
zQR7shfKnY~J_rVH5!VTNsA)ZnXdg<{6k1gBAuAK)s`dd#hVrS9X_-tI0SjD@Ax(t7
z#Qu#4k9Sa;;DC_m#J&FO_VKlAo!;{|)C$|~Ig6Hx-k^U{#C7x0%Ic#<OhY7%mZG=)
z?0c&Uc-(%zf~)?Zb<ke<RJN$r;fh9AS0FGOd@Q<^UHV}@3y(gyc`_XKdpG;v?moJB
z<3<5Qi=d~z>&3fd=qoPYQ5LJE8ytBU_WapftzqjL4Ubx!X~S#hT%WL{RCFBnk658Q
zC&y5bWATNkQe^?NVwfMK2>(Y5wxo?~*Kjic4YZLj?l^*c#$avXaW5f{uQ`emr|jhb
zpAok!*8K&72h8|BA*eD&{zeg3lPrMynJRc7*F3sdf<i>yu=(C-H$JmMp_GVIN-=~6
z+5BQ5s<0>JYI4~AHa^Ai@aN>ppDH0@LFyJXu0mM5AC~m}Bjyjw{=;tnO|u=R+wCQ)
zKHJ$A>4qO~dflJp^DR5gJYtx$ItU6~<XvQs77~ZfY?FOmkX6MyE4xUYU?TrI`$!)T
zVHwE7pr8=d%ObO-nLm{s#RQnB{ZmKwJhDZT=XO&Li-uLxfFIav$fFtWB?O=lqm=k>
zU7&96H2W<bml*g_?;Gb&G<{O1Yfzr%bzgai?E4sfrmIi$TpFWBTeOWaF-Hq2j+vGQ
zv-{^pjtZum_b)BYC%sD9O~-8zlWah8Heoy{WmZ%Gi*KgKik9EA*@C8YS{fCSB1#u~
zZ?pyS(#fN8rypr93OA?4+(JdCl0eIL*D0M&ooay0?49CnJ3s&VF_m1&LPL$FTPXV9
zpng}4r|?;cY8I}2(zt%@6Fw3eUaIs|Z1b3e$qFGsVgd<5&9~p4VROslKJ4u=`&c<k
zJ^xDP67F)zAw$;taj!1z+fgDy+%5HjHOJ4Q3*0n&?Vl+vNeMi=RZx6?yMMm4qu5UG
zANlDN{6F1}Dvj#T^gbU$e%bzOI@2k(aU#zrmB+FJ9Rd(5>3SZkET2^+X_ZJq39m-C
zou9$6lo8~G(rAaB=Wj$@bd(3p1s!#5An+0Sft{SI-k_gAHA;9#!Q|xCrlaP5<N!}}
zY9<uF)bKek-LR>iNjta_=Q!@<^Roo^lF`GDX^b9prVg(hD8-`@^=ltZ@5oTRrXfb_
zI2ao8W1Fd_p*%2(b8WU~<l+>Dn;lcNosV`s@d*s1pm7CDWnuK3pUSSbkH<E+7A)!Z
z^?_`~?K|RpLxbXq&{78y$}p?s&ADP_+{9_dWvw9bRLte%S!buYhr70m8=xMvkL9PB
zWux~iwlhi@rDR#qsrt12qV=jH16jLuY_3mc-a04Bp9RN1HZD1z$L>#1uiKi+O!W?H
zlvtq8<tnxJ7(dV=J+7>_DLrINiJL_;R+Bu&CJ&YJN;W{2t@sSIVuL&ntH4@hWu*}k
z)6XA%et&!OE&<`U&ygawas50`-@wQ;YiW!kOX}R*AOC*hjdne2Ys%gbY8<&-WH}na
z5SdYpyq+yl>&4}|*LjtqrdheY=o0x?C%-;A;JQOcIknf!*;hwLBP%`Td%@rwgQ`ok
zm7CwHuEGv@vnFQ=Ro`pDkP9JY@|T-Gp8N2$$&$a^3~7@8zdxwSl3Yq@TspPqNnsqR
z5~+i~ys2MX`gKdczGCxuUaB1(z?)Cyg`!N$_geceF*Gd|4Ss(AuH8wqI8Qp`FE?>@
zy7%QKPD)>H-q=0nR9cmlJC+c+$NDH*w7>La`)~;RfY(v``SZ?xhiVonE~v4&y1cx+
z`hWe4f3bGF&|T%ofF9#PRh$2I^ks+{+DD!=HYV2yYKLjBW2_+$t%Z?>eynzo^5~LB
zcEC1$yL+(r`1qZh!<&rNE!xLCeP9;6;1yL`vQb8hS=GSGxGjn=!&W_`s8J6KH3krk
z1it90EJq}A#x_On%`OqQ{6c4=Tp-y=OevEXuLB|FJr#&zZMGrjVP<%rMIXT1g{gg4
zoD6vfk2xAJ^Cu@ccNVmpG|=7RnMD?jAe7@hJo@aDx+t{}N@R1F#BO*}DF+mM$~IRW
z3kn3W0I=uObPXWFPHUk9#k7^Cy$pf`YF_@V&oNFNKfo6>VL=j((yyPB`AM%cesJ=X
zbS*<7AO^5U0n52=!|9L*7K;@nKhfS5rmN9KzSQ_dTM58mB*F*M&c1zZCor6JsUXs8
zYYFB}LtH&?E1kyWyYCXpzK9`9H+tHPl~>gE3=`F3)mZPC_g>Sl!8)e*5Y&9$KRoQe
z7RMtUWgB+QQUg~8qqozu)lVd4osl91V5Ag!ciL}yTbM4{?hE(io*FSyi7$(h+-rT=
z-o-cM0Wb2UcPnaPM7@Z6!o`R8FYaZRj&;ehrZ;}N`qRO~e*bXTIWoKJL-eQmzy#ol
zbXtP9;)q0d(&)6E_0)i?o2#AOR_l8k1FsKnpPYKkBU-C`Y87wg;gV3-NJ)#(nKvo(
z5ELb?l!fZ?O|j73nwmcwD_4yaNE)9OP-j$oe%`ShB+g!v_A<+_w}}L#jlp&R`eof?
zB`B^G4jA6^WvBhR^bT+hw$pPZwGQtna$kICet~TrMiAy(xi8ZBXm`8!sx#=IkH_Ln
zic9FxB7+9?Z*!2cH=niX<R>dD58GeqE#$gFasT4!^S7Jtp1fUMeMkG8pPq6q6x?w<
z;wuXp8*uLHq`k=`ic4F%v{kxvOP6kyE`6m-UvX)6=JxlQ^4#39R!ax_6Py#nQ9J9g
z-uOB8{o?_N7><VW(5QS}ZE%!Ieap#@C+1q?nDiCAXYu>t*KVGLU%MIjwg2qjIS0R1
z@NO<Y8qcI(?}dYd7u@QTpnnGxbOTbWadLbZuD)(R^>3f{r3;E*oz$@vZ?c&ZUTL9w
zYz)=z)edcnf}fI^yIC-E4e?4%R=3w&7<}wKPT}qXg4Yh@)Qn#JP?*w8Jl|1s?{Tj=
zhV_Fc_7ppLYW{EH1f_U;->hIg5Q_Dv;|+_0IAaY1XDFpXPwd_C%G%@ODuY-Y+hP;(
zna4Uw8}RW>JkPOuKK|KV89fJ7w6b^w&S6vLefO(>y4rm9ZR1-2zcApBUZ(dB_}eAo
z6L(Qq&2RN>Ro~>RTI$?t4`hR2m_qde!$E6)3IvBSt#U|#4ZXQq0EtF1ZrQoNQ!}H9
za=#yDwCHXMGiuyg=a`}skmAlOj6YN@uxD^1J2G=EgaMWg3(YZ=Lyixyy&#+|z#@6X
zZKoHqVt7<Z3r3cMHZMDiuBcLkmf{-;<d47mqyIkSiz$KKIOTEMA@K$krkPafO)+ZK
zHJi*h*Y5#%XzMQU(c_2mr^`~08<(K)Tf<$u_ST9QJ%II0M?S@jlBeUvUgF3vm9CT4
z$e8y>i<CHO{IofVSsw&$U8mDzmi;Cy`_rf28_RCEjP9FZ%*481=H#22Hp86Lr?T#8
z^BXIBQ>;5bgr~SMyuwLCCa=J}D<j5Q)3|tAa`CbU?1q#X+-+XLXI!~82ol_Y*SF82
zz$gOTX6`1rkSe1bzgLr7LxfwFcyEvNASRv*d2$VP?C%^E9;(x1x5jDi*i3^sE%AX{
zRSAN(H!Yb6;RuXEFX!)yKI3AZWeW*!e%N|*h_Z()zEb)l(WA^p(E>@tC!8E*JeMo;
zOR9B<T_ACE3{LO^N2`b-8|a2e)>L@WdPOT`haO*)*W=2ntr(}EU07e)Sko0PreE1u
zS-WhPB&K~%rjet)$Cu-bB&p9r`$uU#Mm*W`ATaV;_L8<gh2S{G{WPQJnyO@>JE&(|
z7y=j-ns069Z>0k$JkDyermK6qJh4~p(qkxtjF(VB6t5z(jg|3iV}KdJ#9k!vw({)!
z{LLD1Z$toWj$Tp1m5&*{Btv-UsgmJMlMI{9caM}3K0MuhWU1l57h$m~bmTH+GGi5D
zWYTUGm%dNQ^5)#!|1zgtBZ)%>0+G`vg6EUwY30nDXOJ^1qG;u7(<D<y<&tUXMC(Cn
z_7GGDAEyC-PXg=KSp?RtAh7<g3*U#pYIcY7njDaN&mpjGnZO!wGs=lQw)sF<q#9%c
z{<*NpUpt&nr?=Rum0%ld2(xPvX4e+7R|T<FZ<-?7o@&TZ)iS$PW9q1(-lvg!kJb=>
z*CvU-95_9U`=^(IPYH?dLn@vMt#NC7T5)+@P?EUZ)3IJFGnZ{8Fehh}o8OrD%=2%a
z{j%`}5&D-bAoF-*9K~Smm(E!X^uB?ZAa={*o5nBsYBIL27ee-%cv<7_Qi0rMZ?$&W
zyHhKBD_d2a{2kX^2fqDed#JKqtFm2?$G4Eji!EN>cjuMP<LGo6@s7#lM0=BcX;#Ah
zT3LF~(N1gi+N!IloLR^FFIv3=OnS}hB!1AY5v|hafqm}U=k6LZv6K~IIP9%txhnZU
z1EK!$K}*Fx8?r-1sa<s+Yo9)k-K!YP6jeid^9)pZl6;R)ZjxOU4<^g_Q+IR__pSFJ
z^3T5Pf7*7n*+=?YrWSZ_DuHup7@~PFXc*QeY8VP4lj|BFQj-)8jRn%egy3RjJIU==
z7UvNhVwP?+msO+>E@le_#s2>Hr=Te2Ap$F=NZiq%g1#bA5R)D)c{BqF#{eS=Q3K-s
zM|BsHhvlC*Aj3iM!5=KTLU=@_Fi;wVtdSjf`ATqj<(5R9fu%=+;G9`7YsL;-`C+s>
z8o2#J;P>g2RTA}D2|1T4cc*5?(~L=fH&)PZ>jodW6lTGFPy68QrM=iQC4p%G)B`yn
zXu}7d(1W_h6+Y2XHK8dt;^RAyuS7M$WW~o|lG?)-GXVq`NRIO#DM0wfHK*p5u){S-
zfPG~>s5bbFo@3p=YF3}`4)z|ehp`3uKdr)P<o{`iHlhpIs+04>oLt)Hiv)gTkf{Ry
z76N|~_g60sF0n8u3|237lhA)br@eV>xf$sY$JPP5C;3!(aZ$7#ijT%62<KMIxU{v3
zwmp2poEvtO<0GT9Oz@7JVHL_|bq3)W1EAMwP3{pAjOOUZ7s?diMl#sHxoepi!12A*
z&hSup<}T78l=bIV^v$|EYDT=}g^sjWxnpRlcTUxXp>i}#j#CZVA&m#!pXt}Iuor&t
zw}U5+z*BryeP^78uJa36MPK+@XP-+X?zYUNZyH;x^dK63J$?!ghZ3^5v7sGQ6u#7h
z`4V;IeMg=gSx_ifoVZdsy%hQw)LmKX`Oy`l5N?`{O@Jf)cWK>@ni?%j>`GU|7^g?V
z6~mA3e)Y$HmtekjFD3qxVmJ^}46jP^u1;KaD~#mhw1@WWfqVVKH=^<MCRt<${G%r&
zR?6-OO@kVm28Qypynr^<PR=w?PX8%5knh@+m57JGTX>)aTnIXUUkL~F($tmAmc|ff
z`V*`@=w@h=tx%2tE8Kh^IG}#s6B^JJm{9oLzb`+bg4DR8_w=gYq;D^@!SBtfXlrin
zzx$EU|2U|Ad-7Btm=gGj>F?ZgU1zPkj<b7Dslofx&<Iy_$d#{arc!32^(y5xQz@5V
zQ0SKhh_&xY$$aZ9O6FTZ$^5@9)hL-C60LpQAxWkAncq~B8aax}$6zyf7Z^Wtt2iEY
zG7}@z?{(m8lsXQVy5NU7t519t=aY|B;VNG^!Jpbo9+mewRMxj(W^u@Kue@A2(p#4r
zh=1Au`n;j<`m)BiLWj-gbs3pYw+n7f(_^or(O#EEd)+l_VH6DG<2Z^;&89&>u23<-
zx7PdSpMQ#RqtCAQ{(fe87FGGtIvVr!sTy-mj~?R9>DA`%1G?XbF8x+e%+7#5r`4WI
ztSGeSJt@;`Rp?^jGOhEORp{SF75cZ&k~aNY*am6T<&=h29W}b`7k5r$p9J;#MoGPH
zzG?%xs+k@gojY>wn#Moa;G*f=c~)1$#j%QbdAqrOUb8GT@kv2%QvbU8l5^ZN1-;s3
zph^yM5xY2c)6XerQ&m|Tl=i2<4YtHNeeA*%=;$nJ^O~p6qc$(Po2oXCpg%6G52ra9
zrs>krc(0${XYLeqHPfuyyMlK8+|&Bg^}9Rg@c-=U;m@ejAJxI1OQpYFb{bs&>EP1%
z5T9{`tfJsw;|S}nPjD+dgO>jmTK;FxzF#eWIC-n=qh@0&|1dAHkYe6$f3>-D@9u5F
ztZ%jkL`>fPwgq3%9#{tY_vojXNT6vcZ<Wd|q8wm!<zKEXM!y$+D#id;N!l}NAf2RC
z3>=~S^PBWgy~W|_szll?CMBw?o2;+!jP;1ZB6SL{3#>}vOy`|YqSUx7!uA6Je%CoJ
zF03;(*$CW6bH}Es$qrxv)=j_9WJUl|8omqyS3(!EDu{c)#Z$ewiNQaqPbHVoHTo=r
zYXqtpc--KiM`K5>t)r8rv%q<Z|D|3s!T<6M*rl+)!ahNjJOQ^dV_lLWv!aL2aK=Fv
z0gPS4SI5A;G18q~p48n6;L}uP2kDO3K@tL<#tw1@(9}3e-l}nwl#!~ki$B&T{y1!4
z_7v6<#NVmbl3N})=gyJpHTy@G>e2o`m+j<MvYp&ojkc3pvMjI*6VIDIFcC_dfg$0i
zLXC1H_h)z@H5J|r`B%Z4qQgDIwjsR?LZe%&!N`$%D_YaD*(t4C2$M&E-b#jw`00HZ
zDp;_y!DMA64#O&!$FNI`8NpVv%WNgds3szNYRPP|RzU{Uz9b|gCE5YQ#zOfLH}ea)
zUkbpB0Fhtzn6&@i<3QyK&0J9QIi#Lc-oc6>pI;c$quYyVd#VvJJs*?Jkf#|^{<6t$
zFP@f_O$zjy9yI^F%hLD_%K2ShIH7qCKoS8J1{B__^%{XDD^#744w3wgrSU{)Xg*o@
z<N7`otjF}t`07S}COn{{(zy9PuJh{9XF)R+4Jo6CpU99v){Pz=*GtE0q7kR2I4Bpr
zPYun_?)ZWmO3Ls%Vva~20fmJki*e2}37t^^-MD_n2O+_;rVk>*`qtdsKhmGFF{Jlo
zon>-s00->Aze+hA4J6!;?(+JiQ~1gHY0V_JekaW&6~jv9>$=%l08hQ0Wj(XAWRU$h
zgKWj_Vvzlwj4xlE#rX17Fuwf#f3wE;QZkn)X90$X!U6&(cGf&WU!BVWg6V~UgbkWo
zK#+^U>Q&i5lHJ3u<;D*#NShMPAJJK6#xw+9O*4bg{le%FN|q0rz;#VBeVlV{!Ll>E
z+2j4q>I|k1z%h%NgJvw-sYB$?3(D`q#*vUWS1ymJhtc2SMP$n7!XBAh-^HJ2saePz
zG(|bA@a^Q?EibTqASttt?5lVseKtS8bkxV+yp%quHsOz4%m~u<JU)YKW}Wp=K|0Ca
zsCHKLnLHk@u2axB*+K0Ia;$as+eAXixZ5L&u+jLevGAD~FRO$$(p3sHOr^$Bbb07S
z#SAr(nlV`YXVn&L%g-GvapSY=pHS_pF*@gHNMOu4z}RI~KYGg@=^2XiTrzqtIYH=4
z;y2_c#(^DEtT2*^>a>utr*S!~i~*CHKfxnxo8SP-F%H|iFDbSg5}<PANHO^mo?X|9
zFFNMa9kBrE3%o&BI)3RYf&iBUS&CSzypsJfR#u<Z)%iMqxuHLPgHN(19c}QJ8{toA
zrf$;nS+h(;*2>q7fHK08#X^Z_z2VGbDs`2OLZym}cjVKXecav$7*mqO0i@jsf8NtP
z0&D{uPCfXzcBKb1a1@IIW`G!`%G_*RsUZ+?vzV6FrtbO>a3+WuI-bQXfh?wDzRce%
z{QHo9SNZo5|C+QNG}Y1$@}}B0#j-YOouB4iA+GTCa$P*`olzg$^^xe?vcJMvhEzJ;
zixHu%600J$?`C6tCRj0T2bbp0to)~LYFldy0iIT>mWI3zSK>nAf?*R~+2oig#F|8g
zic5(Y6_*l0I+ghG)!f|wfiKoqW$^>I5a#m4xUx*(u*(&xgKJ6ZI4xiHJ1KoIVFdCz
z*o?>xG=0Bv!(a2Hol&Pqo%0{h{q0kxAk7{Qa>Rf0vuScfazDKgpB^ViJP>mr7p{}u
zzH*gw-r`5S`Sj^=`xV85?FtUl)6$a0*D%9#h#h$^^J(bxS$NR%<;E_%)(8~FG7~f8
zdha<!Lp;w>>)0x{-99|*43_>qrbH%#gBKktK`%X{@iCZ>q6Vk8-oatJ0c8wTsk5Y4
zmhbnttvv2xZj?~Mk{^+cr>k<Ny3!@16#N9_r_Q}9%kOoVJSEttC!Jx7RCV?OOQmj3
zbg|Tf3c^`2*5lSuhgY=rsl;IQS@ubBhyQxf@KVxNkHClll5BfmsqbL+T0{A1?Ngww
zqw)@T?}-8YMgQ=*DocOaIUXt@<W6|k^@%8Y2+&Sc3{lnH=x&94o8~{b@;Q)wMUFqi
z(;E%yTXzl)RGYEUdQMbCNNrI!<;5`P*74KM@K~PssG!d>-#DeaVUPv@mMBB5$;bql
zM&zH`_yYm4+k!jfpFx&H=vkP7O6r=@U#x!IkEH+w3t$+uhgRLAf26&Z#Sxq_DgyC@
z_zC2ULlV$VM2}H9<~eShfU3F`Fyc9vc!tbizod5Tpb;Fc=tYWAEZlsW=J`Yup6#v@
zrH{?v3_aM++|I&rwyo~GPJ9mat{l0s7qJU0GuW(@Lfc4j&FVqS{VG-Ltvgt+MIfat
zzoB4uD3GqU_Da2TC52Cf%k-h17OU|!%snIkCPOa|%4k_#7@OhDi2VZTvDJ7=#`paf
zjeT;&JR@MJ-vj%gN2)Yszz~U`s+-X~a0tS4eA4R)ho2w!yG-vBtjMdjiiEI1W!MGZ
z{puf|ZYaQTayYhRt{8#cT~*X|ptKVuw+)tbe*V*t;CUkQKUGPLXD4>#Nl0&T!c{Y0
zZzY;N8VuxYA-{zPg-Mk!;K7~_rOd%W947fkCWJNa1(R6VA=#Shth48%39*)xXchWT
zjS`_%NV#Lj1U()056JO7e9={uQ{B7r_!Wj^*1sz<7P*baZ4fv{3MrHM-DhcmJb+|_
z=KzeGLTa8|MCg=Brszw7j@4^4sM>MdHH4RQuclwR;I(@zHMfG8aNA2mTefbv0{qvl
zL|G1p%gd~6a~WZ2ZTT{bxw^c%zP7fuzOj0FeXY5=wsE<6<?9BMUtRvXv5m1DDpH(R
zpp(c-tinRcrkBo~j5M)aO_epc{Pmi@-2U=@{?-lQ%KGZ%4>y`?A6;!WFMoK2|C^Ur
zH`bcXwX0W~t5>gHUA_F#haYZy)clYRmOuK4q*GU}ez<z|@)a%xP~0K|ck8fqytNAd
zkT4CTb_5<&7FRJ|X}y?zotsYH5p=t}#NoB~4*SF1`|aw>o6E?Z0{EWCq4G9~sFzpK
zndp)GO2~j8jz)2*VHvvOZa?h&GVrQ@iz8G?;KjI_ca-S7{=2Dc?ay0ed2p()oWRC`
zWgsYX25jOA&lH)9?}=X$lhz}>W-Cqy7GfLPL;>OckyK7p4upPNwlh-)zG`(2#Yv*Y
zRQ;_A8ySnPbX&|60&&o9JV#dt9|rYvR?xych~(hZ|AJG%@b)E1B-@r8oa)NdMEUA#
z0nP>nOu<&Qgl-VZDKz(v4EhvHgt6u_J;u^P$L%yFy)4NQ^z%2Jf3!y*`jekDE^b}?
zc>enJufCq2zvy+BAGSG>n7r~4-|Y;Bl#PD$=+VX0Q{&azG7<WhG^;-(TYRtahs(TY
z*gmA$qn@;m7UkLLiNCS8f#DRY(dgBas^>mz9jO1JHuXJ@z6S(`s@6?<^Zk><_O9hU
zRmo>PdvHQEM(+fywfhf`PgszYLvf_trAC;=AHF$iACuAi<tE3_E0vArKhjpb>9x9@
zePu~yGQ%$^WZ!1aJ7gwli@{dA@G6`E+xDW-KC@O<L3;-PQ#(?pQ+Rm03lIN*gd~?5
zsRm_T&#@qPe6Fa$Eg+C2UNyMCS}{nhgjM;9*T*qhxo;Jkp4^=FQ3l=J?2-E4R%-Ww
zXhoBo6JDj8378R#k1pQtzrN)=o@<X5FT&YAN8R6OA0PLR2me2N?-m<Zw&wSZ#$)G@
z8926)AV6X#+ZrEFv0J=U6|dcDX4ImjBahUrmehSZuBOyQvPjj4tfE+~mejI<fnx-d
zmjFS62@t<HP7ol@n-3;1;5;28c?#w^4|xdMFS!6Qf;<Pv@BgjKUVGQBVv&;O^l5ju
zNLKB=uHRbgTi^X7uriWz2<83>$si_kQlNoe|9N1%U}s!-J-7AwdfjmuSyt0c;H2_7
zmnJ?_Y>>MIlJhcGLj52%fAiQ4pqqzBTt4efFnN7xZDn<Nt=VX9e4SrC1mv~2=h^MS
zVCW4(odmmZwU1!7>}s~T*ZHP%*gqCoxJ!BfxJ-`wfMZHxa_9qS!u_lRo#0Yh=(w1y
z|MYpkB<ugSbJ8!(rLh2xwrMOgjReP%kNN}_oMg0iyf0r5J#$bnQb~FzaR6}~!B?Gk
zmt=QDK2w!S`^&FK#~-$oa9ENBIZ$cil}RvpiEaYxdjL%SkeGMXsY}F2hRD*eh(f6z
z$a%}=l@5sAKOOBri@Il?40X0!%QF5H-v!Yok$>(`Vy25C+kW{cn6DV|l)q%71+Vb<
zno`hdNo$iSTeF9vw099Ee21^fIMi+Ws?>DBYj=>lnCESHiXvH`k)0krOZ<s+x4w>{
z_?)P!`+&I8Ni(e#Q6tL>QnM^AG@7>yUy55=Wxuxf5QVNdWZ}pID$R%z0SoCY#h%kp
z5mj;=UG>koX2>@)=pfnRYTL^%{KJ>5x|7??=LBYgeUy4l+0L|wax#It03lTO5OSlV
zOWkO)bp8uVOG_)_Z0_<8{QHW(h|TLHOJE|iv!9bQtV&wrI16&$?5aa@<(%}9n1#-i
z40xm~NQrwv+S7{tLiSd5jzxC=L^+vbmHADhkXgPPH!^aOeTp$-w6hGK5&?afWxi8*
zSro#bS1L+V=ai$;B^&OyFa4`wG_3rkOMiSR`Dz4tjIjAOWSoz$uRem3D@4Lf#GEA|
z=i?<O<9u9ytLYv7ViD*5<kDnmqw;k4BngYfnqC_I_czZg4c}Uto!RPwdsuasJ7%nV
z@yvPGH8xpH+ZC4eEeOZKBB8Zp2e*<)dmsc|1)Nq3rkTy=duL$$UWKs3vX*=GSx_&U
zpeyPJb3vB{&dm2sG!e)x1JEJ5fO#%%p8b}*+{Ed*7~L!b7_7=lz@q_wPXy`-XxSt`
zWKnv>Oaq@gPKcgVnY8a9n}2ws^knXAjIl!WhvRPer2Zt>?e^jR2FHC44cDk0iV#lI
z^!gtjN&2iKZenN1jtfZVqsO$or6<N6ZNB}mqq=j&oPR@9%mFH{1881|eezx*1@Q?i
zAZjac9dKuBO|lCrq<S;8Mnc_9xdL=i5>gMPM&wR>DT+-b+;O{mGXJ~_C6oxP2Lw^8
zH(aDpEsv94zZQ0jFKpfHMZ;bI2HwRwR{N;Vt3-1(<*>_O31LSGYnsL#m2k*K?>Kx}
z-3d?*6tfZ>LVW^Ahrufr%8?4e)Jwa6Ovbs2^_+ALP)nShjc!p)QAqrDeW~1@ofQ3Q
zgv1XqV_YspvLKH$$KQnNI%UokGn_Lcd!gVb>L8pm=8efR<`xoJxC_U)HJq@SFARY`
zjDx7JEiElCtwV#?>#Inc8(-Vw=0<(Fxzt!&SwX;yG<W%}il1#*CU*8Cv(NSTd(7b0
z8*Ah^SY2&wEY+9m8_m`A`buMcb*a8lZz3$O*XwJ|wT+E+$)Q*4h%naHRyJ1G*4OHe
zxhhX;ZD~XQR+{U}n*18#_U6+1T61G<9Y8G8_{!1}y)A#;KxDkU%%gf^WuvjYvAiy6
zyfImE1%iQYNz9+yi^12J>O!V?09njw2x4}Z&w)kd^Y)^|*|C7>zpS&n?WZt9WVP;}
z2L9$%BHtDv?;+}VD2dr_A4U0h#rxM$1m2`(vqA(83bDL8e!kAXEO0voJ+m$luN)H6
z3X%m*tWPnRtBDdJPClprpj0a)s5slbge@1iq?kD)@Y`V9#r{&k#J5Pz(SnmeNV}7~
zQ!r7%-AYW^hq>#O+DMmg>SjEI3*N2(Di_4Km|Ydi86f8tlZ7-#b@N0jOh<s5xX;XG
zH4c8o;1ne~)FuNA(@`^CCu3joSfad1qNZ8}B8_SR+>VwRVtvE5wi@Bf60I#SZUi}x
zRapsrIA7=YElW*h>{9EmS*W~9f7Wz}7W!bff7~gkXezFT!X>2pN4GEBzvBqK9dY|P
zsZUHjjf@}t2;z}kj_AZ2wfAmFb{Ucl&!Y*EWdFUnDD!F6*9;NcZ<fkb3gH)+Z)u^v
zUSD5r)HjyaHrAS8xMq;{)a%X0YLn;S<dx=%L&~-H?s6OAqp!>~BXmvLu|o~o9q}fJ
z_rUUMV+jpkW2uSYcVl&(wxib3DY}EMXpmi8^_7qoj<$-DZBR#G27Xj}Az}Ja>Gh-1
zYl0?<d);(^PDl3Zqx2d<0PkAeW&Y|;-!H^xWKl$V>&qb0jg=;L4I83!9qo(p#mds!
z@;cPxx-1#6z<}7BM*mfuUCz{i+)C;j=%%7RM`Bu2%lmsJHy$+?7W{B>twByPd5q4j
z5w5hd*6Trk|I}EfsCfGxsJ|xbzWfy4lH#jGl;+|N2?F*)MsyMFu$)pzO6gG`RCD^P
zN)Z+>)nJWfYA`GhMf6mvzaXzn#f5UIQva2|he*XF*eL(7zQrwe0hN>IN7m~LP3V17
zJJlEJD3Pi^CtEA2i4uz9MwU?7bWoGO(~M1Hl1i#LwLcSO)KN!)V@wnD;Vju`?+&-^
zLA|-c_h)>rFEl<ZDv|_-qmG&4dBaJ*Kl49#J_9qqI=b_jF=AEh)PkH|`1PjBEgO14
zq2=ZQl3UtNCQ~XR=Nnf*vn#x0s{UO;arTDug`AZHLNlJAQM-0%l&j2Bq-XS8q)ZH9
ztB+6nBB;$g=|$IB);NJ^el#b9Glqq_E(4?15tbotk+oU?$+gJy$Ki!OJkzf`pFP%A
zD0h(aUQ_G>x}#J>EOzMDzT*M(i7bQ;XV0_$;$XvAHB=kvSz9hy0?r}P&F_2$gM@(L
znfqg3jV;utMLk9Wk(N>t3GAua^;vC2z;WLxNQ{kANy%DV3ID<p0#MX*iAf*Q?ps@K
zEOW|AK{x(bz2mOpgkV86iolxMfQ}fi3Ow_?sXYv%Tq({_6$ze|)`M@Q=IDgQsTP`A
zotu+*`jZZKe<9XduqM2Ld4^I4NT7lsl})3>QBtA}p7am*f;F{i)jXFvaH_YUTtn!3
z7s>arU2QEp+69@>vj^HmTZYiw?@#z{KV|XJ#G=~fRsiTMEOF*_;MHAXPH7gWIuNrr
zaOmhCU}QNv^ANVRbvaJ%t6rQP_HwT@GD3?1dp-~j<>(W3(v@uWHM{;A23F5ouf~;G
z){w^3Uue8m3!!(MvjJ_XYfMn-47+*kSP-b>{iQD?F?*FfSfSlnYg*$Hd%xbK$U@y?
zf>#3V!iIpefP*BAzixtaSrn9lRRvE!(==yS?azpzK`wv38b4C#yjo}O=nL8({3K8?
zmoEJ;(fFWsMr`*B>yt4lz!eXe$FL|RA3V!gK3>UCtn1v{t98oWZh|B8xbara7ye3W
zgs_F-biMJDOTRbKVQQQSgRAY$82+n&_bfAp7^}-0FA(6|yf->~6O9?pyEDLhPCZg(
z!Qh7c##RiznPAD_z6L_meZ$L7Dj4XZJkE&eJQY_xHEB4@<!>;;YDMW_w$pzB4nY{d
zRd1MKjCJ{8=+P-zWlovvzFhjh0r9|XWcH`QH{<4V(+0W5n1>**K=n}BzfupuN(eK=
zAFg4;#2E*fX0?GsWz~t>@ts&Yg!9hb;mz43ji~VNs~oQt#k6!(6@G>W(^(Ifyr{-?
zF^wNpo;ISOHGyllu!YdxrGH1d-O-uhso~z3e$Hs*oHI8<P}Fg>ORZ+x<7<fG)NIuo
zuo7MlB}gg|;CrE2;t(1UE)twhv7i+d?mqF(eX?eX#ZD`WsXKS&I*@wq-ObkPA)PKS
zEP8SIb6wtf9lgl-9-0)l@q>V5J<-Tw*qp0pPv`X6WIpSBD6dT1JglBy)l)q5axGj~
zX}=lLVzQquJEaBf<Um=g$}dl24_qW%1f0J~<^hF$Vg3NL8Jy9eR=r1Bqp{Ik!tD!9
zcmp}<22KGCcIj<8q?JeV^)koN4aPpoIZcn;U(P3n(&?x$UsztMFKw)DG@8=jui!)1
zSZ=H#y<J{gUd9=%E~f^3)9R~e{2Lo<8;u6V)|#tmyc%CGBMe*S<HpL`T5}yk0uR36
zwpJKla)Lk}48}PM7FRw!y6ge`(~{#`Uj6g{Q#dU;`2+_%@%Fsa+)PUZ5*VI)=SNlD
zkN#=FGww(KH2m{^(Ee!?5W%}u*%ff@1#hKXni2?+0&O!!U=kh|xm{`MQto#|vT|Ow
z_u?Xy-%f9XOPBsvFGleY8@OC~;$xG@OnCs<T$b`y7}>{gvd+iD_gfB>3TaK?*+kA#
zHNX-x`?%qF*~iUyEJ|s<ktn6<MJfOB!mo`erTKP5DF_+7Q;6-lW`R;@CZZIaGJ|k~
zeW1N?UU5oPSeK+IY;dF~&0LB?Pia;<>ubCug{Y7=v|lHAN*T;Qe0j>a8BZZkDOb(q
zDP#8J_dupn9`hub%E!1;KhH2&$hAPQB+1oKZtP3|4Df&->|?)ZS|+0P5H7$1fSq(O
zhakYk2eUI?aEVHkJa{BRA{0-y_wC}haA_p3t1lkZzMX5~!Am%y8n5+ud9LPC(vj?L
zv8Ix|K$9rRgo;_+WghHPH!q-;C<J45W%fBP;hkB%r(+rmiS!yZa^t!7^ryjhvj~=P
zsyfl1#<ELz*VIeBXGn$jz7a+Twzx8@e(4486w{412$dAZOjXwaJ<Zhyrj4SP#B1VW
z*l^VIL#{Z4f{@Y5SicWEIGoo9`}xRua5P`rSSC6QXuN?@B*Mpp4a4qx%i^}X612g<
z+h4~(^NoK&;5JDx2K1@7?W8Vc-dS&4C?2y)R?!d<NT%IK@YAR42DUc8M|gC{y3>aB
zF>OWo^{FbBL~zX(9hJfGP9<^a8jtNfmDWj?)xcIQC3st}1Vj#xmp0fW9LNUJeY&?n
z_LRImeZ39L8^rbz+zrBZNYi%mr%s?1%jPeFki&M5#!=BKNmwddMb@SXxmMknLqTM|
z{(;)7-RUVlfa^8yF&~8*ie*9@>15fT#qGsQo{_(Unz_7?r_Pune^inua!hBYlif92
z%ig=k{?;v$0KL@_kL7mdAX1)T9JE|tUct-}@0pb)#dLDkj>yfBrL7|*+gNU{tnlqE
zy81Y@s9~CK4+lPc)L`wIAFq8z8J_$dH}KU)6QfKdb=aw|HJ7lEN7A>vjzkXu<@zc%
z@<gOsT5I@tRQ3ACDuT<kC8BESgae7<l!;-5$){qTAT-3>zOibi_lOdg31Nk-aCsSP
z`(<qL8Qj8JW23RUiU~f>QrO_jH1uuR$5&n=tlp2pw;zK;{TLkT4gsvN2`(7EZ?#X`
z6C*Yii~qXV$xlE8e+I(0cX_ScBfwneM4@2tBD(L{i(>q|PeOz_EV6g|J%U^vIljbV
z!<o_c2!mo)6C#+MjgAk>oRU8!LB;GWDq?XuTTAsO3=$@vgQk8h>sQ^rH}v30ACH=k
zw?Fu3_UA-UYR%5P+J{YuA;i8_nMb3XiTE6`CRnefyoqCfcpSJBdtYErVv&SFVIR-V
z9F+QvtO_+eui|<Q%!;0SZiSEAP-~DDGoR#{CF%(S*ZOuFD!d^g1`f`Ve8$4Lk2w!V
zQ;;^EoKCnn8VFn*MGp8X3J3~OAfiD4+mP^vB_;UaOGb0IbNZyeH@|uL-buH&+dXa{
zS`fO++q2yLadl)mryr<?h6tOr1;S{X3md;E$c4VTvfgZR`SS<A<<<4CgF}QTKqfb_
zxOl%)YGwsT;>HHeRJnaPPO8|&$o{gRh(7RH*4_>8y*d3cZ|MV=qK918__F8Lhh
zkyHItpi;;15b1WWas&C5JASwsOmhBkCC+jHG4eQ_?I`fi?HJ*qON2**?uw$yi8R%Q
zvoC};Wy@nqjjKfdneCSjq(yyvBiO0b;e%^|5AG}Vyz<=nOccMXtr%G92dlVfUb^&M
zs<;6ACW;G*=-yC!F-dNW(xO>VTBy6_b7?LLBm7mVFUaoj29}_!UVZUD{ae2_>Weo|
z_FxBmwWz*`=^ot6M15h2YIIw<;8wc8IG*RR1}!9jF!N6(f7q(K*zmdxn~C`+SjQ<z
z;Qr5T0vZEaO<@RnjSwq}DFaVQh*y*HCJ3wy5C#)5X$<KHT^3v$V?Y-Nzycmt`V5;U
zQyl}&?}6mKV#Z@bEuATOFE@530H&0@YtKOY)fb~|8X<h`NXd7Pnh;|}VLW2^82tZH
z9SKyU1_fr(|M?^FIMR2?)Q{>%O%vQ#3EPo^OGJgp+@$y>SEoOtWf7DkGIPRx6Sq5p
z(;g3;_?>d52Z)sId}gnYnsS$+Rlb?zzEtdeS4>f&yhL9WO`u;V3%v>O8_U_ZNXUY~
z-i-s$0EswpP1z+*FhRXe#%%r)5i|)Etb`66`%uio@Bg#^`tb0d{kJI%7My6Z-$&un
z>BSbZtEC5+1-$uTD20JKmomU`l|_1*Mj7DTi^_(vMq35~6CwsMAtpsc&1Vx-FIoU3
zm!)JjvGa@$ZL_5){gdSS<RZYahwik^iUzJJO7e!Q3`DEu2QvGXIw}vBp*RhLg2ZV5
zS0uQ`l5;eR_`vf-W&OmdW=T74qU`*l@u=_RUYAB!IT%S8nTz$VT4Le+xYM2&ErL$v
z3zs3iY){%yn4;?PoXFA4)L1!EK?|w`>>R9$Wn>NgW@06AgbZ{pr;xr(@}Ao~m+fhN
zINn$Q_Uu<APbg#hRGvVBgIu1FiW2HYd4h=(MuiD=;3qgb%xl0jcD#gp?bzrA8wynE
z(d)n-SW(BskK$i*bj%U3db9Rp$w?@f${q*v>Dy|lgk&BXzaeC9DO1RyFw?~RO!y;F
zyniS)tAF(^TL&etmsR8!-lImf)S`riTZZ+;A*-Wpcl+r$>?4ifzU02kB$!~}l1e03
zDA+~h9yjTfa*0)VJr`Qd{w_no@sB15{pLj%t3q9MLOa`@XOhi@q>$tm^|jUdT4QB(
z1r<6UmRFEC@R-1BjrIBlw#y1Zu}V~So-2wL(yHlp7t})G@J*z|@>BR>(#_cEf$U9U
z5(hM4mZ5BUvJEL)Mkl+ru~L`R<zE6mm>|pr13uO@;e(A}erybgycjQH#aGRMzybTv
z%wx><lHSf~yXR`Y69c|NDCe!Ei-vOETJoIl|8uv3^L^;E%MG$${?pl+j}b|d$l|~#
z!)qr8NTqwkwS;-f-Had`iR=>MTPl~{5p=0@YAmE%cW3ds!a;ivs}LA^O5e)pvy1uN
zIUR80h^pNz--2CW!c^xRAlx4tBH|s1O>!<!B!ISyA?gxiJs1}`dcQwBDF=?;B12lC
zn}nw>bW-4}E8?UvI%g4Rzn#<Nh^gQtKj2bqY284^63qO{9Ws+OVRQbF9Wg6rdX~Xp
zQsrD5_E#;sNXE^gn#f|DpWZ&MnPPFDqC4!tq&`$Ai4>s)N+D_UT(HPvDhVIjt}mU-
zqJ?hpU_z=~AfogOBp^#-(q8Pv;L<Pn>H|!_fYyWxt~Xw~56i)FQ0xqkDLH7&y~tkj
z6%1luC0oE~@kJ&g)a%xa*yZ6%_fX~3LY`Ujh05Avb?8MROARXc=Mr}yBcaGyi6|dY
z25;_j1gkCug3uzDqcW#S>_<IxS*$l*eEQ7A7A|l#o?<)Qo>`81X=56snXIe5fkI`w
z0v~YOW><gtPdB+Y>kHZL%U#mZK%Nik^P7VPKTUp?`2o#q<*w>66!p=Pay9ZpnIp;^
zExopzuCb8yPZU0zyut`L+lSVcYUv8H>Z(l)Y^u2`%>^<iF(~I$-|xj5y0GAPVwYB_
z;VLaxREmRRAE}b+%R<xl^v19*F7AMYQsrRVJ0$AbBZ#(9Edzo`La#6_m$}K{0!dSf
zmM_tl1G~{~Md&%m<jZ9Nx)VuPf-}HFK`#9E<9HXg`nj;v`2%}z`M}<+Ud(Hs&@Nh3
zx3c=wgx}*ouK9`9w=QMq8UDB}Q#Y1=MXNpqZMAUTRv>($ckqTX2NAz@b(J94>qNZ9
zG|dHYZQ}a6vC(Ye3A-Y1*p;_x-KPP2i@oZ<sg<8M?qlGED#h>B(^;z%4!6F(+++p~
zB7CnjmX@1!B6s5jOt9Q_oPJkv;6?dQtnTIl=6Qf)ZG))h7&n4|mljHJz~m2uz!h3-
z0FxD(uCHSFw~T${(%KRqa0Xu0OU8;58ksJ!FQ~5&47|CzI%Vu{wvkq>`0p-O5BB7U
znL2sbT@#l$yX9a)%CqRz&u4^-Ii_}&ygW4vR{v{YjnXs{QvEK7)?DahC+oC&D&*2*
z<r2GP*~6yNNqeBHP15%$D5ddG^~eV9ig9&9Vsi=<ZE8Z0a)46W-}aT^)02;aj9A5&
zai1iviBZfi)&N4CR}Ms#G5NR=78IpP;i~TS$+0kqxt?rFQ-<V@E1oY7%TK=on)}C8
z{6LZr-CBEDO5f`)HkE6(DJyo<u>h3j;@w9Q4X+elE6OzwwS0{YM8|g@t@CxgP-eXx
z3H$9Csus~cG{BGE;XitZ|L7h5FOPxh2m*K)hN({8azxPmQ+KEAcb=1)5UbEV6TNj_
zbjUB?$<v#Txg6dF2{nc0se-kFSOZzcv_qL=m_&hN7JD>wxoES4lm75Hdw~3@kk=~Z
zkjiwq@hoDE_&GnvRA7I&ui(A{|5C~ScqxKsFyxEac{c14Yz7&rW50~e@Y##b5;mCf
zEW+edac@@rqwH?`xOL9}(`hj#F>uv1xkz$;j3DP8|DEl>iLL7`f$_#+$0WDD9b-D}
zMT^jrwfC+Yze$#anap)$1@yEtXuYC6NCOy08pnJGa)gkL8+_$jU$Y>Owf7#TtRoFo
zG($aFq5;<uO_K4QW)%OC@Q<%a$2>dx>O2#4WyR6bm;psRv12#|2*!8BgCh$*Yk)Hb
z#tMfT)OLBjR8HlMNHQR+h<>b+deM8eskV9H+vTaX9mbI}Nh%-5VeP7nwas4}L1^FF
z3vK)HhK6lYR+?HGZ($tPuA8?SS0$AV<K=T4gKIamq;Xg&Jy1P2r%>M74K0N+7w4w7
zZOpN3aU2>;7_Z72EMi$}%Nh>7q+`h2O=lE~+j!MpsACaGZ9ZyEbyPMVuiDcXRKA|W
zOoj7-@I~WQyP>RW*NRxfR>75v`yq_Mw;P(wfy)!M7shL2u`#&u@!9~V3L3S_s*H_Q
zW3jTaIh&mQO3KFe^SN1bDwmcGbF=ncS(VVVVtIWDV~yqWc4Pml5X#2>HTF2(;{4LG
zaeh|T$`vLU%F<ap$Mx5*iDLbvv-{K}I{{hlcJfTShe~-HUYtfOy0`$YnBR0<7Po_0
zIO~carIltrzll$qX3aZv)dn=)!dI-z7FuF9W6LCKvzYM`xGgDkt)y=Ch2_^MjfJPf
zZTEY>_d6ippMueDJR7zTfA9Bx3T~r0^x9<aBHmUV+j@KvS6A^s6l<<DH?Z%-Twh&5
z*}cJIY^*D5_=M!e8XI-FELPW8StEPH`8pxxPF0mjy;M$QQiU<YnpEYj^|3^ni!sou
zUXhJSHO>vIF;kzk?B|~Pm?fOl$CzPFn){euCN1KaUM3A}_1qAyUd4%hoEyTcl_zmx
zALp-e{!vxexZwT;<32nY;u$oJ4^WXG%H`lP5GZDPIe+SxMD&Nq4a8ggH3$Jrk?QGg
z0rLi2{5^F8n(P8}miv#3TAF8O$gbv}6}T4d2ZpWLRetF!E0825%ypHr?Kpq_mtrK@
z(n{FZk>y}LB&G8r)KgYSi&Pm4mU2Ed%p6$-qjl_Q5UqxFE$+5xq93-Mc@Rh<ci4H6
zt9tVkLQzi1cHtkrx{v{+xrF#Icc(NPOzA<gzX}3w-wfVPY9~59l@r4_SE%AsnjD`3
z;eLlqy$W$n>JKb(+9xl`hbz^WY;iEVfb6+-(%mBuz~%cLQU+YUeRNr*m4vy?tyavB
z>4XE2T4)30Kv=i%`><ht#mt<~$K*E&w3!L=QWHZ705xPuOkS~s_DJ7(Okb(oSa~$B
zA9jzA*<cS&UmkYmH$Un3$OWQ8{=ruFgeWg0J89iI>2y#y%BY6~4JY_TwtoJkdrEP#
zv|PzPJ#O#n83Y$hB0R0-qG47gdHDBiR`)x5)6Plh68JB-_;Y*w`cl~A*OxfOAvRwy
zpL)yj{2qS(@YDOZuibetJ9|O9uk7jtD>69?*naKfPd|Ui^0s%Mwhub<UxL5FM~a-+
z=nLST(@adLa(4E&FZnzTTT7QN{qb)Gd=v6Ch&y=9;lXK6zl?YBR*JfL#+fP(&Slb-
z<Zej%D?90x`%8=!E6uxHGKi$X;sk_W&Q9>4IlkS{gtI=&!}0LsCzsaGo85t0A*;jR
zy;Nb+STI6VSf3NJk<QM1)!OP0cMdxbPEUrrPe1K-w)N~*`{<~hd|D|Nyxu<Up0*F~
zZQmLD=DyxM=pI-@V7d10-S+88_r>fC^3p#5=k-rG?9M{+uJYPk+vyKa&EPU__gJ80
zu*hWJ#8^?)Wj#4O(cu`LY_^V0Ux3rU`@{c+Wj%e-(>*;aL9_D)60ADTSq|y!Nq=uh
zTrOQXnpKAN%1KwQ+oeV(+59Da)0OW@y+|UQ?S1zj{gEWTktP`+WxdhfeUc5hI8>ro
zUt;kcWrIE>OKtl^8n|F}qha=U1a512z*R&>+W~h;C#!W{>>dvHME%4i0oR1p*=%jM
z0K}E-`I9bP9}NdgdUtnt{L%vaV?k!ane!6hV(xV=wf;e``z<CY1Q06@x6OTBJtXdL
zw;@;_18yDcE+E%8v;N8GUd^tKKHHob5>vpf$_v3NowM}P#U5_?9&V|JENp!>><+=E
z8%TDbBjH=EXk{fdvr=e>$DyH>&6)k~KG_i_w{-80Z|UBhO&n`%_V@0GXZL;U>7mWf
zVi_Fy8#Pq~ReVR=<KAq}9Cr3k7f-qePl!tJgoQZN_IHPOFbahSewYvZDBbB-`|i``
zOgeXMQ`2(@5tNt3;R@fL`@(*l8K7L~^xR=Q8Xlf@j}N=Da;n}=g=XWvE^qM}nKb$2
z%wc*&I?NQFq-|IV#Xs2!1JZP1fZ3F%x+tHYw2ueH4Gt65>0y$^HXoi2x_d;}%TWzg
zl+O^wm0@58kBtE#{(KEmyK#bbB)dJUy3=8J<rV^UFT7wo<W{o(=%E%jUAq5fXXhZE
z$)9I%2h})RQB*d4)J`Yq#sm=w<$QVV?!7xVL<+SBq}?l|C0l_L5j8SAX@%Y_TN^=m
z{L%TU^~q4`jOEhSyR{t)QecWU(kAae=|lYHUEG8XICR@<a#u;git#WIwW`)3=qHTW
zN)!)_=Hu(9oxDG(8Om3TB1|r6Mthk5WT|_z^Rjn@Y43ov;!m<#*h02f_rd;V75|Oh
ztZr$gOtkG0@2EM4#<?s`Umok=aN~j^_lJjv;NHSwE*z&|X1oU8W1Ffk`g9?zLt2!~
znfcd++Ed_pJeNNSyJ9_iYTH161Pwvmf20$o-}F!P(RJ&dEIh4%obOZ(3GPo9jwcrK
zP~}JuPB{{s)RTAwd+v%&uMH)fjK{Kcn(bcH?Yk>BoAi3_%HytZ`01q%b9yClI8*d3
znyZY0^$g^qtJT)zs5BY9x8=aeq_k*Ezp8W&|F9xs3c6;^RN8@2t8lz<96K5rducw!
z)6J5(Wp+zz`(UI6$*F8@k4k$&OIe;xvHj$D*xfQuPD&#)vzm^~@2>o=_IKE(h3hyY
zZQ_u;iCS;gPa14d3&Wkk?n(Ff)JzG^!frWO9qvfKCx<wHyb`8*n?YS4o*cfsaXcXZ
zVXuG_RlX7z$Wb)Yr9A%xHiey*U&o~_67P5DiQ<OK->}8Xr#@olTgC!J#FnmE-atOD
ze7vDzY5LU-Y!|n0b?=0tD(x{lGxPbf7SKxoT;)KfXp0qUlz^G+xnx=ug}^^y?by&0
znmNxkGNBpayW;9<r~v}$SY=dru{}4T`?Q16Vf+w*5ieuIHUZb<lq{<;LiMJn%)R`o
zb?xx@N!#|y$DLF6A-u}3vVbc_L7P{v-T|>uU7pp1NZy3XjCK*5pofV3!x;0*u~>MO
z4?o8a!g|Y9+pnUXy#5s7R9)gY=O=R{I$3uxUL%&e-Pm?~QigD^@SG1%T9GbZI5r=h
zx%j{^Ppx(=m!7Bfxk%XPmYfUMha*(p2Ur2O02`~sE!P-Zi5bo1JuO%tM;2&BE_jYY
ztKxUK6yXeZ;543cH-YITcQ9FZN?O=;2fZFJ`EjE#_|nP>b6!ciEEDh5AgFAm00wO{
zqcz=3l4cDJsM%2<ozX0SW3b2dvnFJ_3)-RX7U-D2R1FjbkzjO4!c#|6sI1E9sosjp
zp#{pOPv6h#q;rl{L*cv$YuH!Hn@FF^65F*<d}`f=LHHr&E!ZIZ)4YX|r;nN?2qqU*
zGON1w+~^6XIUUhr!3o%21^v_;XSSFZJflUdOAJ6~wHPS9exP}b<B6R66^OS1ffIRJ
z$>|#s4lI1jh~}FDN;t`a?fcp78i)aYrOugWx{HmY?54(Fh1_B{t;;v-D4T5SY`0z=
z%U0$!TBl<vXl2od;SHPkST1VP*K$ISv7F)a>&3;JuwD<kLR$MT!DF}{zq3I$-qs-T
zK(TvJQ1lX1aMdoXDReaaxb#_ufomXxCmk>p7#YQ)sqWf4{cjMa_6}dpNey}174O)R
zY)7<F<UajQ4QmzX8~1%;Q5G@3y{0IC?xy|tZMv24fMfR=*G&|96B|}Ic0w3;Na!wI
z!_|>TjxHyt(#V_HS-E-0ze6I52gayu5nJB#$NVwE(zdtub8TI`8&zx*`{H^uNA;8>
z7vca`k$BBpaM4*xo#nmcC&*V1K(_7;uWAIkG{bOR|JK8p+HM*w+%><Iva8{fWNzGw
zK?26D2b{u7Q5lvYKAr9ebOgMqz-R?83c=8eanBX=p9p_ue(dNN_KFLN974@@9=+dr
zG(W#-=;qP;?$10>aTjmqt(<@P4}SR%YA&{yP|DFU*70UAIJQ2=6!lEjaaPjV0F%9w
z&K?P0y4iPs?-%%H^WR5VH|r3f>e-{lH;=)Uku-W_;}~+y&t=2MHAtv@X*s>$)S!<f
zF0@8%9Btve(;?E)`K*n9E~?H9%y0q%>7I6xG)n-3%6%|Aa?kfA>2ptKXZ{XDdi-|~
zQz#bRa_7<VVvRB3949I-C4q3Zjze*StQ{BViS(_oh0%#m3pB^wSjJ|_T=Eu3Gm^Y@
z=tk~*eoPC`7?W-F;-HGFZ~QE_AO)C}DWB4b9j&9zt*g@LD=Ln3RhrTnRopb0WLA4-
zGh_jD@B#%E=qR0mKxye2^$a82W#Nhts32UJ#nZ{fa8cxRc?#~>lVR#J(0Y0n`sBJj
zyH8!ylZ&y7!v$^In8<v{`9MS3&kvrlAH(aG3|~_;&B=l4V;D@I?P`Dn9P9D9%{ac%
zL=vPKDwhkn>O5uOtl}~GiG9-|992v2>h^B5TdjmmI;l0%?Pwv)U{*uhEYg`R*r1EW
zP%peV26_YHiYD9*BDhnoNMm#EO2&1Fg!U-=2Bk<FJ+;`Je(%AP4q6L2g@ghzfV`u>
zM0!1i4tpvR%>LcQ>GJjbraUe&+8IKh-5}NkDCHEZ9C5f~NHn#x@D$PwAgDd|r2lM_
z#_m}uzF9`XmH|sSzq%?iqK>Zw!T3sqpuKVx^p31Gs^$p8vF}1XimR$6LsGN+Sat1z
zyw|ECC7I)^r)I7H)O;e2?elR1C@Fx#S+;dt!h`mHhY+ylktJP2vRkF|^W+9M_WY*Q
z*@CxDN^Yaqa))Md!7u6J0$X=}ldMW5y0~GRtu`<)0&k1^_rAF)+atFC$y0;2WqLa0
zT9{kp_v|e9X27uXo5`2Sm#0YG{0^LVHz0Q$w_g+=gqx*sZLo1dcMPX+4S|%f>I)GP
zLn&I}1$Ss(Pdsz}t<(w^>*CP0GUu+|Jj1%(RPX89Wm$3=v)bo!KF3uY?%YMrTo(&8
z5;jy{%1Hr;hLH>Uz(!=hzWc*}%r}N&zxY<Zv^CG~5o`-9QXU)AU<Rck6PBJuqkQ%1
zyLW}QCT;-NciaPDF|cY6{ApK{$-h3Bnf>mM{}DQaQ}%(E+;4RbkvS3}2JWNuaHtS2
zJAH}J4msL;9ke5kZq!G^mngQa$th%4&U-PHTou)k;@L;^<JLF|H@Xj3X;I}4=Gpb?
zbDQT;M+P`if9Le+pd*|A?5sqBr~TeTnb$;eF|-WBS!RP+1kcRFPL*E*alPcvae;x+
z?aR*KRa(PI+Z2Sk2>EJ3neR9-P!dH3%)kvaw)s%TMkTHbin!F_u)0G(nY_bXr6SU6
z+<fv58L@#QZ(&@Wks%Gn4k^()i*7kD5E#?3pfJ+o7$B&8P7bTb^Fl$J!TdHw5PM2E
zzy7$Nj$ltpE8=dll+vm$H?-^R>eYI^xw)xXt+FS=&C27=&EvZLxq7uh0Y`|H`=Ux=
z|LM+HPuigmRjf~2o$JF<2mRjsz(_I9qf2YT-5{*e@uZ!jjydL&iMoX>dw1kUdj3n2
zI8WMPK$^?sB9X^a-bZ3B-quFoC6rp>g(nI{k_{J)2sMH+rvx3%XYW157pOW%uMHjf
z7zw%X6j5PLH;KV4t*JIt=@EO!(@ku^@=Lb?)%u|NRnut9Vbx0l!DN*$#IjWNRc>Sm
zcpSYv+WGjhqg_^&t?1t!A~&It4&6%uVx)b&s+=n?I0K)a93b2KR;i}M1Io}by(FP@
zulETRzkAyHDbnE5;*5?%NT_g3IZLG{Vq1c+n9Dv{T{ldyFGH?1jU^aD_Lk}g`q_|_
z09B}_P1(#UsyPrj+-4m_UPs$}w3m@#Pj;Mgj`v1yU~-2^Aa)I2cZU;e|L_}G(1^eA
zgoJEb!yQz#=rDt}0YWUyc}yL6kXvoaw)SPWb4a`hhzmqpy;Bi5-Ti$M3lporEn-xo
zg$|5h&F=@hWYe!jf$>+ZL?xaUd)Rh_gS#nX@_@WZt|Cnd2#G~XEvh8}xM(|ar+u`u
z=k&;)jPRGcNou87lJdXYbQt_O+e}8p2AJG*T6X$T+knP3?PoUapu;57k&FX~Z#peH
z#h^nE(~R2IV~RGDA!w6W)8j^+EPgdmMz@68Ou87mj7igJ@sSBs_b~0KtASE%GwD78
zWZVu(M$L+jo)+J7ShtF%qs2owuzqKRuc2!AUTPvd769@yUUlr#w+sucUVWZQ9aOJ#
zGVdbr48Y^IPngR&+e}6@cKd{;)3PIbXY8nLK;zcfPw>n^`-Q6-$vA-crl%crsfTGs
zZR;@!5WdZ12yxSo8+8K4YM_j63ALGYF?Jb~rqkjh6R7UNMl;2ztASE%GwD78WZVu(
zMolB5SfI3S6-_(4>p&wQK2TU))Q`A6K|9EnJ`Z?H?4PIet6mBL?e|lNtDh3^f<M(K
z+IL^QR>iSvs#P0!+{{OJ&*<#O_b_q25}-}fW(82k?lQm9X96S{LU{v^gSBru8O_AO
zmwK=fjf1ssx_a{_KptI_xPixwx>$R3#7WmBK*XlUjXG(XRz{mHK_CHKXd0&w9J_Y0
zp~iRRckwQR_c_Hu8U0G-`3N2^5bruF*%Q2qOi+p0h=_ZV%I)x-*XErzf7(6jBpz^R
zfO_4*6C?$<dzfAJ$Oue;V`+1!3-Q}M7}9w#LV=ivZ*Z3Q7}xX%Vj;p={ni3|iJO4k
zumr?-`zU03&`4u;FQNbJ15(jStKn|*0;|Ef1{c(NZ9KQJWP$P9$D#wirEh2fnS=P4
z+{5Oe$cP{i*+VUoJNO|s@j}hLE;bJg$eYvPiMsnlYWRW@-`FF;s+}@L;(SUS8Amj3
z1|(D-oPH<>(p`|K(qg-7>(E7}lNc6;R^ACmL;#|^eP<O4DKr*$R_w>oJ)9et`h${e
z>aj>DpxJ6HG_J{HJY&ZkT29N3+@Rw+m<A_LIpnHwj6)NnNNWl(hYqG0v&v4<WCF8*
zf5xt04#H}HjBW-sne;Gr1@o5E(j#kF-GL2e9Gvr(s{vAMGU+`+W858*x6E3OLfSVR
zmaL-X+}>fluEcdBdk0{Lh`PejAUS&_aEB@69hET<W`*ViDM{||G)RLC2Z9$1dYE^Q
zoPb!0nSv~S6tvUK_#u~9k-QAjeJ=_8bQ?WrP~ReRlt)<13>}nM1@%~nk5QENn6*&J
z5lGKa&gT`}J(s(TR=g}-f_dFkwB*N5bbyJzM`u)?<d~d}+S%r+C-*5Cb)sV`x)SI0
zqZM!J7OcyEiclODCF8fW|1Mo}CdGsRP;`lfg$0aG_}tqL&iyQOytGBKB(h8!WpvTB
zdWAL?{_=19r5F++dtmz6f929|c6zgyX5#aI?b2_4`SovI`Yi>R`Afg?8-L|D{v5IT
z{^D=^)(TPe{^Fm%^cP&Uzi{a<xhNA46{=KOF*-lFw0X{06M0=9apM2{*Ut(#ai>oP
zEsXtS!l%d$A^b#yJ^*)q`R5D;k&opK0zxE>%+BOrva9*$&6cBIb@XQsAo^lt2oJ{0
zM>b(y<sa{za<$UN7@j^4KHfASTC0tjBQ&Y(p!ub&D5SJ<&bvl_o-vLq**6R&8Ohl0
zHP~LoAWq{B5Yg)0hQIMaE6(oSG#dG}^tw12qww!>8DMqeSz_(@3dm&lVhMd1GpMYM
zi==$wjUolt(lf=K0RxD3Qml<z27sb_H1o8|T9#6yx{j<xk>qY3n;#|9ATm#&%?~;~
z;uAYd2`t~A6SIk3l09_RK&~B70Y(S4gY+42`Nn<MA39t728GhKM=FcWcE!7o_0A@l
zZ^?1nlbAOOPT)3Z)k0WD%mRH?>PX}^IM0n|@HooFdO(@Jr<=VNjCdHcCSmKq?=S@q
zRWshu?hXgNa6vH-qA95TWY1?|MaHd$MNN>aE~;g-L*m>F6xe7VhwCdC?FM{S0E-61
znqUB8QNs5+vMq#BQ};*33`q=YV!Q*NC)sUc8-B7`6@|>4>5U~D$e+U>{6;PjYO^EK
zYqDhX`hK<}JAQVyv*ur1%qPV>u#yf*cms{FB|8VT8i<h50uWV-$(^f?%OUbgW_){?
z>d_T;vw`UFYq|%w9C&ui3uN(R@?sETc_(K2+O9BSj|S;Jer@|SK+;`C7S2t4t+vN!
zH@4vVcZV2&ANLgz%`@&!5&#CKHb&nZFUz>cX;tX)6ASVk+W2|<ga{j6H1UDIV`Rsk
zVaEsM?&BDBx7~TPtz3IHrvmfXayXk}{R!Y8+1TEry{C({#=Y*`qdhFw0^jP6axD*v
zz~U5){#e=c?R@sEXxT@am#3z2M#nl=v%m?m9%mqWAeyB19wEgoT#4X=p;PBTF<DyJ
z(e88P6>_9|K!Bgl-ZtUKfgMStnTi(Xwkv$<9BtyDZNeBj6h>0or=k;u6&-o#DeR<1
zc_J0nssEH4gCFyZQcQ?v`V8WJW({Wi5mLcn<=z(`TejRQz(<Anr+pq@U{#U7P->Kk
zr%INg%d~k-ZCXPORS&)JFmEjO0{K;V0q~2UPmg}Q)`$gYwl4&~A7WN)+moKyo-9Uw
zmRoLJ@Cu`6Y;EmqkBrhy*9}A?*WgEwx6MABeltTZ&b6wQxzT1cJ#aPjpgWJ=d<P<i
zk(Z7&<IOpcl&%wI$*H`A3a`8c0`VUyz>Ct~31lx_`oDiOfwQOBvNs~v&Lq}GIuvP^
z^m#tQYzzgoP}R!_36}Jl-}`5gU*Y{}euF0TU=`t&lU;9vGx<qKw)+<@{hMDdp8CwY
zi`VuJ;ZE*$PM`Gmesbx?Iarj+COoI|fBcV0Y`hTa5ozx^xQ@!^-+=kB8|t>Zp|Gv?
zz;(EG1>AtBcneWDhO!8S?{^L?HmJJ^<vp224$z6hU5qiuQYNzC7ZHD#ICzP%&k|l&
zhKI_shfkEiM5K<=YB-@fPcEBKJQv+_L7fzajT@@)qy*fDowk#idyAaxn=UuKxF>S}
zNpEjpgYe(_3`=0NAdJ)?d(wX{E@n^hVJC^auVkGb_a{>QQqz7&MwU>30rrpDkeCc|
z7he-MIcqtA_t4Y|x{9MA<loM(Nw<WopwKGOclU=q#}~4qs-wt5dm>Mc`gpl0LID8j
zypR^612Oubb2>bBkqz2*unE)Td`GkW!}d3fvAUg_T<o680_w0MyJzeP>5b3`3Ogo#
zXRq6aYQV!rZ0JdM$4k`UPZ`t{<A>5S?Z`ulKku}kX1&f3<iQMN_$hn06JU4H>)`bp
z=kBQ!18sRWqA*W7YSxim-NnYi;%;9Sa`b_v`p;_zU+f3KIzo;6^59zOStzkGH^Wt&
zW!4-8aaqhhE0tvi&kZUEU(o5p{U+ralww6i?fHHc{g7^43D_@hrWz!WAt2Yu5XU5~
zC)y;q9#7O7T{90qqsYsE=6V0*sl6r_jkZ6(;YM~3`@2t{cZmZb*z9oB;sUt?J;jP}
zhJju}&$_Kw+n-CQTJIVh2-}0jMghc7gwUsxDP5K!z&Kfj;-m0w#Z$0mPmQZgfxw*m
zETSVClJMD)yLgXIC<lF*($Au<w-;M3z?iJI=_OFh+u?EkB%!Tmjcoc=O;^)!gFYK7
z36(v~bQ1t1)7=J}{9L+77(wLccFvEV^uY}vSt4GU1@|$TkUs*1k(~lB2tDJgZ+PL6
z=+yqcGDs8Yw2j-It7kY-fiZc4;|h><%kWV~fJmpURedMA_n7_k2}i`m3w3)u@-Lq2
zDsN6*gIrUvpaiXx{J^;g%l0;+V@|*)ozC8%b@|J$FT+=CnMT$IA1BHAbI}Nd`@F$A
z^>T;8-~<T8?JdIfDf-n7l;Om64t?+WFO&5d7z%urW3(gN1wHKU7!!^ZhgBGiN6&Ru
zqtKocFo)yixiGL-k^2#^X1FmPFf^-$BT_hE6}7Kq`QZ#!C%%E=;XJc08+{7SGO&g^
z!0r^o>bw@SXivfy{e@-nOT{vHIBCCr58z~TtvuCdg30OLiYL9I(quTv&((l70;gMt
z{T(w`vJ`E{wp;PMH5r;htLL9LU3hv98>Cdu^_3(>oY=lc43aE)_U8J0Aa6hn-h(V$
zm*d;w>_O&yYJ(cI@-A`CjU#k}+GfQa4(aTDVf56^Ku&#>r7UVZKJSNnR9Ts)($NyI
z<u$n&WUX~@E&GhS<o!&#O#db3y>$`^r*P$+EaFx8frU1|9#Z{cnxcaIBR+?O6eWvo
zt{*RI)*rVCKtGIteV-0ue!?J}K6&av1i$!^!PxdqN5T0sXfT$>dW3;_Epkzefr-8L
zrO$@SqGb~fZu{S}ApwxFOO~%yfKp>Af&>`grS;Z9q&~+E$W~8#Cya+xTh6z!ElV;)
z_{qWU$1T4>og?yjSB;<x=N?irgtIr21b(*7rrt<C4#dbt@&|2n)rug(BPn0SQ4pPP
zJkTP}Zx%vl_X$}qE#mVZ3=ce)+_QKFvMv(`Y`O`Fug#6fs3URKa1O^EekqZrlZXdS
zYj=2JJ}X{p2P*+Shx33<a!Mj`=DxYXP#!LWY#*-7_`hH*=NRgrcYaq`T)c}ELhZdh
z>P5cRoM^heUVnGk9}c9#BL)M(vSm019d<3+-ThAegX{~l&@<+!(gIL2DGLM;G)-_>
zVU*7UiHHpyd~G$VcVr;3bO{3PG^gZ7<u;mVlDpysT)K_2{q|8;3fFxuhv4{=3p-(n
zVZqVl^>?J7b>@S+mKM}*Q0JXw6J+E*P>u;IMB>5&vz|4X1H_<MbM*S@4sppm8Qq~%
zmpfo=vq4&595af;^RQe3kP|N03WXaGe|>TH>_r0OvooNFHDD*!kpnjOuw3xZ)mPxy
zM5Ue0$W&60MK%yDHp1Rz1UkxWY~yLzVk<i4VQ58qwOFpAxAV;(s^WT|TnLW4A&imu
z_dtCFVjn|Q5+AbTjuiAvMcu+k4pYp9o9>!Ce)~Ddd_{NXEQ~B{7*aKzJRYpvHmS1G
zDS`fMS%VR!(=_bPWI7pz${0F1xE_vBmpNJ5im<#eahY5(k#-aDSiF*Te@}b+eSe5c
zrz{<%Qj9zqM_lFrNvX$Ckfd*?CJ7i3osW)aEJ=_MZgd#${I@h5C=_}g9nM4my>sgO
z+;m(sXNnvhmwzwq;|nd?kEG>zP7<EUNK5SU!Sr6xyxWJYAT&=xC_+TM3|9?G1I6A9
zJR3B^6LbwwrM&}$X&FX3d2ql$716w|vje;j6isH=<)ed4xT#zzx?}Q^Jk7sw%T&{D
zA``rGcM-!bE(VWwMKu^CoKsB<co8uY@y#6Pi_Xv0tTfELWcp$-&$Y!Bnji#@o0^#j
zJ)P%#k1VBRoSrOY0r)mb*s>aERYXaX>A=y^ZX;+-cSs-ziO=SkH{A{-q><B*1&&jI
zf+xVNX(Ns?X=Cy4qq{S|8@HQ678+DVW*X)bN*yW3jWH0R9h!6wJ8+RwZj6r91?4G@
zROB^nIhwuK?|s`j3GFy~9-Rz+I4~sp812PDOLOH$0wtBOMU4M8S}`mqfty#6qK7j7
zA-N9`=gs$Z)PB)DQXt8FS3FE(T+8MZ!yuHeDKJ@%H3&w2QrC^ix0RD%8XAK{`0jH}
z@Jc#9?A9cPXNAKO66c%w1_sIr>;)~>5sFbqj>7O~VO;|glI$1X6jEtXfh3a@Ge^9x
zzQSgP33ph3l%OoWTenVApG<n)X>xemSw}Mb9g6U0S0Y(x9nJ&WW~UQ+jf;_Us2)nz
zl9vf4cnM&spB??$4SnMQ#Y8_x^>xQ#yw4Cd`cH_<wM+IoLOtRQBZ@0EWxJ1-q(8lb
z<x}tUTQ8H8PAoLnYHu?+<?#J5f3{QcY`5asUjA(Mu21R$gi{<C){zzJxLaP6>^S<v
zpSVubAtHb7jt|8yda!93a=S}^>OiC+jhmrqXEa@~rL<vqlgYArAy;-p{YOF3aNS#B
zL)AJ~nBn-r`+<iM6E&wphWD|1BN5Ec&Y~xJ_@u+4njLC(-0djxhEmiWkx-B0D-+BP
zlr$O?C!*l3LiclL?eqs7rus3eC&8JBv^du(0iEy~01sD-$`(}W;Av;c=QN)qYEPic
z`4OhuQ`QtaBOG4|W=^u>Cojov#UbHGsaKss$LY*LMebZ-V<26aq1bQ;Wq7J#xtVf$
z2TycD?6v9DrC~E8VJ1?M2+uTfW>|?6CG#!_R2m;-*U%?(vFrF2%p%lhYQI3>aKzAp
zA(Dn}DyXsJXpl>$CbZ*)0Wn|jfLRar9XFdcEsGS3PVUBER_`CQhlsX_(xUL3h_jf)
zLtA`ra%l!FrrUp2TB0iDbO_~&#oUatM;6w!vO>7qt%j7GhBLi!sWxE=W%?fci43HH
zc89~7whPmp1%e9a1YBtB#PpTRC$jn+*512qHUif8dvl??R@m%Caw&`=*M%hnRNj;*
zp7-XW0ruF&JOC?O3+|U*|1m8s<RVy{QOQ`ITx9JW?aLd_+w<y-89uRav1S`2ipDNW
z6KxIpgaEXoCo1Sb?iB6k5Wrp*<^XBOn*DjFbBebz2HS0m8;A;7=VK}>3olwDs8j#B
z4*K)<OYWHI>@K)|vYU0UfYBf4Gp8+RDO7R`V~`inad$;1<_mEb-)yJ~WagW+(ezvS
ztTyOo+&E@$E_)*R4H~(*qRQH<Q#E2>ad1ljvKo%@#oM@L3lmxnrrsmBNLUS);g&7K
z)HT@O&hV<o4QCt9i_%G3VIo<AX_ACbBu@;uIT*q)iLV3yfBpre5ZoBp*ksq-f7~lv
z*j_OJ{uSDXXA7AuMg4p>REUaGu7{ZiNn@_1Vned&Dk0pF>4W%cN>?FdX@=)8Ff;Gh
zvsz9LLbYpPE=#?VS<K&DmEro#JYmW971_O`O0&0&47~+a$+s+9qK*CmcgX3JqY!zt
z(9~=?{&BznR~vg8OyOhyX8J}gE@nSIFA?wH=q{K+Q*wC@drmb1Bo~YZNx_+E$VO~x
z)K)%OAo!B869DHt=o_IxZ=kSUZ|p^{j(iUCct+?9B{Afu($9eg7%b&%iguLRM=zaO
zPsdzgOwydUDWk|>FJhLY-22ARi|co>4Wji7C@~hz9Y9w^hBN7DbB2ao!N%B-Ft!Kn
zVk{ewA9M#$Qm01cPMj8vxO+VENys@yp-<y|v|zhL^Og?HSQ97yE)q+nONCAH3G|wE
zV)U1@$1!tbfS`+{Zzid}bvvx%H-gs5n^u*ai*)%w=|=TXvbzfBlv}|c6A>%!%5!{{
z7w^aorZfpLi;iMbwn<;k$vVZ1JCtffvI00TWq0XCE#H70=K3%>PsADdSm4!QWt=Bj
zC|O{_JmML3Ad{6YAkl%6yH@C`xPT}aL0+u0EkOe6BL*vu@OsYhiQ$RdpXUqx$VL{&
zQC#ZNuq-ZKgM3b4L{k1JK!0p*3|%CfFS}$%Xr3{mS^}0wDHaKXrtHIA<QM8gy!y2B
zuxqp0`b1Z+j0S?~Kw%!s)AqqUF51V+w0(FwVFXyI>~G9GR;TTQc?cjE=%Yj`*VZ5r
znkCsKk6hf$@#5XNMT{nM<&V@3Z`4$71A<+XBsnV=98=oRO4ZyX|CCzhd~<t?O})|d
zysao^tbK$b!l}>+DI3Ujq0FnYiM0>oF9a^5eXw3Ift#HTO@2|fS_2oI6UzX2kc+4P
zM|SBL)TBzyz%`Ck^2eu)2ULkPD(5@cs<dJ~o#Pa#(yH}zzDl>0ysa9kjR1l^Zdr8X
z>C^_~oqTtV7f-h~faX1UE;(MyY8O8;Kp{ECer?BgJhCI+r01y47Dn@%ezfP2bqnTf
z7ssY0XuAvdSJd<Q*7*(aS!to!VnB9u(&LW)o81&pnq)PF^m~qqv9tRW;Vtwj^uIT^
zH<GO^Ml6%J7P3tyUPVf|Ktn>!1yNbRZk|C4@&LY$6YGi5HXIHPnJ75cW)<|z$K2Sz
zGi!J%!d0101o#{`u-jXqr!cM7n5)B&sZwSaTC&ZS<f0nalpkzmTVt)JM{xt^3=As*
zC#ab(j;Rn3OvLOdHdMcI8hA_n!nbJS?%^Z?8x<Ao<?UJEzDi8nSV<*p(L*WmjN_3=
z9b?P<Tm%^ao?#(I#omO?50{jQO?sdxhgcixk7tdX?P8H(=B)HO&u=2>xal47K5|uC
zufm35lYjIP&Mx7*)|dw}DZYi#)UC$r?N+O<&{urNDDUmSTn*1}zKzv;4c~aYC#90-
zCd+;TKrCuQ00!VsAYH~RW7=pPTziav3_nMYg%hez)#5@C*z{b0*2LZI=mE!*UHl9c
zkK&Xa%KPD><OMTKiHje}njl0rq+ay!_>ru+5EuF@C2Rc6U^-ywiz0$3bBgZP2*NpO
zT3sNU@*M(E<n{JYW}+~1!5!E-SLE@kpc6EaXBoGFmq1H$H43CqexWCA38xp8f@iii
zLLZod-*o)kW$j(_Vm8Ht&D2u-IR!cb!c@9kiW9)waq{Mg!r_HX(pyOmkA?&JR*1wD
zj8ph>vpO$VXKyKsp%-2gEMuA=&#d(E$B(s-%0>EmyDkbI?%wZ0z8ThO(S@H&`K(cR
za<C$}z^De4SyYWh$`{4=GCe43V0wS4IF++a!`{O=0`gXVx}gDY(jXCrU^O^a0J>gB
zDx)1V0#En)&wD|YRGbs>gr(s}o*`}NOCw^m`%ww>EZ{OBmt5;%%bT5pdZ~h3_P2Tq
zyLh0&dx$!hlM41044MI}&hel#><`cyv@z*Y%nL#~&(41LM}OC<<dwO5b*GY<_>caR
zeYxl#?e9O18ww|w=TEx3Pqa)&=!Sczn0}d6Snh74-u5~J!bR<s_6~f3jb#dz@D)yK
z@OcjM;)(1;9QP5e7dVewh6UX1&qliKHkb*Mu+-ek<ffr(q)@3!MF&tdw<$)?GMeQl
z8U*EJM<+I9mG@k>Wf|d>wt^2okz_6!V{OAMwJxQ>RvB=Z1z6yBY}^sC7UgAudMkoE
zSdvA7zqcqdW3Zn+K(P|2?mPyN_O6S1A@)*EQEh<RJ0M_NF}}tX_DA%;>aoex+h?K6
zquE*T^c^}W6NO<q=oZdGuf^HqI6KiMh<40Pz(=`w?uTmXLgL;tWwORYYipfke;|A+
z(+O{|1bz`p7`F#%+GL<ojI`J&F#X<G!;Ug1cZde23c(VNgcXo7P-xh+NHSI2?H?+7
z8Q(G4)P6UVWT8xajCb>W>-H31U96e;Un$f`k0rk5?jg14PcN!gXV#`?-UCk+6{jFX
zjaO#zd|$AX0R<MYxLakmbki2Qo-JlLTQ~UA<ih3RM$&I@SSbI}f6{ww2j9=qii+iB
zM?JnM*5h?2)xylKFE(MSM@aaw>wdIXEr!Qd?Z|#?#Pm{K3^X9aSq8zl$mXWpUll_A
zAw}$G8+P3ztNUXhC_G=n1u3@EiPC!V%;A&pmor}y!-LS%d|<&H@>ZX$UWBv2+^aue
z+t%8LIJ{jDo25e=i^$SKI9|av+kMkh01Dk@NC<*4q1o8OdV^-P*~(FT+}zKM%QFpd
zP`R>MXJk|HQ1C24C3=Z6K2TmU`cOoDb}iG4i;>8d9tp;i#N8pbM2w?T2$S=9^dK$7
z$T`PCkBexNLf+k`Y~*shkQRHln;k74{cScLw8rGHHV4<jj#~+ygVcX_PK_6iSrcdV
zjwS_8`LmBqb4`8=U~Q0&us{e*Bl`i4@|fT>;SMP8@msci!Q<zSQ}fUr+GwX@1|p&r
zpmU9$Ci$@sofCp>jt^Gje65*HKmsDxjjF>QUoxsgB65Pv%#6yJ8;drVr{Qh?5UF0_
zE7HB`WXaw~@z#UU2r}%S+jc4}WIh&}ao_*2W5nEgFd8N19l^q`<?m%2m<LchI$(Z(
z*fr&4#d=&Iiy_0t5XFH}8+X^23~&;9oEp&M+${P~rkPm{34y`awPgQBFIyIHu9*Lp
z3YKRg34Jm(iBv((K+W(Ep7h$@o;eMbAmY8B%rgn2F44v=2%m`pic~XrtnVWT7{JGY
z%7H?Jr9q^Uu(UUttD`#or$|_)6$^xAMLnbGQpV!ffUvyo#XDY{Q=rR5RYsWuuoV6N
z(MK6Ghy20O2V*Z~8wfk_99;eEEWD>VUKnaN9;GN?GPj0Pb5wJlR-#j7YNul)5tHM=
zJp<SyphjRVk_#b^GGT(IC@d4-IXK2rmV42-m%ybX%{VKxrkBrPX`9d7kAEtGfb($^
zgLZl{H19#X%EoZAT((0*Nk(ZKHwPG;_g?XgaPtZKjBf?$gOj;LGSnhmmT^=%Empia
zromR_Q5six{OKB3!#7_zaO27rTlZ%$k0@X<-h-1KOafAc<GPdTlvzHWa=Cofy50Mx
zJLnRI<vKaW+R;A0^jJ#Lk+LqNlk_ykBwk;tF$ew)K6IQR!`qt+*b%l<9`IILykc59
zGKqQVfo3X4aN`)$!jV<X3%jO;@gra86Vlb-_T6CS%=6d0@YQT(K^sRb=maH|1#JwW
zpduz1lub!qx;BDHtpv|%;7@=u;5ZMUed(zHO?;_eGeEO(E4DL?*~k_R7MLaQ|5^Z=
z10Xm1$_;3e7rz0u`zMtx?rM(U*jCeRO{=!C8$Y5C!(;CjeF)0$a#x=Rcf3O+?a1;o
zceM8Nlt|jeRH<w+-Oc%4ewRr4dje$;`q(30MjVsM77+(m%Gg#@P<zDjCimb3tZm^e
z8z#e^g6Lo$86SA|J;)s{wa9eT#`{yCWg7H?cBjEh36cb`{$4+816M?4Iu~Uz7NRoJ
zF%U`2pORTozMqm=&LYob{b^a7kBHG&mT657PKl8!0g!A~8k`E84tZ6!mTXd#42ZN5
zyqTP^oA*9m1IYj?B*Wds`s%&zqecynd&R;w%_ptHIHhs=+QjVh?v*B`gFP{(2v@jV
z`43Cu#Qu_1$~Rf=Z7^wP53jaQm!_&3BW7VZx23=L!+_QGTKy`O8tm1y$qJjsLf<ZC
zoA}dTJYLbb$EBILbm<@d7Al^EL6yL0Y@&%j{ROSbw-I*DY4#HbLT6MVIZAa>2{Vx_
z*^1EEyUZzJT~3iwf_c6B^bvphi$DEEh1SaiNhOsHu5GaEAz?%Y_c%tyq_x$GmFmA?
zqKK-Ievtj;-}ozWpJWexGMDovt4vbD{IxVC%*nw}#vFrB_Z^eE^^;4#f1$)MBMtfV
zF#qrG+`D%D_pjZ$G5=+jWQV!$ja0&X2H7wFDK6ER+bA59Q)AyDow-F&wGXJ^rc7rU
z!dSaD@1oe~9I{YH)~D14v8m7R-?4rtLgWn+(R{3_Xg1m_*8+$nxZ29{Q6k&C4if5F
zSQ00(KxJ{#-$Pu)a7`JEJaj(Qa2!f5hAo8bj)J4Enf(qD5T0b16*oZ}yM&6tJ059T
z)YRWYYmaw$uRs4q=kOHc>}*T;(?<X=_)()^wO}L&NCqFkf@3Y#IgvChX#ST??^1Xq
zZ4#b#TnU<Ob1uu5VR5T{*d?S;Y|}8a@Ei95+FZ?<#(_$>0E#2y=p7Gt%rr}j8BLI}
zPe|f_o*WR&;#-iVKdCM^g4V)?nAob#&b}b0N&NX2|Ky*HOzgWq{x2!QZ(imTKyW-W
zn@?h}KyH-p{`ePGvhbT)y6O_Zpx8G1oGqsSBi<L`x-c2*#&9o#>}u81%^>YeVS#(S
z%uHMmI5QbDp{SXuh0S*5EESl=5t3VRh^kZC2;Rb*<*^)vK+q(je2)m8EErh2oS=ns
zLR$CvfY3KlYM%~!%#yKCgqrck0ICERYMG4@*3~0q>91#M?YWuS&K$vP3>(aN)x1n&
z_)+QZU@+7``r1$U$9t<onzsqq#$sFQNESymG61N6I+MNGeG$&EYk?gdcbYQ{a3N@|
zXKmzz&Z*hrs1Gm3be$s@lvSP=zL)k}R(mm*^>=rNguspMbA*?peNMgyM-EX|W1Ch~
zU$M%oOyl404=t8Yn<xSu3!TeI<&v%~8YT!CgI2cJ#@##S0#ypc-kIBoB6cGZ1111E
z%swKicp4Pmg1eR#V~u)59B>CU*mICf>G+953o)D$k*gS|Cl5oKQqhn{v}EvSd$2pu
z{+y-Duba7mB$hsxO}$~+ZS({h_qgdFH%gBs<P7;>n!NL=C6`Huz?Ph@V_(PjXf_dW
z9pt0*o#{zB2K5snJ-dSHu8^0dw$pzxs+q>a#PUO$WERH6{L!D<H*23q4Y{Huk8FNC
zZ`yM{EWh4HN%-)jU6iM9E!B>jk1*LfZrJZS0~1?hSzTz{eQH{BHfA0)7LM(Kt4ECw
zRoN9Dc~@+MDjyy(og-!BkfLsR?%o$1UCnz`3mxW7IX`7UYPH>L^-Tb<#=@g#YIXc%
z8SdoCJ}b>t-=C=xzdl4Tp2A0)D1yxc%a^a5W;nMe9T(qDr!0i!+XHWNv5QjhSk>Lh
zcId;ULV{nCDj!J0=F+R>VeB}4-igqVIxI*?0g|JdNH%3xD;~;43Ov##mRoO+0I8uq
z=$Fi~yH9ZniWiHbJIW$*KdTynq5COm81ZMLbY1lTTS&UKdi=0?j+eDD__6i3WuM=C
zH9*5mXv^2zGZlmNfES&dxx8c{zCF}LVFj4kvd=i~;)1GQS(zLYj8J_8EO?B3=<(ub
z`5;Rfg?<fHELv7FTs=IphK{VEBN_q(Tz>bFtn8&QHUNUWjq=OEY)0WCm#Aj=VsRlK
zMO@)gP~8PocLCL1KzDcfbqcC6nBlIS@VmCfIcImZ`T64xyIyiMqy;<W2XTbnf5_j{
z%Drz#e9TZevpUDg+KvwPZo`eH?*A}~v8UV(*$qDo{C&o!k?XI9?kB=mHLS0`VJ2ZE
z1uY&`PNu;byCHWDuGjp&4ffFSv^t7n(9zj+#EcFY=V@R*zIMw7q9R|zGC`mU9p4#o
zn9O)^c|Mx%)3{P77}4nN%@1bcs&JDjcbO2C{chUt<;F}cXV9R)xbr@kVb%toh7|%z
z!pLAf)h@O%Q`-_FLPZ2m%*dI7LsmM%!SYRl+NPxuyiv;s$t;B#BN&M+(LDs&I1WUw
zj@z&Z98m`Z!t06-GwNqC&&uYT4WW6x4T2RFxgtXO5BedI1zb}cE@=3;O)?S!O-1uv
zM;7`fk#xlM7yzVbss2dOuUz;ZhDj#?2czuRvWO+?RGTK6MHIsh2ZLe1Z7RC-OXGVL
ziBs9@S)GA@nBPOd+4qUB!lY=9J(usuh*hf5GQ|~H60=?cwK)^_&{7n-#KqJW6_qmv
z6{JW&2!0e11O!hStkBE+=3pFklj5+u%et)p?9o(Vq=tRQj@EFkA9Ft1Gx5<B63+WK
z?p%9Fu&f}td4SnTB4F6hiZUA9rYF1=sW3bH+n3fZC>FVN=|BAQx8dTZ5rzDV|Lh+&
z6tp;sleiIiHoY(;QZfNi8J>FgqLAAbyAbqTEeT161;h2ma*%A2AOch=w7C`gyokI(
zQHqPwh1gt_1Ay;x*+NlvJdJ2!v_S<S%sFTPb(UZuyLHmt`?&w2_3G9A{&V|K!|w7*
zHurk_N|rp@u}5MX-nLlw-%f;(ce*`Dw}XfM>!04abNj~qpIo|q5ut3k884Fk|IQ<l
zy`4xRh2O6es<qoWQPWY3dRMXGuI=cml@vEht0g%dEnOjWEf4e!M6SN6T(x3@c3^b(
zmWL_4$j(WdkhWI^+QA2l<VUu_E<EWRBY8ULEbwd7qV`?u4G5)~ZFP`UoLtEsoObpl
zFzucqI0YEaLibJ^LCMeh*xM0-R2&hFAQU4bx9`ZrSsW;n@0qZ-^G*BE`+9QNMn$rL
zo8tD`J26ie<TZ%0PdoGd{do@OymE}S4-bevNSsgSG>q(|OL%z#o%ZRSn1Es>sD${|
zTW*R8NLEH1<Tp61IpN*iHtiy8VStVVA@-+P>j${GD2B+@M2^I@E(o?J%p|+_#kK4z
zzs&mn-WMP1%g6r9b$z++zijEtmVMC-?tSs49(>7zKsfB-YPx$0_v7JcenCb25vPV|
zX~-P48^~^cDs@>30*KI;N_uc4=~z$6!tdjTOZ%oBnVtRE^rWGxW}ei>|1P(xO`EZ_
zAi|-!^f~(U4f^}1&mk!xZP>HJ7ob4({^<h<E4-17Lm0dyz$XTbW|s&IDA>s!_WMZx
z<F4I9mUpNs3ktj0SwJAR=yx1DS_071#naC26OeFcuz1>QG@BcXkIjMG@WCc@@$S<$
z9?3P|eedukQtEtV8w+&}PF}?);=A+xvA(br-w+OODJjTSV<bS2;PA9|U4pvf?jaJq
ztNG_mD|O%m_3W#pZFg1=+sF$%$c+E?B%{F_s*yU(QRcyJNvsP+x3mx1DoPO^FPccS
zx&p@iJmjLl*V5NX9;vpxFxfGeuU|Ghd*3c+dteIH?C1T%eWG3io8G}tFbpTwunw73
zp7e)@q;P-H*&SkiY_fDn`_9P;u9<Tzy>GFF8sb5>*LuNiGcvaMP5MXX=gaQh^fH##
z{MO4J+4pwmXX?w%rTS96S^nKvSy)-pe~s`rJg6@;H&&YUrN;8Y>eBKWMM8<D{}3OP
zzK5FOefV2`9=Z(g8zT*eu0zf7qm6a*BB65rBup(%DSs8Z&Yy%yHI@Ke>0g5(FE>_s
zys=QPudef9b)mW5q->+Uu)emcO7Y3k0#AYR>cU1-kfe6;L4AFpQE#Z1P^aPvuU6KU
z>0qR99+k$&*Oi6l(#q00OTMt)+@S4^h2_=d<&~v+ePL;BgY}FL8jOpEm*{k(zNW@T
zpDZt|EjO8GtTggqbzx<L0;3(X_1Jgr9|Mb@OCL(FX0CY!73X)@JN+Q5&&<Y0r!SAC
zX?*qgey4r-dS-^be|z5_8dDmWqQy>sIFad*54Qe977<oxXF0+V5pM|EVOIFM1e=Le
zb<s%B$?3LKG$T~7w1J<R?jWi<bs0{nI^jYOyu!cwC}btPI{Ivr+hmJy5QqIXaRF%N
zw!44~*La#Fr;~IWqyJDwQ1q=f-6wsn0Sij(sX&jhUld3ccO^i_RKA6fA$1O&JDs5}
zr5i7f$*+M>&~9-AkeaMHe_uzt`ZW99FzDaaT;)A(Gf-9C1z=``5mw)G3V!55VUg^c
zf3cwdzwI7-33Hg9$K?JpW_le+7_Ns1Nv@nW)((yoA?7vM65#^5AHywd@WZ?5q|G8T
zGo}6Ds`;EK)<>4tz}S~CZhA<Dr2!d)S)02dktA0oH-1_S*DjG5ean0R5H$C{L6oqQ
zkK2RJR(yAL^w}m_;%i*UiXbAnE0;;$R!vb)#T7AoBT8s?@yooxoY5apDNuLG4&~{!
z0FeR^W@kS|j94oA3ELlel#x6)*-PlC|NF4@78Ym=URv|H?6+gQ%pMrkfwffU=(2p<
z2*XZP4(;p94>_3<q3NAAg|GU-WqrAv%$NJpDm;Lw+U@xFHx(K}L!tZ2wq(bM((HyE
zze*p9!cgm0JHmXl32sHd?!~2E%;7paTbS@C=qeeSg^xoHRoHEibmSH2X&Q&@fE-GW
ziif~QY=t-xVkxV+^;dIQ{t^0Na}GG{+F|<i_cM#{;7)buQaMZwlf0dcHJ6RuICnrk
zC9;*>v@ew^RwUYKdYf#vD~9cKO6}AqXNRrlk3vYAoKypgkn0$nVzkaJQC9o{7NT>7
z0F#DzbQQ!MamClOvzNd6>tEHrdhcO};5+PHapHH-8MVH;{MA=qT~5ko-*C|_;AsO1
z_%jY-FZ<a7c#P~u6#S}pQ`EHB(r%9h6AtP3P`(ouLy%TmUtPYEJ!~JS2a+QZ>Oi0F
z5yIzzEqMPV_I-bN*lFD)00K6iZXCu+xJD!%(0lpEi8Fk8XoDUphaHBS$Im!ICx@`l
z*TA;lbiTU0&3{)iPs%C&t}<?Y0b|%<)_1WE>3j;FRXN|4aF2B~+GbMfrn0fzg}4RB
z;F1(7-#&s&eSl@ml`P_ts+PaHEKZvCLZ=3!t@bHGk*_Xu#T<4{KS<VN(O|NeJSo@x
z1P0_Bb?G<~y4OgT4cE&WwjLbzPYIeheM2f4VJ`S+wqIRFrbCG8HaW3)_La^lBt|67
ziL_*Lcq~aUz}1!kieehwo%0+e-e9;Zdn%<E(dCm&T--k)prj3D7qWf}h&`tewx&&_
z$AZICA%~qHn8~hAcqz6<QrN$$_0^fr89h$5XYwyy`X7GlA+ruVzh@|an8J|4+C_nZ
z7CpslAU#AXZ(SC01;NJ0`gL8uwwx$QvJOulIijH`<9ItFj_e)EG~Tvw^siP4M->O<
zI!V}ma_Miqk#sb)<He)@d$oA9B;*X0QgJ6I%l?}r;mqq<s`GS*5lY<)KA(4XGW&K5
zlCuvoa$jZZhW0cZ+|ZPY#6ygawg*e(2cAEFzOc_jIZB&M(}^e3u06{jVagznBh}^-
zM`YGMIe{}0jc<}Cdc$^9h8%XqKfy}Z8JJ*WYH9yu$f+o3j_`%-N3tOiA_vMP{*%PA
zgYcEKtGn&v_D&ajP+6zYMI5}8tuYSYNr!ZW18z$ifgmBD41szn9cLYKJ}JM=o@MQ2
zl)DU^aeG_8o#EkA)iL%j@fr8Rq0q5AfJWAVx$_=KWb<jSBRAs(1aihY$dp4SEl!L~
z({1clUm`fIP*Hj2hxDQI&_?R)XPrX`fkcpZ0RJ=GG5K8>%;G);pSXgXTITQ~71?sz
zMBHTE@SxH(QyO-0u)-{1s9b5e_*COA#8E-ci1H+M>Z}O#)ejzOGtiaE(?D1HD^qt&
zlva+Lq!wiHdG~2|(X$k`c{cODHx?SXsPVLq$WF|n?ZBk#tiFIfh>~K#wm{@))4@r*
zkaYVHx=*sF*yDB%AwBOqve!QlbREOh&WJT!K>ePi1-M4R26#Xij2j2de?}}v(jFZ4
zciM+v{|!|n5XPt2D}R)|x||I8^6L+wf<v2-z@O@{<WqqDNJ^&*pGX_;wZFXKbO{7$
z2%)p$uJBtto)*oO#Ua3g9m=p5M6RGiU?Y$216Dfeqa_0<jN7(ng5(`~h$TcvQZJjS
z*IdHj<$1^J1pz7Eh-@vjqceT#twHG7hGeGh(OBh~if+NiAp#a}A^in-@WF70kaui#
zsW|+}i&GdGhi#Pz0$RB7q79P)yo?V{4vobra#@soicg2UB2*3zhl~@(5TTST>ntte
zXV<qh%-z0A+<A%>>X+T^c?<Tb1Wun4>?oT3BvJUlbHa5l=!FFKE|MaL#v5^%*>mCm
zb+5Y}{N8Yvtv!?BX@<Ft`{nGRnT<D^7X3-WCeG}2CIc2r@Rgn-ZgEC!4)K}oxFKY-
z-p*0zuA&JB#LaXfBsqiVQi2%=5D=c1)wK@P5DAFOfErgwOYT@ir-t%zF|1k`kajLI
zFwl=fIchSzGYdS-LEgJ%tDv3o-W=)D+Y*||4Ax>vWbbA6{tHVH(|U!e7WQK1U<?ua
zT6VAc>aq=DnWHDqC}dA9dnEF**W00)d(pV3C8JvBN{HG=)rzg$QgGM#O<Vj}J&eMJ
zfR8?~R?X0#{BeC_JgV6^2!Quh>p}N`coZoADo5hS%K-9nHl8?sV!@}wSzNsFLK3O&
zDM4#K|0Jf@5-=rWG~Ay9Q<hvc22`I5V6akQGDUD+$po-CDS>p`iWfn*%ZqJWnUS_~
zxTvi?-<B+60lC04(w+wZ7;>NZj$`Ncu)TNONB&jZDoXc7B)-Bf8C{>!rm0vl+cEh9
zxXBeKUEVKw>1h`Tieo;zel0r~G_t4BPksx}o%Z&l_D)vQLjXvrXYSM7qAbn*UNT#+
z*uYn<q++d39owyQ*0TAAt2H-BYh^w=;DO$R$8%Xtk1X7TD`-V5nu@jXzJ0g%_Fbjz
ztuHOR=h%Y0{zrOP)J(BalTh(x_V709V19{v1+iG(Yvp<f$QB<bXwE*-jU{{H3KPok
z)Mmsc+{&RGQa6&9-`*lqw?`Z?GL}pi{ZouypQ3ySgGg>bH;k%FG{J9KEn>+k@)0C`
z2wA{T%pZiW5FiH~sRfgsTKSO8qMui{Ei!fY^j-*?H@_*QhZFO??%bo=GAr81e6;*I
zDNnLm)2%UY>NsQho#eNQZ5gdWvN0AnR%whKRPte`fsxi^?de-gS|}{<*yiL$e(u2m
zwgVw1@8_||0On#37aQOiP1YAz)*L`?hpE;!97xU7wZ1Oknbv5}`A@r-Y$baIB_PnN
zls;<wER{_md|zE(t8Xl?t*$j!^<r(b#rLxfrETI(sQ<ow+Nd{C-mRe6Z`RjQ$2FSk
zYirG=CW^ylHMqLIzSdY@-dI^fRY>b|0Y_9VyhfZ%Hd)(W=LwJ7mmxFep=A6G83DLY
z9?f6?WL|`hrip}$1j)*F9mzSR&xJd+JiW?;ed<^a;UFwX+A_8{`2eX~XukDRtUHef
z-9rhbZ(9BsxTN__r2-DO@`Q7n&ZbsA#JT~BxHUf;qlY<N>xwfxP3u{0b!79Gjx;;h
z@BErO0P+@6d?sz=1{?Byk}|F*CuGjv@Zg>ZU#^iy4Lju&v@=j&Sq*iIqSZj?W|5;}
zDI*rffXLap%$pgJ#Grp|qBP~wrT^>C$0kA0?E+tT><wq$iPYqWCN#N#$mAjCr$S=F
z{U6sP5!bRjk>g!(iJ|_i#2}edq$L86IKa0px5zFawwPLK@wUabX{Z5z&K~w9Lo*w;
z3x*mPZO995|AYC;Py;2wZNvbObtbLNCW&j~VBfY$YThv8n7L+Rmj|8W)2y*nUvny_
zASywUMa~X(eH?m_0+|U+Y{{$*cRHv-EsgqaN2Dd{QC&l+ZYiLxRL2yI0A;I!Xr-uO
zfTTU-5*uXZqti!((0iH;hLPoCFi9UqC_(7VWjI*a>nt9!>Lx#4+|0hgqHsBv=A|yt
zlPpKQMkJcgCX!2~UoVas5jD>BGHHdlmee!m8Op~h3AlEXx6d;RS-1z25PL(=tme&9
zfMc*xkU-O2?dbUCkD%a_2Cisc6c#&zT-z5Nm>C2Q_d2rexZ6kdYZ6Y;1ZD%`gLOiG
z^q;F%U|L`X`~~<`D<r`B?vMVvy+?ab7i$gC`+Lr%`02v&V(>_Q6djknCo>O<KEwO1
z)0lEi0J-fXE~lN=(}kzpyR_#0hw(fVD{gMW`b<iV<Avk-O@y0R@wU*wlOl=xTd9ii
z>RW8gNu#Cb{KKizM*;p=$>B`j>NfYJg`Ubp*tD)_%z~A0bTf^IBF<?v?l)^`_BT~~
zNm9Ic(g6Q{YejYjm>U2?Kjr$u*Ov2PVdd*&wkr!?tDO5K`VH9@dSII{x&)WOnDjzQ
z3!-!ea`GT2vWd#7<YU@LTAce9_s7k`eHMM{LcBwg#7P7@XtBWluxNMM9JCS$N%H1q
zf4aEv>U4h7CU*n}xv=z_0I-&F+IeRp9T89I7j_PN_rdPRt+1plwiO_ug<E-K0`<jw
zlk)yf|Dg5DKY?_kgpyj+Ru`5xnk#TRORK95><L%Dmf&((c8SfkrDh%T#PyY>jjyxY
zA_<oT-KsVLai(_F=FMQ}p#x{uR=^WU?T8o}ef<+@Y@G5)nt7+C(qTi14>EDtO=JXy
zjT!PzoRtldCw+nqd*iqPa=FT-3Vy?J_f;>NM7_fSMr;y`_WQD+Bf$ou3X7GGtd^mG
z%iL)}3Bcekb{c39f&8H%s$!&=9RGz22Kx}Qe`&|Wt(4$a2<<$wJ|bBO(xp^WW)8z|
z{dn{MO%-$?{Z0m_;5~nJYqoI|IwnzF6VIKU?pQ`gQW$q23oEaUVOL+h`X%}joib+H
zx*UtkSXy0uy7LFHb*;tEQFRO!pFBC1dC=lkf7iu4TKw6Kdv+j<8kyInwD@9u_3`TR
z{8sw}EWEhGPi*x{)?BM!$(Cu{CpUldmBC~m$?}OMFo+%HM&#P1aY;}U_+U+04Wm<8
zs|F;}GnJ=G>!#Dv_lY4Qh~<t4x_h#n!@iQc_1zsO+jy;@TmyFc{il*Vecoe4GJ9=(
z`8D&qlIafy3i^YIg8po6e>nS~bBYkL{j#&yQY02D+q!w!@1L|Dpuy-JT$fpI>vyhX
zmzOSYE7Uq-?4zZ}|K2AGdDGqfjIVLRUte45wjNl1_tx)NIo(&=e=}SBy-Y@RgJf;L
zZnxjN%mAuJ@bQ@=D37f!`=;Z1KCI#(`IfvZ4Ef{YkS)T*k~~F^>JtXPvom(^*Dp5s
z@{AgzGkTUz@3@hEOIM^gS-vGD3sb*7I`wA?bU>8|0ac#>huz(=aM*f_a3}+(Dc}r}
zCFNT(OTINz=nR$%-|EGpjY8RJAqilTdIh*{72!Gn*$e>c04ekUr{+OjUmAQXgIR4(
z0QTOV0UMo!oohSQ1*0P!r>G761S<hyj!^<_x8K>{M|;E#8Br9r9^icNP*4Q#<p|46
zwhPo#`TpmAuekr$x&NKFi*C!J-d4t{*zAci0(Tz16#5b#sl07LXZgDpBrkv>-SQ8E
z@QK(HkQ@xnAU{jwkjk9Etr>OZkTkB`N%vdhJd9)Nq*YEQuetL@@cHSW4+g^>+#4-)
zQ;|r!niGMdQ%(1V7*wXtO6vvrU>giGS6Sv_reWhT1A-28U3T@Cf1-M_ALpj3LpNx-
zJ@=5+Oh+y`t&v(>M0bbGvW58rH?z2_iZvf4b$KG4Nj}v1O^Ezo{z)K&%Ug9ksVWKt
zCopBb%!R<Crza9yrtS}G=7W>rPzEFpxzq;`W3ngZ2%b2fLk^f+1vq2T7EqL{br^vO
zL8jQND8BO9mly^ha}P>Zc@DDM79)*I)GV{|tu(s2gLH?msnE5`HpRG?nDkLw17cZ}
zv`lS;K8`r0-RS<Hf#smiN;|}6@%b0?lfYMvd^{0!ghP-ye-@Z&qZR`nEhY>J;VCvG
zkzBP6#5Rj^d>_){y4+?D(FWMxP2}=2{zjy%KiZm}ex1Nzf_e@v%wpp}V?Fzh6OJ3s
zoKx!9Yp#cc7mJU%B$CG{Y<Ew($ERD{R*gCZuKXb@1zb+pZ{!ydM|x_49<3mBpyEnp
zPM?^s-rUDaOEvOafK1`PKqJ@PZnS0h=$YmA7lJm0TAOqr;=Z<xkncvnyAj}wwpYP~
z71wp_Ik2UPEd3&>a|4LxH;JpXy0E&s)M&0W*P4xu#_CFA!X1_O(PFjjb{WAmNCe&%
zp3!PmoIY}fYWoK!$pxJW;P3aCFWZK!(?NWMHAgaV?WW?kzz`X!-Tda~Uu*@X)|gAP
zzPM@@BCAmbV13~SyjuDXKFw49b`j|gSC~Ysr{Kx#9EJg(XTOL(!0%QL6W$}wI3mjt
zix7ZIs_QHPa;3a%UoiwU^U-|eg^|K8&;b_)P5@TKS0K_Utoc#*{r07QCvdzuW9xB;
z@tl_~{cnG+D7HM0sP&zQQH#U*9!pU{JCg;cUWg(W4<Y}_D5yXb+wx1aSlFOCGdaee
zT7dYrbt?ZxVhVqE_^^M&><xZ$>H0-%;PVE&4&@*H&zCNyM7imm(p}Ky0<30da&&{a
z{7GL@nLeQe#_M15alL`w<;Dx6Pjv$!CB*a46zx9moHm3B*5^0%!5M8ZqHB^Oo(}iS
zE;J3oTs#<QTpF(xA)2emVY8yma1>#RzOTcg0L@eq{;FlGDc(b#!WNYQ{z4fFA(=Pz
zc2Dp@4z`?$VJcUy>|V#s0-GVkL&B}x3f$rj#i~WDIQim@bq`TE_01MlCP-0g>Z07j
zJrLFL<*}m5D;fyYDIz3ECm#YkDL7?2y4RK6rSS$_G&3wJ<gm+Frg$2`hSi-w5n~n&
zIV2@Bl{(_P-d-CT#M&opWc%bPmTQ&-*ptG{!q@a8w~EQ|Yj;Q^KIg|~QuP;c4NQ1Q
z1=l>cg$9cGmrM(MN{Z~>qdR)UMcK_d*=HnLcRRuvxy{Uu6u+Mqzw=q`n5xH*zWc*}
zJQu0}i5oI2LE074WwW4&BAw>P8GT`u7}sDvKt<!X)OQLpA;*Z%?tI1oKKt(P{ipQu
z8Ia)$`ngzRSO)V_2xkgqNciaKRH!%|x9A3ekPw4-zdI$yg|yNxk}b6Ddw>($NSkY!
zYvy~i(Z!Jj0!JO3C@(*}Z60)lW3&Uc?V?D!=&L3bBIe>uo)z4W2w|lJmg-x^)Oa}@
zA`RE6S!};R0`KE!rpHNsC;eRsOFi4<hG6L00-Cr1gxHvV8pf6+vj%qBqVYy{TeIJr
zA3p}ap^n-t=8J6jxJDS@R(98|v@Ec<hs4!`8WwdS%b=qUB^7<VE$eMx(DFZH0F&-4
z*7F$@sCyLbvYe^Q%{taMXw#68SaJ|&IqCW|W6Edtdl94O_mQ^UY`Ef>)_9Yk@Fu(2
z46kOV?mmoZCA;Ov;WECAj3O2+4(C=J&d7LTjqH{in5DdySRmLkDLA4GgcP9J_LMED
z_8TYHaJk#TLO7Rk32*OS?w?$~S-(8vfhIJ>t9xAjU3=Bwl^c<Nb+gG6*S&vot=E>Q
zLd9><lApGJd1LFYy`UXGGymci?f7Z9CpnWXhYSv{cDdiE`dGEc{r>VN!+SUg%jV+y
zqaG3zQUqv+$s<U9r;w5gP;|6|Cybq=6YR{i-8s_;_FWXGL~Wq%b>HM$9ql7{GCv$y
z<<U3i?U@>O;1;>h`r5&{N*Bp7DFo=<g+_1*NEFiGgV~uGPKce2%npY;HNa>Fi?8gy
z4`y6^=Y@R%g%#1yWe3E|pq%k|Mng?{rsVZDi9g$iA@`6411{hujxA%tD)wRfsk>2i
zk9)zR(mE5>kl)}_HU03U7Uwlp>uTQOWmc_-7#OXbi7MQ+Ybr{|^4c2%FpdyHFad_3
zu;1@=l<ped&xA!((CX^S^^PA7twkRi=F}T-!GtsBaFye{S;yoi;66WoqB!fwi8KNP
zZ|04}-9>&?-CvYPAU9^KI715*RI%-Dk2qI*@_~66g<9wveQczB2lq(;OjHh=b@#xm
zxVh>W3FOgp0-R}Q%Lc<rNM)N}TBZB2Kz>$e|3y{gG-*jrrp@eB!*2eOED{Z3UMci8
zv4<8qJ8nZf18^!q-h#mXwS9)qMn9y_gs;GP%2||}m5Odbue2_it!D^MPmBPfb2D!b
znKLp%@VO&nN<s_T&nF&gf@vuKaN*aUEeWq4Ej8w9&j`=U$9iMVqJd~LNeE<?NTbr4
zO8Farm`TK~1wfjQ*!B!0kFcBc?o}LEWwRQJV8cXM3m<ALm!CTN*{L0D;v!BHh4r2d
z%fe+1ZPNhRk`h~Xzovx0A`N^Q2_|?L@{E`j8U-kzt5hBNF_yp+!Mk>5N4xuH{pZAD
zJHh|ZNnvwlaU}0Niz8i(h<xAwxYMLn0djGHo!WF#(?%5*W0@!n>JheO%)<%d{UHnE
zCxnUl+A^wkSHb1dZ=0U1cH-!q2Z>U<Zcn1;!YElm3v9zhH1VXk6-KQj5>+k4aZ9g+
z5Y`7=pq;n?MX*a5uR(*8*af>%gm@2-n{~ND-o%B(Nz`u=y4c8OA>AHYE*GOgYij{-
zsOa~RXXGT1PwqwzMoum#p=BfG?75HlU4GD|6g?fn3kIG@dH{&SZuZ^Z`-S}0U^^i2
zKe^7W;x8-gYV4+alnC!iwqL`?9b-M7%>}B;5lj$JIavvL*ug66(Vd!=eL9!F66yGC
z?%t#O+0eSG9nUS+j_DZ8(1FPH72Jbojcpu_^zQDR&l+?8>_5*%WLEh-u6sWr`HnH6
zXBVCh9)@weboeY8vke)@q;zzR2~#YcTAW!jH9sF~FwW`1lavb?lf3iUTbX5fhFX+-
z=(R?Li`U4=U8<00&gxH#H1&clzxfUvzhZ8e@&3Nsf$3`Mo$a3T4$e2^gjMrXbuCOa
z+nbO{b}7kdW|xRGLOT}n=L9}f7w3_@d$|LAICqn6a1ZPg=*{visY0LyxSgO>K+-zI
z{^I2$dIV%3vXde>0_By^$3!um5bocz-M$^eS%Fr=@Y47lr<@ZO3Q`nkCbc6u&Jo;z
zsYna7J`?l#Jj@H^qijjoPv`j~4`tAyP10ix_oib=5}FO>BErV5ivj$&Cs9$y7W#6j
zFd$b6t!iHGF{2mvuk(B7Qa0+*wUFPO$uJcO?Wt&4c-_DL5yLe)c7J#}q~ACeLWmXY
zS20-V_a2zc0C#$`M|E4k600mco8PR3@0@i@)=5H^1vqsqk#M+|*<cWZWbUE}k|r`x
z&6icv%)7t8kAAX!V7bZIE*2Ly2v6Mh$>lsQf~!QFiESGMi!Nbp1;x|Qy<@<2Dl;Ry
z((8c<`(?kW+u@<ClVw%=iaa&5v#<E%|Gjp$5)ubm{jfFhw9N&e$vtNC^>-B;ZC;WS
zcBQO3CLMz)H1ZUQQ!@!_#1%Y&c@O=%^MYde5Gks(Qbq}!K?X3MGfFsVSELV&;&WuJ
z4%m?{=M-fB{15+&`al1}zYpY0Y*uKzC4R0IE)YXL9FqJ}1S3f%?ELw#AsX&J{j}G?
zR;T#PbC&nE?_8<AeM;pgws9Y=Ti|<J5@jS@E{a7PB#gr=-Ez-(fO|Cqk~8|Tee<t)
zaP&;&^x@8DvexzoCD~5Err}}ptO)i1nRM!-)3oce0Ip|ars}R}58=uidQ8R20lWc>
z7_!XT1vvwc5ewnV8L(=4SRsThZlmk}KYMQiWa)L?_w~2Dy=Qth>>$tp0k9iDFK_7$
z9F8<t33Et*07$87Fo524zv*dBZ_}@PFawaWXgOLexm=D}m5LpCk&~1yJ9c8F>?+HS
zmrCqJapY9RaVl|~g_V@!Dl2vz@2)cQ`=9&W@B7};8!#XNiV!vZ-uLcz@44rmd$xPd
zxvJKHEA?Qkk-PqVnK>GRAzstA50jo?gp73V309z$!>Oiq*p3>yZ0YvUP<>j?F_%A)
zT0OMqCfU0+{Z{LtzYn{=gsucjDeZ`mY~X#cW=uyp%C41<*??txxx}YSU)3sHQJ6gp
z$G27XZ|__6qr8RY{neWamsf8}0W~h>I#No;3rR{w4+w}v`sPyS6dHpl|8DNp9ys=Y
zRUj~*bPj%G4PrRcaQnYL@G8R|5on*WkPe;*{bcrZ^iie&)W?HE8R|Z&z%7BB%29gJ
za>8(|{)X`Bs9bcC>dSs*`tjq|(;?WAn60i7RvdNcDtJ$0I$_ucJ^S`UCi@{E^`q*5
zt~B@%wCwkW@S<}tVIm2H5<2rFJh-83D`a6)2e)PfDmAI7vlM+)&@9XiEg|uAY+v7^
zWT;NAR53?kd&v=&c3z@(OE<D0RTCRWh){itBA4sFBE`#fWH*aQTq1cpJ}aCXNoN+v
zCqx?0U|zF~!Um}~eA33h^i{XEjsfKM;p9xVuUylF3hWIK#2Y@vrw>28*vp@ky=}ZL
z_ijp-xo*<Uo^rb0eiEV<IWZ)uNA88D^{qj3vyn-gw%_L$nrNkSJ&DXUPkW)IUvIwS
z%44{`Q%;$HI!P|NvX<=E8R0~A8+d=;%qD?&WfGcs3u5WjvL|MFERzZ%z--&pO%**+
zjuT3}Fe;-(hhsxk{=(L1gOJR%(jP6ULn`8E-K_}niHl5!SS&i}$r~*b*Vfy&wsxkL
zDWRuJsVAlG+ocK&X{3&E$rT3PctIuq3VDh$k%@3{o=tPTy74RwTgRPBV3GYwfB-g4
zA7x_5>e4&hdj}kYo7s~1L6gfKhMal#$Hj8gX9&JUi3W~tRZU9jncHWV_uES|(?B?N
z!FY(y(y^s5I(y8))MKcLUSws~xe27ZJM{u9^#1#DCaWaN9_Qr_`B=#K+~3kY#RCx_
ziT}}j*h&i3)xNNWZSJ*jD{pBz?W_3s-TeG5pE3cU9t(kd{N;u|Cze#I#^jI3?1;|W
zi{d~%_96yv`rD`6Flu~^h7m^54}@WK92~*k29(>(I55Rws1Ye#eew*WBhCCS8%Dy!
z4~}7UBn&2whhemH(<}M=7)CH#nJK)Qm<dBwT2wl8!bBf9z*;!87v4Q`FUL@^_p@Fc
zJUvrF``AanKDd)a+3D%a_tdXm@6(fXW!VsiY3s)|AXq%ps!*rA-sB;ptDc2ZJ8$d_
zu|<wE$^E)wmJrpC`Lv>=Xyy{^J-S*W)z#$wbs7cIol=qL`{-;g>K+Yaf6L$yP2WlP
z%$=SjO5i@fhQ5L4@>)Y$r;0M%)IWw;edzFyv=#li`R)}&`@ULE1B>AUXEM;ZN6nGX
zIA;yWbYS&NzfM#kDZ9>Bs?|*Zum>}w_@@s<;r1QE<b|9WsZs%Yl&q<Z;D*c(<DT@4
zm3v2)orlZ!qh}1GS8|Vr+bX<l;H6u62#859{Nj+n)baposwsG~blk7Gp@D{{eel?x
z$aQU2nX8!KUd{PftQH(*9O%j!J;IFUXu$Y)1fvaSKV@TP&?m37{Mz+)lbea_UG|Ty
zxJ}K?o%M7GOGv@3w}T@aviCLh)B9HMzzJjUFKJf(1;OqXHJxoXivKY&)iOL7Li=qq
z=h1K|n=n+V=gILmImvJDyf7=Dm*(v^RJI6-@68AXFbq#O4}R|^z3BfheU;7h7Az$1
z8}LU#gOSx3MWk4np`;5VWDpYEf<?sP2)`w^1gCoZ<b4Th?!!o3Py**E#4ETgH$s1j
zj?nPB`Ofve`yO4b5lA6JbNs#b9R;4&F}_~s!i>a3G?OhKF=K~!KCnhJU~WEK&4pnD
z$Sz@V1ff`g3Ng;ELdmcblQ?a#ZgJDfaw5XQ>SO5CN1hV-MTl<FnWZ}iOyYLCdubvu
z#ekPxoef4%q!UM*<evFN#S~guKipxNl!}KF6R3orWqNjL?k5_vpPzWT7cBG0a8mV3
z=j*_={7!?iwh6iFEiO=7aIe{6@6gsA*FRUD)$6WpdOS9)eN~9Q?6^2YLZYM_kH469
zY+~f1{uP>V#D4&)&7W9TY?$7CLs*@<psK*rx@hfL_lIA9%++b2+^0j;)P)9geergu
zd#Qc3v(7s%Hd_U;E!$65*SyUMD2wqnk@0U&>V^{{wRO49(|xU8cC8w&k>mvDi9|iQ
zkkVZ6U-I~J@6?n#u8ZxllW}ikqUlW{QCWJ6d~znady<5u`^*}wVeN+G9x~_=v`k(2
z&d>cpa~z}*Rknc$s=mIpk~lu-yDLheLbdWGv>mg4T&Z!oVhOD;^TKde?*g76FAgjH
zj$O}ZXV8_az2ee_jy4}QqcU{aj}W0!Cfk_bcT_Js1&Phr-&dcD;vnJe$%RB?g<{@$
zmP2e7s=vqQo&yXU_&K8T9R$Q{CRZzH@zF%zo+OA8><Qw|ZC&HAsl~Q?muLafXz>O6
z4(i^Xe4FqucPUeLP14(sU$~(AliU-_2%zM3a$}HxY!?tsUHA$P6aPrp2R%o_ZFhap
zkIxWOmMcl*C?x9`_Y=n=7r3qG$A4n~x%&Hio_N{9z__cG-1NbuUc$TG<qYTjClY&g
zYZG;a`8T1<{$Yj^u!|XiH7W2KuGwWiq{u*xX}Z0!d7q<dXVnrG-1F*~e#QXVG<JhV
z5-biAwA#kTXnV;u<?d?=1;7<eux3(HKEH{eG(W+faZLss4D;P5Qn*xtc86<-7WUR-
z(;)Dv7MjWKnFe}-=^oFFzjhhVFyi(d1dEG?5nlG$-4ssKorErm`VwBY_TG>k-_F$e
zEaKLOF66Hf@$#9BQmT|H%JVu`ts;iTH`^ARvb|0;Xq(MM2zDEGl9X4F;NFFe9Ep-l
zj_-8VwWQp`k@yca$$W31%snyzZq7m;$&Z+*04};V=ao!6x&z7xa`ROMlp@x<+@UMU
z)ZV<)GeOTJEvhvMx-jpw6ch-J3)Nh)1Nos7&Pyo>#mUMa>QB6qsDan6h@${)OTO^_
zBy+&X<2D;wmp%3)@FVfd7Gm@xk)jdeJ1yt9sJB{!L~QzeVpJ^6rYfb%+{&g%G;G;j
zv`p3GoO*9cF&eE`N2Md9250Z4N^|<QDZ9?;U@C0?&SG0hWp=xWRWRd7y6%vM`<-!c
zx&avJR-Ehema{dTZEH7OKpw6n`!cCIJzjO%Neb(@fP2x?^MWMh$He_xK0UxO*dJ3)
zAh{&)O}icl`b%%mCjX#+ym4jAsp=KE5Jus73qMIVaF)G=m?^FfOqlKc(lEz807He|
zZ?0I+{e0^9K|j^OM$M1Wr!L(5AOss72S;qQ59L!Au0DA_^&`#vF8kDli60!F`jIgB
z5q#<<IPB2e37H<|o{y49<c9e$_=nJ=mI860*F-!GeG|jg%d7r3<zdE~pB|%oSw%pC
zxtn~)xhNAXS2<-;Q1<a%Cy<%^>xIhvj2>X~jd^j{8|}j=J&+$f5Rkes2S&91TuenK
zef@KUCt+*~B~IM>jML*^I(Qu4O|JyDI;(Q=IbUBkyZk`R<`|f>3HfE!3afiRdTu@F
z^+;%H97HKDV#5vKX@J4<&>!*4BBe-mDS*8~`QnxRh|1yR=%~q#MZ8C{Z!xlk?djAx
z65a9+oMoU8W=NJR)UV+)<Ef7~3$>!(9;6@GHQHL%wcj}VlHa~vIqeVdJy8Iorw32$
zJtSfaFl6XtVN(bk{ykvqZF9H|!IM)|`Jrz^``IOcd7yBPC;nY_rf-w}DB7SaMN2kw
z(P;a&%Y%DV+#eZJ2b21K2+3$&Ed+VO$sDXh=z8CtY<G&VWg`f^y(r!{QqJ*zkh;$s
z!jvs1RvaI_#9$<pb!wvF;Nm39F6A>fZ@+pkcc*FD<PBb5Bl&HkgRc)qx3etegu=j1
z-MzR!<Zjk0#JyoL$g9f*qq}W9+8CRuLvV=xZ$`t~4s{7PT#4;IWk2z-U>bY1KeI6V
zY|ADGX}#xXI4%GuO&YbF<Q2S#tC--~U8k~sw$^Xyv1L#?FXwueGuj=W@O7vyvIj_9
z(u*ZkU>+sO+c<7rHV!UdQhm5iFYz0ZgyU+%<*L&Sbz;5hl9h3w4J4o91bD%K7MwDJ
za)uI~gyc@k9`lVG1asMxuh?h#A6~(Jl1stroXZvFu%V7Es4LeqxS_t^+Dejki-*oq
zUT|zscMiXTRqnE?HdGZ@Q~5ydVkhAila9r9HwhZRTt6T;54UxzG%(#}i4(mMQKA=J
z<4vx)yUj6IG$#kxL32})7S>270cH)poTUv7drj!*f90d)DJABo&N}w7KD(c4<CCjU
zmFl7hH~yvWhW>3lj<?2Gp=!x^WszqeKKmt$fD^tx{RZhr#~b427)EL@{yu3&>PNuF
zT`^pHvGapsxPAnzerRJBOztO@yFMI#KsF<sl@FQMy0J=8YU~)nR3daM@p1n-)z0+*
zH7rxt6CbImL%llL593=r))GXfAvlTF3ZqVxM0ktR6wn+~+ozeL&lbgNx<8C>aktwU
zWe(;Ze81vb%+t_oLiD&@?6@wsz1VB}Zm&tVzto$za3(Y3IEyCBetoBr5{r>mMkM(y
z?E{#428J{fqs_Lu=K=X=2`k7wN(s5g(lH`-=R7IgY4>?-Xge6YVSn^+9KPp(1F{_H
z`@krks!a|W;o;~zO%#&sv|$*2r#WO5HC_%B2mi+tW#;`^43|1vl9h2>*TFG}0zfqM
z^}dw>*$2POUboo(1<guN?Unvf{EtSreQylgg$`YPsI*O>F^&;$hNq%;nUbB;+ciBO
z7{PW^rns@&fn2w5CYeaOac6u&R@<bV6zc$)Q!!4|CS<;)$v@r*b5@lznK7J_5HsSj
z)~>mmWOAp=^rf5^J4RD|9UDNl&!MNb`^)fQAudCXY(GfPA-M;Gwe7(ht9pb`f@ia{
z%(M^Q^m|;c(IfN%p7ZCEcgAn6ZK?JUmT#|-Xy>D^@UPV#lBG)(dAs<@Vb)G7JLCIx
z)@!Kh5Y_B%eQ=AFol$mw?A5OyU?=kHr`=T4LCWJ)T)a!>VOD2fE|jcPLQb7`Nc(}X
z7e55@*c6A_h(|`^C(vj-4oW_Pp?G8z{Qy~x$3g8et;GY-xv%ZWKHkr4)U}5%6T-DV
z{)XKxl=A6St_MvjtNI!}F7^s9wdzq4?&qsfnwr{INj#|*oFv&QQfkY*trnnWeoM*Z
zto(Cw`HLPV$sucs;ij4tOuaMSTVpJ%`}V3%$ktXj+E;R=fpuKs>hY5I?R01q4Xz%v
z&lGv%C4U`+JyPkmwVC?->uc{c2p2MqcH?Ga{Ds*Goq=`I6VArxP4jTthXR8vxrj<*
zB&F*h+37>WUNhU!8Hje_H;qlnGc64TD>?jh(9#!!(tWN8;4q2gcd2%2;l;L7_N<$}
zMmG`Y17%=&_472A9+lZAS#P|eD@|QVJ}Ju?C;(<4SYzJ+&`fK0b4h+T;Pc@2&(Y>E
z96Z-W4~VWOfa(L&Y0Aksc9!q02XABKG3-9yZ1gxiyb<B8^(IkyireGnPJt(CaumVX
zh76AaF6k6m^(=~J$!oTDZnX3*LsJjDhJs69Rcd~suWNpNV^}Zl1Q2NWF=_5-L}Ph)
z5|ZkH=cW?=GeG#7jpbp@-ggZ(ME^5hOdd_Dl*Tc4q^~wL_tCZ{`=UqXHB1lNZJCKM
zImG7Z>qBTb&h{PFqtVFVj!EfK>)OAa`!=t&=vg}f*4JqGei^o%(>GN+g6*vDe#5$s
zjTFUd+;*c;+5n=;eM^7$q?ThhMsvwDKje<?hZHD06Jz%olpZZZHn^v5&55EQ9)_MB
zt_Amq)RDPW5$Soh(MflIFLfN17xV?XCOaG84V44CJ9!EWerk7_7bL{i)BDH43uM_{
zbmzS~{nQm8sr;s3wl37NGI*HZ%r#AK!Qdu*|NA50A%LDW-p6pJ_{sN+&k4eOR)FBm
zSV04x1~-P_as5*Ya_3pEC&89`-aD4o<TR$EDM`64I_`lHwt7ZCp3;_zh~vN^j^#JD
zheJ529`%Z<*(CTm^<2E1zq&>=`x}4ZAAb9n`SYvU<v2m`?eHzTPj8PJmbx$dW4;jQ
zqEao$b~wU)I2pLOtUkV5aNYtl!!E%YzuOl+J(0Wc>Gk&7&c)5mHH!0Fo$IfW4W`tT
zJLTYw4|D(1zWpWFLH(t*yKx(o(x6@T6OdN(w?W~>vj4vJ#-;JU`fJt7QKtG)ZiG?{
zP+B0o^UgD!ccw^OODakGzX0`u-TD3|NxCW~PW*{h`?YO%4HBPS$)Ahldl8`HGXFX^
z_f$_<fhl`_RrEzWhzuV_z11a;VR`(`sl+lQ+($p^(n)fB_1SgXcy&YNgeOQL-Bsj?
z((zti-@C1P+s@M4-Qr5KYSl$lS?2`8sIRq+Hl>}~J9jJ#$q$bYQ8zG*Pgr-(`AY#J
zU?D+>((ra?NLsdBslMuqL4a!6Fwu3Gz=+M#uzG$`>T+lO8fm^NaEw#gm96h8N!W0r
z9*2!qt@=q(v5AS+XEfFC{M_&ThDX8VH{NNiOuYW)BsOTZs($(~rkoN2i$Fm;!8D1O
z*X<?=oU34&nhv^Fi!4VAvr^)AQoRYX)a_HdQ(OtC^;3y1jX-W4IbK&CsU(@$ogLZm
zy(udFkPuC^^&XdXD2$4zCRdN1@$yIn%w5u+-c#<NE^IMZfDM?82LM~F;GWW<fLI=2
z2S|Fksxk)s>)9n3u2__Tf1ONmmzGEec58(Za(ms?yk8+FGnWdsn=o;gcC)M75!b2r
z#obbyBzeJKbd%8myQOD(LU^k6uyZ^XG#SA*oJ3VsYh8)Bei-+ct;p6fQcdZTRUn7$
z_4e|OHu=&&ZWj{Bt#1014UrD13VoDQBf~B2->3R%fqrtY>r&%a@(gOc?dBt3-3`Tb
zibi*RYn_BUvf7yx#XeN_Ojl7sF+;LVUndC=;29)yN#%1%?KYWQs6)?hc6Elog|mlw
zj-T)Odf{^SimuqOusO#8dZ)td6`=_vxk+^?`m7>wo2>A#2|^i_YV|eKT(xTXE_Ks|
z&&Bl8&!ZH=X0JnG>!3VIw)MpY(qpEq2)Mt+L~IUJ=SSh*&MZ?*tkH3#Uee*_2bQfn
z0iO_uY^;qtzBvwn7q7w9bVD_y19fW_y5R>%T~Gb{mLH9d9N`)~L)f3O4}V3<Aj}D~
zH!}7(u~(R#XTe_S?`3*uaBIf*Y(~AzU$Y_H(eDpq84hC}|7nb%&@Vx|vqsq(+iz~R
zhwmw^+;ec(N`;koCy2f4VF8r+5Y2t)iTy$7Dv_QD7H9QvOB6fyd9H@a!KS-}e3$K&
zB)Bz)e7iU!HKahnr7f;uN%uTf(^t6gwR@Sw@W(L$UepyuFuZ{h^(J>U82GnU_3Mxm
zMeJm<S2yT0AF5fO-mXtw*igZc?Z)&r;mGbY&-pB;r}K*O6t%xQsiN|)nzW%x2fM_o
z=jV#wdxA(EzrzEBg`;b0t9$OIA183qtCV49w!B+}>?YT3!U|E>xu$pgy#J(3cD4`q
z0$P0$;<In5B#8LXtNRB9yPLbgg=&;|UTxJk>{_9#?k@6d_qyu;LhBHeUT*`?)edDt
zR26Bhvm)9`$W+DbJ*by^fVy(|JHPnH*%(&B;_Fu~Z`X0pUU`<w@3I>@&CkN4^d7tE
z8=!v!2XDUg^lMaWXG8bC_?12S^4))p?&Z_I@||D&mE5R$+!{8j9S}I>t7r5H4ZmGy
z18>7$jtI#c*SB(@Xr>%Q8z`bFIrQ_BdF4tn>9;TI#mW8JB=gHb3JNIYXQkjdG5sJ1
zD#K+@2=;Mbm;^YPRlUCtwwqHIv;f;J{x-hpS5KkPpZe7U$zIo=W&t&At>VYIfXU(<
zxPV`F1bWZ{rl6(^=+`V=-~AR)g%>&m;pC`2x5qp_{QeqegXM`(JBn?lbSzg>efkE}
z<-gcPl>2P1-}Ue2MohO|{@vV!wP%kx^5AANw!ywWcpnY<b#MpWxUo^^f5|SNoYf~`
zoKJAsPc=ewdq8vYONrRauQF53FV%-Zc5Zq1$GJKdvUB{jF=<~DbZ1L|K16wLGbQ|m
zd=wy%5Y%<YJrZRw_r;YeaJBl>MNXi3T_F*=nGbipv$?u^ouWGwATYs73X3Te8(WC^
zO{#WG?QTu^0vN9TNX`V2!i@BXab8S-^d-K9=|n23`cHaM$NBS(`h^SpnA<r+_i7Hc
z*(y;uYN(Vu=0@}ck?SsnL7Pj*5~c%*sceu8`(k#%07u3=v!E)pdsCeJU;E<z;TMZD
zomD-&A-%AVKT<Ee4<N^dMW-V+wIL84w=b5kzZVD8@#fXn%ZHuUGvnvaFI>1l?j8n(
zs{yl%39bC74g92u8EHGKSNYHD`iEJLdJ|IDHcTpUL;FK*S=p}G8lbyA)1^$;@8{D*
zikQjqZp$N&EAoaahMq*7Vsvb>cj}yfnTui3g8a_uA@whI+PA1tx6*lwo6y_9&Gc3;
z18&zT{{o)OJ{~ymWe?0GKhtQ~&#naIN1b-x{&$*lDr2SE?!W2%?0fq709EgMjf5e{
zYe;p6t-OBpm3LZ6j#(WM4gQ80FWCnA`S>Y82bHfLWv)F-<%$2pPx-L!4w?A`E2J}K
z$L3*m4YyzU{?WI`Or8@A;SI924#C>-c0;exDFHXQ>w!sBDaq$1&0U!(0$^Bd`TBf<
zgx1|g!cbmu1T+i~^szPu>Y(_+KqrUMMnVgH_(^GGd}2Pu;SUO;Fr9xZA<D~5FENiu
zR$lBletRr=!(MY@VWW?%q_8Ew4AUd-GJ&!6yGP!4Z(r`?vd7~}7T4L=$FUTZPZ!R5
ziKB1cABoWR>FY2y21nmt$_)`q-yc#t7EL);p73?|<`J+^UvzRUzw=B6Ci2b;MXA1b
z9|=P+eS{tOq0nMn{Ag&|2Pe;re}Zx1R{ult?%^*VMm?r7k)mkiGAGlhUum)yXigg_
zSEx|b&J>SD!)waIy4&>R3^E4l0mCZV;N8gz+L%$ykyq}Xdkz&jPSL@ZYN7666LPSa
zp2}OWgFiaaDLOtOoud2WH?JM|zdDtrWF-fbD^`b<x+i-Z6q8-GI_Trq)|8V#c!ClQ
zI;-?&hp0p<bf`JYoucjvIxaz8TTTjOQjx`7BHgBFv&F3Fkd-1T!~(2w)Y~1u_3p%W
zeR6twdT#>P-X7l?`gTiy1rH~P)NJ2c*2#8KtlfFq7@@sB<)BIHpeq%P+C6K#T%D}}
zso-v>#^yuNkW(B4?cihJ;5;7!fh*0*g{y119oE6=rfTE6Kp76~6c_n(zc&XYK85X>
zi|gFBtt-o3;Qu>2?q3VkRcj_upL7%4zqO8PxUGwGV2;vs=U56WM_C+ytx&&PXLLF!
z=5E(c0?9#mW3ab&xTAbHcs8JLyk7%@Uk$G4<ob=y_Bz8_rpU{x@VvEoiL=eu9c1I@
z2cPM@Z|mw$5}~6rRgPJO)m(sro5%QsE<GMUuYY+1udWu)D)MktcL&b}Gj1;v8H1}*
z$9it%phlL0ByIV1W~PVxVK#Pe*WZ1Y3rdb9qIs*)^H!dbJa^#*9c1Iyb(iaI*Rwlc
zSwKeWKb^pv2pD!+>o*u2WZ#wzIiHk#?v8O&f5T9#&(G^c&Ol&Is^AMioEpjFll##g
z-W7f|#3>@yc&MXn2>1r%t6)OV$>l6HItR4>L38oVG{>RM?g}@)D>K<2#B9PkxF0$b
z{ctzdiOv%*#1O>ykj7Ey=9A)488R2cshdN~(LRX@pJaE)zH>;nf%$6FnS6rX6$ekm
zu^_gvqi9@HQl|P1<WGd(Wxt7do^uyi(<jr~J#6B`SyU=t3_pi(vQN##2Y6zy1Vy+y
zCWAHLC2V6hFRk2DNvBMN@m3;vCCooT2K$heXLAnaK$3}{U>o~@ne?-ueWvk=FpGyw
z!z5cqOGi@hB&f$HKKVASj(Sr=Ye=XAaiprYnw$Ok>@!xv)CGd!WGC4D#l8|u&P1M&
zt>I#b*WOQp)X~{7A5{3&rITZx5RUG`0ST($$Ii+mMujYji?=YI>Pg=Do4UY(K`uX;
z#zM@X^*d+Gi&p>!m0kM;t(}v>q35bjj~}wk!xZYo0bo8WmmjJnRerEL)sYJ#bwKEJ
zXGkY#<iu$Vp8sBvLm_Wu;#)AQk~F4XQ&^==*K~6QRv2TffjFf=$Qsuxxlr1Pd71Uk
z>!KJ}br)BG7Qlz9kaLlbPR93uA-{X)IZ*Y5@s=3t43~j2#@m;l=OFtEz7<{Gp)Q6+
zJ113HukLK^QGwU&Lxx)3THR!=37M6dxPi%f4QLsl0T#YQ0z_x??aP<i8&_A_S1#wG
zK6Fu-&HTqVX`HS#(7ZaM9vnFkdDvy4fpw+_P)?;Uc5#o8D}#4HIXgCk3$sr>m3%y3
zf9k1?3$w)0aEThAv>=hUFJD~WzTS3Zllu-PBq>~^lShSIm`PuWQK)FQ^jAk9O;+1K
zY&i=e2PZJ6KVPxB0*vIFQy=NIt6axLXl#0o`p~VD1V2L&T#u!z)05mDNP%#6t}x@e
zb9WOSc?~YXDDNwBej!C2eOa5kJ-*H5a_l#|pYA1>0oA#jECu-XNFu6Pd$zfNCC%q=
zULm9~f!(5Lc%s<wqvjQ!Pli$gmC_I_*@{HM-}qG$316@+aBzNA5d3fP$C6={RH8mk
z-qaUJ!t#kIxzO>{edjY2hHRthyPh&-8@4}#0oT<>%z^sOPksA{Sx|5N;3Pra?PSgS
zav6-5RJi>4JNBm>y!2u6GxJ>}DVcxs9|l8nGT%`AB97L#l4P!~B~(7I+&;OK#pEyU
ztnSHsYJTJw(;NazR(qjMmYn4wz6@7aT$cU!Wu*1^#j9JSJt;pk&A><-49VQg1N{+_
zHK8(9!Snfv@DS@*^3OgfO$DLqlh<56NtT8T<Ga>*&kD$s0H-?;?`-W^rST4G#uj;g
zTl%rn-cW8};)cGRrK`CV72K)moF$-LQl5~RV*`M;uC-PJ_klb^G9Nd0DMg<+%UAAD
zu6%8oV*~!DJ1@mMbblI^_AC>oy~a(h`J}<VK{8(B9Jk3;ugbmdQ7Gt=^tfd_+ijr8
zls?NmLLU1X1!;<wS0*%JcOj$(NQD2*y|v{VNTRKzjsd;D24Fkyt#vuG5Qx6UeWHYz
z2m0C`RpqmxT~erJ$Jz-CSl>|IoVos8rjS!JHK=K%ZIS^+w7OF<kCbU$IqAII%Q{>k
z#|tNMvc6QzPoVbDqCQzpXuG?$X&Os=!~ENlnsl8FsuUSjpii%x1-ecmDwV#JE|N<3
zb(P(ssXM8gOq?Gw0FW&tEU_E+wh@2QddUaWHvF<`N-3Rlxs8B+v$MOmZQ+<b(Zl<v
zcOk|rc8lv<J6yNtZc)>I{fX||lRh%@@!>6Y4{foRZ(*rmNjezxq-z3vo|yv=Wwx`U
z6DqD8)+vR{{!5RBw5gyre;~oV49Uq<a-NnyUAjg#taJpD5_eYpoq}I|>BVuK&vb5&
zUvnmfmBSiGc|=FfGJ;&yE4%g6y|06vpWLH(mo$&;IywzNpU=9B36i;pK(vzNH*Z1o
zJHWvQmq3@KRCl>$K$}+0{9CRJ*qW|+d@GZM#L<#ye20i|CI{7$*p`rqYH=!uH0?n=
zfU`QU`K#}Qj9?+UPS+D$dJFXXj^uJ&KqphgM_PHX%Z;?c)$40lCR}_<&!b&CFz<P^
zH<>RP=FWsMw=Cuat+l5<n2y%+k4Tl!kzxLkB6^;lAd4pd(DlY+-T%m~8AuaNHoFTV
z!?&j)WrQcUN4mLKPKu?N^ucKNPGgE&gLgoI2l+cc_a|1~S-CMY(Rh7r@|_h<=lqe7
zqn3#q*=Z7IL_qA0w)s^P^GP22HgdC4yDa%DZJh5-IPuLU(-yq7F?nU?@(rv54zu2A
zT)FIr?0J%PKJZv2john!=-Op?5{bT7=<34+5DPAdpm(x^2+rn~w*0V&v#zp{Q_Kjd
z*)Ri-_eJ5}_ZEdmqBu`T;8yP9Jc9FR>s^k%MK}V*W!)cuE|p;*wOS|6VsqNhaM~_`
z2zj9|hH4UuOzyhU2DcmbZ`1y5>0j<tdDeUra2HLg!IJpfM3pb2$3{$gJgpmtP*4)7
zlSDrx^$8razXe1Ja&UDqjFBTbU^WSq>-n3$iHYE?uBsbzpM4im(`^%rLFEhx(lZiO
zN;EioIla4^r`x_}+KJMRx9hg;Y?`+B^r`9il|I6w+}gPAyxeh2A59?1U{3Lv!=5C?
zu-W#3oxOov$Y)1qS<PRjtIj&Q$c7mUVz}I|VrS-@n>Us0=~HHuIP*;|mPdq>y|IV;
z<s~VQTz!mpWe-OH?{S*UB~5nXuAFFnYECO}RG(VY${f`v9b`;h=*|#XrQdn#KJ%Qm
zEby-V#0dvKrC<3~Eg_5aXIiJ<5fOVk>v#M*xtK^7O-kx2;C`^(0)Ex@bhtxd$}jR4
zXyBI20g3QnAG*)Uvbitm!nw{q+*_|w5JnL-iR`n29P4C^aCP*qOVo$76D<b}AkxwZ
zjVw@R2yL*^-4|RXhgWvm+t(qkp8Pi#JK>qHQ79?FDZ>T1!{Z~eH$cj><6bx&=S4^D
z_HM?5kJEt*5KdTlFDFAe>5u*Z%E44;99g1-oD@i(h|%dwmUcHYJ&aI3U)}w95j+e}
zju##WS$>&5iKtFtvS}R+>3bh9(mlFF1&5MW7S`{>CLK{WC7X`-df#FnI`pAb?O^y2
zR80V!syiWL8@(KaP=Q{G=RwbEOyb8U8chX@<W!L<4fAq)XDX3XIp0WXu(+xsX&sZp
zUr6M$25HMMzp9Ey*X#oEWb8!F<21l@_w_Eg)_(bh!IaCvMZ$h<9f7GL{YdMp9V%3;
zZBZ9TI>ogu0^<_MU%^P*Og&>t_r*PeTH!1@4U_8z`=2V%^z9DWvYf}BYCgEqycKMf
ztKj3R4m5S)YhQnn!W~$=n@Oo4pMhysq_CPFj8Hw-wx_h0TgDX0s3|WX)k#(4kPWL=
z=A%j!^;^ANMgF<&06zo#at|^1w9Oo#SMrT}2<5QGJw!CLaaCvfdB(2F7k<kms?=bE
zq-p|NdZwAPT46Q^cgG7uhD&;r@agStikQE_!87Q1ameq+XdLK0-Pt+j!5s>OAw7PN
zrh6Fnjyv6h*W#FSJ!~zGxwLnCuHq?u`%;YLYhRbc5Qc%)mfLaGa`=A0K9UzKe>Di)
z&@ruHEViFrr3MZFrP^b@w>woz(b+|v2^%+72xGuMsewMY`+g<oND}#AS5>N&k7ES+
zr9=ZC-w1MY8PR@xL$nyeu@^TF?re1d(I(pxZ=n+`oz1Sy-o&7h1-<R;8T*)+Gv2Vy
zOi_E1hKHmCk{Ocbq)Y_ke%59Z$)6E)zwDd9S&GlTJ&yIbhY7SpfO+E9htL#L;;x`Y
z1|zok&8Zb~+;40l$2Q5sSiX)oSurEoFqb_#F1xLkOg_`+dn8qVV~3t2Hck+D#MY_7
zNPC&EiEBg3Vlx-l;?UY_m10)2<<tMUa$;5|taI%eNgiNF4wnRNC<qjJ#9y2ysIYP@
z6GcXn^FF!gSFwAk$C=dcLM6g6zuIdh4pvDSpD-;-EmNZEVMBK&Rnf~U3t}m+tFD)p
z=T$f8ZYNuzqz|PYq>k7hXk+wHz1{h>K7`)xRj%(9%DsY<ccp&9&C}x||D)Ka->YRX
zJ@Ui2VI-uy6XttiupWy14{x#Ncz++`!AF?*3zGGCX53pF?tx>h`ka?Boc-mFW0iL(
zSF4@vDRv6}>JDo4%e79Mg22ucC8{7f8`cS<G2O!}GCEt8=*Mk}Q6|M3`LshOpYIHA
zE7`a%0gqJVsH|hB)=3`TMPK6Ty#GXmraLOsu{ZWFFQR8Aph{9?ws8O4O>v-7rIb;R
zP47b7ufAXUT#Wq6Zw*fVVcm)YZo?FLJu>pj<@EVSN9w1LS059-Ls)gy@AOXt^?t9p
z@nPuQj~V09@}=rh%{fuxCVII=#(Ew8GtO(@C$D5$^Kb|I%uL4DhYssh_3!zxiPHbQ
z9(UsD?bg$i{yfx-hSU!Hcwxzf+NJJ99aH)Yau+|w<#<XlPGjQI>g(QjiR|hRh8ymx
z*u-v0V%Tz_Vr~?q+8cz3nadY3hTK)wfEm7aWQK3E@3hQ?a%pfMER-Y_;Ayk80s`Uv
zp=)o@HJ*<imON+;nTHgazlp>2&iKSjd+VK@sV{bjfZN0;y*lYC&r|-{#S$r)DQRo7
z8Rrc38@u25&d>h}VU;d+DnqaZhT-7e#ntB$9g@(O*RD*|XGlgMYz7hiHH3S%Pu|3C
zMin{V|3sPKpvy(S8MY|iPl3NQC~Je<{?z&HUH2I<iK$+vNQ1>gk&mAk>*zVd%yC}5
z^ipE?xoUq7G-s1@^hSZlSE*->*9#YPi_^B5ujn>|b){Z2xryfdOmog`%*53pE+f~C
z{+feDo(y@5C<c+X9cbWRPTS6rJ}^7H<D`xHwE><P&o#E5`K7PJv@tmY^D~XQfj0n!
zz|@(4@-kjZKRMs6weSP?G|eXGhaNx#J?s4gLGUl9ZJSK4$$|=>{zu<)9uU`azO{$h
zzt!J*{{_iVped?n+UDT!J-hWCY)wj_t=>dqA)^DXC~TTrOK*{ToSP6@LAGRav-qj1
z8Nax>C9ou~3I^AdPj(^NY-?to5qj~|LxSqTy;si~r!8`L(tugxlnVM=<T2{{^^}-R
z$HSjepzjxa3<1KA?1xGq&S*SAM^ASHjfWCrx>|k=feaMsei*<6gZH)_hKYT;9gc~i
zji+*)A#ISGQyzw?bhGD?zi;El;!JC9e8QqmCI>hDVdp{AC9@7(c#!aw;{C8!Id!#H
zomV%VmijpCRYsj*$EQ%|XL^+P{m^L#YzYTILOcfn;D{ofc0ait;Z?!z5SGqbD|m!A
zJ;L%6KFX^J!W^poDjoKs0p}Muk1FdRA^n4Zwhlb5nXpGyvSp9_Dq#0*v?IJ)r*dbG
zM20ZE!A`)4LLoFiWY9ndDTySz>A())8`gnaXutpb!X5akAKRhqn6Gl}Ez`!Iqb<EK
zPEd5FXn@6|fG%oLC)B0_53UanxK`pQeK39Bhs9aeTXeQ-XdT~G#j8OKxNfxohUmct
zx#jWL&6A}^R3iNMeczL%!M9*|0$mBB{N^}pj!7qjMB+Eckvi}z?KY;Lz`pw<LBPNS
zkPikwi*&3$a>HlK>c#J2_;c&)R#a7@)tRlaikcm|#6r`-Bjl-&<xW?~&oJR8gPqWI
zN<@B!16yf0^V|PbwLg&d^RL45^1IM2PL2bC?4yqlZS=0|v0m+6*TY}!-M36cjAU2p
z?cr;BXzy5hUnGkxu^nfe>E@DVNF%fJS5j^Ij7{AHH{9C%6REY?YyROO-t4TBrnW{3
zH>Ry63CnQaah1oEAgBajjv>t-t|P;o?U}baWp5@nqcCw~oAHaiHlwo^XQnmiv*T~c
zWZlIZvF`G?**d%U@26gL33OAH>O`|K<0`LHB}5n2qwDaGR>7@C!&ZYfO68xYQbVG^
zC1t61EoXoC3Jsbxpp&8RGifXG?wga6PLEDv_-&SO(@cmY`;KIB;@p#Q4Omgh_YGX}
zlO7m7{3*ES&(F2&$_eGgqo)IHBf%}D7~h%a=@Nfi!mOCtJYPig@*wI5p<LM3-}y=2
zcaKsW*!qYAf@-~EOJ!YIFD{cFOjDD9mo-R&JbQ7`t&nQz3y;P>`&LIo+K*apK!HIz
z5Zz#O;~-aINrA0iSj@g&Y;+I$Gxn>1vU&iEnv;O@pwS0|B_p{aJ`M!h<jPih`f>A`
zJXp9N$|Wk<P8d)3#IR45)FCCW&$_BBnmfu}&ql7eZZUbCpQsSIxi$6m&id{K$4EMx
zvP>*H*Xp}SE^`&>bc(Afclc{n1d~|8@$oNmu_XZt=6&)phQtynGjo|*m`T1}67-~V
zt0ZO9j;iR3cm^?}HkA^R+f?f_Sw05UCYcEiv6qR{{OV=k`Ql3wXFd-AM)B6pUWeb4
zD^GL2N1J_$6lzzzr}IGPq9aJ-3rMhp<&k2;H)8O|N$Pa98h8Lh#4q_g2_mlWW>4x#
zZ+MKd9-N|<_UM%l9wakX+6dmd_d7dV`>|nn3719jD3ZjIV+b4tl5B*GQ)iOUo+%de
zVBW10!t{>P599m;%RSyd&&fX!kV^OHxkF61iX~`qKc|wLuPQE~Up;5?oHgN4so|{s
zmhk^6@pe@;d67yo&)a<*L{#uU&)Iu^#tWPOt=@38UL<JRJ1@*8m)FpH(lG4@Za2Jb
zUqdBW_RT=MS&xkWG85BHCvcgF#W>013tqv#Cij_$vD@U*0TXh*Vb7FYD<MRDm;ol0
zJ%9MzkbX@1p!fEfXV0Vt6-~F0+ML3|#G(mZ82O<SmV6oBE;rw#(LrDjEM@Y}v1SVv
zdsj7~$HDpLRoow#*+RRAN+c&7S>FAYEn5g}OcDMOme(2`b9wEZ<1g>vTK3ZJ;O{+a
zZ3Ait9ZK5Fe0Zyjuw9em%-g+joLPI4_8WNk3THTQT&r&bn+oR{(a;s<;gG$aP1RGv
zA)se{CmcB;po4JK%dv*-VVl$7!h#BMEMca94}aPwJUF?&6&-AlpS`V0rr=7<_Q;-W
zS=iKh!tTLSw%XR;VUi~6)UCC9>BuYX30nl6Dhz|u%<y3A%ph|}Waf~vC6s{uNV|v0
zrLD4g4p6m|tui}~D3u4rln}6g2SbScusIL@o-DoF>Zm*YE1%9ZTcW;ow<>y06U(sS
z7SR5cUUFPqq+oawI0hzgr@W$Lc-6-t&h79dEzY<ten7QrGD9a(i(5zbZ>aXoMQZz4
zS^pv0aj!2U)7dkM?f2(9m3O>5lUkleWN5eDL}N@5?u}-d*ty?H;dZ)j{&yS{nBzuS
z^yitiELg~&C;Hno%9G{H@;a-wPpQmPUk0C4Q2OU0OPmUQZ=65hyl^4e-{~6~3!C2w
z4ClBxe}3LP67HE<>wP^X)9UZb6kt3QnwoIubPh*4HaWS2T~{x9y&r3Z|1lZ0=l`>=
zt@jj8!-PCWjv`&x4ol9P<g5yZML!#dOLLeQMQbZKZ^T@(vl9#p>zU#{2wWdjel>+{
zKVQE?+_a4u+e#kPb2jI`0pzZs?_KILh_{|U@2(|HokjNGI39_wZ6;Q;c@6d}VdXNM
zxDtZ27P3QDJ6CtwYs+loZCCa%$vaJhkj$cPt29%4jR;@2k9|}v+d4^Z+B?$Vvhk_j
z^qz~<=_#${3U!eLnp(}tXsYa!mAewV={{%7q(2tObvod*&7zllH7)glSKuvNA$hQ!
z>%phlrU6s~MZlB^wn~O4nXz~9maKTY`dt`OeMaR)zd_-kcfavYV`bv?H@OVL7w6GW
zv}ut1W!_)=*<NZ=ONZuZZJyUQI;*OzDJXkljtH9GS-Y*EBXcF&ttc$FAJE4@S@AE5
zJK<-tYE7i5xm4o5_sw73p_bOOpSE&G6IPvR@|~x_-$0t%)9fc~$y}kM-O0gcdy`Ke
zP@^g5_%b_<GD`zhns_!?rfGPUCKYL7H7{PH#7bJ5iX0%Q6OW#5irw;_Jw<eh=oBzd
zRo484HAB2(T~{{Gu5`(Kb-wPXLESSItGTMVj89P!1n%^m-}$?I>!czn*qgZ3-lP&L
z03zzC)yCGxsh5fFt}pPSG$u**d<^`Z@$&<ZF0l34aGP$E_K~3{V=F@DY1uYLYhZ1M
zEbYLfgNknrbT~*D`w@%Lff+E)+vGRCu9mr!1t#tv#Q5f#+^)h+H><svsY3~K?dNOa
zHzWn9s2>#-*T*NWiiKKc-}d!8U8^gp0%+aqTk9*Zn@v?lRsqCp|0|aw-Ro{8?AD^}
z3ZZ>gL^KGz)XMcSq6hFr`K^I)WerHTd`-h@mRot=$2(grC0IzV1oF%&H}MQ9mQ1m>
z+wH7hbDVrg(UzQeNDCt+vrHmZzX73B`DHB$T!lBog9j>S!_DoQ5La6p!R!IP%#kx7
z5s&$__Q0i=a*@|FzT9$^U*5cFF`E?GhB)lnQ>(2_zjF(Vz%VzfJbM2Ngj=6o$UTrM
z(0K<_$>~1Qbliyyha>gb=KSKU?(bUE;SnD6dUI*t)^qj6R!`$E`+9iEA%GQ@*78!r
znE=@Cwk}3;*kafop|k&z=fz*Y^t$vCSuCzZG`AOZ`TyN_l{Q?TX;AjhVX8jkB%iM<
z?OzzDz_gp+5KMqC*DY7%)*DOn*)&nQ!SvHftnf02tuWgukr(CM6rRhOiYil51kXuW
zz`01xXB@fw)VaCGv51v@wzO?Ft0m1QXA<@rER5RTy!OItU+&q&o2%69etNRX%HyAB
zJWaE|Vt1kl6MamB7q+?}$aP3P>*+3~xjkGg_sq*An{MsANvYGFj!tA8KC-!k1~&-~
z5DA!hrnf^VNe60;91%eBci{}&F>n?zF~VRg3Af1#QW6#3rZ8@Mhw~h&aj1G_-*s+j
z;QQ7pzwKV9daEZsHm;MBY<Y@<plGRH=<VL*+ur^iOqsIN2i+!hOu2asJ;_qST(+3F
zaIXS-ZEGD4q}tw!2!BC}=J<L0BYvf=@*)uJc3#|L?(lE@-2Wtr5(gAFCXwCi6c*1o
z+`x2|<K59Q;i^}z^BU|hIl-ngsQd}tyPUITq2Ppp_X9<(fxe^IXVcTyZ>EQKsVv!{
zqA&7dqU+AWcGGADGgr=YK!%V>%c!hxPV7?Jyo;VdUD;Kq8iTDq8emnEGHgP8wm?EF
z+&!nM!k;J$1BQ25_oT{-*D`wP$}Ok*V_-){I=-ayFTNy2+dj-pYwkK|p1Pn<7q50N
z8^Bi-VXLdbKkwdHUOvhzRMfXuzJF5f1;|v@0g<Nm!3)!*YC*!@57=N%jC!fXt#!%O
z5bDSn-||+P63=D;i*MevsFHr!Xv1fj=uSoo^(G|0_|o!nPE7U+#AnAH)%vlqbzqot
z7IM-u38;Gc7HlB%J+qXNjq<G|Mt=I7rIbuG%b&Nz4mtFb$<HSX4m0P14D}|A(H_d=
zvNre|6or8>)^|n7@{v4^q(AvC&A(vX<^wVa)S$yTnyce^!Vk<>fTyL4khX!}A&4>g
zG;h$Utqo$mxiMPSgBwG=2_EawedfIdYq9&z;$T!oOOZ1)kq1zRsRI&oe4+=1^kg$P
zC^a&Hh`=H!Eea!pl21aUyhCnS+dJ%}D>M4VBVTQ7wFHBI*qX#e);F-iI%)FExNzu3
ztk;vNx+M`h)tx3!07)KF;nUW~A=HS#V{{G&qSnpcol}<%ArOI3$xyaP7FaWgS7Ehp
zeqi5xe1;=Yh9FJ|L+EmZ20#h!Y~XY*nj%w8MipTgyG^n8PV*@ElOxO%(#JRPKF9>R
zxFpl}p*75HLTf2lgbFR9LxrArOgJpNwR6PViv_nqAXP1f1u2<F(&@Q$Wb`Nh9H>v(
zbV6!I3H?y<dX7c3CY|5V4b5+!)by7jfm_fDisY=tz|d@ZC`~)SC`~a~j?#>3Jf-P(
zPiSrk5xv{7>PoxU?;;_K&pg%c6{19EgmjsQQ()=ZCIiZTS4#m0e)<T;$b~NK4CQc?
zq4*_}>O-0fob%j8Y}E#2U>nx_kd8NK4t*R^kNj#UShXqm?u3SnA*v+|F}L8Np^Wip
zqJ7Kmwtcd8=_)0V4Pr#&9Uqm3o8!=*ZB`f{!JOY~3+ju9Sx`vjLoBEnux?22<_w4Y
z#t{(+#q7JuAIjFg{epq%Mad6ktJu{KWvjT(QI(2bL1uEIpTK@7TP0_l+>?O$p=>q%
zN~(nR+iw}!iW^Lo2#~Pmr`{rKMwhxQ%Qc4^KprOCVb6|VrP^I~6O1ljlUqmE{-lL}
zysyQ%|E9LCO_}R2?@5uf4o3kc+t;=kfpTixzC>S_)3dyOXC|UJxxj6jT>I4XMwx3A
zI$cATxZ)6}gT6h&o<8uNzGug$sR{r38m~>)zsV<teWSg(N<PL1xCiUA??^+`{cu&@
zalJk}KF=>rMe+7VT_ldq{JG}canE%r%c~=(teBDopWyFOG%${WXVbs~{0B)StUZ=L
z$31v)*8lY4EI%dw`2LfL^kg!>KE2Mx%zcM%BkvUS4!^`ZWM1q(xba`$!%uv1=JHEV
zL^B`MK(~E|C&>}lAW}H6>4`|OauPjH7(6+E{X%cknd$4#y=&O~#=9PY{?m)I&s|7g
zynJ1kJMz^Wpz`{-Px97iLLcWDicdgNPUjI4ki4_#WkvZ={h9-p<h%v#(!;HzlpYk}
zE$aE6&U|0z5%~C?>*AWz;CTk|E4^nLYIcxH4(PqCPLAy%7k2gXx%|ypABE?!p4>Oe
z4qY5rP!#}G^_j~l*I@<g#-bA5_(o@c_GsAo@C*{}Ha&agsBBVv^7S=%=LZdF$8pTM
zcxUe0H~IPE?N0Z#9dhwD6W*Ht-ErR6w<zPu!ApbJzudn4MrV0%r;GEOoQW${*sWhJ
z-En3I;M#F^ds;36#wxCI46?GP(!}nXv#mX4<*aiL1y3B`5mVEt0f+hn+|_dc&oN&R
z$8>($PSP4FIFzp%Smw6PPC>Udt%TwB1DYhr;Pd5DOMqERE;&ug=1Kf+?W`gh-xs7w
zijMW)4|Z~LL3^EQCx_SBg?DfRNSz~L9ShIR%{OR5MIPE(Vf&#|wo{hj(@c)!<kWxj
zrs&O>?F+hcP6r|G8E$3YZ|+0{?m4{Gi!8e@p~GqmNdK?*vTN;pctVfFupjyt(k)px
zai|Y?({Z8=l>gDK!x^47IoP+Om1eUST|<X+haGO}ud<+Q*#z!9N<MIMrUy3(nuLIN
zQ-;f)N&WGk??;;Y@982#TpxOSTK1v1Ng9~`pD}YndH(}uhfwi6seR~H{xUgNJISuP
z_F)+PI@>W=wm?3FZU2xt4q=W21>V{sHb^%<NJ~;Vu{3_q1u(6N@982aHq!p<?6!(=
z(l6(VgTjndpA1ug5H(Q%52(d?ZEsy;*<F!5<m1X(_lCO(;zjPUep8o7p7)<J<#VND
z<+60TDK-d5cDqG#ouoyYyh7sOdH#`l#g%%ScHy8*41ZSaZhe3byAl*SEw<5YdRg~`
z9PDdLIOZjW*&e^@PRXyWnL)ypl`pP=LC*c}Tz=v$?o!<%3G`0-3{B8a>hj}Mub;Z~
z{G};le$yMbAAk1XA*DuM;^IuV5-F&<27P?6Gq@{pi$?$mTn&LmgB{^A>o;Dybnz{!
z@W1u7w_bbW)r*(j<f_RJcd739`49P`7P?v;4a9^cVfVcfHwgaA;t#^5xc>IbyLTt<
zs~_i;xW5H$S|ZeEBxesOpFs2Aamzp}Ho^8D8A%O8C3=I)*Kjy^u#P4B>^j>H=%
z>)B7c`~S4p`;)ZxkA5xqcfb4He>39#tMlil`2SNQBRu`?7$47#lw2sndM)@T@pl`)
z`_xF>nAx~h3;z4~JJ0<OCr6^z^lUBoL-DWO_bb(rGB?TERf@IXX9|Dw<bPcmiLb8j
zb!x%SmVSNg*DE8XWw<;cJhj5_DgEl1-{1kVX8Gz&vle`({P!RDPbwot-J7`Ct&RS(
z@_+N0|DZBbUM0$GW39be3;t30A3XU-XrapjHdkulPZj^%>EBlwiPpDPYvX^t^vj?5
zk$;ErHc-TC(Qj7&^w<7DdE|uRfN!mJ-m@#oYlVMZ`t_%Oj!{w9kp{c9@Vk}YQ~#^<
zv2%T^cJ^Ns|LQ|e{qyoj)Lq-Gg@2>;2Oj%-<&jDn4O*-GrP5!y|G%q@6yEE6ZXJC5
zjndyg^N09~_}kh%5&Wsj-yQq+Pk@8u^70_~zk+`g{A_h3>g+BD;r|}|X7HN;C;=G+
ze=GdW@IMC<;)CRt3&Ot~{mbY-1d{jOtp~wB3jb8}Uolm}I7s^sgFh1g(xd<OsgXis
zW`35h|55z2OaJ=hNZ4$J!9R}v&l5ji9SPf4!{Db1|Jg%-trEmLTn`)uzh3@>_xyBq
zq(U~r8dqp-uZ89Rx%_AD`MZ^%;uXej82n89S1NxGJg*Rohu~ZZgP$+{!?C|y34-^-
z@E41J{=VN`85t#%ag7i)uA$sq4TE1T{e^S?X=P+=b$xGZQ>binhw;`<82m>0Z$H5r
zmUU^atg|rwCxt(K=6_-$H@F_7vmO@zMCs2x^e36+Mq@h+{(9wq{PMq72_kw4gMU{1
zmrwoU@<?fG$F775qn|1N>?4d_k-pm1#tFm!xBM$pe+v{UayLBnM~mNn_?~akS$DP`
z2ESbRSC9UgN>Bhong-u0{nEp~gSFY!ZQ5b@e-wW8?BC(*-X_Hi!r%{=f9kP+S{Vs$
zhv$E({41w#v*@+tc4%D(T@3!?=oc%$r<QGv`)_4iqxR&;$Zs17W^1!={MoZtg5cR&
zu=eLqh0*M@8?_(^!@&Loh3VPZ*|}O6gvGF4uLW^AKGj%gEY_D=3$2B@g{8UrlG=|I
z7w6{}n+y6JKe0H!xUiJ_Z?4s7EiB9~)#qrw&{$ernzy&2#rkZ6uPuISHRtAL7YR|F
zTbP?~H5#qC#$sc>zBIeA)Mz$a^Gm$B)M_oxHCsyyY_%Xf9r3msP~GOnTUwZH&DL9U
zt@=Ezo6W}je3O=89G_a4uP+c)G}ma>`Oum(;0q0nsE^U<W~0$)0!6by@2$D|ybbmA
zd=tQ01eY$>>vIe9{9k=;w$-Q;U&AC87Z+#emKGLTOLap*wAf<!rNza@(kubKvzU?1
zh1vOqg(lId3(Z;Tb2b*{TZ;|m*qB?KuQwaKKfBPdx6cF)kEa^5b^h06-u2czqiPDL
z!+C%XOV%ii&jesHES=UXd<&cUF^*2n&n+_VxkdieTZ9Sg>51YTeKj2FPc1AhEY7#;
zO_0ITE!mK#qNQ0it(*?)LRcX>#iBCrSuG0CH#ORcC|okcg#jc1(jsuf^C${zVdB6j
zCJI^*Oex}9#E+-u`~Is1g=%zaVV1Qbig~tPp9kBv3a2L)8w;(*?EF0VtGDV)OrQ=u
z%+J=B>P^<A&f+nZC16$0i}l6%hLOqwm|Zj=qF_xwhNo!^0W`rbt2Eb~11KOp)mUn>
zAoH{HEP!Z7jmLfjK%ksi=o6xwU0h(DAVt<{5pr)qrz}6XSXye-=ONk#WXBq^5t{QX
zmC=}xz<!CxW|!C#K)SfFxG+BlP;v3pGYfS9B@(+ye+?!u*O+ZJ>kE+EQj=*cGU$8@
zdZ@PqXB;yNIs;8m3-Gi+M5{hmx86dbTXO-ZCCHqg=LDxnAUgdtn`r?`V=Q(bI}e(i
zXG^sp%h`olJ}6XLKPDuz1fk3}XbGMc*+Ig{nMr1;|IIadofXoa5n`H9532<%jk#Hn
zxMa=4)9jqN*@f2P!UAMXFSdPH`v%wmLrvQOi>`4(7*7JrJSg@5F@1Io$ZN2#*sl%N
zLMvSu^K1I#JRPxL(*Ig>^I(rY>fpN0{sox{g&JK)V++mZQd3LVT$pF|j5GpAK4UHB
zyEI4L-UU#zDEcpj+E!rkOUx0<X|jk+b#4|CU4+CIAS!4Anw?!>qeC%TR`yN<l*~hD
z^Rs{evw+oriP_oal3}?Jz;Rj6Fceb_<IpkHV!%c!>2U+v8NDwIS8mrL?Wa4nFe*gR
z`}G;4hHxDfLjP%U!3b~71>w~ooC2X6f3FlGm$$YBco3q{jH(BA!9AC>Q44%~l8v(1
zTGDpcwy%q1mY_Az+?<6V7n`j`A*V8SIxrkXV{p0o7K_)Kg?qK!es@F}(xjmM&EOS;
zml0#gH%(A$3m+O|JMkV&Z(&|rnpHdz!mC1nxiq`T67pP<g9U4ly|4(sTbx^%twZT^
zP-=Z%TwfqS17f>PXqdEzCQ=C;^I{W5Oe=||Q-Xv=8_N+BMCDfbgxCd3S6^Ur11b$e
z$0?Gv4uTnhWjrm0V>N8!h1!Sly-_s3?RFwWqlM$=N8{0kCLhoL0<X<M>F~37b!K@>
zP{dU!7HDp}o!bUggc4*w1e>gN5Qk`dLFG&oZtS_=Z%*HIj8e%E-J7^H?BIZLgQ$3-
zird6IQu+>u4z9aDsBjEcyn$=EBjNz{#($!yp_Vb|Zq=$`QEWIkH60b{{JKEmrNCZ}
zV(G7XH3~X5=~0dCeVg=AiK4FL0i8!ChWHfB3lFyVLWd#QFd2@90ln$r3V)yiC6+KV
z-nqe43eqhq02GQ}jy|A4S&b-Mx9Nug1RS3XgPU%=WMHj_ItvV$Ver1zO1tS)7(Wn(
z(-7vvm)xSEtIW*9Khfypa+qwmSoNlPP!#n6oOWE9`J9|4Ap&L$Uxk^`qV`aNz<?1)
z-PEFU&qY#*3QTQ77z)5~A+o;0$^$m-h@pU7J-4)sz$9uPO=MyiQH9ZF@TUt+@e9OD
z@4t<?X&43nHT+-ypg!FcdqN$VhUO8Nv%W<$`H(*7`|jWLzx%)a&;5}8_r^fSerW&Z
z{?MlHW=;Id*%LptbV}Jze(3CppHu@Sq5ppkKyEe2_^B^VBcG7p_4(=MBKj0s!ZdtM
zFQrdrr+F%QHI4KKlf2#gpuRZWfR*Ro8S;eg&;=P_U~C=@f;cyg0*H!JZ%)JK=zD1z
zekQ5G85deu?m+{%=olV2jVM!RgHKx13#}&eOnVu4Fh7m-q?dt#5%AER`=6t}^lSb@
z-%n8O2}zuS5jDH2dT-3`(Vo>Glti%>?M;5;Td6sX(&jXLu?ZRm{5iqvu-M?-wJ2=p
zb@s1BMj>{#Mi@E{8@LV1{!w?uFq~P^UXR&bFq{BRQ)E}3nw~=hFM>vNrlp1~g6hN3
z7`oE}i@#7uwk2jlfGF2~RJU<Ch;Q7OHQ)n{2NWah^Q9pC?LjEh=NE#1I*UAYJ6Rya
zdbM7QOJ^f7xdN(z<3wX<M5yv8C}`Czi9-R>0?~%rjrt>Xb!iF3VR6pXRi2=pprT0y
zMChS>&Mmc;8uLs6lWGwrWN2ByRzhu@L+WDnAfy*(v4$4tV-7`bmae6VVMw9PAQ&;B
zP)Jb9^s)r67D}_N+!LOX5{8b61%a*Rl#nPq1yrbv&YqgZy3(7Yg{4`HAAOW46m!(_
zo@_)#muG0OMJRFh0W1`?ge-mKbmXK#ER;&@3sX@s7C|8C#23|DqbB4?NS}Q*s!COn
z7i4wE^#@}Ww?%l-L98@2^$|tQc^lBgSTf-0abw4*X+@XS==z_R4izzIR6T1%CFR6q
zuH=)^0D6Mh_6?vcM1@3VYE3t4_lMCGmdplouKyE9+T!N6*d~3{w-Ia<TxB8!lUN9Y
z2vKE|-mL}2Gf{AhA3?!w2h?^g*0gTc3Z?tQu!~kvfs$;NVSo=wBt2WJAw|MzaCz<$
zL|n(#LTyBALYp<hLV-mMhN2drC5#DLGVmA*Z+&SV0|rGOElCdxCmM556qd>yHnVBJ
zXqm3Ph(iBK*<?Yc>3Z}T)TI{oIhO3)QlquhV(Hk+;ml2^$MK5bPsCnBGYzFwM#bP%
z6L}=cTQF7J(@smvU@B_me)cI!Jj?~QizeNiH+#Tw1=>gvq&ptEoz0^}P)4QT^b-7g
z4!ym;goTQf7AC4dW_<)fThk3#3uJ8&E?)yCWU>-^-Np`!E*;8HRdg{j?iKuQ8V_YB
zVsxle-*{jBX}$S|ZU%<pnTE7EmY69Q!*W<~y@%D)LP-FW&=Oib$b>zWp`jZhpco9G
zs!I_zH4nhbd1@~d$e+ePXA{`aMhe3=BUjIc(uP8GB!R=YriF&#DnG`MDM}v*i`H-Q
zotK=F6ohyZ_0_zJZa)Qn)2-FchW9-h&@z1dTg-3=oxKvA=q_JxZ{p3uGr3Kt)%(Me
zJC`$_$OukZ4NIHp9t9kd&JE@hyS=Xq6!%N8=aip!K`z?YXm7iSw{JNG>V3^*gpKfY
z5PmTzOkLetLBW3QkH%raf)xzwV!%S;DVdH?C)OiQot7veE=DIY$=DR^2J9K>^ms=u
zG+@h^6ts~XSel!~L4yYYiLlhfNM4xZrW&ja*fQQEUWa<IGMZ+wX$MJ;Iizco#;gRE
zT09z#;gX<}MeIIE+1yD{I0jEOm)6`|qlJ}YK*uv?ywj5z4aRrqQG7@J$A~{SD{)DY
zznPlJ786h4p?E?8dK;TYT+=y>V4;DJs1}sZNih}0NSIcqq>9=L*0*gtgeFc_>{(kY
zx4YO@j%ftp0t6bCf^*ATJ33kHtT-dZBKz!(c>Q`;ZQug3QAGV4T2-Sd_PuBc5aS)!
zj8$yaT4B^iZZgk}-#Z$XeIacc!fDe54U4zzEK^d|Ow^!M4abmR;J=Ay4=;lpZdwB~
zV$6(;X#yw1fo48C<RW-0j-4{k7nlMKNCKRJ%vX%pwniK)4P4WaY~qi}CT$Y^j`a~C
z75PxnNY?76-uC8eD4`Qob9Rl*A9bLBQyJtGPiSp$RWz31zA|17V_F+}lMP^hWGohF
ziAMw<Lmev?Fkz`+vCJ`oMex~vh;Ut}T*)z@5blz)GafnPpT0M0qnZaC;_TBlU9}e%
zgIL#UP-`IJbM_6RHz_!Cwa*6O7lPtcvJfx*eTRJ`P3-j|YzKQ?h(<TTcPn{-3uX?=
zEY?sWq|dQFs1Z_F99>0ZXKIpW2@1`Leg=+&N3dENGgN^N$k8ni#3MQ_2NB{x2oJ(}
ztsj3ESXE&z`6Hu{Z%i_T*jJgJz8d9?u%h?Il_#<ZeeT!zRpJbA#_(v&nd=F`h=Yv|
zqEn6r!Z9RhgNeus1>+C|r2w8j*EAYQ5SCbQK^5tXpBslQzZM>}T@XeiNUaj<7f$n(
z{TDGcjgb(Zmu=eQ2C~g(glXLq7AG9hKl3k`3-qG@m_0xj>bMbU$<_sPtcxjDsH;+;
zz)pnS<+>C4Y(uhyBWwYbVLD|dl?UNbi+D}28>EuL6x|302Q*l3c@LX+iUia3Cbk65
zaI69xi}-ipGq|U*V{mrjZovW9z+ptG3OqEz5&s!RrO^X{DeG}<Bx+AfCo;Z86VV~!
zC_qM=fJap8H$*jajb_9s<IjeLt2>=rYqfiVa3U;p*6n=knco(MYvz^+BQ7$poe#p>
zQmKmH3jPv0YL~T|P3?>7JyAq~2H~q9zKOn9-dg9{bHYXpTZLs}%eul?6mN0AxgHkc
zZDQHrKtUW4GbA1##d{lj3<`^mudj7(X`W%cv&E~@r6WoXpuXJ`;LwOG?3I;Tp;(Q=
zwcT2&h#!Ec5A)=3q@%&~26xtJu7y%}qqBQm12g{u6}XmnffjhELs6@Viq`mT^o(f}
zLZ_zAdsc+2R)$X%x2zgMEjaNEm;s-dU8hzzRqV;dv+G~YFy!5bImn5^t@mo-%r`<#
z5jmuUiG#__Rnv8%?d$E@7*EhYsLE0c9{GJh+ug#A7+eoyfZD7TZvHZg)b*{s)$6sG
z-5<TzUaOUH78N$GuB{^8t7lw?<`)tMHRE`jdN6`La*nAu>MY9(R4#}YX?NJ7#<2?Z
zF|jxfyKvl-7o$S=Cb23)P$9zaqz~l+>c=+Sg{6X1c?$0JptRXuU%{Z)m~nV#w{~wB
ze<q43b5;w-e;hr@R+07OIFi@dO>1U&7B<(ei>%Jgf}ULypAbZwC&kesZ3JPsdmU;8
zv@WFs^dt;-r46BK5Tm{UF+vP+se5OGHQlMj<r8IF#-MyMfTlQ!6(S-&!2!=enS8)*
zjEn0x_jFtwoV*8<VXZbEgv|mjvXe`HB#59gCR!MKqy!YjLRIJrE2oMf6wF}K*EG}8
z)iq?rj+D@1MV$l{D8ZD}sIVtuz<vpzE?2u-*SZ#c4_QsELNQ$?%X(5!LjtCBB8(O9
zE4w3%sPk3}aaxLEjDn1iqI=ht*E=&^xiav=&dFf{PZ0mXmUC)ybek<9LXD@14b?9}
zvD@VeN!CHQTwC2lo)lPQx|9cdYk5sZM=@;kpmHt>_cpXJg>V}ZJ@whJcxPjqGWAlE
zf@pV3x-~1Y+g`qI+%P8ciDir8sIa3d`D`5|+#XwNr#szQ@4`nqJJT!^@7Z2wm<NL3
z$soSPfpD!j@nd1EqFSuSX{cA5t~44LX-f!(U^a-WL74#I^)}U%G`Cn=k62-S4kMBu
z#LEf=1=TW#xHJMkJE=X3Huu0Q=KYYj6_oNYWbwuN!mg~0LLBS#SIk--`Ec}13;{Hv
zN+S?c{QQ>#86#Q}HwC;NICEj_an!zn(^T6~`|DH?oDGYLt>a7a-e+JmEM2jDHsrW}
zr52UwWVbEG62<Rz=pwxL%VB(n5=dHKn2k*)ibP4w%CQ^qhvgf*SqejiIcNo>jBDEA
zI<}IgPq=d}MjO^9sTOLHTO+)$&?|77Cn$Ex7fdVhC`-+9TN<9{2sxst5Im_AM>j-|
zELOD18uLn6>a=gHY`q7FSR)Zf;Ibpbf*29_Moh$eR~>!vD{uj54A)nqa2+I-A@AMY
zt<9@jw`(ZLj}+sTHpn>l*b97AouAs7$6mO<7;Qpk=N?+(p{<D?j<6a$dQ59sdgALL
z0UQX4m0EGMVGCNDFil1>tl<!6#wX`3<RhVRL8I%n!kO6+-~MFj)Ws;`_JvyImA?ix
zYPizai)^w@%zWI{lvRY3@L^OG(Xhfz5N$9Ll}erM?i!)wtln2jg;gR(+O<klEERFZ
zUtMX}sweBE!j|d))`HVNQj)I)1EEytuC3BCLIp4GwBLVU!l-ysUUe2OF36S7TFUHT
z(OD`Z$rGhf7P|`=PeLE-9g#oE#<J0F!OA2V-zn@6P{GP0%j4_%6u_lJmIh*qBkado
z46TK*fT;XH2+zM!s}}K^uTcoLRzCUJVtlpTW!T!esHSRU8wp~g;+VD}5+XhcW=v{E
z5tmRHb_;8_K#jPxQE2tSu%Kctng)pKD2|5Vp{ObkBFq<f>*pW}Mu!nam2DhLtG2j$
zfi<!Bw%CgN90XhX!x>wrb^`ss=t`T^M$bMS5_my{r&@5|kA?*bD!PH9Sk+a;{7YK>
z;>kFI*=W0#PE23#Nbs$892<;FrI^?Y+)F`Fi>KdT+ot`ag?Ll4fZbgPm}#NJjCX`V
z=R<%y67*TC0HlonQJ5p^$>J5vu8$CvA__52tz>*E4q<?-Rs<;lSgm@t04~a-`~a^j
zRZkad1i4^c*xf$0;)#V~sk4&UcO}55W|1&hWbcB(60?>wqBQncA!JF4wHIu}kfz0*
z4k51q4GSx=w`8yY8mCu)a5gSKT0GHbKR$k?SXJR56Pdz16c17%H7Q&>8X3xoh_GVD
zNMGRO?xEY;raOgWvr*w1S_bHiDur+d-w3J#IAxw;8KFw<lrSHGQXU1-*(mN(rc0gD
zT)qWhV+l)9p&;Q?s680RTU0A#Az)x+8<@|n5Uc)Etz1M(8HJy$-H*y5K6&P`qIAh1
zD1^5eR8X&N?%_2lvO|dsQ>0e8dQXgc3f-N$7{}m5ibyyK$1y;sej3d~EEXAp0CLQ>
z5S!p)VucWOrEq#Oie(K8Fjm^chDJsLG85@*g`&tMD(NZIVGi>1C!V;C_9nx<R{2)&
zZ<YG-Kl(t)$Rs>jD0H{Q`B~!7X}V*dDO5W<%j>ZF_gE3SE=lJzT{#N3*I`3q6a0d&
z$pLPAka<?w-O`7P0{=GaTAe^n?;t3lS{SpoG7whD&Gc;SGeJ0qek0wau=H!Ne5yw7
z)ruv~_JsM-pm1lIg{>7%K0bm<{n^sk=f!{H=f4YSCVZk=y3ZK!nG0gTGAzRx9BxHa
zhX(kqoC$E^uI=JXV)S_DJ#i>(0lH)V1h5JLD6xvBBRwdRUKm%;L@?5A*iKkHQI;Mb
zLEjNoymVq07Ou5PJLT}NjE=uqJ9m2WK{f{T{+ZePrJ7Ubx)wh4449J8X432JJDn9v
z$pWXaLrFI9ROqZ&mm=4-4LSf6w9K|S3}d(p)K-3k?O`2)NK{hBL-<Rsg_SzAEw0CR
zq=ty|r1;;CtdaW~VWCSoL9DLgC}08+9Yh4l+4e}NPa2f7rcg(r7}ghZ)gYrd=L!^3
zBU~UHd#E&u_M|e39j8M{&^fIRZAGXJQJo}CkY-Sa+@=yUtW&wY?g~X}a_n!UEGGvg
z7Arb2D}D*5FUc8D94&>{%tuld7Y(arJq<@o(W*I{$`yMYmE!Ju(k-PLXsgi~C&<LL
z)y5buhMLxDg>$ViR!k*Y9CWE>qwLqBgv539=KI&pn})W?mhRS0$72r_%}N`4<VzK}
zxvaEvPfPz@R<8w-)`RaBN=fl!IL+w-^Do5@6tQ;W6HgY3$s|vg&pwXMir9PVp9e*_
zE>Q;#wS_WDJN$XHTrEZ@ju>qBu|(}vh=e)B-g;tU60_I^VVh~j)ff%%z94+25GsOn
z=I1$BfRuQr82eqoqQ@~7s(8g2)KYK&M=I+nmXC(I80l;soE5e)kLX8hfR#j(sKbVa
zgkbw@0tUtyK+K66;WVq5CKgE$CyF%;PioXgTQbfpV&v;8XySxkT=ZT{#T&J=K{#$c
z@8F4V^NRr1hC{R#;Sa@SXOaZk>z&&DLHJl0iRywUE`;Hx#4xf?W*9K+NgJv@P=L8Q
zokwt;uw0-UNz|v1aaR8RuzVJ5*&j15&*F4C6_&?GS*-`2_&dS$sOa*6#$Sx;VTdLf
z&i#K(T*0bhtImH}3Rrg$H#kwvX8RPf4`3SsKm}L`EG))KfHOO;oP+q`3wqiy{V5`p
z7d}xz{E~0tUN=sFOH{Y!)vCyO1t^Td*E%%_bjGyD=KlhMMEW|@#Dy#W2rE@O8K4xS
z0z>HH_tnSY7NoeS;~-pdh)rAvxC5}QFr|Vb!V_zTCIx7or79FkLA>6U$SYtuvD;a`
z(urbmYsG*<lP*EUt7g2&wJ1h|=fiBrLiOH~83l0}gBo7NkAzByp5yYv(x5PWf_UR<
z2MU05#Kf}#1S=&InP~;_rfIcss=~5z>uT)UP>vD~A+fwx(Nzl-HuBaE#6Qa3>q>fx
zoyik&ItU*$CKi3>F|AT8`D2ncD4u2)nOgj05WWz^RKLWI`qEDm8V9Q@odj9P703<^
zm5^cdpfbG?&vFt^4O|msg%3{$;V$FC*2;UxoE52%;@sw^fpN)9L^h3wal;%*i{FMi
zAPsah49@q2Up~ZzJN6OBKoH-S(3i0pk<L_Gq$_65nF^Zl-XD^n!OdaYha@Q&FSsgP
zU&D$Af5=ez1Ec`T7qwD5fvjNZtGIKGO&3l~#i1-Pm<wylYJg%~C(FE!p7C%wT%N5J
zA8nMiK$Y4<rm$4cIKj_!67@2Ij7Kq&3RH5JcjErX@MPG<aKb!{0Y3O_7=6*b_m#hh
z)Zg4n+CrtdwsH+gT7d-MgxAI)o}!bZ_ag&QRqw4ALa<RLIymgWx<)5P@DqSC(S6~b
z&!f4(`70Mi{&J{=+iZi%kBa<-1pBr48M$4xEA3ZFAm?7TU-cDsmi}4^ifxPLHX_6r
zm2Dh8P^`GjOiH)b!q5CMnj`%<=!KHIwNr)aeK^I40j~uQVitErc?c`h6T=Dy$t}7O
zH55ASU3b!jj9{}vrRZ#^=yAEk$=D{A&6CwqC(%((p885n!T2lEC<_n&414lDykt}O
zG&Ys`23|^We7&=dF;IOhj$~F;ae=eTWnG`V58EEATJc2TI>vDk#*R*mH;Aq5jJr~m
zGh?;=1LDHFxbOgJ2O2te_Op+MA;|*4<DZu)E+!10XR#q}n-7%3R@&^a0MW^Uld<yE
z+uqyKg!u%(!b9ldwBp2kFP<)&j1rTvN~q%G592J^s6F!NY!lzaI{RY&R}h4Z96zhA
z6UI-)Wg_iak!vin$P8Z`n+>lF#)H%|v?1LED4LdDicd8zi&Rg?r3YjA7lO~s1tlrf
z=2#V=8<L?Yw5e}K0vV<Pn-WQMV9dqQI9iear%;aFv1nAV^1Z@INqij;LX&m8Lc{xl
z;Bib@_TiIX3IGy2p1o4e!ro3iGFnoN1DPCPCl>R98#5)8BBm3UleAvG!LJH-lOy9-
zF*5}DR1m&}s&3ply!;Ddbt0;$Fd}IcgimRAM3cJ-{ZDFlxa|Pqice~Hm`nwGF@6>t
zZ}IzZn`?Yviz9{Fwa0_-l|neh3FT{l9M7H&r5{5;)*(FV5;Q(};<G<0aT~q-hk1s?
z(ixVSQ5f~|5rdjS(d9sh90D8@*Y~a_svz7B`og>TNQ@j9eQY8qtZ!WveV%@V^^+c0
zJyWQyswW@rnD0-Y)91i_N9WCA4O?>VKOYv?SGri1wctx%bh-hA81Jm;2~4P91((4(
zAVaiKRnlA95gsHR7=YE-D`&7<obg6uEH%Rjo7&69zNME-M?!FjpF%dMGjL$+n!Rml
z#)VLRKjes_G=zo{g_f}wMSIYwoFYcEdJhq3C)uYa-NHOFf}gsoS+#4YYv<4z)>)?e
z*qhKdV2EVsIt~~?LxWK)y1?vxIJ)!`*#?}32;>URJdO=WX3_k@@*0kjtJ1=PVgo^g
z%_Kt&d_;(PLkp}!dL~^KuWvJ98>UqK(LGhVnZ^#W-^%E8?VaW8j3Ovj&5a|6eM#!5
zxMBHRjPG3zH=NM07-S%lIEc5TfTK<@FU<%34*_rpn{EoW#nv_6ikOI_C~-k(5UgXB
zmvOf4?r!7H!pVAPyR&0nlH%!yD(F5af}^s?G-E8X(Gie^JLg56%qf<mdg;${vf02;
z!6I_;wd~~pDgcn$3cjZ0oDHG_116V9k9fXC54Mk3R8BGCc^`ODShkO>PEcH_H}qKA
zaon^9VpvI2CLtr1nL%FHFh9<G#dvLr4p%o}p?IZ(;`;g?N~=^C9Tb-F+OWL?g1O`N
zYR3%c7)Oho0mb5Ixo}4-gM>d5mN2_a3xo1RC#6!Q5J}XB)iWmH*$?I;V<SZoH5%k|
zlfor&!&ylvbBRzJ-Z2sFbPwb#FM*@diMZhM)r79Zb)a9BfrMpHsD_1=4(6ryMhPin
zV89g0XR%<-Sd5^5SbV8?qEK*2Xv6>_h?a5629L#+u2QO;A@KzM5Z!hwl;h+_OGm76
zxF^Mw@uNg<;<pe?GNN{4A>@Bjjmi&|;tpI@KU8pOYl*=Lr$h9HRkcw=m7W6$Z4~s+
zqgMz^m3xFW*dLbk)-sfS>QP0i?ArN)W7_fQ&m!-M#jceKWUqjyGnLc#pun5|<^HGS
z1i}o#FRg>7NFErD6~n?QlqB}1Gzj=-fuj<wY4sU*>W+J$vnoAa?zaa@Cq7rif^4JE
zVWK?!$AXgfzQl$7jX2t2y_vA{7eRJ~L}5ho7f{BSzs`TI33bI#em2}k+LdUN1@v_1
zk}rTSy5SU4zO)mko+^l=-}@s`G0{Mb>DdJxkaH15Z4GrHE*9Zrq@}@>mQXUK4nkEm
zim;PfCSRT0t;GG)>$SDp@+@rc;<|;fo&xdfx1fH=(ByV7HZE^Inp21ykE7YzIlvcp
z8oeioy4}6ngJJxLOsNMSd+u?hGpqRIlJE~t<eib|Cqb@ar|<xa>LSE1vxldRU|K#F
z6<^>)`$nzurQb(9{S6DK8hcHA&e~$DpZU5iK=DKz&WKj<@!oWQK$h65Wjln?^bG`T
z^}K@kh}($G+PXhceiXtg;US?L^A?(E4EvhC!T0I~Ym12|=Bh@$ZJVqVu9)c?e1Ipo
zM)E`{1fL&@-f%BGaH;6s_dyx#bUH9?(X=uNv9Y8D>QEytjbZ?M=Xm*%A}6(Mk0OGE
zR1k4%ob5K%f=<vlfkhg#hL61~Yn-3SD1kDCOW2$=0K(9q1ddrO9*uD*Bx35)2o!#*
zeDcx2Soq_=L?b(1KqHxE2d%U@;%)pt0S*&MQkl7{du@?93=Q<w?v2nLOazED@#Bl%
zi|EXfWAC^_zZe!H%bw*xFN1r+vn1}$eZ|BbHrjo0MR|_w7lsTToY65q(iq0D>kbh%
zSEUS|e9#@xLVlbOn&>VT-ECD`n*v&1d*_A-OM4WW=4>i~jH3ZiE2O}5OJi6+?qDIT
zKE!!9+v6m_gEmMpToc|3Au$PJ(eUsvk{FCCrwXO3cbrTNiuZ)!4S4~W)rJoLO&dQ^
zsufP*Yn8KZi+H)!Yut`iE1g}qCnl<aeoM9cERu@X<o%#?<R?3*a@t%*VU4KK8@2o5
z6HmldUf<nXM%`xlKlf&(e65pM5fDM8tf1N5E!@X^!x41#Cyjy0H-qY~?zI@45@Jkk
z*3OJye4IT71B;*fC0KuZ#k4A<I4j5=hG!%mv(Z=n8hFQc4bD!-MIF(zF>NjIi<~Ww
zKf*&7s{8O`U!RLhF1!ne%o6^UB$n|BBzC3Hfy?3qyYxHYa|USnzTaLx(Vc1#ell}=
zasJ);77X-r3P9MzZ7U`s<Kx6<;iZsM$d(o()PHPg&|GrI**DQcqQI~F$&-sCEI{L-
zx4Td+O8Ia9jb{QmRUl^hkmV<3BaA-ur;s=^8_Hd|=Q;KSe;s?c7l)f#oS6A9+?Kij
zc?I4`XlVlx?<ZrFUgC}B3~13?4SBtu(p%-HzePKo&SQ`CyoHwDQXh~o+KP7Js{3mk
z0?3-m$x;u+`~F+HWQb8hGf5#58faR6#jIZTj(NMRX%Hf6ae9LrlRh+!QQ<H`#d<i)
z8v7hfqQh7ESgW0`p1wCKaP~us$^$b-uO};`1afj3YJSNx4IGQ>)KD>3Z51VtLnBOi
zUJk2MF`^R&5yt1DNUoN`eUFLta`*z%A_E%aa88WsLfFnYM=dCKpS^;QP0j>di*Nya
zSphN5(e<m>pdn0O4$|<Z$K^7vt9I@D=;$jt(czRVc>QvOI~!jO-dm*n*gaoJHtz#J
z5*BW+ZO9MGDsT#=GF)yMk~kxYR$lACwqF(Qg4(}f{$j|Fz+g<7iA&-yNlXr>i&$Uc
zQ&_jagMxw1%+gA4=;Ei9XF~pE&=QoGtcC5M=Q{{XwR?-=d$luxB($>FL?;;C8WR4&
zN*k3pt3!)fd?b>eh7_!T6C@<B=n0iZL{_}Py&^Z*;>1SaWrVtnor`3^BTyP!$EByN
zC<sSX8CHIZ%{H@P!N2iS#n1%-TR^?YUgCjML30*4=$J)kLxvR88gFsZte(wvgZ#pg
zhz1shqXS2HG$}|S<)9)g6&0z0f*xbNGQ#O+&C*a<mhqaxw}NkjQfI15#-faX;{r8#
zP*h?0X6r<p_OPD|1!jtTt^F*Rn1T9Z_78uUu0;b0{9T|WY)1h><WA|#2c-+#mJr5f
z?nOn%5s*zd{gQZ6%@9036Gj99i2#4%Z;yqQ^<A7jcJ|5;=C%i+3bZ*}K8e*O%slY4
zO#>Y`Ebne{wk}O5IC-zEJ9v=cF+3f>qcB1BEsWoE!4BjWuzt)BvQR?<ISNX564?|f
z`avfQ3M>(`5I5;s1a(O4$R-+V6r7l8Y~~Xo<XvaZ>h%ulFaZU2wB=m`BDUhVJ=BWx
zje(;!o3I>Wo8cxYRPhbT&tSpmx7I}9pav+^QpeCG@exd}>bbC_=s1ZxPG`{5R&*k(
z>6Ax_sY2wjsUBb{@!Oa^iS@Gyzad0Q=%C-KJR;87qhTz%iNB!^PDR7~zPbBe$Jvw4
z$%8jC@Unzap>LhW!{)cVXHs()bHl>x)XtuK_@Sui7x9rxEVx}m$2)NL_d7fGb`pG!
za|A#+&<TsX?K|rjX5oE{>ID};9ADkqg5v;%>=rR;CLvFKS%Cr_1&u`V2|<5FymS8c
zGz}!m!qssB2QT$fc51=%|0~Q^#WU2)h6E)?_^`$?+|d$a51n~*s!$QTZ98jV_Gg1i
za{5&jF{8G?3r%MofrXz4?+FS{mY+Q}`>2^JEa~It*;wM^XRGHP3W#Og!<3C4`E81P
zK%C3!5OCp&@s=ROGvql(kp?bO1Q2B<#UUp+oMjfOxbvC+qdyXsIQ`q&Mta(kp>LcE
zBaMxxvQ~T?XUy&vuKKSBM6^LZVohkbFnIau$~Ybfi^LI8A?kpQbf$RXUL5e0y{Mge
z;0yN`oInU4nnI0g<3zyDbMC2oD$m?sh;;m1dFYuSlt&Ct187IMK5W<vAAKbXR~cKp
zS9Tl}4fn=qtDKz-EZpN{<#a6dH9R*N`;aM}Zy~1uw33)FEGbiqE4kV!>;*d)s*a5y
z)L2v)8Ky?~qkkEmvt2ta48W+0pZ&j`wp+as+&9AsbAP~PX9u-0jP7%bDU}2LQ(N~l
zarrqc1N_}%7k;`V>*DN#%a3!m2b!PylW=(wM`chT^OZIQ325ty7Yeaj3kGh;m1Myo
zCkbL}5Y`zksMAJm?DPMMd^!4f;3r%kXpZW`#1RMmred7r$Z2}JS&Q%en+(WErTcI#
z0Wkg=0W7LDN4!*zD%4JETAhA9X+?Tp+Da!(xM;L<bYi(`0l8SEw`;|31;0Nk_eH>j
zH9~R~UUDufa6rhhbnUaR#b-!0QT(MvrR;H;r8d!t2f`DZsEZ1&+1k<mleCEN4H-@f
zxcTS@UAY9k{r~N~d5mS*ecxB--2K&iud2GL_wMPQUT1n{x_V>J4A~l*B56vLMwCc9
zkw}K4S5>d8YPz<mrMr6I#3JJW5+pA$Bq4Ev$cU{!3_JNFL;^S>48cZ>012oB36Ou1
zKjI`n0wIz9i5vq7lF#>h?tNX;-A1?=Fao${(D%N(oO_nvett_{A=cXis3Z#jyC4!i
zl26{{RW={M#cZ}L<@PDTnMtfn*`QbKtr9K<T3>!2kd>?>pg=`{`XdTs`30#oC)nh$
z>BjQV2{KJ8<{T4)Ek<hbNd2U3JYmPXP(Dp$$&%4+C=WQ6^%m?GgFat^{pbSAcsNM>
zpDtEOvua)P1#YW_-#@TagWm^7{&H2|bFbhrHC!{_mg<wwyjM1|qVHi)-Ge`Xt}6G4
zat3y<PoJn~u6l1Vy!P)SGMGJpwYDT!pg_?H(unw`{qW?9ghB!zg&QKHRlPjkg_;~+
z%-f(1z*+_iRD&jOS}(>p07=jiWld9F(dl8qmX<s#s+0FcZ+kd+ia8F?W;mCzJKvKS
zxP^DabiVNQ2rlzZH7GD<u?Tag<>!E|hz5F5+&NzUS}fqAox|4?K*EF#I4I_2(UqU6
z{HQQ_?a9oOmF?;j^NTiQVnxgf#7>bH=C^f~fH>eb$3ls;$Z;Iwl=jZJZs#FAicbzB
z5`SPHRIrHcq$l--|8`bnd*>NU{VXP}m7@*s971F}0j}7_q9Q2|1JDSt%jzt*7rGq0
za&Hoy=%2WbT5Uu2jgPY2S{!!PN*j06gR77|Fs(TDZ?ox#sRp6GnxDtv2&+vzaaB`9
z$7{$rT|oV^@I{XW)ysU59%k6!Y+;_>8y~D}cM{X|OkPcXfFus+;>}R73lAI#agrgK
zYl(-)$9Rm({<Vbv%YPEkf0n1`Zv02_QU=ir*M0|Df;CM${0Knx)!z(L5Tu3Kx35E3
zKbr2p@joNrLe@_F5fegWW}-b99YrhwE{jy6%FDKu1xX>YI7`UxpBJbwO1>dE7{mZv
z)k~CD4_<H6XX}cRJM3Wc3#~+kLTktutTJCo#AIBU^#Ltr6?v?XbSrKgF(IH~;sLn)
z2!arMKrlj*h&o(EDmC($ep!&4f+U@Y#T(>DQi;{+aPxOr3iMBbX*NQ&sWI6p94ebW
zQ^*vJiBAy|z!^R|*jV*xeW!%)7)D{YHsB+kNT#8=C0$1o1fQ4z5Ej*9crIhQNiLE0
zps-Vl+)0T*XA2SHD@Wbz)YZuDt({ZZ55s_mJ2v2lS2^9sDZRjjUB*exEcSc=My6WO
zNLzRqTC}NgqwL?$n#JW?tyL;K_@%sFnfyXyD`a_xtzejltBeu4RVPT3+7m)QTi?B}
zS?k3WF2t;lU#N8Pn9Z0tg_-1|lGr{i&VrQVn@_ek<gV-eC+4g5zYIvWx#|!mMNJvC
z#3<-F;))O$`qQt6^5N9t7IPRRv=e%==)F=@yhrh3<bzk=!zIt|_&7nB5;4_TjVXNW
zr39F)#FPU(3uF}5Z5vTIK`%lcleh)R$J<?!I#zZR9XU5_N&1O|q1#fO$-~Ntz{E;&
zi$ScWd=lstuKqAe1S@>6F6jm4{pwv52DS=L6uk?jw;ZxdI64tM0A<CDY+F_DjMX8@
zMl#EKer(3B5@(F{3>&jFC*!8*3GN_h^7sxNuV$~7!n)V~GCQ`?WI!~_mr!yZfgxfE
z#qZC&1>I9SDZ)^)%Ejth`uvSw&ynBd8Y{fy>oSs|ws993p_#$n#JT`jIr=uJ1uW$U
zY!5I8IM86}p~Z@<tM;&C*|hUIo*p6ufzkD;FT)FE^{)qHM0-;}LyL>I-_d&xCs%(Q
z{%EzgA#lcAE_1-1!1<mY?SimGqVx+O6_vP6-VrDn7mxi0pVn13hXmwFUHA@MlaxEW
zqh^H%G^b~PZXMX>)`3UVT*?oUE$(4BI`y~wj_n1vWigulRxwG+qK5DX;t85%hE29k
zd<Q7HCuzhthf6m7s9obsN`nBwVeFzi1aoodK?Rb?WTK&M@YbUT@OTI(r*Wx)4U$c{
zwen<Ly0A#q{`wx;K8;(>3FQg&2{tQsu}tPyOW7&rU;FBnTH$Ed|Ci8s_!R~l5V(kV
zwt>LC`kgu<a6ShL;JZ;>nx?Z^xtK$wVtKxm`k_Y+sv_t~mvg00MV-TiJVhKM`Q53J
zha7hd=9Su1kbekX^xzZ?0Xum8BLEnDvh5wl!~1>hNwgke+Za!emC&wp(`WC=J{;fq
z&k)8A<S<{Nx)*c*h@XI4vug6MWw&J_@Qx;-cVyR)WkIB4rysfuCM07<S)YlF>Mr%4
zaq|~n&9?CCfiRW`LZvp=acW|d3=^T8iW#acXteDRAS<w3?j4V<AA*e`GLH7JM346z
zoDhaLKvMWq#GLTh?6GhfVGP-T$^P`Yym~WZf6l&pi-&pLW&`HasItW-mRczdaC{8I
z0<nyZe4L)x*n_-9WKOPxY;{W$3;;oWp<UiHV9;wL0xks8_GPta(iovz>n8mc3mL9T
znB&9XJ;e>d=?HkSx5%+e7`3oEVl;yWU^6*U58jZ4rds?j+2cx*7g6%|jsnKnT!%JR
zc%aa8?P~#zXzBzn5&pnJA18pu>zyHA%w`2n@QUR+c{xw9T!5F+Z{bf%%F$+}_D<MV
zBuI@eNP5M=%w2;Bu_Sa~x(mdM&28@~<Z{{u*mxCAPncku3JjPn(y*<X{7<~8%CxFs
zD5;K+N5>f|(u)WdB%;EUYIyoh1kz<i2OU3t@kT|wg?%gE8l{~)C@p&rpn<$!P*~Zl
zY=hGzbjXIlRLjd4)I?xlm9(n`*&Z@rY%qNN+^69qSmTn!BaK;GHE2J;O}z8nXrH)U
z<nuvLrbs-V;^3@34M3#03PM?K0`3tyU=7~DuhYipAcuj9_nbM8D<6+SH*%;m-$ExK
z%tkvnA<nbqu)n@zO9}a`oXQeqiKJ4%7pj>(p|b|}?~#l>BZUlN_hjc2O2}tfGLS`Z
zRwBG(&Y^jva#i%@K}KF}ttPiY{h(11g93jl1}l-VY%Mf1Sd7YpWGRU!e^Qdc$m5bx
zP~<^t-egiH3rv<whm;6>yKuhWXThPpc)udGfGTrmvFBJY2MSvkV-|yX#br<*#j#TS
zzh5#1m_Yjj*_VKx;pNz{q3$f^>OI{<X<e3UBomxJw11`q1k#+d^f;D_yA!yNB9)BM
zyn?p|;wL-M)WN1#!1Ck$k;YA|?^6T|EU$pU#`LFpXa205H1RALeCyvr7iKtkjOD<C
zQpCx2y|0Zy$ey(g#U~RBh%lPu(YwD7ABW);JmM{G=C>FpPo`oHTew3f)y}F_aHc{#
zTuijxWES4Q>c0v}V1|g7f@L5)5*82Sm8TUs1f<sa*F)9jd4S%XcsX(Jg>tNI3yJSp
z-X|(*ytlZ&Md-1@lrgR{pE$0xb^z2A?ZXK=aF*yj#mU2Ff;8Vy3L25DD_jV#Go72$
zXWsm)(oR_U*T0!1==O#^Q;)V0ABv%~(+m?r9feCWYc(5h`8L&72noRBTh6X?a*J4E
zk_((Lq~wdE%V!@!9y}GB!%8I_q75P<uo-|Ta;0GTF_FMB5VZ3`!A@vkY^y*wiKNX2
z*QB8nIv2%(=3lphtbV}p*agGGj%nt(KIz0z0EAn@JzT$DKs;v4UO$Wnzr1a+Auh4(
z95R{3=#X~kd;L!(J-<J9C5PmbelqK))W)L?gFs(u^46Z5d-9XFO3STGc$s!kaZs@7
z5bBLJKuSB?!9|h}Nxg$sokYdqqJpy0=NW&(9ZUwmilpe(Rhq{=SsX<2G;+M+3>QMg
zjDRS0>DzFk1Mf{8%c?6OM`~f7uYW-ku|Rw;7=Z{7FW$H57P>J7{GrJj!sGeB1cgeQ
zLeHQOBlSx~j3#`-UkHi>6S2g}gx9+Ytd#XiqFVB3R(M;v+|ni+6&wVu32(hO1c?>V
zBwg@#-ldvB0LMXsvC~4%&ZS*xWOB0oJE>n;Bz8#x532`?<x*l|gA(J4E25ano*_96
zHZB*Bq~U9yjU2#U@Z`Fpm4_i&U6H4p`7$B~5)eKFC`}qtBwpu1%nk#dC^x<x{y2Og
z5_E`l4{JmC@?S+R01g1T0iGYYn@ms+mr6WRC1>zmZ3=2H7ICFP{w{F=k@H73yg0?B
zegRj%iKw;kQ?0l!u^Xx$^P41FqY1gW=?X9^VT8r=f%~LG^CU><R#ft1-2gU5%O+B?
zwlN+SDmy^6V6R>w?|xDmH8TKM^a*Utw-nRRpSzy?J!fxp`vXa#Bbk|HuFS#U$X-xi
z0gxsLTN%eJA16~EG)5;W+Ch$&m%jy5-bPi{Lj*}|Nq)v{9Q!3?{PO!PR;Ms&ly?Y;
zo>XB7%a$M(cFqz%X{;@I?*Z-~%i@Ocm^dbq7qB8)jb&rUOunPufff0}3IpOyA<|l^
zVWPC9##T`e(*$M)V$dbC7m$*X;zAKBAX0S?J2{gR1|%@l?wQRAxShnz$-jGV$2dZ7
z<Fm}b1NL08dP$=zza0*t3~Xuu8U4HFSJu{6N6Z4BhK?Hi=ynQS6i4g#PZip@9-d)x
z<TNi*06$%uo+<b^ie7%=Ez22n)MQSQry``8`y;7Nyr0dxJc{~amIRGsz4a`Rr_EVr
zO}-{LZ_4o;CdVueP6u*6In)=vOQ#9M>?b#qRw(8bS$r{lNGe7LVPgb3zK-aV6_9c%
z9r)B~zfY;&`cH1k{{nS-?<TVdRjFlG>0;i=y^TFQfKLGSUkLvfRM%oQ8(@HL^vVco
z<BBv!e!^k++!djhWhoFF;z+WC_5Bz8M?&>gELhAob5k51I+j%2{i$%9CO>BF7g{HB
zx}2UBs2~<HNa1qP45v^$d-WhRY((Liv5HqwzVOTJ1hRA16j0K`nFoVY52oH;I$C9;
z%l_`VOe;r<{!v(keL9?6m<H9E+HArXA57Jqk%;}n5C$nesg0G?rR4IaGg7p-79>CF
z7!RExVfi56xZ64-{z?bpul%cZ@%1_3SLxQSe}+9Bpohy#IzhE^?6%LF)Rp!9r}{|_
z`yD?VJ|m;8E%d4lIsVog<8Qt7N5A>+egC`P|L(=Etjn^@su!sQ2qa%bx$=-Xm%O0X
z!Xky*kR<Uj@Jw8M$PdyHTzt5@z3G>}|2^6qU!={>seJ5i9L>_M3)4rsJc%Umll_#|
z_1TEZ@crNO$EVkqFf$*$@dv-<SMm+Kt^7!jqzK93$)649aJg`2TaO}D$w|b2{MMn~
zs23(bb<a*nV^8w&rgJ<>^B1;KC&(+3oP|bSk~rNZIYW}u6N(?ko7U&OQm#Sc)IjIe
z<7Qf~9-U9kLsQXq<(-0GikB$8Q6d7bFB>S>kM*<7q`PjW-rbfVecL@2#ne^kS~@JJ
z!%8}Myi*fvr7qgop%WQ9e8I*Jonh=qhx<B&#pjEBxvtS@X-Vm9QkPXi=M%j{<Z-{I
z3>gU0N2<!$xlEAe6Mv%VHhB`n+?9>wqFv#!ZBj0cNdm4u_>{hb1%N0=0c%@_Vf|xw
zLJd&{0|ND6>Nx8##^vgh*46C67au&Bf`V5*DN~Po{t*t-G5-{7d+19qZ)D2%*xlJ0
z=RU34nHWGCLM1f`e=?XZ8zOB{3H_MD(++6#>4bjxsXSGp;29<G!)0ApW8XoKEm6^x
zL{!onO4Xw?;)s2rYKcs`t3WcHL1c8m%CzODqueueg#gfW@MF*%|7vND&!IUw67i{n
ziH%M=Vw27jvC%nkf9%New}bBwBBscVu7@(w3_sKES^0V+>5wvS>y+RKVG>)U9}|k8
zA6-n5Uy``)&#;fi$l&2sTeDABr&8#Iu1|e}j_6&{5w~%aj-(rZ@LM`k;sZM3N16#8
z@lOi~I)mdp!kL;+(P>5rv2Ce=?@kgP>R0O|sMFR*&{ypusI!TipMSIjLFZG0PY{H3
zJCOpP2hZzNVFK+JS|}bM>VyeNz%&Bad_2+<kc4#b+M|x8Ux$9Xt7YOJ6Z)WErVlz1
zeeea-2c1D5(&4@i$UX@BI+MyPE|Sg@)zG<!fsRvE%TN3O>POnx^)35a`z#!4EK}k8
z-%X?Vz~CAD+t<J6$EE^e3l%*=Gdxaa_%J;qNt`+?vuIk2cNjK*<eSlg-PL($CaJXi
zGu-zfzWcV0q{R(t*G<f$gOOA$-GAH9k-8CmfyeG4pp~I{t4sMO%<S^~>7%5d13C~~
zcrDMTvUhLN2`(#Tm>Vn;;ncZearV<ibS@Hh={zOu(iw6#h_17M(~FP!L*_bNS>N=r
z+*lps#H;fzd6v!*@>aKe5;k;T+vbUXDmj+=iP?5-#AOsaC&yy-5UTdJ^-w4_71ZkI
z%S6yTp9OJxPxr|Xfvt9(r_f21Rf<z}R(Yg+RwFz(gOq+vGDztM=0svMeOB)-r5sQC
z70XqJP;-U^ja5zkL&f(!C13I@G8Lym$!k`ZFat09>zIC-4pgFIUrCgF&q<X0Vt$Ch
zQfE_P340q4esGKNmH;dckdGeemNO3dq`-%3?72g@Jk+WOyfaAKqjl8=4$o_WmpvyP
z?bWr^uAcX1q+Z3$8;FK?h8&Oz^W%0}7U#v$_p+Yy;-sWE`px)v(~Khi>jK7loRK|i
zrF_eIM2n`aEZ=T78q%VYl7^)~x5nVVp$7vdbo{tb`u!f8f%_w!1v0*%$+`vdANfnM
zO%8+I4fVs!h(6aT$%|e}sa-fhkJ;v3+AlY8xlAA+ZxFSY61Av5Xk*N~6n=7^=oS{1
zWgWXrD?Zn2Ox4juDm;N#=GHPnA9^HZJxLF*CoE|p09z|Y&-9FE1loa3bL)U_6_X4m
ze$#;{I!mcZ)UV|J;A@zLb&NI1Mx00_%_kWx^dP=oLPdrYrVpMa{Ya>=FGUGn%y8jJ
zEidLXD5rum{!-QspDIa*PMoAe4QgLBO=aP2Lfypjv!#17NEt_+G=q289ahqe)OR`H
zyD4YOFrb#}WMCL=>d9CujfC7v^mIxf;ir{ALMKJ*4)1{mgNJ1W{U#g&IAuH*8Up@=
z2n|9R6cxRT(4bbkL=pP798NVFga$o9Q_D;YkFsa)9!O=;g-(jl#V)&p-k9WJ@YAxp
znNYE(;R|@~_$jCYjiA;pd1Z<jbW5_^bjcHTbe9APdPnII{7(4<x6@G~p(K95=S7!s
z$8(d2FaDWQ3;5Kj1^h^lVGwGhqyqY#RdyBbFqEN*o)n0E+l&&ozrs6Z?xL)+Ks!JY
zcHCBq?ANIR^tl0CNmdF_URf3pg>cby0KO+G1>g$+P>H2f0dE*$@eT)8K@i2&tNj#L
zuU81V(gh}e#gm@m>D`#)=~*R+<StSPc6zMy1mwy08}A6djkdnKrKQ9ujB=+n#JkAD
zCcxd@#yEw>L67Lu#vTvi-kM}Nft;ho)!m6ir#2=MohK#0hUjq{EUrdVusBzVaYg#!
zeVixRhFdcfV@B}{&{1YO!``bm+DLJ|o`HCN5>(Mz$O}S`I38RN$VFnT3T*=0J9-xD
z^9GsZ(lB;6HLFN5(0Cz53fK0F$SuYyq$I~yYcy5jO0u=3XSO%}41B@h&pxz;pl~dN
zlXZXZ<}-ii5YC(>7+SA|T%OnThcoT1Lj2~~VSGFe$I6lbKW5?7sZdgdkR1Yz4!$G8
zhj1JG-4I4<M%&vuhS?Mc`z!+1R}ljIw4B6r0c>tT-yyE)5`nBfVP!Ob)zck^rfLoe
zP4zViRM69qeXwk42t)5}uJA~bt@2iw%2%K_y57Zynk3fj+B+0fO-|xJ{TQxg%pZR;
z9Wzj^FdPC9l8cV!+etLqM>={Z?^r;cyKqj{7c(t8Zu*Uru;fCNCCn3K-NAUoq6$Nl
zmr7%?ABmn|%Rt}51=@7Z@p`&WP@b=+_%@hn*~Pc%WjR9<%cl1LQj8L6d=ks1CtzD+
zT=6__jzVKH%BhfEDV*C*?PH|%)7pFR_srU9Om6EdYE`?q>U-YT=7NO0Ws(T$!znaO
zXKgr`FA`3zV;A<Nb3p0?uTxBcUjDFrSo~>dJ|AJip{Sze$tIUREn+KDkz}Km*`oTS
zR$E$%=b1m!F%o{DCHYzxR;BwG<aZ!EY@nv7DtrX%RzqUGNPOlfDs?FZQTd$|F(pVK
zC99y973<6>dY}uA5=A38N>E^SOU8U$UBY1DR0P?l&k#Ov7yl33!0*8qW?{wJmP><_
z)Wd>FmZg_<XNeI$J5I=ViBJ)q;$*+(bq$pqMV3c;Dh2lFm?^MFmk8{EdkRiuz|q<h
zNTc>;``)#9O>k0*he?+esp5sfrmQc*8!UBZ5u&A3Dd9l$n#=)gjft1eog|(@U>;^n
zU6RpB=B5yaxW(}r(5>M!p&Gs#RoH~SryV#S6*i$^3Enu-3)T=2dcDeB9D;9=MJtId
z>I^-?w!j<_RD;Q!UrZv$3IV$f($f+rZz~h89A|!>)7Ty+M#2Dioc);Ol#h0X_XUGv
z1_Msf^nf-q6bXGkdD<gMa0&N%XcWnRSPpmF-u0S4*tvxzdDH84d(-=MInlcrc!N1{
znLia><?o31ynf;)Z=&p}@8PAz9F`<1Vh(ixgv5)zg+zA%O}4_tIg!WZzpd`Gw-s>J
zop@x2Va5Itp4cqhoX7`Kfj-6ddMhr=A6i%B53OVJht`QeQ?$Zv&w52ZAW05NzQ|ta
za^tC-jd=`_0HIJlLuHX$jNq?z2UbIJ0|xhn?c4GN&^MBku11|aa{&p4DkiV3Cmd^m
z?m8TGtTii0F0^Vuh6W8hh9%8<4B&wdE9qeNHI;oNQ8?iy9mTByvE4cwi@KYrOmaq5
zi#VKm8RT1vZv@*Hc#+b5<fMH=FI;mZ35QNYSsM=W1VuRKQHrzbM#1KyCoc&EqSDB;
z@`}`5ydpJI{J{{QxBMkn#dHZ*MbC&F6a!hMl3OC^#a`u}{15#Yx(8YV^J<Snk1nnm
z_CR)1S+=ZSpx#IyPg>}+JD_OX6oP`vk|mp(8tiljqOa67(KO3$cS4ikvOabapZ8GB
z9yf&>;v0C6NY2?%VJ(#>9I6|{u$2#z`<rl1-fwWmo((+evkW{sCT};LVc<!J`#K~8
zk16r=5uY?cLCGTXhtp3wBm&Z!f%Gmo4Zb5r5|{6Z3J@WHL#li$n}aUQV2IM}`Is<|
zKXyxX02Ri_ReC`FR}d3G9RDjnDsH4tY{BWdPjWYDQd~%$Qo5O3qtuYp2mz^?Dx4<6
z#;mJ$b<#<4brM3^)ydeDT%Gh*a%j?HsMaLGNNu%5O<B6!7*q+b6FtRl;tED=pIWul
z&=Tw>k0aet23xrbx%;iFkf*100Maw)n@f`bA0!p#&Tc#qLCOl?JELdhJELCW3}d{p
z-r0~mX7q?TQ=jF!!UOE2CE99l5<Sbxz&x9IyNb{fOO-_a<SL@p+1KScgew?LqFr_c
z(Jcv-M#$C$MAulU#9~?}4}Aj>z#W7Tc6_9reca33c$tiWdLMyZ5)ZG@8L4P=J9$hH
zW55WWY@=JFa33h6Cyop3^r_?Ikx6+RpzPu;l50Z$TrN7GKhmZHF#6lmDzklWp<x;x
z+F5dGri{-*PW*7LSZ<$XQq}l_*vnN~AOJm23K7E1CmVu@ezGA9D%wF0LpPAXe{K#D
zHd#hUY^R-Y^_y*Pf6uF^H4_D3+#@Xme+jGtTC0Awlt#P(j_AekCbYX}qygdB_!O12
zY!GH}O}^s~Wly)6L_jkD&^*=qc(QNGgtGOnEkez$%(3o-^nT6V_rK=`!mS8d|5rl(
zCY6-oR)3$^Hje7<o(@C|s4|;+uZqgx<4Y<k>%p#~vVrvns;I0dfAosVdfOG1(+7W$
zipq@PB^8zR{!FT<>>j;XQQ4pRAu1}nnIE~LvfidxvJTX)ey*ajhM<bd992<SKdGp!
zUsP1~FDfeQ_+mw6UF|9=yN54SRMu5jROV4vROa}SippGdMP)q>XuB;{ROUJ`d{@7z
zs4R%V=N*8-Qy9N4e!Wmp8R&XRMP)VcgI84c=U=F(?5km2hnG}Tc28fZsH}&7?25`X
zjdK(ZC>)=!sLWjaa21u+2!S)6$`>jst2G3NG?wQpD(mVGQ&Cx8%4VOhsH_?JAu1}T
z*?ys-vM#?^QP~f-fboM>R0dj9QQ0s4U=@|qH;hUzR8&s)-q9g@zM?X-fvx~raqpjH
zMP=G8@V(J`lK%!25q~sMg^%BkI0&kuGG@<{ku*9;3gFXIh&v`NDk?*dr66o<(J%f$
zb5+#29lMgs5bi(0X;J!^Zm|<~3j-=mFlEQz7p7un`2kBRM}nLwsq7hezNE4*Ca8oB
zv84clgXb=(%vVty?s<e-T%hXtlFBUOfO3x-{6E{0${>VFDz|+;Qagx3%D(u?lFD3S
zzTYvuY8RV*N649`?2d7cV#+j{iYfa-c*kqT?els6mWG|*`&CBysrx2n#VW;=Sti!$
zNHt}D8`pTVRV;&AXXL$Arp(op(|xKbn@GZTS@3)YYw^*V%3AxQHI?;J6W7M+xZz`0
zRaw_W89WrKDl-OV{2sLkRaH42sj942G4K0r)JXIfcP5Pe?m)E|CayrVlIkkEdDT_s
z1TeermDIdT$?;5kI$c*eU0hL5ume(8S!0ah5k|5?f<{|cIi|YGY7n<OPXr#rd~ry0
zyT7MtQ6sm3$sC_L4*J|-y7@7EK$yFw<o&L$98+~=y%XE&%DjgUUqU`tSLOl))Lc{8
z$7av-)s<tauB=wrie^9_V5+Xnf@59SO!w}>C*4-6uFUB86#a)0GBFx5C9m{G%O9hv
zD|0)G|Dw7wb&3B)b>;v6R96OS2Vy=LYXRz8Bu!CuWn-=m%JGyS8&uP;uDWtURM8Cn
zzfT)r?BX5XpuV!D7}ZtQ-7F~{WSO<#LtG*4z$f)BbP&ob3)u;};Q)HQ!?l-`SEgSt
zmRC+6e>c$}n#C;U^2)xh@9}y3NaDL~dF2>>J^adTl~-05%uxAPoHUhJ2BX1qks?ZK
zK387Z7ZX+d(aS4)K7Q2l%6d7rE2T+%S$SoR>&5cQdb2IBtkc968Dv{n*}YO>WuGv9
z`?9m@F08C&QSnMqd<rW=3rQoZN731tNA>9r1}YW-mO)|V!L$7}Y$>Tp$f{^9EQ~f>
zTUpJxwsL9#W~LVSrfVzH#Yt`D^uT>_Swj8^=2mTG)*30r@FgB)CWL$^qWy@DcD0pR
zPz1ltNOICtTbZ@~6ZCMwHvr(3Ht$i}61{=;B_G7KI3c@98uva9;^aDc%r$1AWm7v0
zieY_(CG(W@>sqCi5jCh;oyLmC3_==EeJi#Vmcfq~D=h0nFH~6e%spRWSr>~>R#^7@
zP+{563oe9^5<Xd(n~dot6_)iq5YHoQIp&1*k>FQj0(Wp6c%i~_YW<!T!xHPuDlF?6
zi4pFI<wE~T$jzr)X356wixrl+jfr%zeR-7HSORRgvHXxe!Ix8oWq+luu&nc}4SPwi
ztndcYj@%<t=MFNQe$s$CWmzKx1U5QTsKm1FBX6ujd&tD)tiSA;&uLPWoDrBp&SyHI
zQEiQ70br2q&YRfMXp62Lbw5_)MeBZ?`m`y$igCo}U1ym$k(tydzHI?D##L?-9ZE4o
zA+qW$>vk(Nsm`*0lD85orA(Fji8DibXg#*2mSep1uQSqJWO-~%d*IBe_=!r$THM$c
zTz=}8J9#$t+Jeieak@svFn{HfHJ8&D)17d@02tW^OgA#w^Iw`KR7cZ9?h1_x$GvzX
z#J1)#>d;sICZ0vE49jgAf-!LNV$Ee{=7pNeYVgOcxvVw>6#A&p7H2I8(aUNs^Tdla
zmvu3?=CbA_Q_W>hhguXpvLLOR%jp9UP<_tIXp3~B5?mCOcv;P5JjNCzt{QrzHTK@Z
zgEGD0#*K-9ZYsL$#S;1nfGE1`-xOWuLKRLfzoh6ghJQcgy30HUZ4f{+3gDjwF@Ql0
zAauei*Iicg0xh1x1vB0YaisFgY-axUk@Cwt4>6vsZReJ$nW%YLPE3{qpwiD*VOGnn
z(xc^Yap32wFhi1Oslx28umC9F46!BWss6Htl_gSS7RJwn{_q~^FY|n(Z}_Q?)J~`C
zlFk7fQT=7z)N+}{Fx~=;y2XQxo+*7v8D^Sc;*7Ua7I<Ak4TR=}GR(rlFe$^VNg-A3
zc;AyO(xq>#GJ}&c%<7?ujvL*KeRT~2;xf#>X(a{tU5^CydVS`<Mu1Qnggb*fY`lD=
z8gmR^{6k&^={!PIeUkom6aHK^X2$!HYRn#@sxhappg(E`T5--(<vFfqJYx(pRb%EU
zKuQ42wh7gkIU)A=elm-w9JAX^3m{7FF*8`<!Kx`<3y^sB#-rt!W4QkJcv!rT`FXw^
zGYzO5bGr9jIcDy4<(PfHTRy9NN6RrY29;w5LV^Cb0Xq70lQzLjm1EX7S~%<&q43`$
z@USSy9J_MNF}(4AGARHP|CWm`#GJl<S4(1{NSdy2jU`p%xCl^>Ikl$=G@^2(9y4S>
zf-ST8l6uVP4R_>)dd$A}L)K&F9sY!N^uX(G>7IJbVWecve}<kc#qf>)klXqy14IYV
zvX2Dak%Py?Gpv;AGV`0{hixE>*SyKKNgSboB<&@g@d#RV<EPn?BCMljUHEKAB?Kj6
za~w+-YSwH~oq765xn`Os(U(F{G_52WvJ5%h)oUgeM7;=&H}jO0oEIEfyG<CYyF!f$
zl0S}DG?Jda0O;mV^&+P(=B(jVIJ>&3Dm{|bD(*}ZdJi(70?%rWN9Dq5#jB*kvp$kn
z#|wcv)_)w#AsIjz@3ECdvI2SXGkLulmpd#!<jvb)0*IE@uxT#CD~?^<^l@Z|@h<&B
zG;K>jt8XFIanjeR?WfyO?oK8a#AzZd9<$8DJcJGRk#ckRIRRC;AgnLPqP{?|vCEt>
z{))_q>m#)jvSTl%DAX4Tk&Wk66*}L3q8V8H4!f6{I_{}Hv>=DgOU<Enl5v5Lgl8ug
zct+ROhn7urEl$(bEkcXPs{J%(AN>vD9{4tTM5-2zV2-T)Wb_n49O10za?uV~0v3+d
zSYAcp{4F%aOeG2F2XLqgn(9&3+TY0MhuzGjqdBlS-kRfBf`gT@Dl|9x@bGhZy_;*`
z(4iXA8ZY@5FtX_kz$GY~v#M~rk}Fa}cx}Z?aLY*cHWibGJg(>YQ+#V63i;VO$NT(g
zEMEC4e%pkDM>1T*uoB<N$`9FVR~!4kiyEcPb(%+H?UEa&rDuWm9e^cD83_#^ZEPPf
z<*GEzlrkW@>M+ZUL@@%oh98I2WrWWZDPSbg{Gv+Xl9Osq)4`mLUUK8%NrhN~HSei3
zf9=%oGMNjvNkuV|i!)8Cc7&#!eN6nBsAX7|L{@=)6w1Y$St~9|<`wK}RJ(T-nc&#X
zHB3_<vXxHM7d}NE7w}<7$tj5sl-hY3&y=$_lp1z5_TTzfK>`X|3zv$)sfvJW&d7B&
zZCt5I|3cbeK8x&|rU;aipe#sj+V}@y6@>+9S@Q=v-fa3mhi6?3f99Vc<vT6{^)!<N
zvp|ybrkT{dj^Xkzvj0nTt>@C6Ld404v%wjOIg2n*7r<s9fcx$U`B$Ol+fOv~BnW2z
zv;x>}lk%j*zH$mE6NjObR0LaR;`pyBS!d;1*i2RYiC<>{h|&Pg@jNnhkUkIQ3F3Q%
zYm8cG;diasm7+~Sdd})*!3)H^`ArZE8mJXPr>H1=mx^X<ToMoW<H@YP#`rb`9j|{=
zX>ga<Xh&?!!5;`XXg6G;uOg4IDv}DQE-CQFO1!M1Ht*oW4isztka(Je9>?bvUkSCU
zYa3R|R}r46F0)EQ)v*e6K^2*d7pxa`V}kH9Npv9Yvdl+IZtHeea$DyjZ5v`!Mdgy)
z8k37|M{*E}pT*N(mi^hr_+;9O#wEEPYKW2!NMj&)!x=+Ke#M;SP8;v^NrKM!<7a+8
zge5+OP&tm|I{6aLB$QYNeBS><x-j0-6p=aq5t+{|eaVG=9B0F`I^3~5K@m0Mlj?Be
zMlI%`qID~@lacR%^dY3Pksmc-G;varTRjZKHE6IId3l%*4XlMNYP2%=O8y?q8WIOC
z_j({wfk#7PY_KD|ENFf$b|ty7u+PehuN9X_!_r9<rbq2=1ZPph6BSC760mC#Fvs<T
z9?R_<zgoV)OcLe8D`cZ-i*rND&$Ocj@DqZ8NvTS=ELKV-DdOQSQl?v-CpD&^ny#}^
zQTK&rV0~7S(-glikobICtUE5KSa+ca{&94*ZXAYzO_%F#*HD+q#u#s(efJlLIf@Hk
z|2M%o0HM0_i^S_V_?z^fj2fVrzG0!4RqQl^kteZIZbWl@3_}1b8Ow1068+A54gQ|m
zy%5DK5n@=8tZeWYXWq$ho*rXzxUKbonY<q2=N!-!t1tZ*_>&3x`lM4y*bd?4QzE12
zV#a5ZE~zXyax0Q+3Z@6wk2NBa`S48a?Tkp{lvpP?aimbVV45JFR4ANob%nx7dNe5%
z9(%((ZJ}_?c`g(Vr<rXFg+~<%uTr6KAj_4)6N(5NM0#Ou#AzE{Mcx6Ww9Ycl5`m>b
zYwQEjVA8zf5O6^v1(=%Vh7-A0jonsYg=iDEAcbtH^)^zA6B6mJ5wpcK5)YPdttMP;
zKc?33D;NHWQpJkgmLy96Zuu-hU9l;LW=64pZt_YJZRmi4y|jj9u|)lG2pxHej}{<j
z>Sh3163yuA6p<v8kC!u35poR?_ajAyi3b@cyCUQo6^lRx$utqWvYdMSL-MxbR|~)w
zU<f?~v9jKz7C95gi$IGG`krQ(C-8Q*^}b1U$i=*;=Sjmyr%#|xxFR|4s!WqhlIyc6
zC1#o%0KK4!uGzGgfG+Tj=W3HP%C<H+3)<EuXZ0_p05%o_F+(m`G)CGu%VUYx^R-T3
zlr@fT*Gt4M7@k=hizsDNLO!WUnrMp#xM@671#`XQ`O(@N3A9DZG*ZaCJb?G{G0;;j
z6e`EPGg@W_sDy;~cdYvJ;w9{!x7b7@RhvkfR^v1*PWh=o)ETuvb!k0c^iR~aGqHI{
zy#;bes~@QmxIkVL0Z5z)@;^E?^$WF%RqaCP(rc>Wg*r;Vnf`oH!tkX%00}vX*eqRD
zLy4fYm^Z0HIzq7)Hm8Vyi=>MHGUXbdx&Sluih|Aba>!cH%k0EE^$>``;q6&p^S;5I
zoQozO4Ul@Io;u`r0dIL6nI(hsMdcKOKys3ii6>DRe8>Bfn(F>K^o#B`8RgepUA^tp
z@GT~JGa?Elr3q0eeH>Regg{$D5PA<*MJf42OClkeT1XfKMqk|h1j(?sT7}rH-|=Ws
z?V?fn<IF=2FT@(E(w0K<<|N@tOh4L(lEVrZAYUG@K2xb)d-`OiS<^H-s!_B^QXig|
zsen5RS~hO7p7Vl;%PQ&-P7iGr{VghwsVc}7LsS?1XO1*NYE$*y(-aaNiSCypbBe_G
zo5EGz5t+dS)9~5PC1?Ofh)_;F;>0kO@({!mF}{|>w>STH#ftN3>IrzFfC>*oIh*w^
zp7SfrZaX=pB_RN#QbZ0;;O<*#p^T@IP23pJ*VC+*^-P~u3Q{TJLJD0R5@e=Hl_ag_
z^Q=-)j20k^5{=nXKav~cX3?mg#HXQ;Je$;L9G5{NzDy$}f{Wx!?CzQ;*tP}6*gMlM
zQ2Gw-VAp>dA5hT^imp^qu~I#HGr!(^^8#RN?lj~OhZLM;$+?gl1Gxk|s8+o?(DQJW
zqD{jYoQ27_XH7Bvtad%%2p=R)5AdZSPp`m&a1bV*20hbk2~Z`KXJONm*)>6D<=Tq&
zfC2Pc#J{<w%JzCVsIoncU{_XUd(PO6coyUupH;Sx`MbZL_!Fp8D0C4TM0?B}74E(D
zI()S)bnm%O!gH1>JT_j=E0w&D`A>ca&7>7wdXzMm=yL3H5?x@W?8mVGQKEd^K}DRD
zy!WVF@?P^7XpW;|SG=%_rj-JPz>k^=HKIJQ9_gS2L@|g;3?q3N>_{9!q7dV+TVn^<
zInW}gq$zQ~p2!v>n35Eo8~Y5Hw#K+PzESdiGdN`-hoYeV1pO~@^cHPQ003GE?3&&n
z)<7Lf19xNpjKp?6!Q<T3akw#hI$oi+xE>KpVm${?yA}FknoQSNJb#6Ou`@*;B@rXe
zC39;_UCCL6^kmB4;!|ojs}(Vv_>Nrrp(n*v5`WSOq#?K<be|U${lKemMpXquZ>~_i
zS=YQCw!Emac1G9{G19Uh3FY#-Z=52}AHi9uR_c#dfoy7CAs8H;)CW2-i%-DC)`i40
zrNMJ>w6HqceoKtQH}Xn(<U}SQhUz?z)bJGgtJR|eB7^{SEU?qab*-qY{&@H1XonS4
zPHi=BQX$DE8Qp+4F2*=A?kH8i;DIH}6QN*)Z8j85ZjRpU&9n*t&3eZxWNYN9N|yYx
zUy+5~vuwqqS9_}j0cCYhm+9Rd-Bkym(KVGo(4l*;5cKUmk1A#2RCn5GXB9Q0u{ojH
zCp~F{H@r2B!I|j*1<cUtnbDBVwR6Qtl>Beg^CgW8%LI<;ZBSl}r<ekE#8GcZ<7=U(
z$Y&Z^_4-9^OGQ3=xgocxqyr(vo>Wd*3zp;X)K3xk9rKevQ&8+N8Rue6^2k-F*=eG{
zaVxvpMS;h;dj68az+-;xpCI8N=+v{4g$fFLD;%6rowm9lR;p-M!MLR(91WF@5i&VA
z6-&xfCETd;+GaJOjCDMuYZvBV5;LqZOObLHZ%}T8rC9tmI4;=3bd!Iur7oa!o?{P%
z%aq6R=`KGOIfYpMtdG2pp(vN#OP{6=B2z%;f}~mSWCwd0O$&f9o6#1*&YnTKLFHKC
zt2#uIRpeH_A%5b@pn8WK2g%gHd15?>B<8QoZnaM^0LgyzV5}AE-m)#5dJ);Y`nAed
zAuxx9*8_b@iTT(T4p)8~B-3E|W(eD07dq>*ZAFX#;aMd9REV#(%IlTSlBgl!5gj9B
zhBo;y5C(rhhH$rF5io$H%$DVfi$iJD<?s^`_9L#9^UOWqJs-p_IMALBI}tO@MZ)jn
z=_~(TxY@`2IgY3A{C;*jQivwTPyHWEoI>$gza$;eoled|QfFu)9~f5LKZ@Na^+X}0
zKmca%9j07K2IxATd_>W*HvAocC<{?QjWs)pKnR34H(6HlBo{k-qhz(l3T~FkeL~Pj
zG99TZ5_`q5e~Cl@kvUkj5`Fg{(FGx|oQBvA6?Xv^sv%J|vJym$6(SqGOHey<5U9f;
zuB0Vt4d2XN3+HrCQh<OM0UH^G=h3N|C_0MrrD#UPf;yl)Q(qR-H|nPXscibJ24$0S
z5Uei?a?46F)mygl(PD*~MgNpImv-~ssmk`1yqdLqivofHQanK1x@@PrJ_oIkt|&Ob
zw1Tc)Z9>0SM3~tD%1LR!?9se515QG@B|^mA33ZOmvJ%A*c49kTgd*n+CIn!R7C@F&
zVH&R%V46%K1@<I(OPqcUTkrvlTFrY;0J>-WR@EgFmMokE_<4jm3&oDITDeskr_0Pa
zVLS0^Irn)dgl3E4Xa2H^Fj~y4h8BoGiwaIfnNq_!TgkiPtMxGvCAve63`kr(7weR)
zhy{x0$RxZEnc*Y#!7`G$RA2phhl8O9L@Q;}8zTef=Osf=Uwl`es|P2Nw2=2t*OFZa
zXmzbY`NU_zNGu|BymWpC<^aM|K7FE?9p-?c9ZD0F2`eYlgN%3P8h7g<=gK#XH6U*N
zHgUgR0m5@twld*Kt&|Yv5?UspSbuE&U}Dy4K?J<@!JybuLS_-wWyvB{{#v00jACBP
zeybKYh5112UvD`x;&G7_9Id`yW-K|HgCQB4GSpDE4Hg^qhY~{45YE+c`Bp41+_!DM
znLcM#q&MFQ#7Y(2682rn-%%`Wlq~zFE)m5p>%GNNXQ}`?Foo#5X>pN$+u3H1K(l?J
zXx<W;J$`HJV*0@4KTV?T?Y2qq_(+q`U!)yRA7sAO0pOZwH&PXbBr=ZdL&Xz!*_{EU
z5a#r40?E@yfmWjy)h7y)_=|hU)#M>tTTm%n<&VFIzJLVKd`?6}qFLO5m^6P%M1-kJ
zcS{PF-V=_cy8xHAH@my~3EP?6C7bVPS%xweA}xHDNl?Ta&MT51d%qP43Y0zs4m#N=
zG;#b;>@@bjfu%?Y47V_+14pwBXc#f$<aOO#*D%ifoO5imgCc|kY)B^_v&X_4`a_T+
zVdG{VtxScSuxSqz^fT;;Oq7aUvTfDB)Fpb1!`ZJ)l7PhG+^-RyhZNddB;p)I#)&)C
zeAPZ$UJ>v~P&HJe_p0-OXor??+Oce_LlUlvo`5{$2cdtkGEfDY=J8OKgv7m&g0!Z@
ziN=b`HgN^G9R53?mPAoTL!TMg!u%Bq){8A%qOPT#79`mVqhLYUF!dp45fM~d9?jTJ
zVQ`Y{h|3pqKvsZfsmX0k5oe4^Ge?D5qX=dS(jOwPlygZPhL}0~h#pSM#qR68ny*ig
ztY9}@sb{_*XTx(}{*yp`($NND{H?!E2iQx>-z?%jqsgz?K+EUy`XO{<d-ox|(F$1@
zW_NgFgj|7que2s~2=QA<6*UrRn7{yRmygZm)frU*h~fNw5*E^wl~$O!CK}#Ix&Xai
zfZt0(N5)o>7oLP31~AAPyjJxxS0rkyB<4r{Mrq@SjW$)bZv<g$bB_<v1eMw)xm}{Z
z5rX~Ip9{*KqD_OmITA21cx3>8*_s$+irjh5K^8{cW~7IuBH_VZ(6W?zB`Nd3Q6jvT
zLwv7x_9a033x5Fd+>5V;z`n<>Ic|Lazh!U<q%*Q~Ah(2gO&FZLj;t*VE)l&D_&Y2t
zuL^^ik`S2Td^UpgA^(_Y{)h4wfl86sC0+{gOGSJOzpk(RZDe?Viw`mNP;oeqErf%M
z;FA<W2o46Jx=m!c7yEN>nu2BhQ`RNPDlV#j{MeP#8bCbvMp7-2ft658cu=*PHbNDW
z5fju2b#m_m`qW>v9RMU>(>^#*Q1o`#yc}WeN{|~Gq>zK9q%(;nff{~eD-yaO$T~T9
z;an&-wwLH}ap8(3_gK#|Do|fQGQFzCla24iPw+_!n9BaAhcTM(tO>>-nA>uw_{msp
ztn6V>1mJ$=r;?1Sq3u$}Spz6*n6XM(Nnd3L3%tt+ah7rhp~Dytpo53`M0Hc0c{^|b
zBXMWVYgj<Qq!*)Z#4%F71_poE>au0W{D8;@h?)$hrdFQ>D*7mSGtnI*eG?j}DoW{C
zJRy?zoyT;pb}X>hOf=ITXJ1e7ae=fw5HdWDNJWpC^*F=x<1HGaWVQ;iU|AT#_n-@i
zw5&pX@<O6au{R%r@iE4cyPHi@-HCYt!Y~1_Xnw!E8*6N)PH0V^$OVQ4A#JcQGJ8uY
z$vImf+|3<pq8UhpJ(MYzkh)Rzo@Er$Z?ee&ue-}@sgv32Dui51xW)=l!hxx+sr<m6
zI_VEI&jf;E=OAc_jydO$Bxs1X<OigATo1sonF(SueWWAeUkEKGQ_U`$2v3AEZ0Q0#
z5H+%K@9*y*#PkG{arShmNtjPs>8(d-etA=hh%swr|5(;Im65lw`As^bcs*uc2(8a;
z?`QvR5n0hVbDQh|Dfmhh9e`q5j;7AnH02D^E0b7se*az<VgTvIUXkA?_pc|ZSoSFs
z6G{>#>9VxM{H`Am#cCgAf(6mqVdt-;n1+U&%-4*#5?urEp=F5COt3E0)7QkU5X}Ol
z=X_SY5z19E67Xhz^P8dB*f>C4lYELYFM)`Omh%{O`Rw*ZbYL}F9q+AwY#B2rJC-(M
z%d+2KJ(3N8+Sh#~P$xPwJ3xG~*%?c2E8H<3mgzuGOYLQW`IN;d$=5FQWGgk<RM_eg
zOVv8!f5fT)f3nOOrM46*u@xIH7(M3l;s4F3*&5-wa@qKf&_q=Ugk1*2eDSU(Qy&u&
zClL;TMn*0R!+DL7BbnP7H+hC^tYrwwUqB{um=snTJ_W=#D`Q!`SOW`7%8tVD@%T6I
zhXUC6#8hS=Ig?(MgMu1(`<p;*?^H&@63sK}h#R!UPlNTO?8VubpUG#@=C*7T7<rQu
z#5sRAFUhMyvU_zRZ3u`#A5c`q-6AVaQUVzO24|+ncu)d9l3;+v8j%%88=W@YsU`<M
z9xh3ksn25gBWsTr5RLXz3?E4lJ?%3O6c(y@j$D~1=`NYz<$R!}sahta-HV2Wp!`Ws
zlZAJKt(r_4GWGI-w*@3WQnA*KGKn?kbC*F}XgphygLZXf{9z@DN~d5SRz{8H)b*@~
z!qV;fvI&p3l8swct7fnfkVNiGcGLty?A~byQxlBgmwm5fdUo9tICbxhwEGXFkI6F+
z5S12EOEgL`S<EMA5eCqJmT>j@rda7vN(GcSocdF;djY_ejcYbaz;+O!F%L>5jt!fK
zd$w6|iR87Gl*|+wb4r+cr>4Q%Y@%nGveq(yqZaN4!UJ#I@F8;28={js&JE-$vi2Eq
znRW}ZO^ar6c!jjEY<+2sns$bIC00Comd#yv-}9=-P)!9B85|WGUe=Jgkg`G&>9XVZ
zF_Dt2m7!4E2HTXqqd;KWrm7hkoG^9ZUZk?d%(y9mT85c1qZ9>*inE-C-(Uui-_}Sr
zk!F^TJzPI*lW!Qqnrmz^Z-DI@6)gbf2^dgSVj)44Yr|LMiJ`d3jG`Klj+2Ef2FAhu
zaWP!B3ci8khg?D){$n7Uu`)B<IGxuN!r70<&fPhO1PZ;r@YCX$_-b52VTHxUt3NT7
zeYk~n3VOoM_m)sgVo^&akT|6h%c1sBd^IaSkMAg(>_79@dKocYn?TddFNiPFVR@G1
z$NnY5RyoM2ZLF3YB%y<)e(QW{?&c#z$KC@4`;d@?^my>QQ>~7mKsN~}5+?x=4h0r0
zUg38S+au4arkC}J=bzO*fc54hPJsLLP)IrI1jSvBx>%h4Svg>AF0G6p0>{}Q8QXG(
z93}q(ieX@Fvdc=2RcT@;tzRkehQuz8JGO$yp*-kPnpx;(4i#CB$6|I~;E-SZB`Qa7
zfgNyJB}GW%EoMwp1uKj>ZuyK<aOjy-oZQwn=0C7$Ds05rdUzq&RCnp$<so-fHNM!h
zSQ!!Aap#Yee{=*dmFaHvV1&$!MHE4TlZ<+in)7mY66vRf)W;=oU>Z!`X0V931Vw=d
zE3=-IivT?f3tx#5(t&4Jf`xK$x?;ZkWvbP*3Y2|&v#M`79WqDOAc=4Ea8<gJ90DPs
zP?&rNfmK7N*eElCp4evd*0nY}AJYSzU`5EN;h|0<@t{&CZx6-Sm(^@uwY3Y_x;l&Z
zDYOVb4FE>)8`m|hSa|V`RZRgAd3AsdY&<mA7(RCAYU!z^E?P&rd<5x+`+4V)r{Mn*
zp-72CZq9zuQjjpaXzs19vaocyoOR_R2nKlaa3tdZK07Bc6w-rgaMF<)JT3z=R?}QA
zXzaJJT=E|14U<YBSqZr#AIOk?Jg+aLsm?Ebft)zoZJ`CtLQ|{W2;z^Yu6b5=K{JVW
zoJ*hSoNSO*&@s90L)nN0q`POx^}iL5WyK}jN?6nU+F$3T(F*#)o?yqawcs)F50(!V
z=wi%1n{|65*_ZwyW!$7eu@jOsC>+@Z<apf}z9g)6az$7Bfrb#YF-XtX7hlPbL`R)_
z^%p;tS1B_%*!S)~hSH|weDO-mzR;C~i2a}aRkjcIsWJy~J^3s6FR0@3y~V?K?tgIq
z9`krz9?4t#ADcSLpfI?Cx&q)t=#R8F{e8rNMM))SKT?mooQQEae21Kf@y^+AlC$_G
zCh0%_-@Ku$=$Z`ez(O!2_x8{J2gnzTn~I7*{%Nq5BTWKz6dZp;PYf3SVM6LtpT})j
z*klyX`%!i)TFE!>E?VpoIfKC>o8F1_jqmUr;a4-1ygKq0%JMz60XiXcGmQ#B)6wLN
zp52XX1gVAc<oD?apXk3T3z==yJX-&h4P*%0VdT&AXox2=Z5cB+ZKP$SRFzFo5Xz`v
zyP50IG<i}ZR1(W3hY3mr*}_o|j4L7s0@;}>t)iuXHE05=F>p;K-!c{H(1P^vfk_^2
zfC+}eYJDd;*A=~+mX(Sg`#ewud~D>qkoE9?lduP?HGV)foR|a6nSpcJkj5ADUHe^X
zf{?@60SAJSQReRg!7$Uf@D`gV+NNX233A6SL}=z)YdK@h)|MXfN}g9rREcaFALR9y
zv}xG?`ER6Dl}sol(AZN@yE4lk#+l<d^O-80{u~vN);G0<#?mrMk~StMDS8CCnZrdZ
zgryixBTphms0GMC4(nwZrhkQ%6L)$AfnMYzZ73#Mpazq{AGQ#&iCNl5mSN0tgws$9
zO4vi-S!*06<PixqvhbiW?XPX)AS|*6;`in=rQ4KJS%T6T1-Vg$aKUy*a;$mk2LuoB
zGC(KYpI*lDl}t8iyl6>NCc#e~OQJMyw2m5Cneube2$lmJV0g?s=IUm?mweeKWCh*>
z^s$MgAYOo27!sRr!~YjI9Z{KID`SeRbkMS%5np8|9lcQfqnG(HwoAyQE+zu*<Vp(4
zk?-w_4^n`0-O3?)--}LEnmlW3;t?gO@NpCyz@xR2b8lL&SHOyiXYuXun}A$0^Wo`G
zwth?WBUbn~qND9ftV`w})kXB`be2*2OZ+k1j!tLOzY0bzf~EN@MplNR<pI$|oWyV;
zReDwiAKXKbqp&DyxD|2^GO5^gqF;=Wttol(*wW0L9zcPzUyM;u{>%TvOl(MhD$6n)
zhu#&Go3uEM#)1-N2^W5Cb8d#DB!i=bXUWH;$^&}AnIvlWYeXC|?Ey!KDR#q%AKSRy
z?;M_#<p%odb-@S&{bfD%E9PG_i9wf#Yio{xK0W9GW~5GLSAi;xqBE$w68Pow?LbsW
z<(^|(V@3AXIG|gzi+4y%ex!y_3@1ph#w@9222ca2P*Ht=+15qiy2MEA$X0JhaxW*d
zt2E{TDijX2XfU$bqNA8emdB`ud?57)NumH>H8RxC<m9HNfjAD1ny5rWQ3K?42Z`9T
zmv-5Ynns>V43(yn6s;Y2Xc7G?X-%D|>zPcpA1Me>1WJw`V2a?=S}@Wk0tQSZ^9hVk
zvlY0BQpAEoqQNGw8B-@eH3l1c581ANGL|KYnYXnXy#*^Jwzf7JnaXT&gH|<+ZOL?T
zvd1$#8<}QEe#V&Rhv&|A`D{`Bel}|!L!!t9YSs=9{Fnk^YNi$ERr(ZrG!r$^hx55N
zlQ$pk7fjKmm|-&-DXn6RZ*S=%2w{1?w7m^6ptrch8a_2#?=Uk+s^?X5%$FB9P-*m_
zxq6LADizSA2mBpCL9_Q@VpMwt)_?MULj07OOugF#gV-Tl0!L@6p@^X}7@#)Uh|5x-
z947s?f46BpQ+h%;=($l7#sP^zU#KL2BZhigdgl1+l~DH7n}r?zVx*?ZHo%aFBFSKb
z*<1SBaApBIJ>F%lv-w3EW3YOt8vx!!%t}6qB$hvu_NC5$A>G4WCXl`I07p8JwzL(G
z$fm$`YxWwxBGJ5{598Yk!-BGBd%uRT$-I_SFWdxCJsA>aL!4C=J3*%*%*Ged)pKm)
zLpxZ4JO2jIflqzR&jA9U8}d-N@Hyu6DHpQ~j7K>}V|nSz#1?ErVE^TyqB@pnnQrad
z!fn~N1;zz0I2eh1@WnKxY=;`<A;QU&M`(#%f9J~K0zpW2Ge3D-(+6Tp=e=IfepU(3
z+4TJ4Un8xnh}5x5iIKCq7EI*xX$}hPOE_n5JN8I^+}USjt6^A0ep0q4bUE(~p!KB9
zhU0m8s-Uze0(^7!CaIBuqy~9oUqTusUHNvr@MW|sRAWz?vn2~4<PwIk)Xcvg?B6|X
zjwL&7TzEat6)pm?C^7NkVdZyO$!D22nH6^Q9<Ps|Br_Q^N5W2KOVu2A;`x|;#+r8g
z?DyacJIEBQ0H9Z1{@-#VUvDFvT*OTAVtgOEP|QvyV0J)^aOgIvwCYcz7_(I~^WI;i
zA}wO*ndM9P1hLH5{tlYLT`gZODN+eWfN~KuaV^mXF=9S^2QGm4!mlBQg*(I$64gYb
zcjC-veuaPz+Bp5osSVO{sEvVN(t0Aa4o~ahyU0iX6(8hF)k&58<gpob$f)aGU<tE5
zP@boGYVPOTr^tabc}g%+I>Yo>^4p=XtAuHz2Oi2wTMurojTJ+<I#yvutasE400HIw
ziI+E_tLQj!eK$6jzmgvxZFSLl+gk@%578f`sZH}mi#2h8PbwQ7BEup}*0ZsudzRP_
zB#w+9DDHxF6#lA0@Jb-fwKA1n(*Sz_BO=%|zzD=b{`47~k`u(8hh;!-;>BMoGUyt2
zW)0;~*iwOoX@5|CLX4WE&W<N5sGALPm)}R=MI@3IThJwGc<5&A8>aLJV*IeY*c^^K
z_Y6_tIoGWQmt~_euVKC6A<n{W0~lQ|S$AX=lQD9tWw=!`24FnlJMB&!+j)ArTz<+B
z_&(=2-f6ptPTAn6w#;Eo8IeC;a0~9pBv6;t<o!;fiw0Hgc0VA3`I_u#z;{H@s7V!;
zZ_Cb*&Aev;xHw%7wXy4p#2}038V{hSds-aeo#+5hP~dfB_N#Vb3a_E=NrYgEamS;h
ziL^jEO<e`d8<I{V9!{)gfxG}M7HdY`2L=$E_G7>5<?$}pkKfEo=UR}+M<o#YgZSPM
ziQ0xP#Q}=Ht@@BiiP6YFNVf2AJP)ZP16(h>8G9^$N7SlvS{jow+cA$|f&~n`OC$~T
zphI#3>Y*Q$N_fsl^M$YDE|>xVS{lf%heMPVr$VJT<UIC)u#rn7!OC<|vS7UYXYB#9
zuQvFKOAMHY=<7K$pMo@yCMe%-Q3hX=Tu}&m23|(1Y*1xo3sQ0J4WWl@PuNMtjo6vM
zLreS0hHU(hI`3E-s0s%)O4Q+b`PxEIOAv*7IQl;pY>5uz`{rxd>G28XT3+^KDB!=H
zm4|*tJKj4Q1IXC=V+;M{BcNdw+w@)@Y1E(s(vb9ULCq!E3D0a_k1gkbX0=is#$FkX
zWv^$l&_gf(G*zv=&3gQH$`Q}2-Q&%iy>FN;*^zN6R_=H~fo7zb`3-2m&M56MXZ0yP
zljmq1n3HA5nk)J^YO}b<FDn=_tp|8x>o<d{lSi%wQ*qbsxtd&D;pt(TC2=d5j8INa
zL41LO6cJcx?2QjrwkIkETWFIXT6GEJw4xl_cCqFIY2pYo(ZbOKmPNuSIqu^ODtcIo
z^XGq0mDiW!+>QS@UQ&{%aP4<!W<@jhs+67j>Ti)E`J=cn`}TFX-AA$i#vfv{g}a>i
zV;a4s7OhX<84d>nT>MLymqk7~0z}MlK=_G$#6jZhHCn5f!cTIZ^ZQjvI{ehz%#ck&
zf+~9?f2~zcuwNnYF<Jym>0}NfXGE1U@QZTDrY@b4`BEx=s0Y)>?7=3TksoxC^sU_i
z2okE?H2A^f=$8}`Oz6AuL}VY5tuafnH-DE-VQr$nY<RORD<@l}YoV%qArB{Z=9R!f
zpCYlpn2vQ9n1N*gjY0cd8tA&@a?X~704(cRW|dg9k-o!o8S{=|1^%K1<2!VX?<$OO
zHY<ptQ`~5F>MDYmF&Te|Mh3@ZvY}=6h*u?5`EIK+vhRW&50%<GKhyAfU`t$$EjoRq
z<Trh4z5B$nSg0Fi|9;jicEy2Xc<@X4r2el4Q53}KEh81MX%bhpiwuiOuql&72z~q=
zarnYwL`r@g`>wgDvl-LvFq8a{CGneZ@K)2m`6N|=w&w;@iZ3460U%R)K3^5FqKBpY
zIYAl1G}=&pP-ddtAdz@~FU-6uagyiFo(uNiz-ERT``UYiT&{mCp-)4`BS^%Z-8VCv
zx{m<Mw*W)EJ6AUIO-8i^oak<pD4h0cWh4sBG%4b|9>eAgGrW~kqeuI%<p5&`%OU&&
z6tV2`6?Fl>BTP1;gt|V)S=CgUh>pi;^@>IcE~H576RTtHSHxuFw*ZrgijwuUH_BiV
z|7C5-T%dg~eG1JPg%+3)xlgG#kR6kDLpREuu?G&+D%u2y7*qpMpL|FP0NG)*%VK#z
z*9rabFz|a}vKsaw(Dw8Y6W49!5s#ZT*pZ$69r`T#IaiSXtN7?ZZm{9(1(P_IEq#P_
z_D9g=gsvFxQx~;eq2L3^WTFd`y*NZjdf9HtfzxR-7PPL2{xrd>tp5XWi2Q8gLKE6e
z*w)$7ckHwYg3uU_Nv&$f*AT|M7hH;_o!O(<mMDi7VTb^rpbziD&A+Nk8QeKLka3Gd
z0sN+A<!jpA6E{QSp^!$Lj~Rp(K)&%;u#qw(h<v$@adS)55J;D4KmjS)-XoqO8XGS>
zAV{>3-+DxJO)VcF%Zaa&{#^ESUa3})2-RaqqWsU;>5#PxgU0aP2wly3b42MH*ddI_
zf>L}60-5&W)j0d*5Z?qvzxsD6oUnNNo%Bs1arbG_WLmbxuQ_JR4Zob|iT<Dl@MxE<
zM=V6YG(r&JHb#=dvHr(?gTCpi83ZbdS9IY!h;dM5-Vs$`Mb(_1fu`tyrB4SQQFGY&
zc_drhyBp)FzvXwdqnq89;ePg8MVYE@r-tx@=LwoczA;-l@f`@$JzII8_Hnpm3%uGj
zrAqlV0Y0WcFv!$#=tG{9R$=#bu=S|FdJczTE)fKzgNu~NVAaSHk}8)738zmWp{?&F
zkC;SKa>8;nC^X+zR6(pn?$<n|`X=#YEO1MMn$BPU%9Yx2A=m#`Dj%@&Y&)8~+C&O@
z?bYw3iYMq{V=A5i5tpYKR94#3k(ICH5EJmQ)x%M+gqsF0GHjrO2sW6>SmK<mz11+d
zQ!5e&S2HG|F161s4?^}HGrVcE8jv%RPoNHKMYeYsH7ETeRaLeX887m6Zu;Ck>Z*`p
z`acJb4sdq@O&-T$?tkPb5ZthMFmwS*>)ywtF_k^>7(~zAb)Y~K!%jVR?xMvq5Ios_
zi;M^+(5|@}878BLaEfgpF8od?J9<Em;cTT|m#5+?G?}aqc-YBnNu!h@l%o@|$aMk0
z69a*urhF_Ar$m)>(pmbDCDhgAA}Y-SSn$4PpRnefU6&Dh_zk?n6?=-|wq0aNC3=yK
z0x=q_#~J~2PC^=@{Z-*~8<g|fH*yM}TCJte(7Iw1cX=c*x?HJxvLrqIYS0Xk?A0Lc
zX(uMhms(srH~oc~%j^Qc$e7M-b<6l@M3k)`s}z4k_OFl$!|&=%Ew$b0w9aF+a=MLy
zbA$Ef8HyVMET2QEJHY5CM-8p$vCFP;V}wwRn|Pug;L(Eb+~R+YfYdr(*WRM0D{Q^V
z1YW__kiVc>h!^b^0lj`2hf?ks`~2s#1~Nz4s5X?hZ$m2$(6nYiRx(7Tg)AleIeCTX
zN9Fo~WIHkvvPl$fkGAUROC~P;^Af-TV<tA$+F=AhqVN_2qqIa(7=!677CU+Q!IfpB
zMFI!=_mS96<nl-cd$~d^L)wsFMzz>N4;!(O=ZgJgrp1{?dJqdv*E4&gXc7(_Pa>8t
zSYhX6M;w`2&=Sr-y5Z?XGPNvA(K~+p(v7O=V$XT}t>q$nD03+Kk&SQyUgk0d!Ev+@
zB*bGL;dOGR#)tv5R+^!tcEcMsQdA65t33U<9p5r3#|pU1I+(werxwLr>@JJK&aj)<
zVBmhXE~v=60^^(b*lDTao$rFa_TPt84n!1+g46?aylgY%Xux&rM<s^9mt|ZL@S%z`
zthNl1@iBR54e~*|V|a$GF!6Yxw?k25nACuT$uWmTvdUl>;<ZN3W-Gha)S+{N89aIS
zbs~r-p4?t36^?RR39y#MbzgK_v06O}JHxR@%88@t%w#X1$sCu76euK&);*4B-rDWa
zefinhgB%&L+FEtU5!bP_?eOe$R-vt;Y3~ULv4JG}`V6+_@*o+n<H^snEioRo0Us#t
z$yrG+G?~m^R3S)#_05c!1xue-Dl9Cp;RmR-ucSdBn|62!L9rrRkOCqNu7)E(cUw!e
z!G^V{o!re{woFJzQ?+Po7F!f0rp=FLj?#!JD2xHwAy5)&iMdW%NgrB@^4RnTRG*cx
zM0nOe@7)+pUs^pOoF<;kQaC_D8`d8(mCOjiP2h-yXhwn)p^<_4OIfOTPjTe5$;+Y`
zOiz;O5bhMA1FV9El3Lp&9^O!tI#liKLODh5L<b)4kF*~6I8&7hY9J%{M!eTM^PYWU
zX1?@6n`*3@J1Hn;10yT3FG@rx=daeCF%d^yc^=Y|<{I(978@d#a<GMs6GkZCU}!lV
zt!36o_DBWb>?`Pz2rem~cmF<-fk;+GpDi-YBeQ`U9)dspoe`*OvWk_I^h}>gSMpUG
zLYX;v(F`RNg4J`EjlPW9(~Wt?Ti1y3^rDa!2LqL-%>gh-5TSR5>ip}WQtXz+gWidk
ziwC_xkzt5jH;ydtD-F=z;{Mj1yLaF9A~q~2{I%^FW(;`(NkzgS+<Ut6jMdR?x(kd+
z^W9}S!WB*S^mTSN7<oB&TjMxY4K9h47gx#p<|(lgB}<J-B0jvU23!#gXvA`{AJ0!8
zdsBkKJBwR8DCKzl{JH-gvm9>4)7a{8?dlyv&DdpCFvCGlM5h&J2RPA`NI?Suk4sRg
z>Em7n`C~w*u&EW(XB@zuRoLed2us3p)>$s(Eoxn9!3EhTvhr1ACZ5l)d{h20BRLVW
z)k3eNud|IK<3rg$Eey_@i}dGUm7RaMAwmi%qaxts<fS4piNOF}URJ)`VUf7h18mG}
zYRapAH)enSKP@5``4%i3;=nueFC&2(s7Mk=LVUI*ENL~ERNaA+FcRB2vXVSaWYWRH
zVoPf?cSYb>_AlfSMW(D~vVO{LLbQP3wU5?bZ0$iU*a5jC@*>3wPtD}tYq%{jwW1os
zBieKZOngyy?p!Qv<Kzb7AxX_L`+@*6e>l596LlH9>%RuWw1%sGbJt`Qe>~*^%*h#0
zuHsz_y})ToIKu~(5X<%x5I`Bc*n?nKhqb=+9a!rDdkZ3@kS}$;IddbhGX<B9$JnIZ
zjtj(5LNt(u!^KbMTBNip`aH3OyvbP#h>-)~0nsw78z>&n{Y7pqX+e&l8Mcd;O5udh
zfhW&|W5y+)0;bTaFZ>Iy-p5p7LtLZDP;8lMKn^nqx#L{v8Y_`v(pzaN8o!edi}QCP
zPs)j2bX;_rzST~VBi^8y^u8ay4tdRb;k2%Y$eLDbTRYjC7<NYVlo*dtuYeg9N!p0b
z5TRi=87CmvKvV<yYI%YL*K!xiffR3^z1Iq!MdBlZLL4_eodG~)5~HMT=3TMVl7Ja@
zBp1kom{T1UDEoH!V=j&3@tB>-SefDZ`<cT=GB#!~>@GhViHGxH;F;0ogC#6FN5~QQ
z**f#UV`))i6AWk~#5vB+%wJ{~M{9iTo{>Z9I4VtpcT|I4aO)AA4PT{TANvMKb~jOY
z7D$F?JznZEyo}g~TQ2bcNzuleK;n)L(tkN{|2FqEmr|D5QizXr1C}saW(qZQnc%TT
zV3xpY08Ga~uk@r$l$t!&B$rPpD^}FPSo~k%N;ne4V)!b1-59s4xx_q6`L4De1`I|1
z*1{0l5f1cv=aPDp^@(yeD3J+9^P?UE(Hhbi4U5lGNjND^kaW%@+nS=E`8<;JL-dB%
zk)KJdh$&aoo2$xTB%bpkL~=>=GG2b4oNDm>ZnMdXfuFVB19O)Ln06OyWKa2q<-MQq
zo(n=0{xvfFC1MuGr2Atw$yr2W;{0U5AjqGNBls7)`&vm(Y%j<DNGU@x0P*3XoY7k4
zJ+cYHook%O?rI*f5JTi~)X1F@cJS%e>H__rsCS+h5fng7vxMV+2u!AS0IwsMhThvT
zj--k)1xtW$dB~=TtV7}3;m}S9MJtB02VAsqQT=O{WCU=O6=o(GZMHVzC7RK;zYKR`
zUH$&)B97?9@GR47p1>1$c&t(SZyKfmT%33-ZB(kH2fP9>7i;4Li&e_-52!@BA=0`H
zADr-tYz16@gg+4zCl!$m=*w8}pu5+;iXD6{zMGZbU~<rSSN;JcLHUQ3aaL@8a5hks
zKnVn;q_Y6zj$~2#r>Y}*Eo{fACox_Mr#eMIgoU+~P(fW{TDiffpa&4L&c}y5QZiVu
zqH=^{z2e}>O?mBNAEaijhf~)O>1FRm1Gm(gB%F_elM=rELijdIC2femLoiOsBz0ic
z$?zEUbDasu<5f`(s};~Q7z`D!*7s9Ma+Gt1mE4g-^)*ZsEEXLq4i7)Zz|3S%Np9du
zT=^IXTWI5jA-%#<#-Co%?#K24GX)JIJfs0UKgJF;2skWa`vqX=%EA)9P<R71ML9JX
zEiLViALFekdqF=8h&7XBt;D=Ui_?d#l|Eew_3mm)z9Ao^DKbjaU;g(q;i(>(s=JK=
zJre5CR?39vM^spXz&f4BK3WF}x>lT&OIK3HEkEZJ&N?HVk}p)ZQlgV|S2+@NhPI#s
zy9Cbn;!AQzyREY#_!)Ay_*WY(>2p%I=!iWbJ;;b@EZbXN(g`LYXPfl7R9CtQUC>Vw
zXLuSYeE|x=SJNImlcu|&Ika-rPRLaC5KRe^=6gLc!R;;SdivePjQbq@!tpEmfnsMz
zaleFCvgr@9!OKuJp9dsh@gixid+Z6)KW#DkZrJh?^pmBt8wSKHeE;{{;Pm<u)VaH%
zDfolm(v7KngWv%_(gO}!AASEeebHGgwuE(k)PHc&<0sL~YUeHPM~;^2(1p$~T<4uz
zxUVO#aGg#(yZxh$D$x1VyplX6f8>cLa(c+hR10+nel~7D#PN~=Ve$e=)w`*VZ^Ow1
zx!WJwOonTg$+ljL!7Coaa{6UpLtk){!`-nfEw`H|zBbv$(l6Utb)w4BzTj;vondE9
zhx<BA%&7W7EVNfJou`BxI+s~Q$Egg;i!O$@p7acqI?lIsAvB#U1RzAMT1UG36?)7V
zRlGKh?gPVo@NZxLo*&DJ&s%}rQ@)<m(@WbM1+wLxsS=$Z$+f6Ib7!hQS|P)Eo7<c+
z3U!$4P=1n*89Qc}8e(oeg21|#5ZHH9sy&^8qdo{PS9R89QSv#Ms3Vx@pMlL3UJ)kh
zq{Bp?Kf^@*oXW_S>XT`-g$}cHp~EbncbMfTm9l7MTx$HEzz{L|E|y3ShND=b3l14_
z6Gjt1a|BJ=cVNS9Xo@bxp|NEW2BK@v!a)4%Sr~|02wOfJ#VK8gM{!CQI-JsZhf{vD
z3z6`T7Lj!RQbbA*B}DRhIMCslhp^wQThaH>_fDc#yv)za?@tiSzwjgQE5Qp1f~8+8
z>EPz32$+6YlBM9aBfH6ExcS<%-DEwDnkSO3Q|%_}_-r>>zr35Q6YVDZg3(ZC>?Wtf
zeI2G|Rni^}ZDJbLRpFiQ_9mW2WBs1!bL3$YuP-0e^@C61M;*TS;3fFM^GDdAe!-46
zYh;B7pX7RaKOs$eWu@hEenp9YR&@pj`C!hbGdP<La5n#HIh)VHr*v!AKf|65#wVS0
z_~i3v_@tl4C!ZX}Ctc|9$>$wD`N@P&$bqmA#R}ICA|h$Fzw_z(!51GeS4Y{9#@Zp7
z-u?uV>4K5W?HbAa%n>AO-+6{)y6`-b>Dn_S^RH(}<`%-14@Z$q7e0Yxy3iq+&O0RY
zn;nw*M~h@Se<_mb26fig+Bg-10Q6s`K$Z~T2?u^;;+F50CP?Rd|1_l2&1YQAzd$;_
z5|+|oIUQEg;ZO%7T}@T=JDqPu{opfq9!yObo4RGjrl-Z&bW9tFI)kyL!+jmX%yS5(
zi$W+Jr;Z?$AMOk!FqJS>way&1(JCAoWPa|e@Bcr4?#KAs$I)qjfA{g@z1@TT{XH^o
z9UScJ^T*ll&d&Zvdk6f#v(Nd??nnIX?C<Ps^WR51Tk9Lx=2t)5*jQU%ee~$Vwateg
zK79CSYh!C|?ZZbOE-gQNw7$0a;R^q*ez>-}zPA2w{2|uNwYBAyr5~fq|J+_ZJbaq|
z=kWja_tbySp89b*{rJcD``3Pqzchv)?cepy4mLhq-Pm{zHXgkkHdfX?TwhxrFMa&v
hho7w{kD2So2Twje{Ndj{e4=+BKmFm~{OAA1{|o7!Oxged
literal 0
HcmV?d00001
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
GIT binary patch
literal 20
QcmezW|NlP*2;hg&07_2;8UO$Q
literal 0
HcmV?d00001
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
GIT binary patch
literal 41
mcmezW|NmbG2FCc`7g-D$7#P@rn2{;o3`p7hhXO_r%?JQoQ4=iy
literal 0
HcmV?d00001
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 00000000..0cdb440d
--- /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 00000000..587765f6
--- /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 00000000..1b70d709
--- /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 00000000..e83a37cd
--- /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 00000000..042c8d2f
--- /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 00000000..d85f90c9
--- /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 00000000..9847ca85
--- /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 00000000..8776f83e
--- /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 00000000..0823a418
--- /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 00000000..921ce0f9
--- /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 00000000..c589bd49
--- /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 00000000..b9c854b0
--- /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 00000000..d49a7102
--- /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 00000000..b445857c
--- /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 00000000..2f873cb0
--- /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 00000000..d3778617
--- /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 00000000..df16761b
--- /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 00000000..2ab9f0ed
--- /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 00000000..04128cc1
--- /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 00000000..3b2381f1
--- /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 00000000..d4c52df8
--- /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 00000000..ffc6a313
--- /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 00000000..b007e7f4
--- /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 00000000..3fba4742
--- /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 00000000..a91ca830
--- /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 00000000..1ae3d538
--- /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 00000000..c822dd2e
--- /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 00000000..550b43c4
--- /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 00000000..7e8e2f52
--- /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 00000000..a314ef02
--- /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 00000000..f113a7b6
--- /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 00000000..0ee48e4c
--- /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 00000000..1bde0742
--- /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 00000000..1bed683d
--- /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 00000000..5918f8b2
--- /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 00000000..28db1df3
--- /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 00000000..d104b29d
--- /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 00000000..d3c9b224
--- /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 00000000..b59f3395
--- /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 00000000..1c4d3971
--- /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 00000000..ca6b283d
--- /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 00000000..7d7aacce
--- /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 00000000..bfc8f1c6
--- /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 00000000..9acb831a
--- /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 00000000..311f5327
--- /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 00000000..1bba270e
--- /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 00000000..0f26ecc3
--- /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 00000000..6a5279c6
--- /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 00000000..7c48151e
--- /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 00000000..c8f36680
--- /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
GIT binary patch
literal 611643
zcmagG4NzQNe;<}}{`cIEy?giW-Mh=OtX3<85F#2yqsWSeDypg|8d;;Es;W_`s-YTH
zR#a6ZE05)8R8{j-!@I#dYeEPngb+*^f-&aBn8BD}!Z3v4<s}#syu}z(%wS6Jh7f`&
zCKOXbe`k^2_j&v=y%Ml@_wK#t>;L`x9sREyA0O1Gum0NK`RO;GPk%Ri`ZHf;Pg$%*
zp8nmR`CpGue{U%J=}#S>^1oVleEPH5Pu1W4IeGfCuU;LW&St;+v#;J|Pxasaf8?h>
z{WEVY<;73`)K4(^`*Qa8UuWvOpMCZ-KYJ;AcIorkPkjFS<<rYdy!@GGZ~i({-oO2s
zpE^Fdbo}Qhj{jU{4XmEU4JUM`o!!ijU({%sujUN$@NX)vef?gj@MZD&$c+(J#TuwZ
z7h;HISS|Z-L)>X$gRE#<nPHbNivjlUbk}ZYF{8|gUW?in!zCe&F4*}IBR>`kRnwTd
z#N?NsJs!cA@4Y2KBs5Ks5cD7>C~Op1`P9lS(|9|;$chfKGM6IFtdmc%THeh4_JS7l
z|1Nj@zkr{c5wj@Yy?D<FKP(QrZ?A=~*l}$+V7-VXSrcth$f{C)gWLA)`yr8E5c*VP
zO|UyLt>`ddnRTpqf*&cG`#tj8cg}~3Z#}!}#;%!PU%Red>G!QzJNV)eE4!WlkhB(7
zlCRaA_)zl6x)gh7d~@&m<=cgYL+s9##uF9n`rVSEXE^Cr*Z6Qww=qX^yd%=2wo{Vt
zc;}dCQZst~s-EIQyoE;|EU=_DO0HelOV8&p@*n%jqHCcswSm2xwQ}t}7Hi`L!&Jq-
zHg7K~7wjf(-+dgu9NME$CDZDd`QS?EK25N)DYnV(2<!HvYeVef)oA#tY2B`6QM1<w
z*^?sZUr}6ty;9K3hOL*>tv4v^d`R55XLc(uDk-6ku}$6T<y*?IvaU?4y~?P%<f%{|
z6c(Dp%xPe^YT2V+*2rFtl34asQZrSHTJ_(kA-kFnvPyN9cG;RX$mWz3%~Ov^YRkNZ
z@<(|s%_!jpWk6ZgE+-gO^I|F~u}t$?!IMLlRHo_q-AR7w)w^ci&7M|J7ZW3VQ+yTr
zWzDs_ln&NMp|ZDo%H4bWMx^ZBt(4eep}VWhH3wJ|`<@fB>$OfhCEoRk261bH-D}{*
zSKi(kXV!pmX@+N*C>-IgX&8O%#^qs3=m|c_e_)2}Mn1~S*sYJ_P8(hB<*w6@NuE<$
zl}&YowXjGxUgo=X%nIF_=GwT@N2@I5&$Yz@yKyVUN?zT(cs{>JEo$TML*ta;uP#0K
zAoi3l%CI9$WFNbBS^Oi2K({y7zepIt(k0%;#;KcUcnwSQch3y0#w5RbF&Zzu`Jt?V
zU7chXMwnZswQ%kBt1h-<=GuRRncImsQ7z5V63yF7cAYqKE+u)dGRrSEs@v>RQn?RN
zWFu@!?CPOGKF&KSAr|>6B&C`ys1=M#hUie=qM|m|$(s2hVba65`&r~kkDF(=@wJ>J
z7u}lZ(5g-|+Tx;K)Uh2dI}r(Ou$wooUVmD}iqE%DJ4>+WwM{m}p5JMLw7<RfxUh@O
zu@(N+^)`0()u(IMQ|gD3dG-xNp;O(-saCggJCvk3rC|;-;wYz5l_Omdu2fskwVfMb
zX*S6g*(|#`<e68xl>xELYWOxyv32&<!y5jqHg}6Q**Jr=-kl0g@=7riJi_yz%(J4J
z6A3<o*LN!UQz>*wp5k&f&Kn7D4Ig4yA-N6E7LE9cHF3;ZE5od9Py=h_ZM=(5s8hUP
zD!A^c<(;7+wxMo{O4gzD@J3cACOOtRBu{NPkz~#JqpbYHwPp5fGtj1t^9g=)hfU@5
z7`KOWyNwF<PMSX(JlRN%e4mU73|!&%$p;S;N>ilwbXBxdtB&p~jclGz<}9;=T(eE7
z5RWfa<R*Ei*1-xF*?K62;pyj<N~5uA4f3yAow~>p>pY!|RPk=@DAzKZl^W3yxiz8G
zu^~RppDywdNN{7MRT*PFw8hHamhZ8C8a<un(=3I~e?3H%eDTD#sNf^CA*#e7^yaQ;
zq3x3x8{SH_r?2&>8+?t=D}Bm(uv=a5C4+PHd_}8qt8yBAW2~xpQy)-9`O`G(6|4HX
zTFYYd?xyj4H##0^^JZvQUt($hj*`%hyope2AYrtb^St?NyMA+28TU5Z^Wnx*!)i_5
zxH$B!#Jf)%F|jBvEb>eB%C@~~)UYMbIyD*1EWg@b_g5Fx6s)MDp=D3K(I=)nV`9(l
z^l!3hF%1>C?2cna*Xb*sHt!r7o+;jlY(}b!XV0yw4Lt2U9aiqwYqwVegZ?z#8a%b?
z?uQ5XD6Qq(Yqk@{inhp$Z`JDyMm(10^}!m-1h!OT*eIBzE~;l43K_=JdX_YbdW|=4
zx|Ai}%QlosDAs-&pgQHn{Rh)x)jDKTJZ<JTD1GjcGiVH1J)vr6`Rr!AMTs`EA@@Tn
zZ_qn&y6wcEw>LOI32(_<Xh@k4er!L{==LdXR%>vlU{ACJdzI?ETCG!Si8q~G&mYr{
z!kb1acil+j9_lG&U)^ApW~X;eonR|xkBZur;vPP$jT;Tduvv#CbhqJDS70kJ5la|H
zdZRXzQ<qz>EYgC~NIiPDuQ||1<Gw_=GHfQprcs^S!ZO~0;;~q-GOx87g=2a<Zw<wJ
zwAh$u#5+K58mW!;+%9`3Hfc!pU1J>R2U^LqD&^7~mTm{D5+h<fS{tnAV_5qWV#C<i
zT0#>>g?{Ks@d5QiGoPmNNk4{%IzqElWv29H{~Xnyu7kLB`iAs=ZJEvR0R>h_srBzT
z{muftnhI39uhDL{M9Y-17Ye%aM#VO5<Q(b7n3AMry&Dg2R0r)wB@G4pqLQx`n>AW!
zon77+&BmnNmAj<P({?23dA8}TRBLElU(=Qyn6^RV(5NuCv^Jy7)1#FQd5_L6+538r
zH^C1)GXfrtQ)##x-a+q>-J&OyMJ$&NzQwnSJM@=rhSakalvT5x#-t<tl`V43Ju&sI
z*KTdhG3xMR9GxClmfdCUEWjgbahjD@?-A_eh&iqF6)bp1l(o?L&b;ES_+oq~KJ2WX
zZRB<O5lebH)DEMamA@O~M!kLzPgsfQNMPUHEuIM<LJY2Fv|9tA1}&ravbI=1s}W)=
zFl1bA;gc-sPh0CWeRAJ7$C^B1PVBIL@0f12vJPf%2D+RYSjgGDHgV{k@gDeF7{;ES
zy@KJHQ!8>3Ikm>5QW;76m!mbjlV_A3<$Sx5(YwONqBfj!AO?eTO0`*Q%^P#9N7N{b
z?CD%yiyy<T9;gfcO4ehKdKZk!)9db*omMJ+wVoB;2outn*QpGubu>=%dO};{y@90K
z9W!=3`*{N#f3)d%w=ok>$LHch>WbOQ?yk@pFJ0xU%FEZg?m>7yUKKpZtB9uUEp0@M
z7IhijPB(rk?FF%zHyllv$>LP;6z@K_Q2e81KA=^FF+bJv*N-PA``jM+aBZHaU>wI`
z61sU0ytMw)to_{5>E+W}tv#yEYDuM5X;SjzRpQzdb)6eLUBlcial4Kt_^tAnJ#?>+
zNewEs=S*I6<S?gBElY?AQSvnWV47w4{RZ`QP2L=v4lb}|MrI<Cproj#D(XDj${zO6
z#>td&@qItrQr>lwxkJ5tUx}<Jo&0<S&GJopu_n^N4$&!$XHjzif{;*KSivG|Q+vcP
zg%*?w^-1B~qT;uMFpIFX)`Od|UEgN#)tfDfUr4Gw><~j(ORd8C)XXlgDOaw>7U)uk
znqWzONUOqj7Wkn!5+6%nZz+#fa_iki-<mUGW;`p9t_|Kyi+tI)?rTzd*^H=S6G~Z9
zSqZ1?I;|$Mq;L9q`55(St#qVzdRADAwZ+HmaeKlZ;=Ssm-R|~KcW{DLXx&;x!IV83
zsLtti#sYI%tFO)1?n@ihMvK<y>-B}_jW_qI`0Y-1z`kivYMEJQP~XX|{O!n*dF5_3
z>t(fCuV+#*wWQr>cT*2b7dPnxo|Zt9Sq=aC=8c_jO5e!c(XixlGun{hHu}4$R!^};
zsY{ePYN57J51Z5)&g=zejEzVKrC8Wpg=5pnXpU9!aGHI%(#&qR@(WY!rgrgiw2MER
zW#Php-p8*@^I4XpAuY%LS6YsLJg{ybXjQ>x?Z`LkCOu77!LC)|tm}KmcC<!RTKoP9
zwU@nkb*NOp0Qad?3Z{6JiLwoPa<i8e6_oY|BKGphCcaTPZ8Qby*rT*&ypA2JD_XZc
z!zMhjBc+4iUS=J}fp3u7t<li7Uddl>8U31D=jk_U*&e;AQ*T{>Q#i_N_%5$Qe749|
zd@D|Ku+G__X?xg{bkoLaY)&5$9iq{iVY9r$zoe}BGQJJZu39IG7T73Fcxq^fttsQ-
z=&HJ--+6J!n^^_x;_JL#c~`oiH1VFiZF9-rt5_>)pSHxRyd9pdP*3Ra+*HA0PVK3+
zz^uDmuzy<4On>oVXvR~iZbH<Hx~)<EI^J45f3{2OIyvBJgks&J9jK(&HBgO>%KZrr
zyFjsOzQ7WEk^f)*sNEfH3U0Zy>ed;vo?d?@Fk`J1q&&@m+QP}R$-ruOJ*WRfpSEXQ
zZ_wUNQnxb2Ce<Z=ewoUS;Fp%!HHZqA*b+wg;B<|5fsLsh?BW!Ed_8tmyZ-#)n=<>_
z-ActWsGlKlZQ+Jpqb&2E(*t%gmWr+UX-ss(cvS~ep>1z(UOJixR4SX|#W!_qS$wm|
zqR-RbMq}~pW}pYr$2Oe!ZatnsB)3Al$}VEHL8T9|b1FC&m^BA;7SuZL;h6#74wUuq
znb{!Wm<hqj4%7uZoLRo0En~{Z)ugduRpv~xCN~Kmf0WwHy}XfFOK_)n)R^>9KlQ0C
z+J-)*jh<+yYEM#McJ>OoeLcSQ@O)%SPlx;9@Xc#odXk)KHljCsI{4VRZ8j`MinmTx
zXw%NNTI0fI)WMsZ6OCF*e`h~H$aFr#`qg$zY*0d5h^$7J%*wp>;(1TyiKM?<+fi4c
ze%3q_%A|6@652GMQv2XbXJ}0==o8mgwH|h>iEVlMm1?8TJFPx^Rsr4G&erImh`+7p
zkJAWyUp~HiZ;btl6Smh2rj%aaI%~G?R<U~O*T;=^Gja0h%#pQ56GjdEvO!;snmXMB
zqdTt-@cWy1(w!Z1Ts1}Xd4U^?Sn>0hDc>}UOv`#<=evgMI+ha;SqLcINcdKH$cTo{
z7Zio<^Oogmx1%2(RWg^NSM19dB5xmr-xS@uP;{;EwkB*h6t$|ElVIiqD>B1&Si5{b
ze!bAXcij@E5pkoAaruSOz%I}Q>yERf`0Zb1e*YGJet>L4Bl-RRk-Po_obPz1j8@Sf
z9pGJ_RaPkw(Wry^9$!+f--=J=_9)c|8Q&C#E_Sfc2g{5b5yK*3Yu7Zhh#rPg>`o7h
zQK43F_eF7Wnmsn7`T6ENMCHPLiweJbWw@U%T7oXwVe5PYi)&6nbeo;G%hIfi(HIlY
z{;deuQ#^nuGk}IU{$Evs{*=*HIDV>`ubv(B@A;R^sn{+X(zd+2c9J*Q9g$t__Lx59
z8Mm&qD7_H5^NqO!>g#TLNv|eZJ3F9<P)+Uv6hSQu-JWMn%C-0~zyI3(MPJx%v6fY9
zR!OoR_NkhUD-Tml^idN#AM2udBrSG=uaDGEgV4XJQ&p#`Pi^u+Pu<x{W8B{zS@#YY
zNAXT&I&gPdt992D1Y;GvpQQqs;34nR`x!*55z%Zr;`3&Hz~+5b@eEsG^KOf|r4B1y
zqQh<T-)m#@X2G2SN-D?~jK}Idy=J?oIk(PQ%pJ|ycV^iEZ}2ai*)Z1C@_O_roS+eQ
z$a;986+UF|n)v%iTkK9XOXv}|=;e)v?cQ8_o{f2$d1wcTj6OAiB*!4t`VKs+{xQ$|
zscNIkX!cimMwCow%^6T9oPKQ~e=)zpvp`Gv)z*R2Z&dNwoK4R<ujMmvfG0yViP$XT
zY0(yQYRnNm<*9Tl;-mV_6tDHy8`HeQ*Xir>)w+{<ySAj)<!%Y-T333KY(SYs?AfVg
z>{@e3o7Ow>)*>@z`b<V$6|?N>1}|$-+WCq~Gzx=%M339qgEuYOp!R7VKFFg%qtRXu
zROM`nEvugD*dbL~M{Y-;GcaP^U(vh7q^MSVJ-gntDRp;Gc*z>I?l*a6jV*t#Xx3-d
zJ@2ehr6#m)u@xTSb>{4uePbbana!!=2!9^msbZfx*|SAj;ai$@yMf!r43Z<Ox%J)(
zyD@Jdch+t)D)JVU-e9r_fn&5udABbnwDFUp-W~HoomI>F&Q;mFC+dw^>dvY0jEV{c
zE`6Um$?mnVHg+TY&~e1ePz~E+w~Ec%PYbo^A#dmJjY?@zL+9<%!Vb7_=gqe(+?Zwm
zTo2isYS6zOSc%rN?!eLMdf#?V(rD28{R1@1di7DB4m5f90|UrgH0Zm?uw8xJELO!T
z-{5uZZoP4PhnI+?(vHQ}%EkACdG>PQj&H=%=*jTH5!Pe9-cnbb16I1IwyD)xCq}4N
z*~?#dTRpAbS#4T@LR0&-yN^W$y`@1lRWPKcef#E+QR%DFdd=PwmGMM;+0KNk_)Kh~
zNQQo0;c2(#)DCoYO6{iuqaMLjrL`gIj78RaE>Tcfkk%JYBnwgnRRt~nv@(z*gNT&2
z$X3~+Si{eHe5+^@l0Jo>Y5Xjp#mo98uM?35qs4dV@AS+B+V!zhjl9R72u{dLa`yBj
z&o3Kb_j|b0&g$sZq1uLgWI+M4b^P}+k<(Tu+u+rqnX?_iE^9)WuzTogU(SAXGSFxA
zdm5~6|6X84qc**R7Suynv0iE{Z1&yRSH5Zxy~en57@syea!19Evw{Tcg6KDg^zGO#
z4STEnY2T#3L$A^sJp10BJZcQg2j;zdMzc1d-s_21pXk*NSV1QL&{u7D(!RdN=HNXX
z(Y~^)q}573>1oz0xF{OrT}rz?Ar6XWPao=Q@gseVHRSE&_d0WdHX{+<4u8|Yd(F+*
zQ0{Whetv~DaPlxbAL@7dBALR&!g^;mGOuQsTZ0UgQy9&^Xnt%!uz%&s8mnP<Lq!R!
zgf@1)A6djpt=za|X@$$sA%?ccE}LEKhgfozdal1QIBy&k9-dxQ_f)%$s?`Cu&u;fn
z;U-+iSJTF_wn>*uTG%ujX48n+c1(m^X}0Hxme7>%(AWr%X-|usNWG>FA-gFSv^9nm
z`|PNw;nap!t-Pt>9UNw*9vbapZ)i&EFgC-zYLhq+!`$Ad73MZ*4eUNLJ|zfHceP$j
z;81YbIVfxpZ6O*F^97^+LnWas`O5oFCA<ilt$j8q#?4mV;GOa;IjcEKPNUnT&Bvz$
z8wD$3CpL&F7_z3=Y@oPJ@AahBN0Xu}cie3{(d!>U=5<5uVhj3eev4;Gdq2)EF3=)t
zH+HC1>pwS?Qym%>6Kqepz8_w+S82|JOpn^AEvnO^fofT|vdOFX^+UGlT&*fhX_?$Z
z(Q5VihN8VjkKSPS1`qTnm2Ayj4jmvP_i2_li%W-$mQVC6yPoZnwFud|&V6xjn}T12
zI}zXYY>A|pVf%sI+>Sg1b29KU;?fk}s1kKlmJPIInDs0HP4=zuX*iq^4Qc{W8p5((
zJ|HTfSX+^{nZ;F$tV_=yJUzk7OJ2&Lu7}W5Aw#Nlz7Xu@waUdUC0bZi+zfv@c1X|?
zE&|2-4>yqxUllUidL2mzw+WG4=q`e^TCy%*xw=aqS90fqTDX<HXj7jY@=K+UCPY6Q
zpbC-^pbY6g*%_Wv-meL>M<C=|RR$0_%7|l6L!>ys`|NCV(ZCBz_fPen+~EDjj`zT`
zEo4McS0sJ@Zf~R5ap&w!eMny}Sk@0Cqcjq0vyZG}kEKx`)R*$4DW=h!&-Su0Yc6N`
zUu-RZ9#+2JSLJESop7Y-J2qsScBN-n3?SVy=Nr@p4QYQ8PL23tQ!2bEK9<!)$6BZv
zL0p$!Yj;^g;eO9yT&j!xGwq>KPx~n;n5`K1HZjdNSW%^NeM2=a)$<CaF}UI$!a+*W
zXJMMx7kx`wy$NAh5N@}AA1*o8?s#x5+!m-Rl*=idGiIz=(y`x(Ce1#5ORI{v`7@z0
zUSTgP+l4F9m2<QDlq&N86#>ZB*}l+`Z_lWSAN$vXXE3pzi8Jdb2T!zn2R+h<S&J2n
z$Lg%z6Lkf>=QiNAmDKW9er4C~<EuzNcku(aNep{aMiYHq(q}ZC*z@<FJI*n52e;11
zV02RL6Uh@z{#k!t@rKo@g?jVmPqds`_g1nE<Z0}yYc$4RuJcLbqIBO5-I3fOV>r}z
z>cDA+1zkT|r^(Q_EtH84AeEYpB2Nx`WQ<p<C4G}hXSB<+7C1apb*?feg$QcfXwGfP
zt@TxSGM;IDRP7d7$6*exPlm4twk&Dl8+91?H0$6n@BNl-tme+1O`Lh$6>fHS%s$0w
z@=9CLrb-jAs!f`6`i^%y)=@-KhfDQ6kduzJ>i3(F0H`$&3WxHf{I}=qAkvvU-I+6j
zeD{EFIXDML10lrdnU&zSwabtVHCoIivx?WcNn<wlT}wSyyzDd=Nv*VI)@hx3&Dm-1
z67Sc>oMcY7(-y2N?((k%SM;Y}tpw&yrE;X@%Nnt8m)3vc;54GURIoKN7dc={dXqwv
zxfOYzy^_)5+T!-0RII~Aecrp%Mz1>0h7og>%HUpx^c%r$T0Z$_1N3pvuBSt(wq?-0
z8XJypn>9u+qT&@#hQV`WeZjFayY_-Qd}gP(Dz~4~)`l*_w+>{;*Qm>E^tLI-US`%)
ztcZ7?8Pe7w=`*vrD{7<tXS_A|XPfSiy|URegD0)q_1^y<hpCB<{iPd!fxDDK`E;nD
z9U0Ba_*&jpp7b_43y*z`@A?!Yo;_>G9mroX`vY(ePfIIW@621H9%;XJPBl2|v}jBH
z{ue0h{#+U9C)A<XtfwY-$g^WXYkGUA(%8+Ju^aQ7^bTtycjNS;v1IS4S2m)^@~Zv0
z6aG2hp$Fl0liHt+L=Uw}Yg24`wmhTO5njt^vJ#H|p405E8|DxSNw-J!l%3$m5!rw`
z?H%M9eNr9fE!I*fV=VANW8U{Am>3Am+R37NR_|+ejy$uPbkXWV!{<iMjpongY<Z?A
z5vg}a12S_}ZO-tm{Jr3KAe;1&$)3!~jlz^?!fDX=v|1-D<MG*(3$94|GftInTs>mV
zG-CAnd)ThinA@ILV@?&;nlom#mdM{>`@R~t;!Ikf4piDp+7Rsp4kC@dqz@%lW67-Z
zH;HNEbIxbT_hwGLw<wUNIr1Y#!y7##+Tkf{&y&rv^mzu&Z9^s`x;^9Sc1~+f)tPo$
z4^OGn>VQ5+gRI-=5?f+l9X&UWsI8a!%qCBpyLe*Yb9h!6==F@}$~a)j+BfFTH2S1t
z``LLqEIbJIc>C2#t&Q3Xq&u>!E(D}sF)BtP4c?}_QFr4+HrCxbTYYw+XtPkpKo!QM
zK9ln~T7m4<7aWHXeYqEUPxSZ?Jxj<8uX|_C9($BWu_ezO{JIIxz{v@{`K0tjHVWEw
zxE(vO>d?M9o|nu|X)@W`Xd-Jk$2VoputUg<VUyYFxSLwa$td$?#!3V_w7Q^7f3%x>
zC-$v_f=z#~Ie)6z->=C4M8+K%?{Z;}g#?Vf9a${w%c;_5;AU@z$ISulI2k%&e@THZ
zsLf(YKT>y2ROfujU?O)}lOywzEhpu;)#`8*%;VJJ08NMmF@^Yj90|m08Erb&ccwXb
zcy87`PL#>4*rK-<^^zHD=VaNshU5WjcSdsBa%9$MFESmL8K9w}%Dl=G^_~n>=00BZ
zG|}3*8olM@w$?*6s84pV(sq_scEpt-<zlRb?XrTtK%Onr5N(Cio&~F2g!<KMowN{Z
z(I+Ew(TPCC$suP~X%CNjr~Hd*>SXf7q_--xr)TnKz3Jfj&mL*QJCsv%qV~ilA5&Vb
zh2s54dlXquBqP^z(&m^tn2Q8qsG(@Ea6xN4Gj?w4RQt)zP(th1H<2Ey<SA{L8c+yN
ztJ|mdJx}-foo!Y;q*sc0#cmYO2K6;-*j(}q&`z-bY%=;KjOlRp^keV-$b0P7_c|3;
zU!*U1RJiUW{G+1BT*+C@na}U_j~RWw?`EDS?VXU!H6NK%`8EFi6W#h@sKPhsjOs`z
z)}N^@OzG{>E~Uo1YsP8}neE&5&c-$z1X|wt$miTy#_ixE#b5Geqdu7^t6&cfgv^cg
zg<D{0Qz9kGs@brys;mZOrfOFGrj~E9sC&_gSFnpMEcW>BOLqyG_A8^RJHe2UtLB9(
ztgxM3AEoENrU&gVPp<#lDWPySBc%N(A#})Nbbf|?Hy8BryQ!c8WP%E_i6B4;j`KkO
z9$BE@Lk4IWIFH{zifYh52lPU%iB!#k_>!opX4A@@E?Pb}<F=ek=QoRS{g9S^6!{AA
zCEi_St=`QOebEME24P;ieq@a5z4Yz)?l_Ly&+k0Zz~_ti!kb80@0~jiE4G{_hB_<4
zgYLr5p8RBZ<;+fa&xhFB8nO4nqoG~Tw4L<UxecK{En`g;G`XY3M7YV@liy_TYOUHK
zf`n<UI?_*d9+_xa${*23^*Oc0J8m3016EVC_sq7_<*w!Ld*=hKp2{;5=41fhJ1qmQ
z*9hu!_D(ISvTC;FIp3!)Af0q{GVSfMYyFkMS-wk?EM-i2+5_o8+nHvq&R9FSo;w)m
zbYz;WA#Xg?66iPAif7b**1#A1Yg&rhJ?WE6(J@q~r`<6PV;@~Rb*aWfw8@*|buwJ!
z*M%U{Fl~V&Ok~KcFA0-gQIvpgazpY|qnGxD5`1<=Pzh1gHpzsgHYRWdfKY~sVq2|(
zD;<C(XhNq_+x{Q?{$D}5aZ?ZYe^(D82qTTiMP|_W{0xbl!k6i)&@SL3JVeM#fT)s>
z{QMza$|Dqde*AWE_5=A=0UGP#dXrGtnFA(3Xl+V|LN$z*Sc+%wlmRd!!Tk15`u!2V
zztHdh@BRKU&Gi$Ne5>0EagH0BRLw}?A}X<DmrZ&JG?^3EDDp#m3~WV<2jvH`q?$cE
zM1RZg{04IaYevw?j^N*rcfe?HuFF^GfQi?ft2q0MI*nTjp&VZ-zbRiHcg+w6g=On6
zoyRXi{ii@Y!4Ox|HvJl!C;lZvfDZ(lb5Y#+ARiS6jLoK0_GV+;2A(b7J?@hHlsW)+
z`fme)Lf6gn`*U2k$nQUb(CvtvzzkBak1xe2YLI)&urZ>S<Tp6SWEisPLPa0Ywr|Z#
zwx#kac^!UX{LxB|0mpabA3^e)vh#Q;Y;tVJ0gBEwW5SW0_&+%R19sexXOEEp_z)?|
z!s+l-`80Xg?3d-YOMir{!`h-MZgT!Dd>uKs*4F3?$nH0pZJ!8*avdk+IC$~O@BcmI
zOMf~i=NrHOw<#3(g1W;B6j|Wi3$z$L$gVg|bHjAmjuTY(j95k3jDKao<F)Y*5|C#k
zlyyAde|DU9kLy1M=3!oL()A*XklBu#Sle<AaZ4PAyeY<`Xv*x<EE5hkP<sVSfbE4A
zaGMkhIO}G}xpQ7P#kZaad`VoAD8A6MYbE%e97C)|{3;wUkNAr9pCC*P%yo|#J;Fn-
z<zsXtyw5%_2i_FgxH;uVE#H<<zalaK_Om{{mf}m5WZU1|u&!UGTgT8p^bv1wMgKkk
zgg`z41ZX^d@cPbE39Q*;#K|d)kY!(S&5IQJn;7HRBcsqv(br?lw5f-`y_*kBA%@5%
z^Z8T2AR`#icn>qFokzk8?3zV}*3N}BL}<zmixx}8g0*n@=aqo-b0X-BBk?~-u73b4
zQGyOb&>Lu_CKnpo7Nct4zIHDy+G$Qfy$hAYabckiH$}k$b0Ze5vk&D!C+^WSYsWX8
zW<t9f=wGX@UB&2|AzsD)5d&gzo*^?Zgqv$$U%e1U$2CAT<s;lnG$N6VH^%t|dj9H7
z1N-0jF`97%0|tD}yQ>$Cv>Nt*9|OOog&bfTt9Yc~{RIEJ+_r#k97p0@yCCIU6xbAU
zM1Ws^X4^l>ON9}>EKJPl4F4~AiDhHXfquM656lN9Ce_hwfFP}_m8`6hT{bk^0MgJZ
z0UYvgb4{~cD=tBi`I-<|L@tH@1_wBjG~>GAiYR%w7Ba6bXd!<$3k3dz2i*;<r6ZJg
z26({v2h4Hm6*EFjjCLWLI4;;W)R6#EGi+NT_L7!a9q(ix;A{U+e2PkI_>&5xkpC&?
zz*klq0sD_oo#|HWvX?DfA}#xHk9>4Vb2Q^ZyJFJKkMFmX4ZIuf0H`KtA7e0+id++T
zj)$A3m>^&$9}UqAF00^amSmV&bOtFPvfW?w1pReJ*#9HEW_|$xoA>EiBP+ZG$mU1P
z)e*PJu4Nal6$&kCynr^mR!n#9W2rl)y};gfBH{AL0uHBx?uw9gy^dpn(Z>pQGb=kq
z<{$vT>%#T_5hk!g4f!{6GzqtR-X<jaGyX%3V;N+vmtlIO%Ha>;6wQ%Dg!c0Teqqwg
z@pmco;^x0#+)i;(e1gC4<N%3Y-DM$k^l$M>7LER6LPO;vG0(VRwt2#UQgMc1^P1T?
zekTD~uxMo0m(k>pv`&}5$N1mZbDRw2xHtU%KM-LDqa_NDp{8<m;y)E)Rmnr#cmyT>
zE$nIWE-NehAMwPjemK53d!@YivoOL+%QFYc!G$o&`#}aU{_=15amhQ>p|*K>0@zU_
zdOvjGKfp|;ndAS@dQQOc`~Rljf64FvKH!{PN~8t}V%Kb8K(@|dY2CHy+7>TfVsc6@
z4luLm-TmmL2y_5xvfEg<3I@|Kgl5nUY1VFSaV>lV;3Xb?jD~GzZWFs>*1^I29;WEO
z2?Uzq3<3dFiA-x&1@ti~>60)hVQUs69F9JJVx~~?e}S=u3@tD+F5Jgh$>&_px(~39
z=gG7NSy(iYmmAycA_?Qk|I4^0N^W(s+a&%#3)xf9IqMLaf6s#fz;E*%@%FlzkHVp~
z3P<A7v*+j+j>pfaG7HCrdie~<rCokoYIjF|ZoqG{BVj0i3$y!;e2Y*JM;@#w!EfB0
zV*e44;D3W&)sXAJ8~Qeam$X8GtgY+(hFo^?i)g!id3;#E<qHDbI|9e&hTRNo>pbkG
zg!xJde&t-+;P<!qi_dW1NC!t}<qbY7l6<rcDsF)%*`xO+m72F=cI;}Q_`Z>2k7KZ_
z(C`0%c1dWkxRJu7T*;z?A15izi`Ic9xp_6@v{ER;&8KvcO2Qu${&lEe8bE{zD5?UA
zV^tlmB-wO%K&`_4v96LO6&S`|4icmi8o?;Ci>{eE4{6`DK_GMvr16#Cf?M#<^pO7_
zz!v2D{rCL-r;Y>M@#_mvNB3WaiUy&sx_Hr7Y1B4;o^d=^iof|8g$z%XqCg^xyUwL7
z7CF?P1tVMcwC5GfwnAFgxspaz>Ky6Wz{M(r(@Gb+Siv7-W`0!(Ig=QL--Hz^a@~1l
zLb*WWL@oRZGPQ;ABe*IqeW3TK6aY<ZS8$O+@bb(wLf4uwMlPD58CZpbR*wB^BIIA9
zB$i$yGp?b?G0iXUvr2}K<xxQ;zaTh;qHtM-&i|dAYp?0Fq4w}BG`c~qfU6f9S%m;V
zx}BciH>J6R`+=n=O(Hq}*&nv&(b{9^^Z`rb%^mI2XZ$oyo;LxrA~DqBpTT~MUq!~d
z`Y%CK577JYZ4`te^w_}7{{(S(+qXc~cB+_t2UvZroO-eHK0~Xe0x|EwVilhUs=o2`
zW9<%A{ADO>QSx1w^$mC%5@!toG6)FbFKBD@6QhYfXW%zWONA5Thd$T-g1{yT!S0UX
z?F|n+O$o)u)sswqhbYai5uD_T6GXqy1NJ07g8+OiB{9uzUQPk3Ekyfgur|mQQ|zC6
zU>ew0^kA7?qNh{?)HYz-WZZv4^yC%Y{*2u|L_G=q)}WllN8QkOh2O?-(^G)B-+ULv
zjSKr(R>$HMQ7a(bTg<V)1?witid?gVb~m2*0`C4RSOVw+zG6aIXQQ!pMicD6vhBae
zIDqUEs<fc+WeVWljJSUu1AgsWAn>739U%5{jOBqL9YHA?X)SpiWdp1_lSWO~&W<A9
z#AwOLOfEGXKW;x18f!KVZTjE+HmpLsRLzI{nS_{kv+X!|1?5ot<;OsCYRw|eiGBez
zhnuv`@c5A&>NakF`a~cS)CRNA^F&tPiCX}m&u3p=Yve0<QO}N%=$MI<1Y95b`QYIu
zm!R}5z6f-8@9A#s7@WS%cYq|5E!B`FmrYIqT0kk2(!PLQ^CRu_IiQpmWNk|J#g|_w
z3VM3Lv&d+F0NWQps0x9rfB?_)b~%O3p=DO7>;+Bq3-EXCd_^t*>fZvuPqPu=x2hGm
zt_!SAsaFm{%}R^19juL1D*5~Rs)cY=LXq+Dv#-#d<0Iu4V^B7g))-5IRJ6^-oHDO`
zfzB^07`2`N)yNKQE1##LQXIJ7fz+o&ZET3AC9u9m0023{YwRIW2OR4trzJQxHMvCN
z;BKJbpYO4+v<ANgzMmF*EG_z>?`U4^n+sy}^rRfp8vJDNl{9arZOD&==4TikvVGbU
zU#Fb|k)5?}{@NWP0vIlf*q;rK0M}Pd>*fmh9IKo<aGNSnZjM3xbt=^;FzmoLZl7#X
zzu@^>)jH)znEp<+OO?2OqF+@3b%pYqj4${a*@q#dE8is5MTsA=8m&3f%3tlPVoz=K
z4%)M-1pe2D_ElQ<^cwwKbVX>*OSH!m8bWCpxewYPffLZqE@apgt)g7i$2K{r0Yraj
z=GbkTruCRtZ;xs~iB4+dz{_~vWoYB#;+Qgr%1TCyE}IyV6qp4IA_FC*U63w-cBh$X
z*ABdJCr7wh$0KP#SC;7f7L0cSMRx&T0ApLDr0IaQDHo2!rqUYd1HU1S!aA(>8X$r5
zyv1{%FM7K4RlUk+;Kl;gsjCXi!>0ZtRs!{?+d9Y#n92mwC!)dF0ttbJki;KUfkMVu
zW5&d=v6M5cj!UUuFb4eNVhs{qD1E;qO@{s)p<%!?B)&sw*bK~gV8xd`F*t5BK%xzJ
zmyAPiwVkk#)<q0^7^*2~w3@7D04!-Fgz7k;I^&$KG^vA3?1A%uLYsDgOjU#Lvas^u
zeokxM_LjP5_t<@iLJ0WR1zUXKNUYd%kyU8^zlbZ5D&DdWjm-#}G>bTj>J^cOVApWi
zq65gqy8aJg6RV2{JX<{Jbb2JG;z*tKJk<uWv<eU?40vS-<`iv9yO*R}neeRMrnjG{
zGDc#nZnZJ3jBpT9s`xrd+C`tZ1L!i!XZQBac8qhoM&_k&Q!pexegX1P>mBt2bT6qG
zVXFnmFZbJYj78;uQ>>m9X^+nvWf@<Neay~iVq@&-!!P`dEl$?8I^|CM{)2xj@hf7S
zM!{h?=4x1)z0X_NoPX7y<`W7@+J+dg*8Of_d<UB0$Rn1|PCD(rEQ4du9M?WfJHz^*
zcg9IOv(BnR#*Slk@fM#XbtD5)0Z1({z`tn?NT*^rK=8~q^`(FY4N7bAJ+<EK-~*EU
zu@f-oLRIdNGV7~UKi0THt2TDMjc!;pDs5Ivu-|>NPV2@H{GTc9z}zlaD1cWl((ay^
zce6>4P4{xIvg7W$)p=B_WxP@yH+ZH5l>9vOXAPy{u?w2gD>dM;&>U%ZFcsf-Lv~A$
zv|VFH?BjiCGU|7~#)|B>DiM!ip>3Q6E_5?M8wL#q5nHYs<3aRn!JtI$Y%rm1ur6_^
zF9J6=l$T-0loShik5zqzDxnbB2ayc4dk6Gd{-G+c?BH>-GZj#i)wx{`L??mJ;XG{z
zDyWmWpE)e;DhQyo=A$aZD%uxNuOs}i$k!Z%Sl8aYGss$GMwikCA*VaW82k&f0><@^
zjU4|m=Vie+iiO+HH&t<@N00Oa0m(=)03sIQT^KtGDy%S+><b@ekcGlM`liteo6$^z
z$}u-)BWF8DlG8qCT{rnukiHj|14vXE_GDjxI)emcTlh6%1*rwQ!;}ha@?lnk`RY{a
z+>!8SMopkq#_F`BiZwAG{!Fj|P{fIEsW)R7tV+l<O=Eq)9ig-eU@yIvoSQ>4XiMHr
zjo1#*v@!r>^eBLU3z$<uHU@)eP-N5<`b96OoQ9<4Xx#ulo7;b$o`Znzh#fI|h0V|!
zY>%3an_)?|ITY@%dvokst-_Kh!&j>z0<D7T!HC#L$`3rAI;9x^w0d^vIWRiTe2dky
zmAjo=3lgxHhBqhqJ<`pAMFYqY$|ifv(pZQZBYnz(n$o57AYBDS6-aZWJQvr!uKk4v
zG^fsKH5h~rkU?38DhWX}pvd$}Uyz2BbVyQzMg<106-88|hF54mYHyXf1VnvTUYl0!
z+VI9YHEmnZC?FA4=RkY{DKL>hB|5+fe1ufQmGNWvAP=XKT2vLKX}v4&1p)IxwIHhr
zu#CpQsxTUrW2O<D)*Bs6>t<qAS+FGIXqny_5FVjna&1J@Ga+qLwD~0esCe`X0cpGF
zn1VDOeLE7aLf!@fxfaS2lG<res}mEDN9hP$I}ji)7(I5%Se4<sq$v&OHW@9(C`;Qr
ztk3QY8avvN_L;k6t^$i$W4B5;pwWs#1E?>&0@2KxHUQbu(TWP*pbpX_t3tH#GI|ch
zG;KEdLUwnclD8|Z2Bjd+-b&!;GBghK9I{7Ws83|=XaGomT-6?rDQ(6ixr6GKK=#)=
z!P|`nRWhPP0__|nBqE_=2T_a1I>HjsiB`RZG^ADssgr{&HLfo6B(FkZg^p04%z$-`
z*sBw^Qyd|TpdYiR{*%CP;vF2*zM%ixRH{H$=D?>qPWnqyRrXazTMEJNaxe!1h}WSL
z_246pqd-!tMFzY>9xU)I=PC^+ZH<j8MvwNe((1zeT8--1Ni-tV3S{MvDOpEiR7@)^
z{(3j9)H^E%rf52zZPJ2wAx=y2<@gAImgfm{t(Ev{d@XKl#WQhQjISeB-;|f`#z*~q
zwxLy?YS;V0vR#w8D5KLWRrbC*!bRh$#he|{;5jCF&FVsXPnVqrbtNm-GDFz}$GH4m
z_|^t9e$gMa>-7Q9d*?A)!$y~<$_JlsNI8hl7zyyfcAQdc)1?l5URmL9;Ou;;_K~)a
z+8oBYPi+hg0A}`uDrQcocPdU3Oz?0)kN$-=R&}}>?;Rg4r<>vPAJfRLe0h`piR0Q|
zNM#>Lle{u>^z_7OVeR{bGs;>65W9UHX$LwcnkA4P14G}^D#@y679qH9VD<*$6=}sb
z1A8(?66dj8GC7b7B(um&DmC_6U|N}q3u-x2uhsCQJcOWWWjAkILFGgov(;9OP5xuP
z8X|?O`+SMoW$q0l?2ZJ&_Hxd$59tG-JPOwf6KB8B+3LfF_9hOsY23V+_9u)zb=c@r
z-&QMCtdda&NNxk!ICq1eZ*g<&(X*29HV=$ab{wSfl!ut&Mz8DIpuy#?E4xzTC7EQz
zO=IovGwA@pWX>r)`m$u5xO*sA(06!p_;|ixq=@FE{%P^ILmf^R%`2<+(;>SRFyEED
zCC`s}bd4^oWw)osJ84vd0uJqtEIoiqT8~|l0>jSO^kzh#y@ph%7<YR#$+znUA@U33
zPS#a6S&L`Z+eziqU{uJ-fa%Cm@MsPkJcJRFgx7kGz=!+4Vc$M8@sKE+j&Gn>;bO_h
zBT2~X^bBG>6Wv~+FckDXgl@ndzI@%S7;cx7YfFOOo?p7ynZo^Z$5cJYp5AZ@qbTv5
z9Z*(gMYPe^RGiI3z#}QzIgaFqenja*jV+^RP6?9SzNGzy-M8*vE|y5p8#VfR?qXhx
zGwf7&5@x1&y;!UlZWYs55hkN}7xX{2lG~;(D)p>EWI-rRg4)kzXE2*n?Bm8Jq23rp
zitYHgNSC2DcuAVBeJ{>CjT?w5eueQB<<_b~qii@ZZMU+!_vn7Bc=#ubKcXju#NspD
zBOxZl1b;z)$ds$E=nt6k1~~8EXG($&1--lePgq`t<FWxZ!QcN5Q$_)-TIUr2MIiCD
z!{iNUfPK8NhNuN6pHg5HPJz{zU_Zd)Ia;Y~DOCgtMxE~qv~{7lDLAJu6w|gR9Y~y#
z7`4O~Lho+Qfc6FWn&mtm<~SfdlJg@vY9jtE-edaIuBVoo`0YCE&hSc7#uMuG?;v1X
zP{BG0k8+xAAVQyE042?01*DO5+X+xAx+wXKIFjJ#lPT|z5{;)9L0^<?%59WKkk&o`
zc=Zqr(@x&a(?LnFOvY&FltknXpBg!ZlH&yJo~#8zQ&J?PVV}wA$m`OZLBt$8m7Su_
zvn#nw3g};U{C&=s3mx0OA$@HGgbyLCc<};1jmjH(_q)vVexHBb<DU}92GG*!PQHBl
zhg{d_7X4NIci7{9#rQq?Qx*fLmi{Hr9YsyMQ@clIzJ~oL>e*|QQ!#5cW(5Box_#jX
zEU+f-(baKwy#P-kD#M%=$QSfaxi;kumHa8xc^y3o)u=z@>VYz=h2hckp=73%{wd?v
zP(=SB7rVLmaE0&=!rg5YJ8=6&{wzx0mrpWYA|fnD5G&!yaZ18gcL-D+wqaGViHWj9
z@w<JPgSW;I8oZ1IQ0OX|kK+_O9;@;W^?fyOWdXjgHnZ<DtgKbJ_T%)+C>})VO}w5t
zmH@LA7-f32Emz?q3SFd!N3670Q2Z*rgtd>aQ-ZxIiDLvNp#toOE%dd6zDD-hD3im+
z%Mz?4LGSGQWv1y^WetQ&(G$DOL6TsJUn~1x_yNSmy}XL87)GhxrE!Qj)ywkG6r6_%
zOdskv@E~HnkQgwmd*B4(CIpd4KucDIWmXNxHtRTtN-%1Y@(f4zUAg?Q+;DP;U~};F
z(CJz(YLM6N#NGT-o&*Zn23`771|DoTKSENTx9~ghs8tfb5G(8D;j#;*HpTY%>xZ#>
z6vupD4`00s&w-=eH{n9OfWJd8F+c_KsdPTl&SzM85oWzXec#IuDH4m_vxb$(d=M9v
zI`Jz%<bg4`vrsP9sB-+RW_Uq;$o4GAYsPtVPH89sg)S~$gZAJ}$ibJtd^yQOCOtp?
zLI=p4Pnuafwxx(wvR`K0+Jr+IDt%ZQKjcZux4%v)FJjN%ZxY5^MGa$}-^-7L(#jU0
z7mX+*5Aw2?rKr<(@L$Iorp4fQBzz6aK8Mq<aj9=gk!C|D`&fAxXc>CH4PH!IuE_js
zQtAGJC{3_(vx#5rV^9Y7?_+3+R+Mtdd`5qq8-=9~zF%t6fvCmeL^fhiX6DQn6g$FX
z022dDeMIVKc!7t!LN;2Y<chpaHDRhpB!xJk=UlB!mx6cFLEX}8pUE4bVVa=%&=jJF
z4tJj+L9q_?fTnfIbpS~@{iU#jze%>Olyzf%-|kTPl!&h>rSIN0!6Z*W6-&|Lu}j*e
zak<+2q!u1yWq{F(`*zV0OQ8JwUqDku$+?5&A7A6~l2Q05x9|`s@F#E<D%sO8^@{Bi
zxFjtSr=s+vLd8R_Ct1n0n@@3FFaPHC1lS!JR<;FWfO1_aio*8e13Hv#9b>O|v4&Tm
z-7(Pj9<@;1p`t^$;c_UzKztbaulW(d`ZTl9)0;Gmk@|X_M@@QPfqY}>^H&rvF*lV2
z#I^>-;$1)z?%(fFp&LreVw0ep)+%wjaP{30uZ28o-Sm1w#P1rTN*RJP^JRHWUW3x8
zkTxGYCIY7sR(C41aO>wW;VDK_!Rg?LvH&JuDk^2`v!b6=rj!f-V>56vW|akHQCZ5W
zrWN>c=yp<$DAG1cW4JR0j{?b6Fmyn77jl@@S2Qf*Dd;e%iU4VoO6U=mK^1#ireXJ;
zC$Juar=>2$n1ySFgaui{{Nlx%pHk=(3aRZP{wrLG(q>i%mUJs)?C)UXm5bD?gl?=O
zwNpXy8*b=Gk!>#fV<vvcy(_XNv_KuIbHIDBwqJlY^sxa|mFz<3hCb_1TZJ<qJ~lH)
zJda<xa&-nwj@z+^y&Ni8f%r}cXrY&f$bJh+)-UU031liS#>aU)C2-5Pb)tNZz28FV
z;A6=+KbBk(>xb^)<pw!jk_3#gQCj%xI=;@{_hRC%zo4sCB0&$O;{a=!0kiRA$*z)M
zmvLne0<70}2iUutYmzM*tU=<rK{N_DGp*=VcA)X-SbvPV5C#p1aje-D7!!JFhHmxp
z6{wj}?wIrd`uZM<B-oCiOT4b5*gbUUfPL|O`juy9WCg*{!xU9eY2#--l|R6N#c+_i
zZ&2(l%19|Gdxc6x`36RORIDfviHmc*JdO`mXbXE49MZ=WI;`YlTdcIeU{}Lv{D3J@
zXNSKYP(trtV0}m9G!7zsd3a8FyGOA}(aKyH#DZERk_w?zsVu{uJ^b{*8H2%tnRWh<
zspU750;9SH=*zuAlO9tuPpbL$E`KvAp2hK?H<w;Urm%rXHB?2cf<n)&C>G=)y;>8u
zU{jozrR~@iiLe<Gypb7frEma}oXl9D?U2S*WM^JSe!xzw!PKF_?_gD_kC*flG_DQ9
z=ll!KueZZj>)`IJVl4A#U3&D=s}V?LX%w>zV9=tH6tBv$eFVS{@scpIEL#d>Ji#h>
z1$VB~>jUM}zs6Y5&058&6)>Rh;A~x*=9N?+2WMKbf0JVf6V!_J<dlbP@n~GzQbMnA
z+RWk=px(XTBd0hlF$XWD!@7vO!^_;o1+U9uUEGO*0=R=>NQY|PJ71Q7*YMY{8ZL5_
zFf8|eJ>1kL{tEUHYGs7QA0N_7jvg3Gkk_xbD3*a&@Nf>k8UR`1<~|k~qDQRz3b-%8
zsLX?s-y;|FI)|C4P~RumCCpq4B)E%jQ+OD*pe#10#Bbc3hSfdf+i-Tn<UD^X=Ggs5
z6n`DrfvbnsQZI~qX*`moSOp9BG3;Lvg1kX|9=5_cL)R`jMicbV%Oj~&%By+F0L5>;
zOb6j^g=t+pX~5|9LC1ILxcDU%+`UNeYLLaCuWF%0q~j8*RSNI_q_1d^TSXPpStz#9
zy12b4VkK0*tHfViNI*MB-e!Bj@0EtqY?!~aU|{L(Mcm208*b)r5R4e$UD4&&bj2we
zA()A7JQ)-%aQC%8XGs4Pq-Qvb*I%x%m(?gzQs`0qKJ?h@vT|fvp?Yrz;kZ$GbPIDA
zYXDOW)WHPYIt=R)-a2Bd2q_Z4M1&tT@-WRSGJa%;l0Vt^>nXm>yKq%JdKFYN_OX>+
zDCp;9y#n)r;D18AzCFR=gTQrrjvHPrD||taB}k2CywsKyjP@kHUcuLtvOZpJcVOtS
zqF#_$YCWsxZB&+ja}d)RrYBXHy&fh|YiVZT_^l@=u=CfPl3#YAU3`S#eN|oy+Y>J@
zLNe@GEH=*Hgg1E)=6jI6K7e5!p$wJ;=H>}StN7b`_7Gc=Ir&9cd5#NnjetRx?dLgA
zcT4awa3x&HPYG^oCB_T1J%d#?i4_Rfsz!kq4o!Y98x*x*^b-_&iKkw(p$OiNv6S*`
zLX@6=eYcOUZz}igc5dRLKK#@xCwYQ7WwFv$n8WgmSWE?xH2_u;=vIPVwJu;W{sIHq
z2oVwhy)VT9m75s|#Ts+yQ3J<jDNy+dGMclC3$BEdUmykUB1(5udi4kyp7{O3R)G!_
zwW-#9`X$cor<Z60G3YCp3yBy-+|h_zc3>5l60;MF{&!%487cN8a=wd|I}J)Zyb60x
z#O^iom~`{Yt9aBYJEDgP)+%0+(Jx|GbMVa|O(~zIU`wDTCSXKA*;tq3((+2ZTdUOZ
zcJ=*rlyXX|A^ebL$G#*kUAd3Xcj#*A0B;B6cv*o;J7TdXzr!$PxK}y!a}B^w&Yjo}
zl;(?FDM#<%d1UydqDS<{3{R3_L+Am0{B4G9VyJW&70orJJbHZ%jXAb<OMDd;0m>LU
zIKh(e`QJ$|5IzlRXKRYNmeqfDtui5=rC?9K?h!lmGF}TK1$ndYJ`a^)GZE?RVSQ~f
z=SEX@8eU(<XvZ+TR~&JxT&@{Z?0M|rZOH8)CaH#%w*r+AM#2c{>rMn;PO$ffysYp5
z`tAr3NoW)6q11Uon~Kk)dTyT7|F${Beu<2xpxo!CIU*^EJ!&tK?`l8aGX~U28aA))
z`?6%pRYng%r@U{--C76~+=5d2dv4H1NpJ+7DoJL@l5ax3%pS>nN%_wp`>1pgBtgDe
zk6uAMT_mS`wBjtNJ8a&6pmuVabJoBctjt!|)5gc~*s5<`O!&r?wg@UAQxRHJkN4cE
zV@Ugbu5J%2Ww>cpj9xofsSoH%88xFO{WYN-u>9a4A1DDZ3rBKSj~h1Y95X$8kOxZY
z^kPX%z!q+)v|K<{XX(pEK9i?+RH}9N)B)FBF{$S4l1}yBdESd|jL4pJV~3v=z1~ZW
zK9FewO+ISz$@h<sTSsb}T~)ZKw+UKBB?N=OP~s5(SjXDk#68xO=QJ6kx+o19-4PV6
zda(CHrO~8!YLn^;$0iF3zyaBtRcA*o`?4Dwg^YSC#bP!Ww<hG4Li<{uF{+L7gl7&W
z?^8#BsEdZqEb>EixDxxFA+yz_u8G(%?(@7sz~E3L*f+(EYCZdP)HJtr$@yxde7aUI
z0~74vRRgOCFbe3cuj`o1f0n$#U0HThi1W`g${G~a@x~Axde~kCz^z)VMcLx^0Pj|&
zgSFZL{GvLPxvM=3+QkEcL82CDqXrEyO=~LK7is`UvmYHv#+$XVz!)mw=~J!QJ&;;7
zsWf5I3fi@OUG9iP)CBDD;PFTddO9%F-9Fm1qbqEO)fGx&?JUt9T-By!hZ<!etw$U`
z==gUxQvIC%PXNLCBfUNfjiN2IrA@J`^7C%Zolx$g9M{jkwe1o<crWoI082u=%os&x
zF+O7)x%FD?*#@MQs5C=%A2vUlj=f9^Dx1<|jd4^(76}!-9d%Z1<CmvY+Q78X<rP4?
z@V5^k!iri-^jk=4r;yf>Tq#6{oxFq^T-4lfQ75kJ!rxjq$DTz~5lb#;=);EItLz~e
zd3?08CE1N;g)U=5C`|330{H?4hCcQ1ByUIKMj|u=OhF?m<?ajuB2)XaTT}&dkn$MF
zj?=gwsgwzAUEc4{97%P}x8VIAc6mt`Z)vT3#rT{Ip2>c*MyKXrhnE`U^vDgUQp%QG
zpxJZam|^{USQq;R^aOYB<cO&xHlrU(dX?4sZr(r&5$Wm%^s0%!9nm%vR6Y>mZfkM)
z3Eli*J-d6kg`o_GV~FJ!;Lo8FvdgIs5Nf&>d;VgA$u!q5p;TA_+U8Dp9yx!Kgz2Mm
z*o2|`)J84}0S{U*o?kY@x($4T+k=uNNdbjP!jvdOfuP-L_2}Q)BMW<rwqUEieVy7^
z(nQg8Qd{E9TADSS!LFe+#`;D3DeC*tjL^JUK9BirQvN^A-UTMIJ6-J5IsZC!PQ9o%
zuj1K2(`eMPEX%UIBg>lgTF%I_EX%T5Bdas=j=U{z%d)K2tTh^qoZ7mGuv|h2A&5&@
zf(Rmnuoad|SQZhMa7l$r2;p)GiwGelmP-iX62c-x2w{KUIaNHmJ@+Pi?B-EboX7w1
z{lEYB_<jGz9|@*H`x+ar5$m*MxIROId8c+*vR1<7a-6N8DVz2;xw9?pwIZS*Jl_g#
zi!Rk4^Js6YPgONZA&=ik46)Q{U#NFF2?iY1J<zwraQs>aExDq_F{dT9$3NOKAigpk
z{~aOK|B-Bqt|&v10q16er5aT9wQ|%AW;oNloYj@Uc9Zcvz^<`GJ^m0!@~ZZ3LJ&K@
zQNQTdOg{8g9jaQxGqjR#gRgNapL$)r|Km^Ix9!J?gxtOQJfjDCv_;mS|L6(_f1e1)
zzsEha>!HvxvCxawGI2veERoRzwq|@@eXx(S45QW`2MdEv)>J3)sbDb{B1?8lwujr$
zs*b~0zKM=b8QoEpDVh#Ug<4(Y#bB;yxv?P2@V(i*Br3~u<u$s@X}_4<-%>5HmbwE=
zwZ@Mubq?2ezho7l@mOroI~4|EW43vxqSpm!_gqw+TXZdRS|iLN3`L?sNiIAi(yi=d
z)}-ewFho39qo>K!>}m1H%2>DNX^rifunW7aHctm$;l=<mYr{MM6O>yryFG_A4O8R5
zk`!On>B+!8d#AyMpGh0Y@u~WB3!#Aw#Bb}XqZ5Tz@K)VV81{lgQ~N}YZj#QFsqFCx
z7ftf<59tw=O$>NuD~CK&?rC?L$(FcFOC$0Efni`*;whSOm#I0=tb0KIj^VHr=lg<t
zM1EDBxYH);cxJpSYu2yjCFB=#f-fz_TMgR})P`rTPzVw0v2%05d=h21ARjX%<hC0l
z=%7RrXyxlFQT;7u2~EA%u6@jae#Y*M<IeKMZ{!Um0s|W2^AFvT;NS3+gw}`xx5b5g
zct|jA*CIURa0Jt2w9U)KRIe8aFvG;iA_&;mC~<b57&0Dg7@Rk$t_zaEjQg}gE#|b4
z=IRai0?)fzHRq7xrX0~E^1j2{TdjV_)CbhRj<6~Zdo%81!nAGyavAN{ZTc^`aw~>M
zrj39u{z<SXI9c20N(H-If{+k-x+ZsrWU__+IwB=6yMxo=Sa8WYlJ?q(kAnem@5_$`
zZ{me|xWJ816wg0EcurfY!#a%8|7y>h_GY~(F$4_E)XI5LjgB8(M;a^Ds*icF=ejUD
zn0*)eH<0({052?g#{<)tkkqnw9)U@_5iYwNoc3N<uH<NU$NpvSmh|fgSW~`rg|{$!
z)NGJrrlZendpq>g&;Vjf<<+jnAa^lR#r<@<R&uS$+Z<y7yLAyE-#wPa@xS1}E+TF4
z^C4poHG9ZCt!g?<c4?7dh$9>pmSWSri~JXy^oKrzdUnhTa~4o*uKzc8dbvdC`a!F)
z!nm=IDZp|L^KX@lcIPhqE+*O2SVq6}?-jHF0aN=0Yra*FIty%D!vq#8@z8Q~%QJ5Q
zIU;J*+Y)XycHGb{&~f@5yhST88p03Xss1^WBwo(C@ij|xMk7MDUe>Qqh(A*`=fqx!
zvel`zv%QzZjY;PEs#z4u<1zO97`T{xb`wAEvOe$BAO8|DKH%DC-TXjJ24lfSaUf4c
zn)Fw&g*|nR0Y^=2jLqu<Amg^I-FQz~6S7Th`H>K3AvN)+BcM)0bLJ|J>A+BQ5nV(c
zZzHxD+ltK=_XXO_{=iBR^Qno27~VxQyvc<kRkG`z^6W{&rH$F*BllWpP|lk>W{uxQ
zOq|YtYBILOk4f*U{U=*K_3LiWk+Bunwm(4N3DNKNTaV+5-birYetF7NCq8w}OtcP=
z1NQqvu7EPO+%5V-NEEScZC`q+&m8hz<*$W&Fc3Mjk#^L^bX=ul^PyqiT(J9&!Y=2!
zFc;PDnW11BMVw!+9<_xh^B+0(sZ2q)pYgRGUa?<1i`@s2s4oGBf+E?>|B0NE?T$fO
z)T;jWzCNVAGw2Nm1yz!<gQA@eh#+;24%PwnPs~WrZdkM++(D;BgEFNFXl4IBA7-D@
z8fdRt4U7dRf|F3E)}rdrHCH(koV91ZoM_r3Bbqp6C!wBA&5?U6xD#B7PBhHK)nz!N
zzTdP&))4cf)&hsYR$~U<*G6DlEk8h~76xT=Lq~ylRadJ<te&b4^N`eJc0Lvw@1i#C
z*{>LN3(m5aus)epJG!bHrM+k1TAl^beOFv4U>}cKEa4~GWT4Z{{cOszMPQDgSk#WW
z@o+HE7#%SO6HT&18hWT!LTsb<T+ihxIFiPsXsAQdk4aD3nSHYc%Rb%1wCHyI60HKq
zD(`>)Gsy>Hk>D<$$q%CDNH2cR6ce82h>kWrFH=npvVmTx-+V^f|0t<FY1fvtk`L71
zXGQvBEfV@?sPq2-<%tP$Vj=(hDVr1{L#8d<XDs5U-uJHt_9CN+HDqBo692XZ_ae-0
z1}fCRMo;jT)OiseGp3ndxnnvo8~P=><+XlNv7;$uEju%0E0h=K6X+VcTB~aEB+EbD
z33qre%A38%p|`(V3b0tLR}rN*mT<JlYfJHxeas6};SU0YmpE4<vmYAvS=DS}l}2pw
zY!!`Jiw|34$xu&hH8754Vh?l3xbz^$Ixvx@2wPxv;@Rb1oC$_;b=Nb@;v%p|)gMNQ
zFP!$vy64axCfu{c(y_T@o9EiL&O8I;ppTo+T0M<CQH!?&Kgq6{iU3zP*NKgJCmCek
zZ>pw*Gd}-ZTIs&`Om8w)U6`Czw*lSp#iX_k3-Q3*3$-HuCbdC~HmcEIsp5#)(b9F1
zOA>~%jEY9ATO;T+Vm4c2b8d&|qn@kp7xYQbmd@ze(*=ggU#LYQ5x(vAey(=iX&-8a
z&W1={m*Yx1*BbpR?5EP9gCe!ySN%`{cWBj-=!|bzx5w-j?xHN7BAcs5hmLChEpGS6
zqCor@E$_!FA$!etSP0pysAry!nX@(g6#VJ7_PoganjaaOXyw9Sz0!O{!2L6_lQ9G(
z;IX3ZbMQzmBJMAZX!v(fu<^@;{<^C$)>h4X(=>RhRy|oL9j=kjZo6*e=CMy^^GMNj
zs9Qd%2C6T^8?JSkU&^8E92N27k#Ak5*?<lkUEbokQ<dw49}FnLLWsV7=rWgcBI}ok
z;!XSKpYYMw{|Z5<?T<cbG!H@CsdaahnA=ld#%aS{E&Mt@FLQ_uF$4ZxM4<ZFv8Miy
zU_3Y|0f{U@XwYieFB@1?%q&u~hn?(|>$_c(^n_1OHF7X8ZHal7<0GcPf%ZP4L-yu>
zhrs7kuUhn|F01Cyf8u9hl~3)-7sfKilyxqUJBF-r?QgJI#2zu=J#(pFwyHUPT1^1)
z<0FeqeD@B~EXR7I3&L&9=O4eHqS1le(&4^eeELs`i^52bmewyGLL^O;=aoMC#R2QO
zL6jF_Se<zbgU7yQudN_{mD1;2YA<x{+Yb#t6n2uDs@X0+agA~U3}75-VvVn?M$Ao~
z1J{-N$$@oftrN3{d8nPpeWJxK0~vSyysM#&fRa_GVcBUmiESKn!<e0U%!E~+sB^T9
zl&<~_F|B80i(LZxkxO8l&4YM%9ih=`{Yj`WxKYhpte7qCQGJBSdsn7LrG0ftc81Q;
zXSQfPrb@G4{OW*=gA;dm;GD=LFN&1DKw`<q`(&m}xz6-<-+|^^s#&gSHdbn~=0HT*
zi+s0zxv9e4;25TsZJ(Mh9X1u#8_!y3u5vvzUpbyo8=}vko(7V_O+?#gT<HA$ylOHJ
zFm^FAhl7`8Qwdmj@pkKgk8iq;`HHN*mBFLdMQEG_+rX65Nmz!^aP0Hm`NHtaAMZP$
zoD9jKBpr452XEe+j;8b^mYY%caF`w3bkz)UH5Z4oZtsBA^KDjV+v1qT0txw)4}|x_
zSG5OWH4SC$D9jRwEm2g8#Rmg5HyTCSx%?<jF%T9^iDM*(`s*k=H&^7(=JSIV4+=5F
z`JF+RYt$k@q1Tv=HEM{AR)yf+V8Jjjz_1^CkCV4VwtQ`oG3<Y0ZINS9=C+stl@eLg
zrqti{#)5POVQ_tsF=ic|wN|wYQ&^2gTJ+%%=BG)Xe>O2>X0=0Y)(~@pb2Ln916t9V
z(Tr^40pW#~zhicJ<H5CvvC39iK6R>Jdrtu}%VJEpN~8x2<+*#Pss*G7Ph2u*s0-~2
zXCQWILr|Yvjb3*(1xRGDj+xtP#N8Baj;=qDh^vc8do*Y1+ch^OYSuBNZ31JylI!j9
zByDDOb#%iFU!uuIvD<dliQuypj$5Aevj6)nZb=je=NQAtGg$DyA;207Swr@OI?xl{
z#BQ}MlEFu$T}1t2wp{fv9p}Si^{Ov60D^ju`~(%A^Xz%|$jhI=(9%N!2)CYacx%4T
zz8$wZQ5spWg?ATKJ4H+8V5HYO$Y(G=tir$I7M7z9x%#Z8IW!ZQw9blDqnRqixD0Ey
z=CEufie{8F*ZeBeV6XZHnG_kjjhzRGcgUa}$@Pw{2cRbrGLqK*1{!52dAQ2~HKZMJ
za|co2B0}Wa^s<ztd7|@z3m57cHjGPi)3vAxSjIl@2w%l6w^PqpDxHpFBp<Pf^XqcC
z8MkWTTR+ctch~!W65l%EO_y|6h*@T%1l4cEY?brnaol?~t+AO%DuP{gz#50Ht@_bZ
zRvt1&=qv#aeaTs&1EFx9@|1NfNa~-*3WHk@4*-b2-5bf^m76iTQF23r4V&(Tz(Gx4
z47Jm|jPLmROWqWY-Iazw{?&2StXJ)OW+L<6Vft&z=(iS&Y0KsC@IxVgtKry!ciu~i
z$Fyl<cp<+Zde*H)FUF(r*ArZ-mjuBcb2stLhA|oAng@v_BTb!1cF6pLg$FHlEyaVe
zBO8*}(J&pGiq7E2Sn;h#RF^9-s!9EU40pF0BX6x>I>J)-(%yqhWsE?Z-XhJKvR(u~
znSczSzWotS4fQu8g~18;weiy(w}Ih|<2MInd?5`{5Z=IL3X5-1WgCWA!ShVM<`Cx0
zQFNbT%sRXBH@p1hdThab13UC%wnNjz%DuZ~V7bBm)G2#WcB!&(iTP$w8+Jz*#Zj=y
zjK;_xa&Uf)`nGRWYb;%Uu<5pCk*u;}iMYlYwkWy(-I%&rPQ1hM5o;>0Fi+p|(m!HP
za~a()-=K9aWtH2|xaJfqS4veDeI|FQ9)F&KrOtzR#<_BPmAz*fsZjUm>gw%XGp)VX
zqdDs8aW(g{D`yg{AlAViX{EI5($(SW@T)v~{TqOhciHRe$y*=JYyScTWYc|Fb|aWa
zt#Q8y(nZft<c9iOlDTsa&fb^ki*-cRKup)~Px~(ptxUw3$&Kb1hHrl_iFIzaj!dm-
zSFbuKmJ!;<*H!|s)KEky?_6Y!6TQ}5B-X<;O~0?+I(0R9k7BAll=60oYnN@5aUTWW
zYM~ckLPV<12b?|WNQfOIPTzS}<PH-_f1O)CwhQ(#!5r!*`kW7??dCYLk|JplL;skS
zV6OyY+G?$By2M&k&%HcF1C*gtqRNNxS!C#w&W1gp_LnkJog?ePLffbR4#xA&2%Ffu
z$Bge^v*#Ui&AOWPu$U!3ME>xB$Ers(miPGa8~(ka-X{?3!$qUK8wcTE2lDYpSdhnk
zowkB1=E}Q}dtJ{_?khjIi@8^CIh^|^=5GPr8?Oi7s0@~TBPw{1tA@X>PrQDMyhri=
z0p`65{D_YxZ18>1caMCp-dDlEu`3+<+nBkR`1iNb$Xn6KulacsLdqZW{df3%-1oC7
zY4sJ?7+>u~dsZqer^M|qyIQP2B|qHJUXSH{8s^8lae>txkZu`A<nC&XSe2UXH=Qq|
zN+|mOnO<{tfkANkvK#uXhtaKnqO#hL&+!4je}IPfmwmSR?Qekv$BiimKH4;iH(+k>
zoMp3cvmRSPD;Y_Mj<3Xt;A58^1=f#y02GfI5TpcvHf8u|R$SkoA_tr$|J}5v5~@xa
zHOfb$6Ys$<v?hKAA^DpLNVN>nF24N8;rT0m4LYs{6Rbaeyf_`eBKs{c9hS;UHh_3C
zKqVDT6R*Z+6ct2*pC<kR=DxoOj0SVEn3UUT_P++fpph=<;NS1zm1y?lfu3qlk`6dF
zy~(<izFIg;GSyxC-lVL5g86g|Vq*Vh86i$EckGf`caCO?EAVgO#M>%VO`-F^FXi0~
z!5_^5`Kg28ja{vaJj1DK(XzTD<G%ApX9a|UPv2~!_}mb73yaift<T&btzqQ>ug!Zm
zUH$G(_bFY|XKm^29^?i3ldDVLRj1YMGJbdHr)fl``MxO1{rtnUrwtO_q9(1Z$u`@5
zNxjSJ&e1}0`;cBTVZgQ~e(8`w*BM?2L~EqT0Xm4@5&luq?AJy>bWf=^S{B<NMJD+E
zW>&V!oSdGR)u8;@PZ}0|Lp0u2J=lxn;StC6Koc_JFX6Kg?CC{09+0KNgF=L%C{6>x
zCPC<|`-Ft2=6!10*pjjLUsGLS%-VK$npi6qT@%<|1CP}p9#aO|Z`fVGQH{RFX7AHx
z&G^Zw&cJO@i4k?I3*T-}|IcD$^%RGeDCW~a+=6~)omTZlRtr08`=T?fVJYqVZ&^xS
zf8)SKodyhtDQ^7N$mcJ~!h21G;eSHRfwi-pIyqr?VH_3aluxIm!&%`~;h7hh04p-P
z(;~if7tO|UMtX6#Z$wcke2%$(+A{_ERZ2kg7Yyo75eQk!kF90xOj_qx{QHeSVX;sP
z7uK#1;gpH^3;Jx)MDYqhzGMH6))Q+f+_HjjhAVOb7wzE-t<5^N)QGDFyR9l(cb}In
zn;(x8!p2#V_kDQKThtd^Bq@DFfVNmz^Tz-`{&<uio_~$2?vF5z32Sn_KyA2x<v4bt
zY+u*BDD$?3ALB$;9Fsh-eN0g&5NmTh_^+6XvJ<r3aC6?R2FEs?DV#G$V@Yp1)*Q)b
z{n0DEqhQ1$2V1q+GpNbcVvM?k-z?Z$W{{j0dMxJX6YX={u698T<j1VGpnZ`qi7{N%
z^zirrd-#3t5Pz^G%1t{;Anl$EY;c;Ns#R~wyW;=+Jx+&Bb=t0*v0m_vebeeQ>SxTG
zz;)X-DWdT;N)0Kv|AAd^+K2mOfYN9)?1P`IdnpfdX^k=NYX-doH5ZZI*lN|OHC@~2
zwRapz^VUw*X7m<MxIaEGK_xp!$ZhLiJZ4tBJ7-_>3?1r#du_v+J0z~hSP%_q!v&c(
ze1+LtI;+)-K2P~iuP7s_FcCP7Sm#9p84@#STk#qt&9GVYg7m#v`RBvXf2C)spQ+xP
zMG!nD)d20!-YYoWG^90Y&nG<56YYQHy3~pYZF(=fea4`5q0PE}jb!L&^!Jm)F{QsX
zW=*-nGy3mGii0v`Q2z`ThlXReuov2u8D*?p>(bPpuGo`jO`Gxzas3{U1s9Pl;ig0;
z@H<DJv1?3%L{+1-;Gw78gTj*otQV#15R|n3XA~sqEtvPVnrlcxe7!7(Y^QoCDSMpQ
za4MBBME1-EuG0wWx7pifo)Ka?r8;rKcj%aHt^!T&I{QY3^<e@LP)ZqieeMk5EAw6;
ztf>7W{?|-yF{R^*#t@)-Ln$g0wVP7w<WJ(dI;cD|JIrkHVez`vPRNvqIZ*+>nlQ&p
zRK5nvNTI^mv>s*~kz08fktzMNokyGX+trTQqdSoE!8zqpL@Tp5hqTIqyVtuAwRhxA
zm1~7Kp2PyaQP^v4CuEP;6i8Xekt6t<YZb!Y#NpXaj`xz1G$P3}5Lk0>Nq>oI4vAx7
zB`^SuUagy>C5q^hBQMfh6v;U{X2R%D``-E$%14YcPMsrdO={D|AF;E`Mh@Ibe;edB
zJI<li`cN$xAM7#*zipz|WjDx(6qSJB6(iB;IzbBmSp7SHQE0Ek@u~NOHlSY`=)}8x
z=mf2piCk#=wU=VYth`bTW*>X(hEEDyWy0NBHquwnWgKfne-WG}=l=X@Zf5UDzz<1y
zLuit5_6@P%YGBBJM}}PzkRw%PPUzuYO)ATrxWE0$j_kYN>XK8@(&*^+nCv8lbDsDj
zsXVh7IkDQK#2K}fLasjdN*$WSJh_@-hhL51re6Md7%jQkfUhjSjQi5sxBr4A(C#|b
zTT0EJncO;zg26o9@paVMDcdr7q?(P`G1dr*IMc~H@Mg`G;$B0Bt=f*Bgxh^;*JKwp
zNf6e4aI|#Mz0cBtad|$<W2*u4n5h+PHRnpzpxGZ?EVUP8woB}`<%Wh#GFO=9{Y)`A
zPBoLwhV%{=5{`Y>#}XH1<lF1)W=HV(KfoaNhn`qyimVE090tl@7&*UXq+Bb+Wkj4v
zE8Dt>V|l?6-R+oM!MWVE)KF=|M9Fvo4^XO>YBt<yYtc3**jMf#O`EDc&a-8~=;V%6
z0^h)DZF6GyVSh+9!liDDtK|rxa*dvSH!<(j8ht?=)|)JGPt><;atHKt06yqL=A0)Q
z#DjI_>C-a)H=7EW8W~fV;c7R={5xdG5Oytogk#dat-gd5Jy`ZgQG@dU)nO@WL9cS0
zYl8mAQE;W@0>gf`tx-LQS@+p0QH4{U;fg))*J+aPF;H~I`IEtrs9E!v%WSuC&XP5)
zAMl=I$~uVj`BpsV0SP0U^(l$AJP5G&zS94mW?xl3>!n}ZXu>=6Uz7e1LxrJr8nd1B
z(oXf(mE0M}MDQwlTe)a1zWl(cUL?$O+Xr{(n-1P7WrXhu*_BS%ab}x_YNx_qtAUa4
zCQ@Oah|DzV!KF@TAA7`!a2Z|-M448%J`kuXaMYht2<goe3Sk~wP6-3dwo?hU5Z}_q
zeKKtKxfbRIUph2EE3Z;*xT|i|J8wrv^pLNQo5?n!Wumj5ZwCvO%ubYbF^FXvnkzQF
zeR{sM62__bQA^Dgv)>Jn6HO=;x%8;hz^uL=Wq`Br$Zoo$lspRGfpTE(VohHqdFRP7
za4)3A7qe6<%4zc}3DKs<S%_ZRiXE7}7!H5)@6m{DyW+B)E}3;Z21SX`JM+%QM!9Vw
zHg>iCqV<Av#K)RP79Y;%Ym79CxlUGl+II?-s+%D(%;)hss((Y|o80NFYZbMj{?Ip0
zY1g!C&tOKixKXlss#VT+7(1j-CX9?I^W6ojrg^2+A7b<;_rN<_v{7|lzZe~hu_HVp
zpx6VWp-TkNCM6uEU7O~NPc$!5;-1U5w65ORS06u~g3$XfDdLAZaprS8Q^)b~uv+&x
z)<O(l_Hk%*`Nu;26&R`qe9vfW*P$z`K1O#saZeD$U_YR<*CYpI03xdF=G3_Cq^Ho=
zoX|$+T(5qe)SiiJQe$E0cTKp%zh@POPT3)I93<A<_)J9#+JE;WTiU#@#<X6d<m{I&
zJzd&__VZqXsn_+tg%1C}dy7JO+J3)(*ed}fXU3N=UH96vi;?ti;?|YATx#(L3v>Me
z5j_sDzcnzM*exbr@-QJA;vT;U6<qBa-lW@OvAoaUUD`ttuiQ4dk)1i4_nYI)ol+}>
zid9-|7OuEg6So@5co-eU-Z`{Xs#dXJ+woVpcYFAyt&$gT<@Q&J8j~&_3sSzqO$Dg&
zQk5*d3@^BF+i$r>eOSBBONV34t{!VFb{do_6a3}XL&9}>Dx2yTyt|g2?R`XQ8m{Oo
zV@30+UO79v(+c+ZzfmjEpWoU$31!}o&f<I1M0;hRoRqND6@A+|G8$7&of-39QIIAA
z>jie1GSd0mHQ7FoQQ#_DE)RTQ>m@BzJC)Ufz0;VPLVk4_hje99TMfvXb*OzZX{tpF
zk2i%?j8=&WWfee>+sE5UUzYN@H!E1~<yXF;YcR@LUyZPY5wSEJ=hlTWR|YzQ`u5np
z>{<1xiAbmC$4$(6wgKp2ZC>VNrz`2&CA7H3mb-952K}vMjxnh=Jw2|+d{&<bI@7<y
zH?Ib`6tmsatuIE~0(MoAb}cwS9X65tw@2M8RoRmIZw4vLb^(%gE?<`oJAJ+|+kY~m
z!3@Eg{|GCL4B|~vA8t?g>Q5K}4hW1`!6pY>MEw=UHqX9T{_+rPv{n;iv222h5~|<N
znwHafQ?WYxq@wYTMl#;>YBg3yjQfd&oM-PPUSApYc7*D1Y+T<g9%JCFQ43<swa%Ms
zA!47Tc$}PhPtKJxA=f7w@yM&?@^pxZ6!dIo>`b|uJm)xb-sw;mY-eHmENW2bS&hc5
z|BLh~WS;u(^;N!RDQJ|0rv$VoD4!ykqXEl~L``!%&iR_k?KtQ*t}Er~%zqb%61#FI
ztgF|UqHTBWl6C5XS8CQ#`gA3-%Va**S`ja+kvz}8ZdRMCM8>N4ny$V&cIw!T2hfi@
zxVq@{LYbe{2RvJL+}AezTq@jQK%A^tHCtn8AETq)bsb2mpPjf@DK~oP@5iKXU4~V^
zChmi&is_1(3XC;FfMZg3qILF*ddwkxtX%4f$&CAitQIaej{IK0^}zoBClbZkM-jcB
z?HF6^`s`AAyQF(gm_Jod45ymjn3(KZ*>EkmFa1q1DXj+<$#6t`GiO|a9zysfWkS+{
zG0gC+Qn37;SfK;Ey34ki_KbPPJ+0PQ8B~H68k^k^U!|@HIjr0iU#>mf6ciDw2*-(=
z=v*g5f@B6F6lKyjt6TvR`y(%Kt_~7di8~}7Tq)l-#Tn0_aYy@dQWeocPupMr6a?pC
zxx&S=&N^RyUaqinB_E|KkN7h+Sh5oOF`5O%MDQ%iU)je1Dm$Z7n=EW0#N^z!8@h>l
z=qN~O$5fzocEhbiu-rSkG&RT#C-DGe>W9oFwQBF|nu{EjnUYTQ+;Y@*<Sf>!wkm}q
zBCkld8L}9TxUY$$Io7u12J`l|BamEjp~+}h@RAD9=tTDIworY1hDwgSmC~OQ=RhdO
zq0#BV3A%=<P_!LcOJ_CpUSdvu7K59SlE2-P_Gx7&t3Lk~#bXF{LtylVl3EXEmrd$~
znY2`j+K8$h8j{*9wpW0;V%*?F?apAArN>S6>u-OoQ1Q@`PK#t>A8Rvg0Mc?21oq8n
zM~{{9o(@KXbFqH!F6Jb5iSmr<&^#$YON*S_zoDDDGboNbb&a-vf4w}bHCnx%fiR&=
zW@5$eRvuTrmmq9=jc?>6`D4g#mjS&)=P7r!zk>s|i+mjtb1q~+g9}4ban5|~nbD&2
z;FEItO8yjgzfW6>1VthcCo2zv%xEXFWua159dYS!<juXKR<b5lBXw;StfXWeje?W;
zX~w$H?WBO8JXUv0OJ*u<71F6NN%HZ{4yTKqvq@DPZLm}|?8$}D|906T?eXsb9MT*%
zdCGmb?S~+#M`CQS4K0PHU1#Q+HO0V{+fu1Y;hLOyJK|aGZo$fPYJ-kxhfFI>ka7@)
znLF_JOZ+Hij#Ur<E~0-{b<9&l5vcbd;KYLe9wjU7-!GN0oojb%1r}`i5i>v5-I6)P
z)T(DiZYg)fyZGf-tn^M3&uNp|sg;J%E@?7d;NkiS+c)2+Ppoi>q~WZc^0!OG!-(#?
z=%3Zc{ET+7NnB%+LYZ+LnUfk@E^>B;>mB`Z5~*>*K2$mcy=+iZw!``jIn_`2w{8za
z1{EoX6d(Sl4E1sUP-4((^LABSQVW@drqf3pMwhg}K)BHy@of6Ror$oGF_I`zQkFq$
zcRsLKc(WXx)MBacr!IFcIC8U)YH9kAmvJ@k5t6P!Zrq0U-nq8%@MdLcvRgdu&XAHI
zlamfrRJ+-wd43<!@q^VuIidQQQ!w=R?1G{A-Vep@^&8a`9dqp(%jT&NN_&l8(tL8x
zo1@9yPe2Y41I{ty+pC%=nKhpD-T71|JQ~O~Kb|y$$=OF^%HD?~ZM-$(njw}@y-i2M
zI<terx~iS?*<Xof$OU*ExeqB~tlo310kr>bq(oDz{i$L5!F~2<uqTiGYO{LlgH}xu
zy+{PrDuD&-=r3!cl(M>^?8$PqTzsHAwX2Bj8ZK1pb?TDE<4(}Vg!i2{sFBGPCd_YG
zw3pb9;|-hF+G0h)5o!xa*n!m0>oAZ8Bd(tk+QqRK3W%RN=hL3nhI!=mAifSMwMzH}
z*O5k8r3&Pl{_{U1tw?G_wRnHl;aS9;t#%)gLDeLICzOY$U{tb_G^1s)UbpEtWuq#O
zTwlG3@4JUnrSx3=sNiq`bwg{UAlyB7Q5*g=@!zO*lDfrx0#QY6d1`o(B&Bh;qRLd3
z6J4;yJ_)dGx?3h_gGTupKhd$MoY&f730jYohCMG^FLNA%1M#Lnzi-YERmhhA><`=A
znF!`F%u_pr9&#Z^5tEgb%$NgD5+Qh7R(3gpz;_NzAa=alZg{YW%qV25)SP86VsAZ~
zLT5lO=!Txk+-6~hCAvA(657`feQ1gz!#2!KB^i;<L8P3c5lvCJdBEz^$aL(rQUsNr
zyWa27S_rmgSPWU4B`ub+W9vqPgH|isfxX-rNIS$Ld+qM@4sim&ojgK+1wcUKqRcLT
zy8>-*&6_0PY$x0u8TLxt-3%MXfE{vo=-x(H{HWL5h`c^xft>83@+YUxFqdUn945$T
znt+6r+Y-827fC)@Z@MzY)6L{=V>zCB(DXn_w4UtCjwDvEqwK5I$X=*FFds}?D*dqA
zdmh^lWs5f()~$?hmYp5sjNykP7Ug&+9zg3Lmt*n4SwSPM<2(Wa3~N<j`N3c!<GA$>
zf<0E&Jw?FPZ%Of#`x#b}=y`=Mo<gjS+Ggm+;EIoJ_IZ@D&_9%rAhm#}YT9c$YB<5G
zMS&l;JUXi)f5bOImLT=VK3B%Lby_-ytHHJ4!Tvj9kE7ej(Iekt(Xmg=ExPDyYzn6B
zm12#rf0;;}UhC%r+HH|xqO&oa%e4`qIOJG-*Db6Q_%eIysZ3e7_5eG@bbOG9nxKNQ
zdSk@3lIS-s^=%iv&Y^J1O3`a>;#OKM66=QIgoo_vSPS>GlzA4Mu-Gd$5lUv{7IpD~
zV4X_KhJ|BUyI)`JlUC-hys@rL=>Gx5pJHpja!h;go=75wFKriHgMes!aSDI)JTPT_
zfKJUH4S7)gUzgZ(Tl4SMvHGJ7Id$2Ne4VwYv3<Le@_~g-ZM9_CB_)*?9&BMLS#hy}
z@3ET87Tl9KIN2TY5F@o}fP%{+d4gDAMm>$X8mm<kwW8j32JvGX_f=Xoh?DUmuqirF
zS8zT~pa=1c6o<}`t)n|yNRKgTGQRGp8$02Yn1(L{J+X@tF-vFIlPv?YQG?beM7gej
zo0+O3fD}ncyqkn@^|~5epWqaFYnzbK3+)ea@{NW2$y1b2f7Ur#HyOCbAmC^O3_v?e
zlecom>udT1_eze#DG@XJ*FQfY5jdr(3tvCM0#gR17u)cgVsDG4IN7L-j>)LZye?j>
zan8cp)q4}VFi8aDba5tXS4L|KZ|HyE*317y(|7cqN2;&R`3vXkRGsYtpXJ4cIy-{Z
zzUzsSRo-8%Tg!h~YT}*xY}1z7uNyB&23Rn@97Ogy$5q{RotmsTqYCszft}obrY%_{
zPFxio)ea!jM1C`BhJ6SIMkz3ehqu~3{mjwomeVx{T3qTs@&vekXtqmFbAfuoAb5Mf
zZU9KpbRfm_VWC1%K~GyXpKs}pL0)}0sAlk;oXDAaQGeD*%Wk0tw-i%bEtG<NEybPT
zWKE+O8P{A%?BTRvre?9`DxOU&d6P1$BspXiyDs>gT+wb-BUQWAFX3kYaNTb8+7A@&
zK5)mVl~EF+HsE0Bsy3&xg}F8RuvN8XkNSfExyx3&pRL-gG2)VV`*gYb5np{D5H5t{
zbst^Q4u;=hoK3Q`A%gTDl0R_nF3_Xu!v%d&{6sn$EJv3xK^nE!s14q%-P<F`yVU79
z(wbBSAOESUOc@#V<;Q=`DvJEiM0NZzmA38{5pUOKv_+i5EqbemQsTe*{ZL78flawA
z8y|jj;5KB<IC0NtAM9)U@x!v43WqP=?l!~^w(pS@M2_kqT`18bwNs=@Y?nB}5w@}I
z#Qh^&s9{30xAa^%AQ7I2MYHq-t1L%Ssv}at#5GS%H}#&cJgka3O>@ds{_L11Mp19p
ze<3>E5abMexnFE!w#YJc`Y4+IQZ+?8Bu(v>_LAec;9f}BAztd~O?gFUBzx>4i;Ylz
zlzCHV(Rh6>S7|YRq18Q}(CV<|zC*Fazl-T;i7b~_1AB^8F0O~CxC!ft+fhBZ(h^dB
zQ5;`C6vXo@yAY$I0q)1}RNEmupH$Z|jO+-WH-B~~d?)&~1n>Mj6#DxF?JUrxJ$xS_
zXy+gCJs+tf?$W6c6Zc3QsOwRb)^?vg_qO5mKL-7jM!QBgoOgYKia6w|SMQIY0jSS5
zwZDSxLCnSXYQ+x(XG#Paxl}X!aL=DEJ}(_BzIr%byl4g0#|&_eLu!}yF=J%`xUr-y
z*Gy?>I7K}KFH4De$S}4)O+Ei6nq+g8);@nn{`i9y&Cb`8fzN>6)=Fl<t4hS<XYVWZ
z|KO)Qrry#2?TUvo)&h0~vP-5aCZqG-4P!cXR3_WL1r|6mNOFfA9EzcxsMap`YsY$`
z&HWy4)!93~{D=7ddhlQ2x%;=Cc<6Ttgvx}Mqg1>wU+l_9cC`;Mp?tZaz9r+j1|t|-
zI(CGvj~n^^IX_M^B5RKQvEc8r>k|Dh!;2H{UTe#`uP<HJf!}<1P<UL{V>u3;nTiE>
zO24RHvP2jR1&>&O7PXHjTzl@B;F-F#ka&g~2o8A|Jy^P9Yu5Rr&WhVmATh(E_-)h>
zGEaFC3wP90%#!V-&W+ab7x*b#1DWVRZHH$xGF!i0x>Ne<DzP9ZUo4tKm@7;zTL|>?
zO0^Si*KuhyTjZDV{&@j9zbuxjJ1`aPteBS!?z-C?x(nz?<eA7t?Sm9)7Mr;^I{BvS
z{DD$V<PJuKP`6Lo<qY03nsXoAj{Nh`O}KW3T~q49+k!&W<yVW|?Qm}UzgxH+mW9i)
zF%zopm;p0I*OjM&x|K?w_NC9vA^czX%CB69x|%7>gf`sYwMnm`Pl&&W&C$I6y8YP^
zzW(^{kq9Z)#Pv`*d|Hl*a4*b$I<Tbepi9^XHgkHLu3uyK5sC(TVkZfEg|EYPpVh?W
zmOGMI=H{*a;4X{V0)BAPNonU-qxFa6^8?nHw<`|cWYDXOrUz&B=k+YdXqdKvbJ5@<
z<K#-Tfv>5_#W>7YI)zJ<j}D_^7Pjr4iA}o$ddjv)z3Zw#Wg3&hp55A^dqmq%PexsA
zs)OVHd8;X~Tdnr$B<!vuc;P>$<mv0gHVuX{WQTG?-t+RtTH+{BAv%4J0YA5k#cRQh
zj`+(3UG$UZSVcCqLC=bgIRYcV7%lw!Bo)aDv2HE<o{JH0P8$y#pena%8}xOA_F3`u
zg>ir$mpKBXIXdyE@6mV!`}W`?dWL_=>M_1<S*=tjbQaMq1B(%n$|7R^*BDmO#ION3
zghuh_cDdK`L25vY?XTCIF!~-LY=+F<0({3%4Q7mtcJ6wo%e<uj4hXtA)pHeG2Y4vy
zw05;ibe*hutNeDR{gPEd4hbSe)gZ^;___-yxC-MY<ml4EvgHDI@}B&v{>WquQNymA
zqUDs`zyUo<z1bH1ohyyq{Z-LvXe3DdoGgXw)=;c3aa%HWwSsN)`J-kssa3z7n+~KM
zMfNECmO8E4M{20cveig4)h$Mlqe2Ej=`oMXu}wELQ)kvmR<tR}M21YprV^AAn!@)w
z*nlK%NH;7$ICYITsD4y;ryA{SgBmZGw*744z!J~FQo~AvTH}YVQZC5<k}i}jJ_v2Q
z4nvBJq0>;Bin5Y7MDWlD=jAildxi+Ebn;*?C?rcneXF%eb;EJrk^3?<!H$7+?3ZoZ
zL@_i=Z?!vpOUTNSjPKk5c%rb?HOYHhks0R`Vu0K!-D{Bl?Ck6GLnkV(DR9t$j(%HC
z7uoj7o1y_PxXbso9lfRa+@I376KDF0c^<RFWmpc|?d@U4BJ5$UL;@K`!l_7OWUb<=
zuG2#vLQ@nIHrDI8*otqULZRuV5~w7NiTzNUHd1xka3}DwLnrR>r6TpKiJdY;c-8A?
z-jj-Ut<Bq%X!B-&5GzgiFa8PrNX3f;#3fYe8oMF#ROx2d2*&(W<-5Gw%P4eZi+9<b
zxNnfsye>%T`$TDgURU~8!oT|(X9wR>f|UNpdg+TaU@rdT3PJK6uQ$1Fn9{q(iQK}X
z0aJQPyM;;v-O>j@|MFheCXDjKvFj8oK?|behAjOGSNg0l50e&eNUGA|MIRF?)#WAy
z-krk1yrKOj@X1fgCEH`ta1xeQwKZN|)s|v6fara#$ru&WrY|jfiaZs17#=iUmseQO
zOX{q6uv8e(*gNGA{<8=RN0@N?FTuOtes|C<fbLJFA-_oB6#q(n{SDM-i_ZcUJW;;}
z{CvuZXgXeV|4-&W*Z!M1P1wa?=Av`jcP5)mniF8CV4XA4#1IhSY36^R5ruEc|GZ@S
z2>wa&_daTsLdoPq&&RbqANn8bUI#g>s69AhW%MT*T|S(Wlhw#`;3js?>-@&gA7ykL
zal(rp5MK1SCc_E5n!J@1FK!MN&Gq#mcSiq+?<v}Y4<+3;5;RdRz-X{*U$NfHh#Yc{
zSe3FVae&caEuTS#Ro{&1-(|s!0*ihx&0XaOY&o>(l=`k;i;j>g%02Y5u-o@pDfcb7
z=y9#GJPcZH*C>C%OP{IdDeW}{26N0%pK*GAB`-4tEBeV5XkB)E!9CZB`n1Uve#2(`
zeJE!VSo9f<@ih4Sizm&l@QZRj%5wytH1j}v#*^pd!++Dyb|!`Jv1!qFW70dd!AG=b
zC6lRN8`Cp%61dbWKyfH?Q|Mo9<*CXA4TXJ8qxcJ>jzh-Y&B$xfrys~j;QxU13{6Xe
zhH0k}c~t<>(rfPu7JJv=ZY#^_!7&{~^ygUKu2i|ri0+mT3#ay@6mv2qdHA0zAeRzI
z!#hsbK7m2ZFHh^c@|5To8ROZai-aIv{^)7tr}i-OH@j$k0SP*P)~lsZtH&Ksbhh{l
z_Rt?K8egGNXXyT{>$PF-J6=g^)zk?$Rr*^n(VUYI8-9UZ`UPyw=O3lqSNag+E!gZj
za+QCN>_KesyazhH72iXAe8~KGo>D(eD#*5wqK{n91nl<`DcbJ3q9PejDIrA<<v`Kv
zjFEl)yJj?gF22us`8MSKm`0gY&z>gvbdtXLnAS<rrMt#c-hUB(7an0!J^cuSfz68E
za|N@mu<)W&+L!!=02%Bc&dOm=wpduvGJ6ag7EKGcgJ0;tCo!Z%vZM(W%&5HB;QahA
zvz{5xT;&(1QJt>?Os*6Z-ESaQ54kHpdeO{$`9|a^A55r^%Hb~ZlRfpCT@D%g=^)LW
zGM*&VlN7_`N%*tMx5?kCeA4Cq%$bBuNaCNT7y#Hr7mcElCjf_sA0{9+3mUrL7~-nT
z8S>M{^j)}!WBPNO4V?%-FHey{|15X~Q<xe2e9|~$l@K(vh^)_^yrwFz9O19ygZ}hc
z$)4+3lKN#lU;G7wUVx1U3_osAfjayJaOn4*IB@7BFI0wmiLR#CKtu0AiTnr`q4wg0
z9mZ!|@M*?K8_z1gdBRPERq&~Bp?h5Yt_|wgN%rX~WM~oRViAD~Ej;LZEa;V&IMCb{
z581>}lP++b;y$uv$&mXiM;_ViXWpwUH-!DX$7i2DiSHTGaMKTXL*V!{Ak#|l&ne@z
zr;sk8KQle(7FT70yH3z!^V-{^>e(}<g8DRmz=@J7>3&-INlIqCkD>AeSw7^3)2!n3
zg`l7JTwkho*RQ$ADV;ck*vuGVu+Q;dgqsY&y(#VEJ)_@9A_l`zdor@-LVo6<Z02*j
z`iOP}gAed|On<uP8gPFnz~|SUfrT98)L$Y(ji*8%<!%8!@3D{%xn&5zBNGYBglA=M
zcV%JP{91;E{ak5HraOy>!+U;}^_(`w3D$8S&pJyAh}$v#0;wEE%sPnYUE}R5_1s20
zX90jZxAg_{oF|AsvkA|8F6UL|aCvx<&bcB-fVu{<Mt#M@($4<_jTvUTz4la^Y6z6^
z6~FN_Hw-)0CTX`ai2eYeF)j7H--v&gMCQr6dj>Hj#?u$yP*8xjgnY!GjcX%TO<jEh
z6fN-1tGpQI)eKMZ>`7P+u+Tic(%&9-J*o3?p=Ul~)P?VS%tZR4vPCg~zkWuDh!CDR
zZ4yC;<f3c7qiyL%BujW)dv*`<EQn{BPRwZ=@Qmh^qN0P;aY!LTo&R3s3oEqXx-IYL
ztY7mNJW@(U_juS5>%$X<4gH$Zo~=Ts-6A)k$#^QV?nx!0Fh_Zosb_>g{^<FhtVQ1^
z6ntEe;-Av$Nn&TN^w;~1=UM1|oc)UDO>t7L6=tD*76cHFT(>FDBB8$vgO6qzc*Y2M
z<4w-Ya|&|yIsH=}2GN>9l=!~?3^}ytdhIp!>~(?BRtCUfJALq#aO1y2=3L1S(&u|j
z#9agCuqw}x?(?FRKKky-i}x>B1-M^(jOQrN+#sSo>Hf~{H^vRidJ=cZ34-m(i*?si
zR^0=ASifSCaPZC<{lzyn-dThdr;?R}*8J$LW*39GS7U9r>CStuPiYkG8IMK-qcX9^
zaPg-H`rF6qi%Ow8fAkg<7WIM#k^$4J^-1#G^BPewQtE|FZ@CSw@eyPH#a{>{RbWWt
z%{ShB3%2v)CPXo?SVVe?%%}ra4Cu~0(1$4o9NP6qtZU<1fZJohB-Pi=Vq0l)qjUtp
z^SWW_zWLUf3O|u2fbhH?Gi8*>378hrW%htY006F)(O3EWiFAyTA{YOo&2@%}&Ep=>
zHYiS<n!gpjd)MFrj1-n$u=bycU?(!sk;x~BT#)!z49d5ev7dApV4XissV5?@C(v!u
z+VhP5Hp1BvF28>AC6{ChJ$(WR{c9vsxud1YXlPbX7<kX0eFfE-M||Q7e37Iv(SM(O
z@tJxdNbVvY#qOV8+61t3d6OFswLs^Y*1t~iXu+qlbkK<0h+O{dE1j!<eN3MoGwf}?
z^N@RAxB1SnjgurL4Dt8qcu&HwOWQf}WmgdJ+>}oyOGf{gu1u=$Kl(ao{)A=`H6aIh
zw(Ex=&v@1Du03RugLr05LaLyyf_NTsfAk%ql&Yf0`H!Cp;&~62Fb_d*vn)QNcXN#A
z1O1BDdW}!?GRxk2+rHd54>^HCf~<Vb$b0rwgjJHI`?D+kds~E1r;I)t;=xc$ka3^B
zF1?EseBGY^yS!Zaf)YSH$kPEgkIf4KnmPD$usOwFea(Ue@twwQ;>{s9LibDc#gpK(
zUJcrIyX#3(y&$Vz`~0c2?$@FS1?4fzo8`Wf2u~F2XQ&<n_DcDpoVoyCsW@V9(O~&Q
z6sDknb3G<CPsG$|XZaa)f7i}kDu~aO>IF^lY4}~c6;D~JkTaq(!h252pD?7pdzwP5
zgr6|R!ymlJA|lS@e7%}H^uFB(pYfZh{c&4|{Wasf+4T{y=Wz{boA2Ca?jB9uWmEq5
z4E7xI(0i!McR|lAzJ#Ybpl2C9-^iep!4Q9r1}9VG*cJSkzjHn39i}d{XZ3{p2@hzS
znu;UvzJcUTCraU|uzLF9b6g0|D%JNXd8ku_*ck(4&jsa~6DApGPi^4yB#{sW9=GQ&
zn*W{mPhFN|2p$>OaQ+O!GYHDh-($m2^O5?`ct0+xX5ILSVY~o$UUVz_5U}D{#i0&D
zal&)zzx19MleJlZh=O?7bT3Bmg|COF%5o`>lb(+Hg&U;vUI8Yt{ems`pug8Ri^8FD
z(>vH=aa7q9=N1rewzcH>i6t=SQGd5_ifL`Ocu%e`#JN1hxvy#?NPx(fJO0jkLIi3A
z;+%sw=h4kO)@8|Qti_m906c7Fvp_Z|y>*}2d{*Efo3BWzyAE7cb(Jj|E&jHUlYQN7
zO<6-F*fcv6(;f%b+)~(Mt%gn+BKg!wCneHupfssc_wyW+UUCvM<nwR%I_vMG2+kEY
zid(NQuxIr78a?-u>YBXAK1rtQcene8G(57t15dlZ+05t3b=zrjLTbL!Ui9cTp}AE{
zSq`1~f1xaUZ$Ya$QPAvNBV(<@bS(9fpN5yJ$IK_5NygcvM`c4cjM*f8%!Z$0brz`U
ze#K5C8(DR{OipeTSy7u&Oiue@hrYb7J|Gt@I%rD15s_%58BNinoRfvc-gd6>E1m?>
zf#yuS3KYq8-0^qF%Tt~O(1JI)G1s9hos-OllHt?nRWucDGnOAnYRYo?{d|(NH(kGM
zUImFhJua~W^_)zPJK;u>!;#C*n8%bj%&mysQL-{ti2x(^kx+*XGnY@1dDMspqOiZ7
zI1Y@2$5F!52~#Oft0sN1FzIjB=dFuMo2-28=?_QStMZ|rjx%^NYJ-%WfXS`u^RjdK
zdqsU}CzdhSlr({VxJKS-^AgmS4`}O+-Nvq+)LuPuIBA=Oy}nk|u=ZewcUdsaP5zO<
zbkT(On-RZ_OU_2bH-FcL+*m9jPA6uXX!hCAm3#RSVM_hh4+JQY6(B)KX??Nes`3su
z`P}OCc6*nr39XsH@~;kPxr^GYt3NPir5~Qh2IEJOv#Lvq)OFXMG2THT_rwm%$E}_)
z5gTAeS4;A-1X%SYcQ_A1UN0GWxZ&PMm~CkT#<G5>)i=7{Idpqo@6?m7wmN0|mOFwY
zu59!QN<cGNsEcf_@#$`qbVcXgYP$p@JhVmGd>d!(6|-G$*3+(^{%Th>K?GVb#@&6I
z;0l;GH^Aedx$aVl$DMkPKv2!p(r8Pq?%S{KB96a@BOtEI71t2X<Y<;K{b3wpe~C0^
zJ3XJ-v*}jne)ax5aSv9f@3#<+*9j23M>uwzV;wf%cunw#q?K-<67@s{aJ)dU?SOaP
z;>otakVv%VUXfVWn?0))%`q~lZLslq`LVTEa+hl?kpe<Bo{yeem)1sL4wmtp_b$yi
z>FEhM5aS7|k~YUr6ArpKH^=XTi<=-GIf*Krp8mR(!f{Heej#bq#EPvJem)<RL95hf
z`|)`_Qz=y9qdIj`mrZ0J4SA???*Z(74I-3W=V=eC&8+7xf!NM`5dyL8)w@9uOHdzP
zm`NNM`?}*#aS+5i5AHIE{~V#a<&it<vm7!$B6mb>7c7`I+CJV5?X{02fi<niiq;d$
zXMfm+0bh8K0N0+ECvuy&!`taKCItv+f(TVJfiWc6HpPHXAN1p5^4^CIud+bN;@DHx
zTZR~2t2^<Wdd@uOo>ySQJF!E#(?PeItX+R3K;ipnrL=J$tMpe{izmEOge5r`rArt*
zkdD^;g!RHUf+w8uE_$yX2$5(d<j{nfe6Iq9Gqv}K!iN=t6z&YS#T;V8RN0{a6{PSK
z#Tgu+@Ew%!nzuW=S6;JFzV5}7u}0STv47k9TS3D6poFD)oMSR@<y9#kx{Bv4+8am0
zrkywbf9C&?=p(6;(?x2FZ_FFMwwZ@MQswR*-K6)7X?DSiyD#7SIm41w{8ydSn)zEF
zDDKWXxhC=?J^UM20u8qPl^6a?zfBItjlJd*6w|#(QDPDB1EHs?AD{*g`M0$>wH;_R
zvc@~rUnt{s$#1MjhN?PY1rzSjso}C1&{_$SM`7B-{&5rSFyh<P{%g3wi?xlR*+`Sb
zrq?+W#-Rj{1vlJ63GRgx>^M{ROU^>)6wt6;Rqeq!bItr=Qt)W(xE7z>is!Io(LHW}
zeHtst6!nC<{Wm(>T4+ezu6DKoTAU&BZbn|=SPH-=TMeAY*8*fr6F!ynjyG%t4j=*x
zWpgiZNNxjmH#r{1_wBzTpW)QE9h!3ySGyr)wIM=U>t$o58)avK^T0*mG62$0f}`xC
z&zy}k$J+UIEdE;<z!L?dg^OyOrEV&o_TS<El7c7v-*LUKYQ;X^TJg*HUv_bx*9bRo
zj$McQyWl#sU)hN5>$`x!@b?J%#ny#vHN*zFbldWjDjhOA4hc}0Nel!Bd2zy=4?CXL
zD0xLte<y?M(b?krz~5|*lg4w0^b6<L4pzt|4fbgV!QTS<y^HzXE+SDrWgI;0Fa`13
zQFmN&Y@V1Cp`l_ao4}}E^_>M-<4;SnQGxoheC-uAlV&D_jvUr^xN0!btkxe5Jsf^$
zi=iCF{Gfu}$%QfHo%YUn?QuZ5Vh-!u<H>r?Bg6ns25y+zFKnXrk#|F@9Iy%61GLAW
zz6vW_MtY8pedH6g%MBCz4iCHCY$~8eU#$#aCBtwyG2#`5uk>(RcqGyONEp83D28jy
zx;z1yPbKyujUI>Bdx!UUQT|JHRVzc*CiY%%H(BAd-y(ZE06iDpL-wARrV~p6kb-S>
z#PjEYz0-~(*hzX|)aPKmcTv4CwyGRVFPe9Q=uIfjwhpQ6NzxqIEjp{RpLRYV(Yz-f
zfj@02);lK9dDTFTXuA%fSGXe!rEM`l1UfjqGtYAEW!3hhzT&YmnGAxn5Hznn=XP@1
z=2ewocROQ~kQc_V?%C+wGj~sDFEnmt!q-*K<?zJ~_*GnumL{tiy1k*c!qJB|dskBT
zJ(nf-pt~0Y%Wbg3(+5Kb5i;Lr%p7j_h?+3Rf#LX400~FLPwtR}^S+{&fV-{LyMY_x
z?k==}lOiXpc`Vch+ak+u<HX%4JF4F?^#Q8SscB-Sepd?b^t%@QOhCeav^%NAOL{(&
zxZ5Ix^=GTvkp9IMX|6$!1SGWvc8lApS01+WfU6JJ9y);C)<=%w-c@}gie3int`<6Y
z-OKPD!0vn~pZ}8y9XK(s`OKf5LOVOBH_CwY^ukAX5@aNn%1Mi9f0TV>KiHDhS7_(B
z^fzogJoSyc!ae>0y$=K1=EEsR0JTQcK;gaI3kR$_VfHB479q*3*fkf)Ta?pp7jFU3
zd!$Yq77D=ZN@Yr$t~*_WWWAe<Fj@#xfn#63<kJmK{f%}E0<WMJ-y|5ElsA>xA^%Hc
zm1pdL{viUwC7i$HgbLbDMCRQ<{!Q<?zsoc4ne}Y=&pjxw>B`%H{COAg_<Nz<vOD<P
z<?@S)T;%$8aliW@(I`~G#rS#PG<IOk(qo6#3d@(e2oOSj8F0d)hr)`%cM}bL=yD>V
zmpo1o^jLUFx|)A^HCOgGc6c$XNtOieLW#VUWo0d}XQh2klk`cg`EDC0)*L&F4Cy1a
zHeRyd`nZRvPvPP&xDU#G>j7cou0MK(jeA+w^YFZAEIJSZjk{Z|I&3iReJt*ImCV@d
zigj;0!M>DY7?Wt6bxV-A65+BC&quc)^dzJuFV+NzJK_7U4PTMKm04R_C5c+uY)IaO
zmpCw7Dpu#B5*TXh;d?flY}m0i?1$O;iP&VZICUcw*oZ$EsL74feREORw+jXPrUOiw
zt=rP>0&wN?H)zJoLR;j{$Kh&@T9Z}z-@vNI=)@i?t-aSAnX6UV*h%0_+wyh5zis6V
zJs3%SL;$kmca6!=6&#yzzjDCaAvRWbakrNwGB<hF%4JSFNytV%2YCS*Dzw|5nJK|K
zMBtT1HX&Pi+C1tcaB8i^g?CGWRgcwM{|e^z)rh%Q`L^p2U+$PLa_RkhK2p`JuIN4)
zok7R6)f2tPx4kSuWmpP0h8B6qW&bvLp@OT;HZ&EEhEHQx4|^VtMd!+$t^s2^5F3n5
zM#Fi6X-9)Yu04xkDEs-h*@z9UT`S%xIxflaYR?%D%h5cjmNncKNr$oSf*hun<hrB@
z%Y&G&yCu<VLhY>YPd(van?uTQRwpOEd?D;ChuNr&sXdJLc{ja>ML-aWiO4M?7X7@S
zCuqk({vez-ho-%Zs!?yQ{MMXZoMn?Nj5`LO39m3|n`0xUY@}LaZLx_mVbgDxsLKbp
z2wEb}P6%MscgxsxH_Qq2^&-?8+jI}aY@5;0!~T->5`oP2P(f7oUxTsj5}PbL{4iO%
z;2n+K;1%ZCmkCamX8zhC$sX2RJs>~CM#(<3h1SW#JV&-2My*68+YH%U%+?)<>{4v?
z79snR0h6L{D6UPuV`N@)e4=2ce!ftp>#+#QW_p?(F^lh;Ib7_x`v-xsI~6YzW2NZN
zR|1Tcy)(4fW40ow1MfkJT{eXg`)|pMlYQ~M$~?Uu2N>HLTz)|EUw)z<Kk8uk2r%~2
zx+2sy&xlR?d%_MGRtk?mpjZpdRE{^SNAnv0i3s+wLe%#vblcI2iBeI4j;j~^oSJfU
z+>}jz?bUl@1nJJ#PSu>fjCE}<8*=T$9JK3uOpm^VJpqK`JQ({ErBA43Pb13rSmMwU
z3+Y+Sq?H@onSygcxC#c@0l02iE9RO4;5x*%Q{Ph~zER&~P>d)WCiK<|V!)Ja7fv*1
z@joTSc##q1BE4y;(%C|gdpKIV;0C3%U$_xq6v;7fqh_x)`<L?@7*kVR33zEWAb|h9
zlGR$6NF9+mch+q~j%>sco9R5=sIy_{p=|t5b8Mns1_tVTcaXd)!&vso4o8l;_)ugx
za>EU}#|)Z}qxfBh=K>$Ec>6rZ7R4CjIU?(7d@bHp=LnHm&rXr>dom4o**!v)mifBI
zas{BL#ZR?Z&xipl2O)e9gWBk8u>`zxkFc{FU#nI7@dHRV@#8pC(LS)hznqQYym9Yq
zuMTNu#Q(bv-gLHbsv_|IEzhOT-&2|cw=5UlU|LQesm=O*n;?R{I>!&$F`FuyE1aiX
zFBsq=8&x*?qfZm^$EUBbKCbj0<!MxaKHd#}REOE|mh%BrFW5|Jx&hx}`5g%9zT`3-
zm)^mUI(g|sb>|gruHm|-n&z688r!5TFw$OqiGR!ddv%}5_*pF9F1)+lJP%Aq$E($3
z^;GqaFKeSm&kLkh)^!1yg^j_cplS(DL{@#Rv0e+aCOLZ3@%cw9iF5zFm$qq+^;wzn
z3-2ir02hXxtJW3lE$u7K7Qzxz!yY@!tKW@rOm;&iSy)#^NoO4Aig&fTM*@rGBi{A!
zoVzoOUDC@eNQPz`?&Q+UHB3b}?JjQgLE~hn*=&FqZPoe;)*EC?EYR{TiPvA_+~nlV
zTCCo)`Uq*RhwkH|8_?)h#X+IdUBhMRz)0DqHW185<8K?bv2o1Gglv4MgjIK$`_{2H
z7dpLlv*DJYXM59qQYCh<JRo$W>d%Rk&Be+77BZ;A1pPB0pl!v2MMIzzj;(nn&9wJa
zY#a{uQ=p$`g+HBn3H5nkoqM*du?mc)9PMG-X9I*Wq{NT1Sae>NcPaE(HoVHtmzTZw
za#3ew*_+jS!r1*MY{ch&`C;+lgYH_{Y;L$4k<x)(*aGf1rRK;ymM>AC9NOm`ue7=b
z<f5cGsY%k+cdPzPy5~w%xSrS-<^y6hJgeF(5|hD7;T^2!e87Qv${t-z&DjPvvk*LE
zH(SlVB9LJHMVZh@(Q0AJYga5eajzF#d0};8i_7clLg`EwrS$c{dC_^*y7#JR9G0f<
z&jEB^R86>ZY|a@rk?(fWPTQ_w_w9<cEBQwD;&f#;29As)@39Q_>A*F=Ue!oSYGZg!
zvlo-GguQgM72CURT1k%iun6&UZ<4M2V_~pJ!K91_LgzGI2KC;Y)f`OetY0L%AKQO1
z41oQD*>g<-V}2-4x|jV^`aTssX7s**GbksGZAv>CdsPmH(?-6Yd6IsoefK?^`jls*
zKs<>KdG;cbyLGvt18g@b--Q>q;wUrgGQ#53`zl;>`_ZvKr;Ik$<4`RA0j5w#K_}hO
z4@2|XCTKd`o7oCsXlBDxkrs2zCk6*_8F_4GZ!tLpvff@sFhQ`q9Tl^U6j0_y{oUj*
zL1pIsl>*$8+?tt3vyWCaQAxRFAXK4+D9IO1m2=hWg~#5FLdSL1Yc{>g$2==uQh73F
zKmK7<UU3VPo>T(&Ctb3UAk)6Hbj_TL%tzMER^N(FlCE-OarIyg-oI>Qv2L-XCuV~%
z*Go3)H%jO<A!1(mv*da?j;Wqp#y<&HPKnFilGBR4lKm2Uy7q)fxv^Q8;%OCo_&pZp
zX^EJtn!P(vFtd^Cs&vl$m}g;jnNP*+gB>Q1!R#cwP5sS4QIH_@fTUYv?kKrV@U5v#
z_P_WZ?S1Kpx8G_l%f3{fWx90UD_{XB53yDO_HwDXDYPHP1Y1wk%TrwREu3<@#35kL
zdd5O&jrF|?AleP^vXe1C=j}!VV89QTkyg`D_qR(yP(@pPi*;?jt>{u+x+-gS*j9t>
z=yF{<d`2^mf)vK(SSbeAF2iA5j+S=#a)8SP>`W<k=1ZmBK4A^9ud@l4c%1wBQI3&^
zKz7h~WdVY(!%~-{>omG%P36#Z&aFl_KA>x|?0ex$CTj(W^Y8|PlhtN?LuCqj!9nnj
z?|KEqr2t}9t-0K_Y<Ko9bjzJm!CRjD8iO~vRUN2az7qjh;o6u|=ls-BabB8AG$xu7
zci@)W^{8^4iAK+yDS-j0=z;st+%db|y#*ao6?v!rvZT8JSG%p~Wz5Y6TiNRf^{{>k
z(X!p3cX|>(fU{h!y5rxPF8F%g{o$68trx{GS5MLgSN6s;5!Dx8jP%C`0eP%?@_AhY
zv~aEnO9jUL70+%^78dc#_v+o=SpnSIW<0dYt18$Q)@Xb-G8VVBOEHhbtelBX$Hgy$
z)_xTgROOAbIhZ)~4JXt^IGq?v%*Su-m1AY&UT5N>fR2{lBU0u!w^TYfkBmgIT!Es5
zN_h`Pxe)Iw+VbUeRoUt9`eqa9(7+9ha>0F4*q>7sYz(Ed!@Y%2=IWv>7KskKY|ep%
zu-TKsog~3(8E>-<o}9GqQYS}raLsP@1vtvH!V!N?ZF6D~HsYt|h<72dX4@Y!0ZI(Z
zXl>*+d%OeD&9XJM#Z^`a;@Nd~Ry*FS98LU|J=s-ypFP=}$dM-xeLoQ0upN-wY<jRu
zj04<Bp-y&qQLPzNQuYyl=W=2tv6?uHoz<@+AtsFVTER}X#vGd2qIZL;Cwc7TejH=F
z5FrSX5T=7*Cy%Q(O}1v2p4B>MPeVG{8>ogb6!rqsC4x*~z06x^kK;sC+|mS6k*m1m
zPOf_}(>UbGW`2cewN)$G@)xnR|EkVjMlbns!i^Q+W&M9%lzmA>Z}Y<zM$}vdZL{wp
z%F4K%K_RVt_xPu7EWsVVIE9`L5|Xan7g};NMX&vf1?&!0^Mf__JS#H?deuM#ld+w4
zoXa@Q+lm(p`~BicyhEKl4re?Q;x3f5*=uUK-(n?gs3ZxXJ^o%lS)7Rcyll2FBuq)!
zmaHV$v2)D(?JT}k4Hu~#uOKC7i=FtVjo^{>Uj~(w#aob)yYZZK&AEn}LTsQV^|{9y
zsJ%~;T=4FBj|vaVjtg@vvA|u1BwMD@SUR>6?T_wzTOV%LOX?j_0Q9$`bgXH%ih&>w
zNDZlZZ&UqvF%Oh27GoldwGbl(WW7-+*y`pG<C3@sSpu8AIoY4|Oqar*SgXKFh>uU(
zH&{<veQM5^u42)k+u#bkeFqkqUj-oYaUeRx+^=kLKI^*?+e1~(UT;k(!Z*7;fkm$Q
znkrU2BCy)E&YH0@&afq?+C?m8qHD#?@TYPFT4$%>Ow>FNw!?SmTk~vGEk<!W3ze10
z!7=2aRr0`9o36T2%zy<2EgMq~M%pXG$$o=v6{AWJrn8B~awh9bsL@rM@F)#BRwi>J
zhir6>#O#FijQ66NhY-SJ)^~^Rc>B?&dcnZ$1RJR<&mR#=H(9xWAOh<s8SjF2yet==
z4i?eH!X|N0;u^rlcjYBPRUP<O9_|)9sHZzNOR<|y*W)iaw6?-RbWECLWxmWX5=G;>
zd^vK@uf7iCWuRJaN^GleWVXGOdccO(93Ky`AFy|T1ds`z?%Kay0ia|Y6J{nlS<za*
z3J*P-5ExOmV)&t87zbFgd!uuu^QB^YbJWp`>e-4J($H`7y>BUu1C}`UKanI($FqMJ
zwSD^}A77AFyinR$d-dS3?6Uf(?6@phed%wFU-%YEoiy5}>S^wKsZ=nFdlh!_Dv(9t
zzjl>MR7|TyieFo~q!3<vCTnlPBNxiMeNGoGmN!-2wbFk#Wcbh|mdnw0h)Dw{>qOx>
zU_GM1#t>k>*$6>sHn;Au98={9<iv||_Up+<b_iNmwe5&?22?Z3vW-wosioSs@L_bh
z_RP#Xv4-Ov1vAq7Yjwiw+Q6(AQ^~w{hY+~nv5sGcFwHzJafEok8AIAOk4bE=8m(X&
z4$8<M^-YIXYXujGJtsft?pp{ZqZfhOE$qm{u3$&OMND1R9EH-pF-~&MW=V{TbN2o3
zGFj-GHvDt(;FSsT5QO5Lk_dFxd-;u0Z#a+e7cI{r<llf112zdaV}f2lFg>!FwK$1n
z!q+n1^Ke9h6*f!;-peRZ241#eE=Dgyq~H#jLMJ6>raWp#f!s1`d3nm(EC-F4&A}0g
zH48Ud1L6IOoHKmP)lZo{2Ld<aJFVF8<$;L{c7VgMy|JHgrO41HJ>T}GT~{ziF&#EC
z()Q{=c;)e3m*HOYz&yH30u9r?TT++Ii5!j#6xTgI;>#Q%ktPmxCg}hYK_sSF8AtUE
z*Q`&5nIjo8Rt}4}Sh-V+Y+aBZ-;Xc*R(z8t8$48JtnW5_q0`+$=^Ea?^?zPh-T)2=
zip|jvQ&m~*Jh4@<7v3(I0M45Uw)%Gpkb#q)?K|Pa>YzZ@ULx@1=#bUAld?rb5C=&n
zYn3Xk4)!n$Sq$Gs;heXRb!yGiTDV%(UocQGSm5|;oaJ>0Ex-<F-HNKQ0u>kB;d~4)
z#dO7*+m0M9@2@y_w(wl)INEQ!799UYd(}!qZ)`2zW}SnGYq!W3^9>i=q7E|#jUd$p
z2Elottn4#3Fsx(=%@t$vkv_~*924B(?A1Ovc8~iv>)X8TkGd)d!plBdF5iBjqyW)C
zc+Js<#%uBa_Qr&Am`?`170nVcx?OlfIF#bettCrtr)D!Y;3Vprm5nY%Hy#dG<;Edi
zoZH~0CVSAO-NV!j+qJ6~?UzWD#9m}2aHoQ?#6#GT5V=9TR<-$13Kioq$^|qy<idQ|
z!daENsJg5=t$1=;LC1!tf^Wh`pgHjb?g^5%xmvYWGn<5DI3}w$(ekb~`9xQBzG&^B
z{Hkv0g=ZBC53q9PiS0=dr!UiZJ4W5LLsxz}jR_TUpb&tQ9JViaqL4bLYrZ`%B}uDs
zsoLd5?|IB$TF=f)@-FoGu-MNAeCMTVB;<tME<RGMcQ?Vedx9{P0I(dWaF;e6jRNOe
z({@T4OB>5N>x4^qT-{jwGhFY&CER<2H{!J6(8^&6ncpYo3I?0IV8V6dO;+DLk?>za
zHj*k~&6PjECA6c>dM&Zw-m$f|)lwC;VcEMG7&PJ&ZrFr)__u-^<=<im>@g5m$L4E!
z5}|nhvki_pswu$g%}T^3VIk70mclP12qn78F#)h%EJtoa0;a=fp!6QGSIsd8C&IT9
z%Z8>jg>IzQtbfkm9J;7>7Q@j>TMUbG!e}U33faMPBFQG|=R9NO1D5y+o5~jbm(|EN
zS$nUmTP<5m?$zCB6*Jbkl?!I0EU<Se)QvwbAChnvFF5R7^RLE!1n%95P3Y2cw5UyQ
zQ#1=>+jdv6XB({?wIozw(bEfIaH0}bWwSw8HeD5Y8>DP(I!l@!G(VUwJodGfwU-^~
z^RCOX4%ipM6x=P72<ls;pb!UU-9i)0g9OD`b5<Y$=;sBt6=M0pVfkPJJ3TW1jNorg
zJ)kPDlJtYq2ac^j8O&n@FCSbz5Rjm4`2RtSU=AVJRioM;2{LfGT%wDl;&*RxU-7DM
zux8wnn4YQPdH#WP;kXYCY=2}&lhEaOZ;pL^66A8oqtDeKclN6?HB<swu37p2*n9Wj
zs<SP>Pv`gko%ciMrK8u8&e5akZu&)c-`ltEbMD-^_u83CO--dHu2fz%l}b6Tl;fIm
zb-5iI%UEVKguz%*$rxiy2%#uUC`uui5F%q)MX*L8gb<7gk!8#fjZ84X7&DlBzWet(
zN20s$&G?`Ek?IZlo!?_W*Is+=wbx#2?a>>f_TtbL4wv5UCGh5moCMw*wdY$4{n1W@
z{b=|K{sH%-?2XZmf52md#|QUscMmA>AqwZ08_{kXdkhlBzA_3n*AtQ{Vn?@!qlWGw
zReI(;(^Pab@p$A9;uY``ag9sB4)1v=b_jT9@IIPIoD+mfPvjKvVKCpiUSAsN`T;!F
zg7Mc<M`Q^%fG37Gf`u`7$@4APv(@|;9sjMgW^>nDlD*I6pkg?gLW(w(gVmjG+z!7u
zQGdbVpPWpdC_D?EqGc<0?61<Noa4c=E1!RJH5>R`D{p$2lTU+Z&Ryi;xA0?E<lLmy
z`ey2S{cHhcVK#P*3%%W$$K~f)?E9Y}XtfdZ7-x2<FWTRba?DA5o0iY@zHH%5#B2mT
zENm3Cad0LTZwZ;rmetbkw)AKgaQP>Zvby77TYE)M%eDrHK&!A){wjZehbNA-kG7As
zqc~(^oG`6b)+=(HwB_;dN^n)rLFDl-@);zTfA`yw%fEBk4duc9RL56}armbeqT5>f
zBR^n~Xx#nnA49<>^7e-iB6jsRH+Chr#DNC8IWcV6<-DGx(I}oR>`gwe%_JAyeaVIT
zi!$;tbM`ubI#oAQgSNe5VC~Q2>TjAI;4gUkn@!EU=HsvH;cpeF-K=jp_&YIX)L0h^
zi$O<O@mv9M$ZYFn%cvJda*@|G3lFpp_3jOhH%>Xb$D~Ad2Znxs`lP$&+$x+&T_|jw
zR8JRT3~(i!=7@K+(BcE!St1|L7aqCHiEu0^2wo~e8R4@CNBrH1%LQn<(e_&O4ar4a
zCT(A=oE*DazE<8SY`9C_mIBi0;9&YuZOV!~?xAj>(|&c*@3dW5K_}5}pRhRD_f%`v
zjTI?&b40I^RCAuIe_}*l_FT@~y->QGUChpl!=CE8*kf~ED*g{s19<(~ur7t`jlG$U
za>2RkgMn?kihM+Qh%;W-d$q-|cLZ;GXk!eY8=B9(Xx{Mt^a1?2H%dE=H@*49SGm&L
zXSLT7ZFI5aNbfgswstS9ZaYNt|3jC0f4t3d?q9*9-pV$QdgAjhMCL4vjr+Z3%-$>=
zOdLqzcRd>)uDH#w-mmOStT^(jC!O1cOeObt_{s3G+`Wk}y3j+6b2V5ASHsoP_3%;k
zMtC#4)_Xa1E`8RE+~`eN)8i|n5-zL^T&>(LpiOIzg@}X&cnd%5E(I^a+3<%?tZ%r}
z&T-f69M-U&*f+i$MDFsQ4{#)NDRP$Ak;Iwh0PI0hd&a-|_lwbDV5WVpF&C~DZ=`hG
zjG4ED$Z*(4os;8GClprYWc*-z9_IAS_%_CE4b8qgVH<tBM{+6+o3_wc55MTf`4B^F
zI)B0I_)NZ@T^N6z#{F!6c_;hlEDh0Hlh3M~iTxNIf5Bm1WDWDWzq}i@LyfsXwCd&)
zv%xJ)h)yJ6WYvl1+VG+sPkEOculdP~eMzbBaSC;{dbvF1+|9B`dsKpZw;n^IAGDrS
zXM$&0wy^BO8CGm{TwBUV-gXapH_EeE{uttXO4K!`&Wq)z99+8PA#WwOn%ijH$nQyC
zt~?K?(+5k3+Rut}<#UJ}u8l_S@otVU4$Y_K7jGrMQM}w<Y{$kMhf0f~9O89+;azA-
z9RJi`Y9GM>?x_C~pJdDV75`A>30rN{;S;lQ&CN~b80LKTu33ee9r5Vs!577YNgc@t
zN6<Zo?*YrLyG`Tz?s70kFU<L!#Td!akqI=xTx+kiALf<<Ilj9)es6qj{8e#%T+1eN
zVExus$;SBRIJz1T|H$**^YQELm*bDLYPK&_Z+Pb$H@)T3)zbCEi^6uVck)(yJ|ppk
zaeF7J!J)>TlyQ5<qUmwrR7t+>?zN^f_nTX;?jF=}bvHAy)VFWqzyuE0jwOwwyTcPt
z^YV13<H+n~R0i4M@n4R}PwF4tuntz1ysl%r4eLqvAv;tT()I~wsr0Om(F^{prZ)S}
zH5M9MuI;*x?M_V?r*;bychII-tn5R3+k`pJ1H$4n+VEJOcsAT!56Pk3>V&AuqZBK#
z>**sCH#<J<p0gJMV{x_b9*cx+3K@vNk-aYzWdwJycWvTn|JM2oUFB!}tLamDoE#g!
zb(a$n%Wm|=LfG~xY!&aKSA(;;`}qfXqbDn`bq7Fj_M)URyXCdcoN&B1jJ?)HY99!v
zal`y%c$>dEooa9@ajb>w^uzwEX2(?>%KDM4Pmby?){Yq$b>}8^z6wk99Ny_90gOG<
ztxn#Y>^h}e95`EEt8FRmZn>n}2;`CuiQzU4-baBv(mfxzUq6>RQd~%#4Yo@PZCgjJ
zutJl7Z-3!HL3#@e;KI?uvBH*M34zgr`rSUAc#C%L#ez}qT`q_obiC3{4<5|m?)-XY
zI<qmk-65S+Hr6H;^>}i|Nb#=^%J8u3j4s;I<<Kp8quZ`7-1SEHujY#GdIP_6k;geW
zPpoEAVJhb;sA=EN<qpctyEc0<uGQKeuAszeX<_^dT{k|MuTc`+`g&&`L-*gw=f?9K
zvX_sI4qV?3$%7wPdATOBiEMIFa@(dLJ^B0#`7<$jCUTC2V?I|iIriuC_Z;exit_ON
zSr`5#jO$LVO^*NA%IEHKM`0%33pa)CJpu2Eig47Ec&N~>+nL<1QVRb)pW1)f$>$z3
zC~`SpbtKvVr&eXccItcX=<P(Qp24drS^maHZ&f)o+qbKfYTLi(=W~xhM0Yf2mkVy`
z)2jwS?6-0p4nx&4b~TrA|5}*O&0vDibi=A&@WW>%8mZ5zRLWiIb^S*8>pP&dllDf%
ze^Mb|8kGve6i`{L=G2f(P9RRX1^Oza`Gwz3Q!)z~-V&m#xutSGt6Z0byA%{$92cYI
z6)HKwFGX>eNxn0m{~({AQ7m6s`hsH^x_-zGbUt^q-}IU5?yystR}x^GwuK-}u3jC_
z*qKbq{nN@6Sz9)ryG@A%g9TK0&oHfbT|XC2CF~5mH#xiiEMLgYjHp4|YpilWq0C2i
z#`iO&3_V=1-7>#!IG!8-Bo&tZ|GbdT{UD$J)qH+xESD)$S5p{G14Gojb_$^W*QI=J
zWxNfnZ9hCZVV4_rSaQP`6J!avd2RaFF5K+}M<#9e!6ZdLon%)2#8fFoPG&Uh;hYrS
z9!wyY-x>{<c~HSLMMHwL3ftTApXPIgeEvA6f4b+a1$ZJ(O5$7$XtCjsTyww-zCyKt
z*TKS%ttZw~eF6siyMT#DN|gKd?Dgg!FdmBe{3h*rp|bZlGtNF|zjM%;bq+g6oa4?3
z2M4yDv;S<oH!nLYj(gL&<(T2~*om{;gHGU#yPq|yJL?_+q^B5gaR=Hf?sXT{fLq8~
zHJTpqx9L81pSVxmXYLDkkGI#GVH_Rs7*_M#9Pu=;PI;%jGais$!-MoQkFEPD-=!mu
z`M!VEw+pEUegiMWppw5H+z;%{fMNGEpwKBOj5`+|3hg5zH5BJw3YT<yJG>95+d|><
z$<-vNaxXammaZn)GD}Zo_GH)}%^b=c&K%3wyXLa*yO}0<e>!(2caCvrS8wOswcI**
z@+kK>XFto$<=LS=k+)Nq@{9Sa`IY?j{LTD2#zUp{(AC1V!b)MaaJ_J&uwJmkCxy&(
zk&+E!A1w-pE){KX^KQ`>-aaX&W=i`?`%A8WrsOV^E`oeZrR$|zB}0uiOHWEqON@A;
zPBYY9`$(_tpXATIfO=Ig4ZqR*u=jCq`Bd3$`UOVgCwD6MD)-sPtvs&8)If)x6FBvp
zFkiKgRZmy#^E_RyE><BV_O0se>YXZtGw0f`s`gY(10)wR1no;TLon<|wa2w5HTSu6
zi0nO(2oq*Gmau+E1cMrqAtY*}j)!6Ni~IKV*$4W<qkXo2s_#r+j$yEZZtab}o6@jd
z>*K(mz8AWMgzRtF2OB61HNa!)v)EW_TxIM*Og0<#(f(uo$NTNm5ES=f|4RQ_|9!~G
z<NlZZhOBTZn&3;&$!JJI%vA@Y*;fWY#{wC0*!!S;0<rX&L8$7LLC~VSG<0ofB_cY|
zp1VW$hSrAGhwcwO7_v8pHud4@(2F5|&+zoHx?+C#@UUPaa`doC`Az$2)Ao0d(14MB
zT%&Mg<Y@QaUVv6z9$6e&9&t09Bc+^uXcP*S3N!xgQ5Nw0+3q8*U|VXgMc=lLwwS{f
zS`Bb{vjs7s;L@cw6zoC!VS8$9&lo)to*e@l+{LjgV`L!eWqxe;iJo7L3Dx$G52ftO
z<Mx$tL^<OR$HSC6HL+)6dcxKOWkcIepe!(9pP%3W`Wq7*G(Pcs!qB<BlS~xzlZW^*
z`JSCL(7ifouW)yF^4{e7<b%nFlkTHQQNFnBs0OcJ3%T5PgyQzEP+NX}oxeY3|A{{-
zXQyb#&Ef!w4#9&C@2?~{FN9wOQy%9I^6YZh?~HZ8auMoUr}1&QWG!3QtQ*!X%e{}A
zCL}`gy=d>XXCNgatZZqXW}G9(TDGr&j*pb%OMHawg~T0j<Uo++<uQ)n;Cz(J&XR*c
zD%5S2b2)D~x1BrAT|D1Ozxk2#*s-6p?wf|n?Ssl4<dCs>_Yhd>o)D>X@prfEUUjdz
ztL`0+O~234y3bua679zI?6fzBYqjIv38)#2?t*vTyMUH7bdD2MR3(Mm-W?CK@%88h
zXGLI)^~`(8<CJgjMWNT<&(R$ReS|u2w-`Gd^V#H$(ni-sJ>jStBY0FbIL-z23uvu;
zk$frqId~M-)>=*-=I>a5aU4!W&TtA4k8xNIt_Ii4BReBFyb!0q9^j98Gq9fp&-G<D
zPMW8~z2Qu_4+E=%;cSQje|RjEmkHLK{9O#u_FF`H1^JDZ$+yBgyf<AN>A!K`JvDBB
zQaye+d4#RM<H-}rlgU%jCZNuHktvV8#NV~#iikI~iX+pKXvo}8O8UDMrbJu+0Abb5
z>pZ&af57NJH^+Y#<wbUcJ1i(o*o<#pq+fEk2d16ZFz|DkBblR_<9dq2#m@aTZm=XF
z+`+tFztR3bTR~6th!nIFv@)CLZ+qyP<1J^eX6;Dt>-Ot$kQAGNWs-I8{zo{_$gbT!
zn_Iw^{nECBFttXy!$FP@a`pyict6d_!WvV7sk||B=Kf&bp35KN)I-T?j^|MUJd;10
zKPRd3#r$PvM{YQfYBhg@88Xro=DaXlX0|x|maFgQ`4@S#<G&EP^|S527vys+i{fxI
zx?97_y<p53Hw!XijNZyfaT>G1;{M_REwbl}M~djcV@Y_rhz_z;o+8UZWp<<JVk1bn
zZ?2DvPtETuU1b1xpmeZg&y_d^K<2+uI9pmMA$Yk|vKLFt(!As-$`Tv9w{^e9<zWe_
zjs2vA)tilrm|kPg=Ar;{xc5je#HsgW@9AFqY%lsTy%&4Y<gl;wF7x4f?~UG@y|;K~
zn^a+=7Xg?|lu*3r23Z(M`X2>UJhul-Fqh*ux1!(mGUrmW<<kwwrGIvCe>;`W#dbJR
ztlJfi=DSClhm}ptODZobVkDScs$Ax)hk1zXBhGM#=Jw_4l`7h(_O+^gqiSPXKtOHN
z7zI45KCimy^6#zL`)dac69Em<Z`9WpYnORg){7gpThaIR+Jl<CQQNFNtxeSr*N<Xr
zRJTvp?Xw;3!@gQy;r>SV`F<UDQ{YwoSzUW|uk>MmAKK7_!+kay5T{{9csS2xkyFb1
zuJ+lheRun|WKYruwxtft>Gtytlz5LcjyF(>)nV<?x$2i2R~pNW6<$e0^DcbLgT}+g
zMgtYXt*{rRI4yeQN=GM2AMZy^?ri@8nqNkn$0&5IC<bI(KWqK=L;XH6?_N9YwR_U*
zMZ?-)RD|}?>Oib_6akPkS|1HW2ee8}XnU9+lr9jC<~b_$40n+R&XqwOJPoUGlUIbb
zL5>uC5Z%YAQE4HtHT*NfjT|U5WG@XZ4_$?IdN_pC60i?V4NFIZ(^=<+55YCL_DLRX
zsVr<$SKtkr2~oH|{GfBoi<i+o>IZhLZ4gJ(PpqS&?Yj>0=<c4LA2c5|A2**gIT`Oo
z^HtLvAh&;nGvT%lgIgIf+qJj1xHP4HY93#W>>kyVePHyUZVr#y?(xx+y0sTZ&zs-H
zQG40kfVcO!xj$+@9NidwJj&TK<~`g98&C9nYpw-HcdT{1rG3UTE%q2WU+jYUs0dJe
z-QRBAY29nB>Gt8)H#YKGyW5m8(^gD{!|fy8dp&dfNwn*xy|!&<Yu#@@Xq)XdMY7Gt
z+MY2o8ngG0>6EPbG5g5aQEu46I>pbqG5f;UrLn8xDot1)docEp4-g*?+#1_Gjyl#1
zhwY9>pX2MP@iV+w7)LO9dE6ZFvdZ(#@mu5e9d6bX`{B5~Ic~e=xRDnq8jtU03tI>~
zKcS<;CORi_=sb=K{Mn1Tpt(UtT<%VwY{NaX#RST&&n8~-w0Ckpys3SJ%W?j6`~*i&
zAkw=si9+MnF%w7$*ErDO;Up>?zVa}W#Ft$2|G4XzKX%Li8h?5eU#&2x^4z}k1)uGP
zLygV~z);<Ar}$AYzC$B_;4xDg`2pYZ0v>z*j(F0DBb7_*V`4}nc67^Y^_sKp7+&;=
zVMO=6#)3vJm;V4PXv~1dJ|maA9wTpgF$XG(K4kNcJs42f&)xnW->{#C^*rPo-cx=A
zPodlhD9;;kiuYXhSNv7~Iv$AFIE=YZcu%8!XS4(vq0$s#9Cta-qZ}#;-+4B`s)kP;
zXLJ$gsV$cqLF{c!%qOhpBa}s61Rb`s!*X_=nq3Gl;+{h6=IgxX0}Qr875xP_VzK+M
zqjD4$F`L+@gUH5@7u@ERWaPF>4CjsHO^n{V?B>HR!x=luLho5&{^#+Me;*zZW>X5x
zMsL~dq<qN<melNjcKAzPK6hnXj4rFGO$;_D<mT!X>h_U`s1B!jLQG@q+Ua8EQp`fe
zZk=w(sgsyZw7Ajs+Qx2v*-g_|u$&9oZ9M0-Y{YVQO<*IFS6I#$Sq8fTx)s1l7ml04
zDS~|}C)Y_|#cn>#ZE>5ga$R;)Hiz(=;x@N4n+u#olNYneuGn(^T3)>77N@z*_r~)M
zpDAg4_i&h_5$mXW*<v$|@V)CeV=ZDbVKHMpD!9YF#e>DUE@$}~U+H#zPuwfQSE3YW
zn96ND<!ouLbf~nQqdZ@_P=cFWhGE>sOs<tSN-&bJk>Vod6yczJ6CCcv+W`!u*hiSh
z#a?lbazG&7QFi)2gL|AV%XG@HkFk9b-B7mSAdxf14B}$>N_nYlSV$R@cX`M!*?j+8
zE>cY7<;s`Mx$jm`Wa;veTdX7YL~xFVZ@gMvsot!@Hr|&}Y0Ndgtim+T)b`hABc4z!
zqcNPt<?NUF#fP;HyLhw?uXv^|R?!&!VD1qyix>rpE4){?*XuI*dsKf?-^MRa^~pG1
z#&aEh(HOpU`NeB6i}(7vJC$43W3$_MMVU_-Ua`X}%A_Y^7S|f<xaNx4#iv^w;}`kG
zuizF}4QFVW#r6J;erdaRnZ^ABhBsUqxH_=XVGQpMtcerc7>Jb5#TIVY8y~b|w(#`e
z*};e>TpENWygnGQghrkE{-Du}-h?lFGKgv?;gwEkma20{XK-$4OUL<ShgrNZB;7xF
zLve<1g)fIXT;Ty&!Xv}DEIT<YCD$)7g{#B%jo~eY)h)g-R#tsE{Azf&SUsbg`jxt<
z+Ze>9rY(IRf>AJqM`S-<OycvV_(SOec69r`%opM^cSL-lRP?s<g>$1~43CYz&KX`F
zjX1-uDjm$>#^}@0h$&=udq&LNY-`?dgfN6g<!l=_xY80kxSbc20@Je=F3xth_qGim
zc(6U&#y_Aq!7r;}eUTZA)UNJFyx<eVIvQqhdMx4v=f=K*6TCELw1CF!hhtLhc`^2K
zY-)UZeBbziaeH>$IO8?&JUK4@Pl^{}0MT3MFn_nlJG=4Pi;uS6pNxwGd_Mlt@PB4o
z98EH~zf%)%ehU+qCJf`ZJR#0+m3`=26YzfbaIVF!@`H(o6I=Wr8@*!xW+#tMYFGE%
zWQXxHySOpWw=wyIJsEbQQkh(#RIb(=14B(6@v!5qo$un0{~Mot`kn9n;D<l@@lXHo
zFaPVm@~i*Gul<pK>)-x&|NUS85B|eH`p5p`KmI3v<4=C}r~dSx*^OiGJ&EbW-oy+C
zMC!bkgNa$Tb94r|oc|xi<HYgAiNs0vpHIUjo`p}ug*%MmMNT`toLEd;fn{9Ai2Pb&
z1=jI;;zr^oN0r>hyY5{M0a;6|bIRz0#6yl?-Ap_}+=-j7#4}VQUL;;7UL|&0Q`R19
z8V9<ZnriJw2zt<(wdSmO>ky`%N35gPG3&T>0?zXkyyqEYquMY!Z(Xo1T9>TL)}nRA
zNK3CGFI}-#t?TfnH<6p(w(eMWIl6bvTDK%ZeaIQ7TRTb5tmoDXWU8-_s!rK^>}exf
z-N)Y20aOoXaeX<@u{MV}tN5sW%s!5^^(3mTVs6i(Oo3J*S_>BuzFtQ4|BAhY5cVo!
z*cFT@uXCc|P5YL88{6o+_C0&eUgyN|2j~QB*qfNvKgPTNQ~R0yoL#Ax_A3sGoZ=*8
z$!(+UsRL$%Dmnm0+f?G1wN-V}Ipv&&cRuT!a~7QQ&IRY9bIG~vEIL<^?k>M3-_;gY
zB;&n@ly{wT5FR)Woej>lkhJ%S^At7I=gte~rSr<!?M}ISjPQ5Hh<^_t0G^Hc@5AhN
z9d(bn$B_h|bWgdbIi=<-2cRq<629PGbT7G=-9`6`yW~dP`3fRp?S|cSwH<bc4Y7Op
z6qU&Mf&0+KSO(E?XKU;^n`1BCS32g!+k+fg+hqH^{hl_;W|1n-dxyNko_5QQ8ToQ&
z&+M#s&Wps%7rjfKc>OEhk|$>Wnul?$cip?;-Sj#v|2^E)tmEABfro9gx9L4H%>PqQ
zTW&89LBH~L`%^3frdbHg_#Hv?ETZUnKUxqR^^f^l6P#pKaN0lPpY_lA3!I{O!N2HV
z@-O>~{uLAem)W(u)?Fmr^tDR3gOvK7zvi#|_x%TmsyF;iT#rBYpZHJxXZ~~lh5yoj
z<?jxrf<3`>us4_q_Mw4)AUGJzq6{=2;Kd6adMzW42PcA)EGA9|XM$)waUP%W7lTW|
z<v=<@G7gtKdnH&6t_RV&;x@;o-VN>rYk@WpA0XS_2sVR9>?1x2P{T#WjUS}o73+<u
z*96@MjHr9g2)hr5N5Z3sypJRFJ{g`0Pb2z1Yg{a!549Y*6fa1Y!etcFudy&$4X=mN
zxw{qKMihQGyoY<ub@nA6;Avtb+zcOu9jC-vt-K87^>`{N)z-bqndCkkNgps?kLU3H
zeJCkex%7&*7BFX$XOriW3(51WVlLv%^Kx=AxqTtCn!IinGq+gI++jg;4+;7@#-tCD
z50e|oO}u72PCiLKO+Lf5#f#+2<g4WF)KqFuYC5$yHIv$x+Mha*I+&VG&2e7+q155j
zk<`)DvDER@iPXuI94(!}E==z1&ZjP<E~YM}WZ8KowUk;;T}@p}$^Pg%hMYH3w^FxL
zcT#s#a(=U(x}SQGdWe0dte79Co}`|po}sP$BK0!$Dz!U3mEMz{PVY_6r1z!wrw^nL
zrf1W0>G`xQc8{cwrjMnMr%$9$rcb3$r_ZF%rq87p(&y6`(ihX0(z05R$?kIcYWiAw
zCB2%yp1zU3nZA|2oxYR4o4%J`ORuNzryryrrZ>`?98dZ<{UrS~{Vc7e)JqmqyEEDu
z){1H-voEthb0BjtGn<*qL_5V2<R3$ne<E`-b1HK>b0%{(b1t)xIiI<Z(NgPjW-)Um
zvy@rRT+L{~wVJt}xskb<xs|ycFS^z;>lrP(9^yuKGxI2eqq@wNi`-Y4-Px(^p6qmX
zZ+0fTFS|c`AS*{6b6Fjda5#G;d(_xWbzJ|S$)3%kAIhTaLiS?zQdSDNSF%f4?FU@T
zuCPA4p1qO1nZ1?0oxPL2o4uD^%dThdXCGuAW;e2%*+<#O*(cej_|$riJEE6adC;CR
z{)qPGW^(&-`*S$C&&}rMa`U-Exx=|5xua&^;6(0Z?o>`&<!9L}*9O9c+(omhTg+WC
zO4?U**K$%hyq>#}yP3O{yPdm}yUV76cGT~)wGgfLw6p$%9foJ@F}%pV%yrg%)A_ym
znfyNdh#trv%+KcM^7CfD;RtKMWBKFk!k=W<;dDOQc38-t&ucMw$?QE`$uH%X*`L40
z4*e>7^wA!~?fjkm-Tb}$8awt<LwlIt$ZzH!<savt<k3CPM;j8aIN@Nbu%|Fx*jtz>
z>?=gtTeF3^!hGRS;c(%I(cwB?I8iuRI8``ZI8!)VkTL)H!iB=c!X<RL77JGjONHga
zc7=eO_+z|XxKp@WxK~(1Js{e{*eGZd<8k3h;c4Mn;d$Xj;bq}fVRunyhE5mv7H5k4
z%#Oyv;w%f#`QoACVV0jq+1fZ>l&`Q;#nZ(z#j|X2EELZdFBC5pFBLE2Bk@XcskmIc
zTD(?VDQaPQqj=LeM!ZwJTh!?h>&5%U2P{%Iikrnp#mB`bY=Jy0J}<r~zAU~f?k-K0
z_LQ^}66q&sKSZn7d9!|%?cTA{@zROX$<nFP>C&0f+0r?7N3@!~$Og$}*0fhjOV|Kk
z#jZ^Y+w1I;+(fP6cIi&(Zs}fWt+ZacUwTk_$VzvUweI6s)8RRLCofB{O1pcfdiV5B
zv-+Je>)!*cfM<K>SOp*I)n>|3mcqw-wV`r~EtNC9+EZCzS$x6lt6c8Y+IWf8@m1Ex
zE4{0%k)s`!Xq9}gcdd85_kQmKlqa;+@(2|QIh=Xc`@Hu>@5|m-y}Qd(<vr!;^4{`H
zd0%;d`9S$#dA2-Po-ZFNA1)s$A1xm%A1|LMpG5QGbooqKJ~kH0=gSw$7t5E*m&={y
zv^4Km%By9qsc*8XzFodkzFWRmUMp*RMvLo>a^z9%N%?8{S^0VSMfqj<Re5)1s<Njt
zUD;cisqCxluN<fxtjt#CD)W^?mBW=IILkPOH`x=Fla*7I)0H!ovz2p|h06KLh04Xs
zrHYo|S1L=D<;vB{wTj%T;Rm^LvvRAVO`W@Fh^%3>ali7Q^02bO?#?5lEb_GStn$3_
zf{mV6mEF~;>YnO!b#Ha1y05ywdZ2o+I$NEq&Q}ky^K+znw0f+n-Jg@yQ)rW%sh+K#
zt1eW}S1(jAR<#whXcqO$)vMKOtm{{+*Q+;J-A9ThcdPfRYt{8CE~i-PZ&Wv{kE)NW
zPpVI=+9rBYeOY}~-Cdii?Ws-I_SR-<`&j=UVAp82HdmXk9jeLj>1gd(?Rf1(?PTp#
z?Q{)43V5YlsGYA}s9mgGVl!#6cBQsdTdrNLU8}9sR%_R5H)=Q8S-M@jQ@dNcS6i#C
z*Y2~y6p0KX?UtvtXSL_G7qyqQSGC>ssrsJ!bbW7qroOMfzkZ;8us&O#t4rPGaQz6o
zQOD}X5i*>tpQ@j(OVV(zzQ9o@7wS0Ks9&xx*00o;>dW=3^=oWWt=6yCZ{VNuR{eJU
zPW^8EUVW_|$sZopH|m>6As%<-5HIR4>#yp&`=<K#^iB8e?UN?W{=NfjW6k!>_01d6
z#F4(EeaHHA3hl|hQ+?Xhl9*zl?|k2dzKeaA`Y!h^Vqd@1x6B6DwZ4_U)xPU}(!9CV
zcf0S75n-$$#JJ!0pzmSdM&D-NqrS&|Px_wrJ?oQF&da`6eY+b|v0t2-#=ge>#sN0O
zW*c)2?TH<39BCYF9Ajhb1Y2XL8mAkP#ABgxzHy;(v2m$!xv|JD*%JF?R~y&ZE0X}^
z1|pDKjoXbojk}F|_ykyQ+>b>en~g{8o;_(iZ9Ho{Z@g%{Y`kjh?w{)4(?8w6w|}O8
zU%#yN4))LX&-Ksu%NPEU{zxn61lww-`cL<t>BmJ4yKCp!U%SW-+vWbn{ww`U{mcDV
z`>&xhwAz2Y{|2^`xB74Q-|4^Ge-AC9b@YfH^goP6DUT7RJneth|GfW&(Jb0MFg37e
zU>f_InSp%+`v(pT92}S(m>ZZMI5cp0;K;zyfnx*52Tlx}95^*_df?2!*@1Hd3j^l|
zE+C1yG;n!fap20p(!eqTnQMq-v|D#$;O4-sf!hOj2JQ~rLpHNMaDU*zz{7!!fz5$O
z2x*=SJT+bdUJSe(cr~zlaB6VRpxhnK4DK7;KX_p9;GnD-=LZk5pLb;N=-@F-?oJGz
z96U96dhiS~oO6Q<$Z<OEy%q<r3`(AJb@1BY%HZmt9D3Xwyft`x@Xp}f!Fz++?~9~6
z8-tsJj|LwPO2G4M@cH12!Iy&)@=Oiw8JZs2J2W%2Z)pF}fuVy#vqN)3^FuNXJu-B3
z=-ANlp%X(VhfWQh9y&90cIe#D!qE9434SgOT^?G*k}%pAyoQ?9>d^I}8$&mTZVlZY
zx-+z0+3Mktw5=WuJsx^8^b|?abCj+mEZRLhH7wn$$l=cZ;RC}5hi8Z9hUXC<9Y%n3
zbodxTq!YuEBAvzw*V*B7!wbXbhc66Y9KJMsd3bU7%J9<g^6=H+Yr`wUtHT`pfn4d<
z@a^F{!*_@84X+Ka4@<iAaCl>QbNJD)3}>DWKO2@sbR=Y&YVK)HH}^JYn){mjn+KW)
zo3l;XJs)ZwZXRhKZ60eLZ=PtLY@TYKZk}nLZJui`H09XwV)Ih-a&xhHrMc8xZeDF(
zYpyg`o7bB+nm3!bnzD7c+q~CYYpyr%Hy<<~HaD7^@wVktHZCQZdWmdm_sG=9o)Jl?
zq+Ygv<iN<mk=c>Ck@=BBBZo(%W_E1k_{fQolOv}_PLG@!IXiNWUC#5!vo4NY8j;qS
z{MRmzTphVKBH7mUksBj7M{bSW9=S7ecjVs4+Q|CI{gDSF4@WjeHb)+fJRXs>>)FWj
z5y`u>6FN1zXLNd0-Y)lz?jO~b=<Mj+==|uR(Zi!hMvsn40(OGk(Nm+RN6(C&9X&Uy
zJ<<!K7e_CRN*Z=$bZK;X^y=s}V_bS2^U|B6w?=P|-Wk0+dT(@Xbba*x=z~#ho^Fml
zVgvOF(z0jB%U+DW9DOyqyEWC?)0%GWZOydywf46Tv<|kkr8?g_)H>Xfrkr+GPqa?9
zPPI<Aw7Yt)wa~(YN9$tiQtNVSv2~@j)LL#`ZCz`vv{n(W-Durx-D+vO^{&})U2olQ
zJ!m~_ZL~I9k6MpgPg+k~&sxu0FR<X#=Ic~@PkY)(-uAWkw-2->e4A^}w-0sYZ^zpw
z+9%sOH0MnFZ2Me$p?$u6p?$G^sV$S4EA6HBayzn9S#4{B_GbH5`*!<I`)*sdB<pSM
z)ILN$x7mKwe%yZ2e%gN4e%^l3mY8n$*c9r1(_?$bX2$l7?H@b9-tFv|WOj$f4v%RA
z_t@C+F&*h}YV7pbnX$8D=f)Ps&W~LfyU1ql<uR!TE{!d-t$S^31)-iC<=-5;HFkUK
z&e+|tdt+;3>tpxLM(@Vh=GddL$74^%o{l{mdv0WYuh{jS8sCHDZ!cTF`^NVp|2sG?
z0pR@jAv{eT89zFHZ2b86iE#-6Pa9F-x$%YZ^Wztg2VNS#Jia)7g<aw0@vGz4##hEy
z$FGmy7}w_TcKP7_@dxN8Ml!<3;~gpC3*>~_DUK8t_p)QWZ(={DGzTYUC*~%!b1dQE
z(TQUS5Kl~;M2L8L;tYbsa}x^_=O->qTtuFDd17(m%EZ!yM2goYRwh;_u20-Bg2met
zcP2Wr#rqQyE^bV0PCS};%ntL@iDyO)^5w*<iQSV^lY1toC-+XyOzvaL`M~7C$=S)d
zNvTF2o;+gYkH;rZOrD%PHK{%5v&bSBCeKe^n7lZ73901br1qniC$COkn_QV(oxDDI
z13QyjleZ`DOiGJ#4L!>HMw4=5a&z+0<YQ!(PbYi64qrpyYY2P|fv+L(H3Ytfz}FD?
z8UkNK;A;qc4S}yA@HGU!hQQYl_!<IVL*Q!&d<}vBUqK-8^8=>?m=MR}{`L4g#&0^G
zz8K^6_=!%mFT8&3v6IE?Wp$pSuc}oy(HD9ok?2YADvn@V{3EKxZ^G`R(yvY3l@CE#
zDHn@>ouK=zr_S5x*Vd0ovF$m!jWVP#lWFusQ3=bYJY7)YH8t=2^1yAUV$mm4FWxCW
zpW~d(k9qiV-QqZkvh6mmV$=-1w>w`cPk=GCQtjgUMKx5xM2PCC9_DigRQjTtnYR&G
zqv*;}%~Td9XGNiDdZgrSpj2vtiY1t<dPa3H|DsQ(5Va=?ucuc^(g02Kt7H^r$`@QM
z#kQih3I=+k6x7Gu2;MvzBrz{k3GgGr0#HZaqexNdCVqr4eC1snGy1BsB50Xx4Y;D}
zkS#ZHF!y?nU+TwvRw_#GWETJOjbdMaYwBSNiJ=$espMZstw%M=fFtS#6>M6jrm1U8
zZ&9BplF6crJZh1Fh%(r!a}-xsy);RcDIF0#$KN~O;-rc}YfSC=6v05{t43c{^SBF4
zHm1@727zuSt8Gn<Kbjn0`=m%DkE+$FobppPs)>r`DgKR0qLgiU$9<|aCa%G;C|T45
zlgJ<uIVQHFIK+W}0=DX`+L;g)X&TP6DcYp^DiA0EG1O@W4@|+Px#Vde$%BH)*#MOX
zN>g3<{xdV)-ol@8Z;Fh|h+st_dRCLnT~w%wSI4}TO_yvcP6S_K2@I;3$#r{w5XrPb
z?bw2pUdAnpGmi@4onD)d=DWFzszxEEZh~(Vc&~D~Dk!Rk>dy&eNi_bVe@a1KG_cbs
zQk$;j%B!d*ildTvG6kz7rKcSJzEGaBC-7s+F$uXPjd>M43l4gzNPH0<#BKUHb&o#1
z-WTQ_ucEp|jWU%bW0eqrT*YuF5CJ>YE^0zltLOpz-YVd=LZSvn)g-N{x-v0Abyr*T
zur<<Yl_}knYrdJUT~L|GF{D&c_2_G5M(yh4(t(}YVLD3fP!RM0pZU`#LJVg0ooT8n
z7D2+?MHf@wxX$Ly)(aw=CT+zwr4l)c6F)^iy2c+=Mhx<;q+hr*C8_{I=RPhideqh2
zZ5t?YM3bibJwisk>jV?6^Ie&m7hl9q07L?zxS8OD4H^wR8CWZ`E+UvdP{i#adiis%
zimcB928m6#s!!rfxZxuYrnh+8nb@KaN~gpInu4gZ&_ziUl(h-b<LmD_-@fu!87Vn5
zO5e%VG+Vt!h&m5&nIfnI?;!BRGqvgDsM;xZltWY<CEr%DC_hk={F!0Q*fgm~^IAk@
zEY#&6r6|j|l~G~TRR|naz@*fJAsSKd^3J3omXZ>kd>9a#*bP|KF!MnZ9S;Jh8cq!j
zOm!F4N%e{vr7|^o&5y>VDI~%s)yoVjWngNr?lYO{i%`cDLk8wvnJOr{`NEy*q-N@d
zM6}(!P}WgUjiPVSvx%mN-3V%o8U31)BNDLnRk473#0Q(S%HPycRW+fTQv^XCsfw~R
zogm=wpo&KIG)+@3QBY%uYEYV3%26MviLM$)%8e)@fn*yMuI$Y{nW}y&jhOn?2SFhk
zB_<`TtrD2m<}+nPpa<ZflnNw)8e&pXp2|{%yN%;j=U&L(4RH)pp5P|bBc*Z@vI=ia
zbiE}KBO*?!$kf<8net;wVVZAVaN%p`)})Ib;%*m)MiD4OEiqS0P$TrGo;QEGSK)dv
zkmYNXvs&7zMVy(5N(9pr<jOPoM>iS>%8ArM73F9OqPJB24!p=RUOB}pD0L68F+ts_
z#*m4+M5QWEp$r{GIZ@f>eUyf1lw{Hw(8ixs1yg^1)VontO!d^LI2O-pw81CtOaXjV
z`%EI!XKG;F!CRfHUKVa{55hk+ns=sb6{MnsPl5?|ieNr>`q~txSBwb7&<)9T!wWUb
zq~eL{MHw2<0%r2+)<+;VJppE!#_Ch2nR=y8H@%^&k|_h#jwe-1Z&eo)bQjf@CPiON
zeL68nPyWi*WJw)OVgo1Q@ZWT2l%?9D{CG+9tx`>9QMP0jA%PwRJoDl;^Z+h#6agy^
z<f?8awE$(B%MZ``9>vq65EGy%bVitop>8+bp_JWkQ8oskoh$?;BAXg_vR4s;G_Tbv
z6{uWHCz+y5=G{68#6m(ose=Uv9+XKO^f{_{^nz;Zvx%+RnIiP7LC{G=8q;A0bE3D~
za#7P2GloZ}HIxf1$;pIHR$Z9!R=pb4P0dqHRBT)oN+&`mS^TT);<8jD^OiR;d<7QM
zdV^KGHC5HeD2f3iuT9{UN!hJEX&F4~09pe2cA%zOnwpZE!3`C{tts7PWx#E!ZXmC(
zKwiL)DZJ_#L&sEEm$+#L3egiW)I3u>7u7F{M<F8Jp=V0dMeT`$<peLSLgy*|{Vj(m
zfob1u>vO%dQk^tM?4pTfCH|@XnPpv}ZU4|JexR4{f3x;Yex{tlt|-U8AgqT$5ajt6
zgaMCXSma+ASpSptxwY;jzV)X*ZJ1h9;G$EA3VC6FmPl-<`2W%&-#vC=I-&e63-`=k
zA)Ub;jvpjkYN(KK-FzXf8}k@n^g<y_b=yl-9WssjQ$UD{GtG%FcGeW6INgt?SLj5?
zq36hgsQPhygQ2_&voR^`_RecJzi$-`CUrZ_d{qbj00+cDK4177iO)rTiIDIU{`cdz
z)IAL1di5s~bf2F{6kYR^;79$*PqzCLzaW<0*E&gf=6`<Ml}E)rmiSTegH$4!e20$v
zGc*Kuq+#&`byDQOW*4{L3N33W7%6<5FPQ%0l?gkGzg)`vQps`hIE(qt?>f8woL%rd
z>(8q5-z7iGDoxm)=W!0W!e2IYn9~{>$y921uY*rdg*X0+Qv^W>uID|lKdUv|YU96m
z3On%GY=!rPSm9r%gDq>I_E+uVZxko~SL^ezr)T(+k3aeM5*MuAw+i1b)!zPHt5R^B
zce6kFwQqgLcCy)TfL7JQ;Y6Vbx)tB1eBW<cUN&3l^?l3AWOJ3waQPEEX}dpm5@kHs
zLK@l;!i@A4dYw0`>A`Q4$)7BI@{|9|{w$sTzwOT)+#ct@TQ248?ECM1P)SeOg=F$W
z%PLG(!m#3bZx%*Ba(pj*9|y{5HyM6k87B8Rf$#q_`?H<zSi>p%-F|<p@V2~*>=vN<
zzLiP^NvmA4KXM#5NYZgGuEta3;M+Yjjv+x|;yn$lXvqJcU9?Oj!0gu$t*0kb=)4dW
zae8|GlbZ4QYX6(X9qNVBXOoWS{c{IrDA`Qrt;)!6CH^ABA!R+X-?Q+|9K1L3R&UR5
zI`1~$3Bw61up8<0z~8q%Z)M+Y(EMc5vOFs4x`&)1eM|UBU|WS9NA03DlnS$x)%O6i
z_1yk!$A|AylJ|Rz8F{=?(65&Oc`UM0DCA2S>#|emN%v<!_N?Rdyl}Fak1fZlIZiuk
zg6AY_cF(BwXYE3dQ?PSC8GSctCHu3<bbqqyIR8hCB0W8+{9AVa51mYAu${45-x&S)
zj`g`WHa1BoxSAH27^r>d{Z~#gnS8H=XPQAAb@Yb~H<>yt)H3r|D&Jck{?M-HeQKUc
zC7rh{JUM(m8uU(<MzVuJV29q&+aT+h=elpvVNmiU;|aJog_Avh)gdDWmkFjf^v%#>
z(PPbvPU3eg@KzuHmi1;Beo!3x!$rs5`d1Bp`i>Ra&HDS<a>MaId}#Hg(|^M*j_<Vk
zvVYw!7GGI~@MGNX7vF4V9A`N3p6fP7-b|-Q-=F-xt<myR1_FhC=zTYx22CdFe%kYf
z-BN+!+Iq+OCa7)OJJVh`ntr3dko$Nf_d%uMXKLLs)APP-rJ&v4w=&^dL6AwN(>JWo
zo9}tKv9N+?<xwY@^mh6oT~PZVSIh=Mt8LlAK#%8rF!V;g*-EF|KX_xr=}9K*?udg&
zuF1^De&hYD{p}IYt9_^600WLdkkP<1Fyb-at6ADS3qS<h=kkYWP~u<MpT)4%>z;30
zVAwx(8lG1jDwhX1OR1R4J+VJ?UC;ks<DK?LkY>wz^CL!2Izt;c9VvDYZ+<c#RYT{a
zR+xP6zL1EK$f&@}V&8z}`^gbE=zqU&BJ=HJu4MK3rl42Ow)A1s^ZZ~kXZ<J$>W+s)
z{3A{=o3oN{*#78;gUx2P;`ao;mv3aVZZes4oWEmNl1VV&m%jB@E<fzxQT&%uLCte^
zrqfQE7=-Kx<-Y^<v#fF^pI%qB`ueP5%lVNDQ7#mi@m|`W`5D*E?)XXe0~!`&C*RGs
zd*3t+xuEq4UHd;Uri6ofPFR^```3z&TPZr(9l72huu_anzsFDZ`;~X0ywLhg6teGd
z-xx{e28;_E+wR?IjrA3FCd+Q{KSKpvH!=GAPJJMot7S5|H>;^DjL3}ZBzOD;QM2G%
zZ#LdbCda1rkRK?Irs~CXI<#E()AR>L$Lh^9Wd6K9=7uvlg<Vea7lMy>_#C0|R_Qy2
z-u4Z787D|4-w4v_eE)#kU$wj*cl`ZSP|w>=EA`Wl-WnSDR@t($-^`8q{zns|4#>iP
za4C^^Y=2hY!r`6|e$@DxEXcoBD31R{RmK|5WD*&-Wm|bS|J43$C>v(;@47Y<bMB|<
zVs5Bp6$TwQ(KGDX!N^c5<)z;9suh2*m1_mThjc<RIqvQXb2%o6Ov+Ey(|zgQ>(=LX
zzdMq1as#=+T+&M>zn3fIQl(7IoEMQY5KsMp;|UtWzu3EER|X1JGMva}Q`wOZ9N(!z
zC++OpX%~V99ZIFLyS$X^eq%?L^Bj`zkAw982x7O(hdQnqBG}XO51pPr51FLr{}=0X
zcO26E&F_B-RDTRH=OGAwJnX)+E1%}f3aG?L$?p3nmX}Hu-+n(xQLA#M_K}k=^ndzc
zJ3HWey}#%StNnNC`M2NRRox?4y>F-8F=yP$W+9^4Jj1@}WYg(%Hk-!>mG=fc!r-YU
zldW{#g-hBN^7VW+m1^g+*>5%n^8S$Te=u16h2)2BUwZHx|A6{7Intq3NPmNr?wC8C
zwFA%Vd1n}?=HAR@tC=^(vjxL)d5mL-B^<?fY23?1{~_CX>o@IQNL+8e46B)cn~Arc
zOny>?Y0D4hS|dMBPPjGeq*L_k!&Z8in{Q6~e(<sD4yRJ1&4xYb_6GHAnhwksGJQV^
z-tTps)P(<c?Xs87mU4gFDP(tW%11clr&5!3&K|Kp?ES_s4!$$!j@6ujFswo!Ge69v
z1~MPG7G%?LhJs`|2sW+8uC|>UwBGjy#s-EmH9M7aQZ*~%B}=>9O!9|8%C~m>z?<}v
z%&M78e<Ks7J_^Tj-_2&<5hp-#LEz=mgYtWr`p=v+#CKQD{%eK{Kh9i}2!h;Q>+}Dp
zkoSh3!I6Kn^zIJt&AxYRd(=<5>GVkD&Gs*31N+TgzF*l@$V}MZ8*aZ_fVbS4{zt+a
z|GkFm{^Cg4<E(_t@5Af7QA#?^MypcuKPm-5(T2*lgLEcSNDa9kq_gQhXjyaY8{@yU
z)2)jIc+bvpEjr9Zoae$Q@cn^oVrXQ1B1k$(Csi64?|1C%VBhaq*)R!3@Z5LaDDH5A
z;O*4A#lk2Pel|PMgbF6o2`32)1doyS+g>Z51g!s?_4%I@>OswL(x2>0|DjZ>-1;yK
zz5LF930IbXBgeujXjr2k_nmNxISZyR6MXc&@!IHj(w?KaI-Sjb>NtPFE>u3v4g0?L
z*BqP+4rSkb`;F1ujyFJGLg=T{?}p(gKh32IVd&)E%ns!pe;1>>lnll*R@U)9=;r{Q
zAZS<8rQZGE;P~)_|8Y8(`M8=&z4w9RIB)FqzB9q(n7QxNz1DZjuJ4C~S=X&qv%Wu>
z8BM)iw?E9m6~C1)7FnQtIFNI)9Tq>4*t*MiZnfBmLkgZg3VzW^1TeupJ+9YdXB^9O
z#h7`4<625!Q5AjF)ETclxQD~?JZL2!=_mqBG0cnj$#|_pV%v8#uEf?b_<CYC-J~&P
z!&)$<@;b<g4`c~s%IR@DUV6&aH8Z)Xgx1=L9)RhvTC!YIFgLzR4@_hwFv0fV(ah>9
zDvK0i8TBSwKC|G;6gU-#3Dty7LMjujH4AQ*+1_=-0(G<kSMYIND!_>)xL#J1b1>)l
zDzk&0o**P&--R7?X)(jqakL^zIj#@G=`n<pI@_qn0|Zv8$A$NF6Sh|@7QIn2j#r*8
z{9nTF5m0p$4exCq34p!^(Rv3mt6(STlz>j9n}8}oz~3I!FVxiZn-}r;)Xeh$43(lE
z30mpVhaq(rek8e}Br^3p%2p1(pKzg#p4vi*N~GfTq!lZ<lftZH^(m4xNZ@6v9D&p@
z4U997C7C#QanEGn^(250<j8_ciSkRBDGUI_IIz7rJxO{&QUnv?vVee^o^xz1_;kzZ
zJT!t{)`P>sfWl0zth8xD+5ucWmgC#;K{!#}dxag0YmcVVFIw4B8ZhZesK*IR57f$w
zh7nnt9^nO^>KFtDKCW8<XJIy@<Xg3m+Q)0^Z}oV<G?7UKP&H1GffmC%0UJM^1b1Aw
zq~6u?5@HMCqHB`A?_?Pnz)znvgurZh<~FdPeDF@tRRdydCRb=13nVUn=!Rqju9A}Z
zm(FFaWD8z?DoGmR5?DzYuqK7c2{$AK{p+QDW~gY`(oDb$ZJ>dEL=c34Y8X_)v5gEs
z%?4&YbeCv>BLuM+AR4-iJl8|kLA68_41~NgePqV25Rd_489W9*d{tk?kOA?50Rk~e
z@YF*v1vF1{SSQdfZq2bPe(2fI4PpvgErzWF!~h*ktzlw4FPY|OB0xa)&>yW13@XQj
z%QVZ}n=fh)eH{fi1tDWdCtQ|5G%N~$h7linnWPm0ClJy1ARY>)mpT`peqdmBl0oJ=
zw`S51b`t2d6x{<-y8yzhSVYXawKF}>f|7nQ&8LgiGd*yU9%4$33ziZt>um*B<5uJ_
z;fRu$5&-J9npvhdSxjrNO6JKArBPGS73eE1ii_f7B)BpRhTaB_2p0L71&56cg#VVE
zRKG<TtE`Oa#~y?wdJD4B{gh*<LsTQKrYju8cHK8W|Atx0vhqG4w~7MJ&yW2F`^w@)
zxo%|!@(GtZb>hyW#ll0uB2T|ZoeQuW)c`6-=Yw-hU_ptYltPZ>1#ZzySW$-oBSu}J
zK({G#C&>^03|%3AHw@renGQ2d>gvM4Mi8VZureA1^rt9|Xi_xPBnlVGfSIhL4L#CE
z0yxRwwmmXQ8bKqomq=PSq%4gX{xcK8U3A`SY(@_fV8>0@^lX9?eNwkls$fH4^fAgJ
zx}f)+pdRO*c0gk~FXLYy*$#n$83&>=&qkC1szu#YHD)VAw>z=;6|C(r0fKLPxpf-@
zlB7{)DuphMvH_=oVmGL+63wU~+=1&^%^K#(>j{0tZMN_>!CF3md_~=DI^SZ%s54CK
zSzZ8seN_~oCRj1}m}&!Fi1_OTP*Y_T47w{;9MaMBVw%h#>jo7O2PNayV?hU4x-pO)
zQxSNkv?uX2h~cXtE<>6Qh8Sw94>UVKIJt!|6UVWV+o=<H&p=jk!N$y&L}iUA0-v%O
zWuy}a<tCDdS5=}3ekuY9@0o(4w!o^fz;!HYV}fIbD)C~lD^oLaY~~V8T1@WHoH7%J
z>Oj6_Y66P{4+<fKUw~%ALvXa5gUHMdAf%e+K|1CSwMV-pG(h|&ahU*AF8P>whZeEO
zGX+7t8AKYMQSAjIXn7Pbsx04_CjhQ_gacCmM|?;q{1EfK@X}>Q*631^>Isz!$VD{O
zNJu~cT{3~!VE`hL4V0Px)Y{DanzvausvIJ69~EipPO*tF=^FNfxiP{GKYBJL7<^Jv
zu?J-&7?5C7RgKvwM8zYF;1vf`s%``b0{>a^+CoMC6q$SgCN~xslh900#yooIc$PJc
z5$_CoTC7`?%FILpis}&ujaWWF4k8dUsAw*;kmcj@UQ8&tvwxIIz{xw%KBiO>hz%9U
zqeNPGFop~x7Mh+_Tsl}qIvS29wqYuqFvrR;3cf2qMJ*LFLWLQ>roRkH?$$V}Y>Lq!
zMB8eBSO}V|P5~CMW;V48HKc8E$;!!;6m^wpx6yBiF<VrStZB25(n*OavJKN|Fh85l
zuq@R=!U|H+>==)TFa5x0Fzt3<XES6Atb{0Wh`!MwKIcX8P$(2eMDHw-v?z}03SFYO
zP;6icIC#`Ds+$>kg9UmNl<7fQDV9fzGK1~p>l=DS6y+r@z+kswyLe9Poj#cV>@>2)
zr-&w)Jaq^{z+{u6^k^oqGB(K+;3>gF*itGOwHYkU2icrHX0uE<&;qKU8?{Vb0Hg`@
zM-ibgl_pyV9qV<UDVX_HpOoALcx|O{fE3J9meI^-PX1~dgr}yYA!T3|3}y-kXZ1}0
z^_bnX4vnA~f_-9+#a#k2Q3k$wDY4A7U@MsRtEPk?4X1>xH12cl$S}5`A7*rTofV*l
zB8~D~L>EFpgI}iiv~r4rUYdHDugoyeP6#I`M`96R2oIb#L&Xde(eH#SQt#0Kb|MYe
z1yO}jq&tv7gRiDE)_YWoCYbD)D?m4LHLEqQ^eG!iX29?uvf*hshvKUtcp4$`u2PS{
zpcGqys)X^#VIC6w)AE#88c`q_jfR*)b^yCl!QO*-M5Ojn6c-w<;mi|6gR0Y&BA>i~
ztU_18T9Gi2!=-bDp!{i;gb+|$?rk^ilY>4`V^CMq039DQCYnts&}NhaL~e-;F9#_%
z?a=%|m5?VByhKLS+X>UG0htAo$TlHkNfusO-$p?gqB00zidJAkDk`HcVdi5RR=XYe
z3ZNNt4^)T+IyBX+V3k(8$MjQ<_S1n$%>^`v34<O~)kD#JQzH1q%q)W0sX{Shg<Hcw
zNTNV>41H2_D2Es13@|(RX~qnh7>?FFL>I~v7=^h8n}ttt00!zGhj}hefc%xEm<E$@
zS5u$qZDGB-jU_Pj%q&y^0gLqj@&JedI14z?7s{i@Agg@Yyi@MH<qxo%t^gGf;IKqR
zh#{;}M;O72CNQ^5=d&7Pp!G7MOy!)Rr0_-~#f&Oys=lCd%;lybV7#gepuoj#El1Sl
zv+!0Gw!QuGt-2+l_R=5|48!$WJPImn#m4GCndHKn5MTyuDV2~ddP!6p0)#O%rq?He
z*dxFoOa$sYnruNOvS4>0(6$<&hJ!`49dh2RR`oP5%pfo(PiaX2XXPgb%7&w3hEpaW
zWSTW2g#e~ZKNv@&P43{F=N5&~3MyZ}7K>DJOhd*xy$;!CG6!7ZjR>*m#UV$6=2kPQ
zn{Ql*>tt9!ncRY;as^C`JKv31MF7RX5SUF82rp0FU^aPNnA;+A5nZhMYDVK#G&LKV
z3423&(HHQ`&`g1VOtdg|A;NtKy?BIhgBpx2_*BI=bOt0w=D{+GBe%hsid`TD>uQZ;
z1r2DrN5G_p4BkW{%|g$1w16<w0zeQ45|Uwr!vzY*4VDTg$%~hymLxzV)C922wsn*u
zGohI^B789{7Kq1_*~X`qG+T_Wa4-_?DZTQcBOuQ3TwD>1q|yQcgh=1%LCrSG6q4g)
zW9(;WfTkLX1T(Co$f~>x>q0{`$_QLZ&3*`6xL_-?r9jUC1K?)Zd##9BYSKL!Q9u<(
zT|p{!x4IL2qRmiU;1p3_Q)(zI0TrMfl34)+fMiCQde$+Rq(ZqTLRMhb^rpEv1uX>k
z_-JGfY11DboVi++s6c8BXlXR#!L&}Zme5(vf`-N|wvp_+P<+4xj8q3ZjSw?#1gw>a
zyhx9_PN){o7-}Lyzh1Az<k%xJ%u0s7&HH({aTO#A<uK%EICZA0gt%N-ps`gG1!M$(
zQ2~K$n56Ydmd41O(feS;r;=d`;)w`=b_gzlS76c0bbQ5BL9$flVKWG0s-?+K{bcua
zm|N(V!8kyINSOchl7qZCv`VE?OM_CQUvx|JxT>R|nJZ?>4H00oPjA(q`luo`RZ<pt
z8Loy>!LYn`QNdlq6#_HXd(_-?hn)nIft5?X+n8YPT?Rs^27qPE@Zt{)BDhAVs7(Y{
z%j_OBzErw_ni{H#iV1-r^w_9!iL8*+ycd=-v#19oawUW@cWhEAwO|St!0JkOrZprb
z8S51x3;!5)TDPSjA4yGg!XF7@V_}G}UV$noSAvFK35YYF7{L}4%cjSLw+g}pvbL<W
zCB+&Q%S9uT+Gy-3QrrSD3!VOm*&}@wlxdcFf)M4aE>`^&KbxcyQB6$@0HF*!Ik8M&
z(xgM^3spdY#E6K6{&C=)-2-+SmWF#Xn+41#kXLcqNNF@(!4ShULPZjyfdY*%-^g+p
zt8DVJOg2?E15*<b9YK6W1A_ntZ84RME>ygj%$u#3d_F|hsQDD`O4F9X+o-|9Xh?^0
z77oT4Xi8yMh;{-WKEaXou$-Vi(a-?w#1)qp2jXZ*Q!N<hE~FW-3|${G;QC3)u<4gb
zN6?f*!7NHN13}Xrm#JwOL{mnf9z#C|07R;gikPMYW*)??O6moi7;x-(nBj@;klLU%
zkftJrQnxjQct#aO%^H9O4$xL~RZ#ELRg4uuT!?QHD+9QGWeEyMm4Ww~r;TbMNx&Cq
zu3iu=Mljl?ydcz_4IGn=$qG_w7*1*#L6w^*kT;}NGXNZo1_WaPO+yV9(=)0aF=>08
z;46RV9d@xZbOI1j4AVeilRy@4PB4@B7PJmNCeVO0`9~3>D?|o3F}0eF3Sly9G5{@7
zuZ;i#7`UAu?#T)0QI)I?K~`oRZ1PPX0vX~lL=6mu3owe&Af<iGqI_2->{^3%j7g*g
z%xe)&6M@7LXo*6^xV8rI#qZFMl*jy&5{aj4IzgElDP3T@Y>TTGKv88yKbeex0&yTz
zW{e7U>Rm=OZH;qDMRK7|o?rDF<tT2OO2A?Y^Qn;$d_dMIggtaNK1^ELq7LB=nnnY>
zVl!K%F{ohtV9sG)UoV77El7z80{F1vXpH#zBt$-B-4qyJ9$B~M!?085*VA{NG&J~U
zXFF6+9|UBVZE>KcZjQGT+4SKB=tGx9be&%@C<HB^$ch(8DKrKkg5qnEWED@J01>*V
zv11#iJ8kmF2w4zYD7AW^8yI=&LE@v(2c)_^sD%trL=*%f168Iabul@^T!lG1E5R5u
z0aepJ3k24H4xKh3hnfTdqrT+rb738*iB8Q|O%%B6RztAS040&$!8`*`J!MSKu|{Hq
zFgW3L%-Cnbq0^uk2Acr`ZBmv|%c8ZEU`1ZrMet^>71*eke#Er1gwph9s1Rxz@z7*Z
z!@5%31X;VCm7z&uD&HMY6l^wL%-h#MOFxOXFdwK96u`92beqX2x~P?eBwUe^5s5<+
z&#RZFVPwi4C7_QWtoH=lXoaH9MD*x|W_9YC7J@)eJ3?I30BxYDw+x{WH6en?XjB=~
zX1$8)0=0;RS$fu6Rtx&ZpOP8|Aga9UR+UBEkBS-Jir0#|*Ak&(%FqjfGGGj*qV)0A
zd{O2MNAoIz36qLSdoAkg4^&B9cf#y)np}LZWUy5T1nLQ8^&TOf<R{E1T!d_fWud~R
ziHeh;zhU0^XZX~J*eVarO%TZl%1m83uP2`g^$+H(!$fLOMnPFJw^J^o!eF3A7%vUi
zWhPU;naZdt3K7=E1H;LJ)S8|Zht_Tl61K>Mwooa}O5zTQl}NJ`XMAY-HB)Jrp=^Ra
zo5l(cX`i_16rxIXfSon!>S8q!5)<??ra$UJT0&tW=d{H@Tw}|uhsf2mQ`zYY3$7%q
zNG*)C=fOW-GNY5R?Mn8`&?hr!F1IGD&V`<f0?M(k=}vUUrnq`FLzSb>G~p{{7@cfw
zWTXa%l>`W?Y{8wUPDz~trFz4pB+f*y)JV8N12%PJH(>^)PC&#fR&QR0xr!Wp2w)sn
zWHyqmC@nk5M5jDGz<LP+Y0!o^+Wvr~b5Ylc)AEfpPDsi#w3d9Vf>~h+ylOD*61%4z
zddDfV1~4d1?U<05h$I)GZXNbY3s&)mtluQ>Rx{uMC0<r?JrZaM9EK+KPB0(UqtrE;
zBol5r#z*SLXDR~xXcf&CU=)b29}~}^iDv5NHPK9AW(w#OA+FY>aWn8(EKC^Y000zA
zC#98;MvlXycD^+CMU6KaDSDLZvH^!=LIhC*(<DPxNJXuEc3Oj!$BIP4z-WSC;85qR
zYh)2nR)cL$3OREO(J$hXA%ZcoQzrd}f=-O1<irddp%ELxT3NxK(Q{TW3X+tn=!&F%
zi;9B2NZ?@v3{fru7_l_uz&fQefo8{>K=d9uR?1A%dcdL(%%uZ_Q{=8LqP<!d5D8Wq
zy@+_yXTlJt178`bXizn9Nr5Xfn}p5*k^ynT<N{wLNGdCsrg{hu0Dxe~DL4Toff*yF
z07w*7Qf&*(BG)|8`|$@o5~4^EpGu7@%<Nin(b@bnLrnY%*a){tzfmXl)r9*}7cdpk
zT7yr#iUI|afMC`RQ7O7=`-8W{2IAa7c>*D)7${Q<-J4_@+(5LOl$92GPy(5{?sZZ`
z3*v_ItFV=f^uUE4ViyP8ek~p3hCVg50`a6krn2L~#%nXUWEn)zH!U`d#EL;lGwE%Q
zGnh4sOplxXip6;WNNx4>LX_AUL=($YkLDUakRn;Kh$|H&wbB<Ipra)YW(EVc&|faF
z=PVm&v%V$R{1NP;;3dICL{t%g4Wg5e>Q8@Y-vK1!D;%N3^^%2|bY_$wkc<gRCpZ0)
zHtS`T3Hnz^Ktd$LpgMIxc)&G<VGZ^NsZ^#Xt?mM$r2#{qcl(H9=n0xZF07OY&=&Jm
zYJ+AdgT9E@g#>6=!-*pG6debTRRbG|X_8%WA98?NlaXb^8ES%}AAuFZXmtdbsl~4v
zjIJVOY14*h-l)!?6GNs~RGx*MWb~S235ZyWbd%ApKz!hNB}wo>GowFAbQIkEBtkrd
zVa%ZDg%>R^$@EH70u~B{B9e148dMsjcQy94&e1%|@>@J^=ZNNr8j>=m55P)m9K)$H
z-TP)*HAPE(llqCVV%}jd2W>QMK}SuEbp}yE5c+CpLV;m$qsbC|U$i2O%#XQ2IzQwj
zAW3VGX)j~Q5NTK=Q5WGf13M19pcI-1%*^!Bp_rX6WsIWwYAS*zDRA`+X9#aZ|4@Kt
zKan%_Ejcsrlz$Y=<{u=A+0V}B%w%J*Mo4M|B&Kxm$3{?tkVHI)mN%wKhRRR~%m~{`
zQjFkmUgk!WZ;<&A5VcSt8Uzamzh)*i;XcJt1H-sQ`E!k@x`;G!rLsaxaZUtMOKc)C
z&EA@L9RkumF@R8IUaRiBD^MvgQP~K<1Zg?4#eo7VA51VrApWWsnikd3Ael*Mmf_05
z)B^GfF`)h?w`d14{%B$t>Qo4GSUn~Zxty6DG(YC4y;{JZDT6kmOU*2xCNmbK5iN)S
z38iGtG$Yo~0mK+gqT&b57bp@D4eezf0F%3PPkR<LpFn?_HL1BHndxEmRg}9HNv0SI
zV*JO%S3fZD(Fe)Xd5#w*h6+VxN~Q^aO|3<U+0}6j|Kr2)qq;%@1@_6r-7?lq5KAHP
z1n9=vK>?)(F-j`I2x*O=o(sF@z<@+)2A|2C?;s5%O^v2d{X(jtx&kiJJ|oN3tqF!5
z<_VwxYckY&+)%cpd223W^^o-C;^iy3s!pWOVWNpq4xi~5Bm0IQiUc-n-)NL5VjRR^
zcLMw>w=qz2SynsTr<nn@q=5Rsgh5}Ewujzl;FYktWA~3Bu9JY(v&ZB_`=UIQ5tZi3
zxL_fwEmz1ZA`o)}b%Z#3K{C)XE5RnGGBF{p0`o49Uu|J+(KnHKwRRKYbg_B$|GRbd
z&$g{5voBd!C#=`4t2v2!%ewk7R@Q2yv99hKS0`juov_mA{it&48u7CreYdi4o$Z9N
znl?`+YCQBMUh2?HY^1vZgXr#k=SG7v4xQVMb@Zx*b+lemK*u)vdxd;$xL~?2k?2SN
zJHXzVM^C2CULqG=%)NPAH&Ftj6yiS^4c3KN!F;oZMdjc&3uj}Y9v(}ik=#CTWE*`E
z%p}A%%$UKR;@s<R{qM%=>a_hE#hcdWLo)vSZ>{hBa_NDU`7y?d=MtYb#{Xu*7$9Q{
z{Yzqpe%G<TgPHU$ID@X8^nYjao->3@2GbblV*U5uSjm54m-afCC%KqNi#TE|{m-#&
zG%-Ls0(R1kf8kVLGnF2&EMq5K!%lhv$`Kh#ugKo?f^{rW`(5kpe`yuobsU*WJGKm^
zv)QjOm9F%n#RF@>I5dXRkm(;M%519{N~s~<9_i~XIB%wZ5ZOr&{^XPGhSJ~7m&)&d
zkbbWcSxGYk$V%GtDp*N7A2Em`E9vheXl#=iX3`xi>D2JM_L$#q7y7Z=j;*9&o|5I#
zM-^@PN%cs(s}O+{n;0{OJ|>Kfv?1+1m`HDzvUF{tZLFa$8ED7W(7%;<Wyki=f6sbL
zR*)Z8{w9mL)Fa!<yq6jY-g~R}H=Q113~dDy#u&PVHFP!%F^7gqu<jN0+-3}IVF``-
zrm=-?dhc1)ZMM)@s{YIE2Bho`M)N4wLOxTHDRdffQ9s-%hR_)lDB9RTOOt}&VFry2
zG=?anR_-VEyQ7qz?Uxm_<5VLn=rt!5n?Pd&jR~}|fF7M31HO_Xi0`zpenu>fQSN(i
z;4**?``tz=i2-y^&wt?*Q?kDuE`R9f>rj8J4xP8Ke(oI&CbJ`@$ohF~$dgUgTSjn#
zz%n6%zRmX8bV58W+V%^p@H>oO!r!uXeJVree{2=a+!%8^K{YmYE;sxSot}plcFyVa
z&T*^nHACm-o0(z9X=3O+(n!CVet#50XR$iQ(AoPgX84Tebh_?ObPb)~X+>tvp_kr?
znRBimBWJ%+$@FYlIlphY#>hF$z!tvMwQ=5=tBlF=LPpO1&ahg;xXYM0TWw67Kk&Ra
zhB^k$J(wA~#=bc->D%u&vfr+K$MZ(|X)qHrkT-v3oy-GZi6FCO)7)c>n!C2lRnIGz
zhh)o)A#<*XS&{cW|D8q~4%f2&c<s%Pek<{_Y?(i5B|~G${GKso#uU%`s1L;lcLYo3
z<V0WQ+gLKgMuUfauUj(nvKdTTKdOswkrgu|KWV?=j}A6J?D3nGEUSRmt(Y-kc7|QI
z7XxOmwiEMZC!K}wCzL<HfLZp-JGutUMa${fFJrw7+u&y09oe5m=F9I+c8!<2rpo}&
z%KUYwxNH|IS!V}J_TI>5nb!2bZnOL)ljWVgV|~e;ZcvuNGL+)?ozZN40DI*(bFsa$
zvm^Nx=E~&(nJc3)6MhO)?R-$&X0E(ttsMNq4w)(c6??B;dJB3s)aPV^H(00+^rzDu
zTjkXI^`K*`T>jROWsQ6@JBF$9=mg9Z_y7)k(NOtkn<?X>W4B!x|BKGN^E=Kx#~Myx
zCW?atEE#00oDcKwvPek(w3sUmS(qvJB!<0UXe6>yu2g-jUt7jVnM#hk;VyKJP(8||
zF;X@*$}YpgVKa1aAhuCXWlCKWWmzfzATm*2vU@87GEh!sF;He1R%P<E-_E+}!Au51
zL4muzjo3Q7L-xtz?_-=?WmQny#s1*mwvB~y*FYKTWEm$L+vIQlI1DEwmccf8*E?Ib
z$^XRav%9v*<uJ_Dob*SZ_7^^kER!?dJ4^s?W176pGT9mHSSGX5Y(g~I?;1h^@y3`|
zhAd8#)fRf4G23E(>UnIEiD_(-F-abhO)@6QAIc(m@Ec*O>9>AZpl{u=EKAp(aoded
zl5^QNtFlP8?C)Mo{PP5B*WY#=ERlcHehblFFLw6j{M#%X>z^c(kr}eAkll&c3fUUQ
z3VAZ$WXbHh!=tH`-E0i@x<NLqr!hjt2HA1m?@jp=f7kZPm>^?;9PUV^hC;tSiQ<@_
ziw%(7!7-;68zBEMBLieN`~b~#%#R&slbf_LKpyr6-yawl8_L+J8V1NEERd6)o7wfl
z<ZA}V{h3B46MmEmzdM%8QjUW6P7n;{(%2qLvAmMrg@7x!Wq%w5x9xq2yH;+=DQq)9
zey49#Yx2kd`4`&3F8fW{A7=_XCcZcPZhO1^aRZ_*`(s<i$C)=WPAS=FwrUl>^pP<?
zZUfIukVzFVKc+|fnyd=PzVS=rJL^nCGC$@*qZ|~~pm|g-jLeTyC|+VuUm9@iU+5qF
zJzQsGlf{s(^osAiVa$);O%+EA#{9TBuoDYs?ARp>foV;9tuNXhGuQW}F+Kj!3tOSF
zJbt4m$HEH3W6X{%tFJc`y!FxdzJuMdhuxx=cHho^ip?=%!Q7`<9b<IN@-{p4_8Ym;
z?MBC+V0COvj=yMe+%-6^r1v|eUfUj@@Q2f}wecIY_dA))&IzU|V{KgiF47r)u*S~R
zBqqqI(f^0NvjDTRxc>iILPCNDEAE=?Ufa97P~1IuDNclhY(heC4Gu+%6o;UNLh+VT
z+?`S!in}|s`2X{r^L_8$yDa??AnEgeo?OWJ-ZSsWnKS3i%sX<ox$#$JRHLiLYy&mT
zGs8?X^_zY=PnpxZfB1nz{Ju$8yb7_poK{)8T`}f;ly?9P;B?YHV6E;tox(|nWq38$
z@ddxqXq`((dT~0=39$UnyDHtQj)yRMCkf&%F>m>4Xk-mdi{yIK)k~<}Cz$zXmxxs`
ziM!n%W>tjAO`1aULdVK+a&ZW!BzwFv%+dv)w9B6sP<S`x9Fj`wGeg=F(wibnQ)DE)
zFjM30QRhCj;KaLgx+l!edAcOb6+U9taW{COv;?kkp6xQ`sjNovF571sYLF&hdWqmg
zQ6Dbc@ow0M1Buj{H~2Im@FGmSj`z{>kgxSnC~GR(q$WiJ$A?3FmM2(~Kyir6p&8Z{
z>foiaBz9JqSZOVlF2W+blp0%m+7LuwtpKS&bg462WJ0Yg@3ZNuZ)LM8_UAeKs0694
z^=_E5Ctt1d@zEQKkh35R6nsf%5VR$y7k17j#KApMsh!e#Nm^V&naXJvEiUm5)lxr<
zG?jyhsdmV#y-zGjD>A&NOdBWJ(|cl)NjpJkPls^nVRfAV1!?6Emu0Jh^ZlG}@mQb+
zAsYXYC5ves(TCSEr$YF!2udoB-|Ef)z~qo+UbNnIAvc{+<rFZB&5}^Er8BHQd?hz@
z7dD=j7tprC)b6NX3s2hCNEN4W-oP>Qx;if4vWOuYQv(v0Jy$IOVRNieRBqkkTP&TZ
z!ZeK6)x_YyYAGKf)3USvkK=<9oR9LB5fPqxSQJ412*%oST&3;Lf-Du(C#6Uv#i0|X
zt=L{ca>Qg|SLb=+QP<^J_^$i2+QOwFF&8Sy6AU61uS}DnW7>SsXLe&Yvt*rSKvd;k
z=}nX>g|I8cx3npiw1j;#B574sTcDUg`rs95wSpsS+BaYwUTUvgj^!OFyBOQhYdWc_
zfs2-kfla0zucSOlkUp_5g^IH^wQ05H79wVGx?_rvL?+|xA@^@<K5Fd$_Mv5~9#`VJ
zY&vGCNZk-0TAypMQdH^~v_PkIe0dYYpY{j1)~;KyeP#|V#no37qjzr<$YQ6i2BiPg
zvGCE2x#~NxX<a*M7%ic!s2T5}l2d#3wKreku`*sekSz^JHP>GIbqzFBQpQe8Vw|bQ
z*)g@QTdwNJSZ$}ME`5e_c=zB-&sSShEy7Y2M>ktl61`N{#a5Q_QxJqIxJkIxB7wRd
zWZ%M0qy&YKBQoiJIBVmTC@hVpXKI_Y<%a{KqUwvRagSAPr5gD#83v}SJu+}LBi$rD
z6q*y48d=rBj$_GJQPQVRx~HUL7RaA=9wZ*$sSJGrLFr%>mk7y<j~axIh~`7#^l4fE
z#~sOwF@nxf1y)~5)oGWsOc)i;#t#;3WNIAsQ8{TLS65P1HlNCcRArlOwli74^GFsS
zBuGZB4oBKUem!7PkKO3*sf<|ble0?VbP*Lp;u&2?Iu6Z44m494)r($$M=?@LizK0e
z=tom_JW+?l)-W9|Rge>?=T(8}!!`*_QX0H3oXR9o46el1FM|g^IUv94&wpB~r|V41
z-)K@}3}ccUt%+4=otuvJX8L<}EmMQKB-UptS4xv#@beOJrIfs-l1!jvHsmc6saz{f
z9zZO9Y)e(3;u^=O8`h%_f$<?1F*qGjSZdHGsh&6-{)@dEW(H_NIq^y5(iZ9ZW@1us
zQZ?V$>13-wjl`(WNp~jCy7NORT1S`e6kUTi2AnR9@-4~4)+M>?rWLuSiDa~NGEzqI
zMt(npfmc(Lcz_J?NoJKqiQNHihK68>-Jc(KOS>+;*&yXGqco0as8nfF!O5OfFWl6g
zt)WPMfN!d>ei&0_469F9Lz&DnbFw=#JbI)I_pV-rj1cZda@8U^42|JWcI&YzT?<W@
zLNP|Vg?OIyDg#7S(c>jxkucRR%Y~+wWveQDWj>?6oMZS9Y?m1l?wiJ<lx=DvN|4#7
z|Ct41IQ@LRQ_eyZEK`?1`Os@k$Ha|q9PMUaL!PP9Jzn`tOT<a160X<Gc#@7nQP1qY
zCw$5_WzDe+&VDg3<OLzS;i(jK4{@4`xg>3%?vaL2lFD^X95?m6xNem-s{<t_+x+Y*
z>#miq)-d6t=1q0|<ej=$$(eSl86WD(m)^bNtd{x%ZDFeQ9RZV2;j#{G#SvXyo6Z-=
zK={onDUleuE~trt+J<l1X(dIvnJHJ$&*;eRG*KsAio^~hQ%cnfvn5JeKa~&iwCW>$
zaz&QA5~wD<qv!y9x_&7cdc1$BQ5{)02BRZ;y3i-_IIl(S^qiUw%SvP+Sd&zUXVDJQ
zr92Ip)OV%dGzpC|0Mhp96;Zq8nl^J%70Jl4G8M$R$T1Buv?|BeiBD;$5&<-VFxqP)
zn2A1pC*G$UL$X|qj_qXKE^gp#9VP0bBnLS3iLp!y(r4!E6(o4lOvls<{m};XIvFB|
zrEX-7d&U%({Pan7n}|4MBD-{iNUtnp!G@lC7yq6{oz9!ihj6;p%GuxaNeX9J;D<oe
zPW($|Np76rNb;!@QTEwKi=J|}AO0{}G3<u}V>h)2ZV*elre54M)!@Rq%-qT5^*aT;
zsPJye9VEtQj)K$R{dkS#Gzk+I*&>4w?<xGwquM2Epm&ILT~M!;lAljQe{Kr;H!Y}y
z>`Wh7Dt#?K_T!{tv$ocoywb9xs`m_yu{sl<KB!td)H*l_p_^AkKIu|mLtmPZkx<se
zsDqj6ODd4}Yh5&D)tAVWsf&Sng=7@!(`Qb(ro00m<eI3OkJ%(|n#zD6tco_^XHr=4
zOU3f`Ez>0T>FSfok{f4;(3M{A@Sq+p_F;jVzcNo#Bl;>|YESisY3Ne5)uQ#;-95dD
zrVqcGf=2OXcD7TMSxt{GJmzW+9wA{F!mwR5z%^<0Pbd<1P2II-4C(xwG>TG)9xUF3
zg-nMK7@aoU$s_s+Ee=Tcx-=ISt->_Zj305~z>!q!7UTdH*A|&QFqLN^qV^V^%#_4B
z7msmBr-+f>#PwZYI2Di@L(?G6xKmJNz?`W+$BMK&FTG(C$@+TFG5|ftK!TQ-AmKKs
zr0<L~QZZ~=cHM_dcdCQNId#QSzUH6$u-V5G3K7GEtLk1Iqpy65dATNE@%n{gP-l`#
zhR9e$6*Sq?<+%X^()|)tA;V5bIFu`@jrI#~kX@-b1;=$c)hbzp;>{@cR_h~7T$4+^
znN*Xxy}mH;#ucX2-O$LCsusqgwQGrbHJ(-O#;LQUr;#`W_u_02$_OV^$~3}Zy=X}m
zB?T&~IyceeZgfF7lfI_d$?G&LVNl}dD=3_{lp#!`J8>bagr+#n@%iurNK7v@R3Zcx
zDdY<+f>Bb6YLezVsix`m8v!VdC|Yz<bbX>0GzoKBQN%`B%<A~{mxv@0b<j$b$8vu~
zK&p_0OnlufrW$Hyc^x0SlR~=gx-px>t<g_9P04UWmq>#vYY&%t^`cGE^|q)OQvme<
zw5(3@($tj?-*ur4A-K<mxvCjBw1+#XiKvSL99zp=Y4Sxybn083eQH?7B6P2+$>WKS
z7U+2@HxyDXeHsuu?yHe$n&gv%y4^Sq-zU4NMh?2DCLiHMjwa0-sWrl<-(||~r^!p_
z)y!GBgqSm-cd1)8P5bKgTlSO|cZk&U4K@5U{Uisjo_*5oG_u5ZsC#N;HHw@aQ8aw%
zv=3tIq56DvPIBQ`F;+G(xTcO#vev=_w4SL^0`qR89xSyp=NZ|xN$0)wvZSuiAHUTy
zJ587A!g8{Qfx4Q;QVk|RThW=3sTzh4>PohzL4@fDzo7ueBR$QGkCtP&L=>i?8jRGT
zS3X?rNV7N9lTY+gsmoC5j6A%6rk5$)CAp?jR$oBN?w{%QnFQqbC{Y!k&_|3VI*qIk
zp-D+}dsX+%Tx*^0V#s5HKqr?}E~QhUG%#?BlGKVK9yjOs7pxSJekMpo)_zi>rL+-_
z6?EM()7mCKD@7G`#Ue$(^3fzM%Yt6ITBhy=3y@2&M4RI9Eh1~(UCkXFaj4<<T8|!J
zdghE>AI=xasWBe(N^-5NGvmfOVipK!U`*OlA4){&yOA{@hA1spd07rsFf{OX89#X;
z-S*dCI*?sTNuese@=LNz03Is_T4UBEW6`uh57~Ai66Mn1B&Yo~Bar0ES)VKm1yMvY
zYX#B=1J*Kgf4x;`QAT2?HM)=_shEOOr>pKMJ?6qRvlEUQ`_dLi7cfutFOfdRgH#sB
zrBjy41}UyqDmW^i1dj))V}mD+0#edMv^#-i>aJFLbE7BKbJ+?X1VkUWi~WF~^X0<?
zK5}KcKtY~0;rkJqx_o`*-Ggb8UI!S?(mNhS$|32<^gJrhcMSuKWHxfGMvw<75C-S!
zH9ORkRcV&Z<D~sCi}ZDd5T02R7OR)@#=7iwma+(O$yOgSOks$Su&(Q6UZPpkktk7(
zp-lc&1FVEMzH}c;dkmD#JdIS$ny3w?#MC1+hyK+QGJw#%#JY~WnSog~rySN-bnU8-
z%$spEbryOt*0VGvz&4`=$ThoerMJ1pUi$eJnkD5^>HYOUGyCKrK7}gXXq{V|7ZOZ!
zaz#rQtn`w>5EhrK=;_iHN|Q#A<Q23E_0x4VE>kp3&vAbZE4o@mA?ljQI(a79>kXN>
zQWPem$y54a%~XL@Bh`r`;iywRRrZN@a-A2i;~qg4%H65#D~JPXXiu%8+R0{;W?<+W
zs$!<E;YjKXC13j3LlBMIROv&tm5o0b83820=u_o2PGrfa;}-}Cr0F@C5r=!#3u#`!
zM<a=vB>Q0P^aY5ETab%-<LFOP%P_{LD^duq8Jc##sxC;WKB;$7yQp~^d+COh<`(pH
z>X|gCBN|KmdUbc}(+^UVEhasW2c~3&d`d;b=%brZS-(t!;&u_9w1r8*5d+|OFbaXy
za*KM=tUxenh+PxhTT>J^b$K)8&8Gjf{dDz-7%{+6ZKg-8187eeXGkCFNwcL1v!)g(
z!nd8cn2}B#t3zU-NH2*@qf^uCH&Ei*Sh9eu?O46Se~>x_q*A)waSC^4okHojeliOa
zU`$(m44*JYS*&c1>Ze*NG<8nOwdyXDt}-DmF3<d({P-t(Lbr?#S_WWef&2Qbg({)u
ziTE>3ow_j=gL}TfL=IR9s-Yg~@)8H4c}LP3HL8~)bsZ@68%Z<dOofS@3JId`@-Z9*
zp=P7yG?DIpRf%Te1_Z(qNiEHcn%O3MJIar*6-yvH@>id&f>mji#y^$8P@tbE#R^n;
zZ8K7wTP4LK6id~IbJ<lFl&a*_*Qfv~^bucq&QMFAkoL{-^%SfI)-8K<nk14z%UvTe
zYl|Ghb!#wq^7HPp-0%t-O;?f#;FTHuu*RY}J5^w#N!O9mZ6pbx=BKTMX`dLAR>#~_
zb;~I37!e*a1A38Sa7Y6fr`cGz(7}36btciYgsj;NpS0HkCKHnbqaezgt{+EF_^o%P
zN_voWQeEECRlTIj7+8~$<07g|x-x_nvc90HG)ZVFhL4(CLbw-K$z+4+mQcDM)ctZ0
zOC{*h7iZLPQ{alwkGdhGPKTyUTBD9Ai#F@WB~-%H6Hs5@3c`9dwCO{ruLL!67l#1S
z(ejurj4lMRh=%9)nSQ$Twm7XCMROE=q<*xR-t9G;r0pvfNpZLqT_Y`n7es=%kIoN+
z)5qvf1+g}zg9VaPqky_iO$qcq&qsR$RX2Z9*Qzr4mtH|r@v2E&{80w-HvEh%u}YT4
z^coUZepm>dnUnU2t`1u#M`VN=m9RA^5hFjSUq3SErUccCaa<owb=5^_(SQ#>t)rJC
zk~2@{uqRUh^rug{9I9V0$0AeJV%;KnQi?LI66wdd6+0^o#qj>35MlO-=TfysU4GIj
zZu7)to*7e6T7J;92N$4oWg$s33vrd}JA6;)SWrPKFTE(FUWDCjGFN@F4<~!n4%*%X
zbx$g-(J4n1Ww~&CIve#jl#^Zqc+C4nlGE!Ysgu(D0TmNpbwI_all#l8*QS~(JLWlr
ztMfv*bQ7nJyCizdu3sAFh@^oq48?bGFeIiz)GG~YdUw@590o=5k(o$gYS(lHM|&^2
zdIRqX69&qJsVVN2X*woJcsxT~xrrM$yyyJjeH%u7B}pG$5YN8HbsL^(I?F$nSdohZ
z5Ztq22v1ELqX#cP)%R?YbtVO)FZJkMw`>~OCiXz7YEAu2)xcB@Ox3_t4NTR*R1Hkk
zz*G%P)xcB@Ox3_t4NTR*R1Hkkz*G%P)xcB@Ox3_t4NTR*R1Hkkz*G%P)xcB@Ox3_t
z4NTR*R1N%O4Xo;vyBN<iei~T6U0}m*fsLmI_PQ&u&o_b7@*8vd^j|)3x{U*;9~n5q
zet|RpC2-bv184gra1IXP>+`GhS4QjV=1hM}tFCUYc_Msn^Ybhf{Je$0`8opUUm<XT
z)dLq?FL0qvjHemz4P1Cm<3`3)jQ<Q=#3w2i_0L%@Hb;anSqxliY2*07fqMlGIv_BA
zyYcJ5Vmd=oS66nr^8OLtcBs*MX}=-(WvrK9e;ND=`M?$116Q)1R~i%iDyJJC3tY|V
zS6?vrHRdv|6}aZg#+?J#y~g-n;ChQ1w=r5j>sdeR=OTQ4*LVFZf*;HQ6nzH!`CzyI
zV5i^k&Un7jO@SL<Yy2>9llhFlF&<|8tMRqKO`i|k%s-~F#a6*@xklhtD+X>ouW>V@
z^}V(Az4iMMzKz>;n}f~YXtbSfyGZcc?r3~6a68v)ySIYhzS-#Z-Tsc?hs<iUT@JNf
z4m&Zzhuf})-xmB1Ya4A>JKS&H_AtWoj<_tsN4kASI{wJ3BYel>j4uU_a=VUl`J;|;
zxa&L0_3d<iowk=w+gIm(5x?_`z|qSYcQ@L8N52#Nm^qDW8eQI)yUl+dxRdp})7Ius
z4jjwDCw<1czGK}!V_m;-uHU$uBi^|819x7`xT*0FqwRd>SArj}UvuO$-uf7STJWd3
zA31e``8$o@2A<Yt9B%v|@O0bT=|jw)VYL3wus+V%D8kP;%IN&hoHqEg++Upab?|4~
zKF%I%{%qqz#%}^A4m56Iw0%vyJ@|7jGd>r1!7PCnEo<yFy1g%U`ac~V;g{@T{A1vy
z?q4n)Z~ju_Yk_~ZKK{Iu`HPJ1XD)L;e%W>rewp=ux$WulD<b^z7Xq(X&UmcxCgZ;Y
zugn?GG(He`RWGCM`Kp7=UuAUrTs>p(SMO_deXjl{_-o3>y^Xe~Yh0hd*uVZVDxUx4
zeB*P0f1S;^zHvX}pN-E3UhDqi+V#v^o@@Ua{NFAQyw3Xk`#Hg1Z~a~WXz(}mH?A6Z
zqxE;A^?T!m4u3rGCi~k>9|V8%n}N5?Zd}cHWZ<p#$6IeS|8C%II~X4eyxsM^{c!Ww
z2Hs(P+_9^9>+25d>rUI(og2jSJAW5=*V@LH1Mi;8==QyPPxEfyyWa`^9{b-t+n7Jb
zX!-BmIQV;QANQ>i{C)0U?zevKzc|A0e?Ra6x5op|2mhe;_25&%KeU9=^?%6q|A+1S
zVf))-mh*AT`MCSd$L)7d42gW6v|T)Tg85eipBi9X$#|I2cJq||^66P3{OOegpJ_I_
z-JZEC_<!{?E*<!+^Ly5Q^_>0cIqUs7>;3tLi2uC(`uT@~f5G*6!S#93^?C95c>dz8
zfiKzbUOqYam+cp?*e_l=Fv4HCKJZoB`K!yAKgyUr|1|j57BX&WJkt1g<6D8R+iu@*
zyT9rBzv+JN%|{~MTlGfwJ8z9Ne~R($z_;BmyuFF}gN;`QzH?UKyRPrM51aok@V$1U
z+vmN%ng1y8{Uwc?8*OLrzY+Wg_OlNy?}zV3_(x9$e!RGGGo$VLlX-&wWK-j@#+!`p
z_dcCF_)ph1{>k`s;Ab-%S2XTryg2al69fOff8dwX8<#b98to@vz8L&h*7w&g|LeUY
z{Oe}|znRZC)M$VCcH`i`wf?`eUw?OJ3a_tQ&lvituOAb<?_t(AME&Z0{j|O@?6<x#
z+N-|l4-voVv%p@_Z`SvU^0<i-;k}E-@Q3=|;h*)>xV%0C;(4D5f&R0p^?fa0-%lcZ
z+Et9_8Q%=-H@ng0_q!nY{_`6{|MmUf4}SWYj4K$=Hhvg5L$qK042PP(KXAsdzxo-&
zpX+A|d#j%*{I7oIu&?@=qkpI$Fk_?}5dK#`And(<mIWewmYt2)2F~jIW)1tVpY_rR
zpKUSY6@jydeb>)!{muSXgwJt?@vFdJ{nmJQ;G896*lYb<;cxYGxxBet-rW5n-rO#4
zo{r$>xh8O4x7WOuf8N_2{&nDdCj`##{O5ls_yxlM>lb)1_yxmX>K6=us9&g0gfFzY
zF~+_6g|`ZR;Tr-MS=IPZ;G)9<7n{}?{!+i#J;5(NoiY5eeu>85mpCnO$#spEZ>boE
z>zA^94Rm`CwEYjfHR2CyHrl?L&kerW_S&*x@Gbue%ndY-Gyc_Re<-XFe8KiqOl)0!
zaqkE(ejZp_-FRDItJ|aXuHeft52-I-7JQrQ-{$(a+y2{K|8}=e$8REjhwX9cLhwu5
zKbDy@_+Pge-9Ier_F49+2w$$vcz)pW^BIR4&on*}xPtY)!ZX3I==dw%Vcz;&X~E!E
za{QI7@0H$&@RheW{?Yhu;3{hy4>o=mxawfzje)B*7_HycE;Ro_;Ofg6V|=JzJ;sOn
zHD-wLHKM<*U*l-=ZjUuw-kPgK_?r6~ZNF=N6Z~3b<4#6DU)$}w_RbN$w*74#>tmhq
z5x&m*f$J8H6OAr^J=b@=lOlXQ>wA6Yzy3-QzP|M_c(vdMKNq;caHHkjaL3>`JT-8m
zS&U}}ZtVVM<NJf(WUSHtvdNdhZ)$(v)c&{WgAu;jyv8E~f79D|N#N%8_szF3Z+rUf
z=-{`Q*=T#-a*yD*n#cHX;MThuKMdT)`q_5I;J01VXnWjlq2RY0VSGGr`{|7v8Ba03
z6*y!KqxCi9?cj$x|DmUu{~~ah^*!v);D_5EhaY6#{o4+U1;4|IM)xNpY)>Ps&ymN(
z^O5fb?zoQ8?X{!rXVkh8KI(YmlYyO!8}~HY{ztn%8$B_?M}HJJW=W&_%bi@GogR(w
zv98b9-<$t7aNJ?W*8_L{Dsa5z*=4)ncX>8&*UgL`|8{l!-CV!j+<)#qbHv--_OQon
z!S7-F*<+%4`^%n#gWvO<z`fkQd!20l^T53~F<uk6&jLovv#<SeKil(u`^NMA-2VID
z9sC6Q%Y@5=KVW0y)qw{d7<f=W<GFzc+nx`;F!)34Pls5ahuWSGTRNT}X8Sw5ckoBF
z8P5;=-F(Kc1CQL@_-f!$+XNnMd5*C>$Jic@wLHgKp5q2Y{NpAV-9Eo}dmg_;gdgwn
zPgo}S6J88F(e`+v{re=B|A(e{{)eLjPhQw~Z{R7m|5L6E{#1{@r@H?<&GvDc`;*hH
z|I^*x(R_9FXSlpGT)#7yiu}%W{m$AU__N%9oNfP@*bw0pZLbp_3jUnUjP|#44+;J}
z`^$M31b@EA<MZwR7r6hr(BsX8*F?NOy1g&zAN)n5jGqQx?D8+Rz5VHc2)|@nqwVd|
z)q=nDAAx@!ZglyVtq}ZW*6-!k@8vs1_~owO74FZjJUqg$n#p)n;MMLwuf8<+YpmaE
zjxq24;V)MN|JT)x?*?A$`d<53@PAvxIMMi8;B~7Q&oe$7`1b{jcLiSW^w--SZ?Hey
z;QHTicEr2E?R%r!_r}*F{H9rr>ly9eH(4Jy&lll0yFG6{)4cubmXX2VV*9>zgWzv{
zAn-Q#FSqvz{&wsC4(tDpn<M;A_b+$4J??b*cMXc?cX@oddz#?yJ}&T{#f;YXz4gK0
zyKUfo%Ld**r}41B2W;ODxP2b*c=y0t@%+IFfe%@~5AA0D@xXs9YP9`5Z2N!sf(ZYo
z{rjKx??>$4kGMS^asT${RuTWv8v-9&!f5+@?CIbi-`ME>^og~Cf8v9{CwDY{68O|U
z#(xDq{c_+l>l>Z_GoJ<juk8b$wS7N(pn2#2+?K&V=k|Nv_W8Wq?*;eIFSvhtah-_&
z;&p*94K|)*{5bICy#rtI`1XqR^{VahRoCaW3nSj^w*S{Bn7=dd4a@h&k-@*&+h}`z
z%jLh_7~yXpW&CI0I|~}`4t#eGqsNc;rVswT(MH?%`|||<{urb6{lTWee_(xlxLoib
zy1)L&@_ckegn#r*;K%m2kM}eGPT(iI7+(tf)b{?_kl;UiIPi1(^XJyz=hsL0zZW-p
zJo(SS;Qw=K;1@Zg+v`iq_oeOQtFiI?t1kk-J}&T^en#v6o0H5x6!`6$M%&Z3*6(+v
z2>;Id{O%0%UnOj)3;SuP`zUz*><6EQ#<>EULf(d6s|Mfuw}I14XM8rWPw1nePn6%#
zH{@;Tdu}}M8|~FFZRn$6+F=ns?H$IjzlMH(-fxQt?>8~9zsu{twfP&3p9fCYVjN+N
z`ZrAH=hH|3(=h#Q@qC8OjWIqn%(zJKGahWTK4!Wl_?eG2ejPZ#@(p-3_*phEJ`gx-
z*h|B#7ny%DaJKO0hS{S18fFW7Y?!?xp3ffrW5XP-&m6Ar94E)~Uo{ywF<uimXD?&)
zR}FJs9Q<6f8Fw)L&G<&(+^ZRnH2x=Wp7BQ4cit6)pEt(8hIwxdem<8s-=5|_4V>Tg
znLqlIh6SQOX;>iauVF#!d%?>h{z6L_w>Lf)xbSe}C4oMV(6C7K7Y&P8|BG%D&lj~m
z7qk8sb9*oD@)vi0i(eb@msr>s<3+;~-v+;=>$6lt@JnrEd^>R9X2wSX2Q6>BG_bkV
zcvE0Y^j{4vZr_%FM|jTum2>^_;jaz(6XJPcdSmoo4aMlc8;Yk#c&T9gb6~6OtM#qm
z%R`Ot1-99L+g#r^*SFpE?QnfNc8d5NuJ6(d1;6x`M%(Yw(f>3oGfjjqvx4!pz+ab*
z=LIf1uW{eN<t)!~uK#i$M)>m9-|~l=e==|d=eNS%=H1>a+P_ykD#BNMCvc?$16Lj$
zxQg3<l}CeL)%9J~^<AxZgs(Qt_$T96fvc}zw7$H))38Qkgs<W9*Z61fYc6QC|E)RE
z{67NMn%}s&(dDh(H~6)!pS7)@wQcX~*k9J!KH{xodsx@@ysq1KUF&nbQ4w#w`;1=%
zu5bHU|M%t{fAIRj51tsf!K%jJ8Es!1t`Yo(e>A=uxX~iU-HfjUZoIY8_OQvo;5V_p
zHk~&3O-CBtKWyguZgy3KZ)X4bjs530yGHnL9Dnoeg8%LD#_s~RINxabx7;-NEpHFp
z%JOdYQSe(2HlAa&y=^lf_-$4)+F!SMD)?>NjE5T^4BXE4zn$%W`*k9G`?~{&*#C!I
z9{kWHjaLT_o7s4=(d7+ydBbhr!)-4+>=p4w*gi-6+WY~=y8=hfZamm{Z{Us>29C0R
zJNpOUxs}o7kDe*`(YD7i3k5&M{l%E;gWqWt<CVtG1IKP+Jk9t*;J7)AE^p@<gWq|1
z<2`}nH!%Lec&E|*+b-76E^d!q-iYVB+WvOk!u*NG*8+EQd+la<cDH}+?*4X<a>U!i
z{l^~e5BK;c!uRy^Jx>aLuL(x?Cws3D{NC<Q_O^fSWBc95`rqfBh_|oH-}fN%_SgMd
zgWvB^<6i>zpT)SY(f%-Dy5J`~8+d^2;ebbiKd|07#%TXOXt&@Ga(f>1cJK!;W1L|8
zXW$|B&qIzi|9;@1BaI&i9=5mf&A`LQ8J`b4!tx%`Y5udo-yLPNJV#pJN7}xQ8XC`!
zc7JsA4Z$C?gz>7tV`nmsHClhi^$z~H@kZ<C_qM;^KM~=_uWY;`@PrwR`xxH}Jkj!;
zX#JdIeV+7DJpaSi#-{^Mwmc`hzdmKT2tUQ~Pj!7yy*a{9vpt{Y_B!4AKi&F2<NSzs
z<{+c%b5=h1vn~xhyPt87z==y4-wixxbK_Zo=i2_xJ=grd0?)HN=N%dR`Rf=T54@n$
z==xr`aqt(O8u&-s?;nSme=+bP%X`sr!C!3sU+nV#w0ea9>9)X2);8W1c&Y8-QkQq>
z(GK_XKl}NgkB{&_e;0U}?d5Xo@A8Wx{0hr+#ihYtX?d=+JzQn|UG;E0zj_Dbw}IE3
z7x<SMjn>y+UH`wj{jOa!o?m-^;NRMfw+3GKYoq(0zn>WV_462iXS_Y|h7rcQ18*E`
zd?WBC_vbfn5&X@s2HxWO-P#oVZQB@c3cTI*z5T-A@91S*%lJ~@ovzQFyPLl!@Gkd1
zcje3<V7wymZa=?!Tl2P;yPe+aRSoxS8qe>s{_gSfdw&(-_pV`d`S-eixX=0Dw^}^E
zZ-3(*f%o?{u4nZ4fByr)KQNQg<v(z``Nskuw0%A3{{EqzBK)C?j9&!)!}|Ki2f;tQ
zqtW*A@SDN^bBOWXz(>|L9&EhP_<7)?n;1RbK6-EPkIiWuWqdvG@r{h97~P*ev0(5|
z*gl?^X#S(XC+9bAZnQr=>E}<KAK_0qzo(mnf7<$f`ftHMV|_m}!u)lC|FZr3%l`1J
z{rTC0;`y`I_j7LV=QfP+=Um?Na|HkV2F3}-uL58At?}%@7gsUvYkbIPe|u@A;9s&l
zFE1Iq*WVgmasTkzG!g!~{p)qx$LnstH{3tGVfo**{BK(RH?NHJZygi(_MU<7>}<6B
z@2(L1yMF$z{qx;_NBDaajQ<RL-~RT#{rUZ8BK(7Kfgi45yf^Tp2IDfu7Xv@GydT>i
zKCyj%;`)8+^q*OupS!-F-xcXU|19v|OB;_g{wMH1n;8!^{>Aue;1??!J^p@iiFrT&
zazOB3u4CNWXnDW1{=O<j_*a(yt24~IeZOuB{_ACpoyOCR_V2I12>zSJjiZeh27c@Q
z@mu@*x3=GJKaA(!jWV8Z4Et@Y3;i_KMg1G=mrKtZ8&)-jeKs}@3!XnXs83^4^auQe
zdhorX{*Aq^G5<<n@41a3Z)5L}x3PEFPvbPvzco&Cd&J9rx4O@+=A%6u`)(Dyf8D%s
z+UV~Zr+qfU`^9+L*l$1c&jt2B&=~gK*#E`gr<=iOd8T_O_~}D`jniKn{0x1JVPB0i
zd>j0Xq0hz{ZwP*-xs1_%jWgYE{>#9bmoWauc$hKlrEx&CU*mwG5kBCBz*&B4jQ*o>
zmT1q$SyznkStlC*5jdOWoh{nGaW==F-Q~~j@@Ky@;?LpsoMQ{~_XPeb?5%N5$Dh;j
z=UO<P&*k=*>ksDN2%LMY(fXXn@#h&C;q(06X#1PDIrw><-@Heezux$1;Cyc1`G%W+
zDRBNRjVA>zFwl5v;DXlQLT;ah!v7l=J|Lbi{C?mfhZv)OYh1+kx#)xlU-WY0^MQ-a
zZX9gf-}r9e;%ghv2wcMLy~JP5zZSUUEXI|Mha0WWrREQQsbR)D0te1&w0#e>z6M%f
zgX|xJE{b@A+@8&D&*n2Dyv6O`67!G7mX9Mm7yWl*?wH{7>l;rrJ{VZAy%wBbanT4b
zZeqO6_)%bKN#g~9t!o)CHa-<tw!N0^-)*jco6B#H`Bh{4(h<M?k4Cp|$6~>EoEy0G
zQpVpI-QO(j`YvPrFXQ;Xo+sk{+U>op`=jOhNBDBKx8<zw<*n}(ddKq>#v5M@TrqDv
z&iFy#O19sX?hStBRgBJmm4@I~+1L0`;Ht|Q9|>H|`dBSz-tw+?S@5e*XWYwpwejV^
zHMTO^pV#;-_%)l2M;q@7Tx&(+4S{Q~YP>3Notcc=8{HqQ>-Jvv*a%<u{lN9MFg_8u
z{su<3$Kch2AAC*V1}(-v8LdyB7i;u+vBnMEpKav&Z{+%KbbqAVcuC_B<86VPIR8yt
z-%a<7@Xg%6Y-V{kvpsEgou9uM_#5{Ro7+Erdu4?G_Vd6k+<se}X5Rh%mJ0{JrQ2gm
zx5t+MaJa{xtp)|Z)y_tbS6h7@{MM~Tm%p|B%lGseeNV4(n>`}lHuj%w+<$Frd);=o
zc)qRub-SkEw;N})e+;qx4OuP1hn#GDIB=N#Z`j!2hc9nD*!W%G4(|U(tQq{sIgFPF
z?zpkh^6cpHM=cxSqiheIiv;g`c8#NF2!6ENYqa$_W|jyabAZw9J;w6vWc`o5B%Y5e
z8Qouo`s*5Zw!QBBOgtZN{p@1@-nApbceT8`S>D|&@9zJK=X-2wd@pd%<Bd-S?$z74
znenfId)uD(X%BuM>wh2Xf8V|lzVCX*vyHC?di}3)Kl{gi?jQDdd+%@mpU@}bPdLcv
z{^NkTf<Ite<CTF2x;_WF{DW4C@PiIB-V%85e8!6c51G|?obj8$Lw7V<ABU|H{9!i-
z9&ULL-^9HA`G^IAKjMtQ-_35E7<i=nha=Aq{wVv`QI7<F^zz2D0+0EX(f)JHy}|oD
zTH|pp?>Ot{_r-Yb^JtAekJfm+?frztcz(iufhSI59BzCx@T7wA_kn+y(|BIs$x9pm
z66p25##8PN{?x6FZv>uZe>&~C;7{Kr@C?`Qj4Oga)Bbbj81uH*v(^ayEZghZ2M2$)
z^)b=$C%Szmy1zeXo``qOI>x<?*BD<3Ja=Z}ibmV#xfh#%D)2n(>%6jg=Xaj{>%0#l
z{QP;1_Mh_)HE;ROw|o~^z6;!6T<})JyRg}~zw!CNKiZ!DIKuqNM*H7Iwug&$j_`|a
z54^aKaR=icjP9TQG)wS*TG@E6(fYr{?R|;mx#Vy0{L;S0;{*S^gz=%k%Uu7<T;I!G
z-^<6u^UEI$yu$5!#qPmhIk)lFz^m3Wz7%-1^?8l`@0u?o{4Y-i{?+Y!t?l=3o=;uZ
z63?%*e_m&M`ulDX{`bcNueW|~Xbk=a`^ybq1b?IL_omk1Z#vQVN#M=f8m+%uCIo-0
z$BSF<3;wq4jMmrf%LIS>MS*uLWOV;@XTRX@+|qb`;9YYXM;TuayxabHPcHa-t_!?(
zu<^6N`?fb)-}g5MfB&6<5A0~Peji*V_y=vz4^0UEAF~^82z+=|qx-vm&J_GVUB5@x
z4gQh82R>?jK5F}T^p6q#Sa0Ka<BNfhFK>J`@Cn=36Z@F|ci@u~j4uQ}<^JHQyMupv
z4&&~|Cjy_bJkQu4{#760|Ju;#@#k6l`?Idkvo8Nx>;F0X*K?aky64U^TA$C)9sKiq
z8{Z6k!TNk*qWPx-Uvzmdy1W-JjqsOjA1^I!-uimU{`%545&rT(<1nM`_hsk*N}mXS
zrOi0pc#`oBqwW1w=l81fd)4{9>i*}|k0btT3m9#GuQ|WhoZsuS#`D)*pV#d_Z%iBE
zZ*&;n4Se%#qx<K#-2c2~dw%Pkc>cEKfBU82-&w(UZ{WKP#*K`(1irVX@sYsyM;dJ(
zAGp0foIk=pw7-0`aPS{F{ztaYkB^A(Pi8jmANXm(XnlIUvGFt8*Jq!{^Utph{P%3e
zU5$?g{-<a>-e`aR&xgT(VSRt${^3je=a=Wl^RMimU#(#N_kmw8ZrslJcHlRg8ILpC
zzP{Zf`0whCzf0IuH^8`#@w&kD=iK;XI`t=*|2VKA?60ZeaPw~jHg0S@D6px&G4$2c
zEBvFWSM(oEy<J}KLn2=9Xpg38HVA&2KNw>?)SsW%r>W11#?WU|-|2$yyP@%9<FkR&
zE@0f*c!|;F^;;tNeqo<Y{hkZH|ANNx#zz9D+roHH;Pk&T-V``P*iX|8mzn=0aK=@P
z*2hdkgP-ZEz?qjchCMdT9OF;ZfI$&HApE6iK=@aa&kr`u68&q_EN;(P{vGjW{k1Xd
zv1!(@x2D-*JZhTlig@n(o=vlFYyN`3Ip#OIKEK*B_+Q-{IH&6~=gq;-wT3bJm!`R`
zzqyZ%@Oc(By1nPIzUG}F!sp%A==|nu3VyydjV}hyZ+*{ysQD)Y7bqLUpPCko{-bHZ
zeItB9>vJL7`$7{UeBnimwx@-i-y*KxBF=A-XCmIBOBu%oE_S0a`h%v$mkECH3C0%!
zmpIt?O5l>6#-{_9vi&V(dmrfb9%y?VREl_m&IxQzP}kIKdug%0S}u;~xfP6Vul%;b
z=idq}Ob9H_ZoDC|w5suzz}7X5?+2C_Gg|*`Zojr`BD~%H);`$0>(^oX?l>aCJ8lbH
zdUNB;fy?X}`0IhjQ;ly2E<4P4N8oZX-Zm{~d6u_4%ey~X{^*Fe{PTe;tZlSEthj#g
zE8Z8l(vg8H&tkOxSBd#Z(<&n)e3h6VHLV)sP1CA>ittrG2wZJP<Mn~7&uKi&7~^Bp
z8Z!mI#-_&8jqe7oxvcTAz_l8UuHRa>2EX<$f$Ovy9|&Cc;=uJ*FxtM?e>nK{zY84f
z_8NS-`8NYMaR0M`{eJ`3XM<1U`GyM_{d`0F%Z6^Bjrzv(jaD*RUmMw<HeNl#H$KJq
zT;L|ZHePG|I&jk!je8ldHvT7Yv%GOP<Kuz9vHpK!`8M}>w7L6-%`c63o4*$LTR;Ep
z5cAgrZejc0!us06`EB`FJm1Rgv(;GhXB%G)+<Il>;YRz%HcJM-%@={&+W)tGDfsQK
z2;6=tqvaX0L-0cvH@+1(Y-i(pfy37^9%B4BaEH-Gx5tQ%;72(9h;xD;Ilb`+qx;j5
z-vqy7+35D&@s{96&1XE#cyC~*<9Ax#(e|G)_Qx^ykDYdk_&ePaICe9m`=fCqgCFPm
z?0j<Y<843V4+wsjMUA%aT@zc^<n_6xU9HdE+&}E*{%H5DBHixi2JSI~abx2JM)xm!
zP8a;1E`QG`sA<o;B785`Z!fq1-kx9V{bD@dXA$Gp#`BE!$9?TD`?|dST;6^zZ@;4>
z{(g@H?mxS6gz?Wt>uZATaf0hN!Sj^^7L0fY*uD<1e;nZUK5)HwexU99p#H&oeXr@D
zPlG>rJL9u~hb&_}%6O;I@eg(UL$8YP!`wd}ww8JK2ZzrV{NdK`5%%vRMn(7$_XYlL
zE~EARyIX@lvf1eR9qINy%IS}C`lIZRM;9Xg(FYkF{}{LDG5baMG1l)fuLpmu{q@+P
z=1(xXKR9lK;E%I^|9+m}f4`~mSmQl`$JZNIGur-6XbS#>HI2s@9}PUQ!D#zA@j~-2
z1fG;LTAwFfX8w)9Kg@63+-QG2xo_|%+rCb|JNQ%1H@+2ks`Y)U^?j=S;k177{ItQw
z%L7lJ-uPVL8Gkq0KF_p$p1op(pS_pye&d&c6PGt0XS~<w@!}kh7w7!Ff8V-Zxq-QX
zqx;k~<OcF*v2z3YHZYf1eH+c+8XY*ge_bQ7_+zS2zLOw@jOMR=lXlv^0d@5`{v>v8
z+PeCI{2R?5weOZ~WERoK6Qw%(c%qN5m14Zg9*>B<bIrM2u2p3=Cn=gG1z`#?ZIvv!
z)_!$OirgyzPAL`0Gv1^GGxn|P6B*|7|2<1RZB?Ase4gx~|1JAeN^6QjOce$!-nVWR
z6;@~~wC6iYZKbx>wvN_(#}5=-P<WvYN&+aU^u1j|kRD1VP;!Ej9h5xNcj<@Rp%kI-
z9SWf^h2%R@1v+}FKp{z9XcJH@AZY=~ERK=^$q%R&fa(IMMu6&-xYooW0Gw*7XNUl(
z)+j}=WZ$}3yD6o;Ty8H)cEV+6H7)$}wIVIHwwIw41f?|5_M$?HZRiGykdms#c79Ra
zB%LCLbb}m#stu^}0)#+Cg28?37MC#X<@UCYs!waFP-<(-b>v&oV_Tu4y`%g?wxk-8
zUNv-WrC+jxk|&gWe+CWfk_93Z6v?27r|)f|2r8OO5_ZTAksFHeP--A*t5$p}1f^C`
zs-}>3eW#N8UX~3*(bV_aNm`V)1XLH0<^btW95n`{OF#<!c_72?=xCJ-KxHLr89?m=
zsFlQ_0zfS$pxpqq9-uY^)RKVOQ$VXK5LEzbVL<H+sI?V{Ismmi#v<6QZ{0FzB%dn~
zr9>&EVry%zy}gucZEG!;3WZW@p}kPfcjVeS3dLfn+(G^wrBZuqvDDEfA0Ty=*Qs5|
z4N8{!UJxa7QMZfQnzEo22+dkq;gqlNqFNbApok-y3!4;0I?<BCkrRrrP$Y&Tw!W7Y
zhYCQc1(d3YmK29dL8+NS+V!0}>U&x8Q(GuihEi`Rm4~7Mg%l(qx`3h((UQ`l8YudK
zq9iDq(s!p-OcV!2d!p@<1U*7gCKQb-+^LGP*f#mL+9!GzwYC~df#?@d!-+$~fErOi
zQvzyGK+OuMaRD_kpoRw2+<Jzp0X01!0}x;afQ$i<NeEClAoI{OR1U~g02z!pv<}F4
z0GSXVLlU5Q1)_RDrlmlX56H~Kp?*Ln2gvXMnI9k{1Z0W|q!9p_B_QJz&<=nM6_B|C
zGFm{UD-Ht&WX9rX4nQU?pg{ncHy|SiWa@fGbKo`tkIl7iV~d~c{t$hitdkP45-8G5
zNh@)$lZ=JZQA#V|fhVtyNZn-iY0H&z`BG~sUq+F|Vxe3v%8`2NIOGzfht_uP;eMiI
z`ZH)aq*RAcP$YvQp1$W5f}jd%)ptbJ_q^O2;i1$3nmMXMsE|TZji?&msUMU|iWb#C
z(4HDd_LifzfOH0Qb>X&C!7n!OBuDB<odGnt0QHv;C;(6^i9-c|T1<f`0Z{9SLk)U{
z9sso`pjOp0Q~{`k6^JqfXai8218RBAQh>~Z+RFL1LTkCTP|WisDZeMfP{ZZhq*xM2
zvH1v*A(0+RCQx$HQ}^#`0y2h@JCq_sJy%duQX&l$ozwR`ND9kQDgc!lB(3T}7AdeG
zO-X)0wE$EXKs6Fa@p?x2fa(aSrUL2<sMaV&(1TJ6>PHcD@+d_)=WVr8M`gf7DbasV
zUZo^UK>%rkngXgXpjyjP04t?fC=`l}JH-NBO{q0GWvx=w+BrL-Dn^1t!wSN2!`)>g
z<OC%<D0wPo&Ai3dK{$meX1<J4ph!o##Tb#*#xN2YnyN#waFRAb@)Su9C;0)@0#IE5
z)kx1M9#HK7)e%rl6^ICcYK>9^p10L1rCek{F69~i^ZC}cGXLdUbEQH)UubX7Gmf|C
zT07d>N*&1yCcp0Fk0p15(mT>Yv$>k|i?E854>MH9p3M;zPA#BRMbtCA=mF%#R1ZoW
z(|5(Bwos}JrQT2~4@Cn|)Br^nqMrH1Y*OLqN8vTI%y_DB6bD6nP*ey-k5H5;>Uo>;
zLAO{5RE;+Utt53oC|g#782~Z{KqetsFbqKE0mw)InF=6-0c19Sj0cbj=^2U_U`~LH
z3Xo|5GO*y3K*lBx{R1*QK;{R?2mzTQAcF*CmI91ZftV;DLlw{xdRCc&ijx5+NEMSY
z!^xxp88#sE24v&{OdXKH%WVL=O^Ly+qrJV*k!#JNpmL$umMgcl6$>5ZwqmZ>S}3%Y
zOYH?FrUl-%^Th(C<l55WO0C<3k*VRy5}M5(!cb&D6a%F!QNISsq$nCn`A~$=_oBXM
zP7;HeQXw4_5%ttBOnQpMdTK*d94eqVE=6&uPl^*yBmXE%rBhKTwS`h;Q9G6Df(D?d
z0g58@wC05=LX;0mf@X^((gr$%qBtnpgQ7xc=0Xa|Uab@d-QqS-nhOn=qH|SK!l(_Q
z;?!_}nok^!2&gFmH7KBF70|eVnpn?JG@#}N)ac?W9+LWW%s|gjHz1P$WEg<V1CWsb
zG8I4uqd>GSK<$7`2#_HGGABSr1<14j85kfl6NmZ%nH(U)6JUOTj1Z710y0QIW(mkR
z1(iVMDRUK67K)Nf(HI2Ei~$)lAd^<iiW4bNMh?i-0U11QBUrR=-2gR9t=q_8rj$F#
zJlvB_dGnAO)Q@^5QYz%~{9oh+GG8jwC;osQWZ1-o5?gUR_Ed+2n@E#n2PID^8AHh(
zN)h_*d97knqGlq=QoiRbspTk@29%tDq*ZewGa$($P)4CzD3HPd)d*0%0M!mq9Rbx;
z9Q6fMYm_3$Y(vFVl#-<F$u@pjok%m~vS#p5#F~=YkWxw%tC0ohSq(qrB9lW6a*=X$
zP~BZ*G8%=|kOo*v?^zA9>?vgpTInrkE4{S?$>djqmQ}Haj)nWy%`9WAaf&Hp3^Ie#
z6gLC4KV3x6U1VEY&Yk=QAO$nlLMah7K&No0puQ0;c+gkh0F(6%<<@pqMOxc|e5sf=
zR%&&U1`>DlF{4slNCeGRn5ySn`c7_8vP>~GY>+vW5}*{LkTTamMME3qm|e+pn{&}`
zA{v|o1SBRPVF8IOs7x)ysS=7(NsuNQl&qK(4XBEMDk`S{+&6Top_KtAO;&$7HH1o3
zbuw4gYgX>lE>N1MQQ|ME1}i1$jgqOjDkp7JmaNq`sJ>Q1TSr@axs)%mUc??=da0~c
zL+UOpzP=M5N+KvJp(KZr2b7GU<Oa<a!Q#7UwrQ!3n6j`2DAG}4TUdiQ7>NuOCjkM8
zDUKomi3~_^K;i?c1fZ$_st}-RB`({hRMx7foC4@c4IT0RU9*Dz%c?;ND0^o|PC<!?
zHAU2r>QC8H1I0=WK#yuj6UE7C4WR~EPe)!W)X*uchGaz)o79jmSPg7nvo?{_P7*Iv
z#qZA><N~>D@15_&hi2<A;SQQ#lZRsVup_8&GFK|Up6WYgp$2HEp*@^Jw$V&+3XENT
z2?!@K0SPNWWI%!g5+6_{^sKTere~@apvvhPRRmN~)R5|{Lp9C0j#eFKY1W~dX1+D2
zLp2?I>uBX*OFEoUYaK~Z9qAxTM{7DI)10q5CDY9JJf~#xwb|y$tT`X2Wb(Y<NMp_U
zw3{nUHhWD>9Scv<Pxc0ukCP6m*2GGE0MDpI%BHV8Dqrj_0DKW4irs{O%@>h`ZY<TF
z-lV4(gcVhL&n2qGbpMBd>II|pQV*q<D81A}-X)b@a>CXg61I}CC!r)y-otyo-0kx{
zZK@+C7L=I3ET!t?i7lb`7}wG|HH-o!8X);52grr_gbU}}a%?BHb6P5&FSAgsH=SCe
zl9>?;N>n|q*@+7WS2%g3r$J?qWC<l-QO}bULNO^MZHA^*97>FFEiJ^tq*q_cqy7>Q
zkeC951thXK3I!y-I4Y4KPH#~#oT??Da)7D`sG_JruyfzK4i#UchW0`m?*ipA%Tf7K
zzJtk7p3U!aF5i(avechvM~I0+Iv+9ll_eGDy{xCkKsG1>LXlD-IVlu*p$IKnvve7a
z5z|b4r%F)j1*LLOY6zv8Q0fY$!qDu@h2l_uC`y2$2`K7-q7!}hzMbNrA}D%-X6yL+
zp6%x;J_>|p^F8H;KJg1E4KyVULglrhU;wIaU(FB52mqM^AcIgKY6fH+fJ{VCS-q5z
z$!HV>(*a~afXql7`UYfDfD8+ec>yvqK&A%B-~gGOo}qU@CJ4w70huEpqZEf}0y0o>
zs2`BA0y0?zRyH(~EVKcEGG#ypEsh4jH3aS<+Vkz@LOM~zyHOzx=Cwv22C4=oDwO#8
zZbJ+s2y>BfWb4QZVa}?M>>ZHr*&4U<p)3pnidd8wgM41Pfl1Y&JU9smNKA1E3rJ)@
zg6mmjsWhptGGk8ai}y}dj+m+<po*%8P<>;B8rj1@Gm?R3WDg_MNDVY2Lw~5AUG*XY
zup!b~OeYm`&4n~<%T1bV+$3B{;o0c~g^*k!HAkGJA+m&$Z=%&NQ}K3DLVuJ<eJC*w
zB_-v+*ea48RF;~hMhOc@WI%!|u%bUHM^yn-AwbnikR8Plr;18{fYngwD6$e?&Xrm9
z#=2CYS~aNB*~v3in)px>DW*3@^qoAQWR${{iY%ezD_V0dR;5r@>Q_?BHx~+Nu9(*5
zVUmp?8X`+TKw<(C7Ldq*1P3I(I4Y5zrCd}YI8{qfIT5R@RnhRKjx*}})~!d4tM$OZ
z#VL*)2m3e`m1}QfTY-~TY$vpH%(lc4Ft+uWn09m&@?}nf6*#EFMgm8Fi)B`CRq4s2
zLfKPmyVRVG>KZ(d6`GyC(RV~wcy?%$@6-fZd+1IvshwiB%ipO0l*&T0-K=Q9pehS3
zKv9LhdzVW&pcyFYfo8{{<GUy-6ZLE*N{oIfhM$mGak5tp$&Y@aC|T6rDC0usP!tc%
z4n0O3#iuc#w1}QMZOE^3X(eb@Q+=n=6w|}4<e?3rG$fSPRA1+#VUyEH<+3ae$(*4A
zSs~Ch!&2WMyHp@e49G^s#hF~$E1awr=sMS@1hQiRO%2GV0jLtlz5!V|AX^VegDovC
zjwT1>1LE)mK>h&8D**Y10xQST6)0~3<TC<1M}hbcATI*sOMpB|P<ic3eu@ncC{F|A
zZvwmyknaKVKtO&7$QuFqBp}ZO<e%ayYe*@x$_8MHQc;LFc`_h>7Kc{@@@+sK4#>~x
zL6W<tfvC{^MXk{Di&}wksh}6NLeV{NG1tK<bmjo<ZS8I4be^WR`;dVa-0RA$i4P?a
zG&@Znh8yk_RB^~salGUe-=nXVt5X)n4W&Mm7-w;k?ZBv#P$^CVDhee65*CoifCLv*
zCNhetst70;P_+P6E^%q%uZpS%2I4e<%IZ=>Tb>z0zP(h$oC?f&S_`>SG2g}^pN=B)
zigxU{Tw*UapN;}gPIXCXZEaF1GC>gxigfz!iFT-3JslE55gUr^(5yF9+U#Jx(o!i=
zA79o}>IkKxP-+XM%24VJrSecT0L_kDDIXL9MJrHL1I=c83PDq%HXem!7ZOwoDukj(
zeXn_4&{K4ac|d8kDPkV7l6G`0V?o&hv<=7@0GWh13<HpPh(qOoOa+j^05Tgu#-qT>
zA^wyLnkP_3CBU=*85kfl17vJ~Ob(FY0Wv>8MhM6h0U4y8(F%Z!6Of52urdu+po|uf
z=?W^{v3x?ttU%fWkYNKdZ*i5kh*U9}1Gh<bpO$$F#cmVb=wGzVquFk8Bn{b<dyLeu
zR?OzYIwHZCP~wfJ#35SQOl=}rU^d=|<;a#u1SO^7*USLIt`wfVyoN=|(kKC%oljO5
zM2Xat5@WR?4K*-Q22}O#I>RCDNmxK40}@;u;sdG#psE0>ke*fE`P77}BA|+@3kPDY
zuX_*P!!nyX?q+w~v~RwHbGj7V%D?2Fx#nVegOCQBYkX2QC%&lXHQ~3S<RMz4LFtHm
zp=1uF1ZdWqXpJ&%d{JV&fhE&}vFQmUpejm<0)z!5vVcMXi7y~~Kve-$AwbmvRJnL2
zP8C(h4MfM?O%2>|XyZ^0{>Tj+?$oq%*qJ*CCC(M)+H!p1oLpHCRl&)xE-A3&7cnWY
z_Qp&ybZ_~Dsw0lVkr9fZ(CkiCbitz8-6^G_j!-HJ&5pS%oO&y~=3uZ409`<{BW>YA
zYGU*QMM?TzlPYpnINF1vLMVEKqD*M5v@(x4^ExHXLpIZfvH@taneKOIWO*_VKt=+{
zQ~((aAhQ8vA9_}~%9Y#}b0Sbi1<14nl~EuWeC2$-p2_e4nI9k{1Z0W|q!9p_B_QJj
zWTFBZ0+6`^GFow!<SIyJ40Ij+Onns%LZHk$Md?-*xsB{TrhUZ@wsyJg+1kpBdb{sY
z)bt)|Xkw|MYxbgLB&3997gejxGR#<%Y^!MWAz@$|*W>B}=FyQ}ywj=zj4CJ5RFBFI
zbn0^{QqL$8kl=vC2UH0_RS{4yplSsqol-?{6pI=J?mfDxfeF0+Z!O|ZEDq~9zusAj
z?4PnKOwV0t&GDL_&Ue-J9+OX9)xN1xkPnKSP=u`tiH49rQUNHnfMz{I3<2`oY}sA;
zP)8^gg+{MPl@(qyX^ZAlIJ$tM5NNiUt(?&hG`0%R6yH%7G#hSJ3ffb+kIPDalqp)X
zIxX`+!!+0bz&z3zQ*l7Ks_a3sRPNl=2Fd_sFp7!R0T~Y<69QyNfXoT#+ILW%GB7}9
z2FTa|nH(U))3eG<EeU}s5-5WNWR`%86Of52kcI$cu7Hddkm&+4U_fT9XEX;Olh!i~
zTO2I{$jAkig>1Qv>^^!A?mo2U=xf{BIHZa<rABNnrMZWizPaXFXAD?sZW5`vJ(rM)
zk_VKGpyVc6a}HT?velh1cpaOJle{^KNxetf1A<AFLo`WVxdkZ|NmvCUG9bYLi4Uj}
z3Zz^?<<zaXt~<o;J#=1D^|czx1>PEY2`{n<+)+;6hEP>%kYY-<Zi!EPD2bq?gpwRe
z9#ArZk{gsPq1o=XQe~rVs6<{ui3mxFv0IoXpfGAVs6>{4fW%bH%H;q>k>G&DPf^kv
zjH&{s3IVE?IEq#jstBl}s6h}D*Y2CGJ#4gUkF~iq?iRK(mX%pk$v(VkaI%}X?*bPE
zxSLgA=_n~E*W8*^DXVC9rxD|h)SBJU(^Im8W-E63PUb(F%3?ce-bIxbp%h+o;ys#8
zrDyvX(QFDwc!k@Z6(_so77eUCsTwp}2UQ3)r6HjxmimT0Cx?Vl6G&TnR=I*FW0n2{
zmGvoc(&wat?5Bge3o7q@DeKA(iON&^0BR*bZKc4<&WbHf&(wyBi5>v8r=W80PBl^s
z18QeLtqrKn#i0poD;Ypq*J|y)!6IYpVS_~*`>lHAY#q5?-@3(e&1Ec^qwtkaskO|j
z0t(Bs5|rmE7q7`O9bzUUQ-hHRN=k*>3!_U?Q;{2#EcJAfsf;Y=YpE&=aiGWqMKEZ#
z!y09YBCMzvU=$PC6|-hRNcm77Xzi8O$XRo7YKm^9lhj?NO$#ZAK&eU3P!=GS0a6?w
z^#M{MAWcpxr0$7YD;*60s2Kn?2B0PZ)G&aW2T&scYAQetCZO5$tg@J=XKF}5&8cT7
z0Z`KdUH4g)PK~WT3y40et=qm`8+&$bwR?7L>a*J75HR;ciXBDmz7*Tau_usgZcB!v
z25GLjzoP~rx~NyjqHz?HETH70?=`D+(PJnT1wbi<ri-O#%8Ip#G-AQ1zLH5mQK~Ox
z36K(ytm3+_hAWEdAfP6SLVW<$3Q*n9lOXie-c3*K=&8L{PwmoEd+4d1H?Q`N)*@HU
zc&SM}Vy?M8=}G3;><Ov9XRpQjP8w1FV2$)g7EtnmX4eK4hiswQ%WI@n4;r(5%8J9{
zX<&p=+e;=ul8K|N1nIYFBrBXG1|&Bi=>gS2ffNa-K7eWkK-EtPLQfst^wfc#bk?it
z{1<;Mx}iDS@ate^#_nm6MQWyFt(@S^x3kII#uhC58k~{IwQ)~}eHJY~a>B5{6t2wH
zYB@*8#U(%PDKlfq<%%6%$>>N*mWrC)YsjFo`MAO<Ppb12OiHGBC^A5^wfZnmg=aH&
zH31TedbX|*1XhUCDmUbZW?S_#_Ut!|6qAZUv$Gyy>?)VaLa8w{I~t@A6rd3Ibdm~v
zKv4=5&FHDmw#D}tX7xQ=9#^eVo~RcI6(?H}(f904Me?9ug?P6jOiSU}2^YzL_7&4^
ztsH0!Xm;Z@@|T?1P4>uBG@IUr{Gv3UsJjZ~PixBQqsOEnQ-7WML6|h?R_67|T`MO{
zQXh#uVVkll87%Dz$ie{G86a!Zv&xHr>|OQ;$O;9O)8vXNyHp_73CKnPSt=lV)w9ZP
zMy0GPhX_)!m5cYvMV1Z7z5!V|AX^8zHsDeq)=!{(K+kA&K>h&8D**Y1o>eYJC9bkm
zFZIZC0QrvqF9PICfIJG2Ujgziao7MLPg7v!KtoDUIdYQ{U<pK#H!1->3CJ@6`6nPR
zRUp0!$YT|V-vaVpKt2q}lLeJmu+)s$1%dK#Kz>e#liXbsBYwxMs>ji9uIXQ8=AF~2
z({$i85lz3D$fkt(>NBNEB))R4v@4;GndWu46vtIUhF6v1UwBiZnk~k>N=#|0wiqMf
z&^@{(916b&9poPBAiEL{g&n#FB@W%g3HR(F;hrSivxkIxD&d~f_pO^Immj)UzGb{z
zD?e1-Vty#!354<l%43DJjK|raQZtX`Yyg}x0F(`&%+P(xQ$I$>)6OxZ=gaqU=TCk&
z@|1j`J>}b(^6eZ$hRQ~xM}Cmbx#rQVv^t1?*%{aTAhenvL~RG@c<Ue?Z|$8Q)Vb46
zV<rEfPRfV!oiHd5pgg5~C`BnU^%B4-C7|?_FG%G#Co^#QI%b?h$1<F}PA})<^fKl1
zqik40zB#8!c_wd)51&oStJA2NG$|*6>Y0u+SEtL&t}0C&XV#k{(K)=;UgAZQ1r}~1
z<h4!E!R8b16U7|cYVE~RdwQcHsx-kdXof!zG%=_}2Oa~BI#{xUk|&gmq2#V`FKDUj
zrZ8yj{R`!s?NKUK?QTi+prDw@2t`n6w!)!2ksFHeP-+0B8c^y2&3^1J22(wyetK#N
zH6NtDYE>$!Rt4asCk0jxyor<M0O?O0H3p<hKpIWY()y9KtH8=pcX3_!KU9KruLQIJ
zpmqSdHf@xdS_V-20BR*gK?Q(XOwTHBgNms(1k{p%+7nQ#0%}`8Eexog0kt-uHV4%5
z*swrTPpP8DSfo$_C$m|oN#e@+lx&hTMW<L-oZn|Cmsr~=<#;7Xi>|d5mrd9HpoVOb
zG*A-id(E<x!m}S{lXa3Ul)Od#qN(4*q%0bOvRcCyWj8Qt)vjNTkl9H-KvDvdRa|9F
zO3x%cpgN>yX?Rq9;8ZIC<<a7)im4mQckhPOefH1|rBNvkUq&~ifvdV3D$w0&)T-)+
z3hM3((cKlQyJvNGN?+-sySm6U@Ts3BLF(=_U{;rt?dVpO6Fa&Qy?Ze|6rtRkox3Ig
z)wySbe^u_W>=tH%l}Mlbnn7DxXP9Zsd|F_G@;zH%i%uzw;`@!Sj*cv#*^g3$X+-Cy
zJjokcIgO5)#Cd5-(dvVMwuGulB@-aY0Ldq=((0*Sp*R91Hz4T&)d5gV1eB@3uJhTL
ziK-ZC)vJEBp0Zc{Dm}%k{#l>tDB;`7o9|$W*_|$%;WC&!QA}fZJQ!_#G+k&a-Qm
zFLRu$B)ev*O24F1WVbI@q%-4(NC@WICBLCUEObGRsTY!7$Q()uP>O+47BpK`3XNB5
zQ{S_tPNgDirK(w8P&jfb+{c3y2eB3I7v^}XvZxA_`Y4VM0I6K62c?ebsY0l<Y}y
zKp|)Vn(ZSiezyCga8v`$jzB6tnu4M(D9X|InqPL5wCE9<?JI=_ln=UvW&>vot_nfl
zdg`}F<$(I3w1L7s#Hw7HMAU=2LTDj{Sdwb3DlJVX>Nn5mJXJ2u38hW3X($#aTS+#Z
zHWy_$vPRk!kP!hgB|rwHK+H-|v0HI6G(hGijs_Oc!hj4AkQo9pMsc*Vo?)1P%oC82
z>RIKbBb82DD+-Mb$b=OWLk48dfQ%ZDX#+BFKxVGM%Fjh8P=*i4`~f)uAXfn75CAlJ
zV&%kR>bGfr#iacKISl|!T;+$tR24ZBAeRE<Sb*FM==!-L#gxMVayvlI2gn5#h$8}W
zM?g*q$Tjs02Nj1+=ov;Kz-0kBE+F?+VC5i>lFOk1xiui?7F2#LNu1mrkkixs2o~&H
zH&gfSM20sxI|OYD#T(-kG0wD`PI)oJ=uCRmCv`A2ou8bENOGo0*q>2+vi$+tbv=k0
z$4n&6XJKSal1a@%27sjdML?^6<kdcZ-?|woR~KVg4#~H12wHteZ4;|MA&RK0A=Quq
zTDxkdeuiA2WCbNZD49aZnZ|`u0TmfNkL*$91Cl~eIbo=nk_+fsvXQMyQb6(ok{Xcg
zfNG%1sUm5b)!uy?qc!0krZQR<Zr6N<1Zn!CHPPyUH(L{}8hB$(G(~So>kxhk<u7$t
z)+F*RdI@bI_ZGbzwxs2Vd`rH17MJ3arZSVON~4LLrgLnxa%Pc)C0!q_&Q+|!N}67!
zrFmj$%%-fmMiM|P$5F|oHxJ5Vb+)lKUW^Z8)mCG5!VxO<5?O5pz$v8yd4`r#HqvrS
zURuqxl~pHOZSO9umfT4oEw^-6Lk}uY?OS3p+fp-`RXH`2*)FwJO=d%FtX$QqEyYOt
zZe{XM!z<DxwP~`^lKr43iXiQb{OUfBcW4>1)A*#g>X<ta!Xqfpm3D~MF^EZ8Xi{Qf
zhor>94pJhK0p$iLPX!Val?vwWTQ|K5>)dsxF}n@hd6!{(kX@~CQKXhmhy^7ol=x5*
zK}iWEIg~u0WCSHQ#DY?$3aJrG%R4GpVv!{v830KFNFG2^0g?@ngn;Cv0!iFtWQER=
z`qK-wf=gr`KzWKFP|^~oGX#+YFtR+QC&QFYGW|m5m>$}&ld#S)v|(D+>ZvrXXOT8c
zztFjpl-E-{sgS3VYA3bR_oR|Sls-vCHX+sMU3-v9e>-CIu1Gan%~M;Nv{D$otEA#-
z=xSW^xbMYNNMT$vl&8dohE(H1SK?ZTAgOpJsgzA}$inz;4k<?&&zqwDN=21JCN~(5
zoQ3f^6@sASw;Mfn{J7z}c6R1liUs!*)#fe-AQqIUP~t;L1SO@y#|?*)2b7GU<OU^6
zQ7>O={GbFV#Xu=bDsit<7$23C`$#BNlJWov2uMso!U7Um&nOg-_<$+_s49ReB%oS=
zDhH^FfGUdq1kHWxX0K7h$kAhWo(!t64^VLmfKm#SqM(!qrBLXUQjuJ)Gu#m>rKsY7
zst-sBfK&nep!#O(Ti36mz7gtiYK{NLSkDMjjT<pcCO<-5i}IUPYZyVg@g%2J1vO%I
z{xq><!s9xVSe-vrEZO6DGD%`}4x6QK-L$IRsO>sChpF@KNm-)^CkB*gP~t*KAUaIF
z8?+}ijUrHat4xvtDhE($fXYM=L5#-Lb0v+gm3dOv$f_w4cA0uDxeGF23u)Z^@77w>
zCDk7^n<&3}4N2u!){wf&*CeMU{ZK}}rBuC$l;V@7vXE4jhCZ*P)udAE%zf+nl90}0
zgojlfcq4>*5DeuRH0#u4ibRDHA5BA1oN`FDDM`1=4p63mvIbNDpkh$5Am$K?W&8W@
zC992zNtsY``ajB4vnpo_6KE%i6hlXj*NlX3RkhT95>KE!h7yNTpi#=usM%0BWdJA}
zK$($!$}<fzrD5p1de*1*8^$0rtagw|v(sVH|FHDN(Na>+EJcjmW!ItMjMV~a^dJhf
zcJxs5kPJ#%C>cP>Md2eg$00u`nL^2#YC)q~!=qXnB~-qu)qRvuV@fUoB><8Ukfea*
z)iX)~Bs-uQpp{gS<Q1jyaVWAz=h8C|pgct^C~0Yz=-5iqFN```r6<FbO`2iw3zxO}
zOw(4K_i5AIH7zmaTXfnGN(n954^>kRX~VV3-I}UQGj+>WnYEN-{!s4jib~&uJ1UE^
ze3ArdLf`#Gpof<L&Hr0G|F3?_k_T7bvbwxiZ&@uJk^7KtwHQJzhSVx&h@uaP=-R5S
zw$GtN*FJ641Zb$D4~_n8c;~J$)gGR7DKl&tE)(Mcl&5GEnp$pn%vguZK8PiYP<mQU
z5ao~RR{ki;A5~laD3w1dqL1ztJ^LeMRpRQ8khP3PTwVo7=QMk(eh51{ZJFzxDcy1)
zR;r7fh6GSjQ444^^yuzBEFpUE;WVL@504(^(mTiXP<on;k0V;ACW5u4OOvBJHIs!#
zjmLJY@mLfzwl>?bs&VY}wv6i*eH_udNujcdmu#{79Jq)1ucp3iwkLh!ceO=pt~@?Y
z1rW_%JwEAE{@haQ&!Nxp-QQ>>L=SJZDQ`6s36iinW>9Ub*%5=P_SNZv7Ms>y-J<V>
zD)y=se=kMfD~ZKVja0?ghI#exapiSxBA*N=?Uu(bwi8y@CrenVPq&1sPjev+bh(x?
ziw-ile6B?*%V|nWs1)Z*vtF4XgqWBGRIWuN_0<5J@{xy;8=yQDg_t;+ASo|beFQ+?
zD@Opj1k52D=U&xC=SnSUot-a9GRZ-h<gk2Nt0Iny;z5$8q}i`h0!ptg8i?|%cWG39
zWtXO_eC^WY+S2%!Z!VNLv#M*BTx!s?DW7kaBze8;@f1oFDDj{~hGu7a6`t*CXeBPY
zB&t;82hHxTs21@niR7H7Ux4aF=76LCB#Y`)IZLZ&k`9oJdRDm*s^pRyknDhJfGz|{
z7wJdWGDDWtRVI--E0a&|q)DWs7peyg*;-}5C@6Y*Kh=Q2@4jo!QE0F3BvX9SR65G4
zH26ZhdP@?>zY5*c^^iu<iKpnr>K4_sxYD9UiKQQqE2>3_m!emXV~SoG$GW0x94p2+
zRvb%|Oh<}d>G!&#tKTb*O_eS+S399b=CqHC$EOafB#F`-D|v4?p%W_ete`Amr9rwS
zRI4;=YTqkgVs5R@q$@^R!Ayn3L|VpHN{(&Ek>Qa_j#FxV8LeDNHbtFt<L5JKX`z)J
zRDB8=W&wF_(Q%HIzd6DQZ|=h8bgLl6Ec#0&pc|j1%${f1Jv=KidtUfn##zx>${&`t
zlC~>Kmbfb<t6HT>U5~P&yF#)`75Le=?*A7Mxl||<+`(}X_K9-&GFO)Q8GU{btC`a&
zN>mBq#~BNpW5|`8`SBk#N$T2wd^^9G#GiWUO4CCK+41)}DByc#6ZCx%TbucfdVatz
zUu<UYkGwm$&{NXMM~+?b165T41>_=QcJ(+L+NR9DA5v;=D;23{C7167l$*KEK`!4b
z7}LY<;{UL|3S0f9+oNRE>1Ec3+tvGGy-;H6slTT_+dqmt`QoTY&v_wQBLk)c#YXh~
z2k&r1D#gdve{_7s#1577k4hCfiSbI>z;U5?FBBJ6K0covdJCyybW$oD1)AMiQ8-qr
zaPQ+Q6%CuH;$wi&A6Ivkj&DNoupg1?r<J1of1HLVHUCM~?WE>EsqrVbJd<j%lPZ7Y
zKV__9QZ0N^bsKe=RBxSB4gZ`{CRNWrr>sfU_RlHnr|Eo3N;oAoKdHT6XkMPnSPx~u
z7xkz*`9iA8tsY0zF4<px)=0#}3d-zCQdu^QXiT=C%($RTyA<M+RPpYm_{>0{St{km
zJPgY037Y+sjlMHmgJyq@DpG}n%9&{#l(`&~2_2MK9h9jZl=&UBR(n6KtjH&{q3_HL
zp-c~zf6ZU83kg*U6G<quNhnh{X!cu{(q!$}9l1^JQY3A54p6c&pM_>WJ*w|aZ=u=W
zRE)Yrs!7$`lrQW15~}}UHV$P<4rN{rWeyExhAwIgiI$C-&*ZT4@0VDuTYYEhpQH-C
z{jwpd7ZZLcvwkS=9MJ5K*6Dlpm%8;myPKz&yp|}Y{VV)2X04Kw_Z7vl<O=7-L*dQR
zAulq}?Bu6Hc&`zyxzVS5vQ-@A##;}RS08Bh!@vsXO-SKBxIU?+gl#Jo?@Z9lA0-tp
zRnW{TqLlAjZ={M^OG4hjpuC1bYkQa}S(fC_msBra^q{={L3syMi0_(9!mPjjX>BxR
zN~!kW@I*<=+bWb-)~Z@W8%-Ij4oe6PgjN;8doq;wVtw~p+kX#{%>UPW@lVV7mr6BR
zBxG?5EotqOl`X9b18`dA0<_EpXiY&;SOrO3Bw!ItQKm%9w8YE0flB9<9?$|4prt54
zi%jBpy#}DQpyXPb6YzcuXw3}xap`_)vC<h+s8lRVZ*W?GQ?V>609qIXx-Pp*q^=)^
z*NU{34FRpR0a}U!w2%mBIT6rOn4ZxA16p8IAj^yiQf;*|2>0V^o0^!l1`=pB5YVFD
z|DF727MsMKl*aj~<^9xFQF#odldRVNU*!C$PV!Uh=koqX=Jr#a>!(`J|DQeB&uk+n
z|Ec|_lmFDF`ejQ0|62H;>Ri8!>V9gM?$T4o!qi;@5yL0|O@Va7(HT$vK*_@9on=Xb
zBBQBfVe1Oe1{R=gEI^xCfVQ*%ZEOKh4f@*T0<_fyXu}K8wwD6CUzk#I-U*ysQM9S0
zn5@76+7tt{Sq5m!4A91zxQfoK$dn5!F+9_@8lcTJKwE5pHrfDfw*lI81G-fHGfP)y
z+HFgDHYbkN8943UrDy3!ezdg*rwu*;nu=wOMp0O#0krW4Kov!sfI!zpbp>i$5YXlz
zFeQssRk*Y#?P>=Q(B>ncO-VpolYllT^^7H)#C5aepQ`Jm$p3ZeJqj;h(UvQqjaNY1
zuYfjT0jTt%4Ov0OP^OrVrDD4ap};N=NKvL>r=z;_H~*69vmyki-C#hQ(SWw30c}j{
zS>>;+$qKYpt!JzZ0ot|(w0R9^3meczwgOom0<@_OKvOTp3K5((sP&9BB0yW-fHuAX
zZGVgF{v$xi23acNnKs7-EEWOZ`wOV4*vk9L&nz}s4_oajkHsTE+wLm1^3!W7Ph0Z<
zQ~>SKWs-W>zE8=sAG%Ws+Rz8Itq*jW#{af-H3xsdEY+O_CODlZ0Cda%&|w1wa^wKe
z!2<yLGgbaSDz>(Nkqzpw1fU}mfDTRoIz9nF1yIG*feOJCbSE2_m8Is;5e`5HIRKsI
zP$275;(k=1YV_k)Tz-6>Q!M5b5T0XuQfoRY)>`v3O1fB)ej150X6dJtT6M-Oojb4n
zJ*8fG5~eeK-D7ZkET@B{X)ldfI^XD3d#%lpiq$lzORqkknw4Jpfu(MFSDjB~NvrCF
zTb8hL2c%oV_(hR)Vz0IO$f(j)j*NDt(UH;CT)Lyvnkyn}DSi^8HJ2)*Y7h?Pp%z5>
zg{i0#A-;ASn+E#P1=7lXNuY&808Y6A%3G#N34qE`Af*8+GaYp;$I-#o>Vy1}yK<1f
zOK#t2)j_^;OChyRS?!k&>!*W!=~$)In0CmBr3#gG0+s|&Qt2QcPj%?B+){mvPy*Ck
z4(gV7<%W<-FY4TQzIzOvp44H>qK>84mM(RYN~QBON*`a<#98T;v)tYCt{mu2x0Aai
z)UnITPwaFh)QR)4`iUK`GpWS38eh;!&>CN8lP=Tsi&|eGA@>xz&RZ&B&7Fp>gsBnY
zVgn`iQo?lXy?YD<>(D{aj<HfyTWY2@H4_P>s1E&B8Z`ZaL3?v6zfjrERD(a1(@{vj
zc*L|?P1`Q}<T;c`P+~%}AGFk_1PP&}hGtt^3MVs#*ZgpcOoRfUl!63MnJNXywgEUv
z14t%7k||2%hj3-$k`<7|faDfb{t$xlR80ib2T-j5)eWBzxZ?cTpEh3T+VcF!SN!SC
z+KS5!oBgXT;gS+Q`?XBjT(&bGm6CGE3`&lQ=^YX&J^PgxRh+VrhqBU%bwILG5C9b?
z$$+jOWmE#m3P@r=as!fH&nOX4O#szLT;)eaRB=@?bz&XWr<7%Sl~c+cveESCx^+sK
z-?WjHjT#kQ^(Z~mJ(N+2q=WxmUG=C@vY1i2bw~oy)Kx=MnPaPex2ndW#wyz?UsCkK
zK%KiT@WTi?!aR_F*}3b&K%y50BE>*;1;kVILCP_UK8Wwx$>@T9Ot6rCOi&I%JVj5A
znnka6(t>{2s!-*h5nZE9b@Xh6sfyk;xD@!4tli_oX9v`)(@=|i*UuUh(s}Lba{eE0
zZ`#|)vaIVZz`h4q7dC9ezV@|07=}L>#)Wqe8hY@L@c~7#TilBxwMeOl^XvUQZ)6p#
z$f88`+WRzG5v<CXGBR?ktgP;Zi2+Y-)Ap2=3l=8$96RUgyubFV?uH}xC<P$DyA32&
zKMm0C<MEabd_b6i-I?vyb7TP#2poT+-oUL9ubQc`B7#gaKpF$mB#?%IG|#mD2q0rr
zgF%`N(s+<r0PR0dZ^W9bDgig44?WYpQ#SBS9TVm!PA=Zi8t_d6KN0--Gv~g3y3SXs
zxx-P~d|Sz{nsMe3A1}TBeD(R_1I@(+Uk>Aa1#%5{e5l_L1VkDTkwE0;w|+w&5H-Tl
z<{v9Ossr^TMgXw{h&jOS5GwCrop;(<bLDw?yK|q1x=igFAb*n|DMw$es)zDQ?hXa^
zH(3UDpK;d)JOJ#D`t>&s@qRn4Mw{^u5GVP&eITiLg<bn@DlP=#NAI^hR_rMm-x5Fd
zUWnzB_(=n9VNvoHnQ?%FK^9-Gx(^>3O%|xAU+YU7*Pm`<{8-$g{>a~m?$3ad-CzJ2
z5+DNuwEyz63^-oxK#^esGI&J&Y3%8)`Y&iiCZQz*0R}S6Kn5GgkOLWbUiAlGd1WYq
z3`no~!-!=!L_r2B$Z!Q2v|bUqAOjd=7=sLE5#<3gutA2mH~UXF$!@??%S4aA|Mve<
zEFW22!&#hC_!)aI`8d-RCmrLXYd$RYjzVD(_4+d(ZMnMS5UY25w)7((kxaRdYK@VJ
zFd!0zt#%k2C=j;VWGecAC<US!h<bmIzW8Xngh@c`lBR8kFvhx%3>b$P48&?6rUSd0
zWo(lZAlU(uCm<Q~PCK5?J6#>GNG_YJ?hI>(5^#kQ+UrwF?#{QD9v=a5l=s^v8Gqw9
zAkGUcYyFKcz0-Y!i270=!m(hgz8GYd63DUwSz@C8TxpBhG89pgAj=bEse&w9kR@yy
zKK81QQ6tEb2U-3gqX1+qi25%ZBo6!2uoGms8xrFMWYl<t$3aFA$T$KSO{VpWYu+@z
zKt>tJSo5l1yibmZK5iO=lHh)j@dz?1LB=M?2o+HVAfpvz%zCpvE^PdAWfX&q<)Fwk
zuDLS0y-7JxQAE`pIfEK@N8QYE&>ih3jTdhmZw<-2@z#L6PGfXjdhy0D@bFp8&sQ8$
zMZGuZxS3ALz$YCD5wQDAPzAC<)P2&ls+0kU93aAg-3eRLBO8bUe-F-J*MNju8bPhW
z1=<ACGOzlt80#Kw1!*xzyFpqHG7lhg0y00Q^=+Exdz;0|IITAyPUMiuD`NICr>?Tj
zn2c-cn^BKi^}A}PsW6(6wrQ?1B}ABT)ZSRnPyj@W^{l?4fr4Z_M~ZP_2DC|pWoDrN
zyrXH_nzUqGyS+jo$UKPpI%qtZE0B33<DweL?KA%Q-DR~4|A2h!m8*8tX64ubLB2Vz
zp#MkZST|guOGFkxW+Yj?@K^$Km8z2y&$_zcG`Am1`|AG1;KVb}+_-rAp0f;DWyEfN
z8wu@rGVhQE?2f>!>fn9o$ziQfD#0=ZVU6NI3XN?EZ542(8Z3=AUiXEgeV}Tjx8hAd
zl8To4o|MF;#UPPWEu<kZVpt!5#>vbm?_Rg}F)s%BcV6H?Kc~0JIBaj?G#L9f=YY|M
zhuzqv(RGhQjos4Ep+?t#7$a8R>!>$W4}4yI-~)Ld9`y!Inv3U-dV^*-C+f1$&xsDQ
zP;(+DpE5epJhV0E?zzyGLBQBd0|71zhtwv-3Ff2_r-h%))07a`N#1{|Nn;M38~Sph
z<Sev0bnc=Kog2|p7X7?spW`g5IeEFb@-=T5J)?fPeq4Or&T{w~w^9m59jV$nKKY(I
zZ~$Qg!V5$I5Gg=J0g(qpC=kiy4M?D>GSPdHQz;Pc&Hb_YTxpRA1t6^hX(LEWLD~z_
zYLK>r%mH;E8A(Luh3Z4E^ppDouk7EfzQ|hQkgt0kc~Gdegy<PIkn?`JZ2`aHJ6nqG
zOe}ka?iG2%q@G&I6ECFQQULZV2Ba{u5t*qUmzSCKjipzAQX@a*LL=|nOV@5iTmfx*
z<VT>Wn#JJ+*Xl75DEl*vF6s=Up*!TCXc305UdR7e!-bV7f^owCVbuRu_a4k}@s_Wl
zbRPB07;fm%(Fbw#Yj=kF(686kHfCW@IpkkyAZ3D-j5kE(jl*VZqRHAHJ9F_CCytvr
z`MZ_*L4af>+g5|ZOS|yloeRxJ6x@4f-ru><jQHf&azzsmE=m`O5X$w#p-a_1;nHYV
zEDWwfahT26>WSvimaq=JxyT~%u*kc^0tV*q552kIbeOU9?i85;d7UCt<=dYn250i?
zO5WQu&JTm$Q>{c4CD2CX*%QMq-X3~v!dp5jN7m32-@m)J-{nUv8=gwzZ&E1_Ac`f9
zHTMRVoFMs$uZT&J-49pvtOXi0F%rq~H7@O;KLK-JM@#J6siGiYx(@r$Obv$%1A!GV
z_lM(vxZ`*n5ZQJq_Z_1TRE8lS<3vLkMq9)CJf*`YHxrCEXuKJRe;99MylMH(aXo{O
z3B~xho^i2^j_Yap{c}S5pJ@McLi?X;&vBH<eVkx?gz<5L@lnRdrt#YZ<2M+;O)!3w
z@mpj3F~Rr)MnBtg=!PFM=3t!*jv5-5OuqoV4;4ombtKV6jwBiu<b*eLL>)<V@zzIK
zL-Ou1*1)3u6D-IN11$XHB4drcMT66XD*L;`0F!Ydz`|&N!H}lxu%IRi$?|zy<-@+d
zL56I+U4-wuFHgU@$m4~q#MewZGekb;`2GVc9~^M)I$R#Fu$#$N;hoQ_NC!d$gc1n3
zzuS6`Geo!pYsy?xU@5zgJ2-qqHn98TWLCcOTm>x|>w;)jv<9S2AT0xFpI7}VjaOP6
z)E&<)gLwd%6VQHLQJLn=9ud?s{*jM{vH<##<;xG(`Rd#_;~M;?Ek~KD?z5|At^1Zj
zbzV{;2Z%5r5`l;Xc3;VMD1#PSEg<%wD@#xyu7FN(fX@50Op<<0(#&ZqNQ*`218F_T
zJb=sz$ozoJ70A4iaZ$@SAH#hA`NPFED_!g_%GhmG;%2s6889P|n~}D5SS9Po84*C_
z01*c4)+TEfspRf8IM)Q~=zcPuH31OT0YyMFpk<<dO~CAEt2a>x(r%E}gUkcSoQTK|
z$XtQU8yOe%8Naw@X_s#+Tz{zVp^i&@m~k`sxn<DbFaqHQc56hIe)koQDtBp+Elu~;
zRWe>5A3c@vWDZrB3{1hJj4N#gX)#E<L0S(o4<K{mO>~0H70A3<;%3p#`Q2!?YvW*N
zJ<&MS{t;T0HrwSp4iI+DWXIUAwe4G#FuLH@H1fvKfKhEWM}4#B0aUdeBF&M_-kYkG
zeAwmciX*JvUtE8_xcZ!hCU*bY9JP0{^)p2JxjiDcbl?HP=<gP;-bar2+qztpX;E56
zC;+0xGRhhgTJj(Tgd?>Eq)mDk%Rt&ELK#R~z3LYz!iPfB$OFinfXt6KQ3^6|lu@#1
z8NDBMV0z3!RNsm1J(l&HK~FX+BKi8_+4EG%q+fYI94JcO4;1(04iurY8@liza~A;i
zf!(f+3s3mENbl!{jf-WL-7a~_%N5>_e5r)Zsrs9@u`Io|F~|DRoi$UfrZnSa`nqrV
zAO_fd)yCgQ4U`M{lv^!1BR|~;2<K`BNMk^n1ky0jegWDvO-))B+BBOhjrV4c!j2*e
z%v_~4VY}6*Pi)#^2RPqgz08A4Uhgxnquo`u7u`p_jZS!g?)IW_Y^M--zkA=mS`hPx
zSns!Y{JoDBaty>ev}9Ng;!0~k+N9-J2GTwe%0Su*(qa+%Kw58FeSOTFaAkf>BUd2v
zM#e=6iEMo8LSne_>B5aq7ulOu8=peXxu^RGvN`Ezp6;=^7@nT$eBe_Zcy{s0#H>jr
z;D@treDcW+I6!;?1F%2vEM@bVR|Ky4l=1t|*B|&!SbTl)Ic3w{B)3$$lO1d!AP2$&
z>^{0|sdNv_q(PW8?Gd$FyU(7<g%+bRu0~fL=Yw=$|Js5c*D{dyfwU5&t)l+fQCblc
za??CWNlrlKN7SDc=%6N9v=#aMcIa(4qS%V`9(Oa!MK+_vsWstGDb2qOO3A}rzc9A_
z;s|{%k4L-CzfjNTU$Tfi|FZN86fTfm%sr$P$Zu`~NdrOvgbD~LaJ0k;sgp_&xdD2p
zqe4N72B`p~8nP(Lw0gebnC$r@@-F6^Xx{LfyFikFqze}wxC|ww0z?w@S(F2D1r#X_
zq)ZW%C=*paH|xjkY(krhf}{Z<073<X6bL;!fe1wBI{D1k8@TYMLP3fKsQ{!JR7aad
zxp>GFqixvna9Afq{WN7^v3R`mA{%|2tH5BB{be{+NwId*lrQpFs9&4{f4RuI-q*L-
zxWjBdgP}Xy_cLsONb&yBS2Uo>x*iC_6#!BUNMU3{6!H5wSw{Rhu>p@hdm$Q<+2yc1
zv#;vAv!$6`lG&x*8DGHAseioDiCyF6dXD3gerD-@tcz^L%DBYo<r`0a{0|p@{BiFX
z=VDJ0vdrDvY6hOljx8WwgF%>e6kv?yJFR==D}JvjnYCh9Djt47Lu2{C#R2_>>#y*9
z9rJ9s+<e8@%~wBJ;yUwqwR@F{@{e8NMu~;=k6zRE`vA$ncJXDowjy(7TuxYT#e3LF
z12GT|AZ$Q*sf0jd@`SBc!VLmIKo2BWDM-~I4Iq|dhXry!8&)kNZ)O2?)$86uOhn8m
zkePK12CHPwcJ881zV2M-i#<;r>0IQ)##r*cG2WBg7~g+MP~VSgeCVgm8dUva{Cb$5
z1l)0cjJL1m2ZrS5P6e%LQsEsucLwF&z&j1ROXcB|=?oP2iM8AX!=Fn1)5hlF-p>#N
z`3(aQE{YIXI{!S-*^iC)Vr!)<<ZF){?@YAbbw`e0tSu&M-P$9^*SCqd_2}u)dZ{UE
zqlpCItDpbCX6*nGM+yhM?%_^ykv*PWE^NB`;kSD{FVghae(6;F-TZF0UN2TWDthpP
z2^YJ$8Of&yNaGF!K&XI_0-+Z!^gEnD*n!=nEqiXH*`wuq3P`&%YasHZMv!_zY6ocp
zNJ~UW1!)yX+dx_f(#~{x4|nNrcYNw(wfyoEofo?l!p=hAHn96Vi<WlZ8nD_!Z&m;D
z6M=Bu$GUvZNO9a$C}{uj0IRxcP#tZy@H;-XVg&DWY*ynEq{ALWqY|V$O@ILimqEI`
z|Ifew_TOCWEb9GJ#@#yZ*Uh8=Nd~?;nqW?*);3P+0R2)>r8@2&p0?whCXSxC_q3%-
zJX!n~yNB3r@xuUwi<|-zYL6EAFw`CsYLAW>NCQFu{7a#RAoC3(!)gSn7xY&`EmiAr
zJ7^$WY~9j^#V?OWfa~FpdV}GeZU581It1&g;uF9BmA}3nf08F2{8t$N)yDi^7je{+
z1`i$e6h}SjDAN8hjzW-*0^u4p{$m_P&j01|Z#SD;D<nUN2q3??2P6SVDscfsr^FZ{
z;z~}C{M0m&L&D3yJ#4B5@GBCHF>V4$QDRq1tk!8d<%!&f$b}5KiUBDM@gfVBmv<<b
zOFAc)pd8+Hk1a3Vihh}qolh*^ymPL2`G!3uyw1S(>Wk|uUUkb1Fkk#831dhHLIi{o
z2sscQAdKE`i{Yjs$JDm&WGZ5T$OfXo-<c}{F<%4B8i*^c0cjIR%Rt%((n^rFn$~X%
zH%;p$ArGdZ5@dcr<_cuq@RP{38Wdi=XKBiHVZPm-RR-=^AT8fzZ`tnr7iu6ZK=^<#
z1CikUte_*y-)+mOD>>cvu`Ky#T|v#2W3AJSSeNw(P4cQ=Im-+fJ>1k(kOqS^8>I1G
zkp++$0ht}LD$3WGkMerK-g-Wmiz|Hf<MZ{qi%*}f*n7t3Rxdw)zWjL2d(3>SnN82^
zJ;N53iTF0{CEJPFi=|)wsh-knEsFFk#;UQs7Np;?9Y_XDZI5GGTuIsJy+iiA(>Cy0
ze&iNNmVx9ONalff0EioeEn=nbHUSz3-J3Yx_rspr>2G}I?{>#h$Av)r2*jB{JPO3E
z-f3T%t~w<zt_F6S`n`kay)$|Z%KKgXm1mSd;Q+hmFKX<*BP|W3Ce3JLzLF_PV7Hmi
z#}kyS0rl?^ohTwWt+~K71C%mX2Bt<3o*;u1WT=7+Sdd}sRW%=mFjoe$sNboc#Z5w6
zhJL50O^d+}GUP!9z9f`8$VwohDuApIAgcw)$^o*9c$4A>SzSyc06<n9uc$z|nJ08s
zCa$bfAS)Kg>IJfrd6TLJvciF^cBb|39eC4<2(mhYtdw3+HAQ`65$#k~ZdzqQR$P$P
z7i1*{S(QOnXpq$!WaT!kKc!63R(Ft<p7umkU5xXlVHeZQ0S8@-6B}MXN{?huG$ijH
zgbc{*8Ay@4s5&I?p41G;>j`eP<DV`*QYxR``xelLs_)s`+?}s!9ft-8ArNX|TbZ+V
zbYCtp6)~o^2fo%>qyiBQL_ReIsK?%Xs-7!_$b}Bq7?37`G)&YV6yr@z1!*uyvnA<Y
zVaiRkantPJcTr`PZO+%k<Hhy$#noj#YJ8bpy+Dk6)0(zwCaRgM2FN>IL#8{B07MKB
zS;E$ln@L0ikxy2E7=nBs3yHV_8XOv<k(iXLR2t3WN+Z3AB9I1yG#jMxBC_C3w1Lcy
zA!e?aj$F3y3tzgm;4-VVdB&D?aJQ|cU4+X1x~;U@s_`Wrj0R@t)~(Tw=`79T6<KI}
zf+E74<Hgs6W_E0Lq3P0cANYGa4SeVf{I~9*8<KZ>@CMoH_u!FdUL#=iJWS;BDr*Oh
z*fIu#DtR`yFaY5q&%n~@9<ZU#ZV%W%?0yf}W%hs#$-6yZ1M>YIu*>YT8j^SGjRW%9
zXH~{Hu^5tfyEq2qwTmP1{q7CN01zH*miTyakq+}RPv(JSlw=?@KnQ_Q`+F3}Rne{1
z-JXl8^cD9)L<`@!839OfBi|jBBCa$8q%o$U1f*eJ^)YOiYbr>CL7ENHc(2HU2yGy<
zLwqM!%%?7E2Ttc2+f&1-Ti(9(>EdMyKC$oe_S-Bd^Lg~QmpK}nUj{;}y*_dv1xPXw
z8f$L`mGYQ75SA!FgP;Q`47(!JddHjcKEb;5rS!}Fd-|8&v(YVw=RJLBQ3OMj=7T$z
z*D3aoK3MJYmREzBTUviFedcwUXI`!ve|-P$_uu~W<$SZ<^2A|rTOXPJ^0b~mF7pX#
zlFVaUf#0GCQXurg?hyySVFw}uh#(-+fRi7dmga{`CqLT99bJ_`D-hK{^aC*hh$VOu
zh_^IVPlCA8Zjjc4%!8;NwwNDDun1({K;{r+K0(Kytq$c6S7$Kq2?SKF9s%hWklq35
zBaoh=0OK$VaCMh2#a+6jewig47bfqrqNC4uiH_BseqA~Jh5-l{xdb}fzpSPAt^{4G
zA1=KQWDl0!(`;{>_O04oP1sIp-$wgZ?Jx|r8$MTmvpQTcgSGkm8-HCZd-XTOUi}TR
zf3ubS+l5DBT>b5SbH7+WKDkE51sMbKoBKc#fl&B6pSFdT-!K5-BHKVbsUQkh#FbJ(
z$_A;yD|kU_1E~|&i=5bB^%Hx3#fk?sJU_9QCpw>>*!$$~>Tll&s*T~#&&W5-xeFu-
zNIDQAAe81TfhudXB>a?v^-41@kb{6*@*;92vQuW^oT&}U&31=QAOg?S2_-6hWF|`S
zX91%t{^0_~l?xbGg9Qvb4ZcbCj#<Np%j?Ul>&u$?a8LiVbNH*Vx8a8n*v%&$2fzn}
z8HfZRV*K4+)2=%;gR<fvpB&aOTFrVDL@qP~q%j~(@~R(Ods8DpnhMfjkY;;@@gTF1
zn;Ea09Xul{&p41CdZrsl4?MFUNMB`7<dD1@NDs*O1L-Tje|5<gGS0@h;2kqF&Am9X
zMwdFkJyrC(qc_WSFnmCmfk=?1QR;XE0+9+tG!XeXvfkEIa~zpX0GfddGzO$eAPoa)
zo>%ArX{tB-BRwntjh6&vATt6oJ2+BQF*DAp+52Z^)nj++mDzunta?rlS^aE_e8mfD
zcIa0QP_Om_X$P9`Ec}eJpt79XK-%(w3!{Pd2P6!eWJfCY@O`s<AltV2eZIaa<LCO8
z$ykL!K@yO3AVfeYQCi1v%4$%6C_v?alxC?y4pK5%je@e$-5*`RcUE@0KMp<M?hodG
zEb*eF_HvAE)UM-sg2ZLl>3PCc<_SYXCR|nXgwoHpNAnL~ib3zZZBsOVlWGK|oq@)w
zm`K0$8z%EM5hQ6S@@~^mf8S8-i^_(Av0EH>>BGelJ=fg>#)0E94D=}@4EEHS;0*b?
z3C@70pWyhJQrD)3^cGmRK0V+WyjD|soYV~Yx=GD|XFsXA%A{sU-c4!-<oij@RW`#9
z$-80rfV@WFX*}56dG&!vWbf_er;D_8SJ|QoG-TQ=rMeM=2x=fKrnaEBB}4+S+c|9e
zi9jGyfrthopP~m+*vNO5BH~IjKpF$mBuUT$(maqxf;1JR!63~BX}kz!ATt6oJ2oDm
zWc3p#5`Ox`EB#j&oNym=uX2zRP!mUA$4H0KR#E*8pRnx%)*XleA`6H>AX2^G)<!>)
zRkUCT^4%RS(yab?#F&gpAqmnvN&3?VbczOpG+Rn^fy@HPjF^TZvMS1e$Gu6}e1w6S
zbpSDq+rV?SIzjI<ZxP~wj;_wx>U4FxaGKl&pbzeS*49mxuWoI*{aW~K_B%OWUOZ;N
z*>5ho%H|><wsI3lD+QcrzG`z3q`E`_AlpBXt)MOerPgJ?PG{C|zs{ADi>twYosi$V
zZKER}ZriwWhr(5MhU~X(T-COX5k35ULpk6f>utwY^kh>&$2Z&*aOI|etHGv#kpFNN
z(UJQyPTxlTklfdBe%MC+xYDQB{UDxSG{!*u`1~MV9!g$>7Zm`SemciKRV=t>ZsQ{7
zaBzF=;P!ejxYhXUHyS@A?~EUiYdmxzSL%?w8}SXu_anY*UblGvi9-h1#QlzCJgY1B
z%yp~SR##|%5CWkF!s7k*fTF6j)w|n%KCIG_*{w@by=&=E&3deV>%(Bw7?37`Gz_G9
zreP#VQ$hQ^=T>Nq2bl$s83CCcVp-&4&g(avuzTgmo5LhH9wHWTGkG;<q?@yLs!TOj
z)ppxhjVB0FA_s^tU>&G|SblehU-%m><QS+uC`gWTGJw`_Q=2roKVdPg)!{6`JZd*c
z>t#SA$ee)856E2Q=4Tgll12LVYeoozm~c?!P_B;)#{<_H7G|}{;DEtc%2wJgmgMUO
zQrCN)+Cl3W0&=V3h@R_iYvGWG3irXSg)pe+os*i5&)U(ARjz%%;yMFW$0|%P7^|^*
zMM3N63-?n3`OQ5b2|!YDdWD3<Ivs>(<OIo&gCa)5+4MayKxbtSaoYuU?WXQ)N6^<9
zlsIbR>7$GvGH&QBmq{;mV~1;3(28fUgqIwDbTrfPxjfd5X0BZxyUy~MqZ#OQ(AS}3
z-J#Yy^{eFBoTfj&KG=YLu>Hvj2fy$T5U+3(ND7c-AT;<1h)d+bPa>`q08$J{VYo}A
zH5_4&1s`a@%&-kuS6m-#z&@k_t2wA6h!1bBK3`t@>dpsVT>6{|AosMZea);Yij@pP
zAk;uufaCX!ypI^~x97jocki}Hk9?b$%>2}Bo<QV6Ge8;x(j<_Efiw@af4|5y4F+kp
zY5lub3Ns@hvy&#~)AdwVW9UCIt1d*;sbc>wS#=?T9Dk^+@)q6&jVaqM+(BU%@ZpUw
zwFCM6W^|05soly;m9VAV9SG>}ZqJCZFn-HWdgPN;pap^Glxj+c3v0B-i29`$%UJV3
z8VS-=uh0b2Y_ASqGYlV!$ZB#$d-H*#QZ7@JnIdzEMce~+2OC-t&>&D^tpjl-CrEw-
zic*0xXX+}DEk@U+f3RKskjA3sOzzAiD&K#;`uO2v8S%;9xvLhMLaL^;e#qV#V()+O
zH*EgC)I^{rB2N=RTqzu+3N1wuNOd5UnuZLJ29OJpx%l|T>i>~u!1l{#pz9qz+6;V5
zGhpvPJkVBtq_rK;n`;*kx|!ccbN+F#H~}M#c`@2LcZxd3Zj^Y)SSt@PFx}UXuQzb7
zZ2tlXC&UlbsIs@sM=>7<&)}5)DZ{u=WZ$NIIE?#b_CFmA<37DHw?p#x?SaUE+{O7f
z?`^_AvD(qLqa^6KrWCmeBn3#a@RMt3wSz$(%2h;ZDFCDxkiraUP>j#&Kxd6E?V9jU
zy5>{LVZS=?i6=q>>qF0VH-Z@Q&`Y+5M5SkUz}NMS1D={!ThyPJ&<^PJ*sy!~<okJ_
z@(_5?$EfFXPC5NdVfez2JY9HvwlF@2+{k#7r|7(n^yveq#`#((n=>*=<sS74h*wDl
zLL+P&yd33qC;aJun1M(DA_j;oVArU5r#nG2i+^=O9-=8D4WLvs1Eet`Oaf^bNb^7%
z3DQ)M27@#kr12oL05T&WvqMRXY^OiJV>1t@S$6-@N9KVlDVjdo=~g|l5c*$&d5<)G
zqngbs2(vT;q%j~(0%;gX+kO!l)Np_L|9=1NEhh}}y@czFOHSnf#2!CZ-dW*zcgd$o
zu58IT%915v#^M}#%&UB6@4e^v0Qn6w5DCEU1D}>50)a>cA{vPNKuaD?K-2-z>F*{%
zE=&M+4;yOUB*ZLXJCo7hSP8^bf49g|8kPewUpQ*jtA$rP`2vzTVS8EMJLJ_nZIhRI
z=~kOe#R;aieIEYCC$uF%%K~>;cp$EHEJ*i)bh1}?2BgD5x*eqRP3u36AcMsLvQR)4
zjaL*9$YKInSRjkctNtmvX%?c0qBIRxfh^WsrFvMzTv^bj;V+PdF6uimuM7i_!Qd5M
z0~r{i{<%Sf;W=;C<jt_*%HRPRLLdW462b{&P!WzI+oahW&qtZjCi#ktZBlnO%FH%t
zmNv;_QJ|Cjo$qdS<aR~fiw-j<L9<MPe9-|q$!ALK$n%^2ByZi!B(GnP&t|l&|6z9X
z_Op|h*^P-F&~lSDK5s(W2WAN#D(VA}Xn+9-7cl|!G3)H+X1n;dtn<UT2(5dexi4%_
z<iGJ7G9a`-7=XjG!4yPviSV0JMaTxJ0i+&~+Cb{WwW9y+_uu~8-Vh#q@09&&TSm|J
zk$@cX2}IeiSf|Oe{nL0&Mwljp?9gX7i`BB;Ik{QHaXz!<CXf^$$v|i@1Q<gWzO5-M
zR|)_r2Ba{=i%R@*wS4@EfZ2^NjR5(5vs64OK$89am={GJe@6VW#4jTrGHxm+;ve0x
z9+?TB&6BSK48mu_<tE$xU5$K75#P8~W7amtKcNmT-AZZ+`R4NFp^$If`{wHcd5jJF
zK!~xl`R03Uz{LHHBZ@BWtzq4WVj$KL#m&xl4`w$z#^8ewW^g0o4I9#c5CEY9LJEW)
zc>aepRFZPqy~TBE1gRIKcF-?<WTOgpw^+}Om9gdCAq7Y>5E`5WL>ZJm>lbkaG?)|v
zQWymrnapjZ$x6X#>6T#ac{nB4#R0`Mhi_I-kBi6U{c`QARAa#|LG0R#$_5CeK<I%m
z0pav_d)>+32m&GvLx7b*7b_6$Vg=9u20nq*4$=mYmVmSeq*Y#F8%PU5+DQgPY2@bf
z#csE}$s5$Oxo@ffF@XERg^>dV5HjJ?CJ+W7To?&NE?g-E5LZCk7G;Cf08)<#W{^5D
zMAQt~+;47MYdbPTFV5Sh7Jowqgcb+`aMaq)=kXQ@EkJz$^hymN^>_s{NSzoWa{ft1
zHun#+^)frF#x5CJ;vy4tK!~-Wz3-*l;I;I!6H0lO-l07YvFAZUR0mQiNYx+>z%0?&
zEX(3o&9d2FrfB|xSvK^Twetly#c2Ld;^~!k*?hwXgc*p0eaOGYX=&Y&q|*=u(i)5u
zrBy-NQ`P&4z^ay83!uRQprvqVfwfIBAcY}b)P*iTPkUgb!CbdW|6;BWbfQ{4Ahm(i
zi6J64OldO&rvl{I48s9>B)yc~Qf<krpata9{nLtCV{L?g&~&J2p6zLn@EbZH#6UQJ
zumR!4g4!{Ngr}+}$u;cg1bU?+km|fb1W45&4Zti>mG#|nQC;iYO?R{Q#+`9S3Xo(V
zG^hqDVt(iAmLjfz-c$@oVTg}Rdyx5dlh%+Qk?v5Cdq5I^q#_p>x!bDx+cZTGa8rH+
zimJ>Wm*2`8oCgt+`iH%aK$3u@10e!JiFjbdKbG0u?nv!b8c3NSC8I0~Vm-<F;It~m
zL-UMy1u7=vlUpC&cH<L&cW+(Ke26>CLtNjwzP-(u==OHutzjaU^_W+(ily6I{Q%2v
z{}l|v#0fASyS-gz^Ji!VlzNOLAn8De{5{ysip+QnL<W^3f*Pbukdl+Z%{p~kB5utL
zVA#)52PF(ZxbP+rxo4`@5ST&g#1K&$+TM^=#=WmM#SFCLQXCbpR%tg8Yv_Z}sSeSR
zN5*Dxg;mKFQZSN>pZlVz2z$Z63hY6&J#R=0?Jo9O(QF-ARL3(?XQjMt^D`^ucmQ+M
z?B3pHeg=vUGCzYowe@fWW3#JHavjx<^lw)Scm58dIy(ijd0}f*YY$Wj9s>ymAY7Ki
zVq4|QkKO&^@h+pANosSlH9rsnp$5X@{YUo}!wf_Ma)FqtZ7JUj(lnHtY67Vbq*jo+
zL0VuMqCi?hPGgkq$Cod)<CY(0=8Id(xhL%Q<D$Cu*-ETx5R!ln$mK_%D6O@(tHU}i
z5$Vt%7l??Ha!FGd;v>_N`SMsL<3TvHoQ9Ftybns|OWNHp`Vj^oT&M%4jav@eIF~K@
zHqIkwW;rmx#tS-^Dsn<i*CY;4sG04_>x7zkVD)uzle2_otFQXBoyedWqyR|<LW4;_
zJphlM1#zVSkYe-zBzgekE+1+5xpYX+@8=aj1F4kDIm&=%D1$@=Al0B+l=`{)y4fxt
z@9r}m8R<4kNd!Wn*4AoQ3>({UVF9o#NH>Z+u9ON=Hb@O1^?=j{QYVH)wNb#bfo}uM
z+{826AM%hzBPY+ZvM?(Nqs0krfcL-r{@Z^-$k(;I;phA<wgoYi`*Et-fCLB~5Mm%4
z!0|48ivlS?gaDBTM5y=ER3M(;=m1XAU>20*RI3sRODBq&s29);(p->6gZ3NwEmX4s
zGBY5cPBddli)b_HP0Rq9VbC!pe%2p}{FPg#y2$tUibXp8J@EVrf3H>*`K!(M>hM=-
z8e8XNaF7Bd83+ye1)`shra~d->vQp)n~DJ`3~M6Ow#w8h*i+IoQu|&ZHZ9jMikJwz
z-|Q@^+3G$;ZUL{_D;Fvv6+?kBG_O`bnwW)?oAM(tViK2|wR;%`-pMl4ntN+ccdDK(
zry<SSX-EbPT<Re;LLTlC$ot^Vez3fSGDAoX<(RG983EMfoD>5WLV#5i+r=zrKFn4b
z)~>9ZtJZ@$lpz@i4NSn~a9fQ~x=UznnG^$37#WRB9(2uCyUjslxU97yI?V7O|9NR=
zgVnoDRz6pR)|!>ZZ;KlBtkP1iECrH)q-)()zd#9u90(5(Mqmwj5y5ZdkON?H@K`xW
z*sF@0Dl`WO1F0OO2_OvtX%0xEK$=EgMd`=)CRgzN6^jkfZ#7*<Y%2OM+iECda!oo`
z^yp7tZEj~HmktLJHC?ntgAzl4`T*84#4F{1lm=2JNXaORg4CPuv!CUQ?+HSy_UgN3
zMS>>$G@n3tXCy@Yciqp01tmWMMVWct-z>jAF-Fbe)a*Vh^PIL$L)+GYs~I)}&;cO^
z!U2TM-;1>E<y+X)2|}5|L8<_$2&6iYO1+5;kOp9uC|#|bP$WyQFlw+w{Tf3Ix@fZz
zxNj|qdq`*5cRJOQ+-I%1wOEHO$-f|kxjnw&hvn4hDh#A1)i9{#5s2fn6ug``ME(>!
zVl4RkhcD^m`4NG&WagNW1R$vh1i~wE1U~pSpqwE25g0Ma=EGf<)c4ukw{<S5-&wR{
zZALU)=mDm!yXQxiI421qCm9G0Ou#ZOK@V$;yR-Ne15y|^MrLLDZt>%k8Ik@2xzIc#
z_lKEQOl5jCmFb#dkm*{w9l6++?jeh_z=}=I&w6~yWO|(KBCXL&RT2vvQXur03M^Ce
z_~icJWG$<OqCqMEsRsK+83w`;)oB7I%si<Z3vN?Qfv>gz1`M!%ids0Xc7Gyt$^jZj
zD%k~2Dbs=n(kvNJX1n(fyFcID9~ZX5NCJ`$ga`;F;(;Z8SJ9qv0mO=j8l+5+l2ImV
zCAj<Z%TvZk;|vV7S+}49LJEZ560Es8=1%FfzA0LraDh~VYEgP&^XUc0s@dDVN<H*2
z3P(q}S@DsEGNir2EEqHdq&cGg#5Y?CEo_y1_vb`wF!Yrz12h-{e8v!~yuuJK>cvmg
zyP<g9|7YqT@EP$sd<RLyuNDa`R#$G{<$Z?PdS=tvEhiz9B)xg-qdSOzP?8CtT41%1
zL0l=vn^1$42~sl3M4hsqk2OJ@P-bto`f1Am5fDn00hN2GtVUHo(<VR;iIPz!%IF9V
zf4g9WFa#XsZbBiHumItc>v$FGJVUTY-5@OhX$MGaFjAD#UC$miRk|bl?7m0=k_?0f
zR{#|OPx;;FItuV6bRdNxUX*E4PO9vtN$dYOSWj5neP{SzCsn5XUw^Ikf1j8Q&<E}R
zI&=HX7+}CUxUddbS^CPVc`EOSu!cyIcZ>5`lA5JruD_;>2bm=VfD{8#7+Dfkv96bQ
zOBUqYV%*we5IF=7x$E{=%-RMG5JG>C9tKooNsk1~2BHNC8JK~z039NvfYb+4t5^La
z0n@YtG<Z6aj%dB!Jd%|6n-D!P(K00w2n7%_AhiBIUPVSw%6e@fD^&z1NDZon7o;|?
z_G`*%%GaBF=5tTB7PEE6TI;gFZh|x*1g5rGUyZ>sU42Sdh=f>>hntF1H9R0is~QC$
z)lg8PiUX;t>OHSG6TO-yJ+I7~qs%7$@vc@oNBJtx*5tw=8Z;C#P($%t<)yjNLf#+-
zq%g!sremx1?rRI;Y-`AF815mF1R$x#d<)-QmPSZNlAIv<5g0K}OnHt*{TtRrUrg(_
zBJHbOmJQvH^tj9v1V$cw-q)ji#3Y!^CJ8`Nfsg>9140ahL)dKtz}R|luOV?l!baid
z9)6IDK&k_&6r^eq?D`*6^{_Xqg6kLU!p6spyntx=E7rk|aT$k!GMpfLyPx+gG;dq4
zb8My7Lj;5p2sscQVO#LFHA4gtId~E{WvdxbAxO0#m4h?^q#+{A0cjLS(+oV&&}0?|
zUTv~LaX(tC_)8|oR^(}Nzha@unuf`u>ScZ&MD|aXTYkFSvXAPY1oZl6dYOmWHd~&2
zqi~j4RaTX9qKR9cwrLR`(qFe-59v;}&I#eoP~rh8wVXM7$dvEFK9jq`s<~}V$)+Ak
zcx&wu`po-5<V86mq=A$PQZgA7r8$>~-_@F(rw*ks0O3M4Q1R!fhEi=Hbz(?V+bTUg
zEGlm!BMem%%x799U@6Nw4m@1RDIyJlqLwp$&DuVw(?Ssq84y~3AMcDpzOBlUGIXjz
zd*B7B&8yljB}zx7ecRTjzhFlN^-&N0yankaQJ@8=v2;P{NuoN9*b9oYc9iE?=JT2C
z+6IxGUFYJ}pHItL&z;a<kSyAv<TlyR0$~8cMeqRi*r84X<N;0)FkLXbT&WGDP7Dz>
zLsrZAj7?AoMwtCbt2CO>oqAopiDeC~l*jw89v(9A2WbI}B4mTq08$S~Z6I}Gh$uap
zEc1SNbe1J)5>5@0&ay`rs#JT9#!BhY_GTRi!zm9<*oDtVn_mBdb=b;y&S(;~U|q3I
z%W^sCH_I0q1E-#3oUp)VL1Bm&?ZrQz{SrS|(|lfh#)Ph)y1)c!`h|VdpY}f!410))
z7PdTZ8wzi0`d4nZI^lzw)LDff(i6i`{-LQh%7`^6lnGKY4iU9Vv*j}mZP(1m<@QMr
zZ99&A4`jJh&140J^P;wc=HVev{z2-5QG{%e8bIpF&5Y{@-(qf+Mlv^Qqh(z9r!1+4
zQhQ*NYq+E5EPGP3QL2&10BL~n2+DB9oRnD;W%mlhFz@mBvB_UB5?is+<_BmeD$3%V
zCTAt>WO2HB28|+4Sde8?NO~XqSl&;!XhR>Ub@RhwfgA`A5Jn)}z=<i~DGRU;11uq+
zqfAWzX$VMjK*w!eqG@}x<V23`vI=dR=Nem^dlG=80wK|)*75rr4j^o%W?%zU3vBj>
zAg&Y+QUypwAk~?M2#~71f}NrfWfUMM6qz-?!l=w3x34xNs?nA~?ACKZy6M@L-`)B9
zGtb+bWpwJoKXh)r*!r^gki7eL&VbwptJ~Txx&8X&WAV5!%O_jgFYW?K0+J5wpWhRK
z(8p7?HUg~<gBYYVkTO9^#*3ozVkt{AzCBADn%QfK&bCDpH7U;Lb)p)T8SH>O3Iewz
zpS#VM9V=e5ZF;KL*nlOEJLj^903rv7Fz<{O=BznwooQ=dhc4{Vfb%Vf0mHLyf;z6W
z8>ICh^We>X1<xyU1u}2=JXv&PzFqF>8R0gYG+I5;coH-|lU$%8AdZn4rpd`o`4K2e
zPt5Js$xTSK7Lu&=VfS_@*P5mnkirlzO23xvGHlz|vDo8a@Z|oO3QU8ydxv1KFpHqd
zi@|!dImVpb_0wMMQ748(bsWc|yo!>n615JsmZ8ibsgy1d-r2Su1%g!8KMKrd48=Ic
z*luSTW9+MK>Tc$kjxp*%@HU$d+JUFlW!s9t+k|YsJApkAl1H825t2<KsEXfg8Mn>w
z?+V#`uQtLJo?#o&9Xm7-TNB=k-+%jGnb|JqtHs;hyLa#3U46K|=G7Kn#>+dAq(zfu
z02#1K4hDY11%wp{KM)~6Bmog8YzKH;`TObv5EVf508u6!y{c2Zm)!5(p{(DR<gh+P
zsKqJ!^fa1JshA0nSpk_Lkl6y6IgnWdnNg706_II>S@#O-K)L~>GeEjT)W7*7pH2el
zDpCI~<0V0+_o_vFTz*+njmgZED{W~Y07B*OuB9QXRr!yyYHOiTkfK2<@CpX&vDy-j
zKbF3SH7N3&ij=K<--x8_8<}l?q<kG9Y})|g8_MA=`}y%^lRjgTRGYuO0YU|Y6bL;c
zfLH}r6;%cdT)4YLp;`<RNChC(V81A;ce}+s6Sq{+UDiU|D>~Jx*>ynxgbG;GOXyJz
zMBoewMhS>3#fjhnDH@~#kZMpJZ8i<;xXlJPe(0Uit3kEzBCqsiCz`~i#UhbY1U~{r
zEie3Pt?Fr+<N_*S_eG__V}es!P^M^*3P7qsb+om-)C$0a-s&X=GyOv?)}39==0zEF
z?sl6wqws#vIg(o)sG$rI5K18AKzM*JJa<5PdDF;Hl?YiN)q+$G(gcu(fKEP)NT1V8
zo`|LA?KRRy?{B=uIs=P|fPp1S-@4l|N;!^bI~`JhBm<!#ih+uNr#xcUqW}?fAcY}b
zv=?uojsy2tyd$pr8WKD&-jM;~Ye$vJr-FDW-$I872qjv8&t$@4RVGNuC=+F(pt1*_
zDm|YcC&17FAqMvI7=DjdLr&!LAr?FsL#hL*6r^g<U>T%B=_h2H>I7%IpJ^V3YxqNZ
z3@&K3r0Y8INcC3m=J8g)T(2R@2B`t09+28V>cl@$ZM}Zn+}9ZDF~gU3JhU-H0+3V-
zxgHomYz%=SFfU8WuRu^%Hy$5(IjDm3F`fRSmUCCwz5(mwEr@_nA|8mq8AK7E8mSz$
zAk8$$K|mu_lt_JiT#!rTz^f0NuBvd=v^P(hiFgH?H0L12BS3^0kirlzN_$)4Co(gk
z03#mSvkS9CRYl-S${<0Ph5*f(sJT%q60|R6Et;*0(4Vc-8mWSo&+YPtXHQ3ttogHX
z009sxAf!O((FrV_Ssi-Jj2URC0qr9d4N?I}HK-Q--@pI%Kh2)l5V_sGS*&)v*uU7m
z;n^LsxovSaJ@quyY5*+|1|VEOSb^{Z5duV#_uH#$+Kyl#(t)S|q6dgFAR5UB5bHF@
z5Cn0hZ6GZKX(vc)LD~$`a*+0e%mv82nARUy;7xM}GLIm03NpVSbB$9(DUT;=7#(Bg
zHX~0|Q&6?j3N>DO8O&;sQ29{2;y?-oDH^n2U$OeCE!}db+8rJ!7#G9~>Y?vPp7I`V
zK6#Z{n!F#Aa>bBTXKR`!gW|1kGxjvpxNY_=Pu<#EfR;UJn$@;Y7{ibPp{LY=3Pgh5
z0&%4{Z}!_I3}O{{69!d-(*E$7hS}Ftn{PS0A@6f_pOvtHNLJ<7ETrZglo`oUmT*u2
zauowo7~(}~1WJ55`j_OR<!jnfpoYGnMG`2@3#i<v5p<i{`+_zd3n>tK+z5PGr@mDI
zNHwUAHs=`MHp{&0_|287ocfT7>fm*u7?mFCn?VQz5H6GhnW+5NGxj|H$NhBmyTAGC
zALV{mwsYd|!<lp#SwR~!x_maln0dHU@NEU&kHwC-NYgX>k@EjxEN~l08V~{?R6t09
z&>MJZHsH!a3J9+#4x~_!qCqMEsV0H9SY`YGE${PG8BFQcNl*a0*M@4s(Mk>rsw9pq
zu)R>W7WD58B{tE<O?6^OR9kdEmU&HR=6SiZ{mii5vv9RSFF<8;-X?~61TN#Iy|Af}
zKlq?@Yx1V3m9p~V;Sd6$R!aLmuieqa(hg#+X&?+&hxQ`{q&|>ZLFzUQ3qaZd(i(Cq
zay8`Uok#E7aB7cdi}<@c1@6XUcy8ViTJQW46LcYWyUdWh+bT04-=ErZGc)EoaszkE
z9s~pK##4K4YKMXT^pmUq0{J$>5`N%WARgczu>1UtRRbC_A~AjtaU~~6esUKvl;h28
zm)DI4+VX-)UjOS~H-;+OGAwD`ta{+J2~o)I@n=?Zrbw$=SXfX2Aq7H@2w+UjTw6h!
zTFZ?J<x0^Y6@XNO{n1wTFXv-##r`xQbNrUhbZnGyw9D`o=voKKOSul65Fx((mS@^i
zLL7a;YoBnlpchXIz%RYkw#Zu}Ndb}!ga)RXJ;`GUfy^jmAjN<bMn)r(*6L=la35qB
zDK7f^w<cQL4SBOLT2g8OYph;m@j%AeAAe*J#P3+99o!bSZL`)esDO|Pv;7Q+B}#~u
zS+rN2#v&A?Xpjm(s=?-HGg=qCoKS6_@4|Aa#_qiaev^tXfbdEjEqSd$PHxJNK#?8e
z&EjtMZJFkcpAqR8k-I>WfTRN<0z!#+V8q|qC@6s|<$#n1QYJ{rD2oE4VnJ^;c5MP;
z{O%c4u|usesI}`F6Iu)2jT;NeL*wy+ERB4GSS?@x!iDL;3a#DJ9s0U36|r?R703<~
zNCrX!6Ohb6>DWfZ70?zzF(8GJ(a20_J=*XLLn{lwgqF?EAhfc@&o|~C^G@8&;_-Wh
z5x<gwYLI<<i4-8oKxnWF7`q<7$F4`;OH=?zF(8FuS7au9er~eFezS0*3{=)n-9rM9
zROA99_h*IA&r~G{xG6sZMQNLt!zyGu-B%yqJHDynwZ5;@*e=)gNbhFpPFNs1xd$Wx
zNGke)>L<Z`fw+<rBtQBi#)w*N=6~o>Uqrmw$AJyl{15cbt$<Let%X6Yh5cbZNwu_A
zPgeY{w0wv3iNEft-#~WG;_}ho(;|#~YkI)w>xRCy-Hmr{HX4<<%#jq1cX;1XjhmH(
zokkhe+P&gEU`&?mHQ0b}emA>K8mGPJdV7)lZfv1aicp!~b~K2k3m5qXmiEWH1MNoV
z9nt9voCEEN&O5~NqQBv@d1U6JLpKS|wvu9qk|4|ku;xe-TYMnOO-_*f6rU*Jv++v-
zLpS`u2**AHBYv1I-%3K(56>$d(R1CM@;c-}#1D^p{gE%N!RTSLhm73;riYB4V*2AE
z?ZoEC?J|!X5fPu(gL_*DQh+1_p~1gE@(AT^GXBF_qyUg&Knf%Ok(uIT^m&k5El-DI
zH(5>8NVU};F4O^=jlL(t?Xit^4c(XbOoav}VA<%4Z!q}u0_eH|&@_c%V`N(Be6FL+
z*g7NR5?R~>k^m$Xxj^NTpj;4Fa)RVXpeXio`;Tm=h3rV8^_65GG{^-`$xRmt9ce(9
znnVdww-wrljiuYtkN_kVxxkW}j`(mxqOX!FCSx()FaG0p^IZuXpcsp_kJ~`ffDizo
z0zwLe9xcFVS)?WFUsu+8g@P0fQUORcsE#({!<~u7hYufbGHIIXF!RtBTGYY->^sbK
z@e1KT_o0dTBTDX*4y-v)&x<+gPjO~!uN-bF4WvwvlCfA+h3gx*wg@-dG`gdwxY|In
zy6!AoV6@~}E(}H?P%Vl9DGc$EX)r$BuwbC{CpW49m3Sj0K{!~9kXY+MN`e3+KLR60
z4?iteHqJLsdN}QSJUnc7)f2z9?U?F;3;ThDT!h$EP73j{Zr&ZA5|Sr9q}sSWt^OFa
zQT9Og34hQaria@b7~AaJU~qo)Wb56vZSr*wmk0LL0g?&lCtBY%HD7OKNeswuZUadZ
zw!wgYg%k)q`334iNaNSE?26;2LPdxMsQ{!JoGo&$Eh7VmdhGO)ZYvbDKp22<VL?4(
zdclIUyYOlO%pi4Qh{$IdWyqK9Ec1t#EU_V7e{pyM2M{*xxz9>eW)?5llQtF!+Jgv?
zszDlnS)#pvcr~RWJbmoRvaz1?8j!H{!x{N!5%~psET|2<+5@u)ofZ^m@1K4G`a+c0
z0j~2%^W<do`G~RS;L%VFIW;x4C7Zun{NUI>BZHsRe;~iP3nU3hIuIftltxSjv$7Ji
zB9tiyq%@E+K}yC4BCFLrhXv1BrI=HthKB{uU8R_3m7<m%tX8b3&UrH}MaOTAYj0E8
z=a2@300@<Lj`m?HK@&k(qd1U4L5c>cz?-PSQjuXJM^wi#uhESiJSD+N^^E0p7GQ{v
zQ87eh*mQ=_7ns{uSYr3Xn{z;Tu?J|bU*nNXJCEMM8<~|>?e%6^$9U?fS@qGeUob08
zB<y(0=a}v?@4Zz|RDanntQ$U8{S~Km*5PxE%S=|I=#`LWFVs~7XSH5;XY9;fQk&Nj
zB^}_Z4%%@TCS%ss_%WyqRsa%&3B1}EB5{Sj!7e9Aexn@Z$U>T_z$%Fb5Xr!U02<3R
zNE9Q2Q1Qy74_CZH@uM7>Er;THA~uy7N5Al<&6qhI9y+U=4iCgSO{0B^k9g-r`{y&K
z!$5v_gH(M)D#C%-OKLR_{Yx|4l%Gt9(m+D9z+cacBo!hcl-i!9&6DC)4LL~3C=*qS
zr?Rd{PG%t5P8H9IER{|RO9h}oVO7;pHSHhKdPZI=M24+ywKvBV`&oM|1+{8V-w?NE
zr>jBuN24lWHPX%z-<~Soc*h8;$DS{gf;BTTD|o8oA4}IC{jdPJ)xSgIKwgCPz^?B%
zcpz!zxmhoX@FR<BkfCG<l%FMFNJE(rZEv>c9c8pA9;h;)K2o$-aDh~VYEiY&QgM+d
zrQ-~}pd1rm1Hx-CXA`;>RCdoX1bb8s(g4g7RhT_+$U6s#_|l5S=$leNb+&PaBjnQu
z!B?1B)sTR7z$nXWhX~RYKu64K@(O(*wSx91#pmki1fXW*@{z+97OQLw85^kq4{Zm(
zr3Ik|x6>Rn3_c*tKqTnGY#Kq1tDPdvLI?<$(nAbaYBderAT0oC2S{u1q{t)76$AO=
zVYghhDm(P$DKo2)(%*0bVFw}uh#(-+G`aQ5=a{UmTB6BF)mFrUv<;+%Ani0lK?5&;
zo!#G8)SqL%qo7rLN4%yCLL^`^5H06<*|8AkD9QkI;-DSgM2hhWa?3&U@`^*HGI8R1
z5U{75T$QI<$FkC(Mg$N!*a}41dA908>Q8LN5Uw;Qw%!;mnuf`ufnRwh6F;42aTUC_
z!l$hZJ&gox1)}9VThlnK@`wm%U}%R%B1I!X)iNe}AN1gP78<gvhozyJ`g5K=#w5q(
z`E^*)z(4F;eMQ_^RaUL4=oy%SNWdQ8+5WL|aEzXn1E^!P1Ee(=DJuVLXaDwZn><3E
z=P@b}jopjF|K{(16GA0y%L|#X=6Nynu8@h;i8zo#y@Cm(0ugFZ9c>w(=53wfkZbtH
z&S2P;)w6nSr`f!4iPI+_s7*a7n~kV#d$8uL4Jsg{K<F*g*2&~7LYUK}z@p6v1t}V&
z0+4F3SyTgq?UuJJ5jR$>dQyaKo0Y?}dUF#>pFE2Y2((ZXBdRwyBQqn}?bg>G4)Z?P
zb8$j-UVGT))k+ol=Hn?!jXZIT{*kFZ%u$-?=+(-aWbAwZGb}`pYV01s3^J039Tp;w
z%#&4~Xpgg66x>_%>*w=4YX@R955j?P;aOk_dD^+)K2Vc&z@aXS>M1c|M9gxE3S0;Q
z)=-`wHAtAC8>++$$a1rah%2C_D8E4hsvvpt4IMbAG*>t1hzuHoq|KKP<mz(8fCg{<
zl)XIluh{oV;JlrQXpEBpBo(<pcuB2kRQ3ySp}q2BZ^Sqp<^8Wb5$A^jr%stgV4WTz
zu?_$sNluXb2o%Kui|ykqGrIXA)w69nbf7{CkYpe<$OURBJdwMNT*$bo7?8pcADP;F
z$8`$q&W8|OB8z(^5lCtrn-Loc$^{`wPLTWv6vf`V*_sVta6&eaXd#gTBpC<|a)F3|
zGQ)CE<ksdd=(tjt?f_+Kr}!2SC*^BBM8Hv4oX}!krdRQ`Yh5$b30=x3S(y1La4IkH
z5p-&S#JqsIyzukb`{k>Ve6&D`$JzwxFfRvMR0gHWR8R%IjpN6~Qf<A(LMq~cm5DU7
zcX`+h%+QN83tBNYI-I)biv0Y}wT~Qmo9A`oXU<S12y_z+W@GL%XJADOKU%a*5JFBe
z5E__(F>a9+0K{>n6(Gf!1_?Hb%ER36qUDr)qov#ZHE2W-oLE25Vzej|q-2yuK|GAI
zD$G-=EI?=!aYDRB7BLaH+}1So&gU+C8v{%4mKGTaKvFHTnsky7dzbc%Tv+GjN1!P4
zOK-2TDG6@mosvo_bU=uKaCoN;rP62QF)k9Ob)s5DAk~3X3R1N<+1Z3yqRfi!mb<&n
z>VChfJ+e&Q5CEY9LJEW)2on%a;0r6?C@KGFh#Eoa1*zSe$OLH#NP9q91v<G#UQxVR
z@>CZa=662r1M>T>Z7DVANj7!xh!~n`OY`|_E(~VHfD~r2wI{`pZd$K860Z_cgyZfU
z5%MIv8#AZ?#X~2mE;cd~X8f|TfoEX+P_A7IG$ps(7=d@aK>L)4QQ-0$vs?u(zbUXC
z1a0(^03;QGHHns3LqUj_6C^(ZMe#2$71!Cm^Hutk_UND*FXfUPxpvl2YA8I)1#zVS
zkYYdzLwsb~lC2gw_;2p+nRy;7rX|aIZd;}#8>`gnHYzZCaG?&E<`5wcEhmNeA&N`|
zri8ea4Bj--3P~JID68CB`=Ch<^Eh4W%^{p1`N>+uSQINhp(Ep1vHRIb0FsJ8U<v#d
zm*r&xITc8n0u>WqEvwbv`zjBL4_f^k%s+2uk5&b+)rU6|^wsj=fyT3YvIe1X(#V}O
zk`9DO*!AT6h6e~E@YGW_<aivUNWUNoq(YEtMJV?s;y@Y#(j1URfd<<_v!uNmE@`{=
z-!EzJJz=b@YDs%VWyl~Xd#>hfk!Dz@?9iY=6{)FHAg<&D$&cS7#tGi$b~rca_E`0E
z12;m=_j|0I8{Fm@=6tjG!i%^|Mwj@ED?Poj=t%&Q3WP-17Bu}02M{(Oyck=fRORVi
zkXFJDQUypwBGiFY3R1OKu#+EACiHTaS&8>wwF~PwumJ0TD*Fr8!H#jMJ)jI9Hp}(A
zc0kTI3DMT1>lBhy-rgp)tf4f<vkVA*hO{8$Dn}nc4N@jZ$#_JRMvfy&@AK$mzR9Da
z?wnI3lL90e2n||*ihw7Dk*SCRxTzSB!mPNUCVs`ISr9N5U(<QZnq-yCQ`U291eBTZ
zfVcu$o<Q@WFvN?>Ro;KRI7hxTj~8SDc!m~8lx$u=dD5#X^X{p~$XgTHi8@0X1|W|m
zETvj1eIbLT+A>ocNSzoW>YQ3{flWD8otz`3&a|@izSfab70<)C_!bhK3i4exN%{Ha
zZs95HUl+cDj<gqbK?4^MRv`R9gn0kK>W(-dGJz%2LA}#4xzGbdS*7AFX!OCMw+<|a
zL~B9X4AOFt_JhoYX($JoBarz50i`sLAae>bzaVpsQ$!iWmQ#2XmOXM4r9bk!`Pmv3
z+t$5Q-A!+_cII$iuB-saF~>mbo(80>)_?r(zyJ2%wX*W=n}1vC>hp?e!Zdgh0z?uJ
zaX@5J5Wv4^GVGcN(om4*f;3t$gR(BDm)8s<P<=Wh<x3+6QXupg2}Iy2zc$}l+$sR6
z2Gyco^^O|$tZI7=PI3W4>hI^ObqmyVuP~_^E|6+a9c_+oHmgkrar^Ex!@+c{4&qWL
z#{N(_T;v<r8U@}eNasHa&PE71$v|jesyAv>Tn)KaX$1(VmlTGLk?D}m)ao;b-NaD3
z{b9XZdP=UnoMJMxVH5Ix)zOi~J)7<Pki~rO20xm$xv%=imooe)ODmxJ3@GX;L_IOF
zP{w=O?RMY*!Uh}{*1g*kc{wFJ<`7PvRRP*>dbc~;e+fn>4VvN_Q1oV%bAHh-tQ&13
z!K`1k4kO8EW^$kk4UM$$$?mg$%SfW02|RCsLx{*s`0{GcLAh~xKi)?@R;@Apn?o7l
zbIP$ZpJCxEBwsf16^(iVGqT^(hl{WSwv00Fs5&srXd{%o?eee=K#8xg%fkRfTxkUe
zXdozzj7Dba0QZlJc_`gF0L?RUEtrUD0w?0R1RAk?<VAsP)No*^;doD41a8(f9`Z&#
zR+(^B6NzAmfKVbHIAw1qUM-M=l#DV_jfXsvno|_2wLW&ZtMyO-Ap>@2ooEJJs0L1{
z_94#xxN8eUJs`D#)QKUYuGo1GAF1OYD?bjc$TNeicOMn|Sf}yr5!+4t17A-)5^rzY
zeGb|&EHq>Zh=qvHY!Jki-%ADo9m6UN@uFUQn&z?fL-Bf;CtZq9<9tfI-t>&*h_83d
zB<0R=rI?V9mT~tmorz8h%9LzLfT|N!853M2y_6f<Wk`Y0le3x}zmPLqX%&D}gKAOh
zARhcCz*GlOSydq<DjaPBJ=sBwOE4V-{JOY*r{1zwsb--XH0U7y&)<LhAIwiP>(Mpr
zQ(<(LahSfzgnHfTQ^iGFM<*5ecoK*qN1l8|24KgJN&#lDgz;u>zb4O>*|7vbT_7*B
zP&HNb!wjaI$+YeTBNNETY;7B!JQ>I%`M3f~Tmi(;m$X2lWbz{VKYsu1zn8<`U!K<c
z8Q-vlI}Rz^A2@)p0pSHA0EiSIqJYQ)5+=Zd5y^7_mys*-u~oZ3S_jfbkd}h97o^o7
zZ3hiva^T71X8Tm8GR&;SI{Z?-Woy^QLDh`3amIUXT&*Xmq-K58Cmn0kF_7w*=bD7E
zPOnq|QVps_ZE(iNupSrd`WWz(c3T5z)Z4x>;BQ!f@Bv}=cfRpmUj{ykCYuC4d1dC+
zry*zssT-sPULgvkH5e)CYRxK75?->;cR-*-#0wVWP+TZ$f~aLbmg_Iebz97yD1@OK
z>Y;{30T&Qf-O!fm>W-<1Gxc$>_<a~0W5;N@rsxVpgER}IaUe|uX=rX{(OjeT7O0Im
zlAXMF|DwaN4^6-yf6Z2l6cHLC>bjepo_?}HDxX$JTl<%7$EIFm&pvRp`~QURbj8t`
z?%Fd)259gSK-U4YN2jg29yeGvIuG3jAbvv%gr3*}D)-Qkj054(5JZDi08&i?xxUUI
zV^klHkgKMj)U6$()zpJF=2;6c1UsxzqO9{{$aZnJSnujHpi^OD+XoR4N<GjPtI8YZ
z0B#^6fXKl=K$IQ%$9_?TAk~6Y4$=gWhIoZQkVb(t4U<J(OU27soVi?2>?W$HVZ#w<
zKnQ`|K){^92ZR}j1Z)MO<;YeGnA5U!C{XLv3Q{*n3%rRakk(+Ns0(?=;ipGfc6bjH
z1AaYuMu(RnIQ*yvj)(pF?s$aN`L3CDD)P><3mXrn;Nza|71m)ZPCA%^lO^MADjJ9O
zS$a?+;;8h-7G!J$W!Izg^VA@JB;T^g*a&!r7D$v#9Ekp(-+%j`waec;n|oaF+VZm_
zqzTm+05cE?Kp*jOCtsUEAit67ogel)-8<BV{4b574xHAq12P97^8qq9AoJu+3;~%x
zkh%0`|Dv`P=au6v9Cl80R`y**sP8bn6ayHd<SLyUf>)(;db~9(kgAuu_Sx~)*oD@_
zr=wTBx<T{P<HOz09Y)+|;LDG}f>ZSaLkqkE2M{(Oyg&p1kpe^l5P3j^3ZJqll2I?I
z&(%@~sagcmE|AuNv=OAGAngSK+Zs@Ej2`@IMyhA!0ou-Q7id#<*|m1KhW7dr0w7dC
zNP*B(mcWRw7hE<Or~}g<z+)OrAQgaAgKAOL?)7}jSW*oWnlp}XeVM%kl<I74$brtZ
z@<>xBGC@j4nW*LSmUk}NveYo2wl3>->_QFwPPOZ6k6^%5+ZSN+iBPT-4N?I}HK-Q-
zm*0Q;PjW;xZwUOLFXi~%*PDTno6)y3bsO?@OnXUn*!f#vC<3BQI597KO?J#2`awX;
z5~#Dy63C2!%pS;0g3Kz&44Z}_ATuv27l~^8+gzl@<6wB9c%UD5Z?Df)*P+!Qi{bj$
zC%%p{RYt=ZgA+d}fsg~?0m2A`8;A%XatK=>xh7}zxIgm)E)qg0Bu%v-m4h?^q#+>9
z0UZw%YNmypt?kIzaYJJ@5E>2HR+BJoh^iGv^om;1__J$yhc#zH1A3qZ!l2I4eD`^s
zs8)~Jg&Cwy3=y^FLPL%t<dhk9H_#*Ll;6ATmg>X-44pFOK^EqeS8W5oj5g#r(|~?T
zS*i=vqycT8l}ye=t!?`I)7P3jjkWz9J?p<4WDo$M0zwLe9-TE^g6r?qHvJv(To_6~
z1542$6@XNOYEcb-r6RD}LdLLopI2THK2gZ$8`5Gr<Mk?Q?HHLg(NLaa)<ng7wOI!(
zc`K+jTP50nbm%Mn&~0C~<Ae$bDG+)J3W)nDsM^VrcP6>8p#&NgiUz4bN*E|8QS-=d
z@#oWm*FP0J>MyMl>()E_t#0Um5Ch@xPFtumVvwMCTFr_WD+m`c1QlGV2&6iYN<pgj
zChV9cs#yx0+i$i^>N#zfEf9o2sDZEm;R8-Kl#|w3Vb!N0$N{Mvqy-@D0BH?Iidtp%
zNHtBEGEfsp2SNmd5;p;nbmS(rFxj;%_s6tlVGxGaUPjqOkW@KMs6**u;wkn)2~DfU
z5Hwp*KqE%f8?s}O?zj;f8scvb{Rct|>=p@!ODEHY7&vS?*8M;&P#Z{{x*ycVhy?k}
z<a0%E(iF^sS>rP9tgl_3Dw=1_!aD5$X$?k-2Hu)#2TytHWD7VB-BxU4v%I-Gnr(Cy
zeY0BL(m<2psd%+<+qL~{+5j;S4j^nmc!yoX*d8m$8h$N65lD3)m4Z|a(g6G;>I$)$
zr9XbzE_j*Pr9IRmM}_zb>tM$?du>ry(I5H7?+F7d$aND$Kqz%nTOT|Ka(%$@F?s};
zu!a(4DrlX72{{CQ${iEh&^cZaJWHqftffFvuX_75F+8bQE!DPnk6XI}NP*CkT_6IF
z{NA#g1{NkrfHwH5A=jcVJWZinLgeXuPbimuszV%y=d*@jkE+eUzI*JdZ_GLsoF`op
zs|?6_+w(eICew~7d$LXedmD}CZLmY%sK0x>X{F^2FJmtQUA&k#%=$G;gAQWr=HLyp
zmQU|YHB%EB&;zZSr$*z?>O{4AKx)&T8lj0=Rnw4Tcb_st7ekMvm$F-`Q?I+%;PA|%
zZGah$x=Pou*K(u<<&+kqMlm3TS(8Csnb9lYr*S+Viyw80WB-lCcl}>4{>Ss;YaSo*
zKU)2q6yMhEO8k$uS(wj|uQS-2GJn`h*%m;FkAPD?vb>e1kB|vcGOiM}mM6-ND}Om_
zLK`}tG6DvkuTw){K(#0@HW37xaeK@83H8|ZI2KOo#|k)sunR}WJ-AN;nXk4E2JHc9
z6-e7e{c#UYU^Ta^yJX;W-90wmJ1_v@N(DOK$do0_8d-H$G&H0=Z9K<|Wr$_WgF+3d
z*MbfkuF3dmh8WgQ^|VnmFl3WgpU(?k2R~060~sz10V4OPNtrYxV+)uy1U`yJ)K$?<
zmT{)6Q0HUQ>C^zqDV-4y9ce)41fs67<Z;ufCZPIC$0ZN}p+pOCN{gzGo@b?phM{w+
z$|gGKs-qL?P&(N)kK3SW)!3spZQb|DZK&WAH!AI^+Iq^8VMTZ*?4Ps808lkZ11t>C
z$gGJO>+=pOvnJLS&UaHY%TO6iQriH#yv1DH;uy{FUtt%#2MeOVY#l~2gSMWCy5`>^
zeXWI~@zweEWDJ0|wla%<Zdo$Jm@^z?TMs!99w3ZzonCNw&McdFm4h?^q#^nTfgp_n
z4T^MM?en?emx|MxFg&Lm`seI1^8Ju8MI+k#=Nr2SnI)Lh7Xrwo7(S^3geThd72H5X
zcxOC4dd?mfWVT2H0kuv;yz0O1ZB5iPqY2d4#C+N6`FJYB+zx;6fh+DDOeQCd)R2>3
zyCQAysIjk!n)On{b;>U9!>ql}_1dlZdd@o2jvq>njeMatJa6Q=joBGS9#nunCgaJM
z8nv^m#G&UjZLhG^nB2E;-AG`Y#g)?)NT)$V9}PsrsmdCUKtjkrg8I&xw}D>hoSOzS
z+>Quxk^>hyYqR7_Ix!2CTBkOUIx$4lw@sTmF5_fNF*GBCt$ar9Jk_?{Sg>ok{>HL4
zyMoBY*snH2>$YKHxNu%|$W*w<HLyILm#Q~wTO6P_fwstM0I3J0Hjp}XKd7}h-xh0L
zo1IuiA6jDFg-+W>Z|-U#yx0R&3ntVm`q&;DI~9Rc2U00W)w$WPqWAuh;<({H$Ewk+
z^wsvHMMiaNRWRFbtd7bUMaHoyH7u#3YAp#4>Yr2VraDgJc{iol(5jpE9jV^hKXRrJ
zHELgo8hPApoNr^|xm%BT&S}qC*Nu((LS)nU3x#N3yU3fT(DEAw?~Jx8P6t)GRalK5
zctL6dsT2Q*djD*FwEnz*$`WZH2EqY^4S3MbPWq?W<NRxZ1noftNYx+>z${T~S>1+&
z@Y5|onUr|WhNV;WtEo2E%4|bZe@-;4!<c9aFrwR&HF`GpTs{*A{RS%AQnl?%esZ{Q
zN_W+ni6O!n7R1wN!^P^v5K(K?^}#vCZaF|n6$K*cB~L@5WRyig4pDgULp9w2Yrg9E
zz+d;Fn!y`y54`dA;D>4+>ZrO6pEYZf;T*!%-i@|wND)rFJYPrE!HOjc04YX<FiQhe
zfe`U65MEG#vZ;yh^UCza(Tw-a@4x*o^UB%e9>P}`f>Hm>orJH+99bpE?cDy!8w#r)
zrR1sw!k5`%XH?);qhcHzDY{YL<1nG^vpFY^)+2@q2jkX32(?Xd=h$)laPk}rGI*@#
zkaJKq-tmF2QJBHAoM1EZc=D}|a}2R9nIppDK6;&_FPa@2;cMadluNXEv2*t$v_Keu
za8WcswNREBF&$K7+aPv|WfvK|T&WGDPHMNPrWE)mhIF&DSKER`-G0C02KX1O!$^$F
z=;b!8GSF68RIh}4@Z_+a-0@2I!K=j{EXnCpdGGjX?T23m4QP&z%m?lK<VqW0<VeW2
zDrr98!pp$gv&xUfmcwx7e|)c<oAb>ChrVdf<f?0QgbN!GULXR1e$<RRfA|q1<N*;1
zM6#7Gn@5meTU)Y&l?yvetpI5YNQ*$)1=2c@HiEPiq`lrm3rO2R<^YF^s*WUcNUL3M
z=j5yUJ3ANHfbe2DP-SOXKJNcpcJkpdq}1TKH>>LIFWQB5>_Wr3Zu8nXex0_C%wb&h
z+TF&sC*HehE3!iat+XToNe4m%gwg`8lR!65wJG^2FUdiSc%^}q2~sizC8~C`lpVX{
zq&9SNf)qOIG%1Sa9G$2}Wk#DIY7qxJJZ-ZjiXZ7m>XCs(PXdrsUEGCkHA-37m(!e)
zMqWgfm*Lu4j$+$5y4$>B4eeXbBZdR<z>H#FSSL%1u-)v^T=>PVd5+x885%iE)`p|{
zihLVu-oA}x7U3d`zzn|?Qk(Us2q7m~*d1ewjR?!bc@S3$&~WHL3d233Ui=S31|}Uo
zwj<(w$hrIBb8p}?;(f@ugCydS>0tA5JN#sbAE)w2=Khl*k9sCw7L0rRWXN_E-#y*r
z%d>Mobu~{zdPCz{ACc_8JUh>qzkpZ>0}w9k1g2&`ZC5`B=gdE)&uQC!tuiD7p#ee&
zJnL+E#M&2v$gw&=Y67Vbq*l;Nr^%-Tp6D5?Zy4D(96DJ(qp2o5Wr4A%0FYutHLDb5
zZc*Y>m0yyNmeD?!7qpnc+TbE;4p;BD8DG&v7#=dDn!_hD6ouACSb*>WVFn_Bf&`)k
z3D0J?3~{upZjcs$v;(9y#H1+wdcKj?_3OiLqz!_tzLAy?etH~^142&-_hW&5fF_Qu
z*UaQ>%6`t-DNI)Qp&Nesn|t2r_8^<ZJeQEz5(QzgoFMrzT$I6_x95J4;(4K@LMBb~
zrz+u6S-tvkN*OxU08)<@pbezXc(C38x%Hb_b+QRR$r}(A+y!>8HD~}tKqygN=bOk%
zK1Ik?4oGRB>2Gh{=G$Ahe0$5!qz=Emb?djcZU^7qvbb*FzxC639lhTOeam0>>Ac(b
z^1P=hdH)vh)=%fbz&E~bFZ^U}$LA+PyHAVXUdVF+`Gw#3x>#Dew==#4;>lF}&;!lY
z)df3hA(dPM$(h9F8pM^HAo+hQR06l((|6zI1bU#Z+d6b30Z1wWff2a<9)Vj&T~H}k
zegsC0o><Imd%GNYa$-Ku5oNoQ5_3i$QPupHH!ASOY!6Dycikxhjqd;8`$N}L{
zneR5`uW&QO;I&yJf%8TUi!ot^zvLtXp)okpg2`j9Kx9V&p#9;cR$^t^tVzSq><k$h
zG9e!=P@)Bhz?ZZ@qGXhb2Fh$hVIJiAl(LKh^A^o{%IuL*mS?q<GloTHXfrI14=s5?
zXF~Ak&=SW=F!BN$r)?goc1l4S5CR}nKuEol5gD+2>k(cG;%fiN^^81W;-(5fsv*}R
z+qPcyaf!a58w)rkl+vwpL=|+t1sH+>mbJ)<YG+9I(izu-0)O5Xi(}W`?e{l}6hPKC
zu&!1(US*vHwLu;T=+*IyYVNQanS30izi2a-4_A}_ah98p{StGlU(6SB?!}b5YYH%&
zde~$@kEA2B?C_m^fRqVRG6gK^B8}fu6|6jUtj@B8!Ll68tIktxu^rE{s)hVAd&;+#
zZWmt?W4;l!_+r~g3Xo(VG-MZuBq*JWh`0ipUB!SDW;>!xJE#RmS5!?NN;fYg07*42
zvw9?P$<<ytl}j1|Ma^D*RsB3E5xLMH7l??Ha!FGd;zfJ$6~51l&or~Ot|!bc@inom
zJ?3#oSLmnY>zv~~x2H0Z8acVkwv=UohM$A79eTf%)leZNktLTGlo<q^K4Q6uDxfK$
zeRFk=I#o|KPSf6O`E06lb+r8I`cBKWl^glzWqf1_T;nF^7woa*_pM9$hbL?c-o>oS
z@HNF@@46U0$TJl(?~h&y&G4iZ%~uZ^zJ(7hKr4x|y@C~_9<TcMKP{-JPL2G!T^t*s
zN)mviQgeWaK#Ox8kpdwA$&Wx$RT+PkvxnIlNi;)Q8vs5hmo$ZGFUZA6KHoO`xwu_F
z-J730?crA3XS+ly5E3ACK#0A6YwH3V5MCexfJgz3ookDWWO5CRb*pOMGW1hFH?;z!
zEg&rdX%|TAK-vh>Qjqq7_NCysV{l4e%N(zm-`W$*eGdgg#+lRP@hMD|IkN>D5MCex
zq#S()(MnzMHr(fg{EDCSTwGYA_GdGhIW5w16o9l2q>Ugg1??wjvTHlY98hwi>QE8e
zHFm=i8)mAi-f^!sZKM_`6Et{wS)<0)@}9P+dWNC4a*PoG0T3#GAH7V1W2*N_KDn?+
z6$(-`NCjS@hI~d_W-5GBa6D7VQMH+gdrW5zrW=>5Ccs6=0js0TiJF%GeS%wq`(wuW
zJ(|CgkZRc<FRpP=U{!Z8=k0<wLydKQM4&$A9<Y1Y)QGPZL*fX`o27ChP<{l8s$pGk
zc%8bhgF~s-AX0&l0HFgy?EUsu*>Nq)Coxf-Q9A7Egde0LvxEeYN=-vGXi$Y*?UBEk
zRn_Mg?b7ybmOQh7tJw0$>#f5`8WO95s7lulnWF-+gTg4c84ILR7(jTBR44PKSs0*d
zba{_7Tkyvcbpa{BZVIs9a1W&mvLdwX&t6iz!Vn*s=_DTNm6_XxA8Z67aq(adNbq-7
zQ-HDep<0v&t%u5@lOKVi>i+!IwoW}G6w#0Yp^X}stA?AV;GI^cYFI()0jVuF``uF2
zPLv@!{WW&%w@JOq0>{D_lD!2o@~E%PsZaXV47aVvRf+ZwQC?7O%~64wM~$jM6)vi-
z`tiKt3~O(zkABwEhPN`Sbhk@iqRv*l+k6}iX!*5|2fDfn1#tZ8cHPgovrZg>At9Rm
zzg)PSs%(%NK>L@qO*`14ht_6D<<*tnS6QNk8K(ddue?{=6I;_0;*hqQvYT(0H?4Ep
z#V8G2v@?Bl6$C)2fRF;Ar%eFHke%Pax`l%)pd$>0f)ou>0Z26zji^d~w`2hcaqtcl
zR}-OPl7Y~m42TFQE7#eV#YL1sr+7#d4{GB15@}V~p?KSiUHfKC>uwQW-6!IGEGI%B
z&`ba=U4<cD)Wqi_l84r7_wK}pDUn-a)}3Z^5%EVKrmPVPuOYIh6=}DN$9P9$7wsfj
zeMCACA|RAx0*GAbs|(IczFeq9X&_~Sl&q^jl^2sME}z$B9fa~_Eg5YoGfnnm?TZ@c
zM7v1<l8Rhl$*op29S%cKqe_146;(^=udcZoT0D}8WT@0Ku{QBItp#O@2B|>R)m(|1
zt4Kd~)v;n-1tlWL_H)Y8TtQhQ8K3?$s>lPcDSuVl<#=X%AWe;DY?g=bHyo)p@Kga(
z5omuZO&iddYYo8Rq8iEcW}V9VS$1LF@B!Liu?{0KE@1}hqQcBr6tD4I+W5B0b5Kyv
zdCSH?ZPm+^e<tc{1;#1wm^xk$dW{A6V6aFuGUT<zREDIBZQaZ34Y4q=C(q4q`4-q}
zV_VCwG+%b8+ys*1@3s%eFP1<_UgSyZn+{h2+*AxmVTc#~U%&tMKQ{4vLT2{By5*Z%
zdw)?CYBz1DSS9j?JIDYc2#7QwB89DGl?Dw!)Bw?C)y|~gC6loni*0g&MicOj*+D5t
z^Fd|;WL7|CNJO?kW)5T)L1q*;h^m)}m#eT}a5I)~9xPxWlFqZ-A|(Sh<BZs5UkA_2
zd>ZKUvadWZ`|2EX>GQID=PeJyzWN|6+jnJL^ZWn{_-Qb-x3OGgA_+)35F#LyT3OFa
zU^OH_*sL6o(m=`tDH$t8aS253s7KJ0GS!f-n(o*+l+|{AwTzUhMQJL79HeBFiSlHj
zDZ8KX9+nSx&r}KJtbLl&*n{0WkH#c|fJnnEAUe-93reiAVFzj}&<<7Gyoq3tc9H>6
zx-&Aco!OgAS*|@KYtPJ>2O{Fgo`{EzG=(8v)D;Fl-=8BN8Ys~MJVOg4N=BJzpzPvo
zWfxI)akjFHQg$&=c6qk4%P6}%TiInPyG+kkrS#=|Kl-HP{)^rOo~_ekQ)e)sS~OIB
zzE?}NzP<l)zHggqU5x6Bq3ZK}T&nf-{g?AS-BjyvR9~hWEr);Io$qnmvitVoN&OD*
z*?zZeo52hM>VDD4kn{aNG{jQ)x;wuV#)eoJ7&46a^fVJ~_^7486SHje1fJ~!dm3tT
zje^VlyYD&9`^A>2^y&YdyFp+B!b|3X=Ub3c*tuZ@K{l2efLXD_dCYQFCv=Q0va2Bh
zNGdw(#0`n7GqF#XQ}LuBFk&L`%a>XRUFNCO(g0qzZ*AILl8QheytgDoU_PeFg@Xk7
z5h$u~@mIH&by_H*Ap=6|@1tY%PAXF;tRVG()aDf{VHhIHJVyIsNJY%a?47cN`}3@J
z01^L7_P~cZ29~Irlrk$zY_D+7V2SNiDWL4gF;1ay!eb2;n(F23rk>=#MnCT06++-+
z8#=ibgCHQ%h!Nmx-Q?f^;|z45y*JS18Z88ACm9fB4%mtmq8ePCU#7ZyY`!lUBL^+7
zD%nYs^Byw7vO8sOWG(&tB`4RYO!wAPq`z*f8CW6=zl!!T*%mWiFt>(=R$1tEVK%V8
zV3q~UVqq#P48|m=Mt=^}s)pwI=+e$(`StnMyq>#4WnT8fKCTp|cxC$Z$rFOcGlTty
z5}h98xFe`CB`~O90QSvjwIp1!nf&ptMyV6Tus{NY4hS(24j^nmcySgG8#OA;Xc}ZK
z<fbY>Dgvnvq*9QoK^kDGfwCKN>Gu%3y@Sq$?%Vee2lF7mhq%12LcaH@MkXG&%REL~
znxAER@>{L2CDA=1(Gk#F$eDn^mB}$kYY+!gC}{t{#7;&vSSl(9Hr1`#zCt-BOwE#B
zV~DmMO`WQy_GV?j?yI~qG>qSDzXc9=@V?GlV<Wj@B9#_!zpZy<@~Ylqd%ek;xo*n}
z7B+GyU?4hw#bk}-`+i0QP$`;5;frcO(7arg{IzAD<${FRuUMxc6n<+9IA3Sn7UYeF
zEEV{^LQaUfUFNaK(rUcyzLJ86;LSoZ_vSSupP++>RH%XR=QhjW@Ngw3NPesmRiDPM
z+3M@!Cdww&N35+2g#KRHM#2Jw4+t|538)4>quMm}fz;|1f<RgT(hiW;U}TKSC=nx7
zdfGhu0%+icW-`}l_93ZeUxC-pOC%K<<N}|QOPa#4S5yrS;s+}tr;5t<4?5sW>mSou
z%2Edcut0U77nV9OD+_z4{pjK!H0C->ai_eQ)jCL$>xWhE)CVKsCGigF=lP((3*sHw
zWAe5S{i?*L{Ap#K&8sPy_E>e!^Li-5bF#dwJ~p=|1xF8MAWo;*J!nf^f*%VNQ!66=
zsul22H6Dr7!N>bsPKl>Xm1zmr#uicarz&etbzjg{!{(#sxzFo#0H6ZU;6d&_pRLat
zmc?;CZ7+ELnQ{Rl30F_Mku<WCc47b8^gf@PoVE2#LB*?%7}(VTgdUy1mvuT|nAhGi
zpc^ejmCqe(gS8)TnFpxt)mUpRNkGzp5CNe?Conp9)d=m<^g_%{rGb<QQZmX!)e!Gy
zeD(P26N6%e-Twc~y<2Z1$=0UV7qc7axiEYf4`9F-hG7^3<J(nTs@@G>e*eT!NtDDE
z4=Rx=sruLZdEOOCMv_U1s@?eZ0Mc5_jCGD<MnpzVD73kN1_&V#YT)px3XOsphy*J_
z?N^x}7-E~DCJjLhNUb1sgR}so9U!g2$QYFg@Xgi1pf7JeG4MO++VTdYy&9|NX~8#F
zmlnXWU)C}bfTUtG5T(#$JsqS$5P;;zl8DL3dUNILe%)BJRC4d?3wp1N)0DO^=z+Id
zEPj0ae2P%BzI+5i0~2t{I3uYT5b!fLidy-(`cnHFCk=^w$Gs2%p+rmVRy+zp)8dd<
znII*jOjP5X&DH*$t5NBxC|jza0KW15)nW84tjbpP8*gI`UN7BYJ{|t*^Yj-YAe49w
zMEsH0DXdpZ-38h@C>gIsel1dtIz5){&9y~y!gbpP$birShbQrRjI7vOp*X!1h$JB5
z{GAyX;FNWF)IhG*AsD17AfPvasZpE^>rJGCfL>{CNHRO4?KQsMyW^(Wsbce9XSzLR
zhdKMB4%kR~((91j59`($^o?Ydx*AVtGekfr$!;LdA7!_Lip^Et0Ro!cN=8`}v|4X9
zpRD!1S4q!49W{proAmpt?ce|N$<;<|_x|606)!D{@BeM?o2w7kzkWJyFLZMA;7%3N
zHQ-l==un~*SgvMU%{<#`fNoO({;H3VO9CaXiaKS#D{fSzPbvF7%6>mv+3%(7_tto@
zEW3L;@3XPgSr?!HLI#8u2m_D@98?3RRHyOSE&N)Ij!%@r5LH)izj?@(a^z0AZ4rV1
zc(AJ+3u^N>T;oVvj1&q|G^pDxj%qiJw}4Y&+kmi-fNcU_bO4eLga`;FI)Mm8r^i!@
zxB^<k_aA{sF9s#bR8UU{Cf`2IH_pz$m<b>w3pa4A&u$)KARIv0fbbgkjdL?^SYZFI
zI*>|1ss?EQW{FxkU|p00GLMHKWtAlW3gECAPOD%5!i7CR<R01Mz-I#|NDUzMfYb(3
zCx(cI_>>`fIu)NcEP-pZvHmcJ&anrxFvmv*Q5&RHd<f<b+0~b#e){sD{G4H(kvu*?
zwCd1yyS$vYWtHp=YyFzJM4GTYb!rc!K<F(^ZJ}jb<$0U(3=7H>Dnc|!1t8TBA5oPb
zPATJkmmI=)J<ooO;e)j3AQ3oqMqbq@%MZNBg}0s)vJr+0Bcg23(GhvpucOtM!H_CH
z@3sUxSuw#L;E&n^-_hzznPo=2Cp`V?%R2&Ni$iYI%YO53?ITE|Y_R~403_7{kX_o?
zmQAK0oRAYFKLR7hXMy_<o(eZi0NbU0;QxVV0gr{dzIQXsJ-_Zh06sj>jedCGSs*Xu
zbc`#0dt}0H_IM>@&P2+g9!?=Y)fDpjir078>t^)UdFi&DVPqpj8gO`#$c9?aDNx;)
zn&En~p$6fQ;y?-oDH@~#kZN!?+O&B+bBr)J>ydcAEk7LbaJ|;%9Nm)F<sFJJ8g<07
zrl~L-dx~rjihr&ER70|!+X1Z24H$rMnHzQb-*sN1s11?%J}Eb(oOqo>-qH3)h~n||
zs~dXU?Q~4`@J;LkSIwds`KoW7Bk^IT4>>jCdhOvYeTcU3_@Yh6<Ea_zZ63bXTf0E)
zg)!cnTigVaA{<8oQ=v@51ma2oAjOCfMvg_MPn_!~mhB?lV}iI;dOHWkVFal}7#O)v
zUlOG!dnP$S@*_}`wm$-|Z!ec=I}vzFEW+7V44hrZy|yxAmca}}0;++psU{80Ry<(Z
zJ#@=}1t9GJX$?k-{@X7<{g?8Zj`r#5{_2vQ+LswDy=AO5YSsoG)v+2agaDBQL>v&A
z{%#uu%_CF*(E~&o5REto)K+3P8CTM9&XyIJ`i9M1X*o#yL3#nw7myx-^vf%}1L-43
zPeJ+%(rb$X=tNL5Iq*gf{<T4I+Tn6x@%q;V<x2(S%ZZ?v!~d}*#gmvW7iR9iE-0R#
zLrJ+h5tKKY5JE-?2L5%`$7ZR%!TYZZiVYt@nVkrV4~74+CB;3`mkTTYzb+_lza}UT
znW;%{Pz`PMVXt=w=M)ip{HuGL`oGLadqkSg+su`9Cez3NMOo+!z<rxrv*aTAuXG@@
z^T<ag&|)d7amusfl777L%=L;fhXa#t%<;_S^NNATb3Ph+y?$OT)|Yv)X#Jc{+)Z=b
z1(F0L9SD*4FMY8H7`LADDlW8KDF>u9kTO9^#!6A1h?=rm6*^BHN-x`cma4w4cbX8C
zuJm=)ngufms3D>}Q8z<|A=g=s#}d2w>xrS*JM2kMjSS2JS|~-y#mCW>dXN4aZK?NQ
z#OwV!d2OkO@#kw^Cd}47ewc@CQlc$#VKS)%52#Xz4IYRqIYIJcNyIqBe_Z#^Gg^|9
zuZQQEy(Jmv`#iIL$Uqjxhsxg^kcc4Ea}!7kkYr)rPy@!Gb!Mrc(jdq{iUBDMyF}S%
zv(=QLnCE;%Ofn?bo{e~2XCq<_o9A`oX>_KSPgbKdy*!NWIuBOacu;40MGt4+?e)mF
z8}jdY9PM*(pAR-q%VmxL+b1ruX&K-VV9QKkKV`#3do-)DuM@!VX3p(t`LMaHH&aKH
zMvWw+wy_dI1cVY^pb>=CECq3;9FWqCAmkt=6UZpA#5}p{3o-n##I!>PE#4#mNku#m
zUWp?<Q&w_vQ+@=BlJVbHm&=^$aQ!`Rj(=AQH-V%8Nd`ir%k_03l9dZWpaMXO0Vxde
zkx5R@E<Sq3+>CSW%o%@sPTd8$?@4nr&zzh2>mujWT@dq+7Z!op<<(usX!g5mcL(F0
zjF&Rjwi7O|?qIySE5?nQ28}ZM)H{@ejxjUi7KTk;1)W`PSi$f~fM3KGsP}D>*uqb;
zshiAX)QF#CA|b23BLJirkiv+B$f7yBcB|Q7mWTWelLfPDeYwVsYv&2Bm$>osjD4n=
z$K{8{jJ6Xy$R(8w0isG`%>Z#Fr-(H4i=0t2(WP)5;rA(-q(TLR6bQY=sb1wm!lV{0
zfC;1mP`B1@v%OQD6_$4?$AsZMGppPzYc9$=-w^D<emgm!3o)V=k@;2otjX9Y{l95P
zo%kCnW6^e5?<cb0O7?>g4@}$<s!o_dD)5R)m=uPZ$eOVMvE~uyP8)Ek{I<(cU8LeJ
z5MGIO7o;ROLGmL|WHsgt8K&D)E*8F<HJn;gMOf*>Y`oPNO69_%To6|Z04WBfFvN>&
z<2c2IGj5xFkHX{zGPw&R2}n8+A|RA#0Y=Nrg>WUP1!8YP4N@jZ$@&6vj91FmHZL?L
zsd9_gbyi>HU<fWCtU&mI2aOnakco9b4Z)yStaD7n$C2#qfUdh}7D(ej$88@sH5zwB
zojXh3cjIK4%A#}JvF%;ADQ;W*;T1ark0c=CfXM8!^c;6=t{)K%0@_n(97q#E8Vb@}
zkVfN<XkQdESSEO{7KO?dM=*~W{GJzV$1}uyRmFPdT&BK`bQv2`fF%37`#=qp%gR#y
z<U*Ge15%h-19D(1DL?r}-8mYd8NQKhQSU#9_m)mAfET1TkUI4f)PkxZ$7OxO(U@Tg
zhF-aExLc}+dEm5ro;k!>H-?W>h?0dCByIzTGmL65Q8ma6=r`nec2PonaD-7pe0Zde
z!xy!sCuph}e7sY6mGm-dKf-yJAr@xN5Yfo-JnP?Pi^bg0z-(bpoZamKndNpKJZqIu
zC00IM!62NQ55RQri%c=Mk&b854v%r2SfAh)d4iiQIY5Kw8so71qTseG%4{LY`|Xp!
z-hmQTK=Tt;!w=$0IUuE(hD?x>iF*_{npi$8)+yvmPiNs0k=z5403=mU);4hxM|?I<
z%E?Xn5g0LyoT1q|a-J=XSjNlwj!p*hj+}FJ5LBHuOA%b?0j74Zd@CiMuF`3>2HS~E
zQh+3DTz4$S3?7XGVU+?viUBDM8%2BZsZ(!=PcCNA_J(+?5#sZD8>@AGMuPXF$^+MO
zxQD$Y07(Tx0))={ZOddWAnF;sgae56%8O@tMO@+BR0T*yAk~5P->dLS129XJVz_c_
zIgB$iyTF*)(dEoVsaY00uE`-jmf|>@6Lt>ixgHjUdL9R;R)*^wzUEPYw{1kcN<Wb4
z81CZNusmudfd~jCo&vQPqIjC&jdJ3~trb+6ASL5e6j**GO8Gsh%5nwGE8;D`im9@3
zvwqA9?`)N^@XD9=RySrGDL|5e&?q<SxlmRH-DIi+GL$I>q%g!sX6)TOWj`hFbfj2V
z3RfEo1PMS=kqeBy8yEB-HOGO<l^=l-V|_Ev$9b5lmX*3kGNr=4%4l+2*w6!SIlV8f
z6NH#WAp(v|WloS#zs4Z|q!>_F^3sW!+FJH0Ln7Z20TB>NOam$j)`Z|dOU56NL!x8?
z5(SCymTkC-9I2{q!U&V9_!i-9#_7AAZE=D$1V)SkAAE~Qfe+~t+u1_4LI>|NX)nau
z3*t&nko*V~r6NA`70YRvU8Q=kBBs5xK0V~9jr|84_+^=CGY5LK8GR4l0o9@gR1fv|
z3DOM6K)_~AW`>}op8sw3l{pm)&{uVT<=5B42^4+*>I^WD-!K5-LLD$U%stLTHTR|{
zYnV`3U`6UTRjJ>Ifv{0IAf<tn2~u)0q_$B>>a8^36Lw8#LuY@o>X|xGts1iqlyTwL
zCr<fVP_&Lb)jJaPZuBt+iy{ot_hV56mDl>IRFJaOx%+y9bxCa?bz(?Vn`@7c>r{Iu
z?$Q7}dij{yJF9(~DyYo0_8BrG4;Q%x%v6Fx62&PxsQY6H)u_cF%#l-6hYgBSva^AD
z=wdA8S9CFMo}O*AGZQPdZ#vQ3Jj||mv$LN5HyIMNuW%VP5{=rGk%bIcucjWq4#r7d
zX(d1yrBslzL23Z02c$NTI*Fzzc5j_R8tir!a%Z=*kh8R?+P%HXIQi*n!FG{+++p^V
z?!7H0+bEC*gg}GaOt;2EPw0Ufg#?2M;!1HKg@P0fQUORcSQ>5S`_rPDdnYDmsi+x{
z9yIq)8IZOu$W;Q(cX(4<{V+%y=6}ohYE)va<D>&20*(gwuxj|Oh}ttLO~WAvDH)4J
z306~<vCw(i(8+rs*b79U%FfWKA@vrCs8^jL{tnd+NZ1qiUez`fsIG>hyl$P|S-Puv
zJn8_?a=tZ|7On0HCUvYCQf>1)3^{72-($#BtF0kJA92zS%NtadfTQiVr^<naPSGG0
zBnG<<BSTr%Lc03>&ENd*p2EIam%h<TeM>d+QEZkCyPQ$=_{>CFh7;d1mTf0o)mXMZ
zPU0q4sDO|Hp|_&f00RjryTcwokDpK|NYNk_fK)>P5>>v<9>2e)+d(fBK*)e+Tab}3
zoLT@YNIjE=WPI>)nJ-k$UX0QUQF__WuDju>CZk`{j=b1vzyO4cC;&6Se7WRtF<~4L
zI<G(qaCqi4bag=13?4%V!Z-zh6a!Ki!4joGEAgr4Z^=g&&uM4@BIzwHkf6k>Eh=SK
zcbBWYAUb<V<Nu<+FRU`q_}>`;(t!{Gp+p%l%C0hD3oTc`^h{85rA&~LZAU<9!X)B%
zTF>*ep%Z#^0?*e8rD{+uYN{7cS;?d@k5pGLSKWk$K?Q^qI2ydaR4)fYJTMQg2<1xA
zAQgaAgKAL<|I6&^Y3su~5@#=|crX6uzIU$F4FwP~Ahf{U)Bw)Ii(Gg!iwojPsosPW
zqy~_BKxzZ2)9{0;+)8|o6=pJ&h<HP%;+0wA@8(}J#XozwbENiS8G5-hoTLCr2127t
z*$f6vMvfqq0kvK+AcY}5G94_uurb`h*S_l3#1;28R^3|EddXwWi;7@SX%@2FtMB8_
z@Tn_)#6)W=_khQrw~{z@_QVIRs{Z)xtX85=ibVWy9CJ6nbxJ(GD-)z-LLjO_tg_Y(
zpLQVHP8H%4E|pHhK7I0W1+Lnp*WI)=VzvcIC*xPjGQxmz=UIEH<#g7l{?w5Zr<7^P
zB}{sT0+4D5s;H_bLG|Kw=O%Px&FDGoM1D?NfFbI%fUCO7X00)e17Lj}9v-^2(3g5h
z03iw39ullET;$Ca<nU|vC_5@JBdKVB4hS(24u2mHSx)K10u_N&2U00W)n4HtW{Fyr
zfqJ6K9NXj_C@E1uB<WGr$OErULncVcC=<1UHM<^GKPMuPuBf&6YMWU7Jk+TnZ1~VY
zMT1lT>Q+CSpNq@+M6t5R8QzRC(h#Y6m8ruzBju&$ra{OB8e5<`l?hTZeu@TVti_sr
z<Kk1wR5N_l!rxF5R3MU|&lAZ`nOgSWr|?S2C=<0RgRuGb>euttK?ws8F7xy1*Yj0F
zsWuIPPeVYxA@$5X%HETH#}HHdm)*~dK^bD6%<I*6QT2TW?40NucPJ6@hR#foK-o&M
z;?HtZBOraBgW9749W2j8gJ<h{W|)Yt&sB>yk?f!W$|=um1z1z@$pGk}L6oPNmk0Mu
z4YL(5{B{oUk(rjv2<<!jOe8uP^zhh1@_6}h`FI?2pIRQ;c`SDCP<f{vw`Ba`Dl79e
zg9TgxQ^^p@m7+l^0I3F>MXl65US0COkU<{Tw$g1ehXM#05L#fpY6TY-0Fevt*n%|T
zaB2apAoYOM22v-6h+5w8ox$UNtE{j&BN+${I)R8d(y81B=s*fXyl4n9KPOu12?eNu
zRG9V}c!n}b-~y=z)uLYYS-y3u^^=bwzgM+hqq-(L$P|p48fBew+ZGiDAY51gJlg`B
zSG9@Y(-6>5%rvAXJ4Ti7bwiFOI}VH4L6&PPddiT45mJ`3TSTUYNM~6>U=9XK<6?h~
zJy_>JiTH@RGBVL9o-)e%y2)GZK)pUIFxJ!!3@Iav??XgZ>(`ne3&UeOC)$PpV&K_L
zk;UNweh|?1Ky@IMf{q&|-+R)Z)!HWGWYg5!WupW&5EiXFx0xDSXZxg9twRt<3pDbm
z(W-3Q?mpi#d&vUbi;eh8TQ=4b2!N+P-vU>S0yE&_LY)c)DH?SA5K}b@s{K&^l<sqe
z`qLJq;W>KPz@Dz?)@Y42M9yu~)rk;Ten|&HWFWFS1=PVq=k1`BW*X!mB~w_VAP>&l
zM<=<u2j?sSWQoP^YNf9n+o1(;(Ut+LtKml*;Pi28gqk{@C@WK|o@W=_3j#D1I&DOl
zHiBBA@Mr64-cW!tNVRbEXs~@%89G$}QVps_tx%|%Mi+^bQRtnEZrghpfN*u~{W%s`
zI@Jd1CbwIm(2(l#&Iy5?U466zv(Ioo&kHaN0cTfOYdnv&)!?DumzBbr#<OitJ=AGz
zw~w=IyW4F?v&gE3fJYm9F>XFR_#y8bwh-Nb{q2zN6GJ{f<$dEvy>IeS?+p1qIpq7~
zSn=lK!JX9uqrYVwc3I!J%lhU55f@=}m-Rz-S>JpfY5d$6cN#y-_!-8}hZ=tyY5eU_
z<8Lzl2IFss8vilU_>V)4|B&$?F#h9E<L@JlzaMJ+UB=&G{Jqm?+kbO;HRmJbJaVTX
zbIJS`kU~m|#kQ@k`x`<F@5D3zVWCzmPuwDMQXL>Qfz$_5t5=7Q{s%?eDGtQcp<n#y
z%&SKhhb^Sq=G2}Oh)cCv<OIo|%Dc|uUkOaJ@rp<U*CR~7<wMp<@n}Jbr5R{TA+pYt
zvZ?rv9Edife7phV4V?yceY6k6=C@SaH1O+G<f7O{fdy<Ny`jw306+6_&?cU(2#>QH
zPB}YAj}C6W0ym?56m|$mF?Hr<Bjf=Qnmaxt*0F1ES(i|3zJk!=L^sf4ri~yi1!*rx
zt3lch(gU1}BPn!#I!Yrhof`)7`_%WSNOdwqr1+yRP*IBiW}=J#H@=;5ll7y_L}%^V
ztuFaG6;wys%$)kp6hamo7w9@6#m~J>y{-|HUHgVslOq-`gaE5PE$3;%Z!VXit0gEM
zBmqcjR65#)rmFJr220vzD2P?WBvu>75>f2#oSXJ?h~=9EAgKrhMqtiDfhZLe0&dEW
zKv5N3er0AJvJ(>1<8`l_C@^_&AlE{zFbl3SlNH~xbEJ!6mOjTjM{X`XR0N0vm)~q>
z;KB`HY@A(gYaiRq%!NN7B;1sI>*@^2z<xIyG_etcRSEzpMjLBWo5+4$QhuiLz9k<m
zP+}SoNpER^M9Bms3Ji!J%CcC^ESt5Fg3HJ3U7b@l^O_S>@l&s0Q0sE8*5$kc!jC+5
zP7*>+G7uV=fHC#a1y1#Iwf|g~jkdy4$m)>i*vLu1e0~WbZ>oR>VjvvA;oI$210<ZG
z8WIe!w5t@PYLEtCmgxWd<){CtGm8f)7Fzxp<1{zz=<JMh{M7tf>|S%gG&JcIsz5*=
z6m<clBOu+uRnh<T%TNDv=jsD*d^}}f|HBy(Uwyot<w#j1@*A;0WCKwEL<?C4#GZfN
zV|`qq5CpW8=?O@GKzaqzHyjsLT};WYx;Rk>FmqS5H9vFmKqQ@K@-RW+My#8eZ#fUc
zRX1roGsg85=dN}>QzvK7W!v}F6{j1Z_h$Az^)q{c+gm=~Cmje85K6*XM>0U~8^<Cn
z1?sxeK*|IGeZNKI42Gn4vxP^=ozUmvEhIqbfDi-W0PfD0!vZ8A{>XxC#eiQ65CBpg
zNTncEgEYW`396Ro`-(3wqXL0PA+Vt$83+xkfrvO#Z3CnjkirljnYNDe*}^^IHy#{#
zlTJHLWO`nAi!V~?=dRI1iy|0+aOo+j_K^xn)TZd5CKYO+#zAb(fVh$qBtKR~Osu-u
z`nG3h)s2^VO81q|yfJr^&n*D8>c+kaF7yDg3JnWO*ihO$D$$oSh8IFR*|o(^XY+Qj
zj2X@BV^S2DFmp6hJy$+_0Ik~F>k9Fb)VRQ$!`OxFz|Y{QUR>7Tx$oWr6*8XL@JXBm
z#yIoa<nSade8VWnt^isk-C8c-A{f8~J#X$R&!E@DiL$v;14um}wMhaW84}gy&GkV@
z>U{z{Z0`o3acrRlhsA7c09G+s)fZjIblOb<kW{FF7ywPiW+2Uh03^SKS23~bF&iMd
ztjrXSmhLw|+~k01pc>i%khZ(<Rx$Z@SWL2mjD{(r(S0GPEo9_B3^rzS*Jk?S^#YGO
zs5*OIAm`I^sU$D$L23SyJohx)dE1t8^pHtHD#=T{hZFDR$NPw}d@nBD$~qWe+4iO9
z;oPbl-)Xu@!A+TSLkI&nEm<(+%aAs&jB<%3+yfqr1<eN%v;@SJoFMtJM3gql+tqBI
zmWXs{h<ke$J0%zK3PXHk#$Nh!4<)_HOKU*wZFR;biBwD3%#%n-O~Vh;UN}MWBQRnH
zffug|yokVyR|H;^z?x23%$;}Xv%=<PI8Lt1inOpEzcBYWxxd{k)-_t+XI2L42cz}H
z+7i=V*m5iZmyygqZ(LsY-Kqt_!yk5C>w#?h*Y$IX{^F@G!ZLbv!mb$a8M71Fvi$Ut
zb_qt#wY*B1xmoz`0MJ}{vQ(1@gaQZ|5LzG%K)A3SnBYFWq;x$wP*W;M*&sE5)B{o*
zNSy>;lnIDtNIIW)*kL*3L|p`8_xToNEK?`({(Q4u5O@6HhyJ${g6$4S5U!um0#pmc
z`U&DnPLTZgB8o2&*xHEGGLgJ)pGZ4uHBM<!8BD5vPQ3uyl!#J+qdGx+Lvbqba{~9e
zGDC&Vyf?tRQWUG9c33ut)$AKj7QE?8yA9j=(IXQ^^jr_eCiFZswvV2j@VG2D9+#Jk
zv~24PW!pM@J<ioA$^3zaoB<LLl_h8Ll*WanOfevZ;f820-U1F&vRqZL0O0^a3A|kR
z^-tj2;{BK>O!=6nmRx4C`?UCa05=n$d_}ySrNSZ}nKpWeuSuT?<84JrMJ{kkuC1v2
z2oz<06@fKPc9XVrLaZY*Xn+tJnLJi8W65u3+JNgvX&!HEZ-G;)Go6JLT|$f`$N_Z|
zpj;tON}w&XC=Dz|X5i8lv=kb^(y`pKO8s$u8f18fjDJcmIh8ZEd&6<?j<}%IMih_A
zm5*SLyK~?jTyc?=BuH5U$`F4PLo=HcAj$sD5Fc3LGur}doX&!hVz^Qm;ziB+=gY?o
z<459ace{c~210}Nz!Lvl*4uimAD>ezpyNtmh>uLWFy2wk6U08k=`H&AO|3EMBu1~s
zst(@tMC+%+Cc>U*qM3+nH@z?cl~VomSPugu1^PpRLCYfnFkU^mD1<Hg0W@~<<BllL
zoLTy+sh-EoeYM#4<=2kwcsJk;tcnLAS2-Y{?Jm$JzuWkiCci0589YxLnn%yz=jlW>
z6F%v_K&cpf<}Kq}-!QwWl~3x#Wv0cPZOthQ_+mrXLSRD&m!)Kxw-`uZ4eRnt9tkID
z;eY}-986LhxovOYLJ|<;6jY(hVi{7osceuMK<WXh%{2JPHBs6k4Ow3D5^;7Ho;F1n
zAk?f@=zU;<4+t}`-*tG(ER9s3W+BHbbZZupK-vM)8jOrl_G`?-cm0|L-s{~1={_g&
z2yQ0KvX5NGIyIMH$q(blO&}@4YnxPPh$s-<@+6{}2~z+!6(fQKyCTyXOsX%2-W(dh
zz1df-a8YAQ^;guvTSb|-E_s#R37Rpf%%lM!07B)Rwzb09c(}^quVr!8IAGCKctDB<
zslb~sXg?^U(Z{H+&4B0Wwq;lyZ3%?;3=6E)ysc@`1Zs$=>eOtLX^VqE=6Td<iyW9g
zw$Q2%mw_ZTrDWZYek>)9n0BL|z3dE|9Q~|4If`uL3m)Ta3`H7ZpZ@YzD^w{#mKPX+
zaG@O-?N19I1BS7ejj-1Xo@_Il;d_ZUX@m1*=|sjNpYFVY(YJTz+ox-DnQQg5cNA+>
zY_)?3IDRRpp6ARHxPgcOA_u#G1X}5q4G>qV0;y1R`09`~P(w^ZAV{M?nnres{_U5a
z{;Se<CSR>re>~mtejl1i_~&g$&UJg8#aJUBh!P;0fT#na6Nq9U+VL2Ot$&@z2*Y9P
z4KURoTe#9=kbZ;o9%KwaMgn9!2$(2+BLQ<<gQ-&?awJE(sl&kAf|Y^wkvopnlqP~4
zq-2zd(xjtoGq*(Dq)nN~6YCB%KnQ_Q17QKe2ZY)CH(B$$Nh^ccQAu(bttJs-Kxzf4
z8>9sw?Eq;FM#d=X9MU`v<>s(naBtypD76+jVY?Q=TVY*Y**jzD%~R$B+u0#C!L1*p
z>qjd?c?hd1_@`Bd93YGXYO2ye$^>=&{-DfJ$O&Z@L&hq=iSf;$GK&b`1X1Vl_{M`~
zamNHE8u{SP`5K|zeYlk0a03wmL=J%iqEqR~%E9?*dnyK&Y7GHt4oIUwnwA{h=5V;d
z<WspZ5ulj+N}jxC)-WW?K;1EDtu^P6$D6jss!CFTBm<!#20*NbCeHyNt`q=L3`k*k
z7MTu}pImf>pC4)7l*>Kk9<Sz-kl3dElv9E5D^M}?RJXNl>6UFvxAYN*+m>$KwsbqS
zZRxhQEe(tpF!$S*ZZBj!+_vPD>+PlcqXs@_J8$TiTpGA_=fQ0zI&Y|Ump2&rGvv#h
zpU4k92I4FCjKR|1q!LLW&Pj~NBCg~F$&beoLv_#j`D1MvF9*1BFe6K-qOCeQ;qJ_Q
zvpGWk{ts?X5=wsgci`pU{eCAf#x2XZ-MRVPMC#u~kYJ;zoKA+PPl*|3^W}-+L(A?P
zt0E);kIM~CKixVY?LwRZfM15Vb&y&gQ@!*74_dXgo-O@1smTh2Sf`*krt^Ll`GN8F
z={8oSOHw^I<;P7?qUg~;nQq}DAxdncN((qCK$3yb5JjMJ;ZZJ#D+PcQ;}s-`7kPM}
zH2j?Z=^I;Vnz{438k7w!)t~%^6$rog$1N&%kcnBqGt7cSQ$QL7(kzh1fi%%H3<YVf
zX^6%hk)!kGPI{yB9H|jo>!lE=gx6vR2}T;_?(hveoKl@})mxe?RQoZ|8#;CVu|_DO
zy`Qyf_DpSLM!#$JOr82!yJkhb>J;)f%1U!Isx1d>-a+8IRGYh~&I=kc5&<$BiRZaJ
z-NT<}!9i)m5LNFgWsbT$ZH1cqb3#w)R13#S<p@fUOZ1ZR(*pLYqfG@g5Ch==!Ulww
zfCFC%_@EjR)qzwBQZ=Y6;pvrTuEPzzl8^Mm8r-dWj?#F}d;pu}u!P&$@a-6WrAe_k
za1(gy+cEN__T}3#3c!rxZ^x81E?@T6e4~$a?Xt7xo7Q}zVgB3g-8yTiw|AQA)9YQH
z8pms>P-*F%qfi)taM^%u@+Hd%VYkV{B|S;T{*w%_ZMF{4x1((_-hmYeKM)~6B>8)o
zE4G&8F+p910z?e79t3pA4$L@ZxBbPNnk5OsL7E8CP>|+&h3M3$b-o04%UQcmUp`#%
zT#X$$sTas^?gL2#LIH#f2rUo>AY9lAR6GpY3gSwsAZ3Hp08$S~Z6I}GNK`w*;sE0=
zGhI{c*QRe>o4(DGVz)M(T!qo+{v!(R&FTOYOhvr8Ivn`S9k?(aI0&&AObXfUgP0Ox
zoAxdHAb!4GtiMz@okdJ8QNukT2|!Yz2I9WN#tX!ioFMs$i75Svw_6KvS|oxe>ia42
zXi+AptJ(>{;%S{Yx)gewDUXbOYGQ>-R84MH9&g(Us1Cw~Q^5b@m!JMe64t9!5l)NQ
zX7?MnjQp6xkhC*JEM{;3ceRb*o2_f~+tC>{7E6SBf9A3i5I0nrKt5Tj)DO}MkhXxd
z2y|4BT$V*q27=hjl~#ka9i#_jhbRLjg^#QLN#CsK&;nu5?)I61v#b6IudL-70n!wZ
z25IZNs(!i{-8mzh%n0a!5CaL04xOD5Mp;Fg{6>^1ht#6)4|f?^EZhXfCEB<LBmqb&
znGZyu#L4{c#z0Px{A8Obqm?x~uD10hmD{ZO0+GXQC1*Dm1pI~y2&t(n2WLRFK&loH
zSBg^^JRn7bQ~**9s-w+Djmxf4b8<7sH_=PwF~fDF+x^U?PZ;@V%Fnm!$Lp$ZS;yj1
zld`f!0>4ScJRnLXj(J(nl9QYAV~Oa0|K+Fup#*Xg8|Oo2eu5iDcS>-)cVMv^o&080
zVE29-<NLdxr8sE__F#t{InWpa4XpN<hFFlcnTCZR?KG5{YbaUv=tAjSu@A+=T=A`Q
z#kbws4xzlvO1X^lEIIN^mq#l+x=FH*WXTbTZh4F-h${tv6a!Kic8Q#kmxkr%M|M6%
z_K}A6P^_NT&6}4n0O2ARfm1s3Y>sSo!YV=!NNpf>8X!<Q3k|`jSIs!n-KJVC$`tLr
zPG`Y8@(!R5!=Cq&oc>QuB{p3+tif>MFfc>tM>fZ&Nx98h573y5HsDul?<7#Yb^wjX
z@`$iX0U*VI6h=TI)8QU#J$~1+v#}PN92oeu=$RkPgDN(bY9U;x1D2z+8eQzm*Ivke
zbTJ{s`U!89-MI%A4+B-puH&0)ngN%SI|DPoaW5)0FD|T~3~5J^)*>CVTdST7>TT9J
zfJUz^JNq3jc%7Lf;pw3r1D|$viX2vmfKUP<2XgGXzsHBrbEp4Qr_z%lIm=m9<b(=A
zss*VWqzNF;qxXu#;6WY<@74Y@o*CG0oG2UO<>{Nldw#c`zImGwyRZ0dE>Z`1A&8G@
z*81S>Qwm)>_0hUUA`l9Hw+2l2U;x6EoU&Ph*Hv>7S4ssb8>9xW&;wE%NS)R}&|nCz
zoHj&-k8S#<TGBHOQ5o+$#gJXdrVUBKd7^2x;5b=-o8nSMi+k60Gg-Le<I<M>_N{7r
zL%0YAFuCxppMrEWzMF#doWa`+#GQit<`g8yzAdD`V~*6%+Sod0eXUJf-Z^b~S9^l7
zVj<(AG3Gq)p0PjEyJPG(S};`LJUI@>!fbxv2$0|01CjtF6?cF{Ph#>`WGo>7$xr@?
zY>`Z?*TwjCB+-gNG7uW%0;l9!<P`%_7~&(7>a2K|P>wt@S6o8Lmp!Ib`ydamxpH@D
zedvQVoVnbI^^t|ww~{M)uIlOg=c<lp{9HwFztsjkek2sNY1STu1R$xFl?=2cPH^)f
zVma|%e!PzuEty@~3J#VyFtUsct>B##2zO~*Q%GzDFRvZD!1!&xp-?hso3~cEp+&8u
z=<Tw7gA@q8zgsb|uE7pO1`t8H<0d9#nvE#Y0}xkg1gSTUWX(()xY81k_JFhsq-`KA
z1ZgLp$6WIramn`s7ZY*w{hMQ4sE)ic-{G}wxtq;5v(=Y6cAksS>M8euBm$xE&dO&_
zXn`<z=h3_Z#<;n&3d+-P7(vPgsll7@g4705C*Fw4kevTi=i>8TM+~V>Lvu(3azYgF
zs!b*MdwX<7KD;S3Aa%kBQZ~pFra-`4!ORuVfxRe2o3}|03X~1buoby0P<fiQzg*-?
zaK4PfawbNN&9^fp1xPXw8lnb7w>*j3@E%K+NTDN5Vb~=~4V@jDHDQw0%<`RWmaeP|
zeZ6pmFzl7-+{p0O*84GgW$x}C80*B1JCEh#T9?}Nk_DV(AT+oE)D4n#1LPF~v>!T<
z!f-?6D{)QyzdtQ6H=7T$yv)VD*A<~|w)l78;@^!R%s?an5d%aP5P`xEnulm0@-3lx
zed{eFu@xKt9RxH3fDSD*6{Nu+%?4>aNEbwC1L+Q~ihM-8n=`5Wcy*U*m=}AvgHhbp
zv^IXIv4o`?QXur03`C$3j4OyM#eozGQZz^fUcrFsXtQmY-)1;-=LFYXI_a!71=x(=
z8ZW4fdwb=@nM1fx4opp$-`eF4MaaRW%ap^H<PK#!K)-bd&d*4s_#G*zIT<5BDr$gO
zE^&O!q>7x}lpl9QPAW*V;J?Q8Ty<ub)Rfn@%&j93>&~6!6*eHe=&bSnkxmP-Dzpbh
zAk~3XnzWQ<4Zy6}ktj2Evgh4LxhfO)_LGEnd3^?`S?yuOVZ0+Yg{*lEP$53H*VJ)d
z)k>e`KFx~c+67o>5ds4cE`$J+RZJgrS>=>~jn=Lg+{;d*Rqv%`YyxA=^W9|<1E_{J
ziD3mJ83+y9YKjk<jCnwWMghhPI*`JMkjTeJN!^cvgem!YLpl&5Ae3kUBI!s=nntMA
z0y#*@D2swba-A34x=7}^rrvxbl6l4LZtYAwP<<_)nTaRWvdc_(jsDiYTt1#Xta9Wi
z4Vu`P*UI;E=xGdUSxYf#xAShvP>IZ$;k}a1&U&S!GUVA)wK484--`um=(DOx0g?=a
z1~Y2r3mTUeMHmHiu%Q@`!iZ61I$YXr`)<T_7yox%iO2ch<t@Pg`x6!%3@(g5Al)5O
zaPPquC12fu%AmES7&{KQ4A(;@&F;SQRwl0$`H0MKN!t{hE|CU=00<QjQXuq*02*;5
z=qiXS#eo#6t1y9708$N(i=1YaBdXm`oCtE~d;>6Jb#HaJAML}hA&9wxOpQ#;-)AJY
zVxx5kXp;`K&Dn2!Haoj7L%O*O6>Eou^Q%<Pu`d>Fl7Y|w$D`A-xrS4Egaj-HqD8S4
zUaOfpKxzW1540bQ8f-1_CU$_dhM31F>eBq<r{D867=93HAnLdWBmqb&s)6#7fNBv}
za)RVXpvby3&o@!$JPX<xedK?5f}ek+;Lbl%7(e<1|M9}s2lCsGS6OZ2XDqnTf(v^H
zl7OUpr!72LRH2VG7w(`?g4RF`QW{8^-h>j{qJWwOsZ)s~<G3EC5_<!&^1^MW7fVZ~
zjMsCvq3<UA#>U!sLIH#f2rUo>AY4FLf$#%gpAJ-4xn&cpV%<V6NFzX+0@5ImW`Q&g
zq=}%DGln)4s&EqT$YJg+9V09)l2a}^i3e|GwC5Z3vHS-Q{Qnq>{f8NyEj#m%zyH<>
z+V9C`ix~HSBmhZ8I1uY4P7HqkjVn1p@{^enqZ7aL`mEYK9BKYLzkW|Il97}Xbk#8Z
zZl?^bdTz`cxX=T%E16#@g}eNa?n<k;cTBBSBxn_gD>=0aeysx8H_Wd;T{MZ;sZiHe
zC~g8t0g?=armRpd$;t(Br2vp(Kng>=sEPkPCH}MGKP#T(WAUF${O5@O9P!X`r7*;c
zn)o3eBkQX<I1!cWY7{^bpWu8t3XY>~o}8KEujY{72E09{*TbvL;jqLo-S{aXzDzG4
zOt*7ByOwHR$ZwMauj<y(d5fdH9$aJ=5C`9|z}Rl#l@e_rbrNFH$Ph>O2z#d?Hh(+?
z|DYi@h8U8wqgzCL@;T28pLy6Be75RZ#JR~FMk&kl``hX)20Z=)VeohNc|8TaQUGlF
zSU5`fVb0ZV>LC41ieMJP-txN4h}YSQd!FiH=_*a+wXYrzO{Am$;kDzrpT(ZL25{{g
z$Jco|a(=t=&@nx}brKTDZ*Brf0g?>t&oh(9cz|$L0U*VI6h?-NQt}pyrwuR6<xy*%
z?|lN1$9>_GB@zlCWI$+vFaY5q`+>-X%b9->S4tJZ2~q<{Js`D#)QKS?9~EURLsAFc
zZ;7_0Ow^vTAF>CtFvkiZN^ULP-8<x#1BKzJz_}j+oo55A=MpYIr7`2X!n4i%&y>)m
zGkEjXyVw36??V8D3J56>daKc&i6at>BM560r%~{L6b(`VNHth08dP(>MZW9{_mOJV
z4KI3`g^&XKZ~Cfpq*`T{yEnQrx`2zDszJ5LH6<CN+DR7ud5?PNAHO>e`aYf)vSek-
z=6z;qGV(w`O$Hh}O~Yi7v&g>V;G&bKBxY%y8wr`Cj^RZLbL;e~mqCObhzx(vt&>PI
zFKaI<f)dc-eG2nZy`WPIUz)5{AZ-I_p;ySn0a5D9;6Swv@3vmwc+$nzdL%X=@3mET
zSl`N;2`Eh|Vw|lt5)(EVr-LbBEU4MtBMWq1X`pT%m>8%ajaO5aO(AEh)3BrW-_BHx
zA!zn_>)_0P`RU4EbvjK#KV~=#cyrgFDhxkG8G%K7)vV)ES}`s0-ALed@zw>z=Z#pc
zcR`|S(Xw)%DW~1LJX7(tAA~o9=H<gWiw<MDdZg8KQlSPKK8UNZS+eB>$&Xc{R+849
ze|{9yUZlQ5Bu%&ebV|GtRwhWvC=;~^Kdv*oFgD*Na@ex<jo;AdL}m-1bdpyTCx-o3
zKJ_aM@uKF7KaUH@gnYC>i54J|-qHezl2Il~%dpB+2|ZZ!<x9}C&d4PJNGg!o6d<z`
zz~RH5txxxU-!j0apCFVe9CS3vk>253+AW}&tO1xMN(|(z85~5}*1lm=`oxO#Sr!;@
z6_m28j4pL<<teE^e)EDDkR<PqpE3w|t)xTgI+RFvAqFW8q)d>*MU;tBcvgG?EYilh
z97d4>BpC<|T7XJ|r?l9dC;+4wkirlzYQFfhGPCz(LOxocL<{f?Es!V~Wui`5+L}?|
zPARj+xvpoAH(V-ZHasZHw4y;6zQp!c=*+n5<C^}uPIK`1OKi>0^|G}tBR_3jYX39o
z{DufPYF$=WX}my)2ilzj)4D*;m6GvO<fI?I@j43M9izZRSf7ifP$kd+Ap}A#WgB=`
zXDtm9`jR>}MAd2nsSl)9kh(!y;MMM!{5n5%m2=lM^6`;RC#iQLBsNtL0HG4LcYI?{
z+5{z3nQnoxT~sJY(I6FwP(yq~Ei>4=RlUbZv)Zmk`@oC}l*9mtBy^?`25|-SCeY?c
znII*jOq6l5MEpLkPbamZ6MA$45qPFfC{=@MQMJt1vj;v)FcgF9G)x-8Js_z-NPy7!
zd$fJ!xBy%`sXm7rWk6@dQ~^>ENOfNANDkVs45Q@a4U<+l&#_7iVTgr&fjq~aSO+s^
zsgw9bwX=5^;_}6O<)c+?@9}9kOKSBV2^yg~ikmjTn}-pFc<Ahkp63*~h7YTY{vHm#
z<u{Dsst&VtiI%r|%tiVr<kl+{8su7}RJm7}0MZbU=72N`q-pxCh0Sk|&ztnyseo*q
zpYq!cqt~+>O=j?3KHP1Ww$zifI{NYf2pJGsAPhjbkOYj42QIoFRoNglfYbw08%Uja
zBdXebJ-?cYeKq0z9Nt89tM47Y++ky(G>|euN=BKeYI7;8+T0h6liGB5G`zV!M<=RL
zISgo8wb7=b6FEn>Ho*WKcPQsrU|~`lNS(w$RO1g~kV%Dcw)YXRCO|_b0}%n`q}P^X
zg&|(_-+uY&zeu`K*VBA+clpJm{xd%~s)nVj@3Tg}q8)zVu)VM-Er!ShA{dBtAS!_9
z0Up2neq_1sXrY#4CrE2S+U!j<gR~!{7a)Bx4ecQP0_hz{A3=Hw+JD->DG!|=GXLBB
z`YEe;Q(>=hwJt!WJMH*morQ~x04n}4BYb?go@c`u(8gOmQliZ?_%K9NV+)DBs;A(I
zTzSJ341yWhzajWTW?`LnfV2i9MXiKBU9}#!uP2s>;Y8>vq4u&+>h9_~6N(_NfN2X5
zqZUXIFRDg>Gm^;kG%c&lp65LA)#w1G8amkIKnjH3HZSuF9FSSV@obCY!bmF=q-c-|
zK&nBts669C%WcfmD|Y`sDZqoTMk4}cp1dgH3K(V3aiuWCi>fVU5ynGbZ85TFwQ?O|
zHLU04zRp18@9rE~=&Ocj-GK|MgwkR`_S1Ez%2v-=$~Xq373;G!qL;~1;4r0Whk^(o
zatJXnI?u94%9_CiYAeuAMx#ta81WHh8c)BZ|8bkO9Cl$lOXaVy+=8?JlG?NbT?SW!
zdQP~zrH8XJIP<ji)(qn-j_w_gGxn>a?ZDpYg622_-WtTZZ^uc=>c@JceU>2=2nldF
z9J2cPs&vx8i$I_`y1J>ShU^gH!hyUhKq>;M4y00$szKd+XbU7e>slMr+oUxdXQnl6
z#@pI7S}s}L)H6iB9KwY<ff}Mrb=Im$6u4(#b@Tl{@0SJKpYCS&@2quaB5gl@O?;h0
z<18PSmMN^QZn<TbOKchHt~Qctqtt55+;^Yl!2~%$@>>Bw)&8)sby8wQT)EH~@oBkf
z5)gxUg&|&4^(*4rX%Na;9os$90?nC+L3AbHz|RAF^!i=LK*WLiq_e@3xmIM}ZG7gS
zYF!3Fqs%zN$jsuPx~k1!NDWor8%7K5pBc6SjmVGKBOmORA5c{r&1xOY>oy$^)?bZC
z#$z>DS3&jDd>rs;oi)YzDyx|*8<AC8&9wi900<QjQtv!DYz4;aTG@nyE1-R*LP3fK
zsQ{!J{EW6dVm&+^JX&UsJ1@idX!(@>bCv1!m5<@82bIHxa$wod51S?u=2N8HhX4o_
zaMu)Se;PEnYEbi#K@H+CRiRo86G#Oh)nI?LrQz7ro3@;+n1;h{Yt?r7+r*KI79hOP
z)I(~fNVrg-{0J14FaBa|4DTy4NregsX(;z^d7RXOGDU+_08$OAqpf_Y$=9)7wd~&0
zz?U}V$`n@W-7ueJ;rFEreF0S?xbgGmv9FJg*+>eIWFR!gs7+RF+`*3tPMQF1<`n}{
z7~(}WF4}DCxyJ>Q!*HpVbRa~))6Xy!#*F3q%?qpSMa7V`@`%z9WPwx*I`u%(njkHA
z7ezu`hXg6D2KD0@_r^NphlYp%5g|`SWNe6O3R66&9y%g^KM3ffKA{6moH!_aeZBMz
z3k=2X1VoKQT;g*yB4{OCd)tuU91G2w{$;MWB2xAke$@~kQ9T_dK2x>pRCFvH?0E&k
zW$ACvuCM1wSzrtnFpH|HiFPsI+pDh^TeXhA_}WhtOk0q8efV)#i=f(CrQGt4R~$MH
zzM&==2#uBUvO2W`WvP_V;hDlLf}m{7Sh@ds*qGr6Y&d(Sn?-Afe`dtC?Kg6S9-iH1
zj{S%&`={N}vCWqz=c}!6pN<r9z1zQf!00B{?M3;&o!w?<G$PVuoAoT0$8(!ql7Z0R
zKM)_GtcE-DiCj2;p%{?D@LyCNcf?o5z9C;-`2t0Kpyw?uC_{;PDcULHlq&?CcE(<a
zcf5g6;u7!`mvnaqxyqna8K|0DJmdEz??>98o~aQ^cz`had-VF}7wkdW`Sw7m2_Ovt
zX^vMIB|;b`i>jKH$*<?eC_pjSYF6K(Ih7{|VL~-#nKhzLb=C>ai&WKiD_!|=o@$-v
zrDv<4s9L#r?MH6T&84Or`rQX|ko!IhD*VO(JNg*3QS7P8(1+iu$e`31v}yh6iZ>3w
zUC!aQH7hCihNt24mDgzC_-XhZhD`T;Lxp8MpjzK!o6Lss(vrntSTjDbAT9mjGLq#$
z1w#>Jlvdj(Cfd5vW+8zJ2q_SHbONUeK+~C76qq1U0Z28d7S%w6)fV>^)Y|D(1*pMs
zHA@ZxYqky+e#56F?TD8=W@PpBs6bi{)C5u=NUb1sgR}so9U!g2NKrldH6u?(=ye<4
zjMf>}8N2RPl$}{uykDMf=yd1|+VF~_VT1z+8xUSH5vbRPomVr<Xw7zSI~qcjf>aIC
z0HP(@Woemps$HpYy<r#Dv0oDFYVYJfV;x3foLMRw>K9+zv>7=aID2=9fKXxx5J{&D
zNgrR|`cyK?L___0<kKI@JFU&fPN;yxCr8q}Wxo8BP9HmGFo9G6QVps_LlYm>uV=-C
zZtP$nh}XbZyq>lI1`J3O58B6occagUfi%8fNyHzG0q|`LBzc4j1WXJ-yL!SshScv=
zZWD9-<>xmtV{C|xi>kG*hW4UeJ>iQqyV;xLX1+pD6R`#bYJ<|=MzW~D41BdGY_-_w
zSeCS79dfu*w>Pl>q#Yowq5Oz;^@L-mRW;Ewlz}!UkK=CuD(OUXVkl;igMbbkMZ3bv
z@3s(jDjp+sdOxxFb<hR27#yg^0=0qEi6Nq0VSRYasS>B%c6Q>i9SUdeKu=)>BJh;+
z&Q;7{0s+ko)u38b6Snj<Uc5FWsjyGz$BH^r<BfgIC$eVRI&G~}HMEMW*Y`CeI}V&2
zyu5C`ksL4YPv_-pwi;J9b2!Ek?aG#MeZ3((6;m5Rc#-?QoUPc|5UP4tqrSaSqZ~0j
zezSr@iE7|0svR55AXgcbDpNr{HT&Z8;luBmbq?Rq?w_=|+^&82UAM-mJ|<jat8pbT
z1GlHY3{2|5=nN0qz-qOvm72Uy!bJvMr#|+JKYZ)=V0eaij?(H09XD%ne&wMy^ObR1
z4RPc5u#(~E7|O)(n<r*KYPf&~Rxu!jAzoBP=G)~X2c@-s`&ff<fC2~^u#RinO~jxR
z-YK0{e`Tu^R*-t6+)v182<+8?4Te<VeYYjpHtx$0VsMT<Sm(?TW{IkmEVF75b-q!y
zl6Cr)xiHF%*9@_hBtBa|dM%?N<Mi9>bnNd9j5fm!tW$r7!x(LSkO)L9kj@%dBZpPa
z=m45g@3I^QZ8d~-6tH%4rS%|v0O<*+8!d2!YGW?y%VcZD-Vt=%=ns1P5eG7!LrAN8
ztPvcC-2m1x3M3oAtxYE|zI?0Mu{<*#ogS)qWmY%n8Bt#reD{UZ5|ahJuVxJd-fvH&
znP~drI0YskoIu!t!**Z?Qb@y|I){-M)Y3#Y>u{lw>eW`XgS5dbgo3mOq*Wko18E^h
zJ8?jC@yk#Do3i5oeGUuno2$q9!}bdsNwI;nuC+SH7rP}sjSfT{5SiX-yGY!tf(jsd
zfG7i^5r|qKx`7w~#0ns$0I|o)*mmN+KN@zz3k)+FSO(HvkWPCO*FgpVWEemO17t`*
z1_oq!Kn4k9s6Yk`WY`F;s1?2SqCJZDfi$bXwPRH52%y0^pmJB=YLh~~0?b94eZ-Ka
zFmn!69W<$)0ezTJ6Y|xVha}(`S|Cv}%0#UVMOn2k<6?2FtqMwOkMInxw{;p~6@a<}
z+$xNI2(jFJPI>gelhw1OgA^diKxj|~jI!ryu=80(Xw68)fE0#jk?Df%Bm3GMV|di&
zJje6o&Dgxj?<wvziS(H5WKEGC!i73udOn44P+8mBJVgu(B*3B7@gWZmAZ$Q*5eU?N
z<k{hXxKcPs6{aBoq&kpFL8=C60KUZzecNoF+|xYw_{w>XuMEgyv?qGyb8%1^)^<Xc
zi_vgl3NTwq6p{(PDLSZ0g&K$fYSeHLS8|F-!>WjJS=QUh&yxbpNoZaXXck6{qsQ&6
zKUu@|8jm*Hovh)BH1jOCWP`USYrx=fAzKeM97dh;4Tl=e_dK3mQy+MRe8$<4;WJ|C
zR=8)x+73X!b_0!ulVBu3T*+x9NYikT`u|v6q4N)pEBOQLTG16F-YatK50`uX$j<aD
z^z%{?f%{|4Rz7orALs}2n|oT+_92=R(4b0U^ozKX6C^+SMOG~nt4{OlNTSk7j`aOX
z;gMWRsA510LwsbCFMsf&b?2X-x-;Ix`q>|z68cBVVoIfpXfP0$`w#cf-4hq_2Y(Y6
zPu0Eu0MGpgetqyP-4FM=0r~y?(xWc;g&RPAbJIHw+NVN8cz~EH58)AUr2uatCTQu$
z%#~Tzcp_47&2So0XN?CTeaOLj_a7cy0UXhDJ*)usJh<`T3gAOl0AX|m@Q`s>0X$@M
z1@OU7@cu00$2j=GZ6#dlK52BN7axJ7;y5slKU~D|hYKBt03<&ii^}7#2Znql{(ix-
zGs5pye)wACo*dZQ{Rp{DX-Do!Wgk3?>~Hs<KHU4!s(U|Qm0zDKLvs(Z`()*(5Bl=y
z1NOt9NB3qQa1e5FN{FGk*L~QJgj__3fr}-dPYL;~kk2QCe2$RM2>DOw=*x$BZ;9QN
zkpnMx1x4)-Q*p?Cp;jyoU8tN*98zc^WGW63(u&Bmki;Pc=x_HIAMPW>?}Fvm#Xd*&
z!MsQ?FU%1bk|TXExtCy03E2m8LP#IXi%~GG52Iin$nJs(V}f}|LG})Hj5v(69|sd5
zQ*k&5=7f+wn4eo5J{wFU@_8T3eH=a~n4b+M3<+i*htH!pd_IiBf$Uuze!gdJFvAIc
zSoAZ2!#xy`Aj}6yfVKrB*cO1ek`p99ZGp%c787}A>*aw(P}sRVC6-hOfl&MV#rVPp
zgc*ngstxcp)mnfUkXk|N_6kWL?Eq<w4Hjr`B;OkSa;>_zj5HdnwuW!J2_Fz<AQCVV
zh!%aHj1OrTY0!XD0&QHi0Hhrtt-;6`WkWH`39Umr=@7;LT|?n9z4sZR1em8es`cl4
zrlB*w;D^C)&;5p!1R$x{3`D8K+6>}KPLTXq5;1ld^Dp)E$qxn2>#0;of^gvgupTBQ
zRv-vTa)RVXpeXT=z<nV(Ef(R6b^!Vrh2)fKEkFziXdwZ<T1b3`(E}a=?;O|g`;_Cc
z(4q?|5PCuZM9axgls)Y!)AxN;Lwusmte@vFo+0aV3_n>v9LRI;`JngvqtfeCp7c-*
z)jay8qgZjd>ISm$W)*KN5ikJZN{LvO<6JUN?=$!Pe1eqw5CEY9LJEW)5x_W}Z_~kS
z%(V%mP+dLTH1BIGYI7b)j;MCL|1RCo&#!zA0KVG-7%;$R1X0F_7{c!pR_Ha!Kxj^T
z?W37u^cq4lSea(<{jdF?&tdDY{O<;R_hxVgu)mUhzuLS1T7$m(U;9Ddz_=Uq9WdG%
z|LWMKMyLBxmyG?XLHB#c?&zRIf?+LxM&f>HvAJ(!WA2awB-zw{w9JKV0LZ+645S#4
z!iYp<I;L8!pDm*IKEd3lu;!4}XYM_FGTyVL6e?A>{n&Masjq6l>xgo3nQvnA03gnp
z{){MdPKf9EFX}vhgk|~Q=Uv0k55xjdajH?57+*wKKiO0xaCMyzZSo@mTla-n5`d&)
zEf5hBN8qqyD;)x9L`5-H!4k+!FubqG)a>?M1hqhK1xSx~QVSNK#4-s~HP8-R<UA3K
zd|4tB4P(u<ufpej(t!}EKRYezI4D`mv$lUCo5`U@i!xOPrOH%5?k_Hxi6EyJ`)qpT
z@^SnrQ>YTvn!ITfA$aO^2;EbJm^MkLz1>zuiDP4?LsXAdK=&|;tSiv?;JN6^lTR$e
z!~UVMKJh>1glk{PJ7DaeU^~X{3AW<E>f$&K`w56g<fjj3TXEu0jjruBT*Lubao~kB
z)28TbP)UUvh|AD8-yq@&XsandaS)|ied(*!7d;!Q)fcPP7cBnb7v~uS7`E$m@4ZLJ
zxk@)Yzb`ySZjs5d)Nr5QIaF3g_s;I)?I@@J=EA~}&LUk{_ss>{CK+o&f?tMa*tv_d
zqyR|<LSx0q#G*Vp4#Hyv=s$EIh2g)*9iP(h)2dXp`z<A?f*c4B5Jn)}-al>!-Y^7v
zR1VSvkcNOX2c%J^VHzgKLMs$PEn7!1<KDFeH8Z179YxE&6W)|Yz66n4c@X&i+ZzdX
zC&Za)xD>*)rL|Hamb$UBM#p_pp$6&`#FZ&o^o3IoNyD{>Nh!JMi<hOum)my5Yj13S
zKzA%z-R9h4#^ABoT$#0fV%8T@u>=@PstqHZD_}Zt(hM@Fik-iFH}VyUq(XyS;A?V8
zQyAhSGxk2z*WDO>#@-rTYAFfI&1;Il$bInb2uL*)=n{_n2o$AB_x38InO8(27$P8)
zm<@bQJZZ`VDH&xV$M#yXX0ya<lNT=EQm9u@>s6c9w#>i`L;{8Y-!??&)e2HKNDDyP
z;Z3BNgCNJ5G4d;)PICNm+QhG<uD{ylK?{Td2p47nk*lDo@PE|;SV2H5s@g#6#1K)M
z*nFyX=xHp|6Xn^Kl1)1)8e1ECZBAFvJ`iINNe~Vl0;-@X+lFt{8Xfu3A2De!zRfaD
z+Si_{<+K+woAx|NE@m!B0nsoV7oYtbq^4$m^AV-@!mszt=`4Im>Dr>mo+I|#+;tEn
za%SE)UK-W*u@*}rsX$18(E0mY-PdE-fbd$$E_F_M$&IXhDx90D0I3M1I<HWgwBhAd
zM<v>kOu6g3f4^C=>-zmD?;;=NwK3%jkh*`jaWFr)A9}8b!Th4*AsQP8^DsDUojaBv
z_zdANj$inMx5yKoL-_ec28Hu4y!Kn~dM)xm3N#L1ED@vuhj)pM5~QZ4nFZo5^zKs;
z83R~A3I!<|qyn$%y)98%JZW=;=Ua+x@t{P+8_I0)BGXdnXE7`(d$%(JOrS0OIT8jc
zOJV!Gh!5Lvp$?daM<HLnM;2+5)ZB*#2q6$^AS}R1xp5=k6HzQz>Hw(;q&|>ZLFxu+
z0jOiJXu*-PGQYQy_j&H4*zg&hE&zG@bJ6X-x>Fdlfp9T*%>szc+yjyTB$ZeIqx(LC
zJJPw56C^*Dh^p}U{MQ>YEP!=Jxc0^A1IeOg*2MZma%`D0Y8K_7hs8V(RPDe5!wMH>
z0n_Zx`7!JOoTSyMR;{h#!_<Pk0lTA+R2#0~O+^RkAW}if_Uet@d{v$y&f3^%E2=ql
z3KB}>p3<2R*RH(Cw3*hTjD4o!5g#*Ek?kX=<U00I%)kBe(|;|296`xj(R8${+Z$f9
zNt=0E0cy4zhYp(u!v`}E3Emlf@u~&a)YkvEF*A421VkMWoj?==(N181uLQ;x2m77o
z0@@1$y{R7{z40bKf%FWte^ntQ`-MVDum+^}AY%YB5+LJ2z(g19Q<)AJ4X(ET>tcrX
zVd=Np92Wwx3I|RW1JeFOqo^&r<!3X2Z=PKcTG1<^UHe@A-$!UI(2KQ?e8B&1Lu+ZD
zVPHZ_^c+br>v+&8yUIV&JJhT$%`VfoX>eAvj7^b{-l1x+Ed&WbQV9nz;mGW)%D4hr
zo8-q5QH?eHRVQk_A`{6_0U-rKj~3u-T1ZngNChC(pjwot6)k#fecefKqS^KcN^}C>
z)@gI0WRyigy0z6T&&&If$9}@xAznSgPDIrP9Nv~~cH(_sYPJoV5V|fivfYWW%1#6#
z%OrPIoZeIWc2a;O1EDdlHGct5#&G$5kpl2aF(8HEoXGFoH}Tu`)tc9^>$zd%$%Gy?
z-<p@V?NQSaI0Ar3@poGstoF+ihGebFHX~KOW*tUioVgCP1^^wTYa>WYLE7sTR)e%%
zga(`w`Qg8vb2qc^tE<a}c5<&P{pWaR?>2n@%n>27fCvO46^Ljc^6?QEL*DPB{ni#m
zAfRPcvq2gU(gl!?fPg+yi`*8xb9J#^^KiYc9{An9R_;~fC`6dB?V<DzvU9&EE#c_G
zo*&6o{n)M-$yMxD3JO8`Ai@)n{($r<X?clQ7i+w@x?g|!gYzyhYbtX!7YdF3@&^!F
zAPhjbZ~%zhBL~!}Y>*mM4KGM-Aa#-hQC-c%lP6RiR^{wQa{2Aa)yc7iP8+PAJfR9$
z&BSPS*yp{`?C`z`I-DKm{J?`oswl8%Ya`Xhn(oV6j1K5E3*n9S^=OjSnc2}KtDp2+
zWMa0PWKAZ(czJzYZ?Z1dnK@irGq?{V5eP+o3!xPry}b%=W?n(Y8%B__L2Ag=wK=0U
zQN6Dk)pl~Q)R=w32=kp(`~|{$q|D5f|EEHE3P2#O5u8(Q*}#zuga*05DY@y$pwnJR
z5HHFT*4oco4!wc_zhy?m2iwIy*tcZgI%i@q6tF|Qb1{nF=4HlI+~y8xz;S2mBQW&X
z28?aDZevvtSBe8E6twSa^B4;QmZ~lDFoWuvBYcl?Ot@<YQrki<Yt|5X=Np1`*rAa?
z+dYwAGTTLDPD@w=f*&;vGZ6wr5)g4fWMVQ9)$00DlVQhVW3Hhf%>`*R?ue=)wG7S!
z)Vn>gF5fNF9RGl=S=@%bnu6PYf-5ESKX;Q{UFoE--rB;{7hD%>O7>5qBJDtDqF863
zW7)2kLS>w9J@P!^=Q73H%0&v0WFRy^2!T)oVFAMD{iAm=6`M>;)l>&jR})BmAhm+j
z4cZ^Np4`G3Yk@{N`le?(@XpW-8*aKvn`Y7tH|vM26T#^Fa~`;0JA|OPSDk5fvbq6L
z+|bEk&RgeU1i}qO1Q0pocCF26R-7DqPaRPqNVOo9gERr8At22GX%tA)@Ksbbe*Lgq
z=R-57n=;sD2ofN4K#2W4>^<i<pM$|jAmWdVv^`P<NJSvkc@q&{)y{RGd!9s9Mb>$-
zB%4yEtTIqj?}}7l4O%_b9NA+;lnpw1mqU9vuhaO5GIS>BzU;vWpBI<vAz&g`-!R7@
zg%>IOMig*(1Is%|*5sO;J<R8GOvZ9;1ZgQqdqG<5)zNHj9`4Yz8%9oeWeJ1;cyd5^
zXsbo+tr6Y-^UF{FtN9Yuf4}(f>9>zB|L^brUp}iimDeZDz_7*U@4(I9FMx;wA`ggA
zAd-QI2ciRrA|Tp;s05;y&;zmjsI<K5j;^9#J`4Z>KY(-zq+=l61L-74S3x=q(ru8=
zgA4&hPgJ84zT~|1`&)~3_C1Wgre;AW83;|PpWobqG84Wau7DP4#efu6RqW3il{_Cb
za>Mt7y9TblA55e8w*{a7&CY~<r;x2VS&rZDOvtx|p~Ws3fN)_Q5Fw1*p4n2sU4Eox
z?CI<cNrf61U-I=~dGrNNko-6y${fLlF81=#^|{5yuT}v0&0Qc#z~Rs(s~nVw2Pz&S
zn^O>1$^j`2q)bVmM42cVvR};HdY1CyoaIV*)bhq!q#3gO;6(hA%_d^EFAo#(OW$5t
zexMKj;6yxhlINSX1NleDhef01N69}z-o9BI^6VEI$lYYNBmY(M>@TZrV*0xLl|B9W
z04Trk6-fNJ2_ywbG7uUf3M5?e;H!u$1%MO-QW&9(OuE?RuS=J_dUJGo!ldj%(=HhF
z`cu#6a@&r_4f9L)a(|K>+tu^w;)wnP4~!Qw!Vo>5JNwl0nKAokh?aXjpVjlZ^n5<l
zBmabLiukM^7^3I513kZ?=eMz*-_-M)6=?Zs`T3(m1%8+-pUesFdFQivLn`?JG(Si%
zKR{f`=}pqe2vPKp;-e2co81w=bX$81OZ>dJ__MP&^j!am&3|fh$0OsP#xt$W@}iHY
ze7kt=d5q^p#q(km&(KfXb{Nl#KA!UJ;<?vjJTHvre_CGLNHdf}f4i4tA_mz@V!qu}
z!MeCTWOPJ4!I%Y18DTKPFC1I;3WsrJ7d(fQ&`Cau!>CNTmw$Qa{^#C($#?GW$#ow(
zrT^ADA?wb8-;{1S{7u`Tll-zLch+D>?!LWcCJZFMG)8}e{G+Rv%P!GUk(SBH&yUW`
zL1jsXg_gOsFYc>=H#u~9VeK0N7NuMdi|U86T~xpLlossr>W(2%G}tpN+sDOxSSAHX
zG7uWH0j(VHSYtq3DFCDxkiw`qks0T%)|;_&zJPa?M*^Revdo60PPHQ`xKIZy=dPXS
z@11i4+%V7IIhXBnt^(ILx0aU-_4!92KchmA>JCZ#CLIV--A5^@@i8y>DM2514-WQw
z$^<DHS49pJ2W589XKI6z!$}iYdu=5ouCMDXd$QLH?g~(r$@>8H%j8{v#>?cCz5C4P
zA5oA;GqWedai|hI%OMOvxUd?C_Mb^+3MXFobVif}AgS>&tu4gyF%$7};*R`8QdE&-
ze;$V;IK#Zm7GWU2$6Eu<J*a@g;SEktz?Dd5(=cqACPN%I6$(-`NChC(n28{tsN|R}
zIQG>ZV@kK)Lji;g2rUo>AY51gM6QD3=U{;qN7*1XfYbw08%UiPBKp67`RRYz8}i5p
zEL`TTa^*|_X=odw@rFfGE*;e^+nE7nyY?d2)K|~Y`yoGY2R95aFf9g7aHT6C9Rlf=
zB!?^6mTdiP`7wWZg0fnu-h0c}s-0`#3<zXEXn})g`)L9EsB)K0cw9KQ4$PzntX!!F
zq&AQ`F+}7Hfc#~M^DJC-`EZscaIx#b@{tMGAF>CtFeh`eAb0WX%pzbvWS6#+0YD^J
zOEZ=HBi0?{C9$*AI^okBd0dLmiQdRcY^8Kq*Ry5uFR+!kV(L)ts!dz*4V<Hh)*^)^
zj8rTD!ixpImM=1g-~`D}3`9PHndr>s>mo^o2nZ$Ofv<@tO_}P15@k`~c<plKhb{X4
zz=_A<!xmj@pNU65Yym@tF8#2}QN(W8wI7{0?7Ga$*vrd@&4C{IhwXozp1k8}hw{+6
zjK_M<Zkcx#fO?+or6lm1RQw0V|3?=|A#w{T&=y60JdT)nyg9VQ>j_I7jcl}p6B*KZ
zZ8oiwb3KR;OKV9xtwBpj#S&mF*=%A-zGw}VmdKAKq8d=~8JZkLfvh8m7G#ov&>*)C
zo$zzkBe~Wk#fTtLJgCaiX0zavG)S0|Z`mOo2oVrUv;e29x8x{I1UX2_D2sxO-nLh6
zD(o^c?^$FBcSj7b947JxTKufe#EAvC&<ZSz`7sO-CMcmN9S9L{JXqNJ%~}+=$Ov@2
zsWgx>K}yErC`fj0@4mQ7JvOSAeq8t@71Mz5LQ~_|Y-Q)d^-cK^D5`dUdspw+S?i~y
z8f-{_&=n1E=v58J{K}bM;FM0IuL_WgK&mUs)}-n@Z^AkAE2?&XXI8aRePGMmv+Tk;
zCUdZ^CU%Y@@($}T663N$0BSjZ=TdS7r7I(4poWtUga`<wVai60BSS2!Tc|<G1S#3F
z3Tnz8+xPRvxn$F_ZM$wNH;l|xsx=Tv(7Vr9#1&92K;y1VQ1>ytYBfl9y7aUvSF)jj
z_mub-^HVWZZfmFdSfEwvc&9ov?o<~c9++I(?^Lg5=w-fqs!{AqLa(`(FNT{GAjv>z
zFccU=Uuul>l7a^rHx&a?81{;){Jrqm*Qdt~{iaebdmTocWFRy^2!T)oVex+3S9v_{
zc&VItNlqX{3y=a*A4shrb%V6PH0%Ir4MvKpH#_VFCwf3Tzsu_UX8m)!Pn^5wcDMU4
zGl%PQJ9PGyGbav)K34MGT+N>Rv*e%CkjxlC@@i6RyYouXvTZgqgrou?0aj}XF~8ve
z!Ui0*=E$=Ufbd-5AXR`=1X7(>hybY?qybhN?XZc5GY{x{n=?O=fq~s*J$Fo)YsUg_
z3L9VIeM*KS&cfFG(q>YCBm<#=35Xrgq|XC!r2vp(KngP-L8;nxJZ=WwGf#?o<pf-`
zjE32;CQ2s`xmD+WM4g)GnNOw4<%DHhg!1{81R$w60fd)SS5!q@?N5txh_09l&SvBL
zo65?7V8}}DkRm*KH5AGUPC9Nb>=zUxLYTn;Rk@1z)n!|7d_zSXu#C;x@~}+-yk=$=
z9N$un1!%UE0n=Tfnkx;!EK%iI%(4W$>2_?gIMo^7=UHGO#*iAs&9-;z%Cq!??LD9B
zW^7|fMLZBgmk=k<((B8~P5BWhsyy>o8GlkDa-l&k@HM%lDGc$EX=^{TcS&e^>7$+s
zxzz(nT=rTu<kVi$v=`Lu<yYol@}?6!NQV{(4Ul9YG{^;(z0-0@QyAh!Y3fGPzoV(&
z8(YS1*0;#}mQnIu%eW`EWxV+u^3fdeXny!s>4#IpcYQPM>qEO{+E<5`c?-s7`mUx|
z?=G%fwOMwFTwY`h`zvHuzY>_`U8YxIp_p74D!2$0kVb+1Dl2CkhsNH$Xg*L~GokO4
z<I=ro^=?Pn&1>7uDoC8&#YZmHkPV1HesdE@iocIOu?bDuED%|t0FYw5+J87RGi9dc
zsqYL0D1#I@dboT;89G$}QVnH7)KuTEpEucdJNB(Ml3MK`073<X6bL<01uB=3n*|%B
zXY4No0iQvN2B`p~8dOJ{eb#*Sls@Yq>~+`~vCpUJ#zxhXyR{YGwDSn5S*20N6rHt)
zRH%U%pvE#aV<9-XDL+<4jFp;`_p0NVrwwj93-z4@VLA?A1XcqN4_9)6<VT<=m73c%
z5<s+F(MX~th-4r%7+PJvM#RuTu7OsJ2olAEQtcLByCUtY>%%c*%Z0@`?>T-Ynv1Wg
z0*kMGy$d}&ySmr$P$Rxt0l(%wyd{hu1(*ub5hPLybB8p34{N2VC_^evL4)Bk>r`C<
zKXOx{AVq^z&?s?H%5*}~F3-}eMNpy>*d)E8Q)Nm<SrphtEWY-uN<)BlD@z9fa(M{`
z2a>Bku(m6^pnA&3GEIu{T$NLt`QqEd8l0~r1NqHeAW7cOpnP~eY5#gMluMlgVZU-f
zO4DJ;K}yD{D6p!nnXI;jb3el}t2VX9!oB?quTYt->4IUv0=NhzFjb9vkCxOaI=d)R
zp{_HP)ToUh&4CjnKURs7uj}ji&AckxNVS!MBp~TPi2R+32aKCFAVfmM&z%TR8c3NS
zC8JFAZ@f%~B~iwapxfEY&C}}2c}>KQy*a5G%GtFuKG&lIN^N2g2t=whFPe>fAWDE}
z0-_FxPT<5uEyh)}UUf(3FaiYBN1$=lCvRd1NdG{3=}l|_=`l#ZL3$4|1|TB=G9Cm>
zly+;kQI0)qDHoQ^*Ehtu+bw>)zUi$p-_3CKX#0kIV+kc?3y7g_Xwh9I<BMqUg`dco
z@}&k@Z)!1OjK~xZRJ<sSDtnK*M%ew6kNodeHutqI=e)SG$zzs{%{rUohXIL<&UbDZ
zkT^rvRoBdSZee7h%3f-1HpQO|JvmZ@yg6CAwpF^4+j8PUm)lvP;r2Jza83!W$xfeh
zAOj9FV>VQ9kvTvkgrF3GL7Bx>*&sE5)B{pm(ssoz0}?(JJ6lttk-J<!rQn%0+y;^c
zga8PY_lN3;1yvj1O6Lheyy8F#1t}V&0@Gk18>20`@$E1heWQOO8~Zas(!73~WdOO)
z=>2&Djv`wd=XnClk<~uWz*||`j*f<+qqD&v0XP~Utn<!4q-ijY&V){fH0tRcCG0w+
zuXY1p_Z>X?|3)|XF<WuEL?~(lgWcT6-!K9yjT?3PZYhMfboQO6I(HrCUToKAZu-HC
zMSnMV*=S-)y@MC%>|(bskPNkD%kSZExTQxCFEgv{iz(Z@dII^ULwc@vyD2&z9DQ*&
z#Y@f`gR$?+qX@=b_zoED)L&|&%=X2Oe`F!oE9$e|e{ZE4J?ZPEb{%XvNZpNihIpG<
zIDDYN8=VAi?Sl%q+vi8<Yx^EtDfJ*qw&Fkv1s(7AqtvS{6>j_TjrV@C-*T+l>O~q5
z0w7dCNP*C!8i;tfJjX^9)u~$w<x0^Y6@Y+NI8mCvrz;=)hH!cIv1dKs5w5IPc=qu!
zj|1IOMP^H$7TY;f#=J6#Ez2j5+XV8P1R$x}IQI^8-f2}xZ(sw$iw8jLf;UsKAg&Y+
zQUypwAk}%Z_Rgr9D-FOOQTjAFA2QQ-+9r3#Lj;5p3xG&EWkKE}hg=JwM48C1D#*d_
z`PHt~J{g8yWd+0RgcArm@MLR_60;VB1!@GT7o_$w%bQwa8dAN9Sdg}Xj$8Ue2WqA5
zFL0o`DdXDK<o+rLS~q46_~|~k%lA3JfihVX{_9*IR}czBvIVskk^gFU%q!G@^Z@5X
z84#G+WNLL??{Lc+2A4TdL-qHVY*kPvhKRaKb$)b>*26oZrPp}+eb=z?o4yt|$lwzV
zOJAe33=SY{I^RFYpXI#U15~Q>$N*^oX2lLiCQmGdj2lYFio1Sg-%#e+&VGe~To^|K
z%)`^=mwU!;fLYnUUC(YW`2b4dkU{2?EyYu7{>^46fRF*91;PM?i#!10$r6UNAn5?O
zFpHH9QUgdmAhm(iiR+^D`QQ4k*zwq|8~$eZkb#yxFmw(Po_lgP{qM-1CC@f~$)Bsk
zejaVO3_U!%AwtLFSg1B!Ca}*JP9F|k*T6WO{<J(`^z<hfVxUu_J>T#mS;yl$WY4!L
z{oi-{@R#3{3*XHJ?gB{ya@ZH}`0z03^DqV?tjYl?4Rm}!SRRwUZ~2m{lE=F2WJv*%
z41|XK1tJN`%s+#oC9hv8hAV}Um67Q~%b%NvEFkg2diAGva}P)YkW}k#7LO#h+<=fI
zCrEw-ihLV>_3>imTP(f_HoS($J!AusM=}r^AcR1ufv^Z4tg}D%dYYQCPJ~&S0n!+d
zCV?~zq<Nx$;?*^a&FYhjpex>&upw|*J1l~(+@inAs{k&7LKkv(uJ`1_uJw-G4eOt>
zVSSYi>jSwpXqf6>xsiO8jqy(PL#OoYi|@&I()Z-G9o{F4)g@gF)o11AqgB==bAVF+
z6ot@i?FEu4FaY7AH~=l15t2T3k`VIa-clZO2}BlX1qgW1-C3Vq@aiJwo+;na7@qw)
z)ANpokMOM2#W@zb#?BQ5_x5{l5pSt%ZDeX#b}qnM&TXIghB!{FvI_@j6xu7HRzH$~
z&=3(Ien8`7wn*m?08$J{Vbqhzq~b}FbzOeMjAQ9Wx>j^g$<4^8E#<B*zs+x1agD(~
zt#U(y+c|ai3Zw%e@_zSXr>rqMPp-<rUZsJQ2~slFM}b+x=(@`qv&rmv<SD`Fl$A@~
zb=G%^)+1TNV?i<c=r)wofpM5!Ib?Kp<uc#+UCr20vZ<rr_^p5K0Z5NY1G?}|yVX{H
z%_8UtVjTmg1ib{|km5iJ^$I4C3Pdp2q^T`7&s?JFZPxB#iK??X`xx5ff_Xff@t!|s
z@FNCmD))qKF4r+xof9B&%*zN(PVFKMOGGJ?+^%8JltgPO$-sWNb0pWMPca~cAwDv#
zH;7NY*=JvQM3(N)Y@Jf=>JPm3jw^-^j>a*ApK-e%kyP2!RERWnXizXm)`Vafg0zy?
zo>vZr`wofV;CMT~9(Sb9noA-O3Kg{%yWOe=0}w9E29|2Sn4mnv10zV;AT@y0<IVjS
z>j<5yD`%eQVAER6oFH4x>^x^}c-D8;U28#dbY{(q3(KBjKng>=sDjG<d7V0bQog<p
z-&0)U8T3fPl1VMPq)d>KQ6@@PGIQwE7x&@C%&w^WV&?4GXU5g+`DXpN<cru$A!OJy
z^W92r8-Zu%-XQ=&1%wm`JrE}Ew*ibr0~tW)BBaa~fb2$6Nn-V!33LQvw|YTp2Wf-O
zAQYrMrtQ8$FM}3>wA0{fZi@Z$;`_MO%8)e6boSrX#f`i&r{N;Xz-lC34jVQn#wHpz
zk8gRgVSCy7c(c0UxY*}e&SfNOH@>kCL_P^dp}kCFG@(=P%$$Y;2pf<y9kHZNgjAl9
z0_i{OAXR`=r2j|&sT8DYkOo+w+xd|2_bt3z4Kjy5wD4{>SY>xY9&c>n>qJ|2NOdE>
ztN;&NugqW)flvTnKW;!lI<k8~DD@OhJ$U0}ffVCKp2yno%tgcDv%D)83|GlszsS2-
zr;4qwF8T6ms_;7f%i3`@cY!1UNe4pYoh-uvv1SF4mV&ra4oGPrWl91i(G|tEJUb3m
ztbcA?IbXdxcw}6ya~#`<9)ETtp^hiz7^hY<ClX=YP08`wqSXpj{5)eCP6_cX!)e9o
z%^MSM?qh`U8=K}f**_e;opxJ(l7Y|whb?+GAFu%71H$Z`?&)2zWslu~I<yBVAoYRN
z>P-ZJv;d?XAgv)EL}|9yt3PM?(lT;8`+Vu06d=h!XsBR7<-$`I_`<saya^phVTc!1
zHurUCRDbqaR#k^K<mVMlSoI-!-=0fU5ACJFA{8@$G2_t{XL&ROPLTZQ7x{Wf37r4w
zWS@cLI!;c=C3X0iv(Cc<gwgva*07X5X#s{{K(b;n^2<EDmyGzX+nAWg$$QF?Se
zfh(h=_t;yR<#-BS<i5)~vrwHFBC5RW+jH}7*Ou?|&Srd_g8)|R?d5k)KOkQGOq7is
zcY!1s$9BlCZ99}$3XG-OYCiI|nsN*a)F5Sol#Fdr;D~g+?VpTd+;n@8<rklfw%I!<
z<Cpb1`-nzXR-^3Lh;$%CKq#>iSXO5Ej0CQf15z4DnII)&WfY`1v!`Cc<A7MN{rU`r
zEOQpM4IG+0gMcDFGuQH`Y+U6yY`)NfmwhX^8<^~~q)v=T<G0y<UtpSxHmgnYq`gvT
zZjc6q00<Ru@ZA07aA5{q-!0)Ft`rASC`i#D6@XNOrJ|JL?cL*SbGKe(^uN8cJmlnm
z?xTrBAQWnC&7JXv0SK2-U!)YnpamdR!w6C~NDZn+4@hmM!G|HDG;mK>e9|DL@+qC#
zlY!?ZkQ5-vKxohjM8t|@b%MB307x+)g&{sNEr?GGJJumfoXhlj_&UeRxy)5oi_+VA
zjynuaS3LPB-}4P;O>{h-HIdc)pCSK}hL|75GW!O&hvg&yNj2Bf2umFM^PwC$F<gEO
z7gb#RmC@>HiN+;kP#_{s$|X%<h!>^kJ+X1w_h1n*Hd$kbozDgyD&X#ITb!sdDqN{<
zAjB(9ClCr!G)M&?)u39G;rO8XlGj)b(7W_Qzi!hST89kbD#iHv3)UeMo$s>_28`2k
zpa^JZtc4<E>HsJM;=zF%&-Zx0^*&fU-uS6WAmV?-Rv#qRuw#~JY}Um;Vb(>=y7=eJ
zx+t?Q($WmkIxfp^6g9jUJz*iJYRx$X4hP86;VG)sC=Pkb0C`lSdMoM))m?K?z7hkw
z0EOYFXjh}=S2a9(O98Gy3WOeIz%!IVf-Z}vYEUiO<-8a59QYpPm;f8F-xz$VKn`Ay
z4dF`FAPvAQQ65;#`T3RGD^FLF7IA2xBosg-oo9hZ52;|MtoHkyR%RFWxNbXxP*%Hr
zPAN;b3Aye<sWKHXaM+!+$`4w5Ac9Yws46k#R)nPEQ&TOQCSK)iQhuG1hz@8hE;$YV
zq+GNp40}Z-o>R^;<F)?cDhg18M@Oys!~+fDfrx;n%+6LQE^OZwqj*RZ4>I<W^3yi>
zP5ID3i5B1)S|CyK|Igf;?Z&ZX>w0yw3aBf?h5?^*;|s&UHV&#NiPBmqKMqAE$t;n~
zR5qkkPw(&h$BfJw*;C8=V1wWo88JsU$L!nC_n=Oh5x7j59;<IBor_W_OG3k7p{|%Q
z7P~;3IeCB6)ft@@sm0z-tjc5FE)u==3};_$hQA)UvV>53=pqCHmD^oXQjYUQOQoYC
zQ34SVN*o77(oyk*DHEh*Qb|;fQ`z9S)7o_0FaxvQ&VELx5mW(4HK>j@3+L_adTs}r
zA3E;VDxY`4wQG2U5;GvYgt{Oi;tA;T8_;@86vy$JsmJ7j10wB05e|e12qofyhs0Zm
zlm=2JNXcezkafA1EVz%3d4FW_v=@caCxlMe7If3HwW*)f66u2@VI09`fk;JKu(<@!
zCQsEM4bZ6|yTh|PR~Tl@RXLXP_prJ!^J8_h><o8d0XoU=GauK;{e928oU?H==jCRZ
zm%E4j{+_)48#{m>T!)!G8@OEx%kiHZ$g(a3mCk5~-D-Z$Jp=F}gzGY=4u}UE?Y_I(
zJ`9RG+1-~|Qai%PK|oxIh-fe|c?l#0IGn?^L_mpqRA#;b@uUEdVn7PRb)sY+LrL9}
z^3@2D8vE>XL`zCH<SMJ|69qbf1nZpOy05$AhKabDrwV2{Rgm3r4!mpVS`&DK^W;0g
zBYDl+LGD`hl~d*X)@!ZSuromzaJ+7Q#T)4HAP~cqpa<*Y%8KKqLP6VQ@GB`{z@O2U
zDDqjJZ8~eJL%LyUyNhBsKb~}cSw2qE+2O*ESe!0t8{S%!2#)pk$)JptOHT~K;7C>h
zAjN<bhFy^vyH=Ks-i67JWc->f-MBt;9!~78X0dC2bITVU&^()agchi;+M<IwgJ2*u
z*ag%sg0&08lLA1B0RdBeDO0=V6MZz;<t-hVo53zK!fdWxxuhd&Y3>7>WPd4)jNn?%
zohOawdWqLS!hpl*@JRlJG*+hbpg7Fi4i01UUN%niQL1Yy_#)M2IA-W{P}UVR{=8~4
z+s^!6i!~{ZL>`hLr=#6;OW$2i^F9kO1jDUzMX5L9gPLMJV}=GW+9C2lB%M)hth+&Z
z<w38PF!yuoY@%$Ao41Kon-+qB(4YkvEtwI6!Gr{w6%_+gm~m02Z8D)PG54kKC*6+R
zgQ=uIM;b>=?$boW>pE>1_}!0nv@H2#h{T}GNT30v9+28V>Lg~O!Er-gIT|%>9OaCY
zI)_Y<mT_^HOJ!#ZOKDDmY!6{MF`u$HTX+Zyh$0w(aFI^H*r<?d;0_T&POz-$@&S!B
zJo*L1lLA1B0Vxa@h>}qaZPmn4`Bo4R0Y?qo5iMpYWvaRwI8kbbrYxoNGHvL5d9X(W
zMBuTQ?dXIOl}QWGMs+Svh_ClOj-tuJ47O+!mm0~=4OG`Ij$^9LS8&GDhpuY)tBjcp
z<i`=c(UNJvV_J-hVqE;1Ego2f+N`_q7_oLz2muld9G1N<U2#!ta!oc!sDqfP38X%d
zT0!TQS}J43NVDc;24?G5mb)%9#6c|fWF=A#f2SXKkvp^tdQulilrGen$k$*AzRFmo
zy7KfTDN(9T@_$z^|02JezldS-G${28cL`am%sielOUERK=+hP0)-PEgn6(80mBWQ{
zVC+}O+ceV&5Sf$4q%c4LgbD~L5PC!absZASHz1xA2T~|V(I6FoR70wXGSFDNfI0MS
zoZcU{c+H&JpJi&_ctGd4WZe%DB;O1Vw&bpvu`kAP3CFzSoh}e(t#-V#PQ~B0(&!zy
zh#D}tc)fa<QI+r>c{-<2`i3AN;fC&4kFe?%5K&hSNNFHtf|QIuqQHiBy_!e-Se3(G
z0)T{K8c<${OT43AIYIIxP?WY~y;@Gwq>Lq+f`kAG20~+M*2!IXO0FrU0OdjlQW)YR
z)6OZU>AD2W(YZbm-L5^`o{Os-8M|Pt)*KN!wVgTYyQWsf&|nu3-73>A5KjsKDF&o4
z>=Gr>2)(VL<{|lZhzJKl1cVYTz(ZOxs)kxEkb{6aL6k8+%ARiK?DkD2IS`*}RIHbw
z140ahL%5%9kT;5FYhR46ia@FZsT8DYQRO9(i}U(vdApd-SG7cW$Ps1(h=5Q6A@@zY
zo3r|muJIrOh#cGmM48e@Mw(Yt2vRLb<seP)C5C`B2c%ITO*6NG29sZ>leeqK)w4c3
zWO7Y(Y9^FG$bs+xVFbbrL<A5ym<&YOp2=-4R3n+hGx1dp(gcu(fHViBQ6NpjWKpW5
zw|;b%_2Xe==6Qfwc6vD|gN_<(e&zMPb7oc?$X)S2d^~UN9r*Jr>ZdEOj)pGelJ(@n
zt&SbJw>n<sGVS@5XDfU1;cR6`?%7J{BHhB<lMl6TM{b$DT73N5U;f+t0~;qEUOdBn
z%ReP7&{Z^oD8xX1Lj@c*dsrl30>TM|9f%Ad?7mr<{}2g8V)wq)#lBfokv&c0n%rdJ
znw+MRJ4HNcH%RM2#sOqZK*k4TtU$&M1T-HTPmr+%8QTgA1MxQu%Y2D1KzampjMC*k
z7(ShF<~5Q1ui?z=IP;q5{MU4*i<CIiBR#*(KV8i|4KepzM1FlrLCUm<2YBYmq@S+L
zq@S+vF$_Ssh$V0ka(zt5wL+3O2ZZRVtNFF<nwHd+DE!*f76HSxDKOPVDDs$DL3mpM
zAjRl=NQh`;wupW{W}}BS=AX?#2ULHKjh}~zemN%Oi$cB}5#p)uD?(}c(b3m6o=&kg
z+tfEZDN&V9F>-8tTkFX9f&VYmnma~)z{U^S!zuJ={NSYUP+bj-!@iC#?ZfEi4j8QF
z@=1-JZ#W;;@tDBSg?v}d0ToK;+Y~0rHA$s6JqD9s*W0|e%{JG`4ebLymG@e<8H6NV
z4++_(>j5Esx?)LOcu2@LT@MK9)Af3kuGe^cl&(9nyT&9R+8Den-^R;Z9{q7$MfUU6
zJTdmO4f*wX>$Yu-KgVsKEwV7A$o4VjU1EGl$Tr3YgluE{+x+v@YbuW&A?dbSdAz3b
z7zwcx0++>sP;&u7k_!$AG1jjs`v-(17t}$<dA@})xX_!}HZI(XRoLfp;g=TsFS<}a
zeA&8i8~ZPD;TK&9LtNO${!5Gfj*y+$kA&>U9wCYSAtBq?9}v>VKHusXVs9O>iTzfr
z!oE~Zdvp7ZTLg&@)92Q-ZNlBXhlBtL20}wJ0j*8pv8Dy_qyUg&KnkO#6*+>ChM#tj
z`FUDCG*F_YZb3Y!Mb%KEOw=iJBjIJr?1w+(%Ad=W*~v!PkN?4!$>i|&)#GH&Cj5uV
z72tBsP{IpD01zoaMEQR1-YA3ukqj)!!|j`Lp$&-23MC%U;E@aC0i~vci~z`JfQ$^t
zC>e$gAfpE|k|1FEXhfJNqYX0hAYFiq;t5MLF7lw#+|!Hm95Ks!TfV`uBny5!mM_c&
z@KPoG6(LW#%#j~m{;_jR0FY3qffyih<xD%Qa)N-4<wXdDX4?1HJrL&#>4KJXF*Y_U
zqzmkvF0TLfm;Wx~&CAR5amqIlm=#~YOjmv;)ya3lVw?ji$birSVerk15LV&T^hO8}
zN&X&vvBCF9_kBA9;DiOrfN1o0TL)7<1^~yOdEKs$X>r^!HFY!}WF$aF#g|wGGFl?+
z0vSb+5%p>FJ&1JwF^-oyz%bkZ(itFK0@5));U17q0_iHy_PesKAH;jfDbvMHPATV;
zAPaL!rhN}N*_;BepMRa-_)WtnFHBi562>pQNvc#Dm|4c3SJeA30O9iY_?i~pAPI;#
zATm(~BpT|9XS3}?#k|~pQc>?|3P^)Mn&lJ5fiw}Mp&-o#X|z7k_V|RQuW^Rlu1}gP
zv*<CunJ0=?95=(lBxb_vq~!c&!SP%=_yqGiq?KbTcRH4Y065&3>Tl=~0mLdLB&Nwc
ziqlkhK#B&b0Hhl17rEteqq++DJ9J|KQy^FXMDF`6fB^$+7DR5fZHBmOuvW@=ae*Ur
z)A;IGU4{%Gf`I)B+GR%S(Cz|Tp1Qq^JZT|FJBfg(GIkPiv0bTne+({NyZDuOxS*kN
zpmPfvPV}jQECYvm?N_6ciPo%g{0Woos%VFcL7iDn<^Hl=@b>E=f5y5vbhAiOt>LD@
z>GQD70s%mpBMJ@>UR1lPE8^*3&1;~G0YiT=$HRFZ76iJc+q!76vM$b)xQx>j27YzL
zNh1gW60AX4D+iWA?iZ3Z24%HbF+3^ELJO+C9Peqek#JnTbv8smD2X=kgchq|WrCE9
zGEu7~qinyX>SHs~hECQf(OD~%M(I$@c66c|l~zuomg`W>Czlpk#6K6;+P`OvhwnU9
zZSET+U=Q%T4{Wp5sy&;JK3O?w2S{r$GDf8-TC8@O=gJLaiIvTBHtim=T@S%qPWIeB
zhnF#Ro-e}y`8|AV#>@hNZ$|qFw`ZiGcSS{{jk}itv`n7P&Gx8tHKog}R&}}A=qy*-
zU&pTYj56in!hT>0S>-0!PDt@1WP20rJoiKZjYm5~o4NBz%hqg&TVz+wm{NLzgl%Jy
zofar{U@o44zOvZvM=$V&GC@iv*`grHwtli3)mgkf<m0_MIaoTs@gzJ@i`z|b-cb!N
z(Z<`k+Oe-7`l}r~+1;fiRn7mHyxu&m%M0^-AOonDAI6hVAS6KOeE*~kZ~$TRO?UkT
zyw&CUk*){q#8?$Z904HJfm8}oHAn++is=9O+h6{7#7v*Pa&5Zui`_X6kEXGGR$s$M
zLhM<=AWb`nTNQyc2mvAqh&XB59ukLeNCzG~H;;d-3#d8C(>tFWaTunZAgu*yGf2w~
zLp8`)_=IwhF#;Jckg)?9N6`Kedut(#NMCKTV0h;tXrnMmecrNRozt<<4r5UxHH>R?
z1zbc2sA>cm9gwP#3R1QfYz`Nth;9#FThqXviQgDvuk@T1?xCzhwP$oX@r&x`v??V&
z_57JwYQy3=#qT-2P*_jI%w91{EPkT2)sqD~SNEb)g3UdI5(yx@M8Z?LBA(;~$&Wx$
zOC^4_y@+G~jD#W@G9a|Vy`|Bk%Fw9>ka|FB6V;liC`B9l)~gJHk$=b%3o;}?=(OSF
z5#>F5EXAq-sR*Px4M8bL)jl!Kc0wNgwo>-MJ&?4L0XUbYbfUv3@XBM^vGe-9g*
zNWIqlqj{8i?}z~Lz<!G;(6$@slTiQ}5udi*1}{+TqWZvj9P6K7P6l{qS#y7Rum(dO
z5TU+b&n;#-5AbIai3kwKOdp|yC!h(a?I2@dJ_n^wv`xo9pM;iRwjHA7&qu)0O+0d%
zs8V3RzO0hi=YMO*`ijCC3v8yyz%_9iA7mdETsF|HK0Y9ygkqOHT54DRIW4#XCGK4m
z{hb@$<?uI~5ym&XU#J=b{_}2lzc4z)${2wDlW%xWUp5Y-HYDcfd~{(IJgzaU<krXP
z-qrf+;kwuQcG0drbKVL%AjCj8fK-)0@-Vpth!)IGw{mk4ehfi{4n=^5AOWOO(0<+9
z$}BgfU0|1041_?afxl*5dOL{GI^=-Veagsm;U907?pmAsDV%w>_+?f)g8|0@*}OM@
z%r1;at%Csw7ybffVe`@H;-Nq6EzHB!m7Q37*G%y`fBiUHWg?d!7UM?~fOkLwfP`9f
zD=`SL9RU#+IYIJMSVid~`MO3B$0aJg+iR`BgK`nCFvN?}KaO~Aw0c>(^NHOaHNkyG
zm+^UNpIg##LkCg!Aqj{$ATogn1|r?}qm3@g8O>pwwp=%HYf_pNY&JS*25CRYSb&TR
z$QXf)7s%LwjH6+j-7U&A);L9!e&gfM<+P^$=8r#<jCKlm3na*Bw7W8l5|kt<5J}Ky
z&<f&7IUuEhlnGKY%0!jG1}piTF55OJ5phO~2^^UY=%ycBRvt32nc1BKn^i);DKyXQ
zdo}>LRLGT}#pq({F5__D<$Q<H)#nejQ)0?BeipkeMfQ$%hp&w6)E$gKe!~ESiwFW!
zjuaB79HN7oP@SHcc%*nRNTh$^1j&ydBF5426L+j?mDfzob4qHvL{&$^wCX99L0h8H
zs?8Oyu}UGCE<8jRt8AE|F_9qFDiBX{g5<}lh$*XbBjc`BFIf6gC(rh*YRenwVId+Z
z^)%}z^>V2eDYu!_+r~I&vYgbTLb9@g@pDBdl~p^zR+ZIf6cdUXV4_o%3Oq&!PLTXW
zN0cE8ujg#btqG#1eW5jSwjP8G2rUo>AY3Q|9#ZD8SJ@ynNCK}fH#d=`y9Rq&Yz(1J
zsFm&mc33Mx032#A+ji)+pjN$+kklKZYgM99E!b2#_Hk8Xl7a@+x#I?bIM_@+@~fG8
zb?C|)RM#aoCd){*9+|<T>b+ZUQ0?V6sY+m^S9C<NJ|5<ry6)qyvedEAsSII?SEe<>
z)7mdj3^juJEcaxyl$z<nZ9dDqlQV_6I^eft3Co@r0?m^NQ{yC;n;nz>Q0c63zQ8Hw
z4m0Z}Umc<&ZlnAIu`WE8N79FxG5y&svdp~0eBLhmF>4SE9Hu8PUQ$79RA)6+9e7er
zAoYRN3OcuX;^toL*%+DX@XuLEd`2CGKX0q?s4j&l*<|+QS<4}tcs|suG90b#GC^u#
zYdJ>PR)#PpBW<%uQIK`EHv~h~rIXDETx1hq)9y*xUG2k3*<I~*lVl3d?1`Ja(#0QX
zu;nKNNU*<W9(4y2b8PV{DiKc#04WBfFba<-RU@G<9G$K;lmi;92%!K%280#}0}w6?
zLiI3qby^E5Tb;0i)B{o*NSzoWO6O*_oH~Vq*!j#O!9dluZcX*bjtm|kN_5k!Q4Zpj
z22v(S$yOPlREAAiW!;OkX-nUiy-cSTY_s7up6P|2i>Lk7{>oeEPsP(NrkCj^o^>0D
z9IM3{r&gn53PVYH0+Dn~nbn3eRR*QXKrLoVuee3fIA(g8j~@!B4!Ix#LWwe9DNFZs
zmNgZiNe6UfrA&~LQ6}n?W!K9nyBt&Is?^t7l|p`Hmo#8Ul-cn{Sw6Bk=LWkM*90+}
z-^rZS8!@uOE&kP6s4Ti)I&zo4f{2UaKnevZ8l(bWR<Ve-R6cLD|6*JD<P<`>uG{?=
zGjGwIx9@yv6kJ3YSZx$PDz6`)gPKsNYe0gOtZ;xZ2WX1Rk3&T9{$g_TOiJjFMLNuF
z!NGVF1SA{?5fI94Qp2kELC94ONNFHtf|QIhQEEUwInEI?<cxJy=Ujgi41@+PKtw>9
zPVVNL<$72#AfVz!sS6^$)jXrf>?^1|Y*B$;WmQy8D@!%B_hs~^db{*9Qho8l4a+O#
z&G)Xg469Db7Vptb<om0@@bo(@!2K-tn3Y5=E8Tl~8L{K!Ef<*VgaaW0LW$pjmB?e&
zru+nIkTQLO5@n(+87wBxxl6y6xku49(-I1V1PC3F=_Fv?zQ5S}oDUXf#vOz*g{u>O
zkcvR619^cz2xtxmTEB?W2y;6lC#$|5@Pf%hAaH!BtLjlb0+)qr@JOn*&7F@9@sthP
zp5U^msSTt~3=yU8S%wTZ1dJ2pm?;jPI0*)X4@e{Hn{ffTz%0j7+k<768tnjejd#m2
zOK-+e;V1>mK;IJ%ga|lV7$kmGT&xIqNFITjCuM?^Y>pY00wt<(z!_bxqE&^CRj0JL
zn5N8D1LVH0{ZiORrn0}?0dC#`aw8VX>LRUU%97;UE5eK}3}!k|t5#nR#jMuDOHFxk
z6f-YWMyH((VEl&|o)m`o$aGw^nAX*m{IG3myD2PX1ON#o5<qw*j@*1?TTWiek3dlt
zn<DTZ*H@qTo8MVIoDfauWbqH+;vd&Q*nsc?VFx0m`)wXZC=kh*1w3UIVOaGK5bzoV
zyaH(*NE<;~3ew(sGKXusPiP==qRI!;m)q&QdKe>znFNFZApk<<n|3da{cpGsh%Yj<
z1n~sSoD)1eDH@~#kZSZRC>s-{^}&4$Cd}BYXY@l4ClGevcngK?F*4ElKI>#aDoCq9
z+6LP0tgwj2+{$T;v5y#Dow9BQXV*<u)y@p*5m1$k8C?%^>U@!jlC~CUol6LiU?4O`
zFm*qa-XkkQAW(Z115y~`Mb!vJJS!Nc>RA=gjGLvZW4#y?35Y+Z8WJ>*TPAab2Ixjm
zi#1b|<;OnO8aZnRI;&DjUoky(R981^rXf5SU0}Ld2t&LwD~J1@Z>sOb`G5jwAQh%@
z10wgFGDuVaQVps_z3PkN)~Pn0%bLkO6VH)qV~y%%wd{#?TcaE0reo2rK4ulW?d^4!
zMc!m(JYx;eeP+I;?%g^Y%aN4&xCVSC$L!9Y4#7ZZh&2!qQ2Lb_5l=w-GeFZ?VZ>8Z
zZL;rMDLf+|El{Ebc!3s3l#DV_iwj>1+b^F^lFZuf0V^YD&;l$iUf)1moFD<(>;Nqm
z3PZf8iT4Ij1dLtf#iFx+nJWnfLWB6)Q4i(6O8mbfKKF}4tg94;cu~s|{ydZ=4ro9R
zv_KeuaG?{3+;ci1Q4dIMAa!Dhs5hjh2S&N#v?2T5yVH>$8M4!%YZYQV;zZpAPVZdO
zEaA;)Zsts49JGg*bXn63fLgVoSvlQwHYda=&4Hd20wVCT6w)KAA!$Ti(lA6q;=6R~
zitbZ5@3R0yFhC!Onj!NWzR`5R33fw<>+vjkkO86f_wZ$&-W53)y~s!PfEGMpGBT_@
zsRyJspU{aRqLxRRA^R@5$P%p`JLdiNV3v;A@eg|zrnM$GDnn&eI#g}^s%M5x>Ar`{
z!aTGvV|&t)vMmCgZjJz{2c$L)flos~tpb)T^I;d6kzLxgL7&v9x+^0vF04bm*Vciy
zsvWPYV8|6S>}cK9zP_(mTM*{$SYRJ(a|m3<x^-H2RGacMI8}`XpEj{Jk94zRL#~jZ
zZj>7rl+%_}WvV^!Vo%*GhlH^!PTA9{RL#-={3EJiv~h6Q`fd;PHQJxDPRq4G>$Z32
zVWdV4zB_HB!_N7lPrr9rXCltv2LW5wJ!w{JeOJ`FQQc=O-!N|qBp3({$p(!0TA5sA
zQ52XQ3>{$#vz&mM_}98aX`EXe!pz#|5A756cPK$wquyCYy^t9*#DElrcu^~c{@m~6
z9*~a~D2W8HB5_g+BuYk^s8hCIAs$m^b#pgVHy0>NYY0Q~^m4Mkn{7UFKVN3rw{_C(
zKN1Xt#(1^08xsl^AiGL{`=7l>j&~x9h@d(^Y67Vbq*jo+L0SL;rp;g(5|8jutpoy2
z+o*Mr0HFiE(>l#k1xQ7pb7o})(GT9b(7be^Is3eFh_bs84O8aJ9HKn*J>4Y0`l}yj
zw@fF+*I(_%uN{;U0wfp+4G=;g)IeB(@cBNSy-{ZgW)lEpq!0p96G(j^wSv?Q(gM)7
zZb>fDD97SXaHbJjXS?X>*;9z4`pDF1_POPjxMA6}za?(&MR4=D(6xH#yzk@Hvtt9f
zM?`Me2H=jGx!0G?b2`LZtf33}*B$b&kbfPMf0g`ek$Zu2FZ~vBHxPBwZzaFYn(yoF
z$6b1!Kf?2Ihlj`8k1)azv%J;2*E8Jk-Rbd$@7LV$J%9D<fj#*TRQTz@j{Jw@Ka~DG
zmx6rf+A1%7=`RHN?zL6lbMM6Vju*(iLuEwI^Kg$!&x6MAUZw(rdOo_tYv9up!|tx{
zAJwA|KDx0BI>~dh%RugpFdK63pZT6IBuid5yL`XZM+3R(GWh8Gt>oF(rH`OfdOpiK
zkh>9JL+%Gmzh^yd^EKArzTY!`HacFB{ykTur`Xp15Ts@_1{GxxNXdc$2p4rMFgl-f
z@SxMp2E&ay-`$h)J-Y~W^wW21iSJL}U$nXp^fB8}%vG5Mgi4*TP}aZOje!fD!03GG
zo&JK(jTgOdyoBk+m+Yqd{{3E04>oGAH^dL$Pyha1p6_u4;NBZlV9=l6{S11~H+%-Y
z<MA`--ybXr-!*ScuWdu|>3F)>mLAJ|uV+o(w$yh#YxS%{zU*D@wxEs6t$V*G5q0@8
zUn=>&zG2xly=H#u*R}N~Z-E2>2?s(1?6-u<O64V@HdKyv<7O$>CneK3iR^kvy2{6>
z_;o~AEjc-D0VN`iX|b_X7~&(-?6baEc&Ej8>&5S>7qgQvXC%FaZsBbzW7YQX;6feH
z`a43*&IjpuzxZY+0$9d*v4cE3sU8HhK@e4>r?=nIB79%F4gf^Tx;0XDzl)6*G{^-;
z?$lXDNNt3G%2f<VVTczcU#;_@fgyjGSNabPbiPQ*wV@y-iRj|Wubvs9D=$d}@|$-+
z0)T{K5D=vjV~~g^IYIJciO8I{$bQxZwW{}e^m|zsA4rhJ&Nf!I>UnwKKyRyMffz0j
zTzFZ@BI%a`Vfwu!g=EZ<20t{sWz~G8@0$xAgzCv!mVj8pL0Bv&NPhE;V)TTse~0n7
zz~3YAcX%Z}B=GkV`1?lSA14L=5rKc45co$4`~!i%EpFyhZ`$shlI~NI)H*x2o<bFW
zIPQZ12p4*QX2b|dMm$Ie`Si|oze`30#<;l~Ze-<2D?mV#A81AtCHeD>^FBEj)Ke*Y
z+oW{A2AlV&54o$~HmIj}uk5fHt&3@YIyk<d<2Ck0DB=shV~}nh;^T`^_YYsd8)Ltk
zM+fD0fi}i|HQ(6*`l_*Cb7wi5G;SX=rs0=z+gAYXXc7V>7zhnIfVvJIT?gVx0U*VI
zfR-Fld@;GPDId(yFBXTPeO}l;FVa4zJec4&m839ED@jLoS*!^G5)6a}yMSevbK2OI
zfd*vS1szCX*cF+&8X7<Kyk`LK?%bevXGa&R&LyQ<b?~;x+3@d1Zuscou53Sg$Vkaz
zIk{P;vp!Z}-An+GP}Be`R<1b9!;_rGiZG%ha?+**-qh07389E)iU9a><JbZQAY3Q|
zo>E2_x*Rb8T?PZ{S9NL#$cYDb%iKJ9;6I~zp5i|<69GU%)%)Zd=zP--gc}N*q1};e
z<t6eNtSB6vs!%loK&tcQ=9U4QXAQtCk>e}G%pSZE9W&7|wo8W-41@*<ArNXHEI{~x
zFawd$dFwW92h!204h=yHNPQr+g47Mt0+4oqw5Iv45>eK6HTru@G)n!2AjY<wc7a)@
zx;imL)Dm&_%nhqdMIiZ*C9cmv0)$T3_GCy88xUUH1VsFvJ@$UMlv$)Akm^Jz1*saO
z0hlF9&6aL{U)l~-Bb#nMg^X3JN^S4*=Ml4br*UmL%#?%%RT9T#SqGDom-3@ulvXAJ
z%Oyu8BAw$F$gKkzN97_Ou|`kil0@uv<c$b^A2Hbi!jcaVQXupw1D=S41%mZ8vm?+v
zp&C?+%Cim(de7d|z&SGN>M%beHMy_SbpPS@<KzcdRFyaGV{C2e`hZac1EB#z2!t94
z3lKga%s?byJ}~Cre@GhKf8c3?5RjTc>I112q;8NFfV2aoHN;6Y7<qTvNR9t+r;!i>
zf5}KKzefrPsF7*~oinnEJgi)ocI$o>Hrws_u}rMy&JO)>=UX+;-fIaj%HSRQu9;<;
zt3k6im$T_tb>b~i75Qe!Lwbwvw#3@=_QAd+@E7f|^1Oi^vqVE8Iw^RwNM1VRAsfvP
z$EW)Ug&BwhtOFjh&X)BaDIlPkYJVz{m)Zf+8jS>bd6vE(jGQjgIX>XOci5>fKbqzr
z+dY4FsgaE8y>x!R<w`+32x!It+9MZ@eV(H6t3FT7a2KDaaQq3&&C557yYl(nM>mXZ
zeSU}CpWFuaCk;gcqB^IiNPcp>g?yd1Tf{DR{SX1Apai7VAZ-U315!YAAabAo(<1jd
zk^8J!|EZDtT#@^HAaZ}ExU?*GB;_nLi%);D&|HvmmK{>=k7~o+n_T->$NACrWxUtf
z<_}U}zl#+v=gmbV%if0PYUX!0v;Gfmi<Kj)uij=)_iT5$qKAd>cbNhG?c_?suKZX7
zqJYQ)A{2;ZAmV}O0HO$pHXtg2=*9KG%2)4*4h;C>3IxnIX|RANqXaTyAfpE|k|3iB
zGQuFE4Knf|T|nxHTvNjpUXp1|Jobw5BM3OYrPJxK+Q=kpC5whA2c$I6_To(^$D$x(
zya#$$QRSD0789Gu$%8cv0YE|#4@3l^nT!A_9s-d32ozOc!CxNKJS~(^$birSHzz?+
z2Jb0lgsB0f9+28V>ckLH^@AT6Yncx)yNjAVYeIko1EEo8CJ>>l{`G@HHXanO7?8pc
zFLKYSr2J&4WcTzEEzm$O<!H<{njj$*X}!Zw+Jjlz0MZiBh36+Ln;C&N06y)Y{o(FO
zH|>mUtHvp1sSD2}N7IHYI9-b?fX3`}(hNFvMV-wR^{T5pT@=x%wp6XMQvEK~nR$k<
zQ=MHX2sxPvE7q1c_V=hdJ5VlDZSL<jD^>R7bI5L0nf{x-c1T@Jocjjyd(t-Y`FprT
z+27CuYflZF{D$2(|MoY6{M~K;Lz)W^A}j!!6V(e+yHCgjX^BspyCux5+U83HgS3<K
zC92|U=B)hUu~rs!(LNbn5p7inO_xV<z!*|>0uSekt@z3lr^WaA;H3B=<*RU^e5e<W
z$uF1hSF(q-q?99*m?;@oi7K0wveU5{X~S{-3cMamLhd+jN2iGe8>&Us3va3)b0z>e
zN0RD*c5L7ay1-?-1KcaNkb{=@*#iUS<l1gT@dWf5Ez#D<*XgphyPq@Ctt->E4@Z~6
zr;%+oW4r17jFE2C;Vf)&IJ$Y#0+4oSWbJ(ybw+w-IOD)Go-89Z@Abg(<o6n>byEas
z<nGyJH|T3rjlZ9m*`2uHgyyj$t6yRT0tpa0AjG~owyMRY;Fa&vjYK#Wr~;%Skm^7x
z_2u5eS1WB?e3`Y<LpJFv!hsM0p(LjP5eWU*0+a0tYL!6_QZhaeHDyz#L~G)`&+caN
zr&fdZ6R}Rk*RfxeRsShFTzE)yk%ks!f|QIhQByX%VPX-{<Cs}%Jk5*~;XsIhP@)Wo
zB<O2;b@-HaltE3HGF1kp%0N|*Jl{;2#;iWmb4s#(=i%&!5rhB;6%bM&^wDW&*W-st
z&*7|xIZB}_g9)SpkZMpZs(3z6p1&T@tOkOBg!}ueZ=lqv*&m9|O2N#~@?bw(X&`0#
z1SQHuEuOPiJgg+RyLjr==b8Bh0w7dCNP*)S_2=^Kb223?YJmr&Xpjm(s?o)2OLrTp
z(|Volg$7=1JE%p0im7(YUzI<O#YBD3AQyN_E@28oyl5-F8kW=IZ6@nD;8C+nyv+yV
zvsa6e;E>(2l6+u(zRz4QwQjaE`99>MN?HXDJ)Wa7aR^jENP*)%%@HkFuV~Qzr-*BQ
z?S%_Z?Qm^d{@wud78F3pRNW5xnzzQCEpr}1e1CKb{iSk7?zWg97PC~ZixCXc6p#ji
zGz+A0AWZ~ms9{Gs75U0=%UW)OT}+I^q(vcFZm0l!zjrnodiQ3C&;m@&!>5aR@&m>o
zpie+Eov4P8d_E;#-$gF$d%Dw~J^Ec@3lM8WYT32Gxm#r$h6a#&K-;eoTew`^s^)Gm
zq)NcMEx~@itcyMMUEW`^2kS5=oi0#y6`EN?K7X%W=KMpw`JME-z+3umzyDq}`h2qK
zz-L=T`=*bz5kWx0fe-=5-S~Oc=s5;3ffy}H11S@vWD-hL)l@DqL(XE->#}SS0_2i0
zAeW1g7<Jzmlr>k9IRqY}WqTzV;=P%y#l@dh%bt;s7AVmI#L#nEj0=>;1yq?Xabb;7
z@0^WK^i}()ABQE*>`ZSxoYV0v3#>VAX*@wdONItumZ&n_#;hs~m-yj;UD()PM|GKh
z4qK<Kb!=ADCDi2xS~lyf=w*gvj0Zzg#tDl9xx#94eDvf%4zKz<*S1Y|Pn)FfsvNF@
zYS=twPdt%5&J(sMgyp>vhYAR(zthtN;wreRI?fI0Jg7yX3ER1bz?4^8O(itd+jgx_
z`!o8n;^l&yuis}~rMv|e*+%Z@b=a*$mG2Iu)g{&+NWFJ>vTW7aeB;)FE@~yJ%o?ik
z_j=W8oP$TeaR=r->0H)Xjk9mmV(-yRj1*N{+!BAkOkLtS%NJ!6xxbRYmNqhBc5yBy
zY{qQa-0jCao58<3ojdI4)FNom35?F~HGTR$)47oGQZXQfAzoC4IpV8|KO-M4^i<FS
zyg&;iC^6+ll_8_dsx`7M(RZLK#e$(|pN?l)U?u8c33RNA-<VaY{fl-HClako`CqqA
zTanfBL6=aM8>k^eEq93_>1n}GwXPl+%I9f!92-uY)S3Ph3QU?Rc+uwe%*oPi@%?TW
z_mU6W;=3I$*--Ab_@$o?mC^n8yNtsg{9Q&j;xF?BOc-ZRZE)(L0-i}pUIGaL5)6a}
zmjaWYmer7DyPpDhsTh#LNH|d?T*OxiJ0l-0;{oewEhs~YB}~*Qt6Xx4GIPl=e7!`O
zxddgcYFf@&Ps3<j);Z4AEkb|<1EE0+upH+xPZ*r<1nN!2fE0#!QMD5h&$W7O(&>y2
zG_ijQ$m}B!J|N6MBxpg~hPpgyfo35G1Z<O;8mS#1t-;6`Rk_aH!@Id|xM_Dc*SQOR
z*_P>+d=YWqdA=b8IDFbMlXf}FiPyXaR-~1XffNH$7<P%O1V?;p`FqbDP=GS}TdGX;
z4n*KNWssmNg`wJayKL2TM)gp8T%!9}i+(z~Wq~Q>Ib=}RhS%t5$!e1EA}(G2EDu<`
z2?jz#?f@!j*TqhBDMs;-=weVSYyR9X*azgthQ8_CiP?@8lqnfyq9HwJn;Q9aY>w5)
zCw1yZ6@bPyGCMVw>nGzh_M#mS0)T|#KcKu2R~Ajz0|H*kPh3PTUHDad>iU?BBqA3Y
z<N{C0B}`$67j4B~pEfw+uOt5Yy!h)9KQtF;+OJ{vt+#H4^1OH}Rb^JLS}|kXa#fBJ
z<m0!KRwbCW!(6mE8%neQqh(dI(5V;TFin*PQYJ{rC=->d46eAG)@59vJg>#LL}q4v
zxqHuk`eM>c*Hgpgey;gLQ*tZk<nF%7=I*|%_(9U_<=4KwBZ=zkKAVQ_!*bE7Fntdy
z-`5upV)1Kgj9Npfmc+V(TR06JK3stH_4NQRWJ|su?q##W*#FJ|%KY3wcJ)4b5Ax7(
z_!)^AyLxlL#II8<@^uQ2l|bhqr$@U%J^2!H`#_5=xfg6d=F(%x`)-utN8PB72NBEa
zM#aTb)-v+B;zjP+2NGdk8u>PLYm!1k<bfs~!A2g$lLA1B0V#}FN2Vt`rVo#vnpyZM
zfJKhZJn;CC*xEWirly%@)4<dTPZ)r3p$<q_4<XBZSGp6D&fxgF(omU%?SfKIX~AWJ
z<-5{cM3g)72alQ<{%=}tZ+%_lX7T`S%N_Z@$r!)yQV@^r#}J`X`^;tr24Thqz_?i<
zIgxmf5ORVwdF^g3pl*goH-mUmfCxH}!f>-FIeF&CW73i3qe?MEX}kpzr2IC5u3ALL
z)JKe=FD?1{mU0lk{S-~BMJzTdNY<Raby-s<zL7P(D|fMV(VPBzOaEZ@cE>mAsPM32
zk?V7TTK8sKN+1vl;P3%GZ67{O*tIn<#2;_geo6%?8>9x1dO&IesS~@S+P>R5*OCu8
zz!Qx9wd4y=b1rh4bLU!e8IuEcDTwm+T5_m#d}|_&)aF|9cx~;e!(RCdUh~Ldr}zc0
zt*h!=^NH@-(X!6+O8X$VWpVhh_}-KVJUR$O>=gh~jHrfPqU6Ul^B_4a0(Hz*7%vsy
z@{3gfG~^T@BA`r80Y!Xrieh+DnE4T8WS4*U5c-lMn$|*p=YKegzx+F1UjChE|J_sg
zfB)!MZu#NUKRfyl{I)jxCl2~2luM6wE<f<=Lyo5Z6UI;fv}Tae!|i(%y!)r}|LJ)G
zsE8tv-!K5-B3i&fNa~YaH43qc{ikifAt9EcPybAzSmsdb5MyI7j6^%z9E8@lRUrSe
z6JtlSUx@LSaeS_My#4|s40`s%=N-P`dn}!v?Wb5E|6|8NpAq=^55ONf=#O&H=Q!xI
z4*L8D5H8{dES<Zy9<WmrKQt5n*fH@BqNT>p#6KkeBho*b)`REFH^bn6>E#8>TwY*<
z1)UD~)MqVOH(ATe3zo?t#tgcU_tO2nk-jBY`llw{WEhN*e3Oh@a+8rw?q=Li*L(Cw
zcuYnauLnjyQZQ1)^YD>^Wv5I=&p=-1^y~6dpZ*%SN&hX6=?`6^-zS~qo21*4n{=Nl
z=|26wW7Y2@-R~ydmi%|ge=q4?htWr3xDKNu_d1MExejCbX*bRX;%ihtd7$&R<@JZ9
znRR(>x~3eY4oF!wic9k=ROa355B!F~9K8HY-UY_Q>)u}`*2Z63u?oBXjLyF<uRnkK
zU^j#x5vvN`0SN#SYN7w&qM^jpw<4b81j$cLC~^)o0>ANP_bgN#mui3I!#C#vAO^w#
zgiScH?*%-e(^Kc45C8(&`l%G8YLEtCmZ;qF?=IzZ%fCtJe~-QWZ{70mkbmy8xgOmV
zi_a!b>J)P~bmqD*y>xTnM*0`Yt>V5Y{mZ}o#L1G=%1bsV-SUliCy;p7_iZV&PCc8j
z5E<I0c*-+v!io2A0}%m44juy%bETU~n}gAIqf`h|tt2Q1X#!}wgWOKNMu9ZV1`f0_
z`T6GIWm5atj+<;Nx@;Y3GZs8R7=dsD5dlOFCIeA+%w${IM}$d&a*!r~Gz6qMAdLcP
z8Yag=>#Cc34}1@$)q~%jGaL@WFFicJ%(?Ge!s1t1?z5Rk#!SiaBk5vSjdwr-j6gTt
zCULx-6BBY`iTqd+F|mYR!q^h;y*XgXGa2PsOP(ioC6}Bge4FMpyZOV83s7s?MlHLQ
zPyitVLJNce*q@nKP^`=z8>Q+tI6-OvsRyJskUEKh$my9SYlO@DX@>3mjvXc?uYrUC
zApk-Jgw!_~yaN%agjkTIQXDT8s!o_BfeWM>od@bwtKvPX?W@!Ui0@Ku#~;-h#K^e3
zcSqnk#ZJFMX(Ud^(`=#4O5KRBUhi2AdiAHi{kgX^cur@0`%@Pq!Qun7&K9LruTP-&
zC8hradRJ1qPoSsu$l*x+bL&+FKz{QMxPKp;hZM~LAWQ&StUX+bB_hXl270jZv`EG8
zovJ)49xcjL+4kgQ{NI%E5x<i$=+*K2_M`3M#}78TK;&Mi8cGbX%>;fX)}oOi$>Yae
zdBhNN`o|BJr(ZF|438npG~Uf4b&eEi#}akV5;G>p34!oh@^W7EUG|ti_s@iGb4AXB
zp0g>l)!n(zGZt7gb!R(WmXX6(9)~147b=7jmd**8{_W0hUT6sRoI9hrW8@{7w|V7=
zk!Iw@rwcOj;H?uznyvBN=N%&*V*NQ!ZqHNxc~1^!CY=~i+D#@s&)H`&gObRfvA_})
znfB=s?*%hUZ;o5$=D2h@`WctQu5lg$-ZX&<VRGeI^<Y~I0T8PEmJ)hI01sJgL#t4b
zqCqOiQ|{JR+mMD)?KcUJ7#fWSv`ar+UB_=EU=I*2dmcP#kJfFzrIkSeQgAYt;pN_Q
zr18bZwtB=vS8G)#MF@qkU6^c9g&}5b?>$#gHBlO=RFJYkY7n6Zq&85ulvEYfBh$f2
ziRG=Ae*sZ(+dj2iJvSjl!b$E2t}Z!5QT=GM$b;gQ22v(S$;4WeF1bYf=5qPDS}xQG
zB|JbFfp7y60Yr|OZk~e~m)WCPhy!T|NOM3M1=2K37P;jN6Jzol73|y^@;x@&*L`}^
zTG+LAQPrB3BMr-e=v2uCo`e$1bIcd1JOPb>wt=(|q@6}Ua~&?zA<it~*l-h*03e|j
zy38L+T!xr>a)RVXps3{-rl4!AJjyZ7t3S^AN$twMj*ROYZ-{q~hA84^&IH3^o>eAD
z$ta70R7TvrJ+6#0_n#}z9Cc(<!}8XdeIORx&h#!^Xa!ap`X!~?oB4Eglg~r)^{3FA
zCbw-gD%bGgCdVbv8`^T2g%5UV+Ol8u7-wifCWiY(sl+XXjfbQK5(!f~NE<*}0@5Ck
zRvCs|kQRcp6EBFW#y0}yopYAE^av#)&e)SRM<}=Ajp8}+(}>sXGvcRMkIB=m_$-~A
z@%uXB%@k+EuS@)TE8bPXbJo8`yc<Z)h<`2duUqk!<a6TRBHrS8M*Lfef6F|~t&1GP
zIL2#1hbuk1_SY*tp>x{i)?rRh{>r3~W1NosRr1%gg?HYS!^hVaQ?C<R-g)vC$ZtY`
z<Lhy(4xk1OUwxAXW*`!XAJF*0Y+eWPqz;gpK<Wdj6{K#E7WfiTAg#d#G0GZ>+qW_~
zzz@x9JCv$0+w>5MY9PE4s~W_UoFMrTC`yt=V7ea1B_j9b&h7^Alw86PYX?cx#CzTq
z0b_%$9d6s~g2qFGcwmW7GtC4VPuty0Mxr}IoBGvIPLW<B9~vm*oEC|bT2Q8B;v!0Z
zn)K5={@zUSc+=oAHw{|PPHLWsj#ajoF&&qr>ibY_o)2p(mQL9vsfNy)*+YKxi!ywR
zz+pq#38|fLE$YX%k{#7K^7`35WQcL%Z765@#dXMg%9=B8%dKzHEB2<Zr~8bHVVt~7
z77v+%89B+RCIW#_03icH>+gl#8@O;D5M#BVoac0tQgt4jAT{_BUXa>+f)B@vDi^W7
z-zGkDuyA=`zkoS*SW4`sHrXc-)jOL8%(==`XU$tifwP5^XD^!V-Q{fI6nD9wpmSGd
z3#Yj2d0JM^Z@m2zJC->v1JoVu!ZTe%I1nO#cNZN(SytvsGamGX(zFtCkdkqUC}R?d
z_?>q2GHvLDo<sp6@Iswh00XK;l`Tqj&C$L?ca^X0R>^l+ke)=%>#jhZA#DQhB15eF
zhn)%CxZ@)Cr-K7C9s%~d`HcvP!3Sgz&qHdH(`j#=3InkJcFkoTv7S|%hHO7tlbOWH
ze6^Ez=R6OaPP)9CKBt>b<~e=6WXFHIxrm>!|2wt~=K##pg!^Xi&LUY;!iLiT7H6e_
zlnGL@#o4Qo(nhkCr(Bh;>u5}<DniMoZT6U<Uc?XMKE=y#VE|P|@Ymf<db50WGxk?i
zRIPmzs{PB9m^;fM3_!S021G8rhm{eg2IGPrDPabw6GKGRnl7fZ^|7c`J6dCkv~%lf
z=XP|Oyov!S4Dpfa0D`Z6W&p9RvU3k{KP_wq>>XeO1DAC%JC@7)9uq!7$9qDdu3g(|
zEbrUQs9xg;)BB)`G?N3Z3*nY1K9GkLW(?HPCLs2^5KFJMg;W=8XBUjS!VoX2YBl1^
z;xqEmIPOB6)`Bwo4)O5Nh1e}W2g;7cW>PaBlhqw}eEe+Ha296T8k^aSKp+%A$birS
zVF1E~pMl01LGee1J4)rHvO#J9sRyJskUFtjl)f=69D})~KB&fe-;}<eta_+{umIr$
z4)u{WG;+|gXI6T=o1U_Us1>AckQRWn1Ee(=DXNrQJ+JSkS)t61O~h-$$~Oc72?s(1
zgc3u5NP^NWfFiX(tazwF$^<DHWumGRR<nHVxH3-fkBV!JtTkZg<Ho!hXQEYg(i5`@
zQdNy?kQzYh@g<oF)McrbG@SL~o8-JlG*L(yshDfTYHn2p4RA;l;|~iEJ|N8g9(BT3
zo-;t4_5kB>q-f73O|)+Nade-w1Ee*0D@LW$vs&&n94QENdb0gtTjAtR@+BppHX5Se
z#!wSS5i@#(2=}M?;3?CSWgx>K#fY{oYs)ge*-yg*^3eq)Sq5kf&uD=}$v7bjQoXL$
zwu@aenb>BJ-kd0}O|Ee~&9rc#6__UY;l*t)L-)~dX}A$@vkU0Kkx2HW=K6oP0=?vb
z(efc5_}FFKY<$>ZboWDj=>tYTIIzn&d~jg7!?^w6!1D3tE;}RnVV-Q$q?SMefP`8C
zXPE|o*hB;2IXOY{<3Le5r4fibb<=T~gwEQcxg`R6v;a-CV_FD9i5UfGMgiId6XEvX
zV9ZVOOLrbGv)wln{b?T^^QCx=jjA4bCi)4Dkjcap?}XHtk$01-^%FBckhN@!{FYj{
zhykz(d2%4ND<p#}Z-LKF8`wJ`)j&8KJs~ufOz(Fr$!6wkmC%xV3jjAUMTo`haq5^1
zE`3R;Ej_c5xlxE8p)*Z~NljG}3N<jEpQRf|I8SowYr=4H#8^u_W-IQH)3T|YoHuO8
z?P8pH&DxWTB~&wa{m|U;l^+J!4A0%Iy-WoC8pNIHMboJtrVr1i<8n)pvXh~gUwg^~
z4^+ml?dP^Nfs2>{OZ$UGa4=i#DV9`jmcd=wZi;=#4PZ!ox#6UMX*||pz9kF@0T3$S
zaO%J;1(#k$f~5w;lj1-M1t}V&0+4EOb+lE)UsCh#L_C#-)o;zIj3Qn}Spz;0Y6h4-
z&$A-Mk2pxz@D4}-kWi?B7$9*>eYQc76C^)YiPF`JK+DYuiG)7oA|c=@xr8Cs?FXW?
z*@~aK^W>xkvpZx!Xn`>JyWj0{Bret;Y5=JRq&AQ`F+`MRrwmC~>Zt2_Gwd==YXizf
zs_hnGf%^_Cl}@Wt{5;1CkEN0Vao*4LIHu3+M8A2Nw4ul-2Gz@|(r?a%5C}C879e~;
zn1M(@H4q=6IyD4H$DsqHCXo6-Y6Ynqqy-@D0BH?Iin5N;8Cf$4f6h#dT`!H+GP}co
z==}e|WTarRQ3dK{QDz(Y6xg^@88+B=6^eBU{ht(QM!)0QCS^Hm(pGr+S^-O{DX7&h
z+Chhl6c|R%)0c-<pnE#oTLOTDLJdshU;HpOB5hga1j$b%M3vEBa^I?c8>udlW&y&1
z+-VAASsn4fL*h+jrGb<Q@+Mb32Fi*lHu#%s?`i;gnMU*u7rdHb;RYhY-~B`Z(nrxf
zY!7B>0!TwZngh}(kfvd>C{wx{ldFL4d;Nfm_6$z#kT3F@7{6$wc@JA#-s?9)+n{YW
zLT}p(H$qQ;RJHwMHK|3;>5t?u7f_}@bSEJ|f`QPGyg(eWBsiA-&`CV#9mVJ*NOY1i
z&Du{l>2WRn_T4i5ob<iYem!DET}SzpPG-wT_UPe49WXX3q$>VHgpdzCF8eG{Y9l<_
z2;xZrAjKF~J18U59thVLcg58S@cuYfXL`CWcCm6COGb|$4V{O9antA7#(CW5`Hda3
z)en5uE7f74{NL>K1E1rSwoYY9gG;ZZAIO>i``&C#b}oN2Dd7RAWfXTk!xU^7SxPrm
zkztz8Y%qBXBnU`2a9GT@-hf`uL8MnfJShjHG>|euN+tt{O4$=9xN3Mi%UVji*TBL-
z5O6pYwl|EOJ*80rsSIL}(m=`tDLF+F1?DzyKCmL)#yu|GnFJfz;UpMbL=lJ(A~)I+
ztY1f4g154}Ex{S$z_@y(6eAHKajd;6UIPgOLI8vc2q_SHbOVWws^i{lQcxT(6$(<c
zF@_7I8X_**sOG>^2E#{HSLIk8y)wxb94-VNQ>{+6Z9BE%i7Jq4P#taY`66c$JD+D@
z)lCKv%jGN+k8M_4Pr!w8AU^-=a<*PnBbOtCJVL=cAOTXRsRPE;byj5w=SfbG{8%MQ
zl@WpE4i6z7l!)Bhv=YEmatTAMkrpMR&AB_wj5fEBWx_nw+D?l-PXTU=JVpa9A`MKU
zDMY6duslQ>`zqIrlFs~6+gOlbegR>l;y?-oDH_zJ9rmj&?%}43x^$Y0E_Bc6&J2|i
z41`8y*{cCfDI0Fgh<NB!1_|Ote#${oe%`NNwoAO{^q>t6AZ$Q*fd~L11&AmhB_3E6
z%4jO?jCB~PMIh}0X&p!#L0SsZUXWIUtX)9BWOz_&G$VIkr$dfLsvm*4;s`yGj=4~?
zl&LZ(@uaBoNR(CMcab)8(`dYN#4%%?W}I%I)2q&q?j5S_22N{u_a4>u2C<+9d*$Lf
z@s87u<j~&96>V*W3k!f3JG@2S+5`iV)}Y=8sYu>ohZfLHe6Izn#s{@@5+9^%c}8(J
zz&!16yNP78nsA47wa9sZLk_M2r#m46LP?Z>hoWT3Q5r~@ASI(rl&&($s&{`ZJ{EaM
zfY1TyhXcob`>w0J8&3<gDzpFrAk~5P`tw6qxz&OkLd%50$i<rBWE*C*O}q9hp+q3g
z%25drPe2jSJftvU9hr6{=A&VttF3m&H$%Z~+mY$5&3N#yGX5ibFz1=XYu`1k-oigH
zi%<*##-M4Yk>JrFI6?AbNyON^@;Xf~KT?*gNqGk(K!N!HLS1SraT=9DpjDy#5je}o
zK}%qjilY*dJ6ga#CKvHYH}8w8dF8^7ar0U(;@!)3hU-9NQt&dv_1lu!oXnGM{hZEV
zB-x42Hb<!95mOrmAY7*QwD#@HXWVzVnJ$@UvUIM?2rz=}n7VoPqKOjN;@q?>3Mcle
z&<U5#kfe_~UoXf?!^p#|<@UM-)0TF=x^77pC>F$aU8i_p9G0Qy=@`u|db|Y^1SA{?
z5s>K(d;!F~B}6ej-7e+uQfZ)rYtnyR`jP1LZoWrVyE#x_5db6<@j%5xtauPl+s{j<
zR|iQ7Yy_sj9+!w*ZZ1MD@RVG_5Sx`!&{lkM^%?Pch5Lrii#J!Jr8*8;Plp`?iKV&j
zfI}(;s$_Np16U6^$0SfDsN3(JmTPtMbxI~qg}X{Ww9V$#{p#w000<QjQh%?yN)`#~
z1R-8=DuV~4Xpjm(sv(}yW^Ds)%|sp0tH%CbcZo+@6hFSg{WoYH(%W9y+s?ouz3oi*
zJ3sc2Og7S{m*FydJ=8#y(sfrG(~+n5N3)w|D#C#f$-6KM)rNB@Q)oBk(|n~gkTO9^
z#s#8Gvo>Y-b@BLx3Q@bbvr}_-ZxMtUhy)C&i^eZBMC%X)0$MzQ8mToHDN09HBU^qv
z>Jjq>L_jDp1c;<#hL|aosZJ>MhzcAgdOe&~(@q-JSdlc$g>+*_RXSK3!`m$OzO|H~
zk;RP?D+vcev~O{0ukDp}*oasy-oL{Qi_ON4PLol(?9!`BHITb-B(7|%qvb5|RsJ)`
z)dj0V**F>6Y+U;TM-j77!lercja6JMW8{{rbc@>*ow;VXvc`!zXfObpY_0@p)#hRv
z=S(6d2{Wy^sBOZeh1{8oTBVt9&aG-AL&K-1kAM5if8(0E+0$w|U#@;WO;(d1D}M|L
zl{T~OA~9b>D$FH3F!38sAnZV70O9xjPbm=zL@p5FzHc9m^$ogwbAYR=wf&4R%bpD^
z)+ZPP(s~i*fQ*S@7z8p_AmauyVuoQ9$k>96Gsu`5M*MxkGLXLT<u1F5^btr;ks@)J
z{YG|>bd9@{d`?2mY232~VVh8y-E;Q=XF-ybvw6BryA+hWx!tBX81c!@CIy;+aFJzz
zO-QYl?+DphEguP~ddghNrGaTl+1GO@`HRqmAs7e^OhCNgRfj1;!~P&Ww0|#PRj-R1
zZ}Yl&%buy_Dw9j?(go{qf`QPeW4OhO->?ATGqlZd+TtN67A(@rZpJXF9FRho`ao(0
zsT-sPAngEY4aq1fA1rQOTFbO=pRp$x2n`kh5kXAG7Nli|PVtZ^9+U-9NLPFiu;%;@
zc%W4s#&`6IK?@LE`n`HEyE=`avegMINIf96fz*j1qN<c*NOd&!Bf4*f4xiNK?~7FH
zR4k}{y(>Oq|4d1#7Qa{L8v=n)03icH3xoj(m$A+QB%aPxE651K2vWB3gcYP7klH}%
z#1K)7_4IaCtCJ(=SLSxwif|xAKqyfSL=vjAlXP=P#Hk@J^U&|g1Obh;DC1{HUmk8}
zbt%?3yN?PJnxF$htnSu{H}ddeL0y=&XF;-A6+;zaf$Bgi)gDxXGyt<=N9r4nYmM9V
z)Dmewtd>%(A2QcXQSi2W%qPg%;ZRL&pQ4UH7VV4d<x1Z`YjiTOfJ;e3KF)H%YN5rz
zxE0wvsljN#Yglc-P$#hwRf<xZf1Tz0(CTNZ$o)3R&ND<nC{YbWpp8PRuAR2Qj<YgB
zN=BI|mBae$znC&X&T{=#U27%tQpx`^D-#Ta1}#9f5UdsuPYM7j2Ba{=i{jKZee9d`
zy>>O28>@Q`g&Nw&tjtF+0LcO9tlWUI#0(UjY4w!NlNvzk0jUk7P7D!c7_$EAA+h;>
zOigaWfDizo0zwLeUJJ615(~1B2SU8!KnevZ8l(b{YEUgoBQdDP<!TxE`HXhx=POfW
zwV&4SvIny;$9w=xhokZV4?j|}2P115>fJV)Q${B@e!)7k(Y(%ah+6)sWJ{rZw^bI(
zdG(8b!5#}GPOC+B_!*}7G0P)qn4C2l%J~KkJ+r@vv1^Y7OBEm$fm8?Do&YjT129W8
z_-8d;aeDWpRb_+rK&w4%z0+o>jsfrG?q-kKn(q|)q#lske1cCyKtuj1LozFJAf?Jb
zM=jB+{^ZXQ|D3c3voOc;uV`%6u?%#HS!Sd99_%l<smw|hkCdTGh_|SnektL~jRz{p
zaTRqzBI-~Uv6JDd%5-4c@)q5qTRgdEqE7od>gHO1LJNcexRaJytY3fC9-vhwF!_0N
zh}AH)fz(MNidx+rL-v#Kv>hf}eH@!)yW9d33PbAD&ia;>*5!Rx1eWU@mu(#ZV@#kh
zU54Q>i6dYbfN)^}kSM{MMN1G*N;RHviZ&-q9387o1RsWoD#u8?+#KAz$P{x4EWo43
zH!m_Pg$_ZQg(Q%6fOftFKqPa^a=YWynP3lCKQdr+xAW4wVwaf+&ib_5Zf<L1&HA2i
z!&mxdBgk4W@=`ChBb>I)(BM&^mJpm?$h}@u07x++NN}F0a`HXPnA7^^3ViA3^cr*&
z6hO#;(E7WbCQHw!?j+gOsb`cef)%75klK7gCx(bB6$eAA!~T9#FzaQ%BmXOAVI5YP
zia<O0qVzx4T#8UVv*kLoEo*(kTYWN`yls6r(gb=WL0{!84Tf^`0n$Lq1a(uY*`c_0
zPs^}=V2*hvx45CD%Pr4jly#k$SwBBB&;0LJCp{-69c1wyNT6`EW>;UaHa+3OQeZ57
z&S4$+cv31z*&;N6)B{o*NS&sns-6CV<){%VBNSyocqL9&9h50hegulDBmVq6v<Cap
zG64t%LW5l3A-S5Z7!f3jSEh40>*xOPOdPG_adu{Ewna0WiJYW)ZXKT&_w!~Wu$|ZJ
zE^K=uEU<(EA<?$cwr$_T=KK51=GWfi^-Hx;xk;Y~ZB~WxK>$c~#sH-tRf9Bu_=u`V
z&nIkx;q$d>U*|aM+AjOL?I5Y@!XgbB5LzG%K)CQB5V`PX{0-s>Xbw;|NDUzMfYjzo
z_%K9NJq(B~`>kVm%o6<o9dKOHm|@{HO>0s6h&}p1McT7l;h1+d0JB8d$7)Q<tX9?h
zqG6clK0lH&GY3GF9dp_xM#7GbsR|H=$vm`rXHHrlNKliNAYq$CF%d_5OV;z83jiS=
zsCcD`kO@*U%Az3Um*7kljq*;f$~@aPv>y?#^@^!ZioYyvyZLb>lTfIDkQ#|mX+9hY
z9j<620T)O$s1{Y#G3PUa*3RRCP>P)+*nE<ZC_#w`D90XiOsE(UB*qNXiW-OYmdm3l
zV^JH923jQyJt0#GE_4D9>5Q_?aX=e&^?=kS1AG_~)v3c4{Ry2cG*gFdPUvjwux^gH
zVz8L=5riReGPTntZ}bs?iGj&7d@I4<FaXC%v?#AFlFwk&W@LlZ;1ha4Y6Gd$7^vEb
zs@K&`CaPZT31v6vb`{Zys@#4AmF?QADGCD+F1!d#RsQq&Yu9Faf3$7rSE}-_wwphd
z{gYomQ<Z<UD*u``3&t#YEPtkj`DvZaJ0Jl-LQw<Masq6#Ks?C_lAq{^(o^vDQ|&-I
zE)u~I0ii@Z@RWGMlnGKY%0%fqHDy*82s;snULn7yx4Q7QT{*f}l_B<EJjaIcgdOS5
zAc-g7P92t_7$eh>J>w8Nva_djWKUaQM;4FNHn5*`7np;!SsOc`dOw!9VSlfA8d4zi
zC<9_PT<MB{cv2ilp&~?sQ~**9szo^q(^PLhas3|s)dw>fPJi6`UDmbES<>XpSFKYC
z3=v4RG)kS*&TAb=Tv$E9Uoq0D5<8OVF>DM;-{t+5=*GS)i@eIg7bNN79&IbkW`O;&
zb<8_iNT?(D7g=Cy83i`KKiOoI+0dWqQ2w;0<sFa!AfY%MNKTYE5zH7&PF~87z=(-J
z)|j<)`7`$~{Im@IY>Tm`IH3y61$)qxz^sV!kj92E1S+QTyT7=p*@9k9IVu?OkOGHW
zyexHf7tp!N=ZGPeKSYAG0i-1$?J?|3RpiKOm9KBC7>m1b`+@)AnD)w#daORsLVWOq
zcD}yxTZVkRT6yRBD%)CYO}=LN-Aw^m{Dz9A2}lGP$pIPo;a8xYpa^kWhw(o|%KNAG
zSsNQ1NP*BJ0%**TN?MDIZVfAe83IhQi3Dghr5e&J+Q<M=ZK5C7Yn59!m>$!Tx)u_v
z^3~1VeAXg;mq=S&c?l#0NH7o@t<U&Zo>-rYAr*k3iUBDMdqozvCcZ2_BOfgo)meX9
z3(8PpTtv3~>|3hE2Yw_f_ELEVBmhV#;(_o=oJc&_^2-U5AAu1=S8R3j&92yxySzBx
z^Zi3ttjk3CAeH&&TMkRh=$XPj3f@iJd73#FsA8sHfPeuA7X||DMk&Nm>p>w7T{9tf
zNQh2^w|w%gI)r07i!K4czT*dtOQj-x0s%;Vd=fEn^5P+TL)di_>&@FY?V>T`Kq%^g
z@IvDuJCOq61j&y;kqw1`la=@2rUE-I71_`MAqK($gbfHUI)SHj5~d=M>ZC*jNYx;q
zIaid5<;I?OpY+2Gid}kmgW}D){QUDN#e8++VkS_t+J+kQ9-){BR51Z@OBOJBFz?Ba
zeo;zJyCD|VRqjIt@|(9nE{_FrgDjAnZ-w0rx=^~UL1erj26^8s$XjPYUYCn9k>hAd
z{XN{E%d?R<rxCrE+@P!U3+&OX%Wu#fOy=a9SJGbWrPzGw4Z82L+`TE>qpQ!)-JqL%
zKe^>R8QCrE?kZPG0=2LC-9icp5IP{lKsbP~0pT@MWwrudzjh+h5QKwN0a6i2bs&`*
zw%51!Fp>N(GgfdutX{4^fBt{b!Ygyb$TqEl4hS(2j!;@Y;RPZ9h!o#*KMIuBpMeMk
zA{onp7^2FN<(jM&AZ-C@5lFj0S_jfbkd}h9*D$nzv>jv&$mgQ+In!<IvT4mkZZM<=
zf<2Sbq@I3;4hS(24r%rq5!hmRX7qT_uc`p42&6iYN<pdyX#i%42D4@hW@1}baNIgJ
zOGgjW8yW{O5DtI0eZ^)4Bt*-OS?YY=OnYdZ>Od+5soE#lF-!D+|LrgT8z#VWv-sIx
zXvNEmt+Nh<8;A%Xa)8`Z<@;g71;4qZ3dn{uAU9MIkGk|q14iyW6%Qk>t;Pd&AngWe
zJ?O&gu~PT*sibY)Zx>)VMY8hxrEDu5nsJ-N$qNTAjlsljK9JwM0}=ovlsEw~L*m3K
zGsAN7QhppSN~bIW<v$^j(Ehx~QMrgmto<YrZ51XgoJtwmHsj~<hG9vfi(_V(T$iA)
zYmWrR^hmZ|C<=Nh&o!AIo6|99cL`d!;3EFOa;_)ld*#E4`A)GX<|o;@!}iW}e)WYX
z=7C7$C6Evx!N5`Xn&9~ON2Y2a!wHH3DGXmkW_<C(fy2lgpP6Q=jl!Gs{y`*vc#s7K
z2Ojr+3~S)?DERPsvDLjiIR*Y1^83&6ISp(_?*gLT$xXiUvZU4avLyS6wDB7Fc+(p=
zFm4RoVbnkvH1M(SyUMrew{CgtvT}WrY5O>tnwYCDkjF`OmwBQkWfv;bpxwA+nTCtB
z1(vasK4(QKiZ?lHN47bO+BdNr6}f@&fP381-O65y%HxDhuo;PsOfzE;l8jN+jiWCp
z$pV<~o@5bE3IHhvq%g9FD7`R4*?EbaanyVHRSByFO0)n^Xt8EeCP>LBivsHrm04#V
zSJl;x5Fd&}<{uPOX`0Q&yJ^}@9Peq<Ws@8f0yYmXCSUi>YJ`vzEYnww16JJKTueN4
zEzsBkZ2}c$q(K=>8%k+RGdoJcUV)_@Dj=jl=urkdq0F+cXjQ`nQcacpA<O3`>RtC_
zsnC*<ug;AV!<;Z#svOvSoOy&@AvNQTkecWj#mtTcU+q>1p_Toe;2vs|A^Q&>N!*p~
zml7wYFdm-nmU0h09w_N4$3}`p|74Bn!W+Ii(N)rUx445W-;_Xnin}@du{GYVbimuR
zyWHBFt@dHLbyv161UD&0`)t?q*<8QtdAH859!>VgnVyHsWM8(7$p+%PDw=6=9?cn#
zt#@HBY1nLOp@cGdCHs(9Q1Jw`FQgcd!pI$w85<W9E1NDBRc@?+bYw1SK~ik&Rcj->
zmAhH%d7S0$w?m|ro$}F=7R{P$(aCTfve;-SRErS}QUORc*e`M>*f>V@F%KQpjpv?n
zhdmIv3QA!fe0I_T7%-rwW$I#k_-E^!3K)C9WF-VhFc2DI4J@5iyDd^hL&i(RC>|2x
zDM~vx^#Z#g51Rk(XuOlRy@6+yY;BI7R-T>S^+hf8@N9}&$3sHjS=8>TsBxLYjw0K-
zO;Ou2b{CZ-v%{EP(=LS>X*-WIO~1PBFt9d+3x5C+@>i~sX!AHDItwNNKtiDg>OF`}
zF%VC3g5<|-qO@!?CPS!uVO`BKT{bfjcnc&5NVuV`vA3D8`W*UX2$0DEF-U13WrCE9
zGEvfK=8>8qjr=_$jV$sj?{`_H@Xv5HUs1Q{aX=^@>jI&jWtLWtJta@)!|Tv$cAKQs
zWAI-6?Jxg_LJpsiBE&K~Vl=-0^G`=<qX`AllmAtYMOBjJzVbG)-k*r-lB^CxRd!;^
zcb4xHaLOs}bqaYlnnE_EAo6{_NdPpjKolor9+?Myp)_3rIY`N5CsEnfcZrj=hW`3C
z$80W+B0KTLn{i&-u19+hXl7KPirMA_7=Un*oq*{EDWt~dhX^4*FeL*|VwSZW1sL7E
zX_sVqc8I36Sy&#@&>Xnph7F?H*zSmMP6#e+1g4TuNQ%ZGI;aVS8mJu*YusjQs^wOG
z933&%Is|?@CeUeXLKXP!pg_M&EPn)kTmGMa`^*1=z&q}Do4s%?3<EJF@TQAWEk0PQ
zK?WSIm^0@Lx6qh0@B@b%Yz!Uxh20_xx+;R16WE-au(r|&kfwmPH_v2h1mV2YM39Dp
zG#8}NL`Rfd&zZ9&`!CTyj)yfeK|sQR5CNgYTR<d1?<r>yPs#x)4Wvwvl2Il~U!p17
zPmiP8(AjS$y-+8rQE9S?TC!mik!EF%dwCFhF1n*6fgV=ic;&E9)KuK@!5Je>3{BBU
z3<7BuNaH};CB$*c8XaxldXm|U3nF4Jyl<0$rXE~qIb)=TEa3tHO+-<8WhP=uz)9Vf
z0LXwlB>)SE#R&_{)@sm#y-bcFCSa!gHDo@!z!vLqD1ndz;qlEcS?7i#)oLBmK$-y3
z5MLfM*~My|zA^c9CVYp@#;E()(Xo_$zvV>74A=7ACIYXNsheEhaH<r!oqfp-d4B%E
zYzh+)PT#l6&tyOlu)j#+SOnbH{(?xoj7*T0fV2msRfb_3NDD#QNd!cj+$)=gp{T35
z`#R{D@fjFp&)csU>Cj!(tppp119s@9o8?6oWFB^r8!LhO2YApwgX(ky7%tXn5stCO
z0Xl=1Ktfc%cQ(WWuc_>Z@ut32j5_NWNMt&qXXM!Rm7SRNc{9w|_75@>Rs+#$i>4e_
zu0_;EhV5;2K*I>qu<YA}h~H3BmjE$=-A`p+ZkOZ13Px#~2RTT|_+M21pFTV=abtT8
zcidohT(mRb_VFMPw(MI@a$H*%#lV%NVG!bhB87q!E!xZ*Wh*j#EuMx~`M*T7O$+o0
zyiBJhRt1&VGtYJ=mKiiGtOtittJ7Wt1EE1n?c-PxoWvdmt<HKW2Ba{=M`jXxy_?vs
zIv+^voF_4{VQ_MH(GOzHB%1;3HiI~Jt?zwsevK)|>gKM~&22~HjLop_Qt4N@WxG>b
zR$~Lweu#A>(u@=`K}sf4qU4RHEGcxEHmtaLGM#{mzf32Ts7wV5N-z3tTD|Bud(m(7
z`QI}9A72!?dP}xxA3m@b4HwFR@$FkbSoO-;&0uva*1_tVgH`UPnD=RDx;S#$q@f#C
zSJ|kViz`h-Ht##ig)!3<yA+r`al)cX*UyZme%hkJ0E7!;frF3?l@AHoPA(h}qPyp9
z6VT83^tN)xh|nBCNE~FofCeU@X#|h?0>qO7K#DO{AR$ADk|9cb4W7;^K+S=H)EQ;y
zM3-g(ZLmb9<vQEL){J5;S0DHvwui0V9=7hbhgr99vMc)_FoK`dYCz+C!KMpY@rOuj
zkONYhMjhOAA!)zqg6B&#V$UU;E-thO>)x^HVla8L>Eb;$U%KhyU6#LN(}mls`6dxV
zTE+<V<x(DX`Dk(4j1CPDLKA;9a;YIhRh8Q>mnzo82jNh4fPU%ArS`J8!hed1d|MCo
zJZR$R`X0@K0tgupS|AKSxG1AQEKrbUfp}6XNZDEkD@Z*cwHXE<rAOqx1Q-`LuT%Ed
zsfDM`k~VhYJtRQrfDi-W0Kx`@7kldB9_5uix=G>cgde0Lkm^7x1*saO0hkp#n3Y(+
zxMLF8{LrHI^$%NP0)TyMEU`L4NRksIzqJG?@qD?t_0Emz){UiBMi4?G9AEOm8`yyG
z5>FuFk>J#dC^~Z*Ruw#{NVL7;BMeCe4Zti>Gwb>5^kL0~fG8N7Wfr(;hZ=M|bU=uK
zZ~$Qg_E!ob!7bFHn3XdR2+{8<0;vw9Qjn@a8h}|Mt8*^zrQ&)>>%{M*fd1h%kT4(w
zz@fjXf1t-dKm|e?L$Xy#alBM0NYNk_fK;PLKq(n7x3lLQ(?Q}`ccqPPfdU8_aOc2|
zB_l^~;I&sHQVUW+$_A+cq#lskKtO#UN<FeM<bWG4G6mx}@gt05>g>=jnT2)xCy53l
zUnpL;<R=sz@|USJT&mfZ=*sn$dYFMo=yLat?@YGa&E1;%POTtygR}s&f9%~3%=+bS
z;&kWw#r8NK;;>V6m(h*;4l;g#D*4QKzyO2`i+~l=J8lD8u(r`+x=(Ffph;YeDbzq%
zfbaof1|k8uKrGg_<dPhT<iTjD38X%dT75zgNDDyP0n!@sjHoj2l#-2<N{qBTFRFiO
z>NRnwOf(2u-|QXcT*DBvqKpU4QZ`5pAoYOM=F2+F8P%yjr+gI@(FlrH%LqR+N&t{h
zd;o+On(w9TyOJOP$#2XQLl+ntC*+52mK$AMR~z=IbV-}uc-;nDRSCzY{glR@G5Ufq
zAOyf+t6ROdiG!=m^N@oU#Ju4wcG70Exy>-uV6&(y*V*FX<|QYc^@O84AgZ_)7f2`&
z5+HOyh=FhbVFUK(Q{YY82GS7NL8?$S0zj$*sT8DYkOt^VP?^Qb2X^y_g7u4?f1rv-
zODUQ)zP0(7Sy@~`L@K(?;)-Ue2(-Pl`S7usN~rmQ&6m0QVr-PYA`A!taM%cH4FWw0
z1w;#6<)2ipJZO(XL5c>c0Hhi`5^bp<_|D(Bf~ai*4wKAE)j4_b+zJP+QTx*BRh7e=
zj{OVQ%?zD}o>G$u0ul~{2srLQ<n#)nlfyQb*JL{<<XEg^ERKR$yqdb+)aCoEHzo7C
z-ZWJQ-HlkR1;hP0S#KiLLOQ>zZXG|Qo0}ha2P6PUDDkWAo5Yp^5a!4Uk{_!g#zM;V
z$6X<HjOsXd*kZNz-sXICah}y!cc8)G7;53CR))guT*DKqZHb_B4eKmc87=4}UpgEf
z$lV_@429QA$t&?7CzUjdmT#Ay=V1-M=P|+CxL5}*C)^r>Blw|%TB6rZA!{*0aS#w+
zNUVcEJjn@?9|wt2Kl{z++izT8yC>B0M<5UiAY?#jfiU=Hxcs)1xos6?b|;jovdvc`
z+On80)do^0hD3F_L@$qA$n$XB^sY;)k^H~@_Lu(^jf<~0IMlta%+aJ;9eJl(J~KLm
zK&Ul-=!ozeW*`!Phyh-*Q&-IuWos18Fv{ovX%a}oK$-{ANRXz2G#I4WAdNSSD1eLz
z$mrlBQ3^CV=*R9SRmITyns6XQKqxINIS0CDt97%|K*|Iu8D&vmfkv6xcF*&?TR6#*
z*+{6md{}n0xyP2#EeyM<I&7BOmEGoUqMa=pW9_L)(pP#wduDal%e3WfZKnD&ZAS>&
ziNZQ-;GLRGDQ1y*vjz@TqG0iX0SFh413DWTAvG#JM5v$ljwQ&GoRN#hwF3VFQ*Ul3
zYtr_;-f`m&r-5=pa{Zcm@6~#b03e~j;gX+na5d6q1K5D@VlPlFu&Elvlfpr&0IA5A
zr~|1Kq-u}`koqDkwAZUw((RQwB=MEMssD1U{fY|h^@_B)dL<p83%OH<J^Ap3s@E;K
zALP7xvz~wbboKG-BbM_6-vjy0J0Jl-LWvPja|s|uBA(;~$&a}aLrN3)`U#U>KWUu5
zK9z-ehu&9D%Rtp>)30!$2WWOt$n`NH9;bZ0J|g5gLar0F>#K^$>vfb}8y()MY=|b*
z6&Ywg88r}blGCUWX4Dj;RlNS9Ro6yM`>qqUMDhz(efpwR2ef_BDnd(0MQuk&5_B82
zk&yCFAGMoXx>72;aR3bDH}8N100~89b+-t$JrEHmIYB@hACX1NK(_y!mPjZx$gPb+
zN97`3VTg}RbJ@-9dTm9>kIr7pIRQXIkqd-Z;<DFPQcmq9OnX7e<u`T;hFtDe_Mubo
z>e1TQzFyJktS36G>jQawN=4Q-=V_c@hX7&_3_!Rr3z(F<d0IOx+!fNTjleP%V%*?T
zNX9C7f*+|<M#>r;)P(AZv{Dks6Zs~ZoOnWhJP|Q*Ex&9<4=Rp8TLEa|+QR~!TZotl
ze3|AueXlnjCjla47<{ORPy_-a@Wna~qBgWpi~I-_*;X3J*Z0cCqaqOu5fDnm15b%3
zOqn1hqfF#Tp_I{LA&K9|A`oq+@NmFwyL(Xy2cuLvjVGU5wxR~QrBT%4X~4c_WByW~
zK0NX%ICQ!iEJ7|&-vUo5W4)_J6t6k63PjB?PPOeM+&6n83Mear!`Z9!JfKFWGPPhk
zq9~`9vPwdC9G}&O=KeJGg*s7<X46wt71Qtq6GZGOwyN9zcFCSHE4;%WErGPAH^<Uz
zJZYiqCom;WDrN8}r*dm{GGgdFLt{6qubJ#j58bS;?#Q^MdT*)GCf?#V@HvLLrI~l-
z@YUl^`O@L!mPTfBo6I)3ozNLgisXFcYdg?p5h4gkI1nPEkvsi>SPZ4pN+O<=15%n#
zkb{&=B1C~zLb~&a;fHB(=<FP2ws<8j@jJa}1lpNSsz%_x@tO_IF|!ZL-Lsdd-FqUc
zcc#zxIMj1dokMd>>K?D&-<MaPX16sT#I1{os*S<qNs|Zy5)On22&FY)W`dwk<^btO
zh(SsNDH8;A3?V8fJguHnyN-1!nGhhsKxohcL<E%OgnYq(2OCVqfD~q;flB=1D@PR&
zKrb^<sV-}czKjsTz|EnCh+nu`0Ye)=rQ|?In8FY*a?TSPKU<d_d3!o^5y3!cfWvKU
zMh6xkd_Z=C0okUc8?&!Wv1NgdQwK;*AoYRN>Jx%MS^&}xklV}j0VrKS1vm^HyP!8O
zDVR(1j;XF`yZe@Ai>0!6CF)2*fCK}f>7$g&y*7aWwO279g<)@Grl2kAfZ^C)9Yz3<
zP~-yPg{JaC?i%AEV+g_!sF=#oeC~uzwXhx%S!rOlh6o5H;(>?6$L!73C@NDj%A&x!
zZ<1{xeX;AehIGX)b>DV>$SXJdF@u_fnx=*sT@$Li2?s*t@4nc<YJLI5pft=%^Jz0H
zYZ69*R!%4V2+5gZYun8z$zu|)=@@1Wz@gIQEv+ESfn>94;HOU5j+YzF+{3Bua%>si
zbuEw(V~5p6^RYrfiUz3wq#A4<ZV7fh(j1=oMIJ8D-Etu|_1g;-bl!rYBw>g;O=3_g
zmFZ%|=ozW6(^M*LqNZ}F4JN@rXvj!4+J-Xu6r?}|fD~gqAu*nyG=i^o<%bO9c=v`n
z+s^!}m$|)WkaR<eyyo1R`v6Qj#>OV8yk@vz^6t%{z*~j_$#8b`b8_sjGSaEfN00F(
zkNoBxkN_Z|*bl@;iSe0;CpopBFbo&z7Xn!bvFpdLPNF%05a6)Nvds<hlw4C>0m_9A
zq%g#bEXGZ|#rUjzbv;;&fk-;11rn4bjX@^D+l@V#-l;?HrE{nq7wAIno}-?8*bCN?
zTh_UggyP5dQg+45e?UbxEvbiVrWnJ$P5vXFE_$;&^p>*uA7qUG$f+EskTUlJmF}PX
z2X24?2p7%(M*HN(D|7~HE%@e|Z{#xX(CK6++kDgPZ;9o^>i~Pc;VQt6$6Ek7j7mlR
zHu2jrCfCGyF`)L0zfgl!^?ezM%?Kb;LrxQgFmiw>Il$Moka|KSN+1IE3#LcKqeYn@
zC8JD~+#F@eZO6@zt_;<3sm&QJW-yfH+Z&L+d}YoH3FEj_eQ5`Ua3DlLC~;NIl*wAI
zvXm%CS3wO@CP>LBivsf-yEu1J&N^aP6zEbfb%guln0A)&;l@tmkmL{iHmeMs$hQZx
zVLnQitYRnf=01#dWPV`uG_8!oa^#z*(BHOa?Oj8nOQgofoI>vzHGNnj=@^sy+eJ<m
z4bHjwYL}vq5x&kLU?4t)A)a++0^TILLNXtJkPz}=ld*{oCB9a%$pPX?0U*VI6h=CT
zns|@nA!aPzLUQb+AC$HnqKH3o#1G%$g6XY3?Oc#Hyt@NEs#6-<D7^YTnap7CNC|n`
z@neLfiZN$o+YhQN(oKj}%rx6?flWwm=-9O+Yj6rl0UZmeUX6({U1byK+oOwPeNGrQ
zfp%iu1j@197*4Nz9Q&-I^^0AaY{vnJ$p;QJzfC`U`XgVT<(Guh5610-6Q+a!2?j!g
zp+M3^9#aU!lLA1B0V#|O5Sixg>0MtChm)_Hf@r_1w#(KA3?j$Y1M5;4GwaWfm}N7~
zJ0Jl-Ld}ucb0%>N%FY8hu|$3>i5R^#y~|w}Z#ycJLf)63gQsI{rVw1{0b&)=`DPS`
zB=WZ{%aoSHJk!a}<!n>Lew!BKlXI6nqtC<qWyjdJY|)sd&7RSg^ne5VWDn!YN~mXa
zzr^sxfKFrYfq0%1_*TkqQx}VY{GPUBxwdG8;t?QDCe&S3BA$Te5Bc%DD3t)OXW9FG
zNMhy7nsv!EbH0JHCpW!Q#2{W_h!;it?CE}y1-G}Eqjw-i@)Af0kYFG*m<`lyf;Ah&
zlLA1B0Vxdeq7uKzHFOG2C$CMdxEM<akYFJFDZ~RKe(^2h7p}X`AOk4|q%g#by!r~E
z{$$73Ef*VSka<=Q+TZ}f1|0UAS+gMph$tZPfC%+>H#Ak{DeEv&i$K~1(mIefg0vK*
zy&$ayX*<Xm5V=IeGKVI!<(nsD-%>fHbxPr|lb3UzhvI8%18=Ii+4{-Kp%aqH_Y@R+
z_qpicZRRQ>kjTOSgbN|Sl)uG|n-7N4U}wPQdHCSso0|&WVq4nvx-dG)52M@Ok)5MQ
zKz{QQNC=Q%VP^1wcmW#MUPL@80Hhd@!thXJ>LEhop<M%r@b-I-P#L+AYCQyRJjDK@
zGz42AX~A|HpB$NaYX@{jjZa0CV{kQ?IY4MmA{YqGHlL$75zR~&56KG95mAK^QPCit
z4Ppquf<#7<uqbjRT(v%|l}l|XgK{iBLrLfq4~gPI9u|Fjd%L=y{Cx3yu2*R#c%zy(
zcYqTpys}Dw3<xa{1|VEOSb^{Z>!Ywp;y2=e$iyrls?}wzL3z5e4pBWwBS4x0(jbs#
zfiw=Ji69LHX)Z{kEjXam3N1RfH&3@$wJYpB@v$ZtU)<*#L;;a!e1`pI#HzN9y(?DM
z13z~!_VcCog0vc>?I2@7<Ps5DrXQbvTvPUbFo5?~u225ve>f!Z{}J{kP@1)QL0{c_
z->Q1+ty{hKx6Ze(Gt*yn?F-B(3?e9J0E32XoT0j^y1J&;uBE%GkDQDLJVz5yK!&i1
zY#Pph24f6H!y-<SV;m&J01}WTfG9y0k!%{s@Av;d@2&2E9Q!+8-S^)6JpX-rmV57+
zYshD@yc(~+a(R>v3_8!^EgHjqP67-Eoo5^Ni4r1Tp7FU8BX6B;yZyrt_ieJ>jHj!1
zc`L<9_b?}hd6!3cv<6yYEBxg*o%l;n{?eVlz~C={{QdiUv^J{|dkr_oImiJaf5FOM
zP<y4UE;`8zCH#dPf0q}G8cd*$zyH=}UTJgi<OBm(;D^63#a}q%uTLmJRlLB4zo<f)
zV7neTQ$QRP69<LGL6LD#aGrhg$8asJ6sS$Qy?iFUi#M%C&VXl|z%&O%&p`!nPz@YZ
zhG(dRgNosxdN};sp3t=)65zmJUCl`oFCqlbkOBu4%t1ACP}!Ja=v*`0-gl@sG$(60
z_o@wtdS}*&XAwtZ(~CpBeTRBuXJ==R;v0ti&}`0pIULvg`$)BN7q{XsNNudZImFo`
zX|_L<c+jrTHy&xr_=A%o+Vvv}%15MtbM5*(?D`S-Hy#=8&$l-tA)ZU&c~EHd-+VG5
z(hB1E3qf??FTEg(zcLX(w2t4m9oHX!8;^})!UNQco&$d!>UjX5pUhC4LoPm9oR1Ov
zm^g#`10Rzb_HzU@eCh4EWy5)t4Zif2+%BGjQ?vII?KvNARC~M+LOFG#+G#um|7dN0
zgO!1;7{YOabodLWT<0%0`AZA_(u}{f<u4uhOD|-{Ul<n<((u5UP&o*jgBUo7hlAKS
zh!aT#YB+ebc_f#Q(6@Sbd?ZK1vEC!6x*ml_qabm>cXaT(zx%ttGm`)QV-6qT|0^RS
zT>ah4{Jb$zFV57}4^Do=_&1DG5#6tQKi~WN^;g2<^v-<MeBJ0jufK+q)tQB=`e^-K
z)z5LVxp}{;{+rSNxBdZ6aOG<J=f{7l_uq4J@bI{*e|7Zho4?Hon+U4<FOB|6{ojp`
z^p=+9=SHeutv^xy&3+Vrn<LeK+x&L*S2(+OfI(EB;OyHt+nd>&9jU&h_igo;adybs
z-$?U4%`a46#aVoPWc2%+e^z}ZXAf}Nk>0QMezN{jG&Vcezxs7AeCN%le;r2F9`wh5
zc<gI?e~#b0DX{-j<3HQ`3Vz?;?>GOt{|`pF-n_#)UG=r&-`D#(PHu0^wAFVsKUn`2
zPTaxM{Mp{G_r8&nx#{_~`d7_&H(xnk)%T~{>bsjy)F0)>0&i)rzJ-&o=VWnywynRt
z`MFwPOUuh`^A*ka*I&)a3Ojk~A8vlW{#s5}m+14o^!X}I)~FwPzcuzty>H^=4g;O3
zuO57S>^nKxAanG8XyUuZ{xT=5+qKPij{kV?+c~+5ZB@TK__FbD<>Ve)3ahUj`^DyC
zobXx9cIq#*f4=`cob0j{y!z4p-yHqxob25L=|3F*$pEmw0}Ef;|MJoA;LgGRhuhw7
zkAKDJw{UWJu-%S--^549#G?(5e*NGlf}CTP<?4Si_N_ge@jl!3>M!?ybo5<{>Xd1W
z`fCRN<CrIBOpMguIQDDJUq$273rh====eM9ALndldUbZP`gr~SRR8yQ)htfWPgZ}c
z{?-Ny>dnqh&rMc;w*K+zN4T}TvOHP+#rl7%{yw+n=4VzX>pxR}y!r&Ujv0dWeyRHQ
z>L<80zdS!TS^uf}$Eu&=Y+-R`cC!Am`iH82!r9^+6Aab=QT<5uW1KC`%meb5tB+Mb
z4v>}Q)yeADs_zBjNN;&*ZfUaqwd$`{Kg`+6{3?X}R`op)GSXX}Szei}ex>@$)!(Dr
z>cY}w_1o27tNszU)^-`SR^Q$GjrvC=i=8FaCwjkG|1EBz#*@j>|Ec$j^)GP7gHwl-
zz5inLhnj!P*~Y=c{mI_%^uE6NY0gN3CzJhOX#QgTa{wXhPmcfH-mlbun-eOe$>!sn
z{2=YN4#-p0H}`(H{teEysq7|i{Nv`E>zDooEz#y=^-p{Ml9m;VDI1exKhgWG`g>`}
zr%|>i$A75zGxfjZY;TQ)=IVEv@2Y>1hKCH5`ya*6_00V()>f*2)_hz2W8C5cag)tI
z>iv5C54m-)&n!vxGtFPGf0A1d7^Bp`)%;h{E51uqeQWQ3t(Dx-9lF(j2V@_oq0b78
z{bujWoA2k=u@6l3eiAnSIk%1(`&Hl2`@8kea4Q~18GLu|r|bWLTYi*z@_WYqP4oA-
z70)^~KMPTcDr)5Vmzr<#teR^+>z_i!XMYr@zjHd)`*{D?#tdEu567y1()@IdpX0Qv
z<Mmhc{zCK3oZQ*oAFuvR{eM-4DBi;|KJi_nf4--i?D2M_`pbKNrujZjs9(nG|GM{I
zHh%|{Gt+akqt*Y?{A_4-ZI`#oRbN+sNA)elosG?{qtW^&njfiula}{3ceh8YztQ}S
z`aj{`-Z@VVR^QZoUHzvyJK~jzqxHv{kJbNYFvaHl>LblZ>VM4{R=+S&{m<1`S0BAR
za%JxJ-0s1_p%2FJUh|X9iRvTuN2-rp8M(TE=Pb`J&&<!xF3+tj&aC9Ee>E5xTiZK?
zojm^`&hH$YoE+?xu7i=j&xkS4xKUcL^0cwJPQWhE|M!V%Q1-C0G@Fh78oQ!4&ls^A
zYV*>^xy1I;P01>)zJup2x5-?GKC`oblI{K!6zpu@VJ}Xee;-RxduwpS|9RzWNMie&
zL%82g1#>tzm$yDPQB52j_>F2dljNn};4Lago00;GSkKJsp8(47=H7Om{an8q@L}3@
zKkYn({QbUB(D$#f#(Z3;`C$jm_mD<*`|*j3#P|o_>Jno$)4Mh@@(hEE-b?Sg_Fjyw
z_rcpQ{RbnwFZZPnfAIB@YN7Yc+b_K^QZ4qbz4FYBk!q>eK67oPTJH5Pw<Fa`Z?fMX
zsaAXasYxaZdc6T>cY33J%Chxde=zED<1?4~0NU&=y#34vEE}gjcVVR3>P_63a+YnJ
z^&92|Z(JIG$(5$b*Fdt{n|ca(d%c&Qo_Y_}X7B0gmtHaPPrUK8a}m#8o&e(g-sQKS
zwV=6v^D=#pdoRCs{gx{UZ!NsMWO3B{18=ch+UrTpLn!5N)|<Kp<n!K*XQy7ad>ntB
zlHe94K|5Ymdv#M+Rdrlfy=J6-XU>zVTBs|39C~15@J!wJbhaLw>{r!XJ=Pzqs`<J<
z;IL3P11>Js{jsL1mg;JPv*m=kBGjr{tpn<vx)Rq;9jANT<Ls~=_vZb2bP{Tg>bgH#
zRS)vs!$g03Hhav~tv%-J@uyqy_U*A)SC>GzRF4T}rS3`7YCSsMtE%<78VA}&GP6_L
z8-@{%cxw;$>&C0c_4p`+p49aKm}iOpQKFxjN%XUI&!%&APuTNyW&g#zx12q;>(N9}
zO^i~lbR7fpTs^S=eBHY;ko*9%n1`jh9s}BP9WCKPL2cKynD#)ySt05?5kgy!+HbBy
z5o|!4N|;af7wS=kiG(INpbKf+PR*cpTcTk3M*H47&%+~|jMVdU^{8#Ig#;r_kQhBy
zhtQ%Uy7XU|i!u$XS(r;w7m_JBmHkcn2UF3ph}im65KBqic3q8Oj7u{$=#@C9L5FR?
z<)N77^6ao@7?lQxSXPQyP?9(w?^2i@saKIp;uME`JqGqekf{vT3J+@u2!pcGMq1L{
z)X!G(x06kF>w!%`c?~V^CqsvIqnM9UJ;!yU>73-*X&TbGrsIcyQd>ufDHOx!dJ8{z
zko;`q&CPV3yLF`_+)LZr!5z^y9n+wLU~otjZY7S5ja1BLJzAubJv_n8g1GZ~Oqrvf
zmJ!D$D)1)q^Z*$iI%!03*sOa~I3m<&v`E7yyUBmCw*7h_QHOP{2Vf>*JgP6-^0>bI
z^ks!I{wxP5or0%_+5HUfpdaR`a_<(EW1e=L&yaz_goaMMh-^Kh$9Qj~-kM7|Yblh?
zJiC`>wV#w0+dZ~Fi)b(`0D1^+GofOaUOdP%ntDdekgDy{V?A$f;LqHIs+M?!QU$Y@
z6z|ugI^;oW8fkcs$Y%#^BY}qNJs=*@5}k-*2ga2{vB~+m(Ier;7#ltl{iS~w{5IXp
z7>!g6l7;?GHxnX;n#&VGji@>omI|p!OAWl(gs}Grgp)7@86^<fb}fZ^Csl=MdQrS#
zn!y|K%!~IsP9^^&b@I4{My%sj#v^7{I)&SzTF=l0hZ@snJ*I@gBu!iOxNUF(a~tF<
z1dPF!L{8FSeXy0bL0FZ1*q5kI8J?hwars8WdKNb6RY;VXhjoaJa7-4j4`(wq&eanw
z5=JLe2$SHhPB0r|9foHA?cg5R;ULEfGuW5>h`bD4i=h%SrFbh7W(i**B8L0LCOapN
ztU}YP_*AFbuqjw9ym>fI{76H-&pq(W<19&nQ!<A^UT5MABeut8W~_U4U0@ez5{?!<
zbWSj#g`S`(jj4o-ViW6WwrI*8_tJW>Mad|>gxLujCrF?na71hnD6%;vTzQjNqM_op
z>bCQqa5tz?nkVUegbjn&gW2>c;)Oz8%Xo1oF+!U_H}bGqPkKfSyEYl_;u&OkC}cb=
zydiL}mH?0Wn6b{fN+rCQ%qfi}!VoBQpL0SpvWi_ufM614X0{R*4-4gy<%BrjiR*PW
zSJAPqn5x0H>%Fteq6*8in({8z9d{MMLZ#)wbJb|qag&*kIY3ch)bopiuB*Mou&^lT
zs$QB0Cf8S&^7digKIXC%&fF^PdGgDD_3gM(SI60ICZNIqm%Xx-Q0L|n>im43FD_S#
zh0L2A>_Jooc&1_!&h0Ia7hvh{DMSi(j#hFExN_O+^}<4hjNw6S++P)FMG25ngOwgU
z2BnM{Z-<QQYA0drC1o=~shFbgY*7fG1PV;sd0A-*dQmAs$Z`+@szT68Hd`%fTra}f
z-4_aqyXUd4PV<yK6Hq(S%*(Ypo1wq$W{WfxpXc+1<RAuq3vr7D%@T~-5TazX09h%l
zNKCma?zqde)=cTdT}7(m1fqy-HpI+jdoRRgM7*50gHa_N#<L8np;~PXV}M|~EEx)o
z1Ybe8mTD{M^-$C$X3vKP8itrkweNB<sTG<xIL{Ic(77|@`S1}`1LX}=6@HdN3LP%U
ze+=bHhz4^kTtYXIeWY1-9(0PILE+G<5l(QQBnqb7UI<}zD1|1Jm86jFg_ZfzeI=v^
zTKd^EE|=L?&x-<QyW8*&@?ad~L#*Ms(OTIr7UNhdM@%!iX$H!p&>&8wwxY{~>>2bm
zA6g1YFj@Hy%@z0hY&y>-F`C{O=p{yJ$JzO$;&)Z^LjHP+U+0y%qTbphz;NWFx0F0}
zwXaQ7_3m25IH|7gWZ(5Lw`#K@G1t{@#c-vr4zkH%HaW@z(53V&t@_-HxKJ^n!bXU?
z2AYT=&)ik-Z&XvVOc1>>B^})QWZDn!RpV`PM4iAE;2~L5UB(6mp>=gXQ6J~MlPd0=
zSL4)fyegn-6bUYEkC05omo<iBd%agL#^v|FPB7lg%P=9K=h2!etBj%*Z~IQ}Hr7N{
z@lJt?^sji3Y+W6tfEBE#C)t<{W;g5V<&gjDH>;Y*JLC3QWi?KfP}Oap6<vUnn(OL8
zRbRoT3k{$MnV|tw?QwOPWL$4yRL@<m>U*Wt_KAd7^^OsWUm*%~ifGAe^}${OIj$U0
z*N0G`szZSYqbTV(y=r6aw5qR81b3Iz53QfMWNSn%=-vcBU``NdUA%0$4&_Dmk%hR*
z-mW-;KJFF`Kg_F{7C|4XVP<`;0NGC^u#%CiIB2T*L`=Y1N4Sy^nYYUhC)KsOdZp6T
zt2g+0nvK<ujmaT0vY!Tmxpbz`X=!Wi3DxsyqCm%DTR^y*az)W8gV6VRb+xHqz}O+?
zm8)UUar>ltp;y0&YH@=1yikI)B!>XEs#*ae6WJ>=!Lt%DWsNk|S0}@EqfJRi#}xxs
zZ;oCcqzMmz1MVUw6@di@-DhEZt{|73#ygL~WHnB?-%n!D-xyxPSH_~7x)2QSzn~3E
zWvnNK1tG~G9upTSMj%q?EJmP>vU5E;v&hELyOxnP`^+jTevL6G*u!}=O5U6tppTJ~
z&BF@Q97KKZ4l=j@&;yRDzR2ix8OJ$O6A4^OA|#=S2uARO+9V0saXg`y*@%~ZRv}@6
z-c^2ZS$A3|_DMo<|KdbN?4<y~YHZR483(%Ta?Dr?jjgftsOsHpZFHmG!!Yimg;#Fq
z%MpmTkOXxyW4<TQm3UC%C|zXeoWHcfv@%w1>TU-3FS*qJQs~&Jn!i+ii6I$6#2C(k
z$Qk+Y_Lb@jCdR%vJpAMfaQLtW3^I~)U4dU<h23I_$U=<A>uKX?%Qp8C{z(>u#7$-^
z><P0Wz5zeZtLN(K&ANJoxjz>+c%`oR@rY(GUSVt9JLuMik+ixTH>{=+9<VxBz{C=E
z_*jSokrnqRuY_U7LMMX+J-$(<0GU(}Fmn^dMp6rXq|FRGV6Inip(iudcGz8A6}H20
z1QXbii9#si<2|!M=y~;gUA={vx2o~?@{_n?e#Hi*ARI0Fc=j;4DRDY0E><o}6=Zf2
zL4+i1|8ZBStF@sdv;|(@E9*hNriZ6<%BqPau@|UAfD}n8oD-@tV+<WQdLJc`$LX7Q
zK{$zGiVWtHzv6g=is*vagui<~eF^`ieuxCc5KdczC~OSKl2>E}hjE#g1H|QM#rpg^
z!D3K}nsB|%ib?Ot&o?OoqIbad=Ej|&1Q;U4RR)yx=95y|NL$>kM&$%_2B<;|aY{Ip
zJSBTNgtqc=wkC{9$!7HHNFNpl$JNzdjb&rjFB096e{fP5Dz*>_khR-PUhos)BJ46+
z7rQkQ1SRD>6J~@0DbN*DS-~icO%X$zFEO2ZDfEHjwXCh7=fAh9SA+OZe=oe0aP@eN
zhH?t+B|P#8w7|1f^%U0LFtT2`)W@8`{t^y+o+g5cjwx8W>cSX<1oH-|3kN|qhp8yU
zuA+`J$kNs{rls2FA&FhWf#k6Ia2iQ^otPZ5*|-S!!6(47dEC86=t)V%q2!p*0ve4F
zf;dZHI<H2<Hi4|7PfCR8IzeL;2@)H{ijEp^i_A|uFNS1ZXg7U7X}t&E>JdaChyAGa
zhQ`54eR`pTjF1ljH&`qs;cnXMUezd4d_o2bN=BhUR)M_1Y05H$M0}&Jp_sswU*Q+B
zGo*!EDN@uJnzQEBt353N0qYM)rT)kIBb8twnMfly@ims(3Y$P16z?IcL=WUh*5NY4
z;<c;MqEV4uDF*orE6B6-E>sz*v$p7HrIEB|$<2DNf*V?c>R-Q;OhA{w;6JKk7`{ez
zd~ER?3^QF?-z^v|ZoJ${CA#i(tOQwdC`1BRh=rUjUM$)i3gl?@gtu4qS%74}#eA`}
zwc=5wA`DY5Wk^>QJFg%)rKp01_te$<Vz}^!_*MFJqMS;3w@(oV&nzUU@5w_F1%J{A
ze@wwgMg9~&qG$}2k=3XbpoQr_tNqYQ2lxtMj2HlCFJ6fOM^IH{Mt~Ny*^6n$#-~3+
z;{@giLS%k{Q|Y*3r5>1RR!or;u&uyFnP4jik#a#66=o59k<m#CnlKhTl~ePFHP~UH
zhuDN`gbsCK!Vf2*9@LJb!5q`Myv3qK4G0R`=hT?lF&%l8l3Ah&@b&cpdxzIRqH)m)
zsHTY^+Y(i>pBT5WgN8j*fqXk|u*;5q(E<0zX!13V6KORy)2TIE2E&M*N#cIKU`Y^8
zosGl~wgHSFzlztTosQs%l{<Iy%HhV{yyC_}8v8iT%wl$%pDjPu4~|Eqq1l^d4;NHZ
zOl0GknQUCwb6nwHGw%=hWM(R%EY7l<%g)Pl%h_c6XlaBC?0}eATpp45W_Auzky0}^
z6Wyz3VSe7$HS<deZ;9SCs8;RE4x(A^OUgV;+g|YTA=TCFxP5GjJpyxcL*iCel7#u0
z_(7-D1iD&oFz1!nges6l3G&C%Vj*aGq5M!9aqBJ*tHcj>r~0F&I?D^hZhx>zX+}1@
z1*g$=_BL(gYj|U!$Z1ZRf?=fY5q=sOn_q$y<^Y+PD@|8s;aTEVWnSnDp{bf#$GlNU
zV_($mrE;lIBD^Am)grmYA-JWbK;2ZKC`Aqas##fubAPZ2FwxBhGoS^Mqz=&%QN6$h
ztl89K&CIJ;I#_cng`D|CV0kC@1^Q!k$i!k%&Pp)VRKX+LxaL+1{|jksA)<h>IA8b|
zoAOvL0xG~Eqwu<HOX(@+%*17n`NGm_@Gh@~w`8fvq-JI=CCt27(yyp-4)&7G$$&;Y
zzkmgbWnnq!!kku$ESDAw|H}*fu+8dRVOLv}vS`U>v^gEeEAt)SLt;~dfK7XjKH3Ab
zlTuf>tC_k@2rEMeSY0a6SLf7OKvy)%EX57ct05v?EGR=oL+@A#@Cc#wUG_&9BE*Lf
z*6wWX>e4mk$_P6$n(BO{y4F_BI!~|AqN$EY94auKG~z&>2YJ$s4|kLDqa^0!c*GpQ
zM#zm3OHVd;jX0?Ao!r?lLQ+$m*_|zCe77pN;0qgZ<UIuD6t}02SaDLXjl_VJXZxP5
zt2feF-~DVFk^HmA8v<*J?u<!$cagswgvOgHSOv~{BG_9?3isDHrLd{)Nnp(YV#sHR
zfp=vFzcOUxJzAd`u_UcGI10V+4_orVX^4ex5#1DzL_u{B2bkcO%~^S4yENeOsnCRv
zW|OCz3VA+vxv4@df~DjN;vF}Vokk{<Chxc(F^jObuh7ArfJ5HOA0!}A=Vt#zeh1xh
ziF`sDxnKe<>_c`)Jv%iOfiam3ZSM0{w$S3iMnH$JA^AIY3?&4BQ{Dy}Sl4H6&kte5
z9Uc_%PE!>L(J-zvW12rUhcI~udfd4OF@c_`m?Hbq_imvA)zh-(%O}a#4n2bIle~`f
z1ClSB3fx>rg~b*~r@VkO0PKfW*kE}O=3Mz?y;&&~*t;|ll6U!-SL6bdX=aMR?5b!K
z^Ttf(Ae}gb%-bg=re-EOTb`^91>hJbTqK0L$qRjgiX^wLc`+n>(~;|=SZI;Qc6Wbk
zgqb6Rjzn+ZqwEwE6a3&k0qJ3}D&M;i7ch2?O@-O0=SRCVu<D4<5yzb(Qr-wfi&Ur}
z?;M;JVxV5r^JOr>*3iUHik}f61g+<XD^R=yQOqkQ4W~u6JR;)-=w|zPAWQnuOMprj
zm)gVZh~T2VZ$9D&t{?hk7cFd|r3hA+QIgxyy+4%n@d)eaP4#G`Vs8q?Q{j;h4TKa9
z*`*(W|7a*C2nm1VL!hpMXebtkOcrL47|M4Tb8u_6NCbYHJqRhM^*~7R;s9ge$#;@Q
ztUReqlOeV_N{J7ws37I-w)v2W$`0!(nkzK>wZ>?;4XpqT91{$hBJg565!FCdJa+e#
zNUN~-?ou)O!_Sk0K_9m|_W{`vw%gTwYC0RRy*GcHV!=V)mM?h@qtzVJXfaZHg9yTO
z44(Q=f(>=z@w4;6$^Mpo!;D$WWiXZZi_oPbnt`5}gz)YK=WftlFELwB64%gOlY`K6
z=&!`DrrOHnv1hPn$k@aK3ijNMFpcD~9EK3#-+=5iv{yKdPd$a)hfWCRZZY6371*`P
z+XjS+A(-N&q5JR)Y$zfIZ1-4|v0eB9?LuKX#sx~n5p1WPQ9KCKNRXe2?>LP7!l-y5
zRtnCCO9D^{6PB}PCNdikGaQ7#QAng<g1v<9rwZ9po~c=db>Ri43awulC-ZM9b=n7|
zSY|N38P~h~x-r5aEbNbo3TE~dSH#QU!u+WM$j(s=8=~IL0x4Ix^9SEe%+>j%Q$ZDh
z+T)~%t1uf@)l{e1=0P4PF67t`1;h{LRFc>E%x{EZRV4<GsxWDdQ@z^m$LsNf`{kJV
z1uI!ABo+Ik2B5<bPR*D*;j5W2iIRsN@Te*mijE1lAZAJ;&Mz~<al5qTMR_TA_>V6y
zppVJ8Sn-Yu(h?jPN#{YPX`T^?a3Lj`TOz5-*nJy{CdkBe0f=c)OGORkBRTfM)I#E9
z+9<a83SS1MVeo-o$kRKZEy$KV#1b_TWW?ny14vWtj5LN1k}%uTBHFUP!Hj+qZE}(=
z%#RgC3<I6TP<E}PMPhAGdr+eNVWA!;f1DZ2C7L}9zabIx{A>sv_!sT0h`MuhJ$x)l
z3fPok%gQD3gtZ$cAH}E?7D6ZnioXQ>EJxrk2p|w_L<NZzARSFT9URWWN)Y!}<ST9r
z0Y<2#20liS<H&O^>9DQ|(qkl2*P0>lF8UP-Z0TVcIF;;>klh^36WZ5`Y?AeCX^+zq
zY7ag+mK;72ye>eV?gr`B2_bC5zCw&wl}GuD>4Zy>%Hl|ih}w}Dl=3<QiO@H;Wu#?|
z7;C|bAr5JUO)=3LMrk^TQj&QQjWWUv@(zfO7>0SHgon6)LcuNq6X1p7>A#h^o43-s
zv%vzb#OD}@V2@G1u)<{jrV1M<qf}*BWW|Tdl74I>>@`GT+AKouicSDV^q};{EsPfA
zMmdpi&h;J%e=IuCECOr{DWW*DK{65)!w`?}+)2a8SP(oG3$kL0`S^@fot`o^M6L*$
z_Pnpl4sVbffJ4Ou<S-@yF-dQOkm@k{@Ll_4i#hjF9A)hoWQJn7u3#Ky$z?>`ERnqJ
z2nUGzdx$xthH&PKyALTEmI0?*_X-6xkmRhzWep*wKjUVRsWXHIBM(z(JZLy~I|>Ng
zdYGVqz$_=h5&yX|=!)J5gIZh{2EnNOQ?r$i7^T?{E7g0vWijN*<0pl<2q8mNnQNm<
z3ArVb;DBK?T|_yKxQq<}CS=2Hc^SrsBATP(by;1K85N}>87hazl9E8HFookVCDf-h
zmA>OI?u_*APwzz=o@H8FpG~acsuoEXicvUWlnz|g>QFsda&@UBQ&5-l=S9+Gov@fx
zoZ>yamnKGtXf!cMnzBNQ5b^X>8A7NaD?QopEqna92waD=seE596)L(@L^V{M_8mbX
zGHwJ9Hd0bFL5oQ!1Uytz;o`ALh@!NJIC$BxK3EU!mNXg$AKEHYA65mrH`)l96L6R=
zf4->>Mru~UVpO8GNQ5znFygRI(nKCtIaXf5X4)>o4t1ti21sI0s8KJBmR-;(=ckb*
zBO@y>2OL7?tF<XfKCGNSw2TNsXCrQu<{OjXG9EJ<{x}hW3O{?8Wh9SiO`BO&iysV0
zDvI=n<D2!h2a13ozRRHEaZ4VKTtTMFW3(cnLyuyYNWyk-5A4psavB?53~Mon2$5`s
zWk+~t9Vaw<g=zzX&oMBVuD2odAQci}C(92hC}G=YCky8L_X=d4QQ;Y}SmTtGm~qnE
zbcM5$5l$Q+33EttoJK(MDjpL8^o8v(-EqVeO$sm2RlHY;qSczu=jzhw%(m87cTyBl
z-*;XWYSOquOr<!oauaEWiV{K6wNfEgRT^REC<F+Jf*1W`SZu*#h{<4^{t~B0#B^ir
zTp}%u7TcqU2#uUUgK}frO%g*4jGUqcIR>Dvj)n&jzS6(k2T-rWFIz910-`_i4qotO
zSLiG+U1oHY7v1r%S9<mB(Di37zw!kc(APgRlpW-v>{ca5@^&VqRLC9ZiyD%B14?U@
z4FtR%z`9zK2x&S5jv-FTS)tMxTAz)KTYp>Fwd39m86P`*R{$mYcBzhhFCW8+k8bh>
zQ%>npj~88NUm2=-Y8XQVoF6RF;S4cDy36cZmNKYWla=9^l~tlU5zK*AvUUtI)0Tr4
zS2!efD+>lfZeck}eyK&uX;H=3EuWNCF*Jf1w3Fy?+^D1U4kPbLm;Ntwi6(|V61pX_
z4U1LZpB{iLJtH=BlP+C-G0Y?MmA9_Y3X1g8Vla{*O<jz`?$Ytl8m|{v(@Pwx4<+o_
zDnhb1oYzVB!7_(Y1}VhQ#tI;GgQbe1gbyBN=8do^m?Ee1!r`W4y>Q7wUDn#b24?8M
zbgmALcNoeV0M4RP5xi}pGhz;W-Etmp*NC#;5`%lz{kcjNWo3}2?+W+uULl3IHVcIp
zPR!mOQg;;bqoby{2pin0TRvklQoS>1#(E=sapv>KntykMuNUv%`+N}243@v5+UGgf
z*};EWeeiwXLCd+pe_s7S^`BM$fZy|jm0zvCzxp&DtQ{<T&g%Pkuy*k3XD_{*2Wtn<
z&c4Zmw#$QSuRME=M{5VypSpIFXKM$O&t4y?J~XIW9$Z};{5y5^#Us_7!P6&y;zb^^
z9lZGJ(>x-(G5FN!7eB{$WSoED`~Mt>?hd9uR()v&f~~<ze`x0Ik?P*yjax4fptc8}
z`zddJ(Ma{-LB02RzLxLBrk>`R+rbCsUj6rZ=yq^&?~i;02>XK%etq?Th6jVs+x<L3
z?cw0_j=tbO;<?+wi#wlxiwAE9pFZ>EALGH>!QR?u{7D|X9em+eRrk@=>EPC%{0~2c
zM{fr&eBc(uJsi9-{nBk7z8yTf{05Yq51zmE+*`iXqyOIL;~llt6wkKbnjwg>M6=hA
zXSt61OnmqhZr^pAYJp7%91cDB6mH+WP1S7w($r*C&Gjd)UaG43e!rctX+DM9ch0|B
z;(=){F86h#YNgNfq&yT0Do*e8od@IPwggfUS3bRa*nhgNp0BF={jryx<~f{xJuz1C
zNg?c;C!TCGQs18Kv+3{|F+cOJ8?TDGeUsCL{^cueRW0`G>z73x59zM-dtO}ak5fqS
z(SmAXys9>mpPhgT>Z|?UO>x)HUKO>ohShPur3R@^`nCPf5C|6^r37YfB}3EwYrWo$
zs+#Hdp1!6)20ptq*Y92C5vch-UK!-j5fKD{)x^AQJDFy7j^}gV$(z$|PkN=QZuj4K
z<N0?BcKr4mf^B>lm{*RBHOOSXKk+<dF7zjq_hNtGgI-Jh@fMuR{ZaW_>G#J$05Ttw
z-bmGM_v6X99VmbxP)pWfGJDoHL|5l1D7nPt>$zJ=EY#T)X6x!HseA8p*VuwH(;r=V
zuhfkv(_=oOHs2qQXR-UElDyb&n9-DXp|7OSpi056Cjpzu`rSO+%CqfM%ub)36cr!T
z3!B{QPuXw3UtO7!a4AJg`CwqeJWWc^^YBP~JU%?l<Kc9?-S1B!qPhN<4~ApX5(<Ta
zS?b4gZp+C(6bgJh!R&^8YM?g7NbGPwn;h9>q+aMm6m4(!+ju;^-(13U7E-p0eFxl{
zo{!?ewqSPifY*5jY&m?=))uGxqyfoqR4sn04=pDCC7%yaz}OLw={-R=-pcZLy)>OT
zZYLN_RWLZVqAiYncSuGMg-yuR@^lh@yHBC1p5qyII*Jj2c~}u6k2%xS)7un=9HDUx
z;PkK~e&9Xi=OJQ<dgF{|pF85>CS2KusNp}%rt2|Me<(yYQm>URGkF(hv(XwR2Fg2q
zx9?(GVgDQb!6iW5?e{LB_^mXR?S4Fvy3-$1|GWLCC&pfrx{0^&t^NL#-gMX>+`z_;
z`cGXQyd<%gUc>ND`h#Z(bf^6u8`OzO@o475K8r4)GZCNnDJn<mJGaxi5JVCeV%hBX
zR6Ty^VK?pJpg&L%1UmiKxJwUE2xfhz&%<*v7Y0ng)PPIy+Dv_-x_IbX#0Jxz&m96=
zpun~}Mk@ay@(5_Q1cjI$D7O(7h*O%V%$r5Y8)=rC{mYu=HgSizO8l5aM4jbEhyCn#
zkW|2o?`1enYaoIe2TzBQCY};TQ2HeCG#=}IYlt`Gg~dqQTK}s1tW6YbP(`U;gnc$U
z>p-o~Zr|-UtoUpBf<v@6fkd0`_8D!d+R>+If@<}V!~W=XRC~W44>TY3pZ8G)NWJ-<
z=h5^@zkQ8NKpbIv8o~*T4^x_F7!`;KE<De|Oj6<^oY-id7!Aw#lXP6zu>`CQ#Td`x
z66pl9-JeVvN6n!Kj^`B6RJ_mvO^pNWB&B)Uk0*-3O9fPKbt($l*81^+iOqhzVF581
zi|-}f+kJLOD~5;|_@6!YGh!S-Xh<W}2VMy!n2Hzf)i<W05#E~{8u6qSzS+NVb&>=P
z{V$REFtIDpkBOP`juXxaF^1<|w{Q2yBmisD9PsMLq_N(Q2g^5z$<P7)H_-~R$vDP%
zLN&%y&%6D2uy_wlpxE!fd}Z(+5m$3BtIp6kZ{4!TaeqpO$5Dlbhx)kiS)XUHN9qq_
zqv{6kWNT+S>keGZSUua1hq%#ZA8(%T_dMWY3JE!y%y#<m*e;1v83QdbB9sv}24=mZ
zi{cy`>6@GVr`mC>3bu?N_tFEl``1UCcZHR{e7&<$^l}}OJLumSjJ_Cry^4765BVDP
zp>8}$@tkHrMn8(Kgq*!;{1Pb>d6Y72d7vUum2(6_B!Q6{WH3@Mu9?q?d3XBt^As<e
z{Yx@*w?Af(+X5BPup}=MGt-jTDy>5`-YfDfK2JVY$@kM9aeWJrlRP8Vc=jOE0`4SC
zvYf#wa<z}vC&6<m<TaqtLnEQh29+ge#39DZP&j&nIJDL8+k_-Ng=luNJGQQl5Bl-+
zJ-NnQ2QkXxgx9nH4C!6RVkvbjy$(nm-lZ_K%|<pQ)fi()9A4Z?E-(WT?)KyTGJE~;
zOW@t_Uzr?7h+usFifZdKdxkq)y3Ebve*Y%2B&c|H+Mg^zg<a#+vX`XhtlxX~5>M|>
zXKtA7Um3L&o$F6oic(Eo1HeLm+>&JtF>u)Ik6lI#_b9Ot_;%KuP^EXE3=IXwRR&%u
z{l{sISdXs_=&WZ<nIisiT=jlQ;G_ZV=E)di0RyRsC<8zMy(rkch}^|QjPZ>3-g$N(
zMWYO&nTjqs?Fa)E+FGBTLlN73+eRn%=lZ?Z!usAK@LyP;Jq!mhWjLcJQQgA<N`;N1
zKF>ReDxx8QGyQ}x6miV%*qaE?)hVwVxRolt-Dmw<cZqQd;;$>*ZmvK64BEtB%&ncj
z1Xt7+a<$oicC!Dfq&9CpE2*xLp^Zr`4pJ{ePD$}dMFKiU8J8*(5G@J0vT@SCKGqOb
zPZ{<Q6L4+Y6yG>0KHX_07+LGHk6NwNmcyHU9_9c5<-kiA&OJv+khR_KzmQQ{Cm~oG
z29Ej@a)Md-iUiEU0*0{YMamhWVwRpEtWm0i)1tEvr3i6O+Ysxt;I57jeUO0+N~M6`
z?X!D0bae$x`#DlL$gob8DHtNR9?NL!3KX97`&Y4Th9j5Av3x)_bUmBY5S-QZ8kHLa
zgI*gi=qZXMnCw(ngipj^_$>7R7*ojM>XFwTvj?QfYqjUnX33|i-9Xhv!Qgm1-H^&h
z9Ty`%=rh9<1~|%qnKuG6Gob;+)lv=+V-#3dxW!o!5m8hT;juP3k&1Yk>f`lHaVyxc
z4T6(Z+{z(3@8Fby_=-&YxHWT&o%LLKhp)=ozP`h&C*i;L6_i}4_sWsC_$n4A<Xb9I
z-~Yhd8kr@lW?DuSbv4@(jCstWWz@|RA8owmWub)%o^fky^XD=UI9mY#Em!T%lUjjS
zFytA*AfEs;MjPI5DeQ$7P4dKC8@t+<^5U}e3atVr?*PCOIOScJ_Lytqbt&_$Q^NF*
zmryJxNAq3NxXMj?0Nle$(zx0-V~A=&s;G9jDRB6(4RCr~T=k5H*m)zTa+sy*yTlc3
z;Ep)P%b=11ZjRBV;0g|SJ-|#ytN`eVe8i=5z@E@opg<OotEfAH1nIz$tY{jNz#8k-
zSrrvcEwBLB1hJt#Uh*Dvtru<bhFFtV&FkO;{;mg}AwkI=`Nj&<06biwP4I+CUfqEk
zPZ4q=3jTMv2>QLV1i{<51LGkY)gk6uY9^^_q-voh+Vf~cQp3lRH3izZlEZ89krqVp
z=3y@K9*|k3$WKMgkAfF@N!wzIZK)+rh5o3i>Ny1tR&LsHJqg}QFuS7RkrQ-Gll=sG
zKLv2CHS@v(`-eHxB4nA+_^lblVJ{h7D5@!_){-1JlbpLlsPw>8fGU7uh!{tlma7-K
zwe4!bg2FuI<=23#>UH|0M&i_W!>S72g6iG7=ub)QK!xXfSeUo*3J<$2QIrQP;SDh#
z|GwzgeRP*cOb`p@eSM~Xp@W%Qr8Qh@bi9Z5g~|u{XWQ}DUQ#FH77p|6=r{*dqx2LB
z_;8yZ&Wf3)hJpb+OgOjUT4fY&kCR(ti-MYAQG&pMMYs3DJjTIDY#C?jOA`Y4A_sH?
z4l#nmGl&)yPACpS4DXc@+L&2nwjG_|NyfRBVU*DN1J=?P+ObJ$3@Dx;$1kNz^RC=+
z?h&vwRwy<WY#6?<FoA;O_7FC|L(roTj3M_xh_P!n3moXEV{?Gg2B2Lq<l!0YjVPE5
z2UF<Fj&n%{V8l=GU|AxB3MOL_T_8~@5Q}ua1*q|~i^&mb(Tz=!bm~T#T!0DZMQ$Pl
z%qY*jEy7!ZY0MtjrvV$eXU7Og;P-5qc~4*?aK*oxKEFhNW0>>@#XS!QH3OSt`Urjn
zxWsj_B!t?<<iJ74WYx_`prV_otf7pL%|w_;(1<TeRdFS>>6sFz2ci-T5njBqir`m^
z8sSkBDgCjn!m3ia2(w;XX-)d|=2_eGZ2^2Z(2+h{*vx#q7U-Q4Lw!?ongnH0Ko%B4
z^dgigQj9=3BR!k!B!P!*R4@<Pnz1JH*Gc_c8}A3f7A{fBkr6csOiHnrD8u`gg-sy#
zu$P#Q?apg@I?ITg0%g9$pd4OXO&}_~HfeK#PH`z%T`9yhbfpj}aV3=(A}xAG>V>G3
zdL-@Tc1){7YR3K5c2uG1JQ6<B4honSmq7SwXF(!1P;?+sB|bon7Xjk|zJ-SKL=TyQ
zR80x`l{5#yj8f(;W|aap;>Dx&NWF$8fI<58LIHDo$Xn<}qC#)97aA{46<X+&oKvFB
zBte5{qil2@n-Xn2klH3AA_Q%yPoh*mly*KG_DOu<7E`b(M#)IS_A(+C8cfL|OnI>|
z1sItkt9TLnP7&4P5CCstI&2-e)XP|b?+EG&50(%GI;y4tIu00YN=!=$#$pZjk(BsX
zrZe2oU%Nrz$`28V81;)75!rt+y<MlLCx$NF#n2D4<#7s37qkcdlEx5CfhJ;Nr$8Y}
z(<)Z5>|1ao%Gqf@ArP*-gW*d@$;*2{FmugKUlc^n6m?c!q!oUz>}kCNBt&qSLG6J8
z2@ecS!lovy3Tdic@uQO#m!iLiJv<mf;E#b+O)>+f{8f%0DU^->DD(<1l0l(@xu|92
z05(&T#n>ZLS}5BTF)0eNn506Kx`$U~hh2$@{>l!6P<9C2izPN&D0`C><yG+8U!l+y
zrFk$@1Feg+@p3j(l-5pe5i$6+mid<18v944LmGCB`X>5|-@M61iaGXOgqL~M2m&;8
zBdf5XZeYWE$X41e%v*#deB)(?U%V_>l^fO<@%hqG!FNgt7Q31tFhPw8*V;>}jQbqG
zZ~riv;KsAggx&9rG>{Z7)WzcfM~^hqpho%gqf1x;yOTd4aUon#=DLzMYKx0tm1+oR
z#SA(%h8gHBX$HX@W~5S3gBLYQ&fs7AabYph--|?GFFG)R4eLlxOX@h#sHq=OlG5F}
zokmV7vr^;(dNif1jMT!|FbeZ1okdW_5_{CVD)C-27-^6f3uIS5?LtdS(166}`2ykn
z2zJz>d~d+p6zbAi8kbB~AnhlF!-Q}`Q)xPlBQK<T=gt%NNxvaP<XlWbuTi8Si@2vO
zI4fulvjcgThF#u8q#9`C*6?MphA(@-dOVo_B8`?hE&R005s_*xiVyXqOJIbv#CWMP
z@__?V%}Us!7cmJHglCOrVXB>8n1pySNtK98mny$;T&hV#|0k)5Gg5{3a0%@U%TzXG
zQ=uJ#-fSu~+8Eqn$}w5QsSs5Oo}Wwx&4VdzhcR>5BC;_76_@H<5`1BjG7NrMjNpq)
z&k=T$@Dh?F11GfUQWiYeviFEg!dbGYp-rdiVCTso0;yuO2e=q=ha4czj=CK;yXad`
zg@YlZB+mJ-7>5rcdIycfn+&@lcy$D;7g=5EOnDsOG3reGO;p4?q0&Ev6UGVtWHn3;
z9ciOjjLJdB-m|!%KjU_Kr=xn@4QJy$265ySiSI=AQ<;GdW475eHkDG0t4L7{CUrp5
z)O)2V^=3$+SYZjpMT%#MeFiBeGrVg%r3e7I;NXCaLl<>RZ4=}>60>8cu(*jZB!C#E
zQ7$lj4{-#4<&7{DG!z$uwL65%6?PwEew1nbRdPTVN<(}QuEWVOwux;=IiYQHRm2?V
zk>U?Bz$hx{PxZxFM2fKOpdaB#M=_sbqVyQUVNjSI>7k669pWS+g`&Ek(KaQvKqK7H
zu@r7D{MJiG1LQyti33&k2<3oLRG(a2MNwK39F`twi)i2&wi`o+Zz5c?MkidQU~yNx
zDVT#tsluo|bmD-DU`|(Gy<kq2mmc$3_+k#4IQ=CYR36j=hX`B&hLd_NhAL^?62h0u
z!HAKU+%Zf)B#pR!9ATGNb-q(_!7$e2`DuZXcf|$gIH16=SvZccHXid8#dNU_713D5
zpa^BHvGHH05BMNf!>hnc`UjOA|9>)VV4~nsk#huj4I0z42efODs8t+gJb)pj1qR|`
z52lPD!`a~o%c`j>Kbo9j2v(7`O>sR@X!9U+h9Ua9Aj1n-Qv=#OZNwODq9ev?Tc<MZ
zVo{bf3MULYD<*Xx!k2+)ie1VM1f)1(rh&r4F&}a){RLVa0=wiSjKxD2ti#F>r--rZ
zVslCb1uFQGC7cjVIfQvW>4`cNJ#Y{ELq^IW<{iiYLeo8p>82i_I}E_4T?7y1V)K%?
z!n9G~XPK9GxN3A(kbZp0+p->Z9(|B~aS$0Im<B<QQyHc>G$oO8Q}`XYhysYf`7}t7
zXo5O_>sfRtN@X8CViFam3+>+1hPhX0H&SwyNEtmKN3C~JC}@QNrG?OJ+r^YH(=uo<
zZi>VH5K@d+Y15-bh$rJ7RX{++lqAOqG5TXI#<bGWm=Li&Z0DlCWFTbq%Z#av%dv_j
zMTj4YljC5O(!eHg>@Wc^_Sagt>ioMs5Zq(hM$`!=ObGhzUo@xSsCTHA1ppX_fEw*%
zMu*p?eZ?dUewsB2P7{SfPaa|1@P~49+9!HgC~yx{LR)5a1jJD6oPvhQDKWL6iXQZr
zR0JnRJSts*-&Oq~;K%`0J56|N5Z`6?&A7|A@ik|`FY<Jgvyve;geZ1|C}j>3V6^kq
zl7mL0K1FO<k%oq}P@1AW$?n7ku<Q>|5KD;_scq1n{3?WG!ixw&Ca^a-lO+x~8T}Lj
z>vWN)y^6i1+CszN&#`7v8x5pCJmjL<lBrT4xO^kU=)wbLD>cY6*@)q+Y;X^=_uzD9
zP}68jssxpq!zDxOPcS0J2xPplff((mzk-6)AvC<l(2EfUVus9K#TRnqJREr^n4lCk
z6a%r!CWdA3TeNx=Z77s3USM7!%}lc)O}#(J;7;^c8!IJjz__T;U&=q)$T&Zk7)!?8
zj1@+hq{dA<@?)W8Q%`Vwi6J+r6bcfvKSrE0YFy(r(iWUbunXvc3tc}()-X7RJ%zCb
zBy1)NmZ7rk0-U5WR8L0mNJ@@V<f?d3Z`R}yl`!w@7(9Qnl?Pi`iQ)}orLp4WpvMK5
zp^#2IApv^WlW<t<D)6IF@naC<IgO?YihE!X%FH1a9WhAuWr`}MM3AdZ6##d!<m53T
zCOm4an4mZ?!7``{r-fCa78C5kNytdsqX$M8*$<=DBj}Md2C8n3F4BR*p(`Oz`F+SC
zRv2B_7o<AtrSCwhkrTwMmI#e{!*yNyYpvLB3BW@a1gi7%lG@qskZ?IR5`?J2XyIR=
zfDr`&A^EQdyvEH+vw-pNn2zWXVK6Mw_wuhY-xq^K#9B<cfghKYgxi&YAzt_qXPBV;
zKurKD9i1uB$|M%3UIn#nN(wNb|2`Zb06B=I@S;IiByCFnR7BX!MJAK2E|Z1nmmp^D
zE%+5LiYWL~5n-1Yn_&lI6^yYQOflq*AQ1CzvcZ3>*Li@9T(1jg+5<n}U)3Q`!!>zL
zN-e)QE7V|!A;#YuQlPC<L;!_x`gJpHMQ}yb9q^E!O-rD&4>l(|B>l9xI3TJtmf^V0
zmL;Ner8=94!sbHqfRQVmg{G)l;h-`3S7Q7?;$EbG##_W#QZQEwkJcWXp>caaf07Yu
z?BX@~QW>!YaHRRPQ|h%#bMcCLg&wb{_eTr{;>cH80a?{|oWbDNoz&`PqT0q2LABdn
zpBUwpPzP=O!gZ&UMO?2#mdN;wrajkPIpIy1?Ui=$jPq2@yV#a=FIU@H7WUnmJ2@ZC
zJeo@pd+F}XB)Berm}f^BCXUlcPTDu{l$g9*d4mBNxJ0s%wgZ(0v27MmgG#pF1d&SV
zF#Ys659dgkj%+6gTJI*8QO&xWAVk6UKy8BvB2aC%EN=<CiTB{A2_OMc9krpnZKnLD
z2o^xKX<7E#%|x`{UUJjwQCmNS93Dsq6PIN<9?BDV1T*IS#Js!K@)!wYLX_|tzmTYc
zWu4a-ByXndAbkoh`Shsww%cocH+ul#W%fnxwzul)Q<ZG}8T>lPMu&(gDUo)*C~VJ@
zw&6WK%!-CGAGFm~7<rhCoaNzMB3V!@!*Sw<G#B^5iaooNr6a;p_IKOnI#Sz8o8A_*
zM8$0EUg``9PNK8J_L-)JaMb-W)^ePv{MxIwwccLRvNqaRZd{s{_0gqQ1Usd3Y`52M
zPGOC#QfiI+?e$*6GCa(_6vlbkMkno!o0oYp>uFoZyT0`~3e%!u6qXaj5rVec%hHA&
zUT1>yuziaC+p%c!;#0nuv!x0Tom}U~IvW8(CszmKG{V|nyc*U%skLvnZ(W__BR)HA
zZ}lxXk9TU~VoDs&?Rq~=@F*uIVBD;B()yH4DByXPL(kGa&z)BCZJX`jD!Ss!vDYw!
zB38i3!*P41saaP%X-A)dg45iZggzzu+yi?k*3#V8(|R}CKit&+p72KR{bAvK(fH`L
z^j-UsFG7&4Bfo?#;ei_3Nh<iXb&F<wifVn~FcToDTIo}JS{5c{8S}uMC!B7!k$s3E
z6ZBwiUL%AeE76DH$n5Iq93iR-tidJh^KzAKB5AQP`TyvV-0<Ot=`!Q)mJQLDT7NBe
zri4jJ8=nXE=8677d}FVTS8+%26G#lj^(LSU?Hef|>_UWPEuyR+lr;bV2=9pHrVx8<
z0gKSl$=P^do2_h0Ah79va*lMw{NYUtD4cz>eb0DrAw>DU_k{J?l|ZG&_R*v04u}_C
zF32%a{eqz8MUZP(H1({g{H*mUH_f(xnO{g!IS_wklm2pjd^@|WC!HutsN76bL``Wk
zR$&NCrJfQMm0#@d5jC3tP!zs>Ws1*aOw-w3tnLSCWxE!w<zlHUY_FA-k=>RU^*Ksr
z@(cNO*j}=ZN3vJ(FzimeV34cRw($+*gilSXgz;gr+E1kG#as^9`A4Hum&Q>oVap<7
zBg64-+t>bxjHVuRlGacS@cd)r?(1PIZ}W@rC)KV&$<tO;(Ck4YJooAsm1+M~n(--U
zMGFxIv{-uz)rb@`S3cWo8T1I@wjqwGu)FP;nZdY-V+0eO{z+T1&F(MhJ835*8tyMK
zie@ua^k2^vPh_m1$T|Y;td!mzv<RyaRh+paztCPX1{p_3FA+|NBT{oJY=S)z(wi8S
z+wl%!|6N4%)P8Y$;-s>C-?hu1B?lk;WAFbH>an`>LG=h!S?Epi<CI<G0LD7m{?12E
z((+=N&!%`E#@a;z9@z;|-lXjbnMPTboWH4I%jeryCs)EFKJD$0p5PA*+Ng%8`YON3
zamE~&@RKRpu3a&KB)j$p7OUJK+KWf2D58Z1K}XehzHV6HTjMijoP;zaaNEd6K@Ner
z5Fa3x(p=U$mj$|jqf9($`9i9I<GTp#b_{zaHcA7eD08Hty=@kT*IP2O_Iv3PKkl{@
ze(!~{$|Z)~c2a+!fVqNH_FE!9x$m$Yf0|!M?X?M$6A|!50{KaM$w2;~ZLR@;)S^G%
zE!hZ8WyNoyiyMO_{g6(uv1j<@N-C6<0_SdO7K`&oiAj6xs{w@N4kABlpL*&NdHuM3
z?&YT_Ww7AaAmu?j;XDvQj}QEXd#HD#oLCP^+$=VXkIMLdN{)D-<VvJHb^nMKJ;oEd
ze8i2?CX$N}P-sUbNYNz3D)i%0-<^~ts?*q$D2r@cj)<T+U<V~4*oV!<uuYzVBzA_^
z=cP=3<lu`=Va6lP=3DWDIoQGhQcdzgs<)wCC~M{JMiNi4X6e<j8N<vYiW|g;&aM*g
z$mXdtl4j*r=$OjGmTW_CQF`kgA7RMk6;V?p*k(I-X;Fv>4pr&h2U%8~w4Z+C(&uZ8
zy)XWBav{;lF4`p2N34#pA~-D613`+{Gia!u1zYxydk@%A1(EFB9kUJGsS+ZrO{sR0
zt>{>k808H%csmQ+HMTrrPuPZ~1<^5mY*KqdzNWFq<AsQ!GmJJwM@RjUO5Kk1@NlG0
z5DF+<p5qrXbMb^29)uKwE?H~4By22BK=@%PJLI5P&+eyX&r%L<w7sYBrp@;HSP%QA
zDt{3N+!~fVJo+dlqn9JlMCKu~TOyb8FShpzoTqa%=O}c}tpfdY(ONt83f_08ZG7!K
z#kKTM;96X>E6<r=OJy?|u}uN5w-J&z+Nr1cL0NiziWG$|pNDyhHaQ_17u)sF<(<&e
zaeG<TPukCY`tldyk;KEjKd$s*ghli=Xiz@Gmf(5(A()l|-0F!06h?t$vw9$!YA`&D
zCiHk){rywz5O;ltiW?!am&-=DmTVGKJzHxj@rme+g<j=Xan{ZDnW_FOqMmpo%I;Q|
z+HRk@(Y~g@$KT@WUi<vyIH&vV#9J{i;QhVIZCC*63dilu#$0~VKJ)5L+CFFpc752^
zmoY`GMX6lWNzfI+P|GTb=w911_EL>2f2__!sR9n!-NzY*q#Yc$ud+Q?TsM|qB{t%B
zFW-m?Yg|%rKa<a9d#$PA^j<su0#SRr9q{@LBfK?#i7NytMa}S2dME?0@B^uO5vWqY
z5Y7@hccTQ&HibM7#ed0i`VWPAL_io)k8r{xX7$7AWTh0r(UU@bI&BE66B&t721^>l
zWwj^_LHmeB0OkGWX!DNbwF_@X1RaxFNZ={U=I-q-CWdT}@f<9SNI7LugsEoSLf|0;
zy`)%dseTCp-qSQ;jikwmghdb4ana+bjH}PvvDcoCS%6E1C}JDWsl}!u!FLlFQx3Ob
z{~F%bjp;*v`z<ySWk&B+ew`_WsH<XDpvykN5sYdrc#yK*1D-+qfH949!ix#~sKp-M
zvQ_=wcSY468wse$c@wg-auWRb@$`t@Aay|$zl$+D3g68LKuzseC@?)g;8TLvd1O|;
z9Co{S7b8KbT7xRpxi^gR5veGmw1<;+GK(mm3Nr^qO*Gv2L3tfi5Tk@Zl`XgX?bX33
zfd>$dV~KJ)0NKpUK-f1?+{K2J!4`aIL}U|BdBh`R{K<u^_kb|aJhq8;vQ;Fo&(>>j
z;~W`Xib2GfgJL%_bxDgr%{noNCUa>!CItv0+=3)RYDAy{9Xn3hL|Orf3_`5tcJL&X
zQ60#23@Q&1ew4LqW%denuDl_gK7q>T&(boADlV#%AdN<HOpy{ZA=qe!mqCtR8f$7)
zk;a2$_$J$2*azAybuIx#nL(mVhRyP{0t30%vDsiix8W9A4FmW+?n8DfWuHPTV?NSZ
zk%y#Uz{;Z}W|CV{#B176KQ3zCDUk`i8<OtX2*OmNgcYkU(k_<RJsA^ooclSmN7%C(
zI?9p)4iw2SF9&rf5%ZC}LM#+0#(hP_k#V%AdbLz{+5>9XPl68s$HS2TPf<oxm9Y|4
zNq`|X3e7Mepld*Al*^iBFh<N)w#>S4j0~MOqYYJ`WEM3PCUS&AkYuXPw&Y9KPq$f_
z8t$D@=8Q1(0*BM#y?0U|TP+Xe8sl$XzQmN*e%rpnw=KcolpdZFiiQ|78}3?&kuBsP
zF}s=8u@JrW)T}^x2{yyPn%Qes=Ehd}W${lV%1q&Gw<sK|V!yKUU*)-;;wzLo>bVR;
z2?C~fN`8aDhI8ToK%f$`**?|O3>S#ouTivxSRyJ)JCiiw*%UXzqnNcSLdr%DOhh;g
zI@RHE`_z>I0h+AfIIzUVyLYqEHq`=+NPkM^+~|=*A2V&SynF3rT1aiN#iLmYsMsNX
zEt05vv1d%p>U<|G?_zk(m`P<(B&CG<{y;KW3&t=I>(sblQ|RZaF~ZP<?nXLxj6?-*
zeZh3(^(i<akG#rs<UTc%^sTj&n-n+rlCz%crP|$SuRM2!^Ue14r>{_Q!1(g(^7b_>
zM0{f??CBq<KI-#QJMHA_xGH{}1-7yPTbWd(7NM*?X=h%%wj%P$&zMoFt!<I&6c%`q
z%Dx7YzBQCkeH`FHtQ_es>YTbv#o@*-^_2Y01dq&9wp^Ry+k4nW)P%EXi%aAR%#7h^
z*ca~mF7gR=?WohF*sbve?MO5LwV{wE&e&A~@tsu6)?x2mp4<wvjgpJ~33@q073WpU
z$^*&Da_ppy31p_4o^ldmtrUtxt5@+V=1xS3mFP{|?Hkve?`7t3l>pzBXN9a7$YA%G
zMk9isx6fT3yvgV5+WacxbjFCTuzqE747D-Au>6XQ`ErE%tb{90#a&{?qqUq6*=(;~
zoeY`O&tDyBc;PkAve1qc<#W?c*&?0z-eY>qVuHcF)zLIU5Gu5Lh&fi~@yJo$WuGLb
z%yQ9mK4jz*E~;s*1aFoh>_q@E4l*M3>Hd0yxaiXD6AyESso9t;=>e^28%1j*g}BNz
zf+22aCWi*4CMYz9zHziN0Om<2`ecx|4m&9M50e%_aejyJrpaA4IrF2cKdsC<tab4@
zFf+4XQiE$s%xVZ@KMNRylM^&=v+gG8z4!6!q<wX~cPnz~!mGM*WbQkFbuwbTsFne!
zSbab;EgG=eQ5+(Y2SD36WoZNmLN$JzEk-~F0@g(I7lPo;7<g7s6Q4@|QdI7-V-;Q)
z_gFnL8{~m$RT*NAb7C|mWcscxJ!pH5M$dB4pg<9z%VT0JqYbBi!HBqw4LL<5<smLq
zEUs9_AQobqYJR&EHD$qp!JCcNUF>-!ibO|k1ULiaUFLh?Ypdmx(BX^5*1cgB`^r<7
z5iNpWpktRpu8cK=rAJI`@y)ayH0z?oZWycb3Y~4XmrP@b=4k{)%ukkhQHg+R6-l|B
zf%o~Qek&qx<tIZs_K^YRR3>j>!t#<Kk3oz@D9x7algol(|4gh{;F7)74P$5H5h5|j
zoFr99QT0E}tbo9!{P0OLhzY8QZsNZ`H*|?ebj50&<MQq?i9p7>Dk^xVW|em`uW~Qr
zyc6Uj>78yO)T2l9A2@Bgowf#BITatUBj7|W8o;UXWr5m988RK=sHsSli40LVBEt3=
zSq4;suQZ}33ttv}KuDDX3t3l!*x(UWckx;@?!_RT@2EPlW~-UGEI1%g>X~{4TUd>X
z<f?$@i-)fj*%XFju%qT+RAP8Zi#;RL?Pg8E4C)OhOo&Y;7Dl5Po1UK-!_g^VZ!s-%
zhb$z7SiunxFXxNcU*`WM%q_#Z664We4w-2SE}MarJdxzaVZY@yPH%|x(z~%fCauj>
zCzNqM7R)Ndi#PGfV%&w7`4msdaoD&>w@`xo-=mROnZ*s{42IP$0?y$x43hX!oQa=4
zWu3*gK1t(v_kPBEhD0&=qlj_5MJllrBrZrkAzLw&>Ay0F+AnrVr46I1B&>vKz_gN5
zv(qo!PXG^c8l5U(T)To90~PZswn4g<cf0K?{qgsTdNBV=xRz@c$L%0pYdn`2cpF*x
zOU;{R$}BJ*QW5~;W#EMt71Am7nb^^M(iwag>x)$<EYuQ_s^k$KVD97t9cf`XekLD=
z9%9H9)Dj%D1>~f_Nmq#>1x_x>N-KO51Gh~X%rHA*N9xt<V7OBTLj+gBl1~HrX8U}<
z_huB`@4--F`9TJH`uYKRi&j`}4uYe6rFwBLhh<KnM+(XHr<<{W#e%ohF?Mm2se&>U
zNqo^nLufHHR#=-)T3?B<IFuy~6TSk+9o*Z2iKoK&{5sQEZ0>l0imgnkGE9_dc-I>+
zcty`#cN%;zt7=}jCjO}PaXA{g1{ZrEAl1UFj5bM3Mwu;QLlS^(YCn<E2x!t#W}z6g
z7Q`}ll$L;d+kwi=AE$1X!FezfzqQIDZV26_4}M%ss|&S^-k9cy-3wHXFT>=0eO`W|
z<4Ktle$)<Lyv~9z6)rEpt9RbXIWuy+GAP9d(MVDpF%dPKv`CJ)CJ*Ii%>LtORynw4
z+>AU-@pDlVN9b~?0NEVSO7dd`E4<NwMmeK5`lL7qj9bC8L?bd3?;_*H3SD49)ZUDQ
ziA$AnFQOI>V?p`8m(gasy%E_NgM5({B$8o{abism>$-uhu?VGEQC0I+%%INI-OYAo
zwD}{Ei~jhh%JwTv3WtHa?E~3p7_2Py+%a<8UVHf|ynq3b+Z6B|IV)yc%GZk}o^Zrc
zvLH?+zt>(;m3X|%&A6HjA`1^uTSx4bOwt$uN%}73KBHQDEi*K3VX#!qxi!D5E{OQ(
zboRp74NKI6A;J%5@*oAsdF-JQAN!KS(PIdMwu(ndC?>3UeHNIrhzX$yNpmMuHVxne
z9wQE1c);Q$n;_u4%O;BxHbq;2vB--qwDoGK5vcCKC97rPG}_=V!o%{!Io#fWX9%8o
z2CuTAVeA@LTwQkRb|a08tCl+8HaIAH05M0IUKGYaA`%YXs4*dmoPCI4!GjE3)YQrl
zn-4c;kYLlzHf9jn_jLmj_F9%6Lq5(gA3EpuZv29Uni+mFCa@+ee!vQxvV=H?*vwmJ
z<chk6L7|1{hY2IxV@Q)$5_2LkbtS3q@713pt?&NA_s=Wn>QmmW4T2%YPR=JEl%l*0
zTFT_gVLN5aM54|sbmoRo@Ht|Fa)wLcxV*v-WTphEZ8ZOGWg((lS*|9Br;php#?Zd0
zfxRE0e^}2D08I4~BUg%VGpIYYqWHEb0#*M8EU=?WN$#=Fp<$@NoQgvQ9B#@v6_&7H
z#o_QY?VGuDNoQ_46wJ6-4w$rXT#T(Im$b1XBVe3<K5eT@YEeFs?wx&sS!u<$Jal;?
zDDSF&atQhRPRn~mHRnc-@TZJyF`K}cN5qVIOoqqpR9aS__oBwWB;y^+Y1$$fop^YN
zHLGY$LRxVot&l)z8!$Urb!M9|o1mxYmx@V$=j$!$9=F5MbIeR*$IS6O#%<gWx*0m-
z18lwKvOd3tdi3)3th^be=W<fXqT$c%ZEI>`9rAFN=cufSp?25Am|jh94+hAXDui)n
zbR|A`GiZ%+G)!x~y*fV1GzJsA&yu(pH)=V|qs!h=`{Km-n_-;qd67U-vMok#Mq%j`
zcnT_98SWKZX=5+}LfJ7$pooygM6@&za6GX6!oz+$@F^2^CHPrvqQ;~_b+f&k?7#l>
zWhOw_%HzBhV0D3W{}2T*EBA6Svk_sL3eK>Mu3Rg^B~&)nIv8h=NnCqZSSztFXQGmn
zn2A!$^mG>m6ah8|Jt!XUq2$SdI=56$iL>}QLw`Kwef(m=KMUeFoBEc>s`)o@285m>
zimt?OaiTn>dq2}GbnznE`lPIz0N$G=q?XVOlB8=w#?iK2QG*xBccOT*OuN|OBD0#m
ziNggPb^-H!nq-hNMFx2e5RB-zC@r!@)IYH`jy)QYE@&;VeJHdwDHS2Bs8PoW5iCcV
zqj%=e3H(eK)}wV)s&;b9MWV}SZ9XA0w<qMalET*8x0%{j2K67{7k+IQRHQ}i66!hI
zYu|Ov72f^!>9^j+80N5Lf>TB(%m6Ur3hzn#ddyU_wz0}DvX)&-Nia;q!sRMO1<-x_
z09IUEjpfib42yzB3!~^PiC125ER>-Dcz0zumKIRTOzSt`QS+#A=+R>s15)xt3VMbg
z>v}JAZL~Mveij}!+lkk4#k=h@mnJyfYWuFwP`)}x9l=EsBD3tZlh!Kx?TyQmgadNH
zOHpANr7*1iR0v^q(5HH$ock=MB$?phMe8wqG@=#_;KQ<8JQ7(*E<UU*C;{SqKNOUc
zeMsf*3yg)Sv+Uy5JEMR`Lt}=RK^eg~x5Zw$?5=Nw<2nFY-$YVI+=OToYgaoz*VJzZ
z)>{m7+5D#iP!9>`q`fxYgG1^>i@UR&lY7)oTA4f1?))=^DOUVKvVTv_9D$BVWaOrB
z;En#lut~jCLa}PW0Em%~dqdb$<Q^X?hB5b6fyES1u!Ny>$e3ab0WwBVa;|zJ4Jxaw
z9O$Obcpq`(Z4H<KkQV_X9dK(us%nE?R|H1PKh2>I+i6_!XB=dWPE=RiEGcSVruL}M
z2$w>|O023&5Jp8N$m6b>2+SqIT-3k<Dn&&^1f>qFsLDAifKV+<JUM~J24hr9<)UiK
z*a@q!bi&6XCzm9K#~4XtIW!Zl+>%<gAOu=wfg&??lU>}3IqqQeoJeS&V*im^OSBtl
zj*T|9o_;)D#?!4~qx0#og&iI`jK(=v6mc&=6NQAaMv@W}8PY?yXE!!BFngi87$c~J
zG6*WmnMB}HvojibL-%gp%`ePGee=MBGE~6)xTxB6!lTq0hU@;uVF@3s5-qxMC$B#b
zvaVwWMM}GwJa8e+m^FR{O5Vy9qQH1RS4@t|ipg=?x?(~!FhVkZ)3hO7n-~rO(1@%9
z$3q$WkY{87V^T`a`r3u;uN}fA?>1IFF_5H!cLj{edyY|Ln}V4a(8dr*R@V_z@d`^-
ziuDxim8)$;vYRhmL3kL~%dut|ZCQe`Eg{VL2`0iUQc4_W6Kv2|41{nbnFIl;6sM@m
z&B6mgphUgQXhq-$7=V2U3bIdmqEHdBaUQqzB1MJp5T60a^(?P;bq$^Y)d=HRJcBTo
z^P=&51zFYMwC|OXdPdCR!lx7;O~u6wnpck?D3+0FYol%$z;`*q5UyefJoQjlNQ$m6
z^NV<r5Tc$zM81HEVKs4^%AF$rwTR%YGwc*ou6I(0n6ZxB!vY{A=aUzup5Rdf<><iK
z3BNlzEsBJE$s4glwiz>M;ZW;==_iTh6;m>SrwE+QX<lS9%9%KJQ8F13mgUSvuEgN$
zG#1%8#$ansFGT_a$B3UVOp{x?lSWSfbFfx+HK1W>>9({*EziKkvVXU|(QDuv9lk(*
zq|&r0d^<~6Hcg$dHBKo}K$+c;oFo)Wp-70D0qN$|FqriSB(+6?S4$*~C!6qM2y$Ro
zjB2=fmpoxx7L`=fMtgg5`~%VTkKPWIYE@e;DGn7dLbOyxlKKlZ|Dew@{!zR5%Jt7u
zPglR-Q_vUg>0Hy9WmpvF)l&>#ws2n0@0GQ$%@%{CHFb#&ML<>o-Lp62`W0(7mNz)M
zA!<0dFZJDe`||avTawyepen&`UAM-2wOin%_rlKmHLUZ`y#1%a&s*KTr8*aKrOvwf
zwb&;3pnaz8zlx8Zw*x+SV@|HM=*|h!D<iavH~7IhIhNCqm}ewf4{+t7JU_P2ToSY$
zFb#odD8W<*nN3QM+L^lg0}8MCqx^zp)74>#sv$cY(J~yuE)oAC(^5sfFLd_V{Mv3`
zA8V#XGqLo#ttO4c2=5Z}tfpK+JV|tzggxS3S!IS2B?%Tw#Ni&1vaHO^u96{nXbEs6
zQ0&)w0@)T14RA%@#M&YXYZjXV{3wT%tUO(VI2U8GxD5dL=#6}Zh3d^fIEz49!U3*X
z5)MRPn;dEQT$)Kw$%lWF;Qhe_feuEF;WG;L9fY9vi<=Yzix57XLZF<NT$VbVt6?nU
zF7EY`iA$JaMnLb_87=_SZW;iGWa4doOMODF1Rz=~H`bZGiR;890{PW>FLr%U6+{Y)
zc|RCd@)Y-~n*ug0q^PVE6xd_}iXan<n^GGE9pcnJ2$-&Pl5ucdVl8p$HGY**Q;1VJ
z1)od>UumBWldpVMtwaTu>`UUP9EBG<W{#;?hE!9HN+u?C*=P%gZtN}7Bt%S`c9s=H
zLuP8j4-VA_42#Q5lUa#+P3t*?PnjsQ+RTm%ht~|c6ofH55l)R6@SLCEN6C`i1W#ji
zTH;C+dSP~A?)GN|A1GHom@<xGKedJlf{p^^rp%F7WfCta8&RK{>_^b4UZ*@S-rg08
z;Faf5T?Ap79I4C%hw&!sTuR@94<CM&=LezNn8l&#Nb|sll|;+th7gJqHI8l8<d`dE
zu25BSwp+H=?B_;ue9QQPG3fX%_qj!b;teBJO`}FwXC@$pc@=jm9ksV6$3I0X2Oqc<
zmRDQa6|3)7QDRL6o@EG2PG<d(Hvqz|yY+=IZ?_=Yl+bKbf|xuU2i3#CGSWPpro8b!
zQncL~LuOA&c)Z*`vX_`P-%9^1ZV*8@yv(+M)`SqUei;QrCZI?>RD?Dn;birL(BScQ
z!Yjsuk0e)Nq4=jZ7zPsXB+N}6!rKpiuwT;yH{=Tjh?l}0+Gb3xz%6sEUS`j7Fd2(S
zBhA?~b(TO^mXuM}`VtvKPy$ZeR&*f~lt|-HVvOR8Bf+S!nFgb$6rgqzEdu7H1ICX)
ziOpzwWh)X6A!~?AqDw_x_F7UsUbZQ|XIaapC?hIm2_J2VMaxSdaz0fwELz4i8zD#!
zHKc)*f-3kqD`iWmiHGkeKVL7xi&bc7Con1o^McuCyTp7<*~`rI3}g!S-SNyQ(nh4`
z2oYs-At_%nfnbGs5tU*+52F%N8Ko6LmEjiw2+V|>5^HP=pl(<lqQBVM4A)^266T7n
zk}7R6f3H4_Krqtq$;E`cR#HqLvNKEs&l9pkFEa&_^XfL5Q6<EUV4Xe?W0VXckKxZ|
zkAjDh9$z7t<@2Rg#ix`vCT-g69vtBCT-iI=%O8ga+wnD|=E3IrB<pu0J-$USGb!o3
z@y70a-jxI2yIr9N|7N)gglZwLE(*D+mc3Z>s`zX)PapkcK?=A%M=ij=rNv3#Y*H_;
zI{2&WmHEkvMG-;subCCI7=^;&&;xXU!{h9d&1@a8=L(q%w}+jA+SMd}F+hQmPIg`n
zvOyUXR?XbZoX~(;kd@Q9)r3AT^ZZ*74*!+|PSwmyP4t8IV6h-rTuwwFpm|eq+rt8_
zcwNbAsDjVPd$np7gkn%w4AvnN^s-EIfiD9ry3GR&o)^&tI#G~S^IX>~X@|&*-jcMc
zs_3;eb3ufH6DT;9qas--$E6Te)hy2-S#PLCks-=xCzOzTFuYhUFPF=l@~>H$2|?1k
z2x5NN9crX%sj#{n>TIfleZ?c-SCcHM)Vg^u%p|Ei1xRnP25%SYk|yj<PS*|(CAn(W
zF>EZIZ%uEUPC9C>caNpsk4v9t+k2abs2Cj`>}tDw_jNCC?Ck8Mn;aZ%B@n(AKk344
zy>U11JhYF{`0}bhMtXctp~xZFLb{;~#87lnq>%QQW&w9ght6eShKn>~XvoVbg~unC
z!6;*ew%u(n^Id1J^0DJ^WIn?iWYi4Jv)A#O1UD57Ft5|h&lY0luqUq{7MUVz@<Fq(
z7A(UT;1$JPgeCmrkS_K%J2au$fPk?CzepO2Lgec+o7wl^I4^8?L3wT;<%PSuKvgL_
zYrA=6Z-%gAlcA7y?<d~-A*`x7*3Knlea+EB)tu~ehqTe0g`FU9!qdzo>Dnm4%ag+;
zJm4w5_hf+z4bxphZ~e3-&WZ&Ry0p}EvSNT?LSB?%{%QN362Ls@e*n;=`8Qu~hM(vk
zUMwLZ;OV<)I=Ujb9*WhwBrLk(*~Ki1ldKenCq4vPL4x=866cC;X1Zu{22D3`G&9+l
z;$|nC@ec%*qg({Y=uLx*FPWhx1T$)e4(ll*&*<e4Q;A0@pCC%X08QUQEpy_4R4GQH
zl92MXN3n8H2^6Y4;C{SUJ$%(RLyw0@6=Wk_7qH3_cm=goE^*aH$iqg&R~RQgW1?E*
zYIHIufY?wN5ir?lc$v=JWHZV~w&ffeLr96Az6wBu+7eU&Swuqx7rZlkT0GTaMw%~I
zMaI=-ZgO>jt9~s}NpO{$f)!bS4QVfO(~qFX%^_Rxqo7btAcrmC(@Bw-4hp&g7`e&&
z#-r5!oJv;+w{e%?y)-Y12^}PxGFIeDAAuNmBsMImFjf#FJ%vCc85?SdtH|80sVI05
z!Jxa0$%a9by#2Qlf+Wb0ts^LzNv#2pK*Efx<fdp2J?gif2PnmGdW*=4BLGd@OGUVa
zz+rNs(@^9zTBVPtT$Q4Q+vX0glX^nM;ifW~6hw)FL{PP|M^2$?j$&M(b#Pq>DX?I^
zaEl5$fl)pLbF|ekR?BIyOt{oYgOC!1LPTgN^b7AH!3Yf?hFQAHM_^7{DO^g>N^p6B
zBov!5h&~}Na{F{K8sr;+Pv7I8<|wQ#L?uF$Abon7Z&nOJnehWvIF6VN_8#YoDoc>c
zu!qEoau&m0x?aYr<R-+9>LR^bX(>U-AG#l)m0ZWVgz&mKiwA6}c$!=c1vghLbG}eA
z#9Ro`Pz!9y)@X!%VKgDmLSAVbS}$S@a?m!_$27M!Q!}S7M;*v@crLw71b~(q{w*nO
zF&1tvFnU$aAETqhpHL8m$=P8R7u!d(le~5yLPURTq&NG{E;WE@oDw|wDqI`S(tw9F
zNNMKwbSz0LBw1(}nuFb-@S;;OA}B1754AvaL|LKH-yW8Rb6d$Sd0Q3UPfZ@1cf*?9
z6jCp&r7_XjMwCdBaqNMLqEsk5YYBR$^VPx|GO`y`H<uB6A*A?G)b<&8C9eda1&o+8
zbYLKv$2N>C!}`DYuR%;YtPE+4r4%%wFR*&kPzI41%CLekvoZitb3qMpCCW>vQ(OTI
zDMdhu(<dz(Cl8BpAYdy7JG_=IC}8wy;wLOel+*(QW84fv3aDZ#rd6nyEYSuPii)e0
zjCwwIje3#7z^m(Ep`x|ONse=rq^t1H@GGXYXW~RLmvo^Nh24iC7J?+c5EN2Gsg#Re
zo}Vrb7|7rz>^}vQy+Q((@Sdt_2!zgN3JQvj7dxIaG_A@_nx^a&469+O-Ki94sSDG^
zf^VMzm2UWL)Euy-aTvj52NL2kBq;UJYnQ2t#W=*X?XW}-Nrkw*YGNu@r{yeJV}(kF
zNfzPiPL{Q+A=DhMh1a1IKX61!iK-V+s;20^Xkf008is@7a<`bCM44Q}aG@rQtZ;x)
z1q<Ot_C<LLC!7jmmrP5ZgTbsd8>|c?N7pM&BSb6^^P-kQCMi4w|3wcF9a1TX3(=V#
z5k#qdp;o>Xw`3JE3gFaX%`0|u476<UcMPQ0D{2&=aB)(JH<R&iUM9jB2$4_;0nEkJ
zi}J)dNhlNpLF(VST6Gnat3}2^HR)zLC`-YlGupT)#4IR&KndCLY$zsRfLSVO9U2Ku
zNF|VMG_;{|v!EZ2?qS77Q5(X_lR4VS5E<s3n+YrC2%rN?uov1x41q~G6zYtE-bHI!
zj&iO55+%3_C0ItX=*`H&DyU>N8RzcCqtdtxa(DLPoav(Zm}42~F{Lz}fRK?UJzvOJ
zKsdrL45t`S1Jp#l8@wrDf|7X#jmre^HEvpkq)X1Q-Vj((Qqi!Ljjb}HFcyAN579SL
zl|qb3EMaIhsbLR6UXURqXDp-wJdR?>K@m^qC&vsx^n5H14TtlEm@G&-7s{B{#lbGP
z7Uh^{RMIL^(^v`_Av?29SXQS}M>;Ax3OmS>@1)Yc5Kuq}F(%wNI@w|v9NM39*9wY0
zm~aaMhIxNjzvAKovope)8_u*{FdMh^B?thPC<zxB3l^t(xE#cTIc|qh+bYJn+%2lj
znzq0QPD38W{=&sgE5H(@)MH(lextQ&DkGX%XGl0jO2veVtpssgeN0MHp8R<e&n-^C
zNrsLfH4G_ZhJAzNq9k<oq_P&KxoxlEc(fRVnNU>4bmMBsCJcKhx}t_I1(w!GvLhO$
zJ*nd1P)ON;pnytKa_CVI$L&JaAY*CA46Fwxcn+TeM^r$`B%*M>u?R|f3FARfiNFek
zf5Xxs!j`j(v@)2?7TdER4IOYE1_Dk=c$~YiHE&8t@*Kt#vm_|>LT=tH@lvZ*)x}?y
zFJ=k@Px?UDH^>X~l<1l=BaV*iG#i2N&$uYDokxWHNDVpj)mdA(0^N$%&6RdrC_LhC
zkI@fUzy#RBdo(wu2kjYh6m*fSV&~s*yhXJY0tDzVEDqU*k)nA;C5U3%arOVB>)p27
zNU}6dxH}G%D2Y-;WM*XNsq$1=U0p%p#8b`csl4c3-LrbGX02IsSqmgV5+RVF08pah
zdfsCmVP0{*|KHmjq@qU|RUq8W&GzBn2is<DFk5=GHT37Qx5<X=8BX<K{xuho&qXCv
zUEW2{8+}kQUHE&YBUj=EO9ay0@<DF9(%BBta=Gww0v%mP!<Diw;)d#rlxLc|=!!>O
z=B(Jz`!OEfP>OUwzqnD(K=m-YDsKKRGrp}FsMCk|qtl)IaGpie`|R~F3ITTI4lL=a
z<Q0Wfql_`+jl{3fhCEPOge9B4qDS5-4l%4dtg4~xl*ySATw!X5TH`(gwnkNurPGK#
zRxU1CDv#8yXty<ssB(G$sZ&-SphfURiuaN)4^ijUNRAZnp-911*wBI-vlXNdu?(ze
zKY=_R*6rpE&`oL$%@#Oi`Qmw%9#JKbgj6~imm$>|b3g_1>|0E!7@?s_3;1TPAjm0G
zX$2t(<fE2?Fd@;!GihmIpgX}BYT<-h)v2+EPopNIH0~yf?8^7KUJ_r8udmENio-}B
zD5dkSt#ar)SE5K0o<iRvKWlZbimk}CG_|6GwlxM!N!#w*f^g?g(o`ca-G?$ky9>Ts
z-x&}kZMZyQ{lT4@d3#dvzB75tdN*+1)YUeN7esl69z>nJuHC-^J_7M1F%nW(gq%<t
zQpLk-RxZ1Vi5#8UZfLjbRN_Bj3B+nZat;W9L)@tBWm<gQbnEM`MD<h@DyirpXrZrA
zv_L&&Z-OaxHfFg+y~wRqWejoiNMgr&)<EdlU5O6E5FxN9HW0QWCz&dK)e1Eo77@bs
zwA3u)$w^8K54i*p2Du_Ygz>K|xMZU;wL$>Ngyn&JEQlORS(@^l66p=VmW#F=m`J-=
zt@U{8pF3TCsO*^|tXX82<f$aNkOE!7oVoH)T8|8uXBAr}7Fm+!SuY$t%ChKaSnOWS
z(Xkz(wPQ6D7n5w4l|@i57|ZiWJKVK~(?4pmD7bjJl4dUTi-_>Lt%8I?NzY<I#N>fS
zmuCF@lRs-MPOX^f2FR4Y=d(tnv}8bvyG$rdP(trCnb&+(WSd_3JPIxPPG9OW=}=y-
zr`xnAP0SF5EF_$r2z#wJ;b{rpE=pXbjl|qMc&2&OFEYqKaU<zgT(v=>)=p?OB_xV=
z>6>-sG7`6^ZN)GFmfBLB($n&e1nZ=~RJ>{HK67Nv9Ap<qZK$OIzs8o+<d&pT`=L`k
zUh>b#Z6Prg;y@Y?!L>3>$xLp@1R2D3L#?YdftGucodh}-^N>4cK<=uKr#*rSdFS1F
zQ3`-$*aEP=+x|;6xg??JGgmnbTC^?0Q1QYK^Ic_EjfY}{pwN#bn}{v-4Qs6xbdgkX
zmU1XI76byt;)Ab-W<t{Pk_ePb=o4M#GuF*%DUPwA50U5ws?@G%+W6)%i>|e^Sc_EW
z?o`T<rq9X(x3%K*B04RCw<KCgr|kfjf+@I|@@#&!<12z!njrdlNJ1^iMv|>^njV|o
z-m9Hf_sK{_)8%3#&hUW`S*vJs(Tz*VEEMyLc5Pai9R@~14)S7}r1G<N8PA@0IsBHk
zS&&`GcIE7}p!$SSG$L{EffQ)sWUJLU2AgFP6qBG)qpv`j0u=l#g%t2J^KA{PB<&-u
z*$CMQbl0X+x9X+TniA8+np5RZGGFN<^JC_?hyzcjgkE`5wjP?I)*{MKr95DJfmesw
z#5_#q!$z(MLih&h6Y(*0s^lwzEE0J~KeQV;tr@1gP@N-+IsU2mp%F?EDtUgAUwVA#
z$}CypGXz^BEXXs%xXM@wYkhtAcz^Xk!cF2QRUy%reK$u#fnqmC3ZP^RsTm8P<*<y9
zmO;fRe4kYSkB$$FQKpK?vKAdQQc6<^n)I5QVUletJZ9mBe~KEp-Ad1-SMuDSyUc`b
zj7n?;h7%>xV(V$xF!wu;r(R=C&dw<GoVN?&@>7$nq*N4|{^yCDpSF)=&{6|*W|^SU
zVDzTPPovtYrN>xJdFpLs)=$vw#2rgbX9L*jNPZ1M!_&sd*>z&xD<6R=HOkCExvLC1
zA=cK{QVm6WDFU%<7oqVqej7QsnnYR)oi0CxC~rl(Lshy{Qj#yF2K}^O?119CceL>t
zS&E9Ov{y<oEDEC_<FsB_(THXBRB2hFL;b52?hS`wA7x_0CzjD^JW_^j6u^_1F}<N5
z$tAhinXB5$-Rm=EJ*^d$wI=lAF3BaJu1qTFOeppcR*33K!W#=DXgAs5fmp(7jWK4f
zt%fv+2uuBysg1{iX`zw3CQyDRHI+)Y<T1AN%x#q?Q7A7FeVeeTqH6A!&`DH81kzY8
z$vX!}LFT%3lf`oVXy8mD^Tr=Cl(gV7CCIO3;$^9a!;xf|_d*a!S*eTxHA_zUH~&DC
zaNtRy%q8h86?Kg%l_!W<;u0kejx<hLU`6h;lq3xG>`KKz`Vh9Vk2Hi9JjxzJvj$|+
zuXrdrzpj^`2nbBn8B?A}Bs?KoV%Ja}QGP0MB0Dfn^1i>e^pk)KYXtyFzHu7~h;Hs4
zkp!O2_>E3c<Gl)M%=pR*geV#prSFg=8dGm7#i-G<c~Wajws7R5IfBGPI;ZlQ2GEJp
z&wEVWiMAX-9V>#%1)eEzdV*#VCjqU-V_E?nDKeD{{kYXuHUBQ_QNODFA+AoB{MJ<c
zJo|Y%?bTdJ`rS!Yy_S4e%=5402@D}4N?R)!z^#b^b&)c#GD~1i&ES1ZFXKJ&J}w!=
z=*Vp(|EGVd^QhGm6EoUiD8;L<1^vPt<EKQz@DQw}Uwl+3#qt%$e0}~@8@&v+aD)mM
zIeGGuH(%2?!5dVzkZkoFETR$-zZ*b$nUqpXiYcnquxb>x06q&7mYP)o43CMOS<Ob&
zj&tM9qE|qGAf;sbjCo@!wXJYPIxMnjCWWPDOlRsGscK<RW0cu>8Up*B?M0mPnmaRV
zU&B|UPhHw^y6%q$%4Z@mNp-d^+*_ktO(b;;9I8l%1U*S@noUx>D@6rW%7-Dt-YUF;
zRFK9(ZMGm(jf&|cn(QWZ6^7&wrDOitEku`rZqF!omf`VInPm!VXdycI7T6s{X;&(u
z$wInmg#_(Cq>q$>#9nqHIEmB1iH{^&ROzaTMpk^)NQD4@eJW_R-2qWeV?y7y$$rZO
zbJx~5%kE?6_l~$z!j(Cca#GOl+m-<1DF~cWL?rAbi+yTspDM<!yVy9IWM+1!!OLVN
zrIxx3IKW2h3!YYZay)UPxRa)yk3QY|C5cP2P?H&{$uMRuQKkgOj102wblG@7XYwE7
zO`mN}lsvnvjJV%RMfBs!n}Z+^sCcP%fj)63$19Pfdbz1iwJE@YOdng~t7<xWN`@u<
zk7Ak?Mk5`kEkDI_S`tIjxgJ&w`xyduzNJVB^3~%`?0P2lt3ZIcZB>}Q0$+=;qToj3
z*2ElLQqo-4hM6Z&Z|5I~LYH%3kHCng+U6nRBMr<6rtLGil0}MM(4+zp6lvxUOaN#Y
z7hl^AkeR^xH4UyyX?oZy6VHB#o)yNuGN4Y9?DT|%saDqX-~r7<Hqwk%m&>Hyb_G+p
zs|n#s-QLC~=34bJzDjhuZ)m#DjGf966_e~RQoB%RML~e&)*>P4Xp8eU7e-83^H6do
z_RUJ>g1Vex+2esRH;w_-+A?FnWD$pAnA6(!k$Q>3wOa2Kkw$J9*}7c5sQC?V*{d?b
zWTM@yWiw8cl|;=9w-_sHLMdTI&H{1~>i`~jwdg#o+6GFcBTcr&HT_EH7OyF_0-u9Z
zqM(ftv2*M@lWE}skLlk^-fhB^g<3#ALsi1q%pvR4xg9$L<_Lv3Ycn;`0wSi^k&OoH
zmV|1IB8x6WI--_*p46(;*0kCehG0AmEpgl2hG#~600Iu4c>S0xGH!YhqJ^dGtfbRr
zTNE+`?cVxj*dyY!RW%%H-;`(~VNI+!orz(>w5+GREg|r)6blj#*1yBJ+PXRg*CQpt
z>bvZ9DCLP%LZYU;hh+x<BE&KOWWAD3%1k2$P#n#8R$N8(b>~YgtyBswu}n$FG#6#k
zsQOG_lgz}P_7>EU??FIrj)VZE3Q297;u@;*iOCI7S@M<OM1ILF6EzB*B0sY-N6^5#
z?bb;WLo!zDdyq2hSfJ1Cz)ZrkRW4VlAth#3{WJ!YY0G|FfyzAEg+9h~f@E$b!4l;n
zp=ZpU{}CHyalvECJDLxx6u2N!Wf!!Q61&t}#DPdIdt*{+F(F91le0@?L{#E&*|r`_
zK*56aluwty2dLF|)Y#Mc=3;{Qw&cy2S^<1pf<;=S(OP~{OG>y@NAmKn1mgj{)CiLb
zi=whjuk0z49;Xu?aH?PEGZ~zH;)$;%;?Tu)1eLHBl_lX$okkT4d8CuUHE2LX5(0KM
z5ve|{lxpEai?pON(2^tQvM0AG5JS+wW#nv@5+FfI`)9mx7akdw^>8FXjwtGzt2RHY
zt#!%LvhKReCw>itNFHod>2&#NYBsm;|EErOHoLpjn7nFxzK%76`7&O6SuFQ;3==OZ
z@4tJ|`&CnY*{}FnA%2%DtjG(sdcO}USm5AIIqT(ucj*L#l@1(es)v332siIS2WPy!
zrwG0Y^=#us$LlnX8@kk8-qVXlo^e2j?UBY32D@wg4jsdAI#AiP50SnLU*3~*&qJK2
z7H=Om)jCAA_Oc4^P0piCvDkkdjb48HT3zY)ed-5DCR=STXMVT9uNu0j!Nb}VLtml;
zj-1*rF4WwwJ&NDEpiZ1&iG{4y=fDt^QuIKP0wG&@SC%4MLU{*4H?C*fU_cv$v`d&_
zEY5a=lUh}eymNwTD0RqlaSSoLwV{D$l>4#PWW=s#`_R}_$mSK@FXl=5wf7@Io!@ZK
zeWPv@PXh>#m{(h6fSjh<?&~OZP67z>S*@on?@3;!WTW_kmbf9IEoV8#dY=PvepA=y
zeE-8QYJQ+0MtP9CM8;SVzauVEEnL5L>1|zN;6B<u#?32_WoW7Gb<2fC!%YrKs29n_
zb>wD9RRa2He@`#PexT~e2__PNIiK%y)wp}Zi*M*i-@fesx~cz)YUuwz{@TLTaAl*I
zH+!{2sE(<->ttZlB233|2ypHb!AoBcen(W?cEvPc(LqI@%t*~i{n6JKge~E641YX!
zZpevFGXsS5n4ly~BthE{=oOxY<AR*@a5G)|^(K(9U<e7;+v1E}krl7(nq!+7JaLdl
zy}}^G+kL(#a}y$6a=s-Z-R$$@qQN+u;yL$SjoCMcKd?T~oeDX)1rFnADkQ+cC>*~Q
zVe)*RgEu4yqYJFjXS_kIo~;}@gv)yFoq0BR^>>ZV)E_iTXDNe+WG}_-HCMsM_KVYz
z{el6h<iij9jo!G$cKFc~EC1U!seE`&M};LxPH0F1+FV6X>}69=HX}WmjM@f2g-N1u
zXDkbyNMi8pv-=Jgqi^;wh5;Pb9Ad5RtLA=o9;(C>>$)%;qa!+Kg2}hY?!HAWKEM(X
zh?X(XdY>O0shTyL6Z?7z9R>u0Z3y@$oC+E}_nXjleW6!L=>kSLqew<*nWE>H$kdR|
zH?S>txg7kFg?Xjd%hf##F;<m~4y7PkKglV<unAYNG24G32_q4HQXN9ARve|8Vy-Xk
z#(i<S&k2oEQIBJz?L>qJ9FzK4ehIO#uhM}5TsrNM&E=>PE@4Wor2u_h1W$lT7XKNh
zgr-L`hv?Hy*m!u0yTmCZl6<Kz0+XLwWS>b;@v|FznaH-?icj-`m8uJrrc$_HgO^AI
zUi$+f2u}3%0mm$=!kt1@lCzy<(2I?uNIwB`xz8CUO~t!z|A7~z3Dg>%PC{BJ5t?aw
zfEMQgImobEya;jJ?emLWqUt|?^YVX4!rlMtKR4AUOd2|L#Kvnhwch7^q+es($dI2C
z;G`g~yGy6IjK{H8BA&18ZbkdPAm?Iz*?(a*mR{nCUeatVk*fJLGx~RNbsYpN8X=oS
z?#s>imtxdS<i&n6L|rwXXDD43^f*ta@k!qeJ%b<*4G5%E&6g6q6`vKnla`-;0**?M
z_?3GH8J!wn*Mbl-c<wyA4{6xilt`cG%Bp1yTt070st3_<X^5dav%srp?imFYF(ni^
zy1}?f-Zpu8YljLZlAy&k7_xX5`}%c4PKDWTq<2`6hPNpbeu_#25rXFoq_;JRA_7eY
z5jSt&eYAjN>vngWeH|^vk@M*LCBFP2@wmE7<BFpcY?*4f%3ZzEv`E_~Y#-CQ9602Z
zGTx-dQ>W?eM5bW;DXd)kuHCnz52hJgw(I(09sDCtzoN!hw-dq<hd?Se^K_Uk@X|s4
zN?CM<Zu4-CVd#Nf63Dq__K;HB7X`t7uhYFaEV~tl?<dhEnh|$%vM+t=v<UgaV{Jy)
zAG7ns3VDUH9f|zKA2{9s8+?O3DQp0?<-SgM<!tBuz3+)Q@VReObf-9XOM%o>jg)A;
zB{#KTWg~7R(j_YFGDz1?Nz@M++`mAD6n`FcGg6B10_)(04cr+7NRnuzUiqj@vl2k_
zLy#vyU8YtenN2&kW0RayD7W@{j76rUht@!VQ@-oXMh*vQBO}fklfTzjUM1#Jt99?=
zj~lrG^>-)H{nqY)GZbr3EMA0K#Sl?S_r(ztesmLxBNZ{dcR2<J1i43lO+wp*EuflN
z6S?sWC#tUSSxVgD*`67YNkV#mlrvWyTogb{rW9NJ5op?Wgl4-u8xq*l)7zXQBtaPg
zl^LPLjB1}8)pX>@bqvWtBKi>@&j1w3)23t>k|5F0pJix8Hc50jBLz@{Ig-^3DYFH@
zq0#6ijLZ*X;r2P1Xjmz5lb#|~`*5ia$wP@o`ejmn?N*bks#(p+0yNaM(<IcAHd~Og
z+-Fj3@A`&@x93WYgk`_U54|GjwzT1NX+iL>{D6dwqaOZMYIkV6k|>($$Ng^PG=}RY
zg5Y-lPwx)?Ccm+N_$T}6m#-M@;f}<VqaaBBWP5mTDKc_wQZ14xpo34s?HD{33@nh5
zist)$oo!lkL`=gE6*P{-a<4=VcrvTqcM!bV|9-FgCyoB<AHTO&y5Di=6<MXj13rYa
z^nM?P{HI^ac-%e7th#sLms7%H*i0}Zn@OhJZR(xMCK98!*7ocPjciXc((|Rc7N^a*
zWMZ|`y&S5LEknu0D>*Vzfg|I2YK3DQwGzRJ9X6$oblkHN!vgm?K1}7TJ{<+F*UaIa
zq*?4v@#!Ifd5P!(boP>hqT`qVYzJ++37oS;ICP6D`q3e1{Bkj~19E6GY7wn$V~?-t
z5;c`8;9_jX)VItA67(rVP3WXT9I%Dy;WUhW380sw+3s_S8M*d+U%zstc^$vS?!j}i
z&#!9Ab&J5XlTG%QI%>VC2iwVp(CUm^-IDMzDDLo3qv8%DqcM6NQm)D4d0r0cT4BSY
zKOkykZiSO@0*)|(Y7f??8ds6+0XmMgudguz`DR{avYwEKBnjs1Fi0ePZq;=gdS3s+
zp=XbyUHN$hWzY>FjZ^JxR&P1XhS{ccgLmh&S$)+(#A1scB`uu;PX>bKg*&HEPxFb3
z#QCjdhDuU)&m>Cs^eZtvoa?>o$l_mO)OP|%7_)P(H37~XF3A7XaFt<Zvvm-_(D3u{
zUTZ#TXT-!vX3aib&vjKd((N!bvQug%c7C6g3~}6P^93={0|#mGI%kN}Fz9sWnKUwN
zg7Pz?3c~L<!_eZaB=WpoW^6;RB6uS6Ls|%)5-M6VD^W(tK#0}qgH)MWMtuUBk$?mx
z>QpiEmBvXJ3~pvj3ZI&1NQsuVPT8|`R8}$?8AqocL`~05Z)ZmW%uQ;^eB(Z7F0!t`
z0wXh*;KW={-o)B-jbf(ojf6;cH37P1RtzD;aZQgQPs44;L0;?6Jl$CE(>YLu{(ccz
zQ}`H;dKIwx-+@Mk=6KMIPYJg)73z7)V_L55$&Cb^AZCY>ZUJ^IUYV3hv&;=$09qWg
z&61%qJpn#Sdjk0QFpZ^oZE|n<@^lVC_G1WLy$4hpBy;i&ewbcJlR5L&?nOqOMGcVX
zm_f;qwIdss8WVFFNV?NO+q;URr%`rX;K4HSkaj2<GEFL6Me9bDSV=~P54}M@4=W9|
z^C5KeLlF`%FshoH8FnUR7l%_0nOjg|w4U!kvQkUSA*O;-f6M{#41Z5~?kXRac8fRH
z<;aj!L%!sy6s3uRILN6iHlzI6FJsyoG#>6zY~(Z$k<qOkpsS4w046M@rc(*G0b@`t
zfq_($l8>(PYx?+{m8RX?hush??1eLWeoWp<s+lfZ6BN;w2%_4DD3x6yBgGawHG@|L
zmaWP<b$yQHWg)hCM35oWedrMfD@D>bq&%NO_V_Z}7`hCF<M33NBf}A_n6o`0g8?j}
zQm2En?{NO<n1Hh@Lj)4V0KAqJVFw^mUE1U7J05vfrA6k+Hpp^DEx8I(%8<mFDs5rH
zCMRLZ>=#cj9QIU+K$6PJ5uM`-_95e%M+I`RfAB5FPqy$&iXoeQin%r#rDp&@yi@m*
zj8`NqJEdwuCW#1~5=ipOG>WU?B<YB%T<W~!)i4lQs5QfMp0p&KqJ*O53Ox>=j;fkP
zYRW(cVK;_gm14o5M<FojCj*<0)P$|Ac525DbdjF^094ie;dA`ChGI`);lYS>i3r4q
zMl^IN64kD_e}iDs2ccj`o*N2-G=f?^nKxxxl1Rp%%cv=W=hx15i~-avYg9U>rdF$D
zXoDk(l5$DT=-iT3o|ID@LMW-59^rT86fc~3V@jgnE)WJGs^?}AAi$z0Ocs+caik<!
zlQANKD1abUZXeWveQf^)J<vub&P`oy6X`4-XeCIA3t5dJfQn^%FcW~VII%88OBrl%
z>R3bMj#%RYD9%|dfgSP9^df~q=N5`!`x$MC#dLyST+vZQBf(BZ!&smwZr4++`>vF9
z17JC4P*qqCKW!gni#Q{^crEzN>N|H8B=AgT6AJWbdUqu`qPm>H2||S%)Gf&^_RTH;
z`IZR{LU0cvf*#hPUlhyv@QMdy{F)^p9EEil(~Lw>Fyv_^?B?=zKzI)cX&si%Ttw>#
zlv+y~6NNcT2IM%mz(o^zz>4K`TY|B(JmX%vzPCu6!+H9NZVpgOq~~zb66LNnO_EGX
z%EnzW`oQeNM3<E<W`h1+>T927RNMo&Hc*si0f{SjXQ(QfP;m}?sjY{mUU``I8?`{{
zmRtZhHfRea3znpdHY-~xZa<GP&|~WEA?!i<m{#SYG|+~2iV?07WAMLlm6&Oi_~giI
zOQCs#*TkubTtX|S&pWyG_?gx~rnF$F0V@0ZPM5UB`78?dr-3f&5wY`v8BWH_4hEPA
za(t3&bdExvrsm4}1(QvN2w()angMb_zVw3ZTmV(ALxqPDGw`K!=wTJ_ZeuCIJWwdT
zi`ncI(&DEN#o`M+42F9A_*<O)AhTrdl-BMEC6koC+!90z{>Fm@6Alfi$rnThCq-sX
z`cet!8eH<bj$Ty=X#y3MV$zL4i49G22+>WsMEpOHZ;RjCD@+cMG%JeDTwoXsNOoH?
z{(LUo6S=bt=XU>_Zq33ZZGZPoQ)Qi4B?S%M7F&^yu)<|6=FPK@kLm*-gb<APZCM<S
z)kl>iT)lyoi~W7sk1BfK@VT|sft7$;r^_K5rVokQu}}!T0x?qHZ61-q48{wuc$}Ul
zh?<Y6pp*D=ER<W)Z%@<@L<E&$&sR<*^zvj5IX_I##a;#H!cvEfH_KSSLab6);52ft
z#VQrBAsgbxD4-K*Wf{U|-P(*M;*#DK){T5vkVh__Ti!@O1|uD)qc}a7jx52Z#LSd0
z-AcZTQWB1Z2?NN=%ZROJbc$se5h5xK+f*!Pwm7tw&L>twXzwZ&qC#Y%=?flEBD=$K
zOx(O=U2;c=#OJd*avIJ`N+dUT3+_Ud7+Ow1k*n!Zfk*V%j!A_uJQKD?Joa|C`)|9=
zw?_1@-l{5qkw};?v@)b@LbW#sABgt!4$N&aX9;I}!ygu9;@gRHDok_r%(BxIVNJa9
z0<Fz9eFQ0j7b{2#ynRDh*_lqKdoyFT)1%<Y&6Jo`N3ruoSz!9{H^keTWf;;4Lb)q-
zaz@S}0e2GlAxu>7@oJoBB{50BV^CwVnjK9TD)oolZQm@V69NrUCkohZ=C@G#WMSFD
zzKN=`z+^ojSlhU>TZxa!mIp-?Xv-FBrCV9z&!GrkqF(~6H^vy=>Dkg6UI@%sPIxK0
z157JR9C$GEDtG(|OuVX%l}ltLG_JGRZo*?`NpZ;;!mi~V(;gF{pP^D<xCgo(Rux$r
zL0POop>mF!NQ(e5_eI}!mM-r+VH5>MyE=*G)}<bBbdFJLh%cl;4B>27a@rN_xZ3IR
zA~vs^>IR31dMP#IUhH&_^&R>_;2=oJvjL^?&?-m(zOR^bWNC-_m9i-l;UQ&*DIt8S
z31OVD7i&nKL|(C-Z0QGAoAX&dge$Q;VbkDQpdNWLs_i`P98~(1o<-!tmT589FI2^q
z(=BuC<vu^p^#@t$t3Q8d-_livr$ugUj@i{e95-N9xwhw_Mx0i4K3Iny+9YWbC&_7*
zM+}*1NT8VnfB9tRvM4<cIEBW;Pw1(foFzVTLV)pWGXh2*k_whn<C-)H3Ud+;+w>*I
zD&|3`g&?d*My1x9)9Ljg6Io)t@3uNZ&W1(Ok>;RcnY#Q8iZs?0)dbHpuoHf0P3lsX
z;jLTx2_{W`JhlWXn(cm`z~0kF))~B(j(F9%{DnRh(1eqGCQA~UtUy_01BjJI5~Dp-
zqB&7dO@=JXGWj5Tk@S~E@mX*OKVI>~i74^G9nxMJRxYL^vh<tMs?d27L}^ak-QtY-
zLu`1CiLt7AtdD7M@<+p45~NEFOqZ-rl8`S+AP^MhqC_+oY?bZFh%hq2^zH|5umz@R
z8=zg%^Z0tmMKAOxNvK*O&!g-`1EtA9TbLy)zNSg;#!k$05nBn%2eL7oiqhb@2W_`W
z<*p<$!Pu2lX||DgY?sKbRHv}&+&qw|NOoE!6glWiW7tcBhc>!dD5y64g19DLIK!s$
zr*GT+hF^zKUN48qfnqF1N(6k<&3Aj<UtxRz@i*@b-Y2{xTuo@T_$g9|GzQc?j7lZ=
zWNSGMlwo5$gAvEWJWfddOH==|2_OAM+Jr>lrYRYMM9BJJfT%7QxXgG>ISNt9vW2A6
z4CRt2g1px7)&M33lzV1|V7|d&;su{Df)drgGaAwG&vkWbE&d(K;Kn4GGzASnq`X`!
zj$vz-G4oOhL%Z_Ke8!qBE0D4-#ub#)&UrM3w}5a0YT|)1!tQeGObS0D63Pc8**G>o
zHHmP~!kUB+gjqebU-^cL7&a~{bflb!XExwM3NA{;G?c8i>3o!&s8Otl__Ds1q<e!I
zn%WFaWe%g79-X8VeAD(O#*m~$lTl<>TyQ^m737)^1Se8&P@JB5E}Dc^St3PzYLo7R
zOjNAj!<CZmq{Oyk^m#N(K*D7(m;zYp0jr4_IQv-0WhD?mvz6O=LWH+X*s8yY^)C%~
zF$}mXCW=?Wgf4&OdRb-AP3VtR21}SYXXFBg*m>$Uh+nm?m0~0tIGDikW6$1tX6`U)
zeMXFRkH%NZ$r}yL7tYbfAf=!UJ;O43+IW|ru+tBr2}6J-{R?wlql2=7Dh5f2i;m_?
z2_m&00~oDIVhL+)6%y<p3wWNFI#{aOMF3C4kruzw<X-ueCPx76dSc5EGj+KoO$h2Y
zZ2fs)cP-AR)BSL$-<Xlh_sQ#M?<XshtcZs!P~x6BVB*;47gbq4y5H}K)l0TNQv)ST
zmrV<6qg)v+7AdZo+1t5X6HBqH56W;=4*HNd=R9BZOBfotYz>9yKgOt~Ch*xvrnV9X
z>~y-zQS5)I8n(NuEu_xUx>QaVA{-&>n(P79SP(AGYNvv3Q`c9tVWQyRgXzgF-`jZt
z0;(Nqg)jp^jkY&xa&BkIPbPYR11^3HqfKK|2CfH-S7K|d+Aj9L{q{AO0~dezmI+8s
zSH9RvG7nTJW@l2cP6UMj<f|hLR8$Tq;bGG3%2qQ9EasmT%6Rg9QZmbhCxS&z2SrHc
zP;5cBnQ9}OE^lL9SidNw?eca+jP+H$UnN^Hmr0Nkn=oQ$7t)qOYwmS}PTfoZ-KSg}
zH`8J1CfG*W!aVR}Ls6R1KyyrdNLQf?FvfBTgS!r!MEJu<b$P~Gw?ib6Yger@R?4bv
zsh~vml#B21m?({Dv(4XvU&yXhEGn?dj_}F=NJI^^2tia=(oA{RQnqWP)7(jmg^O}L
zm#S2;mrTjLxz^N9ci}(^@_r|*f-VG1f`sc}OgdG5Lb&{Lp@jS59i_bw`!8kPf~)Sf
z8wyiF>G73o@XVL}zETa!$owc>{Zsxb6VPi%$120WkWp&sTXLS|s+-dwSYpeeI)gL$
zKMHZ0PzZ%m6)Ql_j_~iwj^IUYQL6$tF2c@3RC<pQ@({MQ=?IMMa2AtI901sL^1>Sh
zwZwbDlM*@(LZsoiJQ_0v^`|uhUA{}$vNOON?6hVVFMs&9_IU`sNma~bLD?igZOhNZ
z?g>EsDC<W4WI}6{K~C^zKJMkw1g`kODi(Y=A(K1A1=Afnk?4Sl?hoVWDY9EwcSdi!
zlq8t9dw`59O5XI?c81Tkq(Gwtkzl+*{C+IsjD4Yeo3~PEf}}}H%q>)O$rlKy-8XV;
zz(h_Dv?e=dl7f}-snV?sTSfIiym?~dCzhnmy|(apJml*80+Q~3p1C06xvN~;7k=T)
z{nNm4L8tDz?#icx6)uADjNVR{cO%RmFHs^-Hz`NIkJ{K_<?)uF&!9z8vmcI9z;-yE
zvGJ&R)kn%vYvIyhF*@`lqod$sh`^al(uB2;uro9}2Ag-zso!qo@p!QGc5M=*dQ(Ww
zBqVzAayAF;9F(yby($bzYV@ZG0t((!`V8*0E89-A&5&b*d(uVl!1-99(xb?>+>Isg
z1cgV<)JUVPZI+L`pmWLAFekdXDJwDWT-J)z%Qr%G@%lM07pg?4*AX2+{nbo~(qHs@
ze*kko>{owgdu%3R2qFMy9+7Lhd(#cT99NM*;!HC=7Bi$Fl68L3c(<uErjR)B4S`V&
zY*3^dCD(G!T6_Aa-qLbQcEa?;2|A%g)7I-)76Wmbn>qhz#f%+<+rnLGmA4dw(+9w?
zh9>|hAzBLdg3!ltnC$Hg2`F1|{77Ye?N_9+K&3y@Jjq@yEkB9-Opd}1aVpuPgC~>g
zIaaU4YNa(s^_GCL8QD9EF7Lk*Qtc`T85x+v+M?Gd@`}xr>dOWphldTf>*cl^BTWuO
zQ9z%h=2j?W3V<ERiMgkzgp2*RZ+Y=bX7xJ?%GOM4Pr;?SbWTAgAfngKep)g#5#}<B
znzpNt;pZfneKIkK6#GtX+`Z7NQkh)nT8YyOYHpjdo3>pRc}z;28{sC)WUkC?xBHl;
z_1}AgO_ET`Y#B}2j(r5)O+;vPj7r1(w6VAAbno7etuNk|jx#FoQB?b|gW6?hK|Pa2
z?Q9d%%Eom&D)y~Dvx1&nx(iQ0BE#_DxfriKX3}LFt(^L>@Z_1hj&ze0wdf;?zl73c
zh4LQE*o14OD75gNk4U0o&NKKLLY<w1)^B9XdN<U(%nu_=TZVmM9sE&ivYC?`9<#L6
zxhv^bkvgX=<u0f+y0`=0!;RU#vn&wN+tGpjAxtIlp6{5&T+U39g(#jOSjxh(aHF24
zYdZ;e)lJ5Yp6zHH-@K_sPf+p`Lp1Hl0fPxm)sUGkGFKG9qZ9$CGS@CpnnMIxW3AbS
zQIW<46=oY@iP7>pW13)btT>^RO}nc>WeJ;-a_m?vcMsB`#$hGI(-*CWi!egG-5Q0w
zc)cs^1eJzO8vvNP=kb^Xi6>Q05GAr6({C8D<j%Xr17}%;6J=Ri4AD>+s$r8rh{PIy
z98(EP-XcSQGGX?TSh-47luh6#EfOT8v5O4SbBG^3Ro>=py_A<hgdf9ERnnM=xvz|9
zH!^W~!bOx$Tp08yJ3s68kfyO&Tjwht5*Z5t<d3f<E*vYrE?!e!)34sw+Uw<TmHXa^
z1C3H(QeJ6B%bx%RD-z(zuB|U^lA$YP_L5ijeq`MfDUfC>|I@?HQrc?yVQ%ptxY_a%
zQdk6rEHHX8MAcp=c*xiu%fgIyNfI)qHHo!#L_7Ow#RxhU^4mg-*TEJkRa%Sx@@{}J
zrYsyl$ka+93OT5m#3j6vD@ls1|JtaKy@Y2c+U{A2Ma7&@%3DFMZA(ySGw|$Cbpm=I
zam$H`Bz7M^&H#03H9*5!1I6}0n|aQ_Gwso9*J2e}gfcDBFukZA1@Z2r6kU*OJYy@O
z04ys?{~+6!bjZ|29&<Xet;vP-p40$}7aESMsuY+Ofx>R%$vc3UhSK>giy?T0lAQ<B
z0QRg%Jxv1ax<Ub4g4^}}+omS5VgmMSg6MkxH!u5t@k9T_s|Ys^KL8_VNcc1nd8HIE
zs#SF1Erq6BJ1lrYgnLeA?29|nC1YQ+Vkx6I;oK{VBZ(Jk{f^NlO`B4Tos)708L^iC
z#O`imwlQKC5z>eM(2<`bY*};jSaZ|X=-234tG+VRh_E^FkPZ!UG2k>!5Rbik#uz(8
zWVBjQR<TK&rsS41E3u8_76&4Athjc%%sSH%wn>lc&w6c3U7i!_O!kl5w~&l9<5-T-
z`>0eozQFvfcecPsFal6&q2)K3bNapyxyD(L9i=QIS7N)Il_*k_ny=&#eLNn!VOZs%
z^u`_&6DE+0N&Tv{Mb;Jz(}7&WeF%%L<<w=olC7qQdUBxvrVC|J&0kylMI$tVewRq7
zDN+TX2&ngxysH_Dk#R_l(racch89}K$b@hEE(<{eU1c26%CznhF;lkmBquWnE8`W7
znCUwPd8VI|O8Y?%KWJE|2xdxgPL`{k+v*zX#k1a_6BmY0tbX}>&cu00ov<EnCC?cu
z()i-KB4aaRm8r{b*lnvvx1k5c4g4fM*d>H-fhbv$-N%Z|U&H_|*QVi9@1XFeniA$!
zyx@&gHETjw>cE>I@#QK^X>D>DRSumd@g3nxH4+VAu(WA)fixDYn+nR17DYr6Y(Y_&
zLaOS~(I(**M@d+0ZNFeR(<IRklrvEMNUT)HN|2&F?%{x;u0|a<)dkO~fE=eRUlEK#
z<2<6ab@1+a0PeM?uY`!my?M{y{mD=J{0R<52jsu!wZfPmJuMWv8uSySz2$YU)zS-0
z6042${xD#f5(1=hc<I0ig;JLym2kH;b_q&{G!uFwV9P$>7rC-`QVc78t8S%Vz)+?Y
z7M{IE>`-@6m=Ra9J@9Gwm)?PF&FL2@k0zMfL~O^kp7Dp8x9-n66byvhV!+gRa$&?3
zG@^)Aob35ojF0J+x*E6s18PN2tz1U#D!$s9)8=yO2bIzc$8C6cz+U2?wguTC8E)#J
zL=SK6Lz+ljukSf-7r!p{Ed@{^*_6F%+QsG(luHXAkgh&=8IU<(!-EtcMX5e&svH$1
zlQK7Rf}1G{QF!9nH%d%A!jgoMzO%fKpG(%yhizxN+|Be{L}hiI6xr@UGp(JTp)N;w
z7SLJ)qp_nUvqP`sV1JGFx@j6HQJ2G8cCW8h2S_pJU#wU-wjdWt$s>h4#FIJP2_jXQ
z9wWt)*#1-&l+rvUcXi<x2`zUmM<{X9Rf&a+^K)zmc4)T{{cvijl}qIQa6&M~D(Vdr
zT|NC+X53LgrFWZGr+fb%-7q@uFCIdrMjXGV#;hwd?U+(8f%sO8AHr<lSe_!~KxDLm
zs^(=sm6}4Pe!l_Os8XD;Az(>{072-%N?pFd_q=BMPaFB3+)_a?&&xBKJxd;pr)M7N
zP+u+KSjFKsQ1g94_AKA;<h#-ooVVYJU=M^U82|+9ZC91$Rn=SKH0=i3J#XZuG{U|Y
zH_Gz95`M_!?b>+Kb@|)aL<xWV0j(|s>cvDRG&oNB$Hz7|N~QEvz6{S^F{|qfj#KLL
z^vZFb2gGf(_himOKvLn!O@eWa(tn6fv%-ykm&HJXdceQ?xF&d!k6z+e%^UK|2q=1r
zWhSQvf`ADTE!3=Vk!}klTCs_d1Fk6A{DyQHam1RAk5$mgDU9wU*I4nGjN-RAQp}v-
zLRaJolqW16EuhlS>^eT<z9YapOeX<ZRY6Ia(;8A%zaf=qaWa6{;$=#q<+VCOJvv86
zUQ3K+A-iPL_dv&3VlSP=tPxNPx{xxv+E;6(@$a>SHa)sSUg#ydFTZLLKg)i^cf
zlcdc=?INn<T85mA{k(dr*biZ`$-$3o@>~Qos&f%AFz4Snw?kLrCF?L4jRenz7IUI4
zue$5JRw<y%KsYH$<HultHJv!@rq-DWpCY3Jph}_$l}L)x-Ym^}p1TkzL^_H42x8=>
z^Nb%d4VkbfbUdwD8c%O^ew9R)RB4Gu5)B84WU-34ZSCXaS?pJ9R|7zc(nJf6DGyE@
zsTd=6JQBFHWQSn9KeZGR<@TnkR6N@0emuPOlEV|9ryrI<aGFw)x`_u84oQw&Mh=7d
zzT|3Br6E_PY#NfCh12Qs-jNN6A9V<Iqvy0y?X949c;W-6TUOcI#q|rX)i;#&EeZ@>
z&8a#mXZjFOXOb^5QESu1HXeQJGs5unwN}8jkuKnA4<gw{PkdNv{^~V`6q@y=HUbYk
z-li8A#gpUsn8XMB_SBSl@3VD#+f%v?oS8($M8`Xzu%eh=8;NWL7Ik-_RL)FMZ|GL>
zSo1-By=h&PU|^+TSjk8VGIJVc(~965G@x`4%Z_cDWc`2sPU7Bsh4wUW)}lmW<fnYI
zEjNj_M#<jLu$mNYg5+ZOK0*)@7Gof!z}Mtv-o`_602F2oz>INik;Q>m0n2^^L;)~4
z4lndVqux*w^J!=pfoZwtoLu2@u7p@}%=CZ&uWzl$Jr9F^)r7URSBjLKsmn~jmG6R^
zZ8~m3;cwm&3YkjV6EVK*3^w%j>V2q&sg@!del*I0yF=6x%nlP8C3COq4E3B*Ct(Tr
zdf654>3%6o<}#6YsM^1@J(VguB9!f61mPAu0|HO3AA_fuxEgaTA&6YuZ}%+{Q}HN#
zcBc5QT;$xGdgGpaF_U)>&X!aSLpG?%4&sqlWIIxb;Z-Cf17*ET!Zb@(fl|G@JdyUI
zo7NPQVN(tNvfV2bX1J)ZFG*mD{!~&Rjb4Kz>=+~*YE~f4+VmX*CDmH!&kRA!s-iBX
z7zH5`22x7qTDD-ZLXX91G0o719esuEgoBsnq!F0NRMo+_HGz_of>wz>7gV*sLNd=Z
z;W{%7!j!sCtD>@HIk0H}0oeXM`t|;IP5lp&Z~Yfc5?j|@)!C)Edp5|}f}u*={)`?Z
zeN)Q3euLK!X?$;9z?{7inMWj8D#KPbnTQTf@HQyDU=#scIgc}31fAH9Bv{gN1Yxfb
zsjKQ0-Wp_?>v_pSr0JzikxYM{#1YyRoiR3nNx5Cf+^b<e!cRp6Bq)WYOHp0GAV{;;
zo6&m8PK~KEQO&|5<#wFGD*a9%5?94Thfqjb6v!e$qB{kiWQaMUZ|mIy3pG<!G$9a!
zY>kB!1eNkKC(kN3CC|1ZlxNF-aa@E|pE|a$bIg&AlRya;sY4-NSF@n=*&f6@hM<DE
zJfYc941jpwC)uoRpLW8##qT~nvrla*krEF&-%q`44!NNVXvc)|;wP>Tb+CC-*ZpEE
zjKrJcQ3Lh^=udVgOOhrYHIEL5^p3iv=HR-ER}o7LB7|pQ%?s3q?9+ogHNDn|Wh;3G
zQ4>t&aPc7u1LSGiC4GnJ!iAU*@9NNisUxW4y4W{YGH^L`8+cYzHC7}J246OJZ;x?U
z2g{>nhF2VH!GhkORkFjz7?Vv>^7T~GnN<Fwl*ZcT;Q7l^T3F2;ggS!5&P#^^NQz_`
zDO=~8EMbN1CwOvCrzY0QRm%xH=|8kwrt$QWK$LZt``_o=71f`=R}6G-=j6`Pjmg3u
z9giJh4J%2^=!Q>Vknu;83CXp@PckkM3<<o~N&KB5|6d#+&{Ug_oHG!xR5g@5^;u@j
zT3%ECr2QV10*pqbl}Pi=)-i_cn|23B0tCk&ikB(ZD<Zr~SY$i4WpGPD4hmCt8LeSD
z(Bo%6DI2x1rav^TTRfDgfMpqY661ua^*rpL-Q7gyX;xPXOX3UQxi8tBhS20l*X7sr
zS?o|1ZZ7Ejie!ty)j&Yj=x*P-B;aU(K#aT!bvjEAC8@BkH~jF~wNn(?T{<!lYMIDW
z^H+VH`3;>(bR<)*8X{-sl=l(t5TK5!WR=mU>`1|EY$1cvp=byej&v#-MIw(0{9bEJ
z_)%#hK?xWQ%10hoxKveB?0&%S_>cCDkfb%DNn7Sd5VmaU$YF|jb&3xb(G`zKL~Z~Z
zzU;(7S2_Gt%sFl%D!t7jMHHjS;aKXTuiPo3`@BXR^1q1lKOs|lysahs3(KD&6;NU|
z*h2ATc7fR0)9DM=8JH0X&qlqafZGA)M!jPnE)PRyJ}W<^s_D)xGe;4+>B-5Awg<oz
z{b_qZzO*c3l2F+N@5Tfdx#Yxc>ur1Sh&^%ofHK=oEwPenrg@hD)T#%E%SWt5o<!T<
zjWgh;90&L)U*k*wH6{&|;ptU5Rj|?lr_0|VEt)!dr|e1HOg0fqJ{kuvO9o&J+L~R)
zRWG!2m*N&sj=(~s&YJVXJ{x$#^Syx+R!o>q#X_Fn6OIkqPmC#xSM^Im7B5rURExzW
zbu3ar9l|ZThCY24phTY?nq*-foCScge3*neFVobv;&+nN3hH%|6Q9H*#Tz9_Usy}D
zgn2zcozqa6vEIGbnAjNl>2y&9AeSV`sgOpkGn|xET{3%B!)u&~P#iB_Nk!1%s&}P4
zzU*FTJt)1m8iOx=BY_ptGHJt$Yu6Cn>muA~)Z4U%vgno>LC$8BTZ?B9EHpxJWNZeo
zGA}fRv+#Kt_|{+Yf@>7dtvG1N{pA{oZ9C>mYhaR(_VHUHu~Q(TR*YgfUdBoh0!X(y
zpBayJ-R>YK<cgJiou7;_?Sk&@bzKDjgOVFLsz;00=vtkxgLrt++quiXtC2jO@uFxY
zIP?CodL&r;U~LRM$_rlQV06u(y<H5O8AlIo?nELch&P(5Py-4EJx8J<8u?6LwR92!
zH9;)`jX~n6u4pf3<2y2CD9ARJzcu;DL0O_5oxQ?gsk935%%bAJO2X2)4H?O#C1=*l
za<#HvhAeMwXiV?9;Zw<@x=oMl`ZUS}ClWnlh@+g~DV^0-pdd&qQ5FO=2Xh}@UGPY6
zDP}PF_G|&L##!6$5tOP&<RHOi%0eU|FGh(Z(mH(@b;&u4MqMshMOvz18eu}zJTHq}
z@BgK)#-8&1>tF1m9$)VL-*m##;NbtM9yPR2A5l;gZp-Q1Ox~2KMZr(c+sHwRt}@~B
zYmD>#Z~M*fjIKZO{<>X=0$^$mEQ(%b91_f3{E`S7$%d;^4b#%E8MgGDP5OH&mMFf5
zRt#>Pho!ISuv2B}x1Ww}?$k18&14<^H3lsgDdMM-ikX64wEO+Kdpks&YM|M#S#9=T
zY17)5{a&8y;^>wNDyK)>x3A{s4TNky7+$j0#u^Dmr%X_^V_}sP>h}ne=2B&@li$Ug
zEtCm#GL%fl__acaiozZttR#NwSgYk?`#k1X9H6WD6+u?7(U1rWYmYIZ{%OB2dj{cN
z1@?N81F?+6IkRDDayi37<ZccTyrNaqlNj9@5yPg(TBYS7X8R`UzOn2<e3y-G;TQUN
z&?%!sk@y8KPbQ>fO@8x1a98fPOXQukDIL=5P}=k2&Qw%Zr{s*D{&Qc&ud?);O3lSu
zIC~A-B)6UlOW^S9%>U_z`}D=$%VL6C_rOprr<H9Vnz`u07t#|)XpHhL5t?@=(MzYx
zDGao*qsdt-0n)_;krzI5N3;vP8V>Rtdzb>KlEH!6@|U$2w{*YMz9|Ekbw<zqzt#`b
z86@~@+cGJcBz8ejq2vwzq(q4$BiJ(c)f@wB)czh&szH=-2~5Z+Y09sLa#jHFTpH@K
zENG=^a#zo&z!D0!DcMz{&~yXyaxkhY#2N{+5KQ!r_--f_$Vg-)L-`M({wD2bF-uRw
zjN3Gp_fxR9B30M<h@jcO*rj^6>)ugNS7T3AY_)N9V!MCfpShs?{VgwE<NDMG5D#~d
zQZRp+ly09_%3J5<b$giC!ejD&JM$l?(yqZKVLW6pgi{fu5gNUQ_UChY=aQl&HFNK-
zTCWxpw%o>|W*HgKg>({!Xy(IGc8dO`M6AldJAzgW*uHw_I8CULxge@invpxz0JauF
zi0NtR5Qu|H*J&YANLhuBoG|KcruQ-^bsgu&F}u;W8dZ17MjCGy2~f&nvvNQ*bCMy)
z%GESm9k61;($5zUA^b}O^l4X^Q66UPMAJLBFEXTt+7q#IVyGPuIrCR%R4C~b@5p)1
z)?f<7X`e_cKoNqABFh+Y9u{od8^pXNDR+evN69Zz*h9wb*b;>;z3W?EP`vhtm_>dv
zh*KoIu>B|W<{T)LW!u-gK=MDCdK7P&kZNCd^YSJ1$#iicpQ6eX8wy~o)8$QE?g>Mq
z!=a>3wJ3g(t=b*we&J-_gINmcxu1C$-E|2clu^Pr_M`AYr?~TcTMr&}3Krn9Txo0n
zqiKnE>Xp3;`KAY%gcDA=7VIet$J&&q7nMm5L=Vh6V<l9mQQAvx8mFl;R!Ek(oT2H#
zgE(lf`X1Ndy?;*E#Qp+z1#NY$S--l+sGKj7K00PwUilO`kG&Dbl{=isRlL?mD<yyN
z4uOp;4b_+NVT^$}EwgH%H$0)e*=Y7B#e6>0K3&lvcd2J*97t5AqIwy}QJyIbPwMui
z0IWXe<<(BMsXLC~Wkq;<LXAg=$*bBs2iG4u<!MJGl4yT*z%|HlFQN!uO&O+y<%JDt
zq&pRM)WeG7U|dF6e^3jhO4yUJW8uQ5euhX*;WIkph!Moy>2e$#h?lZVCqH0z{O`e7
z`?56$7F&83L_n*E7bHRk>}I7?WWdf+GIZpgici~8lz753mXWT;wF^X`qe*nqalS28
z`vghxT(bA{3u$+EmU%A1Ac%}4pAKV~dm^0Ap(MUGI{t(BDnDJO#qAC@tkXD#xE8>9
z5)Nv9$y+&Vg=h)Pr<SQ12ooz?PBrsm#)B_Q&@u|O;-->_n9!>dU{8$)c+4&J<yH2d
z7G|x}<;?W#5d+W&ei2SX&o47zN611-C4~eLK$GaprZB%LhFFz3Slc!&;biyTgyExK
zlTsu5Sj|5iV-WdnMSuggjRO@{Sz<E7ce9)s+7N4{vk-@!K(#_nXsRThC?$2iQW;xB
z>UC5TaAVVfuB=9tGoLnPf>UnDT}c32nU<tmZbTXgile^Y>2feOoobX>$?{@Y=&%b!
zih6hBEpO&5!j2SFA>F#wi6wgYCl#e|1J$r$hVgBu8a4m+%WwbQVNUqp{<nYo@11JW
zy#7D`Tc?^f-@SSLi%xaa?Em_^PIcVWul76DiK?p|P7dK$kUG^_!x~eknl=2O%{QIu
zygB&gyH0h{yncJosV<vu4_@=+ym|FK!(27ry?#Z1*U{fi^Gf|Knpdx1b*dkmS|1-8
zey6BYEt_8*y!pOU-8TRF+h6@Jo$9Xn?!W#kkFJ_mBIUmM{p(kM=u{t@H-G+pr&=@4
z8}4qJqhEh}+^M$BZ~lJt+fMb+?ES-UI@PD<#f!a8^|^WX@&z<LHjQZf(y)fxseWpJ
zaHk&r3)<!9{SNyF<O<cWUmqM))rjgu-Kj@E^yNRf$u`HTdf)%!>sNnLqwYWbQH|)K
zs>ad5q_16C)igeieC}s;-0uzgRdv#D2$a=X^!A}IZB+OA=+xtXiLVS5bP(e;)IaVG
z{-&Xt!++FJ(5#_6;!!j`iI3CxpmRNV5g+sTxQdTOe0%`!G+FiqyXv;D!>p>izTVFZ
zYN~1zO}11~xc8vvI`!lbPj903f?+>#9GxZ=bgCw6J=m$IEjJeK`#!mPRbBS0SNxRX
zG9J8*ClG_$JjPH*hat`PA;w`yEE#@2;&nW6d>GxmkFO`~SC5RuP<DNK7=zKRE~7bJ
zJ#*VmJ<DepO+3uv<2;zY?2}AZ6_OMSi|A*m0=YzJz21d(?)y|pBm%SWsgHqF)#rEs
z_9T~c@D)Sgu&Zj`XB}6aTCFL<Rp<ptN-qzhqElZ$o0`u0T1c*L;^s0)<cS!VV}z>;
z-KoigsOYc|5QM|Bt|AY8%tOix=F~6+AT`uo+*=VfXtM5WeyH9=Y4$d^JVl1tK%u&s
zgx|)uyXgBq#{C$b!i_rJ#79e_FCr=3dkjvmTC?)iN!*;q$8#XeVx)PWtUyv^N+n`?
zFJDv@T!?&>p^t|?ho^SxYx-83l*04pk*V%2qEkSsPFFE5-H1fUmriXKRb{$6_022<
zHjfc`UL&po6I)@TQ!n0=L(&5XmZp%Kx=RbV3&IhR2yaD%ggf<*C`AvZC4M*zLPq_*
z2pNZanS`pa`C!1h`4CX&c|m=dM4tDRvKIp8eLI_*K2<+)?lfoBAK;$Z=+);uFL@%<
zn!p_e@W;G>LN^R7;Gi50JnOTm*VuaVS_WgSV5Pdp5W0u?=-cuMZB~`;eGI|DzXZPx
zXoEWm3{mUi=YYuFC@gIpy`e^R3Nvbhp^EHuGOLhR>VK7hO}E&}-?{;?X+@%@g{ZpT
zjgKrk^?mxoQJ<HctOY4<68fL^`9&QG<E8Gw_x?+RD)_b=2b;PFr)t@v35a#-k9aDn
z7PHk8X}14UubyU?2>BQSqf_+_!|H8~_SDUD?azx7VQZ6h5=gfc5xDTOAu8$W`@WW-
zM2%P+_1TdphS~NdhTSAhGmYsYaL*7T<GRmzev*PRF0?-o!)RX`!d=9;jxF~glWhPC
zuczlwyL$N|2zKgiLNS?1dqbD%^ro*Be1_=0C4Q%b*P#o1aCGCK{y;Yx7_Y4-o~wN$
zi|Ev!(1K_LXcAuwwDj7>BwkzHq!;)+i|*2;1A7g56Ovx^IY3=hS+#57wNpQ$TXm4m
zz%jbR&nJexWuV~^wf)Jq-D!sZG8`a_sy-YJepB)5uhnSK|2-e$!9Yl#47vjtm=0>q
zfRAVk431%hhfd<-G(OJsQPrbM3ZGS{8U3*2g;^5b!x5{YwB}hcd%{{K&EAg&S^;1f
zUe(nw)f;Sm${JWSl?S{MWp#C{4(n<Y-3{Nz)oGADI*iY0UZx{;f8@(`mCPN#S07b<
zLMst-dKlk7e9-p}wFEzBJ~b9BiK??`1+AK+K`X!zt)>TlbP-wT2|Cipt$3~K;o(4b
zS&KTfM!xfuEXFsr75PG3zerYBG2nHQxyWWBQ{67}{%wl(ZV}fv7y7I#f2}L->f2p>
z+((<O+f=;ruJ4^@^27PF`$bK#E;XS|jVLv#FQhHG!Iv)|Aqw3_uKv7O#pm)SKG**2
zG}9k$b)l|IL|uIf{tkKkxqQK|<y(ZN&Qa2{&O;iV=IDoH=@0;_b4XVEv5Dz4$L)Pk
ztNW-(#KVi*o%*p(a~c;q&Dml0P}mz84ISo2?y|1Vqoa9{onp2!giFb*zPR8>H~<aj
zES^{EAZ;5AUtY3(4qBE2*=v1uHNXh#Y8!+tufswX7#UsBNH>w3J}lW*fNi%LvidAt
zRs3jMkOx6};$9|Iv9V*&l}%lTq20yJ)xe_0m^9QjjPZUZnCeMpao<(!4I0$n^Cxtv
z!^J=g*P=up>lh5qbnj6g72Em-I^ntcGN^Fm^){*A%AUd8cAyl7;&*g04}RTY#XC09
zBkao-&u1{Hz7VV)oBhw#O7T8aVoHR9n)O%SU-pheFwYzH<Te_uUs^%xero&}SP
zA||0lT|l9@dq`8st8gVkFNQQ0TeIar3#u609zWrQ6#cOt^z@C<<TM_FWoVMd=4qQ&
zXGOxto@F|i<81i@d5d9GrM8Pt@yrt8Wg~q+OEfZtt5${<-Ex591);yadHqi!?7zJK
z+kchn_WqCmB3cHbjDGj%a?Lna5=@4EE%q-L8lb}ta--f{di<mrwWyAYKK5Sm2T)O;
zOYPDycE$8vxbyn~nX`eT58I2BL^>lP6!}?F931FDdV5RQy&f=suq6Z=cE9Vvn|S^g
z2XFYnKD7KF*m3nKP_jytq;00#NhCZBut=FpL(V~sHyAZWQEtW;qpsqo2_)tYJK&8I
z8><DfpfmaMogRpb)&tuwVcdGa6uBl0fFIkStpwtP=u{FA4t%?5u|cSkKyuWN55d<O
zbJM6Be4e3b_wDgC02Y<Vv154z#p?Q^fY}ZOThYZ7&HdoFb@e;R@5LW~+tJ4HL0=vV
zK&dY?VhxIqP1pfY(ctr0d|ih(`!e8VadZb;p*s)LMjx259~4)Q5{qRAAs$N<*}Q~D
z{;t@x7sRgzY@zT~Yikz4cOD?(5t-ZrKvPF|19Ibb6sx<#O5XF#fy){#hr#x=GgtUg
z|2G*^rCwdm5T#HX4?&B4iL?NT3~DHgVw{HW;?KesH9=vOB_2iIauYYRyRiMV<03@g
zPK-kah>?g9rpd^V04UYvDj6a)X!w*{Ix?bwh}oKZ0DQ0EIx33?&c`wQaddU;u83EB
z*JGENp3QmTnUSu6zm&T4P{fu*)crsO7X=kccLJE*{pH||-rE2G2W(rq8ZeTS+m}VS
zqqGD8iK(E3{<~NEzn7F>{Rs?0`s-K7(K(}|2=Ij!IAhMx{J65m?KGTh8e+-FPhN%A
z3Hjt%f`jra=?72D^8hvFwm1*ofr+U9fLl<rJDYw-=dgr6Q$yIAkmt~5wA=3xIfb$N
z&^1yHzXdm_i%2QH2(tP}DsPoCO9C$?2$+$JTOmnZy%sGNPhiIO3%xSF&tVD5=hSu!
z7^KSE;W(5vGQIHW?@|MUw&wI9h)8_XrObL0qhjqEm2fT4gF*X=%RmTC)lJ*f!n$D$
z35)n?Q^OTV)XR?n)VmA|t4ld5ISktXveP&Zp{_Khk91{z7+zAtdZ`rJ1ewLuUouPj
z2}#LfIBF}{on^p<>u7Fni!(}3n8^ehh=HvL1gQb9Y$@ge6460E)9Txa4cUp%u|c)^
z+&Z^_%4~c)pjO+_X|@9j%Mud<iFi%gYVtlmeTzIqfJp{oX~(wFirv>CVj{eRh0oWs
z;9ft?DM-lX7}&m^bV)t2VST`~zSHpbbjV(?*9~Crd<xiGRa3sJKe_UxL1@APMQG;U
zYq25f%|xbesi)KnW^<ta$ww-MVP^(%e)enf^SVm_G<a6tky*<|WgmECjkaOh$Twv9
z1kmewO!F3lo>J1);5Yr=Z;?1X{sVK(65BF(8jhXj<5da|$XR<hR!h&3veT>&Q&Gji
z;zGqeLyJr>Zrol(h`0=VUJYKW&GleUgwRvu8BS$x2YvZAz#-CCVW;<lS5nc(K|geV
zpnE7t@&Spq5Sytwg-l7n)UI-VkRnbm4fNdzry@}Ci|JvslOQ_gFgeGxLJjB47*MDN
z$c*7)Hh3e_ZU#MhUq?oTCg{Vh!<sNfnr4~d7}XX_68mIi>Ik_;^z=6yxO!I=Ul?#k
zm%%-wl^rMcl;H_Sr|$3&a&!cFdkAL<4jop+SHX*POE^Kv`pBS+efa7;!o*_Gl_rpt
zi1wiNDdMbTM%!6rkO*Hf2m-|tTGIzPgq|ebmb)W=cRq}}l-92TzdRx0J!QACgk;D&
zO`SZ`C$OY3zuZO!i2}l>T6yd`E^gGoL;qswLwMW_CXgU;Ufk%a_2IURs<yyDqoy!2
zOS+lIXb`B;l6~eA>R^HVB;{3(mMF6cNqKbY#Dv8!&zS@bCKMqX`#0Q+8-2D;oiHG(
z4sR4eqwp;3$Pq5HAwl270wobku$FA;R6{^r$c?}4U34)`@SgZ0a<FqFjDCf;)cGgw
z%H4m$tywm5YZ@0fX1}~Fky58qAtU=t0Bt0bpM>O8U1y;){7p*3^6co4sFeEOf=X~D
zdJwStcsjAAkM{u~CnFZ6dREFOmfVv;C=$v1%&&z|)t`wsN?0Dr2dwT#tFprnaA7|Z
z?oT)=aoZgp4u?I2&{U%y|C(yjtMxJM@lFW`$@S_zHdCI+mp0WYOZ@yX8d8tsiR1V<
z5fFTnVq85Q#no|Kr8_-&0z~*XIgP7lx?0y$I*L)~uda{WFTWw4pC>$}>!;KBJagCV
zxw-s_=h^K+QEvrFP=7cY=@JLv>3ejAwCa=LlgmK{wDPMx49xBEb=+R|Fn2b7>0!3J
zNFWe9?g=0DbQX;+<L;FnRU`LswbW<T4Buy$)Aw;<bjahnGo6S_{x}*=;*Zlqs8k<*
zq|>F`hh#P6G;c^;d_B!R&m=F?O;@52LA1}qg=q+ab=kup1Gi$M<1Bi+O*)2$?lz^-
zRN47RR7sYTxDUaH`2-aybx}1JSBvOt<ssQk6W94YxA=oBKmJ&*RzWlG14Xx+i<@|M
zaT}j^?u+dKaYOGAx<#i;F%Z2<0{8xuem#J2i6oE=U!~_W3#`>BdN@oWAB|HH7pt}U
z>U638J?m9_d4k5nvE@p4Mv=O6|EVD)oWqPt@27`W5fWLY2$J(omwI3!`ou&-ZOU;R
z(&==m36?ffiyzRV6iNU6D91WIu_!xT3WM&a(?t)dh~Z(%c{IT|#NF)td>yixqZ`R)
zk+9fU5bSBuZT3FKIP8nngZfUaWFK13zixAr3SOH&ZNCT+U0yC!N@3ecPeG7<vU=Lv
zR-?i4n*P<m{cG2X8qm-<V1G$oU;9BiPI6GWi2ZDkvYqAJ1F{bVf^_3P?d>M0U$PH1
zOccMzp=Es6?%n&I+<tw{LmD)oWm@!gbsG<FqsvW_25<7e&HX(Vt_7Sqo{!F#J#t2I
zs=W=(S`^6-(7C)HXaDu^u57T0-bAPd2}$V%U|na&(Iy4FP?9WK{M3WQ$o?~ofZ*0_
zp)DS_07QdZBW5x9u(e6}X_5MA=HA)OxmG(iB+X3?RPnqVI`vAP6+tn+c6FsL=Z0#{
zG$b0_q+{5m&bOcA`WN5VPMcK9Y74LG@(~{>UaS*DGrI`E+QcC$JCw;=?iLMPoS(-9
z`oXn!y3{Hk<y_hCv%JtH3Ee`z<EwN)57I$`2L-_#8(@W1?a~rhB`Z^txPL$r7On9Q
z-*-v%+MjGwlkhawo%G&9d43^LB0>6*Uh(YeW|fUCjP&=&<dZLZ$8_)%OtYsqzAk{G
zd8ZpGXf?l*jOadv6qX}~Nv6ypSrtX|0QRl+qzli#9rS+(kP+}7f6ETIxO=5DAUL}w
zKu?E3uiw$y_I`Kp=J%pwpISx@3RDT@*t(v7a_l~s0~=!QQ)+g-LTDoMVQr~ND8?1r
z+4MlCOTiUY36ryB;$&@{2w2My<cfkSKH-W^Da92n;Sj8)RL_#T(qY;?eTk4;69S`#
zjKra#qyw4BJr-$&rwMK@qK{OKMQuH*(Kh4syr<c`oV(U$*^_wPdm}l)AlWCY9i%oi
zzeW_yw&b9!u-h`$j3WVo9$$5PL$CUJp<bmJ7H(zx@sa_^l55adA{)A7wX2Kt3AZV+
zVm}Y(Qaauar7#oVg;G!>MptG9HQXkA)_#(AEW!pmT?)W?>FVnFXp8U>f}}Br9bSZ9
zZhOir$<d`s`BpR{(cC*S$bFs%Hsv971FvGN%0uY;ruep}O2c8cp(RP;6hS>`0Z0(*
z2p>2>G-xy6$C2X?P6FsLC5*A;Ums_Xr@@H+4j=}inJ_JiNG5uw=cE^^6Vhh<HZkXc
zlhP7RnpbR}#%Bw(SF;PAlG^NW5CNS^QAHt}t>^{9GyYKT>)ReG#4n>6`6c#fhGs(k
z=1f$}yX!%Is5eA~S-XRWM}4CEr9+f^v?&7-(VM>Y!Or=K>rCe7R*h0n)5TBeMx4L_
zXu83U=!m;pYlL6W<p*;Uw<UmNdiCJwCigcFunBwu+YPpE+IN6irT!l<J97{E4B(|5
zJ;PoGJ!_QY7V>rmY;o-~Lq<QEdPiGzA`dA^@H41EApz4C7XHJ*S|a2}N~7}yu(OJ<
z9poj$><Tsc#^*#4KgX#@<R-WtzrPuMlgTp%FIUCa<EcJL&yF)x@q3cdU=kl>TL$5s
zK*ifOcl0PUE|(8M6u({=9AhljBcVuogk3Rrr_d*E1vEK^))iuMZY3#Q0#@B5Zs{sA
z6IcZ;(TZOc4dm1gM^F%t`s!jEW)g&9vuTP%bxR<JO&7S0z=#?Ac5lEtiU{<Ny!?-w
zPn$`{oWipzm2yehYf?LgRK}9LZ<RVozEr${w<0zr?+>Aidka$G0HEu!`PzX9n<30|
z1!s;ms^<^4WT~=8D%+U>2qfYibxC?_tIhUn5_k_d?gJg&zw-nQ?za*o?a~ZN6ke31
z7wGtb4@Qa&-CjndNNpeF7(f>NW8ZoKp{MGB25>%$19p3*r<ANXWIAPX;Q&RV7TFWO
zAH&ba#J$n2!GtK<sg0$j7rB#sMiaMaSP=;E+Llw2n@xyoOH|YCo4^4G6RipTa5&be
zg+0qanKl)=+X=Gm6H`*33D*S~F>sX}5R;K8MbR2<fclT)g!LQ)63Hu|i$+8`Es!U2
zv;z1pxshyH-bE4HM-!B35P@vDjWD|f)(XS?l0|d~G&Ll@WT8Lemn`DaOwmw-;p9AM
z>q%m+g5?+;)}Gn0Awi72IZDIWMf_DeDT@>kc0!HlJ8jP+ah`k(i1#;eNg=F>mUolN
zuTKYo+nXdlqZwkc165FB0gAJ}&ws=`ssAbY4#3V7gK<Qp1h$D=4BOH8uFTUmcHBf&
zT#DJp9pVrW1F+GvYjgp81GEZG+Zzbfori6@y>tWCfnHZ24obE<=v3*8-czE9WHY<?
z5HLd!>XWS3gJLNDB)7K90Ku{w>@I=g)+Ld7d@iB+`YM2a+vANoJ*8cNM4WBL6;DzW
zRh_^od?v57fKn8s^jL;TnrH{{CEP1X4{}sOXwwmh1jAyU>ymxvL<BO_8W4*N7jg_q
z^{g~Vh$h0T3&lP)BEaeqkR_|LUs8r`A>30)wh(}@`ayuW$vN<pGvPGGpeE+D9IeRt
zi7^I3)ffwN$=Qg9H<*DQp51*2sNExAbutf0hyWUxQ3+gl6<N-Q2_!}jvEqFQ*eG*K
zt6{Efq_S#l>+wuOJ`7QMYENU$mh6)pIyFEf-a@X2U4@?Io+SpTwTu#p%Hni+DP{St
zaw~&OM^9<K4CJ9z(#n|z@k<Oa-xV!N&ea2=Q^zFC3?M)_V55J4VEkdr{`_otAmlPL
z@O4gf;#elhIJ~YqBOf-k5bsCJy#504vsz+T%4!K~2mw->OYznSo^v5xS9)J3QUJ}D
z4U|j`nXuV)+PM_L5t3#ShS@i8=|>!a5_&JL6~>XM<Y2#=gJue3JJHZLih7neLEd7y
zwwGtH`;a(dlZc5{_9~AEL-wB;KjOPev5~%52KZ}uz%^z7uyfH6SfEdx1iJE5m>mOR
z4UXY%&-0be1s5XlHJT$xh&CGs6p_HJHV|SdW_UuFe#)rQGc7LN_KSV5?B+)iY53}6
z6Ek7Nt(oveCRWVTY^V533-mU9^c_x46o5&~8wu&_8viCo#}O?eTmrYxR0J?O>0T}o
zeq8OvrU0rWa!qQYPX%p>f}F&n6S*3J_vJJarm7i=#zHG54O0C5(ZWEF^PIjSbkpRZ
zX{95KW)ZUww56%BrEZD9OJY&+M<ca`6%Z}(+=YbTToP)_EN(5IWqPAxrl4T_A_{yA
z9P&cGSr9J<xoBBpB-TMjG))El-5#sWqa(2q2R!Y3*0PtgmW)5fM`AAut%aKw6H4O6
z)cs|0$4kTUTt+RVrOrW|<<0B1y3Jd*yj&ZP@^WqbF}px%8rg<|i_1)b^u~@qu~BRh
zv5HxK>pccE26&3=5^K`EPSz8x^bt212&F}WkA(mm!-J<JR917+W!vX73MEeyVN((s
zEZZE0o}&62QdCdO+dTyDeX2{4_aQFu-e+7;t{@^le?AONvZ9kx;!VVm5^Fj}5pU6H
z3MR?**hc*?x2!bsKR#GPsW$qkdaU*gkMw819*y+beLFrGpN`I^C)1Oole44InXVr6
zPmhmJCns+4m(%0Zld~uPj;7=3$;t3+bVT!$@!9Fwv7c&AN5e5+r`(%Pj*f<>r_<rl
z$<gt2Jf0qnPshijv*F1ZKUg+BKI6%=>GbqyGCez)Xq<NqPsf1j_Q`l>C&TG*G(DP*
zj%huajE|2e(emxd@#tiHbbLfm;E$<UJLruyqPl9{O~&K#1S%$DdY>MRjy=>rA5S1`
zI)d2I=;-8_|Ba4@)A49DK81<X)6?P6*~!WDY-ABMr&ESMJ3Sqr4Ozt*9vzP-C&S~D
zlgaq(_+&Di9F4~($J5g>JdTe}k4KX+&ks+=e)^j#<oI?x9P!@-zDLtzMl~t*v5C$`
z-&B_5yLjZAdg7bS+vB5C_&z%2V>F!{pX$-q{UiDshv?s)oSmE=Pe&7kf$GjY<lE+K
z=%(-LQOM&hN`>#ClmhjWc$j4rb;xFWeKZZS@gJ2H)2)JtY8n>{NypFs`R3b`A-XyR
zWuwtC()OtD{^@jlG93?(kCESKIy!@a5qLNrj?P9C^fE$uuySTvo42Q<)8nzBa)M+}
zO$4z-1Jv(m3;-rb7cCu4j)JJS<Fg40IUXLP0AWXs5B?28K+X_+0=nVp33>vG=;{=>
zPr)hbM;2#i<Iypo9RoXbh#^dlQB{a6g>W!D!zQ5g^yKv9_{c=P{ZA(&2pyeHC-gUl
zfur$oIvJe+x3dXsoHFR~6g-Tkrn4JdG~jl63O!Q<F&!O^+#B00LWU4^2F$sABswkc
zcmIqroq#mP!uqg0FnNqgO@Za`WXK<&`B*noKW6}CIHo0XI>mz2_c#9$F7@BhgvZg4
zY(|2afF863E#sphLOgTx`W=>YG(4G}o}2({dNF2!;}~fmp@}WvG#V#N{t7L}h_w8J
zeXIuIjj=22b&M`j)2Y+H9@7!_(*Bzs9V0#Z7$NHs_KPsh74K_UL<c96$=O6IoSYn^
zJzZquecYSE@7d7=yGAspzQ_v%zV|=i5#&rzBCH+_f#@j^I{{Q+0?ZCiFmw<jwPHJC
zL~;z!j)#zdv%u9LiQ#Z^CMnA^+nvgp%bn^1<l6Dpmyi17EpC7K6=(g`t(SND)GH~-
zjYqqzmEP+wz4f9`V_m-6T{eHk98RZaGHMz3NWeG)Q3!J~1a_yB>8V6eSMMr+Gza*y
z<0&ed4)Iab=tja;r_n^ltZzYV`DUh?1B`~}aBU~YGTdm1<RR^UAD*Hpt}8yEmhlK>
z;?+)%PKG1!d;}gx$MWqW0Zq%fPC)8#0=0NfF5}8@x3p4^Z)0p|E`aeTYGbt5atbJD
zbb<+|T;&f$xu4c+6mFSp)v_}lY>w~EF542K^;52!`Uo7;s(1bVVztqq-IvRU)gANZ
z?L5@RFRwa)b}MVE%LW%e!bz+C<j}~E{zH+K=MQGL_nVI#q_5wQAIIRYUoLL%`3;2f
z{RKNc)c6Ifr+%o<@tVuI2S`mcO+L#zF429cq)+!ZL0UhbZn~F?%|$eFcg<@JPs8P6
z`*0bTnvEPk;%XdkB)4F_XgtMZVb+zqV@r)6>0T`#EDZJ#`GRr@q*lu@@>#_YY{87X
z#xT3M;+w_NIPR!zf++j@No}-P|5SN(|NSw3(k8&GQtqZZeSe(#HvXyu_Ek)A7xJ9A
ztGwqAHX@oElGh-?AMD2UlL;6$o5k4E!{j2mXx@iK*Z*&CBKs#?JpcdWqeBdzf8+95
zF0d&;?uPW@5Ofm&ho!|N|7b6K^}Re<?w8N6ua_aq{qfH_E<=|m|Np6NpWQVn5AUuN
z)>@W!x607FD}|{sLI3Oj#*jQ6A9MMPEjoCC;pmv%F62i<{X;yM9%`?!8EH%&HatEg
znj=Y`etuzedN{^4KY8YVa)s{5?HJ%^V{_@}Bpw}-(2=r?CWm-5`aV0vb14ci{UED)
za$yWzbd0w<Bs8hBpI@0Co=hk3+4l0Y3&)2<Lwfnyzyxe?7ykwN+OJRl`07@`nY}vt
zqnk0KeAs)WF*Sq9A?a7R-Sh)h_xSxdjnIbBO(PGt#$3*Bv}#VG|GIu}SJ6!~ddFTS
zV&^IHBH1|`E0xFG4@i1W(DKQMaOM17(M?GypWP21h8~iA$nKpN9%Hsr)jx!FW*{sP
z@R<{@56E3ex=AI-e-XAiE$)&8nM6g2<=Gh_{`AO+C09r!NT!sm5x7VbkItrN<6~%M
z@^gwaG1(`~YDn;oh@8w%2(+g|<}D}maYV{Bq-*6&OnJyV2yRSvNF7L@f`XKFc$>FM
zm&gXm^_f*=x=_D`Dw4aH`3#u{>B(2Uvmw(I{n>`IKH(CKm?~0=_@jjG2npfHyD7sA
zblvcqsh;P-zIm-gV{x~gU$1A|aNfmLhT6Kg)*N$k>_3WJmD|aUhiC08`;3-tJaO|D
zJ?Vi{G8tVQMVj7|nCE89H*OPx{^%AypE~HKIyVIwZ74kiLEHHF6d#ZJNEiQABr2UI
zT>P9OP%w6IJYqsbZb#BX%9$u8r6<o}ra`j8RKsH&kd=<kj+teUjg#c)V(<0%2rx07
zIAUTO0H{YPvH(2=`0Vs(%Ji9u=F!=BdNvIS)$h%Y(_1l+k!u{r_m&-bOeTT6bL51|
zJ4~L*D$~Ld^HJth4(!FQYfUd@Y^NF6s(0)jBk#w>oiRfshK3~S_tCJvxH5lz$`qMA
z)qNJT=NBR3{@s?URElkWzj5#NRlv5-2Efdus;3<!BfKzkulBW81mnR-f~l%RTDAWb
zFnj&={AzJ$km`&h55opx_fiF=p;790dGjWQU@a?JS){!B5ZTO&XTUG6r+Uq{#MvEd
zG1$a?^e`Z6TQ07?WOtDV)-Tz}_{4JR=Kf)=7S(I^FMicS6?dA4e-DCRechtd*A~ai
z7@~L2;ztO!_`SE9TY(RzS5!Twp{nK$a~1#z5}67_I{fZ`9peqj#%Uvedv-LWg25CU
z&wDmu7I|_s8Xl3L;|(dd@Hi+UL7#X^6X;DZ(ar^o+xmbxJDr>|F#=zzx1hfRT$yV=
zM@Qo+69fyO``)u#+(XH_+a7HlO&$Kr6EvYa-9h?@;QTEcHz{7=ZJBG1DWAA&ewHtQ
z)@M5>GrAb>_<h(SFVF{?e#IV7PWsx;FC&A$dbqpTE>=#gtM2k<<7NeHRd=0N^hS6v
zw#Uz~v0v;VXxeF{?th}+mG!w7F|o|j>H`7*a-2}YVmhtLl9&st3V(^b6n};;P7zjY
z>~C}Cg4lw~Opd$VGx8*L!nRX=6xUw7ctbdOGDf<<^w8Qh9XFr*+z{Veybts6@fluA
zbG8uMTXwN}vOHp<1~K8O_Sn+;#MCe6p`a&b%~t#nZGHRH5?h<9AFcP!KwDwIhIW~F
zB+3ZM6c^<YsSz9nGTxGmO(j>Nr{Z*C;r%$CDKi+m6b=Ef#H${gYYS@dhmu9r94CD0
z6HA5n3H?xKpbfY?%0g!c%&L!E<iNXA%25|@W3c*wFffK9)jP1j=)T8Z-ASt599J)i
z9h6e33How}w8?*HTd&pAPK4reS_UuwXL=QRTh(XFFLwM)+sS+=w1g9#77z$Nph`iO
z!c-h8aS#>&RyCSFnOBDt4%swJL4}eSg%G?8C<YePH7Q<+c+w)O3do%lj<}+pIDFvH
z0T_8lP^xD$579k;AAX?TJ73Q~aSo(?-it2wXIkste94)$=B2k_ZW>;%Sv?q74QqkE
z7uMD6Bh=xOM78P8?=IY;SH%PStL4LXzGXG#&cUO4!CvOghF{fivu3cmUGYOF@l2n?
z1Q&CMfR{1CUYFnK_Jds(7v1GRhsueFK@zd|aQm>NiwGUPo5ehd?6P4pxaw~gpUNN+
zmv~df?Hjf!sI#WGC{AdPS3z~@CBJ~K&weu94A!DN2Cq2>(2k}z*xb&yH!Js2^{%cm
z2KR%yn!PA)$2%fHV20T~d$7;fR?C2;XVWlPt=aB%8#J>Q(tkAHT;IvvUGRVNb^L#|
z<`pMD)LnfJ7J4~i_ja|hq-q^y>!!{9jYq0`tifj_V+q*z_UZL*hJfb5?tY53ce8r9
zjv&kO$rsa7y=2Sx^#h`s`}<xL%-VsPqNKWe&zYO1FY72h)(Z8#S3Sn%EUO^*tbe?S
zfxGp_$w1TF=+_VZOjpGc{RL8~()e22Z*)`**k69h{8Tr)-7nja>0Xx%)@p3J_p4}H
zY9`Hfg0KsI+^G_Wn+0G>Ed$RjUm`fwV0E@!J(%-;DHXE4BOdK;_}v)|uDu{8VsNp#
zy#@XHl2Yxy*nGJKFYBbPhw$T1UN}>`s>^SChW4<AH9FVTy@X=J4g`<U@6OWD`o$a)
zaNYj$<HI5V&<vLRPHURlpj#M8T6zin@?a3qEByiY)qR<J47$Zv>?bLy$36*IE1~Ko
z`|k-y>qUsXz@wys24mBE5S-0cX#B;C)fGp6qJyxI?qU=0>h5U4Ebt;x^6IW0GEZdf
zHFR6AKC46CywXSW%f-cV{(hqZ0#(i<l__wU6W#0fu8@hrRP)Z&Ctd4xIU?A^ReQV%
zaErvkDKv{~`@&YpfHOvT$uH*2cG%b}Zlnuyem14rinG_hm;4Q$dhg5a{dSf7R6X7+
zNY?rsK!1~icjq(`d4ue{IK2LPah|ZMzU8HZ)taBUS#I#>^YtN^vk3ZtH3xXn+Ca6(
zI|=+cP})InzMfqho`WbOwtQmI;jUQD3=y;7835hmEe5)nTZG*{F6(*`0YfLsTAYIq
z%m#9B4rM8m&k~D_;D+N~L*4Ar@gLnDd$-ae(<62RAXT4j9=CysngdWYNVhlp!0+ej
z&$^4RF&lONX7*_jj;Ai*!Br<ZdYi>%>1At&*mOU0mT+|Ph0{~@7oOTz8jd4Qn_R9g
zqN-XycpP>G6fe3gOr(=wp;(<XdRfH%roSsip0V%l%E25NA6JTtt9ne`3jRMtLf15R
z7dhXV&puqPJ{N(9e{Vrn_vEt;nySZ(9I5AK5ma`=JXllD8gXE`zg^v(uk302U4pSC
z)9+oekJ#MyyLYSbV*Q<pI(rwqY(T&c{$s(S+T#@w2V?Q{B0#lQ6!C(ME4p4HOa!oQ
zqPsQrR5~xXS}@H;K&@ZgRq3wZm!pm@)7p^JDtTJn6*H%TZ#C90?`P-AX)<^<FBV%u
z#(WtJ4+cz>7t82x(7T@9-dYd?hPgezjK6!p@H+m?TFwAaT}R7$u%7+Iv9=akR@`wn
zgsyN>U4D`(kp7jc)ec1QS~zbW;(JE)Rx))L`v^$(oDJw9V)}L#h^>0OH4`qT>E2z(
zU@bVh4KrswQT#}=4&$%cb74S~h|oULrW6Yftk<Lc-Z`%}1Y-9$H>>6C6AbiLiv(`d
zU8M_eux{(I>hU&CNV-CzBs!rKBAV}aV;-I(Hrf_x?%2~2rKp$pl*6uD7m@I&HBy+Z
zw!!+57xOE8{33%)qOI;P?k+HYx9BbBw=rzfEk%<-lqg6q0|H1rNEp24xNfC0*Ygr4
z2HoZ2&SdR(4>?s@o%XtS8Jv6FP4?07Lj=B;*e&vm9I)9t=dG;*;iR)4!IHc*q|DyG
z=phWPKq5_v^(Bk3+kYS!#bBieGKnYw_4r*m_3^cn?+%>mq)`%j;Lz5SJ!Jd6y{A+3
zLFlQC6y3e$obA?R#u}m@-fpnBxT7MJI^N^ZaP!c|Br{L%_OO%40!rTZVm-f^-)%@l
z)wsKdSJKorz751*O7*#<3YBkuUQS4$x3u<O^1C;jd`(tn%+&)RvB|u*+g-zmhHm<o
z?PTD^tJxBWJM#}gCArPZD>7m7qa+F;+uwgZJ?R3KQkDDhfgcL-5I^&YP5;g{5s$yO
znSXp}XHtVTbC&|jE)X`PO2*N{C8r?Egry~+J6J6jWp<TP>$0itS@zZIt{;NH7m3os
zAuYqNv>m2EyS%Sro9jnF>D7<MO}D$aivYP7uKz{v5|0|Qwc@r58U{=%jhQZgm?boj
zh%L<hOial{R(JY?OJtj(>1Tq{AAG{QB#*tmQzeh{|Fw5^%W)h_e&_Vp%z%{kY$&|v
z4eT2q%14wH-n)GP`@(Mk5+I2XNkEtx06c+rw}1bCW>(Jtl;n-Debr5(r@KC~va+(W
zva+(Ow}ru3cAi(EU5t2(iR^2pbgos&$F<B!$&Ta1%rsT*ZPa>VR(Z{&LwR$$I*xRq
zpe{otvDqn1ou<YW9$60SHX#Z}+r^AZwZylWx&+iZ`~Dii6TJ^!xJf1EtO~I=8KXqa
z%*K~YBBjsV!}%_2U=Cu|P2%<=7S&KJlFsOAk+wUgEvC7gUo&pFqVPe;`hI_FvaE)~
z+th5&Za;lJ8en^RTM#O#upZfL7R*yxd@6q<+ZzK2vz{DFUu?A1@u~K~$LcMVSzHcX
zljV!6z1Oe1;r2cUNk$wa*YV{$6P_`EnU-l0Y?~-GxzVFc-!RT7Nhvk6z2LjRa~KXc
zp>MVB(v9!W*;}D(J?-KAQ)=4Dd(})6yW)&NwQh1$w}GKh(^E2`G$#}jy!-ys`By$!
zz@&pDIpO{eF?Ini7PiqYRZ2fyv85rnyvNO3C3XWtq4~ZWu&ui%_M2-AHU+UHN21s>
zyyf6M+>{__hM!G#jw&)Wvu?xoNyJzP_p01__l~(t;xk<3jDVRsNSbO*W$GB7uCjkN
zWv@&vPs$qBx57Tyt4Rz4%+^Z@*NqrG!kuURin-JI4J}wRsAK|MLC-C~2DIQ{fnlg_
zznPe1-CkLB9+-^A2oS1%=@VgOUU%<p$K8aMvB}W>Lzug_seA-iY<fOo8C;XnlPM0L
z!Bx=ID4j%1f^WyGn%BJy#rkEoS7YODWZk5!O9^<Kq>6pasfvI4NuzKMc4-T%S^pMw
zDP&ENQ0~vdYm8ct>+{*LHLgs#DGco65wS+LwYoM>w7zQ5lz*Te3{!f})L+M(tebY{
zAF?wH8(XESkA!2)(4CuvL##!P-H&gKW>06)!!XVAV;Ha?#t8NjrGr7NO%h&(sy@hg
z6q;5v5u39F1zCyB$&lB%5HMZd7WIbF-7^vbHip@0#Dcc-bZ$7B%4c)7QL0<-_k6D~
zTD{w#-5?1<8#--yL`$f(?BR>0J9a!qC084EH_O@*(jvw5JTso=e!_kQ_mC34Sc}ql
zhzt+8Hcc08Ry2LT+oL!9%Ev=Bi?Ss7AxQm0G{6s`$o>${2d{z^Ug<+1qKCFsyBTn(
zJGb<CHs;H--u%-Ia6u?+?7em_K5*hp9DL?pfg^ni^|UqhpFf9eA8&T&%^sXpT21WK
zPLm6pwSW5YCjs>)mB20fc|R~yG+SUTHq#v2cZ)S^dWmdpa}FjuWf#<BXIGXh>=<SG
zo3@w`jD_1~y<rb)Gn%Y(?mLvFY+bg9(it$jNkE&HO-sVk5p%Pg9Ie*uBEPr@Qel$)
zbR9HFeS9^sk>FIOcH4It*H8#DPYhP<`Y>H!?GHJ59;06{!d+vNcI>b_q!p%Y-p}Tf
zuxcb(jciK~#V{2Vh@Erqm9}PCI-skj94bX*%^-pkUNp+U&ULqbPKr1zDh!01n@g;7
zsVcxC4qa{72uM$fd0(^NuTW_|9g31s-z=?-<C|0%$A(W?q5A2T@8U$AhUsg2UJVba
z%Ju^b)Fx0h-J}KPn0cp~+)tkl7uDT1eAr3*UYsXqVjZg*SXNEuK8?GyXO7#?EhEuh
z^E|XPdM5e?GL3CUQJDu+^(1VM*h(`38vVN{chkM|qF9-tQ}r(;6eT{Wz)ljOiFvLJ
z*~9cs#_DL%K8KG|hJTOLDdHOV^_S}ga5@5rltcwd+M)lJ&dppRRr8*GPQr)<2-m$z
zZmpZ`GK`m>b1KN01b@GYWmjB0Q#ib-ke@5$zgEaE8S;{o3{W_sZHP`80Zok}avO?M
zg;{T5b(|-1AVbh)cWjm*%(~IJKBrB+8<_6}*QYJI>+hlz%%tc0?1RN@J*rUDJ_dAK
zE)4SJ(E#{zeRF$#k<-A+x(bszvJ!i_yU?)yc=?G>OIaEWczT4kkC+VmVwpGk_hAIZ
z(CDICZL&$!PH8jiy9+}@GK4Vem}>;1x3$JtFe)Wa8|j<?8&Og>#S^p7OSjq>+7vtY
zOgr`~nqZvk;P);(We2ADEIU|BNH$!JIMIZ$_-RvdikmX0SJlv;e~Ok3gU86Zvx;uU
z%*}iH|MhLS++_V(!i<5kA24i~cG#b5)q@F|hqUTIX-HmSRBUtH5`*mUR%s(0H4X9O
z`ZMO6?6pXzpnHE2M(AM`OKOwN3LXU3{XWf-UFafsT!i|^7t#fsAvM<AhV6-)@^=go
zUuH|jAme*zRGZzAGtQ6$#Ds|@=fOwf+!Hh7kyVlvv#q2R6LWILvwql}hZ{rx`Mn=H
zM*8gEe~VT3p#ka-A!ciQK(S?>WI=?5>K~SYZnhFLH496*JPW7jJYz0PtlK>Fxwf=2
zKdlB1@Gu$2GrHEzIfkF?q*$Fl9{65vE)OJ^m+N}4@@o8a{WcIS&6f#$BJuKrV28EK
zT=1lX5jU7}jmKhq^U+mA75sFu!=`4=XxiRzdl6u#4Pzs^Z_MnZdqtx%{Ru_wSbML)
zzDqZ(5y_KN$L`XaaaO3SWp9i;VJ6*NVtg%?lp*^kGusw9$c*hW^bVBs_Kdcg>TP%D
z7T575pQ7#4U##`Ivfvc+rC_K9{8@ys3a(=Nmv>iM6M|!6GF%xq7)QRmMcq-VZo^!<
z%?MJe3_XT@$EK7?BkOA7sFZyg+Ry&&z$gD$ox3==mK)Uh^V@eH&G}vb;X}y2RZIpr
z(MPEUR&80tNyVQTe@fZwoB<+Ljl5(~s!7!aS+;v0!c(J!Q*kh~fZ~|}R~U(YzYirk
zd2Pc%Ew^RQ-cFJ>p)mK`YZ0c_QC=K*6_uOQyeXpu<4bm}p1(Vq7DwgyhKmaChF^Y8
zFXiDEEW}1=<lvWloH+U=pZnoWd#d<uEf&q?+i7^8>nW+;tV85XXlY@O$^cH6bvY9U
z$E0Gr+H!UbGnmx-QrqC%S&tvxnq|@5)jvXrjwsqO>D*!}iP>-W3Z+h5Y#AcxWjsCB
zm_opo7Mx>#vRL1zHK8rGU=q6y!ly}lb;iLpGzLhzDc3o-nY4}(LK@RmdQW7Y9K74;
z)w5!i+Q_hBTHlPt!)$Hr<rNZoMhd=edvPh#PL{I9-fOnX1;lZK#js63h8zON*B|$v
z&5$_L$j~pcB*3O@m8o#}3zMQRo(RXHoV&y@-CbRz@?X~Mo*mK2%InK{F4Z>;yPM#X
z)E+iy7C33RLFUKggG3bL*6r-GK;_ZELK@_dHE2dF5G(=ZXtB=G!hoY0&SI`mLk4RJ
z%(c^`Er-*P{%v$bZ$m08|J*hu*)VveV&0#j`X8-PjvS`1JnLCuf2O~(@YL3eQ?Avp
z^kmWb@<WJ#WRejfZ|IxxoT-Fe#%jn*$yz-tO-al&W3<2+meWd2GJ<P|O=>C@YTFdL
z<I!{{ZE+)$fTB*W?_@a>=Mx3nl&D6pxx6UflTl|#iX1fw83$Ho3~D<QsCr_;965*4
znb;Vwy!|#*-K+^VK#as8P_f38Tg|D71rHU@b-9IMqi!KNk*T+#_Vq6rMwqf`Y01jS
z_Aemz{^~*Y&6_=IrmhvsqMxdV8&G3~Zj>JAFwE)~>6W7TcJ{p0z=2N&G6vt3PQzT=
z19eTK`^y*``2xb1nD??Q`z08>EhMAcMGN@z2&M`fJyQ6^c*eQ44i8m&=zh#ntVpIZ
zyc+)g`d25*Z2&`<HEW0r5E-}P=-gjD*#B{=H?Mzv6D50;TFqM!rlT2)7XNEip56SH
zq3JW}i;))tOnE<?<iZio)1fYRe0HpfyJF*jBsaa1ZH7MIv8u%mm~scrL1JkB@fe1~
zn5C~mnANbUr^f&`^^0>4{<L-K{Mi4}?S{!tX{a8X%h1whcBuuF+tI3fYxtZE5q=I-
zJv5otv~pLdB6HqRUYj*N>q<xX@*(DF>CA>j0sT<4pHk6fi3?kBD6ZqExvF)$5-(-v
zVFnsx&&{yI`kfd1&95ApZN5&1!n?*y(5>-)#33U3K}y~}oma;7+pkuFgbas$7!aFr
zLvPB}^DYb%<J|LWq|J&>e__$aE4g&s_vbm4{uhj7#^A5HpP_VNEXHmG8Y-0FQoW0e
zVe*|Rz1?5GW4@Rs+U@53<vdm1Znb}Be|`PQ6~s@9)26}z(dYaVuMdl^1dmTqHsy4F
zfl?m%(h%MX<x2tX97ksRZ8p}+HY-UMZrl{sh+!jFONQ-W(K4l;?zI@!;aqPihItwx
z7BhykiSa9&YrtbIE4F?0H_rR``Ns!7VgAd{ZZ5QmFS+QJx@Rf2S>YASKJxanC|Mn`
z7+))S?cT`NDmM`h%>M0%A3x{b*zR-2#Cvth5<HIVR)NXz`OS|e7Yl*`XBCTq-%OqR
zW4i7`0txxU(c-RFz+82)#d_792gELx9Fx1d@!iKH7``8FLPU+(x0~=`&jt0G^cH95
zcv6ENx&*8CxzfR0=+kZ=v#~RLB*N**p!@aJP4l)&eT4Oc=)<|XjZ1DccyV)Xa?g!d
z#UsOQIn!~@oa)P*Dt^n(jUz+a?mC?Ut~9gi+JAiO8QHMLu|^uYqH`Te9uVOygRWH`
zLgfbBM9BDX^*I(T7@#qMwndb3jO{M79p1P(w&(2e!GSlitr5A|pfT>0-ptx>`a*T%
zj%6b^2dn1k-d6T5>;~b*-PRY=HFt_W$0uQqF<^g!Uy*Og31J{*!7vRu_$mkK%e>G}
zzh2+(e)R~16i7O!-HQSK=_uXy&$)nM{PA<{mzuiRH^mX_A_n`W0<-Dz^EG~N4jXWX
za!((+TMKox@|rMhzTsEUjh@da@5G1A^vf6+4>*4Y57)rd4B=?(Z3@(_@mpgGbE~{M
zHq0<WUD5h?cEv=!`!PCcRUy2-vDSyV??nCJP$j|Yrw|<RJa6_vok{n|Ek`B6ZRLp7
zm+5`22}yN~#O(VVPio;QX9@FaN?QF(PIq`D;ry2x9v}EH&G~?Xf1AD(`bDzLnv)c3
z0A+rc+U{!PK*jKRdGXJDvFOXQy`FsjGsn8vec$Cl6(PS?1E(*Vy37wEU0MWlEa^r}
zXu*49O&ag6%K1o2gWHJHj@(ph<`27^<6=7uWw?H;;R^Hwm@*K^QX#$9P{srEX>*+9
zLToNrh4JB~3>0AzHPiPE?Qk4gopB1}{+>gb!g)1qpsUldiLFeAx>|EWWUVNan`l&%
zm6X={{q_zSu|pomkU9M0@;0%G+GD^ry3_IOuDGFeobmkYr!pT0Ll1ASuVe8S-^8eT
zR1@cMIWVUy?P|*jl$Y|6G(A@n%TGynEI2U+rzX?CjXqO?2fe?{h0JSeYPL-mg0oP`
zYkE^Q$y}+g<;ZoIe8=*#dU2$IWI0H~%iEfd7|EyBgRZ%NJzK$8jhvDhj!UeyB#pHb
zv?imq!$x006o0H(%na9AY=Y)H#7pp68%J2UE{dA4G$&eA=mZcgSbf~F3K8_<W1$Ak
zRtXGr*%QKE#>yOg8cn~>o}46`(kqi*Qnn<H3<<@z=}<`{&Bmf}nsQkkA_wuYjf<sU
zpM8Mu!n!Q%(rj~TQ(iSI^*EF#79SfjV;1YB+Qi8x%;18D%dQ|FoLclxfqP^Ql(W1_
z#*&CjOXg+kNlZq=(|g#mUEsc%Y!G860ACDyojQI@se+Aa!uMCsC}mHCMvCM8NS*`!
zHTY7K!dMu~i65>PF`9(dHH5&g9g#T<)Nb{FQJbonGRD$cP8px%tpeY?zOhnJ(cRtg
zq%>`ntKsL@Hy(1B4}B{h%jd799E3Wt4$Ic&xdU)b2{1T^2<2#2Q~W=$yEwNHU4J=X
zmST<*j9K#YJG}KUfopXrB?Z=^95Y$#VVg_5B(tv9Xd$(hy`5&ZItz*SvW>4%Ov-d7
z3?+*ZJ3=klb(*x<DY{ajw3hTwk&Rne$TT{qJ6S)1Q0`k{Nhqh!AvU`0!{yQPdH>H|
z0HQ0(`ho4TmOMCe_8Rkk^zA96Udo!j$0JSn$!r^3KAbrFPVeyl3tjXj4ota>kfx+3
zp32`)Ynq9r-|P=>5ed=J$Mx;}!fH)gX!tahaKWp*X2QV<)Aw4j+tJl_aw!Z+Gkx8a
z{3vO`xq&|k0N?d79GzyUhqBh-X;=XkxP5uubTOYFx;HWUPTukw8X^|T^cOhVBGZH?
zXE8e2YN$=JO%BP;erA}O5Cq>82gl5NV2_L?%rJeq{+z6Xk5%)7F77F-UVj^OWS3qk
z0A+30iu}Gn^!F(}gO03bUShWij_e0{UyD36Qi7Xiw#g1KU}cM8qQ^%@OM}6@{ju}l
zdi3rp!6JQQG&2?s&Ue8-{eT})^jCEAKx{hG1eSj{7apc?#C~^m6Mbhp`=k!Jz{?IB
zu(v#86);UiR3zsiWt>fNHM2M8Kb@|w_k(=#gl|8TVW6chf0O0}5&b9$(yxz}6Eg{u
z#M>vU9@?5!&9G^P)8@K}ljQ8a%z|_oCk8C=Zj;jmh1E+=QogvJ^>2L3=a>0_g_k&s
zrLJwRWbT#im7|)zJFIGV;VhQNSoL{?R0y+Nu;DX~b#9j_Rn`EMV|TJu_bybcR8?2Q
zd$#8aIGUo33v{oT4CMrgqjJLyGtDTNejLxY*&<s`Le`uOT}z>3PKNL!@xWNUi#3j4
zlM_RYelh9f=+ySgfT1&_1$yZIW}L_Lh0Lw${Y{vjn;sut25cd98}!{(C^+3)4=?iY
zX!`?$RtWkM=9Wqv)T{E?cN0AdpXpN2w~Qn6?kraKK1fZ;*wTA305Q6k&sYsEEWrqB
zIxipjLFMrt+aHg2gAFI%+2g1cL65lG?t_;BhfVNK%$Q%{750n3pLG}iMZd3b1&${E
zr;wxnl*b6b<<+^juU_AC7Au{omeO%sf{BysKBPdI<n`t*&pHzFP~g|c`hKn7oT_JN
zj859U($W&b?CKvmICc13q}rN7AMG_rot=K$e~cYL6RTO}`loGTB`r3Wj5ft7!@w*h
z5VQwxG~$RYFoa%*V+RI>5LP`tN;y}+C;hJ4F6VgJI*FDn&ne<cW9?sQ<%_zsVURt|
z(r=@vfvFuF;g(LhGJB&=H(KJ4L92~oB_o=jVh+nSwvULQ%)`upC3RQyTWd9iV#>G<
zV{^I+{z(~ad}o?&9!rbh@mh<qE}Yt0+nOC|HI_sVMum<gx)S3}A~*N8#HN*sc`ZDL
zr!ZJdp_5h{$ZI_pUowacVUB4@La7jAVoJ&hs=2r<<`W06qgE;fJ_9jB?)u%YG3@I!
zc17iYUgD}_M;Jv%cUZ+Ve0_mdmiWrO$1Pn-V47G4nbic3F@Z5sPkd_jKf7P*WQ_k7
zW%<2jwP;IYR2`1k&N%s5IoeT2v6g}eH-tPitlSBLc+EojCUPc#a3Bbkyo`baXU=3Q
z|MYADG4|uhagAw22}>>}+<1S5EDcpW4SnN@6K>bN4+7Q1Gi@y0=F7$XRf%C75U+O4
zu9n(jC{>Mn$`;0)S$1#LYHIG3;g_C#kMSu);gq6q(?sFR5QQ&86ejl!q0G&5P<2?d
zLy!BoS1e6K_C@R5Bt37m3n1KfHj`EzW3tB40@2!d46wO8x$XMKB<Nmg88dyo&7w`#
zSYMuE{G7u1X$p4BL6uJ(tJu|3$B@;?a%pWNGn<OzLXu`*tuv&UVZU>wrsFOf250+p
zeMp6zZc;)v6?q+^aO#RsYsam1*oYP$jb#oCFS)3=HlP@}d1tits|CKL3`eWWxcn6V
zYzi!~+NUErunMEokJ7l`kDpnR2|aMldJ*{p^p+VE+Ht~5E4>Jm7L6zpBl3-j%Qulu
zgkLOGX+JQV#g$?fSY^s((KN6tV^n`t>w?#Z&|=bI5{q^&Vf5v-8Nvc5-*VL}QP8}d
zr_f{={Ht^1{2)EY`z?a#{L5w1@>O-R6hmDo9DSY9!S1T;IUDV~iZ(gRWy6pOQew+j
z3O|upp-9yb=f<dPuqL*s^qun87~C%M#Edq_8@m{>mQMMMK*)k|U-raNQwTQ}tGK0h
z9MTy+yQfa`$oXEArW~>JE@wyUZSAZzoUv!yvT&*4XA?9m*>ECUaHdRaE7N67^m6(?
za0;9m4J(^FF`B1Y0~1$Bo&Zw~#%ic3(`~W9&h4R(O9WZ2vV~S&|1}j_=TEegDOa0x
zUU6?^xz>sME*4z+kwvXI;bYUhVw&X-?b>LxfK;=aIbvYwN}+U>*1vyY5psWZW1}la
z0q^xtgI72)WF-L}tyfw`cXoR&Tl0AyZo$_0KyqL;vbH!RzxHcptg<SL9P(^Rzu95^
z<%2g%m`v$3v1XRX3^mwdIx+@Nd`F|ESZnOS<+83N4arsk+4gA=dg8${thHq~d4>+P
z&%-}*#qX)AhUAwcPH;i$q}|5HE~U%jiRR;e!ak1o<=1_*kEMLDx(P#8O(Vj5)63x)
zWif=>)5U^XR@~xpc62}=8#Cx2<vE1kR`rD1U*^510W;-96I@ckOeU>L*IHREOfe_E
zMOub%Tn%^o^OTExVZ`l|dwk2WVLle9)UxU5RGuR%+cpN+Bz2iM2D*xusqBq!@jY!&
zs+*ziMZeD#>^A)xXQr?5;-XF@s_}04P$t2)G8}z4#eL&nt!SDUY%``%^Ja~=91;;d
zeYMV`3`K$88TMCad?<yTX=Py?Ug@ll-H-b(oH+Kc%GhmbK!(u7jCudj0Y7J7arc~u
zvs#Q{@_8(4XeHCAWKPNJa$C)Tmz9DyDpB9qakXnejy7O2Y@lf>t~J2{pH4$ZbVSFi
z5hi>6*uAwtas#ADN`I`}0$U1aca_m0rizKnQ!`G_a^Ft93wvD6<H|V0;Y4w2Rvq}&
zfaeJEq$yd<qAAPueP!i}<*_K`hu;xzwRq2Vh3nLPVg}RaDp1)ISiYzMD8+sk(}w<4
zoN<6Bb-M2(pLfUr^Gc*;i&{EL8k?!s>Lr3wF&Q`IVxxSy6MEd9*h#YsA?XwxtZIL8
zi;g@e1qp+ZGe?Z+1CELz1*&JDl$QL-Gk9tWfU%e}h{9l((r(3)N({SQ5LBPnalu0x
zO|lW#-4q#Xh5ki<$bS2O(s!Pzv|4_~Mp?5;93nZ5D3=IUqj%ehPCe4t+w6h@v3<2%
zM_q9GE9iJU6v6OuI4dE$i6b9_KwY1+{9%K>k5_I6Z<q%(J5J9hqJp(^qB}N)fpPyf
zrv0HcY>`Q`U}qH#aS+NkQ_j>F$9XWoOU|<jHuTj&6X;s*y{j${0m##B_-dLfUyk##
zW40BS+V%3Cd?in03a+N<s8OSNG~T?6wLDxJ)1UEGB6zKQCtvh;uRRAzU-;F?Vd44p
zhSQ}W4yMEsoO9csjcqOSkLT~8jDn`@YW*RdBhuoQI~~x;P3luWO{_7w=a-e#>`tYt
zAVl)9lLu-U<g&xI*+zSah*fuKWf7YY9l#*x{bos`Tzc(TMy>TxwB+2kg*bbgKIj~U
z#8}J#7A;o-bUw$1uJ7?q-tB>YinSG<744uGd<Q()z^WuKrJSm;<=5D0i%<F@l@T~T
z%p{@?MZIQ!sGgry2~|Hu@@lyJPqhSmp39XU=ewa?2-<>m<VU(;IJ0S>bOt^o8+(Z~
z-gqzt{}^}L$Z;NYZHu)qU3i)xqN79Aa#>045O604E2jfk`7ff<hR(%D%vANRCSci5
z^sT8RNeuopywO{6#Ip>Z&NSX~$eQc3KAkJpAd7v+{Y_hWtPBmcX}YCIr}^ews5PbN
zy5I8=E4edb58J(t$=_y!tbA7|AiWqK{{HZjFkzkF!|Uol^0_NceUb|V5(Ej(S2?cs
zoJjKA2NSz{_yml687qvXFZ!<+VU~Heov;#j*S6B9sCaRvPiSG{_z*6=c(sIk$N%`B
z|NVbGF4sbVg#rr&778pBSSYYiV4=W5frSDK1r`b{6j&&*P++0JLV<+>3k4PmEEHHM
zuux#3z(RqA0t*Ee3M>>@D6mjqp}<0cg#rr&778pBSSYYiV4=W5frSDK1r`b{6j&&*
zP++0JLV<+>3k4PmEEHHMuux#3z(RqA0t*Ee3M>>@D6mjqp}<0cg#rr&778pBSSYYi
zV4=W5frSDK1r`b{6j&&*P++0JLV<+>|85FAeEs_Sc^<w#K5!|4Zu~twW^!V9)IX&l
zhDVZ<f*)Wy8BatJ61jO4C?{3QN=#~!D4T91R(2i;P`FDVK;`HHfTL6%#kd0eDu%zW
zDo{xPqgUg?Ltasc@gRhx%1$xPR5^K7jDST|hz6QbS8A132=WwUB9J(vBfxr0TC~)e
zRfr2SVec$PGt(<X_;3-dpOY(M0B;O+Hx!rXghJi_=WLlLL)%*=kA$jJgs4=Pp8=;o
zqM8aNJ+)LtdG$}S0&xwSh^%Tv3Cdn&&7cj`uv?fi*Oi4n!HX1vq{#mtS1YEGkdP?c
zA!^q@LZ;>aHnP7P9Zd}AC;5W-3Vccd-u3^8%*w0u;z?&HpvoSXvF9;r=fc#+$|qKJ
zfRV^2KWE<hX;BdnuhI1~iBTmyqTGDoDs1`5Qv9y;Nob{=^C`13C{Q=OI%B>mM4idW
zDvjQhGP0_j#HG3`Oc5^2VZN!x%Hf(9VtQ9d{P{(hpI(M|66g{l<Rrb3I7xZ(a+22A
z3uPgoJNQ{ZiW+f|*;$M^K}zN@Jx7HbZmwUjY}G!qJ2#M&DQhZFg2ZJyx%-Qkgoge}
zkO~<SEde-rP&n~&NXm|Q7Qo0DN!)D7210>&Zj|7f9)VG)iWL|`Xo<;VTwOs@CB{mp
z2<3=u%KG$j9Tcw$8;nx42cAgLLR7FCL)GRojv@w+`irc`kPJwv16w7Suf&R+Dm%*b
zk3#C2pDN@}e#v0^aC0Mpn*RxJ{m<%{maSM*$@u>X^goQQIy^}v3Q{E@#xJFqSi;Je
z=*Z;=Q&)I$#r^a#!*cMdDz(&#j#}^(Mfx5$gHq{waElu$Ar}8L0Y6GYxKq}vLS2zc
zR<ZRS*^Iy(r5tmDDqYACI#XO#fdb+qQHMDGgf^Gah){4hf1iNNaz((*Ji}Gd2~7|D
zQ)?*5kYN=b^k10io|k|*qu&b!UdZk?3;+Q~?HkBO>Vg>kO0iDi$mO<BV4=W5frSDK
z1r`b{6j&&*P~iVP1&&qQXQhSqs$eO=R)SL#c8qk}(r*2rM7}aD&khj;U6ENy^QBTJ
zpahn085w2h?r7(XC<QfGDl1;APz6M&9|CyfG%^)$5Xw{!3BY*`G?KgIR-ekPGWB2i
z^<y}GkD~HjFT%k2{dAPYDHR*JeGhQDA73sd12S0#9mgE!FnST-B)^lcm3fr@6wFDf
zfhj?A={zYkYk8EnKu1#DGt+SzJwFdVO5yltDV_zK=J>z**2-!R#z|$kil)hN+`q5%
zKgjv*sH4!M$3%yaqPs(c<lHvVP*3nnAV=8>Y_e(rdXn$xwK5z92@hQ-LG@Ba#yg1|
zAQp1Sajui3M+lMdIrNCnECR)2z2#$MdRn9t<t;K8R6H7|0CW<N;eY(|%^c4$KLPTs
zJb|(9{v*9p=~jOkLVQ))kGfTI#{>)qMbr_j7U~!krMz7E?!18l_q-Gt|0AuEA7#xz
z1sz?=J409Y7VRekR3g0{M`e)9sHkI5O6`Bj6n~j)F5w6dKSqAvXQWONMP7l6g5zm^
zp5rs75;%ji`F0$fp%D}SvZfCD9ZY6efAVBP)lDR6l=DlVV@d^`2vE7-!0=BBdJ=t7
zlR1vk6MB`&y8;8RysLPpR3cq*_v6#sT#zz3wxyn54J{%IrrwSd_@!la+Q<-(zaKLv
zJ$`a}-R6uu%`bCIgv~KdmK1>u1yn?e=cr63tLXZ58t00vEq^5_C?JzGPPFEt<|N7#
zz$$xSkp&3LNK%=NRYG=_DxU<-sxlS!aKGFAcC-6!x7*#^?00)E-}d`NXTQJMKkoO}
zkNcZP9&Y%zfBcPqygXh9>;Uzf^5`NQFn)Bg_xmVxzdIc6RO;RR!y{pF)o;GulOW+J
z<fDV{G7{Kx-2U<AMgjZBJHZGzM4JZpnM2^7UaBNvhEz{?_mq*;+aFqv!{h$$ksGOr
z6d8;{!Q2b_ty14T06@w3Q<*IV`Qur4mlp4W1`VpHNCUAA>|jhNa({PsI2<1C?g@ct
zkN0;6%8BTQySvAo+E{fz9PS@PTuOd;yc0IcK{g@}yb}r_O1r-!AOC^+AaI8VH40CZ
zW;)*9DgPb00Kn~@((iV6dQvk`sBoqb-yR^e%Zv)RZh8mU<2@xf#{sO#sPYvQ$mw;@
zACT36YA|Kvx>r^CdpLj-mm(-MDoN&t-2u8d(DfsSDoADa5BGc3d=F5;KfvD9EGj@f
zRA2tz6InlmIxi4SH6^%LR#Dx_fOmICn?eM=(~5#X{e&4M5JFO;uet#oM2wMMM8-X@
zq!!5mMOFo>f>0Sm?;iH|kN5PFduOIF5|V~;Ak5)WH6cHN0zf_aCvxa%4`s=#JgS=@
z(?$e|Xa{=r4q~aDm0qn8jlzqOxCb@YQxVGH1OiRv#2=IkINB04dC|L(RJ4dd4Zwm}
zF^}$Cfr%&vrYh59qLyw+Wu!6`{3!M`QYr<6K|nMWlbILwDwa_`Ah{A?z;)O`0oWTl
z@}`XZS33(K0i)X~6P=9KdwigystKJ{l~82lM0&V%aua6ORzf17zu1xv9f$#&s)}%A
zfpyiy6afR=b5olTPeTzcdeCL4#67I=NE-<|a=_{2qR$CYV@NJ8qQr8--}gPR;4Q%I
zq1&xUtsX!Y;i7x|sUmg3OT?)&Cv1{bt({(sN|1WB0I043R=*Fs+glR}V(m>m1wwN@
z9}pg3vQx<tLoR>*X&AsgqT(HC)q&h8D3O*1IjCd?Q$=`0V7X<LnH)k4JjBgJ?_7+6
zt0>h9LJBwaI3l<JLGy44F%>5;;Gl*V*6=N1;xei%EP^zU#eEC13kljz1QuAp1Qa0B
z7Q{j!BF*ON2QHHks;AVC5N*cLA$0>R(wWgg90nT-3-v=_P{d(JfwZsq^Bz_K8cmS2
zRc$C;KQ2Z+6xjf6l_&Z-58^2#q{Nee@grU`7fRI7J!m(8eCu*=53+%mQuqgqB;tUj
z7MFk)!NE&13g8r%oGOL~1Ci1^E0Pdqy6RCa2X%oZ<ebv9c1gN1BIxIL@QbcU1>6qm
z!W3`8ES`h~kd_*gxgaKYxJDf>1Qji<c2gPZSt?9rslceL_=MI)G!o}hjK{qi-#nD{
z6;}w53K6%dCWtMwlG>K+kY9aYN{t8sa`1-Qf$}u$kyk;&$P6Ti>K{O(bfTltMJZ~f
zArWCEY>bgHR%01=hng{j_annUH{nO)s2ON0;Rh-(S>zz2z|skXl{kVF!jr5nfdq&s
zK^70j|0rLzRo@UWZu|wIHI^%3P?ZP7p8y2ff?&YBM)!1DsXo6Yd|F;%cSowHN2<N=
zJH(7Zppxz$cf0Gy-OU3JH~iZ@Q9VT&3jT)b8C4L&ay{;D)nQ3W=dmgm_!h2$K^zId
zGOve^2CZC<Ml8ky@y}FGl}1)KC3JTNfzyLu5-7b%CAbtlnFS=}#Cd`dQbmtaJs~)W
z%<8FnsvrYoP=^6kf<_HNlsZ{usyIpUXcygGZe)c5$Es(f3DuJxA(042Jiv%tj1^{G
zF|(P->`I@aMMx+ffVr$Jijzr2F8~ItCOJ+X;2}#yJn<ksMNsJtgi!`nmsF9)Lv^G-
zNYqG@Ai^|`qIG#(r_#z#O(;agdL)gGD1rp7r8>H&2{+~7lH$N6HU$S)hgbD9`l`FF
zIF$@!wM-Ms2OV5Pnm{#BS2)~T^%NxaXk{YIwap%gLIzmTPD-;n<sDf($SXqsbxA&m
zw$2-=9gINdSLyZ2MVYkX-K_$^L(o-m*hPw$daOvOo+kkbR9YR(jFLuRO9ZOJBPm6F
zmkEvZ2>cx+puv<^I6-3x3aBIT2<0?D!G>0Hpq>&@n$QBYgtMiJVM!>!fa2y<J!y4d
zLO$`B(B=os$pZxPi!R7lwWkMl5!3<){Dg^ya1{!80A&rupwxtSax0EjBUUUIXc#(i
z6vicnM7P$Z29}VeV~9v1nnjwqhj(=kGFu6u6bcmcl3&BHSXL?aR_w%-W;>w_nT-i`
zpmy|Og5cs(J*lNqsk74#pv0Ss+#4(u5g~;L4Xqm`O7)~u6D-nDR~klw9C}EX5YthF
zTETrpzobFK=0Qv<nz(_;1$JZ?*MNpuOBJLn4;jiTM&ll(C^0gHJKb=9OEOUcyueru
z=%(aF70MgPtIjHm(gj;_6sb(Au<5UAQ-ng)jm=-Aqai}|ga}gaOk_w;6G<8(2H|{E
z5J5C-@^T4myT~b4RFVUgN3yt6P@*dB+SBeN7Z35I_7E(fP(NzHi}-~{N>VYd4A?~x
z#EIWUcwwXq^ex57s(KL+^<&uew4RnCOhS-az;ECu(ojD2QP-th^->VzKQM)gpdixR
ztDw60l~|IJgcRf;kz}c^+govTV5o+m_T2SHt{p$O@Pj)rBqfNBK=mO0j^ZH-)$zn$
z1V;=Axqv`<qPFA>EJxwGME&3qB#0_+sjVR1;1+RD-a`1mG)A*-GciFL_)(lnRh5ZV
zez*fF_$gISFpb_7g9=fJ4?O?|*1Nk0+{|-4nz_{(g`CJNgsl&`8>$4A>KcRIGd$J8
z8n9?|M3k61YG(e051=C0aG9Y1hopr0p@llA+AV6qJ2(iuNYACRcoG9z%L8YsZW@3m
z0Mw#LE2`*fsTlw!pdzZ+TMW&`Tn#V);vWp6hq_!U2#eW8N~DWwp=K66)W4;d0Y|tA
zn5qajsG~uDk;aV%x};DlBQDh3yFud-1kCV2k{p4V=p15P@sa8x{2&Rz$fY13Kk5Zh
z1(iU-7JcrULWIkrgI~8YFRD774F!SX)seCnDLemZd_$5vq%tB{zDwpnTnMNBBGuDT
HhsXa7`_CEd
literal 0
HcmV?d00001
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
GIT binary patch
literal 20
QcmezW|NlP*2vCR7082jvN&o-=
literal 0
HcmV?d00001
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
GIT binary patch
literal 41
ncmezW|NmbG2FCc`m!6(rU|<jiVn(L;Oa=z7>i<x{2%;GQlC%{r
literal 0
HcmV?d00001
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
GIT binary patch
literal 363
zcmcD&o+B>qQ<|KbmuhO@oS$2eUz(TVnpaYknOe*M1ZqDkH|K6>+GzQ4qN32epMM#+
z`QxF=P2vsoQp$2cs(?TbLNNxz<qbgc`N>f6MhNZ0fFfU#3DxflmH(fQB43aXb_D~Y
z&j*P9a#t3;ys{K9hw+FhM3Ct`i(Xnv1w`;T3q+712W}F?rBF@B3!w6o;qoAtmSjT2
z8BZ`n<k`Q23@w2edj1!L_7MVE4{<ZI3=h<#O+b}-Fu{EgK~CiZ8k1i@6)^a3ygMBL
DsLxMC
literal 0
HcmV?d00001
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
GIT binary patch
literal 206321
zcmcG%YiuN0mfsg~AMwan<b#hSlgUSsEEbE!D!w1ZuCAHsnVqiL?e6XE=^f9GcIhlK
zip;HKCMz>pU7Sz5UdYDU`XUIh7m(JrU|1idFBS%ES>730l3~a&pl%p~A;^XS?+34C
z7}i>b1z{iz<lniGtg4ySuCWG`WXAKxjeE~MkN-L6M&#pv*qI#rg{zaao9=GB*Somv
zU3E{t-Ws+%KDU2-{ez4D?BDw9hyV1?FI4}-AOFOAOzEjn>7B3lPJX%7xk?8gq{G(f
zA9G3Wru6ZKRo3_Z<>(WJzTAP&q4i!L&5n3qd1tiY-4y!ys;a)Z*qArR|H#E3{gI1*
zC8u(}e{*LW=~3;!GFo4hZ_a(?zx%6y?PqWOBKJpb@#6I@)Ts1tRXlT3$<3j69{*oA
zb-DF#NrB{V-}wvw_~!80A3i9)P122D><xzP?%Ciw{q`{JLtrWSv!ifB(v9N{HNT)1
zjSa#m&gBcmQc|u|Yh&XRll7_T#!Pc|F4g=gmFiQ)QmN;*=l(oj`MwI2uOc?A|JFxw
z!1(^MJ4AtO%?713|JebKj?QH36;32`CamOjF|>X_4etDmuc!QSG!t`y4gz0B!uq*@
z$|(B!K$-m+e`$Qizw18;Zo7NFz6CWYZp+Qzy8EcesDU$FJy~%@R=7dEIa$rm_~DFS
z&Tgo4<=J>8E~|>4Q(@Kj!=m!#?$R#n|J07u9EY?)n^;-twY#_Lj`fXF)6tk;E`-%;
zwICEUfvaOg93#Yog048XjOlPN5r<hjLJkL!_Cp&|u$l8h<q9~8Nhji(@6R@>RVdL6
zs?`~P+E>d`;nMihxX@)qEsZC|dNsG@d$UcUxmB|h;i6wqJAo>en*K(Pku`T@pejiv
z?}u?1u7|W}PCBbX8p=^$S1f(eGE7>9GU`yo?fQmJSMSUi-I$=HvSq81*hFDu%FWPS
zPzu6T6RH(z^!!p0dP>#u)mi_esW6uxGhubo1bI3PnZhXW!__$Qby0KUVyu#)-}IoM
zQW0&|GQh49S!a89<%lX4qcJsGTq-rW6Ezvyt6^L%l$Qc-gvx~(1^YmxLb#8*u+x))
zAHZ3jHm=b*NHyj)XN#(-8*vf#ujzsesOvjapz+kMtX`6eRlJh(t5ZwkML*O!R(YY6
zE>2ZuEBPH*$Bz4<E0<Maim?tS=f{#H@lBkRd{wsFlQ~r`O!zvEq>Yn7R4>rHVi+SY
z)L5?Eneja{M&HLhj#wEUZYFo9&02XY+K;N$plI_s?U#fTw26|^BxR^rXjZ2>ErXqX
z<XX7$=94w>HC6qj7)`1zn^fvt&t3AlePeej`KYELXM~XF{76TUiMA)>VriyslTvfX
zDm6jHRa#{CEQ8LN7F5ngM%NiS>dD13vXZYg@UdeEKTjw2&0WR4#u&6DN~$F_-Hi2;
zW20hO#uH(o!Mdi6)?;qK!)(dHxTuSaZ=qQ-raor4onENX2yPQZEVV8uC<Paq=42R0
zg|L8Jsb;e{4;6G|cEVkQA}E`=nH`PB8LvlW6WA&;$#@5$k=FaR82S-yo%Saf0(z;m
zrG;#ixKpSmC&Sg5s0_86G*s?a$-`_1esfYpY1;R9jGr)k47FM_RVt-wq^Wu<h~vOS
zHGg0EQS9H6J}Go$In2#ENii^7riQ2%!zLfdsEl5g9dpkwHo~gS>57>fpQDKlxg)BJ
zGO=%TfFMvQ)!xWnrQjERIZu~dv78!5H$>)vzpKL9m^JarQaRE2NXj7Jx+z;VG^np9
zOte(qQA<@l>05eJ6rC}q{q4J2Y{rC!3=qbr=V2}~HHL&ns92dY(siJxO~W(rinbic
zm>`T)s8O<_1q^Mn6s)3XToXeyPu6Kl1W+$vKm)xJ`H4RnswmPh&g%j>IUW1qT&#k*
z+HD`^mp+L8W`UB7ivF^EZ>YS^fK?LMED4P+7tsfh%F+<J@V5FlsAI8NXbShCK1)dz
zltYy$os@QLQm*QmI$T8+loCxY6qgSw4PHb?1<-6PRy#Hx*VUj}P)(yJuxfL0LoD1z
zteQDLzhf81kO?P%3-#Hi534N4K`|<6wB$Mk-N#TJcPUz%r<Z7(We#goSqvC+KUY%|
z*fF?M%2OL`6i|F8tmTX4va4Jq{OzyG)X+$`x|>LqStn-vSzYr=!Hk-KI;xVG2cbec
zXJ@6{>kAZGO1jU7_T`O&e{x2nCU%UcVSYzNw{U|zDyob3%|wL@Eh3bN<wP~3)@Zpa
z`$maL4eoX-Uto<)LYW|#se9;cZPBU1mep$P2X?7!v5jsqp7@R*3_Ju?R3gS}jMmLb
zOEIo-Rd`8SfQfgk=8DPA*v%OgkAV{WxoD<VSmrwP?PwK+ab0u*P-Oz!XZC!9YGyZH
zLD1BUjmpAaA|3D&G}JZ7hZc~#yB@(A$y$a<^07i+VU|VqU?|tF5kHM+Ega}-lL~G=
z)Xsl-A}Kxe%f%@yeL*^eagdu>)%1fgxF3iC`^5ZlQZzxmP_S|<E})REyZVqlOo*$I
zeK!d1_^1I{8AwDY=^(q#R=T3}4ARSAHUcxgO{)2LC2`uB4vDx|4fqGWsXP<|tiX7|
zDgKldwSmYX@1y&<6?>3Rw1;nsyS|<0EUE=X?rwc!?qLA0NO#dH^b^Han6Vi$sGG@|
zDPuO`+kUf==-dP-C96WJR=FI54Ct7YA@b`H2EG}LQ4YPQr{QWOune&xqtF+o8Hh@x
z=%K2DDy6kF56CRrP=(J;^PK^n(uoRlIUo94wF{|CKA+12z@(84r)2$V8I6mT30D_l
z7y%1{PTICKZ*``LW)DDR6OkD+Wvj=HnFfG5OT=w)nS6$~XyzKtl0ppvP@JJe0ZUt!
z%3+b-GUhUnDp!oKZ-o#MmVJ%{3cON?@A{=ZKe>l=FlLij00Dzwsu4C9^Pcr<W=`q6
zG&d9CSVo6avtSbC@4-`JSYL+I&ldz0b81?ng6J;Psmxldie;f0vdh={F)RVhu%0fW
zi8Dbl6Ac-}>=qdskhTglLcoWZ8NmjOJVt?|76FfD#5%^(%%BLuUg6f*Z*8h}%%2@?
z)uSm#n`nYQP9U(XJSf7jX^om>4ON=dT`<K6F``|9jAcMoNeLj33Y&hzRTDOSc*!s9
z`w<qQ0zi<G<&qy;)d&&$oL`B`%}GJ<ehm<UPKp}^lT@cNm{f^W0$O5JxQWi{^a~Z}
z9v9JBjM3{2gd?GAqT+6Jk|-#^7c>bY7_)5DcCe>ZIcI?d(iBV8nI}g_ihJB+-(>bW
zm{9(d3=2Hi^vBT<jY(?aDv`vW5kQXdaZH^Jy})|8ITdo;T_(239esNt90uqMLhSi6
z+qh13S_@*tajA!_(K|&aJ!KhBX|xO=A9uHGQ<m8f_{B^?p$9B=WG4dDE$wi-I5=|8
zU}-#~rPA{m*oljYAOSuIBSpYrB3=GW6bDgYFy;#tQ7{oCaF(yy)TXS$RRL`j1hpug
zGa?hnIi3(`ZbnQLN~4I|QDaOnPGU(>6^xK$DT|PUh~L68;wcK2fmYBh%1g(<XtYRS
ziLhOu{&3u%w5aJZaHeW#tmgs{!!{>pq6!kk_!w=mVVGftBbTSqG7f;<*sL~#aa}+F
zfE{6m!G$0Kypfh551W_*cyh*RD?e{<a}F)$lo6n+UKlTDg0~9*oP>QLl7($n^8vh+
zM0lD0B=#Bf?a!18Q7Q5lYIeuYK^h10A%q%7F5OMVWkjPy<IqiLBkhEseBexakhM)X
zN4!o`$W`(RtlbPesEsQ&l02w}A}feV(VN=rn;6N5QNX#572Vi-@Di1BICM6I;Y^AX
zc&B!uUdOAHu@fef5^{kxC}otf1CoUz*lcDz!f4}b*9Z~R183E!G6wcblf@j1)<wd#
znnr<gbG$-^5MxVA)q)0bA_y4_7movoLc^g3h}G9+H|{e&zEjPa2I-b~*U}*QbHgMD
z1KlX>ggfEF^ujbZ$7pj<C?-W5DtP-S6^stfhQ(lE3<I@H!32ted9-W2Tqy=q)+{Y3
zUGTB89#AmwCm^jNumN||1qz{^StdnHL6zRc3hBwj-c=+6qbfDI4UR=H+jt<Zzki6U
zV<&eYmp2*Ud4b7i(dltcm+{pYc@%I668G~ojS<HZ6e05z)zlboAs&cU;q*?)cU)QG
z1*VkG0GtFU&~AeAVNJZiOw@v<GGdFV4tD&?D&datm@tNrmUh7B0479J2%-E&%q>D$
z;&%B#&h5_lLDhugV|ijIcfF<{4K<zI+wsj^!37YvC_xFZOSVSw(E&M<6L39KEF!3G
z7@?aqRb0g>6&9CjRq$L<hf~2;JR86^yMa?oxiE9H{BnqwPdC&8%@L`=qxAQL{`tJC
zilZh(AnFJdhwFu0F-b}?a(}Yg^@_Ow;v(11#hL`RL<S>IEpy{J|CW!wvkOz`6-E4p
z&{b3Z8Z00lILF$uhro-xKqsg5*q}0T<BhIl{h)Djl$F>{^tY5Il!206Q^bi77h~sU
zT{ZK70|U{T^dq}UD`c_?8*quO`(}cXtrhf?nm`8Ss0^_vND(e1-Z7m};pW4zDrhqq
z0M*Q-kWtRu3Gaj}#vPR1n*bn3AgMcG)t%6qv6`R5-^i&+Dqd$K5$T)~?I*XElG&}?
z5-#<cITJ<RUA-Kl#PzDatJj*1$pBb}A!)+@6KX1WP{0KH&Tj)J5Cwqk3;5O;AQyol
zp2502mh4eKFirrms3p0f7}Sg!IU$X>zQT4U#!v`)$Q&$sYrrRvLr+XY^->h-ah(JD
zj$zY^;^j~HD^&)TN;K*|>xXNAsO3VqiXUBHDxhy?>jsmmv`3WDscafqRt1cv#l4r2
z=R>?xP~*5C)og?7Ba@Uyg$WE{;7|;sk*CoFTSU)+bc`V$lq2}If1`pR6iPvtBz`Kb
zBKpIwUtZK^4-Vb2y8$xZoK<$JtZ;$lw$4)F1Mh*l;0Ots(N&=n0u@0OT3N_NHI<aY
zP_hZsI|6NnW)gA`!{b^Y$Vn*&RQ+&D+CVV4F3MFAw?gBUL|mHVBELjj1IB>6H)o1T
z<RmAAlc6YqDfo_>#W?cG`tFDTpHBFbc(8JYkru=tqsGWev)B+O_RC{o1>+-D;LxA3
z6~HT!!F4j)x2t}VO!?u2(IJw9@+pa`E{KeT%|fJ;>P%yqq5uf=1!D#9#p$p4IF1rV
z705yKTDVUUVx}iVuH9-T8b|L{o0N@{wehH!X#~L(aOw^V`KT??Z-TC6hb93NeFHAQ
zJm#Qffmq(s_-qrv0&dhZ2~E&ycBUTa+87aHUjRC|CEN)-M`Twi3r98Ck&iR}nJS?A
z9f=vDi5O!E$RPH3HM148ktG_7W@+FO&_@_m=zwm_g44A?S>Rs@(#a5q0Rp4^gcgR|
z&I&TRB1a-xoDoB9)WQ^u^slmLJBDZl4JaExC3s(915_;0cOOmZcmTgp_}zC=fZGC|
z!ZCjw*DhH`f19zX9k~%o(j_-Cw($)BKg7avBBwBQC>x2_Y21ApCg74&bsJ1Hk(M=-
z`z=hGMO~Ru=yS)+7*927l{`8+0y6V4pb<txLJfR`39~I<tw69aS74w8FY6f}16x#e
z&QrolkV*SE000$|BNIXW)(sGodc_cBqb32YXeQ^c3OcNnZ?YA_dgYowGiIXPQeifT
zD&lTYHO3U7bnP${Af7M&9i|~LM9E#9a)S|HjT$TaP){m#<K@SVxPk8m0;B#}G1ZmD
z$|C-p#Ixa3{Kr65gCH0OtX2z>0jcIWDS<mV%Mg?M2$Ev8P|Zo?VMZ9|O;}HE6g&8(
zayWfN_{t$E8zK}rV)d{n_Xx(-q_s_&F5q2SDk3l<i&$y#vKf3<fvy%nmv=+r(3mpR
zrh-MtomhI0gc2vlS{OV+f}wC-QXo)eYQ<<>%_5yR8O@16O^}Cqyif;q6|0Qsp;Cu>
z-i9Cxt{$^sQ1laFz}E)|@5+HgeLxHO#Hh7ctrd!D+x!~{DM9;xU#ZW1H6LiRqyA&x
z+L8g3<PP<rUY<|~gfICn7_67L5h@CIYacDxMY@nIW8RVmE#`K_WNNBGxKrgo$_)y?
zb(H4G(P=u^F!&<mt&|oeOn}Z3Sznk+mY0{OisDrf4~&Y4lv4R(R8ckBs4;2DghY00
zACbxpQM@RZs=_{uNq9Ji#VbkFgCK=6r7&L#j>Z#P8zbDR3p6?`O84bkThV%X393Cb
z#pUHgrRS#gl7#P|tDUyC7%$EpEhHpU9^WFI&A?lzWLejU>)=r7Vg<@1bG5jVBywUg
z`6RI)ia~BRpim+<gm1F8T2f2uKE5`60ahl-Cx>?VQ1ptnc--Z1g5V74JdB8p9)(~?
z^Qm0_sBzRFGH(+^x2)zVf#36~{(!dY2StgSgt2SXjLuvC=pEB|9IjZa<8pR=?L)P^
zJssXRxAde@`MWfy=-L%GYGLwV97M;U);`j*^5az-#x=S*2JIl3*f`-y{ZXiwmmB%X
zCyg-T0H}dXmMsQ(Bm$ixfl>-GR%UM6ROS{JCo7>2n?kX1T`2=B>^kaq#okgA%0zQz
zxNXCh)wr~!cF0n?EgvJStS8ils@NS<S5F*ib+{to|M1&cAxeFlCS+}EEI@6ja@36D
z&D9MR=A|VCU4a=i(pINmwbhcIYJ62!Vus$9)M2<;Rtx!MShFz;I2Dg=$MwKWh*_`T
z-*Z1hFxEbJkbH8WDn~k8bey-DSL%qwU#(V95iVMVh>D&vK{Eb`5#-*nMRt(_f)#VB
zk}-UwB3RRe6!<vSjc+XH#{=%Oqi!hz0*s>@l{hR;z!EwRYuaug{ZV$j64U0}r8}zj
z(E&Hm;ri4Atjec?6Of(t@W50`YK(r|MnhC=&BhD6u^(|JAKx*zm9$(n<C40|nn57$
z#f8!W`4~JT@C@=5+NA=7(IrjrI=n+CIKv59K&x@Pq!u4<PE7}}?o9AKy*M{duntd&
zq}3ZSpME3!dNMCm5~&ehSH<}#0pF{IWdqhK;Vj!4l8u<778>9Iy{C@o{+{}X-qebX
zGRjdtbye023|^@7#YsJ;SM2&ShwW`es%T-s5#Epws#xqhw+j?Wb<#<2MyL<%;#`af
z6Xk$?0nr#iW9^8w8k2Z~QAKOYZ~>}VH*~zd$gOUhcwTuygW=<hj$-^aWCD?cC;&zE
zfFK7>9#-ppyHs7u&#GxKn${6$ac%-0{#Y7Wt1ZD0v$51t)wVcgP~{9l&DvRGYpaVw
z-2=5Ut7@Ce%gAiLGSA4P6;`-w4I_idZEBko7&XWpi5ox@vJauVdqIp5fZrY!Z-GfG
zdb|>EZf+hSbD~v38=GQSF*zDQKO!p<%o(bsw|t23aDsjy(TqwxK;=)?KAJ=4aRRrX
z66ia&R>iUqcMEsPp42Ldr~<A?sP532AYTTpu25OjycyR%(6hvj$4v5x-knv=s`^kJ
z73acn7&uHS&2WL@w+Lt=GAb(A0+L0JQ!&=?BxbR0^mZtWJ&yAfPfo5SpS)MoN3=5^
zS`AY(qU)8-aIIqK+af9nIi7LSc{IZ?*FJJe6k*jOjU!4nDt1~=VZMa|n^T`^J2!cR
z8jBfzMsh5H^xU054?|c}subHtm3TFr8-s;JO%MPtmY`z-$r%MPtBa2wGGV2baGT8b
ztSqeP0?9&U<MmpI@}-AhO>BA2R0^0s^=-8&VSZJuQ`aF1Fb=EIO7|&{N2r<)L-}$`
zrPjiDGv2JY{@mC32YJ6SD*^F9hlxG1Sf_gi-h}fv<0Ji0=?$G&oN_S^^CW8QKGwT(
zv{KtMQ*+BB6>QYLtMDkv$1xl!Y4AFg!l~#6ICXggW{H=_bRKJ9bS@}K{?ouIs0)mD
zA`wLt$vw;~1b`Ec0FnU`52xy}DYZbb6W$`_P36!Eb%G6_o8a;i<PPKFv{f?%O6BHK
zL=+AXMX*(Jg#OvA*dyp`Rf!hNg5h)K5fOktqrS>S3NB#W--%11m=!S&)bN$esvPP$
z3x|q$CNcW4R;)1jLoLodB+jXmPaZ<=ExGN~@;LVs{e`k<K(rN@9@2)nK)9Z6BQ#R8
zED@5t*yE+ZhWDvEgl}rg%NWk&F7kOtY)13F5K@CBEG0p=i1CCP7Y&T;#I>VhSXV2x
zug<GY7=IqQN5_p%uD+v+%N1Io^E%wp6+a|zW2e<)=4faehnQ}=Xm=tansxL_VkMzX
zozg>qKf^412(H0`+M^=iA{-~}Q$YP86<k~^hGQruxK~aVv5cgKlwPUCdEqcE_pOaD
zPS$SIQ;vdtsB}$G3hoW2oS-7nX*H!AxZ6c%urdv53#w8{<_%;78q<bGfgq?>^JuEC
zV{#ZeB889bShX0KJv|kmWg?iqg13$UF@!3r6E0>zIm*<Mo1^(Uf`O_-15JUDvVo-~
z%gp>x{$X6RAwem9Tg^=e`3FiZ>u@5N=57rb5txOPJSZ+cepCb-BxOJ;$O1uYEHqJ|
z+Yn_1-tsk$AKwS)_2vYC5MipS#(YLzNE+@I?HYOj<ITNEn~2@iIVdU2I&1f<&}8v8
zithkW2;B3J?C#t>J$GNvHOF9)IU<CK(KCcrir9;BKmn8Ow0c+<&fd03W0_GSbpNOT
zwqvLcvF58d0csx03i!}-Giv!ESY_^0OZ!D?Le*r_4eiLpCX+0`F<xA7dhsFF-c|KI
zRO~|8B9>}BpFadzxWi%#nO0zv{dFL2{xRT}5{z!974t;aps|V917Ithf|^0klPZ8o
z$^~VPibqTOX!&SK<>S@cG!SW5cG6aXv5-hOE(|qs4;)TRaPUx#N5RLX-~of1d=jt2
zjhJ?=cZs6IPFhuqVw5oivm|a&n%t0}iEC8;K6*DVAQH@8GH7n6)ADoidJ=}4=tjFM
zHaKr9c2bA&6csW;hOCAzsb5mHxy^WegYf?$yK?RO>d0aQiYs}r=Ex2ZUminE)xqPi
z<Lgg;s-)_swo<9<PtmFcwK%EmJ9@!BTC?DPEt;0j78e3_M-`{20v*##l04JZ7+YvT
zP7p$fe1-YN;$*Co?FF2Rz%=XV4hw+cTv0&aVW!>RAumWTNH!>o%AzM^KpAP~(ZLCx
zAfPah2MC{_@CD3(cx<TSh1CPa2+vI`#(ZurS&ze{VayD0=13<;sC}UZq(x5jZ38Jq
zfi=QPJ)nSS2=R$@wmhr|u3bLTD~?~5$7vvv!!!XICJM7(sSrvjj1zSVLLdW2@^(Kw
zT(OUe_tdJ)kaYSH_fBvJV+nsD%(BU$3c61(Ok->pL6%I(QB(Wee#Jj3>Ucwx+LCaO
zGzr{8rx?0f)G~vsaG)t43es!7CG*QmCTqQG^Q<8ilB{Y*DqcO%`sb-BWB&L7aurVL
z6`VH=X1;jD3Hyz*it`gRIg^}2vTSO9aT0roJrf;-1i+LGiThyx$EQ{pl2EUU92OA^
zdWSr&VBKH}RVJjGV5V|-A`j~K@Z!dAW8q8Mj-g8hV^~na;T>HWe^S?vinWhwABEd6
z(+Y03#0A8WAdO3Z3*1-~P(&z0-A07~Ajl*v)ZzQuer@0G5Pv(=n~{NK9zB_=ePl_+
zjH6WW%a@DAg4wL=<*DUKV0T2kl@w$Zq!-rn+;^_Aq_Bd5_h>c4L!ehMVE`Jrr<PQZ
zE2uKIq!CW)BF_07`cWdMxQS92YnOirdDv00u|*kd)VSqJKv*tP1;P~0VJ}1h2kYik
zF`u}v^nkx}=wRaWg4o>PN?+-7Qqw3$dk(NNYDiV>VjD;D98T%k^FXvOpJ=G0Fl_R?
zVA{z!UF}6`p!Io>H(@W*=cZ(-T*<jiqz6Wwqa}Kg;hgHDr`qg=T@_M4h2)lqY<O;q
zy||q}2ZNr|QGE`6rago*&sEaSb5}0syh^&RE$qt;^neQTGV&Mj#5q%QrJ-SVcWR<L
zwjIVjK>5IEsi$3%YfQ;-o3<{V2c>*F;V-29hSpxuMd^6XW({QW(({~d7p33gnVViH
z=TU2rNz;93B;60Llxi1yq3eDqUE${EqD;BB6f;R1@sSJJ%=*JTV8T;>y3bAgS2C#|
z3IzltW&WD*71AlF;*kf|6``_^P*dU%Wy{SlzknYm2lRLOO3+rXFH(>D5S4qdDCcnG
zm<=-e3*e_nFV>?sw-J>tw|RX(XCU%gFHU8#4ml?k0h1mzsMQ^PWb==*I=I$aQ8Or-
z%=~5SQUhhVqi84z-Am`PkDM>+WFAjLN=WvVC_3MDblg2oB0lcJq1U&g_diwr&vf@m
zBVVzkviOi;W^nn-s&~h2UV3?ib7|MXJnMKHZ@S5DBHusS-9^2>rswd-#8$}~h@P#X
zn%k$sLvdN9T6ZUCiFTHcBN`oJ06}SM73S8){-^oyV`)ZqQg3>YMM4Sk0r>MLZm#?Z
zxkL>DC4@65Cu))dGM;jQ+(rrs(#ghG1jhB8B@Pkh?q6%|j*R=Yf4w((Xqe~2A80X;
zw+9+#rT~sX0ZoQ_z$b?WX!(zHI4`H54KvU)sze|}JmdGxEv}e1b+7;)$SrN%HW;U>
zD(|YJqgzbRS*+_@1kP@e*jD<<+WW>nL`@Mk6T27257kkvtRB}sI^y$jQmK~9F#(Et
zSt6+)(yk9xt@8M0^PxU^XznY*b!MIjnzUc?;aV?DX<!KZS#xND9GS;$l#gup?DKd*
z3!r&FH%~O>eZ7!>U#~q`JJ73DMH4ei9L8C@Y9E0O_0%nDSg9R7pl+sG>#Es{2<LP8
zlZCweuT{Y-^q;>aXUXMOK#m6?-5l4LX$-)juC1;dZr-%`p?<J1r6jUL|H~L#Qta7H
zx$wy?sz2I1Dygciyi2HnV@F4aj!0}0X&d$Dmb#t0W#qcUhmMvvG`eM;K+$(q?fv52
zXz@0kS0Uj!BLuxeYw9Y0l&nDT!$YioMq<LvYLl9!F8+_Q=E#^Wf0HKAkE265_B@i)
zx6IVyDtl8$^zdfLMdQp{#snB93PnC~xx%~vC$^}bBBRN)UIu9zq(Iz}zdAu{ygz0X
zMBj45DPstjFg#CD=D{XQ+)PH9G)aw`$8kMo5I|xf$Yh>agaQqSZzmHK;K_EfIC(!H
zAnm}dJFcQ%2`WyP9MZyo`2>~_4cqH%Jz4uy9~XZ?Zq0uQ5X-zcTx`SqdyEs#J&xPg
zxMKm@Epddvs#zv}Fae4-b2N~<en4l+a3!LI()m!TnpVHc9ry?7z?~mxecz0Q0S}ch
zrIu-0RlFoX6q!PESXtHi$r4^Ut)QbNP@U6Hgdd12P~*ZB52Wa#xN;H6Oa1K}9`ieD
z|24(lS8Jm#e5fru*i~)6spozf>l<ofxs?TnFcanms#|y?dJC5ZFO^6it(`*Y(iD2F
zmOuV#xY%4n)#INX&D~Lb(SilyZp_LPV6Kz#$Ao_;7)QEk<D`iW4;x9?psqRKcqP-o
zj2qD{+qkP%t-CiF7nvi1n=cxdXrC$&qK7*VA>lG;p}75czlQ&_0s_Y5VEi%%0`m(#
zC(;9Yc(OJfltF>jz!>J10dm7>wI$K7Rr)jcNHYZ*pCQCX;vP>m$oB9UjGa&mo0T=C
z?wF*EX%BLWaI!cK0S?Tky7D2Wf5w1sK>kx3MrQ4AenleoGL*6)CL|WhaWeb5L81Uv
zNJpq2&OX=q7kZ&iVLLgddhz1qo}w%7>j$;{!_EAx`A!=+sgCYTz`_K$6=js*2Hf;*
zE|(8MVx+Gsj3|FdUPN2yRr0~%k@JIih$f>XKpkyVYb@Lf+IUTXH2dfdwE_mUUi>Dl
z1z<wFc1a<xi{ES)AFVT>#mQ!VRc>{}UKA!d!Zmq(9qw(wq5#UafC=%_55pJ2ySqlc
z&~x9CyBYNzauj8I3&8@-9q9cRk`m-TuPHpQehv9>L?ELovo=B*YbS$D`uHwY$G@nP
z_wJ||bwog&sfv|Vl%0lB->_@8T|9`kmnTIpVlWVI(KsuQDo+;L_5z=6ov;rh6M$=h
ztT^8|qVdOh`y#N9_H%YMM%c2Co=ZaA47DZzy&Y<_i~G|_jX<XuaC8)Z<y<sbMjuLb
z1f)u4{9Psy5e%xV5Fkk=bP;F3X?0CjQ0r;?3#u}0KBzQ4fW_?O!o2w&V2G)0dOcE~
zjuX~{YQ+by^<SPTQ>0?%gJcD~t&2=|aSth!4IVb7XXD&Esz8bLqRxL>B?Q^d*Ve-2
z;v+j?TryYSYp|_e{Q37)lTnD6`va3fN;ndhB+xN|FHa97i6#UK<Hc_l2!m%}Q5Z`;
zxIr+SgmK%+!ju>(yDkwt;b0*NtjzobDH#XB;o~+*1OyNXmdjDl`IrzWK@s`j-yRyh
zN~}QeyHRZ(|6oOl5&CjM!{x2YwD1_a{7bvD4<TBqL*%MKs9k!6dMzUSA<wWaObP6J
zUz|KusO1Vz=Fx-itGn`ryLjTQNerSy!xyKL)p5C{Ya>&jSl8|`O$Oz6i}BTuU!TiO
zuHTXaA}h4zLVufqX-j`E`P#3_GiHzkWh+qxd>_1^1xt4)Yc{D>rkt%tIvhcWk4Ryf
z4>!UWm@B3T$i7sPEqU@v&{I(_tm6<ad?1lcG+_P~)Yb^&L$wbJh2skZ?;RzG$V`EQ
z3Hpn;NibXCI7muJrbuOfQavANhXIt(g{W9KR;*C5HqKNqTvk^^u$xdNn9X4i=4s5$
za_t*)Nlj0#;)se=<M9zZtDtg4j)gX_KVn}oe=rK!y2f*zpKCOl=>G;@uqqyIOGKQM
z9=#_XFg^xe-{79Kd9%`^C0|{xa6mezr$RC&@&ud<`!o1>u!QE$Q9*`hcC8&kcahjV
z2W0f};?KcYhZ{63{zY~8jzE?&qs+JxF4gvh?n=dr9}{WXZB$i9>lgZfncoCr>VyU)
zzaebxJWB#46U6xm{f<7GsWx<hF(iF#^#$oEETYnrb(|?H@QO(b!r2z?44G*RsR?t~
zG>@Q9i}%dVuTvdr3+GCTGYUdBHkiUp`mIsc+c~xN2)WqK-zSv*;PAm=V=f<}_(g^R
zNskvA?=df1*KxDCESiC^QW~@F%;lr?PZ~X4nK#Kw8}EBu|B`A8=*)}<9XEQel61KF
z6gsrAEesitRs)Wb3j1lffUz+qmB*3!bye)pEBke|C|0aas&ro1p3yezwR`ZUUL*Qp
z_tXRFE7=AiA@Gev7#$t`(b<ey0-~@)R)PFNa;&^iynxOfeMa;SENoU66iBSYQEPO4
zSYY>^+-k{gO6*z_UVB#p{VPf@PuFKvE((^R8pcHCS^)n_rUuxXD8jAkpD-7T39}p7
zy%+*ac*KGG=ttK;QT3Q;qNwi^ycL#UfY|#*3F~Lc8M#*C-1f;GHL|qr{MXbi$niC`
zD8WKzkH;1Rsh7t|YRdFt+lZ(1q>Tw+y+iyEp%lomK)*<Vl=TYF00Cod<#ym^8-Ttm
z6JQjG0^tez>7xgE@>L=+Mm@6UVNO5K>qR|YR{2SydgqdpS3jrMijP(oMeQ=2d@4NH
zjUi7e@l+h^12Ay}*=wpWnG1eFs^X##83n=}PMkL1!yZfbE-VQn{D<Nv6RPoGZEo&x
z;f`8I2M~kFpQG0tKqf5?g=8{B<u2Gtx|A17EFY;;k~W#Y<<dH6vZ4i)E>3Rn(C6G5
zU_w&c=E+n}J(*W|i7Lf3AiwCIQV{BsK_Gj!Om5YMVduV?EKW#I$-_^=26?i{vnV`t
z8X2$#w(#&sA8zxIASdI{)|gGqhsh<8$=fDQTMVS(mOM4Y73;D6)x}D@W+d)T{uyr&
zq!%m*r*IQepd}{n%yYrm*I+eaLnbT%hG?1`V1(HxBPyl8rju#x(%1CvrYL5fGbc9>
zi=)bvUfi`hd9wa~u#mTB*b$jfG)Jn(L`VA3z8*Y4g9wA+kdSAFlnoH*_Aik$E?6rw
zlEhn4`89|-{*bL(MjEm_K4FSS58hzHO5E1(0hnlh5t|^*%1_MzQ0=Ko0Q&pY1XEs$
zp2tt_s<}@^9T2gb#r@!lQiRF5*<se(o1JRTzS$XL;s?AjZ5sy&OYQ-)#X|EJe2HAP
zL;JiqzLP~yBz~e7_QZxEL?pb0*Ds*qA&G3fXE>Cd&8hLZ=8dEmep=FTBnZi5n%>5b
z*T(fXAp2sNe{Y*WBI%`7^!O2mB3yhA)z3^GjbestSdgGusPKrDm}vRadS5`U0f~kB
zB0rAI0K*6j%hV<M!BD_VOqW=(@2cCFeK!X3{KQzDq?ve_7|{i)DuTtuF}*|R(pirC
zW}apSctmVb7dlNCDEv72IQb}cXL-h2;IFcHeN0Bd`pb!1B$lXF4x3xJ7KTe6JrF?g
zJ%+uc8%u=x_)tvjfY@7k8U=>J4K%-;V@A@i0kjG#8*&w*sW04(0Dt)-{Z0}8-7c(N
z*d&h?h8uY#KY?Mn>7qRFO{5K0UA#>P#N9~r_;_VOy0yN8fQIYus=3DFkCxBrjldO1
z`wpP*ZuF#%!eRKBj3$)jQzRaa4MAhP0o9ZF#-B0!m_^j#O*yhj%XPt(&eo2`iq(d$
zLn4)jEt#eAOB|7&ixAT+26!fPlKkd?ex{QP0VTxERkH1z0?-D%L7d(w*C+Fair#0+
z7Fe1w=Q(w3-D+0C0a|C&GtjQ^3k#@#0CivviSqDlb{NKaLK3h_<i^6e49v43dHJi%
zp9w26-vIHfFbw1RyNl!D3b8LcQ21Jml+qt8>z+P?9U?V1H>amWXFXXBY)?h!G^xe&
z%!Ij~Dq<_2)|@Fnw0Z~Qoe^B?MswY1=y+jjiL6|p?v5$-=;%9G?C@|?LgY!CY`*Zg
z43X$moN*{2Lv!Qd0EXn0j692W9Bx)#;7m`e`|y&|OH4w%2WWxX`|J25NAWZvR``xF
z*us^|F=ygHZGjfA;FBV@jIqLQGD}@>&y6l?$H?VkW1;eX*fbTwC2$T?5*VbcV+fMm
zzV5<M9{{NIdC7SMWct2$jtO!)FmSeI?prjONb*-95<!u0a?-8}T7nVH=6m0<dU0j-
zjpA#g$;Ba1fVEXaZpJWogXf_n?KD!sA2KcoY4Gc=5h?@)@|dPPrY+9^%VZE@Yxze-
zv~svE4vJD+H^xlWNn=(Hh|s-n7k(bPPV>aWD22u#qv@tC_M;(_#3oA4l8{oToR+sz
zjQ$V}f(f~=S*al7xIKMOe`Ai=)cb}==Nc{xyt-Cr8gG?261g>*YdJ@djL$mxBxbVy
zBGjm>jo>aj%x9vjQoVpe`Lj(GSSZ`)NrUhsxsOi1=YOihPuPNCGFSi>)!ScHOo5uj
zG%OOQi_eJa?~<0+n~CPY1;s-cVK)^ccck6)4Nba>y>>n&$?^aH^QXTSVQ`;6{grQ8
z>FEHSE*V&vUpE>OAuNgvmU3gl$U{dl283ORa+4U$EI82;3i6b)1IeP@`Gh!yzbtcD
zsf{N+ovvbHyWx!-qN;`UMt}Cft*lzPj8RDzh}w?MEr^aUYv<dPAg}-Jj5Va*kL><B
z8RH~uHnz*^33sS9JiWFoE&K@YnyjshetZ`t5w0|BU`dh+MwidWNfVC{IJ&T`^Q&Nv
z%;)5cK-ovNiUtBT^rtbC^lCElE0ghh7_Rs{JRb6#F>g``CyO{ZJcF}qzY`yp^(_&Z
zMXeXDl$Wply53*qE<7MZw`ejUK6DN<ubGd*jzB_D0jN|t2@u#{hjL-Qxxm$xL%Y2`
zx=ZpNkFN##LuYAd`5mQK^*vg<PUf4G_LSHfyUN_^cs*WsEx|%DPnRamH8)Wam6&Ny
z(|CPjSZC?3$b>W9Y>}&IY`P|hv^MgqvMnc-T3&Ob%9eaSzM<dTl3HG*QOhptMsV)~
z&T<J|+E+lS^~xAJ8+5Y(<@f20OaQr|!8$3rc+JJ%7`1hX4HB!(iM)^NEp%y+xvqN#
z_h5a2ilsGkO(&B@fQ&l=(emhFf#gg+3wQvX>nJFR7nuZEctGZnH7gYI&Bq;ly|d`}
zS#}>d_buBJtt;tHCdQdO;Md)r3IE^mKMlVdeiD8fekWf4F4?*5{3;Uy=T@0~ATSh<
zcW!MB`*cs~{Y|m|0Xp>Up2v)Dz-gJ|LodSh65$W$U&wI)Y{N~YW~k~s*YWoIzy8j*
zy1ysy|Ehki(>r<o?S7hmJMCW#zTQ3=^4>4~C%pJeu4>%8w(Y0i8s@6_|9EfMZ}>Yu
zR(4}^XYbJ8G@H8{+c{a>cSrQ*;l976x9)G6t&PoHy|uqrXgz(}PhYlM!*;KmYn`0*
zE_%H2EsfpgWvhD~wYsg&^{{=S*-@>2-0DAV5BshDwQcoZwO@v<;V`|p9Oh42os+AM
zt4N=;y5^)cNF(aI=yf~SfoxoLLsplqlcDThUJa|+>i*^V_27P1Vuz&nzw(bKO65;p
zOZ7+oKKQjqTb}>N{cn3d|D07STW@=cy_;>>c)cxkZ2e^&oTks(UEZ*EdX-B%=|$Qd
z(%~q5$!qbTPLRHWG^Zh}emWTBMr%kIK1;8=7p<;+)=oR8(X*@WiBL8?<28K!R>waN
z&(ANZp<~b6{j?jkyTkO16Jfjive$W;#?QI!1w=ft&%3?Px?!h%!5iaFO{dqp%*mqf
zT2|m5?aL9l^IUMAUDbMPdk}Z8F4BIRfsv^MZ~ihGs+%K@vhElU$h<D~<lp@6YpP@v
za!a9{Bc9IAX1k8EkTol)-<*>JM}Jn^-pR>TU-!DH?e$O7e$cxbGX5dF@Vs@F+RN5u
z+Gh!2G|XTxdk`k3uP5z+knghJd)Yos!xvYr?(piu^wU-+7*V313e&x8^MbvTU_gJ<
zfo1hF)q`{x4lb#q)rkhz7f*W~N(@`qonGJa7QTx?0NHvl^3_FaFo@mqK0|J0nA7lO
z+LxRAuQY7_kmms%ZBT2kY4pczy+uW#=(p2r$S@)ik9=h$b42_p-pdG@kuY1{lo=5{
z+hs`->(LLizv*xJ+pp!*wqDUuCt+8x=qY@arp43t;H1~(-Gf){;dSn`O{d_+lQejS
z820++S+9Q)W!yPTU$f&IHgt>^^qvk|?XHa9&5%Wxy}_XUw8MdZ@7L3lVQ#dBVz%G9
zY@f#2!1TI<+~Dddqcfyg`N0(<{j4oxqOM+Mln!2UeXq}|KTKcwuik;uZ_zNLvQYo#
z`zO);JKf)f*1I16{=VlQy8j)|f9Uxv*_D$w3l4JRbuqR%mt9EVto)&;q|B%PkePn>
zH`M)2e<Rx1*gV+W+t`mcHnuhnw+;>u;*Epdjje<2jSZh!;Rl=B2kdS6Tk+QB*52m+
z_V%vYI?!7O7i#Om-;TEr_O|y9Hx3Wf_NBiQ?`-bu?rm)E@5Vbjy9e7lhdaCeZoIp(
zae(&T-_odX_C{*l-;4J)_vEG<8}Z)u=I+k!?%qzkcW}75yS=xwtM|VA4Szr0-`v<n
z%kOUZ2QgLdQD%Q5KG@&g+TP#Z*i{FY>R=Eb?(A@G>u_6P8;;dwTYd2Z^~DeG-es1w
zJTE72AL1cr*>Ve>w)VvnlLz&(CqKXbyZ&9h?_p8BiWhj1SE_hT{*-NcGv0w$@az$1
zw)jibjJM>;<ue}tl-cskj2C*%5B>*6S4gXAvcIV|A(FqtYt8oe{A0i6Kh-D4&n(|B
zeyC4+1D#$D{Ad1|-}ayD=l3uD3w?2XuDYlGrT@Yo_*ee->4*8^zc~I(eerwrM}6_P
z)R(`ZzWiK&`FVQ#zVyjG0xAzPN=JYVZeJewrKh3KGkizCqwa5cN3@%=hi-$H`Hj<q
zC2z-5>oU`xSKo17dS&!F9og}0IO7$o4}YT6MqBYB&*P3d?)xp(YQ;CEHqGB`AuPeu
zw9{^}YIl%O^Ayd<;$<2<9f+J-Sq<Zp6YPwL8(Sk29m$qh=zxtYSLW(MEJ7NboVU}L
zsXgf<qag<9B?qmnQ+0Y8o}RYFCdH#QI>T*o%hOXaXXdn%_T|ZA`7q2x2icHED0x!`
z(_}dK;BT5`Z`n~|nO>J=H1}~!^enX4_9*M^dQ6M=C@#eM)<4(w*)ycvJVWuS_Ni)L
z_?@70mOkybqRv^5*P@<ZM4k3oS8T27bWEqy`^<JOcyB5ysCyQ4(D|p=x-;nII@Hk>
zou7uC;d$@s?A&%fYh4ebi>K|gtKQYXfH}_Wg-}IZTt*j{koF4madA0#asT2K2L>;m
zU3EI)2-*bQ)@84gn(i3{?snVfZ6RaS?On7wR2R67YgX8czU>aqT78X9&GB`pWtbM&
z#Kc^rL+tI%4$W+zsO~jR3k2l3^9BsVGhjIM>_f*1R*u9x>s&be-+27;2sT^tqCLb&
z3P1E*={iS`yg(KcODq<=HQ~TLidwVdef)bSyu56IC$O2>x`Pe9OhIdI*@BVS!u+*h
zp+L5P6s)c}+6Pn6+g!E<5=;xS`Km221oPLAZUCR^pN0K1FhzH0`t3m)yHQI8tn}sW
z!lvJEU8_DP1s4tm=>>PQ@a<VwmV;q581&HmFymlAHL)x&9WO$=%VAGy8V*}0=Rt-k
zqaoycirI*+hKvQLqn9nlMmmA906CbKz4obQ@bzc?Ya<3QFAG6Yl-7UuZ#+d0+~Fy0
z7<iV60SNho_`y(}kb!s$mZzuX^$HyFcmIjq@pS$Wb#+tPbH(?Z64>|NTyf+nMqtUS
zdpjTfSuBGSc741t5_qt2KRwkzVAG=K{!^R6DF8|^AK%vV=P*)=@lC_@y!En;B~E!i
zuu0+iART~p20=RfjG{KZ?sZRXy9)sI5exhY-8;QDy+IFyJUq9(A+%AwSAHM6i<$^n
zK2L}2bWhGBq~`f4K#~DNh#01`^P#<Z3I)woyK^dwp}y)oU*T<>ju~0<HV2m{6yD@n
z5EMUtnj=x@AO0s{@wTT9oa|#7)or%4?`2n1V9q5Dn%t~sIj#bT^w3jHFWle%i#mEr
zH{5vNYzz!rsh_HgmPTliS)2tep2Ee|uq6P6b!x<CV9`&bOA$@jvUIZnFh5H<*@o3F
zJE;`zq_1LGw7Y=#&}|K`Bgg(g>EIF=(-pjuo~PXbT0{dy6TWZzArbrTMuv^FCX3Sy
zpWI;jhI=y-lFTetc>%7^3lH6c{HE%!`~lOhXV8HPD7@vl5_?|w(97wj7pQ%XVfm^%
z-}|qu0pg0PrsYAVn4@gf>Qrww-tsT9LxbEiG#z3KCCsyS|H3{)xQD^7U!95Kaw|>+
zT~uy*8V%AHS7J<J!Nu+(D=gLz-4azG!pY8H2w|cDI9Yr^I~antgTb(W1@#308qS}x
zcr~<wDAT-KVm&&&vv7nl-CA_;uy+N_h8c&EThg8!8>h6BO*zxQmIE(aeeB;b9Ep0I
zt)*kbey;-xcjcp(X}2wX;DBrlW$jpLw8o5O*jCOs;BI8R*4<kpWZH}HH<HhL5^Tg<
z4%|=?%Rmv!`)1{&AAaTUk$m^uYsBRegnZY7edVf($7Kv?fZPlI<kBY6&&3rFIoOiH
zUh)qAiZ-WdHGL)!mj)Kv-4iIC!-s5jbDa*IDY)fU*{y^q9kg-3>Xw~$_j!q}E~;DB
z;(r9VD|mjWlZfR&U;M9DcmI2BF0XUwn3LgMxBOY|EW4vzE*k?_{&eDI14W<)GuXzo
ze<JGSGZ?Vyb~$oUxI$36XVF!Ekd{VcGo8K34t*eo%e_fRUgN-CaPPn6HFsk5Vd|>4
z$Dcj`3LJVnzfZXx(FVC4j8)Uq3*O%6Aoz`NBXgh8nY<_I1|sQWz!@QgXcR_Bb2ssX
z?%C^2R9>so3HVAUaI?j-b@FbR=>?8prg4gTU2%N#t;?1}R(ORP{SolR@*C9ib*7!K
zkUm_(^t!<-^myuwZt*fjB8IC>DPfiiFRD}i@^44uYo1;4bSUT#$QnHKLU8S<(2Pf^
z=HXva>Lkagr~Lw~hrmSVEOO_q?pa!3*-bm_ps%9y^yGO#7U^k@NI;9@z4l4UvNuR`
zc(cQn>J&PN2AZprwz{%_4S;ohVA9ERIAVZ->HS123^X_|81_5S)l<;N6$6chz8dDP
zPbk`u*R&86bMHI>bO;c^8iM8`d-r$Z6;I)jX6L164zD%6=!l_A{v%l0%!BA`^v%Do
zRjWf}=h~joE<mO%Po2L>Q!E(tvO`>lWon<bt~y{n_&8ue03&iM*zvWmX~aF%oz}Gx
zrCpT8sj%LOXdV~!Fo?{l-;F_EVm7b^jBE=05}bUACW>U?bV9Z<jQRp~(dfb81mKXO
z*ZQcjOB$dD;DaIJ5(|@4pJ*Jnl}4lWseOt0y<9|#EBL%H#_TkwJw#dX@H#K2k$vVs
zsP+G}u!A0F+9I5u6~x*dApzLCQDL!z32!Km)%SkPi(gu2LF=pwrC9aAowh~X=Yk!U
zn+9;)k7VJxlWh!hqqU%#*P9qPxkRIKW4^*6=NJA(2r3h8ksqx)0QqRNJ<w=j!*?^s
zqLra;**_D+aJC!D^7xA%#;ieE{q`$4e%W!$zMLI!mY@q3Mizwg2DCd()!;-APM$`C
zlT4!XZ^ata;CV#w#c5)OfPu!6pbdwy`z3^{_TW6iv^aPd4u=;llpsnzi%#6AawAcn
z^^9p%P-Iw0*(H97*9GCDCA<ZZ_x6zw<&}4t0x$ZH{%SF}#V{OtXdidYA^u1)DSBLm
z5)UJf>k6JJu)~$;c(vfo37QUz55M_e5=-7FjWm?mXq(L~v$<_H_ssDIYN$Q@e!vf6
zs8gN(fz|E5rqy%RD>(+mR01qaZ<y;{2|xvOmH2jgt<&;oovO<mESh!!VwY+dT(vsp
zDh&X^CBB2!%d~tW0=X*(*uMO&(<<LDe_PxY^W|?Z@XB+sRicOGO`1gbN75`Wo|4bu
zPx3Plyzq`VsP{d+>&<$1{(&mi4>4qv-oqoGL9}_l6*Lf!;)u?>^}GL!zTZDHn=;s2
z$6x%&-!|LFU;d^#-c-k1>Udj&%tdJiK-zRLRHql}^h!N@mbrGqzRt%KwsjkwYmQ}h
z(88sJ{W>j)(uHCMag7jq)_~b=>jJ%%?Oh-x#O<;jjGqg>#;;?roDlzGfD&|C0Tt3|
zt4?=r>V^QqEn>`J5fTaHVcaZ%2Y)@8!c}_v4}a<*%3R!c+*hPm$|Kh9f``AW&BfF7
z)Z#q$t_|MFwe5=IL6E@`%RR##1is^-cL!H}Tt}3M1(5U^<AEVg*^ywS11K-9&`KRq
z$^Cw>kIclQpk(J-4Nsygl=LYY-dy2!$FewUU0k&CueXlV;#=FD?%R7`ejbiu(s)Ll
zE4iPBzeJEegWze*#<knRp(hu}>&_}Zv+x3*_9juxN6pDRvc-Ry?7#)C#Ew@<yq_tv
z0G8kW=PG#Bf*xu3>crW!=+#N*>Qo$ySLq1|Ie2y6COLo~HW*qLB9CM#dWl^IJLi^;
zESyPC1tJBnP!8a9R`AL&9<5I{<b;4)R-hkN5}e?)ti+OJTX?#!1eS&@i3)VgD==js
z3xFpp*abR&`S}$2NTg;FlrC=!XI9a?M6yCZSp4(68fU}P2?XGD6ZoQL&>fU$A}N$P
z^4|FuAQu;J705D@2X(who<!m{VzXR4HF3)ULl4dn1Bbh6S{=a{7i~Nn_#f#RB0Z+{
zl8|TG8p1tcwi*~QNP#SXh1p85VEN5vre`Z}4&bSu0?$?YnI`iP@<qX)#H`QL4(d0^
z@)5I4wn1x%wjiL#Zz71=(7ex>geRWM-QTNHKq561q3d303B(repfSXyJMwOd?t9<;
zKeUnDhG{<=o@=}=g<pU@?dZ01Q?a$C-5(4!dQP=pVd00iBYoAK_9a&9Gu^p*WqT6d
ziQE$Q(FCDM3}AZ#mc+1FF@RlGpSAj@MuH1k+zGzJb1_Jc(V;K)C_U|6;O06H=Q_+b
z5Vdr0uKPVw1w_B~fZ#O>w7^#wIEx0cg9Kk7cNjDhH4r@<<!b`D4+4E9qmxBM?~z?+
z3PUpHlnXDPt1$fzHsX!)PV-=rcx|ZmS4I1L^>f}PoE6{kYThjgAwxuW%^sXpIYjB0
zhv0>Wa9dUHc!eYMF*;~<4$F1uExq#>Zy4@1yP4w_vDxEGbv#hVFU|4GFMgm=)t2uU
zKa%B_zsbIA{U}?0`CAtCEhSj~$Zr|ZD^_wvebc%+OM@&a6=kc=b?7!o{$*?E;Ytw0
zN{6##*g=ub+R$TqE}Nv+3%r{y()a%II0e8!yfYA;Dx4&2#H%+P3KCpYJoKb6JoVsT
z`2LyjhY?$7JH4lfZRZM)uXBBQ?)Tt})4>p9dXq3hsR>r%i>Ju&U&tB&b9v7ABYQ+X
z()1){&{GZrK_lc3gqIRHLJ(zxK*wq7zcgR`;ENwjs(JyJ&lw7o0v+KMVf1GCFHOi9
zab$>Fpa#Wj;Z4bEUIvdhtL#a)-usF2@Is!E4?V@(AXsWxk{ZRqAeKOsGD?Z)h-+QE
z*?{E3mSOLj2oG^7L^I%vQ4iBgnDC72P;psmFaim+`X}etx_t(jh;H%)9I+%odOk$F
z=w=VFs3BCq7k?;Z<+!=mdp6WWO%;Kp-e=-3=;81(e|;&zON?);vw%Cm>;L2xxQr+Z
zR!r$~0e*a7hIadZoG`PVmH-CD5-%a*$Ye*9;h{t`@PZ;7-aTUeVmkp&LYcp*Bausq
zH3x13p8)G1jsi;@g^{Ts4u;6*$V!a@4!97`Sq%t+fG*<G^ajqmEru_Dig(~pJ3#(4
zeMO+exe2V&K|+cPV0k8pQVcZV6Hp@tSh8JiqjPQ0k!aZre&jQkWI%wkQy6W#oy=Fc
z*3a6nVxgt8Q^7L^BR!oSF+WqRa0jfswpczy4#PV?nZ$ZXIA8((pa9_jN<4&VoG8OZ
zP0!Rl_2fU``Su~upZGiZOIZ%nu-iM4n6(6<LcVSgiPH>mUQWe%!E6GVGcWd9Vltgh
z&MmX%NstB<f=y|iT9V1A{838TtuTyk&7g>tWE@yY&`bQFOpnS|X3r^t-gJ%;>A_SS
zBymY{tS>OuGO}!<>*Wk~cvu*%v!<{E2$7s#`xH1LVI7IrWbqvrjj=AtZAGaMmK47L
zf&$_Fm9U%*CYgjLJP63o^L|{P_oL_i%^%h&hVrO-VFhV~(MClbt>HdSN^t__HoxHI
z58wUYQJiSGi>Ie7yQi%yf&nZ=bKr+x5j18N0|5YJ4oj@*6e^Kk`%l%=jy~-TMT9ZT
zf@=`jQ>-#_ZDm2;>DdsScs3+Qof5Fd;L5U%!DTI0|2ewSri8Bv=;BUl=2qnRo;a62
z&A-_^F21$>#SiCry%6CP@=qd`w!jQ8myi<QohexQ?!VorEO|T%=>>pyp@Sp>M&%yD
zcVKrsbt(Jtms*|k8i&EA-`4Hpt)NYk1@BjMhi*T|Dqq<4#qk%P8<|@W%OV@UY^niv
zJSE&rxB;_HmkCK}B+T#~_#L01GmOSJJypH4=*9!h-E5%UNWSFxij{T1fLRL#zN5Jg
z*q7JS7>cjA;P~s1y<xA{34nXu;rG#C1`USQ|4fGGML0ltwfZlFkp}>23G8Erct3R<
z6W_1!<PV_@W-Ri<OukyG&GEZt(2@yo{_a0*ID;fmPD<|((s1RQqUPNdfZyyA@d}V&
zo69}=XUdXF>ykA~1My0jK0qe`tLk}b$T6ISa2A1y>j=r}Ac+^{n~j^~cQl%&k>=ja
z*DzhQ6L}&3()7s#C{k`DOPIAFav2N;;=AjiWI^QaXKHvJqq|-HqxE`ACNBUEpA$$$
z3lb}BzcRvhmc-4~g?~L8@v7ev=_Z6s@*R2JZw@v1#i1gv@~_<eI}}**C{gty&@W|n
z(DPDC^!<UCFC2Kq@m=Wi?%%?Y<NY3QTpVw@<(4_#jE*<&acuMAc-tIvfaQ)kPR;Q%
zbNoCw?z}L^{J#v2KRXM+Cc5?Ss4=`8`r|?qYz_*jd+=2uQ!SDB{sp>@gyvH6dZ#QU
zo932hrEGOv9j(9k!RxIb&Mx!DTizO6$b3H;bZi=Ug&+aoZ0rASF2{GhyI%1wE^#5)
zWqhmriFU5i+0XqtTRdMwpgz3inaI2K`1h6IS%zDz1oI-E_dXjuZzB;`1B3%#2bmZI
zd}V+-F9^UeZ$~tN>A?z?MZe3k{p>m*?*r3>Zgq7byG&sL@&a#glSq0=BIji)X={CT
za&C~CiyZMY91D@cP&RS8aQkE}md_zow|A|9P5KJ)c*ReMITS<hfiq~&L=yI5-+7}W
zZ^YgDbMvq@Q1pn=4e0QqbQ-p|`57-EitU25GV~}DUIFUmj=uY2ne%W00@cTx*L=TE
zAV42)vD#M0C#D6z>edDJ9-J&8ErH8Ev5{6k0*^72L|FmohVLLu$xVpiNzZ^WlFJU#
zD^NZVh*i7W!-p~HXE;gZ7nIPXn?|IA91+-f3G)ojiLrb??e`Q@c*H_?BDZXRA7Wxl
z`9AIS_$^FCH5CMeb4_EI;PW)?CvKUZ;wohN&g~B(nIt7r>^1}-g>nRwe9!%=hfr{o
zu;l?ZAtxHyL4JH>`Dq=nKrrrq{ePK{cRX{)BS?J5y8~^RRL*kC3ueK=#F?B1!ovyx
z{t0`l;$$BXA7AnS3j`j<kAC(4G@gAb(`h9A&m5-6t>7{1X5d(+QC(genM_3{pU{g&
zd26h!f>uPAQK0uPw4~6w!=4645hBg9M4{Wj<0Rio7mL{nwE`brO#RdzD6Dfc>Cd|K
zZ0MGNbT@ZP79=BNC8BI)V-WUF31gpZk|WL&!05KWpRsASokpWI*&~6nvXHccq94GX
ztKk_FzRqyB06@XjP>>H{3^yZ4uq~UCJ(Zkqr*)aFu4A`%{j~Q=eb&A2^Kt=xf=FKB
zGRCXXdD4oJs>%zj-NXgMj9gwX&#Nm%M%251urTYnE4GP`$u;|4jf|Yp57GYkWz6A_
zEBC;+mTM2a>|z8c0%<({Z?p$OaOrKCq6V~NDN>n^rd6fjrchKi0uiNIG#Y&-8;+Ji
zn$7Nz6^O!(wFNK`m6nXrrE{lI4oJyG?3R%8glTj_aOd&c-WiUNb#t#Gx0L(4jb1<O
zUA80>81xu+G6=m(9BMFUoNa*Ma@m$dqB+P(7n63g>;ktuoder4yISyAMl^m0k6&fW
zF;@Yr%d;DQiFdJjQpAG7h;{?UeDo<^U^KSpxsngbkWqH;OPSsCLf^+@z5nIsGBXvE
zAd4Td`0_XXEf;TO@#SyI;<rYTM_wtv!`^ETSRL=E<L6ANF~=Qoh5P2XpE<!H^<7e3
zLw<Wv5LEW%cMZpxwBkPM-tRBY;&r3(L>Av(aX`vd@%VCl^WMDo&Ogw8OOr{*mys!o
zVYYfTHd^05A31LK@!p8?fG8n#gxiUFCytkGV7_uUTi*v~N;-!$6fqz-9HFexP<gi|
z?$O6pVS5lUACbb{9<v9Cr!bNvy~MhAaojs?aWr$SSLrD97X#CKlI};N%GQMyXK5%A
zq)`%^<B~_`$nff^6U@A9_OtC-D?fC}+<0gwzsV%O9p>KcPdpUj-T&K5cF&uZ++Kdm
zV<r^2&?+%=;OC_1HymTL&q*nb@cim;7}8!$d^m5D&H^2q^Xn25d`0aP+<Kte__$=d
zWHC^ksDrbSlLaZx7CEC%Zy0p029eAH&B<ag(StZ6or1>;V|T6#e93@RSxJhh)hYEz
z4Z+CS`eo|Y#D7@3xl?7#10h;58o<h&EJ%&~ZlDGegY@dOm*LAXwr@5G<d5tv@p$5h
zB-PYQ^Ri`LJ~b~-f|n;71-|Y6o_Tp{UcL(c?%%lN`+}EFk!2RHL;3LROCjL#ejd)?
zM+1biassR>zwIPHRq~bpe3|lF9)X7${xBlA+;3m?&<kX;-0U+Kq1%P<?&>uVO-#75
z`E&m>E;+Gz1u(~LkuamgBRb?OZuB^OM8s4U;v&Zkg`2CL;(MQ=t7XmPCDLuDnX4=@
zMJVY~c+4%pAel4v?U^uX<d$3&$OdNDt;kYKst@vV#>jEvelp*JC6|WTYQQ+l?%=%5
zd}cPYiM!dR4Bv^xViN^$%X0~Eko1&!2+WeB=}drWoi0lBNhbns0DjElhjnvSd`IHh
zLR~(4KVF$f_ekL8p}?FY4=paa{5dkWfE#A|Sa!K!i^CQE$liNLhyR`q$wdL<`@sbh
znDFB+0B1%HfcBZu)jcC4DbPa*;AS%eQ%2@3V9pg?W+DpA%p4S!0{)DsUna^rZC@Cz
z9T_ai0iyJ7DJ3nFFK{-U*PnAs5EJohfFkY%io-3%-N$a5fn-^;i5XYGO$53-5bHQ-
zb@+uJm&UZbz{>IpbDnS%P0l+E;lIUyd}rTt=WE_u1<>7+1sNk#uO58szvg#g0ec$+
zy9NFU=HC(w_)4%~h6A@>W5FGLyz_nG!2;g_Q|4WQ$L(YZ9eIA>nFEV>;isRq@opf%
z;MsMYtstvtH4A3~dEN44BR5(jVA-M54SCFf=m9dfx%Jle_FLO~JbFMFNEU)m0syo4
zMJKpW@Hz7Z(E{q^N}ar1UO+ra=knrVd6xuS6FA5>$Mh$TN-&Ir8~^Uz1-0tERZs$)
zOB|?X8MK??M9dZLRCVj`E1B+v`{0($<Z{BKQlbb#naC{#JExszf)Y?l!~`$eL=&(U
zWXrQPc6>B(2Zc_?4L#2ikF$k7Z_6ATfry}o40^cLfcQg{4)H-+*T9nDg?JMjz_Ui`
zm{TU9GIiE9XWirHQ#>pvot9s|lwaf_8pzL#h$pr3`5NbD2>>$h5E~vLOQl(K6Hm~2
zQ%g7rGRxJge&r8&4P%Q5W`=nUsQi?vSR@`gDF0_e3#~h+`ka_QfR6YBle}auVB6)8
zWQlv^_OA0dtsNp+sq_j2BoPQ4MZl2LH6#*(HVGc$p2YCZNh1uI9nk6cJx#bX<V#2i
z_@8CKjL47%Fh=5Qi3{yE+80DK5Jbr$oTT%NY)mqQN5k-xRat)3h3D90{)hOCzQ6hB
z?#aY&FP<R<M5M)|9Qd!i<MI3?I@*NyFnSW{Ca+lW9(V^o_dhW!2a%6tG30ir1DWU!
z_C9Ho2z9&9u4PyJ9_BD~c-(>XiDV>l%+VPUfKXtcP@o%P{{<?7zD2JifNY=!hk{8c
ze~K{VM{6<t?if9$03k$|m>L2~nM~E@X0QSCvieNi>bE2u)MDl&6Gvoz3iGevyt8ZO
zUx94J>$2i~QwNZh8C)0yOrRMuRVI`LxO=h0YrdIBg#*No{}Mq~{2nv0h7nwJ&gb_3
zb1y4Z_sU}1Drn?LqIhN4$I1pkOdN66zzR=;uMhv84z8RR6iOzYP!khdGUy!NY@|7P
zra&YI0Q>s!0?N}30;X4P!Zh*q(H6pHubu(QW0qM;I^>B6A*H&y!1KEhctNFrI603q
zdnNN@1D3Firt9$)Ax}^~w0${jU0U}*NjQ3}BzH6Sm)49nF{;_twY_F!U)gJ*+(qn`
z=)4ntW*o#Mzdg?{+Y!IwH*_FnE#OrH$lp)ap^7`dhlhgP6~JEjh|DN~`?6w$;}3pB
zY({z!v`%FTvu+WY;>*k^iBEwznH(wen{aPai6)^HBOccRF7~e#;zTG-at{}%k_%#n
zt*%B*2ANxE-P1Ab^wX!;Oj#nODOQIxLQ6Bl92qA!cP^8E&fyt0$-hJ_2F`4syUC_A
z%%0+bM)wn7jiAoELdA*ZH46M@vtIne`$gOacOG+$ws~CyP^nGRi{qdFN7`>QV;mJi
zLgWH9f*7MT=v~;Ob2Ll!Py@Y=>RsaZ^nirSjwMX)_hpU?Ss@@h6JKs7Q<mOrI)Q=v
z2QWs_t;Mj5qKw?00D0MPsL~zcsTZa_b4aW#UTrJeAoJ83YPugv&>O`S^vT@-A)o<+
zqx)B>BEHEiX3lpE<}X#B_4M^+8eCrrFpjcS=Xx1-a3Vycfp@I%yQ^@61CxsRrjocN
z0jc+XXCoqU*hGS`)dyZAGw?>mA4s<0foC^i7p@^Y!$TQrY=aWt{6_#qJSG2WO!SDJ
z0xg(L&m7D)ydx@ACJnK0PeD1TnCr@ufHFJql+Bw7_7PKyMQNPoyVyA=azuFq9_3j;
zHijqte|dWo__)vN-h2N0e-@1v%d#CWkxe#2VoRgNcH*pdb_YxnLc%7rjAX^ytdVRh
zZ{HROJD0sFl+uM3D16%95)v1<iNnj%3#F}nX<xbkWxL%e?WGG#3vciDcb@-@MzWlR
z3$Hcv-$(MC=XuU^o^#Ic{KoQl`<QF-6h||Y#AgG{Lypi)1uQ6Y66m+mWH$Kt1ww4i
zFszXo85NUL-dr@td`E^ZiRd+-o>o)(9(k-8atw^uJZ2El6m6!Kykmu9b&%7-Gc>q(
zNu7%djjpHpoO9oQrtBc5^vch{9%E@+mXa%fFm6DlE!)!@8GN{mbqe2wa+%}&b${+c
zvmroAxje_mwfa1!(ChH%BIq>5KiDj?;FHUW@L=sQOFgq+S@~(^W?-`QMm(l(<_f%7
z%n6$BNyuc4NN|vhD5mTA5e+Y9d;Ey>IC>^0B;ay_3em`2N>En_mBCRx9@CD9E1qO=
zhl}~xFi!Grbc>AS7$qatvC!*;;f899h($SV-sP{U5INaybGki7xP_<+#?AIz{ZaV_
zc^H7p^WKb4P)VDOBnWac=g0V7^6mO$;)BHSs$unF<{OgFqpBvF#I{7As*^L=)DsGK
z5(7TWs38d(m7?e;o8cNejcJq%u26s&RsZm;DH+)i5pPyulVeIfKrmz#P0kQVlTpW#
zkWd}|)p=>YkX?<$0qhUr#ALrC6*k<_j$Y{<zZ3!*x&ySj*v1G*i!%ZV5Chl@Mrjfy
z4dY0Pyer<-r-v`0ZzLP>5?grKC&L?k+@Iq^tTND6<iINBPakArqq0mc+P42=L}p|`
zSLVI(V0@_8n~0TcM?n6FHy6weVFCaUItpg#7_CKsdT77^OQ(X<r;hMG8uO-e<=t+4
zsFJv&#gIV%!`#(J3T~$dxqRm3kv4ODhV4+VeOgDAGcV@@XI_5h6+YPl-+1Ngw|7T$
z0aorBD$0EFnZg+xHixU<c)LD7z%w#<^;8iLN%kBXM{XbHDMAPCXH(AKc<-wN|DnP|
z{LzzaE2mHTANC)PAKp1v;7tHQ+e-NGK+OL-<y|eYnHZYmyjtLW<|G$RpPZWE=IO_{
za{94F+aA+}Q=QsOSVn`co?48F==+a^kJQ3P7X6bkAM`&O3;6YD{OFkngU7z@`KQ8D
z<Kd}^@YIp;)M9w*SWJRMj1<~T5~m+I)>S_kI{gSY9`GN37Ndg#3#K?cigh3#=?>)6
z${1?F=Hbw^iSO_GyMEH?aB-dI_v8o#lR}FROrPmNJj(H~k4Z!=TZY;sGye7GHu2-%
z{F@-f;vQltye}j5P}|FT!X93|X-{vZuVCQquxBXl!P(XOXLCX2->2b->#L-Fl`}63
z`}#WicJJQ1r@yankc7RkZ#wLo3;T|SeYLm`=o?P7o{s*#-~|T<_UsA!tL1*{fRBa!
z(`o-S0h|80u)mh}*I4BBpNRWU^vC^YUbbV0^alSTPyQfsqv;I6HV!Q?$v(Z}*p7?v
zcVB|)cqZQk7e?~`c^fR5Fc)2-1OkHM!L}<=9vmheY`5k}sKC;@=M#Z95CUARqyu{g
z2YP#U?<KQpuqPPonf3?!!$JNB{@`?e_rP9$dIxuVd;C4X7khj9d-m+!TgmU)(>E{(
z-m*8pXYW9N&)`5G4@|=-v3F-BFGyz3Kwtl!{N4fX?C$N|?N+Sw(NN_Zuf%o8g4Kdm
zawASfLsP@H9T8e@CLEd>>eZ$aX+vadM)3|lJ3nmOk)e4_qf+}v=z=Z-N4Ym4?;~Wg
zlZbQXfy>GsgNc4Z@djxW*>zGgrd`m(>Q3}8+j<B7F(_jRw`^m=u}^TK+!>ISN<)FE
z01Zu_!3Cr&?GRl=il<JHGQuT<lk3>`rXU#p&Rj6^`pIDQYcC1L9)Dg?{p6j&`1@}U
zCQjZQ9R7tH{K=S*a0hx+i_YPxHg`0>lpQQAl~|%-=5?}OAg-iEK?kP71d-hNrSlp`
zvJ$vXTuN?>He1Xwa}{*JufW2rRdp4Y+{{Fo0}$L=)V*>)=__3rj#%W_rug@Wp^*bS
zxlk+dW<i`z(m?B<fxK9Ylb%O@8q6Uc429m-4{Ue_-__5z=0XzjxrIRf-78`6K+ZJy
zec!t;ybph2c%LF-h71jl$mx6p1$<<vlG0kP#dL5q(H0%3%cqXeV(}4di0Vwq?Od*1
zc0%6R$k=drq*|SeiP;isiH}T<V5gMa&OHonTG!?dPc9><lMIaJ0R7>SPk!WxHvAek
z#8HoY>b+A_pZeeo6qiA}Y8$DWsPrCX>wpr;V;Efc%jflD9cTA9;#F@Y7a)5CK`6sy
zYi`fG{9x)ot_!9=cx5p2+q;9=$NPi1zuD;@jgRg;njS?ErK3aRG)RHn>4(#!L}}xr
zLr1xKl!=M+qZ2xw85-5`BAe5vc=j8we0zL!bSyrKjdyf{<kmKpq;#K!rLr9?P8YOB
zJ;D}bLdtd_J&GH2LkC);@lRTVSOEjzqTjx_1LUG|v|WOXy0N@(%p``du*bGmUP~R=
zbbjdc<CyTWzGcM&EawncHk--WaDF73um0&X<N3q2ly`3#4+)0T3~AO_9pC}TLZ6={
zCtI6Z*|v+*>`9fy(L7HQ;ylT<@%-XUnYT<B?QQX{&_eAM7jD2!i-*Ae;bGK1)%SYl
zS1&FI_$#l#*4za@1THRQ5JrKD<f9B(=x!4Bxmfv*7c9JQbFlc`uHe{1ox$;kJNy$J
zCwA)R{>i!c#1OfzL%k*5Cx$9zcBh#*xuoL?$Gsd+#(*mQrNWYuFXN@z#gzBFe}Cuw
zH~}yaCk{`hij2nm#=`wda|=ItGC2LVawl}V_K)>uL{ugeJ8bu_^luqNX)hz`af4>J
zmF3pb`&AFXba>`vLkkg`<HxZVLM0PwbBYa<q>P9MqB9RLiu^OL^UpjOo_X-hgXG#q
zXHL>{1htllk@DsdE_~yaZ{z)T-VaB-hk9(=Yuo;f%rcOGQ__bH4>Oc0MkTvH<MiML
zyx+Nk*1kcpgkbHy={=GPSt{-w{7Ag}diiE~bz?tvUzY(@Yu&Ts-3PjF%o00m-3znb
z`|IeS?i*R}rTcqsuw3Qxepe`=I(A_4AgL`nl`|ndkUbFD_29tdbbP>qoo;tiVrMrE
z6m5UIAt>CnLkF|{9q!RP`4zR%>kHbtKiZ;0_jhH(-!NCZ_68T$!PeLRz50@8RbO)X
zKmF{ls!6-|3+mH-r*kNFk1TcH#dm!UzCBdAj#1px{WrMmXNf{zu=_^71jw=Oaq?kJ
zIHw=u_f@<3eb>neCv0@_MlITAXAUwf+MABu|FWa$$|09=T)NG4rMsWHlhcouZZic~
zziKCE9u#};x&H0`@a_SM+F(5~Xo!AW34tV+$IdL05({htUDt*UrCg16l4(1E;CJOV
z?0+~34;}#Ob?{EU`|$j8lY@6zUQqEMiB<b8-|B{~d>yR@x^E;6dOtxAHUA+O!n^#Q
zE%m#NE7m)nbMW9TH{7vp&6@{_u-}ERq2?c)DIIJ|a%$0?TUhQAl|?)0><+8c(zbkf
zr}=N!-L3&^*+O^VrL|y4a=T@<+~nWB7#zC$I^Ngw-p~60?|br%|6m^JD?I>rj{DmC
zdy4ggTkaUlE*|J9xr+ySZn>kk(tOg_d@|T`r}I!YjSv2F-PbkMC#ZE#&Mb>8yc55q
zbvpil-0Bi8z4V~eZTIy{?x1j2!$s2nd=`h@x0t!HfcLsvzh4U${aQwnk`d|XcT}^O
zlF4KHxjIYZ`u-2^-Ux1`8>>^H$3408a+}S%+=iL7gVdG_bIvk-CW`n1;PRK^puH?7
zNK79l`jt7nBmIBu`@_Ro{e>qjywE7O@RZ9cSRDn2jj^%^S-As>8@Rd#t7;jnRl}fB
zx*#iygig#<HjaCaSc>!G_EFT9=tv{TuKCyh-W9*FF0sHo11yZNEO{|M^-w}4&)Q_8
zO3ARO3wemOUyzj7U8w1cSpq66$~Smd{asKmlCXAR1g+Jds1^cgZmVk&JiYn@jp_sS
z(gUlj4y-IR@RUmooU^2WstN2PPb3pGb2+{eDJMU-ese@+8XZ$Z(XMy^smOppW{}bb
zBtmfa!0WGkZ)e;3?K$sRIl1Rp@9`Uw{CY~05mY(<x(FKqp+n6`1wS<azZK`*I_`te
zN+|go#8-mwRc1--+?GE&CcJ_4#{2wa;O=wcy5+HQbD?b+u}=@mO$LvJ!0Na@?KSQ#
zDfkNYR*h^{L?%>{Sk<TTR3RKCyVC0m=c@tq9E(uxc{Yr1diT{Iq~I^>qny2>B8Te9
z)X)d)M+}rYxwKDQAheb9+IzVtKMg({ij~CeT4Ukb@UQuQp8&SqKx)^K*&Vn+T^)nY
z#!;=H!)i<*Ayvt<Hp-n5eIY2WgKELbo@qN@?U=6DF5nyo7h8%IblTQR7Vv<j9aP84
zETB}ZfGb%h2M;UxaONL<hyHHhyqn?OPmJc?M+#4)do%A!r{MeXJ-T5ofgF|5Zzim4
zU3eV0A4=l<MB%|luX^34*48-hGzlT&OHHK&TI`d5Y^4&Z{Ntwu{<Wqp$eDEv!(iyE
zEa#AQm~xlTZO?hvd<CRY9StsoWm`Qjp))(6j|lCJ3$>v9mZ>h=x>=Je0D{}<#+;zt
zCEoalNyC|60%uiChk<t&4Bnj~vNIUA0kAXVwV4XbAnRcEyM6;vy&6otuXLgMq4hxa
zT|3mTtY0D>)B-CUlax>b@IoQaNavtTqA+*x_x8PR!+Izc8TG8^JtXD_-Oq-iKudnk
zXaK3-s0cz8AyHvS3tedcl69PZ)_b!$ako@?n7`(?QT2u%UK>2zj2J!_Somy!u!1EM
zkv0Q_Io3b}KTQ;H0|I<*@b6im->ZRH@kJ?<gJemh;jI#+tv!+>ZtT>_TU*4;eHN7*
zyLO1f+rD$nBim9cB&!paQkB}wb2n~DTJq&BH!}B8QMbGfwSj_Ihay2y&?#GTQ47<d
z3VrAN^K}{V-|(wJql3~t1^p$AHoR1-8v4ELc4KWS?jnyziBKzX?1EW-Wo_|0cep)W
znZW<>k_rkgR6DB;SUVL1NK7gi>ZK#YzKjC;%TO>K7+DV0Ud|E;NhqXr2ESx<p)(7%
zupDoz$6ZPS9?Z@KlYiw4olGpupA+CXgBxGJ{<%(-;^CCgs4`lj(^A5OxeI<KiBhg$
z6RG*9Xoi;lQbY`o2GD2jdi6E$*>b@NO<miVx)Q{tUYWG4Yw1L&MO>WRO1AhRYcrfP
zVLl8Q`J8Yg#9QIN(R;hU{*KnoDM4X^R3$q8^M5ZC{5Vh|)A)D;O}qj*yb>`C7FhV<
zvq8cQaPSl0c2^>H&kfdX;B(gm+O7h`uEfDcD<QB=;MY3X^+_PEYhhaNZn=|2vu2RS
zamTLzbBsAc#sZ@U&l$l%?7A?_b?mT)&a~G0mPBxwSf7UPr#mrKb>yMzKDT|teWrfc
z@ItRc-OeVK7u(;S^R}D)h;t_8_ZG`EXWUM6$0f4cpqAQt1<%m7(r&w~wIOkm;wp7&
zWQA$#dDj#-5H)!2-_Zdre)N>#v#Wu#3RnNgNZAY%YcSSxpjQpKx_Dv*LY2spu&E6+
zYBLUX8EOie)DWesprnL!4*8p9(jfayYLC#1*=k6o8)8g8fpZyN3_`VTq%0hy=I2`5
z^b}AQv>Z>-#(r+Yg}OHK!2bVsVYmYq6v!Yh7cXa!A#Yjl?4;I`mW%W4agn;Uu?iAl
z{m8h&9x87{^)b6(<zLRTyo&8xh!aDyZc(7H``L`@3$FP?p3XvjHTk@sD%#Yrrca16
z&9J3sAwj)aGW*BYgnX_-duBjS?4xS+>Xv6nB>Itn>RW^jZ;S*@Ico$e;}MvZ%tr+6
zp4T9H&PNXX;F68|ke|KO2wE2*7J2WPt1(zwx{~%-7EF0t0Mtr#@yOeZ6Ow_1Oba)l
z0!<MH@z#6a9<7arJSW)k2{DfUN6^KyF^5kLYp7g9Wnw*TXdwWt28>XFT~2>A%%Fn{
z-lMevs{xvc$SjQ;<nm}Y{kTa=SJlMe3DJ4DYOMokq_k`&aCN?GXv`&gcA@0D2wWBM
zk#FAc*k#1)_?;o-M(8?frSmU{TRPoHqWwbxz8*t?(h0P+T7O*!Ixn9m>Oki}2{NL>
zbq5$+`CcDG*G#xDZix%+(z~fliKzJ8H{jc90wpd35YL4;6xQ&^1~1GofP(*#Km%rk
zwF=P~urXxY3FJq-Wab=rz8?w8hq7c`-hUQq?~vBg{Ln}N*clorYc9@dJ|-}XW?f?~
zP4UA7axI!UC|-jSW1a1J>&K#v9T!Jh(4i0m@5L{_`Ky(@7|>YKF=s*Z-m0~oT1PEQ
zi-lw_Vva+lL1U>{IP@W5sjCF*J122*{qu?)5F>`0bN==>dHG8=-I{c2se%h+-#2+;
zMYh8@*!uubo0K8g0P+v20U2ruIm61tRRWgFy~;P-eC>^+Ix3KRu6i@6|I4^Q(nZMH
z2q@{vbVrJaK!L1cgbGa9DVY^0z$m#S4j5P%#`~gtrO{z5Q^5d1V1WZ93FE5HS7|QM
zKNJ<yjwGr@Ne*5Nybx{>XnD=D50O~P5sSZkN4Y&8-u{(aKD+zZf(suDcI6r`)@%{L
zcr)UBD1jIcaI@!=(sntN7z$8w<KO^d!;*!Wg$L6@xqHLKm;a()SVsQE8IYJSGfd@Y
z1NyP$e^0h5+le81BsDi3w62b(dx|(ZVdxTvlRGC~uC{QQ`WZb>xr-c07V2{m_AOZ+
z?u>KE1_;m(Zhhb?p;%bOlEx+n10&u>Ifp@<Ux(gkfx7@p$TR}dWnSo`e!~+Xxqxp8
zy9I8`;96@zwH)@!FjsYqmCKo0jiGu{02Kf!DuBZy%C{|>>P*4$$N<E!2u!hJSj4$9
zi7a{C08mHJU-td*wwGPQGQYKp!4-CF;gAm$*R`ydRS2Nn%dZQQUX&rsu`E%yGt>&@
zD9X3N-BEcXf6PICRLQq)L-Z+TE}#xWN3a?pXBwcHbK+xGV`6~7kN`D~J$5$6g+yd<
zWrrt|406)f{yv(L+&R8$X?N)o6anc?q<3?kS2!L|YAT(>x%7*A#<j1x{U5IVRsZ}y
z#|{o-I=IKH>(;J)7!Q8X)|pa?ispujF~6N`pnP!)n#CvSj;_IP@q<IZ8+w36N$v8e
zY@sAX;aV(hS#XxfFfGL<ObeA9$XF)d)L~lk4NOatVOrcCMUY`x(mIx<0g;}sdDQB1
zs5I)KI6xW);}-ql08K#}YmuqBjzZ&cgQ3}8spL=rptT8`It&_7Q=-|XVOT&4d&W-C
z5O#_}<lRmy+eTP|g{DEz5)MdGqex)`bH=Bvio4s59imBS1_?gEPhx&+X8Dj|#}()0
z<DP!<tXN!kb?0UucT20`Z?Yk)-!t~EXMgDi`X);Z&EnW&L0DWD<?;SSxJ<x6a5KbB
z%Z{N+f2I-hn8EAmx%gfJxdORIWAbM>j`JG^B8+RiHE=IQ(gMNy8&ERGlv;Oe#CI4V
z;0gY*G5^>J>dnsaKB^iqJgYD^lNVoyU*~Ok%X9wdCX}MBt4JX$auAVR4uZ$u`keou
zYiZ>>JO*&b&^l)WaSVd98hq0Px><#^iOvC}dCIVsA1j*0L0FVOycTNZ*&2LW|48iy
zxsJhDJpffi@36^A?G9GQdILvD)MAB_Ge0z*`UfVuNj^99=g;}}Et>RMii)`pjT~%#
zL7ZadrBne9whP0ic6JRePD!;w&Sy~+CEMl8h`?;IY{iCPy?c>qfG}Oxk2hm`&cF5z
zXhKS&889Zp!WbsHKgdunkp(3a+deHI%bMVoB!jK2fR%tJX$Fv-1s+)q8fiv`WI&K>
zTc3&e=%A+gkX?kS(0&ogvdYt7`ja?m6q_lW*kx!J)_J)W!t_ya=u3xw^I+$-T2^8z
zNCjd7u!##%Ve>Un;ZmX^;3V*+;S*L*2X(~kh^A!pMJXdHE&?rS*?}Kv-3~_DzOOa_
zC1=A(&H*7Yz{okEA{k7i4h?CbLX<`Rqk}b?5gPmGAZUFpJJczatDUFP5mH5J>eMJH
z?r6pd-8pAPW?D)y1UG;Exj%e1i^wu+Ctu=eJYgXO$#F5?Ry;2Rm5;d4I%p;Y%UOz%
zg*%ihs1l~&w)6R9=jID~k=sh3NF5!LAwfvzS_$RIAQo#tE7rnOtbv+v2#F_!Mw|-|
z(L=H+lA!OIq%?eeYRNO8kz~wRSHGjC!@AUZUy!@vFYfr_Avl%Y(8c5sUQM9}%Cv@<
zqf+1!V|$zzwhdu*TmT`m)^(M)Bm7k`iM0?CIB~61%9^N%wc!vB34!l-P58qas0BFN
z=@MQM+nXtm?^-$^+(*%Ub4D89T6biXyB_4_uK3WM|N7jhzzE{Ilws{gIi={l&b}b-
zx*#D9Nj5#Ci}G1S`GnOFVv*Y0-unfA8749J|2HmT4M;?Wg=oe=G{6sd_-THicxfTV
z9CdMQr*<@i^b?uxM`#%9UheAm-Sve#`SvIi=;hmsU9tT$Qw#}235o_*W_h|~oWs`4
zFP4DYHxmcgwENA-`>f>kC(c-3nXP_yntD@;`daDfXQ!kSmi3MgDn6udgo^NWMC+o1
z-I2b#I)&6UlNm=gG`M=*+wXqp`J{9SqK7`fwqf8Pk4Ve3n7|RglBKc+iEMZ-`eD9J
z%U|hX3GOAI3A~5A4|@*><Yh;ep>5krK#oSJ^las6lb+4F4wabAWgLOpEZX*%E}XJ#
zY?qj=tEU#dNBl=>{v(Ut$$$@ej|QY;dyn~#jfansZRkHXkv!%S;r+*s_>ax`j~(?N
zTl6107Cd(P;fVLp07sAUJ{9slqRr7n8~w3tPd0p-9WL@2QsIlX9U9P60VVN5Wq7_+
zqHX_-+(;ZKpp3%q)DlpG%x#^FLzGQYrjEf|OrJ~agh%K_b&<1zZl#&ztyPog<Gk;G
z)$?C_FB2K<@E))G`yOSJ>0pXAkqnNN;gv6xQ-V})eii;ARM#e%CmOUtT$B=jtGE4O
zJ|~kz*CW^#A++RK6d5m8+dI^<<p6_}v-*=8Hw=5H{8QupsR{qo5&zVpf9hC3etTL^
zX)o3f$ZZeEZTBAUD)zcBYir#4cWB-6fqOptl8#&4-?vl+nAsU6GJ>`o`d#0H+Q#qg
z@p~&lZ)FdKaraDfFzxsD1-*T9e(zwRx4}z8!CdmU$-3^{Q|N85&jh`D=6KhF-nq%3
z7aUT>uk;3$UPy8J!V2szu{Nqc3%`qBneZ!<e&tA5f#C((oUkH}mkNj6TMR0vALacR
z@5cku;CY|CW8Jmwe@+`KQpGpK{CBoWp@SB*M%Q&O*zhNEmouL1l%2CY)$RbSxD%=X
zc&=rjWnl8dyFcM=f9YGjZ4XGrD4fBI(VEg2?K{;rm(z$$JQ{afGrvIk-T1P<k~Wt2
z#I=-}KS)*PXmJ}OaZ8S=jNg=`R2%Wv-_`%8o``|!nf!hqIsS8g-%-D>7Ldm8!4g!@
z;rIKiNtVO!_fM0?KQ!+5&-wi|zyCx)`hGz2yf^TKiS_*@_}ft|nq%qm9WOu%%t*1L
zfv`T2Zb`fRT%kik(qbmeUH_rIpKe{(2X`u8mOjeY4dU%DN40W}QYmZ(G{hZUw@zEW
zy!8SYJuk$%<E0?cU0(}28ae&`o{mOBe@7#szoU`RA3~S3m+DdlOWKbuW1rd|B<Rnp
zrc{}?Qnw52@hEVV@}~F{AQ!T^gW-R>)gOsRC|xxo5{}Y{;TPLRGRBR<NR{k0wv-|*
zk2ul|_Qtxwv!dN7jDW{Fl8#WLxBwE1b?yjd6iaO2+$d94O-vgl_Tb?PBT9xVjTpH`
zVMOd2wq3YGT~T5-e<W%HQM;a(bxNrcT_xciV~B;OiQlg2Q!*oY-g>MZMY-vdSNutb
z{4uBpbw_-0WP{rrfT2i-qerooJtQq3!b!yZ;C1}5_qHG`wdhVuS0qq3zeKZwwHALD
z!xA;cMg605+thLJ%Rw;u>-&STS6>}e-*sg${-NE$#H;%K!_@g8Umqmkn9?e!gc;*}
z;hgFuhgIy7Er~4TT1?G#02sxzqN-(j7-*z6hfCT(eW0CHwoC;aZPP}+osEZ^idH^3
zZebava86vpT7ZN<>;;gp3_>vU!L?NCK;9;EnhH^Htn5@-ByK%lzSliLc1zY;YNwc~
zf^+ZCJ8n30Y1}S3O8zp}w`+Q)nIu!}Hv$bYi+`I47VQz5A!Wu!=(MP=1RwPN)6cJC
z;6)vkKl5SrpsMGQ7-g6W)DQz|;9Y4Giou3~4vv<!Wy;fK12tp-hK<djhU~<F8d8B8
zN)FVJp&2$dgBm&-pazaIcEW<O6Q%+)Xv4=1%n(d{yeF7`?d7{5g!v|Yo;10<4@bD`
z%XK>j3&ti-Xyx5l@b>-6O@F+Lul;iG{8#dQJGO>JNba>fG{XkNe!b0>c<zG;zm6Z2
zHY$&R6=k^f0D!X@z^S;&sewg#l9{StrEF?#Gg;9wxSM9+bDF7kuyK{dO0J3r7qVg=
z+y^8G>tcDvl?^Mwp9om7!)O$h%jJ%gYaPsf^U`4Mo0qJ_R;-DlI0tmXK_-^L64y$>
zYMd(v%SjA`CTCi3W2_ZRrIzE^gz9aX{=mCr&%4a6d;Z&P|9q7k9GdlH?WV1S+--QL
zt@NkuIBF?1=2P=|<L?CT%D>0k_&)57Kn^aH1zIDsDUzboAx!*af<{}feZO%`fWxSR
zFvwX3cJb~D&xNlrOhr)p*7jiG)Or45x=5ESEgGJ<i(MU1OqyB-Bi_hS14mq-+H-Zj
zbFqOQPB~oQ^Fj{u`DN(vq5#8fY#m~FkrbC&wUhUp^Dd_x&X*S*G&o#5*0s0{4z{dA
ztK;URjwn-*67np$Wf$Ywj&<&N8(6SwC8GO>{_r_pyu}i>3gxXo^V=G%6j))C3pTzh
zd^Bx&CbEq3ZWwD}CIbPBj|;5WQ3`b2?p-(@IfH~F**f^&eU%mJ4Ubg{#{?)Y9Wx|x
z!AhxWyIAFtz{G7<P8F}LakG$@Sthko0OFD(QEXH0k08WcHw-a*OSR;_fWvL7MJl*(
zdJMd9S-@}d)!7?jI6ii4I5_^=P5y}{K#G7U0-*HAvXA(Qqzi#4QA(Y&Vi&fw9O#^>
zud0W(nbE-A=!VCh_k-u<H*Gfu8iI;ac+b;(OUnipyj<<Lh)r<|k6OZ3Or;|Rd2-Wh
zz4I>OqI(4c|I0fI_+n_6;Pm@90a8hYQz;lu1!zhtoQgK5*qnJFJoAe1%mW3(sen*P
z1yTvmoGchfC6=nJ15`M98}Ek;22Qap+z)&o4YbrRzm~bceMwrI%Xximrib=Po#`hc
zYr_j}{MWnx`kqiZ7=adIf8hQ1_^sZS56DiU^$AdFWSKQk-hso12_fG0237-ncl9MA
z3tbwxeZL;8;O9*;>J9=Xj)hHCo0JZ!V#;#d<A`5QBOuH$CX`At?vNd4k<m7&SQ0P`
zs;Hd`uFvt*GO>u!e=gTM3ecdGi_2;X=I4k?f@hzZh0%Z@hfq^>!qpJgm6_PFu0||z
zsgaj;NFq@yf1J|enzi=wJ(H;o!P|c8-mi_od)oZ!tDi!KYKL~gG5msMTJfy!F4%Vc
zSG|>_sQK($Q)g`o)JBUojZ00Gy9ID%8E&Iv`LGeu1>op_83a+t`=d%k9o*5WucR+o
z?<Cr9{qVj2IpXL?Rau)(<d{d@;r0JBF4kd5J7-4P_pd-Eaiyp$H12|q>-Z#&Q-dgR
z0N!YtUEUx`y^W)rI0AjdCvO_yuxy78vDCP8=-~3<9UQvfaVJOocF;>47;4FZd^l@c
zfnnl842+3gxd}DIX=l@E<Fo6VE@sFg9&K#~7cHM3v;+z}Z-N<dp23a|9iHSQ5iE#(
zv5pMlxR8N^I4n2egE);2&aiE5#`17(sGVEta2_rgzUK~WS<cq22K8`lJN@^G|Ly<S
zy*YISGbPUjbXoy&0_f>LE)96gGu{w%tpOn7?-w!*5r@(3i)>?%L~f@h<7~g%9dNsQ
z*p(V^B2F4WB96;<TI6Cs_@Tk&TL*eLZgsaDv}o0N->P$cHW6fqeakW^h%;ytR{eX%
z$L`&p+mUOA?yLmv^yGRse6IZwZ`bpf)oZ&lBJEuVU3u$W^x}Fp#IEZc*`;BtcHOh<
z043H1Q#NqXt{W)O!c4mBCQ$;^c4gQqiR05h?%$oks~YG-{>I0DY=48^NOlz&T8D-w
z_#Ss!DWcl0cgCOmvHgj=vWhjeUDt^ewni7DE;HZa^iSeX)FGSC8PB>Hf9P{Rfj^WX
z`|g_E@1TDCnLqeR{+T-X@Fyg<#@CTjGH@b)=<%Px7rK4%uGt%I5{U?Z;LAUOKX8a_
zkn8IFyBIUiGm{@<mB05VKY_nTH_I@LhF`pX$#(oPksD_J)_?5Y3YbB`?+3ve?g57i
zv%@w26i^gCkE!m8iABcd7~8hO3C@nZZKnXBVpq)9@(rjElu}IGY{CABUJAC-2H=Nt
z>^TZex{_1bzE*_Ew9faL%s7_M7~~}Dq}1(HW64-NSq!OGTZ}abLnk{~2`M{cT7$CK
z4iIj{;p|jih9fjgqwrQOMaILi-nOd=CF?v6S2Kahm%7S`)0&C5R!P}v-`4mf8);o&
zKUm6M?w*&u;MG-d@=C*icYV-aRB_-%#S2c^@=}>WPaGPYtNIdWYy%2+;s@t`2>+so
zt;BDla2T)MeGjT8v%xZeXgD|q47;+#8u$y9Uu3ak+XmSn#THeg3hv}OfP%8`2CPZk
zt~Z*r%5k=pq>9;*YR^HY0E2=<vDOl5d5Rvd)QsuQXO%9f3z!`(L_m(Ha1AS5TIYKU
zV0p_onBFSRRJ3ZQnV_@9Xcoe7B5jD4XKsGi3;wYxHVo0(6ZWL=fCTA88zLeJ&?Kp{
zr^peJns`~Gu(vz<z?E11F@IcCSIb0Kk);sDZXIzp`P36KPl+Om0KHgG7|k5Q4HadC
zP>UzT{6wm#2tk$!o|H^~7G2XSh9*bNw2v$WCm-vOK>g(VaGld!u4Z%-y5TwZL?%C2
zjdOQ>;st*@9*QN<Iuct9aY-iW2%zdkj?{CKG&zu9B{7xlL9#?`5F+P%GJ;bADmlq6
zZri)}_lVI^8cjSSmgDP>OvP1-&l#DBN`5vNL^6_&Rr$DN<{IC|QzF`Uio_aOGA;%2
z>l_+;GO=Zyt0A<;dEKjt$EgfPRe?ks*>}A0g<n2QXKIX8>pSW`cHqS1j+aMssG;se
zMD2!rXOfTeobqclx<#n;bW4JJWV~hxg!2o{<+G`A?3ScW^|37_kYc3bYss<#m5R4I
z|E`f*S5KbH(&0#3Qx+V%rVKa|-dvs=_3N+qg_^Sd<;HEZaOD@u&P{DfEjItS^A~^m
zg}-)R*x{=>xf_Z)Y#NoB{L~%EWy<=SNtM>&L%JjpyB<tixK|L-L-*ct65WXLOS#>%
zi|i(5>5uiqS)JT9D%XNrL$4_fIV(`>Qj4<6v*Z<7&DX5lE1GR}g;!NXw4$tQX51*5
z#>>i_uBdC8Wv-AjmenX-F5XGe&U)$1o1Fxmlx<5TO~$=z4^OUq{cx@;lD^#e9J{v4
zT8G<X-+SR_j|6B+4dpNsaki(sN}&d7A2mT3wK4+SI8e1f*Y879tK_xN%X!eK^msai
z5eiK~!-oBL5O1%?Q3r^bTA);M&>p`s;Pv@^N|x>K$!cSvgZK0p>}Gg`k~PUNbP!BH
zN#;Uj45%JR18EWrlT{2{Hh|<V-yph6IjSAqIekKxYDdAx0+2-^FOfJ-%DKwyf}y3H
zE|A$d3Rur4?66=cCaw~wP$=Wup!6wz!iMJwu&qe>$k?49ri3%g1j`al2>r~X`R)ix
zAvt2W%aAf;S;*hA`^}-PGy6ezyEag&AOA9FhP4w<M8w&be~y0a-ZzfM9mysHs{$}M
zRZ~ihnc5YJYls?l8YLS*){eTUs`MHTN&&ToX>lJ@vFl}hRp{ao(@2^QcwJHXwC|6k
zBNQE89XTus|4seWQ5BgU?a;;wp?B4fFt2oLs;mvFpRqMl;thg%quV(MGY<h89mV*-
zPc2_Kb)`z|sf<;iUiIh^E;^EE$73=&`<Lqq*5)yMo59#0we3{T&ZJn^Eb7~Jo#RG<
zlOxxz|L1%E#~9xd7=(H#uP`<(B9-lWZQul{dt5M~5Srj@?|Ea4f-7$PY~X`d?Zu~G
zsEQ^wto9YEB8r9gZuD@O8jfOz?P%D>ZKgfIX?73|bfm3?st8p};u)OKPBcKIazl^W
zRwp$mR~@HlTQwsD?W`Y+_Ha)KdC;#7Hc&2^rQ4xBHOVM~KmIFi{zN#@8%|WHxY*0P
z5>5=4DLO_Uo$7RZxd_q;R9iutnbL$~Bb+#Pz*X2#2Xsf+w-Tla)(PD1p;35(Omb5#
z?iqKDPY(Up7kp?uq)M5379EmTn3|+<`a&2_H$$XcMVW}3*F7dZF3|jy+ZRH3rm=se
zSWJPq_8^S_Zz1Ys@Hc{hkSh}$CF&JsB_C<xa6-jx61nF+Xck=Il_hM{tb`j*UaUF3
zD+i95j|}2E(H=>Z#;K=EvQdGf@R(!3;~t9=yP!Sg{U>Kwti+S}b}3BHjz3mpM=(a5
zs7rj(A;>t${L0zE%-FKim7|OyE};IK>cCM0Zg5$^CVuP1bzOi?Sw4p_jj)W<B>ur~
zzTg#yedu*GO<Mo89!`gr+}yA>wV=!B1;nZ+?S?vg!joQ7lx%}5_xyW3<k}n{T@HZ;
zQ=ePsPnV}128gn`N2;C6e&Gw259^NL5|<=UmCoZ>=$<z1gzM=-eb&8K@$~RgnQ=ms
zO_kVN`3SK}m8OkWN;~i{=`<4~o7w^!n4?ud9eyaTi%E0(#9&=sWSn57)`MAm?<TFv
zGYu{5=Fx+%e&OdZ@G>QcbheLZEs=!KW_i4%JcwN&K<+v1P&ZUmjn8+sAKhDhyYe}o
z5Uitjif5|FiONFoM1b}LOHyJ9XT@L@etm+lYiZWXg0mCWimL9DM!Ma>uaet-=d=i;
zAO^8w_XQ(oXsd?{3nIXrkC{eO#5Lch4eLZ|3x8>yB_7u0Ro_caK&D)8Q>u=f;n|
z@LQ97U1Y%4#NaG0^(;mzSF9g~@VcUGd5m!$s2AEN)a4}OYkw(F1bK)zA!{q5S90M4
zb|T#9sCS+kM;R|gdA@4Q5?$F|o=vV9hXi}Z+`P_>B7$F|bo)kqJd4cME8GROpI_%M
zP+9&66ptzz4$&inS?o;Hg#`+ES39(I<-8Xr$J!RMg4=}!)z?-Dn9*t{+pHXRyl{N>
zYPTXIp-M}CW+bF&qm{%6;AeK8Iwk62Xqi+sck$faUwYvW?+dA@=X79PK%6GN`ecpx
znChKYq_bVQ{Q*hVR<u^j$h8JfnaHII_znG6eZhxMoBydRbnPor><UX0A&x9S>@OZG
zHid`1W9IN6zzU&;m1fSuSK`+Y8jT&{)KDu||9CYy?y3)aC#c~YoPKy9B7c#xcoYd$
zZW5(;i`ibqcpJx*<MmIUqR<}I^{Az1RrF5obApR7mYNiu#6v=_#Kll{vyiMNbyC6j
zELGpj-T6x|`tlTgPAh&tE%N=%mBOf%9Bjt7gVdI|%s3&_i}Ma(r#eHH$1I%~v&xKw
z%D1D^u=#&Qr!YI#QI9{?X2)w-IEY}EB|l;5(07{dj*Zvr?k&t>_lO^lj3L(i>1bB=
zrA+A3JXK>5*HCm%r{=L5%N`(z$@O52qI+YCTlKo#L}F(X14Y}TJ^?<uYjacCe%?J=
z<5$#1N1%hPjbbnm#akHw3`jQIlbIb1If!+eOYWJqRnzikc4lOWuP5cgx6lzo^772?
z;H&F<jhm;WHjW2_2V9-K(+@XH@gg33RoTNPthP5DyZ=^4(-ll^0j)&GvG%{dPrOJz
z$){C2Z|Dt$bJsRaU4jrb{F;-0mMfa3?lQ6SDIm*5Sb1=L9wR5CTC(J=ktN%mCy%G3
zLB&19#L&r-F)lx`DZACUK&OBL9AD|?v+qcsiwv~ZmfdSS+}^lQ{~H~RD~(V2Q!}Nh
z=K6fPvsPHQO*fp*#g4&pO{ZL+KAKEP9nQ|LJ9{dxC5!}tRsHG30`;9{Ni)JNPC(q8
z5|^J41&HvCCpOLD)5fl!q?EaZpIjOX=24y|b`j%Xj;xEhV<Wsrd5`fvk-GoHXiu?z
z0Lm=8IM!3jhMm#iG@tY}pA5E%K?swrF$$lx`T~PtxVhLLCSCn25W!!Z-%Ky&Z)INc
z+41I<mj2H)|4ymF%+^GN{8puJ%ZSWeqs(Svj>;IkcCFo|&v|v|6E9NLN2~jo+dxos
z6BYbi-9P7(Z-hrJT<XGzq9zly(*?QZT7WC-05&QCCYMJR42)e2Ev<*W0>6@mpLmg9
zx%!7$_H%`7XIAarfH&xkc&z_2Efu?=VCqYL_j9Q=Z!E1VHh*k#S+}`Vji;~SLMgQ;
z({BvdtJ8#hBl~fCoD_KMg|Q$IO%7ur()H3+c`9$J_NKOVLov?X^1~NBKHbs^We4+#
zz4CcN*=177$Z5wP#XqukDD%_GLv4U%Z^_%gLP0y<=SjeH<ON^-VCdllor4s~RB=5!
z<!Nh1Z(?~3;ZM##Y3b%CF4yc$0iLu9&r)uolv}fg3sEptREi2|txzjZoH9~gp<9;D
z(kxfY1Zp?XxoTaNQ}Rp60#q!;$v#QdM&y<845{oCJSgR3>Y@TOqumaC=p_%$3Le(p
z-qHeCfZ~B&AYdp;60X<0@B15Q37V-@Eri=JXldcMx3*H0etjGli#!-!b24DTq1h9@
zGwHM@)fQ05+Mk>9=b$5U^U)J4E$?WS{NmMOr=fl<YAkk&*%VTiQq<xyi;hzenrtMO
zVAQ0KlI+HH1rwDzzU$Bd?49lhAQ1&axSGL--QWnhTlo!-mtZ#RZu^&^AI=qE?+Zh9
zYw*I>pCxVgFN$2Jr%+zNkYF^_hX`fH((7LGOP=09Zv5-^{vvkTGH(W;c&g3MH(c2b
z96XSuIz!|d$ai^g3B}0T09-C4c@uEl6XlEyhc%$t#U_$N?^pnF;hum5w&fr7Jbo}b
zo#n|nCbqlJffm}?*|Wbm{)3;2+uVxKZGlqr3d3jFFn3TjCBTtX%GLH9y%Lk0E4<)B
zjC!OyxX1I)y7i1XMT6d*J%!$$Jp(-z3j1?d>8%X*?(XXwDD?L28SER}+p~9%xI$4M
zDk{(nh?qVL^RN~}z*@ur!En!HK>2^(^FH-polg}Mc0JuLz=uZ>Ldt^TY0dnmcua@I
zx8z);5X$FS$dh-8TV&ZA8V#Rd@-5j`nbX*fx8@5VfijtwZfB%NiMct$Qaww0xjl3w
zJs>hVwTUc!Z3ECNUT*YVqyMl-9lL%jJ%Q}et{d-V6Q?EWWqV}xra-+o!uV&)%RO|V
z?&-yWPuj1ilwr%I*2NI0sg|e8P`_Z`*L`m!7(qZVBk-ONK~hvBgH!k;BgD4+k$G>_
zAMFXC!3;)+dIVn{&1+*G(EzJo&QBbl{^%$$W^-}Iluf|}$8HwjWN~!1;VX<;kyAaB
zgvLhwOvQ4Ekz+B{(;eAct(C@Xs|#9>1vo|bHC&&_$o;tD54bJ(c3eS*!uxQ9f7;}m
zJ?H1{dh6H^j|b63bqTpn-8fD1^wx_dN@_|$h=Z6&;pc)>?iPuS{7uv@qV_qG$a&<@
z--O<nKh_h#T1eTC{8&9aos7A1f#hs9iUG#viqk{5gvFwyl@CjodWd<2p-{55PnH$>
zG}c8c*FX6N7lS`G8!-LFW5!ygd3p@)K&!GRf<op$MqYqH7*#2nKVPt|S-z#^!yy9f
zx@*^m_)uDR>1I=Y-e!K4e@!{Uk2^`7Bj?C1WP9!%s*e)dDbqS?&FErUOlk=|t1bVC
z1n5p)RUUI8ipERA5;G)~?|4=thgOcf>VF;kG$jjn<-AMmMf=cLv=3^@4Ga$Qml^DZ
z&k|O%Er2a^eWA9>uol=5q1s6Yb^qI>;fc`$lo85<A>{kFej@P3{qbIZyyB1diSLJZ
zg}06eW4Atx#)qd!h#eQXZ*Ad6Hi1H|f71FQC>n=y@o-GWgTm~#$i{JN>(<a>KJ`_A
z2mfQQKT+`~`U3poyeqtQJjc5hS;IAwgDE-zafdm_;|VLwc57gP8uXB)kIXSF)B<|b
zQVzFEraY3z>63TiAD(JhHL(SR)Gk9mTYcsIajO%nDIXP|LtjBuAk0#G4$M2PqiQR%
zF^S`|<%Vii7bx4I=HMmU26bh}r7k8Unw92gzxC%sqLR=<iiC1acX&&~F)mlEBcsHy
zlxLhpEH3V`>WQ@+-Dml<QTz>0Huh+-iQ?p3Tp%8Wz!mC&;g&hQhSdpYra~kbpp1MN
zZ>>NV$%+e^?YW$oUBnV)J+*LndUDi^(56h~w7v>XNIb$hcz=B*d#f8EZajswT>Xda
z2x~_>=UDT+)(4y$3_YZ}0ayHDiXq8W-y8i_^#lKxn^kOfce1y#waDI$CvL~mk+g>;
z!!zQTlo&`VPly{&vks498u3I*JvHDwIF4J^g?Ve_YcUI^gK4_xG+lI>E;>EbkNbSW
zrcx?9;I~{}n{!Tm8s}Gs!dIp&<(SQ~#X&A7DMXJACwUzh6v_>a*I5{#d;{p?j^yTv
zoyR%gsZhRUsMMAH4q=;lmtp>OUa3;%X0|ncgAX`gcRr8h&HF6QdwHOVn}qT|C)z-1
zf2|FmdUGghYSU8yj@2e8i=#4x)ChLRu9{kO&G@{B#y|K|QR+-Fw?))8P=bJSP-RgO
z{bqBM3Im9?3%iU>Af&SCF51V6vudw9Td#O`5X?Qa-aqQkJHD07IlapBY@EfJr<t8x
z^L73eCIY{f)`*dur%i(y*qzmzGILt6!}DBit7WXWg&HBPsS^HYXxvIQNQ9=i$*`0w
z0d{1(&*jXaVV(~B5mOW#o}B4$IdBRp*2LA>=2i=nqkH^ylAoos1j-4L9C5Ttrq<nc
zE}8RV(lrIg-CKSz{+a(fTpy^1hItbxRc%dboaBY8vJt>qSVEU@>F0=<NrVGl%o9R#
zZ@umdzPAvWyWK5Y*h0OTZ+O}hj%F7p4nx#BtCAgyRd3N>90}z(DmI~?aAF5|ug~&Z
zM+O&4>o_4RQ&e5$#7>Somc8h>X!gu$T_>K4ouAr#(kHJqX<?bNr)s7vv@GdZzcdLs
z88X%K45k;dl7djLr1)~{b3Qonp`W&KP6<*Q@F)=KR8UM#lem@y>XMQXS0pm+HTm+i
z$`)X7#b6@2#H>*298f*JoxNU9+SAj!r+2VtcfO~m(j&gFJ^9AU!RyU)vu_XUh>BOq
zH<l5?S2xxXEFXIN2L^lkb`RwH`v(B2@9iJR5A^ix=^g0VP5N8Dfo9JS_Vo_*Lsr(G
zAKbIIcc5>ue;@$hp5NWu0|VK>0K{Z{{e#@!&C%|GO5g6jo`L+{{(i1j_V#&01LwcN
zRI2M=>SOuykYSd+7IB`yKdkE%zh)~LhtW-s96s}M?`{6R-&LRqLkCB{hB6YStYrHI
z90r1!?LjomnJMS_^Q;I8{V`c*fFdLsT>sX<iWq9SnXkM1s<8{x!hFGk(j}HONG@WB
z(aVpLIB$l$Om<?*PnrB8!Jn@vb38Ui1gU0R7{-DDl`A=u^0!P>0Zyk=7!{hvpv4HM
zKw>*?jCe|nvP+`KVDdr%OdNLn7}vYW%f>6ctu9Y9=WPT#03Y%-X-b|{et^JPPg328
zetPeB?tA$gS^Ti{VbJ<4>q+p72q~cy34QRZiOgHx5BNMQx)V_hQt>)o1(!Uci7ag+
ze6s!$1gvmhOcjpjemqP`^PN}}U&6FlQyT;xbrub#8q2f+Yf3aSnyE31laxE@7CZz*
z$<nHG3D-|h5R;=2X(V%^4<J!B+fOY;maoG(K^HBuI1+OJ>1xd+8-?Wr9uGpTkx3LK
z*(>uCbxIBBF<I4FMo*}O9v`-P!qe0Io`~|3M40P~TTVez#Q1|r;7AvkWJd^3pOZ@?
zJT?n+@A3JiP%B|VV~4Ea)`@XjN7B6bwQN;e_fNJ-FXP?vyw(<Hmzc7VYCx?7xph=n
zazjN;I{Aqszw#!v4Kc6yykaN8EQSURBaTjG_q41-aj-DU7uhgC1cTog3-b!`WzOGl
zVO-!Th8LglwI{kw>j%Mx?G#qFG+OTaVgKIO(20h~#_ECmR3k~rPt`F>byCHW=3})4
z?Xsgtt};o5sw+T>9B%QNssK_*AfS#ws4@Zpt?$pC@a7|hP^qei(;c2>wc%kZ^$j0^
zQGJG15nHMH{z6DO0a&P~j_fJIY=P)Za1x=2qlpYQMgm;!x@uz~Ho>~%XMcX`p|^PL
z+rwy&x;>p=*{-{62#{cs<k>*_A`CDOY*&A$3{SV2Y_K{o$rX_UA0gICM0Wq*1?U16
zsVqAc8YARpXq#|+l8j!Lp$=kw!t5bJ|DzBHr}c?Fk3&x-?Pq5i>?CBe!!BnT?Ap-F
zQ_PA<k^e@@B3YmsvGUr<354H|`(u%X4U0{|!$imU379z-@d;}2197=q0zq$XT@`wB
z?fKJ8t+P{*54h}i(1|)&&|Y`**&a6#CK|ay3&vG)y+jKYCK+p*66ru$L#Qv(Kh+pn
zuO^=j@0!YiNhQ@4RpdSY+cUrLpcW{IlcKg{vqSd+x1U0_v`s**VN>?>Rl>0N?J+PS
z1=D$+ZTn_^6*UcuQJ%)|L!gd4z`Ywj8ir%l<+Q7UMb<iOtN57MOSI^YSro8XK-_Ec
zn1l@PI*Ez+N=6s7ZDuXm*5EH8(*Oo;?vvwPl67W8Cpc@C8BDrheyl?At0K0mSxhc5
zu)~-<H`NpM)oCz8iHbSOMk<y5QroVEB8c;(1~JN5Gv|q4+ai|g`B4ot+1Vwf)<fr)
zWfxta#Az$ceJ+#PG>O`haz2cE9VKk>lG9d!rwaM_43zw#t>lh!xcfab|MqsTrL}e2
zU@i}@HsgeugO)^Hgv=STX~KMAPcB54@JjQH6;Sxfu%oW}rvB%=p9j)*8jB)V>=dI9
zq8EN|nPkEj3raXdkrOJMoH>cxarA6Xl$nVifgYu6c+TZz5uX!P3f^YNky1kZN~Sq1
zvmO83L^b0`;e_Tjrj$~ag=lWO!r@t#Rt1aw`cox^^+@(&4NJFD+8OK%5Ux+**(0a_
zV^%wWBvn#)r>HeIIl7us<(|^BSZLyRR3q>cYw-#9rMLBB#E#O(TI4!Kj4cNTw~vfN
zIU8uI$g+FuPHLVqhc>mIaU&f4FVhdb)!T4w5Kw6|E}__XVV&=$*eEUIsbwy`gA4dm
zLyGT7A3_+E7ogb6pfJixG@~nwkjG1*As8wz8+PZ`k9n_=1re=7M}j>Ll45y4jAB#x
zJeOhvqKuix5<x^zsL$c=)V7NEhg=jCB@0jItx0Xi*lhB;kbRT+0<^^SW&mO14z!gg
zg9#-k)Jp20D`W&`7#1orIIa*>={%ZqPQD-!g(R6fG0pa4Fp8PcWcn*)E~KZ^+v|D?
zw$5BZMN#dVu7lUlUH`VZm%S5ZLu;X?%zdWR!~~vtIx-EV%2rZFh%L~3QEH6@u)uI-
z`9tDP!Mo*KwBYbW%qkwiu$#rD?ucx}`C)*@#2qXYvOTs#Go4K+yt+bh-Za4~qyg+b
z+bfsu30Z9t<^xq7%d>aR0ZqYkQ?{LNX1DQcqXB6nM6k?XIYuDfrK%u&A6ijXo{o^c
zMmE+`%JgItOtJuTJ1Grk(c0WxcTC46$_~?!Ow@iM&C~M>Y0Cij6Qk`gzgpl?=~1i@
zlzelIpwXcc_Rs(P+;`te3+ymSBmTlh=4uKn@Bt|!xX9NRpxmHR;HDdxL2_x*f=v*s
zQZ9Ah3hfk(BUG5mlI5T1Z)mQh(DyZOnd}BCXp++@odlWv!u=w?3964r!Q{IFamtjf
zFES~cTZG;5nKJLG+2OIaY!5>#Dt`w1WzNTZsm6=bb7kH&TwR4lnKt2>*X?Y*OkGUl
zTuL^eGP8Y4nKX=UeoP(P5oi0qJ^Nel@HSl^MVIHiotiJ1H@AJo`veKGZ5xpUqdF<=
zmHrJ_6Y;GO3?H`KaK0^l_R2k9r!()IXvE<H+!AKP(bt&kY|DQf+nQAg`GQk8X$gvE
zPVkikG$lts<J=hMWTWARyiX*SWZBOFGjT{|nK7aNW|tx>jN)U_SUPk(gYTA#(VEO6
zY?1lup4R6xRPCRel2nQac}YTa8o9suPWqzu1JMD4R}6NyzG?n7@Afv#C>ab}Sg)i_
ztuE&_Npo};61)%+<;>*G;8%qS%90VwWgdjIrH#?v*4}#62Lpeu2KO%p5gRj+$T-B;
zAk#>h+l&{=Kv=%X)DjdZ)%ljDFu<9Ub^e?{z2byYqN?eM%+H$f=CDct9JZ1*hf~@m
zWjiMOOpG~9R80grT3+TGdEh*#3pC#e8HsB#=%n=wahPiNrA6ZFnqa(=EfW1)XE&M<
z;Yqw*Z6aooc-Il#-DEXjVAt_vSjV}WzcK&4U-U}rDYVGYV@}uzpPzg_Td!vRDBxDZ
zLO_t`U6QoK&imH28S0Q;Bu(Eeu~@;4%>!3_f&T!IyGEz<hXx(yE>xfZ-iS%^+3ARJ
z)oOSrZbuG<Ws|80IyzA9;<n{Or?t*T>-p8=PYBox6-E$huTG7F`@0U@3m6$!L>H)^
zSzQ}OZMs9g9@AyH@^+kJMO%RvFtm6?D|7_H4{N#HEgxO@@~?P>9!4s!2(c+QK5XeT
z6rNx+dUaLeLa8efplNpwu_e1%o-monnMUmx>dSBHr@Ve0L^wIeRB$|)T09YvOg4Lb
z1!oUlTC{x37B2=nmIE{Fl&-WUj}Q3^)v?)W3Zfrfw2n>otHBX*I|`Brxq#&_uAul~
zU0ZR=UDjl)zhk=-2hySFKEiRTEZ4%YbgSGQ<al29JB#oAHLBhq2^*66a{HFc4jS2v
zW>0*yZK4(k$YGUU!-j0z##qdkarL0wdM5VX^rcnZCL9_TpM4FAig4%{RWzCCPM`9I
zjf@9w2=v)gq2vM3brvg6IHj!esinEY$ajp~Vj`1L{v===MrbV4G<jA5w8|3!A&(A_
zV71E9b*zea@$|ztc3vkX#;let;MI>LD)BJbq?g-BeO84X5TwlnJYn;Kp3Hvy7ysq4
zZ@$kv|6Zri;v)0|GNjEslkH(%oTQ*0mdCX7w_So+AMcQ^EOu}eo862QJc<lc({=I+
zFjh5T-2VF^DFEiW%HR=9``MBdbIukdF)Lq|{RC+<vnwD<#6p-vxher#R`jjpWw9Ea
zSftQ|+%fQXIyeQPTz7zuBu}H7N7>UuwJvio3#J{+on(fR6?l=v)DsF{fjtMVj+OA#
zRKd2{@_7L_86M;bW-5oVz|g}yLi5?4s1z;ZmcTkv0Dht>V~|KBS>LD&^eX@DRU|#m
zeT+w`4*Ry%ujAv1G<s?W8x5j?Nh=lT-Sr=>gk96B62FcD*b+QSd}G4cc%b$hwv9YL
zYVP4jPkiQsnsD%J(jdHOC$t0Ws@4wrKX<r*al=6HF?D#r4`{~(n+CnhAfebE=IFMo
zxg%~EcBRgQq_!6EumVQt|1CP&a5DoBxg2A|i<CX8!*$8xSZ3u>OY(*mXG9_K05PL{
zGZ^n!EmXu#Sl*~gmg-DiTT9;;7?MTMR6qt<VL3&%xO_O&(sX?KvHm=@vS2VmUdz_D
z<VcBGlUo*tQ#p1oD)RM_=k>pM|3Cbu*Sb~f4`hU`7e#blQ?&GAjRmZ6Da@F;o<5Gh
z0SAw!e6%OJJ1*V!aNtb_la%&y^;4*=ei&MyBdGmp!k`rT4Hbz5I7EuC`sZ1cK@O)J
z($Vp6JtesE%*2nxC6r{Tz$k7s%KgBY8>APs&(S)jnJ%n!U9_>qIq7#y-3jZKfXslF
z4UxhaVm3jxvGr9JJ(|f8?3U@atzBI#9uwTf_Jr3-RXvVg`qlgY`M0FMc?muUhA>Gf
zzTHX>>%1778Y<3MRFj++TM#{6H6=dIhV1zuc&k@=x3_s<OJCH!Cr8~g0MGPc>&%<T
z%1a6)49Kk*4fPP{w5`m5aH#h(uJsc1gkHd?1**Z&)KP!v=#vr;S;r<q2`-c9wGoY<
z%|LWE?~p${hewk#kQf>n`B0r`C}8SnA{$yhtnmb;J7<op;2&b(pjcw^o~9S4AtSo2
z^HYGnCHLYsZPN~*AeTaLm-jAB(EYFpIzu0j608DtjJL)nfG{fZi6l^|HD=FX<l{f}
zuMc^j@-KRK(0)Fq>ZQ2gcd}<SP(D8?@6BBXPyF5-i-60>i3}5#_UHxlJ>(Bj3D7PL
zB|f*px_rASeb{S?Mds6dv1JQB9GY?W@A?ey8LX>e;Sxi+|C)J<;7(BLcj9(Kl#S5o
z5V#Mr1!9NWf>5jGPaS1}O2JIQ9*oE+wlMT?l0~B_e!wJ37hVh&M-PW&984Dk;*udZ
zEbCc#E=?+ozKqpqDPS5V?6&~AO9^AF1hA`YAuq8>c>MUJjZzX;>jKxAd9Iav`P|J9
z{`4n5s_thcVd;N)=0(z2tV`m2<i*Wr*eR4JEEeMyqHji5%LIvZg0O7^kKF!2y6w(U
zx@s`gyTto`M}xtR9y=PU8YeJhDN$tTjiEs2smp<BPUrzo`B<p>oC$gJnrib^N-|AM
zDsCaP7@-0gsV5eETq4e}9R|5IbANSy*0<0*F%*LAY$xwWgj7u7Ju*9cB${QhRz*WZ
zR=Ts*w$(ALIg=ubPzrk1Qeqeu#J2+^j9teS=G%iQ^-V&{Bocs$G%@pxNT?=g`lOk+
z60I_!?MKxRrN6o26U9U1VbIQ6Ve~J4`tu+2%C{r6wB?eVPoh{{V1J45oO!uS5M)J&
zLlsAsyCf2lx!=l3U?pXBIiAUXL(BV^20-1UMP@`9JV{~0wkxlDPq2b!Dl%kTMBHv}
z2^v*#Oa)Bi@JxZaQ(nl<X(ODPS(ptlUho^4AYun<X<317*|g#elLr!`3^vXk`lM~4
ztC`1pA8Uh;UpskW9Ay<jrj$&u8JcNqHEq>Ar4uOQAq?r_g3KFMhVxKWUE7MN6TBY$
zpcx9ZhOB6lwmAulvZF~wcQa#<>oiS~7m=wsOP>8lKl87Tdh0slQehpSZzM+z>J1ps
zts9ZHP@fpoD&WDZWfR#BEnP|<GE;&|vpZOL@CbB|Fo);cdaj0PIoNsTWYg-b9~bTE
zhjG%Le%Koh2;N{a3ht4(-HFa@zw>Z)4g+tZx|2=N%ypH=Om_L!h58Xa`P_-WghbG>
zs8xutPt+6Y@|Fgyz+aXSOkD;V{A^Mzt}HB$*bpe{aNZqX)AlmDZLy=!t}Hg!nY~=A
zsaiP$)#)uWg<8e+yD~~RHcj*V|9F}A&d0s?c-uZK<E{Oo_6rh>@d6b+EvSmNU3W1X
zULuD>s8Kmm;dExfd>f}|V5~S<F07j^jG-{d6?cC=tkZa{EZY%V`3};wq)9A&YLtFe
z=hk8kShIxaC*{|2Y+CeSW7jfPErOzUUXvCw`$D<YqS2}nkz2*46#*Dhmlu83GF_Ge
zcB01O7p$rl!bSNk**#U-Eb_PEBGFQym>tPaDl#oD>X6^1B0_hoJ#asmBGMvMMkESJ
z%F7pM0JUVZfJm^h2y-%evNn{#=(QMUx$nj6v){p8e0<+|x%b{r5c3diqNQm_^}{(s
zD2jGtVr@ZZVGfb3h3?`vVU{zTQWeOTYoI_>l|E(5VrE~tnBtD}2GNZCq}!~Z0MDxq
z!G<NT)|{JOAWwa^hEgV=usBkm03)W6sU=iKgL=zxZc%-<{^L`JHZ7;EX*meb|Cd*I
z@BWl}rL7B<VaBl^v}|bE*s`f*(~I92MVRw)tBft-w8zg`S8m3>MI9NWOiSkZkGNcB
zR(}&xWOC}`&>Qo{5@p)c8s^K7#^nu+EIDa4Nmrt)m}GQS))m@};aD^s>UOn4wm&>M
zXNSk|@lTGD0;vB3!DE&mO}t$c2qPz8W@5QAYa``s1!)(s4eO$%Y;S)uGNf?cwsK4o
zC6MRSw&wYCR9(_Vh9%ar6H8^8w<|({U>>2ZYr|77Qg>7A%>6k3hM()Yh;w2&PEpWB
z)f=*B9G9z$H?#%$0v!&$u8ynDs%>eVw7cgW``QEEuYX1@haa12V6v{!&TR8q-*W*5
z^8M^^WF}>d7ka6di1@kTYt<o7@d1^^roYlh$!cG>sl1*<QjB%DQRth*Z|cP`Ixp8m
zuxsDv`7aIi^g8RNf-zo^iE~1xPR8~X3{{+|(;p1=-yaN*o3)b_*~uekYVFWKXP4V4
zSjQ$?ets~q!?B)Xwx68utu!6?H60IzJX4La1(^aOOOx|Q7yZ#=S9Sg&syNz^isFKw
z<op;0i?}mvmn4ZjGjn?Wx<1O_L}5|(jPi6vb*Z1{y!ln$>p$nc)w}Tf9%e>iOBv2~
zw1i*2C|{<?`sQ@KjnudlyS$fh+o7m@X)cM|F3W|N=aQW{StV&ZVn&i3`(70&7XmYw
z9>u^=!8M$>_3}ZakdFt|>B*I4gqX#MNfPNFW)_>o2n)#$U`8YJ1dZ%=HP+P_+|#m=
zQ_5YN<&lw?F;&nz4_D7BLljI-%&aa&gxh(k$hu^ToPw(U7P-EvWT7fJ^4Fkr_Q89m
zDG*^vhC#a|<y2;iO@ro|qVFVGY+sfMl1HvV;r7R0?fv6v4CZ(}s|l8XtiT1Lj@MK9
zncj(TRZFE~8)9Q3G=~(Q&Ud8{21kieGayW=+;#Bu)xR9z+*}~Fb!y6+O-N+M_kzJY
zU8VK`SZwt$W{HS=2O<Vah!pVD3NfPx1pTxfWuM53ED$o!zI8Ky8R~%FNk$@yrp_5w
z<he1tJaSIiHU3amjY$e@p*lW16VM7|TEHlY!7k^)FbEmaEO=mIi8KqCD7BCw4}(fA
z<YAyHQQ=pcqr=QN*9A)fur_Lfm+6w_5~4?ptqEnc%_C@{=UAW8&vW1Z8t+g32Mc?|
zm#732vO-Rzv9N?|ZEsyq4UZC-7zkCiGD#_X+rF{fO5el`l#2w}t2BixFv!ZL{qk@5
z853H<WP^(b&*g|?$Yl1h)Dy(G7A4xKRx@PQM~eiF=9g<zCFGz;nAE6ZeK9T6D-kaY
zZPkh-*14#vO4J|F{2p1+)_N(cLOt_~KbRdd-MFKrXbBr|I&WL_%jjh$8#*2;*QDbE
z3=|WcIxdUsq)3RuDOE3b<?p=Kd-RX=?bW&HUU_LtTMg4Ci^aI5qDdN&F~zsEa-kGy
zjlmOphyN7ituM69ZH%K}f_$anCGtpE)zJ@8Pd?OGcwlgg%}+Cgr)!j^nF+|~jU80p
z@u!hbfbpdHgcQ_a>eb+hKdcZrl_rKc#EG1;aYZLwCTyU(;#uhle|9z?FE+tCA^=P_
z6&_I!*E7AI6lIr$G(1&aKC~{3L$pR4wb;Jya21;YX(ae@b)eY{cQ&5vHAu@aw$wSq
zU6y1eaq9$T@zR_YkPQyAmnL|BY>j9g*2}HmD0D4zq{wDvelcH4uY@=|Sy(s|4RcKa
zJl9;B`DjGVsc0ZwgQAu*7YM%php+WM{Ku?WXfab5jZuJ&v!yRg%AKGS3xQG`68Sik
z(1ulpqdX<-S705ag(T!7^a6SV6Dy$wO^$FC@rqQ&1xKL<r408}rktM_L*aG5ff`)F
zhCRcQWegWj065OWRdO-K$4FmWNufrEsL~ezVJwrUSu8@y$MgUMtJR-!5Q(``Hl8g>
z@^Ine5?6Uh)e{KW)dIo|SlO(F*l<xhynffh_?Jl)=~9dj)T}&BnK^8-Mwyo&K$i58
zE$yIVy}6rv?q9sY`_`X%h4r>r3|XVIDvURxCBnikzCGqE7ovh2FmWM88ew^}e9(xO
zal@hq0&!YGso#3t@aw+U;8pV<9#~DM21Q!+%*lYLi1&zh()(!e(V^qsqaJi;IR73S
zs>~ZnS_oJ2ls5CLdC`m$twD$8sLw=>Cft291)A=VLwpM6ua|p|ACP7!T%>h?ix*?L
za|P%W;z`!8n~WM7BfIZ>%H|}cw{4Jf<K9=k(R=jEctf$fI(Msg1$m5YULn5C0AEr&
zIhSaUsMOv48XPE*cy(D3vMyAK5h-lk8A*UqMyy`Jn|#ZKEEjg~`-bQD#66ew6nJ0O
zQ?~78Jz)>8-n6F|mav|op!X{;^Z|jw7}g(FhQi8lSQ$wxqqDVCz|gQV9#$sc3X3Z<
zV`1fJSmDxQSh>GYIgN~CXv1RY!g!xdc~|$H_c@I=>j>IL$&Oc$B*7HJm*#@AY|X1<
zIe*#Ig@cV=bk7eaKJqhf^>+QIcahvXcy^RLi6ylu=e@%FX7HE6Rd2ABE^*8C%t^Ko
zVnAPRUFw2d#2CIn_<Q_8c8#nC#$CSk#((iu46qXR@qcY51shrgdky<*@UgAt`^q;c
zw!A(02F2DgBG%g*?A=*e3k~bc+xft_w#F4roQj5~fXA{00}A<;oYONyl}MXD9pdks
zkA~)f&$0z0dSeURNE%hddor>ICaH~#ydu+hlc*(KQWdlywX5Pa)dTMArLVv5ov-&c
z%`s>33X@9+?;Jvp(d#zw!Jzz1PNFu+PQ)3UFc^7}&O&^hzm{*cpa)~q_0FUeMEnw7
z?#dP4@Ppx>dr2_z`R50t-+Oj2_P=fjs;@r~jDP3qVB+If7_XHQ;>MO5v{p=B!($z6
zj*&_^R^8G#LY*xPH_=^{L9WbU8?@COKsN0)vtE%!$Bbl*S7k9?Vc~H?h##aH7p#C=
zdU#=BZUqgNP5Ld^lumOYLGyj_ZJP>Ikv(Hqule%vfBSXC)38L_Ffe`jTX-QsLh2|f
z&F+YnX+fIHUR+Y>G}WzZzZm$F9ehvarw>oHxufx=?0^D(7}(6@op8(Il9uK76iB#A
z;CPsH%j|Gr$o7826=5?4SIO0Y^Y2UV1Kpm{Ui}1FtlExz>b+A_pZeg;)g6T5m^^?d
zhKMBs@nVxO%PBwTbRIBM2MW!(DIQabPZY!unS1stPkjCZURN)jk+||E1Py>RiTR0$
zz4=$Z&3lJm+!99TUBt|6t)kFA4Zw<xFdhf=UOD1eer@yp8|j`?AKn{G|9pQi^NpRs
z>=&OE%zYQesq`r9U!|i%<K!e1*qwejJxXXuWyCmu4)5sDH(vSnI_*>&<~{8PA&?y`
zPP;N=Y{}B}WjWPZo#rO--qMEQ{0RQ7U)`>vVP%$P<R4~ut}<p2(=M|wX%_Qj_r&vy
zGpZ&ARTFdZ>4&dOJ|zkzDbv8~<V~2uITmH}q!*)J!=#~VT_0AIO*YQmzx9CkmQS-5
zZTXUPqQxvR?=jYiH{f*Ii>EM*mBPg@XOUX&Wmu<$gj?PP@9{pXX+;`^>`mFZNf8|!
zCB+wfEevXZaDK4x`1*{As#Ad#V(z$;x;U&C1#2Rxs$)1D6BXoC4K((cXsAdHSw%^O
zF=}T17@r`16E4nC*c-nP)x&^jm3X5IR<lw0#|p<PJA3=vj*+Ip`_vkAPh6T=gY*e9
zC`Buti1P`$LO7#XP>+iWs+j^xr;3s&Ly>!{8K6!-e0Q_~rA&h%P9q$14P|N>HR0#B
zZBTO(AWdV67s$DjFUaFa=jAgc7SAyrN!D_?XtU}wI)bvvUwXawjW2kG9j2BUBY0#m
zoosMmidt~r3hc^rh(6nSmDv_?9$sHocPv`smW{EN#ndKH@<zw`jGufP5pJTg>BX@k
zC>X6#|4pCvgX14q@1N*6u~R?yPtHML)zidjRX#x-wug+@s={%F<6d!G`AcW<Om*I`
zFzP%j+)1OHiurAY`<2fUe)42+`iC9xPeD4hl4a_35KX}`6=PsPC?!&<xAS(yQoTkj
z)qi~(DY!OJq^wP0hXhH<Hw*Icvs$<V=S{w-1hkMvg?`FiT=yvpY=i8@|IdH%zVbzH
z^KEErj1C^N7sG%94Tf|RUWc?8CGGo&k!k_VC@HkO$@|%$b!${0lPK+C!*F3r-GK9p
zzspDq<Xqc(=pCUeRoqncXayftbBW=MyTcoatP)&PX(V~BR1qSp{+3lr!ij3gghmaA
zb5%@oh_iFmO`>)|mibHG4U0fm1fln7)IxZw6_gHP*JeL%IMmOqp&IwxRl`VU*OC<$
z&+=y%fB#M1>%Q)#6#elolS!zIR$l>avdPhDtmY`0#MbJ{Fg0+9N@J$xZ}8$bF^`bi
zWJ3d8r_tno9sgCdEF%hw8@t>0`9)=$`Zrd7EpYXhR##=91OuuN;s_Fh@aiNOCrT=O
z+I5*$7A3Gc1mQU4@EY`E-b7PXS`x$vj4Y6JvStORMoqf4sy8(X(p9voQ9`D+&CMZU
zYcZ(nn4?WUH~;;cyx;pevn>l>lOh7=6(~~xuh2TPB$2rxc~Mn3mPvQ#`A%5ZNjb1m
zKwXTP1K$b+?pmv86zTgyZpjIz&5<8N{irMv=Bz?eO)&V5Wkh_vcIY|lJK;q!%Pzrb
zsPN^}sr7WAA!yb?I+n0k3b|R}ZjN7h#mkMo;?3T_d>yfGw7yOEMirp|gYzW%%@R0L
z$DC)XU<zRJ$63GKUi9uA_Iif3V3b82X}Jrmvdu+SspXQK_srdI2pWZ{3XMW^O$2Q}
z-fC4!N0OI5$%;m1)vKC_@dQqjqYR|C)sQr#cT@E$D=NAS%C_7|Dv8RL%DV8f4YgXL
z^>Y`#)!B1@?#<qNzaiOKWeuc<#!r%G<vdi)t|r}sUBys9(&(QalQgGDz1I|rDp)ZH
zxU{!;9Z@b81NCl`)#OSSGS`@Qf{@NWitnXt%kO`)_xr5t{eAl?l{CHn7o)V!Y**gz
z02S3SW35YdDixI03GE`g9vq<d=K*Q=Ubnj`v9p^7inhPqYCO1WhYn`@JKUpp@++XM
zgYvF6dV{O|slx`4Be-F%R=m-vx`PbV_NHU^d`HujL$0<~shOQFJ8{%>84sQNWd1fI
zse_a*6eC?)r=v?UF1lh95uJZ<rqoP9*K&}deoI|D7Ib!pk=YnAojbhK;wIa*Vt&GZ
z2fp|gFGoj^CREwDn086<8W->vmvSw+a;`PkmU}YZx%c_&Zg1q1-BHcLmC5av{dALm
z`(gmy9PjIS@8^Ah_dR(e=4xD~cVY$%&+qSPu*|_Mmt8#2Q*w75r(E+%U-QXeC@Q(a
zT@82b*(7oo@Ljj(cI2LzMehA!_dUC;3pd!`dg>SMba9g#>xFAu?%9REde<wXo%igj
zckmT#Xje2}Kbyj=>Fz<z2N}uK;EL;3F}1-*wr8z-H&W|oKbBPUpQFdhHG0>q`iC)p
zUE1`~WxB4Lo35UdW2=etstYOBNw2P4roFo16khDC;HBT2S%vt63HH&nO*~6P0t!tf
ztpw3pSn?)ARq`!p<0{vXX`0r}w`CHgP$NCE;cnZBSjQ6ssqI)Q6?DM*O(hF;2(Zp}
z^Y%oIC-@v;M;ywdWT%df<k>hh#0p}j1|5?>s|XtY{R80AGYu<ETc6={%$s>mOMS+g
zyi~fYf4V1IOzPDV@m~D++q^IQwb#<d15I`v`d8+)tOzD37BkwQr4?{)@1nLwN(ft9
z9xKRQ>Z7Ka&2-;vH}+H-?0X{%tE`6L5v78zs2bQ{zwr-G$}AzqX$dj;*{LPr2T63x
zGG4s-JVBOGFl(eDJf)I>tMV=?s!#2Hh&Sg*OqM*5ip~&`;vFo^>d$Du|2H4>zWVpT
zVllGZi`g6=^te>=eZDhRs=h6iDHWrlv{oE~)AugSdCQaeZI5DYEQjW^XuKsI_LImx
zcAStxWU3~y?PyOS+ds{KyJFRKnwtg18vKcwaAIcYh;iMxfW^d2J!XukYlkgN8xW*j
z8HpvwZj^a#N-<akUc-eYMOxX6%$~?ES{RYM3l|E!wG1^=<mbf;&G%Qja;c~_cl`%J
z+FFslIRUNfAzTT5xywr2FMaUmyubgZcixRG4U?o?ZfPkN3xzmF^y@ar%T)h|jJM@N
z{8g?|s0@(RXQ4B;StnMra6broSYg-;Ghx%<L!Q^;lO};vzK1|Y@3K<p#ZAu@cy0Rp
z%1}@tITmNTT-rFWRXsQJGy6lN(yifA9_*kzio8M{n+tfyY`EmQb|l2n^wkpF4ixU>
zx_b(Don6;d_n-gMJO47iGWBS&7%y+_FxaEqPTTjCN&$mRU#irFX;^B>^4p?lyK}v9
z@sfj&hSY-WiHvfG#6D5%<jFLhn6Ye`VU?98$J%8=w#d2GsMrycI?Z#-#UPcl2f)x(
zf((a0`H>NCBp4a$$%|HI_z2n7$w+nKI41#}A*LV-6(E`x&;ICOKvl(n<#X(4V$Q0e
zXgKWV8j5*aS}TRPsf?nMmdLbJ^3uxMiRW5(>p?k+S`71IaC-(pK!wGFY61P!yB_+`
z&V?b?QHZ8=+QH6I3+w?DyR*>rM5Z}&_r2w9-UENFF;0)7i_yERMiol|G^V<u=}XoJ
zs{Y1rr;iGgm#Y3S2CO}tDwB}T0J1?va8aC`TKY2|VBoNT;A2<+Z4iuoyv47Qk1{ox
zk<Y}0jN<CTXoGjALlAb#BjMK8(UKjO-1Gst4CUjMmeR%%nQ4;?qM|{O)|#kjxTic#
zDu24Abiu0qm9qtPSGL!(a7WXz`wJH|UCB!B^1-DU7IlS2eLum)$4YhRIF?wdAUB)E
z`HpdiTpL|#s~1$*heuY;f*_<L2#q3pfp9cvBvO`J+_%QTK6HyXmb@I5bGLo(ZQjYh
z!S8@LFVMh2%2EalqXgHIT0$Oc^6h9Ail(r3Msu6{A%yFk_1g~A22da5KlotaO}OfU
zNk+ocgm;$)v?_zHV4sTh&CqA*b3_P$SJkO$NU&Gvg;QJy1W;^`c3rLpy`m1ENM*bu
z|A*C~mkao%^;p3m`Pq_cuET=Lsx~CqN@ZakAU!G=NEUWoQkMSqatA*BcJFO}3m72?
zP*DhI{YGEu_JzWBJxydP;#a7MnB0H>nL2cU$3c@n{szSFufO~Iq3S2Cs8`LTv$|+?
zSr@Vr{TK>9pyMg<J^?Uf@(K;%qfW@hHR=og=vA)kMF-DvQh2K6*TcKHp5Kutc3nI{
zQNLB?stYcg+OYlfnj^EvYeyy<h5xA2->Cg}w+c#FchB^eYaFxAXhIs5lFp{Hm}xas
z$`|B8s^zKlY>jITjeSFFr~}v!%{=#xpY^`~x73GL8{v3E8KJ~@F{XIwY7}n=4XpNM
zvzclm%7q4?sL^%4M$_g>vDng5F6U(;1p!aH;g%#jaseaBy}0)bK6mT)0)Hl*A&tCD
zU5G^$zmw9Z!qiO0tMlYcI`QoIxIp~Io8t&`I;c&A1|%Cpl?vN<PY{NiFw&fIR<AJI
zFLk=}CFZVR?hTzP6ll>TGNw^~tefaxoy#tlHg`yvu<n|waf#wp<ioDTYQtk$;;Q&;
zEK5~>crvbuJ>5(rEjNHQgBs5z?Pbl9HIEtEMA@95Q1>)Wm1Cx#>boEG9{qbS!PZo}
z&|=(WDq`!LPXTp4&}3>TO-ksv?RLveSLu~^kZlUgKvlxAEEvt)rhl1HQ7-c#e6ZW^
z{ag^#KDIvN+bJzr?vx|kF&JiTHRDdWFe#tV3Wl9F7Cits!IP>kp!jwy5Y<*M_Ll{O
zi118Ng<{4(UOHZtzzQ~tvBf&}Pt;=}>?=*tjqvnCCB;EbpVY1b0FcO{@<~D+J{q#t
z5S+Np6$m`@iV*6zdfX!mcM$3zAswMoyu!`!5->nIt|*jBHd743%LGr@C^KZq-LWee
zV_f4IYgW6KHIbKFc*i@uhrh*ezyf8w6pM@;Tv)CNxYi4ZnEDQkAyyy2Hj1TEhh_2b
zr^#VY(6;(-sU2k)=m_v0vzTsTFld~HHeO{u5DlRvDHL`n|5b>dUlq;1ukg~l=|(-h
z{eydh6O+d_Z}b0s#|1n1ul9N;a(__X^vmB4l7W8;hJQYP--9hv?`WSt*}3qU4QGD)
zyuaGV4BQhD{Tb@__az_sjnF&zR|yw)U#}EyUfm41?(6EVgYMb!?gQNo|3mk}Z1?_p
z@TB`jCi?#8lXKO5i(_^pbGDmhPq*5sdvc~5UzwKMvoqaytf1ToKAmoP^snQz?{}l!
zZ_ST>zxBTVTtD-X^X9*M{;@|dT>9ZNzjNCMw(NrB!v3GVn>Gcn|73FhW^Ae9dc8m;
z<7WM8Lm~LeA0*`#Q2k@9tsCAnmXw)asB>TNM}My``GQ@~1HN3_b@=d{BCfj*I<)C7
zoOWaeDvxn^*LALHof3v?yYAU_0O+$UZA(_)b;JK=?!CjKs=EKtS$pr(&-9);>6K(s
zAR&!Ofj|-<p@S%)cMSrH3Nk757C?|Hq4!<|ganWdA|hQW7O<coSh3tSLEhi{z2&+0
zKF|H*o|)73*{AKZ%POC>7FKsOqE0OINgPN1M_z+Lx`+OMb?N8fK1L>Xd?vcZZ}Q)=
z8oZa^D(bv(K@|F2;rmZe1}!xX`PBCEXZ|CWx<)^U_*G~?mzKy1p_7Z&!p1cc44o^q
z&Vv6DH0l3kh!h<9x15u(0G~xB`A<j^!;A9H^AhPlj~l*M`A&MklJUmR!yVW*6X(|7
zC85twzTXGRfOpM<b~=Y|byaMS9Ca;jqI8*|QLFDMtu?akqf=TwWghGOnKXErZrEbW
z$o0<GXNUaS{=O^ic{NDYzpb4#Uq}0I6o#EqN6a=Kfy034Xg3O@%^dyqxNaAM*DwZi
zqbLo=uq^uRO&vb7;khua^qF3vTloJI0hIO<u}zz#=X-CZ{cgzvZyAO?vcCLJ;K&={
zd*mm)?>#B@FPg^b>CyV=x%Z!KYcz}BA5hcc$}qdL1TE@c?%&j1ia;9th$FlDu!67R
zo-b$Q?{DlJzO8C|^GCBoOz-{vm;5|;FSnIgENCEUFh-f=5I)(IE|^GY6LXA?Q&p#=
zxHIyE@R$VE9AibUJl0^b1-J5#)|*2kf(jF3qjVmZKhxL|MBA)6YmyQcpB)hp6rLqz
zCW>gO9sqVThkQJbo<fl5_K}3VL*VQhn<%2>RYX2UQix940@+3z4Ixf4oP9x;DJpjl
zbIye(OGtpV-3^!wGW-s&oxsCO;UhT71rO8?hz;;}nF3rQHOA-JxoC5w&E~O&7=63G
zIl`Rm2@Dj2jUgtt6glBYU8zHq39ZpIlt-%wa3QDr^>wH=txs|9?&d~-)av{@^;e_k
z>%@uV&O?W&vw^qL<#uGLDw|Ya?;0$+MV`y=ZJ6xs;6y)0BSw^`^8QXf|F&yPzqbQZ
zcuRHp6i0MSxWXDbmZtkfA-nzc?bdF&Wf`$8cR3cyCf?}rJWP*P0|iyK2|9go8{sCH
zXryBjwDNogZQ2eKoq<yzv<8e;gq|85_Fzf`8ztCX>v^>-+a7K=Gu6Q&bUJDgCPJXD
znNcv?6O9Q+pwA)%dW*6cnN38gD>YeLP(>>m3{+8hsx&i{E`WO22T@AX7<r{w4_tQM
zIxt<9E=&8M>1FW%q+?2i`2bXWNvgoz^B8;xDS_R;=MXHo6t2-pFcDL_3;QAECUN(?
zNtVJ%m`XnSzscY5KeNx*P2&!MH6!qzd=NJ>R_Zr$zAN9NVtdDKLos>^MgW8!?WnN2
zVU<CC0?h`1*FI0dkd8P|qKPkBI*EBbsZJ0CvtkeglOU9%3lSthDOG)OBal}^;Tm!e
zNGsuXu)jpnl?~c<n4C`J*YE%u3pcLtg18}Zno6(RWkCm>ntE5Q!yq$FrKa3n%J6a;
zug7KZ*-?Az>*{fXf_IXu&S4P|x8U`74Dk*il^&1VWAQo2@s_&{B9AgoughQ%RnFvX
zxb1SFpEbO4oyV2s;AxenyuyQ^fAH3O-EI|4zI_|fDxae{o=Y?aLnuBSQ4#LrBKWHK
zuxMcGkFXHmQ~Q=a-qYtLOKp4$1Q04D)aM6_A-ojd9*-OG7{!w@zJ`J75Lkj@Nm7lr
z%>ohv*;0h>0!Vle$>A$4-1Zd)t^_PD^lOIX0k68sZ|7E7REN8~idsas!P7ue)z$^x
zV^nmUbbF3e8!(IaLuyhD?z$t?pgLT=^BC`U+g(?Q=q^mGta?>+lzJMdRO|3~DytYm
zV?CAl@f_v2$4d|0-UiB4W1Y9563dnN`SChrNPHie$z&E*0FI!&aHCHLpHma84wN?&
zQIHk<)M(`1_+I#KXaIoF+UNVen&bQWyno|42)TWBq>bbnq^gJ$_q{E#{P(?3LWUm=
zYl0qnV!<}vvD9a$hq*DGbPs!0J26%{o{Pnd&!<?ikWttxlW;6SEIAc0whVq3%reG|
zk4}jh4X=;_<W9S=)$+#1PorQ5;uF&(|L-dz#&2+hcqUTO;xc&ar|^boPY6_7m^;K<
ziEu^B?FKqA)$!;;<x#Du8nDQ!lGSaV@)MKMT~!hqwVPZOp8DLWOcl%XbMXXct>;7)
z6Qc`mH`Fk()aA`Z4%|?mn~NXdg8NvmubyCA!%7Ck=96joYJ%^1eLk77^su>cM2;oY
z58H@hM=^)a;xnc~17+X)BD*eVOZ@%oz`$u=GIqv1TJ(NoO8y`1Qq*JJZ*16?pd0=-
zfaNN=53`s$Usg`QTv^$x?N-B0A=|Xw{$kmW!M+*%8pLL5=oMHe%%|D!fb$aVY1dr=
zVJXy;)rgg%R_11#;9Kaqm83m@v@2Y4EjdJ@KjT`I+=RT)<Kjk|xlEW(Oa(_tE6LG3
zG^GClNYFP=cUD1gWO(>)m;fytslL3UtwnE|Y@JiP?FTNfZ%V1-J(8I=2?n@k!7-Q)
zwgzk>%|m~HBd`{JhTIRKt-he1<nx#qgcprf|K~;5k^fxM&0-Vw18KbIRPcf&a~0Ww
z-Ke>N_|E?B-%HvfL(PVeluF18$=imVGAEf1@!|P&Ke1ed@F&#LrhPTZ%1!x;d<rk?
zZc)n$Fv!*9nyT)ke~Kv!gp_UYi2D-GbNQ8Ukz8cFq^^hbycjX)T_Dv^EJ!xphtRUK
z$O|(8`)r3%t_4L<9D<h1^&h6EwvC)oo&s3pCzv^M8kFdnc^4T}W{&)ds-hI7+H}Sj
zGL5I9ppZ0P=04H#;zSU2g18clvcGs6-UaO!Kw7lI8`>Vxo5Eq=7hDM6lY7MAyX9)+
zDlFHb*IiMaPnNMAV2lvwP*dy`IL5uO5@x~=B)IX~RRo_Y8pj9T99a_ifSMz#SewlM
zzHQ)f;L-}h#s|@<(2p+Cb(ujN-;#f*jt?&6!vsj6>=RlL_K<7Y;b$_Nd<BP<P}MJS
z@OFHel*EF$bP=2f83#Nc<?tRWD*90y{v`{4w)`3M4=$Jrcc7LYARlTsvl+rSg46K_
z{S(v9aPR7-bAQwJUI_NTz>mMg@6zAmyWHoxrdEUVJ@O6Ff6q;WqkP8)M1LCgiKcWz
zhea@x`~s^L*BVMACL=*(+zOGSdUd@4LuT=tkfu2SBZuxLuMg;E`;6X{19czDk6`dU
zq95bbXym8x*2nY^{}p>5=F=P4C!S!7;4E}+bp}3R+gXElhPalWO4h>>WvlorgeO?7
z!G8-c?`JQ)J_W8|J--LBHv0znL3%=~NG-~fdEOcCbf!-ti(x&P06*zIW~ExHTf($a
zGs#boyp8_}E|crrdf3K&3oQz2*=6zp_#ae$ma-1Pb)<bY=iv{~sX=z@h!}r|{}=EZ
zsmB;WMS-q4)NeO@14+N2>RnT;$ureK_-rtleu5=rJDyU~v!o<zuVP<EpTeK;1AGsK
ze8Bk4kSsT`J*7?g4G=Dz2jK{oO4dU>?sPg2Gua&T3%?guaNmIa3`8W_Y_9KNI{z5W
zJB0nbv6ep#u7KtENUe}yvc<1tOEKpzu(t2jzI}_Sa1{$-6U&QL1W^i6#9>#7l4VTH
zR==dz!M+RLk(WZ&FVa+LWHpQ&+1JbU+XijVt9zsmVGEoi7s+KX<U2RQ7P5t0=I=|}
z*g9eyTToOFuU*sc6t1bk)Jd1}k$r2)MR0x%e^P4I4|};{IW4Y&3=@&W_yD_J(qUzb
zu-W|VdO;Ure8KL(f3e+GVveXKe{g;8(yu{thkh^W&q7QqS4vEzpI^8;a_|unlQo^R
zSq~=FtW1FE>?tgVN|I%?wzZw1i}3-M!B$!cUi?Jgu)`#+!))j?zC(v@dGCOJ0d-A=
zua#cMY1Dk_7dTF4!#gbCj56pN-AEvAn4jNI(m8&Mnv%MYy~uawXV7hM2@?HIlFvY2
zMSdgKAp9lm7j%*moJRC$K}<KJR@Q8HIzN`_ZdxG=r4cKkZU52z`*&^|k{uVH)xKSE
zR{N~>3B|MY4a9f}RQW4dr(eQWLKREVjs6rrqwoh@=Vx%ej?l!gc2P+VN9a{fr%BSB
zfUFU-$Sa}aU9W_`657jEV0Cx0Cg2kPsn&$IXDR1k1B5kTg$|pgZ1C0VZ`E#dA<QvU
z7ed~JpoEByAE8EN<V;RiD`>p%JvaUYoTuNwUf4u~xP*;DQ(aTtG;)k<_X+z3KBqgx
z&I<r4;f)L2=VTQ(0h?wOHm%M49jMo)<<yW4o4^|Enh9ZVwpzt)C4a+YazpOZ!)}O|
zf2KEt*$@>kch#y|S#QxAMOkl);q^i{A%i;T8o-uIY(3;A(tf%N$#sdJL{0!%0rD==
zp3a2pY=ZJGMC}lt@Z0!mc_Vh5KY*8=5_DUH#pFBbJ6cULjn?_%QHZ_`v&B=8brH6z
z_uvDp=<|ggq<k|OG7rL6aI>UEWD#8prS=vN(O|A+v4FiyR*5d9crpA#laE3fvlL8&
z56OVm3XVHrIBLZ+<9`iXMVUAj4o+?HpOGuI+sHzpaonng#qex6oCeG{9y%I`?;;QX
z9lSC{U;WN&Ttt|YJb?wsb6sK9Se9=#513DettJJ2yZNy(T^~ci4&5TM6~wQUNo<EO
zY7sWljFOCuc(oe3j+4Wr&B`TGdQ)5k^dt7>5K-G{oWU`hT;m76K5$^yt0I{QZ~u*D
zl)i`!(x=aXI?$ejDBE>d$s9rhP5&Ma(@Ih$d`^$CbKC>&x?s=9hz{R|gu#bmNK_s9
zoml4y%V8r((ea8LEeC32D|vbNe&GqfmH%66i?vUmoVr_H$VLoqxr6K`Wsk*-*(_u!
z20HmSw;4apA=+NO!mT7{U?&-N9|z<O!XbDHgTmKpKY<$rji7h2@R(jT#OWtE3&M!x
z6vAZMd>49L5){FTjz+o2rqoYOO-o(QwC&*~!hJ$w$bKbIr_@t1P-j#$v8M^2T@V(b
z<d>Fb6oif22>pN1rT9j*e=i&^JoF9Wc)8{5Z&FX+I8Dk6`r5Py#pA?gR`jt-)4nmj
zm8}(t=-3p;oW;NvK;RV^v;|n%XY?H!#L5=&Ti`pGM~nqWNJ|kvs|)K!6WxDRjsGK=
z#Qsl+Bx?ilo&Dh7O5r(<WB8la8z6s9e-{qZ26@b=Q*a7v?nFY)6C?Opg7isYu~{$F
zk`MHcA*t9e=P#kVG4Zt*vR6Zd9Gu^oGi*USfixv2ss&O5*T_6b6Kx4%ynVipOu51$
ziz2-&aw|;^NjJJIO4H`=5SFC)&a)2d2!b?NFv`XlzZ64Y3>(bFwbAKcw5ji-d^V&g
zJL3fFUCX~OZr5+nuYpPOBxres+fLr2@6kihwVieaEQ8lx-bs=_;p%ASMX<TPL?D4t
z&E~cCz4UX)IH;{<YWsy`KQsH!!4A_E)WXYd$v?pndKS)*Z(-aF7&mUX1G%zb@<N^X
zp3fbd{RS}qCYtC@8jT}phjN*2p#y5g((oqDglxOU8XcZ0s9{#$u5V7#SmRTL!C~8>
z&lTb|Y=#GryNXQ0>fhVAp6rD*I|i+dX&sXgr;jF*l%I2juH)y>dGw{%+qJYtS*`0K
zw8;#)b#N=)%W>gabHHA3I2@CdvHq%{3L$&7zrfGjbXbqJmvMf5iYE}7ID^cSQ&&U#
zrnAV$0DcBVX8y~GODkxFF98YQmE<5d;wNyvTm^fnbq3*_u8LB7_7W01CN1t9d<<zF
z+W0k@3x0loVVT&}N$j$)l)XzIvw!F#ScR=UdJSh^Kw5;k#(u-5kh4VeAhRSWqQE0F
zA&XR;0aEf?I%zjjC1TGdFat8*I*Z%$VIqgSPhdRn{*Fq$^wm(Z7__gx5M}!mdetFm
z!AIU?XGr>sks+fWvU^YiWGXC_zNAyh1^622<iEtvq3gh|T?@ZP+GYzGx){65X;4FC
zy*@nw`IQ*4tkBG#1oaL?qC;svei<dHN9hLgEZbVhD>NUVk#spdN*B_?5i#8(KgCOI
zfbuV>>RO>+hqqh<_9Cd`wvajGPi{7Rj)INrB)<9Y(vNTfmhqQJ$tuWLj#>B0VKcB>
zoq@l%9<snd|6bf(C_GPE%_I@Wp_o3VFYLte{5SF!(R#(xWHUrOdo95txP>4gcnW+c
zZV_M8Hw|hT%5}aZ-6POHNy}Bs5`OPT>=rDRYDq#~Y1nHEA%FDn10+QMK%M}WV7wp~
zdJd4bSEE|HgU}Kpzz=PDE4WMCU8Ep$lGj4pxX3@@2r<^utenqr;}~owZ!UpW%V`=L
zdXXBtwb#n(41)5(Z;?F8EC^Hc7Xc~aOx)WWu}eM%T2j`V+e>Ey>DQ_T2Bqe-xx~Hk
zo<v0!oxoQpsqYiA01CoZ!B$Avf;H)l$7GSbMqUCxk^x_m_H{_!h|LRav`aHTd*22f
z=WY_*KnrbK$*^N^lvzr)l7+$&Ec+PEw-~cFWwKZ@jogE?(j52+&53uhKj`2vkJhC>
z@1sB$z)eXtH94W&<bDU*v{~=&gROVvE(5xBX_dAW{C^{+TJk`REfXHYJUC9@5p7do
z1-i6%$g;APe84vet3~oJuYt?6o`!)B)Ce{cxI2Vfs8*6w;9f=E7hQo^-+P~cV`Lj_
zX8vO;rVvB+KS&Xe@GUlyX{22U$7G3`x{=!u#!?j-3oC%9YDi+w(YcCH7+*}nk^{SY
z8Ew*{B#yPDNmLh{heI9V!k2@YCM`u?gbUwKlY|Vrn1`VNZ$t7T(o{+8+2;nlsw*jG
zT~eEKnPN^ANcBJllV(rl_&2V@3vZ<3O9tN8tz}Jz?}yHF$u@FRp2dwk%=-TX53yY-
zDf%CkD^UC$#5D^H{8g9%@3Eu8x5`E6*;3C=z&|K@y-HYu{|1oy#9ozK=7ko)FHBm`
z-=z&otx~=b?t{VaCSsL0BRf7FZjquMMMW9ck-F0NXltp#T0Bvxr?K%V`jixXTc@J9
zTz?7Ez#d||i$)u!!{Qlw7Kxg#kQ;cHdSR3DA-11GBrK`hTChWzox4mHLGo-UmhWJL
zS_#)+2h4$WFv?2?4~vbc2A=@&3Kg5$E5Qh5qw7f>3Oc_5dO?~<3RZ()V&`#$+Ye1;
z(+A`MSpuvmaWoUlR}vvc*~IuS==+%cAdnCgJwGN_VaQ75%~$6mpT3a2Sw)i^lg0Pp
zI})>3`zbpL+O{`Izze&vMLSUK%>~YfLqe`S=_5=$OI9N%H<|P>m)w8_josc)5HlNX
z0mps-eT4V9ox%rn1^FI~RjgB|g*<!4fZ_`O5$3MBa(4VOa)1;+;Kl7jQL~C786gE{
zAyCNG=~$S~q#Gr$GRo_CEobIZD2G9>VlWbCHxXUNE=A;=#1ytXDizN)HP7HI+*m}t
zp+RQ=f>r!E670)Gg>fh}6KNa@af~PmjP}V?PYGzP8O4hhfgi+-TuT%T4kt|InO0=2
zQMVY&Xc@zkn2oZY=-MR`=X^k^4$k}>yh9432`CA}kY~MIgiS{sFgpm^*HLoBkTl@Y
zg6%&K{2Owh4Er<z#reJ?w|p)tNk6$a3*)o?ea%8V{{wP_EkQx>X=GZ&ZIH@+NlGq?
z+$|#RrRzW}<odh9T>XYd<>6|iuBq$g{xL<k+78PI-ZBs^BVmxZiu|ZHE?SK2JF;)z
zj-sFOClmtwq*_M&E{C@Go~)tE$a1y;z+##%dbY!KRp03eOe2n++zc`qQXY`$5Ek1c
zlXj2n*y9qvnmkl@sBiy<0*-gE68es1_BaPIv8n$45%<-EFX1lSgzf5X>1X*1Iz{|~
zzb5DIh4=Y;po#Yc?x&))ZP350)FuLrtkeaWZX#WcpUCe*+ZWrm&7OqyO<GD`{Ya@I
z)0ujmJ4rT*;%cNfr~5`M!}9^FwVB^dBhi7qA76)~)iErUWL+hj#b3ZycnC(Vr_0#)
zl>by+2`}-JQKrhZcz`l;Ej1U=4qB9!RuZ}�Z<}@u!1n1bv^Qx_bP!#Wai#co#>z
ze<*E5Gw8qB@8QYl_w{XzrcTwpfWidX5#z9^0`n2ad_)x=gglXbCc6(oK|w$AyMS2p
z$Hrg-Oob5lR}h*wkDP;%%yEc}iu|44guu}<D>4KRm6@0m%F$YqsT?3iYm4wWr@x4@
z(UoBFuY%SVD|6g}*6G#+qr>K8p;4&8?xHt2GhHEJL$y_K1~7FM%@NDnvaf(Oo%F0J
zyHVYq$H7k61BH)aDHfk0zp*<whdkj^?mzv&Cq&uEusi#&Uf?jiiCxAq5^!1?{S&<P
z{GsC4{GUIN(D(%3QViSqpIiQW$D_(*vX?>se;;?uR_QOe$aAWHK<5Yi%QBVeMAH2M
z$r;~K+%*KHtqwmiG|)#3Ve3QBanxVyVKR%BaKZT&uLxEJ#mNFOpld=>tYX*}E<w+m
z(5WVBwbVF~iJj1+l0O5KV`CN+jO&;TO+`V_>V4iGeWGvQ(kG+F$+y6YflDHR)_dC>
zUHU4Da9Mr%0*5MVyj5OQil8oFny0Q}pQ9Or%6yOaVYtfY0(I56o@8W5m3ieJkC>%3
zS7~mS-%d54x0Z&w`auB(UV!@J6)qJuD6>6l%cJ8_+g9!Il*UBM+*0aU?u`ymIZbtg
zrXre&S_M@gb)HVBuJSf2P(*xqZ$WwK0*BU0{3<n%CtD7Nk_io-BM$?3PFGp)@+_F{
zkVrN4mi}f@&qfgNls{Z&Qf<}s4K6p@n`^w4UV}TnnTL`F@3vE`3j}WZ5sj<0h`NJH
zPhOoTT9vGV$K`T|qgcM$>#Y-28PA$l)xl-q89q<B+oke;oxMKw4@M^vW&Slz;Isb6
z7ioiEZ6k=A!L$`j+mZTj7azNr8i<D#+dmarFMw_np>^x@YA|%_*QrxMjd%qqk&7^B
zioAx+Co8DD2o{pnVnD#ha`0UgNKKRGkh4&zn}s#-0xX5q@F~)YPoyiP^)I3!Xy{&)
zZPwBF<M7r_6t|xfvi8G%*hJ0<gLbn!O6DmXAn&qoAyj`8ni`<J9TxNN!U~X(q{4u;
z(fc8dH(6d1lY0F{PAhKd_0y!F&=!l_s-NI5L<k9wz{emklaRWC#my%FkfTZi4OfDi
z<WC~MlISPWW~9TXi;r;JzX|=$L2M;_fnvlxeCO|=#Rd3>lZ#CMz!{lDGyO$+P7c~f
zjQhpubTWIaEG2(X<u7#7WBN*2CuMg%27`WMKkB1zkr+?+JM^NI6p`%TbvI>A(n8k@
z50$IPPtG7B9Mv6%&=&)~(Cc=BY}uu^9OJ7{QnQ^r(w%4Ha`sAb_toEN_6+V1q~PYm
zFK`rpbJ?q&6~aC29<p~sYpzl7T1R3}!5kLQbRxWiWWz)lwNWVT_q(8df>e%X8~YP`
z{<bw>S_7B)-)P(?v>r)=Bj5t)2(X!!Ma0bl0eX!SBH|+A3N_GT3G5-Wslg9G*$g>7
zg<Uj~i(N^FUnLjlbW*K;hX9-QoGJKYx|;U64RhghuC&k|GY7Km_TOMODceI5UZrfE
z__^9H#kmrtM*AS4x#86z#~`3{$KB+BZl3rJ$y*Fd=-5$Ml3sF=o>zaM|G+AKBGP8R
zi+THqYc)Lw0V|1DFY7+ym0xJ5lAm<}ky@>N3FP)M?t^qtd&+UakAYpM#gCw55t+}L
zzcd>;GA+t7<*U;B{322#CCCX0a!|Bh@9ee&xg!n<$idfuRRWi|S9^oqP$eB;`*o=@
zC0?)Bb=!i9M}w!b))By`6I!{#<xY3-f?uxJJEj5^iA>}1I9#i+hdHXb<FTMdud-vk
z$2E$f!`k}%dbb-*9k7)>ba#_;h@9*3riY6PVf7=*P4USxcpEfsZ@A3pY=WxQu?8ob
zSm~-wUh+9APFs5F9fnX}91ZY#DpDOh)OgF^ZXIq>$-E==7kWp_i5l-|ufY*5s%@EO
zd8PZRjz`^Wy{j%jEmC2H$Kbe)%0-m^Rk-5`ms#1~)90p(y$+R{%11b;-GeE)nr-eZ
zRZnU)z1{Wcr3iT<J{$omW}*7dHrFuJ;8kiqyx_{hu?jS|z0n3<6{KOPFrh38Ng4wV
z_Cgp2T1mo@8MSHX@`^=sS@C`^a<bHs1@XB|rw!$GDz96Lq$hJ~SCE|D)Y$AHc=7`T
zCm$rV?4#30`!e(n6@z)A&2xyV)ju!B>0svhWD|ANf-P{+Kf;$dY+8DU-hxJez;R;i
zBbN{U_ta=xLhehs143DdHOItk)`0vpjNl%zfb6Eyd@zL!dMex`W~+5T=ojFW1yRM9
zSVqhzA+#_zBrN13==hZA2HJbs!;~M?1<-o*1Q<QK|EFXfiqTHV8^{wTS+BCUUd}iG
z>sc4N2PqXA?yUNk7mZ}5CRg~M`3dwL;tszIjSS~!QX{8%mK-L=jp8xHj-qh-sC<~b
z1F2rt#+Le6b!T3stMqGq@`BzixjL!!6C^6mg7N_@QSPI3bR&9sm2*!+!UL2j?m#ud
zCNS?7_lw&|+#h@cgob$d6@23&Y%aN|J*I14!zPN3U!+rNz()NII+yh85E3ME{_)&4
z(23kd(8Y7{XnnFuj4GX^{s<?;%la9_uu1%#wEP?d%MPKKmS^?omfjakQTu^Lz7%0~
zbk<&?dYxn^2~AS<7IR$BKgb2;TYQ?1(zth!@W}3~nTf4z5@-f27kY)bf(Nuc1eeGv
z5|m#g&gEP)N$g$aG>ra0*T7Z~!%Y4k>=T0gm%s%g3F61N2){^ntCC>a1MkBUJasSb
zn16xWlKLTchWmn(^D9eTwUVatVJ`Jn#Eal54d9r!pDU8{Ox?z7E|!O*Sye><&mY;=
z(<YuPM^g|@#{nOZdV_Wh=kb<m5tLxCbM3qqTIShyTd|$e)QYO6cR%#|;u3irRQpka
ztwmC+E<|Gka`*Iy>8^c})?4S|z*Au{f%kTRTjP0X(P72{9n%=x34-S11t5FOmXHL+
zD$bN*SCY(Y;u2{05&0S_j$rrw848SEHtrKYfe+b58gmaSK8M!p$#wXW^&Zi?ciBnq
zf^dt!Ae8BazmcyFo&!snUie(FrOt-WSo%TjH*7uBh$tZ5t9Wj~(BCA)g4DyCWIp+j
z1R~)!Xezu#5B^I}#?$``Vv_K^p3`P$eRSk^NX7kvt(D|)WEUz93ZKAxNIDvmdS)#b
zmw~v848O0tO~0nAgu}?Pj;euCqxvmDq^D&vEFcTWdf@__ieuAn@>bNH?SQPH<H|z#
z3uVOO6(aP$B5Ph+r>vr{&5*{=g7M>DN%)y`Y4_4W9QeEMBklZ>N7TUBiSPl7OdQu_
zul5_b#>(Ef08N}}Gl?xIDEb(QTPZz7?z7D@3@ox7hq^mt4LC9_Taf#{iCWYt$iUkC
zH_%(O4qhnuN{3YVr|dnz)f5O5n`ihL1!5YS?<$-N4q^{QT|Ywrh?t^e^0oNdCkfwv
zGCz+@Cy9RZk<4tIbhs@20rFj|)am3YLVrZlS}^^Eil_Bp`G+hA%&KJz$SzukMP;5y
z>d7>Ao8DA^gFaF%V8h5}<P!Ipe21gf*^F29YCsp%2zA)UH_rg%f}5B#8sS?_aR>hq
zW_P0=;Y-fi{MmtjGd)Xwp6QxkpQCst%UGFutYNKE{}E8l2Rlg8MQ$0*yaj{S(mDKY
zl*8Rb_+H3|NQuACsNC92Ri<+yP0hQsmas9~CA;08idw~?lacNk@(KM>`iwlF*+)>z
z@+B?4B9h?T;qAu_AO7O7bli#f0>!-AophEu0e*%4%8SZW6dWJr+WIs~QJ>MPdP@+;
z=|96<D5*Y3=#UP<@1xG0U#sk-C}3Qm{ag7Osw7wVxYe+hJkTAI-+?vc6l?N_-1|E+
zxQ-s?#s~Oi@4(tKA~!Q=6|~IhHI?<64yDCpSf{BFwp%$MW@#Qto7Kt0+%b?bo!<g>
zosbHr^CllW;xso)6wg7BDPRU5U9S!P8{?$7-b1nE4)U0M1I{CjBl<Kxb(s&37b@8A
zf+S$4BD6b5gIs~H={Jz=c=L+9NpOiRk`9Ay0z8ICC=dC7$Ui8S%V62aa%=RL_y+C~
zvAzqj8TXN|v)dn|`2b_1k16^kuni^F!dwWM1<4P^t^7?Swe)||Z|ODY+5Znn`c7^W
zAC=J8m0>hFKf!>PkpaOvouf%W@DpG<6RH;<>o3Y$Q$6ThqV+p41=(ze=%_aJ?3(^G
zdHt2bG$H(5cp~Q7Z>l<}{0Q0<EJWPHUm`+Zj*^{16)eY!XgRB_5i7h<QBkg*2Aj>6
z5^geEWc`>xn^2J6QSlOwq>Nq!Pt-Fg=i0&|A5pPIh^VzT6(rda!s+b?X^A4u=6{5J
zvS8zqYDsF(N5VJI!Y3x(NG}n;`;eX%m~IXT2$+k+`fbvoPv^FuNL!d!{$7_q6E+(D
zq(4FaLG2Ufg)!&J9wbJ;B91NMRMLiTBuKB(uec{DGulLVlhbtIKG@0j!N6BP=hu?<
z+Qm$}kWj}&Ncw_&B)%{c)UgF5rC*Rnxd8#t;}W?mcE3#m;`;?DiArLk(z3{}S$M>=
z<s`#uVF|34a()C6Ht>63H;O?>q-6~^3z>>p_!~Eatup+Cf{baXcP3nWx$6b2(SB?f
zaAkjUPsmxJt1H@MSP$wT&x--n<DwyAF|Q`_w)`foH_~d#>-CQyjN8MEFUOyUKE5os
z`9<)J^rzC|0R0lakk9J+UzcaWRelcqL%sypM9veom3+mI+D`XSt4*&f`w`k$r;v3R
zuSA!yU+3IGQKx-~$ZC(vV(TW8q5pj7>;p`^Hs&;GKX%06U*+5Mq)H#6q~TqDCW>Hg
z5aer(S_9DuHY?kvPeH0X>I9@T+om_|65kiMlGr9I)TuZMJf+u#ci}J@91%X`S7I{m
zX7PP~By$NeKJ$@4n9CzJX&%hS&nUDIB=rS-_*sN)=r^N)%N?X-gmTRTv@xG6b66N@
z9zV*FY~<ZZ5m%nkGoL@FXX>BPGqNl@UfB=RX+1SvQ1e^aQ$j+&))jUwEKEBI-FO{$
zo;k(M<P!+Er%SyLlZcmgEdB~6aYFOsM32*Y{o6C)?YCbpu@|~N)y|`p+^6imxBwZ!
z!Gk+|ji0GbIifs*&`R|ixTjtfHqp=E2Kc=(jXn^y!$$lK7vv|{WE~&CEwNRXR;`--
zA|Mp=B3LK$(Labk3Oh*&vC==u$VRy|$Lj~#%k8ruT>Vj92(1SgUNa29Ul&8)k^#@M
z<R2w7m09e2wHgJw*Ht^p`HRvIvQx@h=^(5WHi79Wf)eCbUN?qd@s_I0&`^i&<h&lS
zIcVG>=Uc?$E|TsZ-=f}yX5!vbTuiJ-CvugyD=2?rx!4(xy5}KD?+CYm%Rqb=Ai^=v
zuqH@&oWwKSVh(@2zHSV_Z3C*0+|n<X@_L6yddYzA8;@q2@@u-G&nTD35Pn&aXZ4gC
zRE@V5p-)Ha!!a5zf=gSNIpCnbjPdsn?51rd1;(j}r^LU}BSjR41MBH?G>HE$0=hay
zd>kVv-y|H)u|D*lZvz2^&o)}3GzIN0`bwjEvSpwh7GoZk{2d9->umi8avFh5AM=rI
ze9B6MF{NYjSHvH&yT?&iQU{O8BwB8o4Eg-WsPGv?&~TZ2%P?@#eK<hBMR-g56Z(nj
z52zAZ4o^t>X#~>X$h#AoT-LS-f0ry}4`3>!ALmTTSyixEFSX@LJP$`0JS2ER1M%!@
zEf04J$HQH97I&N=PV&@j8+A~Srko1%_L$y5&&|y5ec|NQ(s2Eh8Wi(%vu(($nz-Cs
zy3UeSY^W(LT_63#q*z-`s7x*;fsQGa)ydvIS(#>5`gL!T9#j}UWp-sqzXH)<0wg2r
zHwA<S64{fxElcc~&etEIno%Xp&|Qknx0wWes9!7!DpA};dz)HAirU;RhTBbCmi|xn
zCp%9LP~W@*5JOc14X7U~&bR{FtPm-19!fJit$>}}4w9@b5Z=Ll{Vs}6mf&wODoAFK
zk4W2v5b+yCE<*he*Xm0U<HcxOeBhg>giq0}Z2Ir~RXC08GpdIWC37CP=fGoB3Dj^`
zF?BtXFi*&0`4nEwN(T+$tTCL)J}en=TxTGq2Arv-4WvW5t~gm7n5<30N0I{*?s4<T
zW#r|ZZPc9zxH}Jn$rOCrXXmz>z<o!)V}p<Kh$>o&@3o6Ag@*`i9rzVFi_N~ERd(xe
zW(YL#&2qX((N$P<-AX3=tq^l_e@cI7aR?LgR=B+B2A)>ev?_b}+uN;8<OuOp1Q=8k
zp9haTn{pyel5JhtZ{>rcm6Z)gJr$F`wMGP0<@Q;3VJs&=!yR_jtp<vGO+(Uxp07G)
ziJrRK=~*rV3vS@c>qA5Z16x4tzHnEQJVNeV$iG^W&hc=kblqf^4%><DM|fF9c%RnQ
z#t@h^B(8jXn(`Qj+8wAm={N&c$~VXjR=OOKec!WwKOr@EfP}e+EI_E)e9&J*0A}1O
znJq^BpWRD}YY|;@9^5<hsB4}eBMu9WLt8^ZJ&b3EASSp#aD>`Joz!}YNWuNz%yq_T
z-I6KN*(AEjf1xz9m%)FKDTt|zkOG$i4UCSoB3N@OaLvrgmSic=ZxR%Qx@JP#Hi>1K
zmM}!pk9>ah?=jMpe`43bl)2C+VkUkvwud-)S2d#Ce#OpoeD_Qju^?KvSa*;V*CRdI
z0Kp}hq5jR}VqI>6Aslo~+?F`-OVi4Mf)pr31ei2Anxr5<f3r_<qT#iuYSdtyzsLrZ
zO&9my1T7dhf}sA4wa5$!HfpsFqd^`T-JvO)3+>X&bmFh%308}j-a*NoZypz#sMA}G
z`XaH|(TdUeP__W1EMy<f`lK&!#dVqm7uj0|YyK?ApF!GhM&-&Xww&}&v$iqaLjmD+
zGOkZ9>ZR>DO&*a~hQ7~QC+T{|wKQi3Itp+wt>oTkY4hO>?Rth>Cg~2pp7x>%5Tfs*
zw)EJg3~?0%yxL=QtCh@}Gk#E7@9o6xg@y2hMaUV#b|(K0owq<?C16uTrD2zIaF(1Q
zCurCHpOI~}20lTyBWpmLl_=$Cv(UFNnJ!?1I7~HH=sXtEE2g)qA7jNEqM+H7e+pjh
z;d)BCaUYQ6bHs9iRHCTqUF^p6*}1KoF2<wBut2&xi|k=)#w21|iNhl<B9D?0T{;gM
zx*L6Mi~9k_i$={ah-UnO>CcgKNZU>)ISs_WY0gd3BjAWH?^Ns}#`Zo79in)74!m&*
zfhP~yL-q!u-YxUU8)GMc7yQK39}rq%wvV|+;t?z>T9%TmW<5?5B_&h}5C4m#+h)Ob
z2!Hz>L|>Aq{7i|w4?_+>)Fjx3l39cpM#}pB(i||)BQ|@Hq02U6$#aHQR7gzH+E~ud
z>^RLUNZwAmI79d2Lv?$>>KF00q>CJeaTzN*#aAIf;S+c%?K655+#|#MV(?A5@DHgi
zH%_k<lW{bW>S*{5v{!*-<2jsn;62;kgP?lScLPcPiKro(;&)*iX{Ni1c{U>0HX=wG
z9`J;y5ovML(dOeMT56ka5Z$<@>64Mhjj)@;O#Tsu@n(9B&<qmis0MBOKS&*UwZ|b6
z%L76TsbVqNJgYIKH=7S$u4DX1P_mX}uO)|J#AGmEBtH<NsCmjfk4Ozt!9`Y!e1Oob
z<|IIkb%f*v>w*i7)|;d`iFH&#jNDZX$tx)|*23^5zH9C!*&CrExv}PkFGD3-8e_R=
zpR%2Fy+z(W1pG_K$-txJm1jAQLE!79c_{iE(IugpyF$2Wq%3N{Y`DM{LgFM;(T;qI
zyhV60wjvnO#dw(X&CHBFLcW492=7!<mV1~^0JM#1&hkiG6htPxh`cQ0mLfIUHvI|;
zYL+1sz4QjsN_U~-*U&WynnTA3=>$;^(FRC5h_`La^|*^X?orycHGd87RShwQCa*5S
zS4k}Hdl7`<NXQxU5Brq7%Eijv)X=;p`1)U9l;12*muh%<1EifKnuW-ht|mj%9Hm7?
zACr(SQ>bK}L;aHnJ!`@4Xh**<QP;Vfe$Nt8)oqMzW4o9>@;a&L`W3S8jfLe#?jP&*
zW!gUF44DH$=xP*!85&zw8L{V|#HJ&5ATwY&w!y8W%kRjqjp(u%uG3-q*01kpt&g(2
zo<|7X1H*^f+rL(Yl7oPpq-7{K7|XaRFzWS~lD**hhztx>+`8HDn$W#v{6*5bwS6Kf
zZ&xHb+)=X-EYz+n(m%3fDK`5fFvPF|p4Hi}ebsI<yhus1NZN4ofN$5PC}|C}PyZ75
zFYy*{2W4wJ%!AFO3WBorofks)MevAS1yrTTD3Ma|hhGORot{mKAt2hSMV1YxAOkuE
zLL?PZS<z9}=CT#>&Cixr*@{LWcs_b~ZnXAM9mI{w9h)lqel{6*aYt2ciY&>Jgicd&
z(nwfr&sNV9<;FzZ^BwagK3hKD!?lcw&rZTy`6k4NJe$mB#nLzhB)V~G-W(;_ffg%j
zK!buJBLjn?f}*0L5;3Bh(iEQrEp}p}ZHkhYUy`4nueL*#oR4W{I!|t{l$)EIC*{eC
zl$)n`a*J@c#8R9WtVnpG^uK;V)*#EjC8gJ+H49#wG%j%Md-VVHvtr3AzFS8{TJWEn
zhnLUG%a`(HRU%HBB&*b}m3=?Ej5e>0lkarj6`ue9O~#di*2g&cUbgY7nB-2vDI<d_
zc|n1eK;LYpK~`I^Z;FZv3XTqrj*fP>Eie_C6vb-6A|YmTV1OkuQbv7wctB)=DJ-l>
ze0V~FUtD~%X3cC`)GhlaEUACr*&P*~6dj$Egyo7~8%x4B`93%PR7be4l92S~z6pKl
zo;@wCuT|?7E?g)rS|EuF7cCSQE?h4zTwgl{=LM3~xSq1mcc6Ci6pdz~jK^_H^h&i;
zYen?uE8>KK0UDRSU91zhiwjZuPkLi6O!Z}czVdC#8X5oSVeZ)<S7Kwe!Shko@&D_m
zYb<qQX3n#xo$F@@EXN{rE?VGpU`aW!h#U*o&&DF0y};>gTsIb>WA@}JM&m+1JdRtA
zO6TmUvqi+pVo~7ASA-bp)K`SQm2ZJX_&mKa7w-5nKVSJaWpoJw82a$vKdzn^A)<v|
zaEn+$OlVcr$a`_I-OyBw^O?Yz{(E^4jA%cGiS3AmIQ0f*WFjz0GN7Em;-5$@R<s*^
z3k~E@!1>?HAbn#J8d3=ghe~=ui#(wZoPse#eBBRnguX`<P@)0`@GX5S@RRihn}96_
zXKc^3bx*vl(Gcmc)ye$x*{0x54ZfB^NUeeAslK)EfR&Y5SvyOw!Lc4CC`SJ~ut3>D
z_yBc~Fr+*tdnQ=B^iC)d`U}xA(?z&iHRIa*N6Ea*Lm(RbhbLxc=))3v_(}(C81u{K
z+r%fs30X#?Mf*mPgr3>|28EAS)1%)Wq#$x2DXGH%P5bm${shU+49xB~D#g;QvyxtD
z#3*{m)FKZ|8$-2VSO(7bEIMVNQ2f6?rqKivU+-;ZW{g0Q9LNQ7!T9?XKt>)3sTU=r
zLZ50e8H5_5=<sEIe@VxqlXRR0j|&eE55@P8n=^EThPImc!=v2uS-|Z;L`X_H-%rqm
zhK9N{V~Nh0!FSG7_%<wuv5urIei}wXB%T?GS(4gzexZG$-e~UXmIGdlFqf!&w$!#b
zT%R0eXgUwQ`#96+OStUqBif%&etz!((%}999bOB~5}WfUd<as$Czhj;YcCB}(2kO0
znL<e8oqXFNBteq;4js`yBw=`1+DK1crct)Y__)t!5w|f(qnQPYyF_^PZIp02lS%}m
z5nmhyfogWA*I(<`kFs{9wx!U_OtreNp;V*Hhr%ito9N=uasDBQTm_M>!1u_n%0$)a
zpZ#T>{(YchP*!D(!#7A)bw-|<Bw4|pk;*0iCdvP%OhSFc*u)7CfIW5(J|M^yIvtwv
z)x<g!W4So<1x2>dfsIRDvu0Vdk!}w81B7-R-%9Hzq!o|&9E>gQ0Gck2uK{5*@YT=>
zFQjQdnY6+R@~o{Go{hgcgQ-;;pMeoSviBRtbpAZD1_P9iz67DU8pH*0Xli@_T%3!u
z<;w;!Cq|ndV<IhNIa|<*Jo<!I(C(C3edDxb<%{CDSFjHIUQaeLYravMfIw_7B=E{t
zV2q05;!qK;AQemPWA$UFLHBf|=~GjYXL=W2E4u_T22|Mt6Nu!N+*6Q__wTS8Ml1$L
zaW!z`5?R|@VC+|l;Emg8!=|V>^2AwUjG2CV!HF2PcaVDK!YV#SwgsKHXLG~KP)g~0
zTQtEMsBk)+(ySm>DD{orn$l5bixza)lAq5iZeuB7b-|8ERDA!i^<d;NOen{xoK|X4
zeLQa)B2Ro)%5~m!H3;4QL2ie2!wkO%S<kOL<>_Yvv)5CpiH=r@MdR^$#d;)MG`aPj
zZcIkU!Fd{k$3-$UHPtSI!;7J%5v5X^TR>E%$?scVF$!C+4qUaaR05jH+@p13mH{N1
zSAV<06E0|~HQw@WhEOfl)R&jK<4v+bm9-XCHRvT3k%4{^GwAiAS&LMd4&jErg|QNa
z^SGJ<CSOk8fK3viLWz<uuWS}m{H#WzMPwhhLCCsA!<xnNQ-~|;b%bSp2jBqb7Z7Or
z5J3wpf*aj@GeX(_Bv!K=-APJ9>zK^bAnidj60?FmgkBXn5-#%o5?CZ9sfi#G-V`7M
zPcR6%!)0a$MHN-cm{&?@(}~m>t|%%^?$2=xqlLDDVv-cA8kD2@sg@YD)MaRHi~R!^
zh+rr*hG%@B54wnnG7-68JccTL47-b=YD8i&NsO!a=GI|sXkO#-)FL)XC6gNJ>l_{)
zC4PXo2eBM|+ju<N%8_hino3QF-05g4%jJ7+dt5r~hw^j#I$Wp=#d3GmZ4(7_uG7zz
z?!tOfRoL5IK6aOmdF#EU<t`Tq)ih|l-CU~Z@0|w`y-RI;((K$XJomFQbh^nQ%UvA|
ztBMp=9tLxWybAO|D&iw>4BH4fa=at&Q|O5ucRxcFY96<flB=K-{MJFBv255ea+M^`
zq{ELw$Us!@QJc^qJ;7C!CF_hy_76eS+jN#*y$W9L6O1WEA*Ku9OTiC(i2MWE(Qm!I
z4=pwJBG>Z}8S{0(<1rMrACV4-e<FB1+8u_Lh^X#xETCt|vn>DP*c7Ow6G$u1*O0Bn
zZ>z;`tKCDiLZ~4<|BK_*q8OX2d2hq)kXm=>5h}X;>dLE-jBh?!$i)%X7;=|!y42d<
zRd=gf>%7SWb2|@sqjl2lJ@198-9l~`gX}Q4>nkVVXLGq4s(G)$Q2w}*7v+bQNB!jR
zn7ZC%N`|3yXTvNE35G5Z8ZZE>Z#8K;+DwmtYRbYNmfrD9R9(>(b@{w4{(c!8IS?AX
z@J?kOn(IgOxm%4m4MX{wqre>Q5Z6>Rop#lhqh!Z$vd<mjM%i}nBh_F^FAvFWKT`~M
zCEq#1)Siw~*HMb-iFNnDJIxjCHso_ewdIuMLXA#!xhLn&=B=$tYbuEt?r?i@Yr43j
z<NM^HJ-^GaymA5&4W*u3j#&(@I&Y22TrN-EJCZ{z1DGW;hpRldN)#O-xKi=by>ln>
zLvG()jsQOeQF8`|1L11Zh^Ew2id|@px4wSNu3xCt>kZL};cUFo(%|hIQZgtoP$)2L
zGcXr$-pL+UIx2vBY1-U2bPJIC^DlI4NE*X*DlkoMGY3L{VSX+`bG~}b=Olw7R<0Qh
zn&8dVOm?UdB2<Mu9D_a*C?&ZS3;M}C6}=4_cZnRQ#}C1)Q8rGs2OAA&MNDZPJqUs5
zg@N)Q_|1gohSs9qPciF@N{R}d155iQ_6?JNQzM#$8L^%i_Yh+!i98A0g#v_@9rvxL
zq8XyA$s8Iv1tOc3u4ik-r?8tuH4CYQw|62RI&K*%c+o~7z5FVQj_#tJS7FcBEOt?E
zwuuHKjbB8g<3f8QJ*CqTZLm%o?D7lMd5AbLsE<}rQICMGkWe)s`xom)nUi>*B|MKP
zdvhdvNtfu?+@NI$0C`h=pU{7pVylNf%C9Jy+XwV#7G?{<@iC|Ywz92kB^iI8ED|hx
zNKCekH;Q`xBAAB6itUHRDSQBp2`Vxt8bn*<Yy|B`MmlGLohy&P1O$VjV-z}i;BVwO
z{Shrr;~l15kQf~F2e|`@Xt5r;6aF9p*%uK}i%}zWg@qkg1FE)L3FhX4wk?%IzkrZ<
zM1YAGQ3$(UzDdy94qJ4Pnxl&~1pLfi30wfJ9G`F>OACC;dD5@nuMlHY@|5UKGB!{d
z3trws<n_-B_MQ;&5#F)ucJ=|&VFn#$(Cr~Q6Ru6BJ;b^P4MgYA@+<5M3{Vw&3?=fV
zC*X78KAd46VW+VXPDy61|95=hVjweN$Ors4B-m3;cEHy#Hm-aw+e?F<pfR-*RlWA(
zP`($=v+lo8*RL$TX`w#l9$AZD-ntilq<$Szo43hJ4$3QwEzIqZ($VmUys-&I&fyav
zJpCJzGJ%FI^uaBtu^?M{VLK>Q;!na$@6vW%x5Ei)<579raXQjbFOmR#T;#B{h$YY~
zJTGz&=wmG=XR?%=Y0WI|=Zd%ox41Q6!%|QAguhN=Sz2kCZa!kb2VW-{nVZ3Jko3+!
z3ORm<VLc-6f@%;p(IT<0kh__m!%tzq!z(Z@C+Y)|k)4*E9h8R3^P`x!oI6dV7t_R(
z2siwL1qB2J1$04bqFHpWfR<+=O<j#6;}X(GuN6DJ1I6D%g58oTo<~)Cv9uSVr1Qvf
z4l9f3Oykwbf<ZorW_9hVp~F*BYK$(s1Nr4ip&hP6T%^kj_Yp?=E^LPM^Dv-GJ$^jf
zPM?6RyzQV9<N`}w!k=V6p<-nV>KEJSn*{q|fcQx5GKkap^PG^BR}cxuscFDda*i9Q
z$Ni@$PE5QCk(Xc}xk7KFn18@*5}5z7*kSNT^d#4=ELr@UzO@)pNx!k{V5t<FB>5;I
z#@<0imhmYoNFC%D6=w=qgH{FsU&CtQB21)uzZoPtMDWK3b_UkKDjF$dj_8iw1#|{o
z`zT$2`iuZ6(#LA826BoTZqiZu)nbt841_qJ0=D>%xR{)DQ_t7%yp2$PR5X1L&eJH>
zJ%a>>)nQa$d<V@(3qzy!(~6RVSS$R$XQnvhx9W&(0VMpyfz6R+x1h|Rm9<>}HB6*m
zL!z397BluZR|6RQpF+Pt`&&~`SF{Mivtv6N+FQFN7f(d(#S)ahS}UQNh;ar*(j9>U
zOF!cr;$BNqeHCUl-9?UY1*n>PZ2`o811|*G9@6bx%oGx_3b9TtdQM`95bfcNn*o#Q
zDKd|RiXqykD7t@n12xnF;^~uqr%&LeE*nY9!TS*<FaZ^`1~e=mkV7F*Z;YV7vyVs)
zeVG=ohqgwC-ez?8mMLrCG(yG4nK(4?<0g<GZVw6L`a#TLtPNXHxEa|RA_RZ6z|YSX
z8QQq2MCKzn?KGH|&}``z?18v-<SMmiHqFcoX!@a=fQGtlDk{uIv)MSz%(>5!)Rwjl
zVEq=<JuE9Y()^zAdhSjxpdO}D;}k*cu2x~tu2tAp55U{DqvRZuwZDRw))3P%ej3#A
zXFz|GUPdGJPw5mgbP`GjkFudL;$_4k+@+hK2l)+N*-x9VKse@P_)%Plwp^L9Yow#x
zb}p_tRY(3z)Qx<_E6HshiMP2|k~awslO_zqx+#+Emzfb0+v24(AwL-IlJ;#Aeg(Pn
z2~<bl!Rl4TPLqy5vr1GMZbWh>Xc_qoF^?DF0cDZDu{dJubBU;z;W*1b&$Y_mN1PL3
z@Gd%uOow$+_tJJfwl%h&t-w~H1bG8J<r|9T;FZtw8C)$1Tm^qJ?3!6b*o&x0a7ACD
zEbx_>SIjxLU^5r_5sZ#A2do8V3b=<F$07Hj+ajX0I0lCC%R%TiA6omWJ>R%6N@J*x
zutq(CuLU4sJxVXP^Ru$_U~-n~jSdr26&IQ+Er-~goZ$43ms<F)&^7FpUVlKe72m->
zX+8;jkN*(<W}`1dN`&Ff{2OqHOD!0w&W415&mc6d<4&@h&w1fXwwlE3=DFq}I;Sci
zIAa+c5Tw%(7T>I6-b_w1e-DwpYf!yEljK~aN*z+3CxrQu7i~`-p&?dGbm=PSbd76S
zk*o_9&DYsn)+zTrxR35zP=U1>G9HuYTQFJ|EUIUT(zEyQcgR$3GW9~#B^vU|0_glL
z7l$Wmkm9zsbPtKiNbZz16}s<*)(5C3E34=zNgV8WM5dB}lYr)~<QTO28YS-0gXN?;
z9Hzbnxmz`n3;EAD4KfC*21URci%PY!q_Zdjx`QH^?)z&jD6+F+qz3~=dT?sETof=%
z!Tr7_c4ILeV&`b+uk0fDF5<=u7<}jZE>>1d#l|CHslLl`XjF!II^o=PGf}Y+hRs6w
z`)X3wVh`yUHG$3{I)zO@@0jE)r_=j3&T>xjnq?ivfV_|Poxvf|+xQo<ifZ6C2)e@H
zE^mL$CXoEKFa;GEL9r8A1B`tS(v~ByIb;S7j_SKaZO;kw*mfwJEKKKnMv17eMNT=)
zcmz(6<J<-yvDS02pF}Pb4wLjBxgGotK41rPA_&PaFxW4TU}te2l4CYOks;$ld|0Hw
zDBa2xI6cy2x`vr~IZ^dzNaO_aT9Y10M@463Ry0XL?ug_3(2*p@S>$zkM-yIFkr{I-
zMouvg0#t9pV4R!5Y#Lxlo=D!O$^nXc5;`VP-9*R#iR{8=*g^I7pUFxxlg9EvZBjpg
zXusaWhVQ5TgLWfJu$R`8$*>pU=YP=;nB;QlmXaI75QIS40<Ejy2}M)Z=0z7#w;nh8
zB<N?u8fq?M1Hzk7hhGlbFWV8^s$<Tj@OslYjYX70Qk_&S3U^Y&T#`Nfe<STZ;G?S2
z{_#_8nLc+)rlj6XLJDb<1|hU0gcd+T6{(pdlVr%W%uFCr)BqN+AYuctU_lWJDu}44
zh;3apV0Twn5!>2Uz+GK+b${Op;HvNY{y(4h{ZDes+<VTQd(S=PdA`s0dCp~MsUKmy
z`Wsur-eUvwUincf-%X3Ir{^rwA;?h<n}l`pFO!9#cI$w1tL$3wN3r%0#sBTJyTTjV
zNdEys-fU5{BD$#}ybfQs<epW~CBNR!CMw=p<*qTV>S<uO+H{K`(O->XcD=zCG%S0Z
z+OA?>2^sEOU3sm^Y%&eUU#iFH@aWQX9;4zcn^tiFpIuj5SC?IT3C2dV(XfGu1tp8_
zpgT~^`M1Fh>R-Zo`Uo@T3}e|NbhGu-rmm&ciR-{Ny_YSVJKf*ZRP-vHnLGLfb3IS%
zmsaYU;I5rMzIQYI3B&uMF(bx|$rxd{hTX${f>GX|lx^~kN>?!N$KukmKTzk}=o<&<
zopdH5xKUT^1bX4jlCdRgC2=cAqp#Du#JVxB&@oNR`q#pIFhMJ?p}Hm7uwKWOZQv}#
z(%^23vdq(gt}-BuFzR{AyYzfes_cWpE5cfS0^%l)U&`$p_?b@&Ie%d}Tlk!V(mq&}
zBN_D#`I+*RIhCf=gEae`<xhg{A)9BJGm2EXaa{ckbnM~@Iqy>YT<54w{AxV2u!+43
zqvsm>8T>*U8ve%q#0*A*VL1LYg5BvD#)Xq5t09#d3)8IOaRuOIQ_go%t~q_xaC0e~
zJv7TNp`_By)*|%%$-Ju5QG7Dr8orJi0;Ay{EfQBs3b$~r#?px0q&U&wv;gmTOn#aU
zzm<+j2v;KF%E+bTYFg@V(%!~;ecxg%pYu0i6Wz~7+)N{>uGCc5_fT<G(-GmjQITGk
zaqE2A%kpMA{A%F<WZ_T2b~|(4kKmf^rXhBaJ}jcud_-@B0dg<<k_|xOKPUfHp?vXZ
zFe|7mrDfEorKOp>QmtZDszx(zuAE*mRCXL@KD6w4GyK!06~9K${!Ebdf@wmsBo}91
zM!{nEO=+&@`8#OH;Czg}z^B|s4V9^*3RvS}HYIl*mz7a_So-B`q4)^DlZ}a;mwF%7
zx&MZk18eE!((uhJ3Sa%%&(IG+*jF6q7P?#3!olWpb{l<xjVU}IU4x4*G%ZfEA#^Ne
zQ8(vH3x-*xa}eq7G1`<VUC7FFB!40L4w$29pEhZ=8k=4h`kYQmUC$C`HMek~Y;`#>
z$juk+p7ZUM^Gh=)6qV;+C*Fz9B47B7Iqi0Nku{s9=-_h-PZADiI4x?YcDAe1Llwit
zY_2rPXdI>2T3qVr;y_kq+tlgY<<WYk=_jR4;Sk?>rVVk-Mq<g}1#78IEXj2>J}YyJ
zV!umL?~&9y`JB~aRYvWzvV9MqbwP6X4|4WXe8x}mz3d&fVkfiIKFdar?l?^6Nrr31
zi#0b1m%?M`ur%y4dDPqdUOIlf9Wd!U$Z_(SY^KSTT{LB6by;<_qwETV-fOy)&KQ;b
zC@pv1fmyY!q}ZC|PCP2<$n!Kown2j5#>mv1o$`Hj;Wpu0eiQ8)fLQ&!a5r4#?+1Nh
zFProrpZEhpa=szILLG}|D!0=NCEslRE1mlhCIWSSN*9j#7YzHWsW$UrcB3?Mp4)vF
zn}9m}1PEl0%BBy+eH_Gy7Vli$tXVhG>v`TckdI&(|BBs*8AzXpG?0JJjGC$WOFZk*
zL)=O~q>I!P-N+m1l5tPahqXFz&*nmN_>+7J2l|9v!!M)W>!`>01(!2m8?UwJtFDTo
ztLaOK<@6HEH_n=lNo1FfyIC}(j;pPmlJc(PDXN|gw#sF6t8gbvyeDp#)=BTP;(Nu%
z#0$hVplk1>#uxa)whi>}V*5`tSg%{2=FrIvWezoUr93J31L<1+N4itan6-oLlEQ`u
z09(B#z~pcdUk_fNP1CR*=O-HizW3;o+vT=zX#7R3yV{~zLz_)}oMX(GafOdj-D|A%
zCpvjOO)dF>PJf0jHKbSOBTi2q?bl^ltZ6x!8B(fCu<BNBp)rk+)|z`2Egf=|ubn!1
zar1Rde4V9h?BfTyxbP;vRelXX^V1Ly-=#%UM}NZSXEbM|s<+d1G;IT2m}(oNxiCr5
z40$%ttgF~tcwMhZ!)`)Q6xW|<>`wG=JLt?8&>=TGPbX&Sf08eeA7#c#S@TU$<L8e_
z$HtyqfYFIqZ>3>-;M`?u^(<E$q(MY?VV1MzO!JSNI(7If)StPBekC5HeT~n-S0ZQF
zZbYqdIxeLz^Tj4rc!8F%(z3;-T<qM!;!VOR)-?KzQ47<I%bus@ph}ycq0<&eUDxxw
zXt8B8I^T1Dq~^x6o}-zH*E<Zth*Qf_W~ws6un9%`80Kk#hXAmGCFWc><do(72wkKg
zx1b<bJN;V_1^k`n`{2<~n#}1@(*K$aBT`rQHtuj2d>n5SUYGatS=o8RFBa~i-vL0l
zhvs%XMD0V`kAEyDdaK!z%OTb{ZRvF+-{028^rO~M2m73{NXBi<RWmQNo_2&or?)Q|
z*3elce_<Imr5?h=S1`gEjl=P${q2B3F<@}bTHGSz4={%^Mq{^L$c@?&JL$spH2<Ww
zBxdp{+PCOKa=~A~67ks2S4`P*&@v;WEPj#hlX@!59u2S2zOLQIs?8I!Rtf9Gi=`a%
zc5%{nu{gU(Te_CFY}~9YcH8LTgDqs+t%ZV6-w@r`SE~YouG>a#&=ec>YwGGY*HsuW
z@$$ClKU=J&DHm`865vtb-j@t~;NI6%(!O^6jKk57YDP+{C#i=E-VM84n@C-AO}fxn
zYOJTeBQ;hhs2X+0HmB#=U8|q3TkW#fX@!eEKH~LGSL~NwRJU63-k-W&Tw%3V8@{JG
ztLYL$T18&6#*_ZSoN<{MYO=QXXoS?(9E9I}i#B~hM@^ZucqXd)Yssp9Ifyen*CrG^
zLrK0+oLXuXY>L}p$T&=e@Rjsi_%qBKX%rEOWaLO!c~fV0tp2QI^ahff<<gcGDK7K;
zTg42EG)n6{C)HllFhvxgM~V6zF(u<Ex}CQ#pZ2{tCEa=tH+Ea}^<%f7UgZ~qn8}LE
zfR(A%Os|S+XDX8CYSapHP$P9I1NBb>Ixg@W*s%7po9bGg+Q=ni^M2ojo0U<wrab?L
zHCD|Zveor#1f?aO{qiQEz%tOVx>~hgtxjHjL4j_EI%D-kl5#|yT%UvZnss%n=SnVD
ziw_YRG>6p%)GR4p^}s<3>>LA#>go~%x`xz6l@`H{`3&mRW8f(;{Xkudk}mk9)pZ9B
zOv#mGx|*uq1&R*wV%Kf+DqcyV^uRX6d3Ass{nUYGuZklVADGmPP_iTG>VcLPm(mAo
z!9d+%xEUMh%t>z@(XC3@(2uLlIYHC?nl*pOdF!tl6`ba}Iu&*UsFg{wNW%nALj$(;
z)(X34M6SnLVQutS>Kn4{)^fWI8=J*bk!|-JJzj3l&8?`&c6sc%6*<|tb~}6#VX6>d
zZiS&DNnsY?pa_{5TZY)5u&ZMYp6JO9)~AmQZDApzMh9$HS~H?Ku>uUPjQ_}XqVR`L
z)MdG{s`DF0&+Eu(x|XK4jB{uJJ_HwQ{F^8|Q_d?+rcf{8`ZRq?7mPHGqtEQf8iu6l
zt>ZG0a(Rno$`;xQQl05Ih2z_@%YI3ER!3Go5@vQSmp`F_O*Gr^4{9yMk-yTWEwp<R
zwWL3&`Hgy0_&+E&V-4wJa(0UP`Zs@5$^HNnP=4_>l%*Ay-LDy`7sWg{bq*;?!>mw~
zv^b);CB%^aMNJx|xax8=W{nXG*3*+g6iXT$wN<sXX;mNdPsB|u!$;CbX*`j!9&86e
zWN>Qkq7C2@?7)zl`2-^07|vQcXY|B}D8ENWSM;8cvzZ^@gJ7FwzE9V~WcCK=I+5B6
zk7fAMIt^d`6@7)Dwp?TD8IwL)J-2Xvx9wW7+K^O(CD*E=>uA<4j4Se1`kkcNpVYQ?
z)62QY7XO_pAMq*clYGu~bR+v5NODPg-}Q7OfXA1_`$RLMRxQqABt6}dolO?s#x}C*
zKeNUyV)lMoXL?F<kIpSBa2YoxgWEttTs-S`rmm(>%iqx*>~?emCusf#p0?srggjY<
zXy02{$F0!GO40|}nCicR1AH5;GAi~Wwd!K&BeoA=UmoGZE%r%D`j1k}_fjLz<>DK#
z;F>gA)npD>O#-+xOcfBUoS((U3U-sg(*+!2BQW(5=i6bSb(jP@j#Owt9?|cSZ$AxW
z?~xtaQgf<tbgbM`n`hiY`!e;Tor|i?wZru{&{4+PtY4Cj9W`pQbFDV@VR^k&I_E=b
zAE1^}Nmz+ksoTN!+{{NkMmK3N?wqlnKFtpDjy}LVXS~DupBEnlh_)8Q{hFWHoSD@d
z=|l_^&=mM<DDR7f_dvvRT`$}yIn|FqIp0c$mDbE_{22i@A4#gGw}DcM%{Q#*QV=-n
z`o3idW}W<K1gDUK#i<oi%uXnrCF-N}8gb!qQ5-2@=5M%}1#+wcLeEhl#dSZdskg8@
z<UQ;P-m?*&h(Ad4{$L27SvP(}>gRmECF3%x*$ACum%K^%Msp{<g7;q~HNhkuJ%d(h
z9Aiv<Ir|U|rPn%VE30y56$o7Tnx=jU*RN-pZarJ!eTeU({kfM?(-uKjpsa#adXOf?
z#x)EhhbI~5vEeQnm@qc-F*_t)N0)eO<0Wg@Xz`5Pl&oPl(pjJKc^A`Ib9R=sFzZ^)
zbOc%BWtT~5)uU_AY-#!opw$|<6#o^9)CsnZeZ=NkwzIDF5R^u4XQLa2ucI?7=d2U5
zzD_bCE=po@E9{@s2ppiF)jq;nMt@8j-=&>L<lMXHt?U&+%+eXzHv4c|cVJ@<f!heW
z&QmLq4z#%1@zqd@?$iJ$?iK}6AG}zt9>CXzZFZ5YdAbIEvPZlIq*lr(soMzSZ^I3o
zAMotpu7UCaVSSx<3~Q=Wb2&qo3}f3y7d0MesbabTubneeS0e}ml`iQ@^7MXV6FCqx
z>gu9h+UW$*=Bp1RL(Vf1AvI;FaELvGkjuhPG)J#*e-Wl8S6S{O;IsN~67OO#|K0{;
zg+_06+z(o-{5~CK(sw*Vb?KD_k3n_x-zeVA3^!6+nZ{sE*$uSkQ~DV#&?qAhGX3A^
z`*gTodX*0!p49l$@4~6a;Rd*#eatYi_GiLjU|C)v-8y%&)Vz4YRrEabS8T;Lc&4;J
zg{*%@?*MnVwc@oDZ!l|F(@Vk~Ftv#rByGylVeZS=HVF0p;&Dc^)nl!^h2~`rugL#{
zP&q&|ZbR)j^9!+IE7PAbZpwn0wTSm6zk_H4v2W;b>b#xS)3M+29|h$@4ii70w`i5?
z9_sv(ZW3$eUm|r4*O<(EL=mCU*GT1m2QYU2KC0I=eM@JLyNr5FSF_7uY#Tkgbg^A}
zgGvY4h>NK)|2mdYQ}qZ1&vHNeQUXaF7hdo*y-d_Pw0105Bbu4q9(zSwP!8023!COJ
zz6rxj)A(TpsiqN?-Pv#!GHCPMxkXt|)9=_@5MG>`;z<|6pZilbl9&s}Sqsbbl|?k8
zWkzf2h@Q1{O4jsohS!1D-^3o}+tD0+&q`U&n}ve3$s?-n6<%kL%EjLax6*`EQDDl1
z*+U`Ol_?rsisO1Za!OOFTv1@o6yRV?hBvu1ZcUnFE3KK@RH~^cP%_0AF@IZCpXxRM
z>T;mJYHBLgRTNmV5OKy%X5BywaU#!g6T)aVmD)(1$x%K=o4x*NkJg*6Gn(mI#4S+}
zvI+H9_1YCKN>8b3fdYFj+J#!vg|U7uY1sy6DN!O%)lc}aFxX&V4ag;&0s8vEhWlS_
zx7Q|fZ&Wm_B!0nD+Xe>e`da9k14ooP4g9Q<G!l&+Hpw-ZcTuCj5X@+cQlOC(vZij^
zHr1{J=LEr=41!*y1_n}^K`Q}K1KC0^fxCyPpsaA7=IK-`BE*e&GIcgId!!VQgxV3a
zQHy*C_3#t(%&Ey+wXiKIA@=X&<_&_yRaBUkKRP|5)SI6_560O0PBIi$-pBQ~35o$f
zq=3sOxe<vf`2%qO5`}Ro$>X-<ag`xp$LZr^kpEU-*}a>nNt-(JE?WOOt@Z){6g&W(
z^bFB<G5`YB=}ls$4HulNcZd+igxcl$a<QHX%NFWAB5b1iT%SI-d;^=24t5ki>FFN|
zSBM|e;v4zJ)b=`Hp;y@Uq^<Fv!ejI^arVs!4S{Zev%+=!8u{N8f$oOc#lmMO{k4=$
zGvrfZv_=*qo1iM~VDoE?Vuewxsc~0KGjt{8?YG!VEGc4drC0OIC2jrKvD4f?3PWi6
zI<}S-T`5}g_Q{2Xi^tM*0hs5@Y{dxaDyj2xc7UFDDg1LUgiiJogL=CWerS)Pzqp=3
z)XK?AUqj1hlyq*U(<gN`G~|rA3LU{w`UN_$I$mv<Uuav|;J%-pnRS9r%Jrv8PYQR^
z`AaqkS!;kPbleJ$^|de=zfF7VpQnMH2sAulLL<OP`vH0rhF9mGG3mvpbf2hx2XBzP
z8-<k@!isFYTUf_}wFL_nmW+(nj$F&?j?486ZxW_&r=tGMO90C~1IT#7xo((ezoJE2
zav|jIjm4_ba7o<(bnTfLB0q3s<2J=%kx_3kg@YzZ;7RU4@FfESsshKq+;x}SzT--v
zmK(1+P?rsv9P%&CJ_d3cB>SPn1Ifg7+4m#c$y{hbjMaO{&~-#o=lN%iWQB=|96-Pk
z2Xi4;vcZ6mTnXlp%sTX<)()BhxL%mMLMuAi1VcK)gkTIn6emdDdSezlD=B?5H%zEQ
zLU?km)s7rGh;bsB^W^dbI?^3@MF?4V{zvo~YKz#-PK{ya2u(qbvuV0Usc6mAOp?zk
z(<oClHj`8DkZ0ADW;IO$_s8)J)jUoognbZ;LHpSb9QYQx>fAmHE-<IcoRjTtI%7(E
zrn%a(B12~a(3&0x9l|1wUsS#<!{ydzgR|l4nAw)3Y^<iMY~Wa=H7y*|k$DY;a^IaP
z=_P5@lCg6#3@JF3(KH)mhaS^(_p<6F$srQ~8<KJoUidyNn=sy=RePQA20bHt&W|)N
z|3hKfAyI5cnA~*XHMXGtLBQ&Iz#p4vy54R`H_u7hg>k^1TmXcyAs_^&tjf7V1~Z$O
zYu3n`H+Zc&>_MOjgQ74@{7+W%pjh~y>z&S&S^KJpFuA|G>SnmOyb1F|n%S=WNOK#$
zpn)AyB>p*t{c8t=UiGxyuke)J?<?T<BR0{Z#LYDAUHXK?awRuJ(jm2%FF<tZWUKt1
zZWPXd@D8*2lTuMb1wv%k)OTplG=2?>4tz@FKXKO`+<qZD0uS~}_}c)`3iWxH&{Yj%
zK7?id8u})$P%Z&dx1QEy)&`ZEW#w90zL~#HR}?z(Z{*LiTlnK_3nJ?k7d^~w7T<<U
zpEv9vJMTT(`5C)KLZ}T4fH#Tp`<T;ukRg&3%N~Fa)!SNcPH9X2mxu#%JM-Gh%r>L#
zezqqm_*>S|3Z?BhdxR~$Uwl@02p%3IwFuR!(c}SDa=D(7&-$2_&h5&Ndw0^>ztb}>
zXOk}B?~3ozKZ;I!+VtA&#)Gt`w|N^)kw<D|P;D>?L5g7TNKV%qwC+CUQr3#M%Zm(|
zx&pl}Q#TxcT0<T&r<=H@eH%ocf6=9%v%){3?(l+R^a-I*%@R}7>rzuw-NG3F$am85
zr<9WMzdJ4$UrIYK67J>B+gaK|=>x=Bw|vb{NOPn~dfN>ktvo1|DBID7j?zY7^eXyK
z1hP7FA40HHAAxJo+@s>j);F~FzMqsWJ^z$$VQ&cHQDNAOA7CrlEoVAx=|#h=XQhlc
zX6JdbmSJSUXDG`cUCs6b^m`Ko0JGIm;@K%*45=3pp|yfpDw$@M`V5cBt}j4Ov8BpO
z@$=sbK<s*+74H#K6r;UVbYzuprKa3FpqOP#4k6WHHOY$2S(;NTnR3lwI&Ne$%*JB#
z<ja};Z`}Jd`#S=0m6mqv5O}?KOwX{*bo{#zBJQS*jTw$v&Ut?pM@R0JKa%w)1^AhJ
zwYw2;a`J9^HLJUq&Rxe-Z-*lCww$@@9h$P2zk$eR2zAMtN6bOgm469kqhgP;BW$v1
zv*_}4T?VTDDIn(#dKpGLwC_h@gJK;wvmfZ6SW(e-b{9KJTd!oM;$g%81%dKL(f<&d
zPle0jasiJ7QLFZK@p+ot+%RoAb<;NZB)tsktvqKdy+>MVUJngv@@Tuarv5I5fPK;^
zE^;rwLPB^R;|^v>GZxCJ+6NimbDEa;1wZ#OR`8SHdjerU>Tibw^>c8;UB^m<&L4Qz
z$FM7}rgv+*ZjdHwvpf?Oy(7zpzwxGw+*<8()Rkrx>b#mP1)YK7NUm!xLD==;Pic96
zhjk6cux9IZY{K8@d%_jCzX`ER>4)q#LEo75p<s7kfQa4t3x%#t)Kw~At`u(PLmL-g
z8AL2ut-fZA!}2OUB8+$fvg*Vt_mW#F<khdK!7wxNk+=m`x##Jf{05ZZBSOWOG^ag#
zwJ^8bVTvsKj_-u+?{@L8a9K~Ql?!>}lH&|<kNA`$Xcb1QQSzk0d+{IipRA)~oJp~H
zY^SC1&-mr^LhT2#H8TxXgtNfM$#w%4SUD!$QWna2{?`_mrsmQcD0t;pVK$Mid<#o;
z#9v`gv8<cL?_>u!Gxob#Y(4IgZ9(mRIa$L8=rnL5lE=2-0DP$7jeR3~g}ugN*{}!X
z{@NVyBFq6Vvi#SCiUqz)#cj0N0&jURZJg!`ZMK^KE!_-Bz#iOB?Ul|iU<%8%qzur;
z%yF~L_fq>Y>fbIYj*hDUtv!YqH;=M+5K&nj;K64RCG;^Vf99ps-+KW+DEtAjFE3`9
zV{f2E>BH@5JH_i*^Amuu*V4}<%eT~9`x;AofXN5x5j4zABFGu;+i8l`rleSt>y2ot
zp@lV<A&R=a)V_sd_6C*#QnPMIU9%$UqTn=SI1CHnPqG2zXRcQ?Rv8i8L~JQLrBRiy
zO^OiKGo;Bfw5qG=`3khEJqSgsuhon(r{!*<cKvAiT6%U2ekuldr($X;quCb6Oh~#F
zh=pjj9ftpH?gl#gj10_|FwIyx9E`QGT)P4yf%Q5nW3qv?ZVsQYm9o~_4vT<<kOr72
zH$|F(*yj>AX^oPeidv>QM~|crV6+`|0sE9cOh>2JJ<NY%=I1f=Uk#pX{?DwksKj03
z-a@rZav|(sI?qC2*)#_i?dd#+kCvutm+JeB$6*b49P>$;Y|#AEQ@@idkwZ020`q4z
zOC4pu9@K>Q+32ZD`<Cya%SNSGoAT#7!qu11g`FuWk+Sft^OJSuk4X|uf#k_3bd8kT
z9;MRkR_#2*2(sQGEh<hdFS{X0@)}mmido5MjS1n{`?n&>zSzJ7yH0RrF|#bBWH7;D
z5F9q<NoB)5Y~)xrq7)n-B)=T8<{Lt_t5HA7ERL+(2es^Z>Jhm2H#i<%+W&y$!K~;)
z5N57*axH@Eq<Y4drljYN_rAkROVcH1x|Fty?PAu^57B!y_Y3RzS@ZH9HJ;ks!{_Ws
z5-*c0?7w3?!9T&gTZd?R>1ZwHw33|bd0wSjoj3F)ZI|#QP3$_^Z&l@7%Kj<a#O-vR
zJnm_#WS(c-Mzv3C_t5>PJGSfi7P@@5@HkCuK!lQL@%W2*Zgu9!yn9XqU01SKXz^~4
zHP0(7I)Ki9_UJliqR=)<ubVa}HP~Idj$Vwog)e{?`0(j#{!FJVS*hq7`u?xF(m~Gu
z0!P&aPYMV5vpk6xCqK!VMlrh;ha61^rG&{;07fZdA3znsK_X%K{Rce!WCrAi{7u-&
z(-clt9Kkx0pQMKL>rBuzkr1C`HbRoWkz9s;KtseNa!pTN1}WuJiIXXkAGi`=r4@(v
zpn%F~!nm>jAD@%g{lBb-l*Iqz3e6s2o<z}Z(Si>La~2h3#B-unnWkx|6`p81jXn8V
zbf)x_q)VRGV&*!^F)x{p!F3W<T@SwqERqH*EePPu<T7bAh72owS*&`CBg?5Mf|1Ln
zG{vnrTngrpOThv+Ors59gdHh*y+yAueU=q(2u`vRt|eiug$oQ~(pn{m2^vY40$zA>
zQE=5Po7L>jFl8ud;I1o*B}MNv+Q83t!vV+%r@7=}MLL@<%PcvKf}G)2>@Fr~OeUZL
zNxBz22VL+5G+979k&K4yfNpf{N`IXXm^))^#3vM{7G#bh#@O+-vW2@2H_IN%sO
z)T)Qehp5dqOG(D6XfhbJ20bnb$`~;+x1x|_k!q30id@NjHVblE5Z5O;GbAQu5>TxT
zS}o?fCP_az5r!S?0`|i=A<Ni7WE)f{5eIMx^&J~R^jf3Qf)3gxh`5waLzp2$k6B|x
zV^U&FR(y;RiW_&rax|7yohB^@Aw5kxA|ta_#_j2dTWd?P*&NC0V&qzshsKbm7j>x~
zISFcrC~UytJn2Q7bkc>V*-)Fr%u8r5CR6gcM2>HEyQoMmI4&wyMKQpnR#<3qqV|h&
zj-G1L(Cr~iy~vY(#>rZfDGWWp&{GO{6rd<z*5QN57XmOXgdf&2IVHu4_d#X!1zMC4
zwIit>G!2Qs^NWD;kb{!2!g3-e^WkG-7RhKsoxtp$%!4~k#We5C#^B@vj+O~lC56Ll
z4bwK_Jab^N85FlCHN|Fkr>8irX}Rgn6nnZgE!~olm+7=;Dw)<yYess3YEf;fEh|0O
z2_j&Q<jkvrqp86_5ndRx)G^Vl5~ed61*3pI8WWFmhX67r9G&!{UdYkwbQZm!XwuWt
zQ2z{>lAI}}n6qWfN{LxE;bM_x#_WIiaD*~P&tx*g`BO?CR#H|{Nx5Pc49W69`5Ddl
zN4<iBBpS`oBP$5wiR<e?FH8nofzz9unySmm$?+)YqpTV@IROcR<CrLG%nY?q#4U1d
z8a$LZf~f10FaTp_lu@!c;Q5Vz_`d^MNPbVA9cu1F$&!1?`%L=BCrdH;v1@D&qhfR^
zDVYwll4?p-u<Oz}5uqe0_SzM*%c{E4P3cOi;&d5OT_#Avip6D0cPTcP9_=Lwp&6+p
zOYm*PTg3{+i1}OvObu@!7Ssj!MX?Of3r$97?Z#BFSG6XM%dOKGNk&GBO+}Yw1;9sD
zDF>aqngPR^iuyHFRZL(rYfP9~PSVLn1LDDZ7&fwM7Ly?YFh3<+LMy;jOnQ-OjQEyx
zM%P;;x6|S@CJPP@!dOtNY_c7bt^yChgsU3aoC3x$X5++_4TfJ&qI>p^Q7<MZ(Y2hK
z7Ps;Y%rzZv^d)@BXZ!u+xg;7~9t=ey!Qk@bs<*p45Qz3hdPBibIONB?@4;X+*bxdY
zUmjY%97zKKoapQh1-m<zclAWOgVCOND7-uti$qB<7!34~1nCJyd!ikk-94djBG{Ga
ziS{Hyp-6Z|Xn7=g3nxFA_&gR{(HrYokx0bjy|LazPcJ^$i}yqmvG|I3qPHi3{hnAf
z`B~9(Iwv80eXIKVSM~SxpZu)Cx8!#mS+%Oazb|=w)ydDwzLhIiCXcRMu>!ljy?rDU
zAw4}k(MV4;8VQm}G!*S6QEYL~-N9fF=B~zc-oYRq5l<fMjz+`Lu3#wC-O(NR<qo1J
z_oCs%FNZ?GlLteIcnr6iJh38qB%Umh$ckUm{jYZVk$Pp{|0>JL#673(@c)pN#8&=a
za-Gi8-J6J#aCrIY@Bf=^UoYt;iGK3y>b&wI%Q?yFoN;=V=Q)W;%-=pK;19OPC;8%u
zso{2ivWVz^soD$!jYzK%lnb;6YM+{jF8Z-&ZrpHbVE(|kf^%lA!?-uFS^V{HoxkV4
zcap!Aa_YCL8Y6A<eZgM;|JZy^&plnW%zJ8%>|Z_a8IiF6S6_!_KA+PcYK;U>&s4q<
zr|13Z)4X#hj{N$TKK1Ec$y>5D1S4(Tb7Ox0TtAxg>4)aOf9TUU<Xz@XX5*9Q%*7QU
ztm<^zBjSbajK2?|fRf*y<endr;^Xg*rl#&X<a|D1e<)_TE@-@Fxps?>e_bu}<2Sp>
zXZ&+cdN#3eR@Xrm$~gZ`7RjgEcJe?Lz4i(2&j_2@O_y+A790E<k7fDI{K!pwf7Y)`
zgOu}6kMhBsUmqg;&G-09OcMF44<G!5ulU`eX9juie-80y1C;N+PENQj-}M?kjcQ)*
z629{b{K9`L@n2FEiCaRHeRH=QQ-&^HD8JLiKJ_v7_AXsC`&YjQ`TMC?dE}RjL#No@
z4LtnIp&b5MfU-O8ltcf?C|uY@*`@Ex!IP=*a2dk$pqGF5q#RI&9)S<tHGh`=?I`bZ
z|8leZkxoiK_)+e3$K9uHQn&^g2OpL@+$Zl(^HiU(HN@yc&+Ghd_pg3Ejo$kvZwGzL
zJ@jK{{$v}a>ki3n+3x>b7FSz#2WxeAxQDKzeJ3j1+`-0wr}ep!_g8sF?PV42U!NYe
zxAX~C?zTDA-_{n5{PA=u-2JfpU#m<;;ZOa;9$S(1T`cwCaLT`zo4;?<UO7^Hwo)T~
z@>n|g4Aed%eDDJgX9-_D$RqjUnx9c+!e+l2<t$(LIF;VmDi5ZedLPou8%|aS{*MTi
z_V30k)@|<*AL?S#P2cEFzg&lO<z60B^t<EyrvMYb`%xE7zJ%n}#IJwAtHfo*^?oY8
zcb$y*fhVsa9)6Su-M9vF+r=lp<pJeXZgKCmyc6sc_fVc4pYsm)$;5VX%R%mUpFD3B
zH*7-j4IQx>gzq=-wrs407s6C{`C{4UHY&d>H9<aj3FOV+H!?wf>AnB<@aL~`@*JQj
zQf7`zK`A1&N+GEqSZ|pWm;6$v<dd4QZIi-S$FOu@nT@kuI3GZcPMn#D?_uN(NC~7*
z45bZ8y~q`j8gXvH(AEBvqHQQ=REkRVIO9XQlQ~1UcGu7~X5e@~e$R)c6=$d8dk|-n
z*N-Ai*U%M{_Y=nioSKIK;JosUT;}*~6-piURj+zuPugF?jyINDZtT)u=$GDVl{JUo
zag#DHiI|DznfrJ=jc6XZgGb#O%`Sv}a_`b?KZ@6JRI~L7-tK0a4d3!MMV5Y7&>H!w
zZmPZG?*FEG3fh<N`)>+cuYWisUgKxl!QHz5`i4@A{*=gjAgb;Pxp#NjuItc0-Y)HK
zm9^jRauWp0(;oXHk7oV$@toOLu5{lOw{H!aZVqVw;uEf^l#DMNa*#vpFeCblk_|wA
z)j>1>{l53m0Q9>Chx*K+W^k(V8=w4v|I!k0%(!>(H+`e=jyrh5ZT?fQ?y8{hjh`ES
z`r3H9Ng#Q;;maS;Dv}wWii;n2F~i`UCmY78>l>cF{x{v6VK46LR39g8_fx|yH>0_n
zOf1|MpoYsHLr0UmhoN6i)&GP$SN`+M`fn~lyHSRIP53xS^&jj)50?B5_}P6OrTUlN
zm;LVKHHWU|(m(qg8qm;1l35M<Tkb#`8p<@3T=(-q-s(P?N_-_mbsz0Qv%;ZMUvz(d
zlb5>{+wb1K$#!Lr;l-eQx1XD?y%=Nue`#>0=P-2rH;3QFVS5UiTe2a=P>rSIGpOkg
z@5l>&S9zVe@5D3y9ZoqORNn8@z2DAv`6TnjmpX{mMod5ana8tCC;rT%8KzJE$lEhU
z&RxDnyiwdIACf<jpVi)?+pl{~cU*V7{$|qw(_5xB$(|1%`H5c-`#G+ae@|Aa^#4if
zIVI2kSD|NM04R~2m<=N?zU!5gElWO(RlODI)&2Yrr>1LycVb`E7j9qV?~BHks4;&u
z=xg)G)j4gxpf5JTtKyuI9FwQc9-;bI_+$MmyZkY~8VJV&?S8eE+^?<-B)Zf@mp_1-
z)f^181rl1aC+3gG1CX0b70q&TfofV%7V~$MDdZR{kWWcP-cenNM6|Xnll)-BCBtq0
z(v^{5N6Z&0ZHt7;g1&HPudmZzHlD;wyAq*bozh57kdg)JNqK1s^M{)y18H3FHP?m-
z|0|iO9v#^6B@vGhi~2Vrq7c6(=3{uRZ<8$b1ToD%xOYw@lu0oq#<5|l4^Pn<Sm6(=
zp-4QTwnf5ifw(`|k4IAzNqI_*bf{`$V0xretv$H6ITl&rqfsC9l29};g|?`^)<|z6
zK#!T#?m*Zd@+AUoYSf3@_al2;?TrV*ovK=20Xd5tPDIp5Yr=<X`@$+5+%6;982PZZ
zHxNve;Go(Z3HF~$)ESX`$pL@ZAM*u~&=>6QCQ<`Y<LV$;yTTU?w5yTuGvv6?<yWI!
z{qX=^5?)y+O1gLsjjfFNqEUZ)6>e@qB-|c2MCSN{c)dA{94G(O)<>gwJT<BNA)AU@
z^7kcTzP4#hQ3=hCbZ}~JB4V%F!WOhdVa-qJJC~hsUryI-q(V|~-A0#}&5PsV%DTFu
zzJxzmHa*Z9^TqnhX800a3#sZW+eEy$se8#&@v;SF5S4pF{&2!V4wg*}cLoFTuCm$w
zj{8|_GhS@Gte2(4KVZj6X}DGMA;m2x0^weN`}_1e?V@w~mX#N)ix<@gqg}ow%gWC!
zR&l7pM#?MBT~fj<@h`|RQ(|RAUEzxbe62yh+Tizxecj#uSV^Nlj3R7eYzgX{+8zi-
zI*};R6;eBT!)=d}zjIu8PFpMxO-%4b0|{Sn`VtFyYwD6^6>0%~S1nQl8^{k5QcdWM
z1^XvP<G4n6NwJDM$R+7mnhHx5)5pZC+84aUQ_CDgI>xicA45=?I%@uwTWYV>YtJUE
zm#TvggeeVC@8AQ=Iw%2(a2+=<r{0a~(F-<xef^`$D&|pdQ9uom?7@e|1DGTiR}4N>
zsFohw>t`v!yQr^NjrRr;AJSVoA~Cf!g2om<BxDELrtn!|6mM)P?+N+B(9nbHnIGBa
zcKIg}w|XI=tH|s^RqgV<PY$DcCnCKuRPKbo^IeWggCHSqu$gEv+B!l`q>Mef?(Svk
z1hqh&9xg}}s)cG9_RC8W*i+jRYB5r#NDGld4Rn*^nnaf`p~e%wSR$@sPfd(1S5Z0N
zX2(br%5qyEiaHkW^7|81d=9+>8dxYA^!KSRGu}^tRag1L?M=js;@--HndI!*0kolT
zcm|Os5~V#)TpdEIYFAtP2M9V0RHP~N0(?hpi2K)&tD><;dv6<lxRo3uc<QNWtR;sA
z)G@wT=Mm~D1Xbqzio!8CQjAF2YsO9wEUPFeFPTW_57c}$q7B^-_Ki<P^$oXmscpRp
z)RXvrItw*0kf@MUzb}>WLZrbv52z}7#jszE^@hVgi9H>$NJv$^Q^jVr<mkGa`q__s
z65dVBk4FysJJA!Y@T;Gb`Y~R$IE~iD1D#<L@P0agI#5xBI&_!~Q`N~-iT6?8%B}!z
zK(FDOMR_kFw~1`40M^tuL`8oKMHB5Tj^~>QM_~1BHZs^>>m<UzShg?dB6Sl`sJ#-&
zW|*9aG!hXpAN~!?#0?tpd5JU=xk~IqpPlT9&nB;-!FL5ZyVPjR-xkOqI!qP(3A;Y*
z_qU^56OlzkoWto9I3zWrmqUXIM@r`Vg9*G9wXtNY=!w_DiKX2i3#_<;l7GtlBAM>t
zW`uXC#F#LVn;&7?Thz8#Bp%23p>AiOmW=hqRap4~aT{G7=|z`{yLp0;0zr+fxI!jB
zGV%pkqZZ*UsT~oOh}B&2U%|xNBvQ@zOfB8U)wur-&0_R5{k1pB`Vo@mHaRPLn><4|
zPpU(=5&VRbxP}+%B$rf&1`;v@WYb#INtBf8xA{?c?WptZff4#vUn1da>$0+eP;W31
zKv#GPZ%z2a@kp#vOP=M#M^t}%iry0mf1q&yEhZU68U{>FpT=hrbCzt$zS@~36AU$9
z5`b;OF$^=uiTMPn%00NZg&xNXL-!jD;Ng8L`nn&)=2&mgA8%u5h~!hg4QBy~p|?ud
zB~}c(kG>@kUJ(hdSWFLgpmCP0@V5cTh(994Fowi1ob=LqG{PAQd2sTwudm)wj72TX
zC%dQnR|HBX1XiHy>X6C%QU$)-iG8A%kg6dQQ4K;h8>8qe{4uo?*m(ybgM##Dgi)gw
ze}ePHBK?z|946)j$<prBXQ}TH6Zufot|yAGSSD3^4CG<IuSnM%Y7K;aE*-s=XvPE1
z6o`e<*I0HULIv|~lI1G>1RjslF_yp$xArFdsyZbSY_AUn?<Ah79Ty6uhn&!=YI0~o
zrI-^%AEctKsM8~n=+x~R47FEDypfk<EDcITCrQ&eIjpfozM=N`^(JqtzvDTBc^-u7
z%O&Yjax|yh>#gvPs;C)Nb8zp>F-GzjozNahlpLZ&7RZ%)dsQEE)}A1_KGjJuF(w&9
z5N5<&LX4&!nqRB75HMcJM}W{IQfAtP(GNpcEYPPG5)JA(p0(|`%oT($QD=N^Xi(L1
z@BL^Gt*E%$wBv*Qh0VmSyPJ|2*PlhmNX`}zQe>iM5_ut=1)--m2;1OcO5R3&!V9K&
zeI{bQflK^pPG-qw0(^HrrT<{Ly}-k={q1KGQ2)(-QgWrQ9qq6z-rM@7I106P8K+vk
zc^_kiUH*#+`(C5@mKLbKX#{=-slK16QaqA-0$~Tce-fk>wD9S8V++lajgl*v68u4M
zxBVc{^NFy89vs|XJotF=q1DBQ)~MZtj3AnN8twFjLOwOLf)%!*llJ)3%ft^bzQiM8
z6(}g$|JhOD8v_O(^mQej%LezWgO3+=V~geSvKdP&I?08o=>BLT5?&yBAtS9dTl>v|
z7eoAEIBZBKXu{Wx3eo=c)wfoaR2+Ip?NV090~iJZ9sQ38>`Z2@-IwIQY65~%>{I6X
zV-R^p3+9_)Zz$({roa#C=wFojpx@ViFS{V3b^zP+$L0vES!e!GV7gLnUW<?hBZy7C
zj4-3%RogL1bao^@-!f2))NO%a;0`4_+^MInZRqIz!BP`>T(HF7v!$r7(mISup(~9H
zF;h0^>wRc@A!Bp9KO6~FNV8E%3!+z9%OP@Yw6g1{ed-<JtvQt=M~<qgs;nH5FzEM?
zZGpHNj$j=0Cl1m-sgr!cxL+--#ZakI@=eNEjFsx(wxxsn2Olr!DI8nkUs^G^e<?}=
zgDq-C`_lIAHKu4m#i4=1rR^7)j`0F@Zfw!u?xjfIT{^hCC{$=9mi<QJDe18i`;w95
z!|tUOC84Dig#`uOB|SKsuNKC53tqqK>v)x#+bNA=AnNH2#OCYC$3))3X2rWAE7i|9
zsp4duo_3g*uYkA^?<(RAYJ0?QqqEw&{B7NH^xu+re>mamQ~iMMWARe;I*Ihy)nG7}
zSVFJSDzvi$v`uaGCsz6mhHV{z806-tFA)2T)<SQ%Ro5Iys2u^DCNI#jSC<#_zo=6}
z74kNS3J|GR2HO0qc~1~hL2qk(f;HFQ9uO6EI9w1&T?}KAs3-Fb+0*CVA<t1uRdxP-
zR%=|A#RkGo5HgB*!tJ2>ml@e;p(n0}eEn+c^(Lilik9AIwyB3~)oRItFBEhX)oL%K
zh*2wj{g(@JE44<(>coE#l42s?*z+0#<7HAWy3|@R3W<C<dfd5W_0%xxm9M?{VO>GL
znon4R)1|&GoBN5z;@fDns}`e2?bwOC-KNcmXBh38M+A-2Xnxdw1}~xHQTzDSv@yq}
zt8DZZmpcQE-l?<8D@?>)X(DW_D{JK#mny6!!WfsJ5OcmUR~Vn%SgJ14Xv>J4Z#0Z?
zDUH<@t%la9#i~NmDixxP&{+!oF(Xyf8Uy(&H&1ixy$APBUS(*8l+osU+f3GRQcKuy
zE>3e@sm_i>5_8a0PiTx^o2501a`YRUbFf7m|MiWRwTgnRyiVlfMYd8DQpgPj-9^!5
z<%LTtoMdK6bXjE@k*yUKL@7ScM6Th-m{yId<!Z&)s9J$Fs#`5BkE)fR-&f&#nPywD
zipH_599J1n)Uokg0-G4=CQ)2+Y~tYFYbE$SvsIdCL9zinq`qole-y|EVoxL#NMK05
zKq}M1LKe1+y_Axjgtw%Wk2o|ilhz$wcjdC9Hf2$73cr9V6&CV<I%8>7QM>^6P;za`
zu!54+j@2cQ$coW?(h0|CcLv=EX|*I6URqI*O&SV|f?+LD3J?jqjPMddx@dNx>LE?Y
z5O)wy;gSa^oP^2e5_wna4AfYCF_c_fy`7Nt61j_1_bsishYa);;TPj$y<oB&)oQ<U
zldIF|7jCkch%bT|rX>Sr)vtcXc)MkrA6-DW<ZOQ|a-WVJ)}m^zHd~92iP^ryb}hX*
zeN$He`dqB7tADd37pK*sBT`?{lAAQNNvHUW@Hz}*;<f5tt6k#|%v;2>1Q?3oi1s<1
zoszex4-pZ{Q_Z>*>M2(5NwIebj=6p6IJJDYPW8tJQ%IE37BiH$E)9Pvh2**#px3n4
zI%m&=4J0<1M;ju2i-LjBg+yDK`b|=$nGK<2iRxWiRIE-9;C;lKZ`DEU?JODhZ>_RK
zb&i4#v^dqgFqK%uFNsIh=h>){NdFScMs(F=y66~U{$8|{AD6YoB)X`tc<_NG>dlz_
z+HPJ-t#xYOxbja$e%yg?j>C|HLdymp!T^BZ%cj`{ePdIz)G?_Ow4V^V%VJ*X(m{A7
zVFS6@U8eRWT-;ht434957X?Y9&n7Hzl?^^H)s;%`Br@s;`h`ii87k0;Y_d_Ui+v?2
zeTqcO38vcUjrkM3v2gsu%;rTE#eGZ86@+=Ne09bir8+;Zreq0)vVJt-;{>grSlYLl
z4EO0OFlgB_$s=j>1(*0wm$}nLO=T{}gfbT~+3Br%xE7M@GxPoJvL-cjrfPN|9`XZ(
z+@m9v=_&0iUG#R5r4#aGnipDAF0oD(gj?c%=vwW77dn5=l*@&3NZl(%@_~iGynmiS
zEF?<cy%b9nk>FPNKXJFTCMC4kRR%K7b&Q~9K<UMx4D<vVazF6}fH(Nt`(Yi=PEjAD
zxl_aasl@Dv;l`oZ2X`5+^rJ)W@~sF&zBLH7g#1+~Zx3|bl%*zA_}jw6@h<X{7>B|i
zR0APjCj^{We-frhoU3Qx;e8-xbzbS3o_x^v#NNinKnT*=V_9nBl1y}LgnS{9<A$nE
ze{42A#sP@Lqd<oefsh~S5>)%$sda#O_#^}msumrgO0le}t5QtO3YCi%?_NO*<L+LF
z$yzcCV`3maQ8Mo#uIz(*#}IOvyt>t|0v+(jHaPBwXqW)f<cqaWTJKg==u5*1|HgA<
zV!REg&U*Y9))1v^rPGKf5Wm++ce=@U8SFNbGt`h}S3l;^G~&H&T}z12ZzR(M@{yS|
z>rk|3GZwV66ss3XR7R4>A-N3n20{+&qN)n9WMcF-9m(Ty)E>Yy@nbnj-8L5Kg`yOR
zp$Vz#*Ec><aOk0>-oi}o)M}QI7QE89ucIQ@5!vEUk^+_1rl_N&<0O#4djUeCszau^
z_2Q9)KNO9i^#_2w_@Jni<L#D-<otBfWK-JC(6T1#Np$Jbz41hhWGO5C=_D*zdK<O%
zK?ulxEqPNJhywwDM(uyiLNiJ8*VjKZwyI6v48W;3wu6vAnuWRA)i@uCL9bh@lm`<2
zUS1q8U8p4wF-?MJLEt|_3B|Z&icV3=pJW>sFKUeR0y2TRSKmD|?04t4LUhHec!f3e
zh69Oz+m*hn#MXEeDq!qFURkP0O^6`X&nH1%E?>p7My}#%WGpeC&n=Zdb1h7*PZPUp
zAnda|^L~V+s)QYo(DyP2a7U5OaNz8Xq7tvmV<wB?IH`h8zt2rRVCGZ{L4Y-OCNaOw
z?W}~bD;c`xF1+dT@}qy|EQi#EdgBPO*Nn#t_BLC&%|Oy*HLzk0>j7%!hd$TC$zz1=
z<3g*H5*y=Y580%vYycwe;uC<N^|xruKZDD2ZjKu3uQae>9NqRhyQd)9W2fiY>mXn)
zIYZ8#(|aV3JS&!m0`Z;sbzk3nL;g~0YW<5&wnQ^59Er<H{AZEG?X#ed`@?l9WHOO2
zX2!=Q%xtb{;#ply{0xGq+cUVO?|i0CuD+Cc7cZJz>Qa|f`|X<bY<5SWBhhsiQ`OEK
zBFyGO1*u<Ft&ZKC$LdMdQm>jy@|KqC3ArSXXOl)0xO_Ho8qec-ldI3?SvBYL%(BVV
z1Ki^ILO;MgldBJ;3+o^h8N{P@Hcl{qPo!pbaQCw6Z^+*%#78fdax4{CDjPUiLdHW<
zy`GOF3y66ucal<~yMfy~w{mZ_TCj!Pl3$$<uqM(QZ2!h-X$6JpJTA%(tLoI%M8bvd
zk~$x-xyxOZQ1EIT<W4O+qL+ax2D7~dVc!$E<b*rLe{~^wUI*_scHwYG@9I>D1Ipa5
zC2|`fx2DmWT-r<dN*g)gA^-O1f?$j}L8GJzhvv8_d`7gpG<1TQcMD`NlY$F%M@F)*
zpZSb3ZzWLK;+an2ZMf{9`5seLU+}1dJR^I0Lt~tfzt~k8a*zrk*$1Ks)N8-Mv}vSM
zXqeF77QD#NqDG+~^*-zb&yu`BY%6AElMF<EP9-xbTuI0`u&Zjk@j%}joL*?q<pC7x
zPZ9~<&b}59G1w}AOwZFxfYbU7{93)G?H~H64{!-k!<#g1D3*AC$eYy$9I3lx#MZQb
z>(K=?^aDRfaROez&;y_x$rAm=<A}iax#<Z#nM&v@!{{5i<Xu-v*A)g~tUj$|oZhPL
zc1Q8pQ-Mj#5{;y=XH46C(7-!^N%gA<s<hU*8{$9=GA-!M-(_mJ^Bu&$C)Tsq+R2L^
zuRoUfy9brOSyp`arLRu(wkH9>Ia9S#h*qEm9A%AAVb!xt<lPL(!&#nGgMne3NYXfY
z+g07JmT0*W_d_Gf^t1<T#p1(+-k(b!bE%=|t=Z&fM0{i9Uo_vRY8m-~>Q8{p#iTui
z{%ll6pU|g-r+KQ-!Cjte4de}@A;LGf^=U+SD;?<H<-`_vBAs4A$WEQog$b??8QCbt
z%k{KO@15Hfs1#Z-M)^8A{JQe_^Xos6za{nc^)M`e-%t{b0J!{8UxC7D*GKEygZ@~4
zd}&U0SL9IsQGXb~Pn%yo6QhSZHNeO|dTwh!aL;i29-Xj4(uC!#Kv<rIh8dA_UZnkL
zmPK8HGI@ioZbt8tB|EuLDKA;Jc+rgB7j)E1G<D3{H=kiJ0EtAcB=btAH%1a?5qESR
zDK3q^A=gdv_lG|!I2;f9;$7-YKw3dx|1kS8c8(_sA<a|f0a#rh1nT#YSYI;koCzNp
zaTu|?&RtSkr!SbS*6AISpOVdW`mC(U2V~2bpLE)Z2x_{2$xAZXr<w<4VxB<t3kLU>
z>a-2i9i2<e%^+kpQ0)ZTJSWi~^v|H1qs8jnseq)*X3!aG$vAZ;O;MN0=GXNTawn^x
zslAg!GBZd=p5pu7BLB;Cg<9Y*?L_&tQpHmE2M?_$n)oo<EqHz5$S9edC02ukGLOjH
zn6Q*K5AH6Fs>fvbE8uE7M1=7&&r&pV(f?0YCs&e5N;P`vzi4_;z3PLBt_RJeK;(Dk
zaQMBp6Hjm4N7y}tJSdYtm9aAw#kX!4S;WchqOhePKDfJhaF1HNl1NoDZy{<RKF3U+
zv*xsy78s7x$vNfaHRY8x-in$EfZ4G<)snrC{)1@V<ZOG6&|$Dn{+ot43dD`X3mtuq
zY6*a4`evp1ADUaFRz-?vdQfZ79OG#@bpUo_TQ$*IRqa)m6^u)N0G;IE{@$eSQaC)<
z{5GXZ;H+x)IwgZ3HJX&fux#<qdf{Hlcn+P_SF8pS=d<QEUoYAOL7U%gqQ!Y+l!?U2
zmFnbRq}3N}QAf$mu%qBb5Hg=w0$&?j;$6P>$jZft;;zePIgDq>3>s1uDF>CUS<9~G
zRFU~P2B3lAM2SEAe6|u^?jfI+u11~df;?3GqevW#wAg!M9e`WIopwT3k_N~Fu@^Mt
zjuFy^Y#-hv8qKz%h7OqAz9f2^w!YmT^n0x2OTzXLb{45qXG8cXFh6M$T$2GkJ!zV)
zOm3DfGoPbum%e;aC~;49b7^U5F$QjTc%rP$(V9I5VPvVIp9NUKa=nSQ6X`Ef)|i`2
znXG}Bk4hHL6}DSVtb*{j$%LZ=cND)#^p{EIKV$x_gXdJih82vgEM?BP&L)h@p@(t^
z6k1<wVG8-oV_09zr`571k!=GCX<^Ph2DJNn8=XXFmTP;%=h-AE&_tO`w6uy?CpQv}
zO-$`8BA8*86%$Xj_7=1Jl}=Ye%A2Q`4JX5zXZwg`BT;S8-;pSb&Ea_2fYPhIDAvij
zqX1weNXndXq+pIVNXXAs-cWC1O}^Gkn2Qc9TB3~uB=Ps9R6(dcW*z2lkI)*36c<ze
zx{Zw^y6qBKFSMY(cl#4}>iLN(G7s2jLz&_S@A?H3ecwiZAbbW97HgQ9WG`CMrm^@V
z0z21c-i?42jgWfB54ZKbDk<f6X<YSDgFK9|CnaU-xhYAZ8u9-hCQjljaA~ixC81-r
zpdeb*T?o(z`}qZyBG8EEdzgzTg~Nz7`mBvUZX*ThL^T%rRPMCYUX)7Ql+=jYN^U$r
z>gEUhD+Nm<@FO1`O<#89)E;~-hj_}ob0;nkC7@brL2NuF{sMJzZ&@DA8*4e|EWOv?
zer^*v0`LW+OweD5p-ZbC;2&wBwjaG<_t=tv3drhX`1Pv=pF+2gFo1fymzB$e<rdl=
ze<xds+X^SZLR3^rY>$_cNhRIODzLjBOK&N$7LJu+fCKOc@Njqm&K2UzvUP=CG{0+z
zZ%$7yhS-Uc_>BqXuz{;pANtbo)1pZ$0if6$YY_yy9>zw0<2W_oZ+BtD-&h5NX=f36
zmua#IJ3{YVh5J;Otpe_ln-i_Vt@xK##fp!y!Tm=E9t3Ln_~7H%0jl=1%-$sCOxna7
zX%*zYPEh@b;2@aOi`+{15^4Yzk(PuMbQ>VbC3nOt>8vGCw8D=LSG)W_X^zWn{#tDk
z-8*{iP8HB6%uj<?$5puPV%w|E)N{9$94oRW?xhIJ%6}|MiPsbIj7GadBu{JRc0#R)
zKF(>}qWhT%o66Z=tm1TH@mZYohCC)!R6w!Vp=7ru$`~DQ5nik$R|x!?3Tjh42lqZ{
z9stY$i&`)^ny>|&99Jr#XOb*0@V;krz?~C2#&4g2LC+tAT`qLySQ05>vtR|R5ME1@
z5^46tXnUp_ORJk1>+}`5g&?WHC^?RjM{?OcBfV{r749NWI8oqkRXcsXo&I^&Bj`}t
z66mD>a0WX{KFS}~*?*rxYDd?@7+i9mz{=90i~YzRM?D$5tsq(mz_Yl-{8GLQ6Sd{>
z9WGmmw}j;gw1f*bVa}q0Xi2wPlD(w+vb?l|3-h%X5HFC-0nW}7_-2+<KH|B&x<v(5
zA(0E^1=~<<3e^&H*b^_xtExIQ5X>X%^Z8i9AIy6|Ei4)lDgmTZ75XY~LKIi=5KHu0
zq6WhY2`fdtSHI0;sjxH=rRa~MT2PWh%&@O3h5e)f$WGBLLY9FZPe`HI0&uCSq+lbF
zt|Ht_#^YD7BbZg^hjdMzPV>DkE7WA2weh5x0G4W<m6(lLn}0HHKL7B?50am++<x}D
zzt7PuZ498ZXr7)lZv3KOfzaI6eagh#ykt6F6q;I6(TXPt6R1EPARcrfV-QBUND_=h
z?(#BNq07}0TxN0-qF=JC8pdY1g~W{~Srq2quqbLyvM4gh_y3<PigCZNC?@=OEQ$#W
z){E#T74==18I5E-D*0hz{f80#5|F@?#^4HUVM0yn8AJBz8K8wgs64IX!Day+91upN
z)k=?Lp#cLeNNSKLK?7)gr|mzeqyLYx_l|Gk%KrY(z0)OGGb6d%*w+nY+$1*)#NdJ{
z3B{O}#DFc^vQcouvH^#XP|_=Do1Q>=--PtKg!Bd}o6YX#y9p_qP1z()+4K#+&&Z_g
z^L(Fuy?%cHvazMnXy)E?&gXqT2X&lZRSQ%y{G=aA2b|K_&qaYq*L*tgYgGWXd1Tt^
ztGKcbkrjtZ1I_ahi6qeHZiFI`zHvCc5MXi5isrWY$ba@dT&vRl=C&3T;~gp^(sdO?
zJ1&s8I5MpxM?@S*VJYU#V=su8H5|bdp9#o{k+=|&MLC7VpWu$`8D}$)6F8a#KE<Ck
z3H&UypA~#e!CQzEF(QCG5+|#wu&jJ7tAHZb0>KxJOH0@><Ed65o8>?>QC5y~RKUjc
zLsAsB_C=0z7tee|Y_y8EK{*{6t^!vk$GMeoFRI%(*A9#l>3WQY93cbQ#@j@{XY>XU
z>XkoN1cv`cBh$u-j@x<OMr|e^3;Y)8i2fI(W1MOUmpSAJu#V^1Nk3y9r?US*I_64;
zkPfeu7~3edI7CO=31qdTNamN4oZ0fFv}g#y%~z6^UGx=PKw89CQg+K%(q!ka^i=#+
z+9JM`%$G>^ekEl%KT|H5Ur95A_}rQ}9wko4qw!zT?Uqj^8IR|GC7tLz-^<Rkv|0FT
z*QIR!(zvMG`fq8=5{Do`jIU9{LPYv*Il3g;gF7mnV61EP{8h^peT&c;r&!^CYq=|1
zYsp@{g5F!%ik}v>A`mSrFKmU&1!{aT;zGAqPojoZD2H4C^22kas`Fdq<RztY_LN*b
zD|<<aY)`-0WhAnmxZt*Gx}3A5%}-{XOs3A1*Tw$raV-eXETXl#-MU?}id7Pita@FQ
zz9c$9GZ)A+vX{)4(=wMFA!oq1vPH}uK?{c7iAxi|p2Se?$QBJu+KJ13_PA)A?%EYY
zg4OS^Jj2iFdBX!2YCD$1)#ylg=tcbwM*w%2F342>(1Ji7ywoT*Z5B`JGHB%!Nv=hi
zQwyQom1i`BM}`Li+S|RoqlaR9rxdo^#Xr{6jU=sA*mrszZta02-4gF;?Wj$m>UJ(|
z!F3<cn9ioX!qKP4<>{uMXnS0E+%AewQJm7`dd)w)Og|TuVMiO>zpYov863Jm%kL`P
z3X&r)R2izQst#66sX}HUGMO*(lWxVfOTLnJ31;79{#(ENP@;d1OM1ibO*_%070Y@f
zzw<ZTR+7wH<pX%nh-l_vwe1=S_qr*&8=c+q!>*iY|07I#hRt@AsrzM0chfx{bGIbd
zI}!h}+HWHM#jbMbvL6`Gk$;W&pX0wo{H^pDL@%cx7?1g{g%bIJQ2{9`fukAi*RVgq
zy=$P~sR1Itg}3LJ5fPwB;^BW6Zt=M6=D-=fn~V?=fE<n+K3h5$$-r+ifO;nbNO#c@
zOgoXBLIE;>$OCjJ1+Y32J@Mkew{C=c2u>CfasjDG;%B-yBNaeYCHA_c-HQIAn!V;R
z*J5kQ3+jQ>*sN%*v!NA5#=f?oLPMcdaV+jiZ=F*mRv5iVWA6W(2x({w#%Zc1Hzlzq
zr*!&*16z%AGQUzaw_$9KdEI=3mtEmif!Or*RFBO}IfL?r`$4rDul#_TUHyQXF%u8(
zS0O8Sj1dara1K&)UmFhQYSrW{2`#dw%+#4c;Z#PQV&7$WvH@b~mcH1N)VqMbl$|RP
zK!k&W{Y*;95;!Tt`#Fz;QgK@D5Gr*SXWw~4c+C=p7kdfOcF4TLVG<x-Lq`{Dq`E%5
zr`_xh+*y4ndJhAZyVL>*=0J_2P05ROE;Q?~)c2m_ZHY6J>6F_bf>IEQ%2aaJOI#RT
zt5NPZ`O&3f@4X;`=xOaMzVD$xthi4EMLGV4%2xQg_Khcoz4f<Ri6amPMF`^EvC}Qw
z-p3+l36#W&W{_QSIE4z2Ez)V76Luj;f~(Oulqpbdk81QH-+RR4*Y@^4epA1LCi=a~
zDBC8)5h(RU`mf`tb{rpz)15*=%N|dOo~*cVCeLH_aU9YL;<NRz!M0#AK7hgrOwO^b
z{ZG+OC~L?A#9oxbZK|=^m$U*$U08w!((<Xy7eM!O4wV<h3a1fEB&iK!BZ;O{TG4Sl
zzo@*FqeswMv&q&TK&l4VYQ5ebhpk4R!1Bzfn$LFdu)p&<hq5{-y);f)#cBh%E{py~
zIjhUp@fHEzO1x)o31k08I6VJk`=ya+xWCXr79s%AYRC!>Gw(&xY;5-7Y#YxRi`~V7
zAQ6s@uTe<VBSW?J0gyMS%A>4V5<?d9ot-CQ$I~4SP}qlU6^rE-S!(iya0cAI5X2m}
zC1Rz=8Z_j48}t-{gHCX0PG$aXo4&#^<7G-DOH4P63gce}F2#-*YJS+0yReKl9Rj(;
zT~c1}=(B2b9Ko7Ra<>x3#y&VQ{Iu?0d!pjWqidr5_%bddoGHoIOIxwFK$eIMJuk6c
zs`{$575}#cRe{Luk{#~wrA)gNspcTF#5P7~4;ayDlMgjdr(jmEO9FvFOyoL<YwjI1
zjB6Y6fGAX%SE|Mnp=L3Sm*YZzfes*2bGT5a;D-2Qz^7!Zw3y@>l(_H>c^B3$Y%$RM
z`!3OVySxQ#Yn&ylNK%eZWdD}s%lW#dkxn40k%#m;he-W5@jWQQH?{@Gm^I5q@*h+?
zcE8SE(8@vX-417a#x^H9)=;JLTwMFnG<Gd`gmI!G@(H7R6}doCmh$3h;xV7C6fylL
zExYF@Z6Rf84*Ruq6XbPnwNB>Ns*eodOa9mo)Dnl3=POv_|Lmtpj#lZOXt|ctL}9(4
z@inBrtd&h)b8B+CjLOBIFsgFZYZ_li(qD*P({hF)d(@=ZW2*NpoYezlzD;h=V@w+(
z{VA5+`xI;D?-D&@*zY}Klw<k6PQg;O>Lb+(OI~)ii_YR!^NYq5d}g{1M(QW699KZQ
zWPGT!g&i^uI)&YNm>Y`<cAox7FRrP7G3^AJRV;>AwGwZn$9~P=L|1xRJA!AV1y4%y
zNfP}*+Tx_fy#UGfE12(z#n7D!CV05iO6b8G^tW;4I8r-!_KXgg4$mSp!tI>T6T7(r
zp*+T@o3k6#Due+TSSU7vVlwn&8CgVGvbl+suEZ0Ty3U|r@$jlMNeYv>m6hSfs8X!q
z%QbrrhWI7xbfhYkarJXIJKeimG%v3g#R#>RH)!N<JV~p=!&yzK?WhIelWf!$qY64O
zgn~gdO+t4!O76i_T>Ze{R$|VhY7gAO+r``n^vg@+ZiMf{VPWg-<4ojpdUI?99hpyg
zD92lmC9Z!ONv)g;q;1#;`*B}2K93G4^1g4tDN(waAlISL-W~li!BNLL*WAIk0#nBQ
z-XFubl#|nQ#PD}Il~5JXZ$)JvtJ%%andwC<t@GchbQ|3X;2ed+VGxnx3vXStTZCUr
zV<Wco8u4o>*x5U9M*4AqjtHt;VpMA{#1YKvzny4?Sq0Vhd8xfGJOuu@msqL7f*CYs
z1o2UAMUC+p-F%Kx<uSwRbNkp~2CrdO_puqifio=c0Bb<=;>Zdw1t^GoV+ZO?cct;m
zv^s|vKgP|@&7iN-=`j`z_jaP!`gu7=I*oj>0=*u~Rmpd{(#(J7Fh>S9nME7vb7j~m
znfKyG=mq@??fqzRw9pJHb_F*?yH3am>^uL@?lJf5-VtDLSWs^XG%qP^D|ZShK`|Ns
zoUU6PAL}8Yr8VI9nBFesjf&M0vI@@&j8>Vn1jf1al2Zh5R7x>7+S9`mgT37%l!+3-
z3setcEP6n*0>@G?R9Jg4l|6pZMI@~&b!sP3F`2g1){cWvmnUowKwv!+BvjZlCLcnf
za9B~%gMeg3&*}%0zEH92ltcqPZTq+Gd$`1bR|@e^r|x|Zm-UGim;sthApjytq|c>U
z`?v1jK9~Nw?~(o6QI6X8$lA93+v_N0?O{}hD`wzuX1bs}JuB4}V@v0mbx}w>t1@x7
z%08OKK#d)fL@kUSPnVBPu6MYUGZUsD4Mu?>Dw2a>$RbD=7W)!KkmZTOzq`4YH(-qw
zHcu>BN`xC~x0n8;N@ufj+#2f)OH82l+VZ}(x#AD59gdKT+;_Bp)Rqsr_(#%facns3
z!2akU_y=Rp$`NFL(IN4B$u9m;Hjm;NbRTUm$0-p|-jjXj{vza$aVlgqg?X-^I;`f4
zhLv@dsEQ!J-r~=NX78C)Qg|c13_KtXsl>Ujd5Tu7Clu&(mdCtR2_km2MSAoir5xeu
z9kTa4S*`(Hf40rr)LGbKBR`SSh1CK!;o@agekUsk;O#SQFtTw?v;(J3$r%}b+{Rix
zrbiHVfeXORjV1&f&H{)2i;Y}@s!Z=o3D|=B|BzBP(7hRu*6#=*D(>MV72_8qmud@C
zUK)K;iBcCs1I1fOR`GS|bZt@{bd=$sX%D}uwc{c<P88ls{7LE<M|ijStiDlJ1@t?S
z)Gufea-{GTn7ia-grTz+J9@I&&ouf*Q8QR#LmHE>Hfb|6Ye~zAiKDsNoJ#Z61}Jph
z(>2;brd!Ga;EZPP8(H%Fh5jJw5jebl!zi=0G$RB``~pe6n=S5$AaP%cX-~0v+$=HN
znbVH-xV&zCvnP9Cv!_}4-bGtHbt};~u$1py+4^(;z(a^!nTYl6(%Z)yMXt{^-^+E~
zE4q+uR-)olE<nVCr&vus;}dr^e(zm(cICV7w3&GL7q=bUnP4Es+lRf$pgP=4(KnT{
zh<JfAwur9UIAdAiX7l1|?|B%b_@c$Ue)^lje@bJE{bJej^JvGs76f0|MS9*WpsRiC
zD3Z2knD6Af0bIB~5-E|ZGBM$aawP;)m*)*4L%T;DFV0U`>{OP!{*(mn{NYT8rTB?c
zox@jHF8*DT6<L<gFSdQLMib4lg9w=&Z1@4UPc&;=BdbfAz#I)-m!8ws^jRXkotP7-
zY|^c=&l7Wn=+fu|mp!sQ6<HUqx6hIhA?<Tn(Mc0wl2|c3I+#uMpriZmcO?#Z4S#2*
zi+=CtPo+_&VGsQyb?X2caeyzZ|Er636P=M*hg-3K;RLR-9O&wa?cH%zLRV~ooeq{Q
za!U%o!y~2{*@<;1DvQG{o|Bj}%~cA`!?-^QN>hSOMk;uHG;c9;2DtsxbypoRKV=qm
zQFdS{ajP&u>Paj|H2rQ8oy2fW85NY%+kY`5ph&xtDWB>cAT5n%Ba7|d;YU;@8%;5M
z0ylEsaIM=s%w;)f_u8j`ok0sWn3uFyNtx(k@LPG@Q;q<!ZqiKXR^3!bkGthN4MlN{
zxi(ce#Y_A_{)4LL^uFT0!lH6~eNT!UVC?T~X}n;HRa&PU5xAbDX>PmkIht8mxOpy<
zv@yw?%hKiT#G9GBfrSv?uP09m`9T8u#Wt5Ucukt94c>1Kj-!9UGhFnIlsz=evd#0T
z(A>_r_9)rw_S2+It$y<DpPHuM$Jse7EwF<zT`Jyp7Xp7rWV`S?o-lb;(I8F5V!o1c
zR`u>pqw~1*Pv$GRk=O{yCR651t`sg8Ax}+{Hlo2nvO;B)xmnjKTXTZF$WPjQnx`#5
zuou}-B=sfPkrRtp!eqT-a%%C7MSP80YoK8B(7;!wzH>4)DiE)1=q%2KmEzVD(2SX;
zXE&tjX$f<IT<Ui1Heu9|M2t51;dH7ay<H$_H6$naH9yG)gEt9VsM1`W(*2CmeZo&c
zWCS%B)i?oTLEU}C6G>~s4fvxwA%#5aiSJ}_N@Z_OI~bm5=kRc`9Zk{rB9GOVk<b6F
zSVOUlO5AYIr|Tax=^jS5ixuRDP!4q^(L7nI)9KXYy717@Xk9U%n893=&ItGRM36(5
z2I-*T5bqE~tAkVGO)i6IuZSYYEjCJ-CAOrCp>T3;B}kV?J=W;&{d8KsujKT6>F8`L
zwo8Y?gsZrxDc(FFlMscr;TztZ=o`F~vp>37Q-Lkk=8MkAMTWMH$p@*y;XEG9qm7xY
zoS>H@^>#agoA7)2A6QOv%hW_VTW70_noFFN;zMGm82oZ(jqJ&!Tw-;&h>96Kl7RM=
z#h}chLpv$CXKjGyd)c|U%_x6I!kNMsEt@EPmI=E}5=?)BNmr2eI(b7}4-!b-#I9*B
zx+;%7=I2Ma`8^bZP?zrFuaL4U4ZV72mgJ4}Jv2dD=(79nnxG`o^~g(NQ2@OC!+kDj
zBu>{+Z|~QPk5Yb2oNMHCjAodP;<L+6-bam}U3Q8%GHBk-<izNQNqk!>3VZDX$Xdd~
zb0@R|n?|O#h3sK-vJkO<hU&mrMGUvJOUf?2kkjAuLRG<F4gQ(}ZMr^}$&W)d>=du$
z5S*fi^IIU6^!5TX{f2R512-`-Fu2<7i#0JCwVDSykj9;xUk^$gM+po<8<faQXJ=*U
zJ*aKnl|#3<ynm7Zh)=wx3i5YFFlf|I2-Fz}efL@v<3W^v4)d@M25Uf!6|pv)7WBMb
zo)~-0r7h;Xg741@m50i!LsKd$s*GcZBb(_fppps-s#Z+4_z=k_NZ99^mn>ge-+YUm
z*mn#uV2kyO<w7GLE6_8TDQMFw#stadGP#kwx6ubqvqi9~qO!(VIy4fo8Qqr5*YTk_
zC>P>w9Kiu3pgr;q87y~}FS6L@JxtPKY&q(WLy;?)nu6r7#ROW_Kg${ftQf{;1#PoB
zfi6}+<x-QzPxZ)8L+2%5^PP-7nox;4=10U2mlAGgvz#*iPPr2G`*}1F2kec*2{F|d
zWo0M_Q;PC$W`0GguZ4Ja4CY?+7RGonX-v}gFz=&s2t6r#vcasfgN%PzE`LH8?x$=f
z`lH1!ugs1OpiGy^5@#g~&%GRc^@>!9)^fQxGfiA8y$wk!RPFSd1cL~pQBNyYwa1AE
zk?0Tjn&TZW7s%+dk}g*HJXN^>G15^J%0;*<S%J;JJ#ccOfAph5=?=-WS<Wtf1hbG6
zB=#^vG$}cisl5}~fKIm+YkP=gr_g|m?GU3-&##c4=k6+`d{|OhlChjo2U0mWF=jFL
z9$~Dfw@99f0IQI4x+C+d>rgrBUnd0{0sa(E9u{>PEhuhunmrFw6U9?1J5$DebC%MM
zUs*8}P0KSU>MFI`{05obFDc8QP%_s+gtw0uHR3s9n^hVj^Eg$Vf?w!n(p$(6ORe6s
z5{ElMRN->ZD)4n~Oyu*YObUq80|@p*!Si%%!}m?5y)0BX4M8s?RV#W@KD}y?+a+%(
zHmAZC51;7YbpCCU6yr1-`BZr5NEEbP)I#}dB1uzaU|G)+O#U!4gyu3jk60nmyNplF
zr{mCEI&|m6!N7RO)MO2#W3fJk)0^Yy{!j`gugViSMk=%WNUfFfqW%9e+Cg<8nOmvw
zbt&|d)=;^zQasC)ZR$%)Y6a98gy+j^#lC`?rFgWo_T^wB{;f|XCX`^YXf{c-RkfMc
z?C2EjF=jq2+jYZhqA|3VX{@~~(j6Y@z1Mw5oV|5;+=kIzeo7`Y&n?j$i849OMB5I@
zmonN@0^?O_nanbo@;<?>M&!m0pK9m!X>@aXNo4r<ZtwFlA<gdlC^f%-;5gNDth^pd
z*eFQi12R%Sx`w1P$@PkCe$Cx91<UL*NjY7!#8Xp^W0>}evM#dGDJk@f8nh|Y?g(4M
zLsKWwTT;7&zzjv6n7#!?`|j}ifuT_@9mdXq1lNo=5Dj84L|;O5LC79HPhzKf=n9f9
zCm9LCTnJMjku%WJHF**pVCsxy^!hmMgX>S=bR|_nw)#gZ9dNTyvhu83Ia=N(T96*0
zFa}&{I3Wmsr?LQTql7uM#Ho>o*Cr*4**aZD?5s>|{%oQ=QOtim#Nn2>(QQSZafc9)
zeL79_j@}}fZ%@;bik|>>BOWTRLTG<_8MU~TCnby<w42siVJy&SKb@A%egMo%?BjG5
zwAz75&2f6~(+P55x;4C-FAw)18*U&vY4YGW$XmEWq9IdV$>?MtQ(5FW&Gz16=@;3H
zVvxcvnl>*Xh0!Hxlg<SvxwCastf#-NyjTn>Wc4W&1~3D<3s^=dm9_!aMuE`zlDz_B
zGNTbt&Bin+9s>W0{#74We`n5z$Xk!*=STyVHNYgRer`Qpfp+88wPdfFPOdpbsX--(
zY`JwXi{$NeEPkv7dO#b|^#QqYW@7kWMcpDPSIJvqNbk^0v!)^;h(gYNiXCg35sZmN
zw^;02y2-))Hx!GuRe_txE_{s_ZU~$W^-`Rhw>UP4%jqn6j6<|^T7=MYKMJzAr(d+O
zrE7};L+|zO5rb`b=+r<(pNo3%cEJN-RF<$`@TpJv$_`tTUzn;bBXf_>4qTP?j|4fL
z6T+xez63zf=3;P5GNW@b)PTG`jvVFsV%!N9r)$!|AD(&BXP2G&1CtiuZRb%zsJH}8
zCwXXTW70~hTlLPFH&62?59QRGZ?gP)u|c%$XVPZp@b@vFz~cenFk35U;)2GAA-<ob
ziI*6?%=~EPqE}fvZeP6MVK$%cq7&=t1g_O7CG<nJ>EPr+B~L8r(AcI7_JCUmQOoSL
zU(4`Irju2w(b@l4*geWm5#k!1ZsuqZ!Ps(nR-*I<RPj=)1=aI`4M!I2hCW>sLg+ps
zN{S?_@D&z(XUq9Xl(IgF?Ecgm%2brIwbbrA0p^l)dwo)@wJxVCQd2_bNpxT0DG>CX
zcHU-q58js`pR1v<p&9k&z7A&7mvuCAVp@2mEzKt79UwGcv!wO!+4N><P9%Dl#fo$2
zKH(Z9bKV3yvs=w%V?6KV)<EKxRmKPoq9Z&t$aXgj1;Dx$8cod&c_>0pkYDkzT1q~p
zmNM4Y;xKC|6MrUtcG(76it}xZd`#6MFcKs8kn>%nmsO+)1}=Dg6=>Ni;_GUZeKI|h
z$6l0;f9H6X_~~|L^}P{l1g$U{o7UdbJ36=~_E`cNkZn<2Ku0IbcV~sdG11f532i>s
zIdVKndl^=p{8%R#4N?50hES&SzFc-X&#vz?sKEjB4B0AtIZZq~vQJ4Y{30QYC3V(-
zxO5u7JIiS<yfw`{Fww&%NNlw%Fr%5yD~aP$KzUY^^ii6>HG^InZ;o5l>U7C1fT`7E
zne}buC4<{DkiA`kL}c&14kz^@r!~nF#Ar5uTDInGN?=~uH|;8>ZI|ec@;a<)eM|FQ
zZ*chtiFG&m2I~-^NP2+eCP{ihqOxgr|7-r7&Vl*)z-3D55H9m{Lfzt~Sz?Z>AhPkb
z0y;)gHfMv5;aSyysLo}b=R^7ptgB{k0g@4)oqdfkY9p&FPGT8gEm!Z~`ias4_N!#=
z8H^1j&^BfyQaOrO*D|&v;D6+17Q|b+jm;{@o4$>q?@Kj_?PN4PN&703Cl#9efPCID
zqXJLai8ku2L9wZ%9IgT%WmH^-SIv?NsHGBlVu{FvzrAn&!5K;G9snD&E;D)GbP5Ja
zYEI5tU9k=z%^a#L3WSOV<`^NOYqGM7f+S@ZK9rT;j`LSk9zfgc9=fn_o@lHFiq-!%
z+7hw)!kT+KqffJZ;+n}Q?R17mdp-0J_jNaE%~(kyT|08v5p$ZuV$JB_iW&4k6Mb4E
zVzILmq&q#k$D2+APV2#ErgSNnvT184P$`5pJvaEJHf&K7eT5hDb0DHcQJ*}1Jx|LC
z6+TbCzyQx_>&8a?$oiAHd@93GdvGG%qI^~BR}yRExnjAE^+>k+YzpJ}QA7OO<O<xq
zWmJi?>!Q5<+uvlY3^n~JqGxqV5ib7V!~3`9XXOOeE+K}i-$mXk^6mYiM13fmp62`~
z(mLvu+d03F<%SCXOf3MG+PWX)>~(6Mj_shk*ps;YOR_6dslKF7%w3S1S`wn*Tu~mP
z?ByYZJGb#*puDe&*(Fc}pQ~Xe`N~Xqtg@Q6?m!>WR`M71lUhgf@JmHgNUxxEICcmr
zfmM_UV1TYeV?^8X;=j;K_@}VYQOX_Pfo?Tf$eMI~z!FCXb9<vx4J(YVD~%Nn`VyIt
zPIJskWI$QO?6i5vB%>>cR+w}}VF&&nu+mr4K{?7($aTQ-i=F6gN=G0dhWei^Q!^5z
zh9iXNtW4)el+oWyw?QdG|5$AJXe~D^o;3M83G}I#Ev-@REJtHb-Jl3>*d^tzi4>Fc
zFO=sB+y@PMOhQ=crZk<N%rKvZo9!x7uTIccnAv?R%w^5}5pW}Z7}a>qGqZNS&))T)
zdcxvUm8#5xm+ctS_3PPhm?0$nj{iezcLFsyTd+abV3)>jwF(3lmQo7Aydyf)*&A7k
zMy1%QiG*zX3lDw(s18DyUn#7vC<rDrvUbxP$MWSk*wu_ThQ>Nc+e|%?;m%UahqrMf
zoh?$w5v=t8K(HFe5v%|m{I3YsJW_skvRU}QF<1+a{7y2qkur-(6IgpOcCuBXk;!jU
z#XF~8lu5tG-}oMOxEn(l-c!z$3MMb13T%3As&i`1Q&`^Kdy7FC4LEfx>01LCm;(u6
zcj-l7g$T@XNDyIBO4wlzYL3Z>gG?PVM1Vf-fK#ocePiN!a6k~qD2{3l@oy*+?}ozD
zApBTQiy;0D#7I5|EAu=@v25h*a|uU?d+QLG)j2s1X4L`7+;}C`J7xBl>Fwx7yuPDp
zL8s{y+X)?MJ$Q}>nBzlq0o6fQ?Vm|7S)B=C6yD16DEk>-%Hr7@ujBMZ`fu^2;s1s&
z6|f-Kr3WFX9LfHhBh5a32wyr4Nu(jsZiioL9~aCIQ2V$y(xp<zxHVEHjd@nK9%35)
zZ&M@>+c`9jfPn<?Vk+7=3E*%A(Hp3|)bh+G-hr}`@5p{BwG8*h4k^2Khm@u_l6ksh
z2f7Ua)*q8}q{KfXX$;X3ke^S9=xr(+5@S##zh=fk(#KeK{}`LE<G(&)zBZebee9jq
zaIxqp7M<f1$4Sb6pa8@CU%Ch&Z$+j6+}9D!N73!>$l0^WADE5ySr|5jY4W~@{?7O!
zX8xT`<~XXqGdu5c`F+MKXbWDTqZm*B4`#kkqFw-JXh2l<KeBe3)ZQCsLJshqzrq;l
z$~rObTBE7Rd7qY><1ohC@(x6qaod{k6r7d4_m(n#BaKOpVGS<6U;QK&8A_d_;*XMY
zGH$!tFe;!O_|u8qtQ-z53Uzgsly`_u<l#NiQU}TCeOAg4f8pjGl50$NIH@5R1B|nK
zP`}5O`yV*}ABpnit$1n&>JV9~@q{ua|1ZjY6G1IJ5e_8r=DrI^zQbt-SR&6tzm2$3
zA%lEFQEJ40H{Ff4DfGpW2UBU->q>68_en}PPf>Pr^J1xuf6M4%X=vpU(GJ{^29qw5
z%dr}rFM}{^S=rjWCVGNm9<O9;t4X;;(y$U<A{A)(04_o6SEunj8KAH)l9Z3hCxBYu
z=Qk-Fn+SsLsEXMt<|ZXeyN=9v+0h!B^4?{>W8WbDG!w0{TKATilgGr`Dv-%kDrAQ&
zDlD%!M`3eGJ4-RPDU`^w0t;x?bo|f)V!u;Z6E*I?P?(!EW>Ga>?R!=>ZH?|u<uA}o
zeEAJ7i$AL0vJf7BNAxYxH&h>Mt1P||(sbKbGzCl5PK8}f<~M}S$Nd+6McQ0SnvPoR
z4NAQ^NUkxj!@~Uxm{!I@4rAI1&_&=;dC5g+<bDgCFBB|^wfShU0{>JN7Cr9xY&R4J
zVu0(~(Q;n2?;#{)<*96WG2UaLMWUh@*A&q0&5SomgznkDD{Km5b&~mxVx7>5&kfAO
zM@kF3gyeh3#G|VnZ4k8t5W5*3$g}!heJ@J14*Ua`ul}AH9uXP-#9P;o3hCV*y1+Z;
z!OA)S6a<Kem;>7{+(zizio1zS3lln~P$uYQ+9QZ9)r5M-t_uStfRt(pV;sqAIVwu!
z$YHVQLZRM75I=F5hDAk5$3WL8u2;lRg^Fo){-}XvxRegE-;e=u%<37HPzwy~zwqyJ
z_S$yW0ya#f%UiK@EpR%PS}-Tn3WiHNP)|Q#9+(etu7CJgWO<IwOsAea@TrLd!7hn!
zM~3hVt2#<8c@gCb*PSvJVD(lxyXsas4G52UgKP(HNia~UFLOz!nzWa^!>0Kpxtc|I
z?|mJ27}lKW1|8vL_gF_l>j)2fSy@=1m*aKZ*bTq9oW)#8BIbHY2)vrWwgdl&j-7_p
zdzpzM?e>H(c{gB3(GLYs0098dBer<!0Mm(e=9W&!RSC}qPq+0hH>%B&&0IH_cEn@u
zaTGiefx{R22Cgt2>kiS;Lg%glql@}s@5rOB_D0kthFTXQ$wUy7Ks&I+;H7{AuW_|w
zWyWV1aOFf|ccHY1cR7bmsTW;&Jc57#BKu6<?2v>_<y@NTYsPLk5^I*|ehD>|Zfs}+
zgO9nM#f#>OQjv?F3pBGP^!;^2nbE>R*zA@tddCc*0JDUd3z@#uX|$+^-^Gonn)PS7
zsY%uzBi3cN$6a@ZMp3qm_8T6SLXD8VP~4(FqeAHZ%(2#i2s|LxMk0e^DzOF!k{Y0#
zuIL>Wx8PRgD9cz@#dvR8$LMT`Lh`mSeC$wt5E}YxW~wV-Ar=<L6MJ2TTQ$BvEY4!0
zFE)c{hYVEm1b;^u-rPOnG07Lx&3dP7pR2TwQ>1(7skpA&6YqW!E{oC$QxDZ%Tbn?9
z0S$^}pp}NjDM0JF65w{pWGahvEhmzu5<fbwQ_tFD?M7e%J1u;~v4ImLzKlbKNK*M{
z-Y(n_V6GkfW-+5A6-A`TMTtA`IfQXDt`BpF!TS;j%!)t_pInEr^d-%-Lpa7X>yTo-
zOwEvtBST-Y7Vr<F#i`7^0fsl}l6n(q7m^iQhE<Nxd;=pkX5LS1&pRic9;b5GAtBg9
zJj`gd#Li^wZ#JQ9d^<K^$0lVQONu+COy@5FrNvox9RJXE{YKJ`erzIf9&@r;=hO*q
zmzw(`*xgoJc5H@E8cU${oGm2fByVs-cnGB2e%cv#S&6s$AMim{vbxbWaiOmY7v?^e
zH_&~W*$liaI{a^$?Id<2Z;nGTey7%j5kxeXXfLPRy==E4_U+C=h;yq(1)NO>nxXSC
z%{RZ2S&K86HQS#=hZ7a(YCeeFI+^a1*%v4;NP{Sk!0WCU7e)CDS`o)&kJFJUJWgBC
zvyMeC+{<OxAIyZGG)vyj^zXIo?(ZSU4HCWX8B6&17t;DSxbH8(wQr$Dp_VmpZM9~<
zgjSz8cU_<#r2oTHuZC=Wjt0tvHj=Mo6t$K<em+`i#~rYKU>TwdQ1<0C7>BY~wq8t=
zR<`~QSH~5~&dTx50zeTLrsniTUIaXVVihF1UaDvk_GP;IEvZ-Qs97ych}W!c((RcS
z=*BQ(cm2i^X^*ZQNhxi}id=s8yi_W}f&7KcCYTU`uXJN#-&Xi06)+dd2MdVL|5Z@4
z#f+2?3PK+l=%f<w=v#j_F_<MukE67cGK>%yAWrn&lvl8H?E^U(DzB(53U#=pbt<jV
zQp5%lLj2Cno=%~|Q{_uE>PWRp(HC?Y8gWgP{S(!DnvOeu4vE3R+q6o=M#m6cuEMbc
z=5<*qagh7VR5^!=2fAkwpP7a(soJ!5K$LJ>D>sH6O9v?aZTz+WXnA-w1$_caKCYXW
z{Ob<2IZW66g^)&mL~)N9v{17Keo_F%u|28mbk*PcjAo0rG;<*q-aG}?X^v@6EOiHJ
zHzlw~*!M^}@7Q<u`nG*{U&i$FiF=c_!kp1@8j4JD0S|X<C!#|KNS@B<9u@>BSgvjj
z_hKo8Z_TGl1=#TYsTgs|Z&SPvG0z^7;E;bu8VzxFmkVw|CGg3@@bHBE?tvYuST{09
zE*KvDJ!!Q}dMW`&>pg(!Bbsk%Drawl?#^WBg4|#*bZah8%fYk^+BpZo#khW8XeY+)
zuS%)_=L}Zi`v46Zyg(1oFckTR%C6-Y4b9)D1fQzkBI{{tc3+yhKs6N-YWq8Eet+vm
zms;nTQ+}<e@7ZHgzhlRMIQkc_$>KXbIh|{!>wDsS&qi^W2#QF$2R3wAO9n8xc0;<f
zTpK)uO3%$|?}Tqlr0X-+m=w2eiQ((P;Y02%+sLz4{apFKty>0Sf7HLw5ucRIh>K&Z
z@cMy`j)5gQANG=`S>2A1p3m<Wx>rr^SJdnZMNQA{{}B!@Z>dHzgMG`(spbM^!nx(J
z;EE)EP71zCdHFwRWQ(0s1lIUY+z!3|di5=0W*S8mXaZyGkaZ$NSjW9HI&4V{0?4iI
zA&2G_8%4TZhlRdB;Ns7_7sve)XC=Tq@n(holFAHbqbt4~Md&NDs_^{V3?Ak72H`T-
za=;uk1->druppLJ_^iF+wQ=6)PDeblx-X*YVj*6mF*@Y?f^x(_PwU22=TmOuK$EXZ
zEC|0pVUn11saIZ;u2cc5kk#eH&T;b}xb}%j4T?2-w%`qN%Cs}n!nno2-%pX+;R1_v
zpgKY72KD%<PfAvx^}zEm9JJ_0W$=(AY@!>qGkH|D!QG6_pmX5&**QZ!XJ%=;rFD2J
z#|>y|0_{{l+&V5<;X=pCC0?YVO0a@2yD3a{j=9Ujn&|JE$qIy+$_nQ7Pj<r*uhvZ|
z>A3?#Y0A1o-Y&}>9|d-VEYDP-hkVA^ISS4WP@+58mY->`v(=KJ;W<hTKI|DvcGnDL
zfz@B7?EIe3$6gK;xeI;vt+2Urr>wemLP~Eo$ya!sW?7LZU#)I&I;R{9gIiQy4>3g#
zB0yfNLNP$JGthrZg5oi<OGk)mipBbkq?VZOwE$+73H|HHxPkIfD$ujnA44)qF`F)T
z)2+%}^w4ZRmgohF3HW4+a(LL9V<hF{E2kGvfk2#2%1Z_tB6byLeoqZjV+_(N&Crn(
zzpa$ju6f^`2DQihSg~uaGK}>|!+4qqq~ST`LJo}2f@ElVxHsFinb@@A^{b92)8a|W
z2KY%p6XuJ=dQl41JEwTlL!JyA4YT-C(OgmvA_YGvSK(OlkX)ZYnmd^zmwi|y@gRKe
zu2qhn<G}C%f4LCr^N2bmd9RCV2vwFUqW!XT9aX<`+I2Tjfmn)3F@J@ctk9E5J2${*
z79;{%Gs=A1_C11fQ*EHfLytSXit7<(;Ljty>3Fy{{hY%3)%gFSfFRXs5RQk6xqwSK
zk&Qoj?3h=R?jUU$WDitBmKxHl1=i?HSsrE*Y^oM2(g}>DWIB`T5cjOF_VLsV4m7Te
zHGnwnZKA}+?d}F_IrHYJ+I>Eyoq1O>_GSV-XUoX9@R`1!UDpl#X+YD~Ld{;16GX3g
zXCQgtT@80sdf#yq?NZMq`io333N7ZdoL-O@><~&f*Cg=IWO;{71s?XTk4^P~lG^E1
zzSoC4M@IUF)0Mjt<ii-frBCi3=plMhXQPR1245UErE_^{vqnp(C2rP`oACCqlT|~E
zL3bXk@-8>OH2z;sc_BXL{gn^J`TYNDl~;>p{{4KtgX>kA`F{QaeIwqgQ|Y-*in~!F
z4eEI`_j9=w1&U$;6>QTw^gy7b8{F)H-seGc(&mRJORwfiO2LUg!>_k7UvvTadLJ|;
zFVT~EwosGlhdkd}DE;r}TH(K?hwyZbh^r%^0=qwvAi{o|en$+)k7r+9E=taE*wsRt
z{2?2!ViRQ-(T^E0;gijOS=~@+|4%d4&Vfibif2*eZK>&HvC<#NgEeIX79<aIp1@St
z1oL7__Qev};D(6fDG=L44Bav@HWjG&t&}JH4GH?gOzqXOXY^_r=;t>3G<)iYea2a2
zR&qZjXl4yB%@b=+PE)6G^fhqvFs|+pfpyr%;6RAhfI>VDB~YEy!cxTvvd~jm>;sos
z&6DsMYZZ(gq@1<IA*mi`u(*=r{HzNVZ*Z)fKQD0_OwlD`R`3F<<co1zi4DONNNLyK
zpQ-2a9N6P(EZa&7FQ1?qY08I*Ea;c#Dbijkt+#}kizVKS%x-!8HdH|z_T1NqaC4R@
zzJ}rcUVfx_&_W>lbY@Pp3tZW|KIZbu>q%`Xlv#ouYb1K3IJdWVLopqbSdad~!I}y5
z&mwE|n}l+70R0i|fvI)a(AH0!WL`>~E-G$uuy*lBe{-DE-IgYSP`GQ7RhpZjULecU
zv`Is;eqT9IfR+TS`!A_9UFqmY_e}rhCp2XlBfr631s}6am9@NjoVNZ8c(5P+KbE+s
za70Cwz*;k<m|X$}x2rfyZork%zXEX~1Xxy_-W=C$*Xpb&SGp~+vk#hl|L_VW2qCeL
ziJ|CdVRr0~q_sPihy#PS0!|K>TEmxQhLHxMckQ3{#BlG~-X!q>7OxFx2-^ilSz{30
z?@6*YU{^UGCWkE(aG&!7GUlMq2oH<T6*S6wtkuh?qELv8jKOi*Vfb)vja;2T1I27T
z0h<k#db#p9^#L^PRaVthR8Fm|`V*r$e4OoFlth;jdknQPMN;lo={T82lK4d`Lb-Q!
zdJPpJ+&1rXKBC*5`zEN<Ij<ppQeguut$W@{W)+y@#R8EoI457va6>p|*By~-%{7pT
zpk3#a@~n|F6#Lw3^?!j~;R?mL*``})%kTiIngczf9}tp6R|8jG(3*STKD*|o>~(M|
zak?4*VT`k;C%Gvov5-y;W;@a~*avZG3*J5&gJO}zOcpR$G<mk(h?KN*e~}ft*Gd(~
z8IGmm@djsCyR?2_r61Cu(*%w7-$`0tbog@0ALz>$?E-?${(E{S-r;yCj03Q9g2}Vm
zn)cswvtd`hZ49B$8)sKs4$BEf$ugp8r$?_Vf?{5g^kj;%p7g6xgF~#vT;`+<y$hy?
zA+%z9ScEN(w+$^RV9zo61sT<oG|3;`LvddHHIH;OTHedEQsf&ch_lh2MdzfwJWlck
zvF*l0_x&lfDa96y*fW|8vzCnnBK8h9MksX&Mfn+reRL9yC~1X0Vy(>RV|7jkSPwI2
zlEfY*eF^34zsFB0Mcu@f0*qaD2#kG$1x1s1p3zYO(qTJD5{d!fV%IBlh>P7x_TEz}
z__vt#EAPUEQ(aYEIVC7`Yb*G<7-~O}hZ46Ui~=DvH0nmrv-r-_>{O|{tz4w??E5?`
z<|1ipiWHFBL9)Ol_*8$WFTC~v1#S^AmWJZ~o`<hV*@DQi*&!xpx>=#d4wu=VJ#;0r
zjqNFDvhT8#%0gpShp_veR7{ZL@>T3y2XZr<5=XL_>1=u=nWfCQ>KEhJ5~kb*h93=J
z=(!%~ACY*m40niUj2w7ZxM{1Tr>bT#o1q?`Zw48ab%w7a&WAAw+eNEW<{+$!Z78DV
z0ydZloSz5jX{T(G6B8dN&vQDy`<UIhmNH^Clk<R;F!dS6k05t3nP)L$jMs#MmBE@R
zQ=Rf5!i-qtb(2l2k!DXIcnqJ%=}Rq1Jgc-roa-+spC&ip1k7sTfQZ?X+7g7IqH?`V
zK^><o1M7fFPZ(C@N1H99Jmhl|%%ddvx?h+#@w93jEwLXh=2Prhrxd`_J<g>@@p;2%
zu6s0#l=GRHD<!Z4oF=;b(FeT7k(6D!0p`%BkX(lsU-qHOCM5Izi8;|>F-5*tvLja#
zb2HSPdJ&(jxJ3=2Ty!{N2Ndl}UGXu8w7ZSyFn9X=J?_ppGr1nQ;6Ej4H+py&tswS-
zM<1w><`whHb?NO1%i`eEfeH0XBEyTmHmukR!-&!Ef8}P^a^uEObw#MEvI^JPi!1~`
zT$%A(wRWJQ@I3oo-U`jI2dV0@?V9<T>@shHF<v8j;EqN4nE3U^F)<W=`Xbl*<d>Pm
za&wJEAxezY>U5J|K6<hgNU>wQWEN1-SS|Ty-(Tra<KA+wd_uZX2fN6cI%9q$d^eMH
zRxr{}Y_|x+os47f+0Q8vBg5}al!}s-vkbY3bJ;^@q=uaqsc=uJQWqEwca3QWkii3F
z3irj$g^fg&ec>}BhOJ&$ChhTAVh3EPCGTQbA9rYFEH#H#O|_%jDy7pPduHfC1F$^*
zn(X2a^*S8n@HeV2{CW;8P3M~oIzy)91oJK3K%p<(B^&aS8b48If7Ma`l2f38>*G-Q
zR+NwY%vyTtR2tE&;!I|yumZM}ITieypbH%$(^n^(r;`SF5B&M}F6mjr?t?QE`b1HV
zUw~NV$!h6UMt8$eG?%>I#I7H66aJh_3zOKTWi*{j&vMZ*l3yib_+t%MFY-_`w}wh4
zQK}bqr&-Jl@d?Z0Ce-&N!}DHy)M#}2f#f8%7+&&nHEI$GdFDyXZ?2_m^ExztT*<7!
z)k&ggaB3nSO3A4hJdy4Cm7ZVe3YLV*UuFJK7SYkJ+)&MA(hqlu3UO|t+8}w4hxGtc
zcNG>6BF@I2M=nT}tGNi(ETO^jkONdy-as@!B2a0<bDg9b&T1>%cagt3pY%LTRv`Ik
z7=TmyU8pnSIrcq*^Wc&zP|Dpnk-l@W$5M8VqQ;BD1cZhkB;zSVI!2`=UAmB~Egsrk
z7+fFinmf@Nc6+Vx*D2O$vFQu<_|zXPcBw9(Wb&K2IfeV}o<}LMWCm|SM^t^Dhy9*Q
z7MZ}jbHv;t3c=Xt7D>)YHLvq3=b`Ta?p^>&U=LcvSqHHd+-yhum_`oP{MUR-tVpLz
zg3SmZ1_$p+pmwjZfU(vR7D=IprA4?9d)+K8gaG{asfz*Nh`{e8yY$&q`My+t>+OL3
zTPL7s_e3g!3goTQrRX$Kc*yWvQh=oVoeIC$sG3(W|8A#I;9(da0ctq|Yf74QKOe?n
zwZhx_Fd0p5R{yTx9@Mc8`QC``<12Fp`adp18}jG6Uo5FZQ$qR%$Jz^(%)h090^0V-
zdOU{DP&1dVAy+vQZRP)vg9}!d*E6dG&?!DKkTc)N+4CRA{MMgT|G)-=CKp=WR;D?t
zo~REtI$mnglrLO<fh_-eH$6}mM49@zaxH4pG?jo;!?R_^#5xCMK4^+1BS&S1u|>i1
zf32k~p`~$KkoPntn~Y;Q;W;n$(dpbCnyt!f6SXfT?srcToxihPsAv6IGOkMuqAB@{
zvfN&gjB;E>9zP=81>B&U+Q(aRXS<fgEru`mvGUsNS#vR%qJ|2i{r~h6Oj@5KI+#v3
zn;expHG}pfu#_1Y9Y?vO2fb36&-FUWD240;m8F5Sos}4Sx(NQ!VE0o(siP}x{<W4A
znTVF1d~4dqqLX1o>p1_E+)i`@xG%<!bY!V<-?%<82j0*79u?@gyH7^IZcJd+iH^PP
z6G<={-{rJX4@FAgru+p0USeUQba*xPEiN;c$Z7HlMY1HSm(^{gpKZu3vW6=BVl~+d
zH?rq+8e=UE{v)O)IWp?Pv;ql1M{2SBj|BY)%h$a%B`dn#lJ=;{gGae(hm_cNp7EID
zE>jW$gao(7T1x8tpq$NS^rUI^!_eXSR9j3I9bzyV>5MGHTn{lz96y?6)m|m!87_Mr
zI)NS#TlPIt;yBtox)7sXD+<=FepK*@5VIRHX!;}!c_pqA_A#?42$PFl6Xhh2FSdJ<
zhHst38-d$)9jvxvicBZ?>~MpmwJ^+yg`crLohd({jC+fR?Vn{2y_L`$_fL9!3YsHV
zPN0pl^pxjafU=IaQr9Ttu4reUt2u6>G+?ZBT$E~0%Qn|&8iKeAl@3!SgOVTF%I(%g
zYSQXQRIAm>)mO0PYf(^Gy8;;FX2y#1Sf&TD-IK}ZIz8-YAspy(DYVs37bN5iuc_ed
ztTcL8vKQoG;6`YgSOU7La=LsmlcJ_{zPs7+QWag9PBCjR+?9PgN(2GN{A)w9bepQB
zF*BJ>$lZG%R$w2~8jA2gh*PiEvc>Bd;k%gh0p^~?f`PTGe^fo291bOi)t65bjgsn%
zeB4NRN$oJ-fj8At(<LKO>*oA0CLPXDMTVT!vo^`ZP+{^*um!JVWd0BO&yb+JAoGa~
z$Ube;7nR{~J|*mXivCv*%F7H+{$q^ydz1%Lf~_SLcev?Yw_S9BC%Es?l0Hve5w6q^
z-R6Vtf)*GjR20pV7sEHdvZzO5|K#)p@oQW#i&{<mI4_`WG+{YzQKx$8O)YECP>`u6
z=t_rZX~Wapin6aVF|p(dx9L_a_%EpZ1vg7nsNImyO{XhTq>PC)%Prfv>Wjp({A{1Z
zkIi7`0}ANx#GV@4?N`@jXcu$oORdiFBDs)D-^%P+xR^;!h*bY{R!*OICBFiW6CRbC
z6mv2B{GvX^%vH6735e12?A4Q}%0Hp}$1)06sd_P^&zbuuRhdFyziG8kdR3Pe`}m(&
zoil}_Em6);&D#r@{F9GR!vCJ?>e01)V9GA1Qx`biKv(2GkL%<DtQhr`_$bdJx>z<Z
zl07M{ixcP;iPgZP&y+q>Dsk5D$Ha3*Mt9Ha82W5N4b~3lSa{4Sq@=7GqB`uq>ppS&
z`|`ZBO%9^L;66W1Nvm__M$BN<xEK#Fk@m|lCBt)-d`#v+h1_XOML>(z5bavz;v@qM
zKr_`tB=<^Yi0S4wD%4gn6Q<?n@uWj{c|)R=3SHs$MLd(`y}7jeFeYblzf0<37z}Vb
zmmVsy`uY;<9Y>dYYK`gH+~txxrt^Pi(ixUMMa~I}ezZk)ijR^s`YP8tvbBtEC3*e?
zEBc;lg>T6~(~`P9*FJJ}$Xt`lx5Q0YV<>7`R%~W^1y-iEw8X)0GtR+!=X7g#-Xz<0
zN4LixPRk7<HoQ=RdyoF740=9+zR1WHk7Op$tzQ0WLN#ur^E_s*!lc_X<WFp=be6P}
z@i%SxBE?*eIpRr*`7O^-FEk00%(s~B<7{YxkiVC#z$dD2!9l+nCM#i3wpQ0>q3SL#
zCaIt5kvpy$J%Z4L){jOtl?|%q2c)w{IemAS<jOKnWAMhYB{{;S<}`K<C}&uw6$R1X
z^lm`j%xHK%J?){B{POyAHas<DU`bAOUa021EcU0VI%1(Wc+P_G^;w8qj0VT-s={3l
zNO)vMKAV+83W(7B3E%@07R_rbuRRr?W0S0Y$mG@DM#My`Vnv7m*~VnH*{0`p^@xdo
zjQdeQa4cO{8x*Hbl)BM8+ufu$JJD#d0Ua7ZK)AEBWdS`a!71$P7MhS_MV8mrImlJG
zfGxl<w<?;JapKRT8g8$Xq9lKkEnPlkI^>UTkq@z<p85)`!P|9f=%`A%%rsBVmg#Du
z%QDN6*Iu7T(``Dgl1l26#hG#tCK|fQ4kplOxjIFmm**_O{?$G5Q2|{<bdQ!2-a=OI
z$5ZH3oBxz0Jt<Wq(cDvK4}7GX?_i|&U6Xv#8KfMr<qM|4ASCjrKPNnN*HmSNoLQWW
z=`6QoNS|g}#m^&Ji1dD-m~%v~oGF=?$j!XNOYLrRH<#$Re14UTp)h{*3)3U1R$(+<
z`kQVZjSTG_*~63BF{HkkYJvtezn24cr<y}2Ah7dFmuco_a+7vluKB6VvzJ_zEnzJP
zA$7VehwsqoTbU5MOt!4vCsr8K3-oJk`O^k@qI+^o+|<B|B|Ys3_RIt`o%^+8xIQh#
z*vDvT3V+xoR+qoxWw)wQj!xUuWgseIk-fGZJ6@OHB<Y!u6|E}wiB~2V8#0ZYWcpD(
zNmR#2yNLTT%~!PaJqX{5$`M``!Kd6~O8?~2rwadsnn4;4h?nM#(J#$<kU`K0r{}oq
z<<vZPo?U&Sq2(#4PXs<r(tISL9j5TlOsPv^9;Hr*&n|s)y7VRmQ5;wqwE8=X=`mi3
zyRoN&0D2p`9Su&)UYeX;&TgNWv%3180KKBia}t}YVI8>ov`n9<vne59mS(q`_cEJK
zs$jOw6Kv%{VkgS}DIc)lR8jaf23uv)pJ!6N;;V+%enW!1!SL?O3}U`S4pD_99Zvp|
z*Q^{-IP);+pDy*`q|~m?N$_00NtOPgCiPx!z=4OIQbj_8Qj~PKbZi=$1xC)yrMziQ
zH2jbTd#B;mMLg)H<ovpUZqc)4a!B-ri!!9KLMoLTAU+j7kZ(obPi19rwjx4N2U>4a
zB5bl2ueQV#tr<h?)`a)wS<~uL*_B2mAeP6-bq&co40=IguO+gX1<fE~A{$+Gv@=kF
z;Sv|7u%~$5n#d)Y^80i(%3Et=0wV)@pDoc>R#BT?;i$>!42wy&Z4YeJJK~1(Vj(rm
zsS@J8Mkoe_)0${Zu|{sKWBGHb%fkYb^b%ylEFij$kQ<T9FM2UgIt%fSE_G)m#h%E^
zo;C?-@L6v2g&<ldYwdw$^U?>P8cm*IjeKb5M#Qe#bGjoNM5uY5D6?JYU+X<E@9mNm
zk!XJhYJdV&?#QZzK~Rd10M<yL<Gj0}QUN&Jf8pv%j8C&iHFZo{-iDt81XWlYb*6{(
z*M`ca#rqxtZMMTh`4V01p&z+XZ~F&blJQEl+$d2-A}!YWXi%)~f80Z_SXN+fn!H+8
z?o0%Iz~I6;^p48jJQ8h4`xa!+x;z&Z+6Hy^#OBx<*tqx34I;XlQdHOt%YQn@Yb~Us
zt#D$szwgdPo(V#_3LOG~7}xjC4}$T#)@Ao!nF5dp#54UE<j1&_9~N2RO#~+Lu@q_6
zROJE}l~WxIz{DzvKOm*{e(1FVvlF&NHijK*!s3t6mrO~0$%(n);Rk2(*=WY&I~{vt
z7=y(Mi{%OWXOr2IOj_lkhgJ52PFfDXtx-8;0`utFYLiYYMRjUTF=dvrMw$Xx;fn-&
z_*<3j^0Q}ErP|KQyI<!U61uR-qJUBxa92@M$nTZU4EV(Vs5DvAE+#slPY}y3dVpiv
zIH<VSyn)`{<LsnZ4Kq9|?al;7TV-ily7W0}3EXb^7%RqAjMktFGAlRQzbusvwQ@sA
ziTp8(&^doKoc$D;ty2=i57kIh3M9DI^uAN)I(dqI|J3Y(PwEz^7nse%4h=p*1r5G?
zS#h|2%UG>`D*M%<>(Ibbr%aDK3ON_9jsL2Z#L-j-a0V^bFJ{nV4oLO0?}m*wW3)Wc
z*GUe&hQcH62Y6;U^A!&P&_563>ngQer_;&88YjWw_xhWWrqjnsa6v!*R}#Gb7c<V;
z{~HKC`^e9i8ABv_*&>Jb_MyzeS++nqeB$1FcTh4$>iwtl&Y;t{h;+n9*|UHhexu<H
zg3lPAVTwe<Q4BEm<4J}~V9W=l&Y2|Yn54zogn-it5T99y?>Kz~9{OB$sBJujV}tpN
zRaR^}DW%ko8fCPk>nIL`GiMNN8NCcC0%llFIS&k8C;yrs(hHDG3_I|o)2VwPZ)#O_
zRmGH0XbQHe%72myjyg%;5aRA>a3}oF(ISotkJ=^Zm5aD^60<f8&|S{F4yZM#Vg}Zu
zyX_wOd1^;C`#k&qHMPT`-0Q*m{X%9S3S73l{x?n-=km|doQ6Fd?|Iy~4M7_m%5Y$#
zsE4Coju-ryQiVMds`f`ScZyR?5HK}Bg&l7maeSM^7fS6S4jNZUHHc%%P<|0T(jW@2
zXt|5P-NgaFqp`CI6K`X&-q8%22{Pt6GFxzzO9vid^^gIE?_h^)!B!(#X8LMQ)8ui<
z;(dwDq#z0~h4PmPNb?-g!dVl4GgWNdO(&79J0zAK#Fh*8QB)pa>{|j;=7<PC&p^Bc
z9pB8E`WbDe2FL7XA>;W{C{SK_9@#@LBaLUaSVLQW77wmtca9rsI6Nfe11(j~6@sw~
zrWx_UZjr8)$h8Oh9Y2i{VZ6t5A02d$TlvOKK;o9RZB34nfQ`9uTuN{OIrv|Mgnpc>
zCb5zu=J^jH0m1AqLc*8~z|^s00afGlD8$RSyCwRJ9g8!JNsq<n@G<@iz=sa{cn`z~
z|2!#9dOH*!u5oDg7zBxkWW2!Li5)r4rk8MYqMZCAubhf5@an3X8eF?^&}OoXgc)Pg
zVt<ssC)_}BQwD5R8?f;{fS1QuTP#TUFrBHw@s#0!`r@IyJnlj}EbWS0;B<io>OYy+
z!DDWu70sNvQg-vrijiJ=Kp8yLf>9}<y)=k>bp>s~V&_zvhE3Msv~FC^X(NN|w-mms
zM`{D{fyUGB;*^w^1C=A2ZE?&494_`!bqAJ82hoX$gPd#vAv)B9CGJCoylUl0Bz6f;
znqQ);mnlJ`(m)M(P|iWeFl%tQ!#9=1jzin<*-98E0LsGg%2l|go%w$Kr9gA8t(sb0
z6$(z7YSf!-r*X(buD5Fm+vO0{K!Gs8;ur$71`C85RbHo<TXiP|xRO0N4tzRtSx|hh
znkN%|&TDEas;Xgt5W*asUIXv}HkJ>0d?rr44AYs%;EyTJrI~P7Yk~*G)T+uL)|Q$V
z5G`r8DA(vD&VHxz62@{cdkH?plZG*uasYPAfY4AzcSbbhrg>7KMyVOMc(ngSNqs~y
z!K=KC*#p%T)l-90YmE6zyQF#pasjM7Z;}Sb<$|tr4Cz^EX`~BXoajb;nc1;0)6dc5
z%h_@iV1^>caLQxGV#c|)?vPXOMLbbpltM3fHT3{<gDXv9gKPT-Hh|RaQs_%g_vy48
z_OGOTyb!mmF|Vb>=@%J}9AL&daFcYLqGO}~Hp-%%Uy`XF&fNbZ`AFtl1Pc>XA|!BW
zvOOGQze7_r5O%O=b&`K}$enFe6DH82-zG^>m%Cx8*11Mh>h(aSL{vX9K6e_Ao1CR#
zHbjc`Tc~WL{}q<1e8Amr61~cTFra<Q$Qh1&#I5KWS@d>ZuI!9Ji;U0Y={gy~iRA0v
zz$hSb%|%IM1`Mg)8Gb#|TW?fh94eD5mMx!EXG|M5=A&eClwko9vxaqP;{Qk6dxytW
zo$I6DTD#AlnZ2i|TJkJaYpgaJ$#S>VY-4bdT)<##X)KLwftodvZJ8KsIw2TSLkpPR
zLSj0h8VDs610mE<4Iz+FYz!no2=`qh13AC*JLf+4kNfawJQC7qYtPzif8YDPr899l
z(H$OK05OgI+2h=ADK(Wf(RUzk_{f4M|0b%QzXYzc21aU|sHqlKrJJ=;EG3xkSpn)m
z%Lr4w>4rdHs;ZF|0~zg4o_pm$NSf=3lyI5$Dp`wBxx!L(cohbFKlr1A)H`xK?9I44
z{J5$PaXOlQbl3YcQ`S)+)kAa)gEQZH8kFh)sRU4*7p=h60MG$kOLMU+tOJx*o65Eq
zxHYWFe27DVk&L=a48oN@CBwt#H+$($i{+b(rBB-&PtX~ntjNrI4?DnC0?ZbeLEr_-
zYidR6Zo+iILlm{#vIpr=*lDJ{PNmaNA%$xTNIleQs73dW>;ae9?baM=`2%sC;lae^
zWm4uKt??u4!=FYL5Sx~_$X8uX+YZhwQh&45cCbzEwJ^BICF57f>L5=c1?vmRJe<IK
z$T>SIGe0q|FnOfqk-G=m&!n7{IxlXoG2zFGf8!3BSzt@mh#dZV@HfUBgMhT_P7HAT
zDtahBvn*APFTer2ftS-la&E#<W-(U+HM<$B<M^H2^atY@!$*7jPh<Q`MpxQ&DMPxH
ziFD%E8EocmO+}^hF;;;W`WZjBA|?k(t-S*``Cv)>g@v=*I0PfIgBe@WL$^{A*|y+y
z9NG(xqQ-Uxl+Rp*`*tY->um1a<n!SjEIam*yN`{op7cBJd4U<bS@k1#Edl6N#4Qh!
zGe?5TAIaGh%w(HYin7Aw(BG|xuxA{k(@a}U)oxctfIVq3*Vh26z5Z|rVYNfwTh6nX
zyNsYG&9e)Vm3ih4$>2{1*c9vhE(6m6)R#j>TRJs9;SGpVDoTkCQyRF{B;BpU2T8Nv
zY8~^iQ;C)>@O^@N3T{-g_krl8Myg!!Q5&5ZTdqXnpiLlF2Z3_H^`NT5cGe8}Z4xES
zB9JEOxmwgFN5DN%DjpUG6$EphL-r=tgn4=LsxSarILo8$?kWp5$yUC~;-4AgQm+OK
z#5RUpD&mD}l5hF;DJYi_dj?XyfT|J&^2p$Q9-4u35YAb9T;RlJ++L)Z;E_OUI_B36
z#gJ6g%v^C&(7uPj7d&jZr)#v6w&E{^b8$*Uy&0AFG4)zSugRd-S%cKbRQp|_b6)5x
z>PfxsKLr8{ytB!!i-W=8Pe>~YL5GjK>6unw^HPI-W}~}!25zf8n_-mVZ|zR>^rpu7
zIrO}HLMKWWRkSqXM8El^qxbq-aqC((bfn)1XR<Fcl&?)M<ar&Yz0vPh+~(bt?rflu
z0o(I%hFPHIXZ$rKhHCB{a+^B2+r1!cpXO!^S8{8+KUlXNd?psdIXsqfgrLlNL5HHD
z5MTS2p!^o~$8hM2)}Y=(5eyQ`Z%q0!xSx_m|2e_0zdYkGDUK^8zKdsy4oAWt0S5Tv
z?6k)#&e4Th&Mpb69K=-STk5Yg^H@u}Ns~zhpN5FH=z)s<5RN~E&K0_feo^XyIHj!{
zZ^pnqun!5V!y&iq*<fsSef5pHX&7Umh-oP|8T5+~ec(D78Jzy<_3jN?)s`zfY$u8f
zpka8uisM4gNuKZ`iR)xBB@^R@VXHvQyns|#GC^Cp@;nMno}Y$Kj$m||p?<BWu@ewW
zYEA!QtDv&?BZGcJfKCc32RBfIoCUAVENC8h-w6y|fc>{Ut8i`aoGil891A1hjL`O(
zq`enzjIOS%fz!k;!)eCFIyf5=#VuAS%2+GXZ_C%;ZqN*iQq~SBHcUskV*0Wb9;pY%
zh391#boHDPlmzub{P@h&&q5vRAGsR{q=(!=h|0=Rm55V5&Dyz4y8c4Zn&?@O3*pvm
zji%=YlM{38`xM&e&=S9Kie{|QK(|!>7$|A3e9T)Qmi{FWXueX9EWJ)u)TdlYTL7p2
zHDVWqo22ott*W=W&f*|r6E%G;i7IhXh$HQGhtIULVrXn0aHMO@5uhf0rSO4qvQaQQ
zM5FZde_f?h=qhjkF#5$C+O>i;VA&@Gd=5er2KpZ})VV<_$o6cboJ4gt3WO#^2dvY~
zml9$EbVmpER^E`Cx|-}h*LN<b*`A8Zc%#SpC66zcW24pM{p?asGdP{k)$x8edOlZR
z1CM91ofKMpS|EfhoNLhQAJmOqPx|)2Bph%x#qd?bsYltYV2}?sXFy#*nIlUAcm2d`
znD)81@fhg4Zc^;e-Eh~7ZVf0F&l~!gmNGHWmKM%El>^-nJumMd)eo6;aW>s+Gw>7+
zh3ncenbes}eVNJ|IebGVN{#b#^g|Rn4f1=lDA`rciWdxglwVskWy)LOxj6I7HwTmp
zHTxP<z1wPq!gFBcWQWbkqn~L)Si=bJE!UdMuzN06=}XO-<PEEZnzBu0C+a&FE*0&f
z64(8}zuZvIrDhyuazJ4lnUSx>){Lxq+SP(4>vXC=`_(vYs<V|V0LwOfXh9eDqDrsi
z(NwN=qe=QE?0rCmbL{}i{X5m-WaaZLbNHDI<xO=7T9bsptt5wo)AzodYZ(EvxM)g8
zW+RS$;ZfindFX1x@Novu-eEG7yexB&$`=Z-kDkq7XQ_c?iK;K+>S@ICg6`0y@pPZ5
zdB!)D!9^eQz@eJ)5<+C1QEc^dHf4-ATE^cd`G68(1(0#ELQUSC5C)F`+CWa^DLUV)
z@Ru@TFueVX(kT6I^{~6K&C6a;2(zDOREVZBX@a%`EykFu^S3q{khO=7cgx;0Vl!gm
zbERm`rZW|N71Jg=ZPK8zD_5rva`j%{dYr*-WY(=_^ZRi;Zy2|NstdphtxGDoFH2jS
z{rpdSVYE!u8H%N-AL#7(tbN)+B5+!f^#c<a#H{a)>aNvC<g@>mi0sg+XBD<h+lFE)
zosgYj63Vd~VHK4;b-dgAIkltlO-#Eg#OVs!*}kkyI$nT$yc7OfAujvix*-s7J%O@;
z5CO#9b16#o6(Q=jR1C{Ttzg*&ApvU?GJ)kb(QN$qNl0n$4e9$Bc4Jf~jl*g3Kkmgx
z`Wr9;8@_>cbfepV6D;w6`{^%s=FoXzzMZYdZ;#;)-a^_%KBb=M><}HLI8zCwywvPE
z6PQ+C6Q3f2(2-(<=hkfSP)(4&rAXhmG(iRv&F_9nXZQQv&qfM@BJ5-5`eXegi93sG
zz}onFd|=I}Z6+0I3^3at6z}TlQ7X$HkBAp#9qI(YhlbLCn}z5qXhdjI^e=^Dj%Ld}
z6tK|nU+~-oSe*u{Y=KCX)XL%|=+uUXT|eZgi?j|P3V0VU)TdZtrm8rrgt{JvBN!&G
zovzT{4A8m%5H5Od+o_yuUYxw;&uv3~1%~Sn_=x{5L~*;Zy{2;T>M+Yx=nRX$PwWOG
z&@--tUNzd%qKTioX8;pfDh+d|vV2hyQRd_Z6M2#8Xg%IDf~i-HMky%j9p5>o75mg|
zlOx83Fn_S;r5z7HJO2i}DQN4ZK&^5tkOCBmatNl0XHa+!>V#SXyjm!t>!?xc9B(ok
zq|R|e5t}~_^XfhD<p`j1^n2MW2#FX+-xi)DM-hl%t&Goe)lc=p&g2>HBT{oN)(+q&
z5}ikxY?kIuONxLf!6}95!pM3~b(#YD$YIRuVfM{B?KXLiTQw|pm#U5MEw9m8b}^l=
z1e%`>AgOc%Ujrlx{D91WbiUe)F%`$2K|jw|)`sl6yd7zetJL4MHR;}Z{<1)DG%w-~
zzZGC-88M(y5ze6nyAK>+)p^h?M?x&!tHGp~EzjW=Y+oMMytC|9tlpV}*ZJJoXmG2<
zC=&1`Z1Av!#kJVs%S-I{K}Y$emz^A{MalXLkFtzuEkQOXSXd$69q;x$pF0Ol>B#J|
zqTzv815634kAi)72<Hn*jvmH^FTOIhXN8#v(y1I<cz@8H^L7b69@22GQAGB>B#f8G
zXC;!P{MBBHJImaGeHpc&7PW&h4nXk+cHbBa4%(cdl!wtPsy=F|Ow$X^I=tS$ID6Y*
z$p3uNMANG&d_g`PZi$5>Kj+k<+NUw&9~SGjVt7yf;h_(S^(zJ4qjziCHm{o+VR2|r
z6V#R_7@i-d*=X;j#_3M+*TUAc_Uc$T@?Z?yUGEt;{OSa<Io}=$3}0x4`o|Tz6`usz
z<^n=>;t7*>g@^x>TaN+<Q5s-AIk+W6u42NVGc{7EoK)5*Qt=t@_;$}nw-5F<(B)LJ
zkPpGdN>aN|93LF`jtY_qhms4>p2C&Q2i@o75Zp+{M+=+9rI|6X&o6hg7TjV3JN&t-
zEN5%5$6`Ny$>%hyCVgSDbH^ifG1mwWHWs+UA+J(x;1r$X0kt$SrXgC(A&6_;0Np_U
zGlguTF`*~*w&M;yl|_DSCn|<6k*1-A3IfAlvr()%sc^uFS)R4K3AYX0*nkZuyIQ=w
zirkHv_SN`yST(?DPH5#<L!>=>EMzD^lPgzjI;Fg0%%vkCzVhy5z5kO-$0Ao$H)fhR
zC5!m_gW*DE2@B98)pOuc0r6lp5;^WFU(<>_>{Rt=`J`0!f-_jRlx^(fF7dCztt-1B
z)o9Nckz$ShEvu9$y-z!rp#{Q~54h<g)`p8I(XULD<F@X<Ds;Y19RcSL%v=J~!hw;i
z81DAB11y*c*8*vXZA@$^ONq)LEsl!*s>{i~vONXUx8o4<ID8B3XdlKW(rKnYrvni)
zsh$n1v%x~DD|J9%P(X8kk0Ugj0M*)A_XCKB&$zUZaZiTbW#)?N+Dbl+=~F8sjZ-U&
z_&joER|aN$EUXLRHrHKoTne3Ctm01ABB6g60Q`=53q`l>nT-PVK9(O7shRgO{XX`#
zK>3Pqjjry8Y5&z|IPYaK9O6C9?Z2C`yVwAJ9&pd^Sg9)l8Sd~_+zN)p1I%p7<Ez;O
zA+i{|Kcqa0FdG?4v%V7Zt`)`n*is5GOjE9zKo=5F$x$&bC$Qn-O6Kukfa!d~t!mMF
zVVT7*w-l}^y|5wzo@rA-qTkJDPdap`pM*n4X)uPM8(iH_>f7X9rSV^cszl;Wg`HU*
zEPGVTi2hzvZp}Lpz(JZ{c568=4C?>NbyM$n7}(19`KZ-oH$oL<(6H@zGC9ABb`(vX
zG!_5V)b~_rcjfw*oBR+H77?y$7;f}8dNW|mif2qV0atggc$Bn9h@YzK-<fW2Ru$Pk
zH|Z%?HtNzxwJPe*V%b#{UhnNlSH*Z`D6iUK89_Z*O@AUD4|`+zj#(XO0E9gBnm!46
zI_vYGd7{IKwldpfkwiiD%xWQSs0xA0<cg1q*%M);Di|UuTFRB*R<XUD?i)vM!iJ<O
zH&9VJ&N{z}|2hZ)C4rg0C|A2RM;U@;{Wx$nX@N`o<dsAJs-mgB>f^=vRcc`1jB4lf
zs_$L(3+7wn&<!E>RgSa0DkEdT^`^QE&45pT$YVa>afj>-r=fO^{})sP^OR+tW@(~+
zNhFk-HBr?voXa)EfT`zzkLFohTM`&G!r|zvani;64a+(<t`d_Y=2L3v5XE}eX3TDf
zb9+L(Z>pG0+RGzcahwMNE}fjO+!)Xv8s8!rnuWRaV3@ARQ697D!H80+>o+pG-<}K^
z)kC3eSbUb)d&cR<N&hbWCdFNOsiUrP{4eG^tznZ;fxVqiS0lf3LJarl3~G~p*3p0F
zgM%82^{sv<?3VjN2#^uAtGWy5Y{qt}B^w8(R?**Wcg{y1x63G02A!NyGoW6@oHv=5
zFt%zm{Zk6mM$#rLwb&r<F}%mZefJ#0IiNFmRs@Di{r*Bf%y*oh8D!o;dXuIeIfb1P
zP%bm5-(ax({LFGLH{d^wwz`n@x{$AFr&Ji{xxNdH8r%-H7X^}o&iK@62HTiJ+lw8@
z+X@oHdrNe0He2O&tC9*8)VqoC!S!gwWKslFRx9c~R}yFd!;^C-CQ`9HR;TOBa`>r?
zzB5~+l4IMbJ97$HP^{6}q2thjo@ro-QN2g)%o$8T4G-VVV>9$tpL!uf|G^(XzX6ND
z;52rE$JwuFnDhI0t85Uk0cj7`8y_lcNKx*EN`89yl1@aybjm*RLCQ#Fx-3woyqx1;
zv_r3|d{styPv=gvNR-7??cuCgDk?6eSYl1;>uJho(+Exr|DJ|?S1&7O&M~ZtUu5&A
z1N>^i&Z0o)Xf0B&5DYocbzT?<nN|uTaQfcMR%G+9Ot1|euBUC9al58J&y4eO>G3Qo
z!?Y9vooZknP>e#vjlc}CA(I{Lln(X$I*Xck!x8X5X$U*_=UO{~ckOIH;s^vw-Zq8z
zO)U_M{hH*1FZYgfKwZWN;14D2J)KU<S&B+ECN9rz#15Z013@3%=M?ip_1!2)#hx+e
zz36jASNv$Z*QtkIOWW>Avas~sn>cPNFv~EF0MnH@6L*USNkpDXE#M}veyge;{};UB
z@@!knr5CDzT*g2<o<ZU0y|iX5Pk3Gls^7giRHf?|>m6nBa@dVd7*`ODUS6!+r!R~5
zVVy(h@!Uy&%Wjfh6L76qRgT*Th!bnZ2k7gNT+vtyLj#+7$|vIX`#oc8gX+{Q>Ii0~
z9-pb6S4Pz~y%NF=9ff9UG{|03Lj&!zlmw^6Vg11{o2F@<Dv+ezX}b?#0z+^odC@1t
z+$<l=nis(5<b1OtRdsLB7YvxYgOQ=#!NZ|)NBVO7GPdB1;!xXRvk?DvT`gPfkM+QF
z)s%02Lfio8IUD?@910|TCH!-R-98zc$gPuGrDUb5rnsPIZB{@7=lA)#Mj4&AinhVQ
z1|z0q>YW_=T6fo+W_h})4)#(rAwTp_3o5@MJsylqjR$j;+2l+N2I^kbEjUHyF*Yv9
z1mnL4$qmN<NA^!MonnR_ri7WL%$NY%);?loEHJYaPbV;5#+)eACc^J$CYh6h1KSGe
zg_+(55opyddP13Q;!l<IVFSgr4otuh#QrSjg4kYxP*yjwaTacL?m%Zbl{8Yf&IhtQ
zw_zDiRiBho8g|ySg07Japx2z&@odpFoo(_fH`cR#nQ*Z=B}f-I2nA|H_1ycXaVi|8
zk`!okF_P;IIdp1)QpT#g#Hoy_@6BQ-8_qh$2k?$B8tHqp%5*fS&rtZb3%b}~H&5oD
z7BopBTpr_RX4{2K+Fl;sKu=}Fx<`g;6bz30CrxE1XND>+W&~5J8?s`UQvb>WgPqj6
zlSAeZ6{f^_3Oh0gB81qG{A42i%nr76!p8z9%;O}KwEaro-U%{l9n+^n7|pg%8uL!?
z9lc(sy9(9AW&?odzsgo`W$Y?%psP0@lDJ_x?CiRhW9sCJ8h+UiAs-@B(>_p4zZN;h
zuPtP@+B(#R(oA^3+9;ZG=Dx>ITYZ`LAAWPm521{M2Mt1gwCWRs0ow1u=^MmS0Zn0y
z$Z-&K62mhIrbD%eKV3#AiT_{oPxtw)UfQ*Cuma8?kfE*;Pt)5lNWo{gMrAGbG}&4?
z{nNnPH&4cZf<`dr6PPwUve>wU!S+qW|7}K7jY|}N3?S65F)KJZYfc+FfcLWrc+kNN
z)8^qJjH$}upaD0Z10V%RU#cGgyrUT2MwyeCVv=(N^l^yQpu=@(KmBKii>6^Bz3?AR
zu1J-#7<%Ch_{yNoMUOjKwz&tq*n-ln>VNh21KVYwA4;3F!{5>LRk%mWQPP=__;ci#
z`JjsdM%0o@B4<5?jQ&bg$(7qF*qJBs$-aSFYK6;3a?^62&dI~=auLb5br_w@F{CYn
z(Sv|4FjpK!%IVaaHh_YlJ-}UY35J@SJa5uf=~`V5#YgU-ccc~Ek1kHBbJ&+TbLBKe
zI#{761eP^6a!5~b(P_)+PjV<d|GAN!kG)j#9ulcSCTZ=%;zb7H6e@Nh!!JK#OEJY5
zT6yJ|C6r5)!4H@i@qoLM_Jfj{ZTMbElMxeTkX?PF=)QpX(Y!SsbXmX>LXPvwHt{bQ
z9Ke#vV?mUaW?q;qujjiD+93A90!HBEO3$Y`H*#qC^y|6*N-lK{jfe3VmeD_`xe_i@
z-%@azhub?jgSA7l%Vn&eR^X@Cu04)wmn17e5IzJJ^bE`>P<uFUkSI=`S~x6DW*{>U
zk2!!RJJ@=>GzOg`x9}R&4qGX>xkBMXTsrDv<9P%g7t-l0@gOw(%JTFS`T^xHV`F$A
zDCvFsZtNKgmgbP#c9hbJp+a}U%W+I~90H;Fx&ooCaRJ*`3^qG<56L+P6(}9s4aG6I
zL?D2qz4Blk{$DJs;BQsOe~5=E1C<E0n1Q}rWha&}CdT-omQ2p(fc_4{XobGvKmxjw
zmAs&P<adgG3p}=2BsGU<!btz0xH5sLl?wU?7Amxq5|{#@&}n0kapO>j&Skukhs5dN
zuve~lkgY#R=y;sk(nPT5h~@L*p44ACAz1PQ&YvfD+I(gdXv-u)q~aY$M>F1oLW*M+
zoRQj(nRZfg2hLZv0v(a!&%{U6APG+|E9h54qL`YoCM$Mh@r#X+6?P%xtLHm}HVh@3
zNp8q%lDDc~@gK}Kv1UQJ1HIu2!lb)}L}KVPUXQnSwk(%#6XI~0PY4QOs)}hV6||=v
z3?4}hm``;XTsuowK7=b7VBgVS(W@vLWG9N(#IX(F`x%tY&>AiTUp6rcyVv=%G$5W=
zN+25F3;y~tjeB$)E|3P%a|Tkv)eh;o*0~O>*IzNMUt#ZZOe();t-yZv+*&||2~nYt
ztFgrjJfHcBjzP=E>(J_dYy4M7&i^$~cu?O4M@~tyO4Ra1^@{42fzDPP=Wo}4^!wZR
zxd8pfI{q(>aH`$>T#*g`N&Khr{gUJ__^#B-<4~7XV4IG^)DXso4R!Eq2$PGCSYLZB
zlCt%>EuwOkKwB*v@sTZKzL+fx_P7`5>kpF8KGb1R^CnYvt2CL{bqx&nF}7R9WsbKw
zhcfEs=<2BwpFA3>YoL6@F9UF>=}%At_Q?&4INh(pGe1z#L~u-%RJbRJO5G6X;Trbg
zoD~CBq#ANt{UWQnW!*(qwsR<vbBz_4eZXr?gZk<kMpv_~gYC5ygK$sW$q3}h%h~R}
z_PQ-7Y;o+v6_+r29IXkfi|^gK;{e}^O$>j!bnhyNi#1HYhIvXUSX)Zfb>b#wfcsEP
z?yyGD5wVNWtqf5xh#&(qhAkqbTGs8+z4v3^JzvA}cSk(xZfu_zMfG$6nOl1)0$7kP
zxz>!Mo<0xYrAbdJab$@et+4GJgMJ)UTs)*erbwGOINd}4#kTMP&IVPQZ8=vm+Kv8R
z!V8jL*z4D80b1GK@X$JCAK@5hO5t9)6zr{zdue?wp4LTI{|!eTprwF^+iUZwG+voc
z;Sm7tRniw$vZ$kkS(Q8TcfJ*OBKS|tgdYXXU^O^0N1l%a;VItzFg^khX4ce+_<BQ&
zGm0>})Kcr1@|5SDfx)qy@Hvv&)W4FcKVwu$b8sS(XhH#h{Yt0#WL&Q3Uog7IDjE@+
zEGmU*7Q1R)&mfMze7Jn%2@>Ufzn2g9QLMaAKvc5HI|<Xe$55Jr*7l)Moe(d;tffXL
z(=%6Q^gTiP9(FPu&m}eFusrTNg4!ixDwzqjpv*P3^*_Os7gQ~fB4N)TJ(fO@5sA`3
z3$|<+zTX8OyO(Y3GDq453fXfwJ)pJ;u~3L5z9(_JEyKBnHRbT=`<^9OC>v^ip)`mM
zadC##+TY)^uIDvP^shbNL<4oYhZfNsY%-~n;X^OV`UY;)N=EuxQRhEp*NVZ~HaG~>
z32s9xzJ62)fr0vV>VT&i_%(YOkl%A`cD7gfMpxPlDn;yt*&yIP+2rMG4f@PzMWMMS
zd6O5(DFow!S=5Hv+)!!~cav}0bPQioB|ruE%-9C@AjX|Zkw@$cy;%m`aqka$^G~S*
z^gJw}kIfozaLS;nH5w!zXNTzy-@}7zhfJ_}-dFf>T)Rtez$Vun@?yc);qq-ENUU&M
zkvt<B2a3<Z(83Q4{)~sRm0ftdf0}h%G&bwNNnWPz)8rT*RTRkNQ6cqbbp;|?57uX$
z&{+)L_jlOp#c+AmS&3DgT6dm>V!8=?#;|TfsJ;tDl_cJw3R-N^hOsbr@h7hD)dS)&
z|2{TmTP4T!u-+LS6%QJ|>rJQ7VCL;+WaM^pf%6dPY!8`5r?O9dp_Oks+WCRDv<u#a
zfdl;Ll`R7!xH~MBbgyIQtrB+ySRrMI#U6frptY+KIrjB@zn#vp@9s??=2p^c#X`6`
z4Qxyu+ao6X8au_>_CtuxO&8c(aSMASpg5#YG@VBRxymeZ#+!i|r(rn9mZt6Uo(N!u
zPtOKodma#mY44}mqDvg0%t5@4qzWD7s4JkU3aH;`>SKO-jsN}!KfJlPrM{v0U-wI+
z-y>+pOetqCE3c^J2zPj-GLYFb$*(>X!0EnEVI2Xgbj%Y2>+!uyFq7HqRj1LKu_k1?
zmwv4%4>JC+j~zx!u-T6E!TfMdxvKuob*KGB;h6W;Y3f%dyE^EDJSwiJL2i~R&TIBU
z<w7W>l#ZnfM=%un7-byTW2?^c(jBzpM}8m_pa0fkfY0`-lkxt4%{#CmV)A*Z-%XyQ
zy$6dROekP8$nhd(mYq5B29MP0c5Y<k6%gMq@>-ZbguzyALS@)<rQ$qH6S4djQb|wB
z=iwFp)-;2?&UKSBVSJj6ruJ7sx-_^$GFa0NX8BYHq0!kP1x|FGIXWsMQ0Oov?M=q9
zJAnNh3Q<2PkA<8Z#b`iTA+Q_H2~tlGq$O=bunlLevHw{eOOP+i_?*DAS$;UmG;F+}
zvJ9^<4=DegEqu7X<40?yUcDC3M;5i=v9eD_#e@5tLCe$Rwj5f50uUCs4x44T)24--
zZkmNO9T14OLZ|`)@%i)*`+tn7EBg%`o}WWzwMggG{lEe?35x5${V42~8T`E;((1td
zJA@UfHH^11<9y6pA?B|6z0C%hT1HY*@mHHpW3p^PpY>e^?X)vvm)UM?z~c<FV)Yn;
zI=sM<k##R2vTiX;N7lizB#cPv5Y5LyAhgbn3R<@3cJPcha=dL+M8$h9xE&H#d80{(
z_&vkYId<NUS!`8rzYjbauFT^9kz%)$#!~E>rO8){Qx%sncF8Si<LP0AuJaT?fUEII
z_WHD|Lt?ljlqF`V?98Ax*>`>d-Bmi3`775QctYtIV+DVkRXETcRkw}}?Nh@`vOBP~
z^p13Wml;^N*~{P0LSr+Xh-s+O&Q!JEf{UO57MdE`Ep-j4G#k5nbh>BPPsI1su3!;*
z9y({tRRaZg32i+%^%93eq>;mq$}X7S?RXj__usH!<ppm8ZfD{p@3b4FHsD>5rItG3
zVdMm4`}G`lYtfV+*tg<rpH;`GKx>gRu&=}E0odzVg*{!9s23Bkn5b$DO~HlJX+*lt
z@GRUpB8$39&|eI^m-{6f7+P5<t$zzwp{hd}r-!Hy^Q>ZGyNO`_JkZ@Oquq)#8j`>q
z&vV_i5BrLS`l_<l<4i~==0{D|WAfGT9~mIVcZ6EuG$oERgNtF|6+eM|;eL4D-k7zm
zdN7q7=^9A+2(#~hc-UgUvz^8(8*EaUa{-m{gw<J{*aUuy8m6ht83$jj(O{tG<s5d7
zJ*mpIDp{d$Zb76Z>35isX?K`8S_3)vnSs(j9<mM809dec+Gg|9L*(a<;Bi-+057`2
zDi7iUv4*q51zRc#IWOSS2J0jsGsV0Li`A$F_)yGeBU9)CD#RDZD`$~W%IV#4lW<l4
z2~&ob)vchE53Ge($x@6lzf+Y*#$SbfN^0Rzg&BU?oIu<?GNk&jhS}2mhX*=4M+QL!
zfhX`lV>U-Cdz$?M_(y1k4<dx?T^h<+Djhl#4W4DAQm}DY4!xQM2nn9O{&B?{l85Aw
z&qJHT>NVMH1<qUFk;H2Ag9|BxovbToj^7Eu<DmE5@fof7T_b(J2oV%PBPwkS1{Xe_
z6Bz9Z2G=y}V-V-y&~~*{K+(-F&uBrT-s?k(rVj7B{rT(&-JD9sI${st7cCf%oF(vq
z-%yKDF8bq0ggzv<WO(2zyFet)aVbVhwGu<axiHvsIPjC?rUKO{Af#uUn!;J=85l`*
zhv+)YVZ1f)=DRC>4N7<0&oQYAbbwHa5_B|!erpv}h&dT#&>!JEE}3UwY+?F)x<NNv
z?%HMJ0^+-XG)2UK;^PeJ9<Re+S6nGD?-l*+`83VUuV|n^***<%TGG;Hp}{5?+8TPl
z=tt`yRLzb5^z&k0Yg$6^X-EtYKNfI-YsBFFR1{)ugxs?IG-0&rDRx^?&E%RGDDaae
z#ReSb3LU{W+}(r{Yjz%Mba<K4fW;$Xd<P=TZik<TXuQ!LMnsF~6HRcZ%%v{yf+vY)
zc%*;!tL^w|n1XXc1dp{FlH=(n8L=`pfqptaBrDW5L0>wpi4EXTequJFG!=}5Rd{Je
z6Uw1NlQk7K7Fwqwy;9IHzP=C_-FS*O6<QaQHlEzZKHYAicypokYvh>HMf3X-$acW|
za3RI#6k523OML7fybInLxPu<<;N93<=L=NiQC4c7p|vr+kp)(ku_owf7K9i>3WkqP
zS=B05w=WRo#gx6InB>hJZOxK)-8qz%wlpp%w6>D=4J~cLv!>HY%OKIXWFqm=^wTE!
z6d2edu2k_3;4(M~Own6ZxB<7Ooh>i%1d{i2)|d^=-cr;kiQf5mS8Hs(n^BFALne*f
z`YSO<`9O<{rgmr(Zcvz#@lM*0Lz;Yw&UFJlW!i}cO)_fgd5Z-4Pexu+gl0kEux2%Q
z9e`>eQTdC=?mvrEH7C@+#8M6@#;2+ma&4ID^zTynVS1qQhGK0b>v^zf)9OClP1dje
z$iphLU9l}2CMP0y$4apftSGT+<T4d1o{G6TPy}gv{e8~PnkfDiRd{<J^im*;C&_;q
zV#3$b$+IwGtH1{Eq@5woCOwgvmAXLFAC?G*_Lho;RzGEG&7|7;x=G)#@IWTxD?Ofd
z9%Vb)S0yCMcxdQ&L(fol$;iBU?Mo$T>Ts2&s8p}U=e4(nC{i&MhMd1HRCCq3rG*x-
zzCZG;*6}v(({5`S@e@czWI^Q%wsVOIJ5LJJU2H3g28>|#+<&&eaXm&buQBCizw(m5
zNz84p`5GLRKfuY5#hyE9^|=|%a$Zt_Ni&+oiTQ0&d`le7;5G+sT^I4LY`qY0;@tMy
zvQ^A2pQ=Wz6Um|DS&^8Bw`>I&Cli?D&gobU^G-+AS|-jQg=Sz7G4Cwcf4;&dLM)>q
zZE|i+p*4x=udq2X8?O+~*oDL~S|}tjw-zgD9K#ZeHTEao38_;_%&YNmzJqDSG-*!D
zLV<4=WFLvI%kMpso|hCY{4yN&%)a((@&nN_UH2(&;yiOJx*~KZ$<*Eu^&0d9qXDB1
zC*w8T>Y}tiRJC3BIeT3-E$*&wB*jFpUd;JfR8TJRvK@s-*s);^a+N2Up>lRS>EAPY
zT`k^o{|y{n3LtqzkRI@`?G{-2?vACv?^9^=IzNum-He~d=vSOiR@~|%#&I=_+*@rI
zV>79BVPb86vf0$idAK}E+Uv$cQh8E6Bt0Z6|6*8NRrAC@6wd?9`A~7#K7-CQ=rYB5
zn_2qP3Iot=8j@1=9XUOU5)fsy1iGFDWl?I!y0paC_@OD(xTLXt$z*cQqbzsHFAR=K
z?O%$<S5mQPhB52Em0+tV#KrxsQB>GuQmEOaqQ)f%*+W@f*u12$CRdx`X}}$E!M)?r
z^d6!(cf;!BHI<<SdyzZ$c})5+YFa+@Ry8^EKmi$EXR}2Grtlf1ChZun?I6#7ou5o4
z?UVNDP9GJi8^@a?1ba)|#-yU|@1`;wW+$jc1O3nGZs$ohtSyvgoDpBqp8MBWbVwmR
zrL<v>TsrbS`L6TP9d<3Mu6dR(0;R7nGVSMVrgjKphZ;_`5oA}Z>Ss!%{8Giw{9I**
z&j1GiP8iUvyqdLG1{9rZVIZC1uBpsqhdBI+GPVT+1=qROLfoofJH=xEv;xi7iqfR`
z7ikkb@%XIRmJE8))7aMBB98U3;fbX2&jA~+hBZqiZZzw`YF&S=>x$Amb|7<EdeVBT
zzDvMmCMnw5*N=$HJlkrb>EY;x>pk(AVrCw7tX&;%Zl8NumUDitS4BB~MOG^=(Fer4
zu*o_$s#)w043|^591-q+Gl9PrK><mHtK(m1^V6X<Fv-t=V;&ixFG!zTPV>De+%)Xg
z-I!*VL6@?vz)gHq8m{3=VS9Xq8iK2Luq!j5u?qUK0tC9BLHi{Yd6i%%_Ti=uUeM6c
z^Jrv9jPxz1K>Va2@cA!ep*3GKJ`yYt8`dy4zRy;#SF#egK^*Rri3t4zK`2n-7uk&h
zI`~f%`rAZamj_FAJ%_VHE37xh5nKgdXX+{>LVw8kGZ5FJLKwI5>~T&gHxMbmJ4a{t
z<T#bN#j$94tuI#v?;<xZpenfq(ehL-ZR7gnJT)Jv&y@3QqcC@QJ(`JCx#ljJP$1KF
zhQ-|X*uh}91IVbj5OY+Y@h?X`tAd^^2@gyuW_v_|=;=^gYqj$Bo~tqAmbO2Y;7_)|
zxa&T^S<3FR!E_`X9?JVVtT?uZRRzihYw1eqnDuska8<Q(&X`?@Wnp;buEa+1hd{Xe
ziGaImp~C-BLJn*pU?e|P)&3Y{a3@1`G6D0+?M`OX>s9JTC6aOwbUsU=>TwL-v<+Yn
zaF!kNctf;E<LAJFiIfK-&Wj*%wlc_FqaWnaUe2!LZuQ1IwSPQRW7NPY7%8b7ERb1g
zusXDk<ZgLte5i7Fo@}VLF?|N-10E4AZ=*(7@Ko*!U=##iP%!FIq*P-E$yD<#v;)F`
za*XKf0NPkT!x_kTJ{#}2Li5ng9KL_Rp-|qG)c`;1CH`k}P9od+h==OHL;b?zybbTX
z*ErSdtXzjr?VFr$=8I*<-d-pxWWb*BK35C$od1~egEccY<<F@67snkV6El7~KSJND
z1=h?q%Ibd4uU;(JMAKN~3w6KZ*AC5QxLu2XYU)Q^8>jHMI7JK9S`2y1)V;hF6=T!r
z^ynhoJce^JJ!ed!O<8nzCKbWGMrDigjNe$^#yngJ;p9{K{24IbD=Adr&V14Wh8g1Q
z*9wnk()ZaVqhfMaajItqsPD;JJh}4&g;dWxuObIeml1zMYPe>N5;*QCgkMHLQl1Oq
zc7Y7>`=G$BE%GWgNcd3|exEOf)AcwfURbz(H7^upl}h2kK)(v51k{tUJijls)^wiV
zeG%<Ca#x*7j>$C|Cb#m=bTaqTB%)hdG`H*ogMDHYEI)jRnOh2Z2~>*`bmB8aMzkHG
z$4V;lEK5_)7kZ0(`ronxWsPB0Qs+jK;jF$la^UdL|5$MYMslKSLJh=Cw`4N}OkRbk
zSr4KX?*F%SA~vu}l(XV5Rjp_NlU?U(ZrAc!ZBM+dHwh9<$b+$FV)g_A`=!F8{Zl8O
zkAbk3dNzEb1<EnP0cS2Vw=QaL25PrDK8m1^V)s@sHQJN7W>7fA{bGT5S}&+vKfx1#
zw3s1!1Easc`mbIBKo%$#F2u7LP9W8Im~`M_B^?XJf;JH^qJ~F*`P`j(dG!;^)^A|+
z5|mdjDHpn{4+$3Tx&OIpFj1F)Pa6|=c$~MCV0h8QEN!QUt>7Kfr~w%diYv~@!7L5f
z=@;f2Iacf+$(+=Nzq>MNjB5ZslX}-DIYwt>PC`?$!f(x}!B9(TY>~NmJrP_q-c~{M
z9p}7k=piwmv&%f%ArJto{PmzVtm<%K-lS5iV?3-WnH&R<J?96>XDUHlmc{I4B^b}=
z0IIV%_|LS!$cX#FgjP9Ze`Rn`uEd05A*YFije?FdI1tieQczy`q*ZSRuDxiq{AV+j
zTe*G)Z;`XBqYVX!_&hIrC;uF1%RuRcf#haOyH(TGn(Wkl+9donrpm%P9Z}7@!es;9
zaaBFQS=QtTWB~{n;(?jBl+snjaSX{mnc9G9*0GP|ASXDe(pm}gci>JI6T%mFhcj{t
z*Yx((qAPoJM!`^WDRe{gYtZ`3u$TU2#q1?gKU9%)!W!s8+?eHwTq#(7Yigi(WH^Hf
z41OXFm_zgq*0PfW+KC3XUlbija(Yzfcji}A37NuD-Pi?f@a|cGB$((!v(=XjL(Sp0
zX?%skW(Bm9nZB7tN5w;i6tOJ^tAFJ6X<LDbw}2u)I(4dBwzx+1!$EF^&3@~rg;R`4
z<Jq$gO%v)rW5NC>N+|9|l2WD|)0L;mxEoy;;H&;!NdEzDsnc8e^!Tg-NELznR?d@H
z;Y0@W#`q}XO*7DtGqU357bV&xvThsCuO3gYLjr1RC8Qi)UM!YAP|7Yrp8d!$VDc&|
z>Py@<!(7L-*Z9^^6r5Od$x*JRc-GLyDUD)%)p`i)_f*2v8Wu(M;lSKWW~iId@RPgr
zCcPm!7qQVQADzvb>m@zVjbj;^*HSe?S;@Nv<yS4v@%3J5q_o?jH^`{+VN661Q^y$N
z_y~<YoIwDw*DBsGOZAV7%zu?ej{R5Z0;M+yt^vTG5<fZKqfh(d#{2dRmS?;uzMW+b
z!_<2v&MQ2_SAp#O|H0NnG$MKk;=P}OGcf+E0O$nzMyx`7cF#SlDnwiit-_Q8wAm_G
z!LJh5n2iUXmKm)GXa>zVRyXG2kwahpuPz?besuAeO`j7|s+NxStr_S&geUu3buTro
zc*C^*LhOA?yLfy=dHd0ww#RThv349ydwl5kbcn!tJe-v2P?4WNSAq;6r_bO^v?9Wh
zaeFzvfUXs{lODvm1DL6&eeoaCaW-Szd(gK)9Jg}qs?|eVP$IO~;1}SZINDtRzR96<
zK$%2^el)p<z5DgFUxRi)Mib(?{mF=60H%}DXM5;&+UH4+3^0jF0zL-sV=N{Q$Wb4Z
zyf&jRYG#fh$=I|3HNe<<C7PWw2)I`dmH&|GCOxkAoQE$~4wXN5XSA$O#3Z~jv`WgJ
zOTe(AN94`|yaoSTV3JuF1BLnAANfGnVw?{9ZSXkeF@6ryFXrcM#LOKt{NCR8iLm|s
zmDJx8ZNV54Lm)uql0lWu^bD}8elTsR5_8yo9ZYgCJ21Ed83#Nta2BvHL*SDj2#67o
zx@j>kF9H^mDraUk&#CwYLksegxj8nY<2JU(FhdpydreD$pJvV^u4W7PdkWOczhv5(
zyriP#4z>v2+@Bz41#tkk(vA5sRGI%~?0LN5X-dt242s&x9|lKGAR8gk3y?L;idGI?
z$0VYc9v+FoKPqhptu|h;<|5py8CK+0*>hVf`F<_B8mFu^ad>iNAs9=A6~}F<KptSt
zmQ|iwAZJ!1dt})F{IspcSkKBtB1)`;Qc|J>xb1VU-ohpf51{RPjl(k|(K|YPp2B|5
zTClGjaV%p<lbp>ZkwgY2zk-(&xvX{BP@=2nfEr8m&V5DsQpNvWHfII$)Ziz0kP@&>
zbvON4-B<9R5uM5ZiTn@EB4V_FE+wj;BoJW|o%Fw@bcVEpDu6dtnDS}+RS6$I#o+%h
zH;jHs1W3IA7XYfRS@nsU7ioG~6ZY4djTvx_sfY1VzjS0xt-iCrLe#9nHjtWrqRwt5
z9?>(KB6<WLrSc&Vztw9^N60et8&B{7`1seX5>dS%rzxtt;u<99)azUE>+th^?a!)(
zHBtDD{FZr#$(g4|oD@t8m+Kj4W3s(!HNI`NPK(R&?;728o<Yz;FTzv)OqQ{TDO+{*
z1YJE|cjNa_arw}Ry1Uv#`@*<hp1ZShDEjCxF_~`PbEmust}fqu`pvj@YGCiONo+FN
zeqNRmo1n@?S|aAon1WZX2PU+s+@yCZCE&N`PFz*b-B~_#t-h{lWvn7rF@t*%Ntx>W
zjXt@lJ$5gZU^EPQ(=y$;Q}<Lii97WPg-sZq<5PpZt6_E|vunoEZ{+;Gj;_SDA$3Vu
zs;%12VL*9Z==au+T%+zs&HdjUgQEX7YZAk$S=x`uSkpD&wk^i0rqz45-ZqJ`>4xu6
z?#wZKi)A##d?S+EG~cjpQrHm&JA&ZEtvX4g)0fKvtFF+U0b@cqHE0AXKH$y<gRN=8
z%3iZ(gHe#G_@47ha*j8m<xS#v1MBzUpClkX$)l`5;yBMcI9RDv1b0G~YSUmyz%%`q
z@O_BCgIW^Jf7*o^?7U~pn3y0AC-n;>(6k&^?iWUWr0EM|rHhB<cktH3o4+s;{pm!_
ze;WnuH8#MXR>O^fhf;$T7++<Zd68z@OxQC`xdP)0%m_X-`2->+{YaC+gM77_*}U3}
z;G<MN1md5%*0qfOW`GYuS7H5K$?72X?=xGm3gfE=P33#T+2(|+Me~4Zc8WOm`uG;J
zEMB&e)YDDcNXjovBrrHvf!5K$oe%uk&efEKVa0ga5#NPlxXV=Ka*W?=y3RM00Rnra
zW3epf*UWJKW~zbOznQb}zdto;zT+TuIW+pMxwUc>%Wkt6{myLMj5QrYJ%N>nBirn;
zVsIotK1$`iyaAQb<~%FfUNhbbj6ymT$HI)qt<dJU73_&w88vaB7~dH%bND6q_!Xzg
z(%j}I3nP(fbd<C-h(F8qR*T<nI&GH6`IcpXVfKqau=8-TgHq;ye*ncwa$w|uxf5ld
z^!Zqu6leKjd#||r3=W~=W!M$)94~}VB<_Y!aN@o+vzq^GHA&WEwtpY}kY}9s3QCIm
zEtve}rvOMj;pRu0gC4(gj~a5WumW;T#;>*_k>;z>VZQ~3IE(cVzte)?AmBV{b;2kk
z;QZOD0(IN-fyE!PoR2MfUX;yW^21OsvEDK+4YiKVJbj2nKfw3gj|;k{3ZSgjjP={u
z8Sxk?GADZYdU9f(XnC`Ud9Z--T+?bi!Bn+Jea(tAzh=3e7$u{KYs=V*`~j%QQsR?f
zYufbZIqw)PurveG^cQ`B=JPxqs7qlDv^!u<5AWkeKUnnOmxFZ%%4vxH7*uWvuBng`
z$;9u2ZOt-+c_Z6LfU*YGq^YQqov`W4Fe0V1CgG;E1=OnRD25*9MBgM}`(LS%)Y(B6
zX};96(#6A3*Py6sxzsbMzr7aC&lMgf2{>V5E{S;URhF>}%wUSt-s#DYwA|^r%KocI
zUL3Vwc_R4GvhctTW&9}SP9M_oL*?*4w%JiAgzU@~+m7I)R6byf4q6#p?eS2Mb7s<0
z#`0RMpSo9!>{`FM7*|WJunQtB!p>Y;i;JYT(hk*bv-kzn36WRb^wh0(c5S~2=C?B2
zroVINWh!=-*}{2++MKg<!`ig4c9xB6ruITRf)7((Gqso4uCts?bbf1BX0)vJI0g>}
zXR718Cx<iYF0pah)Lw2cj-!yd+&06TF1P1w!ew)_9olq@&29?QZMGY~&1QE(mKg@5
z!SA)R>h867)x@FWibpqz(Q@DkKE&MO%BqWQdd8+YlK(GA&Rez;*z}g2Tl2Qf57_N>
zxUgyu*jh&XfE{W%V5?u+d<Ap9P`r-r)toC>p3{>tF4D5yE;6yMx7#?~+i~!&QtDi7
zXUKJ3d%Ycrv|MjzT1m~i!)7S_@3EZ^XoB-i-Wun(RO;-tYn?d?`98B7F%qk|N^!ol
z>(;km$#!)W-k$F~WS9jawh4DvowSny8hE35Ev8qlT+^$mQ!>MSQ!-V{8)>n;O#wX6
zQ~8Tghqmmo=SA?a(#6A3Z(=W9vB#EW@x2({_l>7~3nI7n-FAA!pGWVy)a}9Vzu%)h
zX7ig1BfXu)8Icvw+E>v(if6+QC6AHsG+S<kr`ee+PO~HUD3uR^_^&NEn>NVO;M~kc
z)JPS-fkBjstRf@?hah`kXp(D6V7pG9K*V{H<yDInKesc%vAb>tv$m79$*#roO*UP?
zohN8~K~L(*Jm;~@Z0A9m?X=q^7~o!aq-~A;<2v=M$XQ}nPR5_K!txbZ7~jjWEb7t{
zqc~vhDJtw4J|Tmw3}<r*d?@p@q6~Ij0BJhmq3NZxZ`>bny@^F4Z5K2ATA7mzjODvP
zQ6lwiaY1U@G#==l5SfH;&?CGg==N-w(1?Dgq5)d<h|J@N)3$@W?dg!u_2YglPNtug
zEka3N9iK<q-FeWZzY{1O={qW-G*JU&-NTLKYz2+r=aJSlb+IVZoja-Q_(glqxTa2s
z{iHq>6{(6(ip2_Xrr&#f=9;uyU)Lu1ewF~Wb(_p^18#=mkzj+&NV?yuZ4{FZXUt;f
zVa$gLu~F2+6RMptR)7n?0L4*z2}M?L+)D9Kd?EWRG=Kh*`jz<VxNsnaG0@D621#`L
z8Q(gm7YfkIqY@?M?_dJaBjAcPMr4^+?hcn1d`(C(7l;9z-`-rm8nwMqLURh%gRX;O
zI@QV>rLo}!1)w{|0<;$IG}1vYqL>J*m|C7y9U}cOJu>5{@*E7xouztU@>@YGP99JM
zU&(WdSgcjd7tQroWLmR};^@kXSdB=*gi$MDw78UG`9K|W1w6hc6!(g6`3~tq(lZRk
z?ptM#N^Iw#b)@i3>;RIDR(YNR`Z*Yus5Ls*WlU@X=F!>n%M3kAB^4r^*@3eF3~FX3
z6_>T9H3h3AQ@d}lr}z1CeppeBIAY+<idJ!W&(QFqXlP+OeXgX#+}Ey6>kJaoW<U(9
z&Q6%=MXv<qSo$KZEQ^R=0p&S?LJL+@vOkv1M*s0FLsC&HKPzjvze0H~litn*&$_4o
z{!IEiO@?dC!<mgK9B{;@Q?v}RFOz9m4H#(;XOYvAMLTMyOr8|4om?B6RPM~pVy$US
zL77W8srE^XEibXEb-Jih{vuFgC(NwepG~(`I7Ow(&dq50;QW^oo3r!n!cuEr+FAFK
zie}uTqo<TQlgMd6J1DLo<KwJaod2)68p?o0Lj?$>?^QV6Y6fjZt2Hy9pOeF{&e2v_
zcf&*hubKi3TJ{!LU{tW@zD#1c1&YdIgcF+&fUc1n1Jx)D`e;b`oLaFS`r6;EoDDo{
zm=S$UP9Hb+Q95@Xp{jsG)``xMn=5ZkNr3@)m|#+F&xrw)JBByNSW89SiOT@3B!Vsb
z7xAr<#4g#ar?R1PEHjW<PtKXW_w>s*lU?1DI*{+3(9{1xzFddT<h!u63C%mJ+Wt9r
z*F2qH*flb(X0ep5DL%?*{-sLUhLfG^(O#->3UbvQKe|?Ktqje1txA6z4s4^pub8kd
zS*|L-j>UlWj4N4!k#Xm-FYEduRVgC3XJ$zQuDqs}*phAuMW4;t-&HzS^B5X7u&bH+
zPu2NCHK<tI0pbyOE<KwQ3&u(GdVY7oxEhd@o{a^1XH-(8l>O3bkc@!)w9Jav$hb#q
zK;6;*aY=*Z<zK3HfDPT9NG;Hc){LHu2|vFTrGxYWZo@fSuCyHsY%cj~RZJR2#adT%
zfN*2S+@AA6+-LOZI4Y~9&Agze_hw1}=mbHnINI7Qk*b~Ja1}4iM@};JfS6cZwa)~N
zAAb}Es{J774h>2D2h0|ekEln3&XMezr@KAZ$HE(5BN)WoU5Yr2Cg3B@ccmSr|Lx%z
zy<Q+uQ<(QNJ_#W_6pc>%P-_*f8=7Nx>xej$q}jpE@|wf8)2}g#P7ou#OE`G1(2*s3
z-m6wz&bE7|L#wgfGgprPpXBC?Hl%uko;WO6kMKy=aJ5BCSfKBB9-5@9*TsXW<xE*f
zMuloD@G2m@K+yai=-;YlcnhY9en#!2VQCJM=Q>VpeAh-W0fEU#wZQ<->^g$iA;$V!
zBeT*~luaP#=Tom-h3Le&eyy<^mWtSPdV29jCa3bn%V9rry@Bj47F*Ysyf$_R-jE--
zwKFJx^rd|BOUv}xk-py80^<ZkY}*;HX4vjZ6XNCD9I}FL#qk!JXmwMW&OCuseZ=`r
zrKM?tvd61lZqY7u!Mn2Q*r4*KGP^mzdMgkUU6I^$MunR?kBk|_FZQuzwubQz*l?e^
zG|@wMQA-@!zrTYG>0f5+ZFXd8n_b{6vI8YgW-hYX3dW9LzN#|M3fnmXlTUFZ!`IZK
zNi$9M8&f~d>nvl8mg92uV{p$+v{*1<#aInH45rSeTk&<V8=qjH);ZES(>_gsqUdzn
zhZ4<l&b5E(yqC+Avu(N;!84lTd`s3jKhR(LH)?FE&EEB}Gm2SmP7F<bvYZ|ZFUH1F
z`A1vPj>_j+6jWi}nD70zEK>VTS=sJ1x9^}+o8Lri78zd~&Y1zf|4&{_n+&IpS^n2O
z?#NEJ0b}S<qz;rC*Gs>WO34HkA9xyoJsr1S;g6Kj&%GGcyIcOO=()s>VW94~@mxZx
z2q=hJJ$lDH5;a>CRqfPJm|5PlgQ_o@oAO8LV+)J#cg}>~(cS(GQEv@MGtu7BS5=#i
zFX4XO**C@O{0=>eIn{Nm!xn#YN_jK97RQO1<HD-~Q}sEX5ybe#ticW767C0a@l#Ha
zgP+c311S2|Zqbe)bxu}6qIanmlA^RKe6V+5_*+Z+yMsba`Ex0)<JzNWBfXdwdrdcP
z+~P4`Vgx<ey}S{Ufn;5|@<F&Q0Ue6?-Um$u4Bh4h^hZ7X7nbv&*I}n9wAka^=l#Br
z&1BX61NV3jGi}&0M$c&;vksl#|MQF*)QwC13gh~58O)RArn0?kN6@@I3XZ`n_IhT<
z@aa*y1u^tGJ*a6pvq92KNZRg5@7CG+cE>^x(#zS@J4=asotwNR(CuIE{dps*lU~gB
zug|1fpYn-RA%RMmR$K1{`Fu=@`&*@Opr8BM9SwYLIJortNrTvh&?oiIlMIusV0nWz
zG%)hGe;C-vI;fq#53ng-<sXWo+v;p@Ue(NO?Pc4X<cl0L$+x7nIR@0K0=Tzt`c*eQ
zyK`T5#^vJWj(wK-23wlOIa^}$m(;{pq9Z^-(GE>Z0N6rnycUpnChY?SrgluiG6szw
zq>jpZ381m~p<t3Yc)DUrNzYS=tANqTO-<_I#;iH<1WH7)ny#7O-cl2n)l(VNMbq&+
zb7?t#d+qd1bVoETe@oX>Q8KS2wpM1tkGVx-4-L>d91mi9-=fn+a12QgL*o4tls<C|
zN-v~;|F2Mb^N&#aA^$fh{g4%(dl3K2)-hTOH89a9<W_Vs*2&V)`dT)<1GNJFjN2H#
zXAVvq4nBmB(x~WSl!OSULYSNzR9F)?2^s8SCDVEtgU%;J`?G-*V6Y@bb3Y=I$Qp#r
zz7&Z3Sl1<!Bts~ZLj}+yNOfQWGeO)m=f2OrGJh=WB*L7o?9v9-Q5l#l4ux+ON;}!F
zORO|q+=(6^og<4oiQ*63%w>7^2X=M3ypv$?!VdZ#?wk<U{g?V~Oo@qiA{4!fu1J@7
zFi0G|9IQhy_!rFK?6))pf65=o331Op3nP^OJ_P^}jw1F0+GifLy#vt#*BUB6>41%O
zJe}=RWd$gq;xr#rv`B2=LgkGy{pdm6)Ka!J4aNgKpGU3fX~NxXX&-+5yi>?qL+dei
zkZCEOF!BRQO8~6?Kf`QWgu|r<`dl*4rnWTj@F+n$fki7Z>7LH5q&xv;4!{SLw|%L0
z+WTWkB!TfcEj%-M7u(b;bA*?zYv3>y_V7o>Mqnac7d@fsog8)1el?Bm;rp88$Rk}E
zRZJ(ghSO=PeFC=!0nTELT*lA)u`D{kcc9`(Zv}&|vwa%mxF`^ZBqd+s_Gz|coswDc
zI@(HQr>u=6irAO<hHphQMY=fpJx4sJ0SBbs&)I*LM^8{kx;*Nw<1o}bAC(pAqmSTR
zsYyC(8!KFj+Yl`nE053+pghW=7f@cw`bZi*4grv*g9Q?40AT-b1yVKj4W{d(-3p|d
zsGT;xP7PRcBW1es=vawVrC`Kb_9Ej~D!QXW1)}gh%($ISiXH^@e@RoJ^YiNa{r?H;
z_y3=;{^@MOX!SFyTYalkwI=Ri{~MS;T|Wrs|4YkB4eBc-mcMt{2-JS9P_ITW>TVrs
z5Qd<^b_wY_qegC|bI?#@*a!!WoZ3MH%=Adzh>>euMeJKm^XsUu<H-2fY(#1|8|XDR
z8`bh5P<C}-v%&ir-)xlBRp<sl;u5EqnV@oH*NzyAC2llo<i+Yl#c77K)i^CuyVdx)
zdN~?n!*z1F<D6_9IlESflMVeFtx1}CVC;->4K!Qn9Y3{P1G4XQq%g}!bswYC({=|=
zHe6;Z%|^UUy)UY5QYmab%H8;*e4jg0V);ODFpfl*AT>s5cy&x=w7K$Oj}Xx;1VV@D
zj<sc*F&@JxyG(@WRyj>W|AbG<4y9dyhU(-*4d_fG5tuZP_LXg}j1cB&HB<!Z5>b+t
zKv5U(K9a17NVg+ih0yC&0uuKd(z*%!D=H~4a}70Y2BiC)rx}P!Z3hJ^bD)T(C4i!8
z%SS-R%%FH(bTjxd(BG*vuCf4i$vkS4$W?Sbx#C0;Gs_mM{BX*MK8_!6AXw#e!iEnA
zxrK7Yzb)rB<~)Km_{03NGmoG2!#v?Ho_)cesv}r&{)p~Ey4fC2W4d+ktAlAgw|2|%
z<UDP0oWRu{JlR`OE2ew#<okTy$nbA-9a_&izuWtkrwvwwLw(P~Fh=vyR*&--s+&6R
z*BY9+F=IpNWQ#%pm)x|?zJgkDn7#X8D<IR8dp@xCDcFsF@S!~@qzSv*umQkKF*$UT
zR|+Hl?oU9YgX5lI>k9)NSS-MN-t=S)zv-bvkPq)!FZ)JZ!Y!WJ$YZ(LV?}Cj_H?;;
zup+^n`kOuGbso0{A5gM7H+ypHfOV{7!QqTxL4C!wo}Bt?J>H!N9403>n8z`>xYnaY
z@I{gj)$$=ww#T~G!{IP-ttVC!uUKs~$kElqnyBbIHRKcp$2r}Mvo{R4{tbh!)blFB
zL9LIR>|m)|11I00m-Vxdhy(+TyPZzVc3>fqGR;;etG-UrP6^baDcR@CP1YMu8FQRF
ztRo}!cUTkU%Eu?!>{XUE^JkWR2_`2|@r<<<Q}!Bk!?oR(^GC}xcU$`ioSd5Kc-dy$
z66M6|Qw3~tC@c9j7WG>aiu)VmIUdTi7ULzN7g|ay##*B6C|K5k@+jgd>m)gJDBm0{
z&++gJEllHhTO~eA4G|R+92@Cu56WkH$tu_!Z3GMISt~9!M^CrBr9?+jVDlnq$0>#%
znMAP~QFnsFzqN$eyh>4Cu-M&}TRD@Rh|2}CfXx-(ka8i>>zvkluEG~m73tZvK=8z2
zCLLv8c-W)Y^!7e_W4|cZRW0<65Qkw`NcJyC^sVVifY9j=JCJ`kuBXbaU8))`3^<Hw
z&hxqzsefMoe;9l3_^7J%fBZS;+%o;%nPk$-Ng)MNCXEtWLV$pPBoKiGflM-!Fp$g)
zGm~JjA=oP*mQ`1=>#A$-Wl?vnE9%-;UCY{CSFpRf`hDLC`q|It_s{RO8;AjtnS0MY
z=XsuY3z_(({CqyZ+ED8?{A5};o*l@s|IMVoXcmsd5&h>N`|FxF`LS+%h|HR_leB45
z4`jB<x$6TXP)L&NRSm!DZ)(AD^lgvrvO^Taq<k2|<PZI<Iaj;fi^8@x8|z_X+Jhwr
z6_IC^$W`z3X<V<LwxJ|f8b4{?39se;q_OiEy_d^>(sG-x^qPU&xuNN*u?yFAH=~=~
zbfk{lr-GV`z4lFT=G2ii#^`jk^I9YB4TwZd_-NKif5>arG%5VaJlA=w%_4LJXu|ON
zR-HB?`7C#Rv0RpWvel;T_qvU_JkKb#tq?^v<L^0Y18iF!$lIK@Ca8Plk2z|Ii@wTH
zEA7Txl=nZ4n;U)Npf(Mc;s;(Vf8@^RX8t!|I^C8$gqJ!gTx*Tu$J|s>JC^ICAhlW0
z>2%#YW~0*Pt=qj`Y_{y6H-IVp9<SMe+U(F2UTy__%Io7kGRN@QcHKJ(XG-mW9st%l
z&1N<<*=UvzG6OGEB;IDtmeE)ZTDJE9rr3>O+ooYyxF*cU9C#FBzT}1$kFg*9;-U=p
zxV|jy#PM8#IrKpuYsmM7c6dEy`B`#}XMwdWdKKeo#bJL|H%I0bQ>CY&FA_aFL$o+)
zR$-gPAGi;J=V`e>EO9Z-hpj{F?)+QJ8m2WjBUQU`TGP|EThZUi{;_^kXGo6SY-NPu
zHfaD|@BzjVyHs1=(D?4jdp5gzEfeG6_4Od?))Q`6J<Y*gJ9ZV_(pU$K2t5UM%D*_v
zf<wK;AdtIH<%@|&Y$Ye}!KJCk8*ZxGo?jYG3YChB=vtq*0p8>*Jl-Z3Wi?KxjK&m>
z?CIc$Mu>hd8*nmAM`znurTN|+C1VdOcl?`mBZniE^cQLuh!gq%afQ&)o^A#(e!Na}
zrGqv;DPjf83Vpl3kg^>d-e4{bBtUfz<2e?0e`UG{{@Uf24!1X%Ppr#i@9D-<oEXlv
z;V*U3t&|VMX7k>0>V>PgA{Cp?joW$t?q7Kq?IrZH>6MK3{z|*3zqaU{aYDu1z*@3v
zGo0R<6h8W##cSUzoS!+bxyYNmp@hzqtflCd|LT@IinjgYM!2WY$S6XNtHMtz;Kxg2
zZsyN<XnT#e%yvF%UuL1uskhm;HY*n^357s3ggy`RuA{<;HV9YeWU?~}8lfSlPwrOf
zez6Qi#_-6ug-;?BBQ_F8lf1rJURJ{1SJY9}^`a0JDod%x$!ZfWlCnf4SKe$KsE4a=
z;Zww&3LTzz1;{56v@;NgzM``G72z+@zEmn=1NF)-OQGIj#hf76w2l?@pI)M_cIk-Y
z8ddiG+MN$9lyXe2@w=1$tkjWy+EMKMp>&&--UC2DKE`~p*`;(f)4s9MB)uz5CHi|F
zMhcJUbYjJPjP7K4nf-fa-09B>K=He~f(G5eNLoJRFE@jg8dWe*vD_z0br7kXM)AgN
zvWJ*)K&-KZZfk~9M_Jqt;6F9e1wW9r`NEq7QN5_l3_q>Ga}^dGu~*9gJZ?*?-cX+J
z$SVmar;>dx1?o&?ErcMBcF$ydvzeaamYJTs+4yvt#~XN|(2g9YXQ{)&j-Da9+(!Qt
z#`91S!~47w{x?oc?=oT7)P(_TIC(_QNiqb}J0K^k`SVsF(mag%E#X}XG}&oHDaGtt
zrul|=bu${S7p+NQSK35qg{^m7#5bgw@pC4`!KJXoo)2=MDv8(xf|5J2X6+gjZr}^T
zr6cW~BgdtEdu$B|5;=x4s$Uh3Pju8&;{w5%75oy!3nk??Qmhv12~ZyGU$Qxt6*qpe
z-3r|0kd%EuwmT^YoT2Vc3khx}U*}xFq=P|NoJ=RjB+6>3q2pWZ14uvHP)mA4*W&sW
zG@)x*3uzFS+0zn{<0f8(awx6slJS`=H<=>;@>x{19P%(2II_R1)v-i?%q3s(ZAYzH
zYfoa;>3Q@Z+xCkg3U>g26AHNBk22H#cY6wxWy|JgFVVYIJ7ZYrmJ#eDGbXfw{181w
zT%MAU90uc<qus%JYtmG><r6IOBec}_R$hr)DAP?^KiE*=5HIq_Cc)4Wra-4xwj=!{
ziZ|M~ZvtOV+8(t5_v%Qv__RD(jM>?{Fy+JGAGc`OB8h$Lf~gw{1$`z%#it6oasvHi
zr-PL#gy<wU$f^s8y-)4v6J=>e$!Hi@*9Vd|z>p7XW3A$=euwv>D@={WgUma!LbO@r
zwUh=48b-GwV?r$PA^D<X!Un62BP-P(NOUk2GNNEVBs0P2KDHcvbWlDA%&pq?5%*O+
z$;%rgyg0t5(%P1r$amBQ6@ki@O0VGP80WBfI@UfU&xcieSPoh<;xy+iZ9uijX08lZ
z)9qZ=ZkSw~8G@ksEyfp6plh)_*-^bA>=pXe+$SO3T8_!;YaVm>!b*AtS(rCe&~^vE
zT{%#gPLaXFg0J@)h`8!NEkO!6KC=kaX-khyKta;Fg=#;QJU9u*Og?qiZd%`%Px684
zsbtnQgG%sPHr4vXDa0!TJ5x9Ng4M7}eSv6}#`bw^y-fLt(Od9lL-F<xh2?X|eG7zH
zb2A5}8e=U9{mjS29B`v6H2eN3yRlv(qdAl2qd!`5Tur-_4FT@%hR5q@xX!($x)r45
zh0#W`FQ#AYfEL4b3l~?;AJ>~$4tXt;=-!C}5@HYwFUVtic$*dca$?O_8mNQ6>TAG!
zoP>{BS<5Xt#FVNwi3IG`MSQSq+c*zh%G+`qptgCsl-?=zZg$Yyqv@dX#_F`}ZR8KE
zw;CQG>#J^ObS(=!Fj@u9&zG8a`3hox)(^O>_&<;oF)n&{+a63Bu>L`INt-N1?F~R}
zl3F@lVq`dnz%~hHbz36f<WFTgj{yx{u0Lj7<AtO=R#wt1KPtluw-a4WZI*a%exA2_
zEsx`_S^APr-UHfbRlJ9{L+Z1(gaWvEndDuvftwH92c|MOYc$V_t^XcbKX7=nVzo|p
zm&`lr*_tV6b9%VVS7R>eK%0c+JS^{UTET}qJw}s*cHrzvXNI_4Aaoxf3G%2!k%0};
zGF{nB(k{DLsa;;oytODhM;M*P=+Sa^7Nav6Jwv`tFk}6iG9Kg;8j`ice`IZwaC7VM
zg*sqJ0u?_R+KdPAF@lfkcUT-u8^|ChN(Q$7vv)!_c!1G)WW3L^mG@Xf{f6*kwe^wk
z=gd+G^W7XIBkh0&|MRqk#RDLv;gbjVKZs9ODExayD->AOWIS+yXpN#BfF}m4f%j_p
zaP>)yu(4*5{Zvr3NUUY9GZ^KQXeP(mjFwoRsJj@QWSY^HwKNey3wj{jYJbQ5&b#OT
z9`7II9Jzl_Qf^eb@cW3ob^<1{C#aa5cZ85ekfjiEao_^;o=&~OE8A%n28gr3ME8iT
zPBsJf|2pNV+JAKQEE>VKhW1R(fhCVyIaX(xikMZQ%(bCbm|nqNCS_0k&R=pdWU;{<
zWxiyaA?n>eiRj{gY3j~;<2b>TEdlq90eoh*Ek%^t%?<^!qP{ch%cHSbkSMC=*z=j}
zc{kr}XrF1j;C+OI7ZhS&k(dvYAv>?t>32FCwQWwqc+xscboPSIuTqiC-Iew%e~HE8
z7*?a!SjigTU-o8gM(RAG^$PvVreGcShubQ;fd$4=7r?a6uH9DIkMed??c|$me39>G
zbvg95*pj1_2yw(!O1nAEf~NL17_tn=h16zwz>T5M+z>oE^AMF8Hs;AT*UDOp$^1K)
zIGFV|CYuYRC<CB)2aC$3KsC4xT^lkBA}K$y?m!<FIo{eN7qGLHCd_hP;%pX|TZ07?
z=r$ck2n6Ke<WHIOVvZ8i=%!2@C(9ez9h{=f8gW!bgO=aXSoNj=-NbTYzj0`*9M01j
zE*2&O5aGGONDp4bE#Nj3i8Trs+hEFWnJgCYtQhQHU+0v|DudF&=?CVFVBX8MQqBeg
z=JYw7dYZ(UPFyF9Oa_s+XL<GYX)x__=95y<Kxf;_M^a~7sX+9#&D^k;@ovti@f$H_
zdI;3gYFRg<m>mIoW3zam-dsY*8GA8)`xo!AT8THZOT%k+a2uP-Mt!Uh=<6|sBI*_&
zJ83PaKfv=VwdE`qgWEJH0|r#5SpgK>FXlADn9pz()@`;%-lHJHMo6QEDc)$Iu*FEf
zk`SyaLsTzE2Z(>iV9jvknk6IP<flDtjvWOZ2USNGtPmR?7MOd|Z4T!rRF1D;`bVM*
zGdCRjZZ;G6f1KDfjU{O^!Z?4XQfbcfYCiBeyv5TOd2=;zTDra7$v@fc4Wxd>Xw*hQ
zrXKDUer|lnOvTHLe=|>!V~kpBM%QkI<dpf<5i$@#wN#GEx+w88YK~5O-r#kypIDFV
zs%@03$oPnhd8lh;8FnQ<{28>P`E>jXh0_OiCQz+GEE$~Aj+-B~yH!7)+sQ-^7d9aV
zeM~XsR6+rVDTP-RSJLEnPrLeRy!f71CzkewFUcy2^k1NT;lPo7$Vma`D|TjlOO&=V
zs|I0IV>yhB;%oT0!R{S>+!3#CUxz=Pw8d^99mbp^VVF%uJ7;Ja{;l{@?HoR<dN=dJ
zk(C`&XRGiiamI@@>Qcm3%fv`tWh#4IGE|GyhpOK?ybnG?N8%J8UH=I2tL<j6!j5QH
zt=jIbgC$ol*)BGfEzFZ-Eas)Z84Z97e&Y;a>p8Q&&B~s7d$PtEy_nUOf~gU5=W)lw
zjdr?Y8kJAamAwT`sIw~JRHNBubKW=8JF>Q*4Q>&UmTdlsqMW19SK4e$Q8wB!0u8<6
znqvi0>1?j$H@d*aPAp)rWnx!fOyY&?a`>JQS2UkIo%mtXzGVL^R0N8F7pIC%HhOew
z92>0_b?{PY0GQyq9ADx`kLbziSs4U-`QISTx_Emg>Ba#|LAHM{F7N&ae~BI$7dQ;c
z{wf(-7us}<GjYf#XOE{B#Sc#MiEb_K3OrD?sn_G%?4!)JQ*eN;YuxNkrV~guBM)u{
zrdh}6`fk;>T`wNmt}oWw`A%!#eKZ^^lACbP8|%=(pbl9O!PY1j)Bz|-g@<I-hI^*U
zwvo>YlXXB*s%87%eQdw)1VEGFM62w`vB&GWkeOB2@qETNeo%}WrcIGmjj)V>&~3`(
zI#j=_BBQMhErF)GKtuE7X=d9rI#=t*HWv!lFP~Pt>Rb(t5Ak!g45N$MAYtk3C3C^F
z*<RI2vsc~j_zx9>+IHQ~=(dRYXp!H+S=l3ZT}F)n8{Ty~27JEwPemY)QHP>EIHRo}
z>V%~}x}VX6JY}eeb~rhFiQwWL8_?{b+9BwfWUC(}wQ(P%J%XRx5*Upny)$=00TE3h
zFlFEh7tH6Z!$V@v@D99J%r~lS=!8dCyFjl<e&{uauNAB~i(1Jmcg+sKSg~s|-R-35
zF4pSG>X<?)On)sihudeM)fqT?R=Hew1z{xI{&>KeUUTO8VP@(45nEeka?Y%VA=&d}
zR*78tO%{#KV45x(r#C@bF6n@R$viSdtSk{QkRYI$3*=j!hySe0B;H#fyXEa(bC0Uh
z?e2`NGcl-JMOv$kos+2#`UJY8DuZ1};^VA#;ALSWQz#k&d@mB%m+?*p!x?N^hF5OP
zQ1TsZvN0N3?-4h+VSiS=ICc?w%k~DqxOe$7mK`-EGx-=PQNwv38CwihIkr%yl5bGy
za6IX1TM9?B9VND#8JPrUtkP8Y&*YCSYU7WROvGj*St9u&+%%o+cU(P>qXeEy{J1vn
z@`4iOPU4@r=<_UUEJ10zsg3Sa*q=<-JYv#wf@~iTL%oKH&3=%IUHOek+<HGp^4F0>
z3-RE1=&4No1vft&S(I5S98V_NV6mWH$b17Y`ya*tV+gz%NRS4{jwR4*EO(YWCZVOk
z`OaC!@UE<kq|6l`X64o(Oa2^N;PZ=5?qaJyzxWhcT|^mO^9mhVB#y`uQ+W^izbJ@o
zM}YGkiPj0asYuNeZOb7>c*w8z2=)+dYwyFcJsJsKY7`_N)3iUSwm)mdtN*OEu-_wM
zB}?lHTPPF8b%rNDD{<xY(<%-wvVAKKslKrIVKIhX%d#MjSuUCB@U35P(O=-mLjdWx
z77C|%8kDr4cQgTqVwT5|;}Xz00n_1V48ws5>;9KT4_vheIdT2?&an_4bE^aiFQIST
zhl;5~c<oR+ATTYDN!G|~;AA;&Obgs0T{~NI6AZ<+(-upSfp*|{I>@RH;hxw^EVb9N
zR{F+XJq|a+1_AbZXxf5@F4JxFw$<RKeNe1HLIMUvUn7OUa^ypJ;2|jUR~{qw_;JvC
z7n#8TgQJi|3#j!|ML6^qxO$DlAApA;&KifMn^;#G2tR_EH9-dAKAcO}vEFf6#*I`G
z317gpM%tO4ELtS=Q%LM3aI@5N*%jmAsCfGuI+?A2b<~-G<pJiOe>3}yMQ1?FEI4&r
z*||BZ>c_XUR#K-?S(Sbn`x!#xaoRyWBJ4mBgS@eBOKb?lli@nN<$6%}5PUTlu3t!M
zvTj3ac&N=de0=+hQ!uUH!~WN_>Rqi6?jX1F)y8dHD$^KUPsSa*OurM;=DXn7bT_{P
zo8htCFOTE5;JJz<`{!6-9yDYC%b(y@ini6e{R&t|`cbhZs+8@Z86ZC_R(qOIZc_Hb
zMgkjWFwqfMNYx#I&O>ag2I!hANgYs>spOqImGbbh)WQI!fH1cBVtNjbqZJVezX3Tn
z{2;{r>6A!(^}m6L^N5>ddGwU2*8mU4U$#iI&(p3&kv{ZkT^k}ZiMh#`Ny-uZBYlzn
zR_Y(OcikXn1NNP$6df@C8~5$|zqoIt?+c}(e#r&Ouhy>H)y?D9t|N;vWTsuedb^TR
zm^?<=Vx4{0DGRStu&chy4)FA33B4hPXyaoiyLy{tUBCbK7E1$quGndDB+@gPuhb^g
z{}-yK0)S0R<XWw!;a)9i;Z-2IeWuan&@t0Kc!{A38&@tqralY|FHHvmcE9x%3Y6B!
z^DM6bqyPm+>ES~?i5!i@h9F8@pudzZ4i2>#ktB6NEf`C@sqI6-GlU%ow$zArpgAEt
z19#Hvc%evniQ;+h4<ngD97kQ&)Ku=#gX09D$FxRhY>y)j;rchM4Z7jv4;n3IUu(a1
zWvln!4&nRwE?Lj%dW=0`$(h1xe~7xVRfLDu=v|f^BUs0NcGpP@Pzb`TAEl<mDo@*G
z!0B-`mS`iTw<_)U@s0-E5xV(k^{cGg;wvQfiGvC*N)R@Nh=<3qI_}<l3wdKdGvoKf
z+gqjCoX7kNdl|ccwPB{yax!Jk-N&lsvWM7QnZ2rhJ9`;A=^@lEOOP!c3w;mm-1nN_
zSb)j?cbeaKEGv^e2N?T7%d~lDaMc-|=(c{Nu?*;_KIO2#{Fw(jTY%je2YFe&?D>MP
z=P6RE@yB0sU45I3?|Hz!f*C(>5<ha|KfDy_tUvK1jhje0Xu~MevQfn@1p;Vr6Jm)*
z&_)d@VjuS4{uH>lmW$0tPUU^km!2RdCo9fBiZ9CKKzbmEf1ifFp^sg^VrCD%+Em*J
zPm}>LqX7Ngvwo#@*bmBfIZ%X#63yb5YP-dPxk(%pmIf1zBbdK1O-1fhF!8iN07wy?
z03CnY7yMdk+Y(D`nnDL{hty`UJWT`I@MPU&vHz~4c~<CWk;2P_;bjWW28+tF@>?~4
zRXxc?Pb$bljiuglwPT8&{8l;WlyPbK+``}%zglc2E6UGWyWz{}OCeXU1BJsf$g^~;
z7LOme%ll4XR&UGya@d`j6s%-nbQV#cyKE%IG<LBIMg$g)bT3)K^8-8BK^@8<>|s`r
z8_HJ8_O!7dw8C|)v|7F+zEe<%$HO6%@e6+;$%Jba%Pwp#ce5>|zDZh#t;<3#A}?sL
zhvRdpJQcp%O*zENG<Jc*x9}NvBaXczwbkjV1(*p-sl9V3)>q+XH@Us>!$HxXchq-!
zJd*0L5UF~bDPPcl-S8XTQr38hZ)6=70pl2Zc}MO0wyV;V0w}NH+KPmR+0=_yb9gLu
z4cK|sOd6>BUp?*7jU$6`aMdxi2qLqtKm06{p=6Ze7Ecfptz#^^>uD;4!~v8VO&Se)
zsFW+yL?e#IM|Cq?A?R!_<3pG7ZCD&Dux#pv1RTV>@sy6h;&`zLVCijl;Dk+&5<b$~
z<jQd6KZt%pFY9Tr*aU_s7lGke;!GBg#`;HKPPf;%9J?^eUQ27a0mdMMNY{D~gP-`w
z=^jgV|EK{J*Sq3wU76x!O?(@s_M1mA2mH)aIuieh8Zauko&hpHVEdI<0V8LOOj^<t
z@mOLAZ+ZZyM7hy6fG7V|qNi=*R1f>npnuwKLAN<B^$Lexpa5{fkL++??XX~_TlMk{
z;h835cIssZRXk(Z+^W*%g3=0_T-uks1td`F4qFD#PdU*-X!Zw{gM>2>PgZ)$Sv$DC
z9fQX&bgZSXbXrDi9#a|>Oh1wxHu{mVp8*eDE4(q&5y05~fYR6zi+{$k<U%P$nFS7v
zDWFY=j&!oJ;aG*j!?YO(CpNOdw;k+r;_q2yIy`!<(R0n<3JH(0+QD{tox`j?*P6>A
zQDiyRLZtsCj+eTvKZX|z)%$h^p4dqO+wG}dxHYmXyx?|WT#O0H*%JT08^%URH%ppg
z7Yg+d-fc&$p0id`o?*WJS83-Usvk>l(f=1mLu#z`X)S+vBJn|C8I|@rF=)UFn=5L9
zawUu^rg|MKIsdJfE~b5bVeHqbEs_3kZU3A0(qR8Hyd7uT=q7>0ptPrVhSp{|ns=$&
zm!YJz#Q2@Wf6pOtsB;_;X}IJNm2=oaKL)l7<uJne__((Ne>eHG;=U2aKY|$Z!2zOK
zgplq4vO0F>F41MVO(37t9LRSm!=OtLKb@wawp*?A;!R?o4tVVIU3dH{{jZUGMSK`;
zn8PE(XDF<mjMe1!PQQuqa@g4tdw{n6GO)Os_!4aKRyG|TfM}5_7IS_Kry<&hZ@m)E
zTA1Apg;o%~<uv1GA_9JbgC`i>#-GQx7{|u3%hvVk<W_pIgW#E%0s33gqlmvTf~@v&
zu5aaH5wzmb)ENTRK2EgI#acyhh{N)KeN=Sd*TxaikKdYP%{AIB_<d#&|J5+5uMBog
z{f)e2QmBqM%f9d^sb{hBQ22dSR513CE)tsFFDzPi@Ohirr&4DBRx(4MseKlwUM^l>
zdb|IkVV*Hf&@NTIQaIZ{=I0pa1>C5%57#obehAlH-CS}XS61tu61LMq7Qzi!nP<}S
za3ki*8Dd$u3GqUHl*>blRq-Otk>MsO86_D1k*GvN))!73k77o*sWK)1!RRX9jKz{K
z)DLuRvQ1rRvmek8aGZX4Rp5LiFa?Z+`@^~Rt}$%=n;t_7s~HG~BLDI8VF;t;+uGYG
zD*BL1i@RV&`TYpwrNwL*tC5Ebx`TMVy*3;=&3XBFQqukhpFQDqjhsqJDCG0gKa716
zr70vv(u(K4#g8SACVyn;W6uBRfEhC%<7mM*ykTc2E7~@N@3Qk3r~!BL?_58|LyZo8
zUl!e{&_%e$+863Lf7F`iAmPJGi9}oe87)9}5_wu@anAlh`o&ZlNj|H9uL<?}FP0AD
z<hrrT7<<;E)th}*v4_V%cm37bHW(ZkJeDb6+HmPIGpFFf%qIS<(_FbHy8+bJfay&=
z#Y+3eKBbai|HV$`bE;9ySDncH<F|-{@FnOk0CayQie)S1i`}Zag+mjhxxO%aaXJ7W
zpJ=i_lI^!Pny0Z#750e^Ul~NQTn}>_-5mTwP9V4?af!-$5%0rUCEtcOwm6)sOfJmy
z2D9zv)|2%5uw3iXc&iOBjN*#i5^UE?dSbP<#%L@#8!qdK*wc1Qfg*8RF9!X92s>3@
z^nOR&a-_p{{H|`*u$GlGEU3fbS+?GBDO@C*OpRu8b2QJ*ZgH0m%T^aHQ1k-PQ#Btr
z<IB$NL)DMm1w)Q1hXN^y?8Xj?FTiDSp8pGN{`$#}-1Y9Zb3wBj=aS=(I*(DW?OYGe
zij=Th+URHB*=!4`c=<juGwN2`#2r*A<#Cw4Jf`CX?clK9@TML>F3E;)B=M!&H~f)a
zIuc#xY{&UlH%DnfS*$S$n3i}<g=1u659zB})zDa7mg7&<jcc_$MoJ@6XKu`8#r8%N
zrc<;Gq?nf-vEus-q_#Qb%E%gS|EuoE$)phXjg`SVZeJdq#LVy+8ubu;kU@D4{;1cR
zI?GPC*;l1wW8ZYQ04MNxNzv55X8Mw!tMn%LNC;Z?vsYDYg#gm8vTsg>fm=uW|4los
zzz5izBvU;O`mItQi9SX))LJQ5b`ZmIz|So0Lk8Q_euPQrh>#WRUA;K0`dvYk9C#WB
zi7i!m)Wc5C2;gTwjFYX$U(z322R0;Q*<9hmbr$g_ZEO)`gp%3pOyM2&xs(?QXsOVb
zbLTR$?}ac7+NjM6djV%j0nMbD7;Rptl=X%8sdSC1ylZ+NynvTHdjiUpm~L6B!>KrF
zc+4cibX^|DE8KP(2=c$Nvnw@zok}N@{Q;YJ(QXbOsh7rwwtLx&ZeKDJ+!hB5X@ELi
zEnrNH@r*5vUOmp*Edn>$vpddq(PIj1K;3&7e_aIzERJT&F+q^?6H3Ko`3DoV6B?7q
zK!7Q)y2Wh;;!``F?ZuAeyqslrO4oUvI7KabfUGguIxK;arFzDe4>fbkolJvW^UdU%
zqZ`9IJQGzjcCXVOQS_~p+xnxH)o`U<#-Y8Z(^PuT;Rc^<I%6L(zkEOiaM`f`!I^=#
zL{&&;gU$c!2^aXNKZoZF`i>bjy4Z`u225u>D#LYT#p2bH3zi$#a_8T<H~crdrc1S3
zXUlA6B%u(DIfn0Xn87<#e!r8RQ)m+*Iwd8FL$@<qJFbQ7=H1Hy2ZaxJ^2KJAlz(HE
z_u~=qPMIOk<~8BaCnnNl=xAz)hPQyPyv@PRGhK^F6rsSe6F`XN#4ZxHuX9){<EPur
z$R)+I(Y|~x7<B?(3cVo8<^B&uMr*c@L`egF`c3K0@OjCGY_uP<<E+BUk-W;-zyTEk
zCI|Mp87f_&28KtHS_UDL?hUei$;!v%8H)M97fu`u3lwpyo4=sU#u?cH@0PSj_LELu
zXoF^7l_iQZ=#3KgHaSZ3#9cn;DG0$NSe}%ciLDL_IWr<PF1pB0hx;h%41`9)0YS(6
zm0iR;nfh<G%?hqXYZ~6{?8Px0+!QJ(5gyfXA^BvrQ~c=jj-lRq#Qn%G@=43#W*sSr
zw0qM>%bD>Lv0I^wK)h;y9q`)U!kjrgG@(>{uPwLSxnlz!Gc>CpfLMg?Y<8aB2DC2b
zC~Uxd*kQ8CI=d#5qBLf?>Ox=8ubE@Z1RG|?`3}XbDb8Xgz{^x~gQn2SzU-Q13cC(H
z55%j4KuZtr%{(a5qyS6WF$|ZvG^+lk>Fmbf@<4uevY+k%MSIu!0XVS?RNv*cRk+x(
zq#i4b=LFx5mI|3AjnzMS*yBhlDfc5AiXY)I<ua{p@q*<Ic7r{UN5>a<lm8+1irb7d
z7eJKMYiUG-@<73)q41>z88z?P$!_npSW<)SLq=)0{G$d|?Dd-2QDg72sCFCs1a-KC
z9hu<;hhe~&%qvt4W>(!u+kgs#A2lR%v&Ee*_7__l%$Y|1RbY$?P`_(dAnL~sS623C
zPUYSJls`A*qB*SbA=s6@$605gH~FB0AIwEB^kory*h^q8ev@lP|LXVlFM-29=mar1
zMIY(pNfTbZVpcY-g!wL3kk6!tr~wx(E03>W0leG$6v`$0E5hG8!i$%c;sT%G2%?gZ
zo$?Wb-%KU4GhXCAMui{Xqzc+d%30aHolr?7Q^&DCqA0-ysIn{rFXp-8SRDOa_|QL8
zpJ38%(TKp|iX5}A%;0lO*5Nna$=CVQRGQlIjoY}jNHhKk)6?CCa(BM#JwnSclE`82
znZ^b#OnF^C`#6t(WV+7CH;?#^Gi1!4n$Pbc;{sAy7wvAh@|bWig=<Kenon~b>ajL<
zz_888C*Z4hGuPABOW&f@#|Ap{3ox<emGFTT>}D6MaM4?$G!o6y0<q!9Gr4B?UN>Lo
zF&5{$SWy;TNqV`@pIn)rmwL8}J(b4>H8z%K<m4ANEFT#@nq`Kbk!7h^Q?BK2@C1x3
z(YZ&F{C>5f(0??#m5g=prMpQ{hn&j9Jd&!pOsZB(+a3x{QQ&+Cr&>{yO|w1XZbjTx
z!d}v8SZJRr?52DHCiMdNJwP#$;S_6pV$^1@1(85eSL-|QEr2&g28zoete`byYk<bk
zPKoLU^wQT&VD$=1*u}#(eu*Lu*RYi(TfO*k`rAy5u#E8IHvJeoF_2Esn1^Lc79C}y
zrHE7a7~ht;#SB{m3J700TUo$vR*e>)?(6@}M0$=lAfe>D9JZ4ie|P9|Bt9$xc<8QG
z)g8L?56lXo-NX(27zTcvpE>dC8m_;{vIm|f_JpG>oZxVZkDTk8J+oHcSfn>0YU0tN
zJyz5NdbDbJ{Uo;3W>(*<+YaV8Be?WkA2}TKxF3xORaDZ+4BAsVRpU>Ybeuw$xad}$
zelE~2pmsdkQreA9q0mXWX3AH?<G`Tvc!y&A;9v!Hm6gVt@>1KR%GtsCBPLZgDS`6b
z<W1!?vGStRRdh<2?APwD<*-vMcbcJj{2-x^8;?dx_FGtjsC^qVI*W1JgrlfGIJT{*
zqCc$L4$%M6K|Nii$_jgVMgw}YZCP;)1fUUUF3o|?xkxBS*vw|1;m9Crgf~?=r=LYz
z6S720Y9C88ZtCYk!JXRLLk)Fu;e5Z<IbkOFJJlOp>__-X_S_2y6H6H%>6`0fw-vF+
zRBx&$Q@^rsGbkPi5(w|CMG}v9;L;MRWb~}RRL%v{z+OkFSC>mO`3L-9(qIQFfAln<
z4fs!y8NAdo6Jz(d6n{~E%>qbof@9xgiw$Z;SS}^nXfyx?I4+-=brjEc&YEy;WN2sv
zL2<#<)gJDm%E7T$h0#q!KiV~gVIOKLD2YX<<>J_6rH=9~v9~G@GF*esL?kpPcGQ}q
zk6sqrVyC;Sz?!Im87Wu;8RYHDptu$BU{0B{n$uyp-z>A8F`B}%=Dsxv)B2{4ATl4!
z`G5826rNM5Org@H17rCU=2o3uSG?f7%3}B7WL#Y7uYbwAS{yM&&Xs@W`nD|NNU_vd
zD_jn6)7OgzjQD#+hJ2Il3;Y+cIyJ$R)4A;^GWtb^Gb9RSSlE`6F(`zwK@=N3U`=fl
zMf9i2y;Z?#dsSbx!!8*S(9vy`^lyzexY{B}ulbh%z0K1EO3RBjYuqzIp>CmkTH!dC
z+#d;XrI+7d%2q=5ZEqM1r_=&Enu!&5js(T?a>Yybsi--hP~*TUckiv1Jx!JIF{P}#
z0jNVW0+71McwM!vmsRhce|bAt2Q4!x4p><JCN^@t5(Ead0p@OHe4{kO<yFcC<zb6>
zgu?}uE_9-~7)qTtfhO7JTUgS=PIZl~5&0Z%6C3923sNWPw9Cf!X*4IFpPbi?Wfu+K
zYoCBarKTI><@knPn_oUr=pA0G`{dm=^$eo5-qLXLwF%AGie98POGWr(F-<_8iwq!j
z?KHgu$#ki!IG+y#FQ%NPp#xsp(lH3G&0lM^`-`>Dvy|%{;y2mZvR^ls-Qr^sS_C!_
z#Hc13danikr6A!&`Zo=Y-P2N%3SZoU3GEZAF@#yjcDvDQ%d&DbaPhxv;j2h^m^u8u
zoll;qyjwUeI*35@WjJS>Yk!iWrQEEUQBF;zB{E)L+Kzcl^YJCxF<i~9+KUmZOj;x2
zlu9KdP@#)3E0x0v-s!ede1gzD1gtqrS1q$dp_vRDgF4@itQ2NuVv;6?5#|Tz%P*tC
zn*1bB%h8VGmHnx`45vLb7H0UcEHk>kgg;d?p}BTJCbc>n0N&wzde})HI9R+OGkJM7
zjTF!zH{RfW@qnkIRc;|Zo7gAzTVX!kHxe0w9(W{!gOJu{>8gr3Kc9TTe@J$X@YR0?
z%MlWgcHcC?OnhD8OM*7~iDCs-$&IncvR7bk5sXfC^r9z?2M6B~>`vIWGybR|mQ!}k
z?`aCWE-so>D&;$Q^jRglx1u5%TLq4$040YODRf323wvl~InUv2O?iivN$|Hx;wff~
zz~^*{Y=H1>D=lq;&}J)`1yGNfO~ag?ug#40Oj3VfWan8(%F>?@BIIdAGrTcVZ6f9J
z26cu~(E7d$a-#{hk6gurAGz8*_aM`(&-Q?l$98utUA%bVyk&A|Ycne=yrn&w91JD^
zjYXsLr?o9lg$M3%^+r-DXkLA^&q5Iw2Vo+yAU0qUo<$kFSDA|~DtZ_JNoQ+0`;U_q
zI)&0IzVmys-0D3w?KLu#a5aIcQJl3m6|Rj9)S~CDy?XNQ;Lu<U@gf_B^YhHaVue~<
zZ742+-xbsEs2?Z+w)CgGZv*=6uyokr1c;`aGBtW|I@OAKh~)}WD}Ne$aHm!tlQ|5E
z(UaZY=nrmfN28)mqBDf?B-wU?P>+`Y!$Y{tb*SW<8}&87YUnIbXLDNUt72Q(^!&P6
zb`hIFARz<EdjLwzX!7(L``^eaHOHV+ucjMiJ4Qisjx#f44bg9fZf6-aZxpf{^KDa!
z{j-c-BmclNZeJo$9tXw@1^JdyzcdS$FalTF&$3ceSVjJ-%w|zdWj(PTrtNSQ&)?xH
zaxEs~1jsHfaDK+smznq%r<(%xWAbzU5FJr$9I%Ws4|3xRZt9<AsQ<2|d~STj?esM#
zudNYp3&Noe9bi*-9{q<KKf$`;XWk6xhr|N5($#}OR5G=slEv&|rp5}Zc%(`U`e~wI
zi|TN~U`S^HFXuVvaHd?Q(WW{$iyUX$)?<yYzybO`ZyO#rS=v!5^RrO8#pe)Rm9ZIP
zq%gGCb7qyvp;@!k|9EJE($s-$sG50}?BbDWdw(??sXjU{V*nW>ofQnt^=*aPO;j2R
zzw0mA5ImtR5R@G!Baw<|UmH&<@#I(%bb^|ExLv?t!o%w%@PUzCD!n23F=b{%YcoTD
zUcqgio=3NVDSn%-U$4+@D*a_@09!AB@V9Ke8)En_p$m#LWQXF5U*CR!9aXm>9LM4s
z4A<coS<_Mn>WEzJqfLxfHhF`mv|8lBN04l?vz<Pvhus}EL|Hi(8iAo$FjTn<*^~vq
z6d1G-mlR=x?8v4kS_zfo^7ItyGRmnrQw`J}RmZ7mYa~9?B_@#aEf?piU1*iUk)`%>
zIh@fzj@AZ%qOZ5Z4s<9J<fMUcpd=CgyqqoMw#S6GW*(z4j?T+Ajft|lGSDET^D^d3
z-Y|z>BHLtVIMv4&EXGTE3dj&wn|J_t-lis+XZS*|<q4F3cL8eIf`J40=HOahS50T?
zcD(%0n@WSBQ;W@!ztp%o?8ZvXVXLwihpX(f9c#6&dCLGVPqA1YwF_SQ__XI&9SGPy
zRe$kL1=NNv?7xKmK;+Y|zZMp1jeanJw&)x|3@SmrM*Ki<%p{})!bnwO`2>^j>1rFN
zIaqPShxje&;b^4aLR2lbIE29XZgny}h64WrXg^vs3$PvM)PM-kAB+bN*|sG6NWB6;
z6aZRaL%V4&vJk_V(<Ab59&H2I2#^)iTk>_?MZLAFFe6O8L_2{*W6BE-?A5f(ib+85
z>qzQoYU>*r+SE+9;aUG>RJ)fr=tE=lHKBaMT1itru&v5IfG3zzfk9-Q@O2gng=Zl+
zmqE)9nfri6VZpx`7viVu-Tx1h1#b<&RxLJ{ji62-_bZ%O#2~d{d)V_hJ}eH6<x~+#
z&Y-RY1RdcS^mQigK^jj7YX!3SLzN-^9x!!lkHWQy9#79<S^dH}Nrlg(Jb5O_l93(6
zQUv(?6Gl5o>_*Z=9hRO2#iX5ZhQK;wwX}0uU8BVz8w!@t$*CBge}u%%Vq%U(LT|9x
zc2?#Zetu-@?d(g_0^r8`^8tW?8|1h!zf~?ncr~mwOrqNvXcWH*0&L!L8KgZ3%)}k8
z!`wd@n!{p%Bl~OQ$)t_7nuXThzK@_Odlqnc!K(V@ETeuRp@p==mdB!~d}mQqI{*Js
zRF;ta5Jkne3^CEGWY5zql%}WvT5n!;j^}vP<xlhKpybTBLM$?_6rD;ENcz=cfgYkM
zxV_g2*r-YyJXIrHd4<EXOud{LHww%fdL9(YYHr*lmXtnn*B^xKW*qex#)02*i<pUx
z_g3L_+``q{g>i?-hB#|!wWiGgGElRhlpRbTWxa@ohEGPXl|$4OTs7~2GI~g%G+Xs0
zFIV(3PEWFBxHaKKj;7wNwqxfSK2e*F=BZh2Mm4rfy#Wt6Fa;dd4ezOKvT7v0hDMsl
zJ@EFDOjak<gBG7Po<Pa90g!G8Y`T!fF2pEa-8YOme402YH_LkJnhS_?_)Cr2^gmna
zEWa2%f2jK9&E!6f*!jAC5Vjq_uUm9|zIGm7E_ei3g$|uvr)u@uRf9t#Sk4xC?RC8u
zB{?Eieg^^8|73gYf2h_%9FWWm5Og?_nu@#`J)S09Bx~LwGtp+Fbs*n`pMgbenqOf>
z`usw=K<)c~h^ENw!vA4EBI00oSm)6>x;JTXdXvw`{Tn)3rwhgIUs(r_=yNQXf3?jV
zJD+JT+hk05wp-8#D78P>N^4j7n73~epsP;+^%C8{c3M^Dh@}vCp0pjH=Q93V?Ga0!
z)`4Bh3J_h%m2)BSv-#wZj$=SU3hT`T-}&~{)Fpcs&XqUND6l0w>v90Fd3dS40WL6~
zTV@+4kvPn*t|x!%0<syx>N)<&nQplYS6!qTGgWpA9(U{H!Ql~njSf2SpLnVU!&V}C
z8d|ezB23g_g1j6jS}^*R&c5Khh@F7>99*yx!EYD}_?^GTSpME_#)XYZ8>-u{Iil0h
z-eO|bD#v+Cms0Ujf7P8|{4ckPf&a@|n#8l~zi^oKqs%g^=)p+y5M}8^E6#h*uau?V
z=|#zMThO8`y)CZb>gQ_W5C`bD_7pBGFsMzZ32e*O>Co=*_RM#NN5SW9mR<JJWUNrZ
zu;uOl-S5A~mCqD!@>Bcuz&#HU>^`#>geEz<F=HDU?skAtQsqEZ(c#PvqoBw@<7nTD
zN5E2nqLyrNP#ry=0NiIG7XanMkx%V$RP7-g@+PO>*y#qk7IWFqSgmE$1|@vWD}<s_
zb9p0k9W)7)1so6kLcydFP=1|g$3C5ShWC!ML3&7ejz8RrFcaMCv`<Q>QY`(<zU_Ys
zP;bY>&Mr&fIe4CHGoWxQdi)FWE!^q64AY@d3<LPoeBdSD2{pw7t!7anql+x3Gsoks
zxbO!%Q$JwZLPzm}g^o%UefVJxfBof|7jRR#ko)9sIV)lOB5Xt#^Eu8udvWj*Zu;f#
z@P$kH8vYDCPPrW$)Lxz&x2j^aV^>=KJ|!LU8g9yKx#Kzx7c1?04vS~E{unb`Kh(QX
zN(Dm=0uyG-gre_OqZjjYv`a^eHjGRXUO|r<%FP~|OKZTzJb?l*%K2V&r6+|C>)J%2
ztnoBs-#=5KpTq!`@BCQeHp3iRqnhD`Mj<MYHcJ{e3kgm}12(#9g=gBZLH^NWX<cG&
z>hScULO=)blY5s$`fL)9Lijs48&`j<i=<)u6WPBN_WeXXX2VEwq(w!=3T^=4+rvz(
zuOhZ%92%^XTNRvO-w5MA=ENVg*}X%5Quh98X%?DF>K#I}Iatb0zc-8rROa05V0Sv`
zJ`;nza2Fv$v65%Y&kQ}R<Ds_LC;zmoM;m$(2MVj54;MkN!@5rB_~q}N9eA^Izh%bF
z++q8gwt={V)-Vy-WNK?k`GZDRIrLWEfI_=p-wF8(fLlz2Mp<xt7InLqpkvu@Qjkhx
z@gci^AWy@KMSaz0aiUI8*<;=Y)b8&Z+pucFeX-c4^K1==$F`iqJoQ@Q5NTr*Qomhl
zm#)0!%nIE?P#v_|6geE9!d*Si_&AFvwOTtZ%_>3}*D5CCRhw40;^44v3hImRZD3`*
z@6|qXHlp&VA}fRNBwGO6_++2nM8zo;wgoTa$dSJX<<1(i{{!&@BYhV2<$ySt3Frq|
zxEMNGw5WODUSNO--YaS*Y(h}xg{o_koK0uF;GE)^d(g{HrFYVY8+wx^BN!WmS7)@L
z{*cgkUan(ogX@z@I2>$9#}Nm=<|QLIzScmE4afQO_#h~&z&F0Ld#+&0RL-9y?qQg~
zvtuE?k;zx61D84Z4=3%h@x4j_Wz)0z71&ckKt+&ra*T~_CN`63o9(xUh{3Ue>zM@@
zUY4od%sg|L>s|&f&cM|kwoDbzxlrTXMcznPhB@$=kCGG|7w5WEf+5AxNLgTf6PtX*
zidxm_aWnljhA>5CG6*6VWq~DgymLY{d7Z}g3uO*G1U34?-2&0obcJ2YD!_Yl!;YGq
z+{@Gv?V$Ky!I<ep%r~8Ek%}-ADO)dd)2r@nmcP8ku%40SP5tDcA27^F#6m9jK~+{Y
zTiTFn7}*CbBmSD<YIzSKrUjduSR^LI29DH9qJyV#kDoy}rGCuV+e~|qF_fl*hNp{Q
zV28urk<Y+55I<@Htiz8P;H%>pRXdPc!j4ka`zZul7$CcsIz^?DmmDN9tWdK;?PNf*
zORtN)AQD?@ws1HkRQ9}XCO+r<<}6<%*Q38dXf`(c*~IJ)OZS+v(RN-?cck0+(BZPJ
zbr%n=buUn#V6@IX@k0K%BR}%*EXx2ZeAK%NMYL@wNz?4buc#(A+@&)gr)v}$j7-Yj
zi_3^fu|@j4P*@}gwDaxHWyi6Y`jINW-^E5vcBjs(z3hb?xcVIsVPI?+L*uvG$0yP9
z>})V7q8PUgyXYYU=kw<Z%}`H35tb&5`n}X?l*OWc7z`%3n|9MSxnV4BF>cSwjSpF{
zZ+K|G+Z#S;VojEWBB15{LtSQZN9TP{)WJ7kYaEvI!D%^yYgf|U?Z2v7{WrR<Su)ZS
zo7ZUx%&&44w_W8b(&m$KiOXMqY3EC9wed2`)n8%8t85W_RaaD>?KRAVGUzd9FB&K~
zvt6I3lxM&wONQke>bwLRl>4|Dxr1*<T@ejI)-wf1$RKY=fTk>UdP7)Ltt57FKn(i%
zyuZo{bgE9;*aVmVs4l^39B{*3PuRY~w`P3fnh6!q{W2XqYM%)QkFdoJO|#h?`Q%@g
z4}-hK-H4NlTM-6U=q6<TlYKi9R#OME;aEW<rgaG$+vLj*PZpWAHwf^)ypid4dYOM|
z!#0HPx43&|_xg8FJhv86e3tXv%GWc^k$bhSu0(8OI0q^W%@_9|#I%6s`PGkz;!d$H
zgMJjOSp=~l!TO!+MMpgg%9=!6fp;dA`-6yG9+IOWN{pu$*Sg`zO3HZ(H59@spc2^c
zfAm19j2`XumR{fl+aUx`BCL#uNZbme8)3VYPQ`1%v~FSamQ3#FOD%HpiKJ109rWYx
zf{t&|veT+%Fx0A%MvAvT9!P5OOskQNcU8t-5M!{hTIJq_es;Ltn@%X53DI}$B=W7h
zj$Q)y#L^+BStyMT%79YX-&vIYDDPZfL|t7t86z8gba%E4CnsW5>SLt4_#Ea~$}kuZ
zCou-8^$wd>?%F&Y#oil@yj>KxVyD5InW*C_u!wU*K86wPI@X7N9v)553`yWW$HU?{
zDp#;JOOA3Ssn5Xl=qiTmsM+K8s)lMgC$XGpOl{~3Ccam@;#RQoae$_XURPy8{@#9h
z+RMu>@$QdfK6yM-E@Y-GqBp8wRJ;r`ZHp%<p)Q`ywe8flrnIzl5&zMH-w^L?g<Hd|
z0$xW5Yr!?dXN?Gy89_)842-L-_|N0Xf_HjO%%Xci>r0$WT<3Ewr;A0@(vzrqlpt16
zebtvS14BOAZ-WH|yUoFNGwwCL!M#ox^{_Tpm<00ycXLrV96uK3N|ETB*gaCe!%MBh
zgLBlq!WYgFYESMiYv!56W+I>D>=VvsIcTrReJ)B+S9**;JI^=tzHWxx21{jchr?)}
zr6qY&*N$N&Sj+yhNNS7A47cPg+k!_gxlr{bE_LlhS2fP}8+MD+co0^2Ly`Dgr9BxL
zjGphhbu)%_78Mav$BEgEs9Ucw$nQ1f--w;7xZYLLn8O85)~(o{fR3C~TMo_4qYr_?
zBN0^NmrCF=Ee`RKqLz^_b#sX_k)ZY(&6n(DX{K83%$`S2iblCfUc}j(CIodD2OMVb
zq+|0Tlp~8W2Cm0YwQ94pta^qu>aND;4Q|>7u5~qJmGW&^&brvHd{2qfD0FknCE{>X
zCQ@@t=z$VfXSOkgIOrm#gylo21_tZ!aGn-%@m2@MCO4VvO>&QB^9qyi^Lb_<_%D|M
zLa&MYT#FQaztWDqHu#$JlwX3XFH`Uxq8%pXax=V^U%4Q*#ZpaSR<YlsGmcsvRHdKt
zlsMVoXZjai%+8^mEWhSQH=OJfc=jzbp}cZBCnGp6W%{?l>rHVFSN724F<BL&NB=8S
zT6WvGO=ydp{5a8tNlPTU+o1C~(iR9awx^3IRZcaA6aH5RoK0Z(2J_V`ksY3C2^sd6
z(L$lNF~?-aa&0uGv|DtWdvZXYn`6yA6^%7}m2MY5!Je7;QuQVqZKBYIN(c;ugQ|9(
z;5T_y7y~CIAdv@X8TuF*`l`Su=i8~t&u-`7Z)Eh}qj<x4b~A>Iv5*`-rI11yGB{Yo
zC}dKOy$!UYkqP<iG^SoA*kQ_UwCYv>;QEGR1ar|X%^-3PVRAMyxS<i=O~(`6f>nB2
z5uKPX{)VQN*y}=>t+oNk*>s_eS9mFhi9b;rO7aa$8GYuG!@~}{H~f&Q9Z=1Fx1W|^
z=g01CX-O>#emX>E_@6L*x}2=@U^Bcf=7z!0e`<o7&Da(`Cy6z8zDnDD_WN`;uMoZ#
zd!X0=(;e04d5T3X>hux(ycgxs^H~HK9Fw{(i`l<vl?M2-``y#_2ILW1`@l$Q<irYJ
z^y*Br|3^pG!Z*qT*uwGzb+eL0FjB;!+jzlb4=UN=Z<*-EQPS%H{3qh9e5mG056!db
z-`M-W+gjfsmuPefGixV0ESmf6%&6pc^#zCcT<|MRdaVNM-IppZVLz(E!P_klnuj#H
z(&oxgXhN~`48eScx?QkV!CzBpJvWDI1rl`wp^(fh$=^_wQC=gz5nYygAvOemwwsFs
zs8D-2Ep-BlXVA6WK`dx#2%VRB>E9j!N9&2Kv?}lfo|yO@elx0P+QS)URdp6!ftmxg
zJUnZI(Ngwdl~L?hPe71$nvnUK0Ov73QQ)UpL=Wk5pf(Fg>Lu<2deyiHrWR*$6ba;m
z@Du^T{&pq?g!sbMhSDkVqKKpBw`k!%i_8shJsQz?9Ccw<0J8~IF%wIKH~69hL7%Sf
zNjRZve{|6VZY+1Z&2W;7`A+^a8ErUTkI1DJc3=2Tm2KzntB#M8n8TmQ;+`=tM=47C
z1Ou#bg1;m_c9v~U900}xf<2nOEX_X}pv=Vkj<!<7PH)w=0Wz1R^BYTl*7@n&z7h1*
z*hI==##C-V3glcUyp4}j0<RE!?%Ms-h4)q?e-Mo*$3M<kipA7^H`hF;aSl?+R|3^L
z{|=G`1z193p^F~LrY%1Hbt(Om^J_B1DMr>%j;}No`@Y)h<@zzu6jfc;Ou3(Bqodqq
zVw`-Dtpc`jg0ijFE_jEVyQCTUqpu{GEXV?(J71>@{BtaS#dS2#V&$*P$7DP>_JN!B
zX9v25VsFDFGKVEN+og+7ZS0eYiqB4c`W!jDxcf~fA2zq)-B<ya(Qe(>_fJMwPHX|)
z{%rF^T=bc>4fRduncm0`I()IvU%aHTm@^|>Y)nXw+>krR(iZ-lUy_QQ;0R&r4%gi|
z9u+*VX|_3-kwg~P(9SYT-nCw`HRxt%pzTMHBJTT-CH7AW+LnU~;}*`r{9e3i9DpA?
z-UiYD*R#dlsFY#L85QadJG*&O7s{Cpv3HzQtF)nbOI}SK7`KNXRJFs17gew&WX@bf
z^f7BfOZJZ4CyPl;R9HcUGC@->D&UzV`g=|VHI|-Bf2!rDm3IXtG?1T{tH+bK_1>c5
zq{vbDdX+DwZ&}%tmTCB3!{jM=5j}|!HOE$orexS%5*-N|J5k7tGxJAtv_~u0dw9f)
zSgl4Gq7g9#PiASKvC^Tj!|O!031NtIPoUMpS;Evmp*+5=v>(=~=oz+Ez=}k<htbKJ
zaTEq?s%G3l&dk=_Jc2;&eCE0nhY5}zOh)#3%*7{V6puU!L3dEDQ>eGnVH7K$+iaf-
zv+ww-H~>})_56$39+lDHDYig-XyibKH?+iE9!&)bOgU$Qa<y*11ci!%K742b%Nz^Y
z*pK8*oLk^cOh*R`t^zzaeh};mm7&NwP6uNxI$Pn(-E>Ap$w>T#GI1q$KdG?K^7*jR
zorFoo@ITf0NE?m)l@yrye^bvF+sybbou;YFu`foVwFPuVfoK;2^zIU#fA-JP&KJX0
z-Cx@bF@7Gqtpd5<jGilGwb@#e&D-QLX^ox}J5u*<e$U5VaB^Me?{j!1`In_-fcH^Z
zFj-{dxh8W~H{geCbF@KNDi?X^@gnwYCY_b5--4`Flb@=wAqTB-(swqRqKUV%A$?MI
zxM;m@HWg4?519LVb4ufhb(MU!>c)xFP``QIIXdbgb5h$d{79!kA{S)=j6$CEsPj}h
z292~Ab?es}76pV}7Lf+fQ_AvG$9n!unSp85hXhx=&EQaDfG9VXI$tF5jG*VO){RZ8
z5?;gH^0|q*+)E4_Jqp2BGiWXhAcjV>iHS!3*OIIu(`d%*W?reeCDTS|rtfsJgN`md
zqT!>?aF>Uxd&M?9bI=TjqaQeEe|2d%)$LHH8uqUX9G@#{IT+z@aMoW&n$B-0x`x<l
zyDerzO#`ZWB=jMegW;6ZMX@G!u3-1)Q)!chC?+EnFvzoFy^=#?D~ijLBg<r)C2|fb
z-hsL-7LZy5Hu2hINO_;0q+gMzpG9V}6=wBEyK$s>fg5(N_Yl1ytWQpMgEZ34<jlZ2
zu9pa78Yzes0YluzLoSSMZgY97zqezl081z?@>ZotwL29z<9~+|f;ZuM-eT)Q)fE|-
zA~M5Y+o(THY>y=tHWEPACyDhFO!(l8_hmM%E^7dJ@#Qk!Mr@0y3d_3$R2Wc^PBg2c
zgGUPX37VUoo@Jeoqsa3}TTSL*O$$HV#^1Bkx*9Wfc(pfnO9m~k5`W0Bb>@kqvaQ<X
zX~i3RBbPO4>^VGmENe)EJBOWh3(;C6W#n@EK?Q}*%&`0==s2BlJlWWd_h$*1p54(}
z+h4mGf|KeGO12?F@BtXHhCeOYdnn-;78+xQIdN;2MW(B!Ykwuvf$s+HgDJamzhJ|%
zV|@ToZ5XW}5@B<VLW>u7S5K;=xx=!m`y5wp^<)Yx?yi|(M<4^6LTy#Gjq)Pm_qn{o
zkk0LYAV#^9^5Go(7_jXsvbhNrxmmp<i}oVrfHF5@&fYwLe>Pk@3}ek(DH|bn>PG6^
zEQf1z$mSwePV8dpM4OCx90oVW7P3u+A<9w2Um~%Oyqo(-xM?o_!lbuJ*hpN+Ks8{M
zV8O}<N!eExpDKs(zv|_B11yuBlu>W9{_IG`?_r(zlSyC%uchYUNsZkM#7WH6N?@2q
zqKq6RBrYYhY98Y=$lN>?KZrRnL^#t!Tgee7v6?F6a4F5MUOVXpZmhR-vQ@9}0Qs0D
zYn#mLtK~~v17jWqVJ%u;KeM%Rbrz;f+-oc%n@BN%(Nu_IMiFF=Gq`pvXUCCpKVz4W
z0zvkv+?E}F3eIwZ7IJUZ30xcx#S%71(vKlFLlNbK!3qPnwTZOfl5srQm@Z1zhyOrX
z)!PVe*x~(nd9o@`IFvdrPUP%yfv7Y66>h(tW!LUevZwwVG;Hpz_7du_*^sHv5U%W6
zyg8k*%b1EgfXAwVQ6*Q-V8#rQ$-1rIsv#L^AD#sMn9Ic;aGH@D^SZ3GxbT^I>}4mr
z%O&pdT!!Zt&=_VF%d{Ta#gJymM_Csrn^jF8s{B<DPzCL0C5_F0QVdgB!Onw`7AZHV
zwzFy3BX`9THPvjQ4BtbZ({%l0I7RBka<iU6ccLy8nX+EtE;eyexSAOWxa3YyjZuI>
zIXc@T9B>l)xzLqcVQd6@v%X^X`uZczY?`T$miGh0c}HpAR!E=v+AIUY>!#D?&Nj;j
zvC}YN4oeX`s>>hk=ICK99sP27Ez(XN@>#(@uIiHh;4`&sqk~U#<ARHv!rkK*l^FO;
zF$6aPnD>8G*agS_nSp<xm`$p)j0t&+K(s%FRzsy39NJ%Jn=sq{VI6&z(FAm{Wojdu
z>5L*XIhMixR!QB2BS{!960A(8l?3H$L{YbQ!>L8yVB2h*22pqA9L(n;8_4V*$)s&g
zb_6`LqbVGq12eO{;q}>cEN#XKpBhQ@-S38f6rGb92q)^^FSpG!T<e(`{IaPbDM!@V
z%Ffw&;Vk4!)>SUEj`~E{%Nm_5P7s5bsVrB<*qSLg;=Xb5Q%T)1i7stZW|KCznBQ0g
zrwy>}CN|KWKDK^>Ie6`4IyPSpC0=jdiPHt6NV9F;V;;T+)B;p1|KpcuiQ7987X*CE
zF9^`XSl{l_rSYdL&7Lc$6YzWaF_n9}KvZjwMk5;{=kVrO^oZ-Yc1C6K(laWHj3Y=h
zE&@~Y;k*T+Y_?o34--znKZ``sdWj1zmxwB#`~$+`m~psh0+za%Tz}%mQt=z3OWa%h
z$gUZX(lC(qXFQMm_3)4!iDGUaO#Hvvt~@-d^4!1Q_nmEKGIP$%WKSR`2}>eL$VONc
z$p$nUAR(Z%#lnO+2_s1+WG0YUmmt(GR7=&$t%?;WC{}N=iqyJPseQDIU@H`@7ZKE2
zt71f4s8#y=CJDv%^4$A}<nb{>o|$vbobxU3`~H@9{WwpzaF0=FacX|F^?ieSrvyVU
z)rpxUCPtcicdoV=i;bv-j;~{nN;Lt#G9Q^=-}u1luV%2hF6OwDClxA6XUW-C|Jy0<
z>x$@<YF)m55?X0hzyw}Rn~&~Mc4#~FX2h>7+mCHWQVc+WM~|uY@?g)3iW$hh_oOka
zso{KbNY6^A=l%TdfOtxCBR%>-kbjb=UyJHS%zi8zT#XL<24XUKoVSuux@I(?xHvkS
ze_bet&r=>x=i8IfxjWQRJzZ(ZRIPw^TMnyF@we`s4tllGhE(`CQ{GLcorssRs58ab
zq$`;<&@cllpEiT;#fogt?Y%2~z7w9gviDgP)qr44UOJ5VtU^`e&6M<xFp+d&kyKt&
zX=X(pT5xif%FQ=*VqeyS&gIp<mq;uyTqm)IVYE2+2Ux^lt2q5RJvAQYtU17^29zsM
zXc%1%AA){{mPUMCHl+!EgrNGjV7swFx;46N*Pe$CYHnCe&q+0&O*Ut7r5YG$QFoq5
znNov{zh_H!buG%$yIgvGh0=l`E&P)deI8>i`RdzAR>`tS1);EiLdvvXRr$u}u}@sI
zy&|tI`b<#yIs80bGWU`C>x-r`(^c(+Vv(a6Y+zJ!TTPz!JQri3nc9@+-IfYY91@-O
z-e!oFgJ`}rzMOK1DkrIjDyU5<MWOyLU!tQtuQxV23mAp7YP!u12yK0;-#%)H;?aQe
zVQI#^qiBJxJUmrv7JPg@{e#SpiP+Nx)lwClky{OFU>JU7Mh-0`^<By>LMJqOd$Q+x
z@)up7!gF${f^@WcUCjhBK0SqAp#d28w#S$E7oEtkA_h7Ry-<QC&JQAZm;L{W<I&<1
z8SE8Kom17_4RlWq{cN;yV>Rh%v|x%jrmz9w{%>w>;)?mIqOiM4DO=@j8J4}6j8GM&
zF}tU`sGN$5;lGC5^PAEX0*E%-;sO3aSTbMK0>v+C+A6`OyS1C$d?o`1+Syq}Yz4Z<
zM4IyuuErQZXsKG9pxy+6jT43xrohN;LBTe%?50d4{iW2E7YtoBo|$85Zb5Qv{seoK
zt(I72%M0o1qA}%#R~J>IAh+s`Vr<_Z3-5y^h{Wils#;KZif<;@x-kQZzBE12uD`)=
zPgAL%ZY>@*%?v+=j=?KAe<zI|W?)x<i{-=?W#x8+k}{<+t~HJQ;sSPn(LAb<9IYw}
zCebf5>Fy$$kfuy6W^=QwS*fGfM!P`mahiHIRG|iHm8Qlxgn>^@<L?%gLKgp4k(g1&
zehWFs3m&WTGQCM!{PeyulV;Vk15&cweuGN8GT3I=&4KV(Was+r>n7D9q_0Hgo0}bs
zyq&JE;8wxqjBn&3X`1-M*gD%ToA}eTW~{g|`vDjXII+>=t?*~lz$Us>q1W>L_C~uJ
zYUpTVJ=>BLh;2ziVQOWj71>+=B$5I+4NjcZ(c5Q#ON{FZZ&l4f%~wAki^ByvWM|x}
z4Ugs<v#CuRyWIJ8y1#4tDE1hKmh63xY=(yB@cq+}ZcMN2{95_Mg0kYhKSR-eo^4Lm
z86C;k45YCYltyGC>rqucm{r{lHGyiAt@}G~H`u+!+Ppdw?Oa8pwiHVo{3Ut{`H|6>
zw&BRBxl4QDg&u01o2OoA88--i1zL@cwdPD6b!7<R=xBV}biX;-S7J2ybGjP*Gt5e#
z(iHCp4+B=+_sl+?4tJ*o()8stlT4C$&Y+V?u8Ol7>EEC(3FIThG8-089Z}e9M@P|M
znG@=i_!&TXNxSK@!9#+!d5FF@MDoL9TmiBQ_#L>Py~t(Sv4W$volto6m^6T0u0v*H
zDEPZ*(8QWFVr4dLM-uMug8c%xfp~`N$nFbuOU>)0j{PvfLb3BkLUYD!CrmUEd*+bi
zt7PecF@T~xu*H+KVT3BMY!|&}LgfKbGq(8<&Lul+0hR&wl!&)tMQ_jstVTnuy$o6@
zX;Y}}yi3(iUnG`A{_uGA93I>-O&$Yz9vzVe2lFIDPP&s6ZKk6`ErX<G4xBOKrEE4}
zm5wXmXd<asfQ@A0o5%~%^r{m+m*1f^n8}g_QiSm3HdczF&ch5Dy2GXd01mP`5RQAp
zv=og1ky|~%&=uS{#KuJ8yFfyx4=n^6cwX4HAPAFWX*<*@O;aQjQ`&a+(x4k3>;e;G
zgfR0jcHr%#Z$ZT(Caq>y-NvdQL;9Fz;-8TLdJZ**A?i^t6pNXxTGIK(^IAy&{T{nB
z1mHB`qY_T1`3WDYCN`Kl;_))V*uu)^oT)`=iT8In9{Nz^#S&FUY{_{=_Ja9PrDTCb
zkVSfCZx%hAkfum8ExTne_c!k4<+c6rhN^^vPMh#g3{Y-uzb^TJ+2V=P+JDgjH}X@i
zvpH6MiO`oR;aC-zGeig6FHX||XDs^eg~vsU^1eX7a#3%7Agav|K?(dw9MQHh^J7t*
zW}g)EB;NRmNS`gY*SEwtSKj}~|2->Sce`BpPdd9unDs)1FHlfq1pa=X0&;Ip=U>%I
z+=-2v-DQ8K<;98~Q9sZzYEW|+BH@LGi3cz-C3ub?u&h?sER+5#0I1Jbj(ZXgjR_mL
zVQd?N2<tCy%XnIeIVe3^TJ!-7hC~kwpY{}<KRyI+B_ISSDLkmM%k&MXL12FLL|0!(
zYZCN2cy!0KYDra@snd88<JB8sa|S{Nn6fw0po*18D*YtWFTs5U118*{Nk^7idN9F#
zNknB1qOF_t&A=Kk=p&%Zjf2mm=3w5VZ0O}%Bo%E4+tf9EqYgf8tuzwKpzXsI4)pEX
zL&{Zb!=8r_PF)TT#w}9f2gVRE1!uC3z21uaL4Oi;#?yX2L!B6o8<oSxK3Hzgu<Wt_
zq~+T1q^&MSD{B0bQi|8re5cRNk0y%j&~?c;Hgd(S3_PJnne2)wb?pxl6&hG+<53H2
zUa))ZM*jB<;CY}i4_he!TSVOx(=jIXW7sUZOZM$5=q^M!eLXZ;@l$#kyqovy<*3?#
zJ+}AJ7wCin;dQrNVeeamUzI2{;LRS+zr~hfP}MtaJ6viJ)AQIoxq|H{=GjDAISt?;
zC+va>+_Z*iF90rq%qad-9hEWh2i{{B!+_Z?yo`+rb?0+)Jxr(ZiOU)6j~u&<N$Col
zh12Xxw>Fh?2)#B#uD#ZPyE!;)2`Ul>74VK5nLo76KoIsUZ$_DL*@_=BrNUh+nYvd~
zy|hlV*!O2600DWTw`;VU*0FLdkOu{JgAa{Cfydqxk{)1?3t$z2%yFxNB5UiAncixq
zsS2nU8~LCn*{(ft?A;45sfPm>MmQF$=QuTZ%3)9Tb%ENN5u%jv1S-d<S?{uz`}s_y
zfB>=w8EQ;*l57sjoh*MjanT63&;AL@Sa7jPoTS2dw1Mat!T;b-ByMHqTE^KA-C8Q+
zKzYH4c#U-r8<fR8J@I}FictI)3fP#ySmJ=n)t#^mLAe{JiT6|s;t=m}QOlYVEc64S
zTAGqPDVn>bDT#~fr6<WAz&4dj_N|37;5!VuPxU*bJ<Zt^k66q>=~M&uPM&W6o;^{3
zsRfJ*+W$z`y<k`Mb_G53OD2OY^q`)tvFAw~hvt%7(I(FzNvcSXbX!hv6$={#`?J7;
zu~2JDIPthSZa$<i7r|pqdYWW<{o#2U`@4suulGOP2)xBrqFMIAXnjPbZ+I<9@ZLqu
z4bnsOkKSCn;6o0?+uuEdW!Sf{MG2SpPW^<CZazRQkql$=PY}0X^ps;LyoTNu9izln
z?4sBxrAM5mE(B5sIv3%ck_TQ(rP$^tGppkiv-)><a&2dMk|@<}y9Sm1kiutZbT|po
zz$gs{P(L7A$?&BKtqXn+ss^)GU+o*fR_0(3Uz$Yvf4SMq8i7_DMJb2zD}CsedxOt>
ziwj6B#dM#(-OFv?0EWeU$y->b0MvLii4HPaOe{?u<Ah&Dr+Jn8(N+aEY3iUCb-oA!
zVM#+fUAseJP;zXR3C-X2H-hO898f#10Mok7eiK5>AF1p-T&O`|pVfYVjuR#zV!NU%
z<5wR2_C1~UVMCp)3^Ga0MgJ8Pi0wqp931=g@QZmID{3KXo|3Q&cjOn8Qs5^mq+2_m
z;^U~e95%Fkuna=6+qkuSyvjDIIEB_nVy>tugA8xCF(zg=39}s9W{oXLNGA>vPyWdv
z3czHFx*>{#=gWpJrybE$q_tzaYRxGz>AQsZB|)j!?OFqPCQ$*;Qt0<S;~1f+YTt)W
zu%+mMK;<mZ0I90VY9XJEU2IhWH$P(h8};@HA9ZW&Si+zz-t)MNb_sEjp-sa#L8V*v
zCVf-Yo>iM|$ih}1G3gM&mAn*l=~c55xObMp-c_w4;1wX%AQqV;&{-m?zyP2O(&K)s
z8#lXb;=Wz)8J2UGOFU0f1-AN6D*Ke*i1l?z*>o)9=d+#C-w7`(@c_sLhEyqP7zd0o
zwf&2ASGCJMpazN#8)NpZnM+~29ILDiT#H--fOKTn;gSawYel+J=-AJ&f$j?2lI}A5
zVzMedL@xt$jp^)T*CpL$nAC4E1k>f1)sQe$gWQ<J77G3b=eO$Or9iTya#&lY*)`oK
z3|BJ+qG_BR^J{-(VhPWwT*8CmX5Al8*53nj<UfQfrwqzbM3zP0H|YaqofPqdofdY%
zaoSG@)IjumdVX)$CYIwA2R*HJqHo?sit9_TyuAe#Z?04^(M431q%8`zN)Oc7v`I=~
zboE}r7n1jNp;f9@`#%KPNeG<x3Yy|Jc4Oq}%K2{dco5rxlG`46Do`sMKdwz$Ys)-m
zdU@;`-X1P!YAKu^Q1dIwH>suJy*qC9L8tb5ko}I94pEqx%372%XhpY(HTH13gyl)_
z*{7>Ct7B4%IO@%J!0hqVz@{|z4evGtwy1eZnaK+8D+%CrIJdN;`-8Lyya=}y3A$Uc
z>mmC^rKcyzQyKkMsE;5kyCvnJJr9A@iQexR4~=ehM-mMvmi<dni}0}PHs;wz%3p{*
z?z3AWTYVVx<}6($sI>0TmLkpu_vdgj<^lGPg4VBbHpc~j!2a0cWY*`~lBgvC7VnDc
zDS92Fr?@(i@jCA^K!t$9pz9CYy9qROFKtTU;ANt*VFd?iL$!LYNj46p=nuJ>#^aJ%
z3H9xMroThlpkO~X&^}(OAYSCW%MJKR-Rag#L^)!w13oY)l*xww%8=K*z#x=wN|B;o
zqX(QhDeDkwh4D=0+-n9}@AlNR;klg99_U62i?pd5<f!|Mtk}!wa?W(x>*fa)bGIPc
zPufYsYWfJ%F7WTfS{4F$kK(F*7zD)>f21_sYMbJwYNAiA69lXX*~KvW7+JQBB(R$$
zg|#2(c4XBoP7~AUCO4UBMa!L~#GmHM5<eYDh5gN#ban?V9nw8K>1PAvU;Uy<*OB{8
zW$h6CJyw$Kvg-b*h{?)8J(9S%Q{VeIywKP9Au`Wj7X31{V?*h{gW=x&h;$`MA=5~1
zzehC|G4m^eY1cBfOlIrtDFP(K*o7yx{P=}08%yojg!l!e8%_2G+|y};jb4uNiLpYv
z73;2@rk;<qZ3>eZRHH?x>Oaq@Rv;340X9_u)YSpReM*(_j{a}^s6nAA<bIp+tRzHH
z>Pw6whE<12sr$@k(OfN+rss3NjgoS&Pvi)*pBwz=BG+!&<|%LMw-5Tzg2;K+OIr-H
zOVq=7UF;xC<lJa{s<0y0X8C*0^WBwb3Y&17Y|W^aSvmAW7iXz=c$K>p<e=z8Cq=M7
zbHl2DW6$hp^oq}1#x**>2<?wKL+G(NE2r;ekx?yOig#-S7VjAU00Q88>6ZH|S9eQ7
z`ct=uqmeYN%&0*yTR-1T8Z$4}HRDO5*<Pk(vpY$AQ}B1)MwOzVbJb5cGgZ&6<S%(g
z<+<>s<4PqNv(R1%V$%7XU#}!>C9#A?+aE#O+hyAs?v$GQfwy-P5BgE)HZRi})K}c*
zb?%_~3Yu2#Rn1Sc$$f|$*JT5uDZI}v7<TWRqQOGKPiU2tJ&KjN_%D>PUF|PhFtMXG
zqa->S?%f)s+mm6|@R&xI_}BuSCJ{^F{OM7q3l64laP=b|bc(p_pqNEv^`-V2_-LeS
z=NWafXXL&#?@dHJ$!hiL*J2ieM{Y;n_b704u{>zrnlNdYkt`nfvZc~mR;yI_ogkap
z(PORv*bymCActR)oZI6Z@^6?lsj3|LQ!M^ix)tkE#2!kn`<}*M1r!Y3KDI}(6bhr3
zm9zXg3=Io@q|#)jbh@>eB6g^_XMxy{)a2M5DmWARCUrXO<om2Z;n!T^VY0d&%pfD<
zyo!n^&>@_X9+0*=;wuW<A<Pn&&f!`9V@|iL<ppK-DTs?dvsfD+z^1S&iiPh2KmFRE
zg#qRMRQ@|#{j>BQ1m2<ZTQs&kd7M3`A;+?hNwR+I6F)WB6b_J;R4t9r?laiV983cb
z)uN)lVqMBoyS^7+;<q`xkfBe&YpDp1*=92@zT9sII-bd4ueoh|_5<nG>P$p(j&nFC
zIW*hF?@TSn0x>&R()bWrJxAJ?iJta_!u!@@lYnl<?<x=3ttIZ<w#W~)a%lUuWNI6L
zH5brkI}dqiabs;`aT9;Oq_Z#29+4Ymnq{y_zCO!*Cdc(r%9&2dEB;+`l;|DYKk=)~
zn)rbU!Y%#A-#x54f_qo!CG8B^QO>y7#IKXpIK#fPw!cvpm{9t1Bl^DSuZRT_Kbse6
zbu$ijq@^_WE<;IkQpH@veA1IQ1Yhxxe9O3#{SS2Ry!QU7?|nZvaL36{k$?_;lqQIg
zSMA=BS6j`ISBF!EU$HFgVu>GiY1+uEo6<*K?E}V?_~9NvT|=*CXN|mCdkR11nOE#v
zUHM&k#etzKt}2}saXP{cFiwui5C6yIX1nVni6-3G2;{ZP1Iiyhs>$g|d=^Y$DcOz9
zlHqQ=1lucq8N)ZE^lWdFhOLo4R!W|FC$_97(k=D6^0J2xf9e#GduAWfg9VXzhr{`~
zI5UnfYmN(0r57YlpZN>>YGUF12IX8_xe4N2LZdTW8dZS>joddrdgQ^>N0(iK9_h~i
z{$wi8`o7bT2G<Yw@G~C?PAqd8Ni9!27yVp(J3lri<Qx4?xDGW+xH_Oi=$RK`G=f$r
z-Q!)K`*YIBO<B<2?VwA>={usFZ4Ca~P(AAn`TYAT&vv+x`*zmjjJ$!YmaYgQmUxpi
zG6x49>*|?bP?tpm{59!we?^Ln@9aGn1J#Xjgdl4!YHOeyoSq2Ss}fJyJQwHGTO6kb
z8H<G+{Pfs8+pYcl6ZpRu6&LVVcr<q{>-S^PI(_)FKAF!S|Nk*Hd?SOc1x^FKF#vI=
zhuar80aF%4!OWDiZRB)vYzNQ99WxrEKo776C!dQct;jVt<y;IS*8&Mv$it&i$rnG6
zyuce*IN=s(RbfAY0_PWh3Zn+FKje*ZRARsQqX%cf93bI^(E@q_>fw0A8Rz0e9tr5w
kg%bOC=D9e5K74RA`1|5-)0rXCZ=MsuGyi?vqn|GPCl4hOApigX
literal 0
HcmV?d00001
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
GIT binary patch
literal 365
zcmcD&o+B>oQ<|KbmuhAdoSL4SnpfhPmzK}Kz`&^XvvPCphNg{{A15jb&HMQmD8|4B
z#H=6&5ZEwsG36I?_$DSR_y;RQaAzf!CF+%>=B4Bp3HcW#Cg-FoIOi7?<QFBDWaj7b
zK&6X{fgDalJqta9ctaBteu!``P$O7|%g9s@D6E@gV91vPb{9;B)lAP+&wxF@STC_C
zIfJdj!Ytm*L<Fq8s5Gx6GdC5ck{50|$QZWb{L-T2RMxbd(&7v*pmwND?1lz<hQ@k^
zoFJ{mC5gEOyoRQRhGr(_hNh+#MkdT`@dkRyX{oG0syGwEDQ1+11eU2ma7lhqYKmKC
sYEDYATYgb)Vu@aEeo88rlWTBDd~krPs|&*cjma+{LB+rj!8CCK0IO(kHvj+t
literal 0
HcmV?d00001
diff --git a/packages/X/Documentation/English/TextSearchIndex/fields.wl b/packages/X/Documentation/English/TextSearchIndex/fields.wl
new file mode 100644
index 00000000..dc94b3a7
--- /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 00000000..d26b5707
--- /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
GIT binary patch
literal 136
zcmcD&o+HjtoSL4SnpaZHz`($!_Oo(x?uMp~mLDf73eEfZkI{&Y6(|k{AO<4{1BIC4
r4H(hX{^jr~O-{{AH8c7T1t488HjD;|F)$p^nEV35VqkbO*ER|OPa!v2
literal 0
HcmV?d00001
diff --git a/packages/X/Documentation/English/TextSearchIndex/write.lock b/packages/X/Documentation/English/TextSearchIndex/write.lock
new file mode 100644
index 00000000..e69de29b
diff --git a/packages/X/Documentation/English/Tutorials/AdlersMethod.nb b/packages/X/Documentation/English/Tutorials/AdlersMethod.nb
new file mode 100644
index 00000000..f2957a4c
--- /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 00000000..89a1e7d6
--- /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 00000000..c9e52d71
--- /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 00000000..45e898eb
--- /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 00000000..5d680f71
--- /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 00000000..6a5e2ade
--- /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 00000000..dc2833ee
--- /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 00000000..151cc895
--- /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 00000000..f95dc338
--- /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 00000000..b5344e23
--- /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 00000000..0eb93c36
--- /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$	^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 00000000..c2b7406d
--- /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 00000000..a519d0e4
--- /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 00000000..0dddd755
--- /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[]
--
GitLab